From 18e60a9d8ffa1c77dab198c42ff4577b3a0b8ed8 Mon Sep 17 00:00:00 2001 From: vyzo Date: Fri, 16 Feb 2024 19:43:29 +0200 Subject: [PATCH] Metaclasses (#1120) This adds support to the MOP for metaclasses. TODO: - [x] fix issues in stdlib - [x] define the `class` meta (class-type-info) in `:std/metaclass` so that it is easy to create metaclasses - [x] tests! --- doc/reference/dev/bootstrap.md | 29 +- src/bootstrap/gerbil/builtin.ssxi.ss | 11 +- src/bootstrap/gerbil/compiler/base.ssxi.ss | 1 + src/bootstrap/gerbil/compiler/base__0.scm | 112 +- src/bootstrap/gerbil/compiler/base__1.scm | 665 +- src/bootstrap/gerbil/compiler/compile.ssi | 10 +- src/bootstrap/gerbil/compiler/compile.ssxi.ss | 2 + src/bootstrap/gerbil/compiler/compile__0.scm | 19834 ++++++++-------- src/bootstrap/gerbil/compiler/compile__1.scm | 2994 +-- src/bootstrap/gerbil/compiler/driver__0.scm | 3610 +-- src/bootstrap/gerbil/compiler/driver__1.scm | 160 +- .../gerbil/compiler/optimize-ann__0.scm | 19768 +++++++-------- .../gerbil/compiler/optimize-base.ssi | 4 + .../gerbil/compiler/optimize-base.ssxi.ss | 37 +- .../gerbil/compiler/optimize-base__0.scm | 2360 +- .../gerbil/compiler/optimize-base__1.scm | 3493 +-- .../gerbil/compiler/optimize-call__0.scm | 6407 ++--- .../gerbil/compiler/optimize-spec__0.scm | 12380 +++++----- .../gerbil/compiler/optimize-top__0.scm | 17508 +++++++------- .../gerbil/compiler/optimize-top__1.scm | 396 +- .../gerbil/compiler/optimize-xform__0.scm | 4042 ++-- src/bootstrap/gerbil/compiler/optimize__0.scm | 2160 +- src/bootstrap/gerbil/compiler/ssxi__1.scm | 4842 ++-- .../gerbil/core$_MOP_$_MOP_2___0.scm | 213 +- .../gerbil/core$_macro-object___0.scm | 42 +- src/bootstrap/gerbil/core.ssi | 19 +- src/bootstrap/gerbil/core.ssxi.ss | 19 + src/bootstrap/gerbil/core__10.scm | 13376 +++++------ src/bootstrap/gerbil/core__11.scm | 129 +- src/bootstrap/gerbil/core__12.scm | 1940 +- src/bootstrap/gerbil/core__13.scm | 272 +- src/bootstrap/gerbil/core__14.scm | 60 +- src/bootstrap/gerbil/core__15.scm | 4068 ++-- src/bootstrap/gerbil/core__16.scm | 56 +- src/bootstrap/gerbil/core__2.scm | 610 +- src/bootstrap/gerbil/core__3.scm | 1350 +- src/bootstrap/gerbil/core__4.scm | 5874 ++--- src/bootstrap/gerbil/core__5.scm | 396 +- src/bootstrap/gerbil/core__6.scm | 2582 +- src/bootstrap/gerbil/core__7.scm | 941 +- src/bootstrap/gerbil/core__8.scm | 6167 ++--- src/bootstrap/gerbil/core__9.scm | 127 +- src/bootstrap/gerbil/expander/common.ssxi.ss | 2 +- src/bootstrap/gerbil/expander/common__0.scm | 16 +- src/bootstrap/gerbil/expander/common__1.scm | 1673 +- src/bootstrap/gerbil/expander/compile__0.scm | 1268 +- src/bootstrap/gerbil/expander/core.ssxi.ss | 41 +- src/bootstrap/gerbil/expander/core__0.scm | 3478 +-- src/bootstrap/gerbil/expander/core__1.scm | 7638 +++--- src/bootstrap/gerbil/expander/module.ssxi.ss | 19 +- src/bootstrap/gerbil/expander/module__0.scm | 5029 ++-- src/bootstrap/gerbil/expander/module__1.scm | 1743 +- src/bootstrap/gerbil/expander/root__0.scm | 777 +- src/bootstrap/gerbil/expander/stx.ssxi.ss | 3 + src/bootstrap/gerbil/expander/stx__0.scm | 1554 +- src/bootstrap/gerbil/expander/stx__1.scm | 739 +- src/bootstrap/gerbil/expander/stxcase.ssxi.ss | 1 + src/bootstrap/gerbil/expander/stxcase__0.scm | 3372 +-- src/bootstrap/gerbil/expander/stxcase__1.scm | 229 +- src/bootstrap/gerbil/expander/top__0.scm | 5004 ++-- src/bootstrap/gerbil/runtime/c3__0.scm | 612 +- src/bootstrap/gerbil/runtime/control__0.scm | 346 +- src/bootstrap/gerbil/runtime/error.ssxi.ss | 9 +- src/bootstrap/gerbil/runtime/error__0.scm | 3924 +-- src/bootstrap/gerbil/runtime/error__1.scm | 1662 +- src/bootstrap/gerbil/runtime/eval.ssxi.ss | 13 +- src/bootstrap/gerbil/runtime/eval__0.scm | 4412 ++-- src/bootstrap/gerbil/runtime/eval__1.scm | 2733 ++- src/bootstrap/gerbil/runtime/gambit__0.scm | 2 +- src/bootstrap/gerbil/runtime/init__0.scm | 556 +- src/bootstrap/gerbil/runtime/loader__0.scm | 156 +- src/bootstrap/gerbil/runtime/mop.ssi | 70 +- src/bootstrap/gerbil/runtime/mop.ssxi.ss | 117 +- src/bootstrap/gerbil/runtime/mop__0.scm | 3165 +-- src/bootstrap/gerbil/runtime/mop__1.scm | 1404 +- src/bootstrap/gerbil/runtime/repl__0.scm | 28 +- src/bootstrap/gerbil/runtime/syntax.ssxi.ss | 3 +- src/bootstrap/gerbil/runtime/syntax__0.scm | 522 +- src/bootstrap/gerbil/runtime/syntax__1.scm | 2026 +- src/bootstrap/gerbil/runtime/system__0.scm | 172 +- src/bootstrap/gerbil/runtime/system__1.scm | 118 +- src/bootstrap/gerbil/runtime/thread__0.scm | 394 +- src/bootstrap/gerbil/runtime/util__0.scm | 3172 +-- src/bootstrap/gerbil/runtime/util__1.scm | 2990 +-- src/bootstrap/gerbil/runtime__0.scm | 2 +- src/build/build-bach.ss | 3 +- src/build/build1.ss | 4 +- src/gerbil/compiler/optimize-base.ss | 9 +- src/gerbil/compiler/optimize-call.ss | 16 +- src/gerbil/compiler/optimize-spec.ss | 1 + src/gerbil/compiler/optimize-top.ss | 11 +- src/gerbil/compiler/optimize.ss | 4 +- src/gerbil/compiler/ssxi.ss | 4 +- src/gerbil/prelude/builtin.ssxi.ss | 9 +- src/gerbil/prelude/core.ss | 54 +- src/gerbil/runtime/mop.ss | 340 +- src/gerbil/test/metaclass-test.ss | 56 + src/std/actor-v13/xdr.ss | 2 +- src/std/actor-v18/io.ss | 4 +- src/std/build-spec.ss | 1 + src/std/interface.ss | 2 +- src/std/metaclass.ss | 68 + src/std/srfi/160/macros.ss | 2 +- src/std/sugar.ss | 2 +- 104 files changed, 102152 insertions(+), 98700 deletions(-) create mode 100644 src/gerbil/test/metaclass-test.ss create mode 100644 src/std/metaclass.ss diff --git a/doc/reference/dev/bootstrap.md b/doc/reference/dev/bootstrap.md index 091948b6a..08785e0ce 100644 --- a/doc/reference/dev/bootstrap.md +++ b/doc/reference/dev/bootstrap.md @@ -194,13 +194,35 @@ bootstrap recompilation. $ cd src $ rm -rf bootstrap/* $ gxc -no-ssxi -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss +``` + +If you have made changes in the compiler optimizer meta and the extant +compiler does not accept your code, you may want to try without +optimizations: + +``` +$ gxc -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss +``` + +Otherwise, you are likely violating some of the bootstrap strictures; see below. + +Once you have compiled the base bootstrap, you can proceed to build stage1: + +``` $ ../build.sh stage0 ... $ ../build.sh stage1 ... ``` -Once you have built stage1, you can use it to build the recursive bootstrap, generating the cross module optimization meta modules this time. +If you compiled the base bootstrap without optimization, you will also have to set `GERBIL_BUILD_NOOPT` during the stage1 build: +``` +GERBIL_BUILD_NOOPT=t ../build.sh stage1 +``` + +After you have built stage1, you can use it to build the recursive +bootstrap, generating the cross module optimization meta modules this +time. ``` $ cd src @@ -210,7 +232,10 @@ $ cp gerbil/prelude/builtin.ssxi.ss bootstrap/gerbil $ ../build.sh env gxc -O -d bootstrap -s -S gerbil/prelude/core.ss gerbil/runtime/{gambit,util,system,loader,control,c3,mop,error,thread,syntax,eval,repl,init}.ss gerbil/runtime.ss gerbil/expander/{common,stx,core,top,module,compile,root,stxcase}.ss gerbil/expander.ss gerbil/compiler/{base,compile,optimize-base,optimize-xform,optimize-top,optimize-spec,optimize-ann,optimize-call,optimize,driver,ssxi}.ss gerbil/compiler.ss gerbil/prelude/gambit.ss ``` -And you have a brand new recursive bootstrap you can use. +And you have a brand new recursive bootstrap you can use. From here +on, you can successively recursively bootstrap using the second step +and the previous compiler, until you are satisfied with your handiwork +and succeed in bootstrapping your changes. ### Strictures on Modifying Parts of the Gerbil Bootstrap diff --git a/src/bootstrap/gerbil/builtin.ssxi.ss b/src/bootstrap/gerbil/builtin.ssxi.ss index 0ca05e684..e488f95b0 100644 --- a/src/bootstrap/gerbil/builtin.ssxi.ss +++ b/src/bootstrap/gerbil/builtin.ssxi.ss @@ -381,7 +381,7 @@ package: gerbil class-type? class-type-id class-type-precedence-list - class-type-all-slots + class-type-slot-vector class-type-slot-table class-type-properties class-type-constructor @@ -446,10 +446,9 @@ package: gerbil unchecked-field-ref unchecked-slot-ref struct-instance? class-instance? - method-ref direct-method-ref bound-method-ref - checked-method-ref checked-bound-method-ref - find-method substruct? subclass? + method-ref bound-method-ref + checked-method-ref checked-bound-method-ref with-unwind-protect with-catch file-newer?) @@ -477,7 +476,9 @@ package: gerbil class-slot-ref unchecked-field-set! unchecked-slot-set! - next-method) + next-method + find-method + direct-method-ref) (declare-primitive/3 subvector diff --git a/src/bootstrap/gerbil/compiler/base.ssxi.ss b/src/bootstrap/gerbil/compiler/base.ssxi.ss index e0b3feca7..52fa5bb9e 100644 --- a/src/bootstrap/gerbil/compiler/base.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/base.ssxi.ss @@ -12,6 +12,7 @@ package: gerbil/compiler :init! #t #f + #f ((:init! . gxc#symbol-table:::init!)))) (declare-type gxc#symbol-table? (@predicate gxc#symbol-table::t)) (declare-type gxc#make-symbol-table (@constructor gxc#symbol-table::t)) diff --git a/src/bootstrap/gerbil/compiler/base__0.scm b/src/bootstrap/gerbil/compiler/base__0.scm index 1d531ed6b..aabad1e39 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 1707773928) + (define gerbil/compiler/base::timestamp 1708102804) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -18,25 +18,25 @@ (define gxc#current-compile-decls (make-parameter '#f)) (define gxc#current-compile-context (make-parameter '#f)) (define gxc#symbol-table::t - (let ((__tmp195068 (list)) - (__tmp195066 - (let ((__tmp195067 + (let ((__tmp196229 (list)) + (__tmp196227 + (let ((__tmp196228 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp195067 '())))) + (cons __tmp196228 '())))) (declare (not safe)) (make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp195068 + __tmp196229 '(gensyms bindings) - __tmp195066 + __tmp196227 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _$args190451_ - (apply make-instance gxc#symbol-table::t _$args190451_))) + (lambda _$args191612_ + (apply make-instance gxc#symbol-table::t _$args191612_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -70,90 +70,90 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_self190449_) - (if (let ((__tmp195073 + (lambda (_self191610_) + (if (let ((__tmp196234 (let () (declare (not safe)) - (##structure-length _self190449_)))) + (##structure-length _self191610_)))) (declare (not safe)) - (##fx< '2 __tmp195073)) + (##fx< '2 __tmp196234)) (begin - (let ((__tmp195070 + (let ((__tmp196231 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp195069 + (__tmp196230 (let () (declare (not safe)) - (##structure-type _self190449_)))) + (##structure-type _self191610_)))) (declare (not safe)) (##unchecked-structure-set! - _self190449_ - __tmp195070 + _self191610_ + __tmp196231 '1 - __tmp195069 + __tmp196230 '#f)) - (let ((__tmp195072 + (let ((__tmp196233 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp195071 + (__tmp196232 (let () (declare (not safe)) - (##structure-type _self190449_)))) + (##structure-type _self191610_)))) (declare (not safe)) (##unchecked-structure-set! - _self190449_ - __tmp195072 + _self191610_ + __tmp196233 '2 - __tmp195071 + __tmp196232 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self190449_ + _self191610_ '2 (let () (declare (not safe)) - (##vector-length _self190449_)))))) + (##vector-length _self191610_)))))) (let () (declare (not safe)) (bind-method! gxc#symbol-table::t ':init! gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_message190318_ _stx190319_ . _details190320_) - (let ((_ctx190325_ - (let ((_$e190322_ (gxc#current-compile-context))) - (if _$e190322_ _$e190322_ 'compile)))) + (lambda (_message191479_ _stx191480_ . _details191481_) + (let ((_ctx191486_ + (let ((_$e191483_ (gxc#current-compile-context))) + (if _$e191483_ _$e191483_ 'compile)))) (apply gx#raise-syntax-error - _ctx190325_ - _message190318_ - _stx190319_ - _details190320_)))) + _ctx191486_ + _message191479_ + _stx191480_ + _details191481_)))) (define gxc#verbose - (lambda _args190315_ + (lambda _args191476_ (if (gxc#current-compile-verbose) - (let ((__tmp195074 (lambda () (apply displayln _args190315_)))) + (let ((__tmp196235 (lambda () (apply displayln _args191476_)))) (declare (not safe)) - (with-lock gxc#+verbose-mutex+ __tmp195074)) + (with-lock gxc#+verbose-mutex+ __tmp196235)) '#!void))) (define gxc#+verbose-mutex+ (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_id190297_) - (let* ((_str190299_ - (if (let () (declare (not safe)) (symbol? _id190297_)) - (symbol->string _id190297_) - _id190297_)) - (_len190301_ (string-length _str190299_)) - (_res190303_ (make-string _len190301_))) - (let _lp190306_ ((_i190308_ '0)) - (if (fx< _i190308_ _len190301_) - (let* ((_char190310_ (string-ref _str190299_ _i190308_)) - (_xchar190312_ + (lambda (_id191458_) + (let* ((_str191460_ + (if (let () (declare (not safe)) (symbol? _id191458_)) + (symbol->string _id191458_) + _id191458_)) + (_len191462_ (string-length _str191460_)) + (_res191464_ (make-string _len191462_))) + (let _lp191467_ ((_i191469_ '0)) + (if (fx< _i191469_ _len191462_) + (let* ((_char191471_ (string-ref _str191460_ _i191469_)) + (_xchar191473_ (if (let () (declare (not safe)) (string-index gxc#module-path-reserved-chars - _char190310_)) + _char191471_)) '#\_ - _char190310_))) - (string-set! _res190303_ _i190308_ _xchar190312_) - (let ((__tmp195075 - (let () (declare (not safe)) (fx+ _i190308_ '1)))) + _char191471_))) + (string-set! _res191464_ _i191469_ _xchar191473_) + (let ((__tmp196236 + (let () (declare (not safe)) (fx+ _i191469_ '1)))) (declare (not safe)) - (_lp190306_ __tmp195075))) - _res190303_))))))) + (_lp191467_ __tmp196236))) + _res191464_))))))) diff --git a/src/bootstrap/gerbil/compiler/base__1.scm b/src/bootstrap/gerbil/compiler/base__1.scm index 1bdeeb062..86270ebc2 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]#_g195105_| + (define |gxc[1]#_g196266_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195107_| + (define |gxc[1]#_g196268_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195109_| + (define |gxc[1]#_g196270_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195114_| + (define |gxc[1]#_g196275_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195117_| + (define |gxc[1]#_g196278_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195122_| + (define |gxc[1]#_g196283_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195125_| + (define |gxc[1]#_g196286_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195130_| + (define |gxc[1]#_g196291_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195133_| + (define |gxc[1]#_g196294_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195138_| + (define |gxc[1]#_g196299_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g195141_| + (define |gxc[1]#_g196302_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! @@ -79,431 +79,431 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_stx189895_) + (lambda (_stx191056_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx189895_ + _stx191056_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_stx189898_) - (let* ((_g189901189925_ - (lambda (_g189902189921_) + (lambda (_stx191059_) + (let* ((_g191062191086_ + (lambda (_g191063191082_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g189902189921_)))) - (_g189900190228_ - (lambda (_g189902189929_) + _g191063191082_)))) + (_g191061191389_ + (lambda (_g191063191090_) (if (let () (declare (not safe)) - (gx#stx-pair? _g189902189929_)) - (let ((_e189907189932_ + (gx#stx-pair? _g191063191090_)) + (let ((_e191068191093_ (let () (declare (not safe)) - (gx#syntax-e _g189902189929_)))) - (let ((_hd189906189936_ + (gx#syntax-e _g191063191090_)))) + (let ((_hd191067191097_ (let () (declare (not safe)) - (##car _e189907189932_))) - (_tl189905189939_ + (##car _e191068191093_))) + (_tl191066191100_ (let () (declare (not safe)) - (##cdr _e189907189932_)))) + (##cdr _e191068191093_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl189905189939_)) - (let ((_e189910189942_ + (gx#stx-pair? _tl191066191100_)) + (let ((_e191071191103_ (let () (declare (not safe)) - (gx#syntax-e _tl189905189939_)))) - (let ((_hd189909189946_ + (gx#syntax-e _tl191066191100_)))) + (let ((_hd191070191107_ (let () (declare (not safe)) - (##car _e189910189942_))) - (_tl189908189949_ + (##car _e191071191103_))) + (_tl191069191110_ (let () (declare (not safe)) - (##cdr _e189910189942_)))) + (##cdr _e191071191103_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl189908189949_)) - (let ((_g195076_ + (gx#stx-pair/null? _tl191069191110_)) + (let ((_g196237_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl189908189949_ + _tl191069191110_ '0)))) (begin - (let ((_g195077_ + (let ((_g196238_ (let () (declare (not safe)) - (if (##values? _g195076_) + (if (##values? _g196237_) (##vector-length - _g195076_) + _g196237_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g195077_ 2))) + (##fx= _g196238_ 2))) (error "Context expects 2 values" - _g195077_))) - (let ((_target189911189952_ + _g196238_))) + (let ((_target191072191113_ (let () (declare (not safe)) - (##vector-ref _g195076_ 0))) - (_tl189913189955_ + (##vector-ref _g196237_ 0))) + (_tl191074191116_ (let () (declare (not safe)) (##vector-ref - _g195076_ + _g196237_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl189913189955_)) - (letrec ((_loop189914189958_ - (lambda (_hd189912189962_ + _tl191074191116_)) + (letrec ((_loop191075191119_ + (lambda (_hd191073191123_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause189918189965_) + _clause191079191126_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd189912189962_)) - (let ((_e189915189968_ + (gx#stx-pair? _hd191073191123_)) + (let ((_e191076191129_ (let () (declare (not safe)) - (gx#syntax-e _hd189912189962_)))) - (let ((_lp-hd189916189972_ + (gx#syntax-e _hd191073191123_)))) + (let ((_lp-hd191077191133_ (let () (declare (not safe)) - (##car _e189915189968_))) - (_lp-tl189917189975_ + (##car _e191076191129_))) + (_lp-tl191078191136_ (let () (declare (not safe)) - (##cdr _e189915189968_)))) - (_loop189914189958_ - _lp-tl189917189975_ + (##cdr _e191076191129_)))) + (_loop191075191119_ + _lp-tl191078191136_ (let () (declare (not safe)) - (cons _lp-hd189916189972_ - _clause189918189965_))))) - (let ((_clause189919189978_ - (reverse _clause189918189965_))) - ((lambda (_L189982_ _L189984_) + (cons _lp-hd191077191133_ + _clause191079191126_))))) + (let ((_clause191080191139_ + (reverse _clause191079191126_))) + ((lambda (_L191143_ _L191145_) (if (let () (declare (not safe)) - (gx#identifier-list? _L189984_)) - (let* ((_g190003190020_ - (lambda (_g190004190016_) + (gx#identifier-list? _L191145_)) + (let* ((_g191164191181_ + (lambda (_g191165191177_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190004190016_)))) - (_g190002190081_ - (lambda (_g190004190024_) + _g191165191177_)))) + (_g191163191242_ + (lambda (_g191165191185_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g190004190024_)) - (let ((_g195078_ + _g191165191185_)) + (let ((_g196239_ (let () (declare (not safe)) (gx#syntax-split-splice - _g190004190024_ + _g191165191185_ '0)))) (begin - (let ((_g195079_ + (let ((_g196240_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g195078_) - (##vector-length _g195078_) + _g196239_) + (##vector-length _g196239_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g195079_ 2))) - (error "Context expects 2 values" _g195079_))) + (##fx= _g196240_ 2))) + (error "Context expects 2 values" _g196240_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target190006190027_ + (let ((_target191167191188_ (let () (declare (not safe)) (##vector-ref - _g195078_ + _g196239_ 0))) - (_tl190008190030_ + (_tl191169191191_ (let () (declare (not safe)) (##vector-ref - _g195078_ + _g196239_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl190008190030_)) - (letrec ((_loop190009190033_ + _tl191169191191_)) + (letrec ((_loop191170191194_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd190007190037_ _clause190013190040_) + (lambda (_hd191168191198_ _clause191174191201_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd190007190037_)) - (let ((_e190010190043_ + (gx#stx-pair? _hd191168191198_)) + (let ((_e191171191204_ (let () (declare (not safe)) - (gx#syntax-e _hd190007190037_)))) - (let ((_lp-hd190011190047_ + (gx#syntax-e _hd191168191198_)))) + (let ((_lp-hd191172191208_ (let () (declare (not safe)) - (##car _e190010190043_))) - (_lp-tl190012190050_ + (##car _e191171191204_))) + (_lp-tl191173191211_ (let () (declare (not safe)) - (##cdr _e190010190043_)))) - (_loop190009190033_ - _lp-tl190012190050_ + (##cdr _e191171191204_)))) + (_loop191170191194_ + _lp-tl191173191211_ (let () (declare (not safe)) - (cons _lp-hd190011190047_ - _clause190013190040_))))) - (let ((_clause190014190053_ - (reverse _clause190013190040_))) - ((lambda (_L190057_) + (cons _lp-hd191172191208_ + _clause191174191201_))))) + (let ((_clause191175191214_ + (reverse _clause191174191201_))) + ((lambda (_L191218_) (let () - (let ((__tmp195091 + (let ((__tmp196252 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp195080 - (let ((__tmp195089 - (let ((__tmp195090 + (__tmp196241 + (let ((__tmp196250 + (let ((__tmp196251 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '$stx)))) (declare (not safe)) - (cons __tmp195090 '()))) + (cons __tmp196251 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp195081 - (let ((__tmp195082 - (let ((__tmp195088 + (__tmp196242 + (let ((__tmp196243 + (let ((__tmp196249 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp195083 - (let ((__tmp195087 + (__tmp196244 + (let ((__tmp196248 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx))) - (__tmp195084 - (let ((__tmp195085 - (let ((__tmp195086 - (lambda (_g190072190075_ - _g190073190078_) + (__tmp196245 + (let ((__tmp196246 + (let ((__tmp196247 + (lambda (_g191233191236_ + _g191234191239_) (let () (declare (not safe)) - (cons _g190072190075_ - _g190073190078_))))) + (cons _g191233191236_ + _g191234191239_))))) (declare (not safe)) - (foldr1 __tmp195086 + (foldr1 __tmp196247 '() - _L190057_)))) + _L191218_)))) (declare (not safe)) - (cons _L189984_ __tmp195085)))) + (cons _L191145_ __tmp196246)))) (declare (not safe)) - (cons __tmp195087 __tmp195084)))) + (cons __tmp196248 __tmp196245)))) (declare (not safe)) - (cons __tmp195088 __tmp195083)))) + (cons __tmp196249 __tmp196244)))) (declare (not safe)) - (cons __tmp195082 '())))) + (cons __tmp196243 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp195089 - __tmp195081)))) + (cons __tmp196250 + __tmp196242)))) (declare (not safe)) - (cons __tmp195091 __tmp195080)))) - _clause190014190053_)))))) - (_loop190009190033_ _target190006190027_ '())) - (_g190003190020_ _g190004190024_))))) + (cons __tmp196252 __tmp196241)))) + _clause191175191214_)))))) + (_loop191170191194_ _target191167191188_ '())) + (_g191164191181_ _g191165191185_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g190003190020_ - _g190004190024_))))) - (_g190002190081_ - (let ((__tmp195094 - (lambda (_clause190085_) - (let* ((___stx195022195023_ - _clause190085_) - (_g190089190116_ + (_g191164191181_ + _g191165191185_))))) + (_g191163191242_ + (let ((__tmp196255 + (lambda (_clause191246_) + (let* ((___stx196183196184_ + _clause191246_) + (_g191250191277_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx195022195023_))))) - (let ((___kont195025195026_ - (lambda (_L190201_ - _L190203_) - (let ((__tmp195095 - (let ((__tmp195096 + ___stx196183196184_))))) + (let ((___kont196186196187_ + (lambda (_L191362_ + _L191364_) + (let ((__tmp196256 + (let ((__tmp196257 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp195098 + (let ((__tmp196259 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp195097 + (__tmp196258 (let () (declare (not safe)) - (cons _L190201_ '())))) + (cons _L191362_ '())))) (declare (not safe)) - (cons __tmp195098 __tmp195097)))) + (cons __tmp196259 __tmp196258)))) (declare (not safe)) - (cons __tmp195096 '())))) + (cons __tmp196257 '())))) (declare (not safe)) - (cons _L190203_ __tmp195095)))) + (cons _L191364_ __tmp196256)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont195027195028_ - (lambda (_L190153_ - _L190155_ - _L190156_) - (let ((__tmp195099 - (let ((__tmp195100 + (___kont196188196189_ + (lambda (_L191314_ + _L191316_ + _L191317_) + (let ((__tmp196260 + (let ((__tmp196261 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp195101 - (let ((__tmp195103 + (let ((__tmp196262 + (let ((__tmp196264 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp195102 + (__tmp196263 (let () (declare (not safe)) - (cons _L190153_ '())))) + (cons _L191314_ '())))) (declare (not safe)) - (cons __tmp195103 __tmp195102)))) + (cons __tmp196264 __tmp196263)))) (declare (not safe)) - (cons __tmp195101 '())))) + (cons __tmp196262 '())))) (declare (not safe)) - (cons _L190155_ __tmp195100)))) + (cons _L191316_ __tmp196261)))) (declare (not safe)) - (cons _L190156_ __tmp195099))))) + (cons _L191317_ __tmp196260))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx195022195023_)) - (let ((_e190095190181_ + ___stx196183196184_)) + (let ((_e191256191342_ (let () (declare (not safe)) (gx#syntax-e - ___stx195022195023_)))) - (let ((_tl190093190188_ + ___stx196183196184_)))) + (let ((_tl191254191349_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e190095190181_))) - (_hd190094190185_ - (let () (declare (not safe)) (##car _e190095190181_)))) + (##cdr _e191256191342_))) + (_hd191255191346_ + (let () (declare (not safe)) (##car _e191256191342_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190093190188_)) - (let ((_e190098190191_ + (gx#stx-pair? _tl191254191349_)) + (let ((_e191259191352_ (let () (declare (not safe)) - (gx#syntax-e _tl190093190188_)))) - (let ((_tl190096190198_ + (gx#syntax-e _tl191254191349_)))) + (let ((_tl191257191359_ (let () (declare (not safe)) - (##cdr _e190098190191_))) - (_hd190097190195_ + (##cdr _e191259191352_))) + (_hd191258191356_ (let () (declare (not safe)) - (##car _e190098190191_)))) + (##car _e191259191352_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190096190198_)) - (___kont195025195026_ - _hd190097190195_ - _hd190094190185_) + (gx#stx-null? _tl191257191359_)) + (___kont196186196187_ + _hd191258191356_ + _hd191255191346_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190096190198_)) - (let ((_e190110190143_ + (gx#stx-pair? _tl191257191359_)) + (let ((_e191271191304_ (let () (declare (not safe)) - (gx#syntax-e _tl190096190198_)))) - (let ((_tl190108190150_ + (gx#syntax-e _tl191257191359_)))) + (let ((_tl191269191311_ (let () (declare (not safe)) - (##cdr _e190110190143_))) - (_hd190109190147_ + (##cdr _e191271191304_))) + (_hd191270191308_ (let () (declare (not safe)) - (##car _e190110190143_)))) + (##car _e191271191304_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190108190150_)) - (___kont195027195028_ - _hd190109190147_ - _hd190097190195_ - _hd190094190185_) + (gx#stx-null? _tl191269191311_)) + (___kont196188196189_ + _hd191270191308_ + _hd191258191356_ + _hd191255191346_) (let () (declare (not safe)) - (_g190089190116_))))) + (_g191250191277_))))) (let () (declare (not safe)) - (_g190089190116_)))))) - (let () (declare (not safe)) (_g190089190116_))))) + (_g191250191277_)))))) + (let () (declare (not safe)) (_g191250191277_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g190089190116_))))))) - (__tmp195092 - (let ((__tmp195093 - (lambda (_g190219190222_ - _g190220190225_) + (_g191250191277_))))))) + (__tmp196253 + (let ((__tmp196254 + (lambda (_g191380191383_ + _g191381191386_) (let () (declare (not safe)) - (cons _g190219190222_ - _g190220190225_))))) + (cons _g191380191383_ + _g191381191386_))))) (declare (not safe)) - (foldr1 __tmp195093 + (foldr1 __tmp196254 '() - _L189982_)))) + _L191143_)))) (declare (not safe)) - (gx#stx-map1 __tmp195094 __tmp195092)))) - (_g189901189925_ _g189902189929_))) - _clause189919189978_ - _hd189909189946_)))))) + (gx#stx-map1 __tmp196255 __tmp196253)))) + (_g191062191086_ _g191063191090_))) + _clause191080191139_ + _hd191070191107_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop189914189958_ - _target189911189952_ + (_loop191075191119_ + _target191072191113_ '())) - (_g189901189925_ - _g189902189929_))))) - (_g189901189925_ _g189902189929_)))) - (_g189901189925_ _g189902189929_)))) - (_g189901189925_ _g189902189929_))))) - (_g189900190228_ _stx189898_)))) + (_g191062191086_ + _g191063191090_))))) + (_g191062191086_ _g191063191090_)))) + (_g191062191086_ _g191063191090_)))) + (_g191062191086_ _g191063191090_))))) + (_g191061191389_ _stx191059_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj195065 + (let ((__obj196226 (let () (declare (not safe)) (##structure @@ -521,11 +521,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 + __obj196226 'gxc#symbol-table::t '1 gerbil/core$$#class-type-info::t @@ -533,7 +534,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 + __obj196226 'symbol-table '2 gerbil/core$$#class-type-info::t @@ -541,7 +542,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 + __obj196226 '(gensyms bindings) '4 gerbil/core$$#class-type-info::t @@ -549,7 +550,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 + __obj196226 '() '3 gerbil/core$$#class-type-info::t @@ -557,7 +558,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 + __obj196226 '#t '5 gerbil/core$$#class-type-info::t @@ -565,7 +566,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 + __obj196226 '#f '6 gerbil/core$$#class-type-info::t @@ -573,205 +574,213 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 - ':init! + __obj196226 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp195104 |gxc[1]#_g195105_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj195065 - __tmp195104 + __obj196226 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp195106 |gxc[1]#_g195107_|)) + (let ((__tmp196265 |gxc[1]#_g196266_|)) (declare (not safe)) (##unchecked-structure-set! - __obj195065 - __tmp195106 + __obj196226 + __tmp196265 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp195108 |gxc[1]#_g195109_|)) + (let ((__tmp196267 |gxc[1]#_g196268_|)) (declare (not safe)) (##unchecked-structure-set! - __obj195065 - __tmp195108 + __obj196226 + __tmp196267 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp195110 - (let ((__tmp195115 - (let ((__tmp195116 |gxc[1]#_g195117_|)) - (declare (not safe)) - (cons 'gensyms __tmp195116))) - (__tmp195111 - (let ((__tmp195112 - (let ((__tmp195113 |gxc[1]#_g195114_|)) - (declare (not safe)) - (cons 'bindings __tmp195113)))) - (declare (not safe)) - (cons __tmp195112 '())))) - (declare (not safe)) - (cons __tmp195115 __tmp195111)))) + (let ((__tmp196269 |gxc[1]#_g196270_|)) (declare (not safe)) (##unchecked-structure-set! - __obj195065 - __tmp195110 + __obj196226 + __tmp196269 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp195118 - (let ((__tmp195123 - (let ((__tmp195124 |gxc[1]#_g195125_|)) + (let ((__tmp196271 + (let ((__tmp196276 + (let ((__tmp196277 |gxc[1]#_g196278_|)) (declare (not safe)) - (cons 'gensyms __tmp195124))) - (__tmp195119 - (let ((__tmp195120 - (let ((__tmp195121 |gxc[1]#_g195122_|)) + (cons 'gensyms __tmp196277))) + (__tmp196272 + (let ((__tmp196273 + (let ((__tmp196274 |gxc[1]#_g196275_|)) (declare (not safe)) - (cons 'bindings __tmp195121)))) + (cons 'bindings __tmp196274)))) (declare (not safe)) - (cons __tmp195120 '())))) + (cons __tmp196273 '())))) (declare (not safe)) - (cons __tmp195123 __tmp195119)))) + (cons __tmp196276 __tmp196272)))) (declare (not safe)) (##unchecked-structure-set! - __obj195065 - __tmp195118 + __obj196226 + __tmp196271 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp195126 - (let ((__tmp195131 - (let ((__tmp195132 |gxc[1]#_g195133_|)) + (let ((__tmp196279 + (let ((__tmp196284 + (let ((__tmp196285 |gxc[1]#_g196286_|)) (declare (not safe)) - (cons 'gensyms __tmp195132))) - (__tmp195127 - (let ((__tmp195128 - (let ((__tmp195129 |gxc[1]#_g195130_|)) + (cons 'gensyms __tmp196285))) + (__tmp196280 + (let ((__tmp196281 + (let ((__tmp196282 |gxc[1]#_g196283_|)) (declare (not safe)) - (cons 'bindings __tmp195129)))) + (cons 'bindings __tmp196282)))) (declare (not safe)) - (cons __tmp195128 '())))) + (cons __tmp196281 '())))) (declare (not safe)) - (cons __tmp195131 __tmp195127)))) + (cons __tmp196284 __tmp196280)))) (declare (not safe)) (##unchecked-structure-set! - __obj195065 - __tmp195126 + __obj196226 + __tmp196279 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp195134 - (let ((__tmp195139 - (let ((__tmp195140 |gxc[1]#_g195141_|)) + (let ((__tmp196287 + (let ((__tmp196292 + (let ((__tmp196293 |gxc[1]#_g196294_|)) (declare (not safe)) - (cons 'gensyms __tmp195140))) - (__tmp195135 - (let ((__tmp195136 - (let ((__tmp195137 |gxc[1]#_g195138_|)) + (cons 'gensyms __tmp196293))) + (__tmp196288 + (let ((__tmp196289 + (let ((__tmp196290 |gxc[1]#_g196291_|)) (declare (not safe)) - (cons 'bindings __tmp195137)))) + (cons 'bindings __tmp196290)))) (declare (not safe)) - (cons __tmp195136 '())))) + (cons __tmp196289 '())))) (declare (not safe)) - (cons __tmp195139 __tmp195135)))) + (cons __tmp196292 __tmp196288)))) (declare (not safe)) (##unchecked-structure-set! - __obj195065 - __tmp195134 + __obj196226 + __tmp196287 '14 gerbil/core$$#class-type-info::t '#f)) - __obj195065)) + (let ((__tmp196295 + (let ((__tmp196300 + (let ((__tmp196301 |gxc[1]#_g196302_|)) + (declare (not safe)) + (cons 'gensyms __tmp196301))) + (__tmp196296 + (let ((__tmp196297 + (let ((__tmp196298 |gxc[1]#_g196299_|)) + (declare (not safe)) + (cons 'bindings __tmp196298)))) + (declare (not safe)) + (cons __tmp196297 '())))) + (declare (not safe)) + (cons __tmp196300 __tmp196296)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj196226 + __tmp196295 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj196226)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_$stx190234_) - (let* ((_g190238190252_ - (lambda (_g190239190248_) + (lambda (_$stx191395_) + (let* ((_g191399191413_ + (lambda (_g191400191409_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g190239190248_)))) - (_g190237190293_ - (lambda (_g190239190256_) + _g191400191409_)))) + (_g191398191454_ + (lambda (_g191400191417_) (if (let () (declare (not safe)) - (gx#stx-pair? _g190239190256_)) - (let ((_e190243190259_ + (gx#stx-pair? _g191400191417_)) + (let ((_e191404191420_ (let () (declare (not safe)) - (gx#syntax-e _g190239190256_)))) - (let ((_hd190242190263_ + (gx#syntax-e _g191400191417_)))) + (let ((_hd191403191424_ (let () (declare (not safe)) - (##car _e190243190259_))) - (_tl190241190266_ + (##car _e191404191420_))) + (_tl191402191427_ (let () (declare (not safe)) - (##cdr _e190243190259_)))) + (##cdr _e191404191420_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl190241190266_)) - (let ((_e190246190269_ + (gx#stx-pair? _tl191402191427_)) + (let ((_e191407191430_ (let () (declare (not safe)) - (gx#syntax-e _tl190241190266_)))) - (let ((_hd190245190273_ + (gx#syntax-e _tl191402191427_)))) + (let ((_hd191406191434_ (let () (declare (not safe)) - (##car _e190246190269_))) - (_tl190244190276_ + (##car _e191407191430_))) + (_tl191405191437_ (let () (declare (not safe)) - (##cdr _e190246190269_)))) + (##cdr _e191407191430_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl190244190276_)) - ((lambda (_L190279_) - (let ((__tmp195149 + (gx#stx-null? _tl191405191437_)) + ((lambda (_L191440_) + (let ((__tmp196310 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp195142 - (let ((__tmp195148 + (__tmp196303 + (let ((__tmp196309 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+verbose-mutex+))) - (__tmp195143 - (let ((__tmp195144 - (let ((__tmp195147 + (__tmp196304 + (let ((__tmp196305 + (let ((__tmp196308 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp195145 - (let ((__tmp195146 + (__tmp196306 + (let ((__tmp196307 (let () (declare (not safe)) - (cons _L190279_ '())))) + (cons _L191440_ '())))) (declare (not safe)) - (cons '() __tmp195146)))) + (cons '() __tmp196307)))) (declare (not safe)) - (cons __tmp195147 __tmp195145)))) + (cons __tmp196308 __tmp196306)))) (declare (not safe)) - (cons __tmp195144 '())))) + (cons __tmp196305 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp195148 - __tmp195143)))) + (cons __tmp196309 + __tmp196304)))) (declare (not safe)) - (cons __tmp195149 __tmp195142))) - _hd190245190273_) - (_g190238190252_ _g190239190256_)))) - (_g190238190252_ _g190239190256_)))) - (_g190238190252_ _g190239190256_))))) - (_g190237190293_ _$stx190234_)))))) + (cons __tmp196310 __tmp196303))) + _hd191406191434_) + (_g191399191413_ _g191400191417_)))) + (_g191399191413_ _g191400191417_)))) + (_g191399191413_ _g191400191417_))))) + (_g191398191454_ _$stx191395_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile.ssi b/src/bootstrap/gerbil/compiler/compile.ssi index 9b894f85f..b93c8a266 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssi +++ b/src/bootstrap/gerbil/compiler/compile.ssi @@ -9,16 +9,16 @@ namespace: gxc (in: :gerbil/core ) (spec: (:gerbil/gambit) + (0 u16vector? 0 u16vector?) + (0 s64vector? 0 s64vector?) (0 s32vector? 0 s32vector?) + (0 u8vector? 0 u8vector?) (0 s8vector? 0 s8vector?) (0 s16vector? 0 s16vector?) - (0 u8vector? 0 u8vector?) - (0 u16vector? 0 u16vector?) (0 u64vector? 0 u64vector?) - (0 f64vector? 0 f64vector?) + (0 u32vector? 0 u32vector?) (0 f32vector? 0 f32vector?) - (0 s64vector? 0 s64vector?) - (0 u32vector? 0 u32vector?))) + (0 f64vector? 0 f64vector?))) (%#export #t) (%#define-runtime gambit-annotations gxc#gambit-annotations) (%#define-runtime current-compile-methods gxc#current-compile-methods) diff --git a/src/bootstrap/gerbil/compiler/compile.ssxi.ss b/src/bootstrap/gerbil/compiler/compile.ssxi.ss index 9b51c8a3e..22b7de968 100644 --- a/src/bootstrap/gerbil/compiler/compile.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/compile.ssxi.ss @@ -136,6 +136,7 @@ package: gerbil/compiler :init! #t #f + #f ((:init! . gxc#meta-state:::init!)))) (declare-type gxc#meta-state? (@predicate gxc#meta-state::t)) (declare-type gxc#make-meta-state (@constructor gxc#meta-state::t)) @@ -170,6 +171,7 @@ package: gerbil/compiler #f #t #f + #f #f)) (declare-type gxc#meta-state-block? (@predicate gxc#meta-state-block::t)) (declare-type diff --git a/src/bootstrap/gerbil/compiler/compile__0.scm b/src/bootstrap/gerbil/compiler/compile__0.scm index 18441dfb5..f7cf8cde6 100644 --- a/src/bootstrap/gerbil/compiler/compile__0.scm +++ b/src/bootstrap/gerbil/compiler/compile__0.scm @@ -1,51 +1,51 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1707773928) + (define gerbil/compiler/compile::timestamp 1708102804) (begin - (define gxc#_g212705_ + (define gxc#_g213866_ (gx#core-deserialize-mark - '(0 (else . _else206427_) (hd . _hd206450_)) + '(0 (hd . _hd207611_) (else . _else207588_)) (gx#current-expander-context))) - (define gxc#_g212706_ + (define gxc#_g213867_ (##structure gx#syntax-quote::t - '_hd206450_ + '_hd207611_ #f (gx#current-expander-context) - (list gxc#_g212705_))) - (define gxc#_g212711_ + (list gxc#_g213866_))) + (define gxc#_g213872_ (gx#core-deserialize-mark - '(0 (else . _else206488_) (hd . _hd206511_)) + '(0 (hd . _hd207672_) (else . _else207649_)) (gx#current-expander-context))) - (define gxc#_g212712_ + (define gxc#_g213873_ (##structure gx#syntax-quote::t - '_hd206511_ + '_hd207672_ #f (gx#current-expander-context) - (list gxc#_g212711_))) - (define gxc#_g212717_ + (list gxc#_g213872_))) + (define gxc#_g213878_ (gx#core-deserialize-mark - '(0 (else . _else206550_) (hd . _hd206573_)) + '(0 (hd . _hd207734_) (else . _else207711_)) (gx#current-expander-context))) - (define gxc#_g212718_ + (define gxc#_g213879_ (##structure gx#syntax-quote::t - '_hd206573_ + '_hd207734_ #f (gx#current-expander-context) - (list gxc#_g212717_))) - (define gxc#_g212723_ + (list gxc#_g213878_))) + (define gxc#_g213884_ (gx#core-deserialize-mark - '(0 (else . _else206613_) (hd . _hd206636_)) + '(0 (hd . _hd207797_) (else . _else207774_)) (gx#current-expander-context))) - (define gxc#_g212724_ + (define gxc#_g213885_ (##structure gx#syntax-quote::t - '_hd206636_ + '_hd207797_ #f (gx#current-expander-context) - (list gxc#_g212723_))) + (list gxc#_g213884_))) (begin (define gxc#gambit-annotations '(not gambit-scheme @@ -87,4552 +87,4552 @@ (define gxc#current-compile-boolean-context (make-parameter '#f)) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_hash-e206648_ - (lambda (_id206650_) + (letrec ((_hash-e207809_ + (lambda (_id207811_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _id206650_)))))) + (let () (declare (not safe)) (gx#stx-e _id207811_)))))) (let () (declare (not safe)) (make-table 'test: gx#bound-identifier=? 'hash: - _hash-e206648_))))) + _hash-e207809_))))) (define gxc#compile-e__0 - (lambda (_stx206401_) - (let* ((___stx211220211221_ _stx206401_) - (_g206404206415_ + (lambda (_stx207562_) + (let* ((___stx212381212382_ _stx207562_) + (_g207565207576_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211220211221_))))) - (let ((___kont211222211223_ - (lambda (_L206442_) - (let ((_$e206452_ - (let ((__tmp212702 (gxc#current-compile-methods)) - (__tmp212701 + ___stx212381212382_))))) + (let ((___kont212383212384_ + (lambda (_L207603_) + (let ((_$e207613_ + (let ((__tmp213863 (gxc#current-compile-methods)) + (__tmp213862 (let () (declare (not safe)) - (gx#stx-e _L206442_)))) + (gx#stx-e _L207603_)))) (declare (not safe)) - (table-ref __tmp212702 __tmp212701 '#f)))) - (if _$e206452_ - ((lambda (_method206455_) + (table-ref __tmp213863 __tmp213862 '#f)))) + (if _$e207613_ + ((lambda (_method207616_) (declare (not safe)) - (_method206455_ _stx206401_)) - _$e206452_) + (_method207616_ _stx207562_)) + _$e207613_) '#!void)))) - (___kont211224211225_ - (lambda (_L206420_) - (let ((__tmp212703 - (let ((__tmp212704 gxc#_g212706_)) + (___kont212385212386_ + (lambda (_L207581_) + (let ((__tmp213864 + (let ((__tmp213865 gxc#_g213867_)) (declare (not safe)) - (gx#datum->syntax__% __tmp212704 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp213865 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx206401_ - __tmp212703))))) + _stx207562_ + __tmp213864))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211220211221_)) - (let ((_e206409206434_ + (gx#stx-pair? ___stx212381212382_)) + (let ((_e207570207595_ (let () (declare (not safe)) - (gx#stx-e ___stx211220211221_)))) - (let ((_tl206407206439_ + (gx#stx-e ___stx212381212382_)))) + (let ((_tl207568207600_ (let () (declare (not safe)) - (##cdr _e206409206434_))) - (_hd206408206437_ + (##cdr _e207570207595_))) + (_hd207569207598_ (let () (declare (not safe)) - (##car _e206409206434_)))) - (___kont211222211223_ _hd206408206437_))) - (___kont211224211225_ ___stx211220211221_)))))) + (##car _e207570207595_)))) + (___kont212383212384_ _hd207569207598_))) + (___kont212385212386_ ___stx212381212382_)))))) (define gxc#compile-e__1 - (lambda (_stx206461_ _arg206462_) - (let* ((___stx211234211235_ _stx206461_) - (_g206465206476_ + (lambda (_stx207622_ _arg207623_) + (let* ((___stx212395212396_ _stx207622_) + (_g207626207637_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211234211235_))))) - (let ((___kont211236211237_ - (lambda (_L206503_) - (let ((_$e206513_ - (let ((__tmp212708 (gxc#current-compile-methods)) - (__tmp212707 + ___stx212395212396_))))) + (let ((___kont212397212398_ + (lambda (_L207664_) + (let ((_$e207674_ + (let ((__tmp213869 (gxc#current-compile-methods)) + (__tmp213868 (let () (declare (not safe)) - (gx#stx-e _L206503_)))) + (gx#stx-e _L207664_)))) (declare (not safe)) - (table-ref __tmp212708 __tmp212707 '#f)))) - (if _$e206513_ - ((lambda (_method206516_) + (table-ref __tmp213869 __tmp213868 '#f)))) + (if _$e207674_ + ((lambda (_method207677_) (declare (not safe)) - (_method206516_ _stx206461_ _arg206462_)) - _$e206513_) + (_method207677_ _stx207622_ _arg207623_)) + _$e207674_) '#!void)))) - (___kont211238211239_ - (lambda (_L206481_) - (let ((__tmp212709 - (let ((__tmp212710 gxc#_g212712_)) + (___kont212399212400_ + (lambda (_L207642_) + (let ((__tmp213870 + (let ((__tmp213871 gxc#_g213873_)) (declare (not safe)) - (gx#datum->syntax__% __tmp212710 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp213871 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx206461_ - __tmp212709))))) + _stx207622_ + __tmp213870))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211234211235_)) - (let ((_e206470206495_ + (gx#stx-pair? ___stx212395212396_)) + (let ((_e207631207656_ (let () (declare (not safe)) - (gx#stx-e ___stx211234211235_)))) - (let ((_tl206468206500_ + (gx#stx-e ___stx212395212396_)))) + (let ((_tl207629207661_ (let () (declare (not safe)) - (##cdr _e206470206495_))) - (_hd206469206498_ + (##cdr _e207631207656_))) + (_hd207630207659_ (let () (declare (not safe)) - (##car _e206470206495_)))) - (___kont211236211237_ _hd206469206498_))) - (___kont211238211239_ ___stx211234211235_)))))) + (##car _e207631207656_)))) + (___kont212397212398_ _hd207630207659_))) + (___kont212399212400_ ___stx212395212396_)))))) (define gxc#compile-e__2 - (lambda (_stx206522_ _arg1206523_ _arg2206524_) - (let* ((___stx211248211249_ _stx206522_) - (_g206527206538_ + (lambda (_stx207683_ _arg1207684_ _arg2207685_) + (let* ((___stx212409212410_ _stx207683_) + (_g207688207699_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211248211249_))))) - (let ((___kont211250211251_ - (lambda (_L206565_) - (let ((_$e206575_ - (let ((__tmp212714 (gxc#current-compile-methods)) - (__tmp212713 + ___stx212409212410_))))) + (let ((___kont212411212412_ + (lambda (_L207726_) + (let ((_$e207736_ + (let ((__tmp213875 (gxc#current-compile-methods)) + (__tmp213874 (let () (declare (not safe)) - (gx#stx-e _L206565_)))) + (gx#stx-e _L207726_)))) (declare (not safe)) - (table-ref __tmp212714 __tmp212713 '#f)))) - (if _$e206575_ - ((lambda (_method206578_) + (table-ref __tmp213875 __tmp213874 '#f)))) + (if _$e207736_ + ((lambda (_method207739_) (declare (not safe)) - (_method206578_ - _stx206522_ - _arg1206523_ - _arg2206524_)) - _$e206575_) + (_method207739_ + _stx207683_ + _arg1207684_ + _arg2207685_)) + _$e207736_) '#!void)))) - (___kont211252211253_ - (lambda (_L206543_) - (let ((__tmp212715 - (let ((__tmp212716 gxc#_g212718_)) + (___kont212413212414_ + (lambda (_L207704_) + (let ((__tmp213876 + (let ((__tmp213877 gxc#_g213879_)) (declare (not safe)) - (gx#datum->syntax__% __tmp212716 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp213877 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx206522_ - __tmp212715))))) + _stx207683_ + __tmp213876))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211248211249_)) - (let ((_e206532206557_ + (gx#stx-pair? ___stx212409212410_)) + (let ((_e207693207718_ (let () (declare (not safe)) - (gx#stx-e ___stx211248211249_)))) - (let ((_tl206530206562_ + (gx#stx-e ___stx212409212410_)))) + (let ((_tl207691207723_ (let () (declare (not safe)) - (##cdr _e206532206557_))) - (_hd206531206560_ + (##cdr _e207693207718_))) + (_hd207692207721_ (let () (declare (not safe)) - (##car _e206532206557_)))) - (___kont211250211251_ _hd206531206560_))) - (___kont211252211253_ ___stx211248211249_)))))) + (##car _e207693207718_)))) + (___kont212411212412_ _hd207692207721_))) + (___kont212413212414_ ___stx212409212410_)))))) (define gxc#compile-e__3 - (lambda (_stx206584_ _arg1206585_ _arg2206586_ . _args206587_) - (let* ((___stx211262211263_ _stx206584_) - (_g206590206601_ + (lambda (_stx207745_ _arg1207746_ _arg2207747_ . _args207748_) + (let* ((___stx212423212424_ _stx207745_) + (_g207751207762_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211262211263_))))) - (let ((___kont211264211265_ - (lambda (_L206628_) - (let ((_$e206638_ - (let ((__tmp212720 (gxc#current-compile-methods)) - (__tmp212719 + ___stx212423212424_))))) + (let ((___kont212425212426_ + (lambda (_L207789_) + (let ((_$e207799_ + (let ((__tmp213881 (gxc#current-compile-methods)) + (__tmp213880 (let () (declare (not safe)) - (gx#stx-e _L206628_)))) + (gx#stx-e _L207789_)))) (declare (not safe)) - (table-ref __tmp212720 __tmp212719 '#f)))) - (if _$e206638_ - ((lambda (_method206641_) + (table-ref __tmp213881 __tmp213880 '#f)))) + (if _$e207799_ + ((lambda (_method207802_) (declare (not safe)) - (apply _method206641_ - _stx206584_ - _arg1206585_ - _arg2206586_ - _args206587_)) - _$e206638_) + (apply _method207802_ + _stx207745_ + _arg1207746_ + _arg2207747_ + _args207748_)) + _$e207799_) '#!void)))) - (___kont211266211267_ - (lambda (_L206606_) - (let ((__tmp212721 - (let ((__tmp212722 gxc#_g212724_)) + (___kont212427212428_ + (lambda (_L207767_) + (let ((__tmp213882 + (let ((__tmp213883 gxc#_g213885_)) (declare (not safe)) - (gx#datum->syntax__% __tmp212722 'hd '#f '#f)))) + (gx#datum->syntax__% __tmp213883 'hd '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"Cannot compile; missing method" - _stx206584_ - __tmp212721))))) + _stx207745_ + __tmp213882))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211262211263_)) - (let ((_e206595206620_ + (gx#stx-pair? ___stx212423212424_)) + (let ((_e207756207781_ (let () (declare (not safe)) - (gx#stx-e ___stx211262211263_)))) - (let ((_tl206593206625_ + (gx#stx-e ___stx212423212424_)))) + (let ((_tl207754207786_ (let () (declare (not safe)) - (##cdr _e206595206620_))) - (_hd206594206623_ + (##cdr _e207756207781_))) + (_hd207755207784_ (let () (declare (not safe)) - (##car _e206595206620_)))) - (___kont211264211265_ _hd206594206623_))) - (___kont211266211267_ ___stx211262211263_)))))) + (##car _e207756207781_)))) + (___kont212425212426_ _hd207755207784_))) + (___kont212427212428_ ___stx212423212424_)))))) (define gxc#compile-e - (lambda _g212726_ - (let ((_g212725_ (let () (declare (not safe)) (##length _g212726_)))) - (cond ((let () (declare (not safe)) (##fx= _g212725_ 1)) - (apply (lambda (_stx206401_) + (lambda _g213887_ + (let ((_g213886_ (let () (declare (not safe)) (##length _g213887_)))) + (cond ((let () (declare (not safe)) (##fx= _g213886_ 1)) + (apply (lambda (_stx207562_) (let () (declare (not safe)) - (gxc#compile-e__0 _stx206401_))) - _g212726_)) - ((let () (declare (not safe)) (##fx= _g212725_ 2)) - (apply (lambda (_stx206461_ _arg206462_) + (gxc#compile-e__0 _stx207562_))) + _g213887_)) + ((let () (declare (not safe)) (##fx= _g213886_ 2)) + (apply (lambda (_stx207622_ _arg207623_) (let () (declare (not safe)) - (gxc#compile-e__1 _stx206461_ _arg206462_))) - _g212726_)) - ((let () (declare (not safe)) (##fx= _g212725_ 3)) - (apply (lambda (_stx206522_ _arg1206523_ _arg2206524_) + (gxc#compile-e__1 _stx207622_ _arg207623_))) + _g213887_)) + ((let () (declare (not safe)) (##fx= _g213886_ 3)) + (apply (lambda (_stx207683_ _arg1207684_ _arg2207685_) (let () (declare (not safe)) (gxc#compile-e__2 - _stx206522_ - _arg1206523_ - _arg2206524_))) - _g212726_)) - ((let () (declare (not safe)) (##fx>= _g212725_ 3)) - (apply gxc#compile-e__3 _g212726_)) + _stx207683_ + _arg1207684_ + _arg2207685_))) + _g213887_)) + ((let () (declare (not safe)) (##fx>= _g213886_ 3)) + (apply gxc#compile-e__3 _g213887_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g212726_)))))) - (define gxc#void-method (lambda (_stx206398_ . _args206399_) '#!void)) - (define gxc#false-method (lambda (_stx206395_ . _args206396_) '#f)) - (define gxc#true-method (lambda (_stx206392_ . _args206393_) '#t)) + _g213887_)))))) + (define gxc#void-method (lambda (_stx207559_ . _args207560_) '#!void)) + (define gxc#false-method (lambda (_stx207556_ . _args207557_) '#f)) + (define gxc#true-method (lambda (_stx207553_ . _args207554_) '#t)) (define gxc#&void-expression (make-promise (lambda () - (let ((_tbl206389_ + (let ((_tbl207550_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#begin-annotation gxc#void-method)) + (table-set! _tbl207550_ '%#begin-annotation gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#lambda gxc#void-method)) + (table-set! _tbl207550_ '%#lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#case-lambda gxc#void-method)) + (table-set! _tbl207550_ '%#case-lambda gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#let-values gxc#void-method)) + (table-set! _tbl207550_ '%#let-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#letrec-values gxc#void-method)) + (table-set! _tbl207550_ '%#letrec-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#letrec*-values gxc#void-method)) + (table-set! _tbl207550_ '%#letrec*-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#quote gxc#void-method)) + (table-set! _tbl207550_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#quote-syntax gxc#void-method)) + (table-set! _tbl207550_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#call gxc#void-method)) + (table-set! _tbl207550_ '%#call gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#call-unchecked gxc#void-method)) + (table-set! _tbl207550_ '%#call-unchecked gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#if gxc#void-method)) + (table-set! _tbl207550_ '%#if gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#ref gxc#void-method)) + (table-set! _tbl207550_ '%#ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#set! gxc#void-method)) + (table-set! _tbl207550_ '%#set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#struct-instance? gxc#void-method)) + (table-set! _tbl207550_ '%#struct-instance? gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl206389_ + _tbl207550_ '%#struct-direct-instance? gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#struct-ref gxc#void-method)) + (table-set! _tbl207550_ '%#struct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#struct-set! gxc#void-method)) + (table-set! _tbl207550_ '%#struct-set! gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#struct-direct-ref gxc#void-method)) + (table-set! _tbl207550_ '%#struct-direct-ref gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206389_ '%#struct-direct-set! gxc#void-method)) + (table-set! _tbl207550_ '%#struct-direct-set! gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl206389_ + _tbl207550_ '%#struct-unchecked-ref gxc#void-method)) (let () (declare (not safe)) (table-set! - _tbl206389_ + _tbl207550_ '%#struct-unchecked-set! gxc#void-method)) - _tbl206389_)))) + _tbl207550_)))) (define gxc#&void-special-form (make-promise (lambda () - (let ((_tbl206385_ + (let ((_tbl207546_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#begin gxc#void-method)) + (table-set! _tbl207546_ '%#begin gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#begin-syntax gxc#void-method)) + (table-set! _tbl207546_ '%#begin-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#begin-foreign gxc#void-method)) + (table-set! _tbl207546_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#module gxc#void-method)) + (table-set! _tbl207546_ '%#module gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#import gxc#void-method)) + (table-set! _tbl207546_ '%#import gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#export gxc#void-method)) + (table-set! _tbl207546_ '%#export gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#provide gxc#void-method)) + (table-set! _tbl207546_ '%#provide gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#extern gxc#void-method)) + (table-set! _tbl207546_ '%#extern gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#define-values gxc#void-method)) + (table-set! _tbl207546_ '%#define-values gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#define-syntax gxc#void-method)) + (table-set! _tbl207546_ '%#define-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#define-alias gxc#void-method)) + (table-set! _tbl207546_ '%#define-alias gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206385_ '%#declare gxc#void-method)) - _tbl206385_)))) + (table-set! _tbl207546_ '%#declare gxc#void-method)) + _tbl207546_)))) (define gxc#&void (make-promise (lambda () - (let ((_tbl206381_ + (let ((_tbl207542_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212727 (force gxc#&void-special-form))) + (let ((__tmp213888 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl206381_ __tmp212727)) - (let ((__tmp212728 (force gxc#&void-expression))) + (hash-copy! _tbl207542_ __tmp213888)) + (let ((__tmp213889 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl206381_ __tmp212728)) - _tbl206381_)))) + (hash-copy! _tbl207542_ __tmp213889)) + _tbl207542_)))) (define gxc#&false-expression (make-promise (lambda () - (let ((_tbl206377_ + (let ((_tbl207538_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#begin-annotation gxc#false-method)) + (table-set! _tbl207538_ '%#begin-annotation gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#lambda gxc#false-method)) + (table-set! _tbl207538_ '%#lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#case-lambda gxc#false-method)) + (table-set! _tbl207538_ '%#case-lambda gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#let-values gxc#false-method)) + (table-set! _tbl207538_ '%#let-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#letrec-values gxc#false-method)) + (table-set! _tbl207538_ '%#letrec-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#letrec*-values gxc#false-method)) + (table-set! _tbl207538_ '%#letrec*-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#quote gxc#false-method)) + (table-set! _tbl207538_ '%#quote gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#quote-syntax gxc#false-method)) + (table-set! _tbl207538_ '%#quote-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#call gxc#false-method)) + (table-set! _tbl207538_ '%#call gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#call-unchecked gxc#false-method)) + (table-set! _tbl207538_ '%#call-unchecked gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#if gxc#false-method)) + (table-set! _tbl207538_ '%#if gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#ref gxc#false-method)) + (table-set! _tbl207538_ '%#ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#set! gxc#false-method)) + (table-set! _tbl207538_ '%#set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#struct-instance? gxc#false-method)) + (table-set! _tbl207538_ '%#struct-instance? gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl206377_ + _tbl207538_ '%#struct-direct-instance? gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#struct-ref gxc#false-method)) + (table-set! _tbl207538_ '%#struct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#struct-set! gxc#false-method)) + (table-set! _tbl207538_ '%#struct-set! gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#struct-direct-ref gxc#false-method)) + (table-set! _tbl207538_ '%#struct-direct-ref gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206377_ '%#struct-direct-set! gxc#false-method)) + (table-set! _tbl207538_ '%#struct-direct-set! gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl206377_ + _tbl207538_ '%#struct-unchecked-ref gxc#false-method)) (let () (declare (not safe)) (table-set! - _tbl206377_ + _tbl207538_ '%#struct-unchecked-set! gxc#false-method)) - _tbl206377_)))) + _tbl207538_)))) (define gxc#&false-special-form (make-promise (lambda () - (let ((_tbl206373_ + (let ((_tbl207534_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#begin gxc#false-method)) + (table-set! _tbl207534_ '%#begin gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#begin-syntax gxc#false-method)) + (table-set! _tbl207534_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#begin-foreign gxc#false-method)) + (table-set! _tbl207534_ '%#begin-foreign gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#module gxc#false-method)) + (table-set! _tbl207534_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#import gxc#false-method)) + (table-set! _tbl207534_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#export gxc#false-method)) + (table-set! _tbl207534_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#provide gxc#false-method)) + (table-set! _tbl207534_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#extern gxc#false-method)) + (table-set! _tbl207534_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#define-values gxc#false-method)) + (table-set! _tbl207534_ '%#define-values gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#define-syntax gxc#false-method)) + (table-set! _tbl207534_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#define-alias gxc#false-method)) + (table-set! _tbl207534_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206373_ '%#declare gxc#false-method)) - _tbl206373_)))) + (table-set! _tbl207534_ '%#declare gxc#false-method)) + _tbl207534_)))) (define gxc#&false (make-promise (lambda () - (let ((_tbl206369_ + (let ((_tbl207530_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212729 (force gxc#&false-special-form))) + (let ((__tmp213890 (force gxc#&false-special-form))) (declare (not safe)) - (hash-copy! _tbl206369_ __tmp212729)) - (let ((__tmp212730 (force gxc#&false-expression))) + (hash-copy! _tbl207530_ __tmp213890)) + (let ((__tmp213891 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl206369_ __tmp212730)) - _tbl206369_)))) + (hash-copy! _tbl207530_ __tmp213891)) + _tbl207530_)))) (define gxc#&collect-bindings (make-promise (lambda () - (let ((_tbl206365_ + (let ((_tbl207526_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212731 (force gxc#&void-expression))) + (let ((__tmp213892 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl206365_ __tmp212731)) - (let ((__tmp212732 (force gxc#&void-special-form))) + (hash-copy! _tbl207526_ __tmp213892)) + (let ((__tmp213893 (force gxc#&void-special-form))) (declare (not safe)) - (hash-copy! _tbl206365_ __tmp212732)) + (hash-copy! _tbl207526_ __tmp213893)) (let () (declare (not safe)) - (table-set! _tbl206365_ '%#begin gxc#collect-begin%)) + (table-set! _tbl207526_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl206365_ + _tbl207526_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl206365_ '%#module gxc#collect-module%)) + (table-set! _tbl207526_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl206365_ + _tbl207526_ '%#define-values gxc#collect-bindings-define-values%)) (let () (declare (not safe)) (table-set! - _tbl206365_ + _tbl207526_ '%#define-syntax gxc#collect-bindings-define-syntax%)) - _tbl206365_)))) + _tbl207526_)))) (define gxc#apply-collect-bindings - (lambda (_stx206348_ . _args206350_) - (let ((__tmp212734 + (lambda (_stx207509_ . _args207511_) + (let ((__tmp213895 (lambda () (declare (not safe)) - (if (null? _args206350_) - (gxc#compile-e__0 _stx206348_) - (let ((_arg1206355_ (car _args206350_)) - (_rest206357_ (cdr _args206350_))) - (if (null? _rest206357_) - (gxc#compile-e__1 _stx206348_ _arg1206355_) - (let ((_arg2206360_ (car _rest206357_)) - (_rest206362_ (cdr _rest206357_))) - (if (null? _rest206362_) + (if (null? _args207511_) + (gxc#compile-e__0 _stx207509_) + (let ((_arg1207516_ (car _args207511_)) + (_rest207518_ (cdr _args207511_))) + (if (null? _rest207518_) + (gxc#compile-e__1 _stx207509_ _arg1207516_) + (let ((_arg2207521_ (car _rest207518_)) + (_rest207523_ (cdr _rest207518_))) + (if (null? _rest207523_) (gxc#compile-e__2 - _stx206348_ - _arg1206355_ - _arg2206360_) + _stx207509_ + _arg1207516_ + _arg2207521_) (apply gxc#compile-e - _stx206348_ - _arg1206355_ - _arg2206360_ - _rest206362_)))))))) - (__tmp212733 (force gxc#&collect-bindings))) + _stx207509_ + _arg1207516_ + _arg2207521_ + _rest207523_)))))))) + (__tmp213894 (force gxc#&collect-bindings))) (declare (not safe)) (call-with-parameters - __tmp212734 + __tmp213895 gxc#current-compile-methods - __tmp212733)))) + __tmp213894)))) (define gxc#&lift-modules (make-promise (lambda () - (let ((_tbl206345_ + (let ((_tbl207506_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212735 (force gxc#&void))) + (let ((__tmp213896 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl206345_ __tmp212735)) + (hash-copy! _tbl207506_ __tmp213896)) (let () (declare (not safe)) - (table-set! _tbl206345_ '%#begin gxc#collect-begin%)) + (table-set! _tbl207506_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) - (table-set! _tbl206345_ '%#module gxc#lift-modules-module%)) - _tbl206345_)))) + (table-set! _tbl207506_ '%#module gxc#lift-modules-module%)) + _tbl207506_)))) (define gxc#apply-lift-modules - (lambda (_stx206328_ . _args206330_) - (let ((__tmp212737 + (lambda (_stx207489_ . _args207491_) + (let ((__tmp213898 (lambda () (declare (not safe)) - (if (null? _args206330_) - (gxc#compile-e__0 _stx206328_) - (let ((_arg1206335_ (car _args206330_)) - (_rest206337_ (cdr _args206330_))) - (if (null? _rest206337_) - (gxc#compile-e__1 _stx206328_ _arg1206335_) - (let ((_arg2206340_ (car _rest206337_)) - (_rest206342_ (cdr _rest206337_))) - (if (null? _rest206342_) + (if (null? _args207491_) + (gxc#compile-e__0 _stx207489_) + (let ((_arg1207496_ (car _args207491_)) + (_rest207498_ (cdr _args207491_))) + (if (null? _rest207498_) + (gxc#compile-e__1 _stx207489_ _arg1207496_) + (let ((_arg2207501_ (car _rest207498_)) + (_rest207503_ (cdr _rest207498_))) + (if (null? _rest207503_) (gxc#compile-e__2 - _stx206328_ - _arg1206335_ - _arg2206340_) + _stx207489_ + _arg1207496_ + _arg2207501_) (apply gxc#compile-e - _stx206328_ - _arg1206335_ - _arg2206340_ - _rest206342_)))))))) - (__tmp212736 (force gxc#&lift-modules))) + _stx207489_ + _arg1207496_ + _arg2207501_ + _rest207503_)))))))) + (__tmp213897 (force gxc#&lift-modules))) (declare (not safe)) (call-with-parameters - __tmp212737 + __tmp213898 gxc#current-compile-methods - __tmp212736)))) + __tmp213897)))) (define gxc#&find-runtime-code (make-promise (lambda () - (let ((_tbl206325_ + (let ((_tbl207486_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#begin gxc#find-runtime-begin%)) + (table-set! _tbl207486_ '%#begin gxc#find-runtime-begin%)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#begin-syntax gxc#false-method)) + (table-set! _tbl207486_ '%#begin-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#begin-foreign gxc#true-method)) + (table-set! _tbl207486_ '%#begin-foreign gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#begin-annotation gxc#true-method)) + (table-set! _tbl207486_ '%#begin-annotation gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#module gxc#false-method)) + (table-set! _tbl207486_ '%#module gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#import gxc#false-method)) + (table-set! _tbl207486_ '%#import gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#export gxc#false-method)) + (table-set! _tbl207486_ '%#export gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#provide gxc#false-method)) + (table-set! _tbl207486_ '%#provide gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#extern gxc#false-method)) + (table-set! _tbl207486_ '%#extern gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#define-values gxc#true-method)) + (table-set! _tbl207486_ '%#define-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#define-syntax gxc#false-method)) + (table-set! _tbl207486_ '%#define-syntax gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#define-alias gxc#false-method)) + (table-set! _tbl207486_ '%#define-alias gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#declare gxc#false-method)) + (table-set! _tbl207486_ '%#declare gxc#false-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#lambda gxc#true-method)) + (table-set! _tbl207486_ '%#lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#case-lambda gxc#true-method)) + (table-set! _tbl207486_ '%#case-lambda gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#let-values gxc#true-method)) + (table-set! _tbl207486_ '%#let-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#letrec-values gxc#true-method)) + (table-set! _tbl207486_ '%#letrec-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#letrec*-values gxc#true-method)) + (table-set! _tbl207486_ '%#letrec*-values gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#quote gxc#true-method)) + (table-set! _tbl207486_ '%#quote gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#call gxc#true-method)) + (table-set! _tbl207486_ '%#call gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#call-unchecked gxc#true-method)) + (table-set! _tbl207486_ '%#call-unchecked gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#if gxc#true-method)) + (table-set! _tbl207486_ '%#if gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#ref gxc#true-method)) + (table-set! _tbl207486_ '%#ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#set! gxc#true-method)) + (table-set! _tbl207486_ '%#set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#struct-instance? gxc#true-method)) + (table-set! _tbl207486_ '%#struct-instance? gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl206325_ + _tbl207486_ '%#struct-direct-instance? gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#struct-ref gxc#true-method)) + (table-set! _tbl207486_ '%#struct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#struct-set! gxc#true-method)) + (table-set! _tbl207486_ '%#struct-set! gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#struct-direct-ref gxc#true-method)) + (table-set! _tbl207486_ '%#struct-direct-ref gxc#true-method)) (let () (declare (not safe)) - (table-set! _tbl206325_ '%#struct-direct-set! gxc#true-method)) + (table-set! _tbl207486_ '%#struct-direct-set! gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl206325_ + _tbl207486_ '%#struct-unchecked-ref gxc#true-method)) (let () (declare (not safe)) (table-set! - _tbl206325_ + _tbl207486_ '%#struct-unchecked-set! gxc#true-method)) - _tbl206325_)))) + _tbl207486_)))) (define gxc#apply-find-runtime-code - (lambda (_stx206308_ . _args206310_) - (let ((__tmp212739 + (lambda (_stx207469_ . _args207471_) + (let ((__tmp213900 (lambda () (declare (not safe)) - (if (null? _args206310_) - (gxc#compile-e__0 _stx206308_) - (let ((_arg1206315_ (car _args206310_)) - (_rest206317_ (cdr _args206310_))) - (if (null? _rest206317_) - (gxc#compile-e__1 _stx206308_ _arg1206315_) - (let ((_arg2206320_ (car _rest206317_)) - (_rest206322_ (cdr _rest206317_))) - (if (null? _rest206322_) + (if (null? _args207471_) + (gxc#compile-e__0 _stx207469_) + (let ((_arg1207476_ (car _args207471_)) + (_rest207478_ (cdr _args207471_))) + (if (null? _rest207478_) + (gxc#compile-e__1 _stx207469_ _arg1207476_) + (let ((_arg2207481_ (car _rest207478_)) + (_rest207483_ (cdr _rest207478_))) + (if (null? _rest207483_) (gxc#compile-e__2 - _stx206308_ - _arg1206315_ - _arg2206320_) + _stx207469_ + _arg1207476_ + _arg2207481_) (apply gxc#compile-e - _stx206308_ - _arg1206315_ - _arg2206320_ - _rest206322_)))))))) - (__tmp212738 (force gxc#&find-runtime-code))) + _stx207469_ + _arg1207476_ + _arg2207481_ + _rest207483_)))))))) + (__tmp213899 (force gxc#&find-runtime-code))) (declare (not safe)) (call-with-parameters - __tmp212739 + __tmp213900 gxc#current-compile-methods - __tmp212738)))) + __tmp213899)))) (define gxc#&find-lambda-expression (make-promise (lambda () - (let ((_tbl206305_ + (let ((_tbl207466_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212740 (force gxc#&false))) + (let ((__tmp213901 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl206305_ __tmp212740)) + (hash-copy! _tbl207466_ __tmp213901)) (let () (declare (not safe)) (table-set! - _tbl206305_ + _tbl207466_ '%#begin gxc#find-lambda-expression-begin%)) (let () (declare (not safe)) (table-set! - _tbl206305_ + _tbl207466_ '%#begin-annotation gxc#find-lambda-expression-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl206305_ '%#lambda values)) + (table-set! _tbl207466_ '%#lambda values)) (let () (declare (not safe)) - (table-set! _tbl206305_ '%#case-lambda values)) + (table-set! _tbl207466_ '%#case-lambda values)) (let () (declare (not safe)) (table-set! - _tbl206305_ + _tbl207466_ '%#let-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (table-set! - _tbl206305_ + _tbl207466_ '%#letrec-values gxc#find-lambda-expression-let-values%)) (let () (declare (not safe)) (table-set! - _tbl206305_ + _tbl207466_ '%#letrec*-values gxc#find-lambda-expression-let-values%)) - _tbl206305_)))) + _tbl207466_)))) (define gxc#apply-find-lambda-expression - (lambda (_stx206288_ . _args206290_) - (let ((__tmp212742 + (lambda (_stx207449_ . _args207451_) + (let ((__tmp213903 (lambda () (declare (not safe)) - (if (null? _args206290_) - (gxc#compile-e__0 _stx206288_) - (let ((_arg1206295_ (car _args206290_)) - (_rest206297_ (cdr _args206290_))) - (if (null? _rest206297_) - (gxc#compile-e__1 _stx206288_ _arg1206295_) - (let ((_arg2206300_ (car _rest206297_)) - (_rest206302_ (cdr _rest206297_))) - (if (null? _rest206302_) + (if (null? _args207451_) + (gxc#compile-e__0 _stx207449_) + (let ((_arg1207456_ (car _args207451_)) + (_rest207458_ (cdr _args207451_))) + (if (null? _rest207458_) + (gxc#compile-e__1 _stx207449_ _arg1207456_) + (let ((_arg2207461_ (car _rest207458_)) + (_rest207463_ (cdr _rest207458_))) + (if (null? _rest207463_) (gxc#compile-e__2 - _stx206288_ - _arg1206295_ - _arg2206300_) + _stx207449_ + _arg1207456_ + _arg2207461_) (apply gxc#compile-e - _stx206288_ - _arg1206295_ - _arg2206300_ - _rest206302_)))))))) - (__tmp212741 (force gxc#&find-lambda-expression))) + _stx207449_ + _arg1207456_ + _arg2207461_ + _rest207463_)))))))) + (__tmp213902 (force gxc#&find-lambda-expression))) (declare (not safe)) (call-with-parameters - __tmp212742 + __tmp213903 gxc#current-compile-methods - __tmp212741)))) + __tmp213902)))) (define gxc#&count-values (make-promise (lambda () - (let ((_tbl206285_ + (let ((_tbl207446_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212743 (force gxc#&false-expression))) + (let ((__tmp213904 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl206285_ __tmp212743)) + (hash-copy! _tbl207446_ __tmp213904)) (let () (declare (not safe)) - (table-set! _tbl206285_ '%#begin gxc#count-values-begin%)) + (table-set! _tbl207446_ '%#begin gxc#count-values-begin%)) (let () (declare (not safe)) (table-set! - _tbl206285_ + _tbl207446_ '%#begin-annotation gxc#count-values-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl206285_ '%#lambda gxc#count-values-single%)) + (table-set! _tbl207446_ '%#lambda gxc#count-values-single%)) (let () (declare (not safe)) (table-set! - _tbl206285_ + _tbl207446_ '%#case-lambda gxc#count-values-single%)) (let () (declare (not safe)) (table-set! - _tbl206285_ + _tbl207446_ '%#let-values gxc#count-values-let-values%)) (let () (declare (not safe)) (table-set! - _tbl206285_ + _tbl207446_ '%#letrec-values gxc#count-values-let-values%)) (let () (declare (not safe)) (table-set! - _tbl206285_ + _tbl207446_ '%#letrec*-values gxc#count-values-let-values%)) (let () (declare (not safe)) - (table-set! _tbl206285_ '%#quote gxc#count-values-single%)) + (table-set! _tbl207446_ '%#quote gxc#count-values-single%)) (let () (declare (not safe)) - (table-set! _tbl206285_ '%#call gxc#count-values-call%)) + (table-set! _tbl207446_ '%#call gxc#count-values-call%)) (let () (declare (not safe)) (table-set! - _tbl206285_ + _tbl207446_ '%#call-unchecked gxc#count-values-call%)) (let () (declare (not safe)) - (table-set! _tbl206285_ '%#if gxc#count-values-if%)) - _tbl206285_)))) + (table-set! _tbl207446_ '%#if gxc#count-values-if%)) + _tbl207446_)))) (define gxc#apply-count-values - (lambda (_stx206268_ . _args206270_) - (let ((__tmp212745 + (lambda (_stx207429_ . _args207431_) + (let ((__tmp213906 (lambda () (declare (not safe)) - (if (null? _args206270_) - (gxc#compile-e__0 _stx206268_) - (let ((_arg1206275_ (car _args206270_)) - (_rest206277_ (cdr _args206270_))) - (if (null? _rest206277_) - (gxc#compile-e__1 _stx206268_ _arg1206275_) - (let ((_arg2206280_ (car _rest206277_)) - (_rest206282_ (cdr _rest206277_))) - (if (null? _rest206282_) + (if (null? _args207431_) + (gxc#compile-e__0 _stx207429_) + (let ((_arg1207436_ (car _args207431_)) + (_rest207438_ (cdr _args207431_))) + (if (null? _rest207438_) + (gxc#compile-e__1 _stx207429_ _arg1207436_) + (let ((_arg2207441_ (car _rest207438_)) + (_rest207443_ (cdr _rest207438_))) + (if (null? _rest207443_) (gxc#compile-e__2 - _stx206268_ - _arg1206275_ - _arg2206280_) + _stx207429_ + _arg1207436_ + _arg2207441_) (apply gxc#compile-e - _stx206268_ - _arg1206275_ - _arg2206280_ - _rest206282_)))))))) - (__tmp212744 (force gxc#&count-values))) + _stx207429_ + _arg1207436_ + _arg2207441_ + _rest207443_)))))))) + (__tmp213905 (force gxc#&count-values))) (declare (not safe)) (call-with-parameters - __tmp212745 + __tmp213906 gxc#current-compile-methods - __tmp212744)))) + __tmp213905)))) (define gxc#&generate-runtime-empty (make-promise (lambda () - (let ((_tbl206265_ + (let ((_tbl207426_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#begin gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#begin gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#begin-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#begin-foreign gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#begin-annotation gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#module gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#module gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#import gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#import gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#export gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#export gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#provide gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#provide gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#extern gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#extern gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#define-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#define-syntax gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#define-alias gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#declare gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#declare gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#lambda gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#case-lambda gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#let-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#letrec-values gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#letrec*-values gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#quote gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#quote gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#call gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#call gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#call-unchecked gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#if gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#if gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#ref gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#ref gxc#generate-runtime-empty)) (let () (declare (not safe)) - (table-set! _tbl206265_ '%#set! gxc#generate-runtime-empty)) + (table-set! _tbl207426_ '%#set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-direct-instance? gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-direct-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-direct-set! gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-unchecked-ref gxc#generate-runtime-empty)) (let () (declare (not safe)) (table-set! - _tbl206265_ + _tbl207426_ '%#struct-unchecked-set! gxc#generate-runtime-empty)) - _tbl206265_)))) + _tbl207426_)))) (define gxc#&generate-loader (make-promise (lambda () - (let ((_tbl206261_ + (let ((_tbl207422_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212746 (force gxc#&generate-runtime-empty))) + (let ((__tmp213907 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl206261_ __tmp212746)) + (hash-copy! _tbl207422_ __tmp213907)) (let () (declare (not safe)) - (table-set! _tbl206261_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl207422_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl206261_ + _tbl207422_ '%#import gxc#generate-runtime-loader-import%)) - _tbl206261_)))) + _tbl207422_)))) (define gxc#apply-generate-loader - (lambda (_stx206244_ . _args206246_) - (let ((__tmp212748 + (lambda (_stx207405_ . _args207407_) + (let ((__tmp213909 (lambda () (declare (not safe)) - (if (null? _args206246_) - (gxc#compile-e__0 _stx206244_) - (let ((_arg1206251_ (car _args206246_)) - (_rest206253_ (cdr _args206246_))) - (if (null? _rest206253_) - (gxc#compile-e__1 _stx206244_ _arg1206251_) - (let ((_arg2206256_ (car _rest206253_)) - (_rest206258_ (cdr _rest206253_))) - (if (null? _rest206258_) + (if (null? _args207407_) + (gxc#compile-e__0 _stx207405_) + (let ((_arg1207412_ (car _args207407_)) + (_rest207414_ (cdr _args207407_))) + (if (null? _rest207414_) + (gxc#compile-e__1 _stx207405_ _arg1207412_) + (let ((_arg2207417_ (car _rest207414_)) + (_rest207419_ (cdr _rest207414_))) + (if (null? _rest207419_) (gxc#compile-e__2 - _stx206244_ - _arg1206251_ - _arg2206256_) + _stx207405_ + _arg1207412_ + _arg2207417_) (apply gxc#compile-e - _stx206244_ - _arg1206251_ - _arg2206256_ - _rest206258_)))))))) - (__tmp212747 (force gxc#&generate-loader))) + _stx207405_ + _arg1207412_ + _arg2207417_ + _rest207419_)))))))) + (__tmp213908 (force gxc#&generate-loader))) (declare (not safe)) (call-with-parameters - __tmp212748 + __tmp213909 gxc#current-compile-methods - __tmp212747)))) + __tmp213908)))) (define gxc#&generate-runtime (make-promise (lambda () - (let ((_tbl206241_ + (let ((_tbl207402_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212749 (force gxc#&generate-runtime-empty))) + (let ((__tmp213910 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl206241_ __tmp212749)) + (hash-copy! _tbl207402_ __tmp213910)) (let () (declare (not safe)) - (table-set! _tbl206241_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl207402_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#begin-foreign gxc#generate-runtime-begin-foreign%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#begin-annotation gxc#generate-runtime-begin-annotation%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#define-values gxc#generate-runtime-define-values%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#declare gxc#generate-runtime-declare%)) (let () (declare (not safe)) - (table-set! _tbl206241_ '%#lambda gxc#generate-runtime-lambda%)) + (table-set! _tbl207402_ '%#lambda gxc#generate-runtime-lambda%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#case-lambda gxc#generate-runtime-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#let-values gxc#generate-runtime-let-values%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#letrec-values gxc#generate-runtime-letrec-values%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#letrec*-values gxc#generate-runtime-letrec*-values%)) (let () (declare (not safe)) - (table-set! _tbl206241_ '%#quote gxc#generate-runtime-quote%)) + (table-set! _tbl207402_ '%#quote gxc#generate-runtime-quote%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#quote-syntax gxc#generate-runtime-quote-syntax%)) (let () (declare (not safe)) - (table-set! _tbl206241_ '%#call gxc#generate-runtime-call%)) + (table-set! _tbl207402_ '%#call gxc#generate-runtime-call%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#call-unchecked gxc#generate-runtime-call-unchecked%)) (let () (declare (not safe)) - (table-set! _tbl206241_ '%#if gxc#generate-runtime-if%)) + (table-set! _tbl207402_ '%#if gxc#generate-runtime-if%)) (let () (declare (not safe)) - (table-set! _tbl206241_ '%#ref gxc#generate-runtime-ref%)) + (table-set! _tbl207402_ '%#ref gxc#generate-runtime-ref%)) (let () (declare (not safe)) - (table-set! _tbl206241_ '%#set! gxc#generate-runtime-setq%)) + (table-set! _tbl207402_ '%#set! gxc#generate-runtime-setq%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-instance? gxc#generate-runtime-struct-instancep%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-direct-instance? gxc#generate-runtime-struct-direct-instancep%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-ref gxc#generate-runtime-struct-ref%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-set! gxc#generate-runtime-struct-setq%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-direct-ref gxc#generate-runtime-struct-direct-ref%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-direct-set! gxc#generate-runtime-struct-direct-setq%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-unchecked-ref gxc#generate-runtime-struct-unchecked-ref%)) (let () (declare (not safe)) (table-set! - _tbl206241_ + _tbl207402_ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%)) - _tbl206241_)))) + _tbl207402_)))) (define gxc#apply-generate-runtime - (lambda (_stx206224_ . _args206226_) - (let ((__tmp212751 + (lambda (_stx207385_ . _args207387_) + (let ((__tmp213912 (lambda () (declare (not safe)) - (if (null? _args206226_) - (gxc#compile-e__0 _stx206224_) - (let ((_arg1206231_ (car _args206226_)) - (_rest206233_ (cdr _args206226_))) - (if (null? _rest206233_) - (gxc#compile-e__1 _stx206224_ _arg1206231_) - (let ((_arg2206236_ (car _rest206233_)) - (_rest206238_ (cdr _rest206233_))) - (if (null? _rest206238_) + (if (null? _args207387_) + (gxc#compile-e__0 _stx207385_) + (let ((_arg1207392_ (car _args207387_)) + (_rest207394_ (cdr _args207387_))) + (if (null? _rest207394_) + (gxc#compile-e__1 _stx207385_ _arg1207392_) + (let ((_arg2207397_ (car _rest207394_)) + (_rest207399_ (cdr _rest207394_))) + (if (null? _rest207399_) (gxc#compile-e__2 - _stx206224_ - _arg1206231_ - _arg2206236_) + _stx207385_ + _arg1207392_ + _arg2207397_) (apply gxc#compile-e - _stx206224_ - _arg1206231_ - _arg2206236_ - _rest206238_)))))))) - (__tmp212750 (force gxc#&generate-runtime))) + _stx207385_ + _arg1207392_ + _arg2207397_ + _rest207399_)))))))) + (__tmp213911 (force gxc#&generate-runtime))) (declare (not safe)) (call-with-parameters - __tmp212751 + __tmp213912 gxc#current-compile-methods - __tmp212750)))) + __tmp213911)))) (define gxc#&generate-runtime-phi (make-promise (lambda () - (let ((_tbl206221_ + (let ((_tbl207382_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212752 (force gxc#&generate-runtime))) + (let ((__tmp213913 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl206221_ __tmp212752)) + (hash-copy! _tbl207382_ __tmp213913)) (let () (declare (not safe)) (table-set! - _tbl206221_ + _tbl207382_ '%#define-runtime gxc#generate-runtime-phi-define-runtime%)) - _tbl206221_)))) + _tbl207382_)))) (define gxc#apply-generate-runtime-phi - (lambda (_stx206204_ . _args206206_) - (let ((__tmp212754 + (lambda (_stx207365_ . _args207367_) + (let ((__tmp213915 (lambda () (declare (not safe)) - (if (null? _args206206_) - (gxc#compile-e__0 _stx206204_) - (let ((_arg1206211_ (car _args206206_)) - (_rest206213_ (cdr _args206206_))) - (if (null? _rest206213_) - (gxc#compile-e__1 _stx206204_ _arg1206211_) - (let ((_arg2206216_ (car _rest206213_)) - (_rest206218_ (cdr _rest206213_))) - (if (null? _rest206218_) + (if (null? _args207367_) + (gxc#compile-e__0 _stx207365_) + (let ((_arg1207372_ (car _args207367_)) + (_rest207374_ (cdr _args207367_))) + (if (null? _rest207374_) + (gxc#compile-e__1 _stx207365_ _arg1207372_) + (let ((_arg2207377_ (car _rest207374_)) + (_rest207379_ (cdr _rest207374_))) + (if (null? _rest207379_) (gxc#compile-e__2 - _stx206204_ - _arg1206211_ - _arg2206216_) + _stx207365_ + _arg1207372_ + _arg2207377_) (apply gxc#compile-e - _stx206204_ - _arg1206211_ - _arg2206216_ - _rest206218_)))))))) - (__tmp212753 (force gxc#&generate-runtime-phi))) + _stx207365_ + _arg1207372_ + _arg2207377_ + _rest207379_)))))))) + (__tmp213914 (force gxc#&generate-runtime-phi))) (declare (not safe)) (call-with-parameters - __tmp212754 + __tmp213915 gxc#current-compile-methods - __tmp212753)))) + __tmp213914)))) (define gxc#&collect-expression-refs (make-promise (lambda () - (let ((_tbl206201_ + (let ((_tbl207362_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#begin gxc#collect-begin%)) + (table-set! _tbl207362_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl207362_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#quote gxc#void-method)) + (table-set! _tbl207362_ '%#quote gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#quote-syntax gxc#void-method)) + (table-set! _tbl207362_ '%#quote-syntax gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#call gxc#collect-operands)) + (table-set! _tbl207362_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#call-unchecked gxc#collect-operands)) + (table-set! _tbl207362_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#if gxc#collect-operands)) + (table-set! _tbl207362_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#ref gxc#collect-refs-ref%)) + (table-set! _tbl207362_ '%#ref gxc#collect-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#set! gxc#collect-refs-setq%)) + (table-set! _tbl207362_ '%#set! gxc#collect-refs-setq%)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl207362_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl206201_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl207362_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl206201_ + _tbl207362_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl206201_)))) + _tbl207362_)))) (define gxc#apply-collect-expression-refs - (lambda (_stx206184_ . _args206186_) - (let ((__tmp212756 + (lambda (_stx207345_ . _args207347_) + (let ((__tmp213917 (lambda () (declare (not safe)) - (if (null? _args206186_) - (gxc#compile-e__0 _stx206184_) - (let ((_arg1206191_ (car _args206186_)) - (_rest206193_ (cdr _args206186_))) - (if (null? _rest206193_) - (gxc#compile-e__1 _stx206184_ _arg1206191_) - (let ((_arg2206196_ (car _rest206193_)) - (_rest206198_ (cdr _rest206193_))) - (if (null? _rest206198_) + (if (null? _args207347_) + (gxc#compile-e__0 _stx207345_) + (let ((_arg1207352_ (car _args207347_)) + (_rest207354_ (cdr _args207347_))) + (if (null? _rest207354_) + (gxc#compile-e__1 _stx207345_ _arg1207352_) + (let ((_arg2207357_ (car _rest207354_)) + (_rest207359_ (cdr _rest207354_))) + (if (null? _rest207359_) (gxc#compile-e__2 - _stx206184_ - _arg1206191_ - _arg2206196_) + _stx207345_ + _arg1207352_ + _arg2207357_) (apply gxc#compile-e - _stx206184_ - _arg1206191_ - _arg2206196_ - _rest206198_)))))))) - (__tmp212755 (force gxc#&collect-expression-refs))) + _stx207345_ + _arg1207352_ + _arg2207357_ + _rest207359_)))))))) + (__tmp213916 (force gxc#&collect-expression-refs))) (declare (not safe)) (call-with-parameters - __tmp212756 + __tmp213917 gxc#current-compile-methods - __tmp212755)))) + __tmp213916)))) (define gxc#&generate-meta (make-promise (lambda () - (let ((_tbl206181_ + (let ((_tbl207342_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp212757 (force gxc#&void-expression))) + (let ((__tmp213918 (force gxc#&void-expression))) (declare (not safe)) - (hash-copy! _tbl206181_ __tmp212757)) + (hash-copy! _tbl207342_ __tmp213918)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#begin gxc#generate-meta-begin%)) + (table-set! _tbl207342_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (table-set! - _tbl206181_ + _tbl207342_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#module gxc#generate-meta-module%)) + (table-set! _tbl207342_ '%#module gxc#generate-meta-module%)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#import gxc#generate-meta-import%)) + (table-set! _tbl207342_ '%#import gxc#generate-meta-import%)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#export gxc#generate-meta-export%)) + (table-set! _tbl207342_ '%#export gxc#generate-meta-export%)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#provide gxc#generate-meta-provide%)) + (table-set! _tbl207342_ '%#provide gxc#generate-meta-provide%)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#extern gxc#generate-meta-extern%)) + (table-set! _tbl207342_ '%#extern gxc#generate-meta-extern%)) (let () (declare (not safe)) (table-set! - _tbl206181_ + _tbl207342_ '%#define-values gxc#generate-meta-define-values%)) (let () (declare (not safe)) (table-set! - _tbl206181_ + _tbl207342_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (table-set! - _tbl206181_ + _tbl207342_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#begin-foreign gxc#void-method)) + (table-set! _tbl207342_ '%#begin-foreign gxc#void-method)) (let () (declare (not safe)) - (table-set! _tbl206181_ '%#declare gxc#void-method)) - _tbl206181_)))) + (table-set! _tbl207342_ '%#declare gxc#void-method)) + _tbl207342_)))) (define gxc#apply-generate-meta - (lambda (_stx206164_ . _args206166_) - (let ((__tmp212759 + (lambda (_stx207325_ . _args207327_) + (let ((__tmp213920 (lambda () (declare (not safe)) - (if (null? _args206166_) - (gxc#compile-e__0 _stx206164_) - (let ((_arg1206171_ (car _args206166_)) - (_rest206173_ (cdr _args206166_))) - (if (null? _rest206173_) - (gxc#compile-e__1 _stx206164_ _arg1206171_) - (let ((_arg2206176_ (car _rest206173_)) - (_rest206178_ (cdr _rest206173_))) - (if (null? _rest206178_) + (if (null? _args207327_) + (gxc#compile-e__0 _stx207325_) + (let ((_arg1207332_ (car _args207327_)) + (_rest207334_ (cdr _args207327_))) + (if (null? _rest207334_) + (gxc#compile-e__1 _stx207325_ _arg1207332_) + (let ((_arg2207337_ (car _rest207334_)) + (_rest207339_ (cdr _rest207334_))) + (if (null? _rest207339_) (gxc#compile-e__2 - _stx206164_ - _arg1206171_ - _arg2206176_) + _stx207325_ + _arg1207332_ + _arg2207337_) (apply gxc#compile-e - _stx206164_ - _arg1206171_ - _arg2206176_ - _rest206178_)))))))) - (__tmp212758 (force gxc#&generate-meta))) + _stx207325_ + _arg1207332_ + _arg2207337_ + _rest207339_)))))))) + (__tmp213919 (force gxc#&generate-meta))) (declare (not safe)) (call-with-parameters - __tmp212759 + __tmp213920 gxc#current-compile-methods - __tmp212758)))) + __tmp213919)))) (define gxc#&generate-meta-phi (make-promise (lambda () - (let ((_tbl206161_ + (let ((_tbl207322_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#begin gxc#generate-meta-begin%)) + (table-set! _tbl207322_ '%#begin gxc#generate-meta-begin%)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#begin-syntax gxc#generate-meta-begin-syntax%)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#define-syntax gxc#generate-meta-define-syntax%)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#define-alias gxc#generate-meta-define-alias%)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#define-values gxc#generate-meta-phi-define-values%)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#begin-annotation gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#lambda gxc#generate-meta-phi-expr)) + (table-set! _tbl207322_ '%#lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#case-lambda gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#let-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#letrec-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#letrec*-values gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#quote gxc#generate-meta-phi-expr)) + (table-set! _tbl207322_ '%#quote gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#quote-syntax gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#call gxc#generate-meta-phi-expr)) + (table-set! _tbl207322_ '%#call gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#call-unchecked gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#if gxc#generate-meta-phi-expr)) + (table-set! _tbl207322_ '%#if gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#ref gxc#generate-meta-phi-expr)) + (table-set! _tbl207322_ '%#ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#set! gxc#generate-meta-phi-expr)) + (table-set! _tbl207322_ '%#set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-direct-instance? gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-direct-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-direct-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-unchecked-ref gxc#generate-meta-phi-expr)) (let () (declare (not safe)) (table-set! - _tbl206161_ + _tbl207322_ '%#struct-unchecked-set! gxc#generate-meta-phi-expr)) (let () (declare (not safe)) - (table-set! _tbl206161_ '%#declare gxc#void-method)) - _tbl206161_)))) + (table-set! _tbl207322_ '%#declare gxc#void-method)) + _tbl207322_)))) (define gxc#apply-generate-meta-phi - (lambda (_stx206144_ . _args206146_) - (let ((__tmp212761 + (lambda (_stx207305_ . _args207307_) + (let ((__tmp213922 (lambda () (declare (not safe)) - (if (null? _args206146_) - (gxc#compile-e__0 _stx206144_) - (let ((_arg1206151_ (car _args206146_)) - (_rest206153_ (cdr _args206146_))) - (if (null? _rest206153_) - (gxc#compile-e__1 _stx206144_ _arg1206151_) - (let ((_arg2206156_ (car _rest206153_)) - (_rest206158_ (cdr _rest206153_))) - (if (null? _rest206158_) + (if (null? _args207307_) + (gxc#compile-e__0 _stx207305_) + (let ((_arg1207312_ (car _args207307_)) + (_rest207314_ (cdr _args207307_))) + (if (null? _rest207314_) + (gxc#compile-e__1 _stx207305_ _arg1207312_) + (let ((_arg2207317_ (car _rest207314_)) + (_rest207319_ (cdr _rest207314_))) + (if (null? _rest207319_) (gxc#compile-e__2 - _stx206144_ - _arg1206151_ - _arg2206156_) + _stx207305_ + _arg1207312_ + _arg2207317_) (apply gxc#compile-e - _stx206144_ - _arg1206151_ - _arg2206156_ - _rest206158_)))))))) - (__tmp212760 (force gxc#&generate-meta-phi))) + _stx207305_ + _arg1207312_ + _arg2207317_ + _rest207319_)))))))) + (__tmp213921 (force gxc#&generate-meta-phi))) (declare (not safe)) (call-with-parameters - __tmp212761 + __tmp213922 gxc#current-compile-methods - __tmp212760)))) + __tmp213921)))) (define gxc#collect-begin% - (lambda (_stx206094_ . _args206095_) - (let* ((_g206097206107_ - (lambda (_g206098206104_) + (lambda (_stx207255_ . _args207256_) + (let* ((_g207258207268_ + (lambda (_g207259207265_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206098206104_)))) - (_g206096206141_ - (lambda (_g206098206110_) + _g207259207265_)))) + (_g207257207302_ + (lambda (_g207259207271_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206098206110_)) - (let ((_e206102206112_ + (gx#stx-pair? _g207259207271_)) + (let ((_e207263207273_ (let () (declare (not safe)) - (gx#stx-e _g206098206110_)))) - (let ((_hd206101206115_ + (gx#stx-e _g207259207271_)))) + (let ((_hd207262207276_ (let () (declare (not safe)) - (##car _e206102206112_))) - (_tl206100206117_ + (##car _e207263207273_))) + (_tl207261207278_ (let () (declare (not safe)) - (##cdr _e206102206112_)))) - ((lambda (_L206120_) + (##cdr _e207263207273_)))) + ((lambda (_L207281_) (for-each - (lambda (_stx206130_) + (lambda (_stx207291_) (if (let () (declare (not safe)) - (null? _args206095_)) + (null? _args207256_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx206130_)) - (let ((_arg1206132_ (car _args206095_)) - (_rest206134_ (cdr _args206095_))) + (gxc#compile-e__0 _stx207291_)) + (let ((_arg1207293_ (car _args207256_)) + (_rest207295_ (cdr _args207256_))) (if (let () (declare (not safe)) - (null? _rest206134_)) + (null? _rest207295_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx206130_ - _arg1206132_)) - (let ((_arg2206137_ - (car _rest206134_)) - (_rest206139_ - (cdr _rest206134_))) + _stx207291_ + _arg1207293_)) + (let ((_arg2207298_ + (car _rest207295_)) + (_rest207300_ + (cdr _rest207295_))) (if (let () (declare (not safe)) - (null? _rest206139_)) + (null? _rest207300_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx206130_ - _arg1206132_ - _arg2206137_)) + _stx207291_ + _arg1207293_ + _arg2207298_)) (apply gxc#compile-e - _stx206130_ - _arg1206132_ - _arg2206137_ - _rest206139_))))))) + _stx207291_ + _arg1207293_ + _arg2207298_ + _rest207300_))))))) (let () (declare (not safe)) - (gx#stx-e _L206120_)))) - _tl206100206117_))) + (gx#stx-e _L207281_)))) + _tl207261207278_))) (let () (declare (not safe)) - (_g206097206107_ _g206098206110_)))))) + (_g207258207268_ _g207259207271_)))))) (declare (not safe)) - (_g206096206141_ _stx206094_)))) + (_g207257207302_ _stx207255_)))) (define gxc#collect-begin-syntax% - (lambda (_stx206090_ . _args206091_) - (let ((__tmp212764 + (lambda (_stx207251_ . _args207252_) + (let ((__tmp213925 (lambda () - (apply gxc#collect-begin% _stx206090_ _args206091_))) - (__tmp212762 - (let ((__tmp212763 (gx#current-expander-phi))) + (apply gxc#collect-begin% _stx207251_ _args207252_))) + (__tmp213923 + (let ((__tmp213924 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp212763 '1)))) + (fx+ __tmp213924 '1)))) (declare (not safe)) (call-with-parameters - __tmp212764 + __tmp213925 gx#current-expander-phi - __tmp212762)))) + __tmp213923)))) (define gxc#collect-module% - (lambda (_stx206020_ . _args206021_) - (let* ((_g206023206037_ - (lambda (_g206024206034_) + (lambda (_stx207181_ . _args207182_) + (let* ((_g207184207198_ + (lambda (_g207185207195_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g206024206034_)))) - (_g206022206087_ - (lambda (_g206024206040_) + _g207185207195_)))) + (_g207183207248_ + (lambda (_g207185207201_) (if (let () (declare (not safe)) - (gx#stx-pair? _g206024206040_)) - (let ((_e206029206042_ + (gx#stx-pair? _g207185207201_)) + (let ((_e207190207203_ (let () (declare (not safe)) - (gx#stx-e _g206024206040_)))) - (let ((_hd206028206045_ + (gx#stx-e _g207185207201_)))) + (let ((_hd207189207206_ (let () (declare (not safe)) - (##car _e206029206042_))) - (_tl206027206047_ + (##car _e207190207203_))) + (_tl207188207208_ (let () (declare (not safe)) - (##cdr _e206029206042_)))) + (##cdr _e207190207203_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl206027206047_)) - (let ((_e206032206050_ + (gx#stx-pair? _tl207188207208_)) + (let ((_e207193207211_ (let () (declare (not safe)) - (gx#stx-e _tl206027206047_)))) - (let ((_hd206031206053_ + (gx#stx-e _tl207188207208_)))) + (let ((_hd207192207214_ (let () (declare (not safe)) - (##car _e206032206050_))) - (_tl206030206055_ + (##car _e207193207211_))) + (_tl207191207216_ (let () (declare (not safe)) - (##cdr _e206032206050_)))) - ((lambda (_L206058_ _L206059_) - (let* ((_ctx206072_ + (##cdr _e207193207211_)))) + ((lambda (_L207219_ _L207220_) + (let* ((_ctx207233_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L206059_))) - (_ctx-stx206074_ + _L207220_))) + (_ctx-stx207235_ (##structure-ref - _ctx206072_ + _ctx207233_ '11 gx#module-context::t '#f))) - (let ((__tmp212765 + (let ((__tmp213926 (lambda () (if (let () (declare (not safe)) - (null? _args206021_)) + (null? _args207182_)) (let () (declare (not safe)) (gxc#compile-e__0 - _ctx-stx206074_)) - (let ((_arg1206078_ - (car _args206021_)) - (_rest206080_ - (cdr _args206021_))) + _ctx-stx207235_)) + (let ((_arg1207239_ + (car _args207182_)) + (_rest207241_ + (cdr _args207182_))) (if (let () (declare (not safe)) - (null? _rest206080_)) + (null? _rest207241_)) (let () (declare (not safe)) (gxc#compile-e__1 - _ctx-stx206074_ - _arg1206078_)) - (let ((_arg2206083_ + _ctx-stx207235_ + _arg1207239_)) + (let ((_arg2207244_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _rest206080_)) - (_rest206085_ (cdr _rest206080_))) - (if (let () (declare (not safe)) (null? _rest206085_)) + (car _rest207241_)) + (_rest207246_ (cdr _rest207241_))) + (if (let () (declare (not safe)) (null? _rest207246_)) (let () (declare (not safe)) (gxc#compile-e__2 - _ctx-stx206074_ - _arg1206078_ - _arg2206083_)) + _ctx-stx207235_ + _arg1207239_ + _arg2207244_)) (apply gxc#compile-e - _ctx-stx206074_ - _arg1206078_ - _arg2206083_ - _rest206085_))))))))) + _ctx-stx207235_ + _arg1207239_ + _arg2207244_ + _rest207246_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp212765 + __tmp213926 gx#current-expander-context - _ctx206072_)))) - _tl206030206055_ - _hd206031206053_))) + _ctx207233_)))) + _tl207191207216_ + _hd207192207214_))) (let () (declare (not safe)) - (_g206023206037_ _g206024206040_))))) + (_g207184207198_ _g207185207201_))))) (let () (declare (not safe)) - (_g206023206037_ _g206024206040_)))))) + (_g207184207198_ _g207185207201_)))))) (declare (not safe)) - (_g206022206087_ _stx206020_)))) + (_g207183207248_ _stx207181_)))) (define gxc#collect-begin-annotation% - (lambda (_stx205943_ . _args205944_) - (let* ((_g205946205963_ - (lambda (_g205947205960_) + (lambda (_stx207104_ . _args207105_) + (let* ((_g207107207124_ + (lambda (_g207108207121_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205947205960_)))) - (_g205945206017_ - (lambda (_g205947205966_) + _g207108207121_)))) + (_g207106207178_ + (lambda (_g207108207127_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205947205966_)) - (let ((_e205952205968_ + (gx#stx-pair? _g207108207127_)) + (let ((_e207113207129_ (let () (declare (not safe)) - (gx#stx-e _g205947205966_)))) - (let ((_hd205951205971_ + (gx#stx-e _g207108207127_)))) + (let ((_hd207112207132_ (let () (declare (not safe)) - (##car _e205952205968_))) - (_tl205950205973_ + (##car _e207113207129_))) + (_tl207111207134_ (let () (declare (not safe)) - (##cdr _e205952205968_)))) + (##cdr _e207113207129_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205950205973_)) - (let ((_e205955205976_ + (gx#stx-pair? _tl207111207134_)) + (let ((_e207116207137_ (let () (declare (not safe)) - (gx#stx-e _tl205950205973_)))) - (let ((_hd205954205979_ + (gx#stx-e _tl207111207134_)))) + (let ((_hd207115207140_ (let () (declare (not safe)) - (##car _e205955205976_))) - (_tl205953205981_ + (##car _e207116207137_))) + (_tl207114207142_ (let () (declare (not safe)) - (##cdr _e205955205976_)))) + (##cdr _e207116207137_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205953205981_)) - (let ((_e205958205984_ + (gx#stx-pair? _tl207114207142_)) + (let ((_e207119207145_ (let () (declare (not safe)) - (gx#stx-e _tl205953205981_)))) - (let ((_hd205957205987_ + (gx#stx-e _tl207114207142_)))) + (let ((_hd207118207148_ (let () (declare (not safe)) - (##car _e205958205984_))) - (_tl205956205989_ + (##car _e207119207145_))) + (_tl207117207150_ (let () (declare (not safe)) - (##cdr _e205958205984_)))) + (##cdr _e207119207145_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205956205989_)) - ((lambda (_L205992_ _L205993_) + _tl207117207150_)) + ((lambda (_L207153_ _L207154_) (if (let () (declare (not safe)) - (null? _args205944_)) + (null? _args207105_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L205992_)) - (let ((_arg1206008_ - (car _args205944_)) - (_rest206010_ - (cdr _args205944_))) + _L207153_)) + (let ((_arg1207169_ + (car _args207105_)) + (_rest207171_ + (cdr _args207105_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest206010_)) + (null? _rest207171_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L205992_ _arg1206008_)) - (let ((_arg2206013_ (car _rest206010_)) - (_rest206015_ (cdr _rest206010_))) - (if (let () (declare (not safe)) (null? _rest206015_)) + (gxc#compile-e__1 _L207153_ _arg1207169_)) + (let ((_arg2207174_ (car _rest207171_)) + (_rest207176_ (cdr _rest207171_))) + (if (let () (declare (not safe)) (null? _rest207176_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L205992_ - _arg1206008_ - _arg2206013_)) + _L207153_ + _arg1207169_ + _arg2207174_)) (apply gxc#compile-e - _L205992_ - _arg1206008_ - _arg2206013_ - _rest206015_))))))) + _L207153_ + _arg1207169_ + _arg2207174_ + _rest207176_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd205957205987_ - _hd205954205979_) + _hd207118207148_ + _hd207115207140_) (let () (declare (not safe)) - (_g205946205963_ - _g205947205966_))))) + (_g207107207124_ + _g207108207127_))))) (let () (declare (not safe)) - (_g205946205963_ _g205947205966_))))) + (_g207107207124_ _g207108207127_))))) (let () (declare (not safe)) - (_g205946205963_ _g205947205966_))))) + (_g207107207124_ _g207108207127_))))) (let () (declare (not safe)) - (_g205946205963_ _g205947205966_)))))) + (_g207107207124_ _g207108207127_)))))) (declare (not safe)) - (_g205945206017_ _stx205943_)))) + (_g207106207178_ _stx207104_)))) (define gxc#collect-define-values% - (lambda (_stx205866_ . _args205867_) - (let* ((_g205869205886_ - (lambda (_g205870205883_) + (lambda (_stx207027_ . _args207028_) + (let* ((_g207030207047_ + (lambda (_g207031207044_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205870205883_)))) - (_g205868205940_ - (lambda (_g205870205889_) + _g207031207044_)))) + (_g207029207101_ + (lambda (_g207031207050_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205870205889_)) - (let ((_e205875205891_ + (gx#stx-pair? _g207031207050_)) + (let ((_e207036207052_ (let () (declare (not safe)) - (gx#stx-e _g205870205889_)))) - (let ((_hd205874205894_ + (gx#stx-e _g207031207050_)))) + (let ((_hd207035207055_ (let () (declare (not safe)) - (##car _e205875205891_))) - (_tl205873205896_ + (##car _e207036207052_))) + (_tl207034207057_ (let () (declare (not safe)) - (##cdr _e205875205891_)))) + (##cdr _e207036207052_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205873205896_)) - (let ((_e205878205899_ + (gx#stx-pair? _tl207034207057_)) + (let ((_e207039207060_ (let () (declare (not safe)) - (gx#stx-e _tl205873205896_)))) - (let ((_hd205877205902_ + (gx#stx-e _tl207034207057_)))) + (let ((_hd207038207063_ (let () (declare (not safe)) - (##car _e205878205899_))) - (_tl205876205904_ + (##car _e207039207060_))) + (_tl207037207065_ (let () (declare (not safe)) - (##cdr _e205878205899_)))) + (##cdr _e207039207060_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205876205904_)) - (let ((_e205881205907_ + (gx#stx-pair? _tl207037207065_)) + (let ((_e207042207068_ (let () (declare (not safe)) - (gx#stx-e _tl205876205904_)))) - (let ((_hd205880205910_ + (gx#stx-e _tl207037207065_)))) + (let ((_hd207041207071_ (let () (declare (not safe)) - (##car _e205881205907_))) - (_tl205879205912_ + (##car _e207042207068_))) + (_tl207040207073_ (let () (declare (not safe)) - (##cdr _e205881205907_)))) + (##cdr _e207042207068_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205879205912_)) - ((lambda (_L205915_ _L205916_) + _tl207040207073_)) + ((lambda (_L207076_ _L207077_) (if (let () (declare (not safe)) - (null? _args205867_)) + (null? _args207028_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L205915_)) - (let ((_arg1205931_ - (car _args205867_)) - (_rest205933_ - (cdr _args205867_))) + _L207076_)) + (let ((_arg1207092_ + (car _args207028_)) + (_rest207094_ + (cdr _args207028_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest205933_)) + (null? _rest207094_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L205915_ _arg1205931_)) - (let ((_arg2205936_ (car _rest205933_)) - (_rest205938_ (cdr _rest205933_))) - (if (let () (declare (not safe)) (null? _rest205938_)) + (gxc#compile-e__1 _L207076_ _arg1207092_)) + (let ((_arg2207097_ (car _rest207094_)) + (_rest207099_ (cdr _rest207094_))) + (if (let () (declare (not safe)) (null? _rest207099_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L205915_ - _arg1205931_ - _arg2205936_)) + _L207076_ + _arg1207092_ + _arg2207097_)) (apply gxc#compile-e - _L205915_ - _arg1205931_ - _arg2205936_ - _rest205938_))))))) + _L207076_ + _arg1207092_ + _arg2207097_ + _rest207099_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd205880205910_ - _hd205877205902_) + _hd207041207071_ + _hd207038207063_) (let () (declare (not safe)) - (_g205869205886_ - _g205870205889_))))) + (_g207030207047_ + _g207031207050_))))) (let () (declare (not safe)) - (_g205869205886_ _g205870205889_))))) + (_g207030207047_ _g207031207050_))))) (let () (declare (not safe)) - (_g205869205886_ _g205870205889_))))) + (_g207030207047_ _g207031207050_))))) (let () (declare (not safe)) - (_g205869205886_ _g205870205889_)))))) + (_g207030207047_ _g207031207050_)))))) (declare (not safe)) - (_g205868205940_ _stx205866_)))) + (_g207029207101_ _stx207027_)))) (define gxc#collect-define-syntax% - (lambda (_stx205788_ . _args205789_) - (let* ((_g205791205808_ - (lambda (_g205792205805_) + (lambda (_stx206949_ . _args206950_) + (let* ((_g206952206969_ + (lambda (_g206953206966_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205792205805_)))) - (_g205790205863_ - (lambda (_g205792205811_) + _g206953206966_)))) + (_g206951207024_ + (lambda (_g206953206972_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205792205811_)) - (let ((_e205797205813_ + (gx#stx-pair? _g206953206972_)) + (let ((_e206958206974_ (let () (declare (not safe)) - (gx#stx-e _g205792205811_)))) - (let ((_hd205796205816_ + (gx#stx-e _g206953206972_)))) + (let ((_hd206957206977_ (let () (declare (not safe)) - (##car _e205797205813_))) - (_tl205795205818_ + (##car _e206958206974_))) + (_tl206956206979_ (let () (declare (not safe)) - (##cdr _e205797205813_)))) + (##cdr _e206958206974_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205795205818_)) - (let ((_e205800205821_ + (gx#stx-pair? _tl206956206979_)) + (let ((_e206961206982_ (let () (declare (not safe)) - (gx#stx-e _tl205795205818_)))) - (let ((_hd205799205824_ + (gx#stx-e _tl206956206979_)))) + (let ((_hd206960206985_ (let () (declare (not safe)) - (##car _e205800205821_))) - (_tl205798205826_ + (##car _e206961206982_))) + (_tl206959206987_ (let () (declare (not safe)) - (##cdr _e205800205821_)))) + (##cdr _e206961206982_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205798205826_)) - (let ((_e205803205829_ + (gx#stx-pair? _tl206959206987_)) + (let ((_e206964206990_ (let () (declare (not safe)) - (gx#stx-e _tl205798205826_)))) - (let ((_hd205802205832_ + (gx#stx-e _tl206959206987_)))) + (let ((_hd206963206993_ (let () (declare (not safe)) - (##car _e205803205829_))) - (_tl205801205834_ + (##car _e206964206990_))) + (_tl206962206995_ (let () (declare (not safe)) - (##cdr _e205803205829_)))) + (##cdr _e206964206990_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205801205834_)) - ((lambda (_L205837_ _L205838_) - (let ((__tmp212768 + _tl206962206995_)) + ((lambda (_L206998_ _L206999_) + (let ((__tmp213929 (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _args205789_)) + (null? _args206950_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L205837_)) - (let ((_arg1205854_ (car _args205789_)) - (_rest205856_ (cdr _args205789_))) + (gxc#compile-e__0 _L206998_)) + (let ((_arg1207015_ (car _args206950_)) + (_rest207017_ (cdr _args206950_))) (if (let () (declare (not safe)) - (null? _rest205856_)) + (null? _rest207017_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L205837_ _arg1205854_)) - (let ((_arg2205859_ (car _rest205856_)) - (_rest205861_ (cdr _rest205856_))) + (gxc#compile-e__1 _L206998_ _arg1207015_)) + (let ((_arg2207020_ (car _rest207017_)) + (_rest207022_ (cdr _rest207017_))) (if (let () (declare (not safe)) - (null? _rest205861_)) + (null? _rest207022_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L205837_ - _arg1205854_ - _arg2205859_)) + _L206998_ + _arg1207015_ + _arg2207020_)) (apply gxc#compile-e - _L205837_ - _arg1205854_ - _arg2205859_ - _rest205861_)))))))) - (__tmp212766 - (let ((__tmp212767 (gx#current-expander-phi))) + _L206998_ + _arg1207015_ + _arg2207020_ + _rest207022_)))))))) + (__tmp213927 + (let ((__tmp213928 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp212767 '1)))) + (fx+ __tmp213928 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp212768 + __tmp213929 gx#current-expander-phi - __tmp212766))) - _hd205802205832_ - _hd205799205824_) + __tmp213927))) + _hd206963206993_ + _hd206960206985_) (let () (declare (not safe)) - (_g205791205808_ - _g205792205811_))))) + (_g206952206969_ + _g206953206972_))))) (let () (declare (not safe)) - (_g205791205808_ _g205792205811_))))) + (_g206952206969_ _g206953206972_))))) (let () (declare (not safe)) - (_g205791205808_ _g205792205811_))))) + (_g206952206969_ _g206953206972_))))) (let () (declare (not safe)) - (_g205791205808_ _g205792205811_)))))) + (_g206952206969_ _g206953206972_)))))) (declare (not safe)) - (_g205790205863_ _stx205788_)))) + (_g206951207024_ _stx206949_)))) (define gxc#collect-body-lambda% - (lambda (_stx205711_ . _args205712_) - (let* ((_g205714205731_ - (lambda (_g205715205728_) + (lambda (_stx206872_ . _args206873_) + (let* ((_g206875206892_ + (lambda (_g206876206889_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205715205728_)))) - (_g205713205785_ - (lambda (_g205715205734_) + _g206876206889_)))) + (_g206874206946_ + (lambda (_g206876206895_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205715205734_)) - (let ((_e205720205736_ + (gx#stx-pair? _g206876206895_)) + (let ((_e206881206897_ (let () (declare (not safe)) - (gx#stx-e _g205715205734_)))) - (let ((_hd205719205739_ + (gx#stx-e _g206876206895_)))) + (let ((_hd206880206900_ (let () (declare (not safe)) - (##car _e205720205736_))) - (_tl205718205741_ + (##car _e206881206897_))) + (_tl206879206902_ (let () (declare (not safe)) - (##cdr _e205720205736_)))) + (##cdr _e206881206897_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205718205741_)) - (let ((_e205723205744_ + (gx#stx-pair? _tl206879206902_)) + (let ((_e206884206905_ (let () (declare (not safe)) - (gx#stx-e _tl205718205741_)))) - (let ((_hd205722205747_ + (gx#stx-e _tl206879206902_)))) + (let ((_hd206883206908_ (let () (declare (not safe)) - (##car _e205723205744_))) - (_tl205721205749_ + (##car _e206884206905_))) + (_tl206882206910_ (let () (declare (not safe)) - (##cdr _e205723205744_)))) + (##cdr _e206884206905_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205721205749_)) - (let ((_e205726205752_ + (gx#stx-pair? _tl206882206910_)) + (let ((_e206887206913_ (let () (declare (not safe)) - (gx#stx-e _tl205721205749_)))) - (let ((_hd205725205755_ + (gx#stx-e _tl206882206910_)))) + (let ((_hd206886206916_ (let () (declare (not safe)) - (##car _e205726205752_))) - (_tl205724205757_ + (##car _e206887206913_))) + (_tl206885206918_ (let () (declare (not safe)) - (##cdr _e205726205752_)))) + (##cdr _e206887206913_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205724205757_)) - ((lambda (_L205760_ _L205761_) + _tl206885206918_)) + ((lambda (_L206921_ _L206922_) (if (let () (declare (not safe)) - (null? _args205712_)) + (null? _args206873_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L205760_)) - (let ((_arg1205776_ - (car _args205712_)) - (_rest205778_ - (cdr _args205712_))) + _L206921_)) + (let ((_arg1206937_ + (car _args206873_)) + (_rest206939_ + (cdr _args206873_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest205778_)) + (null? _rest206939_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L205760_ _arg1205776_)) - (let ((_arg2205781_ (car _rest205778_)) - (_rest205783_ (cdr _rest205778_))) - (if (let () (declare (not safe)) (null? _rest205783_)) + (gxc#compile-e__1 _L206921_ _arg1206937_)) + (let ((_arg2206942_ (car _rest206939_)) + (_rest206944_ (cdr _rest206939_))) + (if (let () (declare (not safe)) (null? _rest206944_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L205760_ - _arg1205776_ - _arg2205781_)) + _L206921_ + _arg1206937_ + _arg2206942_)) (apply gxc#compile-e - _L205760_ - _arg1205776_ - _arg2205781_ - _rest205783_))))))) + _L206921_ + _arg1206937_ + _arg2206942_ + _rest206944_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd205725205755_ - _hd205722205747_) + _hd206886206916_ + _hd206883206908_) (let () (declare (not safe)) - (_g205714205731_ - _g205715205734_))))) + (_g206875206892_ + _g206876206895_))))) (let () (declare (not safe)) - (_g205714205731_ _g205715205734_))))) + (_g206875206892_ _g206876206895_))))) (let () (declare (not safe)) - (_g205714205731_ _g205715205734_))))) + (_g206875206892_ _g206876206895_))))) (let () (declare (not safe)) - (_g205714205731_ _g205715205734_)))))) + (_g206875206892_ _g206876206895_)))))) (declare (not safe)) - (_g205713205785_ _stx205711_)))) + (_g206874206946_ _stx206872_)))) (define gxc#collect-body-case-lambda% - (lambda (_stx205586_ . _args205587_) - (let* ((_g205589205617_ - (lambda (_g205590205614_) + (lambda (_stx206747_ . _args206748_) + (let* ((_g206750206778_ + (lambda (_g206751206775_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205590205614_)))) - (_g205588205708_ - (lambda (_g205590205620_) + _g206751206775_)))) + (_g206749206869_ + (lambda (_g206751206781_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205590205620_)) - (let ((_e205595205622_ + (gx#stx-pair? _g206751206781_)) + (let ((_e206756206783_ (let () (declare (not safe)) - (gx#stx-e _g205590205620_)))) - (let ((_hd205594205625_ + (gx#stx-e _g206751206781_)))) + (let ((_hd206755206786_ (let () (declare (not safe)) - (##car _e205595205622_))) - (_tl205593205627_ + (##car _e206756206783_))) + (_tl206754206788_ (let () (declare (not safe)) - (##cdr _e205595205622_)))) + (##cdr _e206756206783_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl205593205627_)) - (let ((_g212769_ + (gx#stx-pair/null? _tl206754206788_)) + (let ((_g213930_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl205593205627_ + _tl206754206788_ '0)))) (begin - (let ((_g212770_ + (let ((_g213931_ (let () (declare (not safe)) - (if (##values? _g212769_) - (##vector-length _g212769_) + (if (##values? _g213930_) + (##vector-length _g213930_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g212770_ 2))) + (##fx= _g213931_ 2))) (error "Context expects 2 values" - _g212770_))) - (let ((_target205596205630_ + _g213931_))) + (let ((_target206757206791_ (let () (declare (not safe)) - (##vector-ref _g212769_ 0))) - (_tl205598205632_ + (##vector-ref _g213930_ 0))) + (_tl206759206793_ (let () (declare (not safe)) - (##vector-ref _g212769_ 1)))) + (##vector-ref _g213930_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl205598205632_)) - (letrec ((_loop205599205635_ - (lambda (_hd205597205638_ - _body205603205640_ - _hd205604205642_) + (gx#stx-null? _tl206759206793_)) + (letrec ((_loop206760206796_ + (lambda (_hd206758206799_ + _body206764206801_ + _hd206765206803_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd205597205638_)) - (let ((_e205600205645_ + _hd206758206799_)) + (let ((_e206761206806_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd205597205638_)))) - (let ((_lp-hd205601205648_ + (gx#stx-e _hd206758206799_)))) + (let ((_lp-hd206762206809_ (let () (declare (not safe)) - (##car _e205600205645_))) - (_lp-tl205602205650_ + (##car _e206761206806_))) + (_lp-tl206763206811_ (let () (declare (not safe)) - (##cdr _e205600205645_)))) + (##cdr _e206761206806_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd205601205648_)) - (let ((_e205609205653_ + (gx#stx-pair? _lp-hd206762206809_)) + (let ((_e206770206814_ (let () (declare (not safe)) - (gx#stx-e _lp-hd205601205648_)))) - (let ((_hd205608205656_ + (gx#stx-e _lp-hd206762206809_)))) + (let ((_hd206769206817_ (let () (declare (not safe)) - (##car _e205609205653_))) - (_tl205607205658_ + (##car _e206770206814_))) + (_tl206768206819_ (let () (declare (not safe)) - (##cdr _e205609205653_)))) + (##cdr _e206770206814_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205607205658_)) - (let ((_e205612205661_ + (gx#stx-pair? _tl206768206819_)) + (let ((_e206773206822_ (let () (declare (not safe)) - (gx#stx-e _tl205607205658_)))) - (let ((_hd205611205664_ + (gx#stx-e _tl206768206819_)))) + (let ((_hd206772206825_ (let () (declare (not safe)) - (##car _e205612205661_))) - (_tl205610205666_ + (##car _e206773206822_))) + (_tl206771206827_ (let () (declare (not safe)) - (##cdr _e205612205661_)))) + (##cdr _e206773206822_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl205610205666_)) - (let ((__tmp212773 + (gx#stx-null? _tl206771206827_)) + (let ((__tmp213934 (let () (declare (not safe)) - (cons _hd205611205664_ - _body205603205640_))) - (__tmp212772 + (cons _hd206772206825_ + _body206764206801_))) + (__tmp213933 (let () (declare (not safe)) - (cons _hd205608205656_ - _hd205604205642_)))) + (cons _hd206769206817_ + _hd206765206803_)))) (declare (not safe)) - (_loop205599205635_ - _lp-tl205602205650_ - __tmp212773 - __tmp212772)) + (_loop206760206796_ + _lp-tl206763206811_ + __tmp213934 + __tmp213933)) (let () (declare (not safe)) - (_g205589205617_ - _g205590205620_))))) + (_g206750206778_ + _g206751206781_))))) (let () (declare (not safe)) - (_g205589205617_ _g205590205620_))))) + (_g206750206778_ _g206751206781_))))) (let () (declare (not safe)) - (_g205589205617_ _g205590205620_))))) - (let ((_body205605205669_ (reverse _body205603205640_)) - (_hd205606205671_ (reverse _hd205604205642_))) - ((lambda (_L205674_ _L205675_) + (_g206750206778_ _g206751206781_))))) + (let ((_body206766206830_ (reverse _body206764206801_)) + (_hd206767206832_ (reverse _hd206765206803_))) + ((lambda (_L206835_ _L206836_) (for-each - (lambda (_stx205690_) + (lambda (_stx206851_) (if (let () (declare (not safe)) - (null? _args205587_)) + (null? _args206748_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx205690_)) - (let ((_arg1205692_ (car _args205587_)) - (_rest205694_ (cdr _args205587_))) + (gxc#compile-e__0 _stx206851_)) + (let ((_arg1206853_ (car _args206748_)) + (_rest206855_ (cdr _args206748_))) (if (let () (declare (not safe)) - (null? _rest205694_)) + (null? _rest206855_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx205690_ - _arg1205692_)) - (let ((_arg2205697_ (car _rest205694_)) - (_rest205699_ (cdr _rest205694_))) + _stx206851_ + _arg1206853_)) + (let ((_arg2206858_ (car _rest206855_)) + (_rest206860_ (cdr _rest206855_))) (if (let () (declare (not safe)) - (null? _rest205699_)) + (null? _rest206860_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx205690_ - _arg1205692_ - _arg2205697_)) + _stx206851_ + _arg1206853_ + _arg2206858_)) (apply gxc#compile-e - _stx205690_ - _arg1205692_ - _arg2205697_ - _rest205699_))))))) - (let ((__tmp212771 - (lambda (_g205700205703_ _g205701205705_) + _stx206851_ + _arg1206853_ + _arg2206858_ + _rest206860_))))))) + (let ((__tmp213932 + (lambda (_g206861206864_ _g206862206866_) (let () (declare (not safe)) - (cons _g205700205703_ _g205701205705_))))) + (cons _g206861206864_ _g206862206866_))))) (declare (not safe)) - (foldr1 __tmp212771 '() _L205674_)))) - _body205605205669_ - _hd205606205671_)))))) + (foldr1 __tmp213932 '() _L206835_)))) + _body206766206830_ + _hd206767206832_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop205599205635_ - _target205596205630_ + (_loop206760206796_ + _target206757206791_ '() '()))) (let () (declare (not safe)) - (_g205589205617_ - _g205590205620_)))))) + (_g206750206778_ + _g206751206781_)))))) (let () (declare (not safe)) - (_g205589205617_ _g205590205620_))))) + (_g206750206778_ _g206751206781_))))) (let () (declare (not safe)) - (_g205589205617_ _g205590205620_)))))) + (_g206750206778_ _g206751206781_)))))) (declare (not safe)) - (_g205588205708_ _stx205586_)))) + (_g206749206869_ _stx206747_)))) (define gxc#collect-body-let-values% - (lambda (_stx205432_ . _args205433_) - (let* ((_g205435205470_ - (lambda (_g205436205467_) + (lambda (_stx206593_ . _args206594_) + (let* ((_g206596206631_ + (lambda (_g206597206628_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205436205467_)))) - (_g205434205583_ - (lambda (_g205436205473_) + _g206597206628_)))) + (_g206595206744_ + (lambda (_g206597206634_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205436205473_)) - (let ((_e205442205475_ + (gx#stx-pair? _g206597206634_)) + (let ((_e206603206636_ (let () (declare (not safe)) - (gx#stx-e _g205436205473_)))) - (let ((_hd205441205478_ + (gx#stx-e _g206597206634_)))) + (let ((_hd206602206639_ (let () (declare (not safe)) - (##car _e205442205475_))) - (_tl205440205480_ + (##car _e206603206636_))) + (_tl206601206641_ (let () (declare (not safe)) - (##cdr _e205442205475_)))) + (##cdr _e206603206636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205440205480_)) - (let ((_e205445205483_ + (gx#stx-pair? _tl206601206641_)) + (let ((_e206606206644_ (let () (declare (not safe)) - (gx#stx-e _tl205440205480_)))) - (let ((_hd205444205486_ + (gx#stx-e _tl206601206641_)))) + (let ((_hd206605206647_ (let () (declare (not safe)) - (##car _e205445205483_))) - (_tl205443205488_ + (##car _e206606206644_))) + (_tl206604206649_ (let () (declare (not safe)) - (##cdr _e205445205483_)))) + (##cdr _e206606206644_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd205444205486_)) - (let ((_g212774_ + (gx#stx-pair/null? _hd206605206647_)) + (let ((_g213935_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd205444205486_ + _hd206605206647_ '0)))) (begin - (let ((_g212775_ + (let ((_g213936_ (let () (declare (not safe)) - (if (##values? _g212774_) + (if (##values? _g213935_) (##vector-length - _g212774_) + _g213935_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g212775_ 2))) + (##fx= _g213936_ 2))) (error "Context expects 2 values" - _g212775_))) - (let ((_target205446205491_ + _g213936_))) + (let ((_target206607206652_ (let () (declare (not safe)) (##vector-ref - _g212774_ + _g213935_ 0))) - (_tl205448205493_ + (_tl206609206654_ (let () (declare (not safe)) (##vector-ref - _g212774_ + _g213935_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205448205493_)) - (letrec ((_loop205449205496_ - (lambda (_hd205447205499_ + _tl206609206654_)) + (letrec ((_loop206610206657_ + (lambda (_hd206608206660_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr205453205501_ - _hd205454205503_) + _expr206614206662_ + _hd206615206664_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd205447205499_)) - (let ((_e205450205506_ + (gx#stx-pair? _hd206608206660_)) + (let ((_e206611206667_ (let () (declare (not safe)) - (gx#stx-e _hd205447205499_)))) - (let ((_lp-hd205451205509_ + (gx#stx-e _hd206608206660_)))) + (let ((_lp-hd206612206670_ (let () (declare (not safe)) - (##car _e205450205506_))) - (_lp-tl205452205511_ + (##car _e206611206667_))) + (_lp-tl206613206672_ (let () (declare (not safe)) - (##cdr _e205450205506_)))) + (##cdr _e206611206667_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd205451205509_)) - (let ((_e205459205514_ + (gx#stx-pair? _lp-hd206612206670_)) + (let ((_e206620206675_ (let () (declare (not safe)) - (gx#stx-e _lp-hd205451205509_)))) - (let ((_hd205458205517_ + (gx#stx-e _lp-hd206612206670_)))) + (let ((_hd206619206678_ (let () (declare (not safe)) - (##car _e205459205514_))) - (_tl205457205519_ + (##car _e206620206675_))) + (_tl206618206680_ (let () (declare (not safe)) - (##cdr _e205459205514_)))) + (##cdr _e206620206675_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205457205519_)) - (let ((_e205462205522_ + (gx#stx-pair? _tl206618206680_)) + (let ((_e206623206683_ (let () (declare (not safe)) (gx#stx-e - _tl205457205519_)))) - (let ((_hd205461205525_ + _tl206618206680_)))) + (let ((_hd206622206686_ (let () (declare (not safe)) - (##car _e205462205522_))) - (_tl205460205527_ + (##car _e206623206683_))) + (_tl206621206688_ (let () (declare (not safe)) - (##cdr _e205462205522_)))) + (##cdr _e206623206683_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205460205527_)) - (let ((__tmp212779 + _tl206621206688_)) + (let ((__tmp213940 (let () (declare (not safe)) - (cons _hd205461205525_ + (cons _hd206622206686_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr205453205501_))) - (__tmp212778 + _expr206614206662_))) + (__tmp213939 (let () (declare (not safe)) - (cons _hd205458205517_ _hd205454205503_)))) + (cons _hd206619206678_ _hd206615206664_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop205449205496_ - _lp-tl205452205511_ - __tmp212779 - __tmp212778)) + (_loop206610206657_ + _lp-tl206613206672_ + __tmp213940 + __tmp213939)) (let () (declare (not safe)) - (_g205435205470_ - _g205436205473_))))) + (_g206596206631_ + _g206597206634_))))) (let () (declare (not safe)) - (_g205435205470_ - _g205436205473_))))) + (_g206596206631_ + _g206597206634_))))) (let () (declare (not safe)) - (_g205435205470_ _g205436205473_))))) - (let ((_expr205455205530_ - (reverse _expr205453205501_)) - (_hd205456205532_ (reverse _hd205454205503_))) + (_g206596206631_ _g206597206634_))))) + (let ((_expr206616206691_ + (reverse _expr206614206662_)) + (_hd206617206693_ (reverse _hd206615206664_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205443205488_)) - (let ((_e205465205535_ + (gx#stx-pair? _tl206604206649_)) + (let ((_e206626206696_ (let () (declare (not safe)) - (gx#stx-e _tl205443205488_)))) - (let ((_hd205464205538_ + (gx#stx-e _tl206604206649_)))) + (let ((_hd206625206699_ (let () (declare (not safe)) - (##car _e205465205535_))) - (_tl205463205540_ + (##car _e206626206696_))) + (_tl206624206701_ (let () (declare (not safe)) - (##cdr _e205465205535_)))) + (##cdr _e206626206696_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl205463205540_)) - ((lambda (_L205543_ - _L205544_ - _L205545_) + (gx#stx-null? _tl206624206701_)) + ((lambda (_L206704_ + _L206705_ + _L206706_) (for-each - (lambda (_stx205565_) + (lambda (_stx206726_) (if (let () (declare (not safe)) - (null? _args205433_)) + (null? _args206594_)) (let () (declare (not safe)) (gxc#compile-e__0 - _stx205565_)) - (let ((_arg1205567_ - (car _args205433_)) - (_rest205569_ - (cdr _args205433_))) + _stx206726_)) + (let ((_arg1206728_ + (car _args206594_)) + (_rest206730_ + (cdr _args206594_))) (if (let () (declare (not safe)) - (null? _rest205569_)) + (null? _rest206730_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx205565_ - _arg1205567_)) - (let ((_arg2205572_ - (car _rest205569_)) - (_rest205574_ - (cdr _rest205569_))) + _stx206726_ + _arg1206728_)) + (let ((_arg2206733_ + (car _rest206730_)) + (_rest206735_ + (cdr _rest206730_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest205574_)) + (null? _rest206735_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx205565_ - _arg1205567_ - _arg2205572_)) + _stx206726_ + _arg1206728_ + _arg2206733_)) (apply gxc#compile-e - _stx205565_ - _arg1205567_ - _arg2205572_ - _rest205574_))))))) + _stx206726_ + _arg1206728_ + _arg2206733_ + _rest206735_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp212777 - (lambda (_g205575205578_ - _g205576205580_) + (let ((__tmp213938 + (lambda (_g206736206739_ + _g206737206741_) (let () (declare (not safe)) - (cons _g205575205578_ - _g205576205580_)))) - (__tmp212776 + (cons _g206736206739_ + _g206737206741_)))) + (__tmp213937 (let () (declare (not safe)) - (cons _L205543_ '())))) + (cons _L206704_ '())))) (declare (not safe)) - (foldr1 __tmp212777 - __tmp212776 - _L205544_)))) - _hd205464205538_ - _expr205455205530_ - _hd205456205532_) + (foldr1 __tmp213938 + __tmp213937 + _L206705_)))) + _hd206625206699_ + _expr206616206691_ + _hd206617206693_) (let () (declare (not safe)) - (_g205435205470_ _g205436205473_))))) + (_g206596206631_ _g206597206634_))))) (let () (declare (not safe)) - (_g205435205470_ _g205436205473_)))))))) + (_g206596206631_ _g206597206634_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop205449205496_ - _target205446205491_ + (_loop206610206657_ + _target206607206652_ '() '()))) (let () (declare (not safe)) - (_g205435205470_ - _g205436205473_)))))) + (_g206596206631_ + _g206597206634_)))))) (let () (declare (not safe)) - (_g205435205470_ _g205436205473_))))) + (_g206596206631_ _g206597206634_))))) (let () (declare (not safe)) - (_g205435205470_ _g205436205473_))))) + (_g206596206631_ _g206597206634_))))) (let () (declare (not safe)) - (_g205435205470_ _g205436205473_)))))) + (_g206596206631_ _g206597206634_)))))) (declare (not safe)) - (_g205434205583_ _stx205432_)))) + (_g206595206744_ _stx206593_)))) (define gxc#collect-body-setq% - (lambda (_stx205355_ . _args205356_) - (let* ((_g205358205375_ - (lambda (_g205359205372_) + (lambda (_stx206516_ . _args206517_) + (let* ((_g206519206536_ + (lambda (_g206520206533_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205359205372_)))) - (_g205357205429_ - (lambda (_g205359205378_) + _g206520206533_)))) + (_g206518206590_ + (lambda (_g206520206539_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205359205378_)) - (let ((_e205364205380_ + (gx#stx-pair? _g206520206539_)) + (let ((_e206525206541_ (let () (declare (not safe)) - (gx#stx-e _g205359205378_)))) - (let ((_hd205363205383_ + (gx#stx-e _g206520206539_)))) + (let ((_hd206524206544_ (let () (declare (not safe)) - (##car _e205364205380_))) - (_tl205362205385_ + (##car _e206525206541_))) + (_tl206523206546_ (let () (declare (not safe)) - (##cdr _e205364205380_)))) + (##cdr _e206525206541_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205362205385_)) - (let ((_e205367205388_ + (gx#stx-pair? _tl206523206546_)) + (let ((_e206528206549_ (let () (declare (not safe)) - (gx#stx-e _tl205362205385_)))) - (let ((_hd205366205391_ + (gx#stx-e _tl206523206546_)))) + (let ((_hd206527206552_ (let () (declare (not safe)) - (##car _e205367205388_))) - (_tl205365205393_ + (##car _e206528206549_))) + (_tl206526206554_ (let () (declare (not safe)) - (##cdr _e205367205388_)))) + (##cdr _e206528206549_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205365205393_)) - (let ((_e205370205396_ + (gx#stx-pair? _tl206526206554_)) + (let ((_e206531206557_ (let () (declare (not safe)) - (gx#stx-e _tl205365205393_)))) - (let ((_hd205369205399_ + (gx#stx-e _tl206526206554_)))) + (let ((_hd206530206560_ (let () (declare (not safe)) - (##car _e205370205396_))) - (_tl205368205401_ + (##car _e206531206557_))) + (_tl206529206562_ (let () (declare (not safe)) - (##cdr _e205370205396_)))) + (##cdr _e206531206557_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205368205401_)) - ((lambda (_L205404_ _L205405_) + _tl206529206562_)) + ((lambda (_L206565_ _L206566_) (if (let () (declare (not safe)) - (null? _args205356_)) + (null? _args206517_)) (let () (declare (not safe)) (gxc#compile-e__0 - _L205404_)) - (let ((_arg1205420_ - (car _args205356_)) - (_rest205422_ - (cdr _args205356_))) + _L206565_)) + (let ((_arg1206581_ + (car _args206517_)) + (_rest206583_ + (cdr _args206517_))) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _rest205422_)) + (null? _rest206583_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L205404_ _arg1205420_)) - (let ((_arg2205425_ (car _rest205422_)) - (_rest205427_ (cdr _rest205422_))) - (if (let () (declare (not safe)) (null? _rest205427_)) + (gxc#compile-e__1 _L206565_ _arg1206581_)) + (let ((_arg2206586_ (car _rest206583_)) + (_rest206588_ (cdr _rest206583_))) + (if (let () (declare (not safe)) (null? _rest206588_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L205404_ - _arg1205420_ - _arg2205425_)) + _L206565_ + _arg1206581_ + _arg2206586_)) (apply gxc#compile-e - _L205404_ - _arg1205420_ - _arg2205425_ - _rest205427_))))))) + _L206565_ + _arg1206581_ + _arg2206586_ + _rest206588_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd205369205399_ - _hd205366205391_) + _hd206530206560_ + _hd206527206552_) (let () (declare (not safe)) - (_g205358205375_ - _g205359205378_))))) + (_g206519206536_ + _g206520206539_))))) (let () (declare (not safe)) - (_g205358205375_ _g205359205378_))))) + (_g206519206536_ _g206520206539_))))) (let () (declare (not safe)) - (_g205358205375_ _g205359205378_))))) + (_g206519206536_ _g206520206539_))))) (let () (declare (not safe)) - (_g205358205375_ _g205359205378_)))))) + (_g206519206536_ _g206520206539_)))))) (declare (not safe)) - (_g205357205429_ _stx205355_)))) + (_g206518206590_ _stx206516_)))) (define gxc#collect-operands - (lambda (_stx205261_ . _args205262_) - (let* ((_g205264205283_ - (lambda (_g205265205280_) + (lambda (_stx206422_ . _args206423_) + (let* ((_g206425206444_ + (lambda (_g206426206441_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205265205280_)))) - (_g205263205352_ - (lambda (_g205265205286_) + _g206426206441_)))) + (_g206424206513_ + (lambda (_g206426206447_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205265205286_)) - (let ((_e205269205288_ + (gx#stx-pair? _g206426206447_)) + (let ((_e206430206449_ (let () (declare (not safe)) - (gx#stx-e _g205265205286_)))) - (let ((_hd205268205291_ + (gx#stx-e _g206426206447_)))) + (let ((_hd206429206452_ (let () (declare (not safe)) - (##car _e205269205288_))) - (_tl205267205293_ + (##car _e206430206449_))) + (_tl206428206454_ (let () (declare (not safe)) - (##cdr _e205269205288_)))) + (##cdr _e206430206449_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl205267205293_)) - (let ((_g212780_ + (gx#stx-pair/null? _tl206428206454_)) + (let ((_g213941_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl205267205293_ + _tl206428206454_ '0)))) (begin - (let ((_g212781_ + (let ((_g213942_ (let () (declare (not safe)) - (if (##values? _g212780_) - (##vector-length _g212780_) + (if (##values? _g213941_) + (##vector-length _g213941_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g212781_ 2))) + (##fx= _g213942_ 2))) (error "Context expects 2 values" - _g212781_))) - (let ((_target205270205296_ + _g213942_))) + (let ((_target206431206457_ (let () (declare (not safe)) - (##vector-ref _g212780_ 0))) - (_tl205272205298_ + (##vector-ref _g213941_ 0))) + (_tl206433206459_ (let () (declare (not safe)) - (##vector-ref _g212780_ 1)))) + (##vector-ref _g213941_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl205272205298_)) - (letrec ((_loop205273205301_ - (lambda (_hd205271205304_ - _rands205277205306_) + (gx#stx-null? _tl206433206459_)) + (letrec ((_loop206434206462_ + (lambda (_hd206432206465_ + _rands206438206467_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd205271205304_)) - (let ((_e205274205309_ + _hd206432206465_)) + (let ((_e206435206470_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd205271205304_)))) - (let ((_lp-hd205275205312_ + (gx#stx-e _hd206432206465_)))) + (let ((_lp-hd206436206473_ (let () (declare (not safe)) - (##car _e205274205309_))) - (_lp-tl205276205314_ + (##car _e206435206470_))) + (_lp-tl206437206475_ (let () (declare (not safe)) - (##cdr _e205274205309_)))) - (let ((__tmp212783 + (##cdr _e206435206470_)))) + (let ((__tmp213944 (let () (declare (not safe)) - (cons _lp-hd205275205312_ - _rands205277205306_)))) + (cons _lp-hd206436206473_ + _rands206438206467_)))) (declare (not safe)) - (_loop205273205301_ _lp-tl205276205314_ __tmp212783)))) - (let ((_rands205278205317_ (reverse _rands205277205306_))) - ((lambda (_L205320_) + (_loop206434206462_ _lp-tl206437206475_ __tmp213944)))) + (let ((_rands206439206478_ (reverse _rands206438206467_))) + ((lambda (_L206481_) (for-each - (lambda (_stx205334_) + (lambda (_stx206495_) (if (let () (declare (not safe)) - (null? _args205262_)) + (null? _args206423_)) (let () (declare (not safe)) - (gxc#compile-e__0 _stx205334_)) - (let ((_arg1205336_ (car _args205262_)) - (_rest205338_ (cdr _args205262_))) + (gxc#compile-e__0 _stx206495_)) + (let ((_arg1206497_ (car _args206423_)) + (_rest206499_ (cdr _args206423_))) (if (let () (declare (not safe)) - (null? _rest205338_)) + (null? _rest206499_)) (let () (declare (not safe)) (gxc#compile-e__1 - _stx205334_ - _arg1205336_)) - (let ((_arg2205341_ (car _rest205338_)) - (_rest205343_ (cdr _rest205338_))) + _stx206495_ + _arg1206497_)) + (let ((_arg2206502_ (car _rest206499_)) + (_rest206504_ (cdr _rest206499_))) (if (let () (declare (not safe)) - (null? _rest205343_)) + (null? _rest206504_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx205334_ - _arg1205336_ - _arg2205341_)) + _stx206495_ + _arg1206497_ + _arg2206502_)) (apply gxc#compile-e - _stx205334_ - _arg1205336_ - _arg2205341_ - _rest205343_))))))) - (let ((__tmp212782 - (lambda (_g205344205347_ _g205345205349_) + _stx206495_ + _arg1206497_ + _arg2206502_ + _rest206504_))))))) + (let ((__tmp213943 + (lambda (_g206505206508_ _g206506206510_) (let () (declare (not safe)) - (cons _g205344205347_ _g205345205349_))))) + (cons _g206505206508_ _g206506206510_))))) (declare (not safe)) - (foldr1 __tmp212782 '() _L205320_)))) - _rands205278205317_)))))) + (foldr1 __tmp213943 '() _L206481_)))) + _rands206439206478_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop205273205301_ - _target205270205296_ + (_loop206434206462_ + _target206431206457_ '()))) (let () (declare (not safe)) - (_g205264205283_ - _g205265205286_)))))) + (_g206425206444_ + _g206426206447_)))))) (let () (declare (not safe)) - (_g205264205283_ _g205265205286_))))) + (_g206425206444_ _g206426206447_))))) (let () (declare (not safe)) - (_g205264205283_ _g205265205286_)))))) + (_g206425206444_ _g206426206447_)))))) (declare (not safe)) - (_g205263205352_ _stx205261_)))) + (_g206424206513_ _stx206422_)))) (define gxc#collect-bindings-define-values% - (lambda (_stx205192_) - (let* ((_g205194205211_ - (lambda (_g205195205208_) + (lambda (_stx206353_) + (let* ((_g206355206372_ + (lambda (_g206356206369_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205195205208_)))) - (_g205193205258_ - (lambda (_g205195205214_) + _g206356206369_)))) + (_g206354206419_ + (lambda (_g206356206375_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205195205214_)) - (let ((_e205200205216_ + (gx#stx-pair? _g206356206375_)) + (let ((_e206361206377_ (let () (declare (not safe)) - (gx#stx-e _g205195205214_)))) - (let ((_hd205199205219_ + (gx#stx-e _g206356206375_)))) + (let ((_hd206360206380_ (let () (declare (not safe)) - (##car _e205200205216_))) - (_tl205198205221_ + (##car _e206361206377_))) + (_tl206359206382_ (let () (declare (not safe)) - (##cdr _e205200205216_)))) + (##cdr _e206361206377_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205198205221_)) - (let ((_e205203205224_ + (gx#stx-pair? _tl206359206382_)) + (let ((_e206364206385_ (let () (declare (not safe)) - (gx#stx-e _tl205198205221_)))) - (let ((_hd205202205227_ + (gx#stx-e _tl206359206382_)))) + (let ((_hd206363206388_ (let () (declare (not safe)) - (##car _e205203205224_))) - (_tl205201205229_ + (##car _e206364206385_))) + (_tl206362206390_ (let () (declare (not safe)) - (##cdr _e205203205224_)))) + (##cdr _e206364206385_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205201205229_)) - (let ((_e205206205232_ + (gx#stx-pair? _tl206362206390_)) + (let ((_e206367206393_ (let () (declare (not safe)) - (gx#stx-e _tl205201205229_)))) - (let ((_hd205205205235_ + (gx#stx-e _tl206362206390_)))) + (let ((_hd206366206396_ (let () (declare (not safe)) - (##car _e205206205232_))) - (_tl205204205237_ + (##car _e206367206393_))) + (_tl206365206398_ (let () (declare (not safe)) - (##cdr _e205206205232_)))) + (##cdr _e206367206393_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205204205237_)) - ((lambda (_L205240_ _L205241_) - (let ((__tmp212784 - (lambda (_bind205256_) + _tl206365206398_)) + ((lambda (_L206401_ _L206402_) + (let ((__tmp213945 + (lambda (_bind206417_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _bind205256_)) + (gx#identifier? _bind206417_)) (let () (declare (not safe)) - (gxc#add-module-binding! _bind205256_ '#f)) + (gxc#add-module-binding! _bind206417_ '#f)) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp212784 - _L205241_))) - _hd205205205235_ - _hd205202205227_) + __tmp213945 + _L206402_))) + _hd206366206396_ + _hd206363206388_) (let () (declare (not safe)) - (_g205194205211_ - _g205195205214_))))) + (_g206355206372_ + _g206356206375_))))) (let () (declare (not safe)) - (_g205194205211_ _g205195205214_))))) + (_g206355206372_ _g206356206375_))))) (let () (declare (not safe)) - (_g205194205211_ _g205195205214_))))) + (_g206355206372_ _g206356206375_))))) (let () (declare (not safe)) - (_g205194205211_ _g205195205214_)))))) + (_g206355206372_ _g206356206375_)))))) (declare (not safe)) - (_g205193205258_ _stx205192_)))) + (_g206354206419_ _stx206353_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_stx205125_) - (let* ((_g205127205144_ - (lambda (_g205128205141_) + (lambda (_stx206286_) + (let* ((_g206288206305_ + (lambda (_g206289206302_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205128205141_)))) - (_g205126205189_ - (lambda (_g205128205147_) + _g206289206302_)))) + (_g206287206350_ + (lambda (_g206289206308_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205128205147_)) - (let ((_e205133205149_ + (gx#stx-pair? _g206289206308_)) + (let ((_e206294206310_ (let () (declare (not safe)) - (gx#stx-e _g205128205147_)))) - (let ((_hd205132205152_ + (gx#stx-e _g206289206308_)))) + (let ((_hd206293206313_ (let () (declare (not safe)) - (##car _e205133205149_))) - (_tl205131205154_ + (##car _e206294206310_))) + (_tl206292206315_ (let () (declare (not safe)) - (##cdr _e205133205149_)))) + (##cdr _e206294206310_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205131205154_)) - (let ((_e205136205157_ + (gx#stx-pair? _tl206292206315_)) + (let ((_e206297206318_ (let () (declare (not safe)) - (gx#stx-e _tl205131205154_)))) - (let ((_hd205135205160_ + (gx#stx-e _tl206292206315_)))) + (let ((_hd206296206321_ (let () (declare (not safe)) - (##car _e205136205157_))) - (_tl205134205162_ + (##car _e206297206318_))) + (_tl206295206323_ (let () (declare (not safe)) - (##cdr _e205136205157_)))) + (##cdr _e206297206318_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205134205162_)) - (let ((_e205139205165_ + (gx#stx-pair? _tl206295206323_)) + (let ((_e206300206326_ (let () (declare (not safe)) - (gx#stx-e _tl205134205162_)))) - (let ((_hd205138205168_ + (gx#stx-e _tl206295206323_)))) + (let ((_hd206299206329_ (let () (declare (not safe)) - (##car _e205139205165_))) - (_tl205137205170_ + (##car _e206300206326_))) + (_tl206298206331_ (let () (declare (not safe)) - (##cdr _e205139205165_)))) + (##cdr _e206300206326_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl205137205170_)) - ((lambda (_L205173_ _L205174_) + _tl206298206331_)) + ((lambda (_L206334_ _L206335_) (let () (declare (not safe)) (gxc#add-module-binding! - _L205174_ + _L206335_ '#t))) - _hd205138205168_ - _hd205135205160_) + _hd206299206329_ + _hd206296206321_) (let () (declare (not safe)) - (_g205127205144_ - _g205128205147_))))) + (_g206288206305_ + _g206289206308_))))) (let () (declare (not safe)) - (_g205127205144_ _g205128205147_))))) + (_g206288206305_ _g206289206308_))))) (let () (declare (not safe)) - (_g205127205144_ _g205128205147_))))) + (_g206288206305_ _g206289206308_))))) (let () (declare (not safe)) - (_g205127205144_ _g205128205147_)))))) + (_g206288206305_ _g206289206308_)))))) (declare (not safe)) - (_g205126205189_ _stx205125_)))) + (_g206287206350_ _stx206286_)))) (define gxc#lift-modules-module% - (lambda (_stx205067_ _modules205068_) - (let* ((_g205070205084_ - (lambda (_g205071205081_) + (lambda (_stx206228_ _modules206229_) + (let* ((_g206231206245_ + (lambda (_g206232206242_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g205071205081_)))) - (_g205069205122_ - (lambda (_g205071205087_) + _g206232206242_)))) + (_g206230206283_ + (lambda (_g206232206248_) (if (let () (declare (not safe)) - (gx#stx-pair? _g205071205087_)) - (let ((_e205076205089_ + (gx#stx-pair? _g206232206248_)) + (let ((_e206237206250_ (let () (declare (not safe)) - (gx#stx-e _g205071205087_)))) - (let ((_hd205075205092_ + (gx#stx-e _g206232206248_)))) + (let ((_hd206236206253_ (let () (declare (not safe)) - (##car _e205076205089_))) - (_tl205074205094_ + (##car _e206237206250_))) + (_tl206235206255_ (let () (declare (not safe)) - (##cdr _e205076205089_)))) + (##cdr _e206237206250_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl205074205094_)) - (let ((_e205079205097_ + (gx#stx-pair? _tl206235206255_)) + (let ((_e206240206258_ (let () (declare (not safe)) - (gx#stx-e _tl205074205094_)))) - (let ((_hd205078205100_ + (gx#stx-e _tl206235206255_)))) + (let ((_hd206239206261_ (let () (declare (not safe)) - (##car _e205079205097_))) - (_tl205077205102_ + (##car _e206240206258_))) + (_tl206238206263_ (let () (declare (not safe)) - (##cdr _e205079205097_)))) - ((lambda (_L205105_ _L205106_) - (let ((_ctx205119_ + (##cdr _e206240206258_)))) + ((lambda (_L206266_ _L206267_) + (let ((_ctx206280_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L205106_)))) + _L206267_)))) (set-box! - _modules205068_ - (let ((__tmp212785 - (unbox _modules205068_))) + _modules206229_ + (let ((__tmp213946 + (unbox _modules206229_))) (declare (not safe)) - (cons _ctx205119_ __tmp212785))) - (let ((__tmp212786 + (cons _ctx206280_ __tmp213946))) + (let ((__tmp213947 (lambda () - (let ((__tmp212787 + (let ((__tmp213948 (##structure-ref - _ctx205119_ + _ctx206280_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - __tmp212787 - _modules205068_))))) + __tmp213948 + _modules206229_))))) (declare (not safe)) (call-with-parameters - __tmp212786 + __tmp213947 gx#current-expander-context - _ctx205119_)))) - _tl205077205102_ - _hd205078205100_))) + _ctx206280_)))) + _tl206238206263_ + _hd206239206261_))) (let () (declare (not safe)) - (_g205070205084_ _g205071205087_))))) + (_g206231206245_ _g206232206248_))))) (let () (declare (not safe)) - (_g205070205084_ _g205071205087_)))))) + (_g206231206245_ _g206232206248_)))))) (declare (not safe)) - (_g205069205122_ _stx205067_)))) + (_g206230206283_ _stx206228_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_decls205023205025_ (gxc#current-compile-decls))) - (if _decls205023205025_ - (let ((_decls205028_ _decls205023205025_)) - (let _lp205030_ ((_rest205032_ _decls205028_)) - (let* ((_rest205033205041_ _rest205032_) - (_else205035205049_ (lambda () '#f)) - (_K205037205055_ - (lambda (_decls205052_ _decl205053_) + (let ((_decls206184206186_ (gxc#current-compile-decls))) + (if _decls206184206186_ + (let ((_decls206189_ _decls206184206186_)) + (let _lp206191_ ((_rest206193_ _decls206189_)) + (let* ((_rest206194206202_ _rest206193_) + (_else206196206210_ (lambda () '#f)) + (_K206198206216_ + (lambda (_decls206213_ _decl206214_) (if (let () (declare (not safe)) - (equal? _decl205053_ '(not safe))) + (equal? _decl206214_ '(not safe))) '#t (if (let () (declare (not safe)) - (equal? _decl205053_ '(safe))) + (equal? _decl206214_ '(safe))) '#f (let () (declare (not safe)) - (_lp205030_ _decls205052_))))))) + (_lp206191_ _decls206213_))))))) (if (let () (declare (not safe)) - (##pair? _rest205033205041_)) - (let ((_hd205038205058_ + (##pair? _rest206194206202_)) + (let ((_hd206199206219_ (let () (declare (not safe)) - (##car _rest205033205041_))) - (_tl205039205060_ + (##car _rest206194206202_))) + (_tl206200206221_ (let () (declare (not safe)) - (##cdr _rest205033205041_)))) - (let* ((_decl205063_ _hd205038205058_) - (_decls205065_ _tl205039205060_)) + (##cdr _rest206194206202_)))) + (let* ((_decl206224_ _hd206199206219_) + (_decls206226_ _tl206200206221_)) (declare (not safe)) - (_K205037205055_ _decls205065_ _decl205063_))) + (_K206198206216_ _decls206226_ _decl206224_))) (let () (declare (not safe)) - (_else205035205049_)))))) + (_else206196206210_)))))) '#f)))) (define gxc#add-module-binding! - (lambda (_id205017_ _syntax?205018_) - (let ((_eid205020_ + (lambda (_id206178_ _syntax?206179_) + (let ((_eid206181_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _id205017_)) + (gx#resolve-identifier__0 _id206178_)) '1 gx#binding::t '#f)) - (_ht205021_ + (_ht206182_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid205020_) + (if (interned-symbol? _eid206181_) '#!void - (let ((__tmp212788 - (let ((__tmp212789 + (let ((__tmp213949 + (let ((__tmp213950 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid205020_)))) + _eid206181_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp212789 _syntax?205018_)))) + (gx#make-binding-id__1 __tmp213950 _syntax?206179_)))) (declare (not safe)) - (table-set! _ht205021_ _eid205020_ __tmp212788)))))) + (table-set! _ht206182_ _eid206181_ __tmp213949)))))) (define gxc#runtime-identifier=? - (lambda (_id1205010_ _id2205011_) - (letrec ((_symbol-e205013_ - (lambda (_id205015_) - (if (let () (declare (not safe)) (symbol? _id205015_)) - _id205015_ + (lambda (_id1206171_ _id2206172_) + (letrec ((_symbol-e206174_ + (lambda (_id206176_) + (if (let () (declare (not safe)) (symbol? _id206176_)) + _id206176_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id205015_)))))) - (let ((__tmp212791 + (gxc#generate-runtime-binding-id _id206176_)))))) + (let ((__tmp213952 (let () (declare (not safe)) - (_symbol-e205013_ _id1205010_))) - (__tmp212790 + (_symbol-e206174_ _id1206171_))) + (__tmp213951 (let () (declare (not safe)) - (_symbol-e205013_ _id2205011_)))) + (_symbol-e206174_ _id2206172_)))) (declare (not safe)) - (eq? __tmp212791 __tmp212790))))) + (eq? __tmp213952 __tmp213951))))) (define gxc#generate-runtime-binding-id - (lambda (_id204988_) - (let ((_$e204990_ + (lambda (_id206149_) + (let ((_$e206151_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id204988_ + _id206149_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _id204988_)) + (gx#resolve-identifier__0 _id206149_)) '#f))) - (if _$e204990_ - ((lambda (_bind204993_) - (let ((_eid204995_ - (##structure-ref _bind204993_ '1 gx#binding::t '#f)) - (_ht204996_ + (if _$e206151_ + ((lambda (_bind206154_) + (let ((_eid206156_ + (##structure-ref _bind206154_ '1 gx#binding::t '#f)) + (_ht206157_ (##structure-ref (gxc#current-compile-symbol-table) '2 gxc#symbol-table::t '#f))) - (if (interned-symbol? _eid204995_) - _eid204995_ - (let ((_$e204998_ + (if (interned-symbol? _eid206156_) + _eid206156_ + (let ((_$e206159_ (let () (declare (not safe)) - (table-ref _ht204996_ _eid204995_ '#f)))) - (if _$e204998_ - (values _$e204998_) + (table-ref _ht206157_ _eid206156_ '#f)))) + (if _$e206159_ + (values _$e206159_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind204993_ + _bind206154_ 'gx#local-binding::t)) - (let ((_gid205001_ + (let ((_gid206162_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid204995_)))) + _eid206156_)))) (let () (declare (not safe)) (table-set! - _ht204996_ - _eid204995_ - _gid205001_)) - _gid205001_) + _ht206157_ + _eid206156_ + _gid206162_)) + _gid206162_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind204993_ + _bind206154_ 'gx#module-binding::t)) - (let ((_gid205008_ - (let ((_$e205003_ + (let ((_gid206169_ + (let ((_$e206164_ (##structure-ref (##structure-ref - _bind204993_ + _bind206154_ '4 gx#module-binding::t '#f) '6 gx#module-context::t '#f))) - (if _$e205003_ - ((lambda (_ns205006_) + (if _$e206164_ + ((lambda (_ns206167_) (let () (declare (not safe)) (make-symbol__1 - _ns205006_ + _ns206167_ '"#" - _eid204995_))) - _$e205003_) + _eid206156_))) + _$e206164_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _eid204995_)))))) + _eid206156_)))))) (let () (declare (not safe)) (table-set! - _ht204996_ - _eid204995_ - _gid205008_)) - _gid205008_) + _ht206157_ + _eid206156_ + _gid206169_)) + _gid206169_) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _id204988_ - _eid204995_ - _bind204993_))))))))) - _$e204990_) + _id206149_ + _eid206156_ + _bind206154_))))))))) + _$e206151_) (if (interned-symbol? - (let () (declare (not safe)) (gx#stx-e _id204988_))) - (let () (declare (not safe)) (gx#stx-e _id204988_)) + (let () (declare (not safe)) (gx#stx-e _id206149_))) + (let () (declare (not safe)) (gx#stx-e _id206149_)) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _id204988_))))))) + _id206149_))))))) (define gxc#generate-runtime-binding-id* - (lambda (_id204986_) - (if (let () (declare (not safe)) (gx#identifier? _id204986_)) + (lambda (_id206147_) + (if (let () (declare (not safe)) (gx#identifier? _id206147_)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id204986_)) + (gxc#generate-runtime-binding-id _id206147_)) (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_sym204966_ _quote?204967_) - (let* ((_ht204969_ + (lambda (_sym206127_ _quote?206128_) + (let* ((_ht206130_ (##structure-ref (gxc#current-compile-symbol-table) '1 gxc#symbol-table::t '#f)) - (_$e204971_ + (_$e206132_ (let () (declare (not safe)) - (table-ref _ht204969_ _sym204966_ '#f)))) - (if _$e204971_ - (values _$e204971_) - (let ((_g204974_ - (if _quote?204967_ - (let ((__tmp212792 (gxc#current-compile-timestamp))) + (table-ref _ht206130_ _sym206127_ '#f)))) + (if _$e206132_ + (values _$e206132_) + (let ((_g206135_ + (if _quote?206128_ + (let ((__tmp213953 (gxc#current-compile-timestamp))) (declare (not safe)) (make-symbol__1 '"__" - _sym204966_ + _sym206127_ '"__" - __tmp212792)) + __tmp213953)) (let () (declare (not safe)) - (make-symbol__1 '"_" _sym204966_ '"_"))))) + (make-symbol__1 '"_" _sym206127_ '"_"))))) (let () (declare (not safe)) - (table-set! _ht204969_ _sym204966_ _g204974_)) - _g204974_))))) + (table-set! _ht206130_ _sym206127_ _g206135_)) + _g206135_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_sym204979_) - (let ((_quote?204981_ '#f)) + (lambda (_sym206140_) + (let ((_quote?206142_ '#f)) (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym204979_ - _quote?204981_)))) + _sym206140_ + _quote?206142_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g212794_ - (let ((_g212793_ (let () (declare (not safe)) (##length _g212794_)))) - (cond ((let () (declare (not safe)) (##fx= _g212793_ 1)) - (apply (lambda (_sym204979_) + (lambda _g213955_ + (let ((_g213954_ (let () (declare (not safe)) (##length _g213955_)))) + (cond ((let () (declare (not safe)) (##fx= _g213954_ 1)) + (apply (lambda (_sym206140_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym204979_))) - _g212794_)) - ((let () (declare (not safe)) (##fx= _g212793_ 2)) - (apply (lambda (_sym204983_ _quote?204984_) + _sym206140_))) + _g213955_)) + ((let () (declare (not safe)) (##fx= _g213954_ 2)) + (apply (lambda (_sym206144_ _quote?206145_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _sym204983_ - _quote?204984_))) - _g212794_)) + _sym206144_ + _quote?206145_))) + _g213955_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g212794_)))))) + _g213955_)))))) (define gxc#generate-runtime-identifier - (lambda (_id204963_) - (let ((__tmp212795 + (lambda (_id206124_) + (let ((__tmp213956 (let () (declare (not safe)) - (gx#core-identifier-key _id204963_)))) + (gx#core-identifier-key _id206124_)))) (declare (not safe)) - (gxc#generate-runtime-identifier-key __tmp212795)))) + (gxc#generate-runtime-identifier-key __tmp213956)))) (define gxc#generate-runtime-identifier-key - (lambda (_key204923_) - (if (interned-symbol? _key204923_) - _key204923_ - (if (uninterned-symbol? _key204923_) + (lambda (_key206084_) + (if (interned-symbol? _key206084_) + _key206084_ + (if (uninterned-symbol? _key206084_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _key204923_)) - (let* ((_key204924204931_ _key204923_) - (_E204926204935_ + (gxc#generate-runtime-gensym-reference__0 _key206084_)) + (let* ((_key206085206092_ _key206084_) + (_E206087206096_ (lambda () - (error '"No clause matching" _key204924204931_))) - (_K204927204951_ - (lambda (_mark204938_ _eid204939_) - (let ((_$e204941_ + (error '"No clause matching" _key206085206092_))) + (_K206088206112_ + (lambda (_mark206099_ _eid206100_) + (let ((_$e206102_ (##structure-ref - _mark204938_ + _mark206099_ '1 gx#expander-mark::t '#f))) - (if _$e204941_ - ((lambda (_ht204944_) - (let ((_$e204946_ + (if _$e206102_ + ((lambda (_ht206105_) + (let ((_$e206107_ (let () (declare (not safe)) (table-ref - _ht204944_ - _eid204939_ + _ht206105_ + _eid206100_ '#f)))) - (if _$e204946_ - ((lambda (_id204949_) - (if (interned-symbol? _id204949_) - _id204949_ + (if _$e206107_ + ((lambda (_id206110_) + (if (interned-symbol? _id206110_) + _id206110_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _id204949_)))) - _$e204946_) + _id206110_)))) + _$e206107_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid204939_))))) - _$e204941_) + _eid206100_))))) + _$e206102_) (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _eid204939_))))))) + _eid206100_))))))) (if (let () (declare (not safe)) - (##pair? _key204924204931_)) - (let ((_hd204928204954_ + (##pair? _key206085206092_)) + (let ((_hd206089206115_ (let () (declare (not safe)) - (##car _key204924204931_))) - (_tl204929204956_ + (##car _key206085206092_))) + (_tl206090206117_ (let () (declare (not safe)) - (##cdr _key204924204931_)))) - (let* ((_eid204959_ _hd204928204954_) - (_mark204961_ _tl204929204956_)) + (##cdr _key206085206092_)))) + (let* ((_eid206120_ _hd206089206115_) + (_mark206122_ _tl206090206117_)) (declare (not safe)) - (_K204927204951_ _mark204961_ _eid204959_))) - (let () (declare (not safe)) (_E204926204935_)))))))) + (_K206088206112_ _mark206122_ _eid206120_))) + (let () (declare (not safe)) (_E206087206096_)))))))) (define gxc#generate-runtime-temporary__% - (lambda (_top204910_) - (if _top204910_ - (let ((_ns204912_ + (lambda (_top206071_) + (if _top206071_ + (let ((_ns206073_ (##structure-ref - (let ((__tmp212797 (gx#current-expander-context))) + (let ((__tmp213958 (gx#current-expander-context))) (declare (not safe)) - (gx#core-context-top__1 __tmp212797)) + (gx#core-context-top__1 __tmp213958)) '6 gx#module-context::t '#f)) - (_phi204913_ (gx#current-expander-phi))) - (if _ns204912_ - (if (fxpositive? _phi204913_) - (let ((__tmp212803 (number->string _phi204913_)) - (__tmp212802 (gensym))) + (_phi206074_ (gx#current-expander-phi))) + (if _ns206073_ + (if (fxpositive? _phi206074_) + (let ((__tmp213964 (number->string _phi206074_)) + (__tmp213963 (gensym))) (declare (not safe)) (make-symbol__1 - _ns204912_ + _ns206073_ '"[" - __tmp212803 + __tmp213964 '"]#_" - __tmp212802 + __tmp213963 '"_")) - (let ((__tmp212801 (gensym))) + (let ((__tmp213962 (gensym))) (declare (not safe)) - (make-symbol__1 _ns204912_ '"#_" __tmp212801 '"_"))) - (if (fxpositive? _phi204913_) - (let ((__tmp212800 (number->string _phi204913_)) - (__tmp212799 (gensym))) + (make-symbol__1 _ns206073_ '"#_" __tmp213962 '"_"))) + (if (fxpositive? _phi206074_) + (let ((__tmp213961 (number->string _phi206074_)) + (__tmp213960 (gensym))) (declare (not safe)) (make-symbol__1 '"[" - __tmp212800 + __tmp213961 '"]#_" - __tmp212799 + __tmp213960 '"_")) - (let ((__tmp212798 (gensym))) + (let ((__tmp213959 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp212798 '"_"))))) - (let ((__tmp212796 (gensym))) + (make-symbol__1 '"_" __tmp213959 '"_"))))) + (let ((__tmp213957 (gensym))) (declare (not safe)) - (make-symbol__1 '"_" __tmp212796 '"_"))))) + (make-symbol__1 '"_" __tmp213957 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_top204919_ '#f)) + (let ((_top206080_ '#f)) (declare (not safe)) - (gxc#generate-runtime-temporary__% _top204919_)))) + (gxc#generate-runtime-temporary__% _top206080_)))) (define gxc#generate-runtime-temporary - (lambda _g212805_ - (let ((_g212804_ (let () (declare (not safe)) (##length _g212805_)))) - (cond ((let () (declare (not safe)) (##fx= _g212804_ 0)) + (lambda _g213966_ + (let ((_g213965_ (let () (declare (not safe)) (##length _g213966_)))) + (cond ((let () (declare (not safe)) (##fx= _g213965_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - _g212805_)) - ((let () (declare (not safe)) (##fx= _g212804_ 1)) - (apply (lambda (_top204921_) + _g213966_)) + ((let () (declare (not safe)) (##fx= _g213965_ 1)) + (apply (lambda (_top206082_) (let () (declare (not safe)) - (gxc#generate-runtime-temporary__% _top204921_))) - _g212805_)) + (gxc#generate-runtime-temporary__% _top206082_))) + _g213966_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g212805_)))))) - (define gxc#generate-runtime-empty (lambda (_stx204907_) '(begin))) + _g213966_)))))) + (define gxc#generate-runtime-empty (lambda (_stx206068_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_stx204759_) - (letrec ((_simplify204761_ - (lambda (_body204805_) - (let _lp204807_ ((_rest204809_ _body204805_) - (_r204810_ '())) - (let* ((_rest204811204819_ _rest204809_) - (_else204813204827_ - (lambda () (reverse _r204810_))) - (_K204815204895_ - (lambda (_rest204830_ _hd204831_) - (let* ((_hd204832204848_ _hd204831_) - (_else204836204856_ + (lambda (_stx205920_) + (letrec ((_simplify205922_ + (lambda (_body205966_) + (let _lp205968_ ((_rest205970_ _body205966_) + (_r205971_ '())) + (let* ((_rest205972205980_ _rest205970_) + (_else205974205988_ + (lambda () (reverse _r205971_))) + (_K205976206056_ + (lambda (_rest205991_ _hd205992_) + (let* ((_hd205993206009_ _hd205992_) + (_else205997206017_ (lambda () - (let ((__tmp212806 + (let ((__tmp213967 (let () (declare (not safe)) - (cons _hd204831_ - _r204810_)))) + (cons _hd205992_ + _r205971_)))) (declare (not safe)) - (_lp204807_ - _rest204830_ - __tmp212806))))) - (let ((_K204844204885_ - (lambda (_exprs204883_) - (let ((__tmp212807 + (_lp205968_ + _rest205991_ + __tmp213967))))) + (let ((_K206005206046_ + (lambda (_exprs206044_) + (let ((__tmp213968 (let () (declare (not safe)) (foldr1 cons - _rest204830_ - _exprs204883_)))) + _rest205991_ + _exprs206044_)))) (declare (not safe)) - (_lp204807_ - __tmp212807 - _r204810_)))) - (_K204839204869_ + (_lp205968_ + __tmp213968 + _r205971_)))) + (_K206000206030_ (lambda () (if (let () (declare (not safe)) - (null? _rest204830_)) - (let ((__tmp212808 + (null? _rest205991_)) + (let ((__tmp213969 (let () (declare (not safe)) - (cons _hd204831_ - _r204810_)))) + (cons _hd205992_ + _r205971_)))) (declare (not safe)) - (_lp204807_ - _rest204830_ - __tmp212808)) + (_lp205968_ + _rest205991_ + __tmp213969)) (let () (declare (not safe)) - (_lp204807_ - _rest204830_ - _r204810_))))) - (_K204838204861_ + (_lp205968_ + _rest205991_ + _r205971_))))) + (_K205999206022_ (lambda () (if (let () (declare (not safe)) - (null? _rest204830_)) - (let ((__tmp212809 + (null? _rest205991_)) + (let ((__tmp213970 (let () (declare (not safe)) - (cons _hd204831_ - _r204810_)))) + (cons _hd205992_ + _r205971_)))) (declare (not safe)) - (_lp204807_ - _rest204830_ - __tmp212809)) + (_lp205968_ + _rest205991_ + __tmp213970)) (let () (declare (not safe)) - (_lp204807_ - _rest204830_ - _r204810_)))))) - (let ((_try-match204835204864_ + (_lp205968_ + _rest205991_ + _r205971_)))))) + (let ((_try-match205996206025_ (lambda () (if (let () (declare (not safe)) - (symbol? _hd204832204848_)) + (symbol? _hd205993206009_)) (let () (declare (not safe)) - (_K204838204861_)) + (_K205999206022_)) (let () (declare (not safe)) - (_else204836204856_)))))) + (_else205997206017_)))))) (if (let () (declare (not safe)) - (##pair? _hd204832204848_)) - (let ((_tl204846204890_ + (##pair? _hd205993206009_)) + (let ((_tl206007206051_ (let () (declare (not safe)) - (##cdr _hd204832204848_))) - (_hd204845204888_ + (##cdr _hd205993206009_))) + (_hd206006206049_ (let () (declare (not safe)) - (##car _hd204832204848_)))) + (##car _hd205993206009_)))) (if (let () (declare (not safe)) - (##eq? _hd204845204888_ + (##eq? _hd206006206049_ 'begin)) - (let ((_exprs204893_ - _tl204846204890_)) + (let ((_exprs206054_ + _tl206007206051_)) (declare (not safe)) - (_K204844204885_ - _exprs204893_)) + (_K206005206046_ + _exprs206054_)) (if (let () (declare (not safe)) - (##eq? _hd204845204888_ + (##eq? _hd206006206049_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl204846204890_)) - (let ((_tl204843204877_ + (##pair? _tl206007206051_)) + (let ((_tl206004206038_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl204846204890_)))) + (##cdr _tl206007206051_)))) (if (let () (declare (not safe)) - (##null? _tl204843204877_)) - (let () (declare (not safe)) (_K204839204869_)) + (##null? _tl206004206038_)) + (let () (declare (not safe)) (_K206000206030_)) (let () (declare (not safe)) - (_try-match204835204864_)))) - (let () (declare (not safe)) (_try-match204835204864_))) - (let () (declare (not safe)) (_try-match204835204864_))))) + (_try-match205996206025_)))) + (let () (declare (not safe)) (_try-match205996206025_))) + (let () (declare (not safe)) (_try-match205996206025_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_try-match204835204864_))))))))) + (_try-match205996206025_))))))))) (if (let () (declare (not safe)) - (##pair? _rest204811204819_)) - (let ((_hd204816204898_ + (##pair? _rest205972205980_)) + (let ((_hd205977206059_ (let () (declare (not safe)) - (##car _rest204811204819_))) - (_tl204817204900_ + (##car _rest205972205980_))) + (_tl205978206061_ (let () (declare (not safe)) - (##cdr _rest204811204819_)))) - (let* ((_hd204903_ _hd204816204898_) - (_rest204905_ _tl204817204900_)) + (##cdr _rest205972205980_)))) + (let* ((_hd206064_ _hd205977206059_) + (_rest206066_ _tl205978206061_)) (declare (not safe)) - (_K204815204895_ _rest204905_ _hd204903_))) + (_K205976206056_ _rest206066_ _hd206064_))) (let () (declare (not safe)) - (_else204813204827_)))))))) - (let* ((_g204763204773_ - (lambda (_g204764204770_) + (_else205974205988_)))))))) + (let* ((_g205924205934_ + (lambda (_g205925205931_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g204764204770_)))) - (_g204762204802_ - (lambda (_g204764204776_) + _g205925205931_)))) + (_g205923205963_ + (lambda (_g205925205937_) (if (let () (declare (not safe)) - (gx#stx-pair? _g204764204776_)) - (let ((_e204768204778_ + (gx#stx-pair? _g205925205937_)) + (let ((_e205929205939_ (let () (declare (not safe)) - (gx#stx-e _g204764204776_)))) - (let ((_hd204767204781_ + (gx#stx-e _g205925205937_)))) + (let ((_hd205928205942_ (let () (declare (not safe)) - (##car _e204768204778_))) - (_tl204766204783_ + (##car _e205929205939_))) + (_tl205927205944_ (let () (declare (not safe)) - (##cdr _e204768204778_)))) - ((lambda (_L204786_) - (let* ((_body204797_ - (map gxc#compile-e _L204786_)) - (_body204799_ + (##cdr _e205929205939_)))) + ((lambda (_L205947_) + (let* ((_body205958_ + (map gxc#compile-e _L205947_)) + (_body205960_ (let () (declare (not safe)) - (_simplify204761_ _body204797_)))) - (if (fx= (length _body204799_) '1) - (car _body204799_) + (_simplify205922_ _body205958_)))) + (if (fx= (length _body205960_) '1) + (car _body205960_) (let () (declare (not safe)) - (cons 'begin _body204799_))))) - _tl204766204783_))) + (cons 'begin _body205960_))))) + _tl205927205944_))) (let () (declare (not safe)) - (_g204763204773_ _g204764204776_)))))) + (_g205924205934_ _g205925205937_)))))) (declare (not safe)) - (_g204762204802_ _stx204759_))))) + (_g205923205963_ _stx205920_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_stx204721_) - (let* ((_g204723204733_ - (lambda (_g204724204730_) + (lambda (_stx205882_) + (let* ((_g205884205894_ + (lambda (_g205885205891_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g204724204730_)))) - (_g204722204756_ - (lambda (_g204724204736_) + _g205885205891_)))) + (_g205883205917_ + (lambda (_g205885205897_) (if (let () (declare (not safe)) - (gx#stx-pair? _g204724204736_)) - (let ((_e204728204738_ + (gx#stx-pair? _g205885205897_)) + (let ((_e205889205899_ (let () (declare (not safe)) - (gx#stx-e _g204724204736_)))) - (let ((_hd204727204741_ + (gx#stx-e _g205885205897_)))) + (let ((_hd205888205902_ (let () (declare (not safe)) - (##car _e204728204738_))) - (_tl204726204743_ + (##car _e205889205899_))) + (_tl205887205904_ (let () (declare (not safe)) - (##cdr _e204728204738_)))) - ((lambda (_L204746_) - (let ((__tmp212810 + (##cdr _e205889205899_)))) + ((lambda (_L205907_) + (let ((__tmp213971 (let () (declare (not safe)) - (gx#syntax->datum _L204746_)))) + (gx#syntax->datum _L205907_)))) (declare (not safe)) - (cons 'begin __tmp212810))) - _tl204726204743_))) + (cons 'begin __tmp213971))) + _tl205887205904_))) (let () (declare (not safe)) - (_g204723204733_ _g204724204736_)))))) + (_g205884205894_ _g205885205897_)))))) (declare (not safe)) - (_g204722204756_ _stx204721_)))) + (_g205883205917_ _stx205882_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_stx204486_) - (let* ((___stx211393211394_ _stx204486_) - (_g204490204542_ + (lambda (_stx205647_) + (let* ((___stx212554212555_ _stx205647_) + (_g205651205703_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211393211394_))))) - (let ((___kont211395211396_ - (lambda (_L204703_ _L204704_) + ___stx212554212555_))))) + (let ((___kont212556212557_ + (lambda (_L205864_ _L205865_) (let () (declare (not safe)) - (gxc#compile-e__0 _L204703_)))) - (___kont211397211398_ - (lambda (_L204651_ _L204652_ _L204653_) + (gxc#compile-e__0 _L205864_)))) + (___kont212558212559_ + (lambda (_L205812_ _L205813_ _L205814_) (let () (declare (not safe)) - (gxc#compile-e__0 _L204651_)))) - (___kont211401211402_ - (lambda (_L204571_ _L204572_) - (let ((_decls204587_ (map gx#syntax->datum _L204572_))) - (let ((__tmp212813 + (gxc#compile-e__0 _L205812_)))) + (___kont212562212563_ + (lambda (_L205732_ _L205733_) + (let ((_decls205748_ (map gx#syntax->datum _L205733_))) + (let ((__tmp213974 (lambda () - (let ((__tmp212814 - (let ((__tmp212817 + (let ((__tmp213975 + (let ((__tmp213978 (let () (declare (not safe)) - (cons 'declare _decls204587_))) - (__tmp212815 - (let ((__tmp212816 + (cons 'declare _decls205748_))) + (__tmp213976 + (let ((__tmp213977 (let () (declare (not safe)) (gxc#compile-e__0 - _L204571_)))) + _L205732_)))) (declare (not safe)) - (cons __tmp212816 '())))) + (cons __tmp213977 '())))) (declare (not safe)) - (cons __tmp212817 __tmp212815)))) + (cons __tmp213978 __tmp213976)))) (declare (not safe)) - (cons 'begin __tmp212814)))) - (__tmp212811 - (let ((__tmp212812 (gxc#current-compile-decls))) + (cons 'begin __tmp213975)))) + (__tmp213972 + (let ((__tmp213973 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp212812 _decls204587_)))) + (foldr1 cons __tmp213973 _decls205748_)))) (declare (not safe)) (call-with-parameters - __tmp212813 + __tmp213974 gxc#current-compile-decls - __tmp212811)))))) - (let* ((___match211448211449_ - (lambda (_e204508204595_ - _hd204507204598_ - _tl204506204600_ - _e204511204603_ - _hd204510204606_ - _tl204509204608_ - _e204514204611_ - _hd204513204614_ - _tl204512204616_ - ___splice211399211400_ - _target204515204619_ - _tl204517204621_) - (letrec ((_loop204518204624_ - (lambda (_hd204516204627_ - _param204522204629_) + __tmp213972)))))) + (let* ((___match212609212610_ + (lambda (_e205669205756_ + _hd205668205759_ + _tl205667205761_ + _e205672205764_ + _hd205671205767_ + _tl205670205769_ + _e205675205772_ + _hd205674205775_ + _tl205673205777_ + ___splice212560212561_ + _target205676205780_ + _tl205678205782_) + (letrec ((_loop205679205785_ + (lambda (_hd205677205788_ + _param205683205790_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204516204627_)) - (let ((_e204519204632_ + (gx#stx-pair? _hd205677205788_)) + (let ((_e205680205793_ (let () (declare (not safe)) - (gx#stx-e _hd204516204627_)))) - (let ((_lp-tl204521204637_ + (gx#stx-e _hd205677205788_)))) + (let ((_lp-tl205682205798_ (let () (declare (not safe)) - (##cdr _e204519204632_))) - (_lp-hd204520204635_ + (##cdr _e205680205793_))) + (_lp-hd205681205796_ (let () (declare (not safe)) - (##car _e204519204632_)))) - (let ((__tmp212819 + (##car _e205680205793_)))) + (let ((__tmp213980 (let () (declare (not safe)) - (cons _lp-hd204520204635_ - _param204522204629_)))) + (cons _lp-hd205681205796_ + _param205683205790_)))) (declare (not safe)) - (_loop204518204624_ - _lp-tl204521204637_ - __tmp212819)))) - (let ((_param204523204640_ - (reverse _param204522204629_))) + (_loop205679205785_ + _lp-tl205682205798_ + __tmp213980)))) + (let ((_param205684205801_ + (reverse _param205683205790_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl204509204608_)) - (let ((_e204526204643_ + _tl205670205769_)) + (let ((_e205687205804_ (let () (declare (not safe)) (gx#stx-e - _tl204509204608_)))) - (let ((_tl204524204648_ + _tl205670205769_)))) + (let ((_tl205685205809_ (let () (declare (not safe)) - (##cdr _e204526204643_))) - (_hd204525204646_ + (##cdr _e205687205804_))) + (_hd205686205807_ (let () (declare (not safe)) - (##car _e204526204643_)))) + (##car _e205687205804_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204524204648_)) - (let ((_L204651_ - _hd204525204646_) - (_L204652_ - _param204523204640_) - (_L204653_ - _hd204513204614_)) + _tl205685205809_)) + (let ((_L205812_ + _hd205686205807_) + (_L205813_ + _param205684205801_) + (_L205814_ + _hd205674205775_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L204653_)) - (let ((__tmp212818 + (gx#identifier? _L205814_)) + (let ((__tmp213979 (memq (let () (declare (not safe)) - (gx#stx-e _L204653_)) + (gx#stx-e _L205814_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp212818))) - (___kont211397211398_ _L204651_ _L204652_ _L204653_) - (___kont211401211402_ _hd204525204646_ _hd204510204606_))) - (let () (declare (not safe)) (_g204490204542_))))) + (not __tmp213979))) + (___kont212558212559_ _L205812_ _L205813_ _L205814_) + (___kont212562212563_ _hd205686205807_ _hd205671205767_))) + (let () (declare (not safe)) (_g205651205703_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g204490204542_)))))))) + (_g205651205703_)))))))) (let () (declare (not safe)) - (_loop204518204624_ _target204515204619_ '()))))) - (___match211422211423_ - (lambda (_e204496204679_ - _hd204495204682_ - _tl204494204684_ - _e204499204687_ - _hd204498204690_ - _tl204497204692_ - _e204502204695_ - _hd204501204698_ - _tl204500204700_) - (let ((_L204703_ _hd204501204698_) - (_L204704_ _hd204498204690_)) + (_loop205679205785_ _target205676205780_ '()))))) + (___match212583212584_ + (lambda (_e205657205840_ + _hd205656205843_ + _tl205655205845_ + _e205660205848_ + _hd205659205851_ + _tl205658205853_ + _e205663205856_ + _hd205662205859_ + _tl205661205861_) + (let ((_L205864_ _hd205662205859_) + (_L205865_ _hd205659205851_)) (if (let () (declare (not safe)) - (gx#identifier? _L204704_)) - (___kont211395211396_ _L204703_ _L204704_) + (gx#identifier? _L205865_)) + (___kont212556212557_ _L205864_ _L205865_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204498204690_)) - (let ((_e204514204611_ + (gx#stx-pair? _hd205659205851_)) + (let ((_e205675205772_ (let () (declare (not safe)) - (gx#stx-e _hd204498204690_)))) - (let ((_tl204512204616_ + (gx#stx-e _hd205659205851_)))) + (let ((_tl205673205777_ (let () (declare (not safe)) - (##cdr _e204514204611_))) - (_hd204513204614_ + (##cdr _e205675205772_))) + (_hd205674205775_ (let () (declare (not safe)) - (##car _e204514204611_)))) + (##car _e205675205772_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl204512204616_)) - (let ((___splice211399211400_ + _tl205673205777_)) + (let ((___splice212560212561_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl204512204616_ + _tl205673205777_ '0)))) - (let ((_tl204517204621_ + (let ((_tl205678205782_ (let () (declare (not safe)) (##vector-ref - ___splice211399211400_ + ___splice212560212561_ '1))) - (_target204515204619_ + (_target205676205780_ (let () (declare (not safe)) (##vector-ref - ___splice211399211400_ + ___splice212560212561_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204517204621_)) - (___match211448211449_ - _e204496204679_ - _hd204495204682_ - _tl204494204684_ - _e204499204687_ - _hd204498204690_ - _tl204497204692_ - _e204514204611_ - _hd204513204614_ - _tl204512204616_ - ___splice211399211400_ - _target204515204619_ - _tl204517204621_) - (___kont211401211402_ - _hd204501204698_ - _hd204498204690_)))) - (___kont211401211402_ - _hd204501204698_ - _hd204498204690_)))) - (___kont211401211402_ - _hd204501204698_ - _hd204498204690_))))))) + _tl205678205782_)) + (___match212609212610_ + _e205657205840_ + _hd205656205843_ + _tl205655205845_ + _e205660205848_ + _hd205659205851_ + _tl205658205853_ + _e205675205772_ + _hd205674205775_ + _tl205673205777_ + ___splice212560212561_ + _target205676205780_ + _tl205678205782_) + (___kont212562212563_ + _hd205662205859_ + _hd205659205851_)))) + (___kont212562212563_ + _hd205662205859_ + _hd205659205851_)))) + (___kont212562212563_ + _hd205662205859_ + _hd205659205851_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211393211394_)) - (let ((_e204496204679_ + (gx#stx-pair? ___stx212554212555_)) + (let ((_e205657205840_ (let () (declare (not safe)) - (gx#stx-e ___stx211393211394_)))) - (let ((_tl204494204684_ + (gx#stx-e ___stx212554212555_)))) + (let ((_tl205655205845_ (let () (declare (not safe)) - (##cdr _e204496204679_))) - (_hd204495204682_ + (##cdr _e205657205840_))) + (_hd205656205843_ (let () (declare (not safe)) - (##car _e204496204679_)))) + (##car _e205657205840_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204494204684_)) - (let ((_e204499204687_ + (gx#stx-pair? _tl205655205845_)) + (let ((_e205660205848_ (let () (declare (not safe)) - (gx#stx-e _tl204494204684_)))) - (let ((_tl204497204692_ + (gx#stx-e _tl205655205845_)))) + (let ((_tl205658205853_ (let () (declare (not safe)) - (##cdr _e204499204687_))) - (_hd204498204690_ + (##cdr _e205660205848_))) + (_hd205659205851_ (let () (declare (not safe)) - (##car _e204499204687_)))) + (##car _e205660205848_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204497204692_)) - (let ((_e204502204695_ + (gx#stx-pair? _tl205658205853_)) + (let ((_e205663205856_ (let () (declare (not safe)) - (gx#stx-e _tl204497204692_)))) - (let ((_tl204500204700_ + (gx#stx-e _tl205658205853_)))) + (let ((_tl205661205861_ (let () (declare (not safe)) - (##cdr _e204502204695_))) - (_hd204501204698_ + (##cdr _e205663205856_))) + (_hd205662205859_ (let () (declare (not safe)) - (##car _e204502204695_)))) + (##car _e205663205856_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204500204700_)) - (___match211422211423_ - _e204496204679_ - _hd204495204682_ - _tl204494204684_ - _e204499204687_ - _hd204498204690_ - _tl204497204692_ - _e204502204695_ - _hd204501204698_ - _tl204500204700_) + (gx#stx-null? _tl205661205861_)) + (___match212583212584_ + _e205657205840_ + _hd205656205843_ + _tl205655205845_ + _e205660205848_ + _hd205659205851_ + _tl205658205853_ + _e205663205856_ + _hd205662205859_ + _tl205661205861_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd204498204690_)) - (let ((_e204514204611_ + _hd205659205851_)) + (let ((_e205675205772_ (let () (declare (not safe)) (gx#stx-e - _hd204498204690_)))) - (let ((_tl204512204616_ + _hd205659205851_)))) + (let ((_tl205673205777_ (let () (declare (not safe)) - (##cdr _e204514204611_))) - (_hd204513204614_ + (##cdr _e205675205772_))) + (_hd205674205775_ (let () (declare (not safe)) - (##car _e204514204611_)))) + (##car _e205675205772_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl204512204616_)) - (let ((___splice211399211400_ + _tl205673205777_)) + (let ((___splice212560212561_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl204512204616_ '0)))) - (let ((_tl204517204621_ + (gx#syntax-split-splice _tl205673205777_ '0)))) + (let ((_tl205678205782_ (let () (declare (not safe)) - (##vector-ref ___splice211399211400_ '1))) - (_target204515204619_ + (##vector-ref ___splice212560212561_ '1))) + (_target205676205780_ (let () (declare (not safe)) - (##vector-ref ___splice211399211400_ '0)))) + (##vector-ref ___splice212560212561_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204517204621_)) - (___match211448211449_ - _e204496204679_ - _hd204495204682_ - _tl204494204684_ - _e204499204687_ - _hd204498204690_ - _tl204497204692_ - _e204514204611_ - _hd204513204614_ - _tl204512204616_ - ___splice211399211400_ - _target204515204619_ - _tl204517204621_) - (let () (declare (not safe)) (_g204490204542_))))) - (let () (declare (not safe)) (_g204490204542_))))) + (gx#stx-null? _tl205678205782_)) + (___match212609212610_ + _e205657205840_ + _hd205656205843_ + _tl205655205845_ + _e205660205848_ + _hd205659205851_ + _tl205658205853_ + _e205675205772_ + _hd205674205775_ + _tl205673205777_ + ___splice212560212561_ + _target205676205780_ + _tl205678205782_) + (let () (declare (not safe)) (_g205651205703_))))) + (let () (declare (not safe)) (_g205651205703_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g204490204542_)))))) + (_g205651205703_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd204498204690_)) - (let ((_e204514204611_ + (gx#stx-pair? _hd205659205851_)) + (let ((_e205675205772_ (let () (declare (not safe)) - (gx#stx-e _hd204498204690_)))) - (let ((_tl204512204616_ + (gx#stx-e _hd205659205851_)))) + (let ((_tl205673205777_ (let () (declare (not safe)) - (##cdr _e204514204611_))) - (_hd204513204614_ + (##cdr _e205675205772_))) + (_hd205674205775_ (let () (declare (not safe)) - (##car _e204514204611_)))) + (##car _e205675205772_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl204512204616_)) - (let ((___splice211399211400_ + _tl205673205777_)) + (let ((___splice212560212561_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl204512204616_ + _tl205673205777_ '0)))) - (let ((_tl204517204621_ + (let ((_tl205678205782_ (let () (declare (not safe)) (##vector-ref - ___splice211399211400_ + ___splice212560212561_ '1))) - (_target204515204619_ + (_target205676205780_ (let () (declare (not safe)) (##vector-ref - ___splice211399211400_ + ___splice212560212561_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204517204621_)) - (___match211448211449_ - _e204496204679_ - _hd204495204682_ - _tl204494204684_ - _e204499204687_ - _hd204498204690_ - _tl204497204692_ - _e204514204611_ - _hd204513204614_ - _tl204512204616_ - ___splice211399211400_ - _target204515204619_ - _tl204517204621_) + _tl205678205782_)) + (___match212609212610_ + _e205657205840_ + _hd205656205843_ + _tl205655205845_ + _e205660205848_ + _hd205659205851_ + _tl205658205853_ + _e205675205772_ + _hd205674205775_ + _tl205673205777_ + ___splice212560212561_ + _target205676205780_ + _tl205678205782_) (let () (declare (not safe)) - (_g204490204542_))))) + (_g205651205703_))))) (let () (declare (not safe)) - (_g204490204542_))))) + (_g205651205703_))))) (let () (declare (not safe)) - (_g204490204542_)))))) - (let () (declare (not safe)) (_g204490204542_))))) - (let () (declare (not safe)) (_g204490204542_)))))))) + (_g205651205703_)))))) + (let () (declare (not safe)) (_g205651205703_))))) + (let () (declare (not safe)) (_g205651205703_)))))))) (define gxc#generate-runtime-declare% - (lambda (_stx204446_) - (let* ((_g204448204458_ - (lambda (_g204449204455_) + (lambda (_stx205607_) + (let* ((_g205609205619_ + (lambda (_g205610205616_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g204449204455_)))) - (_g204447204483_ - (lambda (_g204449204461_) + _g205610205616_)))) + (_g205608205644_ + (lambda (_g205610205622_) (if (let () (declare (not safe)) - (gx#stx-pair? _g204449204461_)) - (let ((_e204453204463_ + (gx#stx-pair? _g205610205622_)) + (let ((_e205614205624_ (let () (declare (not safe)) - (gx#stx-e _g204449204461_)))) - (let ((_hd204452204466_ + (gx#stx-e _g205610205622_)))) + (let ((_hd205613205627_ (let () (declare (not safe)) - (##car _e204453204463_))) - (_tl204451204468_ + (##car _e205614205624_))) + (_tl205612205629_ (let () (declare (not safe)) - (##cdr _e204453204463_)))) - ((lambda (_L204471_) - (let ((_decls204481_ - (map gx#syntax->datum _L204471_))) + (##cdr _e205614205624_)))) + ((lambda (_L205632_) + (let ((_decls205642_ + (map gx#syntax->datum _L205632_))) (gxc#current-compile-decls - (let ((__tmp212820 + (let ((__tmp213981 (gxc#current-compile-decls))) (declare (not safe)) - (foldr1 cons __tmp212820 _decls204481_))) + (foldr1 cons __tmp213981 _decls205642_))) (let () (declare (not safe)) - (cons 'declare _decls204481_)))) - _tl204451204468_))) + (cons 'declare _decls205642_)))) + _tl205612205629_))) (let () (declare (not safe)) - (_g204448204458_ _g204449204461_)))))) + (_g205609205619_ _g205610205622_)))))) (declare (not safe)) - (_g204447204483_ _stx204446_)))) + (_g205608205644_ _stx205607_)))) (define gxc#generate-runtime-define-values% - (lambda (_stx204193_) - (let* ((_g204195204212_ - (lambda (_g204196204209_) + (lambda (_stx205354_) + (let* ((_g205356205373_ + (lambda (_g205357205370_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g204196204209_)))) - (_g204194204443_ - (lambda (_g204196204215_) + _g205357205370_)))) + (_g205355205604_ + (lambda (_g205357205376_) (if (let () (declare (not safe)) - (gx#stx-pair? _g204196204215_)) - (let ((_e204201204217_ + (gx#stx-pair? _g205357205376_)) + (let ((_e205362205378_ (let () (declare (not safe)) - (gx#stx-e _g204196204215_)))) - (let ((_hd204200204220_ + (gx#stx-e _g205357205376_)))) + (let ((_hd205361205381_ (let () (declare (not safe)) - (##car _e204201204217_))) - (_tl204199204222_ + (##car _e205362205378_))) + (_tl205360205383_ (let () (declare (not safe)) - (##cdr _e204201204217_)))) + (##cdr _e205362205378_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204199204222_)) - (let ((_e204204204225_ + (gx#stx-pair? _tl205360205383_)) + (let ((_e205365205386_ (let () (declare (not safe)) - (gx#stx-e _tl204199204222_)))) - (let ((_hd204203204228_ + (gx#stx-e _tl205360205383_)))) + (let ((_hd205364205389_ (let () (declare (not safe)) - (##car _e204204204225_))) - (_tl204202204230_ + (##car _e205365205386_))) + (_tl205363205391_ (let () (declare (not safe)) - (##cdr _e204204204225_)))) + (##cdr _e205365205386_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204202204230_)) - (let ((_e204207204233_ + (gx#stx-pair? _tl205363205391_)) + (let ((_e205368205394_ (let () (declare (not safe)) - (gx#stx-e _tl204202204230_)))) - (let ((_hd204206204236_ + (gx#stx-e _tl205363205391_)))) + (let ((_hd205367205397_ (let () (declare (not safe)) - (##car _e204207204233_))) - (_tl204205204238_ + (##car _e205368205394_))) + (_tl205366205399_ (let () (declare (not safe)) - (##cdr _e204207204233_)))) + (##cdr _e205368205394_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204205204238_)) - ((lambda (_L204241_ _L204242_) - (let* ((___stx211501211502_ - _L204242_) - (_g204259204273_ + _tl205366205399_)) + ((lambda (_L205402_ _L205403_) + (let* ((___stx212662212663_ + _L205403_) + (_g205420205434_ (lambda () (let () (declare @@ -4641,10605 +4641,10605 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211501211502_))))) + ___stx212662212663_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___kont211503211504_ + (let ((___kont212664212665_ (lambda () (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L204241_)))) - (___kont211505211506_ - (lambda (_L204405_) - (let ((_eid204414_ + (gxc#compile-e__0 _L205402_)))) + (___kont212666212667_ + (lambda (_L205566_) + (let ((_eid205575_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L204405_)))) - (let ((_lambda-expr204415204417_ + (gxc#generate-runtime-binding-id _L205566_)))) + (let ((_lambda-expr205576205578_ (let () (declare (not safe)) (gxc#apply-find-lambda-expression - _L204241_)))) - (if _lambda-expr204415204417_ - (let* ((_lambda-expr204420_ - _lambda-expr204415204417_) - (__tmp212821 + _L205402_)))) + (if _lambda-expr205576205578_ + (let* ((_lambda-expr205581_ + _lambda-expr205576205578_) + (__tmp213982 (gxc#current-compile-runtime-names))) (declare (not safe)) (table-set! - __tmp212821 - _lambda-expr204420_ - _eid204414_)) + __tmp213982 + _lambda-expr205581_ + _eid205575_)) '#f)) - (let ((__tmp212822 - (let ((__tmp212823 - (let ((__tmp212824 + (let ((__tmp213983 + (let ((__tmp213984 + (let ((__tmp213985 (let () (declare (not safe)) - (gxc#compile-e__0 _L204241_)))) + (gxc#compile-e__0 _L205402_)))) (declare (not safe)) - (cons __tmp212824 '())))) + (cons __tmp213985 '())))) (declare (not safe)) - (cons _eid204414_ __tmp212823)))) + (cons _eid205575_ __tmp213984)))) (declare (not safe)) - (cons 'define __tmp212822))))) - (___kont211507211508_ + (cons 'define __tmp213983))))) + (___kont212668212669_ (lambda () - (let* ((_tmp204280_ + (let* ((_tmp205441_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_body204389_ - (let _lp204282_ ((_rest204284_ _L204242_) - (_k204285_ '0) - (_r204286_ '())) - (let* ((___stx211471211472_ _rest204284_) - (_g204291204308_ + (_body205550_ + (let _lp205443_ ((_rest205445_ _L205403_) + (_k205446_ '0) + (_r205447_ '())) + (let* ((___stx212632212633_ _rest205445_) + (_g205452205469_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211471211472_))))) - (let ((___kont211473211474_ - (lambda (_L204376_) - (let ((__tmp212825 + ___stx212632212633_))))) + (let ((___kont212634212635_ + (lambda (_L205537_) + (let ((__tmp213986 (let () (declare (not safe)) - (fx+ _k204285_ '1)))) + (fx+ _k205446_ '1)))) (declare (not safe)) - (_lp204282_ - _L204376_ - __tmp212825 - _r204286_)))) - (___kont211475211476_ - (lambda (_L204349_ _L204350_) - (let ((__tmp212832 + (_lp205443_ + _L205537_ + __tmp213986 + _r205447_)))) + (___kont212636212637_ + (lambda (_L205510_ _L205511_) + (let ((__tmp213993 (let () (declare (not safe)) - (fx+ _k204285_ '1))) - (__tmp212826 - (let ((__tmp212827 - (let ((__tmp212828 - (let ((__tmp212831 + (fx+ _k205446_ '1))) + (__tmp213987 + (let ((__tmp213988 + (let ((__tmp213989 + (let ((__tmp213992 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L204350_))) - (__tmp212829 - (let ((__tmp212830 + (gxc#generate-runtime-binding-id _L205511_))) + (__tmp213990 + (let ((__tmp213991 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _tmp204280_ - _k204285_ - _L204349_)))) + _tmp205441_ + _k205446_ + _L205510_)))) (declare (not safe)) - (cons __tmp212830 '())))) + (cons __tmp213991 '())))) (declare (not safe)) - (cons __tmp212831 __tmp212829)))) + (cons __tmp213992 __tmp213990)))) (declare (not safe)) - (cons 'define __tmp212828)))) + (cons 'define __tmp213989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp212827 - _r204286_)))) + (cons __tmp213988 + _r205447_)))) (declare (not safe)) - (_lp204282_ - _L204349_ - __tmp212832 - __tmp212826)))) - (___kont211477211478_ - (lambda (_L204320_) - (let ((__tmp212833 - (let ((__tmp212834 - (let ((__tmp212835 - (let ((__tmp212838 + (_lp205443_ + _L205510_ + __tmp213993 + __tmp213987)))) + (___kont212638212639_ + (lambda (_L205481_) + (let ((__tmp213994 + (let ((__tmp213995 + (let ((__tmp213996 + (let ((__tmp213999 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L204320_))) - (__tmp212836 - (let ((__tmp212837 + (gxc#generate-runtime-binding-id _L205481_))) + (__tmp213997 + (let ((__tmp213998 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _tmp204280_ - _k204285_)))) + _tmp205441_ + _k205446_)))) (declare (not safe)) - (cons __tmp212837 '())))) + (cons __tmp213998 '())))) (declare (not safe)) - (cons __tmp212838 __tmp212836)))) + (cons __tmp213999 __tmp213997)))) (declare (not safe)) - (cons 'define __tmp212835)))) + (cons 'define __tmp213996)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp212834 '())))) + (cons __tmp213995 '())))) (declare (not safe)) (foldl1 cons - __tmp212833 - _r204286_)))) - (___kont211479211480_ - (lambda () (reverse _r204286_)))) - (let ((_g204289204336_ + __tmp213994 + _r205447_)))) + (___kont212640212641_ + (lambda () (reverse _r205447_)))) + (let ((_g205450205497_ (lambda () - (let ((_L204320_ - ___stx211471211472_)) + (let ((_L205481_ + ___stx212632212633_)) (if (let () (declare (not safe)) (gx#identifier? - _L204320_)) - (___kont211477211478_ - _L204320_) - (___kont211479211480_)))))) + _L205481_)) + (___kont212638212639_ + _L205481_) + (___kont212640212641_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211471211472_)) - (let ((_e204296204365_ + (gx#stx-pair? ___stx212632212633_)) + (let ((_e205457205526_ (let () (declare (not safe)) (gx#stx-e - ___stx211471211472_)))) - (let ((_tl204294204370_ + ___stx212632212633_)))) + (let ((_tl205455205531_ (let () (declare (not safe)) - (##cdr _e204296204365_))) - (_hd204295204368_ + (##cdr _e205457205526_))) + (_hd205456205529_ (let () (declare (not safe)) - (##car _e204296204365_)))) + (##car _e205457205526_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd204295204368_)) - (let ((_e204297204373_ + _hd205456205529_)) + (let ((_e205458205534_ (let () (declare (not safe)) (gx#stx-e - _hd204295204368_)))) + _hd205456205529_)))) (if (let () (declare (not safe)) - (equal? _e204297204373_ + (equal? _e205458205534_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (___kont211473211474_ _tl204294204370_) - (___kont211475211476_ _tl204294204370_ _hd204295204368_))) + (___kont212634212635_ _tl205455205531_) + (___kont212636212637_ _tl205455205531_ _hd205456205529_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont211475211476_ - _tl204294204370_ - _hd204295204368_)))) + (___kont212636212637_ + _tl205455205531_ + _hd205456205529_)))) (let () (declare (not safe)) - (_g204289204336_))))))))) - (let ((__tmp212839 - (let ((__tmp212842 - (let ((__tmp212843 - (let ((__tmp212844 - (let ((__tmp212845 + (_g205450205497_))))))))) + (let ((__tmp214000 + (let ((__tmp214003 + (let ((__tmp214004 + (let ((__tmp214005 + (let ((__tmp214006 (let () (declare (not safe)) (gxc#compile-e__0 - _L204241_)))) + _L205402_)))) (declare (not safe)) - (cons __tmp212845 '())))) + (cons __tmp214006 '())))) (declare (not safe)) - (cons _tmp204280_ - __tmp212844)))) + (cons _tmp205441_ + __tmp214005)))) (declare (not safe)) - (cons 'define __tmp212843))) - (__tmp212840 - (let ((__tmp212841 + (cons 'define __tmp214004))) + (__tmp214001 + (let ((__tmp214002 (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp204280_ - _L204242_ - _L204241_)))) + _tmp205441_ + _L205403_ + _L205402_)))) (declare (not safe)) - (cons __tmp212841 _body204389_)))) + (cons __tmp214002 _body205550_)))) (declare (not safe)) - (cons __tmp212842 __tmp212840)))) + (cons __tmp214003 __tmp214001)))) (declare (not safe)) - (cons 'begin __tmp212839)))))) + (cons 'begin __tmp214000)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211501211502_)) - (let ((_e204263204427_ + (gx#stx-pair? ___stx212662212663_)) + (let ((_e205424205588_ (let () (declare (not safe)) - (gx#stx-e ___stx211501211502_)))) - (let ((_tl204261204432_ + (gx#stx-e ___stx212662212663_)))) + (let ((_tl205422205593_ (let () (declare (not safe)) - (##cdr _e204263204427_))) - (_hd204262204430_ + (##cdr _e205424205588_))) + (_hd205423205591_ (let () (declare (not safe)) - (##car _e204263204427_)))) + (##car _e205424205588_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd204262204430_)) - (let ((_e204264204435_ + (gx#stx-datum? _hd205423205591_)) + (let ((_e205425205596_ (let () (declare (not safe)) - (gx#stx-e _hd204262204430_)))) + (gx#stx-e _hd205423205591_)))) (if (let () (declare (not safe)) - (equal? _e204264204435_ '#f)) + (equal? _e205425205596_ '#f)) (if (let () (declare (not safe)) - (gx#stx-null? _tl204261204432_)) - (___kont211503211504_) - (___kont211507211508_)) + (gx#stx-null? _tl205422205593_)) + (___kont212664212665_) + (___kont212668212669_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl204261204432_)) - (___kont211505211506_ _hd204262204430_) - (___kont211507211508_)))) + (gx#stx-null? _tl205422205593_)) + (___kont212666212667_ _hd205423205591_) + (___kont212668212669_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl204261204432_)) - (___kont211505211506_ _hd204262204430_) - (___kont211507211508_))))) - (___kont211507211508_))))) + (gx#stx-null? _tl205422205593_)) + (___kont212666212667_ _hd205423205591_) + (___kont212668212669_))))) + (___kont212668212669_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd204206204236_ - _hd204203204228_) + _hd205367205397_ + _hd205364205389_) (let () (declare (not safe)) - (_g204195204212_ - _g204196204215_))))) + (_g205356205373_ + _g205357205376_))))) (let () (declare (not safe)) - (_g204195204212_ _g204196204215_))))) + (_g205356205373_ _g205357205376_))))) (let () (declare (not safe)) - (_g204195204212_ _g204196204215_))))) + (_g205356205373_ _g205357205376_))))) (let () (declare (not safe)) - (_g204195204212_ _g204196204215_)))))) + (_g205356205373_ _g205357205376_)))))) (declare (not safe)) - (_g204194204443_ _stx204193_)))) + (_g205355205604_ _stx205354_)))) (define gxc#generate-runtime-check-values - (lambda (_vals204169_ _hd204170_ _expr204171_) - (let ((_$e204173_ + (lambda (_vals205330_ _hd205331_ _expr205332_) + (let ((_$e205334_ (let () (declare (not safe)) - (gxc#apply-count-values _expr204171_)))) - (if _$e204173_ - ((lambda (_count204176_) - (let ((_len204178_ + (gxc#apply-count-values _expr205332_)))) + (if _$e205334_ + ((lambda (_count205337_) + (let ((_len205339_ (let () (declare (not safe)) - (gx#stx-length _hd204170_))) - (_cmp204179_ + (gx#stx-length _hd205331_))) + (_cmp205340_ (if (let () (declare (not safe)) - (gx#stx-list? _hd204170_)) + (gx#stx-list? _hd205331_)) fx= fx>=))) - (if (or (fx= _len204178_ '0) - (_cmp204179_ _count204176_ _len204178_)) + (if (or (fx= _len205339_ '0) + (_cmp205340_ _count205337_ _len205339_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _expr204171_ - _hd204170_))))) - _$e204173_) - (let* ((_len204184_ + _expr205332_ + _hd205331_))))) + _$e205334_) + (let* ((_len205345_ (let () (declare (not safe)) - (gx#stx-length _hd204170_))) - (_cmp204186_ + (gx#stx-length _hd205331_))) + (_cmp205347_ (if (let () (declare (not safe)) - (gx#stx-list? _hd204170_)) + (gx#stx-list? _hd205331_)) '##fx= '##fx>=)) - (_errmsg204188_ + (_errmsg205349_ (string-append (if (let () (declare (not safe)) - (gx#stx-list? _hd204170_)) + (gx#stx-list? _hd205331_)) '"Context expects " '"Context expects at least ") - (number->string _len204184_) + (number->string _len205345_) '" values")) - (_count204190_ + (_count205351_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) - (if (and (let ((__tmp212869 + (if (and (let ((__tmp214030 (let () (declare (not safe)) - (gx#stx-list? _hd204170_)))) + (gx#stx-list? _hd205331_)))) (declare (not safe)) - (not __tmp212869)) - (fx= _len204184_ '0)) + (not __tmp214030)) + (fx= _len205345_ '0)) '#!void - (let ((__tmp212846 - (let ((__tmp212865 - (let ((__tmp212866 - (let ((__tmp212867 - (let ((__tmp212868 + (let ((__tmp214007 + (let ((__tmp214026 + (let ((__tmp214027 + (let ((__tmp214028 + (let ((__tmp214029 (let () (declare (not safe)) (gxc#generate-runtime-values-count - _vals204169_)))) + _vals205330_)))) (declare (not safe)) - (cons __tmp212868 '())))) + (cons __tmp214029 '())))) (declare (not safe)) - (cons _count204190_ - __tmp212867)))) + (cons _count205351_ + __tmp214028)))) (declare (not safe)) - (cons __tmp212866 '()))) - (__tmp212847 - (let ((__tmp212848 - (let ((__tmp212849 - (let ((__tmp212854 - (let ((__tmp212855 - (let ((__tmp212856 + (cons __tmp214027 '()))) + (__tmp214008 + (let ((__tmp214009 + (let ((__tmp214010 + (let ((__tmp214015 + (let ((__tmp214016 + (let ((__tmp214017 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp212863 - (let ((__tmp212864 + (let ((__tmp214024 + (let ((__tmp214025 (let () (declare (not safe)) - (cons _len204184_ '())))) + (cons _len205345_ '())))) (declare (not safe)) - (cons _count204190_ __tmp212864)))) + (cons _count205351_ __tmp214025)))) (declare (not safe)) - (cons _cmp204186_ __tmp212863)) - (let ((__tmp212857 - (let ((__tmp212858 - (let ((__tmp212859 - (let ((__tmp212860 - (let ((__tmp212861 + (cons _cmp205347_ __tmp214024)) + (let ((__tmp214018 + (let ((__tmp214019 + (let ((__tmp214020 + (let ((__tmp214021 + (let ((__tmp214022 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp212862 + (let ((__tmp214023 (let () (declare (not safe)) - (cons _len204184_ '())))) + (cons _len205345_ '())))) (declare (not safe)) - (cons _count204190_ __tmp212862)))) + (cons _count205351_ __tmp214023)))) (declare (not safe)) - (cons _cmp204186_ __tmp212861)))) + (cons _cmp205347_ __tmp214022)))) (declare (not safe)) - (cons __tmp212860 '())))) + (cons __tmp214021 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp212859)))) + __tmp214020)))) (declare (not safe)) - (cons '() __tmp212858)))) + (cons '() __tmp214019)))) (declare (not safe)) - (cons 'let __tmp212857))))) + (cons 'let __tmp214018))))) (declare (not safe)) - (cons __tmp212856 '())))) + (cons __tmp214017 '())))) (declare (not safe)) - (cons 'not __tmp212855))) - (__tmp212850 - (let ((__tmp212851 - (let ((__tmp212852 - (let ((__tmp212853 + (cons 'not __tmp214016))) + (__tmp214011 + (let ((__tmp214012 + (let ((__tmp214013 + (let ((__tmp214014 (let () (declare (not safe)) - (cons _count204190_ '())))) + (cons _count205351_ '())))) (declare (not safe)) - (cons _errmsg204188_ __tmp212853)))) + (cons _errmsg205349_ __tmp214014)))) (declare (not safe)) - (cons 'error __tmp212852)))) + (cons 'error __tmp214013)))) (declare (not safe)) - (cons __tmp212851 '())))) + (cons __tmp214012 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp212854 - __tmp212850)))) + (cons __tmp214015 + __tmp214011)))) (declare (not safe)) - (cons 'if __tmp212849)))) + (cons 'if __tmp214010)))) (declare (not safe)) - (cons __tmp212848 '())))) + (cons __tmp214009 '())))) (declare (not safe)) - (cons __tmp212865 __tmp212847)))) + (cons __tmp214026 __tmp214008)))) (declare (not safe)) - (cons 'let __tmp212846)))))))) + (cons 'let __tmp214007)))))))) (define gxc#generate-runtime-values-count - (lambda (_var204164_) - (letrec ((_generate-inline204166_ + (lambda (_var205325_) + (letrec ((_generate-inline205327_ (lambda () - (let ((__tmp212870 - (let ((__tmp212875 - (let ((__tmp212876 + (let ((__tmp214031 + (let ((__tmp214036 + (let ((__tmp214037 (let () (declare (not safe)) - (cons _var204164_ '())))) + (cons _var205325_ '())))) (declare (not safe)) - (cons '##values? __tmp212876))) - (__tmp212871 - (let ((__tmp212873 - (let ((__tmp212874 + (cons '##values? __tmp214037))) + (__tmp214032 + (let ((__tmp214034 + (let ((__tmp214035 (let () (declare (not safe)) - (cons _var204164_ '())))) + (cons _var205325_ '())))) (declare (not safe)) (cons '##vector-length - __tmp212874))) - (__tmp212872 + __tmp214035))) + (__tmp214033 (let () (declare (not safe)) (cons '1 '())))) (declare (not safe)) - (cons __tmp212873 __tmp212872)))) + (cons __tmp214034 __tmp214033)))) (declare (not safe)) - (cons __tmp212875 __tmp212871)))) + (cons __tmp214036 __tmp214032)))) (declare (not safe)) - (cons 'if __tmp212870))))) + (cons 'if __tmp214031))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline204166_)) - (let ((__tmp212877 - (let ((__tmp212878 - (let ((__tmp212879 - (let ((__tmp212880 + (let () (declare (not safe)) (_generate-inline205327_)) + (let ((__tmp214038 + (let ((__tmp214039 + (let ((__tmp214040 + (let ((__tmp214041 (let () (declare (not safe)) - (_generate-inline204166_)))) + (_generate-inline205327_)))) (declare (not safe)) - (cons __tmp212880 '())))) + (cons __tmp214041 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp212879)))) + (cons '(declare (not safe)) __tmp214040)))) (declare (not safe)) - (cons '() __tmp212878)))) + (cons '() __tmp214039)))) (declare (not safe)) - (cons 'let __tmp212877)))))) + (cons 'let __tmp214038)))))) (define gxc#generate-runtime-values-ref - (lambda (_var204157_ _i204158_ _rest204159_) - (letrec ((_generate-inline204161_ + (lambda (_var205318_ _i205319_ _rest205320_) + (letrec ((_generate-inline205322_ (lambda () - (if (and (fx= _i204158_ '0) - (let ((__tmp212891 + (if (and (fx= _i205319_ '0) + (let ((__tmp214052 (let () (declare (not safe)) - (gx#stx-pair? _rest204159_)))) + (gx#stx-pair? _rest205320_)))) (declare (not safe)) - (not __tmp212891))) - (let ((__tmp212883 - (let ((__tmp212889 - (let ((__tmp212890 + (not __tmp214052))) + (let ((__tmp214044 + (let ((__tmp214050 + (let ((__tmp214051 (let () (declare (not safe)) - (cons _var204157_ '())))) + (cons _var205318_ '())))) (declare (not safe)) - (cons '##values? __tmp212890))) - (__tmp212884 - (let ((__tmp212886 - (let ((__tmp212887 - (let ((__tmp212888 + (cons '##values? __tmp214051))) + (__tmp214045 + (let ((__tmp214047 + (let ((__tmp214048 + (let ((__tmp214049 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _var204157_ __tmp212888)))) + (cons _var205318_ __tmp214049)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp212887))) - (__tmp212885 + __tmp214048))) + (__tmp214046 (let () (declare (not safe)) - (cons _var204157_ '())))) + (cons _var205318_ '())))) (declare (not safe)) - (cons __tmp212886 __tmp212885)))) + (cons __tmp214047 __tmp214046)))) (declare (not safe)) - (cons __tmp212889 __tmp212884)))) + (cons __tmp214050 __tmp214045)))) (declare (not safe)) - (cons 'if __tmp212883)) - (let ((__tmp212881 - (let ((__tmp212882 + (cons 'if __tmp214044)) + (let ((__tmp214042 + (let ((__tmp214043 (let () (declare (not safe)) - (cons _i204158_ '())))) + (cons _i205319_ '())))) (declare (not safe)) - (cons _var204157_ __tmp212882)))) + (cons _var205318_ __tmp214043)))) (declare (not safe)) - (cons '##vector-ref __tmp212881)))))) + (cons '##vector-ref __tmp214042)))))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let () (declare (not safe)) (_generate-inline204161_)) - (let ((__tmp212892 - (let ((__tmp212893 - (let ((__tmp212894 - (let ((__tmp212895 + (let () (declare (not safe)) (_generate-inline205322_)) + (let ((__tmp214053 + (let ((__tmp214054 + (let ((__tmp214055 + (let ((__tmp214056 (let () (declare (not safe)) - (_generate-inline204161_)))) + (_generate-inline205322_)))) (declare (not safe)) - (cons __tmp212895 '())))) + (cons __tmp214056 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp212894)))) + (cons '(declare (not safe)) __tmp214055)))) (declare (not safe)) - (cons '() __tmp212893)))) + (cons '() __tmp214054)))) (declare (not safe)) - (cons 'let __tmp212892)))))) + (cons 'let __tmp214053)))))) (define gxc#generate-runtime-values->list - (lambda (_var204154_ _i204155_) - (if (fx= _i204155_ '0) + (lambda (_var205315_ _i205316_) + (if (fx= _i205316_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp212943 - (let ((__tmp212950 - (let ((__tmp212951 + (let ((__tmp214104 + (let ((__tmp214111 + (let ((__tmp214112 (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##values? __tmp212951))) - (__tmp212944 - (let ((__tmp212948 - (let ((__tmp212949 + (cons '##values? __tmp214112))) + (__tmp214105 + (let ((__tmp214109 + (let ((__tmp214110 (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##vector->list __tmp212949))) - (__tmp212945 - (let ((__tmp212946 - (let ((__tmp212947 + (cons '##vector->list __tmp214110))) + (__tmp214106 + (let ((__tmp214107 + (let ((__tmp214108 (let () (declare (not safe)) - (cons _var204154_ + (cons _var205315_ '())))) (declare (not safe)) - (cons 'list __tmp212947)))) + (cons 'list __tmp214108)))) (declare (not safe)) - (cons __tmp212946 '())))) + (cons __tmp214107 '())))) (declare (not safe)) - (cons __tmp212948 __tmp212945)))) + (cons __tmp214109 __tmp214106)))) (declare (not safe)) - (cons __tmp212950 __tmp212944)))) + (cons __tmp214111 __tmp214105)))) (declare (not safe)) - (cons 'if __tmp212943)) - (let ((__tmp212930 - (let ((__tmp212931 - (let ((__tmp212932 - (let ((__tmp212933 - (let ((__tmp212934 - (let ((__tmp212941 - (let ((__tmp212942 + (cons 'if __tmp214104)) + (let ((__tmp214091 + (let ((__tmp214092 + (let ((__tmp214093 + (let ((__tmp214094 + (let ((__tmp214095 + (let ((__tmp214102 + (let ((__tmp214103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##values? __tmp212942))) - (__tmp212935 - (let ((__tmp212939 - (let ((__tmp212940 + (cons '##values? __tmp214103))) + (__tmp214096 + (let ((__tmp214100 + (let ((__tmp214101 (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##vector->list __tmp212940))) - (__tmp212936 - (let ((__tmp212937 - (let ((__tmp212938 + (cons '##vector->list __tmp214101))) + (__tmp214097 + (let ((__tmp214098 + (let ((__tmp214099 (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons 'list __tmp212938)))) + (cons 'list __tmp214099)))) (declare (not safe)) - (cons __tmp212937 '())))) + (cons __tmp214098 '())))) (declare (not safe)) - (cons __tmp212939 __tmp212936)))) + (cons __tmp214100 __tmp214097)))) (declare (not safe)) - (cons __tmp212941 __tmp212935)))) + (cons __tmp214102 __tmp214096)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp212934)))) + (cons 'if __tmp214095)))) (declare (not safe)) - (cons __tmp212933 '())))) + (cons __tmp214094 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp212932)))) + (cons '(declare (not safe)) __tmp214093)))) (declare (not safe)) - (cons '() __tmp212931)))) + (cons '() __tmp214092)))) (declare (not safe)) - (cons 'let __tmp212930))) - (if (fx= _i204155_ '1) + (cons 'let __tmp214091))) + (if (fx= _i205316_ '1) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp212921 - (let ((__tmp212928 - (let ((__tmp212929 + (let ((__tmp214082 + (let ((__tmp214089 + (let ((__tmp214090 (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##values? __tmp212929))) - (__tmp212922 - (let ((__tmp212924 - (let ((__tmp212925 - (let ((__tmp212926 - (let ((__tmp212927 + (cons '##values? __tmp214090))) + (__tmp214083 + (let ((__tmp214085 + (let ((__tmp214086 + (let ((__tmp214087 + (let ((__tmp214088 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##vector->list __tmp212927)))) + (cons '##vector->list __tmp214088)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp212926 '())))) + (cons __tmp214087 '())))) (declare (not safe)) - (cons '##cdr __tmp212925))) - (__tmp212923 + (cons '##cdr __tmp214086))) + (__tmp214084 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp212924 __tmp212923)))) + (cons __tmp214085 __tmp214084)))) (declare (not safe)) - (cons __tmp212928 __tmp212922)))) + (cons __tmp214089 __tmp214083)))) (declare (not safe)) - (cons 'if __tmp212921)) - (let ((__tmp212908 - (let ((__tmp212909 - (let ((__tmp212910 - (let ((__tmp212911 - (let ((__tmp212912 - (let ((__tmp212919 - (let ((__tmp212920 + (cons 'if __tmp214082)) + (let ((__tmp214069 + (let ((__tmp214070 + (let ((__tmp214071 + (let ((__tmp214072 + (let ((__tmp214073 + (let ((__tmp214080 + (let ((__tmp214081 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##values? __tmp212920))) - (__tmp212913 - (let ((__tmp212915 - (let ((__tmp212916 - (let ((__tmp212917 - (let ((__tmp212918 + (cons '##values? __tmp214081))) + (__tmp214074 + (let ((__tmp214076 + (let ((__tmp214077 + (let ((__tmp214078 + (let ((__tmp214079 (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) (cons '##vector->list - __tmp212918)))) + __tmp214079)))) (declare (not safe)) - (cons __tmp212917 '())))) + (cons __tmp214078 '())))) (declare (not safe)) - (cons '##cdr __tmp212916))) - (__tmp212914 + (cons '##cdr __tmp214077))) + (__tmp214075 (let () (declare (not safe)) (cons ''() '())))) (declare (not safe)) - (cons __tmp212915 __tmp212914)))) + (cons __tmp214076 __tmp214075)))) (declare (not safe)) - (cons __tmp212919 __tmp212913)))) + (cons __tmp214080 __tmp214074)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp212912)))) + (cons 'if __tmp214073)))) (declare (not safe)) - (cons __tmp212911 '())))) + (cons __tmp214072 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp212910)))) + __tmp214071)))) (declare (not safe)) - (cons '() __tmp212909)))) + (cons '() __tmp214070)))) (declare (not safe)) - (cons 'let __tmp212908))) + (cons 'let __tmp214069))) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp212904 - (let ((__tmp212906 - (let ((__tmp212907 + (let ((__tmp214065 + (let ((__tmp214067 + (let ((__tmp214068 (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##vector->list __tmp212907))) - (__tmp212905 + (cons '##vector->list __tmp214068))) + (__tmp214066 (let () (declare (not safe)) - (cons _i204155_ '())))) + (cons _i205316_ '())))) (declare (not safe)) - (cons __tmp212906 __tmp212905)))) + (cons __tmp214067 __tmp214066)))) (declare (not safe)) - (cons '##list-tail __tmp212904)) - (let ((__tmp212896 - (let ((__tmp212897 - (let ((__tmp212898 - (let ((__tmp212899 - (let ((__tmp212900 - (let ((__tmp212902 - (let ((__tmp212903 + (cons '##list-tail __tmp214065)) + (let ((__tmp214057 + (let ((__tmp214058 + (let ((__tmp214059 + (let ((__tmp214060 + (let ((__tmp214061 + (let ((__tmp214063 + (let ((__tmp214064 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _var204154_ '())))) + (cons _var205315_ '())))) (declare (not safe)) - (cons '##vector->list __tmp212903))) - (__tmp212901 - (let () (declare (not safe)) (cons _i204155_ '())))) + (cons '##vector->list __tmp214064))) + (__tmp214062 + (let () (declare (not safe)) (cons _i205316_ '())))) (declare (not safe)) - (cons __tmp212902 __tmp212901)))) + (cons __tmp214063 __tmp214062)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##list-tail - __tmp212900)))) + __tmp214061)))) (declare (not safe)) - (cons __tmp212899 '())))) + (cons __tmp214060 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp212898)))) + __tmp214059)))) (declare (not safe)) - (cons '() __tmp212897)))) + (cons '() __tmp214058)))) (declare (not safe)) - (cons 'let __tmp212896))))))) + (cons 'let __tmp214057))))))) (define gxc#generate-runtime-lambda% - (lambda (_stx204087_) - (let* ((_g204089204106_ - (lambda (_g204090204103_) + (lambda (_stx205248_) + (let* ((_g205250205267_ + (lambda (_g205251205264_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g204090204103_)))) - (_g204088204151_ - (lambda (_g204090204109_) + _g205251205264_)))) + (_g205249205312_ + (lambda (_g205251205270_) (if (let () (declare (not safe)) - (gx#stx-pair? _g204090204109_)) - (let ((_e204095204111_ + (gx#stx-pair? _g205251205270_)) + (let ((_e205256205272_ (let () (declare (not safe)) - (gx#stx-e _g204090204109_)))) - (let ((_hd204094204114_ + (gx#stx-e _g205251205270_)))) + (let ((_hd205255205275_ (let () (declare (not safe)) - (##car _e204095204111_))) - (_tl204093204116_ + (##car _e205256205272_))) + (_tl205254205277_ (let () (declare (not safe)) - (##cdr _e204095204111_)))) + (##cdr _e205256205272_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204093204116_)) - (let ((_e204098204119_ + (gx#stx-pair? _tl205254205277_)) + (let ((_e205259205280_ (let () (declare (not safe)) - (gx#stx-e _tl204093204116_)))) - (let ((_hd204097204122_ + (gx#stx-e _tl205254205277_)))) + (let ((_hd205258205283_ (let () (declare (not safe)) - (##car _e204098204119_))) - (_tl204096204124_ + (##car _e205259205280_))) + (_tl205257205285_ (let () (declare (not safe)) - (##cdr _e204098204119_)))) + (##cdr _e205259205280_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl204096204124_)) - (let ((_e204101204127_ + (gx#stx-pair? _tl205257205285_)) + (let ((_e205262205288_ (let () (declare (not safe)) - (gx#stx-e _tl204096204124_)))) - (let ((_hd204100204130_ + (gx#stx-e _tl205257205285_)))) + (let ((_hd205261205291_ (let () (declare (not safe)) - (##car _e204101204127_))) - (_tl204099204132_ + (##car _e205262205288_))) + (_tl205260205293_ (let () (declare (not safe)) - (##cdr _e204101204127_)))) + (##cdr _e205262205288_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl204099204132_)) - ((lambda (_L204135_ _L204136_) + _tl205260205293_)) + ((lambda (_L205296_ _L205297_) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _L204136_ - _L204135_))) - _hd204100204130_ - _hd204097204122_) + _L205297_ + _L205296_))) + _hd205261205291_ + _hd205258205283_) (let () (declare (not safe)) - (_g204089204106_ - _g204090204109_))))) + (_g205250205267_ + _g205251205270_))))) (let () (declare (not safe)) - (_g204089204106_ _g204090204109_))))) + (_g205250205267_ _g205251205270_))))) (let () (declare (not safe)) - (_g204089204106_ _g204090204109_))))) + (_g205250205267_ _g205251205270_))))) (let () (declare (not safe)) - (_g204089204106_ _g204090204109_)))))) + (_g205250205267_ _g205251205270_)))))) (declare (not safe)) - (_g204088204151_ _stx204087_)))) + (_g205249205312_ _stx205248_)))) (define gxc#generate-runtime-lambda-form - (lambda (_hd204047_ _body204048_) - (let* ((_hd204050_ + (lambda (_hd205208_ _body205209_) + (let* ((_hd205211_ (let () (declare (not safe)) - (gxc#generate-runtime-lambda-head _hd204047_))) - (_body204052_ + (gxc#generate-runtime-lambda-head _hd205208_))) + (_body205213_ (let () (declare (not safe)) - (gxc#compile-e__0 _body204048_))) - (_body204084_ - (let* ((_body204053204061_ _body204052_) - (_else204055204069_ + (gxc#compile-e__0 _body205209_))) + (_body205245_ + (let* ((_body205214205222_ _body205213_) + (_else205216205230_ (lambda () (let () (declare (not safe)) - (cons _body204052_ '())))) - (_K204057204074_ - (lambda (_exprs204072_) _exprs204072_))) + (cons _body205213_ '())))) + (_K205218205235_ + (lambda (_exprs205233_) _exprs205233_))) (if (let () (declare (not safe)) - (##pair? _body204053204061_)) - (let ((_hd204058204077_ + (##pair? _body205214205222_)) + (let ((_hd205219205238_ (let () (declare (not safe)) - (##car _body204053204061_))) - (_tl204059204079_ + (##car _body205214205222_))) + (_tl205220205240_ (let () (declare (not safe)) - (##cdr _body204053204061_)))) + (##cdr _body205214205222_)))) (if (let () (declare (not safe)) - (##eq? _hd204058204077_ 'begin)) - (let ((_exprs204082_ _tl204059204079_)) + (##eq? _hd205219205238_ 'begin)) + (let ((_exprs205243_ _tl205220205240_)) (declare (not safe)) - (_K204057204074_ _exprs204082_)) + (_K205218205235_ _exprs205243_)) (let () (declare (not safe)) - (_else204055204069_)))) - (let () (declare (not safe)) (_else204055204069_)))))) - (let ((__tmp212952 + (_else205216205230_)))) + (let () (declare (not safe)) (_else205216205230_)))))) + (let ((__tmp214113 (let () (declare (not safe)) - (cons _hd204050_ _body204084_)))) + (cons _hd205211_ _body205245_)))) (declare (not safe)) - (cons 'lambda __tmp212952))))) + (cons 'lambda __tmp214113))))) (define gxc#generate-runtime-lambda-head - (lambda (_hd204045_) + (lambda (_hd205206_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _hd204045_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _hd205206_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_stx202588_) - (letrec ((_dispatch-case?202590_ - (lambda (_hd203275_ _body203276_) - (let* ((_form203278_ - (let ((__tmp212953 + (lambda (_stx203749_) + (letrec ((_dispatch-case?203751_ + (lambda (_hd204436_ _body204437_) + (let* ((_form204439_ + (let ((__tmp214114 (let () (declare (not safe)) - (cons _body203276_ '())))) + (cons _body204437_ '())))) (declare (not safe)) - (cons _hd203275_ __tmp212953))) - (___stx211533211534_ _form203278_) - (_g203283203440_ + (cons _hd204436_ __tmp214114))) + (___stx212694212695_ _form204439_) + (_g204444204601_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211533211534_))))) - (let ((___kont211535211536_ - (lambda (_L203965_ _L203966_ _L203967_) '#t)) - (___kont211541211542_ - (lambda (_L203753_ - _L203754_ - _L203755_ - _L203756_ - _L203757_ - _L203758_) + ___stx212694212695_))))) + (let ((___kont212696212697_ + (lambda (_L205126_ _L205127_ _L205128_) '#t)) + (___kont212702212703_ + (lambda (_L204914_ + _L204915_ + _L204916_ + _L204917_ + _L204918_ + _L204919_) '#t)) - (___kont211547211548_ - (lambda (_L203548_ - _L203549_ - _L203550_ - _L203551_) + (___kont212708212709_ + (lambda (_L204709_ + _L204710_ + _L204711_ + _L204712_) '#t)) - (___kont211549211550_ (lambda () '#f))) - (let* ((___match211674211675_ - (lambda (_e203402203452_ - _hd203401203455_ - _tl203400203457_ - _e203405203460_ - _hd203404203463_ - _tl203403203465_ - _e203408203468_ - _hd203407203471_ - _tl203406203473_ - _e203411203476_ - _hd203410203479_ - _tl203409203481_ - _e203414203484_ - _hd203413203487_ - _tl203412203489_ - _e203417203492_ - _hd203416203495_ - _tl203415203497_ - _e203420203500_ - _hd203419203503_ - _tl203418203505_ - _e203423203508_ - _hd203422203511_ - _tl203421203513_ - _e203426203516_ - _hd203425203519_ - _tl203424203521_ - _e203429203524_ - _hd203428203527_ - _tl203427203529_ - _e203432203532_ - _hd203431203535_ - _tl203430203537_ - _e203435203540_ - _hd203434203543_ - _tl203433203545_) - (let ((_L203548_ _hd203434203543_) - (_L203549_ _hd203425203519_) - (_L203550_ _hd203416203495_) - (_L203551_ _hd203401203455_)) + (___kont212710212711_ (lambda () '#f))) + (let* ((___match212835212836_ + (lambda (_e204563204613_ + _hd204562204616_ + _tl204561204618_ + _e204566204621_ + _hd204565204624_ + _tl204564204626_ + _e204569204629_ + _hd204568204632_ + _tl204567204634_ + _e204572204637_ + _hd204571204640_ + _tl204570204642_ + _e204575204645_ + _hd204574204648_ + _tl204573204650_ + _e204578204653_ + _hd204577204656_ + _tl204576204658_ + _e204581204661_ + _hd204580204664_ + _tl204579204666_ + _e204584204669_ + _hd204583204672_ + _tl204582204674_ + _e204587204677_ + _hd204586204680_ + _tl204585204682_ + _e204590204685_ + _hd204589204688_ + _tl204588204690_ + _e204593204693_ + _hd204592204696_ + _tl204591204698_ + _e204596204701_ + _hd204595204704_ + _tl204594204706_) + (let ((_L204709_ _hd204595204704_) + (_L204710_ _hd204586204680_) + (_L204711_ _hd204577204656_) + (_L204712_ _hd204562204616_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L203551_)) + (gx#identifier? _L204712_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L203550_ + _L204711_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L203551_ - _L203548_)) - (let ((__tmp212954 + _L204712_ + _L204709_)) + (let ((__tmp214115 (let () (declare (not safe)) (gx#free-identifier=? - _L203549_ - _L203551_)))) + _L204710_ + _L204712_)))) (declare (not safe)) - (not __tmp212954))) - (___kont211547211548_ - _L203548_ - _L203549_ - _L203550_ - _L203551_) - (___kont211549211550_))))) - (___match211646211647_ - (lambda (_e203402203452_ - _hd203401203455_ - _tl203400203457_ - _e203405203460_ - _hd203404203463_ - _tl203403203465_ - _e203408203468_ - _hd203407203471_ - _tl203406203473_ - _e203411203476_ - _hd203410203479_ - _tl203409203481_ - _e203414203484_ - _hd203413203487_ - _tl203412203489_ - _e203417203492_ - _hd203416203495_ - _tl203415203497_ - _e203420203500_ - _hd203419203503_ - _tl203418203505_ - _e203423203508_ - _hd203422203511_ - _tl203421203513_ - _e203426203516_ - _hd203425203519_ - _tl203424203521_) + (not __tmp214115))) + (___kont212708212709_ + _L204709_ + _L204710_ + _L204711_ + _L204712_) + (___kont212710212711_))))) + (___match212807212808_ + (lambda (_e204563204613_ + _hd204562204616_ + _tl204561204618_ + _e204566204621_ + _hd204565204624_ + _tl204564204626_ + _e204569204629_ + _hd204568204632_ + _tl204567204634_ + _e204572204637_ + _hd204571204640_ + _tl204570204642_ + _e204575204645_ + _hd204574204648_ + _tl204573204650_ + _e204578204653_ + _hd204577204656_ + _tl204576204658_ + _e204581204661_ + _hd204580204664_ + _tl204579204666_ + _e204584204669_ + _hd204583204672_ + _tl204582204674_ + _e204587204677_ + _hd204586204680_ + _tl204585204682_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203418203505_)) - (let ((_e203429203524_ + (gx#stx-pair? _tl204579204666_)) + (let ((_e204590204685_ (let () (declare (not safe)) - (gx#stx-e _tl203418203505_)))) - (let ((_tl203427203529_ + (gx#stx-e _tl204579204666_)))) + (let ((_tl204588204690_ (let () (declare (not safe)) - (##cdr _e203429203524_))) - (_hd203428203527_ + (##cdr _e204590204685_))) + (_hd204589204688_ (let () (declare (not safe)) - (##car _e203429203524_)))) + (##car _e204590204685_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203428203527_)) - (let ((_e203432203532_ + _hd204589204688_)) + (let ((_e204593204693_ (let () (declare (not safe)) (gx#stx-e - _hd203428203527_)))) - (let ((_tl203430203537_ + _hd204589204688_)))) + (let ((_tl204591204698_ (let () (declare (not safe)) - (##cdr _e203432203532_))) - (_hd203431203535_ + (##cdr _e204593204693_))) + (_hd204592204696_ (let () (declare (not safe)) - (##car _e203432203532_)))) + (##car _e204593204693_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203431203535_)) + _hd204592204696_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd203431203535_)) + _hd204592204696_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl203430203537_)) - (let ((_e203435203540_ + (gx#stx-pair? _tl204591204698_)) + (let ((_e204596204701_ (let () (declare (not safe)) - (gx#stx-e _tl203430203537_)))) - (let ((_tl203433203545_ + (gx#stx-e _tl204591204698_)))) + (let ((_tl204594204706_ (let () (declare (not safe)) - (##cdr _e203435203540_))) - (_hd203434203543_ + (##cdr _e204596204701_))) + (_hd204595204704_ (let () (declare (not safe)) - (##car _e203435203540_)))) + (##car _e204596204701_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203433203545_)) + (gx#stx-null? _tl204594204706_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl203427203529_)) + (gx#stx-null? _tl204588204690_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl203403203465_)) - (___match211674211675_ - _e203402203452_ - _hd203401203455_ - _tl203400203457_ - _e203405203460_ - _hd203404203463_ - _tl203403203465_ - _e203408203468_ - _hd203407203471_ - _tl203406203473_ - _e203411203476_ - _hd203410203479_ - _tl203409203481_ - _e203414203484_ - _hd203413203487_ - _tl203412203489_ - _e203417203492_ - _hd203416203495_ - _tl203415203497_ - _e203420203500_ - _hd203419203503_ - _tl203418203505_ - _e203423203508_ - _hd203422203511_ - _tl203421203513_ - _e203426203516_ - _hd203425203519_ - _tl203424203521_ - _e203429203524_ - _hd203428203527_ - _tl203427203529_ - _e203432203532_ - _hd203431203535_ - _tl203430203537_ - _e203435203540_ - _hd203434203543_ - _tl203433203545_) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) + (gx#stx-null? _tl204564204626_)) + (___match212835212836_ + _e204563204613_ + _hd204562204616_ + _tl204561204618_ + _e204566204621_ + _hd204565204624_ + _tl204564204626_ + _e204569204629_ + _hd204568204632_ + _tl204567204634_ + _e204572204637_ + _hd204571204640_ + _tl204570204642_ + _e204575204645_ + _hd204574204648_ + _tl204573204650_ + _e204578204653_ + _hd204577204656_ + _tl204576204658_ + _e204581204661_ + _hd204580204664_ + _tl204579204666_ + _e204584204669_ + _hd204583204672_ + _tl204582204674_ + _e204587204677_ + _hd204586204680_ + _tl204585204682_ + _e204590204685_ + _hd204589204688_ + _tl204588204690_ + _e204593204693_ + _hd204592204696_ + _tl204591204698_ + _e204596204701_ + _hd204595204704_ + _tl204594204706_) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont211549211550_)))) - (___kont211549211550_)))) - (___match211576211577_ - (lambda (_e203338203593_ - _hd203337203596_ - _tl203336203598_ - ___splice211543211544_ - _target203339203601_ - _tl203341203603_) - (letrec ((_loop203342203606_ - (lambda (_hd203340203609_ - _arg203346203611_) + (___kont212710212711_)))) + (___kont212710212711_)))) + (___match212737212738_ + (lambda (_e204499204754_ + _hd204498204757_ + _tl204497204759_ + ___splice212704212705_ + _target204500204762_ + _tl204502204764_) + (letrec ((_loop204503204767_ + (lambda (_hd204501204770_ + _arg204507204772_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203340203609_)) - (let ((_e203343203614_ + _hd204501204770_)) + (let ((_e204504204775_ (let () (declare (not safe)) (gx#stx-e - _hd203340203609_)))) - (let ((_lp-tl203345203619_ + _hd204501204770_)))) + (let ((_lp-tl204506204780_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e203343203614_))) - (_lp-hd203344203617_ - (let () (declare (not safe)) (##car _e203343203614_)))) - (let ((__tmp212969 + (##cdr _e204504204775_))) + (_lp-hd204505204778_ + (let () (declare (not safe)) (##car _e204504204775_)))) + (let ((__tmp214130 (let () (declare (not safe)) - (cons _lp-hd203344203617_ _arg203346203611_)))) + (cons _lp-hd204505204778_ _arg204507204772_)))) (declare (not safe)) - (_loop203342203606_ _lp-tl203345203619_ __tmp212969)))) + (_loop204503204767_ _lp-tl204506204780_ __tmp214130)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg203347203622_ - (reverse _arg203346203611_))) + (let ((_arg204508204783_ + (reverse _arg204507204772_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203336203598_)) - (let ((_e203350203625_ + _tl204497204759_)) + (let ((_e204511204786_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl203336203598_)))) - (let ((_tl203348203630_ + (gx#stx-e _tl204497204759_)))) + (let ((_tl204509204791_ (let () (declare (not safe)) - (##cdr _e203350203625_))) - (_hd203349203628_ + (##cdr _e204511204786_))) + (_hd204510204789_ (let () (declare (not safe)) - (##car _e203350203625_)))) + (##car _e204511204786_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203349203628_)) - (let ((_e203353203633_ + (gx#stx-pair? _hd204510204789_)) + (let ((_e204514204794_ (let () (declare (not safe)) - (gx#stx-e _hd203349203628_)))) - (let ((_tl203351203638_ + (gx#stx-e _hd204510204789_)))) + (let ((_tl204512204799_ (let () (declare (not safe)) - (##cdr _e203353203633_))) - (_hd203352203636_ + (##cdr _e204514204794_))) + (_hd204513204797_ (let () (declare (not safe)) - (##car _e203353203633_)))) + (##car _e204514204794_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203352203636_)) + (gx#identifier? _hd204513204797_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd203352203636_)) + (gx#stx-eq? '%#call _hd204513204797_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203351203638_)) - (let ((_e203356203641_ + (gx#stx-pair? _tl204512204799_)) + (let ((_e204517204802_ (let () (declare (not safe)) (gx#stx-e - _tl203351203638_)))) - (let ((_tl203354203646_ + _tl204512204799_)))) + (let ((_tl204515204807_ (let () (declare (not safe)) - (##cdr _e203356203641_))) - (_hd203355203644_ + (##cdr _e204517204802_))) + (_hd204516204805_ (let () (declare (not safe)) - (##car _e203356203641_)))) + (##car _e204517204802_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203355203644_)) - (let ((_e203359203649_ + _hd204516204805_)) + (let ((_e204520204810_ (let () (declare (not safe)) (gx#stx-e - _hd203355203644_)))) - (let ((_tl203357203654_ + _hd204516204805_)))) + (let ((_tl204518204815_ (let () (declare (not safe)) - (##cdr _e203359203649_))) - (_hd203358203652_ + (##cdr _e204520204810_))) + (_hd204519204813_ (let () (declare (not safe)) - (##car _e203359203649_)))) + (##car _e204520204810_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203358203652_)) + _hd204519204813_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd203358203652_)) + (gx#stx-eq? '%#ref _hd204519204813_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203357203654_)) - (let ((_e203362203657_ + (gx#stx-pair? _tl204518204815_)) + (let ((_e204523204818_ (let () (declare (not safe)) - (gx#stx-e _tl203357203654_)))) - (let ((_tl203360203662_ + (gx#stx-e _tl204518204815_)))) + (let ((_tl204521204823_ (let () (declare (not safe)) - (##cdr _e203362203657_))) - (_hd203361203660_ + (##cdr _e204523204818_))) + (_hd204522204821_ (let () (declare (not safe)) - (##car _e203362203657_)))) + (##car _e204523204818_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203360203662_)) + (gx#stx-null? _tl204521204823_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203354203646_)) - (let ((_e203365203665_ + (gx#stx-pair? _tl204515204807_)) + (let ((_e204526204826_ (let () (declare (not safe)) - (gx#stx-e _tl203354203646_)))) - (let ((_tl203363203670_ + (gx#stx-e _tl204515204807_)))) + (let ((_tl204524204831_ (let () (declare (not safe)) - (##cdr _e203365203665_))) - (_hd203364203668_ + (##cdr _e204526204826_))) + (_hd204525204829_ (let () (declare (not safe)) - (##car _e203365203665_)))) + (##car _e204526204826_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203364203668_)) - (let ((_e203368203673_ + _hd204525204829_)) + (let ((_e204529204834_ (let () (declare (not safe)) (gx#stx-e - _hd203364203668_)))) - (let ((_tl203366203678_ + _hd204525204829_)))) + (let ((_tl204527204839_ (let () (declare (not safe)) - (##cdr _e203368203673_))) - (_hd203367203676_ + (##cdr _e204529204834_))) + (_hd204528204837_ (let () (declare (not safe)) - (##car _e203368203673_)))) + (##car _e204529204834_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203367203676_)) + _hd204528204837_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd203367203676_)) + _hd204528204837_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl203366203678_)) - (let ((_e203371203681_ + (gx#stx-pair? _tl204527204839_)) + (let ((_e204532204842_ (let () (declare (not safe)) - (gx#stx-e _tl203366203678_)))) - (let ((_tl203369203686_ + (gx#stx-e _tl204527204839_)))) + (let ((_tl204530204847_ (let () (declare (not safe)) - (##cdr _e203371203681_))) - (_hd203370203684_ + (##cdr _e204532204842_))) + (_hd204531204845_ (let () (declare (not safe)) - (##car _e203371203681_)))) + (##car _e204532204842_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203369203686_)) + (gx#stx-null? _tl204530204847_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl203363203670_)) + (gx#stx-pair/null? _tl204524204831_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl203363203670_)) + (gx#stx-length _tl204524204831_)) '1) - (let ((___splice211545211546_ + (let ((___splice212706212707_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl203363203670_ + _tl204524204831_ '1)))) - (let ((_tl203374203691_ + (let ((_tl204535204852_ (let () (declare (not safe)) (##vector-ref - ___splice211545211546_ + ___splice212706212707_ '1))) - (_target203372203689_ + (_target204533204850_ (let () (declare (not safe)) (##vector-ref - ___splice211545211546_ + ___splice212706212707_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203374203691_)) - (let ((_e203383203694_ + _tl204535204852_)) + (let ((_e204544204855_ (let () (declare (not safe)) (gx#stx-e - _tl203374203691_)))) - (let ((_tl203381203699_ + _tl204535204852_)))) + (let ((_tl204542204860_ (let () (declare (not safe)) - (##cdr _e203383203694_))) - (_hd203382203697_ + (##cdr _e204544204855_))) + (_hd204543204858_ (let () (declare (not safe)) - (##car _e203383203694_)))) + (##car _e204544204855_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203382203697_)) - (let ((_e203386203702_ + _hd204543204858_)) + (let ((_e204547204863_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd203382203697_)))) - (let ((_tl203384203707_ - (let () (declare (not safe)) (##cdr _e203386203702_))) - (_hd203385203705_ - (let () (declare (not safe)) (##car _e203386203702_)))) + (gx#stx-e _hd204543204858_)))) + (let ((_tl204545204868_ + (let () (declare (not safe)) (##cdr _e204547204863_))) + (_hd204546204866_ + (let () (declare (not safe)) (##car _e204547204863_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203385203705_)) + (gx#identifier? _hd204546204866_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd203385203705_)) + (gx#stx-eq? '%#ref _hd204546204866_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203384203707_)) - (let ((_e203389203710_ + (gx#stx-pair? _tl204545204868_)) + (let ((_e204550204871_ (let () (declare (not safe)) - (gx#stx-e _tl203384203707_)))) - (let ((_tl203387203715_ + (gx#stx-e _tl204545204868_)))) + (let ((_tl204548204876_ (let () (declare (not safe)) - (##cdr _e203389203710_))) - (_hd203388203713_ + (##cdr _e204550204871_))) + (_hd204549204874_ (let () (declare (not safe)) - (##car _e203389203710_)))) + (##car _e204550204871_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203387203715_)) + (gx#stx-null? _tl204548204876_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl203381203699_)) - (letrec ((_loop203375203718_ - (lambda (_hd203373203721_ - _xarg203379203723_) + (gx#stx-null? _tl204542204860_)) + (letrec ((_loop204536204879_ + (lambda (_hd204534204882_ + _xarg204540204884_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203373203721_)) - (let ((_e203376203726_ + _hd204534204882_)) + (let ((_e204537204887_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd203373203721_)))) - (let ((_lp-tl203378203731_ + (gx#stx-e _hd204534204882_)))) + (let ((_lp-tl204539204892_ (let () (declare (not safe)) - (##cdr _e203376203726_))) - (_lp-hd203377203729_ + (##cdr _e204537204887_))) + (_lp-hd204538204890_ (let () (declare (not safe)) - (##car _e203376203726_)))) + (##car _e204537204887_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd203377203729_)) - (let ((_e203392203734_ + (gx#stx-pair? _lp-hd204538204890_)) + (let ((_e204553204895_ (let () (declare (not safe)) - (gx#stx-e _lp-hd203377203729_)))) - (let ((_tl203390203739_ + (gx#stx-e _lp-hd204538204890_)))) + (let ((_tl204551204900_ (let () (declare (not safe)) - (##cdr _e203392203734_))) - (_hd203391203737_ + (##cdr _e204553204895_))) + (_hd204552204898_ (let () (declare (not safe)) - (##car _e203392203734_)))) + (##car _e204553204895_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203391203737_)) + (gx#identifier? _hd204552204898_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd203391203737_)) + (gx#stx-eq? '%#ref _hd204552204898_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203390203739_)) - (let ((_e203395203742_ + (gx#stx-pair? _tl204551204900_)) + (let ((_e204556204903_ (let () (declare (not safe)) (gx#stx-e - _tl203390203739_)))) - (let ((_tl203393203747_ + _tl204551204900_)))) + (let ((_tl204554204908_ (let () (declare (not safe)) - (##cdr _e203395203742_))) - (_hd203394203745_ + (##cdr _e204556204903_))) + (_hd204555204906_ (let () (declare (not safe)) - (##car _e203395203742_)))) + (##car _e204556204903_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203393203747_)) - (let ((__tmp212968 + _tl204554204908_)) + (let ((__tmp214129 (let () (declare (not safe)) - (cons _hd203394203745_ + (cons _hd204555204906_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg203379203723_)))) + _xarg204540204884_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop203375203718_ - _lp-tl203378203731_ - __tmp212968)) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)))) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)))) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)))) - (let ((_xarg203380203750_ (reverse _xarg203379203723_))) + (_loop204536204879_ + _lp-tl204539204892_ + __tmp214129)) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)))) + (let ((_xarg204541204911_ (reverse _xarg204540204884_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203348203630_)) - (let ((_L203753_ _hd203388203713_) - (_L203754_ _xarg203380203750_) - (_L203755_ _hd203370203684_) - (_L203756_ _hd203361203660_) - (_L203757_ _tl203341203603_) - (_L203758_ _arg203347203622_)) - (if (and (let ((__tmp212966 - (let ((__tmp212967 - (lambda (_g203801203804_ - _g203802203806_) + (gx#stx-null? _tl204509204791_)) + (let ((_L204914_ _hd204549204874_) + (_L204915_ _xarg204541204911_) + (_L204916_ _hd204531204845_) + (_L204917_ _hd204522204821_) + (_L204918_ _tl204502204764_) + (_L204919_ _arg204508204783_)) + (if (and (let ((__tmp214127 + (let ((__tmp214128 + (lambda (_g204962204965_ + _g204963204967_) (let () (declare (not safe)) - (cons _g203801203804_ - _g203802203806_))))) + (cons _g204962204965_ + _g204963204967_))))) (declare (not safe)) - (foldr1 __tmp212967 + (foldr1 __tmp214128 '() - _L203758_)))) + _L204919_)))) (declare (not safe)) - (gx#identifier-list? __tmp212966)) + (gx#identifier-list? __tmp214127)) (let () (declare (not safe)) - (gx#identifier? _L203757_)) + (gx#identifier? _L204918_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L203756_ + _L204917_ 'apply)) - (fx= (length (let ((__tmp212964 - (lambda (_g203808203811_ - _g203809203813_) + (fx= (length (let ((__tmp214125 + (lambda (_g204969204972_ + _g204970204974_) (let () (declare (not safe)) - (cons _g203808203811_ + (cons _g204969204972_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g203809203813_))))) + _g204970204974_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp212964 + (foldr1 __tmp214125 '() - _L203758_))) - (length (let ((__tmp212965 - (lambda (_g203815203818_ - _g203816203820_) + _L204919_))) + (length (let ((__tmp214126 + (lambda (_g204976204979_ + _g204977204981_) (let () (declare (not safe)) - (cons _g203815203818_ + (cons _g204976204979_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g203816203820_))))) + _g204977204981_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp212965 + (foldr1 __tmp214126 '() - _L203754_)))) - (let ((__tmp212962 - (let ((__tmp212963 - (lambda (_g203822203825_ - _g203823203827_) + _L204915_)))) + (let ((__tmp214123 + (let ((__tmp214124 + (lambda (_g204983204986_ + _g204984204988_) (let () (declare (not safe)) - (cons _g203822203825_ - _g203823203827_))))) + (cons _g204983204986_ + _g204984204988_))))) (declare (not safe)) - (foldr1 __tmp212963 + (foldr1 __tmp214124 '() - _L203758_))) - (__tmp212960 - (let ((__tmp212961 - (lambda (_g203829203832_ - _g203830203834_) + _L204919_))) + (__tmp214121 + (let ((__tmp214122 + (lambda (_g204990204993_ + _g204991204995_) (let () (declare (not safe)) - (cons _g203829203832_ - _g203830203834_))))) + (cons _g204990204993_ + _g204991204995_))))) (declare (not safe)) - (foldr1 __tmp212961 + (foldr1 __tmp214122 '() - _L203754_)))) + _L204915_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp212962 - __tmp212960)) + __tmp214123 + __tmp214121)) (let () (declare (not safe)) (gx#free-identifier=? - _L203757_ - _L203753_)) - (let ((__tmp212955 - (let ((__tmp212959 - (lambda (_g203836203838_) + _L204918_ + _L204914_)) + (let ((__tmp214116 + (let ((__tmp214120 + (lambda (_g204997204999_) (let () (declare (not safe)) (gx#free-identifier=? - _g203836203838_ - _L203755_)))) - (__tmp212956 - (let ((__tmp212958 - (lambda (_g203840203843_ + _g204997204999_ + _L204916_)))) + (__tmp214117 + (let ((__tmp214119 + (lambda (_g205001205004_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g203841203845_) + _g205002205006_) (let () (declare (not safe)) - (cons _g203840203843_ _g203841203845_)))) - (__tmp212957 - (let () (declare (not safe)) (cons _L203757_ '())))) + (cons _g205001205004_ _g205002205006_)))) + (__tmp214118 + (let () (declare (not safe)) (cons _L204918_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp212958 - __tmp212957 - _L203758_)))) + (foldr1 __tmp214119 + __tmp214118 + _L204919_)))) (declare (not safe)) - (find __tmp212959 __tmp212956)))) + (find __tmp214120 __tmp214117)))) (declare (not safe)) - (not __tmp212955))) - (___kont211541211542_ - _L203753_ - _L203754_ - _L203755_ - _L203756_ - _L203757_ - _L203758_) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_))) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_))))))) + (not __tmp214116))) + (___kont212702212703_ + _L204914_ + _L204915_ + _L204916_ + _L204917_ + _L204918_ + _L204919_) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203375203718_ - _target203372203689_ + (_loop204536204879_ + _target204533204850_ '()))) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)))) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)))) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)))) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)) - (___match211646211647_ - _e203338203593_ - _hd203337203596_ - _tl203336203598_ - _e203350203625_ - _hd203349203628_ - _tl203348203630_ - _e203353203633_ - _hd203352203636_ - _tl203351203638_ - _e203356203641_ - _hd203355203644_ - _tl203354203646_ - _e203359203649_ - _hd203358203652_ - _tl203357203654_ - _e203362203657_ - _hd203361203660_ - _tl203360203662_ - _e203365203665_ - _hd203364203668_ - _tl203363203670_ - _e203368203673_ - _hd203367203676_ - _tl203366203678_ - _e203371203681_ - _hd203370203684_ - _tl203369203686_)) - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)))) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)) + (___match212807212808_ + _e204499204754_ + _hd204498204757_ + _tl204497204759_ + _e204511204786_ + _hd204510204789_ + _tl204509204791_ + _e204514204794_ + _hd204513204797_ + _tl204512204799_ + _e204517204802_ + _hd204516204805_ + _tl204515204807_ + _e204520204810_ + _hd204519204813_ + _tl204518204815_ + _e204523204818_ + _hd204522204821_ + _tl204521204823_ + _e204526204826_ + _hd204525204829_ + _tl204524204831_ + _e204529204834_ + _hd204528204837_ + _tl204527204839_ + _e204532204842_ + _hd204531204845_ + _tl204530204847_)) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) - (___kont211549211550_)))) - (___kont211549211550_))))))) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) + (___kont212710212711_)))) + (___kont212710212711_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203342203606_ - _target203339203601_ + (_loop204503204767_ + _target204500204762_ '()))))) - (___match211564211565_ - (lambda (_e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_) - (letrec ((_loop203294203866_ - (lambda (_hd203292203869_ - _arg203298203871_) + (___match212725212726_ + (lambda (_e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_) + (letrec ((_loop204455205027_ + (lambda (_hd204453205030_ + _arg204459205032_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203292203869_)) - (let ((_e203295203874_ + _hd204453205030_)) + (let ((_e204456205035_ (let () (declare (not safe)) (gx#stx-e - _hd203292203869_)))) - (let ((_lp-tl203297203879_ + _hd204453205030_)))) + (let ((_lp-tl204458205040_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e203295203874_))) - (_lp-hd203296203877_ - (let () (declare (not safe)) (##car _e203295203874_)))) - (let ((__tmp212983 + (##cdr _e204456205035_))) + (_lp-hd204457205038_ + (let () (declare (not safe)) (##car _e204456205035_)))) + (let ((__tmp214144 (let () (declare (not safe)) - (cons _lp-hd203296203877_ _arg203298203871_)))) + (cons _lp-hd204457205038_ _arg204459205032_)))) (declare (not safe)) - (_loop203294203866_ _lp-tl203297203879_ __tmp212983)))) + (_loop204455205027_ _lp-tl204458205040_ __tmp214144)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg203299203882_ - (reverse _arg203298203871_))) + (let ((_arg204460205043_ + (reverse _arg204459205032_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203288203858_)) - (let ((_e203302203885_ + _tl204449205019_)) + (let ((_e204463205046_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl203288203858_)))) - (let ((_tl203300203890_ + (gx#stx-e _tl204449205019_)))) + (let ((_tl204461205051_ (let () (declare (not safe)) - (##cdr _e203302203885_))) - (_hd203301203888_ + (##cdr _e204463205046_))) + (_hd204462205049_ (let () (declare (not safe)) - (##car _e203302203885_)))) + (##car _e204463205046_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203301203888_)) - (let ((_e203305203893_ + (gx#stx-pair? _hd204462205049_)) + (let ((_e204466205054_ (let () (declare (not safe)) - (gx#stx-e _hd203301203888_)))) - (let ((_tl203303203898_ + (gx#stx-e _hd204462205049_)))) + (let ((_tl204464205059_ (let () (declare (not safe)) - (##cdr _e203305203893_))) - (_hd203304203896_ + (##cdr _e204466205054_))) + (_hd204465205057_ (let () (declare (not safe)) - (##car _e203305203893_)))) + (##car _e204466205054_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203304203896_)) + (gx#identifier? _hd204465205057_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd203304203896_)) + (gx#stx-eq? '%#call _hd204465205057_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203303203898_)) - (let ((_e203308203901_ + (gx#stx-pair? _tl204464205059_)) + (let ((_e204469205062_ (let () (declare (not safe)) (gx#stx-e - _tl203303203898_)))) - (let ((_tl203306203906_ + _tl204464205059_)))) + (let ((_tl204467205067_ (let () (declare (not safe)) - (##cdr _e203308203901_))) - (_hd203307203904_ + (##cdr _e204469205062_))) + (_hd204468205065_ (let () (declare (not safe)) - (##car _e203308203901_)))) + (##car _e204469205062_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203307203904_)) - (let ((_e203311203909_ + _hd204468205065_)) + (let ((_e204472205070_ (let () (declare (not safe)) (gx#stx-e - _hd203307203904_)))) - (let ((_tl203309203914_ + _hd204468205065_)))) + (let ((_tl204470205075_ (let () (declare (not safe)) - (##cdr _e203311203909_))) - (_hd203310203912_ + (##cdr _e204472205070_))) + (_hd204471205073_ (let () (declare (not safe)) - (##car _e203311203909_)))) + (##car _e204472205070_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203310203912_)) + _hd204471205073_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd203310203912_)) + (gx#stx-eq? '%#ref _hd204471205073_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203309203914_)) - (let ((_e203314203917_ + (gx#stx-pair? _tl204470205075_)) + (let ((_e204475205078_ (let () (declare (not safe)) - (gx#stx-e _tl203309203914_)))) - (let ((_tl203312203922_ + (gx#stx-e _tl204470205075_)))) + (let ((_tl204473205083_ (let () (declare (not safe)) - (##cdr _e203314203917_))) - (_hd203313203920_ + (##cdr _e204475205078_))) + (_hd204474205081_ (let () (declare (not safe)) - (##car _e203314203917_)))) + (##car _e204475205078_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203312203922_)) + (gx#stx-null? _tl204473205083_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl203306203906_)) - (let ((___splice211539211540_ + (gx#stx-pair/null? _tl204467205067_)) + (let ((___splice212700212701_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl203306203906_ + _tl204467205067_ '0)))) - (let ((_tl203317203927_ + (let ((_tl204478205088_ (let () (declare (not safe)) (##vector-ref - ___splice211539211540_ + ___splice212700212701_ '1))) - (_target203315203925_ + (_target204476205086_ (let () (declare (not safe)) (##vector-ref - ___splice211539211540_ + ___splice212700212701_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203317203927_)) - (letrec ((_loop203318203930_ - (lambda (_hd203316203933_ + _tl204478205088_)) + (letrec ((_loop204479205091_ + (lambda (_hd204477205094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg203322203935_) + _xarg204483205096_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203316203933_)) - (let ((_e203319203938_ + (gx#stx-pair? _hd204477205094_)) + (let ((_e204480205099_ (let () (declare (not safe)) - (gx#stx-e _hd203316203933_)))) - (let ((_lp-tl203321203943_ + (gx#stx-e _hd204477205094_)))) + (let ((_lp-tl204482205104_ (let () (declare (not safe)) - (##cdr _e203319203938_))) - (_lp-hd203320203941_ + (##cdr _e204480205099_))) + (_lp-hd204481205102_ (let () (declare (not safe)) - (##car _e203319203938_)))) + (##car _e204480205099_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd203320203941_)) - (let ((_e203326203946_ + (gx#stx-pair? _lp-hd204481205102_)) + (let ((_e204487205107_ (let () (declare (not safe)) - (gx#stx-e _lp-hd203320203941_)))) - (let ((_tl203324203951_ + (gx#stx-e _lp-hd204481205102_)))) + (let ((_tl204485205112_ (let () (declare (not safe)) - (##cdr _e203326203946_))) - (_hd203325203949_ + (##cdr _e204487205107_))) + (_hd204486205110_ (let () (declare (not safe)) - (##car _e203326203946_)))) + (##car _e204487205107_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203325203949_)) + (gx#identifier? _hd204486205110_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd203325203949_)) + _hd204486205110_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203324203951_)) - (let ((_e203329203954_ + _tl204485205112_)) + (let ((_e204490205115_ (let () (declare (not safe)) (gx#stx-e - _tl203324203951_)))) - (let ((_tl203327203959_ + _tl204485205112_)))) + (let ((_tl204488205120_ (let () (declare (not safe)) - (##cdr _e203329203954_))) - (_hd203328203957_ + (##cdr _e204490205115_))) + (_hd204489205118_ (let () (declare (not safe)) - (##car _e203329203954_)))) + (##car _e204490205115_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203327203959_)) - (let ((__tmp212982 + _tl204488205120_)) + (let ((__tmp214143 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd203328203957_ _xarg203322203935_)))) + (cons _hd204489205118_ _xarg204483205096_)))) (declare (not safe)) - (_loop203318203930_ _lp-tl203321203943_ __tmp212982)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) + (_loop204479205091_ _lp-tl204482205104_ __tmp214143)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) - (let ((_xarg203323203962_ (reverse _xarg203322203935_))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) + (let ((_xarg204484205123_ (reverse _xarg204483205096_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203300203890_)) - (let ((_L203965_ _xarg203323203962_) - (_L203966_ _hd203313203920_) - (_L203967_ _arg203299203882_)) - (if (and (let ((__tmp212980 - (let ((__tmp212981 - (lambda (_g203995203998_ - _g203996204000_) + (gx#stx-null? _tl204461205051_)) + (let ((_L205126_ _xarg204484205123_) + (_L205127_ _hd204474205081_) + (_L205128_ _arg204460205043_)) + (if (and (let ((__tmp214141 + (let ((__tmp214142 + (lambda (_g205156205159_ + _g205157205161_) (let () (declare (not safe)) - (cons _g203995203998_ - _g203996204000_))))) + (cons _g205156205159_ + _g205157205161_))))) (declare (not safe)) - (foldr1 __tmp212981 + (foldr1 __tmp214142 '() - _L203967_)))) + _L205128_)))) (declare (not safe)) - (gx#identifier-list? __tmp212980)) - (fx= (length (let ((__tmp212978 - (lambda (_g204002204005_ + (gx#identifier-list? __tmp214141)) + (fx= (length (let ((__tmp214139 + (lambda (_g205163205166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g204003204007_) + _g205164205168_) (let () (declare (not safe)) - (cons _g204002204005_ _g204003204007_))))) + (cons _g205163205166_ _g205164205168_))))) (declare (not safe)) - (foldr1 __tmp212978 '() _L203967_))) + (foldr1 __tmp214139 '() _L205128_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (length (let ((__tmp212979 - (lambda (_g204009204012_ + (length (let ((__tmp214140 + (lambda (_g205170205173_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g204010204014_) + _g205171205175_) (let () (declare (not safe)) - (cons _g204009204012_ _g204010204014_))))) + (cons _g205170205173_ _g205171205175_))))) (declare (not safe)) - (foldr1 __tmp212979 '() _L203965_)))) + (foldr1 __tmp214140 '() _L205126_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp212976 - (let ((__tmp212977 - (lambda (_g204016204019_ - _g204017204021_) + (let ((__tmp214137 + (let ((__tmp214138 + (lambda (_g205177205180_ + _g205178205182_) (let () (declare (not safe)) - (cons _g204016204019_ - _g204017204021_))))) + (cons _g205177205180_ + _g205178205182_))))) (declare (not safe)) - (foldr1 __tmp212977 + (foldr1 __tmp214138 '() - _L203967_))) - (__tmp212974 - (let ((__tmp212975 - (lambda (_g204023204026_ - _g204024204028_) + _L205128_))) + (__tmp214135 + (let ((__tmp214136 + (lambda (_g205184205187_ + _g205185205189_) (let () (declare (not safe)) - (cons _g204023204026_ - _g204024204028_))))) + (cons _g205184205187_ + _g205185205189_))))) (declare (not safe)) - (foldr1 __tmp212975 + (foldr1 __tmp214136 '() - _L203965_)))) + _L205126_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp212976 - __tmp212974)) - (let ((__tmp212970 - (let ((__tmp212973 - (lambda (_g204030204032_) + __tmp214137 + __tmp214135)) + (let ((__tmp214131 + (let ((__tmp214134 + (lambda (_g205191205193_) (let () (declare (not safe)) (gx#free-identifier=? - _g204030204032_ - _L203966_)))) - (__tmp212971 - (let ((__tmp212972 - (lambda (_g204034204037_ + _g205191205193_ + _L205127_)))) + (__tmp214132 + (let ((__tmp214133 + (lambda (_g205195205198_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g204035204039_) + _g205196205200_) (let () (declare (not safe)) - (cons _g204034204037_ _g204035204039_))))) + (cons _g205195205198_ _g205196205200_))))) (declare (not safe)) - (foldr1 __tmp212972 '() _L203967_)))) + (foldr1 __tmp214133 '() _L205128_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (find __tmp212973 - __tmp212971)))) + (find __tmp214134 + __tmp214132)))) (declare (not safe)) - (not __tmp212970))) - (___kont211535211536_ - _L203965_ - _L203966_ - _L203967_) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_))))))) + (not __tmp214131))) + (___kont212696212697_ + _L205126_ + _L205127_ + _L205128_) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203318203930_ - _target203315203925_ + (_loop204479205091_ + _target204476205086_ '()))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_))))))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop203294203866_ - _target203291203861_ + (_loop204455205027_ + _target204452205022_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211533211534_)) - (let ((_e203290203853_ + (gx#stx-pair? ___stx212694212695_)) + (let ((_e204451205014_ (let () (declare (not safe)) - (gx#stx-e ___stx211533211534_)))) - (let ((_tl203288203858_ + (gx#stx-e ___stx212694212695_)))) + (let ((_tl204449205019_ (let () (declare (not safe)) - (##cdr _e203290203853_))) - (_hd203289203856_ + (##cdr _e204451205014_))) + (_hd204450205017_ (let () (declare (not safe)) - (##car _e203290203853_)))) + (##car _e204451205014_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd203289203856_)) - (let ((___splice211537211538_ + (gx#stx-pair/null? _hd204450205017_)) + (let ((___splice212698212699_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd203289203856_ + _hd204450205017_ '0)))) - (let ((_tl203293203863_ + (let ((_tl204454205024_ (let () (declare (not safe)) (##vector-ref - ___splice211537211538_ + ___splice212698212699_ '1))) - (_target203291203861_ + (_target204452205022_ (let () (declare (not safe)) (##vector-ref - ___splice211537211538_ + ___splice212698212699_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203293203863_)) - (___match211564211565_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_) - (___match211576211577_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - ___splice211537211538_ - _target203291203861_ - _tl203293203863_)))) + _tl204454205024_)) + (___match212725212726_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_) + (___match212737212738_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + ___splice212698212699_ + _target204452205022_ + _tl204454205024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203288203858_)) - (let ((_e203405203460_ + (gx#stx-pair? _tl204449205019_)) + (let ((_e204566204621_ (let () (declare (not safe)) (gx#stx-e - _tl203288203858_)))) - (let ((_tl203403203465_ + _tl204449205019_)))) + (let ((_tl204564204626_ (let () (declare (not safe)) - (##cdr _e203405203460_))) - (_hd203404203463_ + (##cdr _e204566204621_))) + (_hd204565204624_ (let () (declare (not safe)) - (##car _e203405203460_)))) + (##car _e204566204621_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd203404203463_)) - (let ((_e203408203468_ + _hd204565204624_)) + (let ((_e204569204629_ (let () (declare (not safe)) (gx#stx-e - _hd203404203463_)))) - (let ((_tl203406203473_ + _hd204565204624_)))) + (let ((_tl204567204634_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e203408203468_))) - (_hd203407203471_ - (let () (declare (not safe)) (##car _e203408203468_)))) + (##cdr _e204569204629_))) + (_hd204568204632_ + (let () (declare (not safe)) (##car _e204569204629_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203407203471_)) + (gx#identifier? _hd204568204632_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd203407203471_)) + (gx#stx-eq? '%#call _hd204568204632_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203406203473_)) - (let ((_e203411203476_ + (gx#stx-pair? _tl204567204634_)) + (let ((_e204572204637_ (let () (declare (not safe)) - (gx#stx-e _tl203406203473_)))) - (let ((_tl203409203481_ + (gx#stx-e _tl204567204634_)))) + (let ((_tl204570204642_ (let () (declare (not safe)) - (##cdr _e203411203476_))) - (_hd203410203479_ + (##cdr _e204572204637_))) + (_hd204571204640_ (let () (declare (not safe)) - (##car _e203411203476_)))) + (##car _e204572204637_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203410203479_)) - (let ((_e203414203484_ + (gx#stx-pair? _hd204571204640_)) + (let ((_e204575204645_ (let () (declare (not safe)) - (gx#stx-e _hd203410203479_)))) - (let ((_tl203412203489_ + (gx#stx-e _hd204571204640_)))) + (let ((_tl204573204650_ (let () (declare (not safe)) - (##cdr _e203414203484_))) - (_hd203413203487_ + (##cdr _e204575204645_))) + (_hd204574204648_ (let () (declare (not safe)) - (##car _e203414203484_)))) + (##car _e204575204645_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd203413203487_)) + _hd204574204648_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd203413203487_)) + _hd204574204648_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203412203489_)) - (let ((_e203417203492_ + _tl204573204650_)) + (let ((_e204578204653_ (let () (declare (not safe)) (gx#stx-e - _tl203412203489_)))) - (let ((_tl203415203497_ + _tl204573204650_)))) + (let ((_tl204576204658_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e203417203492_))) - (_hd203416203495_ - (let () (declare (not safe)) (##car _e203417203492_)))) + (##cdr _e204578204653_))) + (_hd204577204656_ + (let () (declare (not safe)) (##car _e204578204653_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl203415203497_)) + (gx#stx-null? _tl204576204658_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203409203481_)) - (let ((_e203420203500_ + (gx#stx-pair? _tl204570204642_)) + (let ((_e204581204661_ (let () (declare (not safe)) - (gx#stx-e _tl203409203481_)))) - (let ((_tl203418203505_ + (gx#stx-e _tl204570204642_)))) + (let ((_tl204579204666_ (let () (declare (not safe)) - (##cdr _e203420203500_))) - (_hd203419203503_ + (##cdr _e204581204661_))) + (_hd204580204664_ (let () (declare (not safe)) - (##car _e203420203500_)))) + (##car _e204581204661_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203419203503_)) - (let ((_e203423203508_ + (gx#stx-pair? _hd204580204664_)) + (let ((_e204584204669_ (let () (declare (not safe)) - (gx#stx-e _hd203419203503_)))) - (let ((_tl203421203513_ + (gx#stx-e _hd204580204664_)))) + (let ((_tl204582204674_ (let () (declare (not safe)) - (##cdr _e203423203508_))) - (_hd203422203511_ + (##cdr _e204584204669_))) + (_hd204583204672_ (let () (declare (not safe)) - (##car _e203423203508_)))) + (##car _e204584204669_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203422203511_)) + (gx#identifier? _hd204583204672_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd203422203511_)) + _hd204583204672_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203421203513_)) - (let ((_e203426203516_ + _tl204582204674_)) + (let ((_e204587204677_ (let () (declare (not safe)) (gx#stx-e - _tl203421203513_)))) - (let ((_tl203424203521_ + _tl204582204674_)))) + (let ((_tl204585204682_ (let () (declare (not safe)) - (##cdr _e203426203516_))) - (_hd203425203519_ + (##cdr _e204587204677_))) + (_hd204586204680_ (let () (declare (not safe)) - (##car _e203426203516_)))) + (##car _e204587204677_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203424203521_)) + _tl204585204682_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl203418203505_)) - (let ((_e203429203524_ + _tl204579204666_)) + (let ((_e204590204685_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl203418203505_)))) - (let ((_tl203427203529_ + (gx#stx-e _tl204579204666_)))) + (let ((_tl204588204690_ (let () (declare (not safe)) - (##cdr _e203429203524_))) - (_hd203428203527_ + (##cdr _e204590204685_))) + (_hd204589204688_ (let () (declare (not safe)) - (##car _e203429203524_)))) + (##car _e204590204685_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd203428203527_)) - (let ((_e203432203532_ + (gx#stx-pair? _hd204589204688_)) + (let ((_e204593204693_ (let () (declare (not safe)) - (gx#stx-e _hd203428203527_)))) - (let ((_tl203430203537_ + (gx#stx-e _hd204589204688_)))) + (let ((_tl204591204698_ (let () (declare (not safe)) - (##cdr _e203432203532_))) - (_hd203431203535_ + (##cdr _e204593204693_))) + (_hd204592204696_ (let () (declare (not safe)) - (##car _e203432203532_)))) + (##car _e204593204693_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd203431203535_)) + (gx#identifier? _hd204592204696_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd203431203535_)) + (gx#stx-eq? '%#ref _hd204592204696_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl203430203537_)) - (let ((_e203435203540_ + (gx#stx-pair? _tl204591204698_)) + (let ((_e204596204701_ (let () (declare (not safe)) (gx#stx-e - _tl203430203537_)))) - (let ((_tl203433203545_ + _tl204591204698_)))) + (let ((_tl204594204706_ (let () (declare (not safe)) - (##cdr _e203435203540_))) - (_hd203434203543_ + (##cdr _e204596204701_))) + (_hd204595204704_ (let () (declare (not safe)) - (##car _e203435203540_)))) + (##car _e204596204701_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl203433203545_)) + _tl204594204706_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl203427203529_)) + _tl204588204690_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl203403203465_)) - (___match211674211675_ - _e203290203853_ - _hd203289203856_ - _tl203288203858_ - _e203405203460_ - _hd203404203463_ - _tl203403203465_ - _e203408203468_ - _hd203407203471_ - _tl203406203473_ - _e203411203476_ - _hd203410203479_ - _tl203409203481_ - _e203414203484_ - _hd203413203487_ - _tl203412203489_ - _e203417203492_ - _hd203416203495_ - _tl203415203497_ - _e203420203500_ - _hd203419203503_ - _tl203418203505_ - _e203423203508_ - _hd203422203511_ - _tl203421203513_ - _e203426203516_ - _hd203425203519_ - _tl203424203521_ - _e203429203524_ - _hd203428203527_ - _tl203427203529_ - _e203432203532_ - _hd203431203535_ - _tl203430203537_ - _e203435203540_ - _hd203434203543_ - _tl203433203545_) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)))) + _tl204564204626_)) + (___match212835212836_ + _e204451205014_ + _hd204450205017_ + _tl204449205019_ + _e204566204621_ + _hd204565204624_ + _tl204564204626_ + _e204569204629_ + _hd204568204632_ + _tl204567204634_ + _e204572204637_ + _hd204571204640_ + _tl204570204642_ + _e204575204645_ + _hd204574204648_ + _tl204573204650_ + _e204578204653_ + _hd204577204656_ + _tl204576204658_ + _e204581204661_ + _hd204580204664_ + _tl204579204666_ + _e204584204669_ + _hd204583204672_ + _tl204582204674_ + _e204587204677_ + _hd204586204680_ + _tl204585204682_ + _e204590204685_ + _hd204589204688_ + _tl204588204690_ + _e204593204693_ + _hd204592204696_ + _tl204591204698_ + _e204596204701_ + _hd204595204704_ + _tl204594204706_) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) - (___kont211549211550_)))) - (___kont211549211550_)) - (___kont211549211550_)) - (___kont211549211550_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) + (___kont212710212711_)))) + (___kont212710212711_)) + (___kont212710212711_)) + (___kont212710212711_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont211549211550_)))) - (___kont211549211550_))))) - (___kont211549211550_))))))) - (_dispatch-case-e202591_ - (lambda (_hd202739_ _body202740_) - (let* ((_form202742_ - (let ((__tmp212984 + (___kont212710212711_)))) + (___kont212710212711_))))) + (___kont212710212711_))))))) + (_dispatch-case-e203752_ + (lambda (_hd203900_ _body203901_) + (let* ((_form203903_ + (let ((__tmp214145 (let () (declare (not safe)) - (cons _body202740_ '())))) + (cons _body203901_ '())))) (declare (not safe)) - (cons _hd202739_ __tmp212984))) - (___stx211677211678_ _form202742_) - (_g202746202870_ + (cons _hd203900_ __tmp214145))) + (___stx212838212839_ _form203903_) + (_g203907204031_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211677211678_))))) - (let ((___kont211679211680_ - (lambda (_L203241_ _L203242_ _L203243_) - (let ((__tmp212985 - (let ((__tmp212987 + ___stx212838212839_))))) + (let ((___kont212840212841_ + (lambda (_L204402_ _L204403_ _L204404_) + (let ((__tmp214146 + (let ((__tmp214148 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp212986 + (__tmp214147 (let () (declare (not safe)) - (cons _L203242_ '())))) + (cons _L204403_ '())))) (declare (not safe)) - (cons __tmp212987 __tmp212986)))) + (cons __tmp214148 __tmp214147)))) (declare (not safe)) - (gxc#compile-e__0 __tmp212985)))) - (___kont211685211686_ - (lambda (_L203089_ - _L203090_ - _L203091_ - _L203092_) - (let ((__tmp212988 - (let ((__tmp212990 + (gxc#compile-e__0 __tmp214146)))) + (___kont212846212847_ + (lambda (_L204250_ + _L204251_ + _L204252_ + _L204253_) + (let ((__tmp214149 + (let ((__tmp214151 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp212989 + (__tmp214150 (let () (declare (not safe)) - (cons _L203089_ '())))) + (cons _L204250_ '())))) (declare (not safe)) - (cons __tmp212990 __tmp212989)))) + (cons __tmp214151 __tmp214150)))) (declare (not safe)) - (gxc#compile-e__0 __tmp212988)))) - (___kont211689211690_ - (lambda (_L202955_ _L202956_ _L202957_) - (let ((__tmp212991 - (let ((__tmp212993 + (gxc#compile-e__0 __tmp214149)))) + (___kont212850212851_ + (lambda (_L204116_ _L204117_ _L204118_) + (let ((__tmp214152 + (let ((__tmp214154 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp212992 + (__tmp214153 (let () (declare (not safe)) - (cons _L202955_ '())))) + (cons _L204116_ '())))) (declare (not safe)) - (cons __tmp212993 __tmp212992)))) + (cons __tmp214154 __tmp214153)))) (declare (not safe)) - (gxc#compile-e__0 __tmp212991))))) - (let* ((___match211786211787_ - (lambda (_e202838202875_ - _hd202837202878_ - _tl202836202880_ - _e202841202883_ - _hd202840202886_ - _tl202839202888_ - _e202844202891_ - _hd202843202894_ - _tl202842202896_ - _e202847202899_ - _hd202846202902_ - _tl202845202904_ - _e202850202907_ - _hd202849202910_ - _tl202848202912_ - _e202853202915_ - _hd202852202918_ - _tl202851202920_ - _e202856202923_ - _hd202855202926_ - _tl202854202928_ - _e202859202931_ - _hd202858202934_ - _tl202857202936_ - _e202862202939_ - _hd202861202942_ - _tl202860202944_) + (gxc#compile-e__0 __tmp214152))))) + (let* ((___match212947212948_ + (lambda (_e203999204036_ + _hd203998204039_ + _tl203997204041_ + _e204002204044_ + _hd204001204047_ + _tl204000204049_ + _e204005204052_ + _hd204004204055_ + _tl204003204057_ + _e204008204060_ + _hd204007204063_ + _tl204006204065_ + _e204011204068_ + _hd204010204071_ + _tl204009204073_ + _e204014204076_ + _hd204013204079_ + _tl204012204081_ + _e204017204084_ + _hd204016204087_ + _tl204015204089_ + _e204020204092_ + _hd204019204095_ + _tl204018204097_ + _e204023204100_ + _hd204022204103_ + _tl204021204105_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202854202928_)) - (let ((_e202865202947_ + (gx#stx-pair? _tl204015204089_)) + (let ((_e204026204108_ (let () (declare (not safe)) - (gx#stx-e _tl202854202928_)))) - (let ((_tl202863202952_ + (gx#stx-e _tl204015204089_)))) + (let ((_tl204024204113_ (let () (declare (not safe)) - (##cdr _e202865202947_))) - (_hd202864202950_ + (##cdr _e204026204108_))) + (_hd204025204111_ (let () (declare (not safe)) - (##car _e202865202947_)))) + (##car _e204026204108_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202863202952_)) + _tl204024204113_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl202839202888_)) - (___kont211689211690_ - _hd202861202942_ - _hd202852202918_ - _hd202837202878_) + _tl204000204049_)) + (___kont212850212851_ + _hd204022204103_ + _hd204013204079_ + _hd203998204039_) (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))))) + (_g203907204031_))))) (let () (declare (not safe)) - (_g202746202870_))))) - (___match211716211717_ - (lambda (_e202799202993_ - _hd202798202996_ - _tl202797202998_ - ___splice211687211688_ - _target202800203001_ - _tl202802203003_) - (letrec ((_loop202803203006_ - (lambda (_hd202801203009_ - _arg202807203011_) + (_g203907204031_))))) + (___match212877212878_ + (lambda (_e203960204154_ + _hd203959204157_ + _tl203958204159_ + ___splice212848212849_ + _target203961204162_ + _tl203963204164_) + (letrec ((_loop203964204167_ + (lambda (_hd203962204170_ + _arg203968204172_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202801203009_)) - (let ((_e202804203014_ + _hd203962204170_)) + (let ((_e203965204175_ (let () (declare (not safe)) (gx#stx-e - _hd202801203009_)))) - (let ((_lp-tl202806203019_ + _hd203962204170_)))) + (let ((_lp-tl203967204180_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e202804203014_))) - (_lp-hd202805203017_ - (let () (declare (not safe)) (##car _e202804203014_)))) - (let ((__tmp212994 + (##cdr _e203965204175_))) + (_lp-hd203966204178_ + (let () (declare (not safe)) (##car _e203965204175_)))) + (let ((__tmp214155 (let () (declare (not safe)) - (cons _lp-hd202805203017_ _arg202807203011_)))) + (cons _lp-hd203966204178_ _arg203968204172_)))) (declare (not safe)) - (_loop202803203006_ _lp-tl202806203019_ __tmp212994)))) + (_loop203964204167_ _lp-tl203967204180_ __tmp214155)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg202808203022_ - (reverse _arg202807203011_))) + (let ((_arg203969204183_ + (reverse _arg203968204172_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202797202998_)) - (let ((_e202811203025_ + _tl203958204159_)) + (let ((_e203972204186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl202797202998_)))) - (let ((_tl202809203030_ + (gx#stx-e _tl203958204159_)))) + (let ((_tl203970204191_ (let () (declare (not safe)) - (##cdr _e202811203025_))) - (_hd202810203028_ + (##cdr _e203972204186_))) + (_hd203971204189_ (let () (declare (not safe)) - (##car _e202811203025_)))) + (##car _e203972204186_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202810203028_)) - (let ((_e202814203033_ + (gx#stx-pair? _hd203971204189_)) + (let ((_e203975204194_ (let () (declare (not safe)) - (gx#stx-e _hd202810203028_)))) - (let ((_tl202812203038_ + (gx#stx-e _hd203971204189_)))) + (let ((_tl203973204199_ (let () (declare (not safe)) - (##cdr _e202814203033_))) - (_hd202813203036_ + (##cdr _e203975204194_))) + (_hd203974204197_ (let () (declare (not safe)) - (##car _e202814203033_)))) + (##car _e203975204194_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd202813203036_)) + (gx#identifier? _hd203974204197_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd202813203036_)) + (gx#stx-eq? '%#call _hd203974204197_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202812203038_)) - (let ((_e202817203041_ + (gx#stx-pair? _tl203973204199_)) + (let ((_e203978204202_ (let () (declare (not safe)) (gx#stx-e - _tl202812203038_)))) - (let ((_tl202815203046_ + _tl203973204199_)))) + (let ((_tl203976204207_ (let () (declare (not safe)) - (##cdr _e202817203041_))) - (_hd202816203044_ + (##cdr _e203978204202_))) + (_hd203977204205_ (let () (declare (not safe)) - (##car _e202817203041_)))) + (##car _e203978204202_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202816203044_)) - (let ((_e202820203049_ + _hd203977204205_)) + (let ((_e203981204210_ (let () (declare (not safe)) (gx#stx-e - _hd202816203044_)))) - (let ((_tl202818203054_ + _hd203977204205_)))) + (let ((_tl203979204215_ (let () (declare (not safe)) - (##cdr _e202820203049_))) - (_hd202819203052_ + (##cdr _e203981204210_))) + (_hd203980204213_ (let () (declare (not safe)) - (##car _e202820203049_)))) + (##car _e203981204210_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd202819203052_)) + _hd203980204213_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd202819203052_)) + (gx#stx-eq? '%#ref _hd203980204213_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202818203054_)) - (let ((_e202823203057_ + (gx#stx-pair? _tl203979204215_)) + (let ((_e203984204218_ (let () (declare (not safe)) - (gx#stx-e _tl202818203054_)))) - (let ((_tl202821203062_ + (gx#stx-e _tl203979204215_)))) + (let ((_tl203982204223_ (let () (declare (not safe)) - (##cdr _e202823203057_))) - (_hd202822203060_ + (##cdr _e203984204218_))) + (_hd203983204221_ (let () (declare (not safe)) - (##car _e202823203057_)))) + (##car _e203984204218_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202821203062_)) + (gx#stx-null? _tl203982204223_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202815203046_)) - (let ((_e202826203065_ + (gx#stx-pair? _tl203976204207_)) + (let ((_e203987204226_ (let () (declare (not safe)) - (gx#stx-e _tl202815203046_)))) - (let ((_tl202824203070_ + (gx#stx-e _tl203976204207_)))) + (let ((_tl203985204231_ (let () (declare (not safe)) - (##cdr _e202826203065_))) - (_hd202825203068_ + (##cdr _e203987204226_))) + (_hd203986204229_ (let () (declare (not safe)) - (##car _e202826203065_)))) + (##car _e203987204226_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202825203068_)) - (let ((_e202829203073_ + _hd203986204229_)) + (let ((_e203990204234_ (let () (declare (not safe)) (gx#stx-e - _hd202825203068_)))) - (let ((_tl202827203078_ + _hd203986204229_)))) + (let ((_tl203988204239_ (let () (declare (not safe)) - (##cdr _e202829203073_))) - (_hd202828203076_ + (##cdr _e203990204234_))) + (_hd203989204237_ (let () (declare (not safe)) - (##car _e202829203073_)))) + (##car _e203990204234_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd202828203076_)) + _hd203989204237_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd202828203076_)) + _hd203989204237_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl202827203078_)) - (let ((_e202832203081_ + (gx#stx-pair? _tl203988204239_)) + (let ((_e203993204242_ (let () (declare (not safe)) - (gx#stx-e _tl202827203078_)))) - (let ((_tl202830203086_ + (gx#stx-e _tl203988204239_)))) + (let ((_tl203991204247_ (let () (declare (not safe)) - (##cdr _e202832203081_))) - (_hd202831203084_ + (##cdr _e203993204242_))) + (_hd203992204245_ (let () (declare (not safe)) - (##car _e202832203081_)))) + (##car _e203993204242_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202830203086_)) + (gx#stx-null? _tl203991204247_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl202809203030_)) - (___kont211685211686_ - _hd202831203084_ - _hd202822203060_ - _tl202802203003_ - _arg202808203022_) - (___match211786211787_ - _e202799202993_ - _hd202798202996_ - _tl202797202998_ - _e202811203025_ - _hd202810203028_ - _tl202809203030_ - _e202814203033_ - _hd202813203036_ - _tl202812203038_ - _e202817203041_ - _hd202816203044_ - _tl202815203046_ - _e202820203049_ - _hd202819203052_ - _tl202818203054_ - _e202823203057_ - _hd202822203060_ - _tl202821203062_ - _e202826203065_ - _hd202825203068_ - _tl202824203070_ - _e202829203073_ - _hd202828203076_ - _tl202827203078_ - _e202832203081_ - _hd202831203084_ - _tl202830203086_)) + (gx#stx-null? _tl203970204191_)) + (___kont212846212847_ + _hd203992204245_ + _hd203983204221_ + _tl203963204164_ + _arg203969204183_) + (___match212947212948_ + _e203960204154_ + _hd203959204157_ + _tl203958204159_ + _e203972204186_ + _hd203971204189_ + _tl203970204191_ + _e203975204194_ + _hd203974204197_ + _tl203973204199_ + _e203978204202_ + _hd203977204205_ + _tl203976204207_ + _e203981204210_ + _hd203980204213_ + _tl203979204215_ + _e203984204218_ + _hd203983204221_ + _tl203982204223_ + _e203987204226_ + _hd203986204229_ + _tl203985204231_ + _e203990204234_ + _hd203989204237_ + _tl203988204239_ + _e203993204242_ + _hd203992204245_ + _tl203991204247_)) (let () (declare (not safe)) - (_g202746202870_))))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))))) + (_g203907204031_))))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202746202870_))))) + (_g203907204031_))))) (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))))) + (_g203907204031_))))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202746202870_))))) + (_g203907204031_))))) (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))))) - (let () (declare (not safe)) (_g202746202870_))))) - (let () (declare (not safe)) (_g202746202870_)))))))) + (_g203907204031_))))) + (let () (declare (not safe)) (_g203907204031_))))) + (let () (declare (not safe)) (_g203907204031_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop202803203006_ - _target202800203001_ + (_loop203964204167_ + _target203961204162_ '()))))) - (___match211704211705_ - (lambda (_e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_) - (letrec ((_loop202757203142_ - (lambda (_hd202755203145_ - _arg202761203147_) + (___match212865212866_ + (lambda (_e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_) + (letrec ((_loop203918204303_ + (lambda (_hd203916204306_ + _arg203922204308_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202755203145_)) - (let ((_e202758203150_ + _hd203916204306_)) + (let ((_e203919204311_ (let () (declare (not safe)) (gx#stx-e - _hd202755203145_)))) - (let ((_lp-tl202760203155_ + _hd203916204306_)))) + (let ((_lp-tl203921204316_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e202758203150_))) - (_lp-hd202759203153_ - (let () (declare (not safe)) (##car _e202758203150_)))) - (let ((__tmp212996 + (##cdr _e203919204311_))) + (_lp-hd203920204314_ + (let () (declare (not safe)) (##car _e203919204311_)))) + (let ((__tmp214157 (let () (declare (not safe)) - (cons _lp-hd202759203153_ _arg202761203147_)))) + (cons _lp-hd203920204314_ _arg203922204308_)))) (declare (not safe)) - (_loop202757203142_ _lp-tl202760203155_ __tmp212996)))) + (_loop203918204303_ _lp-tl203921204316_ __tmp214157)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg202762203158_ - (reverse _arg202761203147_))) + (let ((_arg203923204319_ + (reverse _arg203922204308_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202751203134_)) - (let ((_e202765203161_ + _tl203912204295_)) + (let ((_e203926204322_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl202751203134_)))) - (let ((_tl202763203166_ + (gx#stx-e _tl203912204295_)))) + (let ((_tl203924204327_ (let () (declare (not safe)) - (##cdr _e202765203161_))) - (_hd202764203164_ + (##cdr _e203926204322_))) + (_hd203925204325_ (let () (declare (not safe)) - (##car _e202765203161_)))) + (##car _e203926204322_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202764203164_)) - (let ((_e202768203169_ + (gx#stx-pair? _hd203925204325_)) + (let ((_e203929204330_ (let () (declare (not safe)) - (gx#stx-e _hd202764203164_)))) - (let ((_tl202766203174_ + (gx#stx-e _hd203925204325_)))) + (let ((_tl203927204335_ (let () (declare (not safe)) - (##cdr _e202768203169_))) - (_hd202767203172_ + (##cdr _e203929204330_))) + (_hd203928204333_ (let () (declare (not safe)) - (##car _e202768203169_)))) + (##car _e203929204330_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd202767203172_)) + (gx#identifier? _hd203928204333_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd202767203172_)) + (gx#stx-eq? '%#call _hd203928204333_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202766203174_)) - (let ((_e202771203177_ + (gx#stx-pair? _tl203927204335_)) + (let ((_e203932204338_ (let () (declare (not safe)) (gx#stx-e - _tl202766203174_)))) - (let ((_tl202769203182_ + _tl203927204335_)))) + (let ((_tl203930204343_ (let () (declare (not safe)) - (##cdr _e202771203177_))) - (_hd202770203180_ + (##cdr _e203932204338_))) + (_hd203931204341_ (let () (declare (not safe)) - (##car _e202771203177_)))) + (##car _e203932204338_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202770203180_)) - (let ((_e202774203185_ + _hd203931204341_)) + (let ((_e203935204346_ (let () (declare (not safe)) (gx#stx-e - _hd202770203180_)))) - (let ((_tl202772203190_ + _hd203931204341_)))) + (let ((_tl203933204351_ (let () (declare (not safe)) - (##cdr _e202774203185_))) - (_hd202773203188_ + (##cdr _e203935204346_))) + (_hd203934204349_ (let () (declare (not safe)) - (##car _e202774203185_)))) + (##car _e203935204346_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd202773203188_)) + _hd203934204349_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd202773203188_)) + (gx#stx-eq? '%#ref _hd203934204349_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202772203190_)) - (let ((_e202777203193_ + (gx#stx-pair? _tl203933204351_)) + (let ((_e203938204354_ (let () (declare (not safe)) - (gx#stx-e _tl202772203190_)))) - (let ((_tl202775203198_ + (gx#stx-e _tl203933204351_)))) + (let ((_tl203936204359_ (let () (declare (not safe)) - (##cdr _e202777203193_))) - (_hd202776203196_ + (##cdr _e203938204354_))) + (_hd203937204357_ (let () (declare (not safe)) - (##car _e202777203193_)))) + (##car _e203938204354_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202775203198_)) + (gx#stx-null? _tl203936204359_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl202769203182_)) - (let ((___splice211683211684_ + (gx#stx-pair/null? _tl203930204343_)) + (let ((___splice212844212845_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl202769203182_ + _tl203930204343_ '0)))) - (let ((_tl202780203203_ + (let ((_tl203941204364_ (let () (declare (not safe)) (##vector-ref - ___splice211683211684_ + ___splice212844212845_ '1))) - (_target202778203201_ + (_target203939204362_ (let () (declare (not safe)) (##vector-ref - ___splice211683211684_ + ___splice212844212845_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202780203203_)) - (letrec ((_loop202781203206_ - (lambda (_hd202779203209_ + _tl203941204364_)) + (letrec ((_loop203942204367_ + (lambda (_hd203940204370_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xarg202785203211_) + _xarg203946204372_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202779203209_)) - (let ((_e202782203214_ + (gx#stx-pair? _hd203940204370_)) + (let ((_e203943204375_ (let () (declare (not safe)) - (gx#stx-e _hd202779203209_)))) - (let ((_lp-tl202784203219_ + (gx#stx-e _hd203940204370_)))) + (let ((_lp-tl203945204380_ (let () (declare (not safe)) - (##cdr _e202782203214_))) - (_lp-hd202783203217_ + (##cdr _e203943204375_))) + (_lp-hd203944204378_ (let () (declare (not safe)) - (##car _e202782203214_)))) + (##car _e203943204375_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd202783203217_)) - (let ((_e202789203222_ + (gx#stx-pair? _lp-hd203944204378_)) + (let ((_e203950204383_ (let () (declare (not safe)) - (gx#stx-e _lp-hd202783203217_)))) - (let ((_tl202787203227_ + (gx#stx-e _lp-hd203944204378_)))) + (let ((_tl203948204388_ (let () (declare (not safe)) - (##cdr _e202789203222_))) - (_hd202788203225_ + (##cdr _e203950204383_))) + (_hd203949204386_ (let () (declare (not safe)) - (##car _e202789203222_)))) + (##car _e203950204383_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd202788203225_)) + (gx#identifier? _hd203949204386_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd202788203225_)) + _hd203949204386_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202787203227_)) - (let ((_e202792203230_ + _tl203948204388_)) + (let ((_e203953204391_ (let () (declare (not safe)) (gx#stx-e - _tl202787203227_)))) - (let ((_tl202790203235_ + _tl203948204388_)))) + (let ((_tl203951204396_ (let () (declare (not safe)) - (##cdr _e202792203230_))) - (_hd202791203233_ + (##cdr _e203953204391_))) + (_hd203952204394_ (let () (declare (not safe)) - (##car _e202792203230_)))) + (##car _e203953204391_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202790203235_)) - (let ((__tmp212995 + _tl203951204396_)) + (let ((__tmp214156 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _hd202791203233_ _xarg202785203211_)))) + (cons _hd203952204394_ _xarg203946204372_)))) (declare (not safe)) - (_loop202781203206_ _lp-tl202784203219_ __tmp212995)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) + (_loop203942204367_ _lp-tl203945204380_ __tmp214156)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) - (let ((_xarg202786203238_ (reverse _xarg202785203211_))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) + (let ((_xarg203947204399_ (reverse _xarg203946204372_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202763203166_)) - (___kont211679211680_ - _xarg202786203238_ - _hd202776203196_ - _arg202762203158_) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_))))))) + (gx#stx-null? _tl203924204327_)) + (___kont212840212841_ + _xarg203947204399_ + _hd203937204357_ + _arg203923204319_) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop202781203206_ - _target202778203201_ + (_loop203942204367_ + _target203939204362_ '()))) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_))))))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop202757203142_ - _target202754203137_ + (_loop203918204303_ + _target203915204298_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211677211678_)) - (let ((_e202753203129_ + (gx#stx-pair? ___stx212838212839_)) + (let ((_e203914204290_ (let () (declare (not safe)) - (gx#stx-e ___stx211677211678_)))) - (let ((_tl202751203134_ + (gx#stx-e ___stx212838212839_)))) + (let ((_tl203912204295_ (let () (declare (not safe)) - (##cdr _e202753203129_))) - (_hd202752203132_ + (##cdr _e203914204290_))) + (_hd203913204293_ (let () (declare (not safe)) - (##car _e202753203129_)))) + (##car _e203914204290_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd202752203132_)) - (let ((___splice211681211682_ + (gx#stx-pair/null? _hd203913204293_)) + (let ((___splice212842212843_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd202752203132_ + _hd203913204293_ '0)))) - (let ((_tl202756203139_ + (let ((_tl203917204300_ (let () (declare (not safe)) (##vector-ref - ___splice211681211682_ + ___splice212842212843_ '1))) - (_target202754203137_ + (_target203915204298_ (let () (declare (not safe)) (##vector-ref - ___splice211681211682_ + ___splice212842212843_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202756203139_)) - (___match211704211705_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_) - (___match211716211717_ - _e202753203129_ - _hd202752203132_ - _tl202751203134_ - ___splice211681211682_ - _target202754203137_ - _tl202756203139_)))) + _tl203917204300_)) + (___match212865212866_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_) + (___match212877212878_ + _e203914204290_ + _hd203913204293_ + _tl203912204295_ + ___splice212842212843_ + _target203915204298_ + _tl203917204300_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202751203134_)) - (let ((_e202841202883_ + (gx#stx-pair? _tl203912204295_)) + (let ((_e204002204044_ (let () (declare (not safe)) (gx#stx-e - _tl202751203134_)))) - (let ((_tl202839202888_ + _tl203912204295_)))) + (let ((_tl204000204049_ (let () (declare (not safe)) - (##cdr _e202841202883_))) - (_hd202840202886_ + (##cdr _e204002204044_))) + (_hd204001204047_ (let () (declare (not safe)) - (##car _e202841202883_)))) + (##car _e204002204044_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202840202886_)) - (let ((_e202844202891_ + _hd204001204047_)) + (let ((_e204005204052_ (let () (declare (not safe)) (gx#stx-e - _hd202840202886_)))) - (let ((_tl202842202896_ + _hd204001204047_)))) + (let ((_tl204003204057_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e202844202891_))) - (_hd202843202894_ - (let () (declare (not safe)) (##car _e202844202891_)))) + (##cdr _e204005204052_))) + (_hd204004204055_ + (let () (declare (not safe)) (##car _e204005204052_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd202843202894_)) + (gx#identifier? _hd204004204055_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd202843202894_)) + (gx#stx-eq? '%#call _hd204004204055_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202842202896_)) - (let ((_e202847202899_ + (gx#stx-pair? _tl204003204057_)) + (let ((_e204008204060_ (let () (declare (not safe)) - (gx#stx-e _tl202842202896_)))) - (let ((_tl202845202904_ + (gx#stx-e _tl204003204057_)))) + (let ((_tl204006204065_ (let () (declare (not safe)) - (##cdr _e202847202899_))) - (_hd202846202902_ + (##cdr _e204008204060_))) + (_hd204007204063_ (let () (declare (not safe)) - (##car _e202847202899_)))) + (##car _e204008204060_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202846202902_)) - (let ((_e202850202907_ + (gx#stx-pair? _hd204007204063_)) + (let ((_e204011204068_ (let () (declare (not safe)) - (gx#stx-e _hd202846202902_)))) - (let ((_tl202848202912_ + (gx#stx-e _hd204007204063_)))) + (let ((_tl204009204073_ (let () (declare (not safe)) - (##cdr _e202850202907_))) - (_hd202849202910_ + (##cdr _e204011204068_))) + (_hd204010204071_ (let () (declare (not safe)) - (##car _e202850202907_)))) + (##car _e204011204068_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd202849202910_)) + _hd204010204071_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd202849202910_)) + _hd204010204071_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202848202912_)) - (let ((_e202853202915_ + _tl204009204073_)) + (let ((_e204014204076_ (let () (declare (not safe)) (gx#stx-e - _tl202848202912_)))) - (let ((_tl202851202920_ + _tl204009204073_)))) + (let ((_tl204012204081_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e202853202915_))) - (_hd202852202918_ - (let () (declare (not safe)) (##car _e202853202915_)))) + (##cdr _e204014204076_))) + (_hd204013204079_ + (let () (declare (not safe)) (##car _e204014204076_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202851202920_)) + (gx#stx-null? _tl204012204081_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202845202904_)) - (let ((_e202856202923_ + (gx#stx-pair? _tl204006204065_)) + (let ((_e204017204084_ (let () (declare (not safe)) - (gx#stx-e _tl202845202904_)))) - (let ((_tl202854202928_ + (gx#stx-e _tl204006204065_)))) + (let ((_tl204015204089_ (let () (declare (not safe)) - (##cdr _e202856202923_))) - (_hd202855202926_ + (##cdr _e204017204084_))) + (_hd204016204087_ (let () (declare (not safe)) - (##car _e202856202923_)))) + (##car _e204017204084_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd202855202926_)) - (let ((_e202859202931_ + (gx#stx-pair? _hd204016204087_)) + (let ((_e204020204092_ (let () (declare (not safe)) - (gx#stx-e _hd202855202926_)))) - (let ((_tl202857202936_ + (gx#stx-e _hd204016204087_)))) + (let ((_tl204018204097_ (let () (declare (not safe)) - (##cdr _e202859202931_))) - (_hd202858202934_ + (##cdr _e204020204092_))) + (_hd204019204095_ (let () (declare (not safe)) - (##car _e202859202931_)))) + (##car _e204020204092_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd202858202934_)) + (gx#identifier? _hd204019204095_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd202858202934_)) + _hd204019204095_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202857202936_)) - (let ((_e202862202939_ + _tl204018204097_)) + (let ((_e204023204100_ (let () (declare (not safe)) (gx#stx-e - _tl202857202936_)))) - (let ((_tl202860202944_ + _tl204018204097_)))) + (let ((_tl204021204105_ (let () (declare (not safe)) - (##cdr _e202862202939_))) - (_hd202861202942_ + (##cdr _e204023204100_))) + (_hd204022204103_ (let () (declare (not safe)) - (##car _e202862202939_)))) + (##car _e204023204100_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202860202944_)) + _tl204021204105_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl202854202928_)) - (let ((_e202865202947_ + _tl204015204089_)) + (let ((_e204026204108_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl202854202928_)))) - (let ((_tl202863202952_ + (gx#stx-e _tl204015204089_)))) + (let ((_tl204024204113_ (let () (declare (not safe)) - (##cdr _e202865202947_))) - (_hd202864202950_ + (##cdr _e204026204108_))) + (_hd204025204111_ (let () (declare (not safe)) - (##car _e202865202947_)))) + (##car _e204026204108_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202863202952_)) + (gx#stx-null? _tl204024204113_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl202839202888_)) - (___kont211689211690_ - _hd202861202942_ - _hd202852202918_ - _hd202752203132_) + (gx#stx-null? _tl204000204049_)) + (___kont212850212851_ + _hd204022204103_ + _hd204013204079_ + _hd203913204293_) (let () (declare (not safe)) - (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))))) + (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))))) + (_g203907204031_))))) (let () (declare (not safe)) - (_g202746202870_))))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))))) + (_g203907204031_))))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))) + (_g203907204031_))) (let () (declare (not safe)) - (_g202746202870_))))) + (_g203907204031_))))) (let () (declare (not safe)) - (_g202746202870_))))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))) - (let () (declare (not safe)) (_g202746202870_))))) + (_g203907204031_))))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))) + (let () (declare (not safe)) (_g203907204031_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202746202870_))))) + (_g203907204031_))))) (let () (declare (not safe)) - (_g202746202870_)))))) + (_g203907204031_)))))) (let () (declare (not safe)) - (_g202746202870_)))))))) - (_generate1202592_ - (lambda (_args202727_ - _arglen202728_ - _hd202729_ - _body202730_) - (let* ((_len202732_ + (_g203907204031_)))))))) + (_generate1203753_ + (lambda (_args203888_ + _arglen203889_ + _hd203890_ + _body203891_) + (let* ((_len203893_ (let () (declare (not safe)) - (gx#stx-length _hd202729_))) - (_condition202734_ + (gx#stx-length _hd203890_))) + (_condition203895_ (if (let () (declare (not safe)) - (gx#stx-list? _hd202729_)) + (gx#stx-list? _hd203890_)) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp213011 - (let ((__tmp213012 + (let ((__tmp214172 + (let ((__tmp214173 (let () (declare (not safe)) - (cons _len202732_ '())))) + (cons _len203893_ '())))) (declare (not safe)) - (cons _arglen202728_ - __tmp213012)))) + (cons _arglen203889_ + __tmp214173)))) (declare (not safe)) - (cons '##fx= __tmp213011)) - (let ((__tmp213005 - (let ((__tmp213006 - (let ((__tmp213007 - (let ((__tmp213008 + (cons '##fx= __tmp214172)) + (let ((__tmp214166 + (let ((__tmp214167 + (let ((__tmp214168 + (let ((__tmp214169 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213009 - (let ((__tmp213010 + (let ((__tmp214170 + (let ((__tmp214171 (let () (declare (not safe)) - (cons _len202732_ '())))) + (cons _len203893_ '())))) (declare (not safe)) - (cons _arglen202728_ __tmp213010)))) + (cons _arglen203889_ __tmp214171)))) (declare (not safe)) - (cons '##fx= __tmp213009)))) + (cons '##fx= __tmp214170)))) (declare (not safe)) - (cons __tmp213008 '())))) + (cons __tmp214169 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp213007)))) + (cons '(declare (not safe)) __tmp214168)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp213006)))) + (cons '() __tmp214167)))) (declare (not safe)) - (cons 'let __tmp213005))) - (if (> _len202732_ '0) + (cons 'let __tmp214166))) + (if (> _len203893_ '0) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp213003 - (let ((__tmp213004 + (let ((__tmp214164 + (let ((__tmp214165 (let () (declare (not safe)) - (cons _len202732_ + (cons _len203893_ '())))) (declare (not safe)) - (cons _arglen202728_ - __tmp213004)))) + (cons _arglen203889_ + __tmp214165)))) (declare (not safe)) - (cons '##fx>= __tmp213003)) - (let ((__tmp212997 - (let ((__tmp212998 - (let ((__tmp212999 - (let ((__tmp213000 + (cons '##fx>= __tmp214164)) + (let ((__tmp214158 + (let ((__tmp214159 + (let ((__tmp214160 + (let ((__tmp214161 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213001 - (let ((__tmp213002 + (let ((__tmp214162 + (let ((__tmp214163 (let () (declare (not safe)) - (cons _len202732_ '())))) + (cons _len203893_ '())))) (declare (not safe)) - (cons _arglen202728_ __tmp213002)))) + (cons _arglen203889_ __tmp214163)))) (declare (not safe)) - (cons '##fx>= __tmp213001)))) + (cons '##fx>= __tmp214162)))) (declare (not safe)) - (cons __tmp213000 '())))) + (cons __tmp214161 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp212999)))) + (cons '(declare (not safe)) __tmp214160)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp212998)))) + (cons '() __tmp214159)))) (declare (not safe)) - (cons 'let __tmp212997))) + (cons 'let __tmp214158))) '#t))) - (_dispatch202736_ + (_dispatch203897_ (if (let () (declare (not safe)) - (_dispatch-case?202590_ - _hd202729_ - _body202730_)) + (_dispatch-case?203751_ + _hd203890_ + _body203891_)) (let () (declare (not safe)) - (_dispatch-case-e202591_ - _hd202729_ - _body202730_)) + (_dispatch-case-e203752_ + _hd203890_ + _body203891_)) (let () (declare (not safe)) (gxc#generate-runtime-lambda-form - _hd202729_ - _body202730_))))) - (let ((__tmp213013 - (let ((__tmp213014 - (let ((__tmp213015 - (let ((__tmp213016 + _hd203890_ + _body203891_))))) + (let ((__tmp214174 + (let ((__tmp214175 + (let ((__tmp214176 + (let ((__tmp214177 (let () (declare (not safe)) - (cons _args202727_ + (cons _args203888_ '())))) (declare (not safe)) - (cons _dispatch202736_ - __tmp213016)))) + (cons _dispatch203897_ + __tmp214177)))) (declare (not safe)) - (cons 'apply __tmp213015)))) + (cons 'apply __tmp214176)))) (declare (not safe)) - (cons __tmp213014 '())))) + (cons __tmp214175 '())))) (declare (not safe)) - (cons _condition202734_ __tmp213013)))))) - (let* ((_g202594202622_ - (lambda (_g202595202619_) + (cons _condition203895_ __tmp214174)))))) + (let* ((_g203755203783_ + (lambda (_g203756203780_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g202595202619_)))) - (_g202593202724_ - (lambda (_g202595202625_) + _g203756203780_)))) + (_g203754203885_ + (lambda (_g203756203786_) (if (let () (declare (not safe)) - (gx#stx-pair? _g202595202625_)) - (let ((_e202600202627_ + (gx#stx-pair? _g203756203786_)) + (let ((_e203761203788_ (let () (declare (not safe)) - (gx#stx-e _g202595202625_)))) - (let ((_hd202599202630_ + (gx#stx-e _g203756203786_)))) + (let ((_hd203760203791_ (let () (declare (not safe)) - (##car _e202600202627_))) - (_tl202598202632_ + (##car _e203761203788_))) + (_tl203759203793_ (let () (declare (not safe)) - (##cdr _e202600202627_)))) + (##cdr _e203761203788_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl202598202632_)) - (let ((_g213017_ + (gx#stx-pair/null? _tl203759203793_)) + (let ((_g214178_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl202598202632_ + _tl203759203793_ '0)))) (begin - (let ((_g213018_ + (let ((_g214179_ (let () (declare (not safe)) - (if (##values? _g213017_) - (##vector-length _g213017_) + (if (##values? _g214178_) + (##vector-length _g214178_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g213018_ 2))) + (##fx= _g214179_ 2))) (error "Context expects 2 values" - _g213018_))) - (let ((_target202601202635_ + _g214179_))) + (let ((_target203762203796_ (let () (declare (not safe)) - (##vector-ref _g213017_ 0))) - (_tl202603202637_ + (##vector-ref _g214178_ 0))) + (_tl203764203798_ (let () (declare (not safe)) - (##vector-ref _g213017_ 1)))) + (##vector-ref _g214178_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202603202637_)) - (letrec ((_loop202604202640_ - (lambda (_hd202602202643_ - _body202608202645_ - _hd202609202647_) + (gx#stx-null? _tl203764203798_)) + (letrec ((_loop203765203801_ + (lambda (_hd203763203804_ + _body203769203806_ + _hd203770203808_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202602202643_)) - (let ((_e202605202650_ + _hd203763203804_)) + (let ((_e203766203811_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd202602202643_)))) - (let ((_lp-hd202606202653_ + (gx#stx-e _hd203763203804_)))) + (let ((_lp-hd203767203814_ (let () (declare (not safe)) - (##car _e202605202650_))) - (_lp-tl202607202655_ + (##car _e203766203811_))) + (_lp-tl203768203816_ (let () (declare (not safe)) - (##cdr _e202605202650_)))) + (##cdr _e203766203811_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd202606202653_)) - (let ((_e202614202658_ + (gx#stx-pair? _lp-hd203767203814_)) + (let ((_e203775203819_ (let () (declare (not safe)) - (gx#stx-e _lp-hd202606202653_)))) - (let ((_hd202613202661_ + (gx#stx-e _lp-hd203767203814_)))) + (let ((_hd203774203822_ (let () (declare (not safe)) - (##car _e202614202658_))) - (_tl202612202663_ + (##car _e203775203819_))) + (_tl203773203824_ (let () (declare (not safe)) - (##cdr _e202614202658_)))) + (##cdr _e203775203819_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202612202663_)) - (let ((_e202617202666_ + (gx#stx-pair? _tl203773203824_)) + (let ((_e203778203827_ (let () (declare (not safe)) - (gx#stx-e _tl202612202663_)))) - (let ((_hd202616202669_ + (gx#stx-e _tl203773203824_)))) + (let ((_hd203777203830_ (let () (declare (not safe)) - (##car _e202617202666_))) - (_tl202615202671_ + (##car _e203778203827_))) + (_tl203776203832_ (let () (declare (not safe)) - (##cdr _e202617202666_)))) + (##cdr _e203778203827_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202615202671_)) - (let ((__tmp213047 + (gx#stx-null? _tl203776203832_)) + (let ((__tmp214208 (let () (declare (not safe)) - (cons _hd202616202669_ - _body202608202645_))) - (__tmp213046 + (cons _hd203777203830_ + _body203769203806_))) + (__tmp214207 (let () (declare (not safe)) - (cons _hd202613202661_ - _hd202609202647_)))) + (cons _hd203774203822_ + _hd203770203808_)))) (declare (not safe)) - (_loop202604202640_ - _lp-tl202607202655_ - __tmp213047 - __tmp213046)) + (_loop203765203801_ + _lp-tl203768203816_ + __tmp214208 + __tmp214207)) (let () (declare (not safe)) - (_g202594202622_ - _g202595202625_))))) + (_g203755203783_ + _g203756203786_))))) (let () (declare (not safe)) - (_g202594202622_ _g202595202625_))))) + (_g203755203783_ _g203756203786_))))) (let () (declare (not safe)) - (_g202594202622_ _g202595202625_))))) - (let ((_body202610202674_ (reverse _body202608202645_)) - (_hd202611202676_ (reverse _hd202609202647_))) - ((lambda (_L202679_ _L202680_) - (let ((_args202699_ + (_g203755203783_ _g203756203786_))))) + (let ((_body203771203835_ (reverse _body203769203806_)) + (_hd203772203837_ (reverse _hd203770203808_))) + ((lambda (_L203840_ _L203841_) + (let ((_args203860_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_arglen202700_ + (_arglen203861_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_name202701_ - (let ((_$e202696_ - (let ((__tmp213019 + (_name203862_ + (let ((_$e203857_ + (let ((__tmp214180 (gxc#current-compile-runtime-names))) (declare (not safe)) (table-ref - __tmp213019 - _stx202588_ + __tmp214180 + _stx203749_ '#f)))) - (if _$e202696_ - _$e202696_ + (if _$e203857_ + _$e203857_ ''case-lambda-dispatch)))) - (let ((__tmp213020 - (let ((__tmp213021 - (let ((__tmp213022 - (let ((__tmp213023 - (let ((__tmp213036 - (let ((__tmp213037 + (let ((__tmp214181 + (let ((__tmp214182 + (let ((__tmp214183 + (let ((__tmp214184 + (let ((__tmp214197 + (let ((__tmp214198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213038 - (let ((__tmp213039 + (let ((__tmp214199 + (let ((__tmp214200 (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp213045 + (let ((__tmp214206 (let () (declare (not safe)) - (cons _args202699_ + (cons _args203860_ '())))) (declare (not safe)) - (cons '##length __tmp213045)) - (let ((__tmp213040 - (let ((__tmp213041 - (let ((__tmp213042 + (cons '##length __tmp214206)) + (let ((__tmp214201 + (let ((__tmp214202 + (let ((__tmp214203 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213043 - (let ((__tmp213044 + (let ((__tmp214204 + (let ((__tmp214205 (let () (declare (not safe)) - (cons _args202699_ '())))) + (cons _args203860_ '())))) (declare (not safe)) - (cons '##length __tmp213044)))) + (cons '##length __tmp214205)))) (declare (not safe)) - (cons __tmp213043 '())))) + (cons __tmp214204 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp213042)))) + (cons '(declare (not safe)) __tmp214203)))) (declare (not safe)) - (cons '() __tmp213041)))) + (cons '() __tmp214202)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp213040))))) + (cons 'let __tmp214201))))) (declare (not safe)) - (cons __tmp213039 '())))) + (cons __tmp214200 '())))) (declare (not safe)) - (cons _arglen202700_ __tmp213038)))) + (cons _arglen203861_ __tmp214199)))) (declare (not safe)) - (cons __tmp213037 '()))) - (__tmp213024 - (let ((__tmp213025 - (let ((__tmp213026 - (let ((__tmp213030 - (let ((__tmp213031 - (let ((__tmp213032 - (let ((__tmp213033 - (let ((__tmp213034 + (cons __tmp214198 '()))) + (__tmp214185 + (let ((__tmp214186 + (let ((__tmp214187 + (let ((__tmp214191 + (let ((__tmp214192 + (let ((__tmp214193 + (let ((__tmp214194 + (let ((__tmp214195 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213035 + (let ((__tmp214196 (let () (declare (not safe)) - (cons _args202699_ '())))) + (cons _args203860_ '())))) (declare (not safe)) - (cons _name202701_ __tmp213035)))) + (cons _name203862_ __tmp214196)))) (declare (not safe)) (cons '##raise-wrong-number-of-arguments-exception - __tmp213034)))) + __tmp214195)))) (declare (not safe)) - (cons __tmp213033 '())))) + (cons __tmp214194 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'else __tmp213032)))) + (cons 'else __tmp214193)))) (declare (not safe)) - (cons __tmp213031 '()))) - (__tmp213027 - (map (lambda (_g202702202705_ - _g202703202707_) + (cons __tmp214192 '()))) + (__tmp214188 + (map (lambda (_g203863203866_ + _g203864203868_) (let () (declare (not safe)) - (_generate1202592_ - _args202699_ - _arglen202700_ - _g202702202705_ - _g202703202707_))) - (let ((__tmp213028 - (lambda (_g202709202712_ - _g202710202714_) + (_generate1203753_ + _args203860_ + _arglen203861_ + _g203863203866_ + _g203864203868_))) + (let ((__tmp214189 + (lambda (_g203870203873_ + _g203871203875_) (let () (declare (not safe)) - (cons _g202709202712_ + (cons _g203870203873_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g202710202714_))))) + _g203871203875_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp213028 + (foldr1 __tmp214189 '() - _L202680_)) - (let ((__tmp213029 - (lambda (_g202716202719_ - _g202717202721_) + _L203841_)) + (let ((__tmp214190 + (lambda (_g203877203880_ + _g203878203882_) (let () (declare (not safe)) - (cons _g202716202719_ + (cons _g203877203880_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g202717202721_))))) + _g203878203882_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp213029 + (foldr1 __tmp214190 '() - _L202679_))))) + _L203840_))))) (declare (not safe)) - (foldr1 cons __tmp213030 __tmp213027)))) + (foldr1 cons __tmp214191 __tmp214188)))) (declare (not safe)) - (cons 'cond __tmp213026)))) + (cons 'cond __tmp214187)))) (declare (not safe)) - (cons __tmp213025 '())))) + (cons __tmp214186 '())))) (declare (not safe)) - (cons __tmp213036 __tmp213024)))) + (cons __tmp214197 __tmp214185)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp213023)))) + (cons 'let __tmp214184)))) (declare (not safe)) - (cons __tmp213022 '())))) + (cons __tmp214183 '())))) (declare (not safe)) - (cons _args202699_ __tmp213021)))) + (cons _args203860_ __tmp214182)))) (declare (not safe)) - (cons 'lambda __tmp213020)))) - _body202610202674_ - _hd202611202676_)))))) + (cons 'lambda __tmp214181)))) + _body203771203835_ + _hd203772203837_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop202604202640_ - _target202601202635_ + (_loop203765203801_ + _target203762203796_ '() '()))) (let () (declare (not safe)) - (_g202594202622_ - _g202595202625_)))))) + (_g203755203783_ + _g203756203786_)))))) (let () (declare (not safe)) - (_g202594202622_ _g202595202625_))))) + (_g203755203783_ _g203756203786_))))) (let () (declare (not safe)) - (_g202594202622_ _g202595202625_)))))) + (_g203755203783_ _g203756203786_)))))) (declare (not safe)) - (_g202593202724_ _stx202588_))))) + (_g203754203885_ _stx203749_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_stx201862_ _compiled-body?201863_) - (letrec ((_generate-simple201865_ - (lambda (_hd202575_ _body202576_) - (let ((__tmp213048 - (let ((__tmp213049 + (lambda (_stx203023_ _compiled-body?203024_) + (letrec ((_generate-simple203026_ + (lambda (_hd203736_ _body203737_) + (let ((__tmp214209 + (let ((__tmp214210 (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'let - _hd202575_ - _body202576_ - _compiled-body?201863_)))) + _hd203736_ + _body203737_ + _compiled-body?203024_)))) (declare (not safe)) - (_coalesce-let*201867_ __tmp213049)))) + (_coalesce-let*203028_ __tmp214210)))) (declare (not safe)) - (_coalesce-boolean201866_ __tmp213048)))) - (_coalesce-boolean201866_ - (lambda (_code202436_) + (_coalesce-boolean203027_ __tmp214209)))) + (_coalesce-boolean203027_ + (lambda (_code203597_) (if (gxc#current-compile-boolean-context) - (let* ((_code202437202463_ _code202436_) - (_else202439202471_ (lambda () _code202436_)) - (_K202441202508_ - (lambda (_expr2202474_ - _expr1202475_ - _id202476_) - (let* ((_expr2202477202485_ _expr2202474_) - (_else202479202493_ + (let* ((_code203598203624_ _code203597_) + (_else203600203632_ (lambda () _code203597_)) + (_K203602203669_ + (lambda (_expr2203635_ + _expr1203636_ + _id203637_) + (let* ((_expr2203638203646_ _expr2203635_) + (_else203640203654_ (lambda () - (let ((__tmp213050 - (let ((__tmp213051 + (let ((__tmp214211 + (let ((__tmp214212 (let () (declare (not safe)) - (cons _expr2202474_ + (cons _expr2203635_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _expr1202475_ __tmp213051)))) + (cons _expr1203636_ __tmp214212)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'or __tmp213050)))) - (_K202481202498_ - (lambda (_exprs202496_) - (let ((__tmp213052 + (cons 'or __tmp214211)))) + (_K203642203659_ + (lambda (_exprs203657_) + (let ((__tmp214213 (let () (declare (not safe)) - (cons _expr1202475_ - _exprs202496_)))) + (cons _expr1203636_ + _exprs203657_)))) (declare (not safe)) - (cons 'or __tmp213052))))) + (cons 'or __tmp214213))))) (if (let () (declare (not safe)) - (##pair? _expr2202477202485_)) - (let ((_hd202482202501_ + (##pair? _expr2203638203646_)) + (let ((_hd203643203662_ (let () (declare (not safe)) - (##car _expr2202477202485_))) - (_tl202483202503_ + (##car _expr2203638203646_))) + (_tl203644203664_ (let () (declare (not safe)) - (##cdr _expr2202477202485_)))) + (##cdr _expr2203638203646_)))) (if (let () (declare (not safe)) - (##eq? _hd202482202501_ 'or)) - (let ((_exprs202506_ - _tl202483202503_)) + (##eq? _hd203643203662_ 'or)) + (let ((_exprs203667_ + _tl203644203664_)) (declare (not safe)) - (_K202481202498_ - _exprs202506_)) + (_K203642203659_ + _exprs203667_)) (let () (declare (not safe)) - (_else202479202493_)))) + (_else203640203654_)))) (let () (declare (not safe)) - (_else202479202493_))))))) + (_else203640203654_))))))) (if (let () (declare (not safe)) - (##pair? _code202437202463_)) - (let ((_hd202442202511_ + (##pair? _code203598203624_)) + (let ((_hd203603203672_ (let () (declare (not safe)) - (##car _code202437202463_))) - (_tl202443202513_ + (##car _code203598203624_))) + (_tl203604203674_ (let () (declare (not safe)) - (##cdr _code202437202463_)))) + (##cdr _code203598203624_)))) (if (let () (declare (not safe)) - (##eq? _hd202442202511_ 'let)) + (##eq? _hd203603203672_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl202443202513_)) - (let ((_hd202444202516_ + (##pair? _tl203604203674_)) + (let ((_hd203605203677_ (let () (declare (not safe)) - (##car _tl202443202513_))) - (_tl202445202518_ + (##car _tl203604203674_))) + (_tl203606203679_ (let () (declare (not safe)) - (##cdr _tl202443202513_)))) + (##cdr _tl203604203674_)))) (if (let () (declare (not safe)) - (##pair? _hd202444202516_)) - (let ((_hd202456202521_ + (##pair? _hd203605203677_)) + (let ((_hd203617203682_ (let () (declare (not safe)) - (##car _hd202444202516_))) - (_tl202457202523_ + (##car _hd203605203677_))) + (_tl203618203684_ (let () (declare (not safe)) - (##cdr _hd202444202516_)))) + (##cdr _hd203605203677_)))) (if (let () (declare (not safe)) - (##pair? _hd202456202521_)) - (let ((_hd202458202526_ + (##pair? _hd203617203682_)) + (let ((_hd203619203687_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd202456202521_))) - (_tl202459202528_ - (let () (declare (not safe)) (##cdr _hd202456202521_)))) - (let ((_id202531_ _hd202458202526_)) - (if (let () (declare (not safe)) (##pair? _tl202459202528_)) - (let ((_hd202460202533_ + (##car _hd203617203682_))) + (_tl203620203689_ + (let () (declare (not safe)) (##cdr _hd203617203682_)))) + (let ((_id203692_ _hd203619203687_)) + (if (let () (declare (not safe)) (##pair? _tl203620203689_)) + (let ((_hd203621203694_ (let () (declare (not safe)) - (##car _tl202459202528_))) - (_tl202461202535_ + (##car _tl203620203689_))) + (_tl203622203696_ (let () (declare (not safe)) - (##cdr _tl202459202528_)))) - (let ((_expr1202538_ _hd202460202533_)) + (##cdr _tl203620203689_)))) + (let ((_expr1203699_ _hd203621203694_)) (if (let () (declare (not safe)) - (##null? _tl202461202535_)) + (##null? _tl203622203696_)) (if (let () (declare (not safe)) - (##null? _tl202457202523_)) + (##null? _tl203618203684_)) (if (let () (declare (not safe)) - (##pair? _tl202445202518_)) - (let ((_hd202446202540_ + (##pair? _tl203606203679_)) + (let ((_hd203607203701_ (let () (declare (not safe)) - (##car _tl202445202518_))) - (_tl202447202542_ + (##car _tl203606203679_))) + (_tl203608203703_ (let () (declare (not safe)) - (##cdr _tl202445202518_)))) + (##cdr _tl203606203679_)))) (if (let () (declare (not safe)) - (##pair? _hd202446202540_)) - (let ((_hd202448202545_ + (##pair? _hd203607203701_)) + (let ((_hd203609203706_ (let () (declare (not safe)) - (##car _hd202446202540_))) - (_tl202449202547_ + (##car _hd203607203701_))) + (_tl203610203708_ (let () (declare (not safe)) - (##cdr _hd202446202540_)))) + (##cdr _hd203607203701_)))) (if (let () (declare (not safe)) - (##eq? _hd202448202545_ + (##eq? _hd203609203706_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl202449202547_)) - (let ((_hd202450202550_ + (##pair? _tl203610203708_)) + (let ((_hd203611203711_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl202449202547_))) - (_tl202451202552_ - (let () (declare (not safe)) (##cdr _tl202449202547_)))) - (if ((lambda (_g202554202556_) + (##car _tl203610203708_))) + (_tl203612203713_ + (let () (declare (not safe)) (##cdr _tl203610203708_)))) + (if ((lambda (_g203715203717_) (let () (declare (not safe)) - (eq? _g202554202556_ _id202531_))) - _hd202450202550_) + (eq? _g203715203717_ _id203692_))) + _hd203611203711_) (if (let () (declare (not safe)) - (##pair? _tl202451202552_)) - (let ((_hd202452202559_ + (##pair? _tl203612203713_)) + (let ((_hd203613203720_ (let () (declare (not safe)) - (##car _tl202451202552_))) - (_tl202453202561_ + (##car _tl203612203713_))) + (_tl203614203722_ (let () (declare (not safe)) - (##cdr _tl202451202552_)))) - (if ((lambda (_g202563202565_) + (##cdr _tl203612203713_)))) + (if ((lambda (_g203724203726_) (let () (declare (not safe)) - (eq? _g202563202565_ _id202531_))) - _hd202452202559_) + (eq? _g203724203726_ _id203692_))) + _hd203613203720_) (if (let () (declare (not safe)) - (##pair? _tl202453202561_)) - (let ((_hd202454202568_ + (##pair? _tl203614203722_)) + (let ((_hd203615203729_ (let () (declare (not safe)) - (##car _tl202453202561_))) - (_tl202455202570_ + (##car _tl203614203722_))) + (_tl203616203731_ (let () (declare (not safe)) - (##cdr _tl202453202561_)))) - (let ((_expr2202573_ _hd202454202568_)) + (##cdr _tl203614203722_)))) + (let ((_expr2203734_ _hd203615203729_)) (if (let () (declare (not safe)) - (##null? _tl202455202570_)) + (##null? _tl203616203731_)) (if (let () (declare (not safe)) - (##null? _tl202447202542_)) + (##null? _tl203608203703_)) (let () (declare (not safe)) - (_K202441202508_ - _expr2202573_ - _expr1202538_ - _id202531_)) + (_K203602203669_ + _expr2203734_ + _expr1203699_ + _id203692_)) (let () (declare (not safe)) - (_else202439202471_))) + (_else203600203632_))) (let () (declare (not safe)) - (_else202439202471_))))) + (_else203600203632_))))) (let () (declare (not safe)) - (_else202439202471_))) + (_else203600203632_))) (let () (declare (not safe)) - (_else202439202471_)))) - (let () (declare (not safe)) (_else202439202471_))) - (let () (declare (not safe)) (_else202439202471_)))) - (let () (declare (not safe)) (_else202439202471_))) + (_else203600203632_)))) + (let () (declare (not safe)) (_else203600203632_))) + (let () (declare (not safe)) (_else203600203632_)))) + (let () (declare (not safe)) (_else203600203632_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else202439202471_)))) + (_else203600203632_)))) (let () (declare (not safe)) - (_else202439202471_)))) + (_else203600203632_)))) (let () (declare (not safe)) - (_else202439202471_))) + (_else203600203632_))) (let () (declare (not safe)) - (_else202439202471_))) + (_else203600203632_))) (let () (declare (not safe)) - (_else202439202471_))))) - (let () (declare (not safe)) (_else202439202471_))))) - (let () (declare (not safe)) (_else202439202471_)))) + (_else203600203632_))))) + (let () (declare (not safe)) (_else203600203632_))))) + (let () (declare (not safe)) (_else203600203632_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else202439202471_)))) + (_else203600203632_)))) (let () (declare (not safe)) - (_else202439202471_))) + (_else203600203632_))) (let () (declare (not safe)) - (_else202439202471_)))) + (_else203600203632_)))) (let () (declare (not safe)) - (_else202439202471_)))) - _code202436_))) - (_coalesce-let*201867_ - (lambda (_code202169_) - (let* ((_code202170202234_ _code202169_) - (_else202174202242_ (lambda () _code202169_))) - (let ((_K202216202387_ - (lambda (_body202383_ _expr202384_ _id202385_) - (let ((__tmp213053 - (let ((__tmp213054 - (let ((__tmp213055 - (let ((__tmp213056 + (_else203600203632_)))) + _code203597_))) + (_coalesce-let*203028_ + (lambda (_code203330_) + (let* ((_code203331203395_ _code203330_) + (_else203335203403_ (lambda () _code203330_))) + (let ((_K203377203548_ + (lambda (_body203544_ _expr203545_ _id203546_) + (let ((__tmp214214 + (let ((__tmp214215 + (let ((__tmp214216 + (let ((__tmp214217 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr202384_ '())))) + (cons _expr203545_ '())))) (declare (not safe)) - (cons _id202385_ __tmp213056)))) + (cons _id203546_ __tmp214217)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213055 '())))) + (cons __tmp214216 '())))) (declare (not safe)) - (cons __tmp213054 _body202383_)))) + (cons __tmp214215 _body203544_)))) (declare (not safe)) - (cons 'let __tmp213053)))) - (_K202193202312_ - (lambda (_body202306_ - _expr2202307_ - _id2202308_ - _expr1202309_ - _id1202310_) - (let ((__tmp213057 - (let ((__tmp213058 - (let ((__tmp213062 - (let ((__tmp213063 + (cons 'let __tmp214214)))) + (_K203354203473_ + (lambda (_body203467_ + _expr2203468_ + _id2203469_ + _expr1203470_ + _id1203471_) + (let ((__tmp214218 + (let ((__tmp214219 + (let ((__tmp214223 + (let ((__tmp214224 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1202309_ '())))) + (cons _expr1203470_ '())))) (declare (not safe)) - (cons _id1202310_ __tmp213063))) + (cons _id1203471_ __tmp214224))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp213059 - (let ((__tmp213060 - (let ((__tmp213061 + (__tmp214220 + (let ((__tmp214221 + (let ((__tmp214222 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr2202307_ '())))) + (cons _expr2203468_ '())))) (declare (not safe)) - (cons _id2202308_ __tmp213061)))) + (cons _id2203469_ __tmp214222)))) (declare (not safe)) - (cons __tmp213060 '())))) + (cons __tmp214221 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213062 - __tmp213059)))) + (cons __tmp214223 + __tmp214220)))) (declare (not safe)) - (cons __tmp213058 _body202306_)))) + (cons __tmp214219 _body203467_)))) (declare (not safe)) - (cons 'let* __tmp213057)))) - (_K202176202251_ - (lambda (_body202246_ - _bind202247_ - _expr1202248_ - _id1202249_) - (let ((__tmp213064 - (let ((__tmp213065 - (let ((__tmp213066 - (let ((__tmp213067 + (cons 'let* __tmp214218)))) + (_K203337203412_ + (lambda (_body203407_ + _bind203408_ + _expr1203409_ + _id1203410_) + (let ((__tmp214225 + (let ((__tmp214226 + (let ((__tmp214227 + (let ((__tmp214228 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr1202248_ '())))) + (cons _expr1203409_ '())))) (declare (not safe)) - (cons _id1202249_ __tmp213067)))) + (cons _id1203410_ __tmp214228)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213066 - _bind202247_)))) + (cons __tmp214227 + _bind203408_)))) (declare (not safe)) - (cons __tmp213065 _body202246_)))) + (cons __tmp214226 _body203407_)))) (declare (not safe)) - (cons 'let* __tmp213064))))) + (cons 'let* __tmp214225))))) (if (let () (declare (not safe)) - (##pair? _code202170202234_)) - (let ((_tl202218202392_ + (##pair? _code203331203395_)) + (let ((_tl203379203553_ (let () (declare (not safe)) - (##cdr _code202170202234_))) - (_hd202217202390_ + (##cdr _code203331203395_))) + (_hd203378203551_ (let () (declare (not safe)) - (##car _code202170202234_)))) + (##car _code203331203395_)))) (if (let () (declare (not safe)) - (##eq? _hd202217202390_ 'let)) + (##eq? _hd203378203551_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl202218202392_)) - (let ((_tl202220202397_ + (##pair? _tl203379203553_)) + (let ((_tl203381203558_ (let () (declare (not safe)) - (##cdr _tl202218202392_))) - (_hd202219202395_ + (##cdr _tl203379203553_))) + (_hd203380203556_ (let () (declare (not safe)) - (##car _tl202218202392_)))) + (##car _tl203379203553_)))) (if (let () (declare (not safe)) - (##pair? _hd202219202395_)) - (let ((_tl202228202402_ + (##pair? _hd203380203556_)) + (let ((_tl203389203563_ (let () (declare (not safe)) - (##cdr _hd202219202395_))) - (_hd202227202400_ + (##cdr _hd203380203556_))) + (_hd203388203561_ (let () (declare (not safe)) - (##car _hd202219202395_)))) + (##car _hd203380203556_)))) (if (let () (declare (not safe)) - (##pair? _hd202227202400_)) - (let ((_tl202230202407_ + (##pair? _hd203388203561_)) + (let ((_tl203391203568_ (let () (declare (not safe)) - (##cdr _hd202227202400_))) - (_hd202229202405_ + (##cdr _hd203388203561_))) + (_hd203390203566_ (let () (declare (not safe)) - (##car _hd202227202400_)))) + (##car _hd203388203561_)))) (if (let () (declare (not safe)) - (##pair? _tl202230202407_)) - (let ((_tl202232202414_ + (##pair? _tl203391203568_)) + (let ((_tl203393203575_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _tl202230202407_))) - (_hd202231202412_ + (##cdr _tl203391203568_))) + (_hd203392203573_ (let () (declare (not safe)) - (##car _tl202230202407_)))) + (##car _tl203391203568_)))) (if (let () (declare (not safe)) - (##null? _tl202232202414_)) + (##null? _tl203393203575_)) (if (let () (declare (not safe)) - (##null? _tl202228202402_)) + (##null? _tl203389203563_)) (if (let () (declare (not safe)) - (##pair? _tl202220202397_)) - (let ((_tl202222202421_ + (##pair? _tl203381203558_)) + (let ((_tl203383203582_ (let () (declare (not safe)) - (##cdr _tl202220202397_))) - (_hd202221202419_ + (##cdr _tl203381203558_))) + (_hd203382203580_ (let () (declare (not safe)) - (##car _tl202220202397_)))) + (##car _tl203381203558_)))) (if (let () (declare (not safe)) - (##pair? _hd202221202419_)) - (let ((_tl202224202426_ + (##pair? _hd203382203580_)) + (let ((_tl203385203587_ (let () (declare (not safe)) - (##cdr _hd202221202419_))) - (_hd202223202424_ + (##cdr _hd203382203580_))) + (_hd203384203585_ (let () (declare (not safe)) - (##car _hd202221202419_)))) + (##car _hd203382203580_)))) (if (let () (declare (not safe)) - (##eq? _hd202223202424_ 'let)) + (##eq? _hd203384203585_ 'let)) (if (let () (declare (not safe)) - (##pair? _tl202224202426_)) - (let ((_tl202226202431_ + (##pair? _tl203385203587_)) + (let ((_tl203387203592_ (let () (declare (not safe)) - (##cdr _tl202224202426_))) - (_hd202225202429_ + (##cdr _tl203385203587_))) + (_hd203386203590_ (let () (declare (not safe)) - (##car _tl202224202426_)))) + (##car _tl203385203587_)))) (if (let () (declare (not safe)) - (##null? _hd202225202429_)) + (##null? _hd203386203590_)) (if (let () (declare (not safe)) - (##null? _tl202222202421_)) - (let ((_id202410_ + (##null? _tl203383203582_)) + (let ((_id203571_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd202229202405_) - (_expr202417_ _hd202231202412_) - (_body202434_ _tl202226202431_)) + _hd203390203566_) + (_expr203578_ _hd203392203573_) + (_body203595_ _tl203387203592_)) (let () (declare (not safe)) - (_K202216202387_ _body202434_ _expr202417_ _id202410_))) - (let () (declare (not safe)) (_else202174202242_))) - (if (let () (declare (not safe)) (##pair? _hd202225202429_)) - (let ((_tl202205202361_ + (_K203377203548_ _body203595_ _expr203578_ _id203571_))) + (let () (declare (not safe)) (_else203335203403_))) + (if (let () (declare (not safe)) (##pair? _hd203386203590_)) + (let ((_tl203366203522_ (let () (declare (not safe)) - (##cdr _hd202225202429_))) - (_hd202204202359_ + (##cdr _hd203386203590_))) + (_hd203365203520_ (let () (declare (not safe)) - (##car _hd202225202429_)))) + (##car _hd203386203590_)))) (if (let () (declare (not safe)) - (##pair? _hd202204202359_)) - (let ((_tl202207202366_ + (##pair? _hd203365203520_)) + (let ((_tl203368203527_ (let () (declare (not safe)) - (##cdr _hd202204202359_))) - (_hd202206202364_ + (##cdr _hd203365203520_))) + (_hd203367203525_ (let () (declare (not safe)) - (##car _hd202204202359_)))) + (##car _hd203365203520_)))) (if (let () (declare (not safe)) - (##pair? _tl202207202366_)) - (let ((_tl202209202373_ + (##pair? _tl203368203527_)) + (let ((_tl203370203534_ (let () (declare (not safe)) - (##cdr _tl202207202366_))) - (_hd202208202371_ + (##cdr _tl203368203527_))) + (_hd203369203532_ (let () (declare (not safe)) - (##car _tl202207202366_)))) + (##car _tl203368203527_)))) (if (let () (declare (not safe)) - (##null? _tl202209202373_)) + (##null? _tl203370203534_)) (if (let () (declare (not safe)) - (##null? _tl202205202361_)) + (##null? _tl203366203522_)) (if (let () (declare (not safe)) - (##null? _tl202222202421_)) - (let ((_id1202335_ - _hd202229202405_) - (_expr1202342_ - _hd202231202412_) - (_id2202369_ - _hd202206202364_) - (_expr2202376_ - _hd202208202371_) - (_body202378_ - _tl202226202431_)) + (##null? _tl203383203582_)) + (let ((_id1203496_ + _hd203390203566_) + (_expr1203503_ + _hd203392203573_) + (_id2203530_ + _hd203367203525_) + (_expr2203537_ + _hd203369203532_) + (_body203539_ + _tl203387203592_)) (let () (declare (not safe)) - (_K202193202312_ - _body202378_ - _expr2202376_ - _id2202369_ - _expr1202342_ - _id1202335_))) + (_K203354203473_ + _body203539_ + _expr2203537_ + _id2203530_ + _expr1203503_ + _id1203496_))) (let () (declare (not safe)) - (_else202174202242_))) + (_else203335203403_))) (let () (declare (not safe)) - (_else202174202242_))) + (_else203335203403_))) (let () (declare (not safe)) - (_else202174202242_)))) + (_else203335203403_)))) (let () (declare (not safe)) - (_else202174202242_)))) - (let () (declare (not safe)) (_else202174202242_)))) - (let () (declare (not safe)) (_else202174202242_))))) + (_else203335203403_)))) + (let () (declare (not safe)) (_else203335203403_)))) + (let () (declare (not safe)) (_else203335203403_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else202174202242_))) + (_else203335203403_))) (if (let () (declare (not safe)) - (##eq? _hd202223202424_ + (##eq? _hd203384203585_ 'let*)) (if (let () (declare (not safe)) - (##pair? _tl202224202426_)) - (let ((_tl202186202295_ + (##pair? _tl203385203587_)) + (let ((_tl203347203456_ (let () (declare (not safe)) - (##cdr _tl202224202426_))) - (_hd202185202293_ + (##cdr _tl203385203587_))) + (_hd203346203454_ (let () (declare (not safe)) - (##car _tl202224202426_)))) + (##car _tl203385203587_)))) (if (let () (declare (not safe)) - (##null? _tl202222202421_)) - (let ((_id1202274_ + (##null? _tl203383203582_)) + (let ((_id1203435_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd202229202405_) - (_expr1202281_ _hd202231202412_) - (_bind202298_ _hd202185202293_) - (_body202300_ _tl202186202295_)) + _hd203390203566_) + (_expr1203442_ _hd203392203573_) + (_bind203459_ _hd203346203454_) + (_body203461_ _tl203347203456_)) (let () (declare (not safe)) - (_K202176202251_ - _body202300_ - _bind202298_ - _expr1202281_ - _id1202274_))) - (let () (declare (not safe)) (_else202174202242_)))) + (_K203337203412_ + _body203461_ + _bind203459_ + _expr1203442_ + _id1203435_))) + (let () (declare (not safe)) (_else203335203403_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else202174202242_))) + (_else203335203403_))) (let () (declare (not safe)) - (_else202174202242_))))) + (_else203335203403_))))) (let () (declare (not safe)) - (_else202174202242_)))) + (_else203335203403_)))) (let () (declare (not safe)) - (_else202174202242_))) - (let () (declare (not safe)) (_else202174202242_))) - (let () (declare (not safe)) (_else202174202242_)))) - (let () (declare (not safe)) (_else202174202242_)))) + (_else203335203403_))) + (let () (declare (not safe)) (_else203335203403_))) + (let () (declare (not safe)) (_else203335203403_)))) + (let () (declare (not safe)) (_else203335203403_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else202174202242_)))) + (_else203335203403_)))) (let () (declare (not safe)) - (_else202174202242_)))) + (_else203335203403_)))) (let () (declare (not safe)) - (_else202174202242_))) + (_else203335203403_))) (let () (declare (not safe)) - (_else202174202242_)))) + (_else203335203403_)))) (let () (declare (not safe)) - (_else202174202242_))))))) - (_generate-values201868_ - (lambda (_hd201982_ _body201983_) - (let _lp201985_ ((_rest201987_ _hd201982_) - (_bind201988_ '()) - (_check201989_ '()) - (_post201990_ '())) - (let* ((___stx211988211989_ _rest201987_) - (_g201993202004_ + (_else203335203403_))))))) + (_generate-values203029_ + (lambda (_hd203143_ _body203144_) + (let _lp203146_ ((_rest203148_ _hd203143_) + (_bind203149_ '()) + (_check203150_ '()) + (_post203151_ '())) + (let* ((___stx213149213150_ _rest203148_) + (_g203154203165_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211988211989_))))) - (let ((___kont211990211991_ - (lambda (_L202031_ _L202032_) - (let* ((___stx211944211945_ _L202032_) - (_g202047202072_ + ___stx213149213150_))))) + (let ((___kont213151213152_ + (lambda (_L203192_ _L203193_) + (let* ((___stx213105213106_ _L203193_) + (_g203208203233_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211944211945_))))) - (let ((___kont211946211947_ - (lambda (_L202145_ _L202146_) - (let ((_eid202160_ + ___stx213105213106_))))) + (let ((___kont213107213108_ + (lambda (_L203306_ _L203307_) + (let ((_eid203321_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L202146_))) - (_expr202161_ + _L203307_))) + (_expr203322_ (let () (declare (not safe)) (gxc#compile-e__0 - _L202145_)))) - (let ((__tmp213068 - (let ((__tmp213069 - (let ((__tmp213070 + _L203306_)))) + (let ((__tmp214229 + (let ((__tmp214230 + (let ((__tmp214231 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr202161_ '())))) + (cons _expr203322_ '())))) (declare (not safe)) - (cons _eid202160_ __tmp213070)))) + (cons _eid203321_ __tmp214231)))) (declare (not safe)) - (cons __tmp213069 _bind201988_)))) + (cons __tmp214230 _bind203149_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201985_ - _L202031_ - __tmp213068 - _check201989_ - _post201990_))))) - (___kont211948211949_ - (lambda (_L202093_ _L202094_) - (let* ((_vals202107_ + (_lp203146_ + _L203192_ + __tmp214229 + _check203150_ + _post203151_))))) + (___kont213109213110_ + (lambda (_L203254_ _L203255_) + (let* ((_vals203268_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values202109_ + (_check-values203270_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals202107_ - _L202094_ - _L202093_))) - (_refs202111_ + _vals203268_ + _L203255_ + _L203254_))) + (_refs203272_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals202107_ - _L202094_))) - (_expr202113_ + _vals203268_ + _L203255_))) + (_expr203274_ (let () (declare (not safe)) (gxc#compile-e__0 - _L202093_)))) - (let ((__tmp213073 - (let ((__tmp213074 - (let ((__tmp213075 + _L203254_)))) + (let ((__tmp214234 + (let ((__tmp214235 + (let ((__tmp214236 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr202113_ '())))) + (cons _expr203274_ '())))) (declare (not safe)) - (cons _vals202107_ __tmp213075)))) + (cons _vals203268_ __tmp214236)))) (declare (not safe)) - (cons __tmp213074 _bind201988_))) - (__tmp213072 + (cons __tmp214235 _bind203149_))) + (__tmp214233 (let () (declare (not safe)) - (cons _check-values202109_ _check201989_))) - (__tmp213071 - (let () (declare (not safe)) (cons _refs202111_ _post201990_)))) + (cons _check-values203270_ _check203150_))) + (__tmp214232 + (let () (declare (not safe)) (cons _refs203272_ _post203151_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201985_ - _L202031_ - __tmp213073 - __tmp213072 - __tmp213071)))))) + (_lp203146_ + _L203192_ + __tmp214234 + __tmp214233 + __tmp214232)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx211944211945_)) - (let ((_e202053202121_ + ___stx213105213106_)) + (let ((_e203214203282_ (let () (declare (not safe)) (gx#stx-e - ___stx211944211945_)))) - (let ((_tl202051202126_ + ___stx213105213106_)))) + (let ((_tl203212203287_ (let () (declare (not safe)) - (##cdr _e202053202121_))) - (_hd202052202124_ + (##cdr _e203214203282_))) + (_hd203213203285_ (let () (declare (not safe)) - (##car _e202053202121_)))) + (##car _e203214203282_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd202052202124_)) - (let ((_e202056202129_ + _hd203213203285_)) + (let ((_e203217203290_ (let () (declare (not safe)) (gx#stx-e - _hd202052202124_)))) - (let ((_tl202054202134_ + _hd203213203285_)))) + (let ((_tl203215203295_ (let () (declare (not safe)) - (##cdr _e202056202129_))) - (_hd202055202132_ + (##cdr _e203217203290_))) + (_hd203216203293_ (let () (declare (not safe)) - (##car _e202056202129_)))) + (##car _e203217203290_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl202054202134_)) + _tl203215203295_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl202051202126_)) - (let ((_e202059202137_ + (gx#stx-pair? _tl203212203287_)) + (let ((_e203220203298_ (let () (declare (not safe)) - (gx#stx-e _tl202051202126_)))) - (let ((_tl202057202142_ + (gx#stx-e _tl203212203287_)))) + (let ((_tl203218203303_ (let () (declare (not safe)) - (##cdr _e202059202137_))) - (_hd202058202140_ + (##cdr _e203220203298_))) + (_hd203219203301_ (let () (declare (not safe)) - (##car _e202059202137_)))) + (##car _e203220203298_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202057202142_)) - (___kont211946211947_ - _hd202058202140_ - _hd202055202132_) + (gx#stx-null? _tl203218203303_)) + (___kont213107213108_ + _hd203219203301_ + _hd203216203293_) (let () (declare (not safe)) - (_g202047202072_))))) - (let () (declare (not safe)) (_g202047202072_))) + (_g203208203233_))))) + (let () (declare (not safe)) (_g203208203233_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl202051202126_)) - (let ((_e202067202085_ + (gx#stx-pair? _tl203212203287_)) + (let ((_e203228203246_ (let () (declare (not safe)) - (gx#stx-e _tl202051202126_)))) - (let ((_tl202065202090_ + (gx#stx-e _tl203212203287_)))) + (let ((_tl203226203251_ (let () (declare (not safe)) - (##cdr _e202067202085_))) - (_hd202066202088_ + (##cdr _e203228203246_))) + (_hd203227203249_ (let () (declare (not safe)) - (##car _e202067202085_)))) + (##car _e203228203246_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202065202090_)) - (___kont211948211949_ - _hd202066202088_ - _hd202052202124_) + (gx#stx-null? _tl203226203251_)) + (___kont213109213110_ + _hd203227203249_ + _hd203213203285_) (let () (declare (not safe)) - (_g202047202072_))))) - (let () (declare (not safe)) (_g202047202072_)))))) + (_g203208203233_))))) + (let () (declare (not safe)) (_g203208203233_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl202051202126_)) - (let ((_e202067202085_ + _tl203212203287_)) + (let ((_e203228203246_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl202051202126_)))) - (let ((_tl202065202090_ - (let () (declare (not safe)) (##cdr _e202067202085_))) - (_hd202066202088_ - (let () (declare (not safe)) (##car _e202067202085_)))) + (gx#stx-e _tl203212203287_)))) + (let ((_tl203226203251_ + (let () (declare (not safe)) (##cdr _e203228203246_))) + (_hd203227203249_ + (let () (declare (not safe)) (##car _e203228203246_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl202065202090_)) - (___kont211948211949_ _hd202066202088_ _hd202052202124_) - (let () (declare (not safe)) (_g202047202072_))))) - (let () (declare (not safe)) (_g202047202072_)))))) + (gx#stx-null? _tl203226203251_)) + (___kont213109213110_ _hd203227203249_ _hd203213203285_) + (let () (declare (not safe)) (_g203208203233_))))) + (let () (declare (not safe)) (_g203208203233_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g202047202072_))))))) - (___kont211992211993_ + (_g203208203233_))))))) + (___kont213153213154_ (lambda () - (let* ((_body202011_ - (if _compiled-body?201863_ - _body201983_ + (let* ((_body203172_ + (if _compiled-body?203024_ + _body203144_ (let () (declare (not safe)) (gxc#compile-e__0 - _body201983_)))) - (_body202013_ + _body203144_)))) + (_body203174_ (let () (declare (not safe)) - (_generate-values-post201869_ - _post201990_ - _body202011_))) - (_body202015_ + (_generate-values-post203030_ + _post203151_ + _body203172_))) + (_body203176_ (let () (declare (not safe)) - (_generate-values-check201870_ - _check201989_ - _body202013_)))) - (let ((__tmp213076 - (let ((__tmp213078 - (reverse _bind201988_)) - (__tmp213077 + (_generate-values-check203031_ + _check203150_ + _body203174_)))) + (let ((__tmp214237 + (let ((__tmp214239 + (reverse _bind203149_)) + (__tmp214238 (let () (declare (not safe)) - (cons _body202015_ '())))) + (cons _body203176_ '())))) (declare (not safe)) - (cons __tmp213078 __tmp213077)))) + (cons __tmp214239 __tmp214238)))) (declare (not safe)) - (cons 'let __tmp213076)))))) + (cons 'let __tmp214237)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211988211989_)) - (let ((_e201999202023_ + (gx#stx-pair? ___stx213149213150_)) + (let ((_e203160203184_ (let () (declare (not safe)) - (gx#stx-e ___stx211988211989_)))) - (let ((_tl201997202028_ + (gx#stx-e ___stx213149213150_)))) + (let ((_tl203158203189_ (let () (declare (not safe)) - (##cdr _e201999202023_))) - (_hd201998202026_ + (##cdr _e203160203184_))) + (_hd203159203187_ (let () (declare (not safe)) - (##car _e201999202023_)))) - (___kont211990211991_ - _tl201997202028_ - _hd201998202026_))) - (___kont211992211993_))))))) - (_generate-values-post201869_ - (lambda (_post201941_ _body201942_) - (let _lp201944_ ((_rest201946_ _post201941_) - (_body201947_ _body201942_)) - (let* ((_rest201948201956_ _rest201946_) - (_else201950201964_ (lambda () _body201947_)) - (_K201952201970_ - (lambda (_rest201967_ _bind201968_) - (let ((__tmp213079 - (let ((__tmp213080 - (let ((__tmp213081 + (##car _e203160203184_)))) + (___kont213151213152_ + _tl203158203189_ + _hd203159203187_))) + (___kont213153213154_))))))) + (_generate-values-post203030_ + (lambda (_post203102_ _body203103_) + (let _lp203105_ ((_rest203107_ _post203102_) + (_body203108_ _body203103_)) + (let* ((_rest203109203117_ _rest203107_) + (_else203111203125_ (lambda () _body203108_)) + (_K203113203131_ + (lambda (_rest203128_ _bind203129_) + (let ((__tmp214240 + (let ((__tmp214241 + (let ((__tmp214242 (let () (declare (not safe)) - (cons _body201947_ + (cons _body203108_ '())))) (declare (not safe)) - (cons _bind201968_ - __tmp213081)))) + (cons _bind203129_ + __tmp214242)))) (declare (not safe)) - (cons 'let __tmp213080)))) + (cons 'let __tmp214241)))) (declare (not safe)) - (_lp201944_ _rest201967_ __tmp213079))))) + (_lp203105_ _rest203128_ __tmp214240))))) (if (let () (declare (not safe)) - (##pair? _rest201948201956_)) - (let ((_hd201953201973_ + (##pair? _rest203109203117_)) + (let ((_hd203114203134_ (let () (declare (not safe)) - (##car _rest201948201956_))) - (_tl201954201975_ + (##car _rest203109203117_))) + (_tl203115203136_ (let () (declare (not safe)) - (##cdr _rest201948201956_)))) - (let* ((_bind201978_ _hd201953201973_) - (_rest201980_ _tl201954201975_)) + (##cdr _rest203109203117_)))) + (let* ((_bind203139_ _hd203114203134_) + (_rest203141_ _tl203115203136_)) (declare (not safe)) - (_K201952201970_ _rest201980_ _bind201978_))) + (_K203113203131_ _rest203141_ _bind203139_))) (let () (declare (not safe)) - (_else201950201964_))))))) - (_generate-values-check201870_ - (lambda (_check201938_ _body201939_) - (let ((__tmp213082 - (let ((__tmp213084 + (_else203111203125_))))))) + (_generate-values-check203031_ + (lambda (_check203099_ _body203100_) + (let ((__tmp214243 + (let ((__tmp214245 (let () (declare (not safe)) - (cons _body201939_ '()))) - (__tmp213083 (reverse _check201938_))) + (cons _body203100_ '()))) + (__tmp214244 (reverse _check203099_))) (declare (not safe)) - (foldr1 cons __tmp213084 __tmp213083)))) + (foldr1 cons __tmp214245 __tmp214244)))) (declare (not safe)) - (cons 'begin __tmp213082))))) - (let* ((_g201872201889_ - (lambda (_g201873201886_) + (cons 'begin __tmp214243))))) + (let* ((_g203033203050_ + (lambda (_g203034203047_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201873201886_)))) - (_g201871201935_ - (lambda (_g201873201892_) + _g203034203047_)))) + (_g203032203096_ + (lambda (_g203034203053_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201873201892_)) - (let ((_e201878201894_ + (gx#stx-pair? _g203034203053_)) + (let ((_e203039203055_ (let () (declare (not safe)) - (gx#stx-e _g201873201892_)))) - (let ((_hd201877201897_ + (gx#stx-e _g203034203053_)))) + (let ((_hd203038203058_ (let () (declare (not safe)) - (##car _e201878201894_))) - (_tl201876201899_ + (##car _e203039203055_))) + (_tl203037203060_ (let () (declare (not safe)) - (##cdr _e201878201894_)))) + (##cdr _e203039203055_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201876201899_)) - (let ((_e201881201902_ + (gx#stx-pair? _tl203037203060_)) + (let ((_e203042203063_ (let () (declare (not safe)) - (gx#stx-e _tl201876201899_)))) - (let ((_hd201880201905_ + (gx#stx-e _tl203037203060_)))) + (let ((_hd203041203066_ (let () (declare (not safe)) - (##car _e201881201902_))) - (_tl201879201907_ + (##car _e203042203063_))) + (_tl203040203068_ (let () (declare (not safe)) - (##cdr _e201881201902_)))) + (##cdr _e203042203063_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201879201907_)) - (let ((_e201884201910_ + (gx#stx-pair? _tl203040203068_)) + (let ((_e203045203071_ (let () (declare (not safe)) (gx#stx-e - _tl201879201907_)))) - (let ((_hd201883201913_ + _tl203040203068_)))) + (let ((_hd203044203074_ (let () (declare (not safe)) - (##car _e201884201910_))) - (_tl201882201915_ + (##car _e203045203071_))) + (_tl203043203076_ (let () (declare (not safe)) - (##cdr _e201884201910_)))) + (##cdr _e203045203071_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201882201915_)) - ((lambda (_L201918_ - _L201919_) + _tl203043203076_)) + ((lambda (_L203079_ + _L203080_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L201919_)) + _L203080_)) (let () (declare (not safe)) - (_generate-simple201865_ - _L201919_ - _L201918_)) + (_generate-simple203026_ + _L203080_ + _L203079_)) (let () (declare (not safe)) - (_generate-values201868_ - _L201919_ - _L201918_)))) - _hd201883201913_ - _hd201880201905_) + (_generate-values203029_ + _L203080_ + _L203079_)))) + _hd203044203074_ + _hd203041203066_) (let () (declare (not safe)) - (_g201872201889_ - _g201873201892_))))) + (_g203033203050_ + _g203034203053_))))) (let () (declare (not safe)) - (_g201872201889_ - _g201873201892_))))) + (_g203033203050_ + _g203034203053_))))) (let () (declare (not safe)) - (_g201872201889_ _g201873201892_))))) + (_g203033203050_ _g203034203053_))))) (let () (declare (not safe)) - (_g201872201889_ _g201873201892_)))))) + (_g203033203050_ _g203034203053_)))))) (declare (not safe)) - (_g201871201935_ _stx201862_))))) + (_g203032203096_ _stx203023_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_stx202581_) - (let ((_compiled-body?202583_ '#f)) + (lambda (_stx203742_) + (let ((_compiled-body?203744_ '#f)) (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx202581_ - _compiled-body?202583_)))) + _stx203742_ + _compiled-body?203744_)))) (define gxc#generate-runtime-let-values% - (lambda _g213086_ - (let ((_g213085_ (let () (declare (not safe)) (##length _g213086_)))) - (cond ((let () (declare (not safe)) (##fx= _g213085_ 1)) - (apply (lambda (_stx202581_) + (lambda _g214247_ + (let ((_g214246_ (let () (declare (not safe)) (##length _g214247_)))) + (cond ((let () (declare (not safe)) (##fx= _g214246_ 1)) + (apply (lambda (_stx203742_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__0 - _stx202581_))) - _g213086_)) - ((let () (declare (not safe)) (##fx= _g213085_ 2)) - (apply (lambda (_stx202585_ _compiled-body?202586_) + _stx203742_))) + _g214247_)) + ((let () (declare (not safe)) (##fx= _g214246_ 2)) + (apply (lambda (_stx203746_ _compiled-body?203747_) (let () (declare (not safe)) (gxc#generate-runtime-let-values%__% - _stx202585_ - _compiled-body?202586_))) - _g213086_)) + _stx203746_ + _compiled-body?203747_))) + _g214247_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g213086_)))))) + _g214247_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_vals201756_ _hd201757_) - (let _lp201759_ ((_rest201761_ _hd201757_) - (_k201762_ '0) - (_r201763_ '())) - (let* ((___stx212002212003_ _rest201761_) - (_g201768201785_ + (lambda (_vals202917_ _hd202918_) + (let _lp202920_ ((_rest202922_ _hd202918_) + (_k202923_ '0) + (_r202924_ '())) + (let* ((___stx213163213164_ _rest202922_) + (_g202929202946_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212002212003_))))) - (let ((___kont212004212005_ - (lambda (_L201848_) - (let ((__tmp213087 + ___stx213163213164_))))) + (let ((___kont213165213166_ + (lambda (_L203009_) + (let ((__tmp214248 (let () (declare (not safe)) - (fx+ _k201762_ '1)))) + (fx+ _k202923_ '1)))) (declare (not safe)) - (_lp201759_ _L201848_ __tmp213087 _r201763_)))) - (___kont212006212007_ - (lambda (_L201821_ _L201822_) - (let ((__tmp213093 - (let () (declare (not safe)) (fx+ _k201762_ '1))) - (__tmp213088 - (let ((__tmp213089 - (let ((__tmp213092 + (_lp202920_ _L203009_ __tmp214248 _r202924_)))) + (___kont213167213168_ + (lambda (_L202982_ _L202983_) + (let ((__tmp214254 + (let () (declare (not safe)) (fx+ _k202923_ '1))) + (__tmp214249 + (let ((__tmp214250 + (let ((__tmp214253 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L201822_))) - (__tmp213090 - (let ((__tmp213091 + _L202983_))) + (__tmp214251 + (let ((__tmp214252 (let () (declare (not safe)) (gxc#generate-runtime-values-ref - _vals201756_ - _k201762_ - _L201821_)))) + _vals202917_ + _k202923_ + _L202982_)))) (declare (not safe)) - (cons __tmp213091 '())))) + (cons __tmp214252 '())))) (declare (not safe)) - (cons __tmp213092 __tmp213090)))) + (cons __tmp214253 __tmp214251)))) (declare (not safe)) - (cons __tmp213089 _r201763_)))) + (cons __tmp214250 _r202924_)))) (declare (not safe)) - (_lp201759_ _L201821_ __tmp213093 __tmp213088)))) - (___kont212008212009_ - (lambda (_L201797_) - (let ((__tmp213094 - (let ((__tmp213095 - (let ((__tmp213098 + (_lp202920_ _L202982_ __tmp214254 __tmp214249)))) + (___kont213169213170_ + (lambda (_L202958_) + (let ((__tmp214255 + (let ((__tmp214256 + (let ((__tmp214259 (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L201797_))) - (__tmp213096 - (let ((__tmp213097 + _L202958_))) + (__tmp214257 + (let ((__tmp214258 (let () (declare (not safe)) (gxc#generate-runtime-values->list - _vals201756_ - _k201762_)))) + _vals202917_ + _k202923_)))) (declare (not safe)) - (cons __tmp213097 '())))) + (cons __tmp214258 '())))) (declare (not safe)) - (cons __tmp213098 __tmp213096)))) + (cons __tmp214259 __tmp214257)))) (declare (not safe)) - (cons __tmp213095 '())))) + (cons __tmp214256 '())))) (declare (not safe)) - (foldl1 cons __tmp213094 _r201763_)))) - (___kont212010212011_ (lambda () (reverse _r201763_)))) - (let ((_g201766201808_ + (foldl1 cons __tmp214255 _r202924_)))) + (___kont213171213172_ (lambda () (reverse _r202924_)))) + (let ((_g202927202969_ (lambda () - (let ((_L201797_ ___stx212002212003_)) + (let ((_L202958_ ___stx213163213164_)) (if (let () (declare (not safe)) - (gx#identifier? _L201797_)) - (___kont212008212009_ _L201797_) - (___kont212010212011_)))))) + (gx#identifier? _L202958_)) + (___kont213169213170_ _L202958_) + (___kont213171213172_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212002212003_)) - (let ((_e201773201837_ + (gx#stx-pair? ___stx213163213164_)) + (let ((_e202934202998_ (let () (declare (not safe)) - (gx#stx-e ___stx212002212003_)))) - (let ((_tl201771201842_ + (gx#stx-e ___stx213163213164_)))) + (let ((_tl202932203003_ (let () (declare (not safe)) - (##cdr _e201773201837_))) - (_hd201772201840_ + (##cdr _e202934202998_))) + (_hd202933203001_ (let () (declare (not safe)) - (##car _e201773201837_)))) + (##car _e202934202998_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd201772201840_)) - (let ((_e201774201845_ + (gx#stx-datum? _hd202933203001_)) + (let ((_e202935203006_ (let () (declare (not safe)) - (gx#stx-e _hd201772201840_)))) + (gx#stx-e _hd202933203001_)))) (if (let () (declare (not safe)) - (equal? _e201774201845_ '#f)) - (___kont212004212005_ _tl201771201842_) - (___kont212006212007_ - _tl201771201842_ - _hd201772201840_))) - (___kont212006212007_ - _tl201771201842_ - _hd201772201840_)))) - (let () (declare (not safe)) (_g201766201808_))))))))) + (equal? _e202935203006_ '#f)) + (___kont213165213166_ _tl202932203003_) + (___kont213167213168_ + _tl202932203003_ + _hd202933203001_))) + (___kont213167213168_ + _tl202932203003_ + _hd202933203001_)))) + (let () (declare (not safe)) (_g202927202969_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_stx201438_ _compiled-body?201439_) - (letrec ((_generate-simple201441_ - (lambda (_hd201743_ _body201744_) + (lambda (_stx202599_ _compiled-body?202600_) + (letrec ((_generate-simple202602_ + (lambda (_hd202904_ _body202905_) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _hd201743_ - _body201744_ - _compiled-body?201439_)))) - (_generate-values201442_ - (lambda (_hd201522_ _body201523_) - (let _lp201525_ ((_rest201527_ _hd201522_) - (_bind201528_ '()) - (_check201529_ '()) - (_post201530_ '())) - (let* ((___stx212076212077_ _rest201527_) - (_g201533201544_ + _hd202904_ + _body202905_ + _compiled-body?202600_)))) + (_generate-values202603_ + (lambda (_hd202683_ _body202684_) + (let _lp202686_ ((_rest202688_ _hd202683_) + (_bind202689_ '()) + (_check202690_ '()) + (_post202691_ '())) + (let* ((___stx213237213238_ _rest202688_) + (_g202694202705_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212076212077_))))) - (let ((___kont212078212079_ - (lambda (_L201571_ _L201572_) - (let* ((___stx212032212033_ _L201572_) - (_g201587201612_ + ___stx213237213238_))))) + (let ((___kont213239213240_ + (lambda (_L202732_ _L202733_) + (let* ((___stx213193213194_ _L202733_) + (_g202748202773_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212032212033_))))) - (let ((___kont212034212035_ - (lambda (_L201719_ _L201720_) - (let ((_eid201734_ + ___stx213193213194_))))) + (let ((___kont213195213196_ + (lambda (_L202880_ _L202881_) + (let ((_eid202895_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L201720_))) - (_expr201735_ + _L202881_))) + (_expr202896_ (let () (declare (not safe)) (gxc#compile-e__0 - _L201719_)))) - (let ((__tmp213099 - (let ((__tmp213100 - (let ((__tmp213101 + _L202880_)))) + (let ((__tmp214260 + (let ((__tmp214261 + (let ((__tmp214262 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr201735_ '())))) + (cons _expr202896_ '())))) (declare (not safe)) - (cons _eid201734_ __tmp213101)))) + (cons _eid202895_ __tmp214262)))) (declare (not safe)) - (cons __tmp213100 _bind201528_)))) + (cons __tmp214261 _bind202689_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201525_ - _L201571_ - __tmp213099 - _check201529_ - _post201530_))))) - (___kont212036212037_ - (lambda (_L201633_ _L201634_) - (let* ((_vals201647_ + (_lp202686_ + _L202732_ + __tmp214260 + _check202690_ + _post202691_))))) + (___kont213197213198_ + (lambda (_L202794_ _L202795_) + (let* ((_vals202808_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values201649_ + (_check-values202810_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _vals201647_ - _L201634_ - _L201633_))) - (_refs201651_ + _vals202808_ + _L202795_ + _L202794_))) + (_refs202812_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals201647_ - _L201634_))) - (_expr201653_ + _vals202808_ + _L202795_))) + (_expr202814_ (let () (declare (not safe)) (gxc#compile-e__0 - _L201633_)))) - (let ((__tmp213104 - (let ((__tmp213107 - (let ((__tmp213108 + _L202794_)))) + (let ((__tmp214265 + (let ((__tmp214268 + (let ((__tmp214269 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213109 + (let ((__tmp214270 (let () (declare (not safe)) - (cons _expr201653_ '())))) + (cons _expr202814_ '())))) (declare (not safe)) - (cons _vals201647_ __tmp213109)))) + (cons _vals202808_ __tmp214270)))) (declare (not safe)) - (cons __tmp213108 _bind201528_))) - (__tmp213105 - (map (lambda (_e201655201657_) - (let* ((_g201659201668_ _e201655201657_) - (_E201661201672_ + (cons __tmp214269 _bind202689_))) + (__tmp214266 + (map (lambda (_e202816202818_) + (let* ((_g202820202829_ _e202816202818_) + (_E202822202833_ (lambda () (error '"No clause matching" - _g201659201668_))) - (_K201662201677_ - (lambda (_eid201675_) - (let ((__tmp213106 + _g202820202829_))) + (_K202823202838_ + (lambda (_eid202836_) + (let ((__tmp214267 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons _eid201675_ __tmp213106))))) + (cons _eid202836_ __tmp214267))))) (if (let () (declare (not safe)) - (##pair? _g201659201668_)) - (let ((_hd201663201680_ + (##pair? _g202820202829_)) + (let ((_hd202824202841_ (let () (declare (not safe)) - (##car _g201659201668_))) - (_tl201664201682_ + (##car _g202820202829_))) + (_tl202825202843_ (let () (declare (not safe)) - (##cdr _g201659201668_)))) - (let ((_eid201685_ _hd201663201680_)) + (##cdr _g202820202829_)))) + (let ((_eid202846_ _hd202824202841_)) (if (let () (declare (not safe)) - (##pair? _tl201664201682_)) - (let ((_tl201666201687_ + (##pair? _tl202825202843_)) + (let ((_tl202827202848_ (let () (declare (not safe)) - (##cdr _tl201664201682_)))) + (##cdr _tl202825202843_)))) (if (let () (declare (not safe)) - (##null? _tl201666201687_)) + (##null? _tl202827202848_)) (let () (declare (not safe)) - (_K201662201677_ - _eid201685_)) + (_K202823202838_ + _eid202846_)) (let () (declare (not safe)) - (_E201661201672_)))) + (_E202822202833_)))) (let () (declare (not safe)) - (_E201661201672_))))) + (_E202822202833_))))) (let () (declare (not safe)) - (_E201661201672_))))) - _refs201651_))) + (_E202822202833_))))) + _refs202812_))) (declare (not safe)) - (foldl1 cons __tmp213107 __tmp213105))) - (__tmp213103 + (foldl1 cons __tmp214268 __tmp214266))) + (__tmp214264 (let () (declare (not safe)) - (cons _check-values201649_ _check201529_))) - (__tmp213102 + (cons _check-values202810_ _check202690_))) + (__tmp214263 (let () (declare (not safe)) - (foldl1 cons _refs201651_ _post201530_)))) + (foldl1 cons _refs202812_ _post202691_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201525_ - _L201571_ - __tmp213104 - __tmp213103 - __tmp213102)))))) + (_lp202686_ + _L202732_ + __tmp214265 + __tmp214264 + __tmp214263)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx212032212033_)) - (let ((_e201593201695_ + ___stx213193213194_)) + (let ((_e202754202856_ (let () (declare (not safe)) (gx#stx-e - ___stx212032212033_)))) - (let ((_tl201591201700_ + ___stx213193213194_)))) + (let ((_tl202752202861_ (let () (declare (not safe)) - (##cdr _e201593201695_))) - (_hd201592201698_ + (##cdr _e202754202856_))) + (_hd202753202859_ (let () (declare (not safe)) - (##car _e201593201695_)))) + (##car _e202754202856_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd201592201698_)) - (let ((_e201596201703_ + _hd202753202859_)) + (let ((_e202757202864_ (let () (declare (not safe)) (gx#stx-e - _hd201592201698_)))) - (let ((_tl201594201708_ + _hd202753202859_)))) + (let ((_tl202755202869_ (let () (declare (not safe)) - (##cdr _e201596201703_))) - (_hd201595201706_ + (##cdr _e202757202864_))) + (_hd202756202867_ (let () (declare (not safe)) - (##car _e201596201703_)))) + (##car _e202757202864_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201594201708_)) + _tl202755202869_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl201591201700_)) - (let ((_e201599201711_ + (gx#stx-pair? _tl202752202861_)) + (let ((_e202760202872_ (let () (declare (not safe)) - (gx#stx-e _tl201591201700_)))) - (let ((_tl201597201716_ + (gx#stx-e _tl202752202861_)))) + (let ((_tl202758202877_ (let () (declare (not safe)) - (##cdr _e201599201711_))) - (_hd201598201714_ + (##cdr _e202760202872_))) + (_hd202759202875_ (let () (declare (not safe)) - (##car _e201599201711_)))) + (##car _e202760202872_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201597201716_)) - (___kont212034212035_ - _hd201598201714_ - _hd201595201706_) + (gx#stx-null? _tl202758202877_)) + (___kont213195213196_ + _hd202759202875_ + _hd202756202867_) (let () (declare (not safe)) - (_g201587201612_))))) - (let () (declare (not safe)) (_g201587201612_))) + (_g202748202773_))))) + (let () (declare (not safe)) (_g202748202773_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201591201700_)) - (let ((_e201607201625_ + (gx#stx-pair? _tl202752202861_)) + (let ((_e202768202786_ (let () (declare (not safe)) - (gx#stx-e _tl201591201700_)))) - (let ((_tl201605201630_ + (gx#stx-e _tl202752202861_)))) + (let ((_tl202766202791_ (let () (declare (not safe)) - (##cdr _e201607201625_))) - (_hd201606201628_ + (##cdr _e202768202786_))) + (_hd202767202789_ (let () (declare (not safe)) - (##car _e201607201625_)))) + (##car _e202768202786_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201605201630_)) - (___kont212036212037_ - _hd201606201628_ - _hd201592201698_) + (gx#stx-null? _tl202766202791_)) + (___kont213197213198_ + _hd202767202789_ + _hd202753202859_) (let () (declare (not safe)) - (_g201587201612_))))) - (let () (declare (not safe)) (_g201587201612_)))))) + (_g202748202773_))))) + (let () (declare (not safe)) (_g202748202773_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl201591201700_)) - (let ((_e201607201625_ + _tl202752202861_)) + (let ((_e202768202786_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl201591201700_)))) - (let ((_tl201605201630_ - (let () (declare (not safe)) (##cdr _e201607201625_))) - (_hd201606201628_ - (let () (declare (not safe)) (##car _e201607201625_)))) + (gx#stx-e _tl202752202861_)))) + (let ((_tl202766202791_ + (let () (declare (not safe)) (##cdr _e202768202786_))) + (_hd202767202789_ + (let () (declare (not safe)) (##car _e202768202786_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201605201630_)) - (___kont212036212037_ _hd201606201628_ _hd201592201698_) - (let () (declare (not safe)) (_g201587201612_))))) - (let () (declare (not safe)) (_g201587201612_)))))) + (gx#stx-null? _tl202766202791_)) + (___kont213197213198_ _hd202767202789_ _hd202753202859_) + (let () (declare (not safe)) (_g202748202773_))))) + (let () (declare (not safe)) (_g202748202773_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g201587201612_))))))) - (___kont212080212081_ + (_g202748202773_))))))) + (___kont213241213242_ (lambda () - (let* ((_body201551_ - (if _compiled-body?201439_ - _body201523_ + (let* ((_body202712_ + (if _compiled-body?202600_ + _body202684_ (let () (declare (not safe)) (gxc#compile-e__0 - _body201523_)))) - (_body201553_ + _body202684_)))) + (_body202714_ (let () (declare (not safe)) - (_generate-values-post201444_ - _post201530_ - _body201551_))) - (_body201555_ + (_generate-values-post202605_ + _post202691_ + _body202712_))) + (_body202716_ (let () (declare (not safe)) - (_generate-values-check201443_ - _check201529_ - _body201553_)))) - (let ((__tmp213110 - (let ((__tmp213112 - (reverse _bind201528_)) - (__tmp213111 + (_generate-values-check202604_ + _check202690_ + _body202714_)))) + (let ((__tmp214271 + (let ((__tmp214273 + (reverse _bind202689_)) + (__tmp214272 (let () (declare (not safe)) - (cons _body201555_ '())))) + (cons _body202716_ '())))) (declare (not safe)) - (cons __tmp213112 __tmp213111)))) + (cons __tmp214273 __tmp214272)))) (declare (not safe)) - (cons 'letrec __tmp213110)))))) + (cons 'letrec __tmp214271)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212076212077_)) - (let ((_e201539201563_ + (gx#stx-pair? ___stx213237213238_)) + (let ((_e202700202724_ (let () (declare (not safe)) - (gx#stx-e ___stx212076212077_)))) - (let ((_tl201537201568_ + (gx#stx-e ___stx213237213238_)))) + (let ((_tl202698202729_ (let () (declare (not safe)) - (##cdr _e201539201563_))) - (_hd201538201566_ + (##cdr _e202700202724_))) + (_hd202699202727_ (let () (declare (not safe)) - (##car _e201539201563_)))) - (___kont212078212079_ - _tl201537201568_ - _hd201538201566_))) - (___kont212080212081_))))))) - (_generate-values-check201443_ - (lambda (_check201519_ _body201520_) - (let ((__tmp213113 - (let ((__tmp213115 + (##car _e202700202724_)))) + (___kont213239213240_ + _tl202698202729_ + _hd202699202727_))) + (___kont213241213242_))))))) + (_generate-values-check202604_ + (lambda (_check202680_ _body202681_) + (let ((__tmp214274 + (let ((__tmp214276 (let () (declare (not safe)) - (cons _body201520_ '()))) - (__tmp213114 (reverse _check201519_))) + (cons _body202681_ '()))) + (__tmp214275 (reverse _check202680_))) (declare (not safe)) - (foldr1 cons __tmp213115 __tmp213114)))) + (foldr1 cons __tmp214276 __tmp214275)))) (declare (not safe)) - (cons 'begin __tmp213113)))) - (_generate-values-post201444_ - (lambda (_post201512_ _body201513_) - (let ((__tmp213116 - (let ((__tmp213118 + (cons 'begin __tmp214274)))) + (_generate-values-post202605_ + (lambda (_post202673_ _body202674_) + (let ((__tmp214277 + (let ((__tmp214279 (let () (declare (not safe)) - (cons _body201513_ '()))) - (__tmp213117 - (map (lambda (_g201514201516_) + (cons _body202674_ '()))) + (__tmp214278 + (map (lambda (_g202675202677_) (let () (declare (not safe)) - (cons 'set! _g201514201516_))) - (reverse _post201512_)))) + (cons 'set! _g202675202677_))) + (reverse _post202673_)))) (declare (not safe)) - (foldr1 cons __tmp213118 __tmp213117)))) + (foldr1 cons __tmp214279 __tmp214278)))) (declare (not safe)) - (cons 'begin __tmp213116))))) - (let* ((_g201446201463_ - (lambda (_g201447201460_) + (cons 'begin __tmp214277))))) + (let* ((_g202607202624_ + (lambda (_g202608202621_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201447201460_)))) - (_g201445201509_ - (lambda (_g201447201466_) + _g202608202621_)))) + (_g202606202670_ + (lambda (_g202608202627_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201447201466_)) - (let ((_e201452201468_ + (gx#stx-pair? _g202608202627_)) + (let ((_e202613202629_ (let () (declare (not safe)) - (gx#stx-e _g201447201466_)))) - (let ((_hd201451201471_ + (gx#stx-e _g202608202627_)))) + (let ((_hd202612202632_ (let () (declare (not safe)) - (##car _e201452201468_))) - (_tl201450201473_ + (##car _e202613202629_))) + (_tl202611202634_ (let () (declare (not safe)) - (##cdr _e201452201468_)))) + (##cdr _e202613202629_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201450201473_)) - (let ((_e201455201476_ + (gx#stx-pair? _tl202611202634_)) + (let ((_e202616202637_ (let () (declare (not safe)) - (gx#stx-e _tl201450201473_)))) - (let ((_hd201454201479_ + (gx#stx-e _tl202611202634_)))) + (let ((_hd202615202640_ (let () (declare (not safe)) - (##car _e201455201476_))) - (_tl201453201481_ + (##car _e202616202637_))) + (_tl202614202642_ (let () (declare (not safe)) - (##cdr _e201455201476_)))) + (##cdr _e202616202637_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201453201481_)) - (let ((_e201458201484_ + (gx#stx-pair? _tl202614202642_)) + (let ((_e202619202645_ (let () (declare (not safe)) (gx#stx-e - _tl201453201481_)))) - (let ((_hd201457201487_ + _tl202614202642_)))) + (let ((_hd202618202648_ (let () (declare (not safe)) - (##car _e201458201484_))) - (_tl201456201489_ + (##car _e202619202645_))) + (_tl202617202650_ (let () (declare (not safe)) - (##cdr _e201458201484_)))) + (##cdr _e202619202645_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201456201489_)) - ((lambda (_L201492_ - _L201493_) + _tl202617202650_)) + ((lambda (_L202653_ + _L202654_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L201493_)) + _L202654_)) (let () (declare (not safe)) - (_generate-simple201441_ - _L201493_ - _L201492_)) + (_generate-simple202602_ + _L202654_ + _L202653_)) (let () (declare (not safe)) - (_generate-values201442_ - _L201493_ - _L201492_)))) - _hd201457201487_ - _hd201454201479_) + (_generate-values202603_ + _L202654_ + _L202653_)))) + _hd202618202648_ + _hd202615202640_) (let () (declare (not safe)) - (_g201446201463_ - _g201447201466_))))) + (_g202607202624_ + _g202608202627_))))) (let () (declare (not safe)) - (_g201446201463_ - _g201447201466_))))) + (_g202607202624_ + _g202608202627_))))) (let () (declare (not safe)) - (_g201446201463_ _g201447201466_))))) + (_g202607202624_ _g202608202627_))))) (let () (declare (not safe)) - (_g201446201463_ _g201447201466_)))))) + (_g202607202624_ _g202608202627_)))))) (declare (not safe)) - (_g201445201509_ _stx201438_))))) + (_g202606202670_ _stx202599_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_stx201749_) - (let ((_compiled-body?201751_ '#f)) + (lambda (_stx202910_) + (let ((_compiled-body?202912_ '#f)) (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx201749_ - _compiled-body?201751_)))) + _stx202910_ + _compiled-body?202912_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g213120_ - (let ((_g213119_ (let () (declare (not safe)) (##length _g213120_)))) - (cond ((let () (declare (not safe)) (##fx= _g213119_ 1)) - (apply (lambda (_stx201749_) + (lambda _g214281_ + (let ((_g214280_ (let () (declare (not safe)) (##length _g214281_)))) + (cond ((let () (declare (not safe)) (##fx= _g214280_ 1)) + (apply (lambda (_stx202910_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__0 - _stx201749_))) - _g213120_)) - ((let () (declare (not safe)) (##fx= _g213119_ 2)) - (apply (lambda (_stx201753_ _compiled-body?201754_) + _stx202910_))) + _g214281_)) + ((let () (declare (not safe)) (##fx= _g214280_ 2)) + (apply (lambda (_stx202914_ _compiled-body?202915_) (let () (declare (not safe)) (gxc#generate-runtime-letrec-values%__% - _stx201753_ - _compiled-body?201754_))) - _g213120_)) + _stx202914_ + _compiled-body?202915_))) + _g214281_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g213120_)))))) + _g214281_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_stx201020_) - (letrec ((_generate-values201022_ - (lambda (_hd201265_ _body201266_) - (let _lp201268_ ((_rest201270_ _hd201265_) - (_bind201271_ '())) - (let* ((_rest201272201280_ _rest201270_) - (_else201274201291_ + (lambda (_stx202181_) + (letrec ((_generate-values202183_ + (lambda (_hd202426_ _body202427_) + (let _lp202429_ ((_rest202431_ _hd202426_) + (_bind202432_ '())) + (let* ((_rest202433202441_ _rest202431_) + (_else202435202452_ (lambda () - (let ((_bind201288_ (reverse _bind201271_)) - (_body201289_ + (let ((_bind202449_ (reverse _bind202432_)) + (_body202450_ (let () (declare (not safe)) - (gxc#compile-e__0 _body201266_)))) - (let ((__tmp213121 - (let ((__tmp213122 + (gxc#compile-e__0 _body202427_)))) + (let ((__tmp214282 + (let ((__tmp214283 (let () (declare (not safe)) - (cons _body201289_ '())))) + (cons _body202450_ '())))) (declare (not safe)) - (cons _bind201288_ __tmp213122)))) + (cons _bind202449_ __tmp214283)))) (declare (not safe)) - (cons 'letrec* __tmp213121))))) - (_K201276201425_ - (lambda (_rest201294_ _hd-bind201295_) - (let* ((___stx212090212091_ _hd-bind201295_) - (_g201298201323_ + (cons 'letrec* __tmp214282))))) + (_K202437202586_ + (lambda (_rest202455_ _hd-bind202456_) + (let* ((___stx213251213252_ _hd-bind202456_) + (_g202459202484_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212090212091_))))) - (let ((___kont212092212093_ - (lambda (_L201404_ _L201405_) - (let ((_eid201419_ + ___stx213251213252_))))) + (let ((___kont213253213254_ + (lambda (_L202565_ _L202566_) + (let ((_eid202580_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _L201405_))) - (_expr201420_ + _L202566_))) + (_expr202581_ (let () (declare (not safe)) (gxc#compile-e__0 - _L201404_)))) - (let ((__tmp213123 - (let ((__tmp213124 - (let ((__tmp213125 + _L202565_)))) + (let ((__tmp214284 + (let ((__tmp214285 + (let ((__tmp214286 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr201420_ '())))) + (cons _expr202581_ '())))) (declare (not safe)) - (cons _eid201419_ __tmp213125)))) + (cons _eid202580_ __tmp214286)))) (declare (not safe)) - (cons __tmp213124 _bind201271_)))) + (cons __tmp214285 _bind202432_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201268_ - _rest201294_ - __tmp213123))))) - (___kont212094212095_ - (lambda (_L201344_ _L201345_) - (let* ((_vals201364_ + (_lp202429_ + _rest202455_ + __tmp214284))))) + (___kont213255213256_ + (lambda (_L202505_ _L202506_) + (let* ((_vals202525_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_tmp201366_ + (_tmp202527_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_check-values201368_ + (_check-values202529_ (let () (declare (not safe)) (gxc#generate-runtime-check-values - _tmp201366_ - _L201345_ - _L201344_))) - (_refs201370_ + _tmp202527_ + _L202506_ + _L202505_))) + (_refs202531_ (let () (declare (not safe)) (gxc#generate-runtime-let-values-bind - _vals201364_ - _L201345_))) - (_expr201372_ + _vals202525_ + _L202506_))) + (_expr202533_ (let () (declare (not safe)) (gxc#compile-e__0 - _L201344_)))) - (let ((__tmp213126 - (let ((__tmp213127 - (let ((__tmp213128 + _L202505_)))) + (let ((__tmp214287 + (let ((__tmp214288 + (let ((__tmp214289 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213129 - (let ((__tmp213130 - (let ((__tmp213131 - (let ((__tmp213134 - (let ((__tmp213135 - (let ((__tmp213136 + (let ((__tmp214290 + (let ((__tmp214291 + (let ((__tmp214292 + (let ((__tmp214295 + (let ((__tmp214296 + (let ((__tmp214297 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr201372_ '())))) + (cons _expr202533_ '())))) (declare (not safe)) - (cons _tmp201366_ __tmp213136)))) + (cons _tmp202527_ __tmp214297)))) (declare (not safe)) - (cons __tmp213135 '()))) - (__tmp213132 - (let ((__tmp213133 - (let () (declare (not safe)) (cons _tmp201366_ '())))) + (cons __tmp214296 '()))) + (__tmp214293 + (let ((__tmp214294 + (let () (declare (not safe)) (cons _tmp202527_ '())))) (declare (not safe)) - (cons _check-values201368_ __tmp213133)))) + (cons _check-values202529_ __tmp214294)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213134 - __tmp213132)))) + (cons __tmp214295 + __tmp214293)))) (declare (not safe)) - (cons 'let __tmp213131)))) + (cons 'let __tmp214292)))) (declare (not safe)) - (cons __tmp213130 '())))) + (cons __tmp214291 '())))) (declare (not safe)) - (cons _vals201364_ __tmp213129)))) + (cons _vals202525_ __tmp214290)))) (declare (not safe)) - (cons __tmp213128 _bind201271_)))) + (cons __tmp214289 _bind202432_)))) (declare (not safe)) - (foldl1 cons __tmp213127 _refs201370_)))) + (foldl1 cons __tmp214288 _refs202531_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp201268_ - _rest201294_ - __tmp213126)))))) + (_lp202429_ + _rest202455_ + __tmp214287)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212090212091_)) - (let ((_e201304201380_ + (gx#stx-pair? ___stx213251213252_)) + (let ((_e202465202541_ (let () (declare (not safe)) (gx#stx-e - ___stx212090212091_)))) - (let ((_tl201302201385_ + ___stx213251213252_)))) + (let ((_tl202463202546_ (let () (declare (not safe)) - (##cdr _e201304201380_))) - (_hd201303201383_ + (##cdr _e202465202541_))) + (_hd202464202544_ (let () (declare (not safe)) - (##car _e201304201380_)))) + (##car _e202465202541_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd201303201383_)) - (let ((_e201307201388_ + _hd202464202544_)) + (let ((_e202468202549_ (let () (declare (not safe)) (gx#stx-e - _hd201303201383_)))) - (let ((_tl201305201393_ + _hd202464202544_)))) + (let ((_tl202466202554_ (let () (declare (not safe)) - (##cdr _e201307201388_))) - (_hd201306201391_ + (##cdr _e202468202549_))) + (_hd202467202552_ (let () (declare (not safe)) - (##car _e201307201388_)))) + (##car _e202468202549_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201305201393_)) + _tl202466202554_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl201302201385_)) - (let ((_e201310201396_ + (gx#stx-pair? _tl202463202546_)) + (let ((_e202471202557_ (let () (declare (not safe)) - (gx#stx-e _tl201302201385_)))) - (let ((_tl201308201401_ + (gx#stx-e _tl202463202546_)))) + (let ((_tl202469202562_ (let () (declare (not safe)) - (##cdr _e201310201396_))) - (_hd201309201399_ + (##cdr _e202471202557_))) + (_hd202470202560_ (let () (declare (not safe)) - (##car _e201310201396_)))) + (##car _e202471202557_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201308201401_)) - (___kont212092212093_ - _hd201309201399_ - _hd201306201391_) + (gx#stx-null? _tl202469202562_)) + (___kont213253213254_ + _hd202470202560_ + _hd202467202552_) (let () (declare (not safe)) - (_g201298201323_))))) - (let () (declare (not safe)) (_g201298201323_))) + (_g202459202484_))))) + (let () (declare (not safe)) (_g202459202484_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201302201385_)) - (let ((_e201318201336_ + (gx#stx-pair? _tl202463202546_)) + (let ((_e202479202497_ (let () (declare (not safe)) - (gx#stx-e _tl201302201385_)))) - (let ((_tl201316201341_ + (gx#stx-e _tl202463202546_)))) + (let ((_tl202477202502_ (let () (declare (not safe)) - (##cdr _e201318201336_))) - (_hd201317201339_ + (##cdr _e202479202497_))) + (_hd202478202500_ (let () (declare (not safe)) - (##car _e201318201336_)))) + (##car _e202479202497_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201316201341_)) - (___kont212094212095_ - _hd201317201339_ - _hd201303201383_) + (gx#stx-null? _tl202477202502_)) + (___kont213255213256_ + _hd202478202500_ + _hd202464202544_) (let () (declare (not safe)) - (_g201298201323_))))) - (let () (declare (not safe)) (_g201298201323_)))))) + (_g202459202484_))))) + (let () (declare (not safe)) (_g202459202484_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl201302201385_)) - (let ((_e201318201336_ + _tl202463202546_)) + (let ((_e202479202497_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl201302201385_)))) - (let ((_tl201316201341_ - (let () (declare (not safe)) (##cdr _e201318201336_))) - (_hd201317201339_ - (let () (declare (not safe)) (##car _e201318201336_)))) + (gx#stx-e _tl202463202546_)))) + (let ((_tl202477202502_ + (let () (declare (not safe)) (##cdr _e202479202497_))) + (_hd202478202500_ + (let () (declare (not safe)) (##car _e202479202497_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201316201341_)) - (___kont212094212095_ _hd201317201339_ _hd201303201383_) - (let () (declare (not safe)) (_g201298201323_))))) - (let () (declare (not safe)) (_g201298201323_)))))) + (gx#stx-null? _tl202477202502_)) + (___kont213255213256_ _hd202478202500_ _hd202464202544_) + (let () (declare (not safe)) (_g202459202484_))))) + (let () (declare (not safe)) (_g202459202484_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g201298201323_)))))))) + (_g202459202484_)))))))) (if (let () (declare (not safe)) - (##pair? _rest201272201280_)) - (let ((_hd201277201428_ + (##pair? _rest202433202441_)) + (let ((_hd202438202589_ (let () (declare (not safe)) - (##car _rest201272201280_))) - (_tl201278201430_ + (##car _rest202433202441_))) + (_tl202439202591_ (let () (declare (not safe)) - (##cdr _rest201272201280_)))) - (let* ((_hd-bind201433_ _hd201277201428_) - (_rest201435_ _tl201278201430_)) + (##cdr _rest202433202441_)))) + (let* ((_hd-bind202594_ _hd202438202589_) + (_rest202596_ _tl202439202591_)) (declare (not safe)) - (_K201276201425_ - _rest201435_ - _hd-bind201433_))) + (_K202437202586_ + _rest202596_ + _hd-bind202594_))) (let () (declare (not safe)) - (_else201274201291_))))))) - (_generate-letrec?201023_ - (lambda (_hd201155_) - (let _lp201157_ ((_rest201159_ _hd201155_)) - (let* ((_rest201160201168_ _rest201159_) - (_else201162201176_ (lambda () '#t)) - (_K201164201253_ - (lambda (_rest201179_ _hd-bind201180_) - (let* ((_g201182201199_ - (lambda (_g201183201196_) + (_else202435202452_))))))) + (_generate-letrec?202184_ + (lambda (_hd202316_) + (let _lp202318_ ((_rest202320_ _hd202316_)) + (let* ((_rest202321202329_ _rest202320_) + (_else202323202337_ (lambda () '#t)) + (_K202325202414_ + (lambda (_rest202340_ _hd-bind202341_) + (let* ((_g202343202360_ + (lambda (_g202344202357_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201183201196_)))) - (_g201181201250_ - (lambda (_g201183201202_) + _g202344202357_)))) + (_g202342202411_ + (lambda (_g202344202363_) (if (let () (declare (not safe)) (gx#stx-pair? - _g201183201202_)) - (let ((_e201188201204_ + _g202344202363_)) + (let ((_e202349202365_ (let () (declare (not safe)) (gx#stx-e - _g201183201202_)))) - (let ((_hd201187201207_ + _g202344202363_)))) + (let ((_hd202348202368_ (let () (declare (not safe)) - (##car _e201188201204_))) - (_tl201186201209_ + (##car _e202349202365_))) + (_tl202347202370_ (let () (declare (not safe)) - (##cdr _e201188201204_)))) + (##cdr _e202349202365_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd201187201207_)) - (let ((_e201191201212_ + _hd202348202368_)) + (let ((_e202352202373_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd201187201207_)))) - (let ((_hd201190201215_ - (let () (declare (not safe)) (##car _e201191201212_))) - (_tl201189201217_ + (gx#stx-e _hd202348202368_)))) + (let ((_hd202351202376_ + (let () (declare (not safe)) (##car _e202352202373_))) + (_tl202350202378_ (let () (declare (not safe)) - (##cdr _e201191201212_)))) + (##cdr _e202352202373_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201189201217_)) + (gx#stx-null? _tl202350202378_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201186201209_)) - (let ((_e201194201220_ + (gx#stx-pair? _tl202347202370_)) + (let ((_e202355202381_ (let () (declare (not safe)) - (gx#stx-e _tl201186201209_)))) - (let ((_hd201193201223_ + (gx#stx-e _tl202347202370_)))) + (let ((_hd202354202384_ (let () (declare (not safe)) - (##car _e201194201220_))) - (_tl201192201225_ + (##car _e202355202381_))) + (_tl202353202386_ (let () (declare (not safe)) - (##cdr _e201194201220_)))) + (##cdr _e202355202381_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl201192201225_)) - ((lambda (_L201228_ _L201229_) + (gx#stx-null? _tl202353202386_)) + ((lambda (_L202389_ _L202390_) (if (let () (declare (not safe)) - (_is-lambda-expr?201024_ - _L201228_)) + (_is-lambda-expr?202185_ + _L202389_)) (let () (declare (not safe)) - (_lp201157_ _rest201179_)) + (_lp202318_ _rest202340_)) '#f)) - _hd201193201223_ - _hd201190201215_) + _hd202354202384_ + _hd202351202376_) (let () (declare (not safe)) - (_g201182201199_ _g201183201202_))))) + (_g202343202360_ _g202344202363_))))) (let () (declare (not safe)) - (_g201182201199_ _g201183201202_))) + (_g202343202360_ _g202344202363_))) (let () (declare (not safe)) - (_g201182201199_ _g201183201202_))))) + (_g202343202360_ _g202344202363_))))) (let () (declare (not safe)) - (_g201182201199_ _g201183201202_))))) + (_g202343202360_ _g202344202363_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g201182201199_ - _g201183201202_)))))) + (_g202343202360_ + _g202344202363_)))))) (declare (not safe)) - (_g201181201250_ _hd-bind201180_))))) + (_g202342202411_ _hd-bind202341_))))) (if (let () (declare (not safe)) - (##pair? _rest201160201168_)) - (let ((_hd201165201256_ + (##pair? _rest202321202329_)) + (let ((_hd202326202417_ (let () (declare (not safe)) - (##car _rest201160201168_))) - (_tl201166201258_ + (##car _rest202321202329_))) + (_tl202327202419_ (let () (declare (not safe)) - (##cdr _rest201160201168_)))) - (let* ((_hd-bind201261_ _hd201165201256_) - (_rest201263_ _tl201166201258_)) + (##cdr _rest202321202329_)))) + (let* ((_hd-bind202422_ _hd202326202417_) + (_rest202424_ _tl202327202419_)) (declare (not safe)) - (_K201164201253_ - _rest201263_ - _hd-bind201261_))) + (_K202325202414_ + _rest202424_ + _hd-bind202422_))) (let () (declare (not safe)) - (_else201162201176_))))))) - (_is-lambda-expr?201024_ - (lambda (_expr201092_) - (let* ((___stx212134212135_ _expr201092_) - (_g201095201109_ + (_else202323202337_))))))) + (_is-lambda-expr?202185_ + (lambda (_expr202253_) + (let* ((___stx213295213296_ _expr202253_) + (_g202256202270_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212134212135_))))) - (let ((___kont212136212137_ - (lambda (_L201137_ _L201138_) '#t)) - (___kont212138212139_ (lambda () '#f))) + ___stx213295213296_))))) + (let ((___kont213297213298_ + (lambda (_L202298_ _L202299_) '#t)) + (___kont213299213300_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212134212135_)) - (let ((_e201101201121_ + (gx#stx-pair? ___stx213295213296_)) + (let ((_e202262202282_ (let () (declare (not safe)) - (gx#stx-e ___stx212134212135_)))) - (let ((_tl201099201126_ + (gx#stx-e ___stx213295213296_)))) + (let ((_tl202260202287_ (let () (declare (not safe)) - (##cdr _e201101201121_))) - (_hd201100201124_ + (##cdr _e202262202282_))) + (_hd202261202285_ (let () (declare (not safe)) - (##car _e201101201121_)))) + (##car _e202262202282_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd201100201124_)) + (gx#identifier? _hd202261202285_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd201100201124_)) + _hd202261202285_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl201099201126_)) - (let ((_e201104201129_ + _tl202260202287_)) + (let ((_e202265202290_ (let () (declare (not safe)) (gx#stx-e - _tl201099201126_)))) - (let ((_tl201102201134_ + _tl202260202287_)))) + (let ((_tl202263202295_ (let () (declare (not safe)) - (##cdr _e201104201129_))) - (_hd201103201132_ + (##cdr _e202265202290_))) + (_hd202264202293_ (let () (declare (not safe)) - (##car _e201104201129_)))) - (___kont212136212137_ - _tl201102201134_ - _hd201103201132_))) - (___kont212138212139_)) - (___kont212138212139_)) - (___kont212138212139_)))) - (___kont212138212139_))))))) - (let* ((_g201026201043_ - (lambda (_g201027201040_) + (##car _e202265202290_)))) + (___kont213297213298_ + _tl202263202295_ + _hd202264202293_))) + (___kont213299213300_)) + (___kont213299213300_)) + (___kont213299213300_)))) + (___kont213299213300_))))))) + (let* ((_g202187202204_ + (lambda (_g202188202201_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g201027201040_)))) - (_g201025201089_ - (lambda (_g201027201046_) + _g202188202201_)))) + (_g202186202250_ + (lambda (_g202188202207_) (if (let () (declare (not safe)) - (gx#stx-pair? _g201027201046_)) - (let ((_e201032201048_ + (gx#stx-pair? _g202188202207_)) + (let ((_e202193202209_ (let () (declare (not safe)) - (gx#stx-e _g201027201046_)))) - (let ((_hd201031201051_ + (gx#stx-e _g202188202207_)))) + (let ((_hd202192202212_ (let () (declare (not safe)) - (##car _e201032201048_))) - (_tl201030201053_ + (##car _e202193202209_))) + (_tl202191202214_ (let () (declare (not safe)) - (##cdr _e201032201048_)))) + (##cdr _e202193202209_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201030201053_)) - (let ((_e201035201056_ + (gx#stx-pair? _tl202191202214_)) + (let ((_e202196202217_ (let () (declare (not safe)) - (gx#stx-e _tl201030201053_)))) - (let ((_hd201034201059_ + (gx#stx-e _tl202191202214_)))) + (let ((_hd202195202220_ (let () (declare (not safe)) - (##car _e201035201056_))) - (_tl201033201061_ + (##car _e202196202217_))) + (_tl202194202222_ (let () (declare (not safe)) - (##cdr _e201035201056_)))) + (##cdr _e202196202217_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl201033201061_)) - (let ((_e201038201064_ + (gx#stx-pair? _tl202194202222_)) + (let ((_e202199202225_ (let () (declare (not safe)) (gx#stx-e - _tl201033201061_)))) - (let ((_hd201037201067_ + _tl202194202222_)))) + (let ((_hd202198202228_ (let () (declare (not safe)) - (##car _e201038201064_))) - (_tl201036201069_ + (##car _e202199202225_))) + (_tl202197202230_ (let () (declare (not safe)) - (##cdr _e201038201064_)))) + (##cdr _e202199202225_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl201036201069_)) - ((lambda (_L201072_ - _L201073_) + _tl202197202230_)) + ((lambda (_L202233_ + _L202234_) (if (let () (declare (not safe)) (gxc#generate-runtime-simple-let? - _L201073_)) + _L202234_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate-letrec?201023_ _L201073_)) + (_generate-letrec?202184_ _L202234_)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec - _L201073_ - _L201072_ + _L202234_ + _L202233_ '#f)) (let () (declare (not safe)) (gxc#generate-runtime-simple-let 'letrec* - _L201073_ - _L201072_ + _L202234_ + _L202233_ '#f))) (let () (declare (not safe)) - (_generate-values201022_ _L201073_ _L201072_)))) + (_generate-values202183_ _L202234_ _L202233_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd201037201067_ - _hd201034201059_) + _hd202198202228_ + _hd202195202220_) (let () (declare (not safe)) - (_g201026201043_ - _g201027201046_))))) + (_g202187202204_ + _g202188202207_))))) (let () (declare (not safe)) - (_g201026201043_ - _g201027201046_))))) + (_g202187202204_ + _g202188202207_))))) (let () (declare (not safe)) - (_g201026201043_ _g201027201046_))))) + (_g202187202204_ _g202188202207_))))) (let () (declare (not safe)) - (_g201026201043_ _g201027201046_)))))) + (_g202187202204_ _g202188202207_)))))) (declare (not safe)) - (_g201025201089_ _stx201020_))))) + (_g202186202250_ _stx202181_))))) (define gxc#generate-runtime-simple-let? - (lambda (_hd200957_) - (let _lp200959_ ((_rest200961_ _hd200957_)) - (let* ((_rest200962200978_ _rest200961_) - (_else200965200986_ (lambda () '#f))) - (let ((_K200968200999_ - (lambda (_rest200997_) + (lambda (_hd202118_) + (let _lp202120_ ((_rest202122_ _hd202118_)) + (let* ((_rest202123202139_ _rest202122_) + (_else202126202147_ (lambda () '#f))) + (let ((_K202129202160_ + (lambda (_rest202158_) (let () (declare (not safe)) - (_lp200959_ _rest200997_)))) - (_K200967200991_ (lambda () '#t))) - (let ((_try-match200964200994_ + (_lp202120_ _rest202158_)))) + (_K202128202152_ (lambda () '#t))) + (let ((_try-match202125202155_ (lambda () (if (let () (declare (not safe)) - (##null? _rest200962200978_)) - (let () (declare (not safe)) (_K200967200991_)) + (##null? _rest202123202139_)) + (let () (declare (not safe)) (_K202128202152_)) (let () (declare (not safe)) - (_else200965200986_)))))) + (_else202126202147_)))))) (if (let () (declare (not safe)) - (##pair? _rest200962200978_)) - (let ((_tl200970201004_ + (##pair? _rest202123202139_)) + (let ((_tl202131202165_ (let () (declare (not safe)) - (##cdr _rest200962200978_))) - (_hd200969201002_ + (##cdr _rest202123202139_))) + (_hd202130202163_ (let () (declare (not safe)) - (##car _rest200962200978_)))) + (##car _rest202123202139_)))) (if (let () (declare (not safe)) - (##pair? _hd200969201002_)) - (let ((_tl200972201009_ + (##pair? _hd202130202163_)) + (let ((_tl202133202170_ (let () (declare (not safe)) - (##cdr _hd200969201002_))) - (_hd200971201007_ + (##cdr _hd202130202163_))) + (_hd202132202168_ (let () (declare (not safe)) - (##car _hd200969201002_)))) + (##car _hd202130202163_)))) (if (let () (declare (not safe)) - (##pair? _hd200971201007_)) - (let ((_tl200976201012_ + (##pair? _hd202132202168_)) + (let ((_tl202137202173_ (let () (declare (not safe)) - (##cdr _hd200971201007_)))) + (##cdr _hd202132202168_)))) (if (let () (declare (not safe)) - (##null? _tl200976201012_)) + (##null? _tl202137202173_)) (if (let () (declare (not safe)) - (##pair? _tl200972201009_)) - (let ((_tl200974201015_ + (##pair? _tl202133202170_)) + (let ((_tl202135202176_ (let () (declare (not safe)) - (##cdr _tl200972201009_)))) + (##cdr _tl202133202170_)))) (if (let () (declare (not safe)) - (##null? _tl200974201015_)) - (let ((_rest201018_ - _tl200970201004_)) + (##null? _tl202135202176_)) + (let ((_rest202179_ + _tl202131202165_)) (declare (not safe)) - (_lp200959_ _rest201018_)) + (_lp202120_ _rest202179_)) (let () (declare (not safe)) - (_else200965200986_)))) + (_else202126202147_)))) (let () (declare (not safe)) - (_else200965200986_))) + (_else202126202147_))) (let () (declare (not safe)) - (_else200965200986_)))) + (_else202126202147_)))) (let () (declare (not safe)) - (_else200965200986_)))) + (_else202126202147_)))) (let () (declare (not safe)) - (_else200965200986_)))) + (_else202126202147_)))) (let () (declare (not safe)) - (_try-match200964200994_))))))))) + (_try-match202125202155_))))))))) (define gxc#generate-runtime-simple-let - (lambda (_form200869_ _hd200870_ _body200871_ _compiled-body?200872_) - (letrec ((_generate1200874_ - (lambda (_bind200913_) - (let* ((_bind200914200925_ _bind200913_) - (_E200916200929_ + (lambda (_form202030_ _hd202031_ _body202032_ _compiled-body?202033_) + (letrec ((_generate1202035_ + (lambda (_bind202074_) + (let* ((_bind202075202086_ _bind202074_) + (_E202077202090_ (lambda () (error '"No clause matching" - _bind200914200925_))) - (_K200917200935_ - (lambda (_expr200932_ _id200933_) - (let ((__tmp213139 + _bind202075202086_))) + (_K202078202096_ + (lambda (_expr202093_ _id202094_) + (let ((__tmp214300 (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _id200933_))) - (__tmp213137 - (let ((__tmp213138 + _id202094_))) + (__tmp214298 + (let ((__tmp214299 (let () (declare (not safe)) (gxc#compile-e__0 - _expr200932_)))) + _expr202093_)))) (declare (not safe)) - (cons __tmp213138 '())))) + (cons __tmp214299 '())))) (declare (not safe)) - (cons __tmp213139 __tmp213137))))) + (cons __tmp214300 __tmp214298))))) (if (let () (declare (not safe)) - (##pair? _bind200914200925_)) - (let ((_hd200918200938_ + (##pair? _bind202075202086_)) + (let ((_hd202079202099_ (let () (declare (not safe)) - (##car _bind200914200925_))) - (_tl200919200940_ + (##car _bind202075202086_))) + (_tl202080202101_ (let () (declare (not safe)) - (##cdr _bind200914200925_)))) + (##cdr _bind202075202086_)))) (if (let () (declare (not safe)) - (##pair? _hd200918200938_)) - (let ((_hd200922200943_ + (##pair? _hd202079202099_)) + (let ((_hd202083202104_ (let () (declare (not safe)) - (##car _hd200918200938_))) - (_tl200923200945_ + (##car _hd202079202099_))) + (_tl202084202106_ (let () (declare (not safe)) - (##cdr _hd200918200938_)))) - (let ((_id200948_ _hd200922200943_)) + (##cdr _hd202079202099_)))) + (let ((_id202109_ _hd202083202104_)) (if (let () (declare (not safe)) - (##null? _tl200923200945_)) + (##null? _tl202084202106_)) (if (let () (declare (not safe)) - (##pair? _tl200919200940_)) - (let ((_hd200920200950_ + (##pair? _tl202080202101_)) + (let ((_hd202081202111_ (let () (declare (not safe)) - (##car _tl200919200940_))) - (_tl200921200952_ + (##car _tl202080202101_))) + (_tl202082202113_ (let () (declare (not safe)) - (##cdr _tl200919200940_)))) - (let ((_expr200955_ - _hd200920200950_)) + (##cdr _tl202080202101_)))) + (let ((_expr202116_ + _hd202081202111_)) (if (let () (declare (not safe)) - (##null? _tl200921200952_)) + (##null? _tl202082202113_)) (let () (declare (not safe)) - (_K200917200935_ - _expr200955_ - _id200948_)) + (_K202078202096_ + _expr202116_ + _id202109_)) (let () (declare (not safe)) - (_E200916200929_))))) + (_E202077202090_))))) (let () (declare (not safe)) - (_E200916200929_))) + (_E202077202090_))) (let () (declare (not safe)) - (_E200916200929_))))) + (_E202077202090_))))) (let () (declare (not safe)) - (_E200916200929_)))) + (_E202077202090_)))) (let () (declare (not safe)) - (_E200916200929_))))))) - (let* ((_bind200876_ (map _generate1200874_ _hd200870_)) - (_body200878_ - (if _compiled-body?200872_ - _body200871_ + (_E202077202090_))))))) + (let* ((_bind202037_ (map _generate1202035_ _hd202031_)) + (_body202039_ + (if _compiled-body?202033_ + _body202032_ (let () (declare (not safe)) - (gxc#compile-e__0 _body200871_)))) - (_body200910_ - (let* ((_body200879200887_ _body200878_) - (_else200881200895_ + (gxc#compile-e__0 _body202032_)))) + (_body202071_ + (let* ((_body202040202048_ _body202039_) + (_else202042202056_ (lambda () (let () (declare (not safe)) - (cons _body200878_ '())))) - (_K200883200900_ - (lambda (_exprs200898_) _exprs200898_))) + (cons _body202039_ '())))) + (_K202044202061_ + (lambda (_exprs202059_) _exprs202059_))) (if (let () (declare (not safe)) - (##pair? _body200879200887_)) - (let ((_hd200884200903_ + (##pair? _body202040202048_)) + (let ((_hd202045202064_ (let () (declare (not safe)) - (##car _body200879200887_))) - (_tl200885200905_ + (##car _body202040202048_))) + (_tl202046202066_ (let () (declare (not safe)) - (##cdr _body200879200887_)))) + (##cdr _body202040202048_)))) (if (let () (declare (not safe)) - (##eq? _hd200884200903_ 'begin)) - (let ((_exprs200908_ _tl200885200905_)) + (##eq? _hd202045202064_ 'begin)) + (let ((_exprs202069_ _tl202046202066_)) (declare (not safe)) - (_K200883200900_ _exprs200908_)) + (_K202044202061_ _exprs202069_)) (let () (declare (not safe)) - (_else200881200895_)))) + (_else202042202056_)))) (let () (declare (not safe)) - (_else200881200895_)))))) - (let ((__tmp213140 + (_else202042202056_)))))) + (let ((__tmp214301 (let () (declare (not safe)) - (cons _bind200876_ _body200910_)))) + (cons _bind202037_ _body202071_)))) (declare (not safe)) - (cons _form200869_ __tmp213140)))))) + (cons _form202030_ __tmp214301)))))) (define gxc#generate-runtime-quote% - (lambda (_stx200777_) - (letrec ((_generate1200779_ - (lambda (_datum200831_) + (lambda (_stx201938_) + (letrec ((_generate1201940_ + (lambda (_datum201992_) (if (or (let () (declare (not safe)) - (null? _datum200831_)) - (interned-symbol? _datum200831_) + (null? _datum201992_)) + (interned-symbol? _datum201992_) (let () (declare (not safe)) - (gx#self-quoting? _datum200831_)) + (gx#self-quoting? _datum201992_)) (let () (declare (not safe)) - (eof-object? _datum200831_))) - _datum200831_ - (if (uninterned-symbol? _datum200831_) + (eof-object? _datum201992_))) + _datum201992_ + (if (uninterned-symbol? _datum201992_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _datum200831_ + _datum201992_ '#t)) (if (let () (declare (not safe)) - (pair? _datum200831_)) - (let ((__tmp213145 - (let ((__tmp213146 - (car _datum200831_))) + (pair? _datum201992_)) + (let ((__tmp214306 + (let ((__tmp214307 + (car _datum201992_))) (declare (not safe)) - (_generate1200779_ __tmp213146))) - (__tmp213143 - (let ((__tmp213144 - (cdr _datum200831_))) + (_generate1201940_ __tmp214307))) + (__tmp214304 + (let ((__tmp214305 + (cdr _datum201992_))) (declare (not safe)) - (_generate1200779_ __tmp213144)))) + (_generate1201940_ __tmp214305)))) (declare (not safe)) - (cons __tmp213145 __tmp213143)) + (cons __tmp214306 __tmp214304)) (if (let () (declare (not safe)) - (box? _datum200831_)) - (let ((__tmp213141 - (let ((__tmp213142 - (unbox _datum200831_))) + (box? _datum201992_)) + (let ((__tmp214302 + (let ((__tmp214303 + (unbox _datum201992_))) (declare (not safe)) - (_generate1200779_ - __tmp213142)))) + (_generate1201940_ + __tmp214303)))) (declare (not safe)) - (box __tmp213141)) + (box __tmp214302)) (if (let () (declare (not safe)) - (vector? _datum200831_)) + (vector? _datum201992_)) (vector-map - _generate1200779_ - _datum200831_) - (if (or (s8vector? _datum200831_) + _generate1201940_ + _datum201992_) + (if (or (s8vector? _datum201992_) (let () (declare (not safe)) - (u8vector? _datum200831_)) - (s16vector? _datum200831_) - (u16vector? _datum200831_) - (s32vector? _datum200831_) - (u32vector? _datum200831_) - (s64vector? _datum200831_) - (u64vector? _datum200831_) - (f32vector? _datum200831_) - (f64vector? _datum200831_)) - _datum200831_ + (u8vector? _datum201992_)) + (s16vector? _datum201992_) + (u16vector? _datum201992_) + (s32vector? _datum201992_) + (u32vector? _datum201992_) + (s64vector? _datum201992_) + (u64vector? _datum201992_) + (f32vector? _datum201992_) + (f64vector? _datum201992_)) + _datum201992_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _stx200777_))))))))))) - (let* ((_g200781200794_ - (lambda (_g200782200791_) + _stx201938_))))))))))) + (let* ((_g201942201955_ + (lambda (_g201943201952_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200782200791_)))) - (_g200780200828_ - (lambda (_g200782200797_) + _g201943201952_)))) + (_g201941201989_ + (lambda (_g201943201958_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200782200797_)) - (let ((_e200786200799_ + (gx#stx-pair? _g201943201958_)) + (let ((_e201947201960_ (let () (declare (not safe)) - (gx#stx-e _g200782200797_)))) - (let ((_hd200785200802_ + (gx#stx-e _g201943201958_)))) + (let ((_hd201946201963_ (let () (declare (not safe)) - (##car _e200786200799_))) - (_tl200784200804_ + (##car _e201947201960_))) + (_tl201945201965_ (let () (declare (not safe)) - (##cdr _e200786200799_)))) + (##cdr _e201947201960_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200784200804_)) - (let ((_e200789200807_ + (gx#stx-pair? _tl201945201965_)) + (let ((_e201950201968_ (let () (declare (not safe)) - (gx#stx-e _tl200784200804_)))) - (let ((_hd200788200810_ + (gx#stx-e _tl201945201965_)))) + (let ((_hd201949201971_ (let () (declare (not safe)) - (##car _e200789200807_))) - (_tl200787200812_ + (##car _e201950201968_))) + (_tl201948201973_ (let () (declare (not safe)) - (##cdr _e200789200807_)))) + (##cdr _e201950201968_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200787200812_)) - ((lambda (_L200815_) - (let ((__tmp213147 - (let ((__tmp213148 - (let ((__tmp213149 + (gx#stx-null? _tl201948201973_)) + ((lambda (_L201976_) + (let ((__tmp214308 + (let ((__tmp214309 + (let ((__tmp214310 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L200815_)))) + (let () (declare (not safe)) (gx#stx-e _L201976_)))) (declare (not safe)) - (_generate1200779_ __tmp213149)))) + (_generate1201940_ __tmp214310)))) (declare (not safe)) - (cons __tmp213148 '())))) + (cons __tmp214309 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'quote __tmp213147))) - _hd200788200810_) + (cons 'quote __tmp214308))) + _hd201949201971_) (let () (declare (not safe)) - (_g200781200794_ - _g200782200797_))))) + (_g201942201955_ + _g201943201958_))))) (let () (declare (not safe)) - (_g200781200794_ _g200782200797_))))) + (_g201942201955_ _g201943201958_))))) (let () (declare (not safe)) - (_g200781200794_ _g200782200797_)))))) + (_g201942201955_ _g201943201958_)))))) (declare (not safe)) - (_g200780200828_ _stx200777_))))) + (_g201941201989_ _stx201938_))))) (define gxc#generate-runtime-call% - (lambda (_stx200295_) - (letrec ((_compile-call200297_ - (lambda (_rator200521_ _rands200522_) - (let ((_rator200524_ + (lambda (_stx201456_) + (letrec ((_compile-call201458_ + (lambda (_rator201682_ _rands201683_) + (let ((_rator201685_ (let () (declare (not safe)) - (gxc#compile-e__0 _rator200521_))) - (_rands200525_ (map gxc#compile-e _rands200522_))) - (let* ((___stx212181212182_ _rator200524_) - (_g200528200580_ + (gxc#compile-e__0 _rator201682_))) + (_rands201686_ (map gxc#compile-e _rands201683_))) + (let* ((___stx213342213343_ _rator201685_) + (_g201689201741_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212181212182_))))) - (let ((___kont212183212184_ - (lambda (_L200704_ - _L200705_ - _L200706_ - _L200707_) - (if (fx= (length _rands200525_) - (length (let ((__tmp213154 - (lambda (_g200743200746_ + ___stx213342213343_))))) + (let ((___kont213344213345_ + (lambda (_L201865_ + _L201866_ + _L201867_ + _L201868_) + (if (fx= (length _rands201686_) + (length (let ((__tmp214315 + (lambda (_g201904201907_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g200744200748_) + _g201905201909_) (let () (declare (not safe)) - (cons _g200743200746_ _g200744200748_))))) + (cons _g201904201907_ _g201905201909_))))) (declare (not safe)) - (foldr1 __tmp213154 '() _L200706_)))) + (foldr1 __tmp214315 '() _L201867_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_id200751_ _L200707_) - (_args200760_ - (let ((__tmp213150 - (lambda (_g200752200755_ - _g200753200757_) + (let* ((_id201912_ _L201868_) + (_args201921_ + (let ((__tmp214311 + (lambda (_g201913201916_ + _g201914201918_) (let () (declare (not safe)) - (cons _g200752200755_ - _g200753200757_))))) + (cons _g201913201916_ + _g201914201918_))))) (declare (not safe)) - (foldr1 __tmp213150 + (foldr1 __tmp214311 '() - _L200706_))) - (_body200769_ - (let ((__tmp213151 - (lambda (_g200761200764_ - _g200762200766_) + _L201867_))) + (_body201930_ + (let ((__tmp214312 + (lambda (_g201922201925_ + _g201923201927_) (let () (declare (not safe)) - (cons _g200761200764_ - _g200762200766_))))) + (cons _g201922201925_ + _g201923201927_))))) (declare (not safe)) - (foldr1 __tmp213151 + (foldr1 __tmp214312 '() - _L200705_))) - (_init200771_ + _L201866_))) + (_init201932_ (map list - _args200760_ - _rands200525_))) - (let ((__tmp213152 - (let ((__tmp213153 + _args201921_ + _rands201686_))) + (let ((__tmp214313 + (let ((__tmp214314 (let () (declare (not safe)) - (cons _init200771_ - _body200769_)))) + (cons _init201932_ + _body201930_)))) (declare (not safe)) - (cons _id200751_ - __tmp213153)))) + (cons _id201912_ + __tmp214314)))) (declare (not safe)) - (cons 'let __tmp213152))) + (cons 'let __tmp214313))) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _stx200295_))))) - (___kont212189212190_ + _stx201456_))))) + (___kont213350213351_ (lambda () (let () (declare (not safe)) - (cons _rator200524_ _rands200525_))))) - (let ((___match212248212249_ - (lambda (_e200536200592_ - _hd200535200595_ - _tl200534200597_ - _e200539200600_ - _hd200538200603_ - _tl200537200605_ - _e200542200608_ - _hd200541200611_ - _tl200540200613_ - _e200545200616_ - _hd200544200619_ - _tl200543200621_ - _e200548200624_ - _hd200547200627_ - _tl200546200629_ - _e200551200632_ - _hd200550200635_ - _tl200549200637_ - _e200554200640_ - _hd200553200643_ - _tl200552200645_ - ___splice212185212186_ - _target200555200648_ - _tl200557200650_) - (letrec ((_loop200558200653_ - (lambda (_hd200556200656_ - _arg200562200658_) + (cons _rator201685_ _rands201686_))))) + (let ((___match213409213410_ + (lambda (_e201697201753_ + _hd201696201756_ + _tl201695201758_ + _e201700201761_ + _hd201699201764_ + _tl201698201766_ + _e201703201769_ + _hd201702201772_ + _tl201701201774_ + _e201706201777_ + _hd201705201780_ + _tl201704201782_ + _e201709201785_ + _hd201708201788_ + _tl201707201790_ + _e201712201793_ + _hd201711201796_ + _tl201710201798_ + _e201715201801_ + _hd201714201804_ + _tl201713201806_ + ___splice213346213347_ + _target201716201809_ + _tl201718201811_) + (letrec ((_loop201719201814_ + (lambda (_hd201717201817_ + _arg201723201819_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200556200656_)) - (let ((_e200559200661_ + _hd201717201817_)) + (let ((_e201720201822_ (let () (declare (not safe)) (gx#stx-e - _hd200556200656_)))) - (let ((_lp-tl200561200666_ + _hd201717201817_)))) + (let ((_lp-tl201722201827_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200559200661_))) - (_lp-hd200560200664_ - (let () (declare (not safe)) (##car _e200559200661_)))) - (let ((__tmp213156 + (##cdr _e201720201822_))) + (_lp-hd201721201825_ + (let () (declare (not safe)) (##car _e201720201822_)))) + (let ((__tmp214317 (let () (declare (not safe)) - (cons _lp-hd200560200664_ _arg200562200658_)))) + (cons _lp-hd201721201825_ _arg201723201819_)))) (declare (not safe)) - (_loop200558200653_ _lp-tl200561200666_ __tmp213156)))) + (_loop201719201814_ _lp-tl201722201827_ __tmp214317)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg200563200669_ - (reverse _arg200562200658_))) + (let ((_arg201724201830_ + (reverse _arg201723201819_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl200552200645_)) - (let ((___splice212187212188_ + _tl201713201806_)) + (let ((___splice213348213349_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _tl200552200645_ '0)))) - (let ((_tl200566200674_ + (gx#syntax-split-splice _tl201713201806_ '0)))) + (let ((_tl201727201835_ (let () (declare (not safe)) - (##vector-ref ___splice212187212188_ '1))) - (_target200564200672_ + (##vector-ref ___splice213348213349_ '1))) + (_target201725201833_ (let () (declare (not safe)) - (##vector-ref ___splice212187212188_ '0)))) + (##vector-ref ___splice213348213349_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200566200674_)) - (letrec ((_loop200567200677_ - (lambda (_hd200565200680_ - _body200571200682_) + (gx#stx-null? _tl201727201835_)) + (letrec ((_loop201728201838_ + (lambda (_hd201726201841_ + _body201732201843_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200565200680_)) - (let ((_e200568200685_ + (gx#stx-pair? _hd201726201841_)) + (let ((_e201729201846_ (let () (declare (not safe)) (gx#stx-e - _hd200565200680_)))) - (let ((_lp-tl200570200690_ + _hd201726201841_)))) + (let ((_lp-tl201731201851_ (let () (declare (not safe)) - (##cdr _e200568200685_))) - (_lp-hd200569200688_ + (##cdr _e201729201846_))) + (_lp-hd201730201849_ (let () (declare (not safe)) - (##car _e200568200685_)))) - (let ((__tmp213155 + (##car _e201729201846_)))) + (let ((__tmp214316 (let () (declare (not safe)) - (cons _lp-hd200569200688_ - _body200571200682_)))) + (cons _lp-hd201730201849_ + _body201732201843_)))) (declare (not safe)) - (_loop200567200677_ - _lp-tl200570200690_ - __tmp213155)))) - (let ((_body200572200693_ - (reverse _body200571200682_))) + (_loop201728201838_ + _lp-tl201731201851_ + __tmp214316)))) + (let ((_body201733201854_ + (reverse _body201732201843_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200546200629_)) + _tl201707201790_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl200540200613_)) + _tl201701201774_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200537200605_)) - (let ((_e200575200696_ + _tl201698201766_)) + (let ((_e201736201857_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl200537200605_)))) - (let ((_tl200573200701_ + (gx#stx-e _tl201698201766_)))) + (let ((_tl201734201862_ (let () (declare (not safe)) - (##cdr _e200575200696_))) - (_hd200574200699_ + (##cdr _e201736201857_))) + (_hd201735201860_ (let () (declare (not safe)) - (##car _e200575200696_)))) + (##car _e201736201857_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200573200701_)) - (let ((_L200704_ _hd200574200699_) - (_L200705_ _body200572200693_) - (_L200706_ _arg200563200669_) - (_L200707_ _hd200544200619_)) + (gx#stx-null? _tl201734201862_)) + (let ((_L201865_ _hd201735201860_) + (_L201866_ _body201733201854_) + (_L201867_ _arg201724201830_) + (_L201868_ _hd201705201780_)) (if (let () (declare (not safe)) - (eq? _L200707_ _L200704_)) - (___kont212183212184_ - _L200704_ - _L200705_ - _L200706_ - _L200707_) - (___kont212189212190_))) - (___kont212189212190_)))) - (___kont212189212190_)) + (eq? _L201868_ _L201865_)) + (___kont213344213345_ + _L201865_ + _L201866_ + _L201867_ + _L201868_) + (___kont213350213351_))) + (___kont213350213351_)))) + (___kont213350213351_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212189212190_)) - (___kont212189212190_))))))) + (___kont213350213351_)) + (___kont213350213351_))))))) (let () (declare (not safe)) - (_loop200567200677_ _target200564200672_ '()))) - (___kont212189212190_)))) - (___kont212189212190_))))))) + (_loop201728201838_ _target201725201833_ '()))) + (___kont213350213351_)))) + (___kont213350213351_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop200558200653_ - _target200555200648_ + (_loop201719201814_ + _target201716201809_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212181212182_)) - (let ((_e200536200592_ + (gx#stx-pair? ___stx213342213343_)) + (let ((_e201697201753_ (let () (declare (not safe)) - (gx#stx-e ___stx212181212182_)))) - (let ((_tl200534200597_ + (gx#stx-e ___stx213342213343_)))) + (let ((_tl201695201758_ (let () (declare (not safe)) - (##cdr _e200536200592_))) - (_hd200535200595_ + (##cdr _e201697201753_))) + (_hd201696201756_ (let () (declare (not safe)) - (##car _e200536200592_)))) + (##car _e201697201753_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200535200595_)) + (gx#identifier? _hd201696201756_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _hd200535200595_)) + _hd201696201756_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200534200597_)) - (let ((_e200539200600_ + _tl201695201758_)) + (let ((_e201700201761_ (let () (declare (not safe)) (gx#stx-e - _tl200534200597_)))) - (let ((_tl200537200605_ + _tl201695201758_)))) + (let ((_tl201698201766_ (let () (declare (not safe)) - (##cdr _e200539200600_))) - (_hd200538200603_ + (##cdr _e201700201761_))) + (_hd201699201764_ (let () (declare (not safe)) - (##car _e200539200600_)))) + (##car _e201700201761_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd200538200603_)) - (let ((_e200542200608_ + _hd201699201764_)) + (let ((_e201703201769_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd200538200603_)))) - (let ((_tl200540200613_ + (gx#stx-e _hd201699201764_)))) + (let ((_tl201701201774_ (let () (declare (not safe)) - (##cdr _e200542200608_))) - (_hd200541200611_ + (##cdr _e201703201769_))) + (_hd201702201772_ (let () (declare (not safe)) - (##car _e200542200608_)))) + (##car _e201703201769_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200541200611_)) - (let ((_e200545200616_ + (gx#stx-pair? _hd201702201772_)) + (let ((_e201706201777_ (let () (declare (not safe)) - (gx#stx-e _hd200541200611_)))) - (let ((_tl200543200621_ + (gx#stx-e _hd201702201772_)))) + (let ((_tl201704201782_ (let () (declare (not safe)) - (##cdr _e200545200616_))) - (_hd200544200619_ + (##cdr _e201706201777_))) + (_hd201705201780_ (let () (declare (not safe)) - (##car _e200545200616_)))) + (##car _e201706201777_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200543200621_)) - (let ((_e200548200624_ + (gx#stx-pair? _tl201704201782_)) + (let ((_e201709201785_ (let () (declare (not safe)) - (gx#stx-e _tl200543200621_)))) - (let ((_tl200546200629_ + (gx#stx-e _tl201704201782_)))) + (let ((_tl201707201790_ (let () (declare (not safe)) - (##cdr _e200548200624_))) - (_hd200547200627_ + (##cdr _e201709201785_))) + (_hd201708201788_ (let () (declare (not safe)) - (##car _e200548200624_)))) + (##car _e201709201785_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200547200627_)) - (let ((_e200551200632_ + (gx#stx-pair? _hd201708201788_)) + (let ((_e201712201793_ (let () (declare (not safe)) (gx#stx-e - _hd200547200627_)))) - (let ((_tl200549200637_ + _hd201708201788_)))) + (let ((_tl201710201798_ (let () (declare (not safe)) - (##cdr _e200551200632_))) - (_hd200550200635_ + (##cdr _e201712201793_))) + (_hd201711201796_ (let () (declare (not safe)) - (##car _e200551200632_)))) + (##car _e201712201793_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200550200635_)) + _hd201711201796_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _hd200550200635_)) + _hd201711201796_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200549200637_)) - (let ((_e200554200640_ + _tl201710201798_)) + (let ((_e201715201801_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200549200637_)))) - (let ((_tl200552200645_ + (gx#stx-e _tl201710201798_)))) + (let ((_tl201713201806_ (let () (declare (not safe)) - (##cdr _e200554200640_))) - (_hd200553200643_ + (##cdr _e201715201801_))) + (_hd201714201804_ (let () (declare (not safe)) - (##car _e200554200640_)))) + (##car _e201715201801_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd200553200643_)) - (let ((___splice212185212186_ + (gx#stx-pair/null? _hd201714201804_)) + (let ((___splice213346213347_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd200553200643_ + _hd201714201804_ '0)))) - (let ((_tl200557200650_ + (let ((_tl201718201811_ (let () (declare (not safe)) - (##vector-ref ___splice212185212186_ '1))) - (_target200555200648_ + (##vector-ref ___splice213346213347_ '1))) + (_target201716201809_ (let () (declare (not safe)) (##vector-ref - ___splice212185212186_ + ___splice213346213347_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200557200650_)) - (___match212248212249_ - _e200536200592_ - _hd200535200595_ - _tl200534200597_ - _e200539200600_ - _hd200538200603_ - _tl200537200605_ - _e200542200608_ - _hd200541200611_ - _tl200540200613_ - _e200545200616_ - _hd200544200619_ - _tl200543200621_ - _e200548200624_ - _hd200547200627_ - _tl200546200629_ - _e200551200632_ - _hd200550200635_ - _tl200549200637_ - _e200554200640_ - _hd200553200643_ - _tl200552200645_ - ___splice212185212186_ - _target200555200648_ - _tl200557200650_) - (___kont212189212190_)))) - (___kont212189212190_)))) - (___kont212189212190_)) - (___kont212189212190_)) + (gx#stx-null? _tl201718201811_)) + (___match213409213410_ + _e201697201753_ + _hd201696201756_ + _tl201695201758_ + _e201700201761_ + _hd201699201764_ + _tl201698201766_ + _e201703201769_ + _hd201702201772_ + _tl201701201774_ + _e201706201777_ + _hd201705201780_ + _tl201704201782_ + _e201709201785_ + _hd201708201788_ + _tl201707201790_ + _e201712201793_ + _hd201711201796_ + _tl201710201798_ + _e201715201801_ + _hd201714201804_ + _tl201713201806_ + ___splice213346213347_ + _target201716201809_ + _tl201718201811_) + (___kont213350213351_)))) + (___kont213350213351_)))) + (___kont213350213351_)) + (___kont213350213351_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212189212190_)))) - (___kont212189212190_)))) - (___kont212189212190_)))) - (___kont212189212190_)))) - (___kont212189212190_)))) + (___kont213350213351_)))) + (___kont213350213351_)))) + (___kont213350213351_)))) + (___kont213350213351_)))) + (___kont213350213351_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212189212190_)) - (___kont212189212190_)) - (___kont212189212190_)))) - (___kont212189212190_))))))))) - (let* ((_g200299200313_ - (lambda (_g200300200310_) + (___kont213350213351_)) + (___kont213350213351_)) + (___kont213350213351_)))) + (___kont213350213351_))))))))) + (let* ((_g201460201474_ + (lambda (_g201461201471_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g200300200310_)))) - (_g200298200518_ - (lambda (_g200300200316_) + _g201461201471_)))) + (_g201459201679_ + (lambda (_g201461201477_) (if (let () (declare (not safe)) - (gx#stx-pair? _g200300200316_)) - (let ((_e200305200318_ + (gx#stx-pair? _g201461201477_)) + (let ((_e201466201479_ (let () (declare (not safe)) - (gx#stx-e _g200300200316_)))) - (let ((_hd200304200321_ + (gx#stx-e _g201461201477_)))) + (let ((_hd201465201482_ (let () (declare (not safe)) - (##car _e200305200318_))) - (_tl200303200323_ + (##car _e201466201479_))) + (_tl201464201484_ (let () (declare (not safe)) - (##cdr _e200305200318_)))) + (##cdr _e201466201479_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200303200323_)) - (let ((_e200308200326_ + (gx#stx-pair? _tl201464201484_)) + (let ((_e201469201487_ (let () (declare (not safe)) - (gx#stx-e _tl200303200323_)))) - (let ((_hd200307200329_ + (gx#stx-e _tl201464201484_)))) + (let ((_hd201468201490_ (let () (declare (not safe)) - (##car _e200308200326_))) - (_tl200306200331_ + (##car _e201469201487_))) + (_tl201467201492_ (let () (declare (not safe)) - (##cdr _e200308200326_)))) - ((lambda (_L200334_ _L200335_) + (##cdr _e201469201487_)))) + ((lambda (_L201495_ _L201496_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (_compile-call200297_ - _L200335_ - _L200334_)) - (let* ((___stx212297212298_ - _L200335_) - (_g200350200362_ + (_compile-call201458_ + _L201496_ + _L201495_)) + (let* ((___stx213458213459_ + _L201496_) + (_g201511201523_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212297212298_))))) - (let ((___kont212299212300_ + ___stx213458213459_))))) + (let ((___kont213460213461_ (lambda () - (let ((_f200392_ + (let ((_f201553_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _L200335_)))) - (if (let ((__tmp213171 (symbol->string _f200392_))) + (gxc#compile-e__0 _L201496_)))) + (if (let ((__tmp214332 (symbol->string _f201553_))) (declare (not safe)) - (string-prefix? '"##" __tmp213171)) - (let _lp200394_ ((_rest200397_ (reverse _L200334_)) - (_bind200399_ '()) - (_args200400_ '())) - (let* ((_rest200401200409_ _rest200397_) - (_else200403200417_ + (string-prefix? '"##" __tmp214332)) + (let _lp201555_ ((_rest201558_ (reverse _L201495_)) + (_bind201560_ '()) + (_args201561_ '())) + (let* ((_rest201562201570_ _rest201558_) + (_else201564201578_ (lambda () - (let ((__tmp213157 - (let ((__tmp213158 - (let ((__tmp213159 - (let ((__tmp213160 + (let ((__tmp214318 + (let ((__tmp214319 + (let ((__tmp214320 + (let ((__tmp214321 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _f200392_ _args200400_)))) + (cons _f201553_ _args201561_)))) (declare (not safe)) - (cons __tmp213160 '())))) + (cons __tmp214321 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp213159)))) + __tmp214320)))) (declare (not safe)) - (cons _bind200399_ __tmp213158)))) + (cons _bind201560_ __tmp214319)))) (declare (not safe)) - (cons 'let __tmp213157)))) - (_K200405200503_ - (lambda (_rest200420_ _e200421_) - (let* ((___stx212251212252_ _e200421_) - (_g200426200444_ + (cons 'let __tmp214318)))) + (_K201566201664_ + (lambda (_rest201581_ _e201582_) + (let* ((___stx213412213413_ _e201582_) + (_g201587201605_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212251212252_))))) - (let ((___kont212253212254_ + ___stx213412213413_))))) + (let ((___kont213414213415_ (lambda () - (let ((__tmp213161 - (let ((__tmp213162 + (let ((__tmp214322 + (let ((__tmp214323 (let () (declare (not safe)) (gxc#compile-e__0 - _e200421_)))) + _e201582_)))) (declare (not safe)) - (cons __tmp213162 - _args200400_)))) + (cons __tmp214323 + _args201561_)))) (declare (not safe)) - (_lp200394_ - _rest200420_ - _bind200399_ - __tmp213161)))) - (___kont212255212256_ + (_lp201555_ + _rest201581_ + _bind201560_ + __tmp214322)))) + (___kont213416213417_ (lambda () - (let ((__tmp213163 - (let ((__tmp213164 + (let ((__tmp214324 + (let ((__tmp214325 (let () (declare (not safe)) (gxc#compile-e__0 - _e200421_)))) + _e201582_)))) (declare (not safe)) - (cons __tmp213164 - _args200400_)))) + (cons __tmp214325 + _args201561_)))) (declare (not safe)) - (_lp200394_ - _rest200420_ - _bind200399_ - __tmp213163)))) - (___kont212257212258_ + (_lp201555_ + _rest201581_ + _bind201560_ + __tmp214324)))) + (___kont213418213419_ (lambda () - (let ((_tmp200451_ - (let ((__tmp213165 + (let ((_tmp201612_ + (let ((__tmp214326 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp213165)))) - (let ((__tmp213167 - (let ((__tmp213168 - (let ((__tmp213169 + __tmp214326)))) + (let ((__tmp214328 + (let ((__tmp214329 + (let ((__tmp214330 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213170 + (let ((__tmp214331 (let () (declare (not safe)) - (gxc#compile-e__0 _e200421_)))) + (gxc#compile-e__0 _e201582_)))) (declare (not safe)) - (cons __tmp213170 '())))) + (cons __tmp214331 '())))) (declare (not safe)) - (cons _tmp200451_ __tmp213169)))) + (cons _tmp201612_ __tmp214330)))) (declare (not safe)) - (cons __tmp213168 _bind200399_))) + (cons __tmp214329 _bind201560_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp213166 + (__tmp214327 (let () (declare (not safe)) - (cons _tmp200451_ - _args200400_)))) + (cons _tmp201612_ + _args201561_)))) (declare (not safe)) - (_lp200394_ - _rest200420_ - __tmp213167 - __tmp213166)))))) + (_lp201555_ + _rest201581_ + __tmp214328 + __tmp214327)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212251212252_)) - (let ((_e200430200482_ + (gx#stx-pair? ___stx213412213413_)) + (let ((_e201591201643_ (let () (declare (not safe)) (gx#stx-e - ___stx212251212252_)))) - (let ((_tl200428200487_ + ___stx213412213413_)))) + (let ((_tl201589201648_ (let () (declare (not safe)) - (##cdr _e200430200482_))) - (_hd200429200485_ + (##cdr _e201591201643_))) + (_hd201590201646_ (let () (declare (not safe)) - (##car _e200430200482_)))) + (##car _e201591201643_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200429200485_)) + _hd201590201646_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200429200485_)) + _hd201590201646_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200428200487_)) - (let ((_e200433200490_ + _tl201589201648_)) + (let ((_e201594201651_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl200428200487_)))) - (let ((_tl200431200495_ + (gx#stx-e _tl201589201648_)))) + (let ((_tl201592201656_ (let () (declare (not safe)) - (##cdr _e200433200490_))) - (_hd200432200493_ + (##cdr _e201594201651_))) + (_hd201593201654_ (let () (declare (not safe)) - (##car _e200433200490_)))) + (##car _e201594201651_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200431200495_)) - (___kont212253212254_) - (___kont212257212258_)))) - (___kont212257212258_)) + (gx#stx-null? _tl201592201656_)) + (___kont213414213415_) + (___kont213418213419_)))) + (___kont213418213419_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd200429200485_)) + (gx#stx-eq? '%#quote _hd201590201646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200428200487_)) - (let ((_e200439200467_ + (gx#stx-pair? _tl201589201648_)) + (let ((_e201600201628_ (let () (declare (not safe)) - (gx#stx-e _tl200428200487_)))) - (let ((_tl200437200472_ + (gx#stx-e _tl201589201648_)))) + (let ((_tl201598201633_ (let () (declare (not safe)) - (##cdr _e200439200467_))) - (_hd200438200470_ + (##cdr _e201600201628_))) + (_hd201599201631_ (let () (declare (not safe)) - (##car _e200439200467_)))) + (##car _e201600201628_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200437200472_)) - (___kont212255212256_) - (___kont212257212258_)))) - (___kont212257212258_)) - (___kont212257212258_))) + (gx#stx-null? _tl201598201633_)) + (___kont213416213417_) + (___kont213418213419_)))) + (___kont213418213419_)) + (___kont213418213419_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212257212258_)))) - (___kont212257212258_))))))) + (___kont213418213419_)))) + (___kont213418213419_))))))) (if (let () (declare (not safe)) - (##pair? _rest200401200409_)) - (let ((_hd200406200506_ + (##pair? _rest201562201570_)) + (let ((_hd201567201667_ (let () (declare (not safe)) - (##car _rest200401200409_))) - (_tl200407200508_ + (##car _rest201562201570_))) + (_tl201568201669_ (let () (declare (not safe)) - (##cdr _rest200401200409_)))) - (let* ((_e200511_ _hd200406200506_) - (_rest200513_ _tl200407200508_)) + (##cdr _rest201562201570_)))) + (let* ((_e201672_ _hd201567201667_) + (_rest201674_ _tl201568201669_)) (declare (not safe)) - (_K200405200503_ _rest200513_ _e200511_))) + (_K201566201664_ _rest201674_ _e201672_))) (let () (declare (not safe)) - (_else200403200417_))))) + (_else201564201578_))))) (let () (declare (not safe)) - (_compile-call200297_ _L200335_ _L200334_)))))) + (_compile-call201458_ _L201496_ _L201495_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212301212302_ + (___kont213462213463_ (lambda () (let () (declare (not safe)) - (_compile-call200297_ - _L200335_ - _L200334_))))) + (_compile-call201458_ + _L201496_ + _L201495_))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx212297212298_)) - (let ((_e200354200374_ + ___stx213458213459_)) + (let ((_e201515201535_ (let () (declare (not safe)) (gx#stx-e - ___stx212297212298_)))) - (let ((_tl200352200379_ + ___stx213458213459_)))) + (let ((_tl201513201540_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e200354200374_))) - (_hd200353200377_ - (let () (declare (not safe)) (##car _e200354200374_)))) + (##cdr _e201515201535_))) + (_hd201514201538_ + (let () (declare (not safe)) (##car _e201515201535_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200353200377_)) + (gx#identifier? _hd201514201538_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd200353200377_)) + (gx#stx-eq? '%#ref _hd201514201538_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200352200379_)) - (let ((_e200357200382_ + (gx#stx-pair? _tl201513201540_)) + (let ((_e201518201543_ (let () (declare (not safe)) - (gx#stx-e _tl200352200379_)))) - (let ((_tl200355200387_ + (gx#stx-e _tl201513201540_)))) + (let ((_tl201516201548_ (let () (declare (not safe)) - (##cdr _e200357200382_))) - (_hd200356200385_ + (##cdr _e201518201543_))) + (_hd201517201546_ (let () (declare (not safe)) - (##car _e200357200382_)))) + (##car _e201518201543_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200355200387_)) - (___kont212299212300_) - (___kont212301212302_)))) - (___kont212301212302_)) - (___kont212301212302_)) - (___kont212301212302_)))) + (gx#stx-null? _tl201516201548_)) + (___kont213460213461_) + (___kont213462213463_)))) + (___kont213462213463_)) + (___kont213462213463_)) + (___kont213462213463_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212301212302_)))))) - _tl200306200331_ - _hd200307200329_))) + (___kont213462213463_)))))) + _tl201467201492_ + _hd201468201490_))) (let () (declare (not safe)) - (_g200299200313_ _g200300200316_))))) + (_g201460201474_ _g201461201477_))))) (let () (declare (not safe)) - (_g200299200313_ _g200300200316_)))))) + (_g201460201474_ _g201461201477_)))))) (declare (not safe)) - (_g200298200518_ _stx200295_))))) + (_g201459201679_ _stx201456_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_stx200083_) - (let* ((___stx212369212370_ _stx200083_) - (_g200086200106_ + (lambda (_stx201244_) + (let* ((___stx213530213531_ _stx201244_) + (_g201247201267_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212369212370_))))) - (let ((___kont212371212372_ - (lambda (_L200150_ _L200151_) + ___stx213530213531_))))) + (let ((___kont213532213533_ + (lambda (_L201311_ _L201312_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx200083_)) - (let ((_f200169_ - (let ((__tmp213172 - (let ((__tmp213174 + (gxc#generate-runtime-call% _stx201244_)) + (let ((_f201330_ + (let ((__tmp214333 + (let ((__tmp214335 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp213173 + (__tmp214334 (let () (declare (not safe)) - (cons _L200151_ '())))) + (cons _L201312_ '())))) (declare (not safe)) - (cons __tmp213174 __tmp213173)))) + (cons __tmp214335 __tmp214334)))) (declare (not safe)) - (gxc#compile-e__0 __tmp213172)))) - (let _lp200171_ ((_rest200174_ (reverse _L200150_)) - (_bind200176_ '()) - (_args200177_ '())) - (let* ((_rest200178200186_ _rest200174_) - (_else200180200194_ + (gxc#compile-e__0 __tmp214333)))) + (let _lp201332_ ((_rest201335_ (reverse _L201311_)) + (_bind201337_ '()) + (_args201338_ '())) + (let* ((_rest201339201347_ _rest201335_) + (_else201341201355_ (lambda () - (let ((__tmp213175 - (let ((__tmp213176 - (let ((__tmp213177 - (let ((__tmp213178 + (let ((__tmp214336 + (let ((__tmp214337 + (let ((__tmp214338 + (let ((__tmp214339 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _f200169_ _args200177_)))) + (cons _f201330_ _args201338_)))) (declare (not safe)) - (cons __tmp213178 '())))) + (cons __tmp214339 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp213177)))) + (cons '(declare (not safe)) __tmp214338)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind200176_ - __tmp213176)))) + (cons _bind201337_ + __tmp214337)))) (declare (not safe)) - (cons 'let __tmp213175)))) - (_K200182200280_ - (lambda (_rest200197_ _e200198_) - (let* ((___stx212323212324_ _e200198_) - (_g200203200221_ + (cons 'let __tmp214336)))) + (_K201343201441_ + (lambda (_rest201358_ _e201359_) + (let* ((___stx213484213485_ _e201359_) + (_g201364201382_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212323212324_))))) - (let ((___kont212325212326_ + ___stx213484213485_))))) + (let ((___kont213486213487_ (lambda () - (let ((__tmp213179 - (let ((__tmp213180 + (let ((__tmp214340 + (let ((__tmp214341 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e200198_)))) + (gxc#compile-e__0 _e201359_)))) (declare (not safe)) - (cons __tmp213180 _args200177_)))) + (cons __tmp214341 _args201338_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp200171_ - _rest200197_ - _bind200176_ - __tmp213179)))) - (___kont212327212328_ + (_lp201332_ + _rest201358_ + _bind201337_ + __tmp214340)))) + (___kont213488213489_ (lambda () - (let ((__tmp213181 - (let ((__tmp213182 + (let ((__tmp214342 + (let ((__tmp214343 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _e200198_)))) + (gxc#compile-e__0 _e201359_)))) (declare (not safe)) - (cons __tmp213182 _args200177_)))) + (cons __tmp214343 _args201338_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp200171_ - _rest200197_ - _bind200176_ - __tmp213181)))) - (___kont212329212330_ + (_lp201332_ + _rest201358_ + _bind201337_ + __tmp214342)))) + (___kont213490213491_ (lambda () - (let ((_tmp200228_ - (let ((__tmp213183 + (let ((_tmp201389_ + (let ((__tmp214344 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp213183)))) - (let ((__tmp213185 - (let ((__tmp213186 + __tmp214344)))) + (let ((__tmp214346 + (let ((__tmp214347 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213187 - (let ((__tmp213188 + (let ((__tmp214348 + (let ((__tmp214349 (let () (declare (not safe)) - (gxc#compile-e__0 _e200198_)))) + (gxc#compile-e__0 _e201359_)))) (declare (not safe)) - (cons __tmp213188 '())))) + (cons __tmp214349 '())))) (declare (not safe)) - (cons _tmp200228_ __tmp213187)))) + (cons _tmp201389_ __tmp214348)))) (declare (not safe)) - (cons __tmp213186 _bind200176_))) - (__tmp213184 + (cons __tmp214347 _bind201337_))) + (__tmp214345 (let () (declare (not safe)) - (cons _tmp200228_ _args200177_)))) + (cons _tmp201389_ _args201338_)))) (declare (not safe)) - (_lp200171_ _rest200197_ __tmp213185 __tmp213184)))))) + (_lp201332_ _rest201358_ __tmp214346 __tmp214345)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx212323212324_)) - (let ((_e200207200259_ + ___stx213484213485_)) + (let ((_e201368201420_ (let () (declare (not safe)) (gx#stx-e - ___stx212323212324_)))) - (let ((_tl200205200264_ + ___stx213484213485_)))) + (let ((_tl201366201425_ (let () (declare (not safe)) - (##cdr _e200207200259_))) - (_hd200206200262_ + (##cdr _e201368201420_))) + (_hd201367201423_ (let () (declare (not safe)) - (##car _e200207200259_)))) + (##car _e201368201420_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd200206200262_)) + _hd201367201423_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200206200262_)) + _hd201367201423_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl200205200264_)) - (let ((_e200210200267_ + (gx#stx-pair? _tl201366201425_)) + (let ((_e201371201428_ (let () (declare (not safe)) - (gx#stx-e _tl200205200264_)))) - (let ((_tl200208200272_ + (gx#stx-e _tl201366201425_)))) + (let ((_tl201369201433_ (let () (declare (not safe)) - (##cdr _e200210200267_))) - (_hd200209200270_ + (##cdr _e201371201428_))) + (_hd201370201431_ (let () (declare (not safe)) - (##car _e200210200267_)))) + (##car _e201371201428_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200208200272_)) - (___kont212325212326_) - (___kont212329212330_)))) - (___kont212329212330_)) + (gx#stx-null? _tl201369201433_)) + (___kont213486213487_) + (___kont213490213491_)))) + (___kont213490213491_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd200206200262_)) + (gx#stx-eq? '%#quote _hd201367201423_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200205200264_)) - (let ((_e200216200244_ + (gx#stx-pair? _tl201366201425_)) + (let ((_e201377201405_ (let () (declare (not safe)) - (gx#stx-e _tl200205200264_)))) - (let ((_tl200214200249_ + (gx#stx-e _tl201366201425_)))) + (let ((_tl201375201410_ (let () (declare (not safe)) - (##cdr _e200216200244_))) - (_hd200215200247_ + (##cdr _e201377201405_))) + (_hd201376201408_ (let () (declare (not safe)) - (##car _e200216200244_)))) + (##car _e201377201405_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl200214200249_)) - (___kont212327212328_) - (___kont212329212330_)))) - (___kont212329212330_)) - (___kont212329212330_))) - (___kont212329212330_)))) + (gx#stx-null? _tl201375201410_)) + (___kont213488213489_) + (___kont213490213491_)))) + (___kont213490213491_)) + (___kont213490213491_))) + (___kont213490213491_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212329212330_))))))) + (___kont213490213491_))))))) (if (let () (declare (not safe)) - (##pair? _rest200178200186_)) - (let ((_hd200183200283_ + (##pair? _rest201339201347_)) + (let ((_hd201344201444_ (let () (declare (not safe)) - (##car _rest200178200186_))) - (_tl200184200285_ + (##car _rest201339201347_))) + (_tl201345201446_ (let () (declare (not safe)) - (##cdr _rest200178200186_)))) - (let* ((_e200288_ _hd200183200283_) - (_rest200290_ _tl200184200285_)) + (##cdr _rest201339201347_)))) + (let* ((_e201449_ _hd201344201444_) + (_rest201451_ _tl201345201446_)) (declare (not safe)) - (_K200182200280_ - _rest200290_ - _e200288_))) + (_K201343201441_ + _rest201451_ + _e201449_))) (let () (declare (not safe)) - (_else200180200194_))))))))) - (___kont212373212374_ + (_else201341201355_))))))))) + (___kont213534213535_ (lambda () (let () (declare (not safe)) - (gxc#generate-runtime-call% _stx200083_))))) + (gxc#generate-runtime-call% _stx201244_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212369212370_)) - (let ((_e200092200118_ + (gx#stx-pair? ___stx213530213531_)) + (let ((_e201253201279_ (let () (declare (not safe)) - (gx#stx-e ___stx212369212370_)))) - (let ((_tl200090200123_ + (gx#stx-e ___stx213530213531_)))) + (let ((_tl201251201284_ (let () (declare (not safe)) - (##cdr _e200092200118_))) - (_hd200091200121_ + (##cdr _e201253201279_))) + (_hd201252201282_ (let () (declare (not safe)) - (##car _e200092200118_)))) + (##car _e201253201279_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl200090200123_)) - (let ((_e200095200126_ + (gx#stx-pair? _tl201251201284_)) + (let ((_e201256201287_ (let () (declare (not safe)) - (gx#stx-e _tl200090200123_)))) - (let ((_tl200093200131_ + (gx#stx-e _tl201251201284_)))) + (let ((_tl201254201292_ (let () (declare (not safe)) - (##cdr _e200095200126_))) - (_hd200094200129_ + (##cdr _e201256201287_))) + (_hd201255201290_ (let () (declare (not safe)) - (##car _e200095200126_)))) + (##car _e201256201287_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd200094200129_)) - (let ((_e200098200134_ + (gx#stx-pair? _hd201255201290_)) + (let ((_e201259201295_ (let () (declare (not safe)) - (gx#stx-e _hd200094200129_)))) - (let ((_tl200096200139_ + (gx#stx-e _hd201255201290_)))) + (let ((_tl201257201300_ (let () (declare (not safe)) - (##cdr _e200098200134_))) - (_hd200097200137_ + (##cdr _e201259201295_))) + (_hd201258201298_ (let () (declare (not safe)) - (##car _e200098200134_)))) + (##car _e201259201295_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd200097200137_)) + (gx#identifier? _hd201258201298_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd200097200137_)) + _hd201258201298_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl200096200139_)) - (let ((_e200101200142_ + _tl201257201300_)) + (let ((_e201262201303_ (let () (declare (not safe)) (gx#stx-e - _tl200096200139_)))) - (let ((_tl200099200147_ + _tl201257201300_)))) + (let ((_tl201260201308_ (let () (declare (not safe)) - (##cdr _e200101200142_))) - (_hd200100200145_ + (##cdr _e201262201303_))) + (_hd201261201306_ (let () (declare (not safe)) - (##car _e200101200142_)))) + (##car _e201262201303_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl200099200147_)) - (___kont212371212372_ - _tl200093200131_ - _hd200100200145_) - (___kont212373212374_)))) - (___kont212373212374_)) - (___kont212373212374_)) - (___kont212373212374_)))) - (___kont212373212374_)))) - (___kont212373212374_)))) - (___kont212373212374_)))))) + _tl201260201308_)) + (___kont213532213533_ + _tl201254201292_ + _hd201261201306_) + (___kont213534213535_)))) + (___kont213534213535_)) + (___kont213534213535_)) + (___kont213534213535_)))) + (___kont213534213535_)))) + (___kont213534213535_)))) + (___kont213534213535_)))))) (define gxc#generate-runtime-if% - (lambda (_stx199896_) - (letrec ((_simplify199898_ - (lambda (_code199983_) - (let* ((_code199984200002_ _code199983_) - (_else199986200010_ (lambda () _code199983_)) - (_K199988200046_ - (lambda (_expr200013_ _test200014_) - (let* ((_expr200015200023_ _expr200013_) - (_else200017200031_ + (lambda (_stx201057_) + (letrec ((_simplify201059_ + (lambda (_code201144_) + (let* ((_code201145201163_ _code201144_) + (_else201147201171_ (lambda () _code201144_)) + (_K201149201207_ + (lambda (_expr201174_ _test201175_) + (let* ((_expr201176201184_ _expr201174_) + (_else201178201192_ (lambda () - (let ((__tmp213189 - (let ((__tmp213190 + (let ((__tmp214350 + (let ((__tmp214351 (let () (declare (not safe)) - (cons _expr200013_ + (cons _expr201174_ '())))) (declare (not safe)) - (cons _test200014_ - __tmp213190)))) + (cons _test201175_ + __tmp214351)))) (declare (not safe)) - (cons 'and __tmp213189)))) - (_K200019200036_ - (lambda (_exprs200034_) - (let ((__tmp213191 + (cons 'and __tmp214350)))) + (_K201180201197_ + (lambda (_exprs201195_) + (let ((__tmp214352 (let () (declare (not safe)) - (cons _test200014_ - _exprs200034_)))) + (cons _test201175_ + _exprs201195_)))) (declare (not safe)) - (cons 'and __tmp213191))))) + (cons 'and __tmp214352))))) (if (let () (declare (not safe)) - (##pair? _expr200015200023_)) - (let ((_hd200020200039_ + (##pair? _expr201176201184_)) + (let ((_hd201181201200_ (let () (declare (not safe)) - (##car _expr200015200023_))) - (_tl200021200041_ + (##car _expr201176201184_))) + (_tl201182201202_ (let () (declare (not safe)) - (##cdr _expr200015200023_)))) + (##cdr _expr201176201184_)))) (if (let () (declare (not safe)) - (##eq? _hd200020200039_ 'and)) - (let ((_exprs200044_ - _tl200021200041_)) + (##eq? _hd201181201200_ 'and)) + (let ((_exprs201205_ + _tl201182201202_)) (declare (not safe)) - (_K200019200036_ _exprs200044_)) + (_K201180201197_ _exprs201205_)) (let () (declare (not safe)) - (_else200017200031_)))) + (_else201178201192_)))) (let () (declare (not safe)) - (_else200017200031_))))))) + (_else201178201192_))))))) (if (let () (declare (not safe)) - (##pair? _code199984200002_)) - (let ((_hd199989200049_ + (##pair? _code201145201163_)) + (let ((_hd201150201210_ (let () (declare (not safe)) - (##car _code199984200002_))) - (_tl199990200051_ + (##car _code201145201163_))) + (_tl201151201212_ (let () (declare (not safe)) - (##cdr _code199984200002_)))) + (##cdr _code201145201163_)))) (if (let () (declare (not safe)) - (##eq? _hd199989200049_ 'if)) + (##eq? _hd201150201210_ 'if)) (if (let () (declare (not safe)) - (##pair? _tl199990200051_)) - (let ((_hd199991200054_ + (##pair? _tl201151201212_)) + (let ((_hd201152201215_ (let () (declare (not safe)) - (##car _tl199990200051_))) - (_tl199992200056_ + (##car _tl201151201212_))) + (_tl201153201217_ (let () (declare (not safe)) - (##cdr _tl199990200051_)))) - (let ((_test200059_ _hd199991200054_)) + (##cdr _tl201151201212_)))) + (let ((_test201220_ _hd201152201215_)) (if (let () (declare (not safe)) - (##pair? _tl199992200056_)) - (let ((_hd199993200061_ + (##pair? _tl201153201217_)) + (let ((_hd201154201222_ (let () (declare (not safe)) - (##car _tl199992200056_))) - (_tl199994200063_ + (##car _tl201153201217_))) + (_tl201155201224_ (let () (declare (not safe)) - (##cdr _tl199992200056_)))) - (let ((_expr200066_ - _hd199993200061_)) + (##cdr _tl201153201217_)))) + (let ((_expr201227_ + _hd201154201222_)) (if (let () (declare (not safe)) - (##pair? _tl199994200063_)) - (let ((_hd199995200068_ + (##pair? _tl201155201224_)) + (let ((_hd201156201229_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl199994200063_))) - (_tl199996200070_ - (let () (declare (not safe)) (##cdr _tl199994200063_)))) - (if (let () (declare (not safe)) (##pair? _hd199995200068_)) - (let ((_hd199997200073_ + (##car _tl201155201224_))) + (_tl201157201231_ + (let () (declare (not safe)) (##cdr _tl201155201224_)))) + (if (let () (declare (not safe)) (##pair? _hd201156201229_)) + (let ((_hd201158201234_ (let () (declare (not safe)) - (##car _hd199995200068_))) - (_tl199998200075_ + (##car _hd201156201229_))) + (_tl201159201236_ (let () (declare (not safe)) - (##cdr _hd199995200068_)))) + (##cdr _hd201156201229_)))) (if (let () (declare (not safe)) - (##eq? _hd199997200073_ 'quote)) + (##eq? _hd201158201234_ 'quote)) (if (let () (declare (not safe)) - (##pair? _tl199998200075_)) - (let ((_hd199999200078_ + (##pair? _tl201159201236_)) + (let ((_hd201160201239_ (let () (declare (not safe)) - (##car _tl199998200075_))) - (_tl200000200080_ + (##car _tl201159201236_))) + (_tl201161201241_ (let () (declare (not safe)) - (##cdr _tl199998200075_)))) + (##cdr _tl201159201236_)))) (if (let () (declare (not safe)) - (##eq? _hd199999200078_ '#f)) + (##eq? _hd201160201239_ '#f)) (if (let () (declare (not safe)) - (##null? _tl200000200080_)) + (##null? _tl201161201241_)) (if (let () (declare (not safe)) - (##null? _tl199996200070_)) + (##null? _tl201157201231_)) (let () (declare (not safe)) - (_K199988200046_ - _expr200066_ - _test200059_)) + (_K201149201207_ + _expr201227_ + _test201220_)) (let () (declare (not safe)) - (_else199986200010_))) + (_else201147201171_))) (let () (declare (not safe)) - (_else199986200010_))) + (_else201147201171_))) (let () (declare (not safe)) - (_else199986200010_)))) + (_else201147201171_)))) (let () (declare (not safe)) - (_else199986200010_))) - (let () (declare (not safe)) (_else199986200010_)))) - (let () (declare (not safe)) (_else199986200010_)))) - (let () (declare (not safe)) (_else199986200010_))))) + (_else201147201171_))) + (let () (declare (not safe)) (_else201147201171_)))) + (let () (declare (not safe)) (_else201147201171_)))) + (let () (declare (not safe)) (_else201147201171_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else199986200010_))))) + (_else201147201171_))))) (let () (declare (not safe)) - (_else199986200010_))) + (_else201147201171_))) (let () (declare (not safe)) - (_else199986200010_)))) + (_else201147201171_)))) (let () (declare (not safe)) - (_else199986200010_))))))) - (let* ((_g199900199921_ - (lambda (_g199901199918_) + (_else201147201171_))))))) + (let* ((_g201061201082_ + (lambda (_g201062201079_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199901199918_)))) - (_g199899199980_ - (lambda (_g199901199924_) + _g201062201079_)))) + (_g201060201141_ + (lambda (_g201062201085_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199901199924_)) - (let ((_e199907199926_ + (gx#stx-pair? _g201062201085_)) + (let ((_e201068201087_ (let () (declare (not safe)) - (gx#stx-e _g199901199924_)))) - (let ((_hd199906199929_ + (gx#stx-e _g201062201085_)))) + (let ((_hd201067201090_ (let () (declare (not safe)) - (##car _e199907199926_))) - (_tl199905199931_ + (##car _e201068201087_))) + (_tl201066201092_ (let () (declare (not safe)) - (##cdr _e199907199926_)))) + (##cdr _e201068201087_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199905199931_)) - (let ((_e199910199934_ + (gx#stx-pair? _tl201066201092_)) + (let ((_e201071201095_ (let () (declare (not safe)) - (gx#stx-e _tl199905199931_)))) - (let ((_hd199909199937_ + (gx#stx-e _tl201066201092_)))) + (let ((_hd201070201098_ (let () (declare (not safe)) - (##car _e199910199934_))) - (_tl199908199939_ + (##car _e201071201095_))) + (_tl201069201100_ (let () (declare (not safe)) - (##cdr _e199910199934_)))) + (##cdr _e201071201095_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199908199939_)) - (let ((_e199913199942_ + (gx#stx-pair? _tl201069201100_)) + (let ((_e201074201103_ (let () (declare (not safe)) (gx#stx-e - _tl199908199939_)))) - (let ((_hd199912199945_ + _tl201069201100_)))) + (let ((_hd201073201106_ (let () (declare (not safe)) - (##car _e199913199942_))) - (_tl199911199947_ + (##car _e201074201103_))) + (_tl201072201108_ (let () (declare (not safe)) - (##cdr _e199913199942_)))) + (##cdr _e201074201103_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199911199947_)) - (let ((_e199916199950_ + _tl201072201108_)) + (let ((_e201077201111_ (let () (declare (not safe)) (gx#stx-e - _tl199911199947_)))) - (let ((_hd199915199953_ + _tl201072201108_)))) + (let ((_hd201076201114_ (let () (declare (not safe)) - (##car _e199916199950_))) - (_tl199914199955_ + (##car _e201077201111_))) + (_tl201075201116_ (let () (declare (not safe)) - (##cdr _e199916199950_)))) + (##cdr _e201077201111_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199914199955_)) - ((lambda (_L199958_ + _tl201075201116_)) + ((lambda (_L201119_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L199959_ - _L199960_) + _L201120_ + _L201121_) (if (gxc#current-compile-boolean-context) - (let ((__tmp213199 - (let ((__tmp213200 - (let ((__tmp213205 + (let ((__tmp214360 + (let ((__tmp214361 + (let ((__tmp214366 (let () (declare (not safe)) - (gxc#compile-e__0 _L199960_))) - (__tmp213201 - (let ((__tmp213204 + (gxc#compile-e__0 _L201121_))) + (__tmp214362 + (let ((__tmp214365 (let () (declare (not safe)) (gxc#compile-e__0 - _L199959_))) - (__tmp213202 - (let ((__tmp213203 + _L201120_))) + (__tmp214363 + (let ((__tmp214364 (let () (declare (not safe)) (gxc#compile-e__0 - _L199958_)))) + _L201119_)))) (declare (not safe)) - (cons __tmp213203 + (cons __tmp214364 '())))) (declare (not safe)) - (cons __tmp213204 - __tmp213202)))) + (cons __tmp214365 + __tmp214363)))) (declare (not safe)) - (cons __tmp213205 __tmp213201)))) + (cons __tmp214366 __tmp214362)))) (declare (not safe)) - (cons 'if __tmp213200)))) + (cons 'if __tmp214361)))) (declare (not safe)) - (_simplify199898_ __tmp213199)) - (let ((__tmp213192 - (let ((__tmp213197 - (let ((__tmp213198 + (_simplify201059_ __tmp214360)) + (let ((__tmp214353 + (let ((__tmp214358 + (let ((__tmp214359 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L199960_))))) + _L201121_))))) (declare (not safe)) (call-with-parameters - __tmp213198 + __tmp214359 gxc#current-compile-boolean-context '#t))) - (__tmp213193 - (let ((__tmp213196 + (__tmp214354 + (let ((__tmp214357 (let () (declare (not safe)) - (gxc#compile-e__0 _L199959_))) - (__tmp213194 - (let ((__tmp213195 + (gxc#compile-e__0 _L201120_))) + (__tmp214355 + (let ((__tmp214356 (let () (declare (not safe)) (gxc#compile-e__0 - _L199958_)))) + _L201119_)))) (declare (not safe)) - (cons __tmp213195 '())))) + (cons __tmp214356 '())))) (declare (not safe)) - (cons __tmp213196 __tmp213194)))) + (cons __tmp214357 __tmp214355)))) (declare (not safe)) - (cons __tmp213197 __tmp213193)))) + (cons __tmp214358 __tmp214354)))) (declare (not safe)) - (cons 'if __tmp213192)))) - _hd199915199953_ - _hd199912199945_ - _hd199909199937_) + (cons 'if __tmp214353)))) + _hd201076201114_ + _hd201073201106_ + _hd201070201098_) (let () (declare (not safe)) - (_g199900199921_ _g199901199924_))))) + (_g201061201082_ _g201062201085_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199900199921_ - _g199901199924_))))) + (_g201061201082_ + _g201062201085_))))) (let () (declare (not safe)) - (_g199900199921_ - _g199901199924_))))) + (_g201061201082_ + _g201062201085_))))) (let () (declare (not safe)) - (_g199900199921_ _g199901199924_))))) + (_g201061201082_ _g201062201085_))))) (let () (declare (not safe)) - (_g199900199921_ _g199901199924_)))))) + (_g201061201082_ _g201062201085_)))))) (declare (not safe)) - (_g199899199980_ _stx199896_))))) + (_g201060201141_ _stx201057_))))) (define gxc#generate-runtime-ref% - (lambda (_stx199845_) - (let* ((_g199847199860_ - (lambda (_g199848199857_) + (lambda (_stx201006_) + (let* ((_g201008201021_ + (lambda (_g201009201018_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199848199857_)))) - (_g199846199893_ - (lambda (_g199848199863_) + _g201009201018_)))) + (_g201007201054_ + (lambda (_g201009201024_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199848199863_)) - (let ((_e199852199865_ + (gx#stx-pair? _g201009201024_)) + (let ((_e201013201026_ (let () (declare (not safe)) - (gx#stx-e _g199848199863_)))) - (let ((_hd199851199868_ + (gx#stx-e _g201009201024_)))) + (let ((_hd201012201029_ (let () (declare (not safe)) - (##car _e199852199865_))) - (_tl199850199870_ + (##car _e201013201026_))) + (_tl201011201031_ (let () (declare (not safe)) - (##cdr _e199852199865_)))) + (##cdr _e201013201026_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199850199870_)) - (let ((_e199855199873_ + (gx#stx-pair? _tl201011201031_)) + (let ((_e201016201034_ (let () (declare (not safe)) - (gx#stx-e _tl199850199870_)))) - (let ((_hd199854199876_ + (gx#stx-e _tl201011201031_)))) + (let ((_hd201015201037_ (let () (declare (not safe)) - (##car _e199855199873_))) - (_tl199853199878_ + (##car _e201016201034_))) + (_tl201014201039_ (let () (declare (not safe)) - (##cdr _e199855199873_)))) + (##cdr _e201016201034_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199853199878_)) - ((lambda (_L199881_) + (gx#stx-null? _tl201014201039_)) + ((lambda (_L201042_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L199881_))) - _hd199854199876_) + _L201042_))) + _hd201015201037_) (let () (declare (not safe)) - (_g199847199860_ _g199848199863_))))) + (_g201008201021_ _g201009201024_))))) (let () (declare (not safe)) - (_g199847199860_ _g199848199863_))))) + (_g201008201021_ _g201009201024_))))) (let () (declare (not safe)) - (_g199847199860_ _g199848199863_)))))) + (_g201008201021_ _g201009201024_)))))) (declare (not safe)) - (_g199846199893_ _stx199845_)))) + (_g201007201054_ _stx201006_)))) (define gxc#generate-runtime-setq% - (lambda (_stx199778_) - (let* ((_g199780199797_ - (lambda (_g199781199794_) + (lambda (_stx200939_) + (let* ((_g200941200958_ + (lambda (_g200942200955_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199781199794_)))) - (_g199779199842_ - (lambda (_g199781199800_) + _g200942200955_)))) + (_g200940201003_ + (lambda (_g200942200961_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199781199800_)) - (let ((_e199786199802_ + (gx#stx-pair? _g200942200961_)) + (let ((_e200947200963_ (let () (declare (not safe)) - (gx#stx-e _g199781199800_)))) - (let ((_hd199785199805_ + (gx#stx-e _g200942200961_)))) + (let ((_hd200946200966_ (let () (declare (not safe)) - (##car _e199786199802_))) - (_tl199784199807_ + (##car _e200947200963_))) + (_tl200945200968_ (let () (declare (not safe)) - (##cdr _e199786199802_)))) + (##cdr _e200947200963_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199784199807_)) - (let ((_e199789199810_ + (gx#stx-pair? _tl200945200968_)) + (let ((_e200950200971_ (let () (declare (not safe)) - (gx#stx-e _tl199784199807_)))) - (let ((_hd199788199813_ + (gx#stx-e _tl200945200968_)))) + (let ((_hd200949200974_ (let () (declare (not safe)) - (##car _e199789199810_))) - (_tl199787199815_ + (##car _e200950200971_))) + (_tl200948200976_ (let () (declare (not safe)) - (##cdr _e199789199810_)))) + (##cdr _e200950200971_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199787199815_)) - (let ((_e199792199818_ + (gx#stx-pair? _tl200948200976_)) + (let ((_e200953200979_ (let () (declare (not safe)) - (gx#stx-e _tl199787199815_)))) - (let ((_hd199791199821_ + (gx#stx-e _tl200948200976_)))) + (let ((_hd200952200982_ (let () (declare (not safe)) - (##car _e199792199818_))) - (_tl199790199823_ + (##car _e200953200979_))) + (_tl200951200984_ (let () (declare (not safe)) - (##cdr _e199792199818_)))) + (##cdr _e200953200979_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199790199823_)) - ((lambda (_L199826_ _L199827_) - (let ((__tmp213206 - (let ((__tmp213209 + _tl200951200984_)) + ((lambda (_L200987_ _L200988_) + (let ((__tmp214367 + (let ((__tmp214370 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _L199827_))) - (__tmp213207 - (let ((__tmp213208 + (gxc#generate-runtime-binding-id _L200988_))) + (__tmp214368 + (let ((__tmp214369 (let () (declare (not safe)) - (gxc#compile-e__0 _L199826_)))) + (gxc#compile-e__0 _L200987_)))) (declare (not safe)) - (cons __tmp213208 '())))) + (cons __tmp214369 '())))) (declare (not safe)) - (cons __tmp213209 __tmp213207)))) + (cons __tmp214370 __tmp214368)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp213206))) - _hd199791199821_ - _hd199788199813_) + (cons 'set! __tmp214367))) + _hd200952200982_ + _hd200949200974_) (let () (declare (not safe)) - (_g199780199797_ - _g199781199800_))))) + (_g200941200958_ + _g200942200961_))))) (let () (declare (not safe)) - (_g199780199797_ _g199781199800_))))) + (_g200941200958_ _g200942200961_))))) (let () (declare (not safe)) - (_g199780199797_ _g199781199800_))))) + (_g200941200958_ _g200942200961_))))) (let () (declare (not safe)) - (_g199780199797_ _g199781199800_)))))) + (_g200941200958_ _g200942200961_)))))) (declare (not safe)) - (_g199779199842_ _stx199778_)))) + (_g200940201003_ _stx200939_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_stx199590_) - (let* ((_g199592199609_ - (lambda (_g199593199606_) + (lambda (_stx200751_) + (let* ((_g200753200770_ + (lambda (_g200754200767_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199593199606_)))) - (_g199591199775_ - (lambda (_g199593199612_) + _g200754200767_)))) + (_g200752200936_ + (lambda (_g200754200773_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199593199612_)) - (let ((_e199598199614_ + (gx#stx-pair? _g200754200773_)) + (let ((_e200759200775_ (let () (declare (not safe)) - (gx#stx-e _g199593199612_)))) - (let ((_hd199597199617_ + (gx#stx-e _g200754200773_)))) + (let ((_hd200758200778_ (let () (declare (not safe)) - (##car _e199598199614_))) - (_tl199596199619_ + (##car _e200759200775_))) + (_tl200757200780_ (let () (declare (not safe)) - (##cdr _e199598199614_)))) + (##cdr _e200759200775_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199596199619_)) - (let ((_e199601199622_ + (gx#stx-pair? _tl200757200780_)) + (let ((_e200762200783_ (let () (declare (not safe)) - (gx#stx-e _tl199596199619_)))) - (let ((_hd199600199625_ + (gx#stx-e _tl200757200780_)))) + (let ((_hd200761200786_ (let () (declare (not safe)) - (##car _e199601199622_))) - (_tl199599199627_ + (##car _e200762200783_))) + (_tl200760200788_ (let () (declare (not safe)) - (##cdr _e199601199622_)))) + (##cdr _e200762200783_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199599199627_)) - (let ((_e199604199630_ + (gx#stx-pair? _tl200760200788_)) + (let ((_e200765200791_ (let () (declare (not safe)) - (gx#stx-e _tl199599199627_)))) - (let ((_hd199603199633_ + (gx#stx-e _tl200760200788_)))) + (let ((_hd200764200794_ (let () (declare (not safe)) - (##car _e199604199630_))) - (_tl199602199635_ + (##car _e200765200791_))) + (_tl200763200796_ (let () (declare (not safe)) - (##cdr _e199604199630_)))) + (##cdr _e200765200791_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199602199635_)) - ((lambda (_L199638_ _L199639_) + _tl200763200796_)) + ((lambda (_L200799_ _L200800_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp213225 - (let ((__tmp213228 + (let ((__tmp214386 + (let ((__tmp214389 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L199638_))) - (__tmp213226 - (let ((__tmp213227 + (gxc#compile-e__0 _L200799_))) + (__tmp214387 + (let ((__tmp214388 (let () (declare (not safe)) - (gxc#compile-e__0 _L199639_)))) + (gxc#compile-e__0 _L200800_)))) (declare (not safe)) - (cons __tmp213227 '())))) + (cons __tmp214388 '())))) (declare (not safe)) - (cons __tmp213228 __tmp213226)))) + (cons __tmp214389 __tmp214387)))) (declare (not safe)) - (cons '##structure-instance-of? __tmp213225)) - (let _lp199654_ ((_rest199657_ - (let ((__tmp213224 + (cons '##structure-instance-of? __tmp214386)) + (let _lp200815_ ((_rest200818_ + (let ((__tmp214385 (let () (declare (not safe)) - (cons _L199638_ '())))) + (cons _L200799_ '())))) (declare (not safe)) - (cons _L199639_ __tmp213224))) - (_bind199659_ '()) - (_args199660_ '())) - (let* ((_rest199661199669_ _rest199657_) - (_else199663199677_ + (cons _L200800_ __tmp214385))) + (_bind200820_ '()) + (_args200821_ '())) + (let* ((_rest200822200830_ _rest200818_) + (_else200824200838_ (lambda () - (let ((__tmp213210 - (let ((__tmp213211 - (let ((__tmp213212 - (let ((__tmp213213 + (let ((__tmp214371 + (let ((__tmp214372 + (let ((__tmp214373 + (let ((__tmp214374 (let () (declare (not safe)) (cons '##structure-instance-of? - _args199660_)))) + _args200821_)))) (declare (not safe)) - (cons __tmp213213 '())))) + (cons __tmp214374 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp213212)))) + __tmp214373)))) (declare (not safe)) - (cons _bind199659_ __tmp213211)))) + (cons _bind200820_ __tmp214372)))) (declare (not safe)) - (cons 'let __tmp213210)))) - (_K199665199763_ - (lambda (_rest199680_ _e199681_) - (let* ((___stx212407212408_ _e199681_) - (_g199686199704_ + (cons 'let __tmp214371)))) + (_K200826200924_ + (lambda (_rest200841_ _e200842_) + (let* ((___stx213568213569_ _e200842_) + (_g200847200865_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212407212408_))))) - (let ((___kont212409212410_ + ___stx213568213569_))))) + (let ((___kont213570213571_ (lambda () - (let ((__tmp213214 - (let ((__tmp213215 + (let ((__tmp214375 + (let ((__tmp214376 (let () (declare (not safe)) (gxc#compile-e__0 - _e199681_)))) + _e200842_)))) (declare (not safe)) - (cons __tmp213215 - _args199660_)))) + (cons __tmp214376 + _args200821_)))) (declare (not safe)) - (_lp199654_ - _rest199680_ - _bind199659_ - __tmp213214)))) - (___kont212411212412_ + (_lp200815_ + _rest200841_ + _bind200820_ + __tmp214375)))) + (___kont213572213573_ (lambda () - (let ((__tmp213216 - (let ((__tmp213217 + (let ((__tmp214377 + (let ((__tmp214378 (let () (declare (not safe)) (gxc#compile-e__0 - _e199681_)))) + _e200842_)))) (declare (not safe)) - (cons __tmp213217 - _args199660_)))) + (cons __tmp214378 + _args200821_)))) (declare (not safe)) - (_lp199654_ - _rest199680_ - _bind199659_ - __tmp213216)))) - (___kont212413212414_ + (_lp200815_ + _rest200841_ + _bind200820_ + __tmp214377)))) + (___kont213574213575_ (lambda () - (let ((_tmp199711_ - (let ((__tmp213218 + (let ((_tmp200872_ + (let ((__tmp214379 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp213218)))) - (let ((__tmp213220 - (let ((__tmp213221 - (let ((__tmp213222 - (let ((__tmp213223 + (make-symbol__0 __tmp214379)))) + (let ((__tmp214381 + (let ((__tmp214382 + (let ((__tmp214383 + (let ((__tmp214384 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e199681_)))) + (gxc#compile-e__0 _e200842_)))) (declare (not safe)) - (cons __tmp213223 '())))) + (cons __tmp214384 '())))) (declare (not safe)) - (cons _tmp199711_ __tmp213222)))) + (cons _tmp200872_ __tmp214383)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213221 - _bind199659_))) - (__tmp213219 + (cons __tmp214382 + _bind200820_))) + (__tmp214380 (let () (declare (not safe)) - (cons _tmp199711_ - _args199660_)))) + (cons _tmp200872_ + _args200821_)))) (declare (not safe)) - (_lp199654_ - _rest199680_ - __tmp213220 - __tmp213219)))))) + (_lp200815_ + _rest200841_ + __tmp214381 + __tmp214380)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212407212408_)) - (let ((_e199690199742_ + (gx#stx-pair? ___stx213568213569_)) + (let ((_e200851200903_ (let () (declare (not safe)) - (gx#stx-e ___stx212407212408_)))) - (let ((_tl199688199747_ + (gx#stx-e ___stx213568213569_)))) + (let ((_tl200849200908_ (let () (declare (not safe)) - (##cdr _e199690199742_))) - (_hd199689199745_ + (##cdr _e200851200903_))) + (_hd200850200906_ (let () (declare (not safe)) - (##car _e199690199742_)))) + (##car _e200851200903_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd199689199745_)) + (gx#identifier? _hd200850200906_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd199689199745_)) + _hd200850200906_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199688199747_)) - (let ((_e199693199750_ + _tl200849200908_)) + (let ((_e200854200911_ (let () (declare (not safe)) (gx#stx-e - _tl199688199747_)))) - (let ((_tl199691199755_ + _tl200849200908_)))) + (let ((_tl200852200916_ (let () (declare (not safe)) - (##cdr _e199693199750_))) - (_hd199692199753_ + (##cdr _e200854200911_))) + (_hd200853200914_ (let () (declare (not safe)) - (##car _e199693199750_)))) + (##car _e200854200911_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199691199755_)) - (___kont212409212410_) - (___kont212413212414_)))) - (___kont212413212414_)) + _tl200852200916_)) + (___kont213570213571_) + (___kont213574213575_)))) + (___kont213574213575_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd199689199745_)) + _hd200850200906_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199688199747_)) - (let ((_e199699199727_ + _tl200849200908_)) + (let ((_e200860200888_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl199688199747_)))) - (let ((_tl199697199732_ - (let () (declare (not safe)) (##cdr _e199699199727_))) - (_hd199698199730_ - (let () (declare (not safe)) (##car _e199699199727_)))) + (gx#stx-e _tl200849200908_)))) + (let ((_tl200858200893_ + (let () (declare (not safe)) (##cdr _e200860200888_))) + (_hd200859200891_ + (let () (declare (not safe)) (##car _e200860200888_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199697199732_)) - (___kont212411212412_) - (___kont212413212414_)))) - (___kont212413212414_)) + (gx#stx-null? _tl200858200893_)) + (___kont213572213573_) + (___kont213574213575_)))) + (___kont213574213575_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212413212414_))) - (___kont212413212414_)))) - (___kont212413212414_))))))) + (___kont213574213575_))) + (___kont213574213575_)))) + (___kont213574213575_))))))) (if (let () (declare (not safe)) - (##pair? _rest199661199669_)) - (let ((_hd199666199766_ + (##pair? _rest200822200830_)) + (let ((_hd200827200927_ (let () (declare (not safe)) - (##car _rest199661199669_))) - (_tl199667199768_ + (##car _rest200822200830_))) + (_tl200828200929_ (let () (declare (not safe)) - (##cdr _rest199661199669_)))) - (let* ((_e199771_ _hd199666199766_) - (_rest199773_ _tl199667199768_)) + (##cdr _rest200822200830_)))) + (let* ((_e200932_ _hd200827200927_) + (_rest200934_ _tl200828200929_)) (declare (not safe)) - (_K199665199763_ _rest199773_ _e199771_))) - (let () (declare (not safe)) (_else199663199677_))))))) + (_K200826200924_ _rest200934_ _e200932_))) + (let () (declare (not safe)) (_else200824200838_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd199603199633_ - _hd199600199625_) + _hd200764200794_ + _hd200761200786_) (let () (declare (not safe)) - (_g199592199609_ - _g199593199612_))))) + (_g200753200770_ + _g200754200773_))))) (let () (declare (not safe)) - (_g199592199609_ _g199593199612_))))) + (_g200753200770_ _g200754200773_))))) (let () (declare (not safe)) - (_g199592199609_ _g199593199612_))))) + (_g200753200770_ _g200754200773_))))) (let () (declare (not safe)) - (_g199592199609_ _g199593199612_)))))) + (_g200753200770_ _g200754200773_)))))) (declare (not safe)) - (_g199591199775_ _stx199590_)))) + (_g200752200936_ _stx200751_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_stx199402_) - (let* ((_g199404199421_ - (lambda (_g199405199418_) + (lambda (_stx200563_) + (let* ((_g200565200582_ + (lambda (_g200566200579_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199405199418_)))) - (_g199403199587_ - (lambda (_g199405199424_) + _g200566200579_)))) + (_g200564200748_ + (lambda (_g200566200585_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199405199424_)) - (let ((_e199410199426_ + (gx#stx-pair? _g200566200585_)) + (let ((_e200571200587_ (let () (declare (not safe)) - (gx#stx-e _g199405199424_)))) - (let ((_hd199409199429_ + (gx#stx-e _g200566200585_)))) + (let ((_hd200570200590_ (let () (declare (not safe)) - (##car _e199410199426_))) - (_tl199408199431_ + (##car _e200571200587_))) + (_tl200569200592_ (let () (declare (not safe)) - (##cdr _e199410199426_)))) + (##cdr _e200571200587_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199408199431_)) - (let ((_e199413199434_ + (gx#stx-pair? _tl200569200592_)) + (let ((_e200574200595_ (let () (declare (not safe)) - (gx#stx-e _tl199408199431_)))) - (let ((_hd199412199437_ + (gx#stx-e _tl200569200592_)))) + (let ((_hd200573200598_ (let () (declare (not safe)) - (##car _e199413199434_))) - (_tl199411199439_ + (##car _e200574200595_))) + (_tl200572200600_ (let () (declare (not safe)) - (##cdr _e199413199434_)))) + (##cdr _e200574200595_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199411199439_)) - (let ((_e199416199442_ + (gx#stx-pair? _tl200572200600_)) + (let ((_e200577200603_ (let () (declare (not safe)) - (gx#stx-e _tl199411199439_)))) - (let ((_hd199415199445_ + (gx#stx-e _tl200572200600_)))) + (let ((_hd200576200606_ (let () (declare (not safe)) - (##car _e199416199442_))) - (_tl199414199447_ + (##car _e200577200603_))) + (_tl200575200608_ (let () (declare (not safe)) - (##cdr _e199416199442_)))) + (##cdr _e200577200603_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199414199447_)) - ((lambda (_L199450_ _L199451_) + _tl200575200608_)) + ((lambda (_L200611_ _L200612_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp213244 - (let ((__tmp213247 + (let ((__tmp214405 + (let ((__tmp214408 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L199450_))) - (__tmp213245 - (let ((__tmp213246 + (gxc#compile-e__0 _L200611_))) + (__tmp214406 + (let ((__tmp214407 (let () (declare (not safe)) - (gxc#compile-e__0 _L199451_)))) + (gxc#compile-e__0 _L200612_)))) (declare (not safe)) - (cons __tmp213246 '())))) + (cons __tmp214407 '())))) (declare (not safe)) - (cons __tmp213247 __tmp213245)))) + (cons __tmp214408 __tmp214406)))) (declare (not safe)) - (cons '##structure-direct-instance-of? __tmp213244)) - (let _lp199466_ ((_rest199469_ - (let ((__tmp213243 + (cons '##structure-direct-instance-of? __tmp214405)) + (let _lp200627_ ((_rest200630_ + (let ((__tmp214404 (let () (declare (not safe)) - (cons _L199450_ '())))) + (cons _L200611_ '())))) (declare (not safe)) - (cons _L199451_ __tmp213243))) - (_bind199471_ '()) - (_args199472_ '())) - (let* ((_rest199473199481_ _rest199469_) - (_else199475199489_ + (cons _L200612_ __tmp214404))) + (_bind200632_ '()) + (_args200633_ '())) + (let* ((_rest200634200642_ _rest200630_) + (_else200636200650_ (lambda () - (let ((__tmp213229 - (let ((__tmp213230 - (let ((__tmp213231 - (let ((__tmp213232 + (let ((__tmp214390 + (let ((__tmp214391 + (let ((__tmp214392 + (let ((__tmp214393 (let () (declare (not safe)) (cons '##structure-direct-instance-of? - _args199472_)))) + _args200633_)))) (declare (not safe)) - (cons __tmp213232 '())))) + (cons __tmp214393 '())))) (declare (not safe)) (cons '(declare (not safe)) - __tmp213231)))) + __tmp214392)))) (declare (not safe)) - (cons _bind199471_ __tmp213230)))) + (cons _bind200632_ __tmp214391)))) (declare (not safe)) - (cons 'let __tmp213229)))) - (_K199477199575_ - (lambda (_rest199492_ _e199493_) - (let* ((___stx212453212454_ _e199493_) - (_g199498199516_ + (cons 'let __tmp214390)))) + (_K200638200736_ + (lambda (_rest200653_ _e200654_) + (let* ((___stx213614213615_ _e200654_) + (_g200659200677_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212453212454_))))) - (let ((___kont212455212456_ + ___stx213614213615_))))) + (let ((___kont213616213617_ (lambda () - (let ((__tmp213233 - (let ((__tmp213234 + (let ((__tmp214394 + (let ((__tmp214395 (let () (declare (not safe)) (gxc#compile-e__0 - _e199493_)))) + _e200654_)))) (declare (not safe)) - (cons __tmp213234 - _args199472_)))) + (cons __tmp214395 + _args200633_)))) (declare (not safe)) - (_lp199466_ - _rest199492_ - _bind199471_ - __tmp213233)))) - (___kont212457212458_ + (_lp200627_ + _rest200653_ + _bind200632_ + __tmp214394)))) + (___kont213618213619_ (lambda () - (let ((__tmp213235 - (let ((__tmp213236 + (let ((__tmp214396 + (let ((__tmp214397 (let () (declare (not safe)) (gxc#compile-e__0 - _e199493_)))) + _e200654_)))) (declare (not safe)) - (cons __tmp213236 - _args199472_)))) + (cons __tmp214397 + _args200633_)))) (declare (not safe)) - (_lp199466_ - _rest199492_ - _bind199471_ - __tmp213235)))) - (___kont212459212460_ + (_lp200627_ + _rest200653_ + _bind200632_ + __tmp214396)))) + (___kont213620213621_ (lambda () - (let ((_tmp199523_ - (let ((__tmp213237 + (let ((_tmp200684_ + (let ((__tmp214398 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp213237)))) - (let ((__tmp213239 - (let ((__tmp213240 - (let ((__tmp213241 - (let ((__tmp213242 + (make-symbol__0 __tmp214398)))) + (let ((__tmp214400 + (let ((__tmp214401 + (let ((__tmp214402 + (let ((__tmp214403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e199493_)))) + (gxc#compile-e__0 _e200654_)))) (declare (not safe)) - (cons __tmp213242 '())))) + (cons __tmp214403 '())))) (declare (not safe)) - (cons _tmp199523_ __tmp213241)))) + (cons _tmp200684_ __tmp214402)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213240 - _bind199471_))) - (__tmp213238 + (cons __tmp214401 + _bind200632_))) + (__tmp214399 (let () (declare (not safe)) - (cons _tmp199523_ - _args199472_)))) + (cons _tmp200684_ + _args200633_)))) (declare (not safe)) - (_lp199466_ - _rest199492_ - __tmp213239 - __tmp213238)))))) + (_lp200627_ + _rest200653_ + __tmp214400 + __tmp214399)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212453212454_)) - (let ((_e199502199554_ + (gx#stx-pair? ___stx213614213615_)) + (let ((_e200663200715_ (let () (declare (not safe)) - (gx#stx-e ___stx212453212454_)))) - (let ((_tl199500199559_ + (gx#stx-e ___stx213614213615_)))) + (let ((_tl200661200720_ (let () (declare (not safe)) - (##cdr _e199502199554_))) - (_hd199501199557_ + (##cdr _e200663200715_))) + (_hd200662200718_ (let () (declare (not safe)) - (##car _e199502199554_)))) + (##car _e200663200715_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd199501199557_)) + (gx#identifier? _hd200662200718_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd199501199557_)) + _hd200662200718_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199500199559_)) - (let ((_e199505199562_ + _tl200661200720_)) + (let ((_e200666200723_ (let () (declare (not safe)) (gx#stx-e - _tl199500199559_)))) - (let ((_tl199503199567_ + _tl200661200720_)))) + (let ((_tl200664200728_ (let () (declare (not safe)) - (##cdr _e199505199562_))) - (_hd199504199565_ + (##cdr _e200666200723_))) + (_hd200665200726_ (let () (declare (not safe)) - (##car _e199505199562_)))) + (##car _e200666200723_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199503199567_)) - (___kont212455212456_) - (___kont212459212460_)))) - (___kont212459212460_)) + _tl200664200728_)) + (___kont213616213617_) + (___kont213620213621_)))) + (___kont213620213621_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd199501199557_)) + _hd200662200718_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199500199559_)) - (let ((_e199511199539_ + _tl200661200720_)) + (let ((_e200672200700_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl199500199559_)))) - (let ((_tl199509199544_ - (let () (declare (not safe)) (##cdr _e199511199539_))) - (_hd199510199542_ - (let () (declare (not safe)) (##car _e199511199539_)))) + (gx#stx-e _tl200661200720_)))) + (let ((_tl200670200705_ + (let () (declare (not safe)) (##cdr _e200672200700_))) + (_hd200671200703_ + (let () (declare (not safe)) (##car _e200672200700_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199509199544_)) - (___kont212457212458_) - (___kont212459212460_)))) - (___kont212459212460_)) + (gx#stx-null? _tl200670200705_)) + (___kont213618213619_) + (___kont213620213621_)))) + (___kont213620213621_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212459212460_))) - (___kont212459212460_)))) - (___kont212459212460_))))))) + (___kont213620213621_))) + (___kont213620213621_)))) + (___kont213620213621_))))))) (if (let () (declare (not safe)) - (##pair? _rest199473199481_)) - (let ((_hd199478199578_ + (##pair? _rest200634200642_)) + (let ((_hd200639200739_ (let () (declare (not safe)) - (##car _rest199473199481_))) - (_tl199479199580_ + (##car _rest200634200642_))) + (_tl200640200741_ (let () (declare (not safe)) - (##cdr _rest199473199481_)))) - (let* ((_e199583_ _hd199478199578_) - (_rest199585_ _tl199479199580_)) + (##cdr _rest200634200642_)))) + (let* ((_e200744_ _hd200639200739_) + (_rest200746_ _tl200640200741_)) (declare (not safe)) - (_K199477199575_ _rest199585_ _e199583_))) - (let () (declare (not safe)) (_else199475199489_))))))) + (_K200638200736_ _rest200746_ _e200744_))) + (let () (declare (not safe)) (_else200636200650_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd199415199445_ - _hd199412199437_) + _hd200576200606_ + _hd200573200598_) (let () (declare (not safe)) - (_g199404199421_ - _g199405199424_))))) + (_g200565200582_ + _g200566200585_))))) (let () (declare (not safe)) - (_g199404199421_ _g199405199424_))))) + (_g200565200582_ _g200566200585_))))) (let () (declare (not safe)) - (_g199404199421_ _g199405199424_))))) + (_g200565200582_ _g200566200585_))))) (let () (declare (not safe)) - (_g199404199421_ _g199405199424_)))))) + (_g200565200582_ _g200566200585_)))))) (declare (not safe)) - (_g199403199587_ _stx199402_)))) + (_g200564200748_ _stx200563_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_stx199319_) - (let* ((_g199321199342_ - (lambda (_g199322199339_) + (lambda (_stx200480_) + (let* ((_g200482200503_ + (lambda (_g200483200500_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199322199339_)))) - (_g199320199399_ - (lambda (_g199322199345_) + _g200483200500_)))) + (_g200481200560_ + (lambda (_g200483200506_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199322199345_)) - (let ((_e199328199347_ + (gx#stx-pair? _g200483200506_)) + (let ((_e200489200508_ (let () (declare (not safe)) - (gx#stx-e _g199322199345_)))) - (let ((_hd199327199350_ + (gx#stx-e _g200483200506_)))) + (let ((_hd200488200511_ (let () (declare (not safe)) - (##car _e199328199347_))) - (_tl199326199352_ + (##car _e200489200508_))) + (_tl200487200513_ (let () (declare (not safe)) - (##cdr _e199328199347_)))) + (##cdr _e200489200508_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199326199352_)) - (let ((_e199331199355_ + (gx#stx-pair? _tl200487200513_)) + (let ((_e200492200516_ (let () (declare (not safe)) - (gx#stx-e _tl199326199352_)))) - (let ((_hd199330199358_ + (gx#stx-e _tl200487200513_)))) + (let ((_hd200491200519_ (let () (declare (not safe)) - (##car _e199331199355_))) - (_tl199329199360_ + (##car _e200492200516_))) + (_tl200490200521_ (let () (declare (not safe)) - (##cdr _e199331199355_)))) + (##cdr _e200492200516_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199329199360_)) - (let ((_e199334199363_ + (gx#stx-pair? _tl200490200521_)) + (let ((_e200495200524_ (let () (declare (not safe)) - (gx#stx-e _tl199329199360_)))) - (let ((_hd199333199366_ + (gx#stx-e _tl200490200521_)))) + (let ((_hd200494200527_ (let () (declare (not safe)) - (##car _e199334199363_))) - (_tl199332199368_ + (##car _e200495200524_))) + (_tl200493200529_ (let () (declare (not safe)) - (##cdr _e199334199363_)))) + (##cdr _e200495200524_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199332199368_)) - (let ((_e199337199371_ + _tl200493200529_)) + (let ((_e200498200532_ (let () (declare (not safe)) (gx#stx-e - _tl199332199368_)))) - (let ((_hd199336199374_ + _tl200493200529_)))) + (let ((_hd200497200535_ (let () (declare (not safe)) - (##car _e199337199371_))) - (_tl199335199376_ + (##car _e200498200532_))) + (_tl200496200537_ (let () (declare (not safe)) - (##cdr _e199337199371_)))) + (##cdr _e200498200532_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199335199376_)) - ((lambda (_L199379_ + _tl200496200537_)) + ((lambda (_L200540_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L199380_ - _L199381_) - (let ((__tmp213248 - (let ((__tmp213254 + _L200541_ + _L200542_) + (let ((__tmp214409 + (let ((__tmp214415 (let () (declare (not safe)) - (gxc#compile-e__0 _L199379_))) - (__tmp213249 - (let ((__tmp213253 + (gxc#compile-e__0 _L200540_))) + (__tmp214410 + (let ((__tmp214414 (let () (declare (not safe)) - (gxc#compile-e__0 _L199380_))) - (__tmp213250 - (let ((__tmp213252 + (gxc#compile-e__0 _L200541_))) + (__tmp214411 + (let ((__tmp214413 (let () (declare (not safe)) - (gxc#compile-e__0 _L199381_))) - (__tmp213251 + (gxc#compile-e__0 _L200542_))) + (__tmp214412 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp213252 __tmp213251)))) + (cons __tmp214413 __tmp214412)))) (declare (not safe)) - (cons __tmp213253 __tmp213250)))) + (cons __tmp214414 __tmp214411)))) (declare (not safe)) - (cons __tmp213254 __tmp213249)))) + (cons __tmp214415 __tmp214410)))) (declare (not safe)) - (cons '##structure-ref __tmp213248))) - _hd199336199374_ - _hd199333199366_ - _hd199330199358_) + (cons '##structure-ref __tmp214409))) + _hd200497200535_ + _hd200494200527_ + _hd200491200519_) (let () (declare (not safe)) - (_g199321199342_ _g199322199345_))))) + (_g200482200503_ _g200483200506_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199321199342_ - _g199322199345_))))) + (_g200482200503_ + _g200483200506_))))) (let () (declare (not safe)) - (_g199321199342_ _g199322199345_))))) + (_g200482200503_ _g200483200506_))))) (let () (declare (not safe)) - (_g199321199342_ _g199322199345_))))) + (_g200482200503_ _g200483200506_))))) (let () (declare (not safe)) - (_g199321199342_ _g199322199345_)))))) + (_g200482200503_ _g200483200506_)))))) (declare (not safe)) - (_g199320199399_ _stx199319_)))) + (_g200481200560_ _stx200480_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_stx199220_) - (let* ((_g199222199247_ - (lambda (_g199223199244_) + (lambda (_stx200381_) + (let* ((_g200383200408_ + (lambda (_g200384200405_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199223199244_)))) - (_g199221199316_ - (lambda (_g199223199250_) + _g200384200405_)))) + (_g200382200477_ + (lambda (_g200384200411_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199223199250_)) - (let ((_e199230199252_ + (gx#stx-pair? _g200384200411_)) + (let ((_e200391200413_ (let () (declare (not safe)) - (gx#stx-e _g199223199250_)))) - (let ((_hd199229199255_ + (gx#stx-e _g200384200411_)))) + (let ((_hd200390200416_ (let () (declare (not safe)) - (##car _e199230199252_))) - (_tl199228199257_ + (##car _e200391200413_))) + (_tl200389200418_ (let () (declare (not safe)) - (##cdr _e199230199252_)))) + (##cdr _e200391200413_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199228199257_)) - (let ((_e199233199260_ + (gx#stx-pair? _tl200389200418_)) + (let ((_e200394200421_ (let () (declare (not safe)) - (gx#stx-e _tl199228199257_)))) - (let ((_hd199232199263_ + (gx#stx-e _tl200389200418_)))) + (let ((_hd200393200424_ (let () (declare (not safe)) - (##car _e199233199260_))) - (_tl199231199265_ + (##car _e200394200421_))) + (_tl200392200426_ (let () (declare (not safe)) - (##cdr _e199233199260_)))) + (##cdr _e200394200421_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199231199265_)) - (let ((_e199236199268_ + (gx#stx-pair? _tl200392200426_)) + (let ((_e200397200429_ (let () (declare (not safe)) - (gx#stx-e _tl199231199265_)))) - (let ((_hd199235199271_ + (gx#stx-e _tl200392200426_)))) + (let ((_hd200396200432_ (let () (declare (not safe)) - (##car _e199236199268_))) - (_tl199234199273_ + (##car _e200397200429_))) + (_tl200395200434_ (let () (declare (not safe)) - (##cdr _e199236199268_)))) + (##cdr _e200397200429_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199234199273_)) - (let ((_e199239199276_ + _tl200395200434_)) + (let ((_e200400200437_ (let () (declare (not safe)) (gx#stx-e - _tl199234199273_)))) - (let ((_hd199238199279_ + _tl200395200434_)))) + (let ((_hd200399200440_ (let () (declare (not safe)) - (##car _e199239199276_))) - (_tl199237199281_ + (##car _e200400200437_))) + (_tl200398200442_ (let () (declare (not safe)) - (##cdr _e199239199276_)))) + (##cdr _e200400200437_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199237199281_)) - (let ((_e199242199284_ + _tl200398200442_)) + (let ((_e200403200445_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl199237199281_)))) - (let ((_hd199241199287_ - (let () (declare (not safe)) (##car _e199242199284_))) - (_tl199240199289_ + (gx#stx-e _tl200398200442_)))) + (let ((_hd200402200448_ + (let () (declare (not safe)) (##car _e200403200445_))) + (_tl200401200450_ (let () (declare (not safe)) - (##cdr _e199242199284_)))) + (##cdr _e200403200445_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199240199289_)) - ((lambda (_L199292_ _L199293_ _L199294_ _L199295_) - (let ((__tmp213255 - (let ((__tmp213263 + (gx#stx-null? _tl200401200450_)) + ((lambda (_L200453_ _L200454_ _L200455_ _L200456_) + (let ((__tmp214416 + (let ((__tmp214424 (let () (declare (not safe)) - (gxc#compile-e__0 _L199293_))) - (__tmp213256 - (let ((__tmp213262 + (gxc#compile-e__0 _L200454_))) + (__tmp214417 + (let ((__tmp214423 (let () (declare (not safe)) (gxc#compile-e__0 - _L199292_))) - (__tmp213257 - (let ((__tmp213261 + _L200453_))) + (__tmp214418 + (let ((__tmp214422 (let () (declare (not safe)) (gxc#compile-e__0 - _L199294_))) - (__tmp213258 - (let ((__tmp213260 + _L200455_))) + (__tmp214419 + (let ((__tmp214421 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L199295_))) - (__tmp213259 + (gxc#compile-e__0 _L200456_))) + (__tmp214420 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp213260 __tmp213259)))) + (cons __tmp214421 __tmp214420)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213261 - __tmp213258)))) + (cons __tmp214422 + __tmp214419)))) (declare (not safe)) - (cons __tmp213262 __tmp213257)))) + (cons __tmp214423 __tmp214418)))) (declare (not safe)) - (cons __tmp213263 __tmp213256)))) + (cons __tmp214424 __tmp214417)))) (declare (not safe)) - (cons '##structure-set! __tmp213255))) - _hd199241199287_ - _hd199238199279_ - _hd199235199271_ - _hd199232199263_) + (cons '##structure-set! __tmp214416))) + _hd200402200448_ + _hd200399200440_ + _hd200396200432_ + _hd200393200424_) (let () (declare (not safe)) - (_g199222199247_ _g199223199250_))))) + (_g200383200408_ _g200384200411_))))) (let () (declare (not safe)) - (_g199222199247_ _g199223199250_))))) + (_g200383200408_ _g200384200411_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199222199247_ - _g199223199250_))))) + (_g200383200408_ + _g200384200411_))))) (let () (declare (not safe)) - (_g199222199247_ _g199223199250_))))) + (_g200383200408_ _g200384200411_))))) (let () (declare (not safe)) - (_g199222199247_ _g199223199250_))))) + (_g200383200408_ _g200384200411_))))) (let () (declare (not safe)) - (_g199222199247_ _g199223199250_)))))) + (_g200383200408_ _g200384200411_)))))) (declare (not safe)) - (_g199221199316_ _stx199220_)))) + (_g200382200477_ _stx200381_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_stx199137_) - (let* ((_g199139199160_ - (lambda (_g199140199157_) + (lambda (_stx200298_) + (let* ((_g200300200321_ + (lambda (_g200301200318_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199140199157_)))) - (_g199138199217_ - (lambda (_g199140199163_) + _g200301200318_)))) + (_g200299200378_ + (lambda (_g200301200324_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199140199163_)) - (let ((_e199146199165_ + (gx#stx-pair? _g200301200324_)) + (let ((_e200307200326_ (let () (declare (not safe)) - (gx#stx-e _g199140199163_)))) - (let ((_hd199145199168_ + (gx#stx-e _g200301200324_)))) + (let ((_hd200306200329_ (let () (declare (not safe)) - (##car _e199146199165_))) - (_tl199144199170_ + (##car _e200307200326_))) + (_tl200305200331_ (let () (declare (not safe)) - (##cdr _e199146199165_)))) + (##cdr _e200307200326_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199144199170_)) - (let ((_e199149199173_ + (gx#stx-pair? _tl200305200331_)) + (let ((_e200310200334_ (let () (declare (not safe)) - (gx#stx-e _tl199144199170_)))) - (let ((_hd199148199176_ + (gx#stx-e _tl200305200331_)))) + (let ((_hd200309200337_ (let () (declare (not safe)) - (##car _e199149199173_))) - (_tl199147199178_ + (##car _e200310200334_))) + (_tl200308200339_ (let () (declare (not safe)) - (##cdr _e199149199173_)))) + (##cdr _e200310200334_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199147199178_)) - (let ((_e199152199181_ + (gx#stx-pair? _tl200308200339_)) + (let ((_e200313200342_ (let () (declare (not safe)) - (gx#stx-e _tl199147199178_)))) - (let ((_hd199151199184_ + (gx#stx-e _tl200308200339_)))) + (let ((_hd200312200345_ (let () (declare (not safe)) - (##car _e199152199181_))) - (_tl199150199186_ + (##car _e200313200342_))) + (_tl200311200347_ (let () (declare (not safe)) - (##cdr _e199152199181_)))) + (##cdr _e200313200342_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199150199186_)) - (let ((_e199155199189_ + _tl200311200347_)) + (let ((_e200316200350_ (let () (declare (not safe)) (gx#stx-e - _tl199150199186_)))) - (let ((_hd199154199192_ + _tl200311200347_)))) + (let ((_hd200315200353_ (let () (declare (not safe)) - (##car _e199155199189_))) - (_tl199153199194_ + (##car _e200316200350_))) + (_tl200314200355_ (let () (declare (not safe)) - (##cdr _e199155199189_)))) + (##cdr _e200316200350_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl199153199194_)) - ((lambda (_L199197_ + _tl200314200355_)) + ((lambda (_L200358_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L199198_ - _L199199_) - (let ((__tmp213264 - (let ((__tmp213270 + _L200359_ + _L200360_) + (let ((__tmp214425 + (let ((__tmp214431 (let () (declare (not safe)) - (gxc#compile-e__0 _L199197_))) - (__tmp213265 - (let ((__tmp213269 + (gxc#compile-e__0 _L200358_))) + (__tmp214426 + (let ((__tmp214430 (let () (declare (not safe)) - (gxc#compile-e__0 _L199198_))) - (__tmp213266 - (let ((__tmp213268 + (gxc#compile-e__0 _L200359_))) + (__tmp214427 + (let ((__tmp214429 (let () (declare (not safe)) - (gxc#compile-e__0 _L199199_))) - (__tmp213267 + (gxc#compile-e__0 _L200360_))) + (__tmp214428 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp213268 __tmp213267)))) + (cons __tmp214429 __tmp214428)))) (declare (not safe)) - (cons __tmp213269 __tmp213266)))) + (cons __tmp214430 __tmp214427)))) (declare (not safe)) - (cons __tmp213270 __tmp213265)))) + (cons __tmp214431 __tmp214426)))) (declare (not safe)) - (cons '##direct-structure-ref __tmp213264))) - _hd199154199192_ - _hd199151199184_ - _hd199148199176_) + (cons '##direct-structure-ref __tmp214425))) + _hd200315200353_ + _hd200312200345_ + _hd200309200337_) (let () (declare (not safe)) - (_g199139199160_ _g199140199163_))))) + (_g200300200321_ _g200301200324_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199139199160_ - _g199140199163_))))) + (_g200300200321_ + _g200301200324_))))) (let () (declare (not safe)) - (_g199139199160_ _g199140199163_))))) + (_g200300200321_ _g200301200324_))))) (let () (declare (not safe)) - (_g199139199160_ _g199140199163_))))) + (_g200300200321_ _g200301200324_))))) (let () (declare (not safe)) - (_g199139199160_ _g199140199163_)))))) + (_g200300200321_ _g200301200324_)))))) (declare (not safe)) - (_g199138199217_ _stx199137_)))) + (_g200299200378_ _stx200298_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_stx199038_) - (let* ((_g199040199065_ - (lambda (_g199041199062_) + (lambda (_stx200199_) + (let* ((_g200201200226_ + (lambda (_g200202200223_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g199041199062_)))) - (_g199039199134_ - (lambda (_g199041199068_) + _g200202200223_)))) + (_g200200200295_ + (lambda (_g200202200229_) (if (let () (declare (not safe)) - (gx#stx-pair? _g199041199068_)) - (let ((_e199048199070_ + (gx#stx-pair? _g200202200229_)) + (let ((_e200209200231_ (let () (declare (not safe)) - (gx#stx-e _g199041199068_)))) - (let ((_hd199047199073_ + (gx#stx-e _g200202200229_)))) + (let ((_hd200208200234_ (let () (declare (not safe)) - (##car _e199048199070_))) - (_tl199046199075_ + (##car _e200209200231_))) + (_tl200207200236_ (let () (declare (not safe)) - (##cdr _e199048199070_)))) + (##cdr _e200209200231_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199046199075_)) - (let ((_e199051199078_ + (gx#stx-pair? _tl200207200236_)) + (let ((_e200212200239_ (let () (declare (not safe)) - (gx#stx-e _tl199046199075_)))) - (let ((_hd199050199081_ + (gx#stx-e _tl200207200236_)))) + (let ((_hd200211200242_ (let () (declare (not safe)) - (##car _e199051199078_))) - (_tl199049199083_ + (##car _e200212200239_))) + (_tl200210200244_ (let () (declare (not safe)) - (##cdr _e199051199078_)))) + (##cdr _e200212200239_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl199049199083_)) - (let ((_e199054199086_ + (gx#stx-pair? _tl200210200244_)) + (let ((_e200215200247_ (let () (declare (not safe)) - (gx#stx-e _tl199049199083_)))) - (let ((_hd199053199089_ + (gx#stx-e _tl200210200244_)))) + (let ((_hd200214200250_ (let () (declare (not safe)) - (##car _e199054199086_))) - (_tl199052199091_ + (##car _e200215200247_))) + (_tl200213200252_ (let () (declare (not safe)) - (##cdr _e199054199086_)))) + (##cdr _e200215200247_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199052199091_)) - (let ((_e199057199094_ + _tl200213200252_)) + (let ((_e200218200255_ (let () (declare (not safe)) (gx#stx-e - _tl199052199091_)))) - (let ((_hd199056199097_ + _tl200213200252_)))) + (let ((_hd200217200258_ (let () (declare (not safe)) - (##car _e199057199094_))) - (_tl199055199099_ + (##car _e200218200255_))) + (_tl200216200260_ (let () (declare (not safe)) - (##cdr _e199057199094_)))) + (##cdr _e200218200255_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl199055199099_)) - (let ((_e199060199102_ + _tl200216200260_)) + (let ((_e200221200263_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl199055199099_)))) - (let ((_hd199059199105_ - (let () (declare (not safe)) (##car _e199060199102_))) - (_tl199058199107_ + (gx#stx-e _tl200216200260_)))) + (let ((_hd200220200266_ + (let () (declare (not safe)) (##car _e200221200263_))) + (_tl200219200268_ (let () (declare (not safe)) - (##cdr _e199060199102_)))) + (##cdr _e200221200263_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl199058199107_)) - ((lambda (_L199110_ _L199111_ _L199112_ _L199113_) - (let ((__tmp213271 - (let ((__tmp213279 + (gx#stx-null? _tl200219200268_)) + ((lambda (_L200271_ _L200272_ _L200273_ _L200274_) + (let ((__tmp214432 + (let ((__tmp214440 (let () (declare (not safe)) - (gxc#compile-e__0 _L199111_))) - (__tmp213272 - (let ((__tmp213278 + (gxc#compile-e__0 _L200272_))) + (__tmp214433 + (let ((__tmp214439 (let () (declare (not safe)) (gxc#compile-e__0 - _L199110_))) - (__tmp213273 - (let ((__tmp213277 + _L200271_))) + (__tmp214434 + (let ((__tmp214438 (let () (declare (not safe)) (gxc#compile-e__0 - _L199112_))) - (__tmp213274 - (let ((__tmp213276 + _L200273_))) + (__tmp214435 + (let ((__tmp214437 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _L199113_))) - (__tmp213275 + (gxc#compile-e__0 _L200274_))) + (__tmp214436 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp213276 __tmp213275)))) + (cons __tmp214437 __tmp214436)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213277 - __tmp213274)))) + (cons __tmp214438 + __tmp214435)))) (declare (not safe)) - (cons __tmp213278 __tmp213273)))) + (cons __tmp214439 __tmp214434)))) (declare (not safe)) - (cons __tmp213279 __tmp213272)))) + (cons __tmp214440 __tmp214433)))) (declare (not safe)) - (cons '##direct-structure-set! __tmp213271))) - _hd199059199105_ - _hd199056199097_ - _hd199053199089_ - _hd199050199081_) + (cons '##direct-structure-set! __tmp214432))) + _hd200220200266_ + _hd200217200258_ + _hd200214200250_ + _hd200211200242_) (let () (declare (not safe)) - (_g199040199065_ _g199041199068_))))) + (_g200201200226_ _g200202200229_))))) (let () (declare (not safe)) - (_g199040199065_ _g199041199068_))))) + (_g200201200226_ _g200202200229_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g199040199065_ - _g199041199068_))))) + (_g200201200226_ + _g200202200229_))))) (let () (declare (not safe)) - (_g199040199065_ _g199041199068_))))) + (_g200201200226_ _g200202200229_))))) (let () (declare (not safe)) - (_g199040199065_ _g199041199068_))))) + (_g200201200226_ _g200202200229_))))) (let () (declare (not safe)) - (_g199040199065_ _g199041199068_)))))) + (_g200201200226_ _g200202200229_)))))) (declare (not safe)) - (_g199039199134_ _stx199038_)))) + (_g200200200295_ _stx200199_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_stx198834_) - (let* ((_g198836198857_ - (lambda (_g198837198854_) + (lambda (_stx199995_) + (let* ((_g199997200018_ + (lambda (_g199998200015_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198837198854_)))) - (_g198835199035_ - (lambda (_g198837198860_) + _g199998200015_)))) + (_g199996200196_ + (lambda (_g199998200021_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198837198860_)) - (let ((_e198843198862_ + (gx#stx-pair? _g199998200021_)) + (let ((_e200004200023_ (let () (declare (not safe)) - (gx#stx-e _g198837198860_)))) - (let ((_hd198842198865_ + (gx#stx-e _g199998200021_)))) + (let ((_hd200003200026_ (let () (declare (not safe)) - (##car _e198843198862_))) - (_tl198841198867_ + (##car _e200004200023_))) + (_tl200002200028_ (let () (declare (not safe)) - (##cdr _e198843198862_)))) + (##cdr _e200004200023_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198841198867_)) - (let ((_e198846198870_ + (gx#stx-pair? _tl200002200028_)) + (let ((_e200007200031_ (let () (declare (not safe)) - (gx#stx-e _tl198841198867_)))) - (let ((_hd198845198873_ + (gx#stx-e _tl200002200028_)))) + (let ((_hd200006200034_ (let () (declare (not safe)) - (##car _e198846198870_))) - (_tl198844198875_ + (##car _e200007200031_))) + (_tl200005200036_ (let () (declare (not safe)) - (##cdr _e198846198870_)))) + (##cdr _e200007200031_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198844198875_)) - (let ((_e198849198878_ + (gx#stx-pair? _tl200005200036_)) + (let ((_e200010200039_ (let () (declare (not safe)) - (gx#stx-e _tl198844198875_)))) - (let ((_hd198848198881_ + (gx#stx-e _tl200005200036_)))) + (let ((_hd200009200042_ (let () (declare (not safe)) - (##car _e198849198878_))) - (_tl198847198883_ + (##car _e200010200039_))) + (_tl200008200044_ (let () (declare (not safe)) - (##cdr _e198849198878_)))) + (##cdr _e200010200039_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198847198883_)) - (let ((_e198852198886_ + _tl200008200044_)) + (let ((_e200013200047_ (let () (declare (not safe)) (gx#stx-e - _tl198847198883_)))) - (let ((_hd198851198889_ + _tl200008200044_)))) + (let ((_hd200012200050_ (let () (declare (not safe)) - (##car _e198852198886_))) - (_tl198850198891_ + (##car _e200013200047_))) + (_tl200011200052_ (let () (declare (not safe)) - (##cdr _e198852198886_)))) + (##cdr _e200013200047_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198850198891_)) - ((lambda (_L198894_ + _tl200011200052_)) + ((lambda (_L200055_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L198895_ - _L198896_) + _L200056_ + _L200057_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp213298 - (let ((__tmp213304 + (let ((__tmp214459 + (let ((__tmp214465 (let () (declare (not safe)) - (gxc#compile-e__0 _L198894_))) - (__tmp213299 - (let ((__tmp213303 + (gxc#compile-e__0 _L200055_))) + (__tmp214460 + (let ((__tmp214464 (let () (declare (not safe)) - (gxc#compile-e__0 _L198895_))) - (__tmp213300 - (let ((__tmp213302 + (gxc#compile-e__0 _L200056_))) + (__tmp214461 + (let ((__tmp214463 (let () (declare (not safe)) (gxc#compile-e__0 - _L198896_))) - (__tmp213301 + _L200057_))) + (__tmp214462 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp213302 __tmp213301)))) + (cons __tmp214463 __tmp214462)))) (declare (not safe)) - (cons __tmp213303 __tmp213300)))) + (cons __tmp214464 __tmp214461)))) (declare (not safe)) - (cons __tmp213304 __tmp213299)))) + (cons __tmp214465 __tmp214460)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp213298)) - (let _lp198914_ ((_rest198917_ - (let ((__tmp213296 - (let ((__tmp213297 + (cons '##unchecked-structure-ref __tmp214459)) + (let _lp200075_ ((_rest200078_ + (let ((__tmp214457 + (let ((__tmp214458 (let () (declare (not safe)) - (cons _L198894_ + (cons _L200055_ '())))) (declare (not safe)) - (cons _L198895_ - __tmp213297)))) + (cons _L200056_ + __tmp214458)))) (declare (not safe)) - (cons _L198896_ __tmp213296))) - (_bind198919_ '()) - (_args198920_ '())) - (let* ((_rest198921198929_ _rest198917_) - (_else198923198937_ + (cons _L200057_ __tmp214457))) + (_bind200080_ '()) + (_args200081_ '())) + (let* ((_rest200082200090_ _rest200078_) + (_else200084200098_ (lambda () - (let ((__tmp213280 - (let ((__tmp213281 - (let ((__tmp213282 - (let ((__tmp213283 - (let ((__tmp213284 + (let ((__tmp214441 + (let ((__tmp214442 + (let ((__tmp214443 + (let ((__tmp214444 + (let ((__tmp214445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213285 + (let ((__tmp214446 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (foldr1 cons __tmp213285 _args198920_)))) + (foldr1 cons __tmp214446 _args200081_)))) (declare (not safe)) - (cons '##unchecked-structure-ref __tmp213284)))) + (cons '##unchecked-structure-ref __tmp214445)))) (declare (not safe)) - (cons __tmp213283 '())))) + (cons __tmp214444 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(declare (not safe)) - __tmp213282)))) + __tmp214443)))) (declare (not safe)) - (cons _bind198919_ __tmp213281)))) + (cons _bind200080_ __tmp214442)))) (declare (not safe)) - (cons 'let __tmp213280)))) - (_K198925199023_ - (lambda (_rest198940_ _e198941_) - (let* ((___stx212499212500_ _e198941_) - (_g198946198964_ + (cons 'let __tmp214441)))) + (_K200086200184_ + (lambda (_rest200101_ _e200102_) + (let* ((___stx213660213661_ _e200102_) + (_g200107200125_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212499212500_))))) - (let ((___kont212501212502_ + ___stx213660213661_))))) + (let ((___kont213662213663_ (lambda () - (let ((__tmp213286 - (let ((__tmp213287 + (let ((__tmp214447 + (let ((__tmp214448 (let () (declare (not safe)) (gxc#compile-e__0 - _e198941_)))) + _e200102_)))) (declare (not safe)) - (cons __tmp213287 - _args198920_)))) + (cons __tmp214448 + _args200081_)))) (declare (not safe)) - (_lp198914_ - _rest198940_ - _bind198919_ - __tmp213286)))) - (___kont212503212504_ + (_lp200075_ + _rest200101_ + _bind200080_ + __tmp214447)))) + (___kont213664213665_ (lambda () - (let ((__tmp213288 - (let ((__tmp213289 + (let ((__tmp214449 + (let ((__tmp214450 (let () (declare (not safe)) (gxc#compile-e__0 - _e198941_)))) + _e200102_)))) (declare (not safe)) - (cons __tmp213289 - _args198920_)))) + (cons __tmp214450 + _args200081_)))) (declare (not safe)) - (_lp198914_ - _rest198940_ - _bind198919_ - __tmp213288)))) - (___kont212505212506_ + (_lp200075_ + _rest200101_ + _bind200080_ + __tmp214449)))) + (___kont213666213667_ (lambda () - (let ((_tmp198971_ - (let ((__tmp213290 + (let ((_tmp200132_ + (let ((__tmp214451 (gensym '__tmp))) (declare (not safe)) (make-symbol__0 - __tmp213290)))) - (let ((__tmp213292 - (let ((__tmp213293 - (let ((__tmp213294 + __tmp214451)))) + (let ((__tmp214453 + (let ((__tmp214454 + (let ((__tmp214455 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213295 + (let ((__tmp214456 (let () (declare (not safe)) - (gxc#compile-e__0 _e198941_)))) + (gxc#compile-e__0 _e200102_)))) (declare (not safe)) - (cons __tmp213295 '())))) + (cons __tmp214456 '())))) (declare (not safe)) - (cons _tmp198971_ __tmp213294)))) + (cons _tmp200132_ __tmp214455)))) (declare (not safe)) - (cons __tmp213293 _bind198919_))) - (__tmp213291 - (let () (declare (not safe)) (cons _tmp198971_ _args198920_)))) + (cons __tmp214454 _bind200080_))) + (__tmp214452 + (let () (declare (not safe)) (cons _tmp200132_ _args200081_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp198914_ - _rest198940_ - __tmp213292 - __tmp213291)))))) + (_lp200075_ + _rest200101_ + __tmp214453 + __tmp214452)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx212499212500_)) - (let ((_e198950199002_ + ___stx213660213661_)) + (let ((_e200111200163_ (let () (declare (not safe)) (gx#stx-e - ___stx212499212500_)))) - (let ((_tl198948199007_ + ___stx213660213661_)))) + (let ((_tl200109200168_ (let () (declare (not safe)) - (##cdr _e198950199002_))) - (_hd198949199005_ + (##cdr _e200111200163_))) + (_hd200110200166_ (let () (declare (not safe)) - (##car _e198950199002_)))) + (##car _e200111200163_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd198949199005_)) + _hd200110200166_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd198949199005_)) + _hd200110200166_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198948199007_)) - (let ((_e198953199010_ + _tl200109200168_)) + (let ((_e200114200171_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl198948199007_)))) - (let ((_tl198951199015_ + (gx#stx-e _tl200109200168_)))) + (let ((_tl200112200176_ (let () (declare (not safe)) - (##cdr _e198953199010_))) - (_hd198952199013_ + (##cdr _e200114200171_))) + (_hd200113200174_ (let () (declare (not safe)) - (##car _e198953199010_)))) + (##car _e200114200171_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198951199015_)) - (___kont212501212502_) - (___kont212505212506_)))) - (___kont212505212506_)) + (gx#stx-null? _tl200112200176_)) + (___kont213662213663_) + (___kont213666213667_)))) + (___kont213666213667_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd198949199005_)) + (gx#stx-eq? '%#quote _hd200110200166_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198948199007_)) - (let ((_e198959198987_ + (gx#stx-pair? _tl200109200168_)) + (let ((_e200120200148_ (let () (declare (not safe)) - (gx#stx-e _tl198948199007_)))) - (let ((_tl198957198992_ + (gx#stx-e _tl200109200168_)))) + (let ((_tl200118200153_ (let () (declare (not safe)) - (##cdr _e198959198987_))) - (_hd198958198990_ + (##cdr _e200120200148_))) + (_hd200119200151_ (let () (declare (not safe)) - (##car _e198959198987_)))) + (##car _e200120200148_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198957198992_)) - (___kont212503212504_) - (___kont212505212506_)))) - (___kont212505212506_)) - (___kont212505212506_))) + (gx#stx-null? _tl200118200153_)) + (___kont213664213665_) + (___kont213666213667_)))) + (___kont213666213667_)) + (___kont213666213667_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212505212506_)))) - (___kont212505212506_))))))) + (___kont213666213667_)))) + (___kont213666213667_))))))) (if (let () (declare (not safe)) - (##pair? _rest198921198929_)) - (let ((_hd198926199026_ + (##pair? _rest200082200090_)) + (let ((_hd200087200187_ (let () (declare (not safe)) - (##car _rest198921198929_))) - (_tl198927199028_ + (##car _rest200082200090_))) + (_tl200088200189_ (let () (declare (not safe)) - (##cdr _rest198921198929_)))) - (let* ((_e199031_ _hd198926199026_) - (_rest199033_ _tl198927199028_)) + (##cdr _rest200082200090_)))) + (let* ((_e200192_ _hd200087200187_) + (_rest200194_ _tl200088200189_)) (declare (not safe)) - (_K198925199023_ _rest199033_ _e199031_))) + (_K200086200184_ _rest200194_ _e200192_))) (let () (declare (not safe)) - (_else198923198937_))))))) - _hd198851198889_ - _hd198848198881_ - _hd198845198873_) + (_else200084200098_))))))) + _hd200012200050_ + _hd200009200042_ + _hd200006200034_) (let () (declare (not safe)) - (_g198836198857_ _g198837198860_))))) + (_g199997200018_ _g199998200021_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g198836198857_ - _g198837198860_))))) + (_g199997200018_ + _g199998200021_))))) (let () (declare (not safe)) - (_g198836198857_ _g198837198860_))))) + (_g199997200018_ _g199998200021_))))) (let () (declare (not safe)) - (_g198836198857_ _g198837198860_))))) + (_g199997200018_ _g199998200021_))))) (let () (declare (not safe)) - (_g198836198857_ _g198837198860_)))))) + (_g199997200018_ _g199998200021_)))))) (declare (not safe)) - (_g198835199035_ _stx198834_)))) + (_g199996200196_ _stx199995_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_stx198614_) - (let* ((_g198616198641_ - (lambda (_g198617198638_) + (lambda (_stx199775_) + (let* ((_g199777199802_ + (lambda (_g199778199799_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198617198638_)))) - (_g198615198831_ - (lambda (_g198617198644_) + _g199778199799_)))) + (_g199776199992_ + (lambda (_g199778199805_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198617198644_)) - (let ((_e198624198646_ + (gx#stx-pair? _g199778199805_)) + (let ((_e199785199807_ (let () (declare (not safe)) - (gx#stx-e _g198617198644_)))) - (let ((_hd198623198649_ + (gx#stx-e _g199778199805_)))) + (let ((_hd199784199810_ (let () (declare (not safe)) - (##car _e198624198646_))) - (_tl198622198651_ + (##car _e199785199807_))) + (_tl199783199812_ (let () (declare (not safe)) - (##cdr _e198624198646_)))) + (##cdr _e199785199807_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198622198651_)) - (let ((_e198627198654_ + (gx#stx-pair? _tl199783199812_)) + (let ((_e199788199815_ (let () (declare (not safe)) - (gx#stx-e _tl198622198651_)))) - (let ((_hd198626198657_ + (gx#stx-e _tl199783199812_)))) + (let ((_hd199787199818_ (let () (declare (not safe)) - (##car _e198627198654_))) - (_tl198625198659_ + (##car _e199788199815_))) + (_tl199786199820_ (let () (declare (not safe)) - (##cdr _e198627198654_)))) + (##cdr _e199788199815_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198625198659_)) - (let ((_e198630198662_ + (gx#stx-pair? _tl199786199820_)) + (let ((_e199791199823_ (let () (declare (not safe)) - (gx#stx-e _tl198625198659_)))) - (let ((_hd198629198665_ + (gx#stx-e _tl199786199820_)))) + (let ((_hd199790199826_ (let () (declare (not safe)) - (##car _e198630198662_))) - (_tl198628198667_ + (##car _e199791199823_))) + (_tl199789199828_ (let () (declare (not safe)) - (##cdr _e198630198662_)))) + (##cdr _e199791199823_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198628198667_)) - (let ((_e198633198670_ + _tl199789199828_)) + (let ((_e199794199831_ (let () (declare (not safe)) (gx#stx-e - _tl198628198667_)))) - (let ((_hd198632198673_ + _tl199789199828_)))) + (let ((_hd199793199834_ (let () (declare (not safe)) - (##car _e198633198670_))) - (_tl198631198675_ + (##car _e199794199831_))) + (_tl199792199836_ (let () (declare (not safe)) - (##cdr _e198633198670_)))) + (##cdr _e199794199831_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl198631198675_)) - (let ((_e198636198678_ + _tl199792199836_)) + (let ((_e199797199839_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl198631198675_)))) - (let ((_hd198635198681_ - (let () (declare (not safe)) (##car _e198636198678_))) - (_tl198634198683_ + (gx#stx-e _tl199792199836_)))) + (let ((_hd199796199842_ + (let () (declare (not safe)) (##car _e199797199839_))) + (_tl199795199844_ (let () (declare (not safe)) - (##cdr _e198636198678_)))) + (##cdr _e199797199839_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198634198683_)) - ((lambda (_L198686_ _L198687_ _L198688_ _L198689_) + (gx#stx-null? _tl199795199844_)) + ((lambda (_L199847_ _L199848_ _L199849_ _L199850_) (if (let () (declare (not safe)) (gxc#current-compile-decls-unsafe?)) - (let ((__tmp213324 - (let ((__tmp213332 + (let ((__tmp214485 + (let ((__tmp214493 (let () (declare (not safe)) - (gxc#compile-e__0 _L198687_))) - (__tmp213325 - (let ((__tmp213331 + (gxc#compile-e__0 _L199848_))) + (__tmp214486 + (let ((__tmp214492 (let () (declare (not safe)) (gxc#compile-e__0 - _L198686_))) - (__tmp213326 - (let ((__tmp213330 + _L199847_))) + (__tmp214487 + (let ((__tmp214491 (let () (declare (not safe)) (gxc#compile-e__0 - _L198688_))) - (__tmp213327 - (let ((__tmp213329 + _L199849_))) + (__tmp214488 + (let ((__tmp214490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L198689_))) - (__tmp213328 + (gxc#compile-e__0 _L199850_))) + (__tmp214489 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) - (cons __tmp213329 __tmp213328)))) + (cons __tmp214490 __tmp214489)))) (declare (not safe)) - (cons __tmp213330 __tmp213327)))) + (cons __tmp214491 __tmp214488)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213331 - __tmp213326)))) + (cons __tmp214492 + __tmp214487)))) (declare (not safe)) - (cons __tmp213332 __tmp213325)))) + (cons __tmp214493 __tmp214486)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp213324)) - (let _lp198710_ ((_rest198713_ - (let ((__tmp213321 - (let ((__tmp213322 - (let ((__tmp213323 + __tmp214485)) + (let _lp199871_ ((_rest199874_ + (let ((__tmp214482 + (let ((__tmp214483 + (let ((__tmp214484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L198687_ '())))) + (cons _L199848_ '())))) (declare (not safe)) - (cons _L198686_ __tmp213323)))) + (cons _L199847_ __tmp214484)))) (declare (not safe)) - (cons _L198688_ __tmp213322)))) + (cons _L199849_ __tmp214483)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L198689_ - __tmp213321))) - (_bind198715_ '()) - (_args198716_ '())) - (let* ((_rest198717198725_ _rest198713_) - (_else198719198733_ + (cons _L199850_ + __tmp214482))) + (_bind199876_ '()) + (_args199877_ '())) + (let* ((_rest199878199886_ _rest199874_) + (_else199880199894_ (lambda () - (let ((__tmp213305 - (let ((__tmp213306 - (let ((__tmp213307 - (let ((__tmp213308 + (let ((__tmp214466 + (let ((__tmp214467 + (let ((__tmp214468 + (let ((__tmp214469 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213309 - (let ((__tmp213310 + (let ((__tmp214470 + (let ((__tmp214471 (let () (declare (not safe)) (cons ''#f '())))) (declare (not safe)) (foldr1 cons - __tmp213310 - _args198716_)))) + __tmp214471 + _args199877_)))) (declare (not safe)) (cons '##unchecked-structure-set! - __tmp213309)))) + __tmp214470)))) (declare (not safe)) - (cons __tmp213308 '())))) + (cons __tmp214469 '())))) (declare (not safe)) - (cons '(declare (not safe)) __tmp213307)))) + (cons '(declare (not safe)) __tmp214468)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _bind198715_ - __tmp213306)))) + (cons _bind199876_ + __tmp214467)))) (declare (not safe)) - (cons 'let __tmp213305)))) - (_K198721198819_ - (lambda (_rest198736_ _e198737_) - (let* ((___stx212545212546_ - _e198737_) - (_g198742198760_ + (cons 'let __tmp214466)))) + (_K199882199980_ + (lambda (_rest199897_ _e199898_) + (let* ((___stx213706213707_ + _e199898_) + (_g199903199921_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212545212546_))))) - (let ((___kont212547212548_ + ___stx213706213707_))))) + (let ((___kont213708213709_ (lambda () - (let ((__tmp213311 - (let ((__tmp213312 + (let ((__tmp214472 + (let ((__tmp214473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e198737_)))) + (gxc#compile-e__0 _e199898_)))) (declare (not safe)) - (cons __tmp213312 _args198716_)))) + (cons __tmp214473 _args199877_)))) (declare (not safe)) - (_lp198710_ _rest198736_ _bind198715_ __tmp213311)))) + (_lp199871_ _rest199897_ _bind199876_ __tmp214472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212549212550_ + (___kont213710213711_ (lambda () - (let ((__tmp213313 - (let ((__tmp213314 + (let ((__tmp214474 + (let ((__tmp214475 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _e198737_)))) + (gxc#compile-e__0 _e199898_)))) (declare (not safe)) - (cons __tmp213314 _args198716_)))) + (cons __tmp214475 _args199877_)))) (declare (not safe)) - (_lp198710_ _rest198736_ _bind198715_ __tmp213313)))) + (_lp199871_ _rest199897_ _bind199876_ __tmp214474)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212551212552_ + (___kont213712213713_ (lambda () - (let ((_tmp198767_ - (let ((__tmp213315 + (let ((_tmp199928_ + (let ((__tmp214476 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp213315)))) - (let ((__tmp213317 - (let ((__tmp213318 - (let ((__tmp213319 - (let ((__tmp213320 + (make-symbol__0 __tmp214476)))) + (let ((__tmp214478 + (let ((__tmp214479 + (let ((__tmp214480 + (let ((__tmp214481 (let () (declare (not safe)) - (gxc#compile-e__0 _e198737_)))) + (gxc#compile-e__0 _e199898_)))) (declare (not safe)) - (cons __tmp213320 '())))) + (cons __tmp214481 '())))) (declare (not safe)) - (cons _tmp198767_ __tmp213319)))) + (cons _tmp199928_ __tmp214480)))) (declare (not safe)) - (cons __tmp213318 _bind198715_))) - (__tmp213316 + (cons __tmp214479 _bind199876_))) + (__tmp214477 (let () (declare (not safe)) - (cons _tmp198767_ _args198716_)))) + (cons _tmp199928_ _args199877_)))) (declare (not safe)) - (_lp198710_ _rest198736_ __tmp213317 __tmp213316)))))) + (_lp199871_ _rest199897_ __tmp214478 __tmp214477)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx212545212546_)) - (let ((_e198746198798_ + ___stx213706213707_)) + (let ((_e199907199959_ (let () (declare (not safe)) (gx#stx-e - ___stx212545212546_)))) - (let ((_tl198744198803_ + ___stx213706213707_)))) + (let ((_tl199905199964_ (let () (declare (not safe)) - (##cdr _e198746198798_))) - (_hd198745198801_ + (##cdr _e199907199959_))) + (_hd199906199962_ (let () (declare (not safe)) - (##car _e198746198798_)))) + (##car _e199907199959_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd198745198801_)) + _hd199906199962_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-eq? '%#ref _hd198745198801_)) + (gx#stx-eq? '%#ref _hd199906199962_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198744198803_)) - (let ((_e198749198806_ + (gx#stx-pair? _tl199905199964_)) + (let ((_e199910199967_ (let () (declare (not safe)) - (gx#stx-e _tl198744198803_)))) - (let ((_tl198747198811_ + (gx#stx-e _tl199905199964_)))) + (let ((_tl199908199972_ (let () (declare (not safe)) - (##cdr _e198749198806_))) - (_hd198748198809_ + (##cdr _e199910199967_))) + (_hd199909199970_ (let () (declare (not safe)) - (##car _e198749198806_)))) + (##car _e199910199967_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198747198811_)) - (___kont212547212548_) - (___kont212551212552_)))) - (___kont212551212552_)) + (gx#stx-null? _tl199908199972_)) + (___kont213708213709_) + (___kont213712213713_)))) + (___kont213712213713_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd198745198801_)) + (gx#stx-eq? '%#quote _hd199906199962_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198744198803_)) - (let ((_e198755198783_ + (gx#stx-pair? _tl199905199964_)) + (let ((_e199916199944_ (let () (declare (not safe)) - (gx#stx-e _tl198744198803_)))) - (let ((_tl198753198788_ + (gx#stx-e _tl199905199964_)))) + (let ((_tl199914199949_ (let () (declare (not safe)) - (##cdr _e198755198783_))) - (_hd198754198786_ + (##cdr _e199916199944_))) + (_hd199915199947_ (let () (declare (not safe)) - (##car _e198755198783_)))) + (##car _e199916199944_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198753198788_)) - (___kont212549212550_) - (___kont212551212552_)))) - (___kont212551212552_)) - (___kont212551212552_))) - (___kont212551212552_)))) + (gx#stx-null? _tl199914199949_)) + (___kont213710213711_) + (___kont213712213713_)))) + (___kont213712213713_)) + (___kont213712213713_))) + (___kont213712213713_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212551212552_))))))) + (___kont213712213713_))))))) (if (let () (declare (not safe)) - (##pair? _rest198717198725_)) - (let ((_hd198722198822_ + (##pair? _rest199878199886_)) + (let ((_hd199883199983_ (let () (declare (not safe)) - (##car _rest198717198725_))) - (_tl198723198824_ + (##car _rest199878199886_))) + (_tl199884199985_ (let () (declare (not safe)) - (##cdr _rest198717198725_)))) - (let* ((_e198827_ _hd198722198822_) - (_rest198829_ - _tl198723198824_)) + (##cdr _rest199878199886_)))) + (let* ((_e199988_ _hd199883199983_) + (_rest199990_ + _tl199884199985_)) (declare (not safe)) - (_K198721198819_ - _rest198829_ - _e198827_))) + (_K199882199980_ + _rest199990_ + _e199988_))) (let () (declare (not safe)) - (_else198719198733_))))))) - _hd198635198681_ - _hd198632198673_ - _hd198629198665_ - _hd198626198657_) + (_else199880199894_))))))) + _hd199796199842_ + _hd199793199834_ + _hd199790199826_ + _hd199787199818_) (let () (declare (not safe)) - (_g198616198641_ _g198617198644_))))) + (_g199777199802_ _g199778199805_))))) (let () (declare (not safe)) - (_g198616198641_ _g198617198644_))))) + (_g199777199802_ _g199778199805_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g198616198641_ - _g198617198644_))))) + (_g199777199802_ + _g199778199805_))))) (let () (declare (not safe)) - (_g198616198641_ _g198617198644_))))) + (_g199777199802_ _g199778199805_))))) (let () (declare (not safe)) - (_g198616198641_ _g198617198644_))))) + (_g199777199802_ _g199778199805_))))) (let () (declare (not safe)) - (_g198616198641_ _g198617198644_)))))) + (_g199777199802_ _g199778199805_)))))) (declare (not safe)) - (_g198615198831_ _stx198614_)))) + (_g199776199992_ _stx199775_)))) (define gxc#generate-runtime-loader-import% - (lambda (_stx198468_) - (letrec ((_import-set-template198470_ - (lambda (_in198566_ _phi198567_) - (let ((_iphi198569_ - (fx+ _phi198567_ + (lambda (_stx199629_) + (letrec ((_import-set-template199631_ + (lambda (_in199727_ _phi199728_) + (let ((_iphi199730_ + (fx+ _phi199728_ (##direct-structure-ref - _in198566_ + _in199727_ '2 gx#import-set::t '#f))) - (_imports198570_ + (_imports199731_ (##structure-ref (##direct-structure-ref - _in198566_ + _in199727_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp198572_ ((_rest198574_ _imports198570_) - (_r198575_ '())) - (let* ((_rest198576198584_ _rest198574_) - (_else198578198592_ (lambda () _r198575_)) - (_K198580198602_ - (lambda (_rest198595_ _in198596_) + (let _lp199733_ ((_rest199735_ _imports199731_) + (_r199736_ '())) + (let* ((_rest199737199745_ _rest199735_) + (_else199739199753_ (lambda () _r199736_)) + (_K199741199763_ + (lambda (_rest199756_ _in199757_) (if (let () (declare (not safe)) (##structure-instance-of? - _in198596_ + _in199757_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi198569_)) - (let ((__tmp213339 + (fxzero? _iphi199730_)) + (let ((__tmp214500 (let () (declare (not safe)) - (cons _in198596_ - _r198575_)))) + (cons _in199757_ + _r199736_)))) (declare (not safe)) - (_lp198572_ - _rest198595_ - __tmp213339)) + (_lp199733_ + _rest199756_ + __tmp214500)) (let () (declare (not safe)) - (_lp198572_ - _rest198595_ - _r198575_))) + (_lp199733_ + _rest199756_ + _r199736_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in198596_ + _in199757_ 'gx#module-import::t)) - (let ((_iphi198598_ - (fx+ _phi198567_ + (let ((_iphi199759_ + (fx+ _phi199728_ (##direct-structure-ref - _in198596_ + _in199757_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi198598_)) - (let ((__tmp213337 - (let ((__tmp213338 + (fxzero? _iphi199759_)) + (let ((__tmp214498 + (let ((__tmp214499 (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in198596_ + _in199757_ '1 gx#module-import::t '#f) @@ -15247,195 +15247,195 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp213338 _r198575_)))) + (cons __tmp214499 _r199736_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp198572_ - _rest198595_ - __tmp213337)) + (_lp199733_ + _rest199756_ + __tmp214498)) (let () (declare (not safe)) - (_lp198572_ - _rest198595_ - _r198575_)))) + (_lp199733_ + _rest199756_ + _r199736_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in198596_ + _in199757_ 'gx#import-set::t)) - (let ((_xphi198600_ - (fx+ _iphi198569_ + (let ((_xphi199761_ + (fx+ _iphi199730_ (##direct-structure-ref - _in198596_ + _in199757_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi198600_)) - (let ((__tmp213335 - (let ((__tmp213336 + (fxzero? _xphi199761_)) + (let ((__tmp214496 + (let ((__tmp214497 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in198596_ + _in199757_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp213336 _r198575_)))) + (cons __tmp214497 _r199736_)))) (declare (not safe)) - (_lp198572_ _rest198595_ __tmp213335)) - (if (fxpositive? _xphi198600_) - (let ((__tmp213333 - (let ((__tmp213334 + (_lp199733_ _rest199756_ __tmp214496)) + (if (fxpositive? _xphi199761_) + (let ((__tmp214494 + (let ((__tmp214495 (let () (declare (not safe)) - (_import-set-template198470_ - _in198596_ - _iphi198569_)))) + (_import-set-template199631_ + _in199757_ + _iphi199730_)))) (declare (not safe)) - (foldl1 cons _r198575_ __tmp213334)))) + (foldl1 cons _r199736_ __tmp214495)))) (declare (not safe)) - (_lp198572_ _rest198595_ __tmp213333)) + (_lp199733_ _rest199756_ __tmp214494)) (let () (declare (not safe)) - (_lp198572_ _rest198595_ _r198575_))))) + (_lp199733_ _rest199756_ _r199736_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp198572_ - _rest198595_ - _r198575_)))))))) + (_lp199733_ + _rest199756_ + _r199736_)))))))) (if (let () (declare (not safe)) - (##pair? _rest198576198584_)) - (let ((_hd198581198605_ + (##pair? _rest199737199745_)) + (let ((_hd199742199766_ (let () (declare (not safe)) - (##car _rest198576198584_))) - (_tl198582198607_ + (##car _rest199737199745_))) + (_tl199743199768_ (let () (declare (not safe)) - (##cdr _rest198576198584_)))) - (let* ((_in198610_ _hd198581198605_) - (_rest198612_ _tl198582198607_)) + (##cdr _rest199737199745_)))) + (let* ((_in199771_ _hd199742199766_) + (_rest199773_ _tl199743199768_)) (declare (not safe)) - (_K198580198602_ _rest198612_ _in198610_))) + (_K199741199763_ _rest199773_ _in199771_))) (let () (declare (not safe)) - (_else198578198592_))))))))) - (let* ((_g198472198482_ - (lambda (_g198473198479_) + (_else199739199753_))))))))) + (let* ((_g199633199643_ + (lambda (_g199634199640_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198473198479_)))) - (_g198471198563_ - (lambda (_g198473198485_) + _g199634199640_)))) + (_g199632199724_ + (lambda (_g199634199646_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198473198485_)) - (let ((_e198477198487_ + (gx#stx-pair? _g199634199646_)) + (let ((_e199638199648_ (let () (declare (not safe)) - (gx#stx-e _g198473198485_)))) - (let ((_hd198476198490_ + (gx#stx-e _g199634199646_)))) + (let ((_hd199637199651_ (let () (declare (not safe)) - (##car _e198477198487_))) - (_tl198475198492_ + (##car _e199638199648_))) + (_tl199636199653_ (let () (declare (not safe)) - (##cdr _e198477198487_)))) - ((lambda (_L198495_) - (let ((_ht198506_ + (##cdr _e199638199648_)))) + ((lambda (_L199656_) + (let ((_ht199667_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let _lp198508_ ((_rest198510_ _L198495_) - (_loads198511_ '())) - (letrec ((_K198513_ - (lambda (_ctx198556_ - _rest198557_) - (let ((_id198559_ + (let _lp199669_ ((_rest199671_ _L199656_) + (_loads199672_ '())) + (letrec ((_K199674_ + (lambda (_ctx199717_ + _rest199718_) + (let ((_id199720_ (##structure-ref - _ctx198556_ + _ctx199717_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht198506_ - _id198559_ + _ht199667_ + _id199720_ '#f)) (let () (declare (not safe)) - (_lp198508_ - _rest198557_ - _loads198511_)) - (let ((_rt198561_ + (_lp199669_ + _rest199718_ + _loads199672_)) + (let ((_rt199722_ (string-append (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#module-id->path-string _id198559_)) + (gxc#module-id->path-string _id199720_)) '"__rt"))) (let () (declare (not safe)) - (table-set! _ht198506_ _id198559_ _rt198561_)) - (let ((__tmp213340 + (table-set! _ht199667_ _id199720_ _rt199722_)) + (let ((__tmp214501 (let () (declare (not safe)) - (cons _rt198561_ _loads198511_)))) + (cons _rt199722_ _loads199672_)))) (declare (not safe)) - (_lp198508_ _rest198557_ __tmp213340)))))))) + (_lp199669_ _rest199718_ __tmp214501)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest198514198522_ _rest198510_) - (_else198516198534_ + (let* ((_rest199675199683_ _rest199671_) + (_else199677199695_ (lambda () - (let ((__tmp213341 - (map (lambda (_g198529198531_) + (let ((__tmp214502 + (map (lambda (_g199690199692_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g198529198531_)) - (reverse _loads198511_)))) + _g199690199692_)) + (reverse _loads199672_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'begin __tmp213341)))) - (_K198518198544_ - (lambda (_rest198537_ - _in198538_) + (cons 'begin __tmp214502)))) + (_K199679199705_ + (lambda (_rest199698_ + _in199699_) (if (let () (declare (not safe)) (##structure-instance-of? - _in198538_ + _in199699_ 'gx#module-context::t)) (let () (declare (not safe)) - (_K198513_ - _in198538_ - _rest198537_)) + (_K199674_ + _in199699_ + _rest199698_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in198538_ + _in199699_ 'gx#module-import::t)) - (if (let ((__tmp213345 + (if (let ((__tmp214506 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in198538_ + _in199699_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp213345)) - (let ((__tmp213344 + (fxzero? __tmp214506)) + (let ((__tmp214505 (##direct-structure-ref (##direct-structure-ref - _in198538_ + _in199699_ '1 gx#module-import::t '#f) @@ -15443,555 +15443,555 @@ gx#module-export::t '#f))) (declare (not safe)) - (_K198513_ __tmp213344 _rest198537_)) + (_K199674_ __tmp214505 _rest199698_)) (let () (declare (not safe)) - (_lp198508_ _rest198537_ _loads198511_))) + (_lp199669_ _rest199698_ _loads199672_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in198538_ + _in199699_ 'gx#import-set::t)) - (let ((_phi198540_ + (let ((_phi199701_ (##direct-structure-ref - _in198538_ + _in199699_ '2 gx#import-set::t '#f))) - (if (let () (declare (not safe)) (fxzero? _phi198540_)) - (let ((__tmp213343 + (if (let () (declare (not safe)) (fxzero? _phi199701_)) + (let ((__tmp214504 (##direct-structure-ref - _in198538_ + _in199699_ '1 gx#import-set::t '#f))) (declare (not safe)) - (_K198513_ __tmp213343 _rest198537_)) - (if (fxpositive? _phi198540_) - (let* ((_deps198542_ + (_K199674_ __tmp214504 _rest199698_)) + (if (fxpositive? _phi199701_) + (let* ((_deps199703_ (let () (declare (not safe)) - (_import-set-template198470_ - _in198538_ + (_import-set-template199631_ + _in199699_ '0))) - (__tmp213342 + (__tmp214503 (let () (declare (not safe)) (foldl1 cons - _rest198537_ - _deps198542_)))) + _rest199698_ + _deps199703_)))) (declare (not safe)) - (_lp198508_ __tmp213342 _loads198511_)) + (_lp199669_ __tmp214503 _loads199672_)) (let () (declare (not safe)) - (_lp198508_ _rest198537_ _loads198511_))))) + (_lp199669_ _rest199698_ _loads199672_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _stx198468_ - _in198538_)))))))) + _stx199629_ + _in199699_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest198514198522_)) - (let ((_hd198519198547_ + (##pair? _rest199675199683_)) + (let ((_hd199680199708_ (let () (declare (not safe)) - (##car _rest198514198522_))) - (_tl198520198549_ + (##car _rest199675199683_))) + (_tl199681199710_ (let () (declare (not safe)) - (##cdr _rest198514198522_)))) - (let* ((_in198552_ - _hd198519198547_) - (_rest198554_ - _tl198520198549_)) + (##cdr _rest199675199683_)))) + (let* ((_in199713_ + _hd199680199708_) + (_rest199715_ + _tl199681199710_)) (declare (not safe)) - (_K198518198544_ - _rest198554_ - _in198552_))) + (_K199679199705_ + _rest199715_ + _in199713_))) (let () (declare (not safe)) - (_else198516198534_)))))))) - _tl198475198492_))) + (_else199677199695_)))))))) + _tl199636199653_))) (let () (declare (not safe)) - (_g198472198482_ _g198473198485_)))))) + (_g199633199643_ _g199634199646_)))))) (declare (not safe)) - (_g198471198563_ _stx198468_))))) + (_g199632199724_ _stx199629_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_stx198284_) - (letrec ((_add-lift!198286_ - (lambda (_expr198466_) + (lambda (_stx199445_) + (letrec ((_add-lift!199447_ + (lambda (_expr199627_) (set-box! (gxc#current-compile-lift) - (let ((__tmp213346 (unbox (gxc#current-compile-lift)))) + (let ((__tmp214507 (unbox (gxc#current-compile-lift)))) (declare (not safe)) - (cons _expr198466_ __tmp213346))))) - (_generate-syntax-quote198287_ - (lambda (_id198463_ _marks198464_) - (let ((__tmp213347 - (let ((__tmp213348 - (let ((__tmp213352 - (let ((__tmp213353 + (cons _expr199627_ __tmp214507))))) + (_generate-syntax-quote199448_ + (lambda (_id199624_ _marks199625_) + (let ((__tmp214508 + (let ((__tmp214509 + (let ((__tmp214513 + (let ((__tmp214514 (let () (declare (not safe)) - (cons _id198463_ '())))) + (cons _id199624_ '())))) (declare (not safe)) - (cons 'quote __tmp213353))) - (__tmp213349 - (let ((__tmp213350 - (let ((__tmp213351 + (cons 'quote __tmp214514))) + (__tmp214510 + (let ((__tmp214511 + (let ((__tmp214512 (let () (declare (not safe)) - (cons _marks198464_ + (cons _marks199625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(gx#current-expander-context) - __tmp213351)))) + __tmp214512)))) (declare (not safe)) - (cons '#f __tmp213350)))) + (cons '#f __tmp214511)))) (declare (not safe)) - (cons __tmp213352 __tmp213349)))) + (cons __tmp214513 __tmp214510)))) (declare (not safe)) - (cons 'gx#syntax-quote::t __tmp213348)))) + (cons 'gx#syntax-quote::t __tmp214509)))) (declare (not safe)) - (cons '##structure __tmp213347)))) - (_generate-simple198288_ - (lambda (_stxq198458_) - (let ((_gid198460_ + (cons '##structure __tmp214508)))) + (_generate-simple199449_ + (lambda (_stxq199619_) + (let ((_gid199621_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid198461_ + (_qid199622_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq198458_)))) - (let ((__tmp213354 - (let ((__tmp213355 - (let ((__tmp213356 - (let ((__tmp213357 + _stxq199619_)))) + (let ((__tmp214515 + (let ((__tmp214516 + (let ((__tmp214517 + (let ((__tmp214518 (let () (declare (not safe)) - (_generate-syntax-quote198287_ - _qid198461_ + (_generate-syntax-quote199448_ + _qid199622_ ''())))) (declare (not safe)) - (cons __tmp213357 '())))) + (cons __tmp214518 '())))) (declare (not safe)) - (cons _gid198460_ __tmp213356)))) + (cons _gid199621_ __tmp214517)))) (declare (not safe)) - (cons 'define __tmp213355)))) + (cons 'define __tmp214516)))) (declare (not safe)) - (_add-lift!198286_ __tmp213354)) - (let ((__tmp213358 (gxc#current-compile-identifiers))) + (_add-lift!199447_ __tmp214515)) + (let ((__tmp214519 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp213358 _stxq198458_ _gid198460_)) - _gid198460_))) - (_generate-serialized198289_ - (lambda (_stxq198448_ _marks198449_) - (let* ((_mark-refs198451_ - (map _generate-mark198290_ _marks198449_)) - (_gid198453_ + (table-set! __tmp214519 _stxq199619_ _gid199621_)) + _gid199621_))) + (_generate-serialized199450_ + (lambda (_stxq199609_ _marks199610_) + (let* ((_mark-refs199612_ + (map _generate-mark199451_ _marks199610_)) + (_gid199614_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_qid198455_ + (_qid199616_ (let () (declare (not safe)) (gxc#generate-runtime-identifier - _stxq198448_)))) - (let ((__tmp213359 - (let ((__tmp213360 - (let ((__tmp213361 - (let ((__tmp213362 - (let ((__tmp213363 + _stxq199609_)))) + (let ((__tmp214520 + (let ((__tmp214521 + (let ((__tmp214522 + (let ((__tmp214523 + (let ((__tmp214524 (let () (declare (not safe)) (cons 'list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mark-refs198451_)))) + _mark-refs199612_)))) (declare (not safe)) - (_generate-syntax-quote198287_ _qid198455_ __tmp213363)))) + (_generate-syntax-quote199448_ _qid199616_ __tmp214524)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213362 '())))) + (cons __tmp214523 '())))) (declare (not safe)) - (cons _gid198453_ __tmp213361)))) + (cons _gid199614_ __tmp214522)))) (declare (not safe)) - (cons 'define __tmp213360)))) + (cons 'define __tmp214521)))) (declare (not safe)) - (_add-lift!198286_ __tmp213359)) - (let ((__tmp213364 (gxc#current-compile-identifiers))) + (_add-lift!199447_ __tmp214520)) + (let ((__tmp214525 (gxc#current-compile-identifiers))) (declare (not safe)) - (table-set! __tmp213364 _stxq198448_ _gid198453_)) - _gid198453_))) - (_generate-mark198290_ - (lambda (_mark198434_) - (let ((_$e198436_ - (let ((__tmp213365 (gxc#current-compile-marks))) + (table-set! __tmp214525 _stxq199609_ _gid199614_)) + _gid199614_))) + (_generate-mark199451_ + (lambda (_mark199595_) + (let ((_$e199597_ + (let ((__tmp214526 (gxc#current-compile-marks))) (declare (not safe)) - (table-ref __tmp213365 _mark198434_ '#f)))) - (if _$e198436_ - (values _$e198436_) - (let* ((_gid198439_ + (table-ref __tmp214526 _mark199595_ '#f)))) + (if _$e199597_ + (values _$e199597_) + (let* ((_gid199600_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_repr198441_ + (_repr199602_ (let () (declare (not safe)) - (_serialize-mark198291_ _mark198434_))) - (_ctx198443_ - (let ((__tmp213366 + (_serialize-mark199452_ _mark199595_))) + (_ctx199604_ + (let ((__tmp214527 (##structure-ref - _mark198434_ + _mark199595_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp213366))) - (_ctx-ref198445_ - (if (let ((__tmp213371 + (gx#core-context-top__1 __tmp214527))) + (_ctx-ref199606_ + (if (let ((__tmp214532 (gx#current-expander-context))) (declare (not safe)) - (eq? _ctx198443_ __tmp213371)) + (eq? _ctx199604_ __tmp214532)) '(gx#current-expander-context) - (let ((__tmp213367 - (let ((__tmp213368 - (let ((__tmp213369 - (let ((__tmp213370 + (let ((__tmp214528 + (let ((__tmp214529 + (let ((__tmp214530 + (let ((__tmp214531 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_context-ref198292_ _ctx198443_)))) + (_context-ref199453_ _ctx199604_)))) (declare (not safe)) - (cons __tmp213370 '())))) + (cons __tmp214531 '())))) (declare (not safe)) - (cons 'quote __tmp213369)))) + (cons 'quote __tmp214530)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213368 '())))) + (cons __tmp214529 '())))) (declare (not safe)) (cons 'gx#import-module - __tmp213367))))) - (let ((__tmp213372 (gxc#current-compile-marks))) + __tmp214528))))) + (let ((__tmp214533 (gxc#current-compile-marks))) (declare (not safe)) (table-set! - __tmp213372 - _mark198434_ - _gid198439_)) - (let ((__tmp213373 - (let ((__tmp213374 - (let ((__tmp213375 - (let ((__tmp213376 - (let ((__tmp213377 + __tmp214533 + _mark199595_ + _gid199600_)) + (let ((__tmp214534 + (let ((__tmp214535 + (let ((__tmp214536 + (let ((__tmp214537 + (let ((__tmp214538 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213379 - (let ((__tmp213380 + (let ((__tmp214540 + (let ((__tmp214541 (let () (declare (not safe)) - (cons _repr198441_ '())))) + (cons _repr199602_ '())))) (declare (not safe)) - (cons 'quote __tmp213380))) - (__tmp213378 + (cons 'quote __tmp214541))) + (__tmp214539 (let () (declare (not safe)) - (cons _ctx-ref198445_ '())))) + (cons _ctx-ref199606_ '())))) (declare (not safe)) - (cons __tmp213379 __tmp213378)))) + (cons __tmp214540 __tmp214539)))) (declare (not safe)) - (cons 'gx#core-deserialize-mark __tmp213377)))) + (cons 'gx#core-deserialize-mark __tmp214538)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213376 '())))) + (cons __tmp214537 '())))) (declare (not safe)) - (cons _gid198439_ __tmp213375)))) + (cons _gid199600_ __tmp214536)))) (declare (not safe)) - (cons 'define __tmp213374)))) + (cons 'define __tmp214535)))) (declare (not safe)) - (_add-lift!198286_ __tmp213373)) - _gid198439_))))) - (_serialize-mark198291_ - (lambda (_mark198381_) - (letrec ((_quote-e198383_ - (lambda (_sym198432_) - (if (interned-symbol? _sym198432_) - _sym198432_ + (_add-lift!199447_ __tmp214534)) + _gid199600_))))) + (_serialize-mark199452_ + (lambda (_mark199542_) + (letrec ((_quote-e199544_ + (lambda (_sym199593_) + (if (interned-symbol? _sym199593_) + _sym199593_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _sym198432_)))))) - (let* ((_mark198384198393_ _mark198381_) - (_E198386198397_ + _sym199593_)))))) + (let* ((_mark199545199554_ _mark199542_) + (_E199547199558_ (lambda () (error '"No clause matching" - _mark198384198393_))) - (_K198387198409_ - (lambda (_trace198400_ - _phi198401_ - _ctx198402_ - _subst198403_) - (let* ((_subs198405_ - (if _subst198403_ + _mark199545199554_))) + (_K199548199570_ + (lambda (_trace199561_ + _phi199562_ + _ctx199563_ + _subst199564_) + (let* ((_subs199566_ + (if _subst199564_ (let () (declare (not safe)) - (table->list _subst198403_)) + (table->list _subst199564_)) '())) - (__tmp213381 - (map (lambda (_pair198407_) - (let ((__tmp213384 - (let ((__tmp213385 - (car _pair198407_))) + (__tmp214542 + (map (lambda (_pair199568_) + (let ((__tmp214545 + (let ((__tmp214546 + (car _pair199568_))) (declare (not safe)) - (_quote-e198383_ - __tmp213385))) - (__tmp213382 - (let ((__tmp213383 - (cdr _pair198407_))) + (_quote-e199544_ + __tmp214546))) + (__tmp214543 + (let ((__tmp214544 + (cdr _pair199568_))) (declare (not safe)) - (_quote-e198383_ - __tmp213383)))) + (_quote-e199544_ + __tmp214544)))) (declare (not safe)) - (cons __tmp213384 - __tmp213382))) - _subs198405_))) + (cons __tmp214545 + __tmp214543))) + _subs199566_))) (declare (not safe)) - (cons _phi198401_ __tmp213381))))) + (cons _phi199562_ __tmp214542))))) (if (let () (declare (not safe)) (##structure-instance-of? - _mark198384198393_ + _mark199545199554_ 'gx#expander-mark::t)) - (let* ((_e198388198412_ + (let* ((_e199549199573_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark198384198393_ + _mark199545199554_ '1 gx#expander-mark::t '#f))) - (_subst198415_ _e198388198412_) - (_e198389198417_ + (_subst199576_ _e199549199573_) + (_e199550199578_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark198384198393_ + _mark199545199554_ '2 gx#expander-mark::t '#f))) - (_ctx198420_ _e198389198417_) - (_e198390198422_ + (_ctx199581_ _e199550199578_) + (_e199551199583_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark198384198393_ + _mark199545199554_ '3 gx#expander-mark::t '#f))) - (_phi198425_ _e198390198422_) - (_e198391198427_ + (_phi199586_ _e199551199583_) + (_e199552199588_ (let () (declare (not safe)) (##unchecked-structure-ref - _mark198384198393_ + _mark199545199554_ '4 gx#expander-mark::t '#f))) - (_trace198430_ _e198391198427_)) + (_trace199591_ _e199552199588_)) (declare (not safe)) - (_K198387198409_ - _trace198430_ - _phi198425_ - _ctx198420_ - _subst198415_)) + (_K199548199570_ + _trace199591_ + _phi199586_ + _ctx199581_ + _subst199576_)) (let () (declare (not safe)) - (_E198386198397_))))))) - (_context-ref198292_ - (lambda (_ctx198368_) - (if (let ((__tmp213393 + (_E199547199558_))))))) + (_context-ref199453_ + (lambda (_ctx199529_) + (if (let ((__tmp214554 (##structure-ref - _ctx198368_ + _ctx199529_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp213393 + __tmp214554 'gx#module-context::t)) - (let ((_ctx-ref198370_ + (let ((_ctx-ref199531_ (let () (declare (not safe)) - (_context-ref-nested198294_ _ctx198368_))) - (_ctx-origin198371_ + (_context-ref-nested199455_ _ctx199529_))) + (_ctx-origin199532_ (let () (declare (not safe)) - (_context-ref-origin198293_ _ctx198368_))) - (_origin198372_ - (let ((__tmp213387 + (_context-ref-origin199454_ _ctx199529_))) + (_origin199533_ + (let ((__tmp214548 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-origin198293_ __tmp213387)))) + (_context-ref-origin199454_ __tmp214548)))) (if (let () (declare (not safe)) - (eq? _origin198372_ _ctx-origin198371_)) - (let ((_ref198374_ - (let ((__tmp213388 + (eq? _origin199533_ _ctx-origin199532_)) + (let ((_ref199535_ + (let ((__tmp214549 (gx#current-expander-context))) (declare (not safe)) - (_context-ref-nested198294_ - __tmp213388)))) - (let _lp198376_ ((_ref198378_ - (cdr _ref198374_)) - (_ctx-ref198379_ - (cdr _ctx-ref198370_))) + (_context-ref-nested199455_ + __tmp214549)))) + (let _lp199537_ ((_ref199539_ + (cdr _ref199535_)) + (_ctx-ref199540_ + (cdr _ctx-ref199531_))) (if (and (let () (declare (not safe)) - (pair? _ref198378_)) - (let ((__tmp213392 - (car _ref198378_)) - (__tmp213391 - (car _ctx-ref198379_))) + (pair? _ref199539_)) + (let ((__tmp214553 + (car _ref199539_)) + (__tmp214552 + (car _ctx-ref199540_))) (declare (not safe)) - (eq? __tmp213392 __tmp213391))) - (let ((__tmp213390 (cdr _ref198378_)) - (__tmp213389 - (cdr _ctx-ref198379_))) + (eq? __tmp214553 __tmp214552))) + (let ((__tmp214551 (cdr _ref199539_)) + (__tmp214550 + (cdr _ctx-ref199540_))) (declare (not safe)) - (_lp198376_ __tmp213390 __tmp213389)) + (_lp199537_ __tmp214551 __tmp214550)) (let () (declare (not safe)) - (cons '#f _ctx-ref198379_))))) - _ctx-ref198370_)) - (let ((__tmp213386 + (cons '#f _ctx-ref199540_))))) + _ctx-ref199531_)) + (let ((__tmp214547 (##structure-ref - _ctx198368_ + _ctx199529_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp213386))))) - (_context-ref-origin198293_ - (lambda (_ctx198360_) - (let _lp198362_ ((_ctx198364_ _ctx198360_)) - (let ((_super198366_ + (make-symbol__1 '":" __tmp214547))))) + (_context-ref-origin199454_ + (lambda (_ctx199521_) + (let _lp199523_ ((_ctx199525_ _ctx199521_)) + (let ((_super199527_ (##structure-ref - _ctx198364_ + _ctx199525_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super198366_ + _super199527_ 'gx#module-context::t)) (let () (declare (not safe)) - (_lp198362_ _super198366_)) - _ctx198364_))))) - (_context-ref-nested198294_ - (lambda (_ctx198351_) - (let _lp198353_ ((_ctx198355_ _ctx198351_) - (_r198356_ '())) - (let ((_super198358_ + (_lp199523_ _super199527_)) + _ctx199525_))))) + (_context-ref-nested199455_ + (lambda (_ctx199512_) + (let _lp199514_ ((_ctx199516_ _ctx199512_) + (_r199517_ '())) + (let ((_super199519_ (##structure-ref - _ctx198355_ + _ctx199516_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _super198358_ + _super199519_ 'gx#module-context::t)) - (let ((__tmp213396 - (let ((__tmp213397 + (let ((__tmp214557 + (let ((__tmp214558 (car (##structure-ref - _ctx198355_ + _ctx199516_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp213397 _r198356_)))) + (cons __tmp214558 _r199517_)))) (declare (not safe)) - (_lp198353_ _super198358_ __tmp213396)) - (let ((__tmp213394 - (let ((__tmp213395 + (_lp199514_ _super199519_ __tmp214557)) + (let ((__tmp214555 + (let ((__tmp214556 (##structure-ref - _ctx198355_ + _ctx199516_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp213395)))) + (make-symbol__1 '":" __tmp214556)))) (declare (not safe)) - (cons __tmp213394 _r198356_)))))))) - (let* ((_g198296198309_ - (lambda (_g198297198306_) + (cons __tmp214555 _r199517_)))))))) + (let* ((_g199457199470_ + (lambda (_g199458199467_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198297198306_)))) - (_g198295198348_ - (lambda (_g198297198312_) + _g199458199467_)))) + (_g199456199509_ + (lambda (_g199458199473_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198297198312_)) - (let ((_e198301198314_ + (gx#stx-pair? _g199458199473_)) + (let ((_e199462199475_ (let () (declare (not safe)) - (gx#stx-e _g198297198312_)))) - (let ((_hd198300198317_ + (gx#stx-e _g199458199473_)))) + (let ((_hd199461199478_ (let () (declare (not safe)) - (##car _e198301198314_))) - (_tl198299198319_ + (##car _e199462199475_))) + (_tl199460199480_ (let () (declare (not safe)) - (##cdr _e198301198314_)))) + (##cdr _e199462199475_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198299198319_)) - (let ((_e198304198322_ + (gx#stx-pair? _tl199460199480_)) + (let ((_e199465199483_ (let () (declare (not safe)) - (gx#stx-e _tl198299198319_)))) - (let ((_hd198303198325_ + (gx#stx-e _tl199460199480_)))) + (let ((_hd199464199486_ (let () (declare (not safe)) - (##car _e198304198322_))) - (_tl198302198327_ + (##car _e199465199483_))) + (_tl199463199488_ (let () (declare (not safe)) - (##cdr _e198304198322_)))) + (##cdr _e199465199483_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl198302198327_)) - ((lambda (_L198330_) + (gx#stx-null? _tl199463199488_)) + ((lambda (_L199491_) (if (let () (declare (not safe)) - (gx#identifier? _L198330_)) - (let ((_$e198343_ - (let ((__tmp213398 + (gx#identifier? _L199491_)) + (let ((_$e199504_ + (let ((__tmp214559 (gxc#current-compile-identifiers))) (declare (not safe)) (table-ref - __tmp213398 - _L198330_ + __tmp214559 + _L199491_ '#f)))) - (if _$e198343_ - (values _$e198343_) - (let ((_marks198346_ + (if _$e199504_ + (values _$e199504_) + (let ((_marks199507_ (##direct-structure-ref - _L198330_ + _L199491_ '4 gx#syntax-quote::t '#f))) @@ -15999,2105 +15999,2105 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _marks198346_)) + (null? _marks199507_)) (let () (declare (not safe)) - (_generate-simple198288_ _L198330_)) + (_generate-simple199449_ _L199491_)) (let () (declare (not safe)) - (_generate-serialized198289_ - _L198330_ - _marks198346_)))))) + (_generate-serialized199450_ + _L199491_ + _marks199507_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _L198330_)))) - _hd198303198325_) + _L199491_)))) + _hd199464199486_) (let () (declare (not safe)) - (_g198296198309_ - _g198297198312_))))) + (_g199457199470_ + _g199458199473_))))) (let () (declare (not safe)) - (_g198296198309_ _g198297198312_))))) + (_g199457199470_ _g199458199473_))))) (let () (declare (not safe)) - (_g198296198309_ _g198297198312_)))))) + (_g199457199470_ _g199458199473_)))))) (declare (not safe)) - (_g198295198348_ _stx198284_))))) + (_g199456199509_ _stx199445_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_stx198217_) - (let* ((_g198219198236_ - (lambda (_g198220198233_) + (lambda (_stx199378_) + (let* ((_g199380199397_ + (lambda (_g199381199394_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198220198233_)))) - (_g198218198281_ - (lambda (_g198220198239_) + _g199381199394_)))) + (_g199379199442_ + (lambda (_g199381199400_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198220198239_)) - (let ((_e198225198241_ + (gx#stx-pair? _g199381199400_)) + (let ((_e199386199402_ (let () (declare (not safe)) - (gx#stx-e _g198220198239_)))) - (let ((_hd198224198244_ + (gx#stx-e _g199381199400_)))) + (let ((_hd199385199405_ (let () (declare (not safe)) - (##car _e198225198241_))) - (_tl198223198246_ + (##car _e199386199402_))) + (_tl199384199407_ (let () (declare (not safe)) - (##cdr _e198225198241_)))) + (##cdr _e199386199402_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198223198246_)) - (let ((_e198228198249_ + (gx#stx-pair? _tl199384199407_)) + (let ((_e199389199410_ (let () (declare (not safe)) - (gx#stx-e _tl198223198246_)))) - (let ((_hd198227198252_ + (gx#stx-e _tl199384199407_)))) + (let ((_hd199388199413_ (let () (declare (not safe)) - (##car _e198228198249_))) - (_tl198226198254_ + (##car _e199389199410_))) + (_tl199387199415_ (let () (declare (not safe)) - (##cdr _e198228198249_)))) + (##cdr _e199389199410_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198226198254_)) - (let ((_e198231198257_ + (gx#stx-pair? _tl199387199415_)) + (let ((_e199392199418_ (let () (declare (not safe)) - (gx#stx-e _tl198226198254_)))) - (let ((_hd198230198260_ + (gx#stx-e _tl199387199415_)))) + (let ((_hd199391199421_ (let () (declare (not safe)) - (##car _e198231198257_))) - (_tl198229198262_ + (##car _e199392199418_))) + (_tl199390199423_ (let () (declare (not safe)) - (##cdr _e198231198257_)))) + (##cdr _e199392199418_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl198229198262_)) - ((lambda (_L198265_ _L198266_) - (let ((__tmp213399 - (let ((__tmp213402 + _tl199390199423_)) + ((lambda (_L199426_ _L199427_) + (let ((__tmp214560 + (let ((__tmp214563 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L198266_))) - (__tmp213400 - (let ((__tmp213401 + (let () (declare (not safe)) (gx#stx-e _L199427_))) + (__tmp214561 + (let ((__tmp214562 (let () (declare (not safe)) - (gxc#compile-e__0 _L198265_)))) + (gxc#compile-e__0 _L199426_)))) (declare (not safe)) - (cons __tmp213401 '())))) + (cons __tmp214562 '())))) (declare (not safe)) - (cons __tmp213402 __tmp213400)))) + (cons __tmp214563 __tmp214561)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'define - __tmp213399))) - _hd198230198260_ - _hd198227198252_) + __tmp214560))) + _hd199391199421_ + _hd199388199413_) (let () (declare (not safe)) - (_g198219198236_ - _g198220198239_))))) + (_g199380199397_ + _g199381199400_))))) (let () (declare (not safe)) - (_g198219198236_ _g198220198239_))))) + (_g199380199397_ _g199381199400_))))) (let () (declare (not safe)) - (_g198219198236_ _g198220198239_))))) + (_g199380199397_ _g199381199400_))))) (let () (declare (not safe)) - (_g198219198236_ _g198220198239_)))))) + (_g199380199397_ _g199381199400_)))))) (declare (not safe)) - (_g198218198281_ _stx198217_)))) + (_g199379199442_ _stx199378_)))) (define gxc#generate-meta-begin% - (lambda (_stx198166_ _state198167_) - (let* ((_g198169198179_ - (lambda (_g198170198176_) + (lambda (_stx199327_ _state199328_) + (let* ((_g199330199340_ + (lambda (_g199331199337_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198170198176_)))) - (_g198168198214_ - (lambda (_g198170198182_) + _g199331199337_)))) + (_g199329199375_ + (lambda (_g199331199343_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198170198182_)) - (let ((_e198174198184_ + (gx#stx-pair? _g199331199343_)) + (let ((_e199335199345_ (let () (declare (not safe)) - (gx#stx-e _g198170198182_)))) - (let ((_hd198173198187_ + (gx#stx-e _g199331199343_)))) + (let ((_hd199334199348_ (let () (declare (not safe)) - (##car _e198174198184_))) - (_tl198172198189_ + (##car _e199335199345_))) + (_tl199333199350_ (let () (declare (not safe)) - (##cdr _e198174198184_)))) - ((lambda (_L198192_) - (let* ((_c-body198206_ - (map (lambda (_g198201198203_) + (##cdr _e199335199345_)))) + ((lambda (_L199353_) + (let* ((_c-body199367_ + (map (lambda (_g199362199364_) (let () (declare (not safe)) (gxc#compile-e__1 - _g198201198203_ - _state198167_))) - _L198192_)) - (_c-body198211_ - (let ((__tmp213403 - (lambda (_$obj198208_) - (let ((__tmp213404 + _g199362199364_ + _state199328_))) + _L199353_)) + (_c-body199372_ + (let ((__tmp214564 + (lambda (_$obj199369_) + (let ((__tmp214565 (let () (declare (not safe)) - (eq? _$obj198208_ + (eq? _$obj199369_ '#!void)))) (declare (not safe)) - (not __tmp213404))))) + (not __tmp214565))))) (declare (not safe)) - (filter __tmp213403 _c-body198206_)))) + (filter __tmp214564 _c-body199367_)))) (let () (declare (not safe)) - (cons '%#begin _c-body198211_)))) - _tl198172198189_))) + (cons '%#begin _c-body199372_)))) + _tl199333199350_))) (let () (declare (not safe)) - (_g198169198179_ _g198170198182_)))))) + (_g199330199340_ _g199331199343_)))))) (declare (not safe)) - (_g198168198214_ _stx198166_)))) + (_g199329199375_ _stx199327_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_stx198074_ _state198075_) - (let* ((_g198077198087_ - (lambda (_g198078198084_) + (lambda (_stx199235_ _state199236_) + (let* ((_g199238199248_ + (lambda (_g199239199245_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198078198084_)))) - (_g198076198163_ - (lambda (_g198078198090_) + _g199239199245_)))) + (_g199237199324_ + (lambda (_g199239199251_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198078198090_)) - (let ((_e198082198092_ + (gx#stx-pair? _g199239199251_)) + (let ((_e199243199253_ (let () (declare (not safe)) - (gx#stx-e _g198078198090_)))) - (let ((_hd198081198095_ + (gx#stx-e _g199239199251_)))) + (let ((_hd199242199256_ (let () (declare (not safe)) - (##car _e198082198092_))) - (_tl198080198097_ + (##car _e199243199253_))) + (_tl199241199258_ (let () (declare (not safe)) - (##cdr _e198082198092_)))) - ((lambda (_L198100_) - (let* ((_phi198110_ - (let ((__tmp213405 + (##cdr _e199243199253_)))) + ((lambda (_L199261_) + (let* ((_phi199271_ + (let ((__tmp214566 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp213405 '1))) - (_block198112_ + (fx+ __tmp214566 '1))) + (_block199273_ (let () (declare (not safe)) (gxc#meta-state-begin-phi! - _state198075_ - _phi198110_))) - (_compiled198115_ - (let ((__tmp213406 + _state199236_ + _phi199271_))) + (_compiled199276_ + (let ((__tmp214567 (lambda () - (let ((__tmp213407 - (let ((__tmp213408 + (let ((__tmp214568 + (let ((__tmp214569 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)))) (declare (not safe)) - (cons __tmp213408 _L198100_)))) + (cons __tmp214569 _L199261_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#apply-generate-meta-phi - __tmp213407 - _state198075_))))) + __tmp214568 + _state199236_))))) (declare (not safe)) (call-with-parameters - __tmp213406 + __tmp214567 gx#current-expander-phi - _phi198110_)))) - (let* ((_g198118198128_ - (lambda (_g198119198125_) + _phi199271_)))) + (let* ((_g199279199289_ + (lambda (_g199280199286_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198119198125_)))) - (_g198117198160_ - (lambda (_g198119198131_) + _g199280199286_)))) + (_g199278199321_ + (lambda (_g199280199292_) (if (let () (declare (not safe)) (gx#stx-pair? - _g198119198131_)) - (let ((_e198123198133_ + _g199280199292_)) + (let ((_e199284199294_ (let () (declare (not safe)) (gx#stx-e - _g198119198131_)))) - (let ((_hd198122198136_ + _g199280199292_)))) + (let ((_hd199283199297_ (let () (declare (not safe)) - (##car _e198123198133_))) - (_tl198121198138_ + (##car _e199284199294_))) + (_tl199282199299_ (let () (declare (not safe)) - (##cdr _e198123198133_)))) + (##cdr _e199284199294_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd198122198136_)) + _hd199283199297_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _hd198122198136_)) - ((lambda (_L198141_) - (let ((_c-body198158_ + _hd199283199297_)) + ((lambda (_L199302_) + (let ((_c-body199319_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213409 - (lambda (_$obj198155_) - (let ((__tmp213410 + (let ((__tmp214570 + (lambda (_$obj199316_) + (let ((__tmp214571 (let () (declare (not safe)) - (eq? _$obj198155_ '#!void)))) + (eq? _$obj199316_ '#!void)))) (declare (not safe)) - (not __tmp213410))))) + (not __tmp214571))))) (declare (not safe)) - (filter __tmp213409 _L198141_)))) - (if _block198112_ - (let ((__tmp213411 - (let ((__tmp213412 - (let ((__tmp213413 - (let ((__tmp213417 - (let ((__tmp213418 + (filter __tmp214570 _L199302_)))) + (if _block199273_ + (let ((__tmp214572 + (let ((__tmp214573 + (let ((__tmp214574 + (let ((__tmp214578 + (let ((__tmp214579 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp213418))) - (__tmp213414 - (let ((__tmp213415 - (let ((__tmp213416 + (cons '%#ref __tmp214579))) + (__tmp214575 + (let ((__tmp214576 + (let ((__tmp214577 (let () (declare (not safe)) - (cons _block198112_ '())))) + (cons _block199273_ '())))) (declare (not safe)) - (cons '%#quote __tmp213416)))) + (cons '%#quote __tmp214577)))) (declare (not safe)) - (cons __tmp213415 '())))) + (cons __tmp214576 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213417 - __tmp213414)))) + (cons __tmp214578 + __tmp214575)))) (declare (not safe)) - (cons '%#call __tmp213413)))) + (cons '%#call __tmp214574)))) (declare (not safe)) - (cons __tmp213412 _c-body198158_)))) + (cons __tmp214573 _c-body199319_)))) (declare (not safe)) - (cons '%#begin-syntax __tmp213411)) + (cons '%#begin-syntax __tmp214572)) (if (let () (declare (not safe)) - (null? _c-body198158_)) + (null? _c-body199319_)) '#!void (let () (declare (not safe)) - (cons '%#begin-syntax _c-body198158_)))))) - _tl198121198138_) + (cons '%#begin-syntax _c-body199319_)))))) + _tl199282199299_) (let () (declare (not safe)) - (_g198118198128_ _g198119198131_))) + (_g199279199289_ _g199280199292_))) (let () (declare (not safe)) - (_g198118198128_ _g198119198131_))))) + (_g199279199289_ _g199280199292_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g198118198128_ - _g198119198131_)))))) + (_g199279199289_ + _g199280199292_)))))) (declare (not safe)) - (_g198117198160_ _compiled198115_)))) - _tl198080198097_))) + (_g199278199321_ _compiled199276_)))) + _tl199241199258_))) (let () (declare (not safe)) - (_g198077198087_ _g198078198090_)))))) + (_g199238199248_ _g199239199251_)))))) (declare (not safe)) - (_g198076198163_ _stx198074_)))) + (_g199237199324_ _stx199235_)))) (define gxc#generate-meta-module% - (lambda (_stx198005_ _state198006_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state198006_)) - (let* ((_g198008198022_ - (lambda (_g198009198019_) + (lambda (_stx199166_ _state199167_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state199167_)) + (let* ((_g199169199183_ + (lambda (_g199170199180_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g198009198019_)))) - (_g198007198071_ - (lambda (_g198009198025_) + _g199170199180_)))) + (_g199168199232_ + (lambda (_g199170199186_) (if (let () (declare (not safe)) - (gx#stx-pair? _g198009198025_)) - (let ((_e198014198027_ + (gx#stx-pair? _g199170199186_)) + (let ((_e199175199188_ (let () (declare (not safe)) - (gx#stx-e _g198009198025_)))) - (let ((_hd198013198030_ + (gx#stx-e _g199170199186_)))) + (let ((_hd199174199191_ (let () (declare (not safe)) - (##car _e198014198027_))) - (_tl198012198032_ + (##car _e199175199188_))) + (_tl199173199193_ (let () (declare (not safe)) - (##cdr _e198014198027_)))) + (##cdr _e199175199188_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl198012198032_)) - (let ((_e198017198035_ + (gx#stx-pair? _tl199173199193_)) + (let ((_e199178199196_ (let () (declare (not safe)) - (gx#stx-e _tl198012198032_)))) - (let ((_hd198016198038_ + (gx#stx-e _tl199173199193_)))) + (let ((_hd199177199199_ (let () (declare (not safe)) - (##car _e198017198035_))) - (_tl198015198040_ + (##car _e199178199196_))) + (_tl199176199201_ (let () (declare (not safe)) - (##cdr _e198017198035_)))) - ((lambda (_L198043_ _L198044_) - (let ((_key198057_ + (##cdr _e199178199196_)))) + ((lambda (_L199204_ _L199205_) + (let ((_key199218_ (let () (declare (not safe)) (gx#core-identifier-key - _L198044_)))) - (if (interned-symbol? _key198057_) + _L199205_)))) + (if (interned-symbol? _key199218_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _stx198005_ - _L198044_ - _key198057_))) - (let* ((_ctx198059_ + _stx199166_ + _L199205_ + _key199218_))) + (let* ((_ctx199220_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L198044_))) - (_code198062_ - (let ((__tmp213419 + _L199205_))) + (_code199223_ + (let ((__tmp214580 (lambda () - (let ((__tmp213420 + (let ((__tmp214581 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _ctx198059_ + _ctx199220_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#compile-e__1 __tmp213420 _state198006_))))) + (gxc#compile-e__1 __tmp214581 _state199167_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp213419 + __tmp214580 gx#current-expander-context - _ctx198059_))) - (_rt198064_ - (let ((__tmp213421 + _ctx199220_))) + (_rt199225_ + (let ((__tmp214582 (gxc#current-compile-runtime-sections))) (declare (not safe)) (table-ref - __tmp213421 - _ctx198059_ + __tmp214582 + _ctx199220_ '#f))) - (_loader198066_ - (if _rt198064_ - (let ((__tmp213422 - (let ((__tmp213423 + (_loader199227_ + (if _rt199225_ + (let ((__tmp214583 + (let ((__tmp214584 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213427 - (let ((__tmp213428 + (let ((__tmp214588 + (let ((__tmp214589 (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp213428))) - (__tmp213424 - (let ((__tmp213425 - (let ((__tmp213426 + (cons '%#ref __tmp214589))) + (__tmp214585 + (let ((__tmp214586 + (let ((__tmp214587 (let () (declare (not safe)) - (cons _rt198064_ '())))) + (cons _rt199225_ '())))) (declare (not safe)) - (cons '%#quote __tmp213426)))) + (cons '%#quote __tmp214587)))) (declare (not safe)) - (cons __tmp213425 '())))) + (cons __tmp214586 '())))) (declare (not safe)) - (cons __tmp213427 __tmp213424)))) + (cons __tmp214588 __tmp214585)))) (declare (not safe)) - (cons '%#call __tmp213423)))) + (cons '%#call __tmp214584)))) (declare (not safe)) - (cons __tmp213422 '())) + (cons __tmp214583 '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_modid198068_ + (_modid199229_ (let () (declare (not safe)) - (gx#stx-e _L198044_)))) + (gx#stx-e _L199205_)))) (let () (declare (not safe)) (gxc#meta-state-end-phi! - _state198006_)) - (let ((__tmp213429 - (let ((__tmp213430 + _state199167_)) + (let ((__tmp214590 + (let ((__tmp214591 (let () (declare (not safe)) - (cons _code198062_ + (cons _code199223_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _loader198066_)))) + _loader199227_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _modid198068_ - __tmp213430)))) + (cons _modid199229_ + __tmp214591)))) (declare (not safe)) - (cons '%#module __tmp213429))))) - _tl198015198040_ - _hd198016198038_))) + (cons '%#module __tmp214590))))) + _tl199176199201_ + _hd199177199199_))) (let () (declare (not safe)) - (_g198008198022_ _g198009198025_))))) + (_g199169199183_ _g199170199186_))))) (let () (declare (not safe)) - (_g198008198022_ _g198009198025_)))))) + (_g199169199183_ _g199170199186_)))))) (declare (not safe)) - (_g198007198071_ _stx198005_)))) + (_g199168199232_ _stx199166_)))) (define gxc#generate-meta-import-path - (lambda (_ctx197995_ _context-chain197996_) - (let _lp197998_ ((_ctx198000_ _ctx197995_) (_path198001_ '())) - (let ((_super198003_ - (##structure-ref _ctx198000_ '3 gx#phi-context::t '#f))) - (if (memq _super198003_ _context-chain197996_) - (let ((__tmp213435 - (let ((__tmp213436 + (lambda (_ctx199156_ _context-chain199157_) + (let _lp199159_ ((_ctx199161_ _ctx199156_) (_path199162_ '())) + (let ((_super199164_ + (##structure-ref _ctx199161_ '3 gx#phi-context::t '#f))) + (if (memq _super199164_ _context-chain199157_) + (let ((__tmp214596 + (let ((__tmp214597 (car (##structure-ref - _ctx198000_ + _ctx199161_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp213436 _path198001_)))) + (cons __tmp214597 _path199162_)))) (declare (not safe)) - (cons '#f __tmp213435)) + (cons '#f __tmp214596)) (if (let () (declare (not safe)) (##structure-instance-of? - _super198003_ + _super199164_ 'gx#module-context::t)) - (let ((__tmp213433 - (let ((__tmp213434 + (let ((__tmp214594 + (let ((__tmp214595 (car (##structure-ref - _ctx198000_ + _ctx199161_ '7 gx#module-context::t '#f)))) (declare (not safe)) - (cons __tmp213434 _path198001_)))) + (cons __tmp214595 _path199162_)))) (declare (not safe)) - (_lp197998_ _super198003_ __tmp213433)) - (let ((__tmp213431 - (let ((__tmp213432 + (_lp199159_ _super199164_ __tmp214594)) + (let ((__tmp214592 + (let ((__tmp214593 (##structure-ref - _ctx198000_ + _ctx199161_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp213432)))) + (make-symbol__1 '":" __tmp214593)))) (declare (not safe)) - (cons __tmp213431 _path198001_)))))))) + (cons __tmp214592 _path199162_)))))))) (define gxc#current-context-chain (lambda () - (let _lp197990_ ((_ctx197992_ (gx#current-expander-context)) - (_r197993_ '())) + (let _lp199151_ ((_ctx199153_ (gx#current-expander-context)) + (_r199154_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _ctx197992_ 'gx#module-context::t)) - (let ((__tmp213438 - (##structure-ref _ctx197992_ '3 gx#phi-context::t '#f)) - (__tmp213437 + (##structure-instance-of? _ctx199153_ 'gx#module-context::t)) + (let ((__tmp214599 + (##structure-ref _ctx199153_ '3 gx#phi-context::t '#f)) + (__tmp214598 (let () (declare (not safe)) - (cons _ctx197992_ _r197993_)))) + (cons _ctx199153_ _r199154_)))) (declare (not safe)) - (_lp197990_ __tmp213438 __tmp213437)) - _r197993_)))) + (_lp199151_ __tmp214599 __tmp214598)) + _r199154_)))) (define gxc#generate-meta-import% - (lambda (_stx197759_ _state197760_) - (letrec* ((_context-chain197762_ + (lambda (_stx198920_ _state198921_) + (letrec* ((_context-chain198923_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-spec197763_ - (lambda (_in197926_) - (let* ((_in197927197939_ _in197926_) - (_E197929197943_ + (_make-import-spec198924_ + (lambda (_in199087_) + (let* ((_in199088199100_ _in199087_) + (_E199090199104_ (lambda () (error '"No clause matching" - _in197927197939_))) - (_K197930197953_ - (lambda (_phi197946_ - _name197947_ - _src-name197948_ - _src-phi197949_ - _src-key197950_ - _src-ctx197951_) - (let ((__tmp213439 - (let ((__tmp213443 + _in199088199100_))) + (_K199091199114_ + (lambda (_phi199107_ + _name199108_ + _src-name199109_ + _src-phi199110_ + _src-key199111_ + _src-ctx199112_) + (let ((__tmp214600 + (let ((__tmp214604 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name197947_))) - (__tmp213440 - (let ((__tmp213441 - (let ((__tmp213442 + _name199108_))) + (__tmp214601 + (let ((__tmp214602 + (let ((__tmp214603 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#generate-runtime-identifier-key - _src-name197948_)))) + _src-name199109_)))) (declare (not safe)) - (cons __tmp213442 '())))) + (cons __tmp214603 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _src-phi197949_ - __tmp213441)))) + (cons _src-phi199110_ + __tmp214602)))) (declare (not safe)) - (cons __tmp213443 __tmp213440)))) + (cons __tmp214604 __tmp214601)))) (declare (not safe)) - (cons _phi197946_ __tmp213439))))) + (cons _phi199107_ __tmp214600))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in197927197939_ + _in199088199100_ 'gx#module-import::t)) - (let ((_e197931197956_ + (let ((_e199092199117_ (let () (declare (not safe)) (##unchecked-structure-ref - _in197927197939_ + _in199088199100_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e197931197956_ + _e199092199117_ 'gx#module-export::t)) - (let* ((_e197934197959_ + (let* ((_e199095199120_ (let () (declare (not safe)) (##unchecked-structure-ref - _e197931197956_ + _e199092199117_ '1 gx#module-export::t '#f))) - (_src-ctx197962_ _e197934197959_) - (_e197935197964_ + (_src-ctx199123_ _e199095199120_) + (_e199096199125_ (let () (declare (not safe)) (##unchecked-structure-ref - _e197931197956_ + _e199092199117_ '2 gx#module-export::t '#f))) - (_src-key197967_ _e197935197964_) - (_e197936197969_ + (_src-key199128_ _e199096199125_) + (_e199097199130_ (let () (declare (not safe)) (##unchecked-structure-ref - _e197931197956_ + _e199092199117_ '3 gx#module-export::t '#f))) - (_src-phi197972_ _e197936197969_) - (_e197937197974_ + (_src-phi199133_ _e199097199130_) + (_e199098199135_ (let () (declare (not safe)) (##unchecked-structure-ref - _e197931197956_ + _e199092199117_ '4 gx#module-export::t '#f))) - (_src-name197977_ _e197937197974_) - (_e197932197979_ + (_src-name199138_ _e199098199135_) + (_e199093199140_ (let () (declare (not safe)) (##unchecked-structure-ref - _in197927197939_ + _in199088199100_ '2 gx#module-import::t '#f))) - (_name197982_ _e197932197979_) - (_e197933197984_ + (_name199143_ _e199093199140_) + (_e199094199145_ (let () (declare (not safe)) (##unchecked-structure-ref - _in197927197939_ + _in199088199100_ '3 gx#module-import::t '#f))) - (_phi197987_ _e197933197984_)) + (_phi199148_ _e199094199145_)) (declare (not safe)) - (_K197930197953_ - _phi197987_ - _name197982_ - _src-name197977_ - _src-phi197972_ - _src-key197967_ - _src-ctx197962_)) + (_K199091199114_ + _phi199148_ + _name199143_ + _src-name199138_ + _src-phi199133_ + _src-key199128_ + _src-ctx199123_)) (let () (declare (not safe)) - (_E197929197943_)))) + (_E199090199104_)))) (let () (declare (not safe)) - (_E197929197943_)))))) - (_make-import-path197764_ - (lambda (_ctx197924_) + (_E199090199104_)))))) + (_make-import-path198925_ + (lambda (_ctx199085_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx197924_ - _context-chain197762_)))) - (_make-import-spec-in197765_ - (lambda (_ctx197921_ _in197922_) - (let ((__tmp213444 - (let ((__tmp213446 + _ctx199085_ + _context-chain198923_)))) + (_make-import-spec-in198926_ + (lambda (_ctx199082_ _in199083_) + (let ((__tmp214605 + (let ((__tmp214607 (let () (declare (not safe)) - (_make-import-path197764_ _ctx197921_))) - (__tmp213445 (reverse _in197922_))) + (_make-import-path198925_ _ctx199082_))) + (__tmp214606 (reverse _in199083_))) (declare (not safe)) - (cons __tmp213446 __tmp213445)))) + (cons __tmp214607 __tmp214606)))) (declare (not safe)) - (cons 'spec: __tmp213444))))) + (cons 'spec: __tmp214605))))) (let () (declare (not safe)) - (gxc#meta-state-end-phi! _state197760_)) - (let* ((_g197767197777_ - (lambda (_g197768197774_) + (gxc#meta-state-end-phi! _state198921_)) + (let* ((_g198928198938_ + (lambda (_g198929198935_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197768197774_)))) - (_g197766197918_ - (lambda (_g197768197780_) + _g198929198935_)))) + (_g198927199079_ + (lambda (_g198929198941_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197768197780_)) - (let ((_e197772197782_ + (gx#stx-pair? _g198929198941_)) + (let ((_e198933198943_ (let () (declare (not safe)) - (gx#stx-e _g197768197780_)))) - (let ((_hd197771197785_ + (gx#stx-e _g198929198941_)))) + (let ((_hd198932198946_ (let () (declare (not safe)) - (##car _e197772197782_))) - (_tl197770197787_ + (##car _e198933198943_))) + (_tl198931198948_ (let () (declare (not safe)) - (##cdr _e197772197782_)))) - ((lambda (_L197790_) - (let _lp197801_ ((_rest197803_ _L197790_) - (_current-src197804_ '#f) - (_current-in197805_ '()) - (_r197806_ '())) - (let* ((_rest197807197815_ _rest197803_) - (_else197809197825_ + (##cdr _e198933198943_)))) + ((lambda (_L198951_) + (let _lp198962_ ((_rest198964_ _L198951_) + (_current-src198965_ '#f) + (_current-in198966_ '()) + (_r198967_ '())) + (let* ((_rest198968198976_ _rest198964_) + (_else198970198986_ (lambda () - (let* ((_r197823_ - (if _current-src197804_ - (let ((__tmp213447 + (let* ((_r198984_ + (if _current-src198965_ + (let ((__tmp214608 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_make-import-spec-in197765_ - _current-src197804_ - _current-in197805_)))) + (_make-import-spec-in198926_ + _current-src198965_ + _current-in198966_)))) (declare (not safe)) - (cons __tmp213447 _r197806_)) - _r197806_)) + (cons __tmp214608 _r198967_)) + _r198967_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp213448 - (reverse _r197823_))) + (__tmp214609 + (reverse _r198984_))) (declare (not safe)) - (cons '%#import __tmp213448)))) - (_K197811197906_ - (lambda (_rest197828_ _in197829_) + (cons '%#import __tmp214609)))) + (_K198972199067_ + (lambda (_rest198989_ _in198990_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in197829_ + _in198990_ 'gx#module-import::t)) - (let* ((_in197830197837_ - _in197829_) - (_E197832197841_ + (let* ((_in198991198998_ + _in198990_) + (_E198993199002_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in197830197837_))) - (_K197833197846_ - (lambda (_src-ctx197844_) + _in198991198998_))) + (_K198994199007_ + (lambda (_src-ctx199005_) (if (let () (declare (not safe)) - (eq? _current-src197804_ _src-ctx197844_)) - (let ((__tmp213464 - (let ((__tmp213465 + (eq? _current-src198965_ _src-ctx199005_)) + (let ((__tmp214625 + (let ((__tmp214626 (let () (declare (not safe)) - (_make-import-spec197763_ _in197829_)))) + (_make-import-spec198924_ _in198990_)))) (declare (not safe)) - (cons __tmp213465 _current-in197805_)))) + (cons __tmp214626 _current-in198966_)))) (declare (not safe)) - (_lp197801_ - _rest197828_ - _current-src197804_ - __tmp213464 - _r197806_)) - (if _current-src197804_ - (let ((__tmp213462 - (let ((__tmp213463 + (_lp198962_ + _rest198989_ + _current-src198965_ + __tmp214625 + _r198967_)) + (if _current-src198965_ + (let ((__tmp214623 + (let ((__tmp214624 (let () (declare (not safe)) - (_make-import-spec197763_ - _in197829_)))) + (_make-import-spec198924_ + _in198990_)))) (declare (not safe)) - (cons __tmp213463 '()))) - (__tmp213460 - (let ((__tmp213461 + (cons __tmp214624 '()))) + (__tmp214621 + (let ((__tmp214622 (let () (declare (not safe)) - (_make-import-spec-in197765_ - _current-src197804_ - _current-in197805_)))) + (_make-import-spec-in198926_ + _current-src198965_ + _current-in198966_)))) (declare (not safe)) - (cons __tmp213461 _r197806_)))) + (cons __tmp214622 _r198967_)))) (declare (not safe)) - (_lp197801_ - _rest197828_ - _src-ctx197844_ - __tmp213462 - __tmp213460)) - (let ((__tmp213458 - (let ((__tmp213459 + (_lp198962_ + _rest198989_ + _src-ctx199005_ + __tmp214623 + __tmp214621)) + (let ((__tmp214619 + (let ((__tmp214620 (let () (declare (not safe)) - (_make-import-spec197763_ - _in197829_)))) + (_make-import-spec198924_ + _in198990_)))) (declare (not safe)) - (cons __tmp213459 '())))) + (cons __tmp214620 '())))) (declare (not safe)) - (_lp197801_ - _rest197828_ - _src-ctx197844_ - __tmp213458 - _r197806_))))))) + (_lp198962_ + _rest198989_ + _src-ctx199005_ + __tmp214619 + _r198967_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in197830197837_ + _in198991198998_ 'gx#module-import::t)) - (let ((_e197834197849_ + (let ((_e198995199010_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _in197830197837_ + _in198991198998_ '1 gx#module-import::t '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _e197834197849_ + _e198995199010_ 'gx#module-export::t)) - (let* ((_e197835197852_ + (let* ((_e198996199013_ (let () (declare (not safe)) (##unchecked-structure-ref - _e197834197849_ + _e198995199010_ '1 gx#module-export::t '#f))) - (_src-ctx197855_ _e197835197852_)) + (_src-ctx199016_ _e198996199013_)) (declare (not safe)) - (_K197833197846_ _src-ctx197855_)) - (let () (declare (not safe)) (_E197832197841_)))) - (let () (declare (not safe)) (_E197832197841_)))) + (_K198994199007_ _src-ctx199016_)) + (let () (declare (not safe)) (_E198993199002_)))) + (let () (declare (not safe)) (_E198993199002_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in197829_ + _in198990_ 'gx#import-set::t)) - (let* ((_phi197857_ + (let* ((_phi199018_ (##direct-structure-ref - _in197829_ + _in198990_ '2 gx#import-set::t '#f)) - (_src197859_ + (_src199020_ (##direct-structure-ref - _in197829_ + _in198990_ '1 gx#import-set::t '#f)) - (_src-in197899_ - (let* ((_g197860197869_ + (_src-in199060_ + (let* ((_g199021199030_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_make-import-path197764_ _src197859_))) - (_E197863197873_ + (_make-import-path198925_ _src199020_))) + (_E199024199034_ (lambda () - (error '"No clause matching" _g197860197869_)))) - (let ((_K197865197889_ - (lambda (_path197887_) _path197887_)) - (_K197864197879_ - (lambda (_path197877_) + (error '"No clause matching" _g199021199030_)))) + (let ((_K199026199050_ + (lambda (_path199048_) _path199048_)) + (_K199025199040_ + (lambda (_path199038_) (let () (declare (not safe)) - (cons 'in: _path197877_))))) + (cons 'in: _path199038_))))) (if (let () (declare (not safe)) - (##pair? _g197860197869_)) - (let ((_tl197867197894_ + (##pair? _g199021199030_)) + (let ((_tl199028199055_ (let () (declare (not safe)) - (##cdr _g197860197869_))) - (_hd197866197892_ + (##cdr _g199021199030_))) + (_hd199027199053_ (let () (declare (not safe)) - (##car _g197860197869_)))) + (##car _g199021199030_)))) (if (let () (declare (not safe)) - (##null? _tl197867197894_)) - (let ((_path197897_ _hd197866197892_)) + (##null? _tl199028199055_)) + (let ((_path199058_ _hd199027199053_)) (declare (not safe)) - (_K197865197889_ _path197897_)) - (let ((_path197882_ _g197860197869_)) + (_K199026199050_ _path199058_)) + (let ((_path199043_ _g199021199030_)) (declare (not safe)) - (_K197864197879_ _path197882_)))) - (let ((_path197882_ _g197860197869_)) + (_K199025199040_ _path199043_)))) + (let ((_path199043_ _g199021199030_)) (declare (not safe)) - (_K197864197879_ _path197882_)))))) - (_r197901_ - (if _current-src197804_ - (let ((__tmp213453 + (_K199025199040_ _path199043_)))))) + (_r199062_ + (if _current-src198965_ + (let ((__tmp214614 (let () (declare (not safe)) - (_make-import-spec-in197765_ - _current-src197804_ - _current-in197805_)))) + (_make-import-spec-in198926_ + _current-src198965_ + _current-in198966_)))) (declare (not safe)) - (cons __tmp213453 _r197806_)) - _r197806_))) - (let ((__tmp213454 - (let ((__tmp213455 + (cons __tmp214614 _r198967_)) + _r198967_))) + (let ((__tmp214615 + (let ((__tmp214616 (if (let () (declare (not safe)) - (fxzero? _phi197857_)) - _src-in197899_ - (let ((__tmp213456 - (let ((__tmp213457 + (fxzero? _phi199018_)) + _src-in199060_ + (let ((__tmp214617 + (let ((__tmp214618 (let () (declare (not safe)) - (cons _src-in197899_ '())))) + (cons _src-in199060_ '())))) (declare (not safe)) - (cons _phi197857_ __tmp213457)))) + (cons _phi199018_ __tmp214618)))) (declare (not safe)) - (cons 'phi: __tmp213456))))) + (cons 'phi: __tmp214617))))) (declare (not safe)) - (cons __tmp213455 _r197901_)))) + (cons __tmp214616 _r199062_)))) (declare (not safe)) - (_lp197801_ _rest197828_ '#f '() __tmp213454))) + (_lp198962_ _rest198989_ '#f '() __tmp214615))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _in197829_ + _in198990_ 'gx#module-context::t)) - (let* ((_r197904_ + (let* ((_r199065_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _current-src197804_ - (let ((__tmp213449 + (if _current-src198965_ + (let ((__tmp214610 (let () (declare (not safe)) - (_make-import-spec-in197765_ - _current-src197804_ - _current-in197805_)))) + (_make-import-spec-in198926_ + _current-src198965_ + _current-in198966_)))) (declare (not safe)) - (cons __tmp213449 _r197806_)) - _r197806_)) - (__tmp213450 - (let ((__tmp213451 - (let ((__tmp213452 + (cons __tmp214610 _r198967_)) + _r198967_)) + (__tmp214611 + (let ((__tmp214612 + (let ((__tmp214613 (let () (declare (not safe)) - (_make-import-path197764_ - _in197829_)))) + (_make-import-path198925_ + _in198990_)))) (declare (not safe)) - (cons 'runtime: __tmp213452)))) + (cons 'runtime: __tmp214613)))) (declare (not safe)) - (cons __tmp213451 _r197904_)))) + (cons __tmp214612 _r199065_)))) (declare (not safe)) - (_lp197801_ _rest197828_ '#f '() __tmp213450)) + (_lp198962_ _rest198989_ '#f '() __tmp214611)) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest197807197815_)) - (let ((_hd197812197909_ + (##pair? _rest198968198976_)) + (let ((_hd198973199070_ (let () (declare (not safe)) - (##car _rest197807197815_))) - (_tl197813197911_ + (##car _rest198968198976_))) + (_tl198974199072_ (let () (declare (not safe)) - (##cdr _rest197807197815_)))) - (let* ((_in197914_ _hd197812197909_) - (_rest197916_ - _tl197813197911_)) + (##cdr _rest198968198976_)))) + (let* ((_in199075_ _hd198973199070_) + (_rest199077_ + _tl198974199072_)) (declare (not safe)) - (_K197811197906_ - _rest197916_ - _in197914_))) + (_K198972199067_ + _rest199077_ + _in199075_))) (let () (declare (not safe)) - (_else197809197825_)))))) - _tl197770197787_))) + (_else198970198986_)))))) + _tl198931198948_))) (let () (declare (not safe)) - (_g197767197777_ _g197768197780_)))))) + (_g198928198938_ _g198929198941_)))))) (declare (not safe)) - (_g197766197918_ _stx197759_))))) + (_g198927199079_ _stx198920_))))) (define gxc#generate-meta-export% - (lambda (_stx197569_ _state197570_) - (letrec* ((_context-chain197572_ + (lambda (_stx198730_ _state198731_) + (letrec* ((_context-chain198733_ (let () (declare (not safe)) (gxc#current-context-chain))) - (_make-import-path197573_ - (lambda (_ctx197757_) + (_make-import-path198734_ + (lambda (_ctx198918_) (let () (declare (not safe)) (gxc#generate-meta-import-path - _ctx197757_ - _context-chain197572_))))) - (let* ((_g197575197585_ - (lambda (_g197576197582_) + _ctx198918_ + _context-chain198733_))))) + (let* ((_g198736198746_ + (lambda (_g198737198743_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197576197582_)))) - (_g197574197754_ - (lambda (_g197576197588_) + _g198737198743_)))) + (_g198735198915_ + (lambda (_g198737198749_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197576197588_)) - (let ((_e197580197590_ + (gx#stx-pair? _g198737198749_)) + (let ((_e198741198751_ (let () (declare (not safe)) - (gx#stx-e _g197576197588_)))) - (let ((_hd197579197593_ + (gx#stx-e _g198737198749_)))) + (let ((_hd198740198754_ (let () (declare (not safe)) - (##car _e197580197590_))) - (_tl197578197595_ + (##car _e198741198751_))) + (_tl198739198756_ (let () (declare (not safe)) - (##cdr _e197580197590_)))) - ((lambda (_L197598_) - (let _lp197609_ ((_rest197611_ _L197598_) - (_r197612_ '())) - (let* ((_rest197613197621_ _rest197611_) - (_else197615197629_ + (##cdr _e198741198751_)))) + ((lambda (_L198759_) + (let _lp198770_ ((_rest198772_ _L198759_) + (_r198773_ '())) + (let* ((_rest198774198782_ _rest198772_) + (_else198776198790_ (lambda () - (let ((__tmp213466 - (reverse _r197612_))) + (let ((__tmp214627 + (reverse _r198773_))) (declare (not safe)) - (cons '%#export __tmp213466)))) - (_K197617197742_ - (lambda (_rest197632_ _out197633_) - (let* ((_out197634197647_ - _out197633_) - (_E197637197651_ + (cons '%#export __tmp214627)))) + (_K198778198903_ + (lambda (_rest198793_ _out198794_) + (let* ((_out198795198808_ + _out198794_) + (_E198798198812_ (lambda () (error '"No clause matching" - _out197634197647_)))) - (let ((_K197641197721_ - (lambda (_name197717_ - _phi197718_ - _key197719_) - (let ((__tmp213467 - (let ((__tmp213468 + _out198795198808_)))) + (let ((_K198802198882_ + (lambda (_name198878_ + _phi198879_ + _key198880_) + (let ((__tmp214628 + (let ((__tmp214629 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213469 - (let ((__tmp213470 - (let ((__tmp213473 + (let ((__tmp214630 + (let ((__tmp214631 + (let ((__tmp214634 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _key197719_))) - (__tmp213471 - (let ((__tmp213472 + _key198880_))) + (__tmp214632 + (let ((__tmp214633 (let () (declare (not safe)) (gxc#generate-runtime-identifier-key - _name197717_)))) + _name198878_)))) (declare (not safe)) - (cons __tmp213472 '())))) + (cons __tmp214633 '())))) (declare (not safe)) - (cons __tmp213473 __tmp213471)))) + (cons __tmp214634 __tmp214632)))) (declare (not safe)) - (cons _phi197718_ __tmp213470)))) + (cons _phi198879_ __tmp214631)))) (declare (not safe)) - (cons 'spec: __tmp213469)))) + (cons 'spec: __tmp214630)))) (declare (not safe)) - (cons __tmp213468 _r197612_)))) + (cons __tmp214629 _r198773_)))) (declare (not safe)) - (_lp197609_ _rest197632_ __tmp213467)))) + (_lp198770_ _rest198793_ __tmp214628)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K197638197701_ - (lambda (_phi197655_ - _src197656_) - (let* ((_out197696_ - (if _src197656_ + (_K198799198862_ + (lambda (_phi198816_ + _src198817_) + (let* ((_out198857_ + (if _src198817_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213474 - (let ((__tmp213475 - (let* ((_g197657197666_ + (let ((__tmp214635 + (let ((__tmp214636 + (let* ((_g198818198827_ (let () (declare (not safe)) - (_make-import-path197573_ - _src197656_))) - (_E197660197670_ + (_make-import-path198734_ + _src198817_))) + (_E198821198831_ (lambda () (error '"No clause matching" - _g197657197666_)))) - (let ((_K197662197686_ - (lambda (_path197684_) - _path197684_)) - (_K197661197676_ - (lambda (_path197674_) + _g198818198827_)))) + (let ((_K198823198847_ + (lambda (_path198845_) + _path198845_)) + (_K198822198837_ + (lambda (_path198835_) (let () (declare (not safe)) (cons 'in: - _path197674_))))) + _path198835_))))) (if (let () (declare (not safe)) - (##pair? _g197657197666_)) - (let ((_tl197664197691_ + (##pair? _g198818198827_)) + (let ((_tl198825198852_ (let () (declare (not safe)) - (##cdr _g197657197666_))) - (_hd197663197689_ + (##cdr _g198818198827_))) + (_hd198824198850_ (let () (declare (not safe)) - (##car _g197657197666_)))) + (##car _g198818198827_)))) (if (let () (declare (not safe)) - (##null? _tl197664197691_)) - (let ((_path197694_ - _hd197663197689_)) + (##null? _tl198825198852_)) + (let ((_path198855_ + _hd198824198850_)) (declare (not safe)) - (_K197662197686_ - _path197694_)) - (let ((_path197679_ - _g197657197666_)) + (_K198823198847_ + _path198855_)) + (let ((_path198840_ + _g198818198827_)) (declare (not safe)) - (_K197661197676_ - _path197679_)))) - (let ((_path197679_ - _g197657197666_)) + (_K198822198837_ + _path198840_)))) + (let ((_path198840_ + _g198818198827_)) (declare (not safe)) - (_K197661197676_ - _path197679_))))))) + (_K198822198837_ + _path198840_))))))) (declare (not safe)) - (cons __tmp213475 '())))) + (cons __tmp214636 '())))) (declare (not safe)) - (cons 'import: __tmp213474)) + (cons 'import: __tmp214635)) '#t)) - (_out197698_ - (if (let () (declare (not safe)) (fxzero? _phi197655_)) - _out197696_ - (let ((__tmp213476 - (let ((__tmp213477 + (_out198859_ + (if (let () (declare (not safe)) (fxzero? _phi198816_)) + _out198857_ + (let ((__tmp214637 + (let ((__tmp214638 (let () (declare (not safe)) - (cons _out197696_ '())))) + (cons _out198857_ '())))) (declare (not safe)) - (cons _phi197655_ __tmp213477)))) + (cons _phi198816_ __tmp214638)))) (declare (not safe)) - (cons 'phi: __tmp213476))))) - (let ((__tmp213478 + (cons 'phi: __tmp214637))))) + (let ((__tmp214639 (let () (declare (not safe)) - (cons _out197698_ _r197612_)))) + (cons _out198859_ _r198773_)))) (declare (not safe)) - (_lp197609_ _rest197632_ __tmp213478)))))) + (_lp198770_ _rest198793_ __tmp214639)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match197636197714_ + (let ((_try-match198797198875_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - _out197634197647_ + _out198795198808_ 'gx#export-set::t)) - (let* ((_e197639197704_ + (let* ((_e198800198865_ (let () (declare (not safe)) (##unchecked-structure-ref - _out197634197647_ + _out198795198808_ '1 gx#export-set::t '#f))) - (_e197640197709_ + (_e198801198870_ (let () (declare (not safe)) (##unchecked-structure-ref - _out197634197647_ + _out198795198808_ '2 gx#export-set::t '#f)))) - (let ((_src197707_ _e197639197704_) - (_phi197712_ _e197640197709_)) + (let ((_src198868_ _e198800198865_) + (_phi198873_ _e198801198870_)) (let () (declare (not safe)) - (_K197638197701_ _phi197712_ _src197707_)))) - (let () (declare (not safe)) (_E197637197651_)))))) + (_K198799198862_ _phi198873_ _src198868_)))) + (let () (declare (not safe)) (_E198798198812_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _out197634197647_ + _out198795198808_ 'gx#module-export::t)) - (let* ((_e197642197724_ + (let* ((_e198803198885_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _out197634197647_ + _out198795198808_ '1 gx#module-export::t '#f))) - (_e197643197727_ + (_e198804198888_ (let () (declare (not safe)) (##unchecked-structure-ref - _out197634197647_ + _out198795198808_ '2 gx#module-export::t '#f))) - (_e197644197732_ + (_e198805198893_ (let () (declare (not safe)) (##unchecked-structure-ref - _out197634197647_ + _out198795198808_ '3 gx#module-export::t '#f))) - (_e197645197737_ + (_e198806198898_ (let () (declare (not safe)) (##unchecked-structure-ref - _out197634197647_ + _out198795198808_ '4 gx#module-export::t '#f)))) - (let ((_key197730_ _e197643197727_) - (_phi197735_ _e197644197732_) - (_name197740_ _e197645197737_)) + (let ((_key198891_ _e198804198888_) + (_phi198896_ _e198805198893_) + (_name198901_ _e198806198898_)) (let () (declare (not safe)) - (_K197641197721_ _name197740_ _phi197735_ _key197730_)))) - (let () (declare (not safe)) (_try-match197636197714_))))))))) + (_K198802198882_ _name198901_ _phi198896_ _key198891_)))) + (let () (declare (not safe)) (_try-match198797198875_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest197613197621_)) - (let ((_hd197618197745_ + (##pair? _rest198774198782_)) + (let ((_hd198779198906_ (let () (declare (not safe)) - (##car _rest197613197621_))) - (_tl197619197747_ + (##car _rest198774198782_))) + (_tl198780198908_ (let () (declare (not safe)) - (##cdr _rest197613197621_)))) - (let* ((_out197750_ - _hd197618197745_) - (_rest197752_ - _tl197619197747_)) + (##cdr _rest198774198782_)))) + (let* ((_out198911_ + _hd198779198906_) + (_rest198913_ + _tl198780198908_)) (declare (not safe)) - (_K197617197742_ - _rest197752_ - _out197750_))) + (_K198778198903_ + _rest198913_ + _out198911_))) (let () (declare (not safe)) - (_else197615197629_)))))) - _tl197578197595_))) + (_else198776198790_)))))) + _tl198739198756_))) (let () (declare (not safe)) - (_g197575197585_ _g197576197588_)))))) + (_g198736198746_ _g198737198749_)))))) (declare (not safe)) - (_g197574197754_ _stx197569_))))) + (_g198735198915_ _stx198730_))))) (define gxc#generate-meta-provide% - (lambda (_stx197530_ _state197531_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state197531_)) - (let* ((_g197533197543_ - (lambda (_g197534197540_) + (lambda (_stx198691_ _state198692_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state198692_)) + (let* ((_g198694198704_ + (lambda (_g198695198701_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197534197540_)))) - (_g197532197566_ - (lambda (_g197534197546_) + _g198695198701_)))) + (_g198693198727_ + (lambda (_g198695198707_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197534197546_)) - (let ((_e197538197548_ + (gx#stx-pair? _g198695198707_)) + (let ((_e198699198709_ (let () (declare (not safe)) - (gx#stx-e _g197534197546_)))) - (let ((_hd197537197551_ + (gx#stx-e _g198695198707_)))) + (let ((_hd198698198712_ (let () (declare (not safe)) - (##car _e197538197548_))) - (_tl197536197553_ + (##car _e198699198709_))) + (_tl198697198714_ (let () (declare (not safe)) - (##cdr _e197538197548_)))) - ((lambda (_L197556_) - (let ((__tmp213479 + (##cdr _e198699198709_)))) + ((lambda (_L198717_) + (let ((__tmp214640 (map gxc#generate-runtime-identifier - _L197556_))) + _L198717_))) (declare (not safe)) - (cons '%#provide __tmp213479))) - _tl197536197553_))) + (cons '%#provide __tmp214640))) + _tl198697198714_))) (let () (declare (not safe)) - (_g197533197543_ _g197534197546_)))))) + (_g198694198704_ _g198695198707_)))))) (declare (not safe)) - (_g197532197566_ _stx197530_)))) + (_g198693198727_ _stx198691_)))) (define gxc#generate-meta-extern% - (lambda (_stx197401_ _state197402_) - (letrec ((_generate1197404_ - (lambda (_id197525_ _eid197526_) - (let ((_eid197528_ + (lambda (_stx198562_ _state198563_) + (letrec ((_generate1198565_ + (lambda (_id198686_ _eid198687_) + (let ((_eid198689_ (let () (declare (not safe)) - (gx#stx-e _eid197526_)))) - (if (interned-symbol? _eid197528_) + (gx#stx-e _eid198687_)))) + (if (interned-symbol? _eid198689_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _stx197401_ - _eid197528_))) - (let ((__tmp213481 + _stx198562_ + _eid198689_))) + (let ((__tmp214642 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id197525_))) - (__tmp213480 + (gxc#generate-runtime-identifier _id198686_))) + (__tmp214641 (let () (declare (not safe)) - (cons _eid197528_ '())))) + (cons _eid198689_ '())))) (declare (not safe)) - (cons __tmp213481 __tmp213480)))))) - (let* ((_g197406197434_ - (lambda (_g197407197431_) + (cons __tmp214642 __tmp214641)))))) + (let* ((_g198567198595_ + (lambda (_g198568198592_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197407197431_)))) - (_g197405197522_ - (lambda (_g197407197437_) + _g198568198592_)))) + (_g198566198683_ + (lambda (_g198568198598_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197407197437_)) - (let ((_e197412197439_ + (gx#stx-pair? _g198568198598_)) + (let ((_e198573198600_ (let () (declare (not safe)) - (gx#stx-e _g197407197437_)))) - (let ((_hd197411197442_ + (gx#stx-e _g198568198598_)))) + (let ((_hd198572198603_ (let () (declare (not safe)) - (##car _e197412197439_))) - (_tl197410197444_ + (##car _e198573198600_))) + (_tl198571198605_ (let () (declare (not safe)) - (##cdr _e197412197439_)))) + (##cdr _e198573198600_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl197410197444_)) - (let ((_g213482_ + (gx#stx-pair/null? _tl198571198605_)) + (let ((_g214643_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl197410197444_ + _tl198571198605_ '0)))) (begin - (let ((_g213483_ + (let ((_g214644_ (let () (declare (not safe)) - (if (##values? _g213482_) - (##vector-length _g213482_) + (if (##values? _g214643_) + (##vector-length _g214643_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g213483_ 2))) + (##fx= _g214644_ 2))) (error "Context expects 2 values" - _g213483_))) - (let ((_target197413197447_ + _g214644_))) + (let ((_target198574198608_ (let () (declare (not safe)) - (##vector-ref _g213482_ 0))) - (_tl197415197449_ + (##vector-ref _g214643_ 0))) + (_tl198576198610_ (let () (declare (not safe)) - (##vector-ref _g213482_ 1)))) + (##vector-ref _g214643_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197415197449_)) - (letrec ((_loop197416197452_ - (lambda (_hd197414197455_ - _eid197420197457_ - _id197421197459_) + (gx#stx-null? _tl198576198610_)) + (letrec ((_loop198577198613_ + (lambda (_hd198575198616_ + _eid198581198618_ + _id198582198620_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd197414197455_)) - (let ((_e197417197462_ + _hd198575198616_)) + (let ((_e198578198623_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd197414197455_)))) - (let ((_lp-hd197418197465_ + (gx#stx-e _hd198575198616_)))) + (let ((_lp-hd198579198626_ (let () (declare (not safe)) - (##car _e197417197462_))) - (_lp-tl197419197467_ + (##car _e198578198623_))) + (_lp-tl198580198628_ (let () (declare (not safe)) - (##cdr _e197417197462_)))) + (##cdr _e198578198623_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd197418197465_)) - (let ((_e197426197470_ + (gx#stx-pair? _lp-hd198579198626_)) + (let ((_e198587198631_ (let () (declare (not safe)) - (gx#stx-e _lp-hd197418197465_)))) - (let ((_hd197425197473_ + (gx#stx-e _lp-hd198579198626_)))) + (let ((_hd198586198634_ (let () (declare (not safe)) - (##car _e197426197470_))) - (_tl197424197475_ + (##car _e198587198631_))) + (_tl198585198636_ (let () (declare (not safe)) - (##cdr _e197426197470_)))) + (##cdr _e198587198631_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197424197475_)) - (let ((_e197429197478_ + (gx#stx-pair? _tl198585198636_)) + (let ((_e198590198639_ (let () (declare (not safe)) - (gx#stx-e _tl197424197475_)))) - (let ((_hd197428197481_ + (gx#stx-e _tl198585198636_)))) + (let ((_hd198589198642_ (let () (declare (not safe)) - (##car _e197429197478_))) - (_tl197427197483_ + (##car _e198590198639_))) + (_tl198588198644_ (let () (declare (not safe)) - (##cdr _e197429197478_)))) + (##cdr _e198590198639_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl197427197483_)) - (let ((__tmp213488 + (gx#stx-null? _tl198588198644_)) + (let ((__tmp214649 (let () (declare (not safe)) - (cons _hd197428197481_ - _eid197420197457_))) - (__tmp213487 + (cons _hd198589198642_ + _eid198581198618_))) + (__tmp214648 (let () (declare (not safe)) - (cons _hd197425197473_ - _id197421197459_)))) + (cons _hd198586198634_ + _id198582198620_)))) (declare (not safe)) - (_loop197416197452_ - _lp-tl197419197467_ - __tmp213488 - __tmp213487)) + (_loop198577198613_ + _lp-tl198580198628_ + __tmp214649 + __tmp214648)) (let () (declare (not safe)) - (_g197406197434_ - _g197407197437_))))) + (_g198567198595_ + _g198568198598_))))) (let () (declare (not safe)) - (_g197406197434_ _g197407197437_))))) + (_g198567198595_ _g198568198598_))))) (let () (declare (not safe)) - (_g197406197434_ _g197407197437_))))) - (let ((_eid197422197486_ (reverse _eid197420197457_)) - (_id197423197488_ (reverse _id197421197459_))) - ((lambda (_L197491_ _L197492_) - (let ((__tmp213484 - (map _generate1197404_ - (let ((__tmp213485 - (lambda (_g197507197510_ - _g197508197512_) + (_g198567198595_ _g198568198598_))))) + (let ((_eid198583198647_ (reverse _eid198581198618_)) + (_id198584198649_ (reverse _id198582198620_))) + ((lambda (_L198652_ _L198653_) + (let ((__tmp214645 + (map _generate1198565_ + (let ((__tmp214646 + (lambda (_g198668198671_ + _g198669198673_) (let () (declare (not safe)) - (cons _g197507197510_ - _g197508197512_))))) + (cons _g198668198671_ + _g198669198673_))))) (declare (not safe)) - (foldr1 __tmp213485 '() _L197492_)) - (let ((__tmp213486 - (lambda (_g197514197517_ - _g197515197519_) + (foldr1 __tmp214646 '() _L198653_)) + (let ((__tmp214647 + (lambda (_g198675198678_ + _g198676198680_) (let () (declare (not safe)) - (cons _g197514197517_ - _g197515197519_))))) + (cons _g198675198678_ + _g198676198680_))))) (declare (not safe)) - (foldr1 __tmp213486 '() _L197491_))))) + (foldr1 __tmp214647 '() _L198652_))))) (declare (not safe)) - (cons '%#extern __tmp213484))) - _eid197422197486_ - _id197423197488_)))))) + (cons '%#extern __tmp214645))) + _eid198583198647_ + _id198584198649_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop197416197452_ - _target197413197447_ + (_loop198577198613_ + _target198574198608_ '() '()))) (let () (declare (not safe)) - (_g197406197434_ - _g197407197437_)))))) + (_g198567198595_ + _g198568198598_)))))) (let () (declare (not safe)) - (_g197406197434_ _g197407197437_))))) + (_g198567198595_ _g198568198598_))))) (let () (declare (not safe)) - (_g197406197434_ _g197407197437_)))))) + (_g198567198595_ _g198568198598_)))))) (declare (not safe)) - (_g197405197522_ _stx197401_))))) + (_g198566198683_ _stx198562_))))) (define gxc#generate-meta-define-values% - (lambda (_stx197191_ _state197192_) - (letrec ((_generate1197194_ - (lambda (_id197396_) - (let ((_eid197398_ + (lambda (_stx198352_ _state198353_) + (letrec ((_generate1198355_ + (lambda (_id198557_) + (let ((_eid198559_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _id197396_))) - (_ident197399_ + (gxc#generate-runtime-binding-id _id198557_))) + (_ident198560_ (let () (declare (not safe)) - (gxc#generate-runtime-identifier _id197396_)))) - (let ((__tmp213489 - (let ((__tmp213490 + (gxc#generate-runtime-identifier _id198557_)))) + (let ((__tmp214650 + (let ((__tmp214651 (let () (declare (not safe)) - (cons _eid197398_ '())))) + (cons _eid198559_ '())))) (declare (not safe)) - (cons _ident197399_ __tmp213490)))) + (cons _ident198560_ __tmp214651)))) (declare (not safe)) - (cons '%#define-runtime __tmp213489))))) - (_generate*197195_ - (lambda (_all197364_) - (let* ((_all197365197373_ _all197364_) - (_else197367197381_ + (cons '%#define-runtime __tmp214650))))) + (_generate*198356_ + (lambda (_all198525_) + (let* ((_all198526198534_ _all198525_) + (_else198528198542_ (lambda () (let () (declare (not safe)) - (cons '%#begin _all197364_)))) - (_K197369197386_ - (lambda (_one197384_) _one197384_))) + (cons '%#begin _all198525_)))) + (_K198530198547_ + (lambda (_one198545_) _one198545_))) (if (let () (declare (not safe)) - (##pair? _all197365197373_)) - (let ((_hd197370197389_ + (##pair? _all198526198534_)) + (let ((_hd198531198550_ (let () (declare (not safe)) - (##car _all197365197373_))) - (_tl197371197391_ + (##car _all198526198534_))) + (_tl198532198552_ (let () (declare (not safe)) - (##cdr _all197365197373_)))) - (let ((_one197394_ _hd197370197389_)) + (##cdr _all198526198534_)))) + (let ((_one198555_ _hd198531198550_)) (if (let () (declare (not safe)) - (##null? _tl197371197391_)) + (##null? _tl198532198552_)) (let () (declare (not safe)) - (_K197369197386_ _one197394_)) + (_K198530198547_ _one198555_)) (let () (declare (not safe)) - (_else197367197381_))))) + (_else198528198542_))))) (let () (declare (not safe)) - (_else197367197381_))))))) - (let* ((_g197197197214_ - (lambda (_g197198197211_) + (_else198528198542_))))))) + (let* ((_g198358198375_ + (lambda (_g198359198372_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197198197211_)))) - (_g197196197361_ - (lambda (_g197198197217_) + _g198359198372_)))) + (_g198357198522_ + (lambda (_g198359198378_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197198197217_)) - (let ((_e197203197219_ + (gx#stx-pair? _g198359198378_)) + (let ((_e198364198380_ (let () (declare (not safe)) - (gx#stx-e _g197198197217_)))) - (let ((_hd197202197222_ + (gx#stx-e _g198359198378_)))) + (let ((_hd198363198383_ (let () (declare (not safe)) - (##car _e197203197219_))) - (_tl197201197224_ + (##car _e198364198380_))) + (_tl198362198385_ (let () (declare (not safe)) - (##cdr _e197203197219_)))) + (##cdr _e198364198380_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197201197224_)) - (let ((_e197206197227_ + (gx#stx-pair? _tl198362198385_)) + (let ((_e198367198388_ (let () (declare (not safe)) - (gx#stx-e _tl197201197224_)))) - (let ((_hd197205197230_ + (gx#stx-e _tl198362198385_)))) + (let ((_hd198366198391_ (let () (declare (not safe)) - (##car _e197206197227_))) - (_tl197204197232_ + (##car _e198367198388_))) + (_tl198365198393_ (let () (declare (not safe)) - (##cdr _e197206197227_)))) + (##cdr _e198367198388_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197204197232_)) - (let ((_e197209197235_ + (gx#stx-pair? _tl198365198393_)) + (let ((_e198370198396_ (let () (declare (not safe)) (gx#stx-e - _tl197204197232_)))) - (let ((_hd197208197238_ + _tl198365198393_)))) + (let ((_hd198369198399_ (let () (declare (not safe)) - (##car _e197209197235_))) - (_tl197207197240_ + (##car _e198370198396_))) + (_tl198368198401_ (let () (declare (not safe)) - (##cdr _e197209197235_)))) + (##cdr _e198370198396_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197207197240_)) - ((lambda (_L197243_ - _L197244_) - (let _lp197260_ ((_rest197262_ + _tl198368198401_)) + ((lambda (_L198404_ + _L198405_) + (let _lp198421_ ((_rest198423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L197244_) - (_r197263_ '())) - (let* ((___stx212622212623_ _rest197262_) - (_g197268197285_ + _L198405_) + (_r198424_ '())) + (let* ((___stx213783213784_ _rest198423_) + (_g198429198446_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212622212623_))))) - (let ((___kont212624212625_ - (lambda (_L197348_) + ___stx213783213784_))))) + (let ((___kont213785213786_ + (lambda (_L198509_) (let () (declare (not safe)) - (_lp197260_ _L197348_ _r197263_)))) - (___kont212626212627_ - (lambda (_L197321_ _L197322_) - (let ((__tmp213491 - (let ((__tmp213492 + (_lp198421_ _L198509_ _r198424_)))) + (___kont213787213788_ + (lambda (_L198482_ _L198483_) + (let ((__tmp214652 + (let ((__tmp214653 (let () (declare (not safe)) - (_generate1197194_ _L197322_)))) + (_generate1198355_ _L198483_)))) (declare (not safe)) - (cons __tmp213492 _r197263_)))) + (cons __tmp214653 _r198424_)))) (declare (not safe)) - (_lp197260_ _L197321_ __tmp213491)))) - (___kont212628212629_ - (lambda (_L197297_) - (let ((__tmp213493 - (let ((__tmp213494 - (let ((__tmp213495 + (_lp198421_ _L198482_ __tmp214652)))) + (___kont213789213790_ + (lambda (_L198458_) + (let ((__tmp214654 + (let ((__tmp214655 + (let ((__tmp214656 (let () (declare (not safe)) - (_generate1197194_ - _L197297_)))) + (_generate1198355_ + _L198458_)))) (declare (not safe)) - (cons __tmp213495 '())))) + (cons __tmp214656 '())))) (declare (not safe)) - (foldl1 cons __tmp213494 _r197263_)))) + (foldl1 cons __tmp214655 _r198424_)))) (declare (not safe)) - (_generate*197195_ __tmp213493)))) - (___kont212630212631_ + (_generate*198356_ __tmp214654)))) + (___kont213791213792_ (lambda () - (let ((__tmp213496 (reverse _r197263_))) + (let ((__tmp214657 (reverse _r198424_))) (declare (not safe)) - (_generate*197195_ __tmp213496))))) - (let ((_g197266197308_ + (_generate*198356_ __tmp214657))))) + (let ((_g198427198469_ (lambda () - (let ((_L197297_ ___stx212622212623_)) + (let ((_L198458_ ___stx213783213784_)) (if (let () (declare (not safe)) - (gx#identifier? _L197297_)) - (___kont212628212629_ _L197297_) - (___kont212630212631_)))))) + (gx#identifier? _L198458_)) + (___kont213789213790_ _L198458_) + (___kont213791213792_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212622212623_)) - (let ((_e197273197337_ + (gx#stx-pair? ___stx213783213784_)) + (let ((_e198434198498_ (let () (declare (not safe)) - (gx#stx-e ___stx212622212623_)))) - (let ((_tl197271197342_ + (gx#stx-e ___stx213783213784_)))) + (let ((_tl198432198503_ (let () (declare (not safe)) - (##cdr _e197273197337_))) - (_hd197272197340_ + (##cdr _e198434198498_))) + (_hd198433198501_ (let () (declare (not safe)) - (##car _e197273197337_)))) + (##car _e198434198498_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd197272197340_)) - (let ((_e197274197345_ + (gx#stx-datum? _hd198433198501_)) + (let ((_e198435198506_ (let () (declare (not safe)) - (gx#stx-e _hd197272197340_)))) + (gx#stx-e _hd198433198501_)))) (if (let () (declare (not safe)) - (equal? _e197274197345_ '#f)) - (___kont212624212625_ _tl197271197342_) - (___kont212626212627_ - _tl197271197342_ - _hd197272197340_))) - (___kont212626212627_ - _tl197271197342_ - _hd197272197340_)))) - (let () (declare (not safe)) (_g197266197308_)))))))) + (equal? _e198435198506_ '#f)) + (___kont213785213786_ _tl198432198503_) + (___kont213787213788_ + _tl198432198503_ + _hd198433198501_))) + (___kont213787213788_ + _tl198432198503_ + _hd198433198501_)))) + (let () (declare (not safe)) (_g198427198469_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd197208197238_ - _hd197205197230_) + _hd198369198399_ + _hd198366198391_) (let () (declare (not safe)) - (_g197197197214_ - _g197198197217_))))) + (_g198358198375_ + _g198359198378_))))) (let () (declare (not safe)) - (_g197197197214_ - _g197198197217_))))) + (_g198358198375_ + _g198359198378_))))) (let () (declare (not safe)) - (_g197197197214_ _g197198197217_))))) + (_g198358198375_ _g198359198378_))))) (let () (declare (not safe)) - (_g197197197214_ _g197198197217_)))))) + (_g198358198375_ _g198359198378_)))))) (declare (not safe)) - (_g197196197361_ _stx197191_))))) + (_g198357198522_ _stx198352_))))) (define gxc#generate-meta-define-syntax% - (lambda (_stx197088_ _state197089_) - (let* ((_g197091197108_ - (lambda (_g197092197105_) + (lambda (_stx198249_ _state198250_) + (let* ((_g198252198269_ + (lambda (_g198253198266_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197092197105_)))) - (_g197090197188_ - (lambda (_g197092197111_) + _g198253198266_)))) + (_g198251198349_ + (lambda (_g198253198272_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197092197111_)) - (let ((_e197097197113_ + (gx#stx-pair? _g198253198272_)) + (let ((_e198258198274_ (let () (declare (not safe)) - (gx#stx-e _g197092197111_)))) - (let ((_hd197096197116_ + (gx#stx-e _g198253198272_)))) + (let ((_hd198257198277_ (let () (declare (not safe)) - (##car _e197097197113_))) - (_tl197095197118_ + (##car _e198258198274_))) + (_tl198256198279_ (let () (declare (not safe)) - (##cdr _e197097197113_)))) + (##cdr _e198258198274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197095197118_)) - (let ((_e197100197121_ + (gx#stx-pair? _tl198256198279_)) + (let ((_e198261198282_ (let () (declare (not safe)) - (gx#stx-e _tl197095197118_)))) - (let ((_hd197099197124_ + (gx#stx-e _tl198256198279_)))) + (let ((_hd198260198285_ (let () (declare (not safe)) - (##car _e197100197121_))) - (_tl197098197126_ + (##car _e198261198282_))) + (_tl198259198287_ (let () (declare (not safe)) - (##cdr _e197100197121_)))) + (##cdr _e198261198282_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197098197126_)) - (let ((_e197103197129_ + (gx#stx-pair? _tl198259198287_)) + (let ((_e198264198290_ (let () (declare (not safe)) - (gx#stx-e _tl197098197126_)))) - (let ((_hd197102197132_ + (gx#stx-e _tl198259198287_)))) + (let ((_hd198263198293_ (let () (declare (not safe)) - (##car _e197103197129_))) - (_tl197101197134_ + (##car _e198264198290_))) + (_tl198262198295_ (let () (declare (not safe)) - (##cdr _e197103197129_)))) + (##cdr _e198264198290_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197101197134_)) - ((lambda (_L197137_ _L197138_) - (let* ((_eid197153_ + _tl198262198295_)) + ((lambda (_L198298_ _L198299_) + (let* ((_eid198314_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _L197138_))) - (_phi197155_ - (let ((__tmp213497 + _L198299_))) + (_phi198316_ + (let ((__tmp214658 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp213497 '1))) - (_block197157_ + (fx+ __tmp214658 '1))) + (_block198318_ (let () (declare (not safe)) - (gxc#meta-state-begin-phi! _state197089_ _phi197155_)))) + (gxc#meta-state-begin-phi! _state198250_ _phi198316_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_g197160197167_ - (lambda (_g197161197164_) + (let* ((_g198321198328_ + (lambda (_g198322198325_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197161197164_)))) - (_g197159197185_ - (lambda (_g197161197170_) - ((lambda (_L197172_) + _g198322198325_)))) + (_g198320198346_ + (lambda (_g198322198331_) + ((lambda (_L198333_) (let () - (let ((__tmp213498 - (let ((__tmp213501 + (let ((__tmp214659 + (let ((__tmp214662 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime))) - (__tmp213499 - (let ((__tmp213500 + (__tmp214660 + (let ((__tmp214661 (let () (declare (not safe)) - (cons _L197137_ '())))) + (cons _L198298_ '())))) (declare (not safe)) - (cons _L197172_ __tmp213500)))) + (cons _L198333_ __tmp214661)))) (declare (not safe)) - (cons __tmp213501 __tmp213499)))) + (cons __tmp214662 __tmp214660)))) (declare (not safe)) (gxc#meta-state-add-phi! - _state197089_ - _phi197155_ - __tmp213498)))) - _g197161197170_)))) + _state198250_ + _phi198316_ + __tmp214659)))) + _g198322198331_)))) (declare (not safe)) - (_g197159197185_ _eid197153_)) + (_g198320198346_ _eid198314_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _block197157_ - (let ((__tmp213505 - (let ((__tmp213511 + (if _block198318_ + (let ((__tmp214666 + (let ((__tmp214672 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213512 - (let ((__tmp213513 - (let ((__tmp213514 - (let ((__tmp213518 - (let ((__tmp213519 + (let ((__tmp214673 + (let ((__tmp214674 + (let ((__tmp214675 + (let ((__tmp214679 + (let ((__tmp214680 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'load-module '())))) (declare (not safe)) - (cons '%#ref __tmp213519))) - (__tmp213515 - (let ((__tmp213516 - (let ((__tmp213517 + (cons '%#ref __tmp214680))) + (__tmp214676 + (let ((__tmp214677 + (let ((__tmp214678 (let () (declare (not safe)) - (cons _block197157_ '())))) + (cons _block198318_ '())))) (declare (not safe)) - (cons '%#quote __tmp213517)))) + (cons '%#quote __tmp214678)))) (declare (not safe)) - (cons __tmp213516 '())))) + (cons __tmp214677 '())))) (declare (not safe)) - (cons __tmp213518 __tmp213515)))) + (cons __tmp214679 __tmp214676)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp213514)))) + (cons '%#call __tmp214675)))) (declare (not safe)) - (cons __tmp213513 '())))) + (cons __tmp214674 '())))) (declare (not safe)) - (cons '%#begin-syntax __tmp213512))) - (__tmp213506 - (let ((__tmp213507 - (let ((__tmp213508 - (let ((__tmp213510 + (cons '%#begin-syntax __tmp214673))) + (__tmp214667 + (let ((__tmp214668 + (let ((__tmp214669 + (let ((__tmp214671 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L197138_))) - (__tmp213509 + _L198299_))) + (__tmp214670 (let () (declare (not safe)) - (cons _eid197153_ '())))) + (cons _eid198314_ '())))) (declare (not safe)) - (cons __tmp213510 - __tmp213509)))) + (cons __tmp214671 + __tmp214670)))) (declare (not safe)) - (cons '%#define-syntax __tmp213508)))) + (cons '%#define-syntax __tmp214669)))) (declare (not safe)) - (cons __tmp213507 '())))) + (cons __tmp214668 '())))) (declare (not safe)) - (cons __tmp213511 __tmp213506)))) + (cons __tmp214672 __tmp214667)))) (declare (not safe)) - (cons '%#begin __tmp213505)) - (let ((__tmp213502 - (let ((__tmp213504 + (cons '%#begin __tmp214666)) + (let ((__tmp214663 + (let ((__tmp214665 (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L197138_))) - (__tmp213503 + (gxc#generate-runtime-identifier _L198299_))) + (__tmp214664 (let () (declare (not safe)) - (cons _eid197153_ '())))) + (cons _eid198314_ '())))) (declare (not safe)) - (cons __tmp213504 __tmp213503)))) + (cons __tmp214665 __tmp214664)))) (declare (not safe)) - (cons '%#define-syntax __tmp213502))))) + (cons '%#define-syntax __tmp214663))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd197102197132_ - _hd197099197124_) + _hd198263198293_ + _hd198260198285_) (let () (declare (not safe)) - (_g197091197108_ - _g197092197111_))))) + (_g198252198269_ + _g198253198272_))))) (let () (declare (not safe)) - (_g197091197108_ _g197092197111_))))) + (_g198252198269_ _g198253198272_))))) (let () (declare (not safe)) - (_g197091197108_ _g197092197111_))))) + (_g198252198269_ _g198253198272_))))) (let () (declare (not safe)) - (_g197091197108_ _g197092197111_)))))) + (_g198252198269_ _g198253198272_)))))) (declare (not safe)) - (_g197090197188_ _stx197088_)))) + (_g198251198349_ _stx198249_)))) (define gxc#generate-meta-define-alias% - (lambda (_stx197020_ _state197021_) - (let* ((_g197023197040_ - (lambda (_g197024197037_) + (lambda (_stx198181_ _state198182_) + (let* ((_g198184198201_ + (lambda (_g198185198198_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g197024197037_)))) - (_g197022197085_ - (lambda (_g197024197043_) + _g198185198198_)))) + (_g198183198246_ + (lambda (_g198185198204_) (if (let () (declare (not safe)) - (gx#stx-pair? _g197024197043_)) - (let ((_e197029197045_ + (gx#stx-pair? _g198185198204_)) + (let ((_e198190198206_ (let () (declare (not safe)) - (gx#stx-e _g197024197043_)))) - (let ((_hd197028197048_ + (gx#stx-e _g198185198204_)))) + (let ((_hd198189198209_ (let () (declare (not safe)) - (##car _e197029197045_))) - (_tl197027197050_ + (##car _e198190198206_))) + (_tl198188198211_ (let () (declare (not safe)) - (##cdr _e197029197045_)))) + (##cdr _e198190198206_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197027197050_)) - (let ((_e197032197053_ + (gx#stx-pair? _tl198188198211_)) + (let ((_e198193198214_ (let () (declare (not safe)) - (gx#stx-e _tl197027197050_)))) - (let ((_hd197031197056_ + (gx#stx-e _tl198188198211_)))) + (let ((_hd198192198217_ (let () (declare (not safe)) - (##car _e197032197053_))) - (_tl197030197058_ + (##car _e198193198214_))) + (_tl198191198219_ (let () (declare (not safe)) - (##cdr _e197032197053_)))) + (##cdr _e198193198214_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl197030197058_)) - (let ((_e197035197061_ + (gx#stx-pair? _tl198191198219_)) + (let ((_e198196198222_ (let () (declare (not safe)) - (gx#stx-e _tl197030197058_)))) - (let ((_hd197034197064_ + (gx#stx-e _tl198191198219_)))) + (let ((_hd198195198225_ (let () (declare (not safe)) - (##car _e197035197061_))) - (_tl197033197066_ + (##car _e198196198222_))) + (_tl198194198227_ (let () (declare (not safe)) - (##cdr _e197035197061_)))) + (##cdr _e198196198222_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl197033197066_)) - ((lambda (_L197069_ _L197070_) - (let ((__tmp213520 - (let ((__tmp213523 + _tl198194198227_)) + ((lambda (_L198230_ _L198231_) + (let ((__tmp214681 + (let ((__tmp214684 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-identifier _L197070_))) - (__tmp213521 - (let ((__tmp213522 + (gxc#generate-runtime-identifier _L198231_))) + (__tmp214682 + (let ((__tmp214683 (let () (declare (not safe)) (gxc#generate-runtime-identifier - _L197069_)))) + _L198230_)))) (declare (not safe)) - (cons __tmp213522 '())))) + (cons __tmp214683 '())))) (declare (not safe)) - (cons __tmp213523 __tmp213521)))) + (cons __tmp214684 __tmp214682)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#define-alias - __tmp213520))) - _hd197034197064_ - _hd197031197056_) + __tmp214681))) + _hd198195198225_ + _hd198192198217_) (let () (declare (not safe)) - (_g197023197040_ - _g197024197043_))))) + (_g198184198201_ + _g198185198204_))))) (let () (declare (not safe)) - (_g197023197040_ _g197024197043_))))) + (_g198184198201_ _g198185198204_))))) (let () (declare (not safe)) - (_g197023197040_ _g197024197043_))))) + (_g198184198201_ _g198185198204_))))) (let () (declare (not safe)) - (_g197023197040_ _g197024197043_)))))) + (_g198184198201_ _g198185198204_)))))) (declare (not safe)) - (_g197022197085_ _stx197020_)))) + (_g198183198246_ _stx198181_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_stx197017_ _state197018_) - (let ((__tmp213524 (gx#current-expander-phi))) + (lambda (_stx198178_ _state198179_) + (let ((__tmp214685 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state197018_ __tmp213524 _stx197017_)) + (gxc#meta-state-add-phi! _state198179_ __tmp214685 _stx198178_)) (let () (declare (not safe)) - (gxc#generate-meta-define-values% _stx197017_ _state197018_)))) + (gxc#generate-meta-define-values% _stx198178_ _state198179_)))) (define gxc#generate-meta-phi-expr - (lambda (_stx197014_ _state197015_) - (let ((__tmp213525 (gx#current-expander-phi))) + (lambda (_stx198175_ _state198176_) + (let ((__tmp214686 (gx#current-expander-phi))) (declare (not safe)) - (gxc#meta-state-add-phi! _state197015_ __tmp213525 _stx197014_)) + (gxc#meta-state-add-phi! _state198176_ __tmp214686 _stx198175_)) '#!void)) (define gxc#meta-state::t - (let ((__tmp213528 (list)) - (__tmp213526 - (let ((__tmp213527 + (let ((__tmp214689 (list)) + (__tmp214687 + (let ((__tmp214688 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp213527 '())))) + (cons __tmp214688 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state::t 'meta-state - __tmp213528 + __tmp214689 '(src n open blocks) - __tmp213526 + __tmp214687 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _$args197011_ - (apply make-instance gxc#meta-state::t _$args197011_))) + (lambda _$args198172_ + (apply make-instance gxc#meta-state::t _$args198172_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -18163,100 +18163,100 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_self197008_ _ctx197009_) - (if (let ((__tmp213536 + (lambda (_self198169_ _ctx198170_) + (if (let ((__tmp214697 (let () (declare (not safe)) - (##structure-length _self197008_)))) + (##structure-length _self198169_)))) (declare (not safe)) - (##fx< '4 __tmp213536)) + (##fx< '4 __tmp214697)) (begin - (let ((__tmp213530 - (let ((__tmp213531 + (let ((__tmp214691 + (let ((__tmp214692 (##structure-ref - _ctx197009_ + _ctx198170_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp213531))) - (__tmp213529 + (gxc#module-id->path-string __tmp214692))) + (__tmp214690 (let () (declare (not safe)) - (##structure-type _self197008_)))) + (##structure-type _self198169_)))) (declare (not safe)) (##unchecked-structure-set! - _self197008_ - __tmp213530 + _self198169_ + __tmp214691 '1 - __tmp213529 + __tmp214690 '#f)) - (let ((__tmp213532 + (let ((__tmp214693 (let () (declare (not safe)) - (##structure-type _self197008_)))) + (##structure-type _self198169_)))) (declare (not safe)) (##unchecked-structure-set! - _self197008_ + _self198169_ '1 '2 - __tmp213532 + __tmp214693 '#f)) - (let ((__tmp213534 + (let ((__tmp214695 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp213533 + (__tmp214694 (let () (declare (not safe)) - (##structure-type _self197008_)))) + (##structure-type _self198169_)))) (declare (not safe)) (##unchecked-structure-set! - _self197008_ - __tmp213534 + _self198169_ + __tmp214695 '3 - __tmp213533 + __tmp214694 '#f)) - (let ((__tmp213535 + (let ((__tmp214696 (let () (declare (not safe)) - (##structure-type _self197008_)))) + (##structure-type _self198169_)))) (declare (not safe)) (##unchecked-structure-set! - _self197008_ + _self198169_ '() '4 - __tmp213535 + __tmp214696 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self197008_ + _self198169_ '4 (let () (declare (not safe)) - (##vector-length _self197008_)))))) + (##vector-length _self198169_)))))) (let () (declare (not safe)) (bind-method! gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp213539 (list)) - (__tmp213537 - (let ((__tmp213538 + (let ((__tmp214700 (list)) + (__tmp214698 + (let ((__tmp214699 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp213538 '())))) + (cons __tmp214699 '())))) (declare (not safe)) (make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp213539 + __tmp214700 '(ctx phi n code) - __tmp213537 + __tmp214698 '#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 _$args196883_ - (apply make-instance gxc#meta-state-block::t _$args196883_))) + (lambda _$args198044_ + (apply make-instance gxc#meta-state-block::t _$args198044_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -18322,1263 +18322,1263 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_state196842_ _phi196843_) - (let* ((_state196844196852_ _state196842_) - (_E196846196856_ + (lambda (_state198003_ _phi198004_) + (let* ((_state198005198013_ _state198003_) + (_E198007198017_ (lambda () - (error '"No clause matching" _state196844196852_))) - (_K196847196865_ - (lambda (_open196859_ _n196860_ _src196861_) + (error '"No clause matching" _state198005198013_))) + (_K198008198026_ + (lambda (_open198020_ _n198021_ _src198022_) (if (let () (declare (not safe)) - (table-ref _open196859_ _phi196843_ '#f)) + (table-ref _open198020_ _phi198004_ '#f)) '#f - (let ((_block-ref196863_ + (let ((_block-ref198024_ (string-append - _src196861_ + _src198022_ '"__" - (number->string _n196860_)))) + (number->string _n198021_)))) (##structure-set! - _state196842_ - (let () (declare (not safe)) (fx+ _n196860_ '1)) + _state198003_ + (let () (declare (not safe)) (fx+ _n198021_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp213540 - (let ((__tmp213541 + (let ((__tmp214701 + (let ((__tmp214702 (gx#current-expander-context))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp213541 - _phi196843_ - _n196860_ + __tmp214702 + _phi198004_ + _n198021_ '())))) (declare (not safe)) - (table-set! _open196859_ _phi196843_ __tmp213540)) - _block-ref196863_))))) + (table-set! _open198020_ _phi198004_ __tmp214701)) + _block-ref198024_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _state196844196852_ + _state198005198013_ 'gxc#meta-state::t)) - (let* ((_e196848196868_ + (let* ((_e198009198029_ (let () (declare (not safe)) (##unchecked-structure-ref - _state196844196852_ + _state198005198013_ '1 gxc#meta-state::t '#f))) - (_src196871_ _e196848196868_) - (_e196849196873_ + (_src198032_ _e198009198029_) + (_e198010198034_ (let () (declare (not safe)) (##unchecked-structure-ref - _state196844196852_ + _state198005198013_ '2 gxc#meta-state::t '#f))) - (_n196876_ _e196849196873_) - (_e196850196878_ + (_n198037_ _e198010198034_) + (_e198011198039_ (let () (declare (not safe)) (##unchecked-structure-ref - _state196844196852_ + _state198005198013_ '3 gxc#meta-state::t '#f))) - (_open196881_ _e196850196878_)) + (_open198042_ _e198011198039_)) (declare (not safe)) - (_K196847196865_ _open196881_ _n196876_ _src196871_)) - (let () (declare (not safe)) (_E196846196856_)))))) + (_K198008198026_ _open198042_ _n198037_ _src198032_)) + (let () (declare (not safe)) (_E198007198017_)))))) (define gxc#meta-state-add-phi! - (lambda (_state196836_ _phi196837_ _stx196838_) - (let ((_block196840_ - (let ((__tmp213542 + (lambda (_state197997_ _phi197998_ _stx197999_) + (let ((_block198001_ + (let ((__tmp214703 (##structure-ref - _state196836_ + _state197997_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (table-ref __tmp213542 _phi196837_ '#f)))) + (table-ref __tmp214703 _phi197998_ '#f)))) (##structure-set! - _block196840_ - (let ((__tmp213543 + _block198001_ + (let ((__tmp214704 (##structure-ref - _block196840_ + _block198001_ '4 gxc#meta-state-block::t '#f))) (declare (not safe)) - (cons _stx196838_ __tmp213543)) + (cons _stx197999_ __tmp214704)) '4 gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_state196831_) + (lambda (_state197992_) (##structure-set! - _state196831_ - (let ((__tmp213546 - (lambda (_g213547_ _block196833_ _r196834_) + _state197992_ + (let ((__tmp214707 + (lambda (_g214708_ _block197994_ _r197995_) (let () (declare (not safe)) - (cons _block196833_ _r196834_)))) - (__tmp213545 - (##structure-ref _state196831_ '4 gxc#meta-state::t '#f)) - (__tmp213544 - (##structure-ref _state196831_ '3 gxc#meta-state::t '#f))) + (cons _block197994_ _r197995_)))) + (__tmp214706 + (##structure-ref _state197992_ '4 gxc#meta-state::t '#f)) + (__tmp214705 + (##structure-ref _state197992_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp213546 __tmp213545 __tmp213544)) + (hash-fold __tmp214707 __tmp214706 __tmp214705)) '4 gxc#meta-state::t '#f) (##structure-set! - _state196831_ + _state197992_ (let () (declare (not safe)) (make-table 'test: eq?)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_state196783_) - (let () (declare (not safe)) (gxc#meta-state-end-phi! _state196783_)) - (let ((__tmp213549 - (lambda (_block196785_ _r196786_) - (let* ((_block196787196796_ _block196785_) - (_E196789196800_ + (lambda (_state197944_) + (let () (declare (not safe)) (gxc#meta-state-end-phi! _state197944_)) + (let ((__tmp214710 + (lambda (_block197946_ _r197947_) + (let* ((_block197948197957_ _block197946_) + (_E197950197961_ (lambda () (error '"No clause matching" - _block196787196796_))) - (_K196790196808_ - (lambda (_code196803_ - _n196804_ - _phi196805_ - _ctx196806_) + _block197948197957_))) + (_K197951197969_ + (lambda (_code197964_ + _n197965_ + _phi197966_ + _ctx197967_) (if (let () (declare (not safe)) - (null? _code196803_)) - _r196786_ - (let ((__tmp213550 - (let ((__tmp213551 - (let ((__tmp213552 - (let ((__tmp213553 - (let ((__tmp213554 + (null? _code197964_)) + _r197947_ + (let ((__tmp214711 + (let ((__tmp214712 + (let ((__tmp214713 + (let ((__tmp214714 + (let ((__tmp214715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213555 (reverse _code196803_))) + (let ((__tmp214716 (reverse _code197964_))) (declare (not safe)) - (cons '%#begin __tmp213555)))) + (cons '%#begin __tmp214716)))) (declare (not safe)) - (cons __tmp213554 '())))) + (cons __tmp214715 '())))) (declare (not safe)) - (cons _n196804_ __tmp213553)))) + (cons _n197965_ __tmp214714)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _phi196805_ - __tmp213552)))) + (cons _phi197966_ + __tmp214713)))) (declare (not safe)) - (cons _ctx196806_ __tmp213551)))) + (cons _ctx197967_ __tmp214712)))) (declare (not safe)) - (cons __tmp213550 _r196786_)))))) + (cons __tmp214711 _r197947_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _block196787196796_ + _block197948197957_ 'gxc#meta-state-block::t)) - (let* ((_e196791196811_ + (let* ((_e197952197972_ (let () (declare (not safe)) (##unchecked-structure-ref - _block196787196796_ + _block197948197957_ '1 gxc#meta-state-block::t '#f))) - (_ctx196814_ _e196791196811_) - (_e196792196816_ + (_ctx197975_ _e197952197972_) + (_e197953197977_ (let () (declare (not safe)) (##unchecked-structure-ref - _block196787196796_ + _block197948197957_ '2 gxc#meta-state-block::t '#f))) - (_phi196819_ _e196792196816_) - (_e196793196821_ + (_phi197980_ _e197953197977_) + (_e197954197982_ (let () (declare (not safe)) (##unchecked-structure-ref - _block196787196796_ + _block197948197957_ '3 gxc#meta-state-block::t '#f))) - (_n196824_ _e196793196821_) - (_e196794196826_ + (_n197985_ _e197954197982_) + (_e197955197987_ (let () (declare (not safe)) (##unchecked-structure-ref - _block196787196796_ + _block197948197957_ '4 gxc#meta-state-block::t '#f))) - (_code196829_ _e196794196826_)) + (_code197990_ _e197955197987_)) (declare (not safe)) - (_K196790196808_ - _code196829_ - _n196824_ - _phi196819_ - _ctx196814_)) - (let () (declare (not safe)) (_E196789196800_)))))) - (__tmp213548 - (##structure-ref _state196783_ '4 gxc#meta-state::t '#f))) + (_K197951197969_ + _code197990_ + _n197985_ + _phi197980_ + _ctx197975_)) + (let () (declare (not safe)) (_E197950197961_)))))) + (__tmp214709 + (##structure-ref _state197944_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (foldl1 __tmp213549 '() __tmp213548)))) + (foldl1 __tmp214710 '() __tmp214709)))) (define gxc#collect-expression-refs - (lambda (_stx196779_) - (let ((_ht196781_ + (lambda (_stx197940_) + (let ((_ht197942_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (gxc#apply-collect-expression-refs _stx196779_ _ht196781_)) - _ht196781_))) + (gxc#apply-collect-expression-refs _stx197940_ _ht197942_)) + _ht197942_))) (define gxc#collect-refs-ref% - (lambda (_stx196722_ _ht196723_) - (let* ((_g196725196738_ - (lambda (_g196726196735_) + (lambda (_stx197883_ _ht197884_) + (let* ((_g197886197899_ + (lambda (_g197887197896_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196726196735_)))) - (_g196724196776_ - (lambda (_g196726196741_) + _g197887197896_)))) + (_g197885197937_ + (lambda (_g197887197902_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196726196741_)) - (let ((_e196730196743_ + (gx#stx-pair? _g197887197902_)) + (let ((_e197891197904_ (let () (declare (not safe)) - (gx#stx-e _g196726196741_)))) - (let ((_hd196729196746_ + (gx#stx-e _g197887197902_)))) + (let ((_hd197890197907_ (let () (declare (not safe)) - (##car _e196730196743_))) - (_tl196728196748_ + (##car _e197891197904_))) + (_tl197889197909_ (let () (declare (not safe)) - (##cdr _e196730196743_)))) + (##cdr _e197891197904_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196728196748_)) - (let ((_e196733196751_ + (gx#stx-pair? _tl197889197909_)) + (let ((_e197894197912_ (let () (declare (not safe)) - (gx#stx-e _tl196728196748_)))) - (let ((_hd196732196754_ + (gx#stx-e _tl197889197909_)))) + (let ((_hd197893197915_ (let () (declare (not safe)) - (##car _e196733196751_))) - (_tl196731196756_ + (##car _e197894197912_))) + (_tl197892197917_ (let () (declare (not safe)) - (##cdr _e196733196751_)))) + (##cdr _e197894197912_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196731196756_)) - ((lambda (_L196759_) - (let* ((_bind196771_ + (gx#stx-null? _tl197892197917_)) + ((lambda (_L197920_) + (let* ((_bind197932_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L196759_))) - (_eid196773_ - (if _bind196771_ + _L197920_))) + (_eid197934_ + (if _bind197932_ (##structure-ref - _bind196771_ + _bind197932_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _L196759_))))) + _L197920_))))) (let () (declare (not safe)) (table-set! - _ht196723_ - _eid196773_ - _eid196773_)))) - _hd196732196754_) + _ht197884_ + _eid197934_ + _eid197934_)))) + _hd197893197915_) (let () (declare (not safe)) - (_g196725196738_ _g196726196741_))))) + (_g197886197899_ _g197887197902_))))) (let () (declare (not safe)) - (_g196725196738_ _g196726196741_))))) + (_g197886197899_ _g197887197902_))))) (let () (declare (not safe)) - (_g196725196738_ _g196726196741_)))))) + (_g197886197899_ _g197887197902_)))))) (declare (not safe)) - (_g196724196776_ _stx196722_)))) + (_g197885197937_ _stx197883_)))) (define gxc#collect-refs-setq% - (lambda (_stx196649_ _ht196650_) - (let* ((_g196652196669_ - (lambda (_g196653196666_) + (lambda (_stx197810_ _ht197811_) + (let* ((_g197813197830_ + (lambda (_g197814197827_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196653196666_)))) - (_g196651196719_ - (lambda (_g196653196672_) + _g197814197827_)))) + (_g197812197880_ + (lambda (_g197814197833_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196653196672_)) - (let ((_e196658196674_ + (gx#stx-pair? _g197814197833_)) + (let ((_e197819197835_ (let () (declare (not safe)) - (gx#stx-e _g196653196672_)))) - (let ((_hd196657196677_ + (gx#stx-e _g197814197833_)))) + (let ((_hd197818197838_ (let () (declare (not safe)) - (##car _e196658196674_))) - (_tl196656196679_ + (##car _e197819197835_))) + (_tl197817197840_ (let () (declare (not safe)) - (##cdr _e196658196674_)))) + (##cdr _e197819197835_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196656196679_)) - (let ((_e196661196682_ + (gx#stx-pair? _tl197817197840_)) + (let ((_e197822197843_ (let () (declare (not safe)) - (gx#stx-e _tl196656196679_)))) - (let ((_hd196660196685_ + (gx#stx-e _tl197817197840_)))) + (let ((_hd197821197846_ (let () (declare (not safe)) - (##car _e196661196682_))) - (_tl196659196687_ + (##car _e197822197843_))) + (_tl197820197848_ (let () (declare (not safe)) - (##cdr _e196661196682_)))) + (##cdr _e197822197843_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196659196687_)) - (let ((_e196664196690_ + (gx#stx-pair? _tl197820197848_)) + (let ((_e197825197851_ (let () (declare (not safe)) - (gx#stx-e _tl196659196687_)))) - (let ((_hd196663196693_ + (gx#stx-e _tl197820197848_)))) + (let ((_hd197824197854_ (let () (declare (not safe)) - (##car _e196664196690_))) - (_tl196662196695_ + (##car _e197825197851_))) + (_tl197823197856_ (let () (declare (not safe)) - (##cdr _e196664196690_)))) + (##cdr _e197825197851_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196662196695_)) - ((lambda (_L196698_ _L196699_) - (let* ((_bind196714_ + _tl197823197856_)) + ((lambda (_L197859_ _L197860_) + (let* ((_bind197875_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _L196699_))) - (_eid196716_ - (if _bind196714_ + _L197860_))) + (_eid197877_ + (if _bind197875_ (##structure-ref - _bind196714_ + _bind197875_ '1 gx#binding::t '#f) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L196699_))))) + (gx#stx-e _L197860_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (table-set! - _ht196650_ - _eid196716_ - _eid196716_)) + _ht197811_ + _eid197877_ + _eid197877_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L196698_ - _ht196650_)))) - _hd196663196693_ - _hd196660196685_) + _L197859_ + _ht197811_)))) + _hd197824197854_ + _hd197821197846_) (let () (declare (not safe)) - (_g196652196669_ - _g196653196672_))))) + (_g197813197830_ + _g197814197833_))))) (let () (declare (not safe)) - (_g196652196669_ _g196653196672_))))) + (_g197813197830_ _g197814197833_))))) (let () (declare (not safe)) - (_g196652196669_ _g196653196672_))))) + (_g197813197830_ _g197814197833_))))) (let () (declare (not safe)) - (_g196652196669_ _g196653196672_)))))) + (_g197813197830_ _g197814197833_)))))) (declare (not safe)) - (_g196651196719_ _stx196649_)))) + (_g197812197880_ _stx197810_)))) (define gxc#find-runtime-begin% - (lambda (_stx196611_) - (let* ((_g196613196623_ - (lambda (_g196614196620_) + (lambda (_stx197772_) + (let* ((_g197774197784_ + (lambda (_g197775197781_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196614196620_)))) - (_g196612196646_ - (lambda (_g196614196626_) + _g197775197781_)))) + (_g197773197807_ + (lambda (_g197775197787_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196614196626_)) - (let ((_e196618196628_ + (gx#stx-pair? _g197775197787_)) + (let ((_e197779197789_ (let () (declare (not safe)) - (gx#stx-e _g196614196626_)))) - (let ((_hd196617196631_ + (gx#stx-e _g197775197787_)))) + (let ((_hd197778197792_ (let () (declare (not safe)) - (##car _e196618196628_))) - (_tl196616196633_ + (##car _e197779197789_))) + (_tl197777197794_ (let () (declare (not safe)) - (##cdr _e196618196628_)))) - ((lambda (_L196636_) + (##cdr _e197779197789_)))) + ((lambda (_L197797_) (let () (declare (not safe)) - (ormap1 gxc#compile-e _L196636_))) - _tl196616196633_))) + (ormap1 gxc#compile-e _L197797_))) + _tl197777197794_))) (let () (declare (not safe)) - (_g196613196623_ _g196614196626_)))))) + (_g197774197784_ _g197775197787_)))))) (declare (not safe)) - (_g196612196646_ _stx196611_)))) + (_g197773197807_ _stx197772_)))) (define gxc#find-lambda-expression-begin% - (lambda (_stx196573_) - (let* ((_g196575196585_ - (lambda (_g196576196582_) + (lambda (_stx197734_) + (let* ((_g197736197746_ + (lambda (_g197737197743_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196576196582_)))) - (_g196574196608_ - (lambda (_g196576196588_) + _g197737197743_)))) + (_g197735197769_ + (lambda (_g197737197749_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196576196588_)) - (let ((_e196580196590_ + (gx#stx-pair? _g197737197749_)) + (let ((_e197741197751_ (let () (declare (not safe)) - (gx#stx-e _g196576196588_)))) - (let ((_hd196579196593_ + (gx#stx-e _g197737197749_)))) + (let ((_hd197740197754_ (let () (declare (not safe)) - (##car _e196580196590_))) - (_tl196578196595_ + (##car _e197741197751_))) + (_tl197739197756_ (let () (declare (not safe)) - (##cdr _e196580196590_)))) - ((lambda (_L196598_) - (let ((__tmp213556 + (##cdr _e197741197751_)))) + ((lambda (_L197759_) + (let ((__tmp214717 (let () (declare (not safe)) - (last _L196598_)))) + (last _L197759_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp213556))) - _tl196578196595_))) + (gxc#compile-e__0 __tmp214717))) + _tl197739197756_))) (let () (declare (not safe)) - (_g196575196585_ _g196576196588_)))))) + (_g197736197746_ _g197737197749_)))))) (declare (not safe)) - (_g196574196608_ _stx196573_)))) + (_g197735197769_ _stx197734_)))) (define gxc#find-lambda-expression-begin-annotation% - (lambda (_stx196506_) - (let* ((_g196508196525_ - (lambda (_g196509196522_) + (lambda (_stx197667_) + (let* ((_g197669197686_ + (lambda (_g197670197683_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196509196522_)))) - (_g196507196570_ - (lambda (_g196509196528_) + _g197670197683_)))) + (_g197668197731_ + (lambda (_g197670197689_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196509196528_)) - (let ((_e196514196530_ + (gx#stx-pair? _g197670197689_)) + (let ((_e197675197691_ (let () (declare (not safe)) - (gx#stx-e _g196509196528_)))) - (let ((_hd196513196533_ + (gx#stx-e _g197670197689_)))) + (let ((_hd197674197694_ (let () (declare (not safe)) - (##car _e196514196530_))) - (_tl196512196535_ + (##car _e197675197691_))) + (_tl197673197696_ (let () (declare (not safe)) - (##cdr _e196514196530_)))) + (##cdr _e197675197691_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196512196535_)) - (let ((_e196517196538_ + (gx#stx-pair? _tl197673197696_)) + (let ((_e197678197699_ (let () (declare (not safe)) - (gx#stx-e _tl196512196535_)))) - (let ((_hd196516196541_ + (gx#stx-e _tl197673197696_)))) + (let ((_hd197677197702_ (let () (declare (not safe)) - (##car _e196517196538_))) - (_tl196515196543_ + (##car _e197678197699_))) + (_tl197676197704_ (let () (declare (not safe)) - (##cdr _e196517196538_)))) + (##cdr _e197678197699_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196515196543_)) - (let ((_e196520196546_ + (gx#stx-pair? _tl197676197704_)) + (let ((_e197681197707_ (let () (declare (not safe)) - (gx#stx-e _tl196515196543_)))) - (let ((_hd196519196549_ + (gx#stx-e _tl197676197704_)))) + (let ((_hd197680197710_ (let () (declare (not safe)) - (##car _e196520196546_))) - (_tl196518196551_ + (##car _e197681197707_))) + (_tl197679197712_ (let () (declare (not safe)) - (##cdr _e196520196546_)))) + (##cdr _e197681197707_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196518196551_)) - ((lambda (_L196554_ _L196555_) + _tl197679197712_)) + ((lambda (_L197715_ _L197716_) (let () (declare (not safe)) (gxc#compile-e__0 - _L196554_))) - _hd196519196549_ - _hd196516196541_) + _L197715_))) + _hd197680197710_ + _hd197677197702_) (let () (declare (not safe)) - (_g196508196525_ - _g196509196528_))))) + (_g197669197686_ + _g197670197689_))))) (let () (declare (not safe)) - (_g196508196525_ _g196509196528_))))) + (_g197669197686_ _g197670197689_))))) (let () (declare (not safe)) - (_g196508196525_ _g196509196528_))))) + (_g197669197686_ _g197670197689_))))) (let () (declare (not safe)) - (_g196508196525_ _g196509196528_)))))) + (_g197669197686_ _g197670197689_)))))) (declare (not safe)) - (_g196507196570_ _stx196506_)))) + (_g197668197731_ _stx197667_)))) (define gxc#find-lambda-expression-let-values% - (lambda (_stx196439_) - (let* ((_g196441196458_ - (lambda (_g196442196455_) + (lambda (_stx197600_) + (let* ((_g197602197619_ + (lambda (_g197603197616_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196442196455_)))) - (_g196440196503_ - (lambda (_g196442196461_) + _g197603197616_)))) + (_g197601197664_ + (lambda (_g197603197622_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196442196461_)) - (let ((_e196447196463_ + (gx#stx-pair? _g197603197622_)) + (let ((_e197608197624_ (let () (declare (not safe)) - (gx#stx-e _g196442196461_)))) - (let ((_hd196446196466_ + (gx#stx-e _g197603197622_)))) + (let ((_hd197607197627_ (let () (declare (not safe)) - (##car _e196447196463_))) - (_tl196445196468_ + (##car _e197608197624_))) + (_tl197606197629_ (let () (declare (not safe)) - (##cdr _e196447196463_)))) + (##cdr _e197608197624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196445196468_)) - (let ((_e196450196471_ + (gx#stx-pair? _tl197606197629_)) + (let ((_e197611197632_ (let () (declare (not safe)) - (gx#stx-e _tl196445196468_)))) - (let ((_hd196449196474_ + (gx#stx-e _tl197606197629_)))) + (let ((_hd197610197635_ (let () (declare (not safe)) - (##car _e196450196471_))) - (_tl196448196476_ + (##car _e197611197632_))) + (_tl197609197637_ (let () (declare (not safe)) - (##cdr _e196450196471_)))) + (##cdr _e197611197632_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196448196476_)) - (let ((_e196453196479_ + (gx#stx-pair? _tl197609197637_)) + (let ((_e197614197640_ (let () (declare (not safe)) - (gx#stx-e _tl196448196476_)))) - (let ((_hd196452196482_ + (gx#stx-e _tl197609197637_)))) + (let ((_hd197613197643_ (let () (declare (not safe)) - (##car _e196453196479_))) - (_tl196451196484_ + (##car _e197614197640_))) + (_tl197612197645_ (let () (declare (not safe)) - (##cdr _e196453196479_)))) + (##cdr _e197614197640_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196451196484_)) - ((lambda (_L196487_ _L196488_) + _tl197612197645_)) + ((lambda (_L197648_ _L197649_) (let () (declare (not safe)) (gxc#compile-e__0 - _L196487_))) - _hd196452196482_ - _hd196449196474_) + _L197648_))) + _hd197613197643_ + _hd197610197635_) (let () (declare (not safe)) - (_g196441196458_ - _g196442196461_))))) + (_g197602197619_ + _g197603197622_))))) (let () (declare (not safe)) - (_g196441196458_ _g196442196461_))))) + (_g197602197619_ _g197603197622_))))) (let () (declare (not safe)) - (_g196441196458_ _g196442196461_))))) + (_g197602197619_ _g197603197622_))))) (let () (declare (not safe)) - (_g196441196458_ _g196442196461_)))))) + (_g197602197619_ _g197603197622_)))))) (declare (not safe)) - (_g196440196503_ _stx196439_)))) - (define gxc#count-values-single% (lambda (_stx196437_) '1)) + (_g197601197664_ _stx197600_)))) + (define gxc#count-values-single% (lambda (_stx197598_) '1)) (define gxc#count-values-begin% - (lambda (_stx196355_) - (let* ((_g196357196376_ - (lambda (_g196358196373_) + (lambda (_stx197516_) + (let* ((_g197518197537_ + (lambda (_g197519197534_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196358196373_)))) - (_g196356196434_ - (lambda (_g196358196379_) + _g197519197534_)))) + (_g197517197595_ + (lambda (_g197519197540_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196358196379_)) - (let ((_e196362196381_ + (gx#stx-pair? _g197519197540_)) + (let ((_e197523197542_ (let () (declare (not safe)) - (gx#stx-e _g196358196379_)))) - (let ((_hd196361196384_ + (gx#stx-e _g197519197540_)))) + (let ((_hd197522197545_ (let () (declare (not safe)) - (##car _e196362196381_))) - (_tl196360196386_ + (##car _e197523197542_))) + (_tl197521197547_ (let () (declare (not safe)) - (##cdr _e196362196381_)))) + (##cdr _e197523197542_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl196360196386_)) - (let ((_g213557_ + (gx#stx-pair/null? _tl197521197547_)) + (let ((_g214718_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl196360196386_ + _tl197521197547_ '0)))) (begin - (let ((_g213558_ + (let ((_g214719_ (let () (declare (not safe)) - (if (##values? _g213557_) - (##vector-length _g213557_) + (if (##values? _g214718_) + (##vector-length _g214718_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g213558_ 2))) + (##fx= _g214719_ 2))) (error "Context expects 2 values" - _g213558_))) - (let ((_target196363196389_ + _g214719_))) + (let ((_target197524197550_ (let () (declare (not safe)) - (##vector-ref _g213557_ 0))) - (_tl196365196391_ + (##vector-ref _g214718_ 0))) + (_tl197526197552_ (let () (declare (not safe)) - (##vector-ref _g213557_ 1)))) + (##vector-ref _g214718_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196365196391_)) - (letrec ((_loop196366196394_ - (lambda (_hd196364196397_ - _expr196370196399_) + (gx#stx-null? _tl197526197552_)) + (letrec ((_loop197527197555_ + (lambda (_hd197525197558_ + _expr197531197560_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd196364196397_)) - (let ((_e196367196402_ + _hd197525197558_)) + (let ((_e197528197563_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd196364196397_)))) - (let ((_lp-hd196368196405_ + (gx#stx-e _hd197525197558_)))) + (let ((_lp-hd197529197566_ (let () (declare (not safe)) - (##car _e196367196402_))) - (_lp-tl196369196407_ + (##car _e197528197563_))) + (_lp-tl197530197568_ (let () (declare (not safe)) - (##cdr _e196367196402_)))) - (let ((__tmp213562 + (##cdr _e197528197563_)))) + (let ((__tmp214723 (let () (declare (not safe)) - (cons _lp-hd196368196405_ _expr196370196399_)))) + (cons _lp-hd197529197566_ _expr197531197560_)))) (declare (not safe)) - (_loop196366196394_ _lp-tl196369196407_ __tmp213562)))) - (let ((_expr196371196410_ (reverse _expr196370196399_))) - ((lambda (_L196413_) - (let ((__tmp213559 - (let ((__tmp213560 - (let ((__tmp213561 - (lambda (_g196426196429_ - _g196427196431_) + (_loop197527197555_ _lp-tl197530197568_ __tmp214723)))) + (let ((_expr197532197571_ (reverse _expr197531197560_))) + ((lambda (_L197574_) + (let ((__tmp214720 + (let ((__tmp214721 + (let ((__tmp214722 + (lambda (_g197587197590_ + _g197588197592_) (let () (declare (not safe)) - (cons _g196426196429_ - _g196427196431_))))) + (cons _g197587197590_ + _g197588197592_))))) (declare (not safe)) - (foldr1 __tmp213561 '() _L196413_)))) + (foldr1 __tmp214722 '() _L197574_)))) (declare (not safe)) - (last __tmp213560)))) + (last __tmp214721)))) (declare (not safe)) - (gxc#compile-e__0 __tmp213559))) - _expr196371196410_)))))) + (gxc#compile-e__0 __tmp214720))) + _expr197532197571_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop196366196394_ - _target196363196389_ + (_loop197527197555_ + _target197524197550_ '()))) (let () (declare (not safe)) - (_g196357196376_ - _g196358196379_)))))) + (_g197518197537_ + _g197519197540_)))))) (let () (declare (not safe)) - (_g196357196376_ _g196358196379_))))) + (_g197518197537_ _g197519197540_))))) (let () (declare (not safe)) - (_g196357196376_ _g196358196379_)))))) + (_g197518197537_ _g197519197540_)))))) (declare (not safe)) - (_g196356196434_ _stx196355_)))) + (_g197517197595_ _stx197516_)))) (define gxc#count-values-begin-annotation% - (lambda (_stx196288_) - (let* ((_g196290196307_ - (lambda (_g196291196304_) + (lambda (_stx197449_) + (let* ((_g197451197468_ + (lambda (_g197452197465_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196291196304_)))) - (_g196289196352_ - (lambda (_g196291196310_) + _g197452197465_)))) + (_g197450197513_ + (lambda (_g197452197471_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196291196310_)) - (let ((_e196296196312_ + (gx#stx-pair? _g197452197471_)) + (let ((_e197457197473_ (let () (declare (not safe)) - (gx#stx-e _g196291196310_)))) - (let ((_hd196295196315_ + (gx#stx-e _g197452197471_)))) + (let ((_hd197456197476_ (let () (declare (not safe)) - (##car _e196296196312_))) - (_tl196294196317_ + (##car _e197457197473_))) + (_tl197455197478_ (let () (declare (not safe)) - (##cdr _e196296196312_)))) + (##cdr _e197457197473_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196294196317_)) - (let ((_e196299196320_ + (gx#stx-pair? _tl197455197478_)) + (let ((_e197460197481_ (let () (declare (not safe)) - (gx#stx-e _tl196294196317_)))) - (let ((_hd196298196323_ + (gx#stx-e _tl197455197478_)))) + (let ((_hd197459197484_ (let () (declare (not safe)) - (##car _e196299196320_))) - (_tl196297196325_ + (##car _e197460197481_))) + (_tl197458197486_ (let () (declare (not safe)) - (##cdr _e196299196320_)))) + (##cdr _e197460197481_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196297196325_)) - (let ((_e196302196328_ + (gx#stx-pair? _tl197458197486_)) + (let ((_e197463197489_ (let () (declare (not safe)) - (gx#stx-e _tl196297196325_)))) - (let ((_hd196301196331_ + (gx#stx-e _tl197458197486_)))) + (let ((_hd197462197492_ (let () (declare (not safe)) - (##car _e196302196328_))) - (_tl196300196333_ + (##car _e197463197489_))) + (_tl197461197494_ (let () (declare (not safe)) - (##cdr _e196302196328_)))) + (##cdr _e197463197489_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196300196333_)) - ((lambda (_L196336_ _L196337_) + _tl197461197494_)) + ((lambda (_L197497_ _L197498_) (let () (declare (not safe)) (gxc#compile-e__0 - _L196336_))) - _hd196301196331_ - _hd196298196323_) + _L197497_))) + _hd197462197492_ + _hd197459197484_) (let () (declare (not safe)) - (_g196290196307_ - _g196291196310_))))) + (_g197451197468_ + _g197452197471_))))) (let () (declare (not safe)) - (_g196290196307_ _g196291196310_))))) + (_g197451197468_ _g197452197471_))))) (let () (declare (not safe)) - (_g196290196307_ _g196291196310_))))) + (_g197451197468_ _g197452197471_))))) (let () (declare (not safe)) - (_g196290196307_ _g196291196310_)))))) + (_g197451197468_ _g197452197471_)))))) (declare (not safe)) - (_g196289196352_ _stx196288_)))) + (_g197450197513_ _stx197449_)))) (define gxc#count-values-let-values% - (lambda (_stx196221_) - (let* ((_g196223196240_ - (lambda (_g196224196237_) + (lambda (_stx197382_) + (let* ((_g197384197401_ + (lambda (_g197385197398_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g196224196237_)))) - (_g196222196285_ - (lambda (_g196224196243_) + _g197385197398_)))) + (_g197383197446_ + (lambda (_g197385197404_) (if (let () (declare (not safe)) - (gx#stx-pair? _g196224196243_)) - (let ((_e196229196245_ + (gx#stx-pair? _g197385197404_)) + (let ((_e197390197406_ (let () (declare (not safe)) - (gx#stx-e _g196224196243_)))) - (let ((_hd196228196248_ + (gx#stx-e _g197385197404_)))) + (let ((_hd197389197409_ (let () (declare (not safe)) - (##car _e196229196245_))) - (_tl196227196250_ + (##car _e197390197406_))) + (_tl197388197411_ (let () (declare (not safe)) - (##cdr _e196229196245_)))) + (##cdr _e197390197406_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196227196250_)) - (let ((_e196232196253_ + (gx#stx-pair? _tl197388197411_)) + (let ((_e197393197414_ (let () (declare (not safe)) - (gx#stx-e _tl196227196250_)))) - (let ((_hd196231196256_ + (gx#stx-e _tl197388197411_)))) + (let ((_hd197392197417_ (let () (declare (not safe)) - (##car _e196232196253_))) - (_tl196230196258_ + (##car _e197393197414_))) + (_tl197391197419_ (let () (declare (not safe)) - (##cdr _e196232196253_)))) + (##cdr _e197393197414_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196230196258_)) - (let ((_e196235196261_ + (gx#stx-pair? _tl197391197419_)) + (let ((_e197396197422_ (let () (declare (not safe)) - (gx#stx-e _tl196230196258_)))) - (let ((_hd196234196264_ + (gx#stx-e _tl197391197419_)))) + (let ((_hd197395197425_ (let () (declare (not safe)) - (##car _e196235196261_))) - (_tl196233196266_ + (##car _e197396197422_))) + (_tl197394197427_ (let () (declare (not safe)) - (##cdr _e196235196261_)))) + (##cdr _e197396197422_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196233196266_)) - ((lambda (_L196269_ _L196270_) + _tl197394197427_)) + ((lambda (_L197430_ _L197431_) (let () (declare (not safe)) (gxc#compile-e__0 - _L196269_))) - _hd196234196264_ - _hd196231196256_) + _L197430_))) + _hd197395197425_ + _hd197392197417_) (let () (declare (not safe)) - (_g196223196240_ - _g196224196243_))))) + (_g197384197401_ + _g197385197404_))))) (let () (declare (not safe)) - (_g196223196240_ _g196224196243_))))) + (_g197384197401_ _g197385197404_))))) (let () (declare (not safe)) - (_g196223196240_ _g196224196243_))))) + (_g197384197401_ _g197385197404_))))) (let () (declare (not safe)) - (_g196223196240_ _g196224196243_)))))) + (_g197384197401_ _g197385197404_)))))) (declare (not safe)) - (_g196222196285_ _stx196221_)))) + (_g197383197446_ _stx197382_)))) (define gxc#count-values-call% - (lambda (_stx196088_) - (let* ((___stx212652212653_ _stx196088_) - (_g196091196120_ + (lambda (_stx197249_) + (let* ((___stx213813213814_ _stx197249_) + (_g197252197281_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx212652212653_))))) - (let ((___kont212654212655_ - (lambda (_L196188_ _L196189_) - (length (let ((__tmp213563 - (lambda (_g196210196213_ _g196211196215_) + ___stx213813213814_))))) + (let ((___kont213815213816_ + (lambda (_L197349_ _L197350_) + (length (let ((__tmp214724 + (lambda (_g197371197374_ _g197372197376_) (let () (declare (not safe)) - (cons _g196210196213_ - _g196211196215_))))) + (cons _g197371197374_ + _g197372197376_))))) (declare (not safe)) - (foldr1 __tmp213563 '() _L196188_))))) - (___kont212658212659_ (lambda () '#f))) - (let ((___match212697212698_ - (lambda (_e196097196132_ - _hd196096196135_ - _tl196095196137_ - _e196100196140_ - _hd196099196143_ - _tl196098196145_ - _e196103196148_ - _hd196102196151_ - _tl196101196153_ - _e196106196156_ - _hd196105196159_ - _tl196104196161_ - ___splice212656212657_ - _target196107196164_ - _tl196109196166_) - (letrec ((_loop196110196169_ - (lambda (_hd196108196172_ _rand196114196174_) + (foldr1 __tmp214724 '() _L197349_))))) + (___kont213819213820_ (lambda () '#f))) + (let ((___match213858213859_ + (lambda (_e197258197293_ + _hd197257197296_ + _tl197256197298_ + _e197261197301_ + _hd197260197304_ + _tl197259197306_ + _e197264197309_ + _hd197263197312_ + _tl197262197314_ + _e197267197317_ + _hd197266197320_ + _tl197265197322_ + ___splice213817213818_ + _target197268197325_ + _tl197270197327_) + (letrec ((_loop197271197330_ + (lambda (_hd197269197333_ _rand197275197335_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196108196172_)) - (let ((_e196111196177_ + (gx#stx-pair? _hd197269197333_)) + (let ((_e197272197338_ (let () (declare (not safe)) - (gx#stx-e _hd196108196172_)))) - (let ((_lp-tl196113196182_ + (gx#stx-e _hd197269197333_)))) + (let ((_lp-tl197274197343_ (let () (declare (not safe)) - (##cdr _e196111196177_))) - (_lp-hd196112196180_ + (##cdr _e197272197338_))) + (_lp-hd197273197341_ (let () (declare (not safe)) - (##car _e196111196177_)))) - (let ((__tmp213564 + (##car _e197272197338_)))) + (let ((__tmp214725 (let () (declare (not safe)) - (cons _lp-hd196112196180_ - _rand196114196174_)))) + (cons _lp-hd197273197341_ + _rand197275197335_)))) (declare (not safe)) - (_loop196110196169_ - _lp-tl196113196182_ - __tmp213564)))) - (let ((_rand196115196185_ - (reverse _rand196114196174_))) - (let ((_L196188_ _rand196115196185_) - (_L196189_ _hd196105196159_)) + (_loop197271197330_ + _lp-tl197274197343_ + __tmp214725)))) + (let ((_rand197276197346_ + (reverse _rand197275197335_))) + (let ((_L197349_ _rand197276197346_) + (_L197350_ _hd197266197320_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L196189_ + _L197350_ 'values)) - (___kont212654212655_ - _L196188_ - _L196189_) - (___kont212658212659_)))))))) + (___kont213815213816_ + _L197349_ + _L197350_) + (___kont213819213820_)))))))) (let () (declare (not safe)) - (_loop196110196169_ _target196107196164_ '())))))) + (_loop197271197330_ _target197268197325_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx212652212653_)) - (let ((_e196097196132_ + (gx#stx-pair? ___stx213813213814_)) + (let ((_e197258197293_ (let () (declare (not safe)) - (gx#stx-e ___stx212652212653_)))) - (let ((_tl196095196137_ + (gx#stx-e ___stx213813213814_)))) + (let ((_tl197256197298_ (let () (declare (not safe)) - (##cdr _e196097196132_))) - (_hd196096196135_ + (##cdr _e197258197293_))) + (_hd197257197296_ (let () (declare (not safe)) - (##car _e196097196132_)))) + (##car _e197258197293_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196095196137_)) - (let ((_e196100196140_ + (gx#stx-pair? _tl197256197298_)) + (let ((_e197261197301_ (let () (declare (not safe)) - (gx#stx-e _tl196095196137_)))) - (let ((_tl196098196145_ + (gx#stx-e _tl197256197298_)))) + (let ((_tl197259197306_ (let () (declare (not safe)) - (##cdr _e196100196140_))) - (_hd196099196143_ + (##cdr _e197261197301_))) + (_hd197260197304_ (let () (declare (not safe)) - (##car _e196100196140_)))) + (##car _e197261197301_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd196099196143_)) - (let ((_e196103196148_ + (gx#stx-pair? _hd197260197304_)) + (let ((_e197264197309_ (let () (declare (not safe)) - (gx#stx-e _hd196099196143_)))) - (let ((_tl196101196153_ + (gx#stx-e _hd197260197304_)))) + (let ((_tl197262197314_ (let () (declare (not safe)) - (##cdr _e196103196148_))) - (_hd196102196151_ + (##cdr _e197264197309_))) + (_hd197263197312_ (let () (declare (not safe)) - (##car _e196103196148_)))) + (##car _e197264197309_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd196102196151_)) + _hd197263197312_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd196102196151_)) + _hd197263197312_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196101196153_)) - (let ((_e196106196156_ + _tl197262197314_)) + (let ((_e197267197317_ (let () (declare (not safe)) (gx#stx-e - _tl196101196153_)))) - (let ((_tl196104196161_ + _tl197262197314_)))) + (let ((_tl197265197322_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e196106196156_))) - (_hd196105196159_ - (let () (declare (not safe)) (##car _e196106196156_)))) + (##cdr _e197267197317_))) + (_hd197266197320_ + (let () (declare (not safe)) (##car _e197267197317_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196104196161_)) + (gx#stx-null? _tl197265197322_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl196098196145_)) - (let ((___splice212656212657_ + (gx#stx-pair/null? _tl197259197306_)) + (let ((___splice213817213818_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl196098196145_ + _tl197259197306_ '0)))) - (let ((_tl196109196166_ + (let ((_tl197270197327_ (let () (declare (not safe)) - (##vector-ref ___splice212656212657_ '1))) - (_target196107196164_ + (##vector-ref ___splice213817213818_ '1))) + (_target197268197325_ (let () (declare (not safe)) - (##vector-ref ___splice212656212657_ '0)))) + (##vector-ref ___splice213817213818_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl196109196166_)) - (___match212697212698_ - _e196097196132_ - _hd196096196135_ - _tl196095196137_ - _e196100196140_ - _hd196099196143_ - _tl196098196145_ - _e196103196148_ - _hd196102196151_ - _tl196101196153_ - _e196106196156_ - _hd196105196159_ - _tl196104196161_ - ___splice212656212657_ - _target196107196164_ - _tl196109196166_) - (___kont212658212659_)))) - (___kont212658212659_)) - (___kont212658212659_)))) + (gx#stx-null? _tl197270197327_)) + (___match213858213859_ + _e197258197293_ + _hd197257197296_ + _tl197256197298_ + _e197261197301_ + _hd197260197304_ + _tl197259197306_ + _e197264197309_ + _hd197263197312_ + _tl197262197314_ + _e197267197317_ + _hd197266197320_ + _tl197265197322_ + ___splice213817213818_ + _target197268197325_ + _tl197270197327_) + (___kont213819213820_)))) + (___kont213819213820_)) + (___kont213819213820_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont212658212659_)) - (___kont212658212659_)) - (___kont212658212659_)))) - (___kont212658212659_)))) - (___kont212658212659_)))) - (___kont212658212659_))))))) + (___kont213819213820_)) + (___kont213819213820_)) + (___kont213819213820_)))) + (___kont213819213820_)))) + (___kont213819213820_)))) + (___kont213819213820_))))))) (define gxc#count-values-if% - (lambda (_stx195992_) - (let* ((_g195994196015_ - (lambda (_g195995196012_) + (lambda (_stx197153_) + (let* ((_g197155197176_ + (lambda (_g197156197173_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195995196012_)))) - (_g195993196085_ - (lambda (_g195995196018_) + _g197156197173_)))) + (_g197154197246_ + (lambda (_g197156197179_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195995196018_)) - (let ((_e196001196020_ + (gx#stx-pair? _g197156197179_)) + (let ((_e197162197181_ (let () (declare (not safe)) - (gx#stx-e _g195995196018_)))) - (let ((_hd196000196023_ + (gx#stx-e _g197156197179_)))) + (let ((_hd197161197184_ (let () (declare (not safe)) - (##car _e196001196020_))) - (_tl195999196025_ + (##car _e197162197181_))) + (_tl197160197186_ (let () (declare (not safe)) - (##cdr _e196001196020_)))) + (##cdr _e197162197181_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195999196025_)) - (let ((_e196004196028_ + (gx#stx-pair? _tl197160197186_)) + (let ((_e197165197189_ (let () (declare (not safe)) - (gx#stx-e _tl195999196025_)))) - (let ((_hd196003196031_ + (gx#stx-e _tl197160197186_)))) + (let ((_hd197164197192_ (let () (declare (not safe)) - (##car _e196004196028_))) - (_tl196002196033_ + (##car _e197165197189_))) + (_tl197163197194_ (let () (declare (not safe)) - (##cdr _e196004196028_)))) + (##cdr _e197165197189_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl196002196033_)) - (let ((_e196007196036_ + (gx#stx-pair? _tl197163197194_)) + (let ((_e197168197197_ (let () (declare (not safe)) - (gx#stx-e _tl196002196033_)))) - (let ((_hd196006196039_ + (gx#stx-e _tl197163197194_)))) + (let ((_hd197167197200_ (let () (declare (not safe)) - (##car _e196007196036_))) - (_tl196005196041_ + (##car _e197168197197_))) + (_tl197166197202_ (let () (declare (not safe)) - (##cdr _e196007196036_)))) + (##cdr _e197168197197_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl196005196041_)) - (let ((_e196010196044_ + _tl197166197202_)) + (let ((_e197171197205_ (let () (declare (not safe)) (gx#stx-e - _tl196005196041_)))) - (let ((_hd196009196047_ + _tl197166197202_)))) + (let ((_hd197170197208_ (let () (declare (not safe)) - (##car _e196010196044_))) - (_tl196008196049_ + (##car _e197171197205_))) + (_tl197169197210_ (let () (declare (not safe)) - (##cdr _e196010196044_)))) + (##cdr _e197171197205_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl196008196049_)) - ((lambda (_L196052_ + _tl197169197210_)) + ((lambda (_L197213_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L196053_ - _L196054_) - (let ((_c1196071196073_ + _L197214_ + _L197215_) + (let ((_c1197232197234_ (let () (declare (not safe)) - (gxc#compile-e__0 _L196053_)))) - (if _c1196071196073_ - (let* ((_c1196076_ _c1196071196073_) - (_c2196077196079_ + (gxc#compile-e__0 _L197214_)))) + (if _c1197232197234_ + (let* ((_c1197237_ _c1197232197234_) + (_c2197238197240_ (let () (declare (not safe)) - (gxc#compile-e__0 _L196052_)))) - (if _c2196077196079_ - (let ((_c2196082_ _c2196077196079_)) - (if (fx= _c1196076_ _c2196082_) - _c1196076_ + (gxc#compile-e__0 _L197213_)))) + (if _c2197238197240_ + (let ((_c2197243_ _c2197238197240_)) + (if (fx= _c1197237_ _c2197243_) + _c1197237_ '#f)) '#f)) '#f))) - _hd196009196047_ - _hd196006196039_ - _hd196003196031_) + _hd197170197208_ + _hd197167197200_ + _hd197164197192_) (let () (declare (not safe)) - (_g195994196015_ _g195995196018_))))) + (_g197155197176_ _g197156197179_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g195994196015_ - _g195995196018_))))) + (_g197155197176_ + _g197156197179_))))) (let () (declare (not safe)) - (_g195994196015_ _g195995196018_))))) + (_g197155197176_ _g197156197179_))))) (let () (declare (not safe)) - (_g195994196015_ _g195995196018_))))) + (_g197155197176_ _g197156197179_))))) (let () (declare (not safe)) - (_g195994196015_ _g195995196018_)))))) + (_g197155197176_ _g197156197179_)))))) (declare (not safe)) - (_g195993196085_ _stx195992_))))))) + (_g197154197246_ _stx197153_))))))) diff --git a/src/bootstrap/gerbil/compiler/compile__1.scm b/src/bootstrap/gerbil/compiler/compile__1.scm index 3737e2d95..6f5135e8e 100644 --- a/src/bootstrap/gerbil/compiler/compile__1.scm +++ b/src/bootstrap/gerbil/compiler/compile__1.scm @@ -1,265 +1,265 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g213940_| + (define |gxc[1]#_g215101_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213942_| + (define |gxc[1]#_g215103_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213944_| + (define |gxc[1]#_g215105_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213951_| + (define |gxc[1]#_g215112_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213954_| + (define |gxc[1]#_g215115_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213957_| + (define |gxc[1]#_g215118_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213960_| + (define |gxc[1]#_g215121_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213967_| + (define |gxc[1]#_g215128_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213970_| + (define |gxc[1]#_g215131_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213973_| + (define |gxc[1]#_g215134_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213976_| + (define |gxc[1]#_g215137_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213983_| + (define |gxc[1]#_g215144_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213986_| + (define |gxc[1]#_g215147_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213989_| + (define |gxc[1]#_g215150_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213992_| + (define |gxc[1]#_g215153_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g213999_| + (define |gxc[1]#_g215160_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214002_| + (define |gxc[1]#_g215163_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214005_| + (define |gxc[1]#_g215166_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214008_| + (define |gxc[1]#_g215169_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214010_| + (define |gxc[1]#_g215171_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214012_| + (define |gxc[1]#_g215173_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214014_| + (define |gxc[1]#_g215175_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214021_| + (define |gxc[1]#_g215182_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214024_| + (define |gxc[1]#_g215185_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214027_| + (define |gxc[1]#_g215188_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214030_| + (define |gxc[1]#_g215191_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214037_| + (define |gxc[1]#_g215198_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214040_| + (define |gxc[1]#_g215201_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214043_| + (define |gxc[1]#_g215204_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214046_| + (define |gxc[1]#_g215207_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214053_| + (define |gxc[1]#_g215214_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214056_| + (define |gxc[1]#_g215217_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214059_| + (define |gxc[1]#_g215220_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214062_| + (define |gxc[1]#_g215223_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214069_| + (define |gxc[1]#_g215230_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214072_| + (define |gxc[1]#_g215233_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214075_| + (define |gxc[1]#_g215236_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g214078_| + (define |gxc[1]#_g215239_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! @@ -268,105 +268,105 @@ '())) (begin (define |gxc[:0:]#do-compile-e| - (lambda (_$stx195152_) - (let* ((_g195156195178_ - (lambda (_g195157195174_) + (lambda (_$stx196313_) + (let* ((_g196317196339_ + (lambda (_g196318196335_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195157195174_)))) - (_g195155195248_ - (lambda (_g195157195182_) + _g196318196335_)))) + (_g196316196409_ + (lambda (_g196318196343_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195157195182_)) - (let ((_e195163195185_ + (gx#stx-pair? _g196318196343_)) + (let ((_e196324196346_ (let () (declare (not safe)) - (gx#syntax-e _g195157195182_)))) - (let ((_hd195162195189_ + (gx#syntax-e _g196318196343_)))) + (let ((_hd196323196350_ (let () (declare (not safe)) - (##car _e195163195185_))) - (_tl195161195192_ + (##car _e196324196346_))) + (_tl196322196353_ (let () (declare (not safe)) - (##cdr _e195163195185_)))) + (##cdr _e196324196346_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195161195192_)) - (let ((_e195166195195_ + (gx#stx-pair? _tl196322196353_)) + (let ((_e196327196356_ (let () (declare (not safe)) - (gx#syntax-e _tl195161195192_)))) - (let ((_hd195165195199_ + (gx#syntax-e _tl196322196353_)))) + (let ((_hd196326196360_ (let () (declare (not safe)) - (##car _e195166195195_))) - (_tl195164195202_ + (##car _e196327196356_))) + (_tl196325196363_ (let () (declare (not safe)) - (##cdr _e195166195195_)))) + (##cdr _e196327196356_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195164195202_)) - (let ((_e195169195205_ + (gx#stx-pair? _tl196325196363_)) + (let ((_e196330196366_ (let () (declare (not safe)) (gx#syntax-e - _tl195164195202_)))) - (let ((_hd195168195209_ + _tl196325196363_)))) + (let ((_hd196329196370_ (let () (declare (not safe)) - (##car _e195169195205_))) - (_tl195167195212_ + (##car _e196330196366_))) + (_tl196328196373_ (let () (declare (not safe)) - (##cdr _e195169195205_)))) + (##cdr _e196330196366_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl195167195212_)) - (let ((_e195172195215_ + _tl196328196373_)) + (let ((_e196333196376_ (let () (declare (not safe)) (gx#syntax-e - _tl195167195212_)))) - (let ((_hd195171195219_ + _tl196328196373_)))) + (let ((_hd196332196380_ (let () (declare (not safe)) - (##car _e195172195215_))) - (_tl195170195222_ + (##car _e196333196376_))) + (_tl196331196383_ (let () (declare (not safe)) - (##cdr _e195172195215_)))) + (##cdr _e196333196376_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195170195222_)) - ((lambda (_L195225_ - _L195227_ - _L195228_) - (let ((__tmp213619 + _tl196331196383_)) + ((lambda (_L196386_ + _L196388_ + _L196389_) + (let ((__tmp214780 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp213565 - (let ((__tmp213566 - (let ((__tmp213567 - (let ((__tmp213581 - (let ((__tmp213616 - (let ((__tmp213618 + (__tmp214726 + (let ((__tmp214727 + (let ((__tmp214728 + (let ((__tmp214742 + (let ((__tmp214777 + (let ((__tmp214779 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd))) - (__tmp213617 + (__tmp214778 (let () (declare (not safe)) @@ -374,1254 +374,1254 @@ '#f '_)))) (declare (not safe)) - (cons __tmp213618 - __tmp213617))) - (__tmp213582 - (let ((__tmp213583 - (let ((__tmp213615 + (cons __tmp214779 + __tmp214778))) + (__tmp214743 + (let ((__tmp214744 + (let ((__tmp214776 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond))) - (__tmp213584 - (let ((__tmp213585 - (let ((__tmp213602 - (let ((__tmp213614 + (__tmp214745 + (let ((__tmp214746 + (let ((__tmp214763 + (let ((__tmp214775 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-get))) - (__tmp213603 - (let ((__tmp213612 - (let ((__tmp213613 + (__tmp214764 + (let ((__tmp214773 + (let ((__tmp214774 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods)))) (declare (not safe)) - (cons __tmp213613 '()))) + (cons __tmp214774 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp213604 - (let ((__tmp213605 - (let ((__tmp213611 + (__tmp214765 + (let ((__tmp214766 + (let ((__tmp214772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx-e))) - (__tmp213606 - (let ((__tmp213607 - (let ((__tmp213610 + (__tmp214767 + (let ((__tmp214768 + (let ((__tmp214771 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp213608 - (let ((__tmp213609 + (__tmp214769 + (let ((__tmp214770 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp213609 '())))) + (cons __tmp214770 '())))) (declare (not safe)) - (cons __tmp213610 __tmp213608)))) + (cons __tmp214771 __tmp214769)))) (declare (not safe)) - (cons __tmp213607 '())))) + (cons __tmp214768 '())))) (declare (not safe)) - (cons __tmp213611 __tmp213606)))) + (cons __tmp214772 __tmp214767)))) (declare (not safe)) - (cons __tmp213605 '())))) + (cons __tmp214766 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213612 - __tmp213604)))) + (cons __tmp214773 + __tmp214765)))) (declare (not safe)) - (cons __tmp213614 __tmp213603))) - (__tmp213586 - (let ((__tmp213601 + (cons __tmp214775 __tmp214764))) + (__tmp214747 + (let ((__tmp214762 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '=>))) - (__tmp213587 - (let ((__tmp213588 - (let ((__tmp213600 + (__tmp214748 + (let ((__tmp214749 + (let ((__tmp214761 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp213589 - (let ((__tmp213599 - (let () (declare (not safe)) (cons _L195227_ '()))) - (__tmp213590 - (let ((__tmp213592 - (let ((__tmp213598 + (__tmp214750 + (let ((__tmp214760 + (let () (declare (not safe)) (cons _L196388_ '()))) + (__tmp214751 + (let ((__tmp214753 + (let ((__tmp214759 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp213593 - (let ((__tmp213594 - (let ((__tmp213597 + (__tmp214754 + (let ((__tmp214755 + (let ((__tmp214758 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp213595 - (let ((__tmp213596 + (__tmp214756 + (let ((__tmp214757 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp213596 '())))) + (cons __tmp214757 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213597 - __tmp213595)))) + (cons __tmp214758 + __tmp214756)))) (declare (not safe)) - (cons __tmp213594 '())))) + (cons __tmp214755 '())))) (declare (not safe)) - (cons __tmp213598 __tmp213593))) - (__tmp213591 + (cons __tmp214759 __tmp214754))) + (__tmp214752 (let () (declare (not safe)) - (cons _L195225_ '())))) + (cons _L196386_ '())))) (declare (not safe)) - (cons __tmp213592 __tmp213591)))) + (cons __tmp214753 __tmp214752)))) (declare (not safe)) - (cons __tmp213599 __tmp213590)))) + (cons __tmp214760 __tmp214751)))) (declare (not safe)) - (cons __tmp213600 __tmp213589)))) + (cons __tmp214761 __tmp214750)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213588 '())))) + (cons __tmp214749 '())))) (declare (not safe)) - (cons __tmp213601 __tmp213587)))) + (cons __tmp214762 __tmp214748)))) (declare (not safe)) - (cons __tmp213602 __tmp213586)))) + (cons __tmp214763 __tmp214747)))) (declare (not safe)) - (cons __tmp213585 '())))) + (cons __tmp214746 '())))) (declare (not safe)) - (cons __tmp213615 __tmp213584)))) + (cons __tmp214776 __tmp214745)))) (declare (not safe)) - (cons __tmp213583 '())))) + (cons __tmp214744 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213616 __tmp213582))) - (__tmp213568 - (let ((__tmp213569 - (let ((__tmp213580 + (cons __tmp214777 __tmp214743))) + (__tmp214729 + (let ((__tmp214730 + (let ((__tmp214741 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp213570 - (let ((__tmp213571 + (__tmp214731 + (let ((__tmp214732 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213579 + (let ((__tmp214740 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'raise-compile-error))) - (__tmp213572 - (let ((__tmp213573 - (let ((__tmp213574 - (let ((__tmp213575 - (let ((__tmp213578 + (__tmp214733 + (let ((__tmp214734 + (let ((__tmp214735 + (let ((__tmp214736 + (let ((__tmp214739 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'syntax))) - (__tmp213576 - (let ((__tmp213577 + (__tmp214737 + (let ((__tmp214738 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hd)))) (declare (not safe)) - (cons __tmp213577 '())))) + (cons __tmp214738 '())))) (declare (not safe)) - (cons __tmp213578 __tmp213576)))) + (cons __tmp214739 __tmp214737)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213575 '())))) + (cons __tmp214736 '())))) (declare (not safe)) - (cons _L195228_ __tmp213574)))) + (cons _L196389_ __tmp214735)))) (declare (not safe)) (cons '"Cannot compile; missing method" - __tmp213573)))) + __tmp214734)))) (declare (not safe)) - (cons __tmp213579 __tmp213572)))) + (cons __tmp214740 __tmp214733)))) (declare (not safe)) - (cons __tmp213571 '())))) + (cons __tmp214732 '())))) (declare (not safe)) - (cons __tmp213580 __tmp213570)))) + (cons __tmp214741 __tmp214731)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213569 '())))) + (cons __tmp214730 '())))) (declare (not safe)) - (cons __tmp213581 __tmp213568)))) + (cons __tmp214742 __tmp214729)))) (declare (not safe)) - (cons '() __tmp213567)))) + (cons '() __tmp214728)))) (declare (not safe)) - (cons _L195228_ __tmp213566)))) + (cons _L196389_ __tmp214727)))) (declare (not safe)) - (cons __tmp213619 __tmp213565))) - _hd195171195219_ - _hd195168195209_ - _hd195165195199_) - (_g195156195178_ _g195157195182_)))) + (cons __tmp214780 __tmp214726))) + _hd196332196380_ + _hd196329196370_ + _hd196326196360_) + (_g196317196339_ _g196318196343_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g195156195178_ - _g195157195182_)))) - (_g195156195178_ _g195157195182_)))) - (_g195156195178_ _g195157195182_)))) - (_g195156195178_ _g195157195182_))))) - (_g195155195248_ _$stx195152_)))) + (_g196317196339_ + _g196318196343_)))) + (_g196317196339_ _g196318196343_)))) + (_g196317196339_ _g196318196343_)))) + (_g196317196339_ _g196318196343_))))) + (_g196316196409_ _$stx196313_)))) (define |gxc[:0:]#defcompile-method| - (lambda (_$stx195252_) - (let* ((___stx211276211277_ _$stx195252_) - (_g195258195338_ + (lambda (_$stx196413_) + (let* ((___stx212437212438_ _$stx196413_) + (_g196419196499_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx211276211277_))))) - (let ((___kont211279211280_ - (lambda (_L195634_ _L195636_ _L195637_ _L195638_) - (let ((__tmp213620 - (let ((__tmp213621 - (let ((__tmp213622 + ___stx212437212438_))))) + (let ((___kont212440212441_ + (lambda (_L196795_ _L196797_ _L196798_ _L196799_) + (let ((__tmp214781 + (let ((__tmp214782 + (let ((__tmp214783 (let () (declare (not safe)) - (cons _L195636_ '())))) + (cons _L196797_ '())))) (declare (not safe)) - (cons __tmp213622 _L195634_)))) + (cons __tmp214783 _L196795_)))) (declare (not safe)) - (cons _L195637_ __tmp213621)))) + (cons _L196798_ __tmp214782)))) (declare (not safe)) - (cons _L195638_ __tmp213620)))) - (___kont211281211282_ - (lambda (_L195546_ _L195548_ _L195549_ _L195550_) - (let ((__tmp213659 + (cons _L196799_ __tmp214781)))) + (___kont212442212443_ + (lambda (_L196707_ _L196709_ _L196710_ _L196711_) + (let ((__tmp214820 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp213623 - (let ((__tmp213624 - (let ((__tmp213625 - (let ((__tmp213658 + (__tmp214784 + (let ((__tmp214785 + (let ((__tmp214786 + (let ((__tmp214819 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'delay))) - (__tmp213626 - (let ((__tmp213627 - (let ((__tmp213657 + (__tmp214787 + (let ((__tmp214788 + (let ((__tmp214818 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp213628 - (let ((__tmp213652 - (let ((__tmp213656 + (__tmp214789 + (let ((__tmp214813 + (let ((__tmp214817 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp213653 - (let ((__tmp213654 - (let ((__tmp213655 + (__tmp214814 + (let ((__tmp214815 + (let ((__tmp214816 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-hash-table-eq)))) (declare (not safe)) - (cons __tmp213655 '())))) + (cons __tmp214816 '())))) (declare (not safe)) - (cons __tmp213654 '())))) + (cons __tmp214815 '())))) (declare (not safe)) - (cons __tmp213656 __tmp213653))) - (__tmp213629 - (let ((__tmp213643 - (lambda (_g195577195583_ _g195578195586_) - (let ((__tmp213644 - (let ((__tmp213651 + (cons __tmp214817 __tmp214814))) + (__tmp214790 + (let ((__tmp214804 + (lambda (_g196738196744_ _g196739196747_) + (let ((__tmp214805 + (let ((__tmp214812 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-copy!))) - (__tmp213645 - (let ((__tmp213650 + (__tmp214806 + (let ((__tmp214811 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp213646 - (let ((__tmp213647 + (__tmp214807 + (let ((__tmp214808 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213649 + (let ((__tmp214810 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp213648 + (__tmp214809 (let () (declare (not safe)) - (cons _g195577195583_ '())))) + (cons _g196738196744_ '())))) (declare (not safe)) - (cons __tmp213649 __tmp213648)))) + (cons __tmp214810 __tmp214809)))) (declare (not safe)) - (cons __tmp213647 '())))) + (cons __tmp214808 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213650 - __tmp213646)))) + (cons __tmp214811 + __tmp214807)))) (declare (not safe)) - (cons __tmp213651 __tmp213645)))) + (cons __tmp214812 __tmp214806)))) (declare (not safe)) - (cons __tmp213644 _g195578195586_)))) - (__tmp213630 + (cons __tmp214805 _g196739196747_)))) + (__tmp214791 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L195546_ - _L195548_)) - (let ((__tmp213633 - (lambda (_g195579195589_ - _g195580195592_ - _g195581195594_) - (let ((__tmp213634 - (let ((__tmp213642 + _L196707_ + _L196709_)) + (let ((__tmp214794 + (lambda (_g196740196750_ + _g196741196753_ + _g196742196755_) + (let ((__tmp214795 + (let ((__tmp214803 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp213635 - (let ((__tmp213641 + (__tmp214796 + (let ((__tmp214802 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl))) - (__tmp213636 - (let ((__tmp213638 - (let ((__tmp213640 + (__tmp214797 + (let ((__tmp214799 + (let ((__tmp214801 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp213639 + (__tmp214800 (let () (declare (not safe)) - (cons _g195580195592_ '())))) + (cons _g196741196753_ '())))) (declare (not safe)) - (cons __tmp213640 __tmp213639))) - (__tmp213637 + (cons __tmp214801 __tmp214800))) + (__tmp214798 (let () (declare (not safe)) - (cons _g195579195589_ '())))) + (cons _g196740196750_ '())))) (declare (not safe)) - (cons __tmp213638 __tmp213637)))) + (cons __tmp214799 __tmp214798)))) (declare (not safe)) - (cons __tmp213641 __tmp213636)))) + (cons __tmp214802 __tmp214797)))) (declare (not safe)) - (cons __tmp213642 __tmp213635)))) + (cons __tmp214803 __tmp214796)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213634 - _g195581195594_)))) - (__tmp213631 - (let ((__tmp213632 + (cons __tmp214795 + _g196742196755_)))) + (__tmp214792 + (let ((__tmp214793 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tbl)))) (declare (not safe)) - (cons __tmp213632 '())))) + (cons __tmp214793 '())))) (declare (not safe)) - (foldr2 __tmp213633 - __tmp213631 - _L195546_ - _L195548_))))) + (foldr2 __tmp214794 + __tmp214792 + _L196707_ + _L196709_))))) (declare (not safe)) - (foldr1 __tmp213643 __tmp213630 _L195549_)))) + (foldr1 __tmp214804 __tmp214791 _L196710_)))) (declare (not safe)) - (cons __tmp213652 __tmp213629)))) + (cons __tmp214813 __tmp214790)))) (declare (not safe)) - (cons __tmp213657 __tmp213628)))) + (cons __tmp214818 __tmp214789)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213627 '())))) + (cons __tmp214788 '())))) (declare (not safe)) - (cons __tmp213658 __tmp213626)))) + (cons __tmp214819 __tmp214787)))) (declare (not safe)) - (cons __tmp213625 '())))) + (cons __tmp214786 '())))) (declare (not safe)) - (cons _L195550_ __tmp213624)))) + (cons _L196711_ __tmp214785)))) (declare (not safe)) - (cons __tmp213659 __tmp213623)))) - (___kont211287211288_ - (lambda (_L195385_ _L195387_ _L195388_ _L195389_ _L195390_) - (let ((__tmp213699 + (cons __tmp214820 __tmp214784)))) + (___kont212448212449_ + (lambda (_L196546_ _L196548_ _L196549_ _L196550_ _L196551_) + (let ((__tmp214860 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp213660 - (let ((__tmp213695 - (let ((__tmp213696 - (let ((__tmp213697 - (let ((__tmp213698 + (__tmp214821 + (let ((__tmp214856 + (let ((__tmp214857 + (let ((__tmp214858 + (let ((__tmp214859 (let () (declare (not safe)) - (cons _L195388_ - _L195387_)))) + (cons _L196549_ + _L196548_)))) (declare (not safe)) - (cons __tmp213698 - _L195385_)))) + (cons __tmp214859 + _L196546_)))) (declare (not safe)) - (cons '#f __tmp213697)))) + (cons '#f __tmp214858)))) (declare (not safe)) - (cons _L195390_ __tmp213696))) - (__tmp213661 - (let ((__tmp213662 - (let ((__tmp213694 + (cons _L196551_ __tmp214857))) + (__tmp214822 + (let ((__tmp214823 + (let ((__tmp214855 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def))) - (__tmp213663 - (let ((__tmp213690 - (let ((__tmp213691 - (let ((__tmp213693 + (__tmp214824 + (let ((__tmp214851 + (let ((__tmp214852 + (let ((__tmp214854 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp213692 + (__tmp214853 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp213693 __tmp213692)))) + (cons __tmp214854 __tmp214853)))) (declare (not safe)) - (cons _L195389_ __tmp213691))) + (cons _L196550_ __tmp214852))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp213664 - (let ((__tmp213665 - (let ((__tmp213689 + (__tmp214825 + (let ((__tmp214826 + (let ((__tmp214850 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'parameterize))) - (__tmp213666 - (let ((__tmp213682 - (let ((__tmp213683 - (let ((__tmp213688 + (__tmp214827 + (let ((__tmp214843 + (let ((__tmp214844 + (let ((__tmp214849 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'current-compile-methods))) - (__tmp213684 - (let ((__tmp213685 - (let ((__tmp213687 + (__tmp214845 + (let ((__tmp214846 + (let ((__tmp214848 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'force))) - (__tmp213686 - (let () (declare (not safe)) (cons _L195388_ '())))) + (__tmp214847 + (let () (declare (not safe)) (cons _L196549_ '())))) (declare (not safe)) - (cons __tmp213687 __tmp213686)))) + (cons __tmp214848 __tmp214847)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213685 '())))) + (cons __tmp214846 '())))) (declare (not safe)) - (cons __tmp213688 __tmp213684)))) + (cons __tmp214849 __tmp214845)))) (declare (not safe)) - (cons __tmp213683 '()))) - (__tmp213667 - (let ((__tmp213675 - (let ((__tmp213681 + (cons __tmp214844 '()))) + (__tmp214828 + (let ((__tmp214836 + (let ((__tmp214842 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare))) - (__tmp213676 - (let ((__tmp213677 - (let ((__tmp213680 + (__tmp214837 + (let ((__tmp214838 + (let ((__tmp214841 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'not))) - (__tmp213678 - (let ((__tmp213679 + (__tmp214839 + (let ((__tmp214840 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'safe)))) (declare (not safe)) - (cons __tmp213679 '())))) + (cons __tmp214840 '())))) (declare (not safe)) - (cons __tmp213680 __tmp213678)))) + (cons __tmp214841 __tmp214839)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213677 '())))) + (cons __tmp214838 '())))) (declare (not safe)) - (cons __tmp213681 __tmp213676))) - (__tmp213668 - (let ((__tmp213669 - (let ((__tmp213674 + (cons __tmp214842 __tmp214837))) + (__tmp214829 + (let ((__tmp214830 + (let ((__tmp214835 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'do-apply-compile-e))) - (__tmp213670 - (let ((__tmp213673 + (__tmp214831 + (let ((__tmp214834 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'stx))) - (__tmp213671 - (let ((__tmp213672 + (__tmp214832 + (let ((__tmp214833 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'args)))) (declare (not safe)) - (cons __tmp213672 '())))) + (cons __tmp214833 '())))) (declare (not safe)) - (cons __tmp213673 __tmp213671)))) + (cons __tmp214834 __tmp214832)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213674 - __tmp213670)))) + (cons __tmp214835 + __tmp214831)))) (declare (not safe)) - (cons __tmp213669 '())))) + (cons __tmp214830 '())))) (declare (not safe)) - (cons __tmp213675 __tmp213668)))) + (cons __tmp214836 __tmp214829)))) (declare (not safe)) - (cons __tmp213682 __tmp213667)))) + (cons __tmp214843 __tmp214828)))) (declare (not safe)) - (cons __tmp213689 __tmp213666)))) + (cons __tmp214850 __tmp214827)))) (declare (not safe)) - (cons __tmp213665 '())))) + (cons __tmp214826 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213690 - __tmp213664)))) + (cons __tmp214851 + __tmp214825)))) (declare (not safe)) - (cons __tmp213694 __tmp213663)))) + (cons __tmp214855 __tmp214824)))) (declare (not safe)) - (cons __tmp213662 '())))) + (cons __tmp214823 '())))) (declare (not safe)) - (cons __tmp213695 __tmp213661)))) + (cons __tmp214856 __tmp214822)))) (declare (not safe)) - (cons __tmp213699 __tmp213660))))) - (let* ((___match211369211370_ - (lambda (_e195323195345_ - _hd195322195349_ - _tl195321195352_ - _e195326195355_ - _hd195325195359_ - _tl195324195362_ - _e195329195365_ - _hd195328195369_ - _tl195327195372_ - _e195332195375_ - _hd195331195379_ - _tl195330195382_) - (let ((_L195385_ _tl195327195372_) - (_L195387_ _tl195330195382_) - (_L195388_ _hd195331195379_) - (_L195389_ _hd195325195359_) - (_L195390_ _hd195322195349_)) + (cons __tmp214860 __tmp214821))))) + (let* ((___match212530212531_ + (lambda (_e196484196506_ + _hd196483196510_ + _tl196482196513_ + _e196487196516_ + _hd196486196520_ + _tl196485196523_ + _e196490196526_ + _hd196489196530_ + _tl196488196533_ + _e196493196536_ + _hd196492196540_ + _tl196491196543_) + (let ((_L196546_ _tl196488196533_) + (_L196548_ _tl196491196543_) + (_L196549_ _hd196492196540_) + (_L196550_ _hd196486196520_) + (_L196551_ _hd196483196510_)) (if (let () (declare (not safe)) - (gx#identifier? _L195389_)) - (___kont211287211288_ - _L195385_ - _L195387_ - _L195388_ - _L195389_ - _L195390_) - (let () (declare (not safe)) (_g195258195338_)))))) - (___match211345211346_ - (lambda (_e195279195418_ - _hd195278195422_ - _tl195277195425_ - _e195282195428_ - _hd195281195432_ - _tl195280195435_ - _e195283195438_ - _e195286195442_ - _hd195285195446_ - _tl195284195449_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_ - ___splice211283211284_ - _target195290195462_ - _tl195292195465_) - (letrec ((_loop195293195468_ - (lambda (_hd195291195472_ _super195297195475_) + (gx#identifier? _L196550_)) + (___kont212448212449_ + _L196546_ + _L196548_ + _L196549_ + _L196550_ + _L196551_) + (let () (declare (not safe)) (_g196419196499_)))))) + (___match212506212507_ + (lambda (_e196440196579_ + _hd196439196583_ + _tl196438196586_ + _e196443196589_ + _hd196442196593_ + _tl196441196596_ + _e196444196599_ + _e196447196603_ + _hd196446196607_ + _tl196445196610_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_ + ___splice212444212445_ + _target196451196623_ + _tl196453196626_) + (letrec ((_loop196454196629_ + (lambda (_hd196452196633_ _super196458196636_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195291195472_)) - (let ((_e195294195478_ + (gx#stx-pair? _hd196452196633_)) + (let ((_e196455196639_ (let () (declare (not safe)) (gx#syntax-e - _hd195291195472_)))) - (let ((_lp-tl195296195485_ + _hd196452196633_)))) + (let ((_lp-tl196457196646_ (let () (declare (not safe)) - (##cdr _e195294195478_))) - (_lp-hd195295195482_ + (##cdr _e196455196639_))) + (_lp-hd196456196643_ (let () (declare (not safe)) - (##car _e195294195478_)))) - (_loop195293195468_ - _lp-tl195296195485_ + (##car _e196455196639_)))) + (_loop196454196629_ + _lp-tl196457196646_ (let () (declare (not safe)) - (cons _lp-hd195295195482_ - _super195297195475_))))) - (let ((_super195298195488_ - (reverse _super195297195475_))) + (cons _lp-hd196456196643_ + _super196458196636_))))) + (let ((_super196459196649_ + (reverse _super196458196636_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl195284195449_)) - (let ((___splice211285211286_ + _tl196445196610_)) + (let ((___splice212446212447_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl195284195449_ + _tl196445196610_ '0)))) - (let ((_tl195301195495_ + (let ((_tl196462196656_ (let () (declare (not safe)) (##vector-ref - ___splice211285211286_ + ___splice212446212447_ '1))) - (_target195299195492_ + (_target196460196653_ (let () (declare (not safe)) (##vector-ref - ___splice211285211286_ + ___splice212446212447_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195301195495_)) - (letrec ((_loop195302195498_ - (lambda (_hd195300195502_ + _tl196462196656_)) + (letrec ((_loop196463196659_ + (lambda (_hd196461196663_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _method195306195505_ - _symbol195307195507_) + _method196467196666_ + _symbol196468196668_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195300195502_)) - (let ((_e195303195510_ + (gx#stx-pair? _hd196461196663_)) + (let ((_e196464196671_ (let () (declare (not safe)) - (gx#syntax-e _hd195300195502_)))) - (let ((_lp-tl195305195517_ + (gx#syntax-e _hd196461196663_)))) + (let ((_lp-tl196466196678_ (let () (declare (not safe)) - (##cdr _e195303195510_))) - (_lp-hd195304195514_ + (##cdr _e196464196671_))) + (_lp-hd196465196675_ (let () (declare (not safe)) - (##car _e195303195510_)))) + (##car _e196464196671_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd195304195514_)) - (let ((_e195312195520_ + (gx#stx-pair? _lp-hd196465196675_)) + (let ((_e196473196681_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd195304195514_)))) - (let ((_tl195310195527_ + _lp-hd196465196675_)))) + (let ((_tl196471196688_ (let () (declare (not safe)) - (##cdr _e195312195520_))) - (_hd195311195524_ + (##cdr _e196473196681_))) + (_hd196472196685_ (let () (declare (not safe)) - (##car _e195312195520_)))) + (##car _e196473196681_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195310195527_)) - (let ((_e195315195530_ + (gx#stx-pair? _tl196471196688_)) + (let ((_e196476196691_ (let () (declare (not safe)) (gx#syntax-e - _tl195310195527_)))) - (let ((_tl195313195537_ + _tl196471196688_)))) + (let ((_tl196474196698_ (let () (declare (not safe)) - (##cdr _e195315195530_))) - (_hd195314195534_ + (##cdr _e196476196691_))) + (_hd196475196695_ (let () (declare (not safe)) - (##car _e195315195530_)))) + (##car _e196476196691_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195313195537_)) - (_loop195302195498_ - _lp-tl195305195517_ + _tl196474196698_)) + (_loop196463196659_ + _lp-tl196466196678_ (let () (declare (not safe)) - (cons _hd195314195534_ - _method195306195505_)) + (cons _hd196475196695_ + _method196467196666_)) (let () (declare (not safe)) - (cons _hd195311195524_ - _symbol195307195507_))) - (___match211369211370_ - _e195279195418_ - _hd195278195422_ - _tl195277195425_ - _e195282195428_ - _hd195281195432_ - _tl195280195435_ - _e195286195442_ - _hd195285195446_ - _tl195284195449_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_)))) - (___match211369211370_ - _e195279195418_ - _hd195278195422_ - _tl195277195425_ - _e195282195428_ - _hd195281195432_ - _tl195280195435_ - _e195286195442_ - _hd195285195446_ - _tl195284195449_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_)))) - (___match211369211370_ - _e195279195418_ - _hd195278195422_ - _tl195277195425_ - _e195282195428_ - _hd195281195432_ - _tl195280195435_ - _e195286195442_ - _hd195285195446_ - _tl195284195449_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_)))) - (let ((_symbol195309195543_ - (reverse _symbol195307195507_)) - (_method195308195540_ - (reverse _method195306195505_))) - (___kont211281211282_ - _method195308195540_ - _symbol195309195543_ - _super195298195488_ - _hd195288195456_)))))) - (_loop195302195498_ _target195299195492_ '() '())) + (cons _hd196472196685_ + _symbol196468196668_))) + (___match212530212531_ + _e196440196579_ + _hd196439196583_ + _tl196438196586_ + _e196443196589_ + _hd196442196593_ + _tl196441196596_ + _e196447196603_ + _hd196446196607_ + _tl196445196610_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_)))) + (___match212530212531_ + _e196440196579_ + _hd196439196583_ + _tl196438196586_ + _e196443196589_ + _hd196442196593_ + _tl196441196596_ + _e196447196603_ + _hd196446196607_ + _tl196445196610_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_)))) + (___match212530212531_ + _e196440196579_ + _hd196439196583_ + _tl196438196586_ + _e196443196589_ + _hd196442196593_ + _tl196441196596_ + _e196447196603_ + _hd196446196607_ + _tl196445196610_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_)))) + (let ((_symbol196470196704_ + (reverse _symbol196468196668_)) + (_method196469196701_ + (reverse _method196467196666_))) + (___kont212442212443_ + _method196469196701_ + _symbol196470196704_ + _super196459196649_ + _hd196449196617_)))))) + (_loop196463196659_ _target196460196653_ '() '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match211369211370_ - _e195279195418_ - _hd195278195422_ - _tl195277195425_ - _e195282195428_ - _hd195281195432_ - _tl195280195435_ - _e195286195442_ - _hd195285195446_ - _tl195284195449_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_)))) - (___match211369211370_ - _e195279195418_ - _hd195278195422_ - _tl195277195425_ - _e195282195428_ - _hd195281195432_ - _tl195280195435_ - _e195286195442_ - _hd195285195446_ - _tl195284195449_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_))))))) - (_loop195293195468_ _target195290195462_ '())))) - (___match211307211308_ - (lambda (_e195266195604_ - _hd195265195608_ - _tl195264195611_ - _e195269195614_ - _hd195268195618_ - _tl195267195621_ - _e195272195624_ - _hd195271195628_ - _tl195270195631_) - (let ((_L195634_ _tl195270195631_) - (_L195636_ _hd195271195628_) - (_L195637_ _hd195268195618_) - (_L195638_ _hd195265195608_)) + (___match212530212531_ + _e196440196579_ + _hd196439196583_ + _tl196438196586_ + _e196443196589_ + _hd196442196593_ + _tl196441196596_ + _e196447196603_ + _hd196446196607_ + _tl196445196610_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_)))) + (___match212530212531_ + _e196440196579_ + _hd196439196583_ + _tl196438196586_ + _e196443196589_ + _hd196442196593_ + _tl196441196596_ + _e196447196603_ + _hd196446196607_ + _tl196445196610_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_))))))) + (_loop196454196629_ _target196451196623_ '())))) + (___match212468212469_ + (lambda (_e196427196765_ + _hd196426196769_ + _tl196425196772_ + _e196430196775_ + _hd196429196779_ + _tl196428196782_ + _e196433196785_ + _hd196432196789_ + _tl196431196792_) + (let ((_L196795_ _tl196431196792_) + (_L196797_ _hd196432196789_) + (_L196798_ _hd196429196779_) + (_L196799_ _hd196426196769_)) (if (let () (declare (not safe)) - (gx#identifier? _L195636_)) - (___kont211279211280_ - _L195634_ - _L195636_ - _L195637_ - _L195638_) + (gx#identifier? _L196797_)) + (___kont212440212441_ + _L196795_ + _L196797_ + _L196798_ + _L196799_) (if (let () (declare (not safe)) - (gx#stx-datum? _hd195268195618_)) - (let ((_e195283195438_ + (gx#stx-datum? _hd196429196779_)) + (let ((_e196444196599_ (let () (declare (not safe)) - (gx#stx-e _hd195268195618_)))) + (gx#stx-e _hd196429196779_)))) (if (let () (declare (not safe)) - (equal? _e195283195438_ '#f)) + (equal? _e196444196599_ '#f)) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195271195628_)) - (let ((_e195289195452_ + (gx#stx-pair? _hd196432196789_)) + (let ((_e196450196613_ (let () (declare (not safe)) (gx#syntax-e - _hd195271195628_)))) - (let ((_tl195287195459_ + _hd196432196789_)))) + (let ((_tl196448196620_ (let () (declare (not safe)) - (##cdr _e195289195452_))) - (_hd195288195456_ + (##cdr _e196450196613_))) + (_hd196449196617_ (let () (declare (not safe)) - (##car _e195289195452_)))) + (##car _e196450196613_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl195287195459_)) - (let ((___splice211283211284_ + _tl196448196620_)) + (let ((___splice212444212445_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl195287195459_ + _tl196448196620_ '0)))) - (let ((_tl195292195465_ + (let ((_tl196453196626_ (let () (declare (not safe)) (##vector-ref - ___splice211283211284_ + ___splice212444212445_ '1))) - (_target195290195462_ + (_target196451196623_ (let () (declare (not safe)) (##vector-ref - ___splice211283211284_ + ___splice212444212445_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195292195465_)) - (___match211345211346_ - _e195266195604_ - _hd195265195608_ - _tl195264195611_ - _e195269195614_ - _hd195268195618_ - _tl195267195621_ - _e195283195438_ - _e195272195624_ - _hd195271195628_ - _tl195270195631_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_ - ___splice211283211284_ - _target195290195462_ - _tl195292195465_) - (___match211369211370_ - _e195266195604_ - _hd195265195608_ - _tl195264195611_ - _e195269195614_ - _hd195268195618_ - _tl195267195621_ - _e195272195624_ - _hd195271195628_ - _tl195270195631_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_)))) - (___match211369211370_ - _e195266195604_ - _hd195265195608_ - _tl195264195611_ - _e195269195614_ - _hd195268195618_ - _tl195267195621_ - _e195272195624_ - _hd195271195628_ - _tl195270195631_ - _e195289195452_ - _hd195288195456_ - _tl195287195459_)))) + _tl196453196626_)) + (___match212506212507_ + _e196427196765_ + _hd196426196769_ + _tl196425196772_ + _e196430196775_ + _hd196429196779_ + _tl196428196782_ + _e196444196599_ + _e196433196785_ + _hd196432196789_ + _tl196431196792_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_ + ___splice212444212445_ + _target196451196623_ + _tl196453196626_) + (___match212530212531_ + _e196427196765_ + _hd196426196769_ + _tl196425196772_ + _e196430196775_ + _hd196429196779_ + _tl196428196782_ + _e196433196785_ + _hd196432196789_ + _tl196431196792_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_)))) + (___match212530212531_ + _e196427196765_ + _hd196426196769_ + _tl196425196772_ + _e196430196775_ + _hd196429196779_ + _tl196428196782_ + _e196433196785_ + _hd196432196789_ + _tl196431196792_ + _e196450196613_ + _hd196449196617_ + _tl196448196620_)))) (let () (declare (not safe)) - (_g195258195338_))) + (_g196419196499_))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195271195628_)) - (let ((_e195332195375_ + (gx#stx-pair? _hd196432196789_)) + (let ((_e196493196536_ (let () (declare (not safe)) (gx#syntax-e - _hd195271195628_)))) - (let ((_tl195330195382_ + _hd196432196789_)))) + (let ((_tl196491196543_ (let () (declare (not safe)) - (##cdr _e195332195375_))) - (_hd195331195379_ + (##cdr _e196493196536_))) + (_hd196492196540_ (let () (declare (not safe)) - (##car _e195332195375_)))) - (___match211369211370_ - _e195266195604_ - _hd195265195608_ - _tl195264195611_ - _e195269195614_ - _hd195268195618_ - _tl195267195621_ - _e195272195624_ - _hd195271195628_ - _tl195270195631_ - _e195332195375_ - _hd195331195379_ - _tl195330195382_))) + (##car _e196493196536_)))) + (___match212530212531_ + _e196427196765_ + _hd196426196769_ + _tl196425196772_ + _e196430196775_ + _hd196429196779_ + _tl196428196782_ + _e196433196785_ + _hd196432196789_ + _tl196431196792_ + _e196493196536_ + _hd196492196540_ + _tl196491196543_))) (let () (declare (not safe)) - (_g195258195338_))))) + (_g196419196499_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195271195628_)) - (let ((_e195332195375_ + (gx#stx-pair? _hd196432196789_)) + (let ((_e196493196536_ (let () (declare (not safe)) - (gx#syntax-e _hd195271195628_)))) - (let ((_tl195330195382_ + (gx#syntax-e _hd196432196789_)))) + (let ((_tl196491196543_ (let () (declare (not safe)) - (##cdr _e195332195375_))) - (_hd195331195379_ + (##cdr _e196493196536_))) + (_hd196492196540_ (let () (declare (not safe)) - (##car _e195332195375_)))) - (___match211369211370_ - _e195266195604_ - _hd195265195608_ - _tl195264195611_ - _e195269195614_ - _hd195268195618_ - _tl195267195621_ - _e195272195624_ - _hd195271195628_ - _tl195270195631_ - _e195332195375_ - _hd195331195379_ - _tl195330195382_))) + (##car _e196493196536_)))) + (___match212530212531_ + _e196427196765_ + _hd196426196769_ + _tl196425196772_ + _e196430196775_ + _hd196429196779_ + _tl196428196782_ + _e196433196785_ + _hd196432196789_ + _tl196431196792_ + _e196493196536_ + _hd196492196540_ + _tl196491196543_))) (let () (declare (not safe)) - (_g195258195338_))))))))) + (_g196419196499_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx211276211277_)) - (let ((_e195266195604_ + (gx#stx-pair? ___stx212437212438_)) + (let ((_e196427196765_ (let () (declare (not safe)) - (gx#syntax-e ___stx211276211277_)))) - (let ((_tl195264195611_ + (gx#syntax-e ___stx212437212438_)))) + (let ((_tl196425196772_ (let () (declare (not safe)) - (##cdr _e195266195604_))) - (_hd195265195608_ + (##cdr _e196427196765_))) + (_hd196426196769_ (let () (declare (not safe)) - (##car _e195266195604_)))) + (##car _e196427196765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195264195611_)) - (let ((_e195269195614_ + (gx#stx-pair? _tl196425196772_)) + (let ((_e196430196775_ (let () (declare (not safe)) - (gx#syntax-e _tl195264195611_)))) - (let ((_tl195267195621_ + (gx#syntax-e _tl196425196772_)))) + (let ((_tl196428196782_ (let () (declare (not safe)) - (##cdr _e195269195614_))) - (_hd195268195618_ + (##cdr _e196430196775_))) + (_hd196429196779_ (let () (declare (not safe)) - (##car _e195269195614_)))) + (##car _e196430196775_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195267195621_)) - (let ((_e195272195624_ + (gx#stx-pair? _tl196428196782_)) + (let ((_e196433196785_ (let () (declare (not safe)) - (gx#syntax-e _tl195267195621_)))) - (let ((_tl195270195631_ + (gx#syntax-e _tl196428196782_)))) + (let ((_tl196431196792_ (let () (declare (not safe)) - (##cdr _e195272195624_))) - (_hd195271195628_ + (##cdr _e196433196785_))) + (_hd196432196789_ (let () (declare (not safe)) - (##car _e195272195624_)))) - (___match211307211308_ - _e195266195604_ - _hd195265195608_ - _tl195264195611_ - _e195269195614_ - _hd195268195618_ - _tl195267195621_ - _e195272195624_ - _hd195271195628_ - _tl195270195631_))) + (##car _e196433196785_)))) + (___match212468212469_ + _e196427196765_ + _hd196426196769_ + _tl196425196772_ + _e196430196775_ + _hd196429196779_ + _tl196428196782_ + _e196433196785_ + _hd196432196789_ + _tl196431196792_))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd195268195618_)) - (let ((_e195283195438_ + (gx#stx-datum? _hd196429196779_)) + (let ((_e196444196599_ (let () (declare (not safe)) - (gx#stx-e _hd195268195618_)))) + (gx#stx-e _hd196429196779_)))) (declare (not safe)) - (_g195258195338_)) + (_g196419196499_)) (let () (declare (not safe)) - (_g195258195338_)))))) - (let () (declare (not safe)) (_g195258195338_))))) - (let () (declare (not safe)) (_g195258195338_)))))))) + (_g196419196499_)))))) + (let () (declare (not safe)) (_g196419196499_))))) + (let () (declare (not safe)) (_g196419196499_)))))))) (define |gxc[:0:]#do-apply-compile-e| - (lambda (_$stx195661_) - (let* ((_g195665195683_ - (lambda (_g195666195679_) + (lambda (_$stx196822_) + (let* ((_g196826196844_ + (lambda (_g196827196840_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195666195679_)))) - (_g195664195738_ - (lambda (_g195666195687_) + _g196827196840_)))) + (_g196825196899_ + (lambda (_g196827196848_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195666195687_)) - (let ((_e195671195690_ + (gx#stx-pair? _g196827196848_)) + (let ((_e196832196851_ (let () (declare (not safe)) - (gx#syntax-e _g195666195687_)))) - (let ((_hd195670195694_ + (gx#syntax-e _g196827196848_)))) + (let ((_hd196831196855_ (let () (declare (not safe)) - (##car _e195671195690_))) - (_tl195669195697_ + (##car _e196832196851_))) + (_tl196830196858_ (let () (declare (not safe)) - (##cdr _e195671195690_)))) + (##cdr _e196832196851_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195669195697_)) - (let ((_e195674195700_ + (gx#stx-pair? _tl196830196858_)) + (let ((_e196835196861_ (let () (declare (not safe)) - (gx#syntax-e _tl195669195697_)))) - (let ((_hd195673195704_ + (gx#syntax-e _tl196830196858_)))) + (let ((_hd196834196865_ (let () (declare (not safe)) - (##car _e195674195700_))) - (_tl195672195707_ + (##car _e196835196861_))) + (_tl196833196868_ (let () (declare (not safe)) - (##cdr _e195674195700_)))) + (##cdr _e196835196861_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195672195707_)) - (let ((_e195677195710_ + (gx#stx-pair? _tl196833196868_)) + (let ((_e196838196871_ (let () (declare (not safe)) (gx#syntax-e - _tl195672195707_)))) - (let ((_hd195676195714_ + _tl196833196868_)))) + (let ((_hd196837196875_ (let () (declare (not safe)) - (##car _e195677195710_))) - (_tl195675195717_ + (##car _e196838196871_))) + (_tl196836196878_ (let () (declare (not safe)) - (##cdr _e195677195710_)))) + (##cdr _e196838196871_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195675195717_)) - ((lambda (_L195720_ _L195722_) - (let ((__tmp213788 + _tl196836196878_)) + ((lambda (_L196881_ _L196883_) + (let ((__tmp214949 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp213700 - (let ((__tmp213785 - (let ((__tmp213787 + (__tmp214861 + (let ((__tmp214946 + (let ((__tmp214948 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp213786 + (__tmp214947 (let () (declare (not safe)) - (cons _L195720_ '())))) + (cons _L196881_ '())))) (declare (not safe)) - (cons __tmp213787 __tmp213786))) - (__tmp213701 - (let ((__tmp213782 - (let ((__tmp213784 + (cons __tmp214948 __tmp214947))) + (__tmp214862 + (let ((__tmp214943 + (let ((__tmp214945 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp213783 + (__tmp214944 (let () (declare (not safe)) - (cons _L195722_ '())))) + (cons _L196883_ '())))) (declare (not safe)) - (cons __tmp213784 __tmp213783))) - (__tmp213702 - (let ((__tmp213703 - (let ((__tmp213781 + (cons __tmp214945 __tmp214944))) + (__tmp214863 + (let ((__tmp214864 + (let ((__tmp214942 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp213704 - (let ((__tmp213767 - (let ((__tmp213775 - (let ((__tmp213780 + (__tmp214865 + (let ((__tmp214928 + (let ((__tmp214936 + (let ((__tmp214941 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp213776 - (let ((__tmp213777 - (let ((__tmp213779 + (__tmp214937 + (let ((__tmp214938 + (let ((__tmp214940 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp213778 + (__tmp214939 (let () (declare (not safe)) - (cons _L195720_ '())))) + (cons _L196881_ '())))) (declare (not safe)) - (cons __tmp213779 __tmp213778)))) + (cons __tmp214940 __tmp214939)))) (declare (not safe)) - (cons __tmp213777 '())))) + (cons __tmp214938 '())))) (declare (not safe)) - (cons __tmp213780 __tmp213776))) - (__tmp213768 - (let ((__tmp213769 - (let ((__tmp213774 + (cons __tmp214941 __tmp214937))) + (__tmp214929 + (let ((__tmp214930 + (let ((__tmp214935 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp213770 - (let ((__tmp213771 - (let ((__tmp213773 + (__tmp214931 + (let ((__tmp214932 + (let ((__tmp214934 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp213772 + (__tmp214933 (let () (declare (not safe)) - (cons _L195720_ '())))) + (cons _L196881_ '())))) (declare (not safe)) - (cons __tmp213773 __tmp213772)))) + (cons __tmp214934 __tmp214933)))) (declare (not safe)) - (cons __tmp213771 '())))) + (cons __tmp214932 '())))) (declare (not safe)) - (cons __tmp213774 __tmp213770)))) + (cons __tmp214935 __tmp214931)))) (declare (not safe)) - (cons __tmp213769 '())))) + (cons __tmp214930 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213775 - __tmp213768))) - (__tmp213705 - (let ((__tmp213706 - (let ((__tmp213766 + (cons __tmp214936 + __tmp214929))) + (__tmp214866 + (let ((__tmp214867 + (let ((__tmp214927 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp213707 - (let ((__tmp213762 - (let ((__tmp213765 + (__tmp214868 + (let ((__tmp214923 + (let ((__tmp214926 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp213763 - (let ((__tmp213764 + (__tmp214924 + (let ((__tmp214925 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp213764 '())))) + (cons __tmp214925 '())))) (declare (not safe)) - (cons __tmp213765 __tmp213763))) - (__tmp213708 - (let ((__tmp213757 - (let ((__tmp213761 + (cons __tmp214926 __tmp214924))) + (__tmp214869 + (let ((__tmp214918 + (let ((__tmp214922 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp213758 - (let ((__tmp213759 - (let ((__tmp213760 + (__tmp214919 + (let ((__tmp214920 + (let ((__tmp214921 (let () (declare (not safe)) @@ -1629,578 +1629,578 @@ '#f 'arg1)))) (declare (not safe)) - (cons __tmp213760 + (cons __tmp214921 '())))) (declare (not safe)) - (cons _L195722_ __tmp213759)))) + (cons _L196883_ __tmp214920)))) (declare (not safe)) - (cons __tmp213761 __tmp213758))) - (__tmp213709 - (let ((__tmp213710 - (let ((__tmp213756 + (cons __tmp214922 __tmp214919))) + (__tmp214870 + (let ((__tmp214871 + (let ((__tmp214917 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp213711 - (let ((__tmp213740 - (let ((__tmp213749 + (__tmp214872 + (let ((__tmp214901 + (let ((__tmp214910 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213755 + (let ((__tmp214916 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp213750 - (let ((__tmp213751 - (let ((__tmp213754 + (__tmp214911 + (let ((__tmp214912 + (let ((__tmp214915 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'car))) - (__tmp213752 - (let ((__tmp213753 + (__tmp214913 + (let ((__tmp214914 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp213753 '())))) + (cons __tmp214914 '())))) (declare (not safe)) - (cons __tmp213754 __tmp213752)))) + (cons __tmp214915 __tmp214913)))) (declare (not safe)) - (cons __tmp213751 '())))) + (cons __tmp214912 '())))) (declare (not safe)) - (cons __tmp213755 __tmp213750))) - (__tmp213741 - (let ((__tmp213742 - (let ((__tmp213748 + (cons __tmp214916 __tmp214911))) + (__tmp214902 + (let ((__tmp214903 + (let ((__tmp214909 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp213743 - (let ((__tmp213744 - (let ((__tmp213747 + (__tmp214904 + (let ((__tmp214905 + (let ((__tmp214908 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cdr))) - (__tmp213745 - (let ((__tmp213746 + (__tmp214906 + (let ((__tmp214907 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp213746 '())))) + (cons __tmp214907 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213747 - __tmp213745)))) + (cons __tmp214908 + __tmp214906)))) (declare (not safe)) - (cons __tmp213744 '())))) + (cons __tmp214905 '())))) (declare (not safe)) - (cons __tmp213748 __tmp213743)))) + (cons __tmp214909 __tmp214904)))) (declare (not safe)) - (cons __tmp213742 '())))) + (cons __tmp214903 '())))) (declare (not safe)) - (cons __tmp213749 __tmp213741))) - (__tmp213712 - (let ((__tmp213713 - (let ((__tmp213739 + (cons __tmp214910 __tmp214902))) + (__tmp214873 + (let ((__tmp214874 + (let ((__tmp214900 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp213714 - (let ((__tmp213735 - (let ((__tmp213738 + (__tmp214875 + (let ((__tmp214896 + (let ((__tmp214899 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'null?))) - (__tmp213736 - (let ((__tmp213737 + (__tmp214897 + (let ((__tmp214898 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp213737 '())))) + (cons __tmp214898 '())))) (declare (not safe)) - (cons __tmp213738 __tmp213736))) - (__tmp213715 - (let ((__tmp213728 - (let ((__tmp213734 + (cons __tmp214899 __tmp214897))) + (__tmp214876 + (let ((__tmp214889 + (let ((__tmp214895 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp213729 - (let ((__tmp213730 - (let ((__tmp213733 + (__tmp214890 + (let ((__tmp214891 + (let ((__tmp214894 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp213731 - (let ((__tmp213732 + (__tmp214892 + (let ((__tmp214893 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2)))) (declare (not safe)) - (cons __tmp213732 '())))) + (cons __tmp214893 '())))) (declare (not safe)) - (cons __tmp213733 __tmp213731)))) + (cons __tmp214894 __tmp214892)))) (declare (not safe)) - (cons _L195722_ __tmp213730)))) + (cons _L196883_ __tmp214891)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213734 - __tmp213729))) - (__tmp213716 - (let ((__tmp213717 - (let ((__tmp213727 + (cons __tmp214895 + __tmp214890))) + (__tmp214877 + (let ((__tmp214878 + (let ((__tmp214888 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'apply))) - (__tmp213718 - (let ((__tmp213726 + (__tmp214879 + (let ((__tmp214887 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp213719 - (let ((__tmp213720 - (let ((__tmp213725 + (__tmp214880 + (let ((__tmp214881 + (let ((__tmp214886 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg1))) - (__tmp213721 - (let ((__tmp213724 + (__tmp214882 + (let ((__tmp214885 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'arg2))) - (__tmp213722 - (let ((__tmp213723 + (__tmp214883 + (let ((__tmp214884 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp213723 '())))) + (cons __tmp214884 '())))) (declare (not safe)) - (cons __tmp213724 __tmp213722)))) + (cons __tmp214885 __tmp214883)))) (declare (not safe)) - (cons __tmp213725 __tmp213721)))) + (cons __tmp214886 __tmp214882)))) (declare (not safe)) - (cons _L195722_ __tmp213720)))) + (cons _L196883_ __tmp214881)))) (declare (not safe)) - (cons __tmp213726 __tmp213719)))) + (cons __tmp214887 __tmp214880)))) (declare (not safe)) - (cons __tmp213727 __tmp213718)))) + (cons __tmp214888 __tmp214879)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213717 '())))) + (cons __tmp214878 '())))) (declare (not safe)) - (cons __tmp213728 __tmp213716)))) + (cons __tmp214889 __tmp214877)))) (declare (not safe)) - (cons __tmp213735 __tmp213715)))) + (cons __tmp214896 __tmp214876)))) (declare (not safe)) - (cons __tmp213739 __tmp213714)))) + (cons __tmp214900 __tmp214875)))) (declare (not safe)) - (cons __tmp213713 '())))) + (cons __tmp214874 '())))) (declare (not safe)) - (cons __tmp213740 __tmp213712)))) + (cons __tmp214901 __tmp214873)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213756 - __tmp213711)))) + (cons __tmp214917 + __tmp214872)))) (declare (not safe)) - (cons __tmp213710 '())))) + (cons __tmp214871 '())))) (declare (not safe)) - (cons __tmp213757 __tmp213709)))) + (cons __tmp214918 __tmp214870)))) (declare (not safe)) - (cons __tmp213762 __tmp213708)))) + (cons __tmp214923 __tmp214869)))) (declare (not safe)) - (cons __tmp213766 __tmp213707)))) + (cons __tmp214927 __tmp214868)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213706 '())))) + (cons __tmp214867 '())))) (declare (not safe)) - (cons __tmp213767 __tmp213705)))) + (cons __tmp214928 __tmp214866)))) (declare (not safe)) - (cons __tmp213781 __tmp213704)))) + (cons __tmp214942 __tmp214865)))) (declare (not safe)) - (cons __tmp213703 '())))) + (cons __tmp214864 '())))) (declare (not safe)) - (cons __tmp213782 __tmp213702)))) + (cons __tmp214943 __tmp214863)))) (declare (not safe)) - (cons __tmp213785 __tmp213701)))) + (cons __tmp214946 __tmp214862)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213788 - __tmp213700))) - _hd195676195714_ - _hd195673195704_) - (_g195665195683_ - _g195666195687_)))) - (_g195665195683_ _g195666195687_)))) - (_g195665195683_ _g195666195687_)))) - (_g195665195683_ _g195666195687_))))) - (_g195664195738_ _$stx195661_)))) + (cons __tmp214949 + __tmp214861))) + _hd196837196875_ + _hd196834196865_) + (_g196826196844_ + _g196827196848_)))) + (_g196826196844_ _g196827196848_)))) + (_g196826196844_ _g196827196848_)))) + (_g196826196844_ _g196827196848_))))) + (_g196825196899_ _$stx196822_)))) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_$stx195742_) - (let* ((_g195746195781_ - (lambda (_g195747195777_) + (lambda (_$stx196903_) + (let* ((_g196907196942_ + (lambda (_g196908196938_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195747195777_)))) - (_g195745195906_ - (lambda (_g195747195785_) + _g196908196938_)))) + (_g196906197067_ + (lambda (_g196908196946_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195747195785_)) - (let ((_e195754195788_ + (gx#stx-pair? _g196908196946_)) + (let ((_e196915196949_ (let () (declare (not safe)) - (gx#syntax-e _g195747195785_)))) - (let ((_hd195753195792_ + (gx#syntax-e _g196908196946_)))) + (let ((_hd196914196953_ (let () (declare (not safe)) - (##car _e195754195788_))) - (_tl195752195795_ + (##car _e196915196949_))) + (_tl196913196956_ (let () (declare (not safe)) - (##cdr _e195754195788_)))) + (##cdr _e196915196949_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195752195795_)) - (let ((_e195757195798_ + (gx#stx-pair? _tl196913196956_)) + (let ((_e196918196959_ (let () (declare (not safe)) - (gx#syntax-e _tl195752195795_)))) - (let ((_hd195756195802_ + (gx#syntax-e _tl196913196956_)))) + (let ((_hd196917196963_ (let () (declare (not safe)) - (##car _e195757195798_))) - (_tl195755195805_ + (##car _e196918196959_))) + (_tl196916196966_ (let () (declare (not safe)) - (##cdr _e195757195798_)))) + (##cdr _e196918196959_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd195756195802_)) - (let ((_e195760195808_ + (gx#stx-pair? _hd196917196963_)) + (let ((_e196921196969_ (let () (declare (not safe)) (gx#syntax-e - _hd195756195802_)))) - (let ((_hd195759195812_ + _hd196917196963_)))) + (let ((_hd196920196973_ (let () (declare (not safe)) - (##car _e195760195808_))) - (_tl195758195815_ + (##car _e196921196969_))) + (_tl196919196976_ (let () (declare (not safe)) - (##cdr _e195760195808_)))) + (##cdr _e196921196969_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl195758195815_)) - (let ((_e195763195818_ + _tl196919196976_)) + (let ((_e196924196979_ (let () (declare (not safe)) (gx#syntax-e - _tl195758195815_)))) - (let ((_hd195762195822_ + _tl196919196976_)))) + (let ((_hd196923196983_ (let () (declare (not safe)) - (##car _e195763195818_))) - (_tl195761195825_ + (##car _e196924196979_))) + (_tl196922196986_ (let () (declare (not safe)) - (##cdr _e195763195818_)))) + (##cdr _e196924196979_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl195761195825_)) - (let ((_e195766195828_ + _tl196922196986_)) + (let ((_e196927196989_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _tl195761195825_)))) - (let ((_hd195765195832_ - (let () (declare (not safe)) (##car _e195766195828_))) - (_tl195764195835_ - (let () (declare (not safe)) (##cdr _e195766195828_)))) + (gx#syntax-e _tl196922196986_)))) + (let ((_hd196926196993_ + (let () (declare (not safe)) (##car _e196927196989_))) + (_tl196925196996_ + (let () (declare (not safe)) (##cdr _e196927196989_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl195764195835_)) + (gx#stx-null? _tl196925196996_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl195755195805_)) - (let ((_g213789_ + (gx#stx-pair/null? _tl196916196966_)) + (let ((_g214950_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl195755195805_ + _tl196916196966_ '0)))) (begin - (let ((_g213790_ + (let ((_g214951_ (let () (declare (not safe)) - (if (##values? _g213789_) - (##vector-length _g213789_) + (if (##values? _g214950_) + (##vector-length _g214950_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g213790_ 2))) + (##fx= _g214951_ 2))) (error "Context expects 2 values" - _g213790_))) - (let ((_target195767195838_ + _g214951_))) + (let ((_target196928196999_ (let () (declare (not safe)) - (##vector-ref _g213789_ 0))) - (_tl195769195841_ + (##vector-ref _g214950_ 0))) + (_tl196930197002_ (let () (declare (not safe)) - (##vector-ref _g213789_ 1)))) + (##vector-ref _g214950_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl195769195841_)) - (letrec ((_loop195770195844_ - (lambda (_hd195768195848_ - _body195774195851_) + (gx#stx-null? _tl196930197002_)) + (letrec ((_loop196931197005_ + (lambda (_hd196929197009_ + _body196935197012_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd195768195848_)) - (let ((_e195771195854_ + _hd196929197009_)) + (let ((_e196932197015_ (let () (declare (not safe)) (gx#syntax-e - _hd195768195848_)))) - (let ((_lp-hd195772195858_ + _hd196929197009_)))) + (let ((_lp-hd196933197019_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e195771195854_))) - (_lp-tl195773195861_ - (let () (declare (not safe)) (##cdr _e195771195854_)))) - (_loop195770195844_ - _lp-tl195773195861_ + (##car _e196932197015_))) + (_lp-tl196934197022_ + (let () (declare (not safe)) (##cdr _e196932197015_)))) + (_loop196931197005_ + _lp-tl196934197022_ (let () (declare (not safe)) - (cons _lp-hd195772195858_ _body195774195851_))))) + (cons _lp-hd196933197019_ _body196935197012_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body195775195864_ - (reverse _body195774195851_))) - ((lambda (_L195868_ - _L195870_ - _L195871_ - _L195872_) - (let ((__tmp213922 + (let ((_body196936197025_ + (reverse _body196935197012_))) + ((lambda (_L197029_ + _L197031_ + _L197032_ + _L197033_) + (let ((__tmp215083 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp213791 - (let ((__tmp213921 + (__tmp214952 + (let ((__tmp215082 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp213792 - (let ((__tmp213907 - (let ((__tmp213918 - (let ((__tmp213920 + (__tmp214953 + (let ((__tmp215068 + (let ((__tmp215079 + (let ((__tmp215081 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp213919 + (__tmp215080 (let () (declare (not safe)) - (cons _L195870_ '())))) + (cons _L197031_ '())))) (declare (not safe)) - (cons __tmp213920 __tmp213919))) - (__tmp213908 - (let ((__tmp213914 - (let ((__tmp213915 - (let ((__tmp213916 + (cons __tmp215081 __tmp215080))) + (__tmp215069 + (let ((__tmp215075 + (let ((__tmp215076 + (let ((__tmp215077 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213917 + (let ((__tmp215078 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp213917 '())))) + (cons __tmp215078 '())))) (declare (not safe)) - (cons __tmp213916 '())))) + (cons __tmp215077 '())))) (declare (not safe)) - (cons _L195872_ __tmp213915))) + (cons _L197033_ __tmp215076))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp213909 - (let ((__tmp213910 - (let ((__tmp213911 + (__tmp215070 + (let ((__tmp215071 + (let ((__tmp215072 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213912 - (let ((__tmp213913 + (let ((__tmp215073 + (let ((__tmp215074 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)))) (declare (not safe)) - (cons __tmp213913 '())))) + (cons __tmp215074 '())))) (declare (not safe)) - (cons __tmp213912 '())))) + (cons __tmp215073 '())))) (declare (not safe)) - (cons _L195871_ __tmp213911)))) + (cons _L197032_ __tmp215072)))) (declare (not safe)) - (cons __tmp213910 '())))) + (cons __tmp215071 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213914 - __tmp213909)))) + (cons __tmp215075 + __tmp215070)))) (declare (not safe)) - (cons __tmp213918 __tmp213908))) - (__tmp213793 - (let ((__tmp213794 - (let ((__tmp213906 + (cons __tmp215079 __tmp215069))) + (__tmp214954 + (let ((__tmp214955 + (let ((__tmp215067 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'match))) - (__tmp213795 - (let ((__tmp213905 + (__tmp214956 + (let ((__tmp215066 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp213796 - (let ((__tmp213802 + (__tmp214957 + (let ((__tmp214963 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213900 - (let ((__tmp213904 + (let ((__tmp215061 + (let ((__tmp215065 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp213901 - (let ((__tmp213903 + (__tmp215062 + (let ((__tmp215064 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp213902 + (__tmp215063 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)))) (declare (not safe)) - (cons __tmp213903 __tmp213902)))) + (cons __tmp215064 __tmp215063)))) (declare (not safe)) - (cons __tmp213904 __tmp213901))) - (__tmp213803 - (let ((__tmp213804 - (let ((__tmp213899 + (cons __tmp215065 __tmp215062))) + (__tmp214964 + (let ((__tmp214965 + (let ((__tmp215060 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'ast-case))) - (__tmp213805 - (let ((__tmp213898 + (__tmp214966 + (let ((__tmp215059 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e))) - (__tmp213806 - (let ((__tmp213894 - (let ((__tmp213897 + (__tmp214967 + (let ((__tmp215055 + (let ((__tmp215058 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp213895 - (let ((__tmp213896 + (__tmp215056 + (let ((__tmp215057 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)))) (declare (not safe)) - (cons __tmp213896 '())))) + (cons __tmp215057 '())))) (declare (not safe)) - (cons __tmp213897 __tmp213895))) - (__tmp213807 - (let ((__tmp213874 - (let ((__tmp213890 - (let ((__tmp213893 + (cons __tmp215058 __tmp215056))) + (__tmp214968 + (let ((__tmp215035 + (let ((__tmp215051 + (let ((__tmp215054 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp213891 - (let ((__tmp213892 + (__tmp215052 + (let ((__tmp215053 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp213892 '())))) + (cons __tmp215053 '())))) (declare (not safe)) - (cons __tmp213893 __tmp213891))) - (__tmp213875 - (let ((__tmp213876 - (let ((__tmp213889 + (cons __tmp215054 __tmp215052))) + (__tmp215036 + (let ((__tmp215037 + (let ((__tmp215050 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp213877 - (let ((__tmp213888 + (__tmp215038 + (let ((__tmp215049 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp213878 - (let ((__tmp213879 - (let ((__tmp213880 + (__tmp215039 + (let ((__tmp215040 + (let ((__tmp215041 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp213887 + (let ((__tmp215048 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp213881 - (let ((__tmp213883 - (let ((__tmp213886 + (__tmp215042 + (let ((__tmp215044 + (let ((__tmp215047 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp213884 - (let ((__tmp213885 + (__tmp215045 + (let ((__tmp215046 (let () (declare (not safe)) @@ -2208,462 +2208,462 @@ '#f 'e)))) (declare (not safe)) - (cons __tmp213885 '())))) + (cons __tmp215046 '())))) (declare (not safe)) - (cons __tmp213886 __tmp213884))) - (__tmp213882 + (cons __tmp215047 __tmp215045))) + (__tmp215043 (let () (declare (not safe)) - (cons _L195871_ '())))) + (cons _L197032_ '())))) (declare (not safe)) - (cons __tmp213883 __tmp213882)))) + (cons __tmp215044 __tmp215043)))) (declare (not safe)) - (cons __tmp213887 __tmp213881)))) + (cons __tmp215048 __tmp215042)))) (declare (not safe)) - (cons __tmp213880 '())))) + (cons __tmp215041 '())))) (declare (not safe)) - (cons _L195872_ __tmp213879)))) + (cons _L197033_ __tmp215040)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213888 - __tmp213878)))) + (cons __tmp215049 + __tmp215039)))) (declare (not safe)) - (cons __tmp213889 __tmp213877)))) + (cons __tmp215050 __tmp215038)))) (declare (not safe)) - (cons __tmp213876 '())))) + (cons __tmp215037 '())))) (declare (not safe)) - (cons __tmp213890 __tmp213875))) - (__tmp213808 - (let ((__tmp213854 - (let ((__tmp213870 - (let ((__tmp213873 + (cons __tmp215051 __tmp215036))) + (__tmp214969 + (let ((__tmp215015 + (let ((__tmp215031 + (let ((__tmp215034 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp213871 - (let ((__tmp213872 + (__tmp215032 + (let ((__tmp215033 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_)))) (declare (not safe)) - (cons __tmp213872 '())))) + (cons __tmp215033 '())))) (declare (not safe)) - (cons __tmp213873 __tmp213871))) - (__tmp213855 - (let ((__tmp213856 - (let ((__tmp213869 + (cons __tmp215034 __tmp215032))) + (__tmp215016 + (let ((__tmp215017 + (let ((__tmp215030 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp213857 - (let ((__tmp213868 + (__tmp215018 + (let ((__tmp215029 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp213858 - (let ((__tmp213859 - (let ((__tmp213860 - (let ((__tmp213867 + (__tmp215019 + (let ((__tmp215020 + (let ((__tmp215021 + (let ((__tmp215028 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp213861 - (let ((__tmp213863 - (let ((__tmp213866 + (__tmp215022 + (let ((__tmp215024 + (let ((__tmp215027 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp213864 - (let ((__tmp213865 + (__tmp215025 + (let ((__tmp215026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp213865 '())))) + (cons __tmp215026 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213866 - __tmp213864))) - (__tmp213862 + (cons __tmp215027 + __tmp215025))) + (__tmp215023 (let () (declare (not safe)) - (cons _L195871_ '())))) + (cons _L197032_ '())))) (declare (not safe)) - (cons __tmp213863 __tmp213862)))) + (cons __tmp215024 __tmp215023)))) (declare (not safe)) - (cons __tmp213867 __tmp213861)))) + (cons __tmp215028 __tmp215022)))) (declare (not safe)) - (cons __tmp213860 '())))) + (cons __tmp215021 '())))) (declare (not safe)) - (cons _L195872_ __tmp213859)))) + (cons _L197033_ __tmp215020)))) (declare (not safe)) - (cons __tmp213868 __tmp213858)))) + (cons __tmp215029 __tmp215019)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213869 - __tmp213857)))) + (cons __tmp215030 + __tmp215018)))) (declare (not safe)) - (cons __tmp213856 '())))) + (cons __tmp215017 '())))) (declare (not safe)) - (cons __tmp213870 __tmp213855))) - (__tmp213809 - (let ((__tmp213810 - (let ((__tmp213853 + (cons __tmp215031 __tmp215016))) + (__tmp214970 + (let ((__tmp214971 + (let ((__tmp215014 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '_))) - (__tmp213811 - (let ((__tmp213812 - (let ((__tmp213852 + (__tmp214972 + (let ((__tmp214973 + (let ((__tmp215013 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'let))) - (__tmp213813 - (let ((__tmp213839 - (let ((__tmp213851 + (__tmp214974 + (let ((__tmp215000 + (let ((__tmp215012 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp213840 - (let ((__tmp213841 - (let ((__tmp213850 + (__tmp215001 + (let ((__tmp215002 + (let ((__tmp215011 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-symbol))) - (__tmp213842 - (let ((__tmp213843 - (let ((__tmp213849 + (__tmp215003 + (let ((__tmp215004 + (let ((__tmp215010 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gensym))) - (__tmp213844 - (let ((__tmp213845 - (let ((__tmp213848 + (__tmp215005 + (let ((__tmp215006 + (let ((__tmp215009 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp213846 - (let ((__tmp213847 + (__tmp215007 + (let ((__tmp215008 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '__tmp)))) (declare (not safe)) - (cons __tmp213847 '())))) + (cons __tmp215008 '())))) (declare (not safe)) - (cons __tmp213848 __tmp213846)))) + (cons __tmp215009 __tmp215007)))) (declare (not safe)) - (cons __tmp213845 '())))) + (cons __tmp215006 '())))) (declare (not safe)) - (cons __tmp213849 __tmp213844)))) + (cons __tmp215010 __tmp215005)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213843 '())))) + (cons __tmp215004 '())))) (declare (not safe)) - (cons __tmp213850 __tmp213842)))) + (cons __tmp215011 __tmp215003)))) (declare (not safe)) - (cons __tmp213841 '())))) + (cons __tmp215002 '())))) (declare (not safe)) - (cons __tmp213851 __tmp213840))) - (__tmp213814 - (let ((__tmp213815 - (let ((__tmp213838 + (cons __tmp215012 __tmp215001))) + (__tmp214975 + (let ((__tmp214976 + (let ((__tmp214999 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lp))) - (__tmp213816 - (let ((__tmp213837 + (__tmp214977 + (let ((__tmp214998 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest))) - (__tmp213817 - (let ((__tmp213824 - (let ((__tmp213836 + (__tmp214978 + (let ((__tmp214985 + (let ((__tmp214997 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp213825 - (let ((__tmp213827 - (let ((__tmp213835 + (__tmp214986 + (let ((__tmp214988 + (let ((__tmp214996 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp213828 - (let ((__tmp213834 + (__tmp214989 + (let ((__tmp214995 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp213829 - (let ((__tmp213830 - (let ((__tmp213833 + (__tmp214990 + (let ((__tmp214991 + (let ((__tmp214994 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'compile-e))) - (__tmp213831 - (let ((__tmp213832 + (__tmp214992 + (let ((__tmp214993 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'e)))) (declare (not safe)) - (cons __tmp213832 '())))) + (cons __tmp214993 '())))) (declare (not safe)) - (cons __tmp213833 __tmp213831)))) + (cons __tmp214994 __tmp214992)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213830 '())))) + (cons __tmp214991 '())))) (declare (not safe)) - (cons __tmp213834 __tmp213829)))) + (cons __tmp214995 __tmp214990)))) (declare (not safe)) - (cons __tmp213835 __tmp213828))) - (__tmp213826 + (cons __tmp214996 __tmp214989))) + (__tmp214987 (let () (declare (not safe)) - (cons _L195872_ '())))) + (cons _L197033_ '())))) (declare (not safe)) - (cons __tmp213827 __tmp213826)))) + (cons __tmp214988 __tmp214987)))) (declare (not safe)) - (cons __tmp213836 __tmp213825))) - (__tmp213818 - (let ((__tmp213819 - (let ((__tmp213823 + (cons __tmp214997 __tmp214986))) + (__tmp214979 + (let ((__tmp214980 + (let ((__tmp214984 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cons))) - (__tmp213820 - (let ((__tmp213822 + (__tmp214981 + (let ((__tmp214983 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'tmp))) - (__tmp213821 + (__tmp214982 (let () (declare (not safe)) - (cons _L195871_ '())))) + (cons _L197032_ '())))) (declare (not safe)) - (cons __tmp213822 __tmp213821)))) + (cons __tmp214983 __tmp214982)))) (declare (not safe)) - (cons __tmp213823 __tmp213820)))) + (cons __tmp214984 __tmp214981)))) (declare (not safe)) - (cons __tmp213819 '())))) + (cons __tmp214980 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213824 - __tmp213818)))) + (cons __tmp214985 + __tmp214979)))) (declare (not safe)) - (cons __tmp213837 __tmp213817)))) + (cons __tmp214998 __tmp214978)))) (declare (not safe)) - (cons __tmp213838 __tmp213816)))) + (cons __tmp214999 __tmp214977)))) (declare (not safe)) - (cons __tmp213815 '())))) + (cons __tmp214976 '())))) (declare (not safe)) - (cons __tmp213839 __tmp213814)))) + (cons __tmp215000 __tmp214975)))) (declare (not safe)) - (cons __tmp213852 __tmp213813)))) + (cons __tmp215013 __tmp214974)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213812 '())))) + (cons __tmp214973 '())))) (declare (not safe)) - (cons __tmp213853 __tmp213811)))) + (cons __tmp215014 __tmp214972)))) (declare (not safe)) - (cons __tmp213810 '())))) + (cons __tmp214971 '())))) (declare (not safe)) - (cons __tmp213854 __tmp213809)))) + (cons __tmp215015 __tmp214970)))) (declare (not safe)) - (cons __tmp213874 __tmp213808)))) + (cons __tmp215035 __tmp214969)))) (declare (not safe)) - (cons __tmp213894 __tmp213807)))) + (cons __tmp215055 __tmp214968)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213898 - __tmp213806)))) + (cons __tmp215059 + __tmp214967)))) (declare (not safe)) - (cons __tmp213899 __tmp213805)))) + (cons __tmp215060 __tmp214966)))) (declare (not safe)) - (cons __tmp213804 '())))) + (cons __tmp214965 '())))) (declare (not safe)) - (cons __tmp213900 __tmp213803))) - (__tmp213797 - (let ((__tmp213798 - (let ((__tmp213801 + (cons __tmp215061 __tmp214964))) + (__tmp214958 + (let ((__tmp214959 + (let ((__tmp214962 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp213799 - (let ((__tmp213800 - (lambda (_g195897195900_ - _g195898195903_) + (__tmp214960 + (let ((__tmp214961 + (lambda (_g197058197061_ + _g197059197064_) (let () (declare (not safe)) - (cons _g195897195900_ - _g195898195903_))))) + (cons _g197058197061_ + _g197059197064_))))) (declare (not safe)) - (foldr1 __tmp213800 '() _L195868_)))) + (foldr1 __tmp214961 '() _L197029_)))) (declare (not safe)) - (cons __tmp213801 __tmp213799)))) + (cons __tmp214962 __tmp214960)))) (declare (not safe)) - (cons __tmp213798 '())))) + (cons __tmp214959 '())))) (declare (not safe)) - (cons __tmp213802 __tmp213797)))) + (cons __tmp214963 __tmp214958)))) (declare (not safe)) - (cons __tmp213905 __tmp213796)))) + (cons __tmp215066 __tmp214957)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213906 - __tmp213795)))) + (cons __tmp215067 + __tmp214956)))) (declare (not safe)) - (cons __tmp213794 '())))) + (cons __tmp214955 '())))) (declare (not safe)) - (cons __tmp213907 __tmp213793)))) + (cons __tmp215068 __tmp214954)))) (declare (not safe)) - (cons __tmp213921 __tmp213792)))) + (cons __tmp215082 __tmp214953)))) (declare (not safe)) - (cons __tmp213922 __tmp213791))) - _body195775195864_ - _hd195765195832_ - _hd195762195822_ - _hd195759195812_)))))) + (cons __tmp215083 __tmp214952))) + _body196936197025_ + _hd196926196993_ + _hd196923196983_ + _hd196920196973_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop195770195844_ - _target195767195838_ + (_loop196931197005_ + _target196928196999_ '())) - (_g195746195781_ _g195747195785_))))) - (_g195746195781_ _g195747195785_)) - (_g195746195781_ _g195747195785_)))) - (_g195746195781_ _g195747195785_)))) + (_g196907196942_ _g196908196946_))))) + (_g196907196942_ _g196908196946_)) + (_g196907196942_ _g196908196946_)))) + (_g196907196942_ _g196908196946_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g195746195781_ - _g195747195785_)))) - (_g195746195781_ _g195747195785_)))) - (_g195746195781_ _g195747195785_)))) - (_g195746195781_ _g195747195785_))))) - (_g195745195906_ _$stx195742_)))) + (_g196907196942_ + _g196908196946_)))) + (_g196907196942_ _g196908196946_)))) + (_g196907196942_ _g196908196946_)))) + (_g196907196942_ _g196908196946_))))) + (_g196906197067_ _$stx196903_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_$stx195911_) - (let* ((_g195915195933_ - (lambda (_g195916195929_) + (lambda (_$stx197072_) + (let* ((_g197076197094_ + (lambda (_g197077197090_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g195916195929_)))) - (_g195914195988_ - (lambda (_g195916195937_) + _g197077197090_)))) + (_g197075197149_ + (lambda (_g197077197098_) (if (let () (declare (not safe)) - (gx#stx-pair? _g195916195937_)) - (let ((_e195921195940_ + (gx#stx-pair? _g197077197098_)) + (let ((_e197082197101_ (let () (declare (not safe)) - (gx#syntax-e _g195916195937_)))) - (let ((_hd195920195944_ + (gx#syntax-e _g197077197098_)))) + (let ((_hd197081197105_ (let () (declare (not safe)) - (##car _e195921195940_))) - (_tl195919195947_ + (##car _e197082197101_))) + (_tl197080197108_ (let () (declare (not safe)) - (##cdr _e195921195940_)))) + (##cdr _e197082197101_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195919195947_)) - (let ((_e195924195950_ + (gx#stx-pair? _tl197080197108_)) + (let ((_e197085197111_ (let () (declare (not safe)) - (gx#syntax-e _tl195919195947_)))) - (let ((_hd195923195954_ + (gx#syntax-e _tl197080197108_)))) + (let ((_hd197084197115_ (let () (declare (not safe)) - (##car _e195924195950_))) - (_tl195922195957_ + (##car _e197085197111_))) + (_tl197083197118_ (let () (declare (not safe)) - (##cdr _e195924195950_)))) + (##cdr _e197085197111_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl195922195957_)) - (let ((_e195927195960_ + (gx#stx-pair? _tl197083197118_)) + (let ((_e197088197121_ (let () (declare (not safe)) (gx#syntax-e - _tl195922195957_)))) - (let ((_hd195926195964_ + _tl197083197118_)))) + (let ((_hd197087197125_ (let () (declare (not safe)) - (##car _e195927195960_))) - (_tl195925195967_ + (##car _e197088197121_))) + (_tl197086197128_ (let () (declare (not safe)) - (##cdr _e195927195960_)))) + (##cdr _e197088197121_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl195925195967_)) - ((lambda (_L195970_ _L195972_) - (let ((__tmp213938 + _tl197086197128_)) + ((lambda (_L197131_ _L197133_) + (let ((__tmp215099 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'cond-expand))) - (__tmp213923 - (let ((__tmp213935 - (let ((__tmp213937 + (__tmp215084 + (let ((__tmp215096 + (let ((__tmp215098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives))) - (__tmp213936 + (__tmp215097 (let () (declare (not safe)) - (cons _L195972_ '())))) + (cons _L197133_ '())))) (declare (not safe)) - (cons __tmp213937 __tmp213936))) - (__tmp213924 - (let ((__tmp213925 - (let ((__tmp213934 + (cons __tmp215098 __tmp215097))) + (__tmp215085 + (let ((__tmp215086 + (let ((__tmp215095 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else))) - (__tmp213926 - (let ((__tmp213927 - (let ((__tmp213933 + (__tmp215087 + (let ((__tmp215088 + (let ((__tmp215094 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'if))) - (__tmp213928 - (let ((__tmp213931 - (let ((__tmp213932 + (__tmp215089 + (let ((__tmp215092 + (let ((__tmp215093 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -2671,40 +2671,40 @@ '#f 'current-compile-decls-unsafe?)))) (declare (not safe)) - (cons __tmp213932 '()))) - (__tmp213929 - (let ((__tmp213930 - (let () (declare (not safe)) (cons _L195970_ '())))) + (cons __tmp215093 '()))) + (__tmp215090 + (let ((__tmp215091 + (let () (declare (not safe)) (cons _L197131_ '())))) (declare (not safe)) - (cons _L195972_ __tmp213930)))) + (cons _L197133_ __tmp215091)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213931 - __tmp213929)))) + (cons __tmp215092 + __tmp215090)))) (declare (not safe)) - (cons __tmp213933 __tmp213928)))) + (cons __tmp215094 __tmp215089)))) (declare (not safe)) - (cons __tmp213927 '())))) + (cons __tmp215088 '())))) (declare (not safe)) - (cons __tmp213934 __tmp213926)))) + (cons __tmp215095 __tmp215087)))) (declare (not safe)) - (cons __tmp213925 '())))) + (cons __tmp215086 '())))) (declare (not safe)) - (cons __tmp213935 __tmp213924)))) + (cons __tmp215096 __tmp215085)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp213938 - __tmp213923))) - _hd195926195964_ - _hd195923195954_) - (_g195915195933_ - _g195916195937_)))) - (_g195915195933_ _g195916195937_)))) - (_g195915195933_ _g195916195937_)))) - (_g195915195933_ _g195916195937_))))) - (_g195914195988_ _$stx195911_)))) + (cons __tmp215099 + __tmp215084))) + _hd197087197125_ + _hd197084197115_) + (_g197076197094_ + _g197077197098_)))) + (_g197076197094_ _g197077197098_)))) + (_g197076197094_ _g197077197098_)))) + (_g197076197094_ _g197077197098_))))) + (_g197075197149_ _$stx197072_)))) (define |gxc[:0:]#meta-state| - (let ((__obj212699 + (let ((__obj213860 (let () (declare (not safe)) (##structure @@ -2722,11 +2722,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 + __obj213860 'gxc#meta-state::t '1 gerbil/core$$#class-type-info::t @@ -2734,7 +2735,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 + __obj213860 'meta-state '2 gerbil/core$$#class-type-info::t @@ -2742,7 +2743,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 + __obj213860 '(src n open blocks) '4 gerbil/core$$#class-type-info::t @@ -2750,7 +2751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 + __obj213860 '() '3 gerbil/core$$#class-type-info::t @@ -2758,7 +2759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 + __obj213860 '#t '5 gerbil/core$$#class-type-info::t @@ -2766,7 +2767,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 + __obj213860 '#f '6 gerbil/core$$#class-type-info::t @@ -2774,182 +2775,190 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 - ':init! + __obj213860 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp213939 |gxc[1]#_g213940_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj212699 - __tmp213939 + __obj213860 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp213941 |gxc[1]#_g213942_|)) + (let ((__tmp215100 |gxc[1]#_g215101_|)) (declare (not safe)) (##unchecked-structure-set! - __obj212699 - __tmp213941 + __obj213860 + __tmp215100 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp213943 |gxc[1]#_g213944_|)) + (let ((__tmp215102 |gxc[1]#_g215103_|)) (declare (not safe)) (##unchecked-structure-set! - __obj212699 - __tmp213943 + __obj213860 + __tmp215102 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp213945 - (let ((__tmp213958 - (let ((__tmp213959 |gxc[1]#_g213960_|)) + (let ((__tmp215104 |gxc[1]#_g215105_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj213860 + __tmp215104 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp215106 + (let ((__tmp215119 + (let ((__tmp215120 |gxc[1]#_g215121_|)) (declare (not safe)) - (cons 'src __tmp213959))) - (__tmp213946 - (let ((__tmp213955 - (let ((__tmp213956 |gxc[1]#_g213957_|)) + (cons 'src __tmp215120))) + (__tmp215107 + (let ((__tmp215116 + (let ((__tmp215117 |gxc[1]#_g215118_|)) (declare (not safe)) - (cons 'n __tmp213956))) - (__tmp213947 - (let ((__tmp213952 - (let ((__tmp213953 |gxc[1]#_g213954_|)) + (cons 'n __tmp215117))) + (__tmp215108 + (let ((__tmp215113 + (let ((__tmp215114 |gxc[1]#_g215115_|)) (declare (not safe)) - (cons 'open __tmp213953))) - (__tmp213948 - (let ((__tmp213949 - (let ((__tmp213950 - |gxc[1]#_g213951_|)) + (cons 'open __tmp215114))) + (__tmp215109 + (let ((__tmp215110 + (let ((__tmp215111 + |gxc[1]#_g215112_|)) (declare (not safe)) - (cons 'blocks __tmp213950)))) + (cons 'blocks __tmp215111)))) (declare (not safe)) - (cons __tmp213949 '())))) + (cons __tmp215110 '())))) (declare (not safe)) - (cons __tmp213952 __tmp213948)))) + (cons __tmp215113 __tmp215109)))) (declare (not safe)) - (cons __tmp213955 __tmp213947)))) + (cons __tmp215116 __tmp215108)))) (declare (not safe)) - (cons __tmp213958 __tmp213946)))) + (cons __tmp215119 __tmp215107)))) (declare (not safe)) (##unchecked-structure-set! - __obj212699 - __tmp213945 - '11 + __obj213860 + __tmp215106 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp213961 - (let ((__tmp213974 - (let ((__tmp213975 |gxc[1]#_g213976_|)) + (let ((__tmp215122 + (let ((__tmp215135 + (let ((__tmp215136 |gxc[1]#_g215137_|)) (declare (not safe)) - (cons 'src __tmp213975))) - (__tmp213962 - (let ((__tmp213971 - (let ((__tmp213972 |gxc[1]#_g213973_|)) + (cons 'src __tmp215136))) + (__tmp215123 + (let ((__tmp215132 + (let ((__tmp215133 |gxc[1]#_g215134_|)) (declare (not safe)) - (cons 'n __tmp213972))) - (__tmp213963 - (let ((__tmp213968 - (let ((__tmp213969 |gxc[1]#_g213970_|)) + (cons 'n __tmp215133))) + (__tmp215124 + (let ((__tmp215129 + (let ((__tmp215130 |gxc[1]#_g215131_|)) (declare (not safe)) - (cons 'open __tmp213969))) - (__tmp213964 - (let ((__tmp213965 - (let ((__tmp213966 - |gxc[1]#_g213967_|)) + (cons 'open __tmp215130))) + (__tmp215125 + (let ((__tmp215126 + (let ((__tmp215127 + |gxc[1]#_g215128_|)) (declare (not safe)) - (cons 'blocks __tmp213966)))) + (cons 'blocks __tmp215127)))) (declare (not safe)) - (cons __tmp213965 '())))) + (cons __tmp215126 '())))) (declare (not safe)) - (cons __tmp213968 __tmp213964)))) + (cons __tmp215129 __tmp215125)))) (declare (not safe)) - (cons __tmp213971 __tmp213963)))) + (cons __tmp215132 __tmp215124)))) (declare (not safe)) - (cons __tmp213974 __tmp213962)))) + (cons __tmp215135 __tmp215123)))) (declare (not safe)) (##unchecked-structure-set! - __obj212699 - __tmp213961 - '12 + __obj213860 + __tmp215122 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp213977 - (let ((__tmp213990 - (let ((__tmp213991 |gxc[1]#_g213992_|)) + (let ((__tmp215138 + (let ((__tmp215151 + (let ((__tmp215152 |gxc[1]#_g215153_|)) (declare (not safe)) - (cons 'src __tmp213991))) - (__tmp213978 - (let ((__tmp213987 - (let ((__tmp213988 |gxc[1]#_g213989_|)) + (cons 'src __tmp215152))) + (__tmp215139 + (let ((__tmp215148 + (let ((__tmp215149 |gxc[1]#_g215150_|)) (declare (not safe)) - (cons 'n __tmp213988))) - (__tmp213979 - (let ((__tmp213984 - (let ((__tmp213985 |gxc[1]#_g213986_|)) + (cons 'n __tmp215149))) + (__tmp215140 + (let ((__tmp215145 + (let ((__tmp215146 |gxc[1]#_g215147_|)) (declare (not safe)) - (cons 'open __tmp213985))) - (__tmp213980 - (let ((__tmp213981 - (let ((__tmp213982 - |gxc[1]#_g213983_|)) + (cons 'open __tmp215146))) + (__tmp215141 + (let ((__tmp215142 + (let ((__tmp215143 + |gxc[1]#_g215144_|)) (declare (not safe)) - (cons 'blocks __tmp213982)))) + (cons 'blocks __tmp215143)))) (declare (not safe)) - (cons __tmp213981 '())))) + (cons __tmp215142 '())))) (declare (not safe)) - (cons __tmp213984 __tmp213980)))) + (cons __tmp215145 __tmp215141)))) (declare (not safe)) - (cons __tmp213987 __tmp213979)))) + (cons __tmp215148 __tmp215140)))) (declare (not safe)) - (cons __tmp213990 __tmp213978)))) + (cons __tmp215151 __tmp215139)))) (declare (not safe)) (##unchecked-structure-set! - __obj212699 - __tmp213977 - '13 + __obj213860 + __tmp215138 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp213993 - (let ((__tmp214006 - (let ((__tmp214007 |gxc[1]#_g214008_|)) + (let ((__tmp215154 + (let ((__tmp215167 + (let ((__tmp215168 |gxc[1]#_g215169_|)) (declare (not safe)) - (cons 'src __tmp214007))) - (__tmp213994 - (let ((__tmp214003 - (let ((__tmp214004 |gxc[1]#_g214005_|)) + (cons 'src __tmp215168))) + (__tmp215155 + (let ((__tmp215164 + (let ((__tmp215165 |gxc[1]#_g215166_|)) (declare (not safe)) - (cons 'n __tmp214004))) - (__tmp213995 - (let ((__tmp214000 - (let ((__tmp214001 |gxc[1]#_g214002_|)) + (cons 'n __tmp215165))) + (__tmp215156 + (let ((__tmp215161 + (let ((__tmp215162 |gxc[1]#_g215163_|)) (declare (not safe)) - (cons 'open __tmp214001))) - (__tmp213996 - (let ((__tmp213997 - (let ((__tmp213998 - |gxc[1]#_g213999_|)) + (cons 'open __tmp215162))) + (__tmp215157 + (let ((__tmp215158 + (let ((__tmp215159 + |gxc[1]#_g215160_|)) (declare (not safe)) - (cons 'blocks __tmp213998)))) + (cons 'blocks __tmp215159)))) (declare (not safe)) - (cons __tmp213997 '())))) + (cons __tmp215158 '())))) (declare (not safe)) - (cons __tmp214000 __tmp213996)))) + (cons __tmp215161 __tmp215157)))) (declare (not safe)) - (cons __tmp214003 __tmp213995)))) + (cons __tmp215164 __tmp215156)))) (declare (not safe)) - (cons __tmp214006 __tmp213994)))) + (cons __tmp215167 __tmp215155)))) (declare (not safe)) (##unchecked-structure-set! - __obj212699 - __tmp213993 - '14 + __obj213860 + __tmp215154 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj212699)) + __obj213860)) (define |gxc[:0:]#meta-state-block| - (let ((__obj212700 + (let ((__obj213861 (let () (declare (not safe)) (##structure @@ -2967,11 +2976,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 + __obj213861 'gxc#meta-state-block::t '1 gerbil/core$$#class-type-info::t @@ -2979,7 +2989,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 + __obj213861 'meta-state-block '2 gerbil/core$$#class-type-info::t @@ -2987,7 +2997,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 + __obj213861 '(ctx phi n code) '4 gerbil/core$$#class-type-info::t @@ -2995,7 +3005,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 + __obj213861 '() '3 gerbil/core$$#class-type-info::t @@ -3003,7 +3013,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 + __obj213861 '#t '5 gerbil/core$$#class-type-info::t @@ -3011,7 +3021,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 + __obj213861 '#f '6 gerbil/core$$#class-type-info::t @@ -3019,177 +3029,185 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 + __obj213861 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp214009 |gxc[1]#_g214010_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj212700 - __tmp214009 + __obj213861 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp214011 |gxc[1]#_g214012_|)) + (let ((__tmp215170 |gxc[1]#_g215171_|)) (declare (not safe)) (##unchecked-structure-set! - __obj212700 - __tmp214011 + __obj213861 + __tmp215170 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp214013 |gxc[1]#_g214014_|)) + (let ((__tmp215172 |gxc[1]#_g215173_|)) (declare (not safe)) (##unchecked-structure-set! - __obj212700 - __tmp214013 + __obj213861 + __tmp215172 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp214015 - (let ((__tmp214028 - (let ((__tmp214029 |gxc[1]#_g214030_|)) + (let ((__tmp215174 |gxc[1]#_g215175_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj213861 + __tmp215174 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp215176 + (let ((__tmp215189 + (let ((__tmp215190 |gxc[1]#_g215191_|)) (declare (not safe)) - (cons 'ctx __tmp214029))) - (__tmp214016 - (let ((__tmp214025 - (let ((__tmp214026 |gxc[1]#_g214027_|)) + (cons 'ctx __tmp215190))) + (__tmp215177 + (let ((__tmp215186 + (let ((__tmp215187 |gxc[1]#_g215188_|)) (declare (not safe)) - (cons 'phi __tmp214026))) - (__tmp214017 - (let ((__tmp214022 - (let ((__tmp214023 |gxc[1]#_g214024_|)) + (cons 'phi __tmp215187))) + (__tmp215178 + (let ((__tmp215183 + (let ((__tmp215184 |gxc[1]#_g215185_|)) (declare (not safe)) - (cons 'n __tmp214023))) - (__tmp214018 - (let ((__tmp214019 - (let ((__tmp214020 - |gxc[1]#_g214021_|)) + (cons 'n __tmp215184))) + (__tmp215179 + (let ((__tmp215180 + (let ((__tmp215181 + |gxc[1]#_g215182_|)) (declare (not safe)) - (cons 'code __tmp214020)))) + (cons 'code __tmp215181)))) (declare (not safe)) - (cons __tmp214019 '())))) + (cons __tmp215180 '())))) (declare (not safe)) - (cons __tmp214022 __tmp214018)))) + (cons __tmp215183 __tmp215179)))) (declare (not safe)) - (cons __tmp214025 __tmp214017)))) + (cons __tmp215186 __tmp215178)))) (declare (not safe)) - (cons __tmp214028 __tmp214016)))) + (cons __tmp215189 __tmp215177)))) (declare (not safe)) (##unchecked-structure-set! - __obj212700 - __tmp214015 - '11 + __obj213861 + __tmp215176 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp214031 - (let ((__tmp214044 - (let ((__tmp214045 |gxc[1]#_g214046_|)) + (let ((__tmp215192 + (let ((__tmp215205 + (let ((__tmp215206 |gxc[1]#_g215207_|)) (declare (not safe)) - (cons 'ctx __tmp214045))) - (__tmp214032 - (let ((__tmp214041 - (let ((__tmp214042 |gxc[1]#_g214043_|)) + (cons 'ctx __tmp215206))) + (__tmp215193 + (let ((__tmp215202 + (let ((__tmp215203 |gxc[1]#_g215204_|)) (declare (not safe)) - (cons 'phi __tmp214042))) - (__tmp214033 - (let ((__tmp214038 - (let ((__tmp214039 |gxc[1]#_g214040_|)) + (cons 'phi __tmp215203))) + (__tmp215194 + (let ((__tmp215199 + (let ((__tmp215200 |gxc[1]#_g215201_|)) (declare (not safe)) - (cons 'n __tmp214039))) - (__tmp214034 - (let ((__tmp214035 - (let ((__tmp214036 - |gxc[1]#_g214037_|)) + (cons 'n __tmp215200))) + (__tmp215195 + (let ((__tmp215196 + (let ((__tmp215197 + |gxc[1]#_g215198_|)) (declare (not safe)) - (cons 'code __tmp214036)))) + (cons 'code __tmp215197)))) (declare (not safe)) - (cons __tmp214035 '())))) + (cons __tmp215196 '())))) (declare (not safe)) - (cons __tmp214038 __tmp214034)))) + (cons __tmp215199 __tmp215195)))) (declare (not safe)) - (cons __tmp214041 __tmp214033)))) + (cons __tmp215202 __tmp215194)))) (declare (not safe)) - (cons __tmp214044 __tmp214032)))) + (cons __tmp215205 __tmp215193)))) (declare (not safe)) (##unchecked-structure-set! - __obj212700 - __tmp214031 - '12 + __obj213861 + __tmp215192 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp214047 - (let ((__tmp214060 - (let ((__tmp214061 |gxc[1]#_g214062_|)) + (let ((__tmp215208 + (let ((__tmp215221 + (let ((__tmp215222 |gxc[1]#_g215223_|)) (declare (not safe)) - (cons 'ctx __tmp214061))) - (__tmp214048 - (let ((__tmp214057 - (let ((__tmp214058 |gxc[1]#_g214059_|)) + (cons 'ctx __tmp215222))) + (__tmp215209 + (let ((__tmp215218 + (let ((__tmp215219 |gxc[1]#_g215220_|)) (declare (not safe)) - (cons 'phi __tmp214058))) - (__tmp214049 - (let ((__tmp214054 - (let ((__tmp214055 |gxc[1]#_g214056_|)) + (cons 'phi __tmp215219))) + (__tmp215210 + (let ((__tmp215215 + (let ((__tmp215216 |gxc[1]#_g215217_|)) (declare (not safe)) - (cons 'n __tmp214055))) - (__tmp214050 - (let ((__tmp214051 - (let ((__tmp214052 - |gxc[1]#_g214053_|)) + (cons 'n __tmp215216))) + (__tmp215211 + (let ((__tmp215212 + (let ((__tmp215213 + |gxc[1]#_g215214_|)) (declare (not safe)) - (cons 'code __tmp214052)))) + (cons 'code __tmp215213)))) (declare (not safe)) - (cons __tmp214051 '())))) + (cons __tmp215212 '())))) (declare (not safe)) - (cons __tmp214054 __tmp214050)))) + (cons __tmp215215 __tmp215211)))) (declare (not safe)) - (cons __tmp214057 __tmp214049)))) + (cons __tmp215218 __tmp215210)))) (declare (not safe)) - (cons __tmp214060 __tmp214048)))) + (cons __tmp215221 __tmp215209)))) (declare (not safe)) (##unchecked-structure-set! - __obj212700 - __tmp214047 - '13 + __obj213861 + __tmp215208 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp214063 - (let ((__tmp214076 - (let ((__tmp214077 |gxc[1]#_g214078_|)) + (let ((__tmp215224 + (let ((__tmp215237 + (let ((__tmp215238 |gxc[1]#_g215239_|)) (declare (not safe)) - (cons 'ctx __tmp214077))) - (__tmp214064 - (let ((__tmp214073 - (let ((__tmp214074 |gxc[1]#_g214075_|)) + (cons 'ctx __tmp215238))) + (__tmp215225 + (let ((__tmp215234 + (let ((__tmp215235 |gxc[1]#_g215236_|)) (declare (not safe)) - (cons 'phi __tmp214074))) - (__tmp214065 - (let ((__tmp214070 - (let ((__tmp214071 |gxc[1]#_g214072_|)) + (cons 'phi __tmp215235))) + (__tmp215226 + (let ((__tmp215231 + (let ((__tmp215232 |gxc[1]#_g215233_|)) (declare (not safe)) - (cons 'n __tmp214071))) - (__tmp214066 - (let ((__tmp214067 - (let ((__tmp214068 - |gxc[1]#_g214069_|)) + (cons 'n __tmp215232))) + (__tmp215227 + (let ((__tmp215228 + (let ((__tmp215229 + |gxc[1]#_g215230_|)) (declare (not safe)) - (cons 'code __tmp214068)))) + (cons 'code __tmp215229)))) (declare (not safe)) - (cons __tmp214067 '())))) + (cons __tmp215228 '())))) (declare (not safe)) - (cons __tmp214070 __tmp214066)))) + (cons __tmp215231 __tmp215227)))) (declare (not safe)) - (cons __tmp214073 __tmp214065)))) + (cons __tmp215234 __tmp215226)))) (declare (not safe)) - (cons __tmp214076 __tmp214064)))) + (cons __tmp215237 __tmp215225)))) (declare (not safe)) (##unchecked-structure-set! - __obj212700 - __tmp214063 - '14 + __obj213861 + __tmp215224 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj212700)))) + __obj213861)))) diff --git a/src/bootstrap/gerbil/compiler/driver__0.scm b/src/bootstrap/gerbil/compiler/driver__0.scm index 15105e402..be435e939 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 1707773933) + (define gerbil/compiler/driver::timestamp 1708102809) (begin (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~")))) @@ -14,15 +14,15 @@ (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_path291816_ _fun291817_) + (lambda (_path293121_ _fun293122_) (with-output-to-file - (let ((__tmp296478 + (let ((__tmp297783 (let () (declare (not safe)) - (cons _path291816_ gxc#scheme-file-settings)))) + (cons _path293121_ gxc#scheme-file-settings)))) (declare (not safe)) - (cons 'path: __tmp296478)) - _fun291817_))) + (cons 'path: __tmp297783)) + _fun293122_))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () @@ -47,8 +47,8 @@ (set! gxc#+gerbil-ar+ (getenv '"GERBIL_AR" gxc#default-gerbil-ar))) gxc#+gerbil-ar+)) (define gxc#gerbil-rpath - (lambda (_gerbil-libdir291811_) - (string-append '"-Wl,-rpath=" _gerbil-libdir291811_))) + (lambda (_gerbil-libdir293116_) + (string-append '"-Wl,-rpath=" _gerbil-libdir293116_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -65,486 +65,486 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_dir291809_) (delete-file-or-directory _dir291809_ '#t))) + (lambda (_dir293114_) (delete-file-or-directory _dir293114_ '#t))) (define gxc#compile-module__% - (lambda (_srcpath291783_ _opts291784_) - (if (let () (declare (not safe)) (string? _srcpath291783_)) + (lambda (_srcpath293088_ _opts293089_) + (if (let () (declare (not safe)) (string? _srcpath293088_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath291783_))) - (let ((_outdir291786_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts291784_))) - (_invoke-gsc?291787_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts291784_))) - (_gsc-options291788_ + _srcpath293088_))) + (let ((_outdir293091_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts293089_))) + (_invoke-gsc?293092_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts293089_))) + (_gsc-options293093_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts291784_))) - (_keep-scm?291789_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts291784_))) - (_verbosity291790_ - (let () (declare (not safe)) (pgetq 'verbose: _opts291784_))) - (_optimize291791_ - (let () (declare (not safe)) (pgetq 'optimize: _opts291784_))) - (_debug291792_ - (let () (declare (not safe)) (pgetq 'debug: _opts291784_))) - (_gen-ssxi291793_ + (pgetq 'gsc-options: _opts293089_))) + (_keep-scm?293094_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts293089_))) + (_verbosity293095_ + (let () (declare (not safe)) (pgetq 'verbose: _opts293089_))) + (_optimize293096_ + (let () (declare (not safe)) (pgetq 'optimize: _opts293089_))) + (_debug293097_ + (let () (declare (not safe)) (pgetq 'debug: _opts293089_))) + (_gen-ssxi293098_ (let () (declare (not safe)) - (pgetq 'generate-ssxi: _opts291784_)))) - (if _outdir291786_ - (let ((__tmp296479 + (pgetq 'generate-ssxi: _opts293089_)))) + (if _outdir293091_ + (let ((__tmp297784 (lambda () (let () (declare (not safe)) - (create-directory* _outdir291786_))))) + (create-directory* _outdir293091_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296479)) + (with-lock gxc#+driver-mutex+ __tmp297784)) '#!void) - (if _optimize291791_ - (let ((__tmp296480 + (if _optimize293096_ + (let ((__tmp297785 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296480)) + (with-lock gxc#+driver-mutex+ __tmp297785)) '#!void) - (let ((__tmp296484 + (let ((__tmp297789 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _srcpath291783_)) - (let ((__tmp296485 - (let ((__tmp296486 + (gxc#verbose '"compile " _srcpath293088_)) + (let ((__tmp297790 + (let ((__tmp297791 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath291783_))))) + (gx#import-module__0 _srcpath293088_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296486)))) + (with-lock gxc#+driver-mutex+ __tmp297791)))) (declare (not safe)) - (gxc#compile-top-module __tmp296485)))) - (__tmp296483 + (gxc#compile-top-module __tmp297790)))) + (__tmp297788 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp296481 - (let ((__tmp296482 + (__tmp297786 + (let ((__tmp297787 (let () (declare (not safe)) - (cons _srcpath291783_ '())))) + (cons _srcpath293088_ '())))) (declare (not safe)) - (cons 'compile-module __tmp296482)))) + (cons 'compile-module __tmp297787)))) (declare (not safe)) (call-with-parameters - __tmp296484 + __tmp297789 gxc#current-compile-output-dir - _outdir291786_ + _outdir293091_ gxc#current-compile-invoke-gsc - _invoke-gsc?291787_ + _invoke-gsc?293092_ gxc#current-compile-gsc-options - _gsc-options291788_ + _gsc-options293093_ gxc#current-compile-keep-scm - _keep-scm?291789_ + _keep-scm?293094_ gxc#current-compile-verbose - _verbosity291790_ + _verbosity293095_ gxc#current-compile-optimize - _optimize291791_ + _optimize293096_ gxc#current-compile-debug - _debug291792_ + _debug293097_ gxc#current-compile-generate-ssxi - _gen-ssxi291793_ + _gen-ssxi293098_ gxc#current-compile-timestamp - __tmp296483 + __tmp297788 gxc#current-compile-context - __tmp296481 + __tmp297786 gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_srcpath291802_) - (let ((_opts291804_ '())) + (lambda (_srcpath293107_) + (let ((_opts293109_ '())) (declare (not safe)) - (gxc#compile-module__% _srcpath291802_ _opts291804_)))) + (gxc#compile-module__% _srcpath293107_ _opts293109_)))) (define gxc#compile-module - (lambda _g296488_ - (let ((_g296487_ (let () (declare (not safe)) (##length _g296488_)))) - (cond ((let () (declare (not safe)) (##fx= _g296487_ 1)) - (apply (lambda (_srcpath291802_) + (lambda _g297793_ + (let ((_g297792_ (let () (declare (not safe)) (##length _g297793_)))) + (cond ((let () (declare (not safe)) (##fx= _g297792_ 1)) + (apply (lambda (_srcpath293107_) (let () (declare (not safe)) - (gxc#compile-module__0 _srcpath291802_))) - _g296488_)) - ((let () (declare (not safe)) (##fx= _g296487_ 2)) - (apply (lambda (_srcpath291806_ _opts291807_) + (gxc#compile-module__0 _srcpath293107_))) + _g297793_)) + ((let () (declare (not safe)) (##fx= _g297792_ 2)) + (apply (lambda (_srcpath293111_ _opts293112_) (let () (declare (not safe)) (gxc#compile-module__% - _srcpath291806_ - _opts291807_))) - _g296488_)) + _srcpath293111_ + _opts293112_))) + _g297793_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g296488_)))))) + _g297793_)))))) (define gxc#compile-exe__% - (lambda (_srcpath291759_ _opts291760_) - (if (let () (declare (not safe)) (string? _srcpath291759_)) + (lambda (_srcpath293064_ _opts293065_) + (if (let () (declare (not safe)) (string? _srcpath293064_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _srcpath291759_))) - (let ((_outdir291762_ - (let () (declare (not safe)) (pgetq 'output-dir: _opts291760_))) - (_invoke-gsc?291763_ - (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts291760_))) - (_gsc-options291764_ + _srcpath293064_))) + (let ((_outdir293067_ + (let () (declare (not safe)) (pgetq 'output-dir: _opts293065_))) + (_invoke-gsc?293068_ + (let () (declare (not safe)) (pgetq 'invoke-gsc: _opts293065_))) + (_gsc-options293069_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts291760_))) - (_keep-scm?291765_ - (let () (declare (not safe)) (pgetq 'keep-scm: _opts291760_))) - (_verbosity291766_ - (let () (declare (not safe)) (pgetq 'verbose: _opts291760_))) - (_debug291767_ - (let () (declare (not safe)) (pgetq 'debug: _opts291760_)))) - (if _outdir291762_ - (let ((__tmp296489 + (pgetq 'gsc-options: _opts293065_))) + (_keep-scm?293070_ + (let () (declare (not safe)) (pgetq 'keep-scm: _opts293065_))) + (_verbosity293071_ + (let () (declare (not safe)) (pgetq 'verbose: _opts293065_))) + (_debug293072_ + (let () (declare (not safe)) (pgetq 'debug: _opts293065_)))) + (if _outdir293067_ + (let ((__tmp297794 (lambda () (let () (declare (not safe)) - (create-directory* _outdir291762_))))) + (create-directory* _outdir293067_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296489)) + (with-lock gxc#+driver-mutex+ __tmp297794)) '#!void) - (let ((__tmp296493 + (let ((__tmp297798 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _srcpath291759_)) - (let ((__tmp296494 - (let ((__tmp296495 + (gxc#verbose '"compile exe " _srcpath293064_)) + (let ((__tmp297799 + (let ((__tmp297800 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _srcpath291759_))))) + (gx#import-module__0 _srcpath293064_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296495)))) + (with-lock gxc#+driver-mutex+ __tmp297800)))) (declare (not safe)) (gxc#compile-executable-module - __tmp296494 - _opts291760_)))) - (__tmp296492 + __tmp297799 + _opts293065_)))) + (__tmp297797 (let () (declare (not safe)) (gxc#compile-timestamp))) - (__tmp296490 - (let ((__tmp296491 + (__tmp297795 + (let ((__tmp297796 (let () (declare (not safe)) - (cons _srcpath291759_ '())))) + (cons _srcpath293064_ '())))) (declare (not safe)) - (cons 'compile-exe __tmp296491)))) + (cons 'compile-exe __tmp297796)))) (declare (not safe)) (call-with-parameters - __tmp296493 + __tmp297798 gxc#current-compile-output-dir - _outdir291762_ + _outdir293067_ gxc#current-compile-invoke-gsc - _invoke-gsc?291763_ + _invoke-gsc?293068_ gxc#current-compile-gsc-options - _gsc-options291764_ + _gsc-options293069_ gxc#current-compile-keep-scm - _keep-scm?291765_ + _keep-scm?293070_ gxc#current-compile-verbose - _verbosity291766_ + _verbosity293071_ gxc#current-compile-debug - _debug291767_ + _debug293072_ gxc#current-compile-timestamp - __tmp296492 + __tmp297797 gxc#current-compile-context - __tmp296490 + __tmp297795 gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_srcpath291775_) - (let ((_opts291777_ '())) + (lambda (_srcpath293080_) + (let ((_opts293082_ '())) (declare (not safe)) - (gxc#compile-exe__% _srcpath291775_ _opts291777_)))) + (gxc#compile-exe__% _srcpath293080_ _opts293082_)))) (define gxc#compile-exe - (lambda _g296497_ - (let ((_g296496_ (let () (declare (not safe)) (##length _g296497_)))) - (cond ((let () (declare (not safe)) (##fx= _g296496_ 1)) - (apply (lambda (_srcpath291775_) + (lambda _g297802_ + (let ((_g297801_ (let () (declare (not safe)) (##length _g297802_)))) + (cond ((let () (declare (not safe)) (##fx= _g297801_ 1)) + (apply (lambda (_srcpath293080_) (let () (declare (not safe)) - (gxc#compile-exe__0 _srcpath291775_))) - _g296497_)) - ((let () (declare (not safe)) (##fx= _g296496_ 2)) - (apply (lambda (_srcpath291779_ _opts291780_) + (gxc#compile-exe__0 _srcpath293080_))) + _g297802_)) + ((let () (declare (not safe)) (##fx= _g297801_ 2)) + (apply (lambda (_srcpath293084_ _opts293085_) (let () (declare (not safe)) - (gxc#compile-exe__% _srcpath291779_ _opts291780_))) - _g296497_)) + (gxc#compile-exe__% _srcpath293084_ _opts293085_))) + _g297802_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g296497_)))))) + _g297802_)))))) (define gxc#compile-executable-module - (lambda (_ctx291755_ _opts291756_) + (lambda (_ctx293060_ _opts293061_) (if (let () (declare (not safe)) - (pgetq 'full-program-optimization: _opts291756_)) + (pgetq 'full-program-optimization: _opts293061_)) (let () (declare (not safe)) (gxc#compile-executable-module/full-program-optimization - _ctx291755_ - _opts291756_)) + _ctx293060_ + _opts293061_)) (let () (declare (not safe)) (gxc#compile-executable-module/separate - _ctx291755_ - _opts291756_))))) + _ctx293060_ + _opts293061_))))) (define gxc#compile-executable-module/separate - (lambda (_ctx291638_ _opts291639_) - (letrec ((_generate-stub291641_ - (lambda (_builtin-modules291751_) - (let ((_mod-main291753_ + (lambda (_ctx292943_ _opts292944_) + (letrec ((_generate-stub292946_ + (lambda (_builtin-modules293056_) + (let ((_mod-main293058_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx291638_ 'main)))) - (write (let ((__tmp296498 - (let ((__tmp296499 - (let ((__tmp296500 - (let ((__tmp296501 - (let ((__tmp296503 - (let ((__tmp296504 + (gxc#find-runtime-symbol _ctx292943_ 'main)))) + (write (let ((__tmp297803 + (let ((__tmp297804 + (let ((__tmp297805 + (let ((__tmp297806 + (let ((__tmp297808 + (let ((__tmp297809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _builtin-modules291751_ '())))) + (cons _builtin-modules293056_ '())))) (declare (not safe)) - (cons 'quote __tmp296504))) - (__tmp296502 + (cons 'quote __tmp297809))) + (__tmp297807 (let () (declare (not safe)) (cons 'libgerbil-builtin-modules '())))) (declare (not safe)) - (cons __tmp296503 __tmp296502)))) + (cons __tmp297808 __tmp297807)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'append - __tmp296501)))) + __tmp297806)))) (declare (not safe)) - (cons __tmp296500 '())))) + (cons __tmp297805 '())))) (declare (not safe)) - (cons 'builtin-modules __tmp296499)))) + (cons 'builtin-modules __tmp297804)))) (declare (not safe)) - (cons 'define __tmp296498))) - (write (let ((__tmp296505 - (let ((__tmp296544 + (cons 'define __tmp297803))) + (write (let ((__tmp297810 + (let ((__tmp297849 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp296506 - (let ((__tmp296507 - (let ((__tmp296508 - (let ((__tmp296532 - (let ((__tmp296533 + (__tmp297811 + (let ((__tmp297812 + (let ((__tmp297813 + (let ((__tmp297837 + (let ((__tmp297838 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296534 - (let ((__tmp296542 - (let ((__tmp296543 + (let ((__tmp297839 + (let ((__tmp297847 + (let ((__tmp297848 (let () (declare (not safe)) (cons 'builtin-modules '())))) (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp296543))) - (__tmp296535 - (let ((__tmp296536 - (let ((__tmp296537 - (let ((__tmp296538 + __tmp297848))) + (__tmp297840 + (let ((__tmp297841 + (let ((__tmp297842 + (let ((__tmp297843 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296539 - (let ((__tmp296540 - (let ((__tmp296541 + (let ((__tmp297844 + (let ((__tmp297845 + (let ((__tmp297846 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp296541 '())))) + (cons __tmp297846 '())))) (declare (not safe)) - (cons 'cdr __tmp296540)))) + (cons 'cdr __tmp297845)))) (declare (not safe)) - (cons __tmp296539 '())))) + (cons __tmp297844 '())))) (declare (not safe)) - (cons _mod-main291753_ __tmp296538)))) + (cons _mod-main293058_ __tmp297843)))) (declare (not safe)) - (cons 'apply __tmp296537)))) + (cons 'apply __tmp297842)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296536 '())))) + (cons __tmp297841 '())))) (declare (not safe)) - (cons __tmp296542 __tmp296535)))) + (cons __tmp297847 __tmp297840)))) (declare (not safe)) - (cons '() __tmp296534)))) + (cons '() __tmp297839)))) (declare (not safe)) - (cons 'lambda __tmp296533))) - (__tmp296509 - (let ((__tmp296510 - (let ((__tmp296511 - (let ((__tmp296512 - (let ((__tmp296523 - (let ((__tmp296524 - (let ((__tmp296525 + (cons 'lambda __tmp297838))) + (__tmp297814 + (let ((__tmp297815 + (let ((__tmp297816 + (let ((__tmp297817 + (let ((__tmp297828 + (let ((__tmp297829 + (let ((__tmp297830 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296526 - (let ((__tmp296527 - (let ((__tmp296528 - (let ((__tmp296529 - (let ((__tmp296530 - (let ((__tmp296531 + (let ((__tmp297831 + (let ((__tmp297832 + (let ((__tmp297833 + (let ((__tmp297834 + (let ((__tmp297835 + (let ((__tmp297836 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'current-output-port '())))) (declare (not safe)) - (cons __tmp296531 '())))) + (cons __tmp297836 '())))) (declare (not safe)) - (cons 'force-output __tmp296530)))) + (cons 'force-output __tmp297835)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296529 '())))) + (cons __tmp297834 '())))) (declare (not safe)) - (cons '() __tmp296528)))) + (cons '() __tmp297833)))) (declare (not safe)) - (cons 'lambda __tmp296527)))) + (cons 'lambda __tmp297832)))) (declare (not safe)) - (cons __tmp296526 '())))) + (cons __tmp297831 '())))) (declare (not safe)) - (cons 'void __tmp296525)))) + (cons 'void __tmp297830)))) (declare (not safe)) - (cons 'with-catch __tmp296524))) + (cons 'with-catch __tmp297829))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp296513 - (let ((__tmp296514 - (let ((__tmp296515 + (__tmp297818 + (let ((__tmp297819 + (let ((__tmp297820 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296516 - (let ((__tmp296517 - (let ((__tmp296518 - (let ((__tmp296519 - (let ((__tmp296520 - (let ((__tmp296521 + (let ((__tmp297821 + (let ((__tmp297822 + (let ((__tmp297823 + (let ((__tmp297824 + (let ((__tmp297825 + (let ((__tmp297826 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296522 + (let ((__tmp297827 (let () (declare (not safe)) (cons 'current-error-port '())))) (declare (not safe)) - (cons __tmp296522 '())))) + (cons __tmp297827 '())))) (declare (not safe)) - (cons 'force-output __tmp296521)))) + (cons 'force-output __tmp297826)))) (declare (not safe)) - (cons __tmp296520 '())))) + (cons __tmp297825 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp296519)))) + (cons '() __tmp297824)))) (declare (not safe)) - (cons 'lambda __tmp296518)))) + (cons 'lambda __tmp297823)))) (declare (not safe)) - (cons __tmp296517 '())))) + (cons __tmp297822 '())))) (declare (not safe)) - (cons 'void __tmp296516)))) + (cons 'void __tmp297821)))) (declare (not safe)) - (cons 'with-catch __tmp296515)))) + (cons 'with-catch __tmp297820)))) (declare (not safe)) - (cons __tmp296514 '())))) + (cons __tmp297819 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296523 - __tmp296513)))) + (cons __tmp297828 + __tmp297818)))) (declare (not safe)) - (cons '() __tmp296512)))) + (cons '() __tmp297817)))) (declare (not safe)) - (cons 'lambda __tmp296511)))) + (cons 'lambda __tmp297816)))) (declare (not safe)) - (cons __tmp296510 '())))) + (cons __tmp297815 '())))) (declare (not safe)) - (cons __tmp296532 __tmp296509)))) + (cons __tmp297837 __tmp297814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'with-unwind-protect - __tmp296508)))) + __tmp297813)))) (declare (not safe)) - (cons __tmp296507 '())))) + (cons __tmp297812 '())))) (declare (not safe)) - (cons __tmp296544 __tmp296506)))) + (cons __tmp297849 __tmp297811)))) (declare (not safe)) - (cons 'define __tmp296505))) + (cons 'define __tmp297810))) (write '(gerbil-main)) (newline)))) - (_get-libgerbil-ld-opts291642_ - (lambda (_libgerbil291749_) + (_get-libgerbil-ld-opts292947_ + (lambda (_libgerbil293054_) (call-with-input-file - (string-append _libgerbil291749_ '".ldd") + (string-append _libgerbil293054_ '".ldd") read))) - (_replace-extension291643_ - (lambda (_path291746_ _ext291747_) + (_replace-extension292948_ + (lambda (_path293051_ _ext293052_) (string-append - (path-strip-extension _path291746_) - _ext291747_))) - (_not-exclude-module?291644_ - (lambda (_ctx291742_) - (let ((_id-str291744_ + (path-strip-extension _path293051_) + _ext293052_))) + (_not-exclude-module?292949_ + (lambda (_ctx293047_) + (let ((_id-str293049_ (symbol->string (##structure-ref - _ctx291742_ + _ctx293047_ '1 gx#expander-context::t '#f)))) - (if (let ((__tmp296546 + (if (let ((__tmp297851 (let () (declare (not safe)) (string-prefix? '"gerbil/" - _id-str291744_)))) + _id-str293049_)))) (declare (not safe)) - (not __tmp296546)) - (let ((__tmp296545 + (not __tmp297851)) + (let ((__tmp297850 (let () (declare (not safe)) - (string-prefix? '"std/" _id-str291744_)))) + (string-prefix? '"std/" _id-str293049_)))) (declare (not safe)) - (not __tmp296545)) + (not __tmp297850)) '#f)))) - (_not-file-empty?291645_ - (lambda (_path291740_) - (let ((__tmp296547 + (_not-file-empty?292950_ + (lambda (_path293045_) + (let ((__tmp297852 (let () (declare (not safe)) - (gxc#file-empty? _path291740_)))) + (gxc#file-empty? _path293045_)))) (declare (not safe)) - (not __tmp296547)))) - (_compile-stub291646_ - (lambda (_output-scm291653_ _output-bin291654_) - (let* ((_gerbil-home291656_ + (not __tmp297852)))) + (_compile-stub292951_ + (lambda (_output-scm292958_ _output-bin292959_) + (let* ((_gerbil-home292961_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir291658_ - (path-expand '"lib" _gerbil-home291656_)) - (_gerbil-staticdir291660_ - (path-expand '"static" _gerbil-libdir291658_)) - (_gxlink291662_ + (_gerbil-libdir292963_ + (path-expand '"lib" _gerbil-home292961_)) + (_gerbil-staticdir292965_ + (path-expand '"static" _gerbil-libdir292963_)) + (_gxlink292967_ (path-expand '"libgerbil-link" - _gerbil-libdir291658_)) - (_tmp291664_ + _gerbil-libdir292963_)) + (_tmp292969_ (path-expand (string-append '"gxc." @@ -553,349 +553,349 @@ (declare (not safe)) (gxc#compile-timestamp-nanos)))) '"/tmp")) - (_tmp-path291668_ - (lambda (_f291666_) + (_tmp-path292973_ + (lambda (_f292971_) (path-expand - (path-strip-directory _f291666_) - _tmp291664_))) - (_deps291670_ + (path-strip-directory _f292971_) + _tmp292969_))) + (_deps292975_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx291638_))) - (_deps291672_ + (gxc#find-runtime-module-deps _ctx292943_))) + (_deps292977_ (let () (declare (not safe)) - (filter _not-exclude-module?291644_ - _deps291670_))) - (_src-deps-scm291674_ - (map gxc#find-static-module-file _deps291672_)) - (_src-deps-scm291676_ + (filter _not-exclude-module?292949_ + _deps292975_))) + (_src-deps-scm292979_ + (map gxc#find-static-module-file _deps292977_)) + (_src-deps-scm292981_ (let () (declare (not safe)) - (filter _not-file-empty?291645_ - _src-deps-scm291674_))) - (_src-deps-scm291678_ - (map path-expand _src-deps-scm291676_)) - (_deps-scm291680_ - (map _tmp-path291668_ _src-deps-scm291678_)) - (_deps-c291686_ - (map (lambda (_g291681291683_) + (filter _not-file-empty?292950_ + _src-deps-scm292979_))) + (_src-deps-scm292983_ + (map path-expand _src-deps-scm292981_)) + (_deps-scm292985_ + (map _tmp-path292973_ _src-deps-scm292983_)) + (_deps-c292991_ + (map (lambda (_g292986292988_) (let () (declare (not safe)) - (_replace-extension291643_ - _g291681291683_ + (_replace-extension292948_ + _g292986292988_ '".c"))) - _deps-scm291680_)) - (_deps-o291692_ - (map (lambda (_g291687291689_) + _deps-scm292985_)) + (_deps-o292997_ + (map (lambda (_g292992292994_) (let () (declare (not safe)) - (_replace-extension291643_ - _g291687291689_ + (_replace-extension292948_ + _g292992292994_ '".o"))) - _deps-scm291680_)) - (_src-bin-scm291694_ + _deps-scm292985_)) + (_src-bin-scm292999_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx291638_))) - (_src-bin-scm291696_ - (path-expand _src-bin-scm291694_)) - (_bin-scm291698_ + (gxc#find-static-module-file _ctx292943_))) + (_src-bin-scm293001_ + (path-expand _src-bin-scm292999_)) + (_bin-scm293003_ (let () (declare (not safe)) - (_tmp-path291668_ _src-bin-scm291696_))) - (_bin-c291700_ + (_tmp-path292973_ _src-bin-scm293001_))) + (_bin-c293005_ (let () (declare (not safe)) - (_replace-extension291643_ - _bin-scm291698_ + (_replace-extension292948_ + _bin-scm293003_ '".c"))) - (_bin-o291702_ + (_bin-o293007_ (let () (declare (not safe)) - (_replace-extension291643_ - _bin-scm291698_ + (_replace-extension292948_ + _bin-scm293003_ '".o"))) - (_output-bin291704_ - (path-expand _output-bin291654_)) - (_output-scm291706_ - (path-expand _output-scm291653_)) - (_output-c291708_ + (_output-bin293009_ + (path-expand _output-bin292959_)) + (_output-scm293011_ + (path-expand _output-scm292958_)) + (_output-c293013_ (let () (declare (not safe)) - (_replace-extension291643_ - _output-scm291706_ + (_replace-extension292948_ + _output-scm293011_ '".c"))) - (_output-o291710_ + (_output-o293015_ (let () (declare (not safe)) - (_replace-extension291643_ - _output-scm291706_ + (_replace-extension292948_ + _output-scm293011_ '".o"))) - (_output_-c291712_ + (_output_-c293017_ (let () (declare (not safe)) - (_replace-extension291643_ - _output-scm291706_ + (_replace-extension292948_ + _output-scm293011_ '"_.c"))) - (_output_-o291714_ + (_output_-o293019_ (let () (declare (not safe)) - (_replace-extension291643_ - _output-scm291706_ + (_replace-extension292948_ + _output-scm293011_ '"_.o"))) - (_gsc-link-opts291716_ + (_gsc-link-opts293021_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts291718_ + (_gsc-cc-opts293023_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts291720_ + (_gsc-static-opts293025_ (let () (declare (not safe)) (gxc#gsc-static-include-options - _gerbil-staticdir291660_))) - (_output-ld-opts291722_ + _gerbil-staticdir292965_))) + (_output-ld-opts293027_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_libgerbil.a291724_ - (path-expand '"libgerbil.a" _gerbil-libdir291658_)) - (_libgerbil.so291726_ + (_libgerbil.a293029_ + (path-expand '"libgerbil.a" _gerbil-libdir292963_)) + (_libgerbil.so293031_ (path-expand '"libgerbil.so" - _gerbil-libdir291658_)) - (_libgerbil-ld-opts291728_ - (if (file-exists? _libgerbil.so291726_) + _gerbil-libdir292963_)) + (_libgerbil-ld-opts293033_ + (if (file-exists? _libgerbil.so293031_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts291642_ - _libgerbil.so291726_)) - (if (file-exists? _libgerbil.a291724_) + (_get-libgerbil-ld-opts292947_ + _libgerbil.so293031_)) + (if (file-exists? _libgerbil.a293029_) (let () (declare (not safe)) - (_get-libgerbil-ld-opts291642_ - _libgerbil.a291724_)) + (_get-libgerbil-ld-opts292947_ + _libgerbil.a293029_)) (let () (declare (not safe)) (gxc#raise-compile-error '"libgerbil does not exist" - _libgerbil.a291724_ - _libgerbil.so291726_))))) - (_rpath291730_ + _libgerbil.a293029_ + _libgerbil.so293031_))))) + (_rpath293035_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir291658_))) - (_builtin-modules291734_ - (map (lambda (_mod291732_) + (gxc#gerbil-rpath _gerbil-libdir292963_))) + (_builtin-modules293039_ + (map (lambda (_mod293037_) (symbol->string (##structure-ref - _mod291732_ + _mod293037_ '1 gx#expander-context::t '#f))) (let () (declare (not safe)) - (cons _ctx291638_ _deps291672_))))) - (let ((__tmp296548 + (cons _ctx292943_ _deps292977_))))) + (let ((__tmp297853 (lambda () - (let ((__tmp296549 - (path-directory _output-bin291704_))) + (let ((__tmp297854 + (path-directory _output-bin293009_))) (declare (not safe)) - (create-directory* __tmp296549))))) + (create-directory* __tmp297854))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296548)) - (let ((__tmp296550 + (with-lock gxc#+driver-mutex+ __tmp297853)) + (let ((__tmp297855 (lambda () (let () (declare (not safe)) - (_generate-stub291641_ - _builtin-modules291734_))))) + (_generate-stub292946_ + _builtin-modules293039_))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm291706_ - __tmp296550)) + _output-scm293011_ + __tmp297855)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp296551 - (lambda () (create-directory _tmp291664_)))) + (let ((__tmp297856 + (lambda () (create-directory _tmp292969_)))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296551)) + (with-lock gxc#+driver-mutex+ __tmp297856)) (for-each copy-file - _src-deps-scm291678_ - _deps-scm291680_) - (copy-file _src-bin-scm291696_ _bin-scm291698_) - (let ((__tmp296559 + _src-deps-scm292983_ + _deps-scm292985_) + (copy-file _src-bin-scm293001_ _bin-scm293003_) + (let ((__tmp297864 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp296552 - (let ((__tmp296553 - (let ((__tmp296554 - (let ((__tmp296555 - (let ((__tmp296556 - (let ((__tmp296557 + (__tmp297857 + (let ((__tmp297858 + (let ((__tmp297859 + (let ((__tmp297860 + (let ((__tmp297861 + (let ((__tmp297862 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296558 + (let ((__tmp297863 (let () (declare (not safe)) - (cons _output-scm291706_ '())))) + (cons _output-scm293011_ '())))) (declare (not safe)) - (cons _bin-scm291698_ __tmp296558)))) + (cons _bin-scm293003_ __tmp297863)))) (declare (not safe)) - (foldr1 cons __tmp296557 _deps-scm291680_)))) + (foldr1 cons __tmp297862 _deps-scm292985_)))) (declare (not safe)) - (foldr1 cons __tmp296556 _gsc-link-opts291716_)))) + (foldr1 cons __tmp297861 _gsc-link-opts293021_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _gxlink291662_ - __tmp296555)))) + (cons _gxlink292967_ + __tmp297860)))) (declare (not safe)) - (cons '"-l" __tmp296554)))) + (cons '"-l" __tmp297859)))) (declare (not safe)) - (cons '"-link" __tmp296553)))) + (cons '"-link" __tmp297858)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp296559 - __tmp296552)) - (let ((__tmp296567 + __tmp297864 + __tmp297857)) + (let ((__tmp297872 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp296560 - (let ((__tmp296561 - (let ((__tmp296562 - (let ((__tmp296563 - (let ((__tmp296564 - (let ((__tmp296565 + (__tmp297865 + (let ((__tmp297866 + (let ((__tmp297867 + (let ((__tmp297868 + (let ((__tmp297869 + (let ((__tmp297870 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296566 + (let ((__tmp297871 (let () (declare (not safe)) - (cons _output_-c291712_ '())))) + (cons _output_-c293017_ '())))) (declare (not safe)) - (cons _output-c291708_ __tmp296566)))) + (cons _output-c293013_ __tmp297871)))) (declare (not safe)) - (cons _bin-c291700_ __tmp296565)))) + (cons _bin-c293005_ __tmp297870)))) (declare (not safe)) - (foldr1 cons __tmp296564 _deps-c291686_)))) + (foldr1 cons __tmp297869 _deps-c292991_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp296563 - _gsc-static-opts291720_)))) + __tmp297868 + _gsc-static-opts293025_)))) (declare (not safe)) (foldr1 cons - __tmp296562 - _gsc-cc-opts291718_)))) + __tmp297867 + _gsc-cc-opts293023_)))) (declare (not safe)) - (cons '"-obj" __tmp296561)))) + (cons '"-obj" __tmp297866)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp296567 - __tmp296560)) - (let ((__tmp296580 + __tmp297872 + __tmp297865)) + (let ((__tmp297885 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp296568 - (let ((__tmp296569 - (let ((__tmp296570 - (let ((__tmp296571 - (let ((__tmp296572 - (let ((__tmp296573 + (__tmp297873 + (let ((__tmp297874 + (let ((__tmp297875 + (let ((__tmp297876 + (let ((__tmp297877 + (let ((__tmp297878 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296574 - (let ((__tmp296575 - (let ((__tmp296576 - (let ((__tmp296577 - (let ((__tmp296578 + (let ((__tmp297879 + (let ((__tmp297880 + (let ((__tmp297881 + (let ((__tmp297882 + (let ((__tmp297883 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296579 + (let ((__tmp297884 (let () (declare (not safe)) (cons '"-lgambit" - _libgerbil-ld-opts291728_)))) + _libgerbil-ld-opts293033_)))) (declare (not safe)) - (cons '"-lgerbil" __tmp296579)))) + (cons '"-lgerbil" __tmp297884)))) (declare (not safe)) - (cons _gerbil-libdir291658_ __tmp296578)))) + (cons _gerbil-libdir292963_ __tmp297883)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"-L" - __tmp296577)))) + __tmp297882)))) (declare (not safe)) - (cons _rpath291730_ - __tmp296576)))) + (cons _rpath293035_ + __tmp297881)))) (declare (not safe)) (foldr1 cons - __tmp296575 - _output-ld-opts291722_)))) + __tmp297880 + _output-ld-opts293027_)))) (declare (not safe)) - (cons _output_-o291714_ __tmp296574)))) + (cons _output_-o293019_ __tmp297879)))) (declare (not safe)) - (cons _output-o291710_ __tmp296573)))) + (cons _output-o293015_ __tmp297878)))) (declare (not safe)) - (cons _bin-o291702_ __tmp296572)))) + (cons _bin-o293007_ __tmp297877)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp296571 - _deps-o291692_)))) + __tmp297876 + _deps-o292997_)))) (declare (not safe)) - (cons _output-bin291704_ - __tmp296570)))) + (cons _output-bin293009_ + __tmp297875)))) (declare (not safe)) - (cons '"-o" __tmp296569)))) + (cons '"-o" __tmp297874)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp296580 - __tmp296568)) + __tmp297885 + __tmp297873)) (for-each delete-file - (let ((__tmp296581 - (let ((__tmp296582 - (let ((__tmp296583 + (let ((__tmp297886 + (let ((__tmp297887 + (let ((__tmp297888 (let () (declare (not safe)) - (cons _output_-o291714_ + (cons _output_-o293019_ '())))) (declare (not safe)) - (cons _output-o291710_ - __tmp296583)))) + (cons _output-o293015_ + __tmp297888)))) (declare (not safe)) - (cons _output_-c291712_ __tmp296582)))) + (cons _output_-c293017_ __tmp297887)))) (declare (not safe)) - (cons _output-c291708_ __tmp296581))) + (cons _output-c293013_ __tmp297886))) (let () (declare (not safe)) - (gxc#delete-directory* _tmp291664_))) + (gxc#delete-directory* _tmp292969_))) '#!void))))) - (let* ((_output-bin291648_ + (let* ((_output-bin292953_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx291638_ _opts291639_))) - (_output-scm291650_ - (string-append _output-bin291648_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx292943_ _opts292944_))) + (_output-scm292955_ + (string-append _output-bin292953_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub291646_ _output-scm291650_ _output-bin291648_)) + (_compile-stub292951_ _output-scm292955_ _output-bin292953_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm291650_)))))) + (delete-file _output-scm292955_)))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_ctx291463_ _opts291464_) - (letrec ((_reset-declare291466_ + (lambda (_ctx292768_ _opts292769_) + (letrec ((_reset-declare292771_ (lambda () '(declare (gambit-scheme) @@ -917,661 +917,661 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_generate-stub291467_ - (lambda (_deps291629_) - (let ((_mod-main291631_ + (_generate-stub292772_ + (lambda (_deps292934_) + (let ((_mod-main292936_ (let () (declare (not safe)) - (gxc#find-runtime-symbol _ctx291463_ 'main))) - (_reset-decl291632_ + (gxc#find-runtime-symbol _ctx292768_ 'main))) + (_reset-decl292937_ (let () (declare (not safe)) - (_reset-declare291466_))) - (_user-decl291633_ + (_reset-declare292771_))) + (_user-decl292938_ (let () (declare (not safe)) - (_user-declare291468_)))) + (_user-declare292773_)))) (for-each - (lambda (_dep291635_) + (lambda (_dep292940_) (write '(##namespace (""))) (newline) - (write _reset-decl291632_) + (write _reset-decl292937_) (newline) - (if _user-decl291633_ - (begin (write _user-decl291633_) (newline)) + (if _user-decl292938_ + (begin (write _user-decl292938_) (newline)) '#!void) - (write (let ((__tmp296584 + (write (let ((__tmp297889 (let () (declare (not safe)) - (cons _dep291635_ '())))) + (cons _dep292940_ '())))) (declare (not safe)) - (cons 'include __tmp296584))) + (cons 'include __tmp297889))) (newline)) - _deps291629_) - (write (let ((__tmp296585 - (let ((__tmp296598 + _deps292934_) + (write (let ((__tmp297890 + (let ((__tmp297903 (let () (declare (not safe)) (cons 'gerbil-main '()))) - (__tmp296586 - (let ((__tmp296594 - (let ((__tmp296595 - (let ((__tmp296596 - (let ((__tmp296597 + (__tmp297891 + (let ((__tmp297899 + (let ((__tmp297900 + (let ((__tmp297901 + (let ((__tmp297902 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons 'quote __tmp296597)))) + (cons 'quote __tmp297902)))) (declare (not safe)) - (cons __tmp296596 '())))) + (cons __tmp297901 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'gerbil-runtime-init! - __tmp296595))) - (__tmp296587 - (let ((__tmp296588 - (let ((__tmp296589 - (let ((__tmp296590 + __tmp297900))) + (__tmp297892 + (let ((__tmp297893 + (let ((__tmp297894 + (let ((__tmp297895 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296591 - (let ((__tmp296592 - (let ((__tmp296593 + (let ((__tmp297896 + (let ((__tmp297897 + (let ((__tmp297898 (let () (declare (not safe)) (cons 'command-line '())))) (declare (not safe)) - (cons __tmp296593 '())))) + (cons __tmp297898 '())))) (declare (not safe)) - (cons 'cdr __tmp296592)))) + (cons 'cdr __tmp297897)))) (declare (not safe)) - (cons __tmp296591 '())))) + (cons __tmp297896 '())))) (declare (not safe)) - (cons _mod-main291631_ __tmp296590)))) + (cons _mod-main292936_ __tmp297895)))) (declare (not safe)) - (cons 'apply __tmp296589)))) + (cons 'apply __tmp297894)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296588 '())))) + (cons __tmp297893 '())))) (declare (not safe)) - (cons __tmp296594 __tmp296587)))) + (cons __tmp297899 __tmp297892)))) (declare (not safe)) - (cons __tmp296598 __tmp296586)))) + (cons __tmp297903 __tmp297891)))) (declare (not safe)) - (cons 'define __tmp296585))) + (cons 'define __tmp297890))) (write '(gerbil-main)) (newline)))) - (_user-declare291468_ + (_user-declare292773_ (lambda () - (let* ((_gsc-opts291534_ + (let* ((_gsc-opts292839_ (let () (declare (not safe)) - (pgetq 'gsc-options: _opts291464_))) - (_gsc-prelude291536_ - (if _gsc-opts291534_ - (member '"-prelude" _gsc-opts291534_) + (pgetq 'gsc-options: _opts292769_))) + (_gsc-prelude292841_ + (if _gsc-opts292839_ + (member '"-prelude" _gsc-opts292839_) '#f)) - (_gsc-prelude291538_ - (if _gsc-prelude291536_ + (_gsc-prelude292843_ + (if _gsc-prelude292841_ (read (open-input-string - (cadr _gsc-prelude291536_))) + (cadr _gsc-prelude292841_))) '#f))) - (let _lp291541_ ((_rest291543_ + (let _lp292846_ ((_rest292848_ (let () (declare (not safe)) - (cons _gsc-prelude291538_ '()))) - (_user-decls291544_ '())) - (let* ((_rest291545291553_ _rest291543_) - (_else291547291561_ + (cons _gsc-prelude292843_ '()))) + (_user-decls292849_ '())) + (let* ((_rest292850292858_ _rest292848_) + (_else292852292866_ (lambda () (if (let () (declare (not safe)) - (null? _user-decls291544_)) + (null? _user-decls292849_)) '#f - (let ((__tmp296599 - (reverse _user-decls291544_))) + (let ((__tmp297904 + (reverse _user-decls292849_))) (declare (not safe)) - (cons 'declare __tmp296599))))) - (_K291549291617_ - (lambda (_rest291564_ _expr291565_) - (let* ((_expr291566291578_ _expr291565_) - (_else291569291586_ + (cons 'declare __tmp297904))))) + (_K292854292922_ + (lambda (_rest292869_ _expr292870_) + (let* ((_expr292871292883_ _expr292870_) + (_else292874292891_ (lambda () (let () (declare (not safe)) - (_lp291541_ - _rest291564_ - _user-decls291544_))))) - (let ((_K291574291607_ - (lambda (_decls291605_) - (let ((__tmp296600 + (_lp292846_ + _rest292869_ + _user-decls292849_))))) + (let ((_K292879292912_ + (lambda (_decls292910_) + (let ((__tmp297905 (let () (declare (not safe)) (foldl1 cons - _user-decls291544_ - _decls291605_)))) + _user-decls292849_ + _decls292910_)))) (declare (not safe)) - (_lp291541_ - _rest291564_ - __tmp296600)))) - (_K291571291592_ - (lambda (_exprs291590_) - (let ((__tmp296601 - (append _exprs291590_ - _rest291564_))) + (_lp292846_ + _rest292869_ + __tmp297905)))) + (_K292876292897_ + (lambda (_exprs292895_) + (let ((__tmp297906 + (append _exprs292895_ + _rest292869_))) (declare (not safe)) - (_lp291541_ - __tmp296601 - _user-decls291544_))))) + (_lp292846_ + __tmp297906 + _user-decls292849_))))) (if (let () (declare (not safe)) - (##pair? _expr291566291578_)) - (let ((_tl291576291612_ + (##pair? _expr292871292883_)) + (let ((_tl292881292917_ (let () (declare (not safe)) - (##cdr _expr291566291578_))) - (_hd291575291610_ + (##cdr _expr292871292883_))) + (_hd292880292915_ (let () (declare (not safe)) - (##car _expr291566291578_)))) + (##car _expr292871292883_)))) (if (let () (declare (not safe)) - (##eq? _hd291575291610_ + (##eq? _hd292880292915_ 'declare)) - (let ((_decls291615_ - _tl291576291612_)) + (let ((_decls292920_ + _tl292881292917_)) (declare (not safe)) - (_K291574291607_ - _decls291615_)) + (_K292879292912_ + _decls292920_)) (if (let () (declare (not safe)) - (##eq? _hd291575291610_ + (##eq? _hd292880292915_ 'begin)) - (let ((_exprs291600_ - _tl291576291612_)) + (let ((_exprs292905_ + _tl292881292917_)) (declare (not safe)) - (_K291571291592_ - _exprs291600_)) + (_K292876292897_ + _exprs292905_)) (let () (declare (not safe)) - (_else291569291586_))))) + (_else292874292891_))))) (let () (declare (not safe)) - (_else291569291586_)))))))) + (_else292874292891_)))))))) (if (let () (declare (not safe)) - (##pair? _rest291545291553_)) - (let ((_hd291550291620_ + (##pair? _rest292850292858_)) + (let ((_hd292855292925_ (let () (declare (not safe)) - (##car _rest291545291553_))) - (_tl291551291622_ + (##car _rest292850292858_))) + (_tl292856292927_ (let () (declare (not safe)) - (##cdr _rest291545291553_)))) - (let* ((_expr291625_ _hd291550291620_) - (_rest291627_ _tl291551291622_)) + (##cdr _rest292850292858_)))) + (let* ((_expr292930_ _hd292855292925_) + (_rest292932_ _tl292856292927_)) (declare (not safe)) - (_K291549291617_ _rest291627_ _expr291625_))) + (_K292854292922_ _rest292932_ _expr292930_))) (let () (declare (not safe)) - (_else291547291561_)))))))) - (_compile-stub291469_ - (lambda (_output-scm291476_ _output-bin291477_) - (let* ((_gerbil-home291479_ + (_else292852292866_)))))))) + (_compile-stub292774_ + (lambda (_output-scm292781_ _output-bin292782_) + (let* ((_gerbil-home292784_ (getenv '"GERBIL_BUILD_PREFIX" (let () (declare (not safe)) (gerbil-home)))) - (_gerbil-libdir291481_ - (path-expand '"lib" _gerbil-home291479_)) - (_runtime291483_ + (_gerbil-libdir292786_ + (path-expand '"lib" _gerbil-home292784_)) + (_runtime292788_ (map gxc#find-static-module-file gxc#gerbil-runtime-modules)) - (_gambit-sharp291485_ + (_gambit-sharp292790_ (path-expand '"lib/_gambit#.scm" - _gerbil-home291479_)) - (_include-gambit-sharp291487_ + _gerbil-home292784_)) + (_include-gambit-sharp292792_ (string-append '"(include \"" - _gambit-sharp291485_ + _gambit-sharp292790_ '"\")")) - (_bin-scm291489_ + (_bin-scm292794_ (let () (declare (not safe)) - (gxc#find-static-module-file _ctx291463_))) - (_deps291491_ + (gxc#find-static-module-file _ctx292768_))) + (_deps292796_ (let () (declare (not safe)) - (gxc#find-runtime-module-deps _ctx291463_))) - (_deps291493_ - (map gxc#find-static-module-file _deps291491_)) - (_deps291498_ - (let ((__tmp296602 - (lambda (_$obj291495_) - (let ((__tmp296603 + (gxc#find-runtime-module-deps _ctx292768_))) + (_deps292798_ + (map gxc#find-static-module-file _deps292796_)) + (_deps292803_ + (let ((__tmp297907 + (lambda (_$obj292800_) + (let ((__tmp297908 (let () (declare (not safe)) - (gxc#file-empty? _$obj291495_)))) + (gxc#file-empty? _$obj292800_)))) (declare (not safe)) - (not __tmp296603))))) + (not __tmp297908))))) (declare (not safe)) - (filter __tmp296602 _deps291493_))) - (_deps291502_ - (let ((__tmp296604 - (lambda (_f291500_) - (let ((__tmp296605 - (member _f291500_ - _runtime291483_))) + (filter __tmp297907 _deps292798_))) + (_deps292807_ + (let ((__tmp297909 + (lambda (_f292805_) + (let ((__tmp297910 + (member _f292805_ + _runtime292788_))) (declare (not safe)) - (not __tmp296605))))) + (not __tmp297910))))) (declare (not safe)) - (filter __tmp296604 _deps291498_))) - (_output-base291504_ + (filter __tmp297909 _deps292803_))) + (_output-base292809_ (string-append - (path-strip-extension _output-scm291476_))) - (_output-c291506_ - (string-append _output-base291504_ '".c")) - (_output-o291508_ - (string-append _output-base291504_ '".o")) - (_output-c_291510_ - (string-append _output-base291504_ '"_.c")) - (_output-o_291512_ - (string-append _output-base291504_ '"_.o")) - (_gsc-link-opts291514_ + (path-strip-extension _output-scm292781_))) + (_output-c292811_ + (string-append _output-base292809_ '".c")) + (_output-o292813_ + (string-append _output-base292809_ '".o")) + (_output-c_292815_ + (string-append _output-base292809_ '"_.c")) + (_output-o_292817_ + (string-append _output-base292809_ '"_.o")) + (_gsc-link-opts292819_ (let () (declare (not safe)) (gxc#gsc-link-options__0))) - (_gsc-cc-opts291516_ + (_gsc-cc-opts292821_ (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - (_gsc-static-opts291518_ - (let ((__tmp296606 + (_gsc-static-opts292823_ + (let ((__tmp297911 (path-expand '"static" - _gerbil-libdir291481_))) + _gerbil-libdir292786_))) (declare (not safe)) - (gxc#gsc-static-include-options __tmp296606))) - (_output-ld-opts291520_ + (gxc#gsc-static-include-options __tmp297911))) + (_output-ld-opts292825_ (let () (declare (not safe)) (gxc#gcc-ld-options))) - (_gsc-gx-macros291522_ + (_gsc-gx-macros292827_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) - (let ((__tmp296608 - (let ((__tmp296609 - (let ((__tmp296610 + (let ((__tmp297913 + (let ((__tmp297914 + (let ((__tmp297915 (let () (declare (not safe)) - (cons _include-gambit-sharp291487_ + (cons _include-gambit-sharp292792_ '())))) (declare (not safe)) - (cons '"-e" __tmp296610)))) + (cons '"-e" __tmp297915)))) (declare (not safe)) (cons '"(define-cond-expand-feature|enable-smp|)" - __tmp296609)))) + __tmp297914)))) (declare (not safe)) - (cons '"-e" __tmp296608)) - (let ((__tmp296607 + (cons '"-e" __tmp297913)) + (let ((__tmp297912 (let () (declare (not safe)) - (cons _include-gambit-sharp291487_ + (cons _include-gambit-sharp292792_ '())))) (declare (not safe)) - (cons '"-e" __tmp296607)))) - (_gsc-link-opts291524_ - (append _gsc-link-opts291514_ - _gsc-gx-macros291522_)) - (_rpath291526_ + (cons '"-e" __tmp297912)))) + (_gsc-link-opts292829_ + (append _gsc-link-opts292819_ + _gsc-gx-macros292827_)) + (_rpath292831_ (let () (declare (not safe)) - (gxc#gerbil-rpath _gerbil-libdir291481_))) - (_default-ld-options291528_ - (let ((__tmp296611 + (gxc#gerbil-rpath _gerbil-libdir292786_))) + (_default-ld-options292833_ + (let ((__tmp297916 (let () (declare (not safe)) (cons '"-lm" '())))) (declare (not safe)) - (cons '"-ldl" __tmp296611)))) - (let ((__tmp296612 + (cons '"-ldl" __tmp297916)))) + (let ((__tmp297917 (lambda () - (let ((__tmp296613 - (path-directory _output-bin291477_))) + (let ((__tmp297918 + (path-directory _output-bin292782_))) (declare (not safe)) - (create-directory* __tmp296613))))) + (create-directory* __tmp297918))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296612)) - (let ((__tmp296614 + (with-lock gxc#+driver-mutex+ __tmp297917)) + (let ((__tmp297919 (lambda () - (let ((__tmp296615 - (let ((__tmp296616 - (let ((__tmp296617 + (let ((__tmp297920 + (let ((__tmp297921 + (let ((__tmp297922 (let () (declare (not safe)) - (cons _bin-scm291489_ + (cons _bin-scm292794_ '())))) (declare (not safe)) (foldr1 cons - __tmp296617 - _deps291502_)))) + __tmp297922 + _deps292807_)))) (declare (not safe)) (foldr1 cons - __tmp296616 - _runtime291483_)))) + __tmp297921 + _runtime292788_)))) (declare (not safe)) - (_generate-stub291467_ __tmp296615))))) + (_generate-stub292772_ __tmp297920))))) (declare (not safe)) (gxc#with-output-to-scheme-file - _output-scm291476_ - __tmp296614)) + _output-scm292781_ + __tmp297919)) (if (gxc#current-compile-invoke-gsc) (begin - (let ((__tmp296623 + (let ((__tmp297928 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp296618 - (let ((__tmp296619 - (let ((__tmp296620 - (let ((__tmp296621 - (let ((__tmp296622 + (__tmp297923 + (let ((__tmp297924 + (let ((__tmp297925 + (let ((__tmp297926 + (let ((__tmp297927 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-scm291476_ '())))) + (cons _output-scm292781_ '())))) (declare (not safe)) - (foldr1 cons __tmp296622 _gsc-link-opts291524_)))) + (foldr1 cons __tmp297927 _gsc-link-opts292829_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-c_291510_ - __tmp296621)))) + (cons _output-c_292815_ + __tmp297926)))) (declare (not safe)) - (cons '"-o" __tmp296620)))) + (cons '"-o" __tmp297925)))) (declare (not safe)) - (cons '"-link" __tmp296619)))) + (cons '"-link" __tmp297924)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp296623 - __tmp296618)) - (let ((__tmp296629 + __tmp297928 + __tmp297923)) + (let ((__tmp297934 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp296624 - (let ((__tmp296625 - (let ((__tmp296626 - (let ((__tmp296627 - (let ((__tmp296628 + (__tmp297929 + (let ((__tmp297930 + (let ((__tmp297931 + (let ((__tmp297932 + (let ((__tmp297933 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _output-c_291510_ '())))) + (cons _output-c_292815_ '())))) (declare (not safe)) - (cons _output-c291506_ __tmp296628)))) + (cons _output-c292811_ __tmp297933)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp296627 - _gsc-static-opts291518_)))) + __tmp297932 + _gsc-static-opts292823_)))) (declare (not safe)) (foldr1 cons - __tmp296626 - _gsc-cc-opts291516_)))) + __tmp297931 + _gsc-cc-opts292821_)))) (declare (not safe)) - (cons '"-obj" __tmp296625)))) + (cons '"-obj" __tmp297930)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp296629 - __tmp296624)) - (let ((__tmp296639 + __tmp297934 + __tmp297929)) + (let ((__tmp297944 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp296630 - (let ((__tmp296631 - (let ((__tmp296632 - (let ((__tmp296633 - (let ((__tmp296634 - (let ((__tmp296635 + (__tmp297935 + (let ((__tmp297936 + (let ((__tmp297937 + (let ((__tmp297938 + (let ((__tmp297939 + (let ((__tmp297940 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp296636 - (let ((__tmp296637 - (let ((__tmp296638 + (let ((__tmp297941 + (let ((__tmp297942 + (let ((__tmp297943 (let () (declare (not safe)) (cons '"-lgambit" - _default-ld-options291528_)))) + _default-ld-options292833_)))) (declare (not safe)) - (cons _gerbil-libdir291481_ - __tmp296638)))) + (cons _gerbil-libdir292786_ + __tmp297943)))) (declare (not safe)) - (cons '"-L" __tmp296637)))) + (cons '"-L" __tmp297942)))) (declare (not safe)) - (cons _rpath291526_ __tmp296636)))) + (cons _rpath292831_ __tmp297941)))) (declare (not safe)) - (foldr1 cons __tmp296635 _output-ld-opts291520_)))) + (foldr1 cons __tmp297940 _output-ld-opts292825_)))) (declare (not safe)) - (cons _output-o_291512_ __tmp296634)))) + (cons _output-o_292817_ __tmp297939)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _output-o291508_ - __tmp296633)))) + (cons _output-o292813_ + __tmp297938)))) (declare (not safe)) - (cons _output-bin291477_ - __tmp296632)))) + (cons _output-bin292782_ + __tmp297937)))) (declare (not safe)) - (cons '"-o" __tmp296631)))) + (cons '"-o" __tmp297936)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp296639 - __tmp296630))) + __tmp297944 + __tmp297935))) '#!void))))) - (let* ((_output-bin291471_ + (let* ((_output-bin292776_ (let () (declare (not safe)) - (gxc#compile-exe-output-file _ctx291463_ _opts291464_))) - (_output-scm291473_ - (string-append _output-bin291471_ '"__exe.scm"))) + (gxc#compile-exe-output-file _ctx292768_ _opts292769_))) + (_output-scm292778_ + (string-append _output-bin292776_ '"__exe.scm"))) (let () (declare (not safe)) - (_compile-stub291469_ _output-scm291473_ _output-bin291471_)) + (_compile-stub292774_ _output-scm292778_ _output-bin292776_)) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _output-scm291473_)))))) + (delete-file _output-scm292778_)))))) (define gxc#find-export-binding - (lambda (_ctx291413_ _id291414_) - (let ((_$e291460_ - (let ((__tmp296641 - (lambda (_e291415291417_) - (let* ((_g291419291429_ _e291415291417_) - (_else291421291437_ (lambda () '#f)) - (_K291423291441_ (lambda () '#t))) + (lambda (_ctx292718_ _id292719_) + (let ((_$e292765_ + (let ((__tmp297946 + (lambda (_e292720292722_) + (let* ((_g292724292734_ _e292720292722_) + (_else292726292742_ (lambda () '#f)) + (_K292728292746_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _g291419291429_ + _g292724292734_ 'gx#module-export::t)) - (let* ((_e291424291444_ + (let* ((_e292729292749_ (let () (declare (not safe)) (##unchecked-structure-ref - _g291419291429_ + _g292724292734_ '1 gx#module-export::t '#f))) - (_e291425291447_ + (_e292730292752_ (let () (declare (not safe)) (##unchecked-structure-ref - _g291419291429_ + _g292724292734_ '2 gx#module-export::t '#f))) - (_e291426291450_ + (_e292731292755_ (let () (declare (not safe)) (##unchecked-structure-ref - _g291419291429_ + _g292724292734_ '3 gx#module-export::t '#f)))) (if (let () (declare (not safe)) - (##eq? _e291426291450_ '0)) - (let ((_e291427291453_ + (##eq? _e292731292755_ '0)) + (let ((_e292732292758_ (let () (declare (not safe)) (##unchecked-structure-ref - _g291419291429_ + _g292724292734_ '4 gx#module-export::t '#f)))) - (if ((lambda (_g291455291457_) + (if ((lambda (_g292760292762_) (let () (declare (not safe)) - (eq? _g291455291457_ - _id291414_))) - _e291427291453_) + (eq? _g292760292762_ + _id292719_))) + _e292732292758_) (let () (declare (not safe)) - (_K291423291441_)) + (_K292728292746_)) (let () (declare (not safe)) - (_else291421291437_)))) + (_else292726292742_)))) (let () (declare (not safe)) - (_else291421291437_)))) + (_else292726292742_)))) (let () (declare (not safe)) - (_else291421291437_)))))) - (__tmp296640 + (_else292726292742_)))))) + (__tmp297945 (##structure-ref - _ctx291413_ + _ctx292718_ '9 gx#module-context::t '#f))) (declare (not safe)) - (find __tmp296641 __tmp296640)))) - (if _$e291460_ + (find __tmp297946 __tmp297945)))) + (if _$e292765_ (let () (declare (not safe)) - (gx#core-resolve-module-export _$e291460_)) + (gx#core-resolve-module-export _$e292765_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_ctx291405_ _id291406_) - (let ((_$e291408_ + (lambda (_ctx292710_ _id292711_) + (let ((_$e292713_ (let () (declare (not safe)) - (gxc#find-export-binding _ctx291405_ _id291406_)))) - (if _$e291408_ - ((lambda (_bind291411_) + (gxc#find-export-binding _ctx292710_ _id292711_)))) + (if _$e292713_ + ((lambda (_bind292716_) (if (let () (declare (not safe)) (##structure-instance-of? - _bind291411_ + _bind292716_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _id291406_))) - (##structure-ref _bind291411_ '1 gx#binding::t '#f)) - _$e291408_) - (let ((__tmp296642 + _id292711_))) + (##structure-ref _bind292716_ '1 gx#binding::t '#f)) + _$e292713_) + (let ((__tmp297947 (##structure-ref - _ctx291405_ + _ctx292710_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp296642 - _id291406_)))))) + __tmp297947 + _id292711_)))))) (define gxc#find-runtime-module-deps - (lambda (_ctx291292_) - (letrec* ((_ht291294_ + (lambda (_ctx292597_) + (letrec* ((_ht292599_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import-set-template291295_ - (lambda (_in291357_ _phi291358_) - (let ((_iphi291360_ - (fx+ _phi291358_ + (_import-set-template292600_ + (lambda (_in292662_ _phi292663_) + (let ((_iphi292665_ + (fx+ _phi292663_ (##direct-structure-ref - _in291357_ + _in292662_ '2 gx#import-set::t '#f))) - (_imports291361_ + (_imports292666_ (##structure-ref (##direct-structure-ref - _in291357_ + _in292662_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _lp291363_ ((_rest291365_ _imports291361_) - (_r291366_ '())) - (let* ((_rest291367291375_ _rest291365_) - (_else291369291383_ (lambda () _r291366_)) - (_K291371291393_ - (lambda (_rest291386_ _in291387_) + (let _lp292668_ ((_rest292670_ _imports292666_) + (_r292671_ '())) + (let* ((_rest292672292680_ _rest292670_) + (_else292674292688_ (lambda () _r292671_)) + (_K292676292698_ + (lambda (_rest292691_ _in292692_) (if (let () (declare (not safe)) (##structure-instance-of? - _in291387_ + _in292692_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (fxzero? _iphi291360_)) - (let ((__tmp296649 + (fxzero? _iphi292665_)) + (let ((__tmp297954 (let () (declare (not safe)) - (cons _in291387_ - _r291366_)))) + (cons _in292692_ + _r292671_)))) (declare (not safe)) - (_lp291363_ - _rest291386_ - __tmp296649)) + (_lp292668_ + _rest292691_ + __tmp297954)) (let () (declare (not safe)) - (_lp291363_ - _rest291386_ - _r291366_))) + (_lp292668_ + _rest292691_ + _r292671_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in291387_ + _in292692_ 'gx#module-import::t)) - (let ((_iphi291389_ - (fx+ _phi291358_ + (let ((_iphi292694_ + (fx+ _phi292663_ (##direct-structure-ref - _in291387_ + _in292692_ '3 gx#module-import::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _iphi291389_)) - (let ((__tmp296647 - (let ((__tmp296648 + (fxzero? _iphi292694_)) + (let ((__tmp297952 + (let ((__tmp297953 (##direct-structure-ref (##direct-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in291387_ + _in292692_ '1 gx#module-import::t '#f) @@ -1579,892 +1579,892 @@ gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp296648 _r291366_)))) + (cons __tmp297953 _r292671_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp291363_ - _rest291386_ - __tmp296647)) + (_lp292668_ + _rest292691_ + __tmp297952)) (let () (declare (not safe)) - (_lp291363_ - _rest291386_ - _r291366_)))) + (_lp292668_ + _rest292691_ + _r292671_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _in291387_ + _in292692_ 'gx#import-set::t)) - (let ((_xphi291391_ - (fx+ _iphi291360_ + (let ((_xphi292696_ + (fx+ _iphi292665_ (##direct-structure-ref - _in291387_ + _in292692_ '2 gx#import-set::t '#f)))) (if (let () (declare (not safe)) - (fxzero? _xphi291391_)) - (let ((__tmp296645 - (let ((__tmp296646 + (fxzero? _xphi292696_)) + (let ((__tmp297950 + (let ((__tmp297951 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _in291387_ + _in292692_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp296646 _r291366_)))) + (cons __tmp297951 _r292671_)))) (declare (not safe)) - (_lp291363_ _rest291386_ __tmp296645)) + (_lp292668_ _rest292691_ __tmp297950)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fxpositive? - _xphi291391_) - (let ((__tmp296643 - (let ((__tmp296644 + _xphi292696_) + (let ((__tmp297948 + (let ((__tmp297949 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_import-set-template291295_ - _in291387_ - _iphi291360_)))) + (_import-set-template292600_ + _in292692_ + _iphi292665_)))) (declare (not safe)) - (foldl1 cons _r291366_ __tmp296644)))) + (foldl1 cons _r292671_ __tmp297949)))) (declare (not safe)) - (_lp291363_ _rest291386_ __tmp296643)) + (_lp292668_ _rest292691_ __tmp297948)) (let () (declare (not safe)) - (_lp291363_ _rest291386_ _r291366_))))) + (_lp292668_ _rest292691_ _r292671_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp291363_ - _rest291386_ - _r291366_)))))))) + (_lp292668_ + _rest292691_ + _r292671_)))))))) (if (let () (declare (not safe)) - (##pair? _rest291367291375_)) - (let ((_hd291372291396_ + (##pair? _rest292672292680_)) + (let ((_hd292677292701_ (let () (declare (not safe)) - (##car _rest291367291375_))) - (_tl291373291398_ + (##car _rest292672292680_))) + (_tl292678292703_ (let () (declare (not safe)) - (##cdr _rest291367291375_)))) - (let* ((_in291401_ _hd291372291396_) - (_rest291403_ _tl291373291398_)) + (##cdr _rest292672292680_)))) + (let* ((_in292706_ _hd292677292701_) + (_rest292708_ _tl292678292703_)) (declare (not safe)) - (_K291371291393_ _rest291403_ _in291401_))) + (_K292676292698_ _rest292708_ _in292706_))) (let () (declare (not safe)) - (_else291369291383_)))))))) - (_find-deps291296_ - (lambda (_rest291303_ _deps291304_) - (let* ((_rest291305291313_ _rest291303_) - (_else291307291321_ (lambda () _deps291304_)) - (_K291309291345_ - (lambda (_rest291324_ _hd291325_) + (_else292674292688_)))))))) + (_find-deps292601_ + (lambda (_rest292608_ _deps292609_) + (let* ((_rest292610292618_ _rest292608_) + (_else292612292626_ (lambda () _deps292609_)) + (_K292614292650_ + (lambda (_rest292629_ _hd292630_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd291325_ + _hd292630_ 'gx#module-context::t)) - (let ((_id291327_ + (let ((_id292632_ (##structure-ref - _hd291325_ + _hd292630_ '1 gx#expander-context::t '#f)) - (_imports291328_ + (_imports292633_ (##structure-ref - _hd291325_ + _hd292630_ '8 gx#module-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht291294_ - _id291327_ + _ht292599_ + _id292632_ '#f)) (let () (declare (not safe)) - (_find-deps291296_ - _rest291324_ - _deps291304_)) - (let ((_$e291330_ + (_find-deps292601_ + _rest292629_ + _deps292609_)) + (let ((_$e292635_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd291325_)))) - (if _$e291330_ - ((lambda (_pre291333_) - (let ((_xdeps291335_ - (let ((__tmp296662 + _hd292630_)))) + (if _$e292635_ + ((lambda (_pre292638_) + (let ((_xdeps292640_ + (let ((__tmp297967 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _pre291333_ _imports291328_)))) + (cons _pre292638_ _imports292633_)))) (declare (not safe)) - (_find-deps291296_ __tmp296662 _deps291304_)))) + (_find-deps292601_ __tmp297967 _deps292609_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (table-set! - _ht291294_ - _id291327_ - _hd291325_)) - (let ((__tmp296663 + _ht292599_ + _id292632_ + _hd292630_)) + (let ((__tmp297968 (let () (declare (not safe)) - (cons _hd291325_ + (cons _hd292630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps291335_)))) + _xdeps292640_)))) (declare (not safe)) - (_find-deps291296_ _rest291324_ __tmp296663)))) + (_find-deps292601_ _rest292629_ __tmp297968)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e291330_) - (let ((_xdeps291337_ + _$e292635_) + (let ((_xdeps292642_ (let () (declare (not safe)) - (_find-deps291296_ - _imports291328_ - _deps291304_)))) + (_find-deps292601_ + _imports292633_ + _deps292609_)))) (let () (declare (not safe)) (table-set! - _ht291294_ - _id291327_ - _hd291325_)) - (let ((__tmp296661 + _ht292599_ + _id292632_ + _hd292630_)) + (let ((__tmp297966 (let () (declare (not safe)) - (cons _hd291325_ - _xdeps291337_)))) + (cons _hd292630_ + _xdeps292642_)))) (declare (not safe)) - (_find-deps291296_ - _rest291324_ - __tmp296661))))))) + (_find-deps292601_ + _rest292629_ + __tmp297966))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd291325_ + _hd292630_ 'gx#prelude-context::t)) - (let ((_id291339_ + (let ((_id292644_ (##structure-ref - _hd291325_ + _hd292630_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (table-ref - _ht291294_ - _id291339_ + _ht292599_ + _id292644_ '#f)) (let () (declare (not safe)) - (_find-deps291296_ - _rest291324_ - _deps291304_)) - (let ((_xdeps291341_ - (let ((__tmp296659 + (_find-deps292601_ + _rest292629_ + _deps292609_)) + (let ((_xdeps292646_ + (let ((__tmp297964 (##structure-ref - _hd291325_ + _hd292630_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_find-deps291296_ - __tmp296659 - _deps291304_)))) + (_find-deps292601_ + __tmp297964 + _deps292609_)))) (if (let () (declare (not safe)) (table-ref - _ht291294_ - _id291339_ + _ht292599_ + _id292644_ '#f)) (let () (declare (not safe)) - (_find-deps291296_ - _rest291324_ - _xdeps291341_)) + (_find-deps292601_ + _rest292629_ + _xdeps292646_)) (begin (let () (declare (not safe)) (table-set! - _ht291294_ - _id291339_ - _hd291325_)) - (let ((__tmp296660 + _ht292599_ + _id292644_ + _hd292630_)) + (let ((__tmp297965 (let () (declare (not safe)) - (cons _hd291325_ + (cons _hd292630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _xdeps291341_)))) + _xdeps292646_)))) (declare (not safe)) - (_find-deps291296_ _rest291324_ __tmp296660))))))) + (_find-deps292601_ _rest292629_ __tmp297965))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd291325_ + _hd292630_ 'gx#module-import::t)) - (if (let ((__tmp296658 + (if (let ((__tmp297963 (##direct-structure-ref - _hd291325_ + _hd292630_ '3 gx#module-import::t '#f))) (declare (not safe)) - (fxzero? __tmp296658)) - (let ((__tmp296656 - (let ((__tmp296657 + (fxzero? __tmp297963)) + (let ((__tmp297961 + (let ((__tmp297962 (##direct-structure-ref - _hd291325_ + _hd292630_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp296657 - _rest291324_)))) + (cons __tmp297962 + _rest292629_)))) (declare (not safe)) - (_find-deps291296_ - __tmp296656 - _deps291304_)) + (_find-deps292601_ + __tmp297961 + _deps292609_)) (let () (declare (not safe)) - (_find-deps291296_ - _rest291324_ - _deps291304_))) + (_find-deps292601_ + _rest292629_ + _deps292609_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd291325_ + _hd292630_ 'gx#module-export::t)) - (let ((__tmp296654 - (let ((__tmp296655 + (let ((__tmp297959 + (let ((__tmp297960 (##direct-structure-ref - _hd291325_ + _hd292630_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp296655 - _rest291324_)))) + (cons __tmp297960 + _rest292629_)))) (declare (not safe)) - (_find-deps291296_ - __tmp296654 - _deps291304_)) + (_find-deps292601_ + __tmp297959 + _deps292609_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd291325_ + _hd292630_ 'gx#import-set::t)) - (if (let ((__tmp296653 + (if (let ((__tmp297958 (##direct-structure-ref - _hd291325_ + _hd292630_ '2 gx#import-set::t '#f))) (declare (not safe)) - (fxzero? __tmp296653)) - (let ((__tmp296651 - (let ((__tmp296652 + (fxzero? __tmp297958)) + (let ((__tmp297956 + (let ((__tmp297957 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##direct-structure-ref - _hd291325_ + _hd292630_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp296652 _rest291324_)))) + (cons __tmp297957 _rest292629_)))) (declare (not safe)) - (_find-deps291296_ __tmp296651 _deps291304_)) + (_find-deps292601_ __tmp297956 _deps292609_)) (if (fxpositive? (##direct-structure-ref - _hd291325_ + _hd292630_ '2 gx#import-set::t '#f)) - (let* ((_xdeps291343_ + (let* ((_xdeps292648_ (let () (declare (not safe)) - (_import-set-template291295_ _hd291325_ '0))) - (__tmp296650 + (_import-set-template292600_ _hd292630_ '0))) + (__tmp297955 (let () (declare (not safe)) - (foldl1 cons _rest291324_ _xdeps291343_)))) + (foldl1 cons _rest292629_ _xdeps292648_)))) (declare (not safe)) - (_find-deps291296_ __tmp296650 _deps291304_)) + (_find-deps292601_ __tmp297955 _deps292609_)) (let () (declare (not safe)) - (_find-deps291296_ _rest291324_ _deps291304_)))) + (_find-deps292601_ _rest292629_ _deps292609_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Unexpected module import" - _hd291325_))))))))) + _hd292630_))))))))) (if (let () (declare (not safe)) - (##pair? _rest291305291313_)) - (let ((_hd291310291348_ + (##pair? _rest292610292618_)) + (let ((_hd292615292653_ (let () (declare (not safe)) - (##car _rest291305291313_))) - (_tl291311291350_ + (##car _rest292610292618_))) + (_tl292616292655_ (let () (declare (not safe)) - (##cdr _rest291305291313_)))) - (let* ((_hd291353_ _hd291310291348_) - (_rest291355_ _tl291311291350_)) + (##cdr _rest292610292618_)))) + (let* ((_hd292658_ _hd292615292653_) + (_rest292660_ _tl292616292655_)) (declare (not safe)) - (_K291309291345_ _rest291355_ _hd291353_))) + (_K292614292650_ _rest292660_ _hd292658_))) (let () (declare (not safe)) - (_else291307291321_))))))) - (reverse (let ((__tmp296664 - (let ((__tmp296665 - (let ((_$e291298_ + (_else292612292626_))))))) + (reverse (let ((__tmp297969 + (let ((__tmp297970 + (let ((_$e292603_ (let () (declare (not safe)) (gx#core-context-prelude__% - _ctx291292_)))) - (if _$e291298_ - ((lambda (_pre291301_) - (let ((__tmp296666 + _ctx292597_)))) + (if _$e292603_ + ((lambda (_pre292606_) + (let ((__tmp297971 (##structure-ref - _ctx291292_ + _ctx292597_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre291301_ __tmp296666))) - _$e291298_) + (cons _pre292606_ __tmp297971))) + _$e292603_) (##structure-ref - _ctx291292_ + _ctx292597_ '8 gx#module-context::t '#f))))) (declare (not safe)) - (_find-deps291296_ __tmp296665 '())))) + (_find-deps292601_ __tmp297970 '())))) (declare (not safe)) - (filter gx#expander-context-id __tmp296664)))))) + (filter gx#expander-context-id __tmp297969)))))) (define gxc#find-static-module-file - (lambda (_ctx291223_) - (let* ((_context-id291225_ + (lambda (_ctx292528_) + (let* ((_context-id292530_ (if (let () (declare (not safe)) (##structure-instance-of? - _ctx291223_ + _ctx292528_ 'gx#module-context::t)) - (##structure-ref _ctx291223_ '1 gx#expander-context::t '#f) - (string->symbol _ctx291223_))) - (_scm291227_ + (##structure-ref _ctx292528_ '1 gx#expander-context::t '#f) + (string->symbol _ctx292528_))) + (_scm292532_ (string-append (let () (declare (not safe)) - (gxc#static-module-name _context-id291225_)) + (gxc#static-module-name _context-id292530_)) '".scm")) - (_dirs291229_ (gx#current-expander-module-library-path)) - (_dirs291235_ - (let ((_user-libpath291231_ (getenv '"GERBIL_PATH" '#f))) - (if _user-libpath291231_ - (let ((_user-libpath291233_ - (path-expand '"lib" _user-libpath291231_))) - (if (member _user-libpath291233_ _dirs291229_) - _dirs291229_ + (_dirs292534_ (gx#current-expander-module-library-path)) + (_dirs292540_ + (let ((_user-libpath292536_ (getenv '"GERBIL_PATH" '#f))) + (if _user-libpath292536_ + (let ((_user-libpath292538_ + (path-expand '"lib" _user-libpath292536_))) + (if (member _user-libpath292538_ _dirs292534_) + _dirs292534_ (let () (declare (not safe)) - (cons _user-libpath291233_ _dirs291229_)))) - _dirs291229_))) - (_dirs291244_ - (let ((_$e291237_ (gxc#current-compile-output-dir))) - (if _$e291237_ - ((lambda (_g291239291241_) + (cons _user-libpath292538_ _dirs292534_)))) + _dirs292534_))) + (_dirs292549_ + (let ((_$e292542_ (gxc#current-compile-output-dir))) + (if _$e292542_ + ((lambda (_g292544292546_) (let () (declare (not safe)) - (cons _g291239291241_ _dirs291235_))) - _$e291237_) - _dirs291235_))) - (_dirs291250_ - (map (lambda (_g291245291247_) - (path-expand '"static" _g291245291247_)) - _dirs291244_))) - (let _lp291253_ ((_rest291255_ _dirs291250_)) - (let* ((_rest291256291264_ _rest291255_) - (_else291258291272_ + (cons _g292544292546_ _dirs292540_))) + _$e292542_) + _dirs292540_))) + (_dirs292555_ + (map (lambda (_g292550292552_) + (path-expand '"static" _g292550292552_)) + _dirs292549_))) + (let _lp292558_ ((_rest292560_ _dirs292555_)) + (let* ((_rest292561292569_ _rest292560_) + (_else292563292577_ (lambda () - (let ((__tmp296667 + (let ((__tmp297972 (##structure-ref - _ctx291223_ + _ctx292528_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp296667 - _scm291227_)))) - (_K291260291280_ - (lambda (_rest291275_ _dir291276_) - (let ((_path291278_ - (path-expand _scm291227_ _dir291276_))) - (if (file-exists? _path291278_) - _path291278_ + __tmp297972 + _scm292532_)))) + (_K292565292585_ + (lambda (_rest292580_ _dir292581_) + (let ((_path292583_ + (path-expand _scm292532_ _dir292581_))) + (if (file-exists? _path292583_) + _path292583_ (let () (declare (not safe)) - (_lp291253_ _rest291275_))))))) - (if (let () (declare (not safe)) (##pair? _rest291256291264_)) - (let ((_hd291261291283_ + (_lp292558_ _rest292580_))))))) + (if (let () (declare (not safe)) (##pair? _rest292561292569_)) + (let ((_hd292566292588_ (let () (declare (not safe)) - (##car _rest291256291264_))) - (_tl291262291285_ + (##car _rest292561292569_))) + (_tl292567292590_ (let () (declare (not safe)) - (##cdr _rest291256291264_)))) - (let* ((_dir291288_ _hd291261291283_) - (_rest291290_ _tl291262291285_)) + (##cdr _rest292561292569_)))) + (let* ((_dir292593_ _hd292566292588_) + (_rest292595_ _tl292567292590_)) (declare (not safe)) - (_K291260291280_ _rest291290_ _dir291288_))) - (let () (declare (not safe)) (_else291258291272_)))))))) + (_K292565292585_ _rest292595_ _dir292593_))) + (let () (declare (not safe)) (_else292563292577_)))))))) (define gxc#file-empty? - (lambda (_path291221_) - (let ((__tmp296668 (file-info-size (file-info _path291221_ '#t)))) + (lambda (_path292526_) + (let ((__tmp297973 (file-info-size (file-info _path292526_ '#t)))) (declare (not safe)) - (zero? __tmp296668)))) + (zero? __tmp297973)))) (define gxc#compile-top-module - (lambda (_ctx291210_) - (let ((__tmp296672 + (lambda (_ctx292515_) + (let ((__tmp297977 (lambda () - (let ((__tmp296673 + (let ((__tmp297978 (##structure-ref - _ctx291210_ + _ctx292515_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp296673)) + (gxc#verbose '"compile " __tmp297978)) (if (gxc#current-compile-optimize) - (let ((__tmp296674 + (let ((__tmp297979 (lambda () (let () (declare (not safe)) - (gxc#optimize! _ctx291210_))))) + (gxc#optimize! _ctx292515_))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296674)) + (with-lock gxc#+driver-mutex+ __tmp297979)) '#!void) (let () (declare (not safe)) - (gxc#collect-bindings _ctx291210_)) - (if (let ((__tmp296677 + (gxc#collect-bindings _ctx292515_)) + (if (let ((__tmp297982 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx291210_)))) + (gxc#lift-nested-modules _ctx292515_)))) (declare (not safe)) - (null? __tmp296677)) - (let* ((_thr1291215_ - (let ((__tmp296675 + (null? __tmp297982)) + (let* ((_thr1292520_ + (let ((__tmp297980 (lambda () (let () (declare (not safe)) (gxc#compile-runtime-code - _ctx291210_))))) + _ctx292515_))))) (declare (not safe)) - (spawn __tmp296675))) - (_thr2291218_ - (let ((__tmp296676 + (spawn __tmp297980))) + (_thr2292523_ + (let ((__tmp297981 (lambda () (let () (declare (not safe)) - (gxc#compile-meta-code _ctx291210_))))) + (gxc#compile-meta-code _ctx292515_))))) (declare (not safe)) - (spawn __tmp296676)))) - (let () (declare (not safe)) (gxc#join! _thr1291215_)) - (let () (declare (not safe)) (gxc#join! _thr2291218_))) + (spawn __tmp297981)))) + (let () (declare (not safe)) (gxc#join! _thr1292520_)) + (let () (declare (not safe)) (gxc#join! _thr2292523_))) (begin (let () (declare (not safe)) - (gxc#compile-runtime-code _ctx291210_)) + (gxc#compile-runtime-code _ctx292515_)) (let () (declare (not safe)) - (gxc#compile-meta-code _ctx291210_)))) + (gxc#compile-meta-code _ctx292515_)))) (if (and (gxc#current-compile-optimize) (gxc#current-compile-generate-ssxi)) (let () (declare (not safe)) - (gxc#compile-ssxi-code _ctx291210_)) + (gxc#compile-ssxi-code _ctx292515_)) '#!void))) - (__tmp296671 - (let ((__obj296476 + (__tmp297976 + (let ((__obj297781 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) - (gxc#symbol-table:::init! __obj296476) - __obj296476)) - (__tmp296670 + (gxc#symbol-table:::init! __obj297781) + __obj297781)) + (__tmp297975 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp296669 (let () (declare (not safe)) (make-table)))) + (__tmp297974 (let () (declare (not safe)) (make-table)))) (declare (not safe)) (call-with-parameters - __tmp296672 + __tmp297977 gx#current-expander-context - _ctx291210_ + _ctx292515_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp296671 + __tmp297976 gxc#current-compile-runtime-sections - __tmp296670 + __tmp297975 gxc#current-compile-runtime-names - __tmp296669)))) + __tmp297974)))) (define gxc#collect-bindings - (lambda (_ctx291208_) - (let ((__tmp296678 - (##structure-ref _ctx291208_ '11 gx#module-context::t '#f))) + (lambda (_ctx292513_) + (let ((__tmp297983 + (##structure-ref _ctx292513_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp296678)))) + (gxc#apply-collect-bindings __tmp297983)))) (define gxc#compile-runtime-code - (lambda (_ctx291154_) - (letrec ((_compile1291156_ - (lambda (_ctx291197_) - (let* ((_code291199_ + (lambda (_ctx292459_) + (letrec ((_compile1292461_ + (lambda (_ctx292502_) + (let* ((_code292504_ (##structure-ref - _ctx291197_ + _ctx292502_ '11 gx#module-context::t '#f)) - (_rt291203_ + (_rt292508_ (if (let () (declare (not safe)) - (gxc#apply-find-runtime-code _code291199_)) - (let ((_idstr291201_ - (let ((__tmp296679 + (gxc#apply-find-runtime-code _code292504_)) + (let ((_idstr292506_ + (let ((__tmp297984 (##structure-ref - _ctx291197_ + _ctx292502_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp296679)))) - (string-append _idstr291201_ '"__0")) + __tmp297984)))) + (string-append _idstr292506_ '"__0")) '#f))) - (if _rt291203_ + (if _rt292508_ (begin - (let ((__tmp296680 + (let ((__tmp297985 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-set! __tmp296680 _ctx291197_ _rt291203_)) + (table-set! __tmp297985 _ctx292502_ _rt292508_)) (let () (declare (not safe)) - (_generate-runtime-code291158_ - _ctx291197_ - _code291199_))) - (let ((_path291206_ + (_generate-runtime-code292463_ + _ctx292502_ + _code292504_))) + (let ((_path292511_ (let () (declare (not safe)) (gxc#compile-static-output-file - _ctx291197_)))) + _ctx292502_)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path291206_ + _path292511_ void))) (let () (declare (not safe)) - (_generate-loader-code291159_ - _ctx291197_ - _code291199_ - _rt291203_))))) - (_context-timestamp291157_ - (lambda (_ctx291195_) + (_generate-loader-code292464_ + _ctx292502_ + _code292504_ + _rt292508_))))) + (_context-timestamp292462_ + (lambda (_ctx292500_) (string->symbol (string-append (symbol->string (##structure-ref - _ctx291195_ + _ctx292500_ '1 gx#expander-context::t '#f)) '"::timestamp")))) - (_generate-runtime-code291158_ - (lambda (_ctx291177_ _code291178_) - (let* ((_lifts291180_ + (_generate-runtime-code292463_ + (lambda (_ctx292482_ _code292483_) + (let* ((_lifts292485_ (let () (declare (not safe)) (box '()))) - (_runtime-code291183_ - (let ((__tmp296683 + (_runtime-code292488_ + (let ((__tmp297988 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _code291178_)))) - (__tmp296682 + _code292483_)))) + (__tmp297987 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp296681 + (__tmp297986 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp296683 + __tmp297988 gx#current-expander-context - _ctx291177_ + _ctx292482_ gx#current-expander-phi '0 gxc#current-compile-lift - _lifts291180_ + _lifts292485_ gxc#current-compile-marks - __tmp296682 + __tmp297987 gxc#current-compile-identifiers - __tmp296681))) - (_runtime-code291185_ - (if (let ((__tmp296687 (unbox _lifts291180_))) + __tmp297986))) + (_runtime-code292490_ + (if (let ((__tmp297992 (unbox _lifts292485_))) (declare (not safe)) - (null? __tmp296687)) - _runtime-code291183_ - (let ((__tmp296684 - (let ((__tmp296686 + (null? __tmp297992)) + _runtime-code292488_ + (let ((__tmp297989 + (let ((__tmp297991 (let () (declare (not safe)) - (cons _runtime-code291183_ + (cons _runtime-code292488_ '()))) - (__tmp296685 - (reverse (unbox _lifts291180_)))) + (__tmp297990 + (reverse (unbox _lifts292485_)))) (declare (not safe)) (foldr1 cons - __tmp296686 - __tmp296685)))) + __tmp297991 + __tmp297990)))) (declare (not safe)) - (cons 'begin __tmp296684)))) - (_runtime-code291187_ - (let ((__tmp296688 - (let ((__tmp296690 - (let ((__tmp296691 - (let ((__tmp296694 + (cons 'begin __tmp297989)))) + (_runtime-code292492_ + (let ((__tmp297993 + (let ((__tmp297995 + (let ((__tmp297996 + (let ((__tmp297999 (let () (declare (not safe)) - (_context-timestamp291157_ - _ctx291177_))) - (__tmp296692 - (let ((__tmp296693 + (_context-timestamp292462_ + _ctx292482_))) + (__tmp297997 + (let ((__tmp297998 (gxc#current-compile-timestamp))) (declare (not safe)) - (cons __tmp296693 + (cons __tmp297998 '())))) (declare (not safe)) - (cons __tmp296694 - __tmp296692)))) + (cons __tmp297999 + __tmp297997)))) (declare (not safe)) - (cons 'define __tmp296691))) - (__tmp296689 + (cons 'define __tmp297996))) + (__tmp297994 (let () (declare (not safe)) - (cons _runtime-code291185_ '())))) + (cons _runtime-code292490_ '())))) (declare (not safe)) - (cons __tmp296690 __tmp296689)))) + (cons __tmp297995 __tmp297994)))) (declare (not safe)) - (cons 'begin __tmp296688))) - (_scm0291189_ + (cons 'begin __tmp297993))) + (_scm0292494_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx291177_ + _ctx292482_ '0 '".scm")))) - (let ((_scms291192_ + (let ((_scms292497_ (let () (declare (not safe)) - (gxc#compile-static-output-file _ctx291177_)))) - (let ((__tmp296695 + (gxc#compile-static-output-file _ctx292482_)))) + (let ((__tmp298000 (lambda () (let () (declare (not safe)) (gxc#compile-scm-file__0 - _scm0291189_ - _runtime-code291187_))))) + _scm0292494_ + _runtime-code292492_))))) (declare (not safe)) (call-with-parameters - __tmp296695 + __tmp298000 gxc#current-compile-keep-scm '#t)) - (if (file-exists? _scms291192_) - (delete-file _scms291192_) + (if (file-exists? _scms292497_) + (delete-file _scms292497_) '#!void) (let () (declare (not safe)) (gxc#verbose '"copy static module " - _scm0291189_ + _scm0292494_ '" => " - _scms291192_)) - (copy-file _scm0291189_ _scms291192_) + _scms292497_)) + (copy-file _scm0292494_ _scms292497_) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _scm0291189_)))))) - (_generate-loader-code291159_ - (lambda (_ctx291166_ _code291167_ _rt291168_) - (let* ((_loader-code291171_ - (let ((__tmp296696 + (delete-file _scm0292494_)))))) + (_generate-loader-code292464_ + (lambda (_ctx292471_ _code292472_ _rt292473_) + (let* ((_loader-code292476_ + (let ((__tmp298001 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _code291167_))))) + _code292472_))))) (declare (not safe)) (call-with-parameters - __tmp296696 + __tmp298001 gx#current-expander-context - _ctx291166_))) - (_loader-code291173_ - (if _rt291168_ - (let ((__tmp296697 - (let ((__tmp296698 - (let ((__tmp296699 - (let ((__tmp296700 + _ctx292471_))) + (_loader-code292478_ + (if _rt292473_ + (let ((__tmp298002 + (let ((__tmp298003 + (let ((__tmp298004 + (let ((__tmp298005 (let () (declare (not safe)) - (cons _rt291168_ + (cons _rt292473_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons 'load-module __tmp296700)))) + (cons 'load-module __tmp298005)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296699 '())))) + (cons __tmp298004 '())))) (declare (not safe)) - (cons _loader-code291171_ - __tmp296698)))) + (cons _loader-code292476_ + __tmp298003)))) (declare (not safe)) - (cons 'begin __tmp296697)) - _loader-code291171_))) - (let ((__tmp296701 + (cons 'begin __tmp298002)) + _loader-code292476_))) + (let ((__tmp298006 (lambda () - (let ((__tmp296702 + (let ((__tmp298007 (let () (declare (not safe)) (gxc#compile-output-file - _ctx291166_ + _ctx292471_ 'rt '".scm")))) (declare (not safe)) (gxc#compile-scm-file__0 - __tmp296702 - _loader-code291173_))))) + __tmp298007 + _loader-code292478_))))) (declare (not safe)) (call-with-parameters - __tmp296701 + __tmp298006 gxc#current-compile-gsc-options '#f)))))) - (let ((_all-modules291161_ - (let ((__tmp296703 + (let ((_all-modules292466_ + (let ((__tmp298008 (let () (declare (not safe)) - (gxc#lift-nested-modules _ctx291154_)))) + (gxc#lift-nested-modules _ctx292459_)))) (declare (not safe)) - (cons _ctx291154_ __tmp296703)))) + (cons _ctx292459_ __tmp298008)))) (for-each - (lambda (_ctx291163_) - (let ((__tmp296704 + (lambda (_ctx292468_) + (let ((__tmp298009 (lambda () (let () (declare (not safe)) - (_compile1291156_ _ctx291163_))))) + (_compile1292461_ _ctx292468_))))) (declare (not safe)) (call-with-parameters - __tmp296704 + __tmp298009 gxc#current-compile-decls '()))) - _all-modules291161_))))) + _all-modules292466_))))) (define gxc#compile-meta-code - (lambda (_ctx291051_) - (letrec ((_compile-ssi291053_ - (lambda (_code291124_) - (let* ((_path291126_ + (lambda (_ctx292356_) + (letrec ((_compile-ssi292358_ + (lambda (_code292429_) + (let* ((_path292431_ (let () (declare (not safe)) (gxc#compile-output-file - _ctx291051_ + _ctx292356_ '#f '".ssi"))) - (_prelude291137_ - (let* ((_super291128_ + (_prelude292442_ + (let* ((_super292433_ (##structure-ref - _ctx291051_ + _ctx292356_ '3 gx#phi-context::t '#f)) - (_$e291130_ + (_$e292435_ (##structure-ref - _super291128_ + _super292433_ '1 gx#expander-context::t '#f))) - (if _$e291130_ - ((lambda (_g291132291134_) + (if _$e292435_ + ((lambda (_g292437292439_) (let () (declare (not safe)) - (make-symbol__1 '":" _g291132291134_))) - _$e291130_) + (make-symbol__1 '":" _g292437292439_))) + _$e292435_) ':))) - (_ns291139_ + (_ns292444_ (##structure-ref - _ctx291051_ + _ctx292356_ '6 gx#module-context::t '#f)) - (_idstr291141_ + (_idstr292446_ (symbol->string (##structure-ref - _ctx291051_ + _ctx292356_ '1 gx#expander-context::t '#f))) - (_pkg291148_ - (let ((_$e291143_ + (_pkg292453_ + (let ((_$e292448_ (let () (declare (not safe)) - (string-rindex _idstr291141_ '#\/)))) - (if _$e291143_ - ((lambda (_x291146_) + (string-rindex _idstr292446_ '#\/)))) + (if _$e292448_ + ((lambda (_x292451_) (string->symbol - (substring _idstr291141_ '0 _x291146_))) - _$e291143_) + (substring _idstr292446_ '0 _x292451_))) + _$e292448_) '#f))) - (_rt291150_ - (let ((__tmp296705 + (_rt292455_ + (let ((__tmp298010 (gxc#current-compile-runtime-sections))) (declare (not safe)) - (table-ref __tmp296705 _ctx291051_ '#f)))) + (table-ref __tmp298010 _ctx292356_ '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _path291126_)) - (let ((__tmp296706 + (gxc#verbose '"compile " _path292431_)) + (let ((__tmp298011 (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _prelude291137_)) - (if _pkg291148_ + (displayln '"prelude:" '" " _prelude292442_)) + (if _pkg292453_ (let () (declare (not safe)) - (displayln '"package:" '" " _pkg291148_)) + (displayln '"package:" '" " _pkg292453_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _ns291139_)) + (displayln '"namespace:" '" " _ns292444_)) (newline) - (pretty-print _code291124_) - (if _rt291150_ + (pretty-print _code292429_) + (if _rt292455_ (pretty-print - (let ((__tmp296707 - (let ((__tmp296711 - (let ((__tmp296712 + (let ((__tmp298012 + (let ((__tmp298016 + (let ((__tmp298017 (let () (declare (not safe)) (cons 'load-module @@ -2472,1087 +2472,1095 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp296712))) - (__tmp296708 - (let ((__tmp296709 - (let ((__tmp296710 + (cons '%#ref __tmp298017))) + (__tmp298013 + (let ((__tmp298014 + (let ((__tmp298015 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _rt291150_ '())))) + (cons _rt292455_ '())))) (declare (not safe)) - (cons '%#quote __tmp296710)))) + (cons '%#quote __tmp298015)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296709 '())))) + (cons __tmp298014 '())))) (declare (not safe)) - (cons __tmp296711 __tmp296708)))) + (cons __tmp298016 __tmp298013)))) (declare (not safe)) - (cons '%#call __tmp296707))) + (cons '%#call __tmp298012))) '#!void)))) (declare (not safe)) (gxc#with-output-to-scheme-file - _path291126_ - __tmp296706))))) - (_compile-phi291054_ - (lambda (_part291064_) - (let* ((_part291065291078_ _part291064_) - (_E291067291082_ + _path292431_ + __tmp298011))))) + (_compile-phi292359_ + (lambda (_part292369_) + (let* ((_part292370292383_ _part292369_) + (_E292372292387_ (lambda () (error '"No clause matching" - _part291065291078_))) - (_K291068291093_ - (lambda (_code291085_ - _n291086_ - _phi291087_ - _phi-ctx291088_) - (let* ((_code291091_ - (let ((__tmp296713 + _part292370292383_))) + (_K292373292398_ + (lambda (_code292390_ + _n292391_ + _phi292392_ + _phi-ctx292393_) + (let* ((_code292396_ + (let ((__tmp298018 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-phi - _code291085_))))) + _code292390_))))) (declare (not safe)) (call-with-parameters - __tmp296713 + __tmp298018 gx#current-expander-context - _phi-ctx291088_ + _phi-ctx292393_ gx#current-expander-phi - _phi291087_))) - (__tmp296714 + _phi292392_))) + (__tmp298019 (let () (declare (not safe)) (gxc#compile-output-file - _ctx291051_ - _n291086_ + _ctx292356_ + _n292391_ '".scm")))) (declare (not safe)) (gxc#compile-scm-file__% - __tmp296714 - _code291091_ + __tmp298019 + _code292396_ '#t))))) (if (let () (declare (not safe)) - (##pair? _part291065291078_)) - (let ((_hd291069291096_ + (##pair? _part292370292383_)) + (let ((_hd292374292401_ (let () (declare (not safe)) - (##car _part291065291078_))) - (_tl291070291098_ + (##car _part292370292383_))) + (_tl292375292403_ (let () (declare (not safe)) - (##cdr _part291065291078_)))) - (let ((_phi-ctx291101_ _hd291069291096_)) + (##cdr _part292370292383_)))) + (let ((_phi-ctx292406_ _hd292374292401_)) (if (let () (declare (not safe)) - (##pair? _tl291070291098_)) - (let ((_hd291071291103_ + (##pair? _tl292375292403_)) + (let ((_hd292376292408_ (let () (declare (not safe)) - (##car _tl291070291098_))) - (_tl291072291105_ + (##car _tl292375292403_))) + (_tl292377292410_ (let () (declare (not safe)) - (##cdr _tl291070291098_)))) - (let ((_phi291108_ _hd291071291103_)) + (##cdr _tl292375292403_)))) + (let ((_phi292413_ _hd292376292408_)) (if (let () (declare (not safe)) - (##pair? _tl291072291105_)) - (let ((_hd291073291110_ + (##pair? _tl292377292410_)) + (let ((_hd292378292415_ (let () (declare (not safe)) - (##car _tl291072291105_))) - (_tl291074291112_ + (##car _tl292377292410_))) + (_tl292379292417_ (let () (declare (not safe)) - (##cdr _tl291072291105_)))) - (let ((_n291115_ _hd291073291110_)) + (##cdr _tl292377292410_)))) + (let ((_n292420_ _hd292378292415_)) (if (let () (declare (not safe)) - (##pair? _tl291074291112_)) - (let ((_hd291075291117_ + (##pair? _tl292379292417_)) + (let ((_hd292380292422_ (let () (declare (not safe)) - (##car _tl291074291112_))) - (_tl291076291119_ + (##car _tl292379292417_))) + (_tl292381292424_ (let () (declare (not safe)) - (##cdr _tl291074291112_)))) - (let ((_code291122_ - _hd291075291117_)) + (##cdr _tl292379292417_)))) + (let ((_code292427_ + _hd292380292422_)) (if (let () (declare (not safe)) - (##null? _tl291076291119_)) + (##null? _tl292381292424_)) (let () (declare (not safe)) - (_K291068291093_ - _code291122_ - _n291115_ - _phi291108_ - _phi-ctx291101_)) + (_K292373292398_ + _code292427_ + _n292420_ + _phi292413_ + _phi-ctx292406_)) (let () (declare (not safe)) - (_E291067291082_))))) + (_E292372292387_))))) (let () (declare (not safe)) - (_E291067291082_))))) + (_E292372292387_))))) (let () (declare (not safe)) - (_E291067291082_))))) + (_E292372292387_))))) (let () (declare (not safe)) - (_E291067291082_))))) - (let () (declare (not safe)) (_E291067291082_))))))) - (let ((_g296715_ + (_E292372292387_))))) + (let () (declare (not safe)) (_E292372292387_))))))) + (let ((_g298020_ (let () (declare (not safe)) - (gxc#generate-meta-code _ctx291051_)))) + (gxc#generate-meta-code _ctx292356_)))) (begin - (let ((_g296716_ + (let ((_g298021_ (let () (declare (not safe)) - (if (##values? _g296715_) - (##vector-length _g296715_) + (if (##values? _g298020_) + (##vector-length _g298020_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g296716_ 2))) - (error "Context expects 2 values" _g296716_))) - (let ((_ssi-code291056_ - (let () (declare (not safe)) (##vector-ref _g296715_ 0))) - (_phi-code291057_ - (let () (declare (not safe)) (##vector-ref _g296715_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g298021_ 2))) + (error "Context expects 2 values" _g298021_))) + (let ((_ssi-code292361_ + (let () (declare (not safe)) (##vector-ref _g298020_ 0))) + (_phi-code292362_ + (let () (declare (not safe)) (##vector-ref _g298020_ 1)))) (begin (let () (declare (not safe)) - (_compile-ssi291053_ _ssi-code291056_)) - (let ((_threads291062_ - (map (lambda (_code291059_) - (let ((__tmp296717 + (_compile-ssi292358_ _ssi-code292361_)) + (let ((_threads292367_ + (map (lambda (_code292364_) + (let ((__tmp298022 (lambda () (let () (declare (not safe)) - (_compile-phi291054_ - _code291059_))))) + (_compile-phi292359_ + _code292364_))))) (declare (not safe)) - (spawn __tmp296717))) - _phi-code291057_))) - (for-each gxc#join! _threads291062_))))))))) + (spawn __tmp298022))) + _phi-code292362_))) + (for-each gxc#join! _threads292367_))))))))) (define gxc#compile-ssxi-code - (lambda (_ctx291034_) - (let* ((_path291036_ + (lambda (_ctx292339_) + (let* ((_path292341_ (let () (declare (not safe)) - (gxc#compile-output-file _ctx291034_ '#f '".ssxi.ss"))) - (_code291038_ - (let ((__tmp296718 + (gxc#compile-output-file _ctx292339_ '#f '".ssxi.ss"))) + (_code292343_ + (let ((__tmp298023 (##structure-ref - _ctx291034_ + _ctx292339_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp296718))) - (_idstr291040_ + (gxc#apply-generate-ssxi __tmp298023))) + (_idstr292345_ (symbol->string - (##structure-ref _ctx291034_ '1 gx#expander-context::t '#f))) - (_pkg291047_ - (let ((_$e291042_ + (##structure-ref _ctx292339_ '1 gx#expander-context::t '#f))) + (_pkg292352_ + (let ((_$e292347_ (let () (declare (not safe)) - (string-rindex _idstr291040_ '#\/)))) - (if _$e291042_ - ((lambda (_x291045_) + (string-rindex _idstr292345_ '#\/)))) + (if _$e292347_ + ((lambda (_x292350_) (string->symbol - (substring _idstr291040_ '0 _x291045_))) - _$e291042_) + (substring _idstr292345_ '0 _x292350_))) + _$e292347_) '#f)))) - (let () (declare (not safe)) (gxc#verbose '"compile " _path291036_)) - (let ((__tmp296719 + (let () (declare (not safe)) (gxc#verbose '"compile " _path292341_)) + (let ((__tmp298024 (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _pkg291047_ + (if _pkg292352_ (let () (declare (not safe)) - (displayln '"package: " _pkg291047_)) + (displayln '"package: " _pkg292352_)) '#!void) (newline) - (pretty-print _code291038_)))) + (pretty-print _code292343_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path291036_ __tmp296719))))) + (gxc#with-output-to-scheme-file _path292341_ __tmp298024))))) (define gxc#generate-meta-code - (lambda (_ctx291027_) - (let* ((_state291029_ - (let ((__obj296477 + (lambda (_ctx292332_) + (let* ((_state292334_ + (let ((__obj297782 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) - (gxc#meta-state:::init! __obj296477 _ctx291027_) - __obj296477)) - (_ssi-code291031_ - (let ((__tmp296720 + (gxc#meta-state:::init! __obj297782 _ctx292332_) + __obj297782)) + (_ssi-code292336_ + (let ((__tmp298025 (##structure-ref - _ctx291027_ + _ctx292332_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-meta __tmp296720 _state291029_)))) - (values _ssi-code291031_ + (gxc#apply-generate-meta __tmp298025 _state292334_)))) + (values _ssi-code292336_ (let () (declare (not safe)) - (gxc#meta-state-end! _state291029_)))))) + (gxc#meta-state-end! _state292334_)))))) (define gxc#generate-runtime-phi - (lambda (_stx291020_) - (let ((_lifts291022_ (let () (declare (not safe)) (box '())))) - (let ((__tmp296723 + (lambda (_stx292325_) + (let ((_lifts292327_ (let () (declare (not safe)) (box '())))) + (let ((__tmp298028 (lambda () - (let ((_code291025_ + (let ((_code292330_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _stx291020_)))) - (if (let ((__tmp296727 (unbox _lifts291022_))) + (gxc#apply-generate-runtime-phi _stx292325_)))) + (if (let ((__tmp298032 (unbox _lifts292327_))) (declare (not safe)) - (null? __tmp296727)) - _code291025_ - (let ((__tmp296724 - (let ((__tmp296726 + (null? __tmp298032)) + _code292330_ + (let ((__tmp298029 + (let ((__tmp298031 (let () (declare (not safe)) - (cons _code291025_ '()))) - (__tmp296725 - (reverse (unbox _lifts291022_)))) + (cons _code292330_ '()))) + (__tmp298030 + (reverse (unbox _lifts292327_)))) (declare (not safe)) - (foldr1 cons __tmp296726 __tmp296725)))) + (foldr1 cons __tmp298031 __tmp298030)))) (declare (not safe)) - (cons 'begin __tmp296724)))))) - (__tmp296722 + (cons 'begin __tmp298029)))))) + (__tmp298027 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp296721 + (__tmp298026 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (call-with-parameters - __tmp296723 + __tmp298028 gxc#current-compile-lift - _lifts291022_ + _lifts292327_ gxc#current-compile-marks - __tmp296722 + __tmp298027 gxc#current-compile-identifiers - __tmp296721))))) + __tmp298026))))) (define gxc#lift-nested-modules - (lambda (_ctx291016_) - (let ((_modules291018_ (let () (declare (not safe)) (box '())))) - (let ((__tmp296728 - (##structure-ref _ctx291016_ '11 gx#module-context::t '#f))) + (lambda (_ctx292321_) + (let ((_modules292323_ (let () (declare (not safe)) (box '())))) + (let ((__tmp298033 + (##structure-ref _ctx292321_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules __tmp296728 _modules291018_)) - (reverse (unbox _modules291018_))))) + (gxc#apply-lift-modules __tmp298033 _modules292323_)) + (reverse (unbox _modules292323_))))) (define gxc#compile-scm-file__% - (lambda (_path290999_ _code291000_ _phi?291001_) - (let () (declare (not safe)) (gxc#verbose '"compile " _path290999_)) - (let ((__tmp296729 + (lambda (_path292304_ _code292305_ _phi?292306_) + (let () (declare (not safe)) (gxc#verbose '"compile " _path292304_)) + (let ((__tmp298034 (lambda () (pretty-print - (let ((__tmp296730 - (let ((__tmp296737 + (let ((__tmp298035 + (let ((__tmp298042 (let () (declare (not safe)) (cons 'block '()))) - (__tmp296731 - (let ((__tmp296736 + (__tmp298036 + (let ((__tmp298041 (let () (declare (not safe)) (cons 'standard-bindings '()))) - (__tmp296732 - (let ((__tmp296735 + (__tmp298037 + (let ((__tmp298040 (let () (declare (not safe)) (cons 'extended-bindings '()))) - (__tmp296733 - (let ((__tmp296734 - (if _phi?291001_ + (__tmp298038 + (let ((__tmp298039 + (if _phi?292306_ '((inlining-limit 200)) '()))) (declare (not safe)) (foldr1 cons '() - __tmp296734)))) + __tmp298039)))) (declare (not safe)) - (cons __tmp296735 __tmp296733)))) + (cons __tmp298040 __tmp298038)))) (declare (not safe)) - (cons __tmp296736 __tmp296732)))) + (cons __tmp298041 __tmp298037)))) (declare (not safe)) - (cons __tmp296737 __tmp296731)))) + (cons __tmp298042 __tmp298036)))) (declare (not safe)) - (cons 'declare __tmp296730))) - (pretty-print _code291000_)))) + (cons 'declare __tmp298035))) + (pretty-print _code292305_)))) (declare (not safe)) - (gxc#with-output-to-scheme-file _path290999_ __tmp296729)) + (gxc#with-output-to-scheme-file _path292304_ __tmp298034)) (if (gxc#current-compile-invoke-gsc) (let () (declare (not safe)) - (gxc#gsc-compile-file _path290999_ _phi?291001_)) + (gxc#gsc-compile-file _path292304_ _phi?292306_)) '#!void) (if (gxc#current-compile-keep-scm) '#!void - (delete-file _path290999_)))) + (delete-file _path292304_)))) (define gxc#compile-scm-file__0 - (lambda (_path291007_ _code291008_) - (let ((_phi?291010_ '#f)) + (lambda (_path292312_ _code292313_) + (let ((_phi?292315_ '#f)) (declare (not safe)) - (gxc#compile-scm-file__% _path291007_ _code291008_ _phi?291010_)))) + (gxc#compile-scm-file__% _path292312_ _code292313_ _phi?292315_)))) (define gxc#compile-scm-file - (lambda _g296739_ - (let ((_g296738_ (let () (declare (not safe)) (##length _g296739_)))) - (cond ((let () (declare (not safe)) (##fx= _g296738_ 2)) - (apply (lambda (_path291007_ _code291008_) + (lambda _g298044_ + (let ((_g298043_ (let () (declare (not safe)) (##length _g298044_)))) + (cond ((let () (declare (not safe)) (##fx= _g298043_ 2)) + (apply (lambda (_path292312_ _code292313_) (let () (declare (not safe)) (gxc#compile-scm-file__0 - _path291007_ - _code291008_))) - _g296739_)) - ((let () (declare (not safe)) (##fx= _g296738_ 3)) - (apply (lambda (_path291012_ _code291013_ _phi?291014_) + _path292312_ + _code292313_))) + _g298044_)) + ((let () (declare (not safe)) (##fx= _g298043_ 3)) + (apply (lambda (_path292317_ _code292318_ _phi?292319_) (let () (declare (not safe)) (gxc#compile-scm-file__% - _path291012_ - _code291013_ - _phi?291014_))) - _g296739_)) + _path292317_ + _code292318_ + _phi?292319_))) + _g298044_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g296739_)))))) + _g298044_)))))) (define gxc#gsc-link-options__% - (lambda (_phi?290900_) - (let _lp290902_ ((_rest290904_ (gxc#current-compile-gsc-options)) - (_opts290905_ '())) - (let* ((_rest290906290926_ _rest290904_) - (_else290910290934_ + (lambda (_phi?292205_) + (let _lp292207_ ((_rest292209_ (gxc#current-compile-gsc-options)) + (_opts292210_ '())) + (let* ((_rest292211292231_ _rest292209_) + (_else292215292239_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?290900_)) + (if (and (let () (declare (not safe)) (not _phi?292205_)) (gxc#current-compile-debug)) - (let ((__tmp296740 - (let ((__tmp296741 (reverse _opts290905_))) + (let ((__tmp298045 + (let ((__tmp298046 (reverse _opts292210_))) (declare (not safe)) - (cons '"-track-scheme" __tmp296741)))) + (cons '"-track-scheme" __tmp298046)))) (declare (not safe)) - (cons '"-debug-source" __tmp296740)) - (reverse _opts290905_))))) - (let ((_K290920290977_ - (lambda (_rest290975_) + (cons '"-debug-source" __tmp298045)) + (reverse _opts292210_))))) + (let ((_K292225292282_ + (lambda (_rest292280_) (let () (declare (not safe)) - (_lp290902_ _rest290975_ _opts290905_)))) - (_K290915290959_ - (lambda (_rest290957_) + (_lp292207_ _rest292280_ _opts292210_)))) + (_K292220292264_ + (lambda (_rest292262_) (let () (declare (not safe)) - (_lp290902_ _rest290957_ _opts290905_)))) - (_K290912290941_ - (lambda (_rest290938_ _opt290939_) - (let ((__tmp296742 + (_lp292207_ _rest292262_ _opts292210_)))) + (_K292217292246_ + (lambda (_rest292243_ _opt292244_) + (let ((__tmp298047 (let () (declare (not safe)) - (cons _opt290939_ _opts290905_)))) + (cons _opt292244_ _opts292210_)))) (declare (not safe)) - (_lp290902_ _rest290938_ __tmp296742))))) - (if (let () (declare (not safe)) (##pair? _rest290906290926_)) - (let ((_tl290922290982_ + (_lp292207_ _rest292243_ __tmp298047))))) + (if (let () (declare (not safe)) (##pair? _rest292211292231_)) + (let ((_tl292227292287_ (let () (declare (not safe)) - (##cdr _rest290906290926_))) - (_hd290921290980_ + (##cdr _rest292211292231_))) + (_hd292226292285_ (let () (declare (not safe)) - (##car _rest290906290926_)))) + (##car _rest292211292231_)))) (if (let () (declare (not safe)) - (equal? _hd290921290980_ '"-cc-options")) + (equal? _hd292226292285_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl290922290982_)) - (let* ((_tl290924290985_ + (##pair? _tl292227292287_)) + (let* ((_tl292229292290_ (let () (declare (not safe)) - (##cdr _tl290922290982_))) - (_rest290988_ _tl290924290985_)) + (##cdr _tl292227292287_))) + (_rest292293_ _tl292229292290_)) (declare (not safe)) - (_K290920290977_ _rest290988_)) - (let ((_opt290949_ _hd290921290980_) - (_rest290951_ _tl290922290982_)) + (_K292225292282_ _rest292293_)) + (let ((_opt292254_ _hd292226292285_) + (_rest292256_ _tl292227292287_)) (let () (declare (not safe)) - (_K290912290941_ _rest290951_ _opt290949_)))) + (_K292217292246_ _rest292256_ _opt292254_)))) (if (let () (declare (not safe)) - (equal? _hd290921290980_ '"-ld-options")) + (equal? _hd292226292285_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl290922290982_)) - (let* ((_tl290919290967_ + (##pair? _tl292227292287_)) + (let* ((_tl292224292272_ (let () (declare (not safe)) - (##cdr _tl290922290982_))) - (_rest290970_ _tl290919290967_)) + (##cdr _tl292227292287_))) + (_rest292275_ _tl292224292272_)) (declare (not safe)) - (_K290915290959_ _rest290970_)) - (let ((_opt290949_ _hd290921290980_) - (_rest290951_ _tl290922290982_)) + (_K292220292264_ _rest292275_)) + (let ((_opt292254_ _hd292226292285_) + (_rest292256_ _tl292227292287_)) (let () (declare (not safe)) - (_K290912290941_ - _rest290951_ - _opt290949_)))) - (let ((_opt290949_ _hd290921290980_) - (_rest290951_ _tl290922290982_)) + (_K292217292246_ + _rest292256_ + _opt292254_)))) + (let ((_opt292254_ _hd292226292285_) + (_rest292256_ _tl292227292287_)) (let () (declare (not safe)) - (_K290912290941_ _rest290951_ _opt290949_)))))) - (let () (declare (not safe)) (_else290910290934_)))))))) + (_K292217292246_ _rest292256_ _opt292254_)))))) + (let () (declare (not safe)) (_else292215292239_)))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_phi?290994_ '#f)) + (let ((_phi?292299_ '#f)) (declare (not safe)) - (gxc#gsc-link-options__% _phi?290994_)))) + (gxc#gsc-link-options__% _phi?292299_)))) (define gxc#gsc-link-options - (lambda _g296744_ - (let ((_g296743_ (let () (declare (not safe)) (##length _g296744_)))) - (cond ((let () (declare (not safe)) (##fx= _g296743_ 0)) + (lambda _g298049_ + (let ((_g298048_ (let () (declare (not safe)) (##length _g298049_)))) + (cond ((let () (declare (not safe)) (##fx= _g298048_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-link-options__0))) - _g296744_)) - ((let () (declare (not safe)) (##fx= _g296743_ 1)) - (apply (lambda (_phi?290996_) + _g298049_)) + ((let () (declare (not safe)) (##fx= _g298048_ 1)) + (apply (lambda (_phi?292301_) (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?290996_))) - _g296744_)) + (gxc#gsc-link-options__% _phi?292301_))) + _g298049_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g296744_)))))) + _g298049_)))))) (define gxc#gsc-cc-options__% - (lambda (_phi?290801_) - (let _lp290803_ ((_rest290805_ (gxc#current-compile-gsc-options)) - (_opts290806_ '())) - (let* ((_rest290807290827_ _rest290805_) - (_else290811290835_ + (lambda (_phi?292106_) + (let _lp292108_ ((_rest292110_ (gxc#current-compile-gsc-options)) + (_opts292111_ '())) + (let* ((_rest292112292132_ _rest292110_) + (_else292116292140_ (lambda () - (if (and (let () (declare (not safe)) (not _phi?290801_)) + (if (and (let () (declare (not safe)) (not _phi?292106_)) (gxc#current-compile-debug)) - (let ((__tmp296745 - (let ((__tmp296746 (reverse _opts290806_))) + (let ((__tmp298050 + (let ((__tmp298051 (reverse _opts292111_))) (declare (not safe)) - (cons '"-g" __tmp296746)))) + (cons '"-g" __tmp298051)))) (declare (not safe)) - (cons '"-cc-options" __tmp296745)) - (reverse _opts290806_))))) - (let ((_K290821290874_ - (lambda (_rest290871_ _opt290872_) - (let ((__tmp296747 - (let ((__tmp296748 + (cons '"-cc-options" __tmp298050)) + (reverse _opts292111_))))) + (let ((_K292126292179_ + (lambda (_rest292176_ _opt292177_) + (let ((__tmp298052 + (let ((__tmp298053 (let () (declare (not safe)) - (cons '"-cc-options" _opts290806_)))) + (cons '"-cc-options" _opts292111_)))) (declare (not safe)) - (cons _opt290872_ __tmp296748)))) + (cons _opt292177_ __tmp298053)))) (declare (not safe)) - (_lp290803_ _rest290871_ __tmp296747)))) - (_K290816290855_ - (lambda (_rest290853_) + (_lp292108_ _rest292176_ __tmp298052)))) + (_K292121292160_ + (lambda (_rest292158_) (let () (declare (not safe)) - (_lp290803_ _rest290853_ _opts290806_)))) - (_K290813290841_ - (lambda (_rest290839_) + (_lp292108_ _rest292158_ _opts292111_)))) + (_K292118292146_ + (lambda (_rest292144_) (let () (declare (not safe)) - (_lp290803_ _rest290839_ _opts290806_))))) - (if (let () (declare (not safe)) (##pair? _rest290807290827_)) - (let ((_tl290823290879_ + (_lp292108_ _rest292144_ _opts292111_))))) + (if (let () (declare (not safe)) (##pair? _rest292112292132_)) + (let ((_tl292128292184_ (let () (declare (not safe)) - (##cdr _rest290807290827_))) - (_hd290822290877_ + (##cdr _rest292112292132_))) + (_hd292127292182_ (let () (declare (not safe)) - (##car _rest290807290827_)))) + (##car _rest292112292132_)))) (if (let () (declare (not safe)) - (equal? _hd290822290877_ '"-cc-options")) + (equal? _hd292127292182_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl290823290879_)) - (let ((_tl290825290884_ + (##pair? _tl292128292184_)) + (let ((_tl292130292189_ (let () (declare (not safe)) - (##cdr _tl290823290879_))) - (_hd290824290882_ + (##cdr _tl292128292184_))) + (_hd292129292187_ (let () (declare (not safe)) - (##car _tl290823290879_)))) - (let ((_opt290887_ _hd290824290882_) - (_rest290889_ _tl290825290884_)) + (##car _tl292128292184_)))) + (let ((_opt292192_ _hd292129292187_) + (_rest292194_ _tl292130292189_)) (let () (declare (not safe)) - (_K290821290874_ _rest290889_ _opt290887_)))) - (let ((_rest290847_ _tl290823290879_)) + (_K292126292179_ _rest292194_ _opt292192_)))) + (let ((_rest292152_ _tl292128292184_)) (declare (not safe)) - (_K290813290841_ _rest290847_))) + (_K292118292146_ _rest292152_))) (if (let () (declare (not safe)) - (equal? _hd290822290877_ '"-ld-options")) + (equal? _hd292127292182_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl290823290879_)) - (let* ((_tl290820290863_ + (##pair? _tl292128292184_)) + (let* ((_tl292125292168_ (let () (declare (not safe)) - (##cdr _tl290823290879_))) - (_rest290866_ _tl290820290863_)) + (##cdr _tl292128292184_))) + (_rest292171_ _tl292125292168_)) (declare (not safe)) - (_K290816290855_ _rest290866_)) - (let ((_rest290847_ _tl290823290879_)) + (_K292121292160_ _rest292171_)) + (let ((_rest292152_ _tl292128292184_)) (declare (not safe)) - (_K290813290841_ _rest290847_))) - (let ((_rest290847_ _tl290823290879_)) + (_K292118292146_ _rest292152_))) + (let ((_rest292152_ _tl292128292184_)) (declare (not safe)) - (_K290813290841_ _rest290847_))))) - (let () (declare (not safe)) (_else290811290835_)))))))) + (_K292118292146_ _rest292152_))))) + (let () (declare (not safe)) (_else292116292140_)))))))) (define gxc#gsc-cc-options__0 (lambda () - (let ((_phi?290895_ '#f)) + (let ((_phi?292200_ '#f)) (declare (not safe)) - (gxc#gsc-cc-options__% _phi?290895_)))) + (gxc#gsc-cc-options__% _phi?292200_)))) (define gxc#gsc-cc-options - (lambda _g296750_ - (let ((_g296749_ (let () (declare (not safe)) (##length _g296750_)))) - (cond ((let () (declare (not safe)) (##fx= _g296749_ 0)) + (lambda _g298055_ + (let ((_g298054_ (let () (declare (not safe)) (##length _g298055_)))) + (cond ((let () (declare (not safe)) (##fx= _g298054_ 0)) (apply (lambda () (let () (declare (not safe)) (gxc#gsc-cc-options__0))) - _g296750_)) - ((let () (declare (not safe)) (##fx= _g296749_ 1)) - (apply (lambda (_phi?290897_) + _g298055_)) + ((let () (declare (not safe)) (##fx= _g298054_ 1)) + (apply (lambda (_phi?292202_) (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?290897_))) - _g296750_)) + (gxc#gsc-cc-options__% _phi?292202_))) + _g298055_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options - _g296750_)))))) + _g298055_)))))) (define gxc#gsc-static-include-options - (lambda (_staticdir290796_) - (let* ((_user-staticdir290798_ + (lambda (_staticdir292101_) + (let* ((_user-staticdir292103_ (path-expand (path-expand '"lib/static" (let () (declare (not safe)) (gerbil-path))))) - (__tmp296751 - (let ((__tmp296752 + (__tmp298056 + (let ((__tmp298057 (string-append '"-I " - _staticdir290796_ + _staticdir292101_ '" -I " - _user-staticdir290798_))) + _user-staticdir292103_))) (declare (not safe)) - (cons __tmp296752 '())))) + (cons __tmp298057 '())))) (declare (not safe)) - (cons '"-cc-options" __tmp296751)))) + (cons '"-cc-options" __tmp298056)))) (define gxc#gcc-ld-options (lambda () - (let _lp290708_ ((_rest290710_ (gxc#current-compile-gsc-options)) - (_opts290711_ '())) - (let* ((_rest290712290732_ _rest290710_) - (_else290716290740_ (lambda () _opts290711_))) - (let ((_K290726290783_ - (lambda (_rest290781_) + (let _lp292013_ ((_rest292015_ (gxc#current-compile-gsc-options)) + (_opts292016_ '())) + (let* ((_rest292017292037_ _rest292015_) + (_else292021292045_ (lambda () _opts292016_))) + (let ((_K292031292088_ + (lambda (_rest292086_) (let () (declare (not safe)) - (_lp290708_ _rest290781_ _opts290711_)))) - (_K290721290761_ - (lambda (_rest290758_ _opt290759_) - (let ((__tmp296753 - (append _opts290711_ - (let ((__tmp296754 + (_lp292013_ _rest292086_ _opts292016_)))) + (_K292026292066_ + (lambda (_rest292063_ _opt292064_) + (let ((__tmp298058 + (append _opts292016_ + (let ((__tmp298059 (let () (declare (not safe)) (string-split - _opt290759_ + _opt292064_ '#\space)))) (declare (not safe)) (filter gxc#not-string-empty? - __tmp296754))))) + __tmp298059))))) (declare (not safe)) - (_lp290708_ _rest290758_ __tmp296753)))) - (_K290718290746_ - (lambda (_rest290744_) + (_lp292013_ _rest292063_ __tmp298058)))) + (_K292023292051_ + (lambda (_rest292049_) (let () (declare (not safe)) - (_lp290708_ _rest290744_ _opts290711_))))) - (if (let () (declare (not safe)) (##pair? _rest290712290732_)) - (let ((_tl290728290788_ + (_lp292013_ _rest292049_ _opts292016_))))) + (if (let () (declare (not safe)) (##pair? _rest292017292037_)) + (let ((_tl292033292093_ (let () (declare (not safe)) - (##cdr _rest290712290732_))) - (_hd290727290786_ + (##cdr _rest292017292037_))) + (_hd292032292091_ (let () (declare (not safe)) - (##car _rest290712290732_)))) + (##car _rest292017292037_)))) (if (let () (declare (not safe)) - (equal? _hd290727290786_ '"-cc-options")) + (equal? _hd292032292091_ '"-cc-options")) (if (let () (declare (not safe)) - (##pair? _tl290728290788_)) - (let* ((_tl290730290791_ + (##pair? _tl292033292093_)) + (let* ((_tl292035292096_ (let () (declare (not safe)) - (##cdr _tl290728290788_))) - (_rest290794_ _tl290730290791_)) + (##cdr _tl292033292093_))) + (_rest292099_ _tl292035292096_)) (declare (not safe)) - (_K290726290783_ _rest290794_)) - (let ((_rest290752_ _tl290728290788_)) + (_K292031292088_ _rest292099_)) + (let ((_rest292057_ _tl292033292093_)) (declare (not safe)) - (_K290718290746_ _rest290752_))) + (_K292023292051_ _rest292057_))) (if (let () (declare (not safe)) - (equal? _hd290727290786_ '"-ld-options")) + (equal? _hd292032292091_ '"-ld-options")) (if (let () (declare (not safe)) - (##pair? _tl290728290788_)) - (let ((_tl290725290771_ + (##pair? _tl292033292093_)) + (let ((_tl292030292076_ (let () (declare (not safe)) - (##cdr _tl290728290788_))) - (_hd290724290769_ + (##cdr _tl292033292093_))) + (_hd292029292074_ (let () (declare (not safe)) - (##car _tl290728290788_)))) - (let ((_opt290774_ _hd290724290769_) - (_rest290776_ _tl290725290771_)) + (##car _tl292033292093_)))) + (let ((_opt292079_ _hd292029292074_) + (_rest292081_ _tl292030292076_)) (let () (declare (not safe)) - (_K290721290761_ - _rest290776_ - _opt290774_)))) - (let ((_rest290752_ _tl290728290788_)) + (_K292026292066_ + _rest292081_ + _opt292079_)))) + (let ((_rest292057_ _tl292033292093_)) (declare (not safe)) - (_K290718290746_ _rest290752_))) - (let ((_rest290752_ _tl290728290788_)) + (_K292023292051_ _rest292057_))) + (let ((_rest292057_ _tl292033292093_)) (declare (not safe)) - (_K290718290746_ _rest290752_))))) - (let () (declare (not safe)) (_else290716290740_)))))))) + (_K292023292051_ _rest292057_))))) + (let () (declare (not safe)) (_else292021292045_)))))))) (define gxc#not-string-empty? - (lambda (_str290705_) - (let ((__tmp296755 - (let () (declare (not safe)) (string-empty? _str290705_)))) + (lambda (_str292010_) + (let ((__tmp298060 + (let () (declare (not safe)) (string-empty? _str292010_)))) (declare (not safe)) - (not __tmp296755)))) + (not __tmp298060)))) (define gxc#gsc-compile-file - (lambda (_path290673_ _phi?290674_) - (letrec ((_gsc-link-path290676_ - (lambda (_base-path290697_) - (let _lp290699_ ((_n290701_ '1)) - (let ((_path290703_ + (lambda (_path291978_ _phi?291979_) + (letrec ((_gsc-link-path291981_ + (lambda (_base-path292002_) + (let _lp292004_ ((_n292006_ '1)) + (let ((_path292008_ (string-append - _base-path290697_ + _base-path292002_ '".o" - (number->string _n290701_)))) - (if (file-exists? _path290703_) - (let ((__tmp296756 + (number->string _n292006_)))) + (if (file-exists? _path292008_) + (let ((__tmp298061 (let () (declare (not safe)) - (+ _n290701_ '1)))) + (+ _n292006_ '1)))) (declare (not safe)) - (_lp290699_ __tmp296756)) - _path290703_)))))) - (let* ((_base-path290678_ (path-strip-extension _path290673_)) - (_path-c290680_ (string-append _base-path290678_ '".c")) - (_path-o290682_ (string-append _base-path290678_ '".o")) - (_link-path290684_ + (_lp292004_ __tmp298061)) + _path292008_)))))) + (let* ((_base-path291983_ (path-strip-extension _path291978_)) + (_path-c291985_ (string-append _base-path291983_ '".c")) + (_path-o291987_ (string-append _base-path291983_ '".o")) + (_link-path291989_ (let () (declare (not safe)) - (_gsc-link-path290676_ _base-path290678_))) - (_link-path-c290686_ (string-append _link-path290684_ '".c")) - (_link-path-o290688_ (string-append _link-path290684_ '".o")) - (_gsc-link-opts290690_ + (_gsc-link-path291981_ _base-path291983_))) + (_link-path-c291991_ (string-append _link-path291989_ '".c")) + (_link-path-o291993_ (string-append _link-path291989_ '".o")) + (_gsc-link-opts291995_ (let () (declare (not safe)) - (gxc#gsc-link-options__% _phi?290674_))) - (_gsc-cc-opts290692_ + (gxc#gsc-link-options__% _phi?291979_))) + (_gsc-cc-opts291997_ (let () (declare (not safe)) - (gxc#gsc-cc-options__% _phi?290674_))) - (_gcc-ld-opts290694_ + (gxc#gsc-cc-options__% _phi?291979_))) + (_gcc-ld-opts291999_ (let () (declare (not safe)) (gxc#gcc-ld-options)))) - (let ((__tmp296763 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp296757 - (let ((__tmp296758 - (let ((__tmp296759 - (let ((__tmp296760 - (let ((__tmp296761 - (let ((__tmp296762 + (let ((__tmp298068 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp298062 + (let ((__tmp298063 + (let ((__tmp298064 + (let ((__tmp298065 + (let ((__tmp298066 + (let ((__tmp298067 (let () (declare (not safe)) - (cons _path290673_ + (cons _path291978_ '())))) (declare (not safe)) (foldr1 cons - __tmp296762 - _gsc-link-opts290690_)))) + __tmp298067 + _gsc-link-opts291995_)))) (declare (not safe)) - (cons _link-path-c290686_ - __tmp296761)))) + (cons _link-path-c291991_ + __tmp298066)))) (declare (not safe)) - (cons '"-o" __tmp296760)))) + (cons '"-o" __tmp298065)))) (declare (not safe)) - (cons '"-flat" __tmp296759)))) + (cons '"-flat" __tmp298064)))) (declare (not safe)) - (cons '"-link" __tmp296758)))) + (cons '"-link" __tmp298063)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp296763 __tmp296757)) - (let ((__tmp296770 (let () (declare (not safe)) (gxc#gerbil-gsc))) - (__tmp296764 - (let ((__tmp296765 - (let ((__tmp296766 - (let ((__tmp296767 - (let ((__tmp296768 - (let ((__tmp296769 + (gxc#invoke__% '#f '#t absent-value __tmp298068 __tmp298062)) + (let ((__tmp298075 (let () (declare (not safe)) (gxc#gerbil-gsc))) + (__tmp298069 + (let ((__tmp298070 + (let ((__tmp298071 + (let ((__tmp298072 + (let ((__tmp298073 + (let ((__tmp298074 (let () (declare (not safe)) - (cons _link-path-c290686_ + (cons _link-path-c291991_ '())))) (declare (not safe)) - (cons _path-c290680_ - __tmp296769)))) + (cons _path-c291985_ + __tmp298074)))) (declare (not safe)) (foldr1 cons - __tmp296768 - _gsc-cc-opts290692_)))) + __tmp298073 + _gsc-cc-opts291997_)))) (declare (not safe)) - (cons '"-D___DYNAMIC" __tmp296767)))) + (cons '"-D___DYNAMIC" __tmp298072)))) (declare (not safe)) - (cons '"-cc-options" __tmp296766)))) + (cons '"-cc-options" __tmp298071)))) (declare (not safe)) - (cons '"-obj" __tmp296765)))) + (cons '"-obj" __tmp298070)))) (declare (not safe)) - (gxc#invoke__% '#f '#t absent-value __tmp296770 __tmp296764)) - (let ((__tmp296776 (let () (declare (not safe)) (gxc#gerbil-gcc))) - (__tmp296771 - (let ((__tmp296772 - (let ((__tmp296773 - (let ((__tmp296774 - (let ((__tmp296775 + (gxc#invoke__% '#f '#t absent-value __tmp298075 __tmp298069)) + (let ((__tmp298081 (let () (declare (not safe)) (gxc#gerbil-gcc))) + (__tmp298076 + (let ((__tmp298077 + (let ((__tmp298078 + (let ((__tmp298079 + (let ((__tmp298080 (let () (declare (not safe)) - (cons _link-path-o290688_ - _gcc-ld-opts290694_)))) + (cons _link-path-o291993_ + _gcc-ld-opts291999_)))) (declare (not safe)) - (cons _path-o290682_ __tmp296775)))) + (cons _path-o291987_ __tmp298080)))) (declare (not safe)) - (cons _link-path290684_ __tmp296774)))) + (cons _link-path291989_ __tmp298079)))) (declare (not safe)) - (cons '"-o" __tmp296773)))) + (cons '"-o" __tmp298078)))) (declare (not safe)) - (cons '"-shared" __tmp296772)))) + (cons '"-shared" __tmp298077)))) (declare (not safe)) (gxc#invoke__% '#f absent-value absent-value - __tmp296776 - __tmp296771)) + __tmp298081 + __tmp298076)) (for-each delete-file - (let ((__tmp296777 - (let ((__tmp296778 - (let ((__tmp296779 + (let ((__tmp298082 + (let ((__tmp298083 + (let ((__tmp298084 (let () (declare (not safe)) - (cons _link-path-o290688_ '())))) + (cons _link-path-o291993_ '())))) (declare (not safe)) - (cons _link-path-c290686_ __tmp296779)))) + (cons _link-path-c291991_ __tmp298084)))) (declare (not safe)) - (cons _path-o290682_ __tmp296778)))) + (cons _path-o291987_ __tmp298083)))) (declare (not safe)) - (cons _path-c290680_ __tmp296777))))))) + (cons _path-c291985_ __tmp298082))))))) (define gxc#compile-output-file - (lambda (_ctx290644_ _n290645_ _ext290646_) - (letrec ((_module-relative-path290648_ - (lambda (_ctx290671_) + (lambda (_ctx291949_ _n291950_ _ext291951_) + (letrec ((_module-relative-path291953_ + (lambda (_ctx291976_) (path-strip-directory - (let ((__tmp296780 + (let ((__tmp298085 (##structure-ref - _ctx290671_ + _ctx291976_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp296780))))) - (_module-source-directory290649_ - (lambda (_ctx290667_) + (gxc#module-id->path-string __tmp298085))))) + (_module-source-directory291954_ + (lambda (_ctx291972_) (path-directory - (let ((_mpath290669_ + (let ((_mpath291974_ (##structure-ref - _ctx290667_ + _ctx291972_ '7 gx#module-context::t '#f))) (if (let () (declare (not safe)) - (string? _mpath290669_)) - _mpath290669_ + (string? _mpath291974_)) + _mpath291974_ (let () (declare (not safe)) - (last _mpath290669_))))))) - (_section-string290650_ - (lambda (_n290665_) - (if (let () (declare (not safe)) (number? _n290665_)) - (number->string _n290665_) - (if (let () (declare (not safe)) (symbol? _n290665_)) - (symbol->string _n290665_) + (last _mpath291974_))))))) + (_section-string291955_ + (lambda (_n291970_) + (if (let () (declare (not safe)) (number? _n291970_)) + (number->string _n291970_) + (if (let () (declare (not safe)) (symbol? _n291970_)) + (symbol->string _n291970_) (if (let () (declare (not safe)) - (string? _n290665_)) - _n290665_ + (string? _n291970_)) + _n291970_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _n290665_))))))) - (_file-name290651_ - (lambda (_path290663_) - (if _n290645_ + _n291970_))))))) + (_file-name291956_ + (lambda (_path291968_) + (if _n291950_ (string-append - _path290663_ + _path291968_ '"__" (let () (declare (not safe)) - (_section-string290650_ _n290645_)) - _ext290646_) - (string-append _path290663_ _ext290646_)))) - (_file-path290652_ + (_section-string291955_ _n291950_)) + _ext291951_) + (string-append _path291968_ _ext291951_)))) + (_file-path291957_ (lambda () - (let ((_$e290658_ (gxc#current-compile-output-dir))) - (if _$e290658_ - ((lambda (_outdir290661_) + (let ((_$e291963_ (gxc#current-compile-output-dir))) + (if _$e291963_ + ((lambda (_outdir291966_) (path-expand - (let ((__tmp296782 - (let ((__tmp296783 + (let ((__tmp298087 + (let ((__tmp298088 (##structure-ref - _ctx290644_ + _ctx291949_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp296783)))) + __tmp298088)))) (declare (not safe)) - (_file-name290651_ __tmp296782)) - _outdir290661_)) - _$e290658_) + (_file-name291956_ __tmp298087)) + _outdir291966_)) + _$e291963_) (path-expand - (let ((__tmp296781 + (let ((__tmp298086 (let () (declare (not safe)) - (_module-relative-path290648_ - _ctx290644_)))) + (_module-relative-path291953_ + _ctx291949_)))) (declare (not safe)) - (_file-name290651_ __tmp296781)) + (_file-name291956_ __tmp298086)) (let () (declare (not safe)) - (_module-source-directory290649_ - _ctx290644_)))))))) - (let ((_path290654_ - (let () (declare (not safe)) (_file-path290652_)))) - (let ((__tmp296784 + (_module-source-directory291954_ + _ctx291949_)))))))) + (let ((_path291959_ + (let () (declare (not safe)) (_file-path291957_)))) + (let ((__tmp298089 (lambda () - (let ((__tmp296785 (path-directory _path290654_))) + (let ((__tmp298090 (path-directory _path291959_))) (declare (not safe)) - (create-directory* __tmp296785))))) + (create-directory* __tmp298090))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296784)) - _path290654_)))) + (with-lock gxc#+driver-mutex+ __tmp298089)) + _path291959_)))) (define gxc#compile-static-output-file - (lambda (_ctx290626_) - (letrec ((_file-name290628_ - (lambda (_id290642_) + (lambda (_ctx291931_) + (letrec ((_file-name291933_ + (lambda (_id291947_) (string-append (let () (declare (not safe)) - (gxc#static-module-name _id290642_)) + (gxc#static-module-name _id291947_)) '".scm"))) - (_file-path290629_ + (_file-path291934_ (lambda () - (let* ((_file290635_ - (let ((__tmp296786 + (let* ((_file291940_ + (let ((__tmp298091 (##structure-ref - _ctx290626_ + _ctx291931_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (_file-name290628_ __tmp296786))) - (_$e290637_ (gxc#current-compile-output-dir))) - (if _$e290637_ - ((lambda (_outdir290640_) + (_file-name291933_ __tmp298091))) + (_$e291942_ (gxc#current-compile-output-dir))) + (if _$e291942_ + ((lambda (_outdir291945_) (path-expand - _file290635_ - (path-expand '"static" _outdir290640_))) - _$e290637_) - (path-expand _file290635_ '"static")))))) - (let ((_path290631_ - (let () (declare (not safe)) (_file-path290629_)))) - (let ((__tmp296787 + _file291940_ + (path-expand '"static" _outdir291945_))) + _$e291942_) + (path-expand _file291940_ '"static")))))) + (let ((_path291936_ + (let () (declare (not safe)) (_file-path291934_)))) + (let ((__tmp298092 (lambda () - (let ((__tmp296788 (path-directory _path290631_))) + (let ((__tmp298093 (path-directory _path291936_))) (declare (not safe)) - (create-directory* __tmp296788))))) + (create-directory* __tmp298093))))) (declare (not safe)) - (with-lock gxc#+driver-mutex+ __tmp296787)) - _path290631_)))) + (with-lock gxc#+driver-mutex+ __tmp298092)) + _path291936_)))) (define gxc#compile-exe-output-file - (lambda (_ctx290620_ _opts290621_) - (let ((_$e290623_ + (lambda (_ctx291925_ _opts291926_) + (let ((_$e291928_ (let () (declare (not safe)) - (pgetq 'output-file: _opts290621_)))) - (if _$e290623_ - (values _$e290623_) + (pgetq 'output-file: _opts291926_)))) + (if _$e291928_ + (values _$e291928_) (path-strip-directory (symbol->string (##structure-ref - _ctx290620_ + _ctx291925_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_idstr290613_) - (if (let () (declare (not safe)) (string? _idstr290613_)) - (let* ((_str290615_ + (lambda (_idstr291918_) + (if (let () (declare (not safe)) (string? _idstr291918_)) + (let* ((_str291920_ (let () (declare (not safe)) - (gxc#module-id->path-string _idstr290613_))) - (_strs290617_ + (gxc#module-id->path-string _idstr291918_))) + (_strs291922_ (let () (declare (not safe)) - (string-split _str290615_ '#\/)))) - (let () (declare (not safe)) (string-join _strs290617_ '"__"))) - (if (let () (declare (not safe)) (symbol? _idstr290613_)) - (let ((__tmp296789 (symbol->string _idstr290613_))) + (string-split _str291920_ '#\/)))) + (let () (declare (not safe)) (string-join _strs291922_ '"__"))) + (if (let () (declare (not safe)) (symbol? _idstr291918_)) + (let ((__tmp298094 (symbol->string _idstr291918_))) (declare (not safe)) - (gxc#static-module-name __tmp296789)) - (error '"Bad module id" _idstr290613_))))) + (gxc#static-module-name __tmp298094)) + (error '"Bad module id" _idstr291918_))))) (define gxc#invoke__% - (lambda (_g296790_ - _stdout-redirection290577290581_ - _stderr-redirection290578290583_ - _program290585_ - _args290586_) - (let* ((_stdout-redirection290588_ + (lambda (_g298095_ + _stdout-redirection291879291883_ + _stderr-redirection291880291885_ + _program291887_ + _args291888_) + (let* ((_stdout-redirection291890_ (if (let () (declare (not safe)) - (eq? _stdout-redirection290577290581_ absent-value)) + (eq? _stdout-redirection291879291883_ absent-value)) '#f - _stdout-redirection290577290581_)) - (_stderr-redirection290590_ + _stdout-redirection291879291883_)) + (_stderr-redirection291892_ (if (let () (declare (not safe)) - (eq? _stderr-redirection290578290583_ absent-value)) + (eq? _stderr-redirection291880291885_ absent-value)) '#f - _stderr-redirection290578290583_))) - (let ((__tmp296791 + _stderr-redirection291880291885_))) + (let ((__tmp298096 (let () (declare (not safe)) - (cons _program290585_ _args290586_)))) + (cons _program291887_ _args291888_)))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp296791)) - (let ((_proc290592_ - (open-process - (let ((__tmp296792 - (let ((__tmp296793 - (let ((__tmp296794 - (let ((__tmp296795 - (let ((__tmp296796 - (let ((__tmp296797 - (let ((__tmp296798 + (gxc#verbose '"invoke " __tmp298096)) + (let* ((_proc291894_ + (open-process + (let ((__tmp298097 + (let ((__tmp298098 + (let ((__tmp298099 + (let ((__tmp298100 + (let ((__tmp298101 + (let ((__tmp298102 + (let ((__tmp298103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _stderr-redirection291892_ '())))) + (declare (not safe)) + (cons 'stderr-redirection: __tmp298103)))) + (declare (not safe)) + (cons _stdout-redirection291890_ __tmp298102)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'stdout-redirection: + __tmp298101)))) + (declare (not safe)) + (cons _args291888_ __tmp298100)))) + (declare (not safe)) + (cons 'arguments: __tmp298099)))) + (declare (not safe)) + (cons _program291887_ __tmp298098)))) + (declare (not safe)) + (cons 'path: __tmp298097)))) + (_output291899_ + (if (or _stdout-redirection291890_ + _stderr-redirection291892_) + (read-line _proc291894_ '#f) + '#f))) + (let ((_status291902_ (process-status _proc291894_))) + (close-port _proc291894_) + (if (let () (declare (not safe)) (zero? _status291902_)) + '#!void + (begin + (display _output291899_) + (let ((__tmp298104 (let () (declare (not safe)) - (cons _stderr-redirection290590_ '())))) + (cons _program291887_ _args291888_)))) (declare (not safe)) - (cons 'stderr-redirection: __tmp296798)))) - (declare (not safe)) - (cons _stdout-redirection290588_ __tmp296797)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons 'stdout-redirection: - __tmp296796)))) - (declare (not safe)) - (cons _args290586_ __tmp296795)))) - (declare (not safe)) - (cons 'arguments: __tmp296794)))) - (declare (not safe)) - (cons _program290585_ __tmp296793)))) - (declare (not safe)) - (cons 'path: __tmp296792))))) - (if (or _stdout-redirection290588_ _stderr-redirection290590_) - (read-line _proc290592_ '#f) - '#!void) - (let ((_status290597_ (process-status _proc290592_))) - (close-port _proc290592_) - (if (let () (declare (not safe)) (zero? _status290597_)) - '#!void - (let () - (declare (not safe)) - (gxc#raise-compile-error - '"Compilation error; process exit with nonzero status" - _program290585_)))))))) + (gxc#raise-compile-error + '"Compilation error; process exit with nonzero status" + __tmp298104 + _status291902_))))))))) (define gxc#invoke__@ - (lambda (_keys290576290602_ . _args290604_) + (lambda (_keys291878291907_ . _args291909_) (apply gxc#invoke__% - _keys290576290602_ + _keys291878291907_ (let () (declare (not safe)) (table-ref - _keys290576290602_ + _keys291878291907_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (table-ref - _keys290576290602_ + _keys291878291907_ 'stderr-redirection: absent-value)) - _args290604_))) + _args291909_))) (define gxc#invoke - (lambda _args290579290610_ + (lambda _args291881291915_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _args290579290610_))) + _args291881291915_))) (define gxc#join! - (lambda (_thread290570_) - (let ((__tmp296800 - (lambda (_exn290572_) - (if (uncaught-exception? _exn290572_) - (raise (uncaught-exception-reason _exn290572_)) - (raise _exn290572_)))) - (__tmp296799 (lambda () (thread-join! _thread290570_)))) + (lambda (_thread291872_) + (let ((__tmp298106 + (lambda (_exn291874_) + (if (uncaught-exception? _exn291874_) + (raise (uncaught-exception-reason _exn291874_)) + (raise _exn291874_)))) + (__tmp298105 (lambda () (thread-join! _thread291872_)))) (declare (not safe)) - (with-catch __tmp296800 __tmp296799)))))) + (with-catch __tmp298106 __tmp298105)))))) diff --git a/src/bootstrap/gerbil/compiler/driver__1.scm b/src/bootstrap/gerbil/compiler/driver__1.scm index 0c49f5b1b..2884603c4 100644 --- a/src/bootstrap/gerbil/compiler/driver__1.scm +++ b/src/bootstrap/gerbil/compiler/driver__1.scm @@ -1,169 +1,169 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#with-driver-mutex| - (lambda (_$stx290443_) - (let* ((_g290447290461_ - (lambda (_g290448290457_) + (lambda (_$stx291745_) + (let* ((_g291749291763_ + (lambda (_g291750291759_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g290448290457_)))) - (_g290446290503_ - (lambda (_g290448290465_) + _g291750291759_)))) + (_g291748291805_ + (lambda (_g291750291767_) (if (let () (declare (not safe)) - (gx#stx-pair? _g290448290465_)) - (let ((_e290452290468_ + (gx#stx-pair? _g291750291767_)) + (let ((_e291754291770_ (let () (declare (not safe)) - (gx#syntax-e _g290448290465_)))) - (let ((_hd290451290472_ + (gx#syntax-e _g291750291767_)))) + (let ((_hd291753291774_ (let () (declare (not safe)) - (##car _e290452290468_))) - (_tl290450290475_ + (##car _e291754291770_))) + (_tl291752291777_ (let () (declare (not safe)) - (##cdr _e290452290468_)))) + (##cdr _e291754291770_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl290450290475_)) - (let ((_e290455290478_ + (gx#stx-pair? _tl291752291777_)) + (let ((_e291757291780_ (let () (declare (not safe)) - (gx#syntax-e _tl290450290475_)))) - (let ((_hd290454290482_ + (gx#syntax-e _tl291752291777_)))) + (let ((_hd291756291784_ (let () (declare (not safe)) - (##car _e290455290478_))) - (_tl290453290485_ + (##car _e291757291780_))) + (_tl291755291787_ (let () (declare (not safe)) - (##cdr _e290455290478_)))) + (##cdr _e291757291780_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl290453290485_)) - ((lambda (_L290488_) - (let ((__tmp296808 + (gx#stx-null? _tl291755291787_)) + ((lambda (_L291790_) + (let ((__tmp298114 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'with-lock))) - (__tmp296801 - (let ((__tmp296807 + (__tmp298107 + (let ((__tmp298113 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '+driver-mutex+))) - (__tmp296802 - (let ((__tmp296803 - (let ((__tmp296806 + (__tmp298108 + (let ((__tmp298109 + (let ((__tmp298112 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp296804 - (let ((__tmp296805 + (__tmp298110 + (let ((__tmp298111 (let () (declare (not safe)) - (cons _L290488_ '())))) + (cons _L291790_ '())))) (declare (not safe)) - (cons '() __tmp296805)))) + (cons '() __tmp298111)))) (declare (not safe)) - (cons __tmp296806 __tmp296804)))) + (cons __tmp298112 __tmp298110)))) (declare (not safe)) - (cons __tmp296803 '())))) + (cons __tmp298109 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296807 - __tmp296802)))) + (cons __tmp298113 + __tmp298108)))) (declare (not safe)) - (cons __tmp296808 __tmp296801))) - _hd290454290482_) - (_g290447290461_ _g290448290465_)))) - (_g290447290461_ _g290448290465_)))) - (_g290447290461_ _g290448290465_))))) - (_g290446290503_ _$stx290443_)))) + (cons __tmp298114 __tmp298107))) + _hd291756291784_) + (_g291749291763_ _g291750291767_)))) + (_g291749291763_ _g291750291767_)))) + (_g291749291763_ _g291750291767_))))) + (_g291748291805_ _$stx291745_)))) (define |gxc[:0:]#go!| - (lambda (_$stx290507_) - (let* ((_g290511290525_ - (lambda (_g290512290521_) + (lambda (_$stx291809_) + (let* ((_g291813291827_ + (lambda (_g291814291823_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g290512290521_)))) - (_g290510290566_ - (lambda (_g290512290529_) + _g291814291823_)))) + (_g291812291868_ + (lambda (_g291814291831_) (if (let () (declare (not safe)) - (gx#stx-pair? _g290512290529_)) - (let ((_e290516290532_ + (gx#stx-pair? _g291814291831_)) + (let ((_e291818291834_ (let () (declare (not safe)) - (gx#syntax-e _g290512290529_)))) - (let ((_hd290515290536_ + (gx#syntax-e _g291814291831_)))) + (let ((_hd291817291838_ (let () (declare (not safe)) - (##car _e290516290532_))) - (_tl290514290539_ + (##car _e291818291834_))) + (_tl291816291841_ (let () (declare (not safe)) - (##cdr _e290516290532_)))) + (##cdr _e291818291834_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl290514290539_)) - (let ((_e290519290542_ + (gx#stx-pair? _tl291816291841_)) + (let ((_e291821291844_ (let () (declare (not safe)) - (gx#syntax-e _tl290514290539_)))) - (let ((_hd290518290546_ + (gx#syntax-e _tl291816291841_)))) + (let ((_hd291820291848_ (let () (declare (not safe)) - (##car _e290519290542_))) - (_tl290517290549_ + (##car _e291821291844_))) + (_tl291819291851_ (let () (declare (not safe)) - (##cdr _e290519290542_)))) + (##cdr _e291821291844_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl290517290549_)) - ((lambda (_L290552_) - (let ((__tmp296814 + (gx#stx-null? _tl291819291851_)) + ((lambda (_L291854_) + (let ((__tmp298120 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'spawn))) - (__tmp296809 - (let ((__tmp296810 - (let ((__tmp296813 + (__tmp298115 + (let ((__tmp298116 + (let ((__tmp298119 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda))) - (__tmp296811 - (let ((__tmp296812 + (__tmp298117 + (let ((__tmp298118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L290552_ '())))) + (let () (declare (not safe)) (cons _L291854_ '())))) (declare (not safe)) - (cons '() __tmp296812)))) + (cons '() __tmp298118)))) (declare (not safe)) - (cons __tmp296813 __tmp296811)))) + (cons __tmp298119 __tmp298117)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp296810 '())))) + (cons __tmp298116 '())))) (declare (not safe)) - (cons __tmp296814 __tmp296809))) - _hd290518290546_) - (_g290511290525_ _g290512290529_)))) - (_g290511290525_ _g290512290529_)))) - (_g290511290525_ _g290512290529_))))) - (_g290510290566_ _$stx290507_))))) + (cons __tmp298120 __tmp298115))) + _hd291820291848_) + (_g291813291827_ _g291814291831_)))) + (_g291813291827_ _g291814291831_)))) + (_g291813291827_ _g291814291831_))))) + (_g291812291868_ _$stx291809_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm index 43246e78f..94cb062b5 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann__0.scm @@ -1,171 +1,171 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1707773931) + (define gerbil/compiler/optimize-ann::timestamp 1708102807) (begin (declare (inlining-limit 200)) (define gxc#&optmize-annotated (make-promise (lambda () - (let ((_tbl267078_ + (let ((_tbl268279_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp274768 (force gxc#&basic-xform))) + (let ((__tmp275969 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl267078_ __tmp274768)) + (hash-copy! _tbl268279_ __tmp275969)) (let () (declare (not safe)) (table-set! - _tbl267078_ + _tbl268279_ '%#begin-annotation gxc#optimize-annotation%)) - _tbl267078_)))) + _tbl268279_)))) (define gxc#apply-optimize-annotated - (lambda (_stx267061_ . _args267063_) - (let ((__tmp274770 + (lambda (_stx268262_ . _args268264_) + (let ((__tmp275971 (lambda () (declare (not safe)) - (if (null? _args267063_) - (gxc#compile-e__0 _stx267061_) - (let ((_arg1267068_ (car _args267063_)) - (_rest267070_ (cdr _args267063_))) - (if (null? _rest267070_) - (gxc#compile-e__1 _stx267061_ _arg1267068_) - (let ((_arg2267073_ (car _rest267070_)) - (_rest267075_ (cdr _rest267070_))) - (if (null? _rest267075_) + (if (null? _args268264_) + (gxc#compile-e__0 _stx268262_) + (let ((_arg1268269_ (car _args268264_)) + (_rest268271_ (cdr _args268264_))) + (if (null? _rest268271_) + (gxc#compile-e__1 _stx268262_ _arg1268269_) + (let ((_arg2268274_ (car _rest268271_)) + (_rest268276_ (cdr _rest268271_))) + (if (null? _rest268276_) (gxc#compile-e__2 - _stx267061_ - _arg1267068_ - _arg2267073_) + _stx268262_ + _arg1268269_ + _arg2268274_) (apply gxc#compile-e - _stx267061_ - _arg1267068_ - _arg2267073_ - _rest267075_)))))))) - (__tmp274769 (force gxc#&optmize-annotated))) + _stx268262_ + _arg1268269_ + _arg2268274_ + _rest268276_)))))))) + (__tmp275970 (force gxc#&optmize-annotated))) (declare (not safe)) (call-with-parameters - __tmp274770 + __tmp275971 gxc#current-compile-methods - __tmp274769)))) + __tmp275970)))) (define gxc#&generate-runtime-repr (make-promise (lambda () - (let ((_tbl267058_ + (let ((_tbl268259_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp274771 (force gxc#&generate-runtime))) + (let ((__tmp275972 (force gxc#&generate-runtime))) (declare (not safe)) - (hash-copy! _tbl267058_ __tmp274771)) + (hash-copy! _tbl268259_ __tmp275972)) (let () (declare (not safe)) - (table-set! _tbl267058_ '%#quote-syntax identity)) - _tbl267058_)))) + (table-set! _tbl268259_ '%#quote-syntax identity)) + _tbl268259_)))) (define gxc#apply-generate-runtime-repr - (lambda (_stx267041_ . _args267043_) - (let ((__tmp274773 + (lambda (_stx268242_ . _args268244_) + (let ((__tmp275974 (lambda () (declare (not safe)) - (if (null? _args267043_) - (gxc#compile-e__0 _stx267041_) - (let ((_arg1267048_ (car _args267043_)) - (_rest267050_ (cdr _args267043_))) - (if (null? _rest267050_) - (gxc#compile-e__1 _stx267041_ _arg1267048_) - (let ((_arg2267053_ (car _rest267050_)) - (_rest267055_ (cdr _rest267050_))) - (if (null? _rest267055_) + (if (null? _args268244_) + (gxc#compile-e__0 _stx268242_) + (let ((_arg1268249_ (car _args268244_)) + (_rest268251_ (cdr _args268244_))) + (if (null? _rest268251_) + (gxc#compile-e__1 _stx268242_ _arg1268249_) + (let ((_arg2268254_ (car _rest268251_)) + (_rest268256_ (cdr _rest268251_))) + (if (null? _rest268256_) (gxc#compile-e__2 - _stx267041_ - _arg1267048_ - _arg2267053_) + _stx268242_ + _arg1268249_ + _arg2268254_) (apply gxc#compile-e - _stx267041_ - _arg1267048_ - _arg2267053_ - _rest267055_)))))))) - (__tmp274772 (force gxc#&generate-runtime-repr))) + _stx268242_ + _arg1268249_ + _arg2268254_ + _rest268256_)))))))) + (__tmp275973 (force gxc#&generate-runtime-repr))) (declare (not safe)) (call-with-parameters - __tmp274773 + __tmp275974 gxc#current-compile-methods - __tmp274772)))) + __tmp275973)))) (define gxc#&push-match-vars (make-promise (lambda () - (let ((_tbl267038_ + (let ((_tbl268239_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl267038_ '%#lambda gxc#xform-lambda%)) + (table-set! _tbl268239_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) (table-set! - _tbl267038_ + _tbl268239_ '%#let-values gxc#push-match-vars-let-values%)) (let () (declare (not safe)) (table-set! - _tbl267038_ + _tbl268239_ '%#letrec-values gxc#push-match-vars-stop)) (let () (declare (not safe)) - (table-set! _tbl267038_ '%#if gxc#push-match-vars-if%)) + (table-set! _tbl268239_ '%#if gxc#push-match-vars-if%)) (let () (declare (not safe)) - (table-set! _tbl267038_ '%#call gxc#push-match-vars-call%)) - _tbl267038_)))) + (table-set! _tbl268239_ '%#call gxc#push-match-vars-call%)) + _tbl268239_)))) (define gxc#apply-push-match-vars - (lambda (_stx267021_ . _args267023_) - (let ((__tmp274775 + (lambda (_stx268222_ . _args268224_) + (let ((__tmp275976 (lambda () (declare (not safe)) - (if (null? _args267023_) - (gxc#compile-e__0 _stx267021_) - (let ((_arg1267028_ (car _args267023_)) - (_rest267030_ (cdr _args267023_))) - (if (null? _rest267030_) - (gxc#compile-e__1 _stx267021_ _arg1267028_) - (let ((_arg2267033_ (car _rest267030_)) - (_rest267035_ (cdr _rest267030_))) - (if (null? _rest267035_) + (if (null? _args268224_) + (gxc#compile-e__0 _stx268222_) + (let ((_arg1268229_ (car _args268224_)) + (_rest268231_ (cdr _args268224_))) + (if (null? _rest268231_) + (gxc#compile-e__1 _stx268222_ _arg1268229_) + (let ((_arg2268234_ (car _rest268231_)) + (_rest268236_ (cdr _rest268231_))) + (if (null? _rest268236_) (gxc#compile-e__2 - _stx267021_ - _arg1267028_ - _arg2267033_) + _stx268222_ + _arg1268229_ + _arg2268234_) (apply gxc#compile-e - _stx267021_ - _arg1267028_ - _arg2267033_ - _rest267035_)))))))) - (__tmp274774 (force gxc#&push-match-vars))) + _stx268222_ + _arg1268229_ + _arg2268234_ + _rest268236_)))))))) + (__tmp275975 (force gxc#&push-match-vars))) (declare (not safe)) (call-with-parameters - __tmp274775 + __tmp275976 gxc#current-compile-methods - __tmp274774)))) + __tmp275975)))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_stx266830_) - (let* ((___stx271662271663_ _stx266830_) - (_g266834266875_ + (lambda (_stx268031_) + (let* ((___stx272863272864_ _stx268031_) + (_g268035268076_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271662271663_))))) - (let ((___kont271664271665_ - (lambda (_L266997_ _L266998_) - (let ((_ann267012_ - (let () (declare (not safe)) (gx#stx-e _L266998_)))) - (let ((__tmp274778 + ___stx272863272864_))))) + (let ((___kont272865272866_ + (lambda (_L268198_ _L268199_) + (let ((_ann268213_ + (let () (declare (not safe)) (gx#stx-e _L268199_)))) + (let ((__tmp275979 (lambda () - (let ((_$e267015_ _ann267012_)) + (let ((_$e268216_ _ann268213_)) (if (let () (declare (not safe)) - (eq? '@match _$e267015_)) + (eq? '@match _$e268216_)) (begin (let () (declare (not safe)) @@ -173,10 +173,10 @@ '"Optimizing match expansion")) (let () (declare (not safe)) - (gxc#optimize-match _L266997_))) + (gxc#optimize-match _L268198_))) (if (let () (declare (not safe)) - (eq? '@syntax-case _$e267015_)) + (eq? '@syntax-case _$e268216_)) (begin (let () (declare (not safe)) @@ -185,1994 +185,1994 @@ (let () (declare (not safe)) (gxc#optimize-syntax-case - _L266997_))) + _L268198_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L266997_))))))) - (__tmp274776 - (let ((__tmp274777 + (gxc#compile-e__0 _L268198_))))))) + (__tmp275977 + (let ((__tmp275978 (gxc#current-annotation-optimizer))) (declare (not safe)) - (cons _ann267012_ __tmp274777)))) + (cons _ann268213_ __tmp275978)))) (declare (not safe)) (call-with-parameters - __tmp274778 + __tmp275979 gxc#current-annotation-optimizer - __tmp274776))))) - (___kont271666271667_ - (lambda (_L266943_ _L266944_ _L266945_) - (let () (declare (not safe)) (gxc#compile-e__0 _L266943_)))) - (___kont271670271671_ + __tmp275977))))) + (___kont272867272868_ + (lambda (_L268144_ _L268145_ _L268146_) + (let () (declare (not safe)) (gxc#compile-e__0 _L268144_)))) + (___kont272871272872_ (lambda () (let () (declare (not safe)) - (gxc#xform-begin-annotation% _stx266830_))))) - (let* ((___match271717271718_ - (lambda (_e266852266887_ - _hd266851266890_ - _tl266850266892_ - _e266855266895_ - _hd266854266898_ - _tl266853266900_ - _e266858266903_ - _hd266857266906_ - _tl266856266908_ - ___splice271668271669_ - _target266859266911_ - _tl266861266913_) - (letrec ((_loop266862266916_ - (lambda (_hd266860266919_ _param266866266921_) + (gxc#xform-begin-annotation% _stx268031_))))) + (let* ((___match272918272919_ + (lambda (_e268053268088_ + _hd268052268091_ + _tl268051268093_ + _e268056268096_ + _hd268055268099_ + _tl268054268101_ + _e268059268104_ + _hd268058268107_ + _tl268057268109_ + ___splice272869272870_ + _target268060268112_ + _tl268062268114_) + (letrec ((_loop268063268117_ + (lambda (_hd268061268120_ _param268067268122_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266860266919_)) - (let ((_e266863266924_ + (gx#stx-pair? _hd268061268120_)) + (let ((_e268064268125_ (let () (declare (not safe)) - (gx#stx-e _hd266860266919_)))) - (let ((_lp-tl266865266929_ + (gx#stx-e _hd268061268120_)))) + (let ((_lp-tl268066268130_ (let () (declare (not safe)) - (##cdr _e266863266924_))) - (_lp-hd266864266927_ + (##cdr _e268064268125_))) + (_lp-hd268065268128_ (let () (declare (not safe)) - (##car _e266863266924_)))) - (let ((__tmp274780 + (##car _e268064268125_)))) + (let ((__tmp275981 (let () (declare (not safe)) - (cons _lp-hd266864266927_ - _param266866266921_)))) + (cons _lp-hd268065268128_ + _param268067268122_)))) (declare (not safe)) - (_loop266862266916_ - _lp-tl266865266929_ - __tmp274780)))) - (let ((_param266867266932_ - (reverse _param266866266921_))) + (_loop268063268117_ + _lp-tl268066268130_ + __tmp275981)))) + (let ((_param268068268133_ + (reverse _param268067268122_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266853266900_)) - (let ((_e266870266935_ + (gx#stx-pair? _tl268054268101_)) + (let ((_e268071268136_ (let () (declare (not safe)) (gx#stx-e - _tl266853266900_)))) - (let ((_tl266868266940_ + _tl268054268101_)))) + (let ((_tl268069268141_ (let () (declare (not safe)) - (##cdr _e266870266935_))) - (_hd266869266938_ + (##cdr _e268071268136_))) + (_hd268070268139_ (let () (declare (not safe)) - (##car _e266870266935_)))) + (##car _e268071268136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266868266940_)) - (let ((_L266943_ - _hd266869266938_) - (_L266944_ - _param266867266932_) - (_L266945_ - _hd266857266906_)) + _tl268069268141_)) + (let ((_L268144_ + _hd268070268139_) + (_L268145_ + _param268068268133_) + (_L268146_ + _hd268058268107_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _L266945_)) - (let ((__tmp274779 + (gx#identifier? _L268146_)) + (let ((__tmp275980 (memq (let () (declare (not safe)) - (gx#stx-e _L266945_)) + (gx#stx-e _L268146_)) gxc#gambit-annotations))) (declare (not safe)) - (not __tmp274779))) - (___kont271666271667_ _L266943_ _L266944_ _L266945_) - (___kont271670271671_))) + (not __tmp275980))) + (___kont272867272868_ _L268144_ _L268145_ _L268146_) + (___kont272871272872_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont271670271671_)))) - (___kont271670271671_))))))) + (___kont272871272872_)))) + (___kont272871272872_))))))) (let () (declare (not safe)) - (_loop266862266916_ _target266859266911_ '()))))) - (___match271691271692_ - (lambda (_e266840266973_ - _hd266839266976_ - _tl266838266978_ - _e266843266981_ - _hd266842266984_ - _tl266841266986_ - _e266846266989_ - _hd266845266992_ - _tl266844266994_) - (let ((_L266997_ _hd266845266992_) - (_L266998_ _hd266842266984_)) + (_loop268063268117_ _target268060268112_ '()))))) + (___match272892272893_ + (lambda (_e268041268174_ + _hd268040268177_ + _tl268039268179_ + _e268044268182_ + _hd268043268185_ + _tl268042268187_ + _e268047268190_ + _hd268046268193_ + _tl268045268195_) + (let ((_L268198_ _hd268046268193_) + (_L268199_ _hd268043268185_)) (if (let () (declare (not safe)) - (gx#identifier? _L266998_)) - (___kont271664271665_ _L266997_ _L266998_) + (gx#identifier? _L268199_)) + (___kont272865272866_ _L268198_ _L268199_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266842266984_)) - (let ((_e266858266903_ + (gx#stx-pair? _hd268043268185_)) + (let ((_e268059268104_ (let () (declare (not safe)) - (gx#stx-e _hd266842266984_)))) - (let ((_tl266856266908_ + (gx#stx-e _hd268043268185_)))) + (let ((_tl268057268109_ (let () (declare (not safe)) - (##cdr _e266858266903_))) - (_hd266857266906_ + (##cdr _e268059268104_))) + (_hd268058268107_ (let () (declare (not safe)) - (##car _e266858266903_)))) + (##car _e268059268104_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl266856266908_)) - (let ((___splice271668271669_ + (gx#stx-pair/null? _tl268057268109_)) + (let ((___splice272869272870_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl266856266908_ + _tl268057268109_ '0)))) - (let ((_tl266861266913_ + (let ((_tl268062268114_ (let () (declare (not safe)) (##vector-ref - ___splice271668271669_ + ___splice272869272870_ '1))) - (_target266859266911_ + (_target268060268112_ (let () (declare (not safe)) (##vector-ref - ___splice271668271669_ + ___splice272869272870_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266861266913_)) - (___match271717271718_ - _e266840266973_ - _hd266839266976_ - _tl266838266978_ - _e266843266981_ - _hd266842266984_ - _tl266841266986_ - _e266858266903_ - _hd266857266906_ - _tl266856266908_ - ___splice271668271669_ - _target266859266911_ - _tl266861266913_) - (___kont271670271671_)))) - (___kont271670271671_)))) - (___kont271670271671_))))))) + _tl268062268114_)) + (___match272918272919_ + _e268041268174_ + _hd268040268177_ + _tl268039268179_ + _e268044268182_ + _hd268043268185_ + _tl268042268187_ + _e268059268104_ + _hd268058268107_ + _tl268057268109_ + ___splice272869272870_ + _target268060268112_ + _tl268062268114_) + (___kont272871272872_)))) + (___kont272871272872_)))) + (___kont272871272872_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx271662271663_)) - (let ((_e266840266973_ + (gx#stx-pair? ___stx272863272864_)) + (let ((_e268041268174_ (let () (declare (not safe)) - (gx#stx-e ___stx271662271663_)))) - (let ((_tl266838266978_ + (gx#stx-e ___stx272863272864_)))) + (let ((_tl268039268179_ (let () (declare (not safe)) - (##cdr _e266840266973_))) - (_hd266839266976_ + (##cdr _e268041268174_))) + (_hd268040268177_ (let () (declare (not safe)) - (##car _e266840266973_)))) + (##car _e268041268174_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266838266978_)) - (let ((_e266843266981_ + (gx#stx-pair? _tl268039268179_)) + (let ((_e268044268182_ (let () (declare (not safe)) - (gx#stx-e _tl266838266978_)))) - (let ((_tl266841266986_ + (gx#stx-e _tl268039268179_)))) + (let ((_tl268042268187_ (let () (declare (not safe)) - (##cdr _e266843266981_))) - (_hd266842266984_ + (##cdr _e268044268182_))) + (_hd268043268185_ (let () (declare (not safe)) - (##car _e266843266981_)))) + (##car _e268044268182_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266841266986_)) - (let ((_e266846266989_ + (gx#stx-pair? _tl268042268187_)) + (let ((_e268047268190_ (let () (declare (not safe)) - (gx#stx-e _tl266841266986_)))) - (let ((_tl266844266994_ + (gx#stx-e _tl268042268187_)))) + (let ((_tl268045268195_ (let () (declare (not safe)) - (##cdr _e266846266989_))) - (_hd266845266992_ + (##cdr _e268047268190_))) + (_hd268046268193_ (let () (declare (not safe)) - (##car _e266846266989_)))) + (##car _e268047268190_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266844266994_)) - (___match271691271692_ - _e266840266973_ - _hd266839266976_ - _tl266838266978_ - _e266843266981_ - _hd266842266984_ - _tl266841266986_ - _e266846266989_ - _hd266845266992_ - _tl266844266994_) + (gx#stx-null? _tl268045268195_)) + (___match272892272893_ + _e268041268174_ + _hd268040268177_ + _tl268039268179_ + _e268044268182_ + _hd268043268185_ + _tl268042268187_ + _e268047268190_ + _hd268046268193_ + _tl268045268195_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266842266984_)) - (let ((_e266858266903_ + _hd268043268185_)) + (let ((_e268059268104_ (let () (declare (not safe)) (gx#stx-e - _hd266842266984_)))) - (let ((_tl266856266908_ + _hd268043268185_)))) + (let ((_tl268057268109_ (let () (declare (not safe)) - (##cdr _e266858266903_))) - (_hd266857266906_ + (##cdr _e268059268104_))) + (_hd268058268107_ (let () (declare (not safe)) - (##car _e266858266903_)))) + (##car _e268059268104_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl266856266908_)) - (let ((___splice271668271669_ + _tl268057268109_)) + (let ((___splice272869272870_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl266856266908_ '0)))) - (let ((_tl266861266913_ + (gx#syntax-split-splice _tl268057268109_ '0)))) + (let ((_tl268062268114_ (let () (declare (not safe)) - (##vector-ref ___splice271668271669_ '1))) - (_target266859266911_ + (##vector-ref ___splice272869272870_ '1))) + (_target268060268112_ (let () (declare (not safe)) - (##vector-ref ___splice271668271669_ '0)))) + (##vector-ref ___splice272869272870_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266861266913_)) - (___match271717271718_ - _e266840266973_ - _hd266839266976_ - _tl266838266978_ - _e266843266981_ - _hd266842266984_ - _tl266841266986_ - _e266858266903_ - _hd266857266906_ - _tl266856266908_ - ___splice271668271669_ - _target266859266911_ - _tl266861266913_) - (___kont271670271671_)))) - (___kont271670271671_)))) + (gx#stx-null? _tl268062268114_)) + (___match272918272919_ + _e268041268174_ + _hd268040268177_ + _tl268039268179_ + _e268044268182_ + _hd268043268185_ + _tl268042268187_ + _e268059268104_ + _hd268058268107_ + _tl268057268109_ + ___splice272869272870_ + _target268060268112_ + _tl268062268114_) + (___kont272871272872_)))) + (___kont272871272872_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont271670271671_))))) + (___kont272871272872_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266842266984_)) - (let ((_e266858266903_ + (gx#stx-pair? _hd268043268185_)) + (let ((_e268059268104_ (let () (declare (not safe)) - (gx#stx-e _hd266842266984_)))) - (let ((_tl266856266908_ + (gx#stx-e _hd268043268185_)))) + (let ((_tl268057268109_ (let () (declare (not safe)) - (##cdr _e266858266903_))) - (_hd266857266906_ + (##cdr _e268059268104_))) + (_hd268058268107_ (let () (declare (not safe)) - (##car _e266858266903_)))) + (##car _e268059268104_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl266856266908_)) - (let ((___splice271668271669_ + _tl268057268109_)) + (let ((___splice272869272870_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl266856266908_ + _tl268057268109_ '0)))) - (let ((_tl266861266913_ + (let ((_tl268062268114_ (let () (declare (not safe)) (##vector-ref - ___splice271668271669_ + ___splice272869272870_ '1))) - (_target266859266911_ + (_target268060268112_ (let () (declare (not safe)) (##vector-ref - ___splice271668271669_ + ___splice272869272870_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266861266913_)) - (___match271717271718_ - _e266840266973_ - _hd266839266976_ - _tl266838266978_ - _e266843266981_ - _hd266842266984_ - _tl266841266986_ - _e266858266903_ - _hd266857266906_ - _tl266856266908_ - ___splice271668271669_ - _target266859266911_ - _tl266861266913_) - (___kont271670271671_)))) - (___kont271670271671_)))) - (___kont271670271671_))))) - (___kont271670271671_)))) - (___kont271670271671_))))))) + _tl268062268114_)) + (___match272918272919_ + _e268041268174_ + _hd268040268177_ + _tl268039268179_ + _e268044268182_ + _hd268043268185_ + _tl268042268187_ + _e268059268104_ + _hd268058268107_ + _tl268057268109_ + ___splice272869272870_ + _target268060268112_ + _tl268062268114_) + (___kont272871272872_)))) + (___kont272871272872_)))) + (___kont272871272872_))))) + (___kont272871272872_)))) + (___kont272871272872_))))))) (define gxc#optimize-match - (lambda (_stx266129_) - (let* ((_g266131266161_ - (lambda (_g266132266158_) + (lambda (_stx267330_) + (let* ((_g267332267362_ + (lambda (_g267333267359_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g266132266158_)))) - (_g266130266827_ - (lambda (_g266132266164_) + _g267333267359_)))) + (_g267331268028_ + (lambda (_g267333267365_) (if (let () (declare (not safe)) - (gx#stx-pair? _g266132266164_)) - (let ((_e266138266166_ + (gx#stx-pair? _g267333267365_)) + (let ((_e267339267367_ (let () (declare (not safe)) - (gx#stx-e _g266132266164_)))) - (let ((_hd266137266169_ + (gx#stx-e _g267333267365_)))) + (let ((_hd267338267370_ (let () (declare (not safe)) - (##car _e266138266166_))) - (_tl266136266171_ + (##car _e267339267367_))) + (_tl267337267372_ (let () (declare (not safe)) - (##cdr _e266138266166_)))) + (##cdr _e267339267367_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd266137266169_)) + (gx#identifier? _hd267338267370_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd266137266169_)) + _hd267338267370_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266136266171_)) - (let ((_e266141266174_ + (gx#stx-pair? _tl267337267372_)) + (let ((_e267342267375_ (let () (declare (not safe)) - (gx#stx-e _tl266136266171_)))) - (let ((_hd266140266177_ + (gx#stx-e _tl267337267372_)))) + (let ((_hd267341267378_ (let () (declare (not safe)) - (##car _e266141266174_))) - (_tl266139266179_ + (##car _e267342267375_))) + (_tl267340267380_ (let () (declare (not safe)) - (##cdr _e266141266174_)))) + (##cdr _e267342267375_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266140266177_)) - (let ((_e266144266182_ + _hd267341267378_)) + (let ((_e267345267383_ (let () (declare (not safe)) (gx#stx-e - _hd266140266177_)))) - (let ((_hd266143266185_ + _hd267341267378_)))) + (let ((_hd267344267386_ (let () (declare (not safe)) - (##car _e266144266182_))) - (_tl266142266187_ + (##car _e267345267383_))) + (_tl267343267388_ (let () (declare (not safe)) - (##cdr _e266144266182_)))) + (##cdr _e267345267383_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266143266185_)) - (let ((_e266147266190_ + _hd267344267386_)) + (let ((_e267348267391_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd266143266185_)))) - (let ((_hd266146266193_ - (let () (declare (not safe)) (##car _e266147266190_))) - (_tl266145266195_ - (let () (declare (not safe)) (##cdr _e266147266190_)))) + (gx#stx-e _hd267344267386_)))) + (let ((_hd267347267394_ + (let () (declare (not safe)) (##car _e267348267391_))) + (_tl267346267396_ + (let () (declare (not safe)) (##cdr _e267348267391_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266146266193_)) - (let ((_e266150266198_ + (gx#stx-pair? _hd267347267394_)) + (let ((_e267351267399_ (let () (declare (not safe)) - (gx#stx-e _hd266146266193_)))) - (let ((_hd266149266201_ + (gx#stx-e _hd267347267394_)))) + (let ((_hd267350267402_ (let () (declare (not safe)) - (##car _e266150266198_))) - (_tl266148266203_ + (##car _e267351267399_))) + (_tl267349267404_ (let () (declare (not safe)) - (##cdr _e266150266198_)))) + (##cdr _e267351267399_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266148266203_)) + (gx#stx-null? _tl267349267404_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266145266195_)) - (let ((_e266153266206_ + (gx#stx-pair? _tl267346267396_)) + (let ((_e267354267407_ (let () (declare (not safe)) - (gx#stx-e _tl266145266195_)))) - (let ((_hd266152266209_ + (gx#stx-e _tl267346267396_)))) + (let ((_hd267353267410_ (let () (declare (not safe)) - (##car _e266153266206_))) - (_tl266151266211_ + (##car _e267354267407_))) + (_tl267352267412_ (let () (declare (not safe)) - (##cdr _e266153266206_)))) + (##cdr _e267354267407_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266151266211_)) + (gx#stx-null? _tl267352267412_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl266142266187_)) + _tl267343267388_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266139266179_)) - (let ((_e266156266214_ + _tl267340267380_)) + (let ((_e267357267415_ (let () (declare (not safe)) (gx#stx-e - _tl266139266179_)))) - (let ((_hd266155266217_ + _tl267340267380_)))) + (let ((_hd267356267418_ (let () (declare (not safe)) - (##car _e266156266214_))) - (_tl266154266219_ + (##car _e267357267415_))) + (_tl267355267420_ (let () (declare (not safe)) - (##cdr _e266156266214_)))) + (##cdr _e267357267415_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266154266219_)) - ((lambda (_L266222_ + _tl267355267420_)) + ((lambda (_L267423_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L266223_ - _L266224_) - (let _lp266248_ ((_body266250_ _L266222_) - (_negation266251_ + _L267424_ + _L267425_) + (let _lp267449_ ((_body267451_ _L267423_) + (_negation267452_ (let () (declare (not safe)) - (cons _L266224_ _L266223_))) - (_clauses266252_ '()) - (_konts266253_ '())) - (let* ((___stx271900271901_ _body266250_) - (_g266256266296_ + (cons _L267425_ _L267424_))) + (_clauses267453_ '()) + (_konts267454_ '())) + (let* ((___stx273101273102_ _body267451_) + (_g267457267497_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271900271901_))))) - (let ((___kont271902271903_ - (lambda (_L266626_) - (let* ((___stx271836271837_ _L266626_) - (_g266640266670_ + ___stx273101273102_))))) + (let ((___kont273103273104_ + (lambda (_L267827_) + (let* ((___stx273037273038_ _L267827_) + (_g267841267871_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271836271837_))))) - (let ((___kont271838271839_ - (lambda (_L266766_ - _L266767_ - _L266768_) + ___stx273037273038_))))) + (let ((___kont273039273040_ + (lambda (_L267967_ + _L267968_ + _L267969_) (if (let () (declare (not safe)) - (null? _clauses266252_)) - (let* ((_negation266792266799_ - _negation266251_) - (_E266794266803_ + (null? _clauses267453_)) + (let* ((_negation267993268000_ + _negation267452_) + (_E267995268004_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _negation266792266799_))) - (_K266795266809_ - (lambda (_negate266806_ _E266807_) - (let ((__tmp274790 - (let ((__tmp274791 - (let ((__tmp274801 - (let ((__tmp274802 - (let ((__tmp274804 + _negation267993268000_))) + (_K267996268010_ + (lambda (_negate268007_ _E268008_) + (let ((__tmp275991 + (let ((__tmp275992 + (let ((__tmp276002 + (let ((__tmp276003 + (let ((__tmp276005 (let () (declare (not safe)) - (cons _E266807_ '()))) - (__tmp274803 + (cons _E268008_ '()))) + (__tmp276004 (let () (declare (not safe)) - (cons _negate266806_ + (cons _negate268007_ '())))) (declare (not safe)) - (cons __tmp274804 - __tmp274803)))) + (cons __tmp276005 + __tmp276004)))) (declare (not safe)) - (cons __tmp274802 '()))) - (__tmp274792 - (let ((__tmp274793 - (let ((__tmp274794 - (let ((__tmp274796 - (let ((__tmp274797 + (cons __tmp276003 '()))) + (__tmp275993 + (let ((__tmp275994 + (let ((__tmp275995 + (let ((__tmp275997 + (let ((__tmp275998 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274800 + (let ((__tmp276001 (let () (declare (not safe)) - (cons _L266768_ '()))) - (__tmp274798 - (let ((__tmp274799 + (cons _L267969_ '()))) + (__tmp275999 + (let ((__tmp276000 (let () (declare (not safe)) - (gxc#compile-e__0 _L266767_)))) + (gxc#compile-e__0 _L267968_)))) (declare (not safe)) - (cons __tmp274799 '())))) + (cons __tmp276000 '())))) (declare (not safe)) - (cons __tmp274800 __tmp274798)))) + (cons __tmp276001 __tmp275999)))) (declare (not safe)) - (cons __tmp274797 '()))) - (__tmp274795 - (let () (declare (not safe)) (cons _L266766_ '())))) + (cons __tmp275998 '()))) + (__tmp275996 + (let () (declare (not safe)) (cons _L267967_ '())))) (declare (not safe)) - (cons __tmp274796 __tmp274795)))) + (cons __tmp275997 __tmp275996)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp274794)))) + __tmp275995)))) (declare (not safe)) - (cons __tmp274793 '())))) + (cons __tmp275994 '())))) (declare (not safe)) - (cons __tmp274801 __tmp274792)))) + (cons __tmp276002 __tmp275993)))) (declare (not safe)) - (cons '%#let-values __tmp274791)))) + (cons '%#let-values __tmp275992)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp274790 _stx266129_))))) + (gxc#xform-wrap-source __tmp275991 _stx267330_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation266792266799_)) - (let ((_hd266796266812_ + (##pair? _negation267993268000_)) + (let ((_hd267997268013_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _negation266792266799_))) - (_tl266797266814_ + (##car _negation267993268000_))) + (_tl267998268015_ (let () (declare (not safe)) - (##cdr _negation266792266799_)))) - (let* ((_E266817_ _hd266796266812_) - (_negate266819_ _tl266797266814_)) + (##cdr _negation267993268000_)))) + (let* ((_E268018_ _hd267997268013_) + (_negate268020_ _tl267998268015_)) (declare (not safe)) - (_K266795266809_ _negate266819_ _E266817_))) - (let () (declare (not safe)) (_E266794266803_)))) + (_K267996268010_ _negate268020_ _E268018_))) + (let () (declare (not safe)) (_E267995268004_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp274784 - (let ((__tmp274785 - (let ((__tmp274786 + (let ((__tmp275985 + (let ((__tmp275986 + (let ((__tmp275987 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274789 + (let ((__tmp275990 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp274787 - (let ((__tmp274788 + (__tmp275988 + (let ((__tmp275989 (let () (declare (not safe)) - (cons _L266766_ '())))) + (cons _L267967_ '())))) (declare (not safe)) - (cons '() __tmp274788)))) + (cons '() __tmp275989)))) (declare (not safe)) - (cons __tmp274789 __tmp274787)))) + (cons __tmp275990 __tmp275988)))) (declare (not safe)) - (cons '#f __tmp274786)))) + (cons '#f __tmp275987)))) (declare (not safe)) - (cons __tmp274785 _clauses266252_))) - (__tmp274781 - (let ((__tmp274782 - (let ((__tmp274783 + (cons __tmp275986 _clauses267453_))) + (__tmp275982 + (let ((__tmp275983 + (let ((__tmp275984 (let () (declare (not safe)) - (gxc#compile-e__0 _L266767_)))) + (gxc#compile-e__0 _L267968_)))) (declare (not safe)) - (cons _L266768_ __tmp274783)))) + (cons _L267969_ __tmp275984)))) (declare (not safe)) - (cons __tmp274782 _konts266253_)))) + (cons __tmp275983 _konts267454_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimize-match-body - _stx266129_ - _negation266251_ - __tmp274784 - __tmp274781))))) - (___kont271840271841_ + _stx267330_ + _negation267452_ + __tmp275985 + __tmp275982))))) + (___kont273041273042_ (lambda () - (let* ((_negation266676266683_ - _negation266251_) - (_E266678266687_ + (let* ((_negation267877267884_ + _negation267452_) + (_E267879267888_ (lambda () (error '"No clause matching" - _negation266676266683_))) - (_K266679266693_ - (lambda (_negate266690_ - _E266691_) - (let ((__tmp274805 - (let ((__tmp274806 + _negation267877267884_))) + (_K267880267894_ + (lambda (_negate267891_ + _E267892_) + (let ((__tmp276006 + (let ((__tmp276007 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274808 - (let ((__tmp274809 - (let ((__tmp274811 + (let ((__tmp276009 + (let ((__tmp276010 + (let ((__tmp276012 (let () (declare (not safe)) - (cons _E266691_ '()))) - (__tmp274810 + (cons _E267892_ '()))) + (__tmp276011 (let () (declare (not safe)) - (cons _negate266690_ + (cons _negate267891_ '())))) (declare (not safe)) - (cons __tmp274811 __tmp274810)))) + (cons __tmp276012 __tmp276011)))) (declare (not safe)) - (cons __tmp274809 '()))) - (__tmp274807 + (cons __tmp276010 '()))) + (__tmp276008 (let () (declare (not safe)) - (cons _L266626_ '())))) + (cons _L267827_ '())))) (declare (not safe)) - (cons __tmp274808 __tmp274807)))) + (cons __tmp276009 __tmp276008)))) (declare (not safe)) - (cons '%#let-values __tmp274806)))) + (cons '%#let-values __tmp276007)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp274805 _stx266129_))))) + (gxc#xform-wrap-source __tmp276006 _stx267330_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _negation266676266683_)) - (let ((_hd266680266696_ + (##pair? _negation267877267884_)) + (let ((_hd267881267897_ (let () (declare (not safe)) - (##car _negation266676266683_))) - (_tl266681266698_ + (##car _negation267877267884_))) + (_tl267882267899_ (let () (declare (not safe)) - (##cdr _negation266676266683_)))) - (let* ((_E266701_ - _hd266680266696_) - (_negate266703_ - _tl266681266698_)) + (##cdr _negation267877267884_)))) + (let* ((_E267902_ + _hd267881267897_) + (_negate267904_ + _tl267882267899_)) (declare (not safe)) - (_K266679266693_ - _negate266703_ - _E266701_))) + (_K267880267894_ + _negate267904_ + _E267902_))) (let () (declare (not safe)) - (_E266678266687_))))))) - (let ((_g266639266705_ + (_E267879267888_))))))) + (let ((_g267840267906_ (lambda () (if (let () (declare (not safe)) - (null? _clauses266252_)) - (___kont271840271841_) + (null? _clauses267453_)) + (___kont273041273042_) (let () (declare (not safe)) - (_g266640266670_)))))) + (_g267841267871_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx271836271837_)) - (let ((_e266647266710_ + ___stx273037273038_)) + (let ((_e267848267911_ (let () (declare (not safe)) (gx#stx-e - ___stx271836271837_)))) - (let ((_tl266645266715_ + ___stx273037273038_)))) + (let ((_tl267846267916_ (let () (declare (not safe)) - (##cdr _e266647266710_))) - (_hd266646266713_ + (##cdr _e267848267911_))) + (_hd267847267914_ (let () (declare (not safe)) - (##car _e266647266710_)))) + (##car _e267848267911_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266646266713_)) + _hd267847267914_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd266646266713_)) + _hd267847267914_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266645266715_)) - (let ((_e266650266718_ + _tl267846267916_)) + (let ((_e267851267919_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl266645266715_)))) - (let ((_tl266648266723_ + (gx#stx-e _tl267846267916_)))) + (let ((_tl267849267924_ (let () (declare (not safe)) - (##cdr _e266650266718_))) - (_hd266649266721_ + (##cdr _e267851267919_))) + (_hd267850267922_ (let () (declare (not safe)) - (##car _e266650266718_)))) + (##car _e267851267919_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266649266721_)) - (let ((_e266653266726_ + (gx#stx-pair? _hd267850267922_)) + (let ((_e267854267927_ (let () (declare (not safe)) - (gx#stx-e _hd266649266721_)))) - (let ((_tl266651266731_ + (gx#stx-e _hd267850267922_)))) + (let ((_tl267852267932_ (let () (declare (not safe)) - (##cdr _e266653266726_))) - (_hd266652266729_ + (##cdr _e267854267927_))) + (_hd267853267930_ (let () (declare (not safe)) - (##car _e266653266726_)))) + (##car _e267854267927_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266652266729_)) - (let ((_e266656266734_ + (gx#stx-pair? _hd267853267930_)) + (let ((_e267857267935_ (let () (declare (not safe)) - (gx#stx-e _hd266652266729_)))) - (let ((_tl266654266739_ + (gx#stx-e _hd267853267930_)))) + (let ((_tl267855267940_ (let () (declare (not safe)) - (##cdr _e266656266734_))) - (_hd266655266737_ + (##cdr _e267857267935_))) + (_hd267856267938_ (let () (declare (not safe)) - (##car _e266656266734_)))) + (##car _e267857267935_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266655266737_)) - (let ((_e266659266742_ + (gx#stx-pair? _hd267856267938_)) + (let ((_e267860267943_ (let () (declare (not safe)) (gx#stx-e - _hd266655266737_)))) - (let ((_tl266657266747_ + _hd267856267938_)))) + (let ((_tl267858267948_ (let () (declare (not safe)) - (##cdr _e266659266742_))) - (_hd266658266745_ + (##cdr _e267860267943_))) + (_hd267859267946_ (let () (declare (not safe)) - (##car _e266659266742_)))) + (##car _e267860267943_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266657266747_)) + _tl267858267948_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266654266739_)) - (let ((_e266662266750_ + _tl267855267940_)) + (let ((_e267863267951_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl266654266739_)))) - (let ((_tl266660266755_ - (let () (declare (not safe)) (##cdr _e266662266750_))) - (_hd266661266753_ + (gx#stx-e _tl267855267940_)))) + (let ((_tl267861267956_ + (let () (declare (not safe)) (##cdr _e267863267951_))) + (_hd267862267954_ (let () (declare (not safe)) - (##car _e266662266750_)))) + (##car _e267863267951_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266660266755_)) + (gx#stx-null? _tl267861267956_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl266651266731_)) + (gx#stx-null? _tl267852267932_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266648266723_)) - (let ((_e266665266758_ + (gx#stx-pair? _tl267849267924_)) + (let ((_e267866267959_ (let () (declare (not safe)) - (gx#stx-e _tl266648266723_)))) - (let ((_tl266663266763_ + (gx#stx-e _tl267849267924_)))) + (let ((_tl267864267964_ (let () (declare (not safe)) - (##cdr _e266665266758_))) - (_hd266664266761_ + (##cdr _e267866267959_))) + (_hd267865267962_ (let () (declare (not safe)) - (##car _e266665266758_)))) + (##car _e267866267959_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266663266763_)) - (___kont271838271839_ - _hd266664266761_ - _hd266661266753_ - _hd266658266745_) + (gx#stx-null? _tl267864267964_)) + (___kont273039273040_ + _hd267865267962_ + _hd267862267954_ + _hd267859267946_) (let () (declare (not safe)) - (_g266639266705_))))) + (_g267840267906_))))) (let () (declare (not safe)) - (_g266639266705_))) - (let () (declare (not safe)) (_g266639266705_))) - (let () (declare (not safe)) (_g266639266705_))))) - (let () (declare (not safe)) (_g266639266705_))) + (_g267840267906_))) + (let () (declare (not safe)) (_g267840267906_))) + (let () (declare (not safe)) (_g267840267906_))))) + (let () (declare (not safe)) (_g267840267906_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266639266705_))))) + (_g267840267906_))))) (let () (declare (not safe)) - (_g266639266705_))))) + (_g267840267906_))))) (let () (declare (not safe)) - (_g266639266705_))))) - (let () (declare (not safe)) (_g266639266705_))))) - (let () (declare (not safe)) (_g266639266705_))) - (let () (declare (not safe)) (_g266639266705_))) + (_g267840267906_))))) + (let () (declare (not safe)) (_g267840267906_))))) + (let () (declare (not safe)) (_g267840267906_))) + (let () (declare (not safe)) (_g267840267906_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266639266705_))))) + (_g267840267906_))))) (let () (declare (not safe)) - (_g266639266705_)))))))) - (___kont271904271905_ - (lambda (_L266357_ _L266358_ _L266359_) - (let* ((___stx271720271721_ _L266358_) - (_g266386266435_ + (_g267840267906_)))))))) + (___kont273105273106_ + (lambda (_L267558_ _L267559_ _L267560_) + (let* ((___stx272921272922_ _L267559_) + (_g267587267636_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271720271721_))))) - (let ((___kont271722271723_ - (lambda (_L266563_ - _L266564_ - _L266565_) - (let ((__tmp274815 - (let ((__tmp274816 - (let ((__tmp274817 + ___stx272921272922_))))) + (let ((___kont272923272924_ + (lambda (_L267764_ + _L267765_ + _L267766_) + (let ((__tmp276016 + (let ((__tmp276017 + (let ((__tmp276018 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274820 + (let ((__tmp276021 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp274818 - (let ((__tmp274819 + (__tmp276019 + (let ((__tmp276020 (let () (declare (not safe)) - (cons _L266563_ '())))) + (cons _L267764_ '())))) (declare (not safe)) - (cons '() __tmp274819)))) + (cons '() __tmp276020)))) (declare (not safe)) - (cons __tmp274820 __tmp274818)))) + (cons __tmp276021 __tmp276019)))) (declare (not safe)) - (cons _L266359_ __tmp274817)))) + (cons _L267560_ __tmp276018)))) (declare (not safe)) - (cons __tmp274816 _clauses266252_))) + (cons __tmp276017 _clauses267453_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp274812 - (let ((__tmp274813 - (let ((__tmp274814 + (__tmp276013 + (let ((__tmp276014 + (let ((__tmp276015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#compile-e__0 _L266564_)))) + (gxc#compile-e__0 _L267765_)))) (declare (not safe)) - (cons _L266565_ __tmp274814)))) + (cons _L267766_ __tmp276015)))) (declare (not safe)) - (cons __tmp274813 _konts266253_)))) + (cons __tmp276014 _konts267454_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp266248_ - _L266357_ - _negation266251_ - __tmp274815 - __tmp274812)))) - (___kont271724271725_ - (lambda (_L266464_) - (let ((__tmp274821 - (let ((__tmp274822 + (_lp267449_ + _L267558_ + _negation267452_ + __tmp276016 + __tmp276013)))) + (___kont272925272926_ + (lambda (_L267665_) + (let ((__tmp276022 + (let ((__tmp276023 (let () (declare (not safe)) (gxc#compile-e__0 - _L266464_)))) + _L267665_)))) (declare (not safe)) - (cons _L266359_ - __tmp274822)))) + (cons _L267560_ + __tmp276023)))) (declare (not safe)) - (_lp266248_ - _L266357_ - __tmp274821 - _clauses266252_ - _konts266253_))))) + (_lp267449_ + _L267558_ + __tmp276022 + _clauses267453_ + _konts267454_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx271720271721_)) - (let ((_e266393266483_ + (gx#stx-pair? ___stx272921272922_)) + (let ((_e267594267684_ (let () (declare (not safe)) (gx#stx-e - ___stx271720271721_)))) - (let ((_tl266391266488_ + ___stx272921272922_)))) + (let ((_tl267592267689_ (let () (declare (not safe)) - (##cdr _e266393266483_))) - (_hd266392266486_ + (##cdr _e267594267684_))) + (_hd267593267687_ (let () (declare (not safe)) - (##car _e266393266483_)))) + (##car _e267594267684_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266392266486_)) + _hd267593267687_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd266392266486_)) + _hd267593267687_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266391266488_)) - (let ((_e266396266491_ + _tl267592267689_)) + (let ((_e267597267692_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl266391266488_)))) - (let ((_tl266394266496_ + (gx#stx-e _tl267592267689_)))) + (let ((_tl267595267697_ (let () (declare (not safe)) - (##cdr _e266396266491_))) - (_hd266395266494_ + (##cdr _e267597267692_))) + (_hd267596267695_ (let () (declare (not safe)) - (##car _e266396266491_)))) + (##car _e267597267692_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd266395266494_)) + (gx#stx-null? _hd267596267695_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266394266496_)) - (let ((_e266399266499_ + (gx#stx-pair? _tl267595267697_)) + (let ((_e267600267700_ (let () (declare (not safe)) - (gx#stx-e _tl266394266496_)))) - (let ((_tl266397266504_ + (gx#stx-e _tl267595267697_)))) + (let ((_tl267598267705_ (let () (declare (not safe)) - (##cdr _e266399266499_))) - (_hd266398266502_ + (##cdr _e267600267700_))) + (_hd267599267703_ (let () (declare (not safe)) - (##car _e266399266499_)))) + (##car _e267600267700_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266398266502_)) - (let ((_e266402266507_ + (gx#stx-pair? _hd267599267703_)) + (let ((_e267603267708_ (let () (declare (not safe)) - (gx#stx-e _hd266398266502_)))) - (let ((_tl266400266512_ + (gx#stx-e _hd267599267703_)))) + (let ((_tl267601267713_ (let () (declare (not safe)) - (##cdr _e266402266507_))) - (_hd266401266510_ + (##cdr _e267603267708_))) + (_hd267602267711_ (let () (declare (not safe)) - (##car _e266402266507_)))) + (##car _e267603267708_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266401266510_)) + _hd267602267711_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd266401266510_)) + _hd267602267711_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266400266512_)) - (let ((_e266405266515_ + _tl267601267713_)) + (let ((_e267606267716_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl266400266512_)))) - (let ((_tl266403266520_ - (let () (declare (not safe)) (##cdr _e266405266515_))) - (_hd266404266518_ - (let () (declare (not safe)) (##car _e266405266515_)))) + (gx#stx-e _tl267601267713_)))) + (let ((_tl267604267721_ + (let () (declare (not safe)) (##cdr _e267606267716_))) + (_hd267605267719_ + (let () (declare (not safe)) (##car _e267606267716_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266404266518_)) - (let ((_e266408266523_ + (gx#stx-pair? _hd267605267719_)) + (let ((_e267609267724_ (let () (declare (not safe)) - (gx#stx-e _hd266404266518_)))) - (let ((_tl266406266528_ + (gx#stx-e _hd267605267719_)))) + (let ((_tl267607267729_ (let () (declare (not safe)) - (##cdr _e266408266523_))) - (_hd266407266526_ + (##cdr _e267609267724_))) + (_hd267608267727_ (let () (declare (not safe)) - (##car _e266408266523_)))) + (##car _e267609267724_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266407266526_)) - (let ((_e266411266531_ + (gx#stx-pair? _hd267608267727_)) + (let ((_e267612267732_ (let () (declare (not safe)) - (gx#stx-e _hd266407266526_)))) - (let ((_tl266409266536_ + (gx#stx-e _hd267608267727_)))) + (let ((_tl267610267737_ (let () (declare (not safe)) - (##cdr _e266411266531_))) - (_hd266410266534_ + (##cdr _e267612267732_))) + (_hd267611267735_ (let () (declare (not safe)) - (##car _e266411266531_)))) + (##car _e267612267732_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266410266534_)) - (let ((_e266414266539_ + (gx#stx-pair? _hd267611267735_)) + (let ((_e267615267740_ (let () (declare (not safe)) - (gx#stx-e _hd266410266534_)))) - (let ((_tl266412266544_ + (gx#stx-e _hd267611267735_)))) + (let ((_tl267613267745_ (let () (declare (not safe)) - (##cdr _e266414266539_))) - (_hd266413266542_ + (##cdr _e267615267740_))) + (_hd267614267743_ (let () (declare (not safe)) - (##car _e266414266539_)))) + (##car _e267615267740_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266412266544_)) + _tl267613267745_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266409266536_)) - (let ((_e266417266547_ + _tl267610267737_)) + (let ((_e267618267748_ (let () (declare (not safe)) (gx#stx-e - _tl266409266536_)))) - (let ((_tl266415266552_ + _tl267610267737_)))) + (let ((_tl267616267753_ (let () (declare (not safe)) - (##cdr _e266417266547_))) - (_hd266416266550_ + (##cdr _e267618267748_))) + (_hd267617267751_ (let () (declare (not safe)) - (##car _e266417266547_)))) + (##car _e267618267748_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266415266552_)) + _tl267616267753_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl266406266528_)) + (gx#stx-null? _tl267607267729_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266403266520_)) - (let ((_e266420266555_ + (gx#stx-pair? _tl267604267721_)) + (let ((_e267621267756_ (let () (declare (not safe)) - (gx#stx-e _tl266403266520_)))) - (let ((_tl266418266560_ + (gx#stx-e _tl267604267721_)))) + (let ((_tl267619267761_ (let () (declare (not safe)) - (##cdr _e266420266555_))) - (_hd266419266558_ + (##cdr _e267621267756_))) + (_hd267620267759_ (let () (declare (not safe)) - (##car _e266420266555_)))) + (##car _e267621267756_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266418266560_)) + (gx#stx-null? _tl267619267761_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl266397266504_)) - (___kont271722271723_ - _hd266419266558_ - _hd266416266550_ - _hd266413266542_) + (gx#stx-null? _tl267598267705_)) + (___kont272923272924_ + _hd267620267759_ + _hd267617267751_ + _hd267614267743_) (let () (declare (not safe)) - (_g266386266435_))) + (_g267587267636_))) (let () (declare (not safe)) - (_g266386266435_))))) - (let () (declare (not safe)) (_g266386266435_))) - (let () (declare (not safe)) (_g266386266435_))) - (let () (declare (not safe)) (_g266386266435_))))) + (_g267587267636_))))) + (let () (declare (not safe)) (_g267587267636_))) + (let () (declare (not safe)) (_g267587267636_))) + (let () (declare (not safe)) (_g267587267636_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266386266435_))) + (_g267587267636_))) (let () (declare (not safe)) - (_g266386266435_))))) + (_g267587267636_))))) (let () (declare (not safe)) - (_g266386266435_))))) + (_g267587267636_))))) (let () (declare (not safe)) - (_g266386266435_))))) - (let () (declare (not safe)) (_g266386266435_))))) - (let () (declare (not safe)) (_g266386266435_))) + (_g267587267636_))))) + (let () (declare (not safe)) (_g267587267636_))))) + (let () (declare (not safe)) (_g267587267636_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266386266435_))) + (_g267587267636_))) (let () (declare (not safe)) - (_g266386266435_))))) + (_g267587267636_))))) (let () (declare (not safe)) - (_g266386266435_))))) - (let () (declare (not safe)) (_g266386266435_))) - (let () (declare (not safe)) (_g266386266435_))))) - (let () (declare (not safe)) (_g266386266435_))) + (_g267587267636_))))) + (let () (declare (not safe)) (_g267587267636_))) + (let () (declare (not safe)) (_g267587267636_))))) + (let () (declare (not safe)) (_g267587267636_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _hd266392266486_)) + (gx#stx-eq? '%#begin-annotation _hd267593267687_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266391266488_)) - (let ((_e266427266448_ + (gx#stx-pair? _tl267592267689_)) + (let ((_e267628267649_ (let () (declare (not safe)) - (gx#stx-e _tl266391266488_)))) - (let ((_tl266425266453_ + (gx#stx-e _tl267592267689_)))) + (let ((_tl267626267654_ (let () (declare (not safe)) - (##cdr _e266427266448_))) - (_hd266426266451_ + (##cdr _e267628267649_))) + (_hd267627267652_ (let () (declare (not safe)) - (##car _e266427266448_)))) + (##car _e267628267649_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd266426266451_)) + (gx#identifier? _hd267627267652_)) (if (let () (declare (not safe)) - (gx#stx-eq? '@match-else _hd266426266451_)) + (gx#stx-eq? '@match-else _hd267627267652_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl266425266453_)) - (let ((_e266430266456_ + (gx#stx-pair? _tl267626267654_)) + (let ((_e267631267657_ (let () (declare (not safe)) - (gx#stx-e _tl266425266453_)))) - (let ((_tl266428266461_ + (gx#stx-e _tl267626267654_)))) + (let ((_tl267629267662_ (let () (declare (not safe)) - (##cdr _e266430266456_))) - (_hd266429266459_ + (##cdr _e267631267657_))) + (_hd267630267660_ (let () (declare (not safe)) - (##car _e266430266456_)))) + (##car _e267631267657_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266428266461_)) - (___kont271724271725_ - _hd266429266459_) + _tl267629267662_)) + (___kont272925272926_ + _hd267630267660_) (let () (declare (not safe)) - (_g266386266435_))))) + (_g267587267636_))))) (let () (declare (not safe)) - (_g266386266435_))) + (_g267587267636_))) (let () (declare (not safe)) - (_g266386266435_))) + (_g267587267636_))) (let () (declare (not safe)) - (_g266386266435_))))) - (let () (declare (not safe)) (_g266386266435_))) - (let () (declare (not safe)) (_g266386266435_)))) + (_g267587267636_))))) + (let () (declare (not safe)) (_g267587267636_))) + (let () (declare (not safe)) (_g267587267636_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266386266435_))))) + (_g267587267636_))))) (let () (declare (not safe)) - (_g266386266435_)))))))) + (_g267587267636_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx271900271901_)) - (let ((_e266261266602_ + (gx#stx-pair? ___stx273101273102_)) + (let ((_e267462267803_ (let () (declare (not safe)) - (gx#stx-e ___stx271900271901_)))) - (let ((_tl266259266607_ + (gx#stx-e ___stx273101273102_)))) + (let ((_tl267460267808_ (let () (declare (not safe)) - (##cdr _e266261266602_))) - (_hd266260266605_ + (##cdr _e267462267803_))) + (_hd267461267806_ (let () (declare (not safe)) - (##car _e266261266602_)))) + (##car _e267462267803_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd266260266605_)) + (gx#identifier? _hd267461267806_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _hd266260266605_)) + _hd267461267806_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266259266607_)) - (let ((_e266264266610_ + _tl267460267808_)) + (let ((_e267465267811_ (let () (declare (not safe)) (gx#stx-e - _tl266259266607_)))) - (let ((_tl266262266615_ + _tl267460267808_)))) + (let ((_tl267463267816_ (let () (declare (not safe)) - (##cdr _e266264266610_))) - (_hd266263266613_ + (##cdr _e267465267811_))) + (_hd267464267814_ (let () (declare (not safe)) - (##car _e266264266610_)))) + (##car _e267465267811_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd266263266613_)) + _hd267464267814_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _hd266263266613_)) + _hd267464267814_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl266262266615_)) - (let ((_e266267266618_ + (gx#stx-pair? _tl267463267816_)) + (let ((_e267468267819_ (let () (declare (not safe)) - (gx#stx-e _tl266262266615_)))) - (let ((_tl266265266623_ + (gx#stx-e _tl267463267816_)))) + (let ((_tl267466267824_ (let () (declare (not safe)) - (##cdr _e266267266618_))) - (_hd266266266621_ + (##cdr _e267468267819_))) + (_hd267467267822_ (let () (declare (not safe)) - (##car _e266267266618_)))) + (##car _e267468267819_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266265266623_)) - (___kont271902271903_ _hd266266266621_) + (gx#stx-null? _tl267466267824_)) + (___kont273103273104_ _hd267467267822_) (let () (declare (not safe)) - (_g266256266296_))))) - (let () (declare (not safe)) (_g266256266296_))) - (let () (declare (not safe)) (_g266256266296_))) - (let () (declare (not safe)) (_g266256266296_))))) + (_g267457267497_))))) + (let () (declare (not safe)) (_g267457267497_))) + (let () (declare (not safe)) (_g267457267497_))) + (let () (declare (not safe)) (_g267457267497_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266256266296_))) + (_g267457267497_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd266260266605_)) + _hd267461267806_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266259266607_)) - (let ((_e266276266309_ + _tl267460267808_)) + (let ((_e267477267510_ (let () (declare (not safe)) (gx#stx-e - _tl266259266607_)))) - (let ((_tl266274266314_ + _tl267460267808_)))) + (let ((_tl267475267515_ (let () (declare (not safe)) - (##cdr _e266276266309_))) - (_hd266275266312_ + (##cdr _e267477267510_))) + (_hd267476267513_ (let () (declare (not safe)) - (##car _e266276266309_)))) + (##car _e267477267510_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd266275266312_)) - (let ((_e266279266317_ + _hd267476267513_)) + (let ((_e267480267518_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd266275266312_)))) - (let ((_tl266277266322_ + (gx#stx-e _hd267476267513_)))) + (let ((_tl267478267523_ (let () (declare (not safe)) - (##cdr _e266279266317_))) - (_hd266278266320_ + (##cdr _e267480267518_))) + (_hd267479267521_ (let () (declare (not safe)) - (##car _e266279266317_)))) + (##car _e267480267518_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266278266320_)) - (let ((_e266282266325_ + (gx#stx-pair? _hd267479267521_)) + (let ((_e267483267526_ (let () (declare (not safe)) - (gx#stx-e _hd266278266320_)))) - (let ((_tl266280266330_ + (gx#stx-e _hd267479267521_)))) + (let ((_tl267481267531_ (let () (declare (not safe)) - (##cdr _e266282266325_))) - (_hd266281266328_ + (##cdr _e267483267526_))) + (_hd267482267529_ (let () (declare (not safe)) - (##car _e266282266325_)))) + (##car _e267483267526_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd266281266328_)) - (let ((_e266285266333_ + (gx#stx-pair? _hd267482267529_)) + (let ((_e267486267534_ (let () (declare (not safe)) - (gx#stx-e _hd266281266328_)))) - (let ((_tl266283266338_ + (gx#stx-e _hd267482267529_)))) + (let ((_tl267484267539_ (let () (declare (not safe)) - (##cdr _e266285266333_))) - (_hd266284266336_ + (##cdr _e267486267534_))) + (_hd267485267537_ (let () (declare (not safe)) - (##car _e266285266333_)))) + (##car _e267486267534_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266283266338_)) + (gx#stx-null? _tl267484267539_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266280266330_)) - (let ((_e266288266341_ + _tl267481267531_)) + (let ((_e267489267542_ (let () (declare (not safe)) (gx#stx-e - _tl266280266330_)))) - (let ((_tl266286266346_ + _tl267481267531_)))) + (let ((_tl267487267547_ (let () (declare (not safe)) - (##cdr _e266288266341_))) - (_hd266287266344_ + (##cdr _e267489267542_))) + (_hd267488267545_ (let () (declare (not safe)) - (##car _e266288266341_)))) + (##car _e267489267542_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl266286266346_)) + _tl267487267547_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl266277266322_)) + _tl267478267523_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl266274266314_)) - (let ((_e266291266349_ + (gx#stx-pair? _tl267475267515_)) + (let ((_e267492267550_ (let () (declare (not safe)) - (gx#stx-e _tl266274266314_)))) - (let ((_tl266289266354_ + (gx#stx-e _tl267475267515_)))) + (let ((_tl267490267555_ (let () (declare (not safe)) - (##cdr _e266291266349_))) - (_hd266290266352_ + (##cdr _e267492267550_))) + (_hd267491267553_ (let () (declare (not safe)) - (##car _e266291266349_)))) + (##car _e267492267550_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266289266354_)) - (___kont271904271905_ - _hd266290266352_ - _hd266287266344_ - _hd266284266336_) + (gx#stx-null? _tl267490267555_)) + (___kont273105273106_ + _hd267491267553_ + _hd267488267545_ + _hd267485267537_) (let () (declare (not safe)) - (_g266256266296_))))) - (let () (declare (not safe)) (_g266256266296_))) - (let () (declare (not safe)) (_g266256266296_))) - (let () (declare (not safe)) (_g266256266296_))))) + (_g267457267497_))))) + (let () (declare (not safe)) (_g267457267497_))) + (let () (declare (not safe)) (_g267457267497_))) + (let () (declare (not safe)) (_g267457267497_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266256266296_))) + (_g267457267497_))) (let () (declare (not safe)) - (_g266256266296_))))) + (_g267457267497_))))) (let () (declare (not safe)) - (_g266256266296_))))) - (let () (declare (not safe)) (_g266256266296_))))) - (let () (declare (not safe)) (_g266256266296_))))) + (_g267457267497_))))) + (let () (declare (not safe)) (_g267457267497_))))) + (let () (declare (not safe)) (_g267457267497_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266256266296_))) + (_g267457267497_))) (let () (declare (not safe)) - (_g266256266296_)))) + (_g267457267497_)))) (let () (declare (not safe)) - (_g266256266296_))))) + (_g267457267497_))))) (let () (declare (not safe)) - (_g266256266296_))))))) - _hd266155266217_ - _hd266152266209_ - _hd266149266201_) + (_g267457267497_))))))) + _hd267356267418_ + _hd267353267410_ + _hd267350267402_) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))))) + (_g267332267362_ _g267333267365_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266131266161_ - _g266132266164_))) + (_g267332267362_ + _g267333267365_))) (let () (declare (not safe)) - (_g266131266161_ - _g266132266164_))) + (_g267332267362_ + _g267333267365_))) (let () (declare (not safe)) - (_g266131266161_ - _g266132266164_))))) + (_g267332267362_ + _g267333267365_))))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))) + (_g267332267362_ _g267333267365_))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))))) + (_g267332267362_ _g267333267365_))))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))))) + (_g267332267362_ _g267333267365_))))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))))) + (_g267332267362_ _g267333267365_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266131266161_ - _g266132266164_))))) + (_g267332267362_ + _g267333267365_))))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))) + (_g267332267362_ _g267333267365_))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))) + (_g267332267362_ _g267333267365_))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_))))) + (_g267332267362_ _g267333267365_))))) (let () (declare (not safe)) - (_g266131266161_ _g266132266164_)))))) + (_g267332267362_ _g267333267365_)))))) (declare (not safe)) - (_g266130266827_ _stx266129_)))) + (_g267331268028_ _stx267330_)))) (define gxc#optimize-match-body - (lambda (_stx265835_ _negation265836_ _clauses265837_ _konts265838_) - (letrec ((_push-variables265840_ - (lambda (_clause266087_ _kont266088_) - (let ((_clause266089266099_ _clause266087_) - (_kont266090266101_ _kont266088_)) - (let* ((_E266092266105_ + (lambda (_stx267036_ _negation267037_ _clauses267038_ _konts267039_) + (letrec ((_push-variables267041_ + (lambda (_clause267288_ _kont267289_) + (let ((_clause267290267300_ _clause267288_) + (_kont267291267302_ _kont267289_)) + (let* ((_E267293267306_ (lambda () (error '"No clause matching" - _clause266089266099_ - _kont266090266101_))) - (_K266093266112_ - (lambda (_clause-lambda266108_ - _clause-name266109_ - _K266110_) - (let ((__tmp274823 + _clause267290267300_ + _kont267291267302_))) + (_K267294267313_ + (lambda (_clause-lambda267309_ + _clause-name267310_ + _K267311_) + (let ((__tmp276024 (let () (declare (not safe)) (gxc#apply-push-match-vars - _clause-lambda266108_ + _clause-lambda267309_ '() - _K266110_)))) + _K267311_)))) (declare (not safe)) - (cons _clause-name266109_ __tmp274823))))) + (cons _clause-name267310_ __tmp276024))))) (if (let () (declare (not safe)) - (##pair? _clause266089266099_)) - (let ((_hd266096266115_ + (##pair? _clause267290267300_)) + (let ((_hd267297267316_ (let () (declare (not safe)) - (##car _clause266089266099_))) - (_tl266097266117_ + (##car _clause267290267300_))) + (_tl267298267318_ (let () (declare (not safe)) - (##cdr _clause266089266099_)))) - (let* ((_clause-name266120_ _hd266096266115_) - (_clause-lambda266122_ _tl266097266117_)) + (##cdr _clause267290267300_)))) + (let* ((_clause-name267321_ _hd267297267316_) + (_clause-lambda267323_ _tl267298267318_)) (if (let () (declare (not safe)) - (##pair? _kont266090266101_)) - (let* ((_hd266094266124_ + (##pair? _kont267291267302_)) + (let* ((_hd267295267325_ (let () (declare (not safe)) - (##car _kont266090266101_))) - (_K266127_ _hd266094266124_)) + (##car _kont267291267302_))) + (_K267328_ _hd267295267325_)) (declare (not safe)) - (_K266093266112_ - _clause-lambda266122_ - _clause-name266120_ - _K266127_)) + (_K267294267313_ + _clause-lambda267323_ + _clause-name267321_ + _K267328_)) (let () (declare (not safe)) - (_E266092266105_))))) + (_E267293267306_))))) (let () (declare (not safe)) - (_E266092266105_))))))) - (_start-match265841_ - (lambda (_kont266021_) - (let* ((_g266023266039_ - (lambda (_g266024266036_) + (_E267293267306_))))))) + (_start-match267042_ + (lambda (_kont267222_) + (let* ((_g267224267240_ + (lambda (_g267225267237_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g266024266036_)))) - (_g266022266084_ - (lambda (_g266024266042_) + _g267225267237_)))) + (_g267223267285_ + (lambda (_g267225267243_) (if (let () (declare (not safe)) - (gx#stx-pair? _g266024266042_)) - (let ((_e266028266044_ + (gx#stx-pair? _g267225267243_)) + (let ((_e267229267245_ (let () (declare (not safe)) - (gx#stx-e _g266024266042_)))) - (let ((_hd266027266047_ + (gx#stx-e _g267225267243_)))) + (let ((_hd267228267248_ (let () (declare (not safe)) - (##car _e266028266044_))) - (_tl266026266049_ + (##car _e267229267245_))) + (_tl267227267250_ (let () (declare (not safe)) - (##cdr _e266028266044_)))) + (##cdr _e267229267245_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd266027266047_)) + (gx#identifier? _hd267228267248_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd266027266047_)) + _hd267228267248_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl266026266049_)) - (let ((_e266031266052_ + _tl267227267250_)) + (let ((_e267232267253_ (let () (declare (not safe)) (gx#stx-e - _tl266026266049_)))) - (let ((_hd266030266055_ + _tl267227267250_)))) + (let ((_hd267231267256_ (let () (declare (not safe)) - (##car _e266031266052_))) - (_tl266029266057_ + (##car _e267232267253_))) + (_tl267230267258_ (let () (declare (not safe)) - (##cdr _e266031266052_)))) + (##cdr _e267232267253_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd266030266055_)) + _hd267231267256_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl266029266057_)) - (let ((_e266034266060_ + (gx#stx-pair? _tl267230267258_)) + (let ((_e267235267261_ (let () (declare (not safe)) - (gx#stx-e _tl266029266057_)))) - (let ((_hd266033266063_ + (gx#stx-e _tl267230267258_)))) + (let ((_hd267234267264_ (let () (declare (not safe)) - (##car _e266034266060_))) - (_tl266032266065_ + (##car _e267235267261_))) + (_tl267233267266_ (let () (declare (not safe)) - (##cdr _e266034266060_)))) + (##cdr _e267235267261_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl266032266065_)) - ((lambda (_L266068_) _L266068_) _hd266033266063_) + (gx#stx-null? _tl267233267266_)) + ((lambda (_L267269_) _L267269_) _hd267234267264_) (let () (declare (not safe)) - (_g266023266039_ _g266024266042_))))) + (_g267224267240_ _g267225267243_))))) (let () (declare (not safe)) - (_g266023266039_ _g266024266042_))) + (_g267224267240_ _g267225267243_))) (let () (declare (not safe)) - (_g266023266039_ _g266024266042_))))) + (_g267224267240_ _g267225267243_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g266023266039_ - _g266024266042_))) + (_g267224267240_ + _g267225267243_))) (let () (declare (not safe)) - (_g266023266039_ - _g266024266042_))) + (_g267224267240_ + _g267225267243_))) (let () (declare (not safe)) - (_g266023266039_ - _g266024266042_))))) + (_g267224267240_ + _g267225267243_))))) (let () (declare (not safe)) - (_g266023266039_ _g266024266042_)))))) + (_g267224267240_ _g267225267243_)))))) (declare (not safe)) - (_g266022266084_ _kont266021_)))) - (_match-body265842_ - (lambda (_blocks265918_) - (let* ((_blocks265919265928_ _blocks265918_) - (_E265921265932_ + (_g267223267285_ _kont267222_)))) + (_match-body267043_ + (lambda (_blocks267119_) + (let* ((_blocks267120267129_ _blocks267119_) + (_E267122267133_ (lambda () (error '"No clause matching" - _blocks265919265928_))) - (_K265922266004_ - (lambda (_rest265935_ _start265936_) - (let _lp265938_ ((_rest265940_ _rest265935_) - (_body265941_ + _blocks267120267129_))) + (_K267123267205_ + (lambda (_rest267136_ _start267137_) + (let _lp267139_ ((_rest267141_ _rest267136_) + (_body267142_ (let () (declare (not safe)) - (_start-match265841_ - _start265936_)))) - (let* ((_rest265942265950_ _rest265940_) - (_else265944265958_ - (lambda () _body265941_)) - (_K265946265992_ - (lambda (_rest265961_ _block265962_) - (let* ((_block265963265970_ - _block265962_) - (_E265965265974_ + (_start-match267042_ + _start267137_)))) + (let* ((_rest267143267151_ _rest267141_) + (_else267145267159_ + (lambda () _body267142_)) + (_K267147267193_ + (lambda (_rest267162_ _block267163_) + (let* ((_block267164267171_ + _block267163_) + (_E267166267175_ (lambda () (error '"No clause matching" - _block265963265970_))) - (_K265966265980_ - (lambda (_kont265977_ - _K265978_) - (let ((__tmp274824 - (let ((__tmp274825 + _block267164267171_))) + (_K267167267181_ + (lambda (_kont267178_ + _K267179_) + (let ((__tmp276025 + (let ((__tmp276026 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274827 - (let ((__tmp274828 - (let ((__tmp274830 + (let ((__tmp276028 + (let ((__tmp276029 + (let ((__tmp276031 (let () (declare (not safe)) - (cons _K265978_ '()))) - (__tmp274829 + (cons _K267179_ '()))) + (__tmp276030 (let () (declare (not safe)) - (cons _kont265977_ '())))) + (cons _kont267178_ '())))) (declare (not safe)) - (cons __tmp274830 __tmp274829)))) + (cons __tmp276031 __tmp276030)))) (declare (not safe)) - (cons __tmp274828 '()))) - (__tmp274826 + (cons __tmp276029 '()))) + (__tmp276027 (let () (declare (not safe)) - (cons _body265941_ '())))) + (cons _body267142_ '())))) (declare (not safe)) - (cons __tmp274827 __tmp274826)))) + (cons __tmp276028 __tmp276027)))) (declare (not safe)) - (cons '%#let-values __tmp274825)))) + (cons '%#let-values __tmp276026)))) (declare (not safe)) - (_lp265938_ _rest265961_ __tmp274824))))) + (_lp267139_ _rest267162_ __tmp276025))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _block265963265970_)) - (let ((_hd265967265983_ + (##pair? _block267164267171_)) + (let ((_hd267168267184_ (let () (declare (not safe)) - (##car _block265963265970_))) - (_tl265968265985_ + (##car _block267164267171_))) + (_tl267169267186_ (let () (declare (not safe)) - (##cdr _block265963265970_)))) - (let* ((_K265988_ - _hd265967265983_) - (_kont265990_ - _tl265968265985_)) + (##cdr _block267164267171_)))) + (let* ((_K267189_ + _hd267168267184_) + (_kont267191_ + _tl267169267186_)) (declare (not safe)) - (_K265966265980_ - _kont265990_ - _K265988_))) + (_K267167267181_ + _kont267191_ + _K267189_))) (let () (declare (not safe)) - (_E265965265974_))))))) + (_E267166267175_))))))) (if (let () (declare (not safe)) - (##pair? _rest265942265950_)) - (let ((_hd265947265995_ + (##pair? _rest267143267151_)) + (let ((_hd267148267196_ (let () (declare (not safe)) - (##car _rest265942265950_))) - (_tl265948265997_ + (##car _rest267143267151_))) + (_tl267149267198_ (let () (declare (not safe)) - (##cdr _rest265942265950_)))) - (let* ((_block266000_ _hd265947265995_) - (_rest266002_ _tl265948265997_)) + (##cdr _rest267143267151_)))) + (let* ((_block267201_ _hd267148267196_) + (_rest267203_ _tl267149267198_)) (declare (not safe)) - (_K265946265992_ - _rest266002_ - _block266000_))) + (_K267147267193_ + _rest267203_ + _block267201_))) (let () (declare (not safe)) - (_else265944265958_)))))))) + (_else267145267159_)))))))) (if (let () (declare (not safe)) - (##pair? _blocks265919265928_)) - (let ((_hd265923266007_ + (##pair? _blocks267120267129_)) + (let ((_hd267124267208_ (let () (declare (not safe)) - (##car _blocks265919265928_))) - (_tl265924266009_ + (##car _blocks267120267129_))) + (_tl267125267210_ (let () (declare (not safe)) - (##cdr _blocks265919265928_)))) + (##cdr _blocks267120267129_)))) (if (let () (declare (not safe)) - (##pair? _hd265923266007_)) - (let ((_hd265925266012_ + (##pair? _hd267124267208_)) + (let ((_hd267126267213_ (let () (declare (not safe)) - (##car _hd265923266007_))) - (_tl265926266014_ + (##car _hd267124267208_))) + (_tl267127267215_ (let () (declare (not safe)) - (##cdr _hd265923266007_)))) + (##cdr _hd267124267208_)))) (if (let () (declare (not safe)) - (##eq? _hd265925266012_ '#f)) - (let* ((_start266017_ _tl265926266014_) - (_rest266019_ _tl265924266009_)) + (##eq? _hd267126267213_ '#f)) + (let* ((_start267218_ _tl267127267215_) + (_rest267220_ _tl267125267210_)) (declare (not safe)) - (_K265922266004_ - _rest266019_ - _start266017_)) + (_K267123267205_ + _rest267220_ + _start267218_)) (let () (declare (not safe)) - (_E265921265932_)))) + (_E267122267133_)))) (let () (declare (not safe)) - (_E265921265932_)))) - (let () (declare (not safe)) (_E265921265932_))))))) - (let ((__tmp274832 + (_E267122267133_)))) + (let () (declare (not safe)) (_E267122267133_))))))) + (let ((__tmp276033 (lambda () - (let* ((_clauses265845_ - (map _push-variables265840_ - _clauses265837_ - _konts265838_)) - (_blocks265847_ + (let* ((_clauses267046_ + (map _push-variables267041_ + _clauses267038_ + _konts267039_)) + (_blocks267048_ (let () (declare (not safe)) (gxc#optimize-match-basic-blocks - _clauses265845_))) - (_blocks265849_ + _clauses267046_))) + (_blocks267050_ (let () (declare (not safe)) (gxc#optimize-match-fold-basic-blocks - _blocks265847_))) - (_body265851_ + _blocks267048_))) + (_body267052_ (let () (declare (not safe)) - (_match-body265842_ _blocks265849_))) - (_bind265885_ - (map (lambda (_e265852265854_) - (let* ((_g265856265863_ _e265852265854_) - (_E265858265867_ + (_match-body267043_ _blocks267050_))) + (_bind267086_ + (map (lambda (_e267053267055_) + (let* ((_g267057267064_ _e267053267055_) + (_E267059267068_ (lambda () (error '"No clause matching" - _g265856265863_))) - (_K265859265873_ - (lambda (_kont265870_ _K265871_) - (let ((__tmp274834 + _g267057267064_))) + (_K267060267074_ + (lambda (_kont267071_ _K267072_) + (let ((__tmp276035 (let () (declare (not safe)) - (cons _K265871_ '()))) - (__tmp274833 + (cons _K267072_ '()))) + (__tmp276034 (let () (declare (not safe)) - (cons _kont265870_ '())))) + (cons _kont267071_ '())))) (declare (not safe)) - (cons __tmp274834 - __tmp274833))))) + (cons __tmp276035 + __tmp276034))))) (if (let () (declare (not safe)) - (##pair? _g265856265863_)) - (let ((_hd265860265876_ + (##pair? _g267057267064_)) + (let ((_hd267061267077_ (let () (declare (not safe)) - (##car _g265856265863_))) - (_tl265861265878_ + (##car _g267057267064_))) + (_tl267062267079_ (let () (declare (not safe)) - (##cdr _g265856265863_)))) - (let* ((_K265881_ _hd265860265876_) - (_kont265883_ - _tl265861265878_)) + (##cdr _g267057267064_)))) + (let* ((_K267082_ _hd267061267077_) + (_kont267084_ + _tl267062267079_)) (declare (not safe)) - (_K265859265873_ - _kont265883_ - _K265881_))) + (_K267060267074_ + _kont267084_ + _K267082_))) (let () (declare (not safe)) - (_E265858265867_))))) - _konts265838_)) - (_negate265915_ - (let* ((_negation265886265893_ _negation265836_) - (_E265888265897_ + (_E267059267068_))))) + _konts267039_)) + (_negate267116_ + (let* ((_negation267087267094_ _negation267037_) + (_E267089267098_ (lambda () (error '"No clause matching" - _negation265886265893_))) - (_K265889265903_ - (lambda (_kont265900_ _K265901_) - (let ((__tmp274836 + _negation267087267094_))) + (_K267090267104_ + (lambda (_kont267101_ _K267102_) + (let ((__tmp276037 (let () (declare (not safe)) - (cons _K265901_ '()))) - (__tmp274835 + (cons _K267102_ '()))) + (__tmp276036 (let () (declare (not safe)) - (cons _kont265900_ '())))) + (cons _kont267101_ '())))) (declare (not safe)) - (cons __tmp274836 __tmp274835))))) + (cons __tmp276037 __tmp276036))))) (if (let () (declare (not safe)) - (##pair? _negation265886265893_)) - (let ((_hd265890265906_ + (##pair? _negation267087267094_)) + (let ((_hd267091267107_ (let () (declare (not safe)) - (##car _negation265886265893_))) - (_tl265891265908_ + (##car _negation267087267094_))) + (_tl267092267109_ (let () (declare (not safe)) - (##cdr _negation265886265893_)))) - (let* ((_K265911_ _hd265890265906_) - (_kont265913_ _tl265891265908_)) + (##cdr _negation267087267094_)))) + (let* ((_K267112_ _hd267091267107_) + (_kont267114_ _tl267092267109_)) (declare (not safe)) - (_K265889265903_ _kont265913_ _K265911_))) + (_K267090267104_ _kont267114_ _K267112_))) (let () (declare (not safe)) - (_E265888265897_)))))) - (let ((__tmp274837 - (let ((__tmp274838 - (let ((__tmp274843 + (_E267089267098_)))))) + (let ((__tmp276038 + (let ((__tmp276039 + (let ((__tmp276044 (let () (declare (not safe)) - (cons _negate265915_ '()))) - (__tmp274839 - (let ((__tmp274840 - (let ((__tmp274841 - (let ((__tmp274842 + (cons _negate267116_ '()))) + (__tmp276040 + (let ((__tmp276041 + (let ((__tmp276042 + (let ((__tmp276043 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body265851_ '())))) + (cons _body267052_ '())))) (declare (not safe)) - (cons _bind265885_ __tmp274842)))) + (cons _bind267086_ __tmp276043)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp274841)))) + __tmp276042)))) (declare (not safe)) - (cons __tmp274840 '())))) + (cons __tmp276041 '())))) (declare (not safe)) - (cons __tmp274843 __tmp274839)))) + (cons __tmp276044 __tmp276040)))) (declare (not safe)) - (cons '%#let-values __tmp274838)))) + (cons '%#let-values __tmp276039)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp274837 _stx265835_))))) - (__tmp274831 - (let ((__obj274765 + (gxc#xform-wrap-source __tmp276038 _stx267036_))))) + (__tmp276032 + (let ((__obj275966 (let () (declare (not safe)) (##structure @@ -2182,2103 +2182,2103 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj274765) - __obj274765))) + (gx#local-context:::init! __obj275966) + __obj275966))) (declare (not safe)) (call-with-parameters - __tmp274832 + __tmp276033 gx#current-expander-context - __tmp274831))))) + __tmp276032))))) (define gxc#optimize-match-basic-blocks - (lambda (_clauses265795_) - (let _lp265797_ ((_rest265799_ _clauses265795_) (_blocks265800_ '())) - (let* ((_rest265801265809_ _rest265799_) - (_else265803265817_ (lambda () (reverse _blocks265800_))) - (_K265805265823_ - (lambda (_rest265820_ _clause265821_) - (let ((__tmp274844 + (lambda (_clauses266996_) + (let _lp266998_ ((_rest267000_ _clauses266996_) (_blocks267001_ '())) + (let* ((_rest267002267010_ _rest267000_) + (_else267004267018_ (lambda () (reverse _blocks267001_))) + (_K267006267024_ + (lambda (_rest267021_ _clause267022_) + (let ((__tmp276045 (let () (declare (not safe)) (gxc#optimize-match-lift-basic-blocks - _clause265821_ - _blocks265800_)))) + _clause267022_ + _blocks267001_)))) (declare (not safe)) - (_lp265797_ _rest265820_ __tmp274844))))) - (if (let () (declare (not safe)) (##pair? _rest265801265809_)) - (let ((_hd265806265826_ + (_lp266998_ _rest267021_ __tmp276045))))) + (if (let () (declare (not safe)) (##pair? _rest267002267010_)) + (let ((_hd267007267027_ (let () (declare (not safe)) - (##car _rest265801265809_))) - (_tl265807265828_ + (##car _rest267002267010_))) + (_tl267008267029_ (let () (declare (not safe)) - (##cdr _rest265801265809_)))) - (let* ((_clause265831_ _hd265806265826_) - (_rest265833_ _tl265807265828_)) + (##cdr _rest267002267010_)))) + (let* ((_clause267032_ _hd267007267027_) + (_rest267034_ _tl267008267029_)) (declare (not safe)) - (_K265805265823_ _rest265833_ _clause265831_))) - (let () (declare (not safe)) (_else265803265817_))))))) + (_K267006267024_ _rest267034_ _clause267032_))) + (let () (declare (not safe)) (_else267004267018_))))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_clause265139_ _blocks265140_) - (letrec ((_bind->args265142_ - (lambda (_bind265790_) - (let ((__tmp274845 - (lambda (_b265792_ _r265793_) - (let ((__tmp274846 - (let ((__tmp274847 - (let ((__tmp274848 (car _b265792_))) + (lambda (_clause266340_ _blocks266341_) + (letrec ((_bind->args266343_ + (lambda (_bind266991_) + (let ((__tmp276046 + (lambda (_b266993_ _r266994_) + (let ((__tmp276047 + (let ((__tmp276048 + (let ((__tmp276049 (car _b266993_))) (declare (not safe)) - (cons __tmp274848 '())))) + (cons __tmp276049 '())))) (declare (not safe)) - (cons '%#ref __tmp274847)))) + (cons '%#ref __tmp276048)))) (declare (not safe)) - (cons __tmp274846 _r265793_))))) + (cons __tmp276047 _r266994_))))) (declare (not safe)) - (foldl1 __tmp274845 '() _bind265790_)))) - (_create-block265143_ - (lambda (_body265739_ - _let-bind265740_ - _bind265741_ - _assert265742_) - (let* ((_id265744_ - (let ((__tmp274849 (gensym '__match))) + (foldl1 __tmp276046 '() _bind266991_)))) + (_create-block266344_ + (lambda (_body266940_ + _let-bind266941_ + _bind266942_ + _assert266943_) + (let* ((_id266945_ + (let ((__tmp276050 (gensym '__match))) (declare (not safe)) - (make-symbol__0 __tmp274849))) - (_id265746_ + (make-symbol__0 __tmp276050))) + (_id266947_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id265744_))) - (_g274850_ + (gx#core-quote-syntax__0 _id266945_))) + (_g276051_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id265746_))) - (_block265749_ - (let ((__tmp274851 - (let ((__tmp274852 - (let ((__tmp274853 + (gx#core-bind-runtime!__0 _id266947_))) + (_block266950_ + (let ((__tmp276052 + (let ((__tmp276053 + (let ((__tmp276054 (let () (declare (not safe)) - (cons _assert265742_ '())))) + (cons _assert266943_ '())))) (declare (not safe)) - (cons _bind265741_ __tmp274853)))) + (cons _bind266942_ __tmp276054)))) (declare (not safe)) - (cons _body265739_ __tmp274852)))) + (cons _body266940_ __tmp276053)))) (declare (not safe)) - (cons _id265746_ __tmp274851))) - (_continue265751_ - (let ((__tmp274854 - (let ((__tmp274856 - (let ((__tmp274857 + (cons _id266947_ __tmp276052))) + (_continue266952_ + (let ((__tmp276055 + (let ((__tmp276057 + (let ((__tmp276058 (let () (declare (not safe)) - (cons _id265746_ '())))) + (cons _id266947_ '())))) (declare (not safe)) - (cons '%#ref __tmp274857))) - (__tmp274855 + (cons '%#ref __tmp276058))) + (__tmp276056 (let () (declare (not safe)) - (_bind->args265142_ - _bind265741_)))) + (_bind->args266343_ + _bind266942_)))) (declare (not safe)) - (cons __tmp274856 __tmp274855)))) + (cons __tmp276057 __tmp276056)))) (declare (not safe)) - (cons '%#call __tmp274854))) - (_continue265787_ + (cons '%#call __tmp276055))) + (_continue266988_ (if (let () (declare (not safe)) - (null? _let-bind265740_)) - _continue265751_ - (let* ((_locals265785_ - (map (lambda (_e265752265754_) - (let* ((_g265756265763_ - _e265752265754_) - (_E265758265767_ + (null? _let-bind266941_)) + _continue266952_ + (let* ((_locals266986_ + (map (lambda (_e266953266955_) + (let* ((_g266957266964_ + _e266953266955_) + (_E266959266968_ (lambda () (error '"No clause matching" - _g265756265763_))) - (_K265759265773_ - (lambda (_expr265770_ - _id265771_) - (let ((__tmp274859 + _g266957266964_))) + (_K266960266974_ + (lambda (_expr266971_ + _id266972_) + (let ((__tmp276060 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _id265771_ '()))) - (__tmp274858 - (let () (declare (not safe)) (cons _expr265770_ '())))) + (cons _id266972_ '()))) + (__tmp276059 + (let () (declare (not safe)) (cons _expr266971_ '())))) (declare (not safe)) - (cons __tmp274859 __tmp274858))))) + (cons __tmp276060 __tmp276059))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _g265756265763_)) - (let ((_hd265760265776_ + (##pair? _g266957266964_)) + (let ((_hd266961266977_ (let () (declare (not safe)) - (##car _g265756265763_))) - (_tl265761265778_ + (##car _g266957266964_))) + (_tl266962266979_ (let () (declare (not safe)) - (##cdr _g265756265763_)))) - (let* ((_id265781_ - _hd265760265776_) - (_expr265783_ - _tl265761265778_)) + (##cdr _g266957266964_)))) + (let* ((_id266982_ + _hd266961266977_) + (_expr266984_ + _tl266962266979_)) (declare (not safe)) - (_K265759265773_ - _expr265783_ - _id265781_))) + (_K266960266974_ + _expr266984_ + _id266982_))) (let () (declare (not safe)) - (_E265758265767_))))) - _let-bind265740_)) - (__tmp274860 - (let ((__tmp274861 + (_E266959266968_))))) + _let-bind266941_)) + (__tmp276061 + (let ((__tmp276062 (let () (declare (not safe)) - (cons _continue265751_ '())))) + (cons _continue266952_ '())))) (declare (not safe)) - (cons _locals265785_ __tmp274861)))) + (cons _locals266986_ __tmp276062)))) (declare (not safe)) - (cons '%#let-values __tmp274860))))) - (values _continue265787_ _block265749_)))) - (_basic-block265144_ - (lambda (_body265325_ _bind265326_ _assert265327_) - (let* ((___stx272008272009_ _body265325_) - (_g265332265416_ + (cons '%#let-values __tmp276061))))) + (values _continue266988_ _block266950_)))) + (_basic-block266345_ + (lambda (_body266526_ _bind266527_ _assert266528_) + (let* ((___stx273209273210_ _body266526_) + (_g266533266617_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272008272009_))))) - (let ((___kont272010272011_ - (lambda (_L265675_ _L265676_ _L265677_) - (let ((_g274862_ - (let ((__tmp274864 - (let ((__tmp274865 + ___stx273209273210_))))) + (let ((___kont273211273212_ + (lambda (_L266876_ _L266877_ _L266878_) + (let ((_g276063_ + (let ((__tmp276065 + (let ((__tmp276066 (let () (declare (not safe)) - (cons _L265677_ '#t)))) + (cons _L266878_ '#t)))) (declare (not safe)) - (cons __tmp274865 - _assert265327_)))) + (cons __tmp276066 + _assert266528_)))) (declare (not safe)) - (_create-block265143_ - _L265676_ + (_create-block266344_ + _L266877_ '() - _bind265326_ - __tmp274864)))) + _bind266527_ + __tmp276065)))) (begin - (let ((_g274863_ + (let ((_g276064_ (let () (declare (not safe)) - (if (##values? _g274862_) - (##vector-length _g274862_) + (if (##values? _g276063_) + (##vector-length _g276063_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g274863_ 2))) + (##fx= _g276064_ 2))) (error "Context expects 2 values" - _g274863_))) - (let ((_k-continue265695_ + _g276064_))) + (let ((_k-continue266896_ (let () (declare (not safe)) - (##vector-ref _g274862_ 0))) - (_k-block265696_ + (##vector-ref _g276063_ 0))) + (_k-block266897_ (let () (declare (not safe)) - (##vector-ref _g274862_ 1)))) - (let* ((___stx271990271991_ _L265675_) - (_g265699265708_ + (##vector-ref _g276063_ 1)))) + (let* ((___stx273191273192_ _L266876_) + (_g266900266909_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx271990271991_))))) - (let ((___kont271992271993_ + ___stx273191273192_))))) + (let ((___kont273193273194_ (lambda () - (values (let ((__tmp274866 - (let ((__tmp274867 + (values (let ((__tmp276067 + (let ((__tmp276068 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274868 + (let ((__tmp276069 (let () (declare (not safe)) - (cons _L265675_ '())))) + (cons _L266876_ '())))) (declare (not safe)) - (cons _k-continue265695_ __tmp274868)))) + (cons _k-continue266896_ __tmp276069)))) (declare (not safe)) - (cons _L265677_ __tmp274867)))) + (cons _L266878_ __tmp276068)))) (declare (not safe)) - (cons '%#if __tmp274866)) - (let () (declare (not safe)) (cons _k-block265696_ '()))))) + (cons '%#if __tmp276067)) + (let () (declare (not safe)) (cons _k-block266897_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont271994271995_ + (___kont273195273196_ (lambda () - (let ((_g274869_ - (let ((__tmp274871 - (let ((__tmp274872 + (let ((_g276070_ + (let ((__tmp276072 + (let ((__tmp276073 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L265677_ '#f)))) + (cons _L266878_ '#f)))) (declare (not safe)) - (cons __tmp274872 _assert265327_)))) + (cons __tmp276073 _assert266528_)))) (declare (not safe)) - (_create-block265143_ - _L265675_ + (_create-block266344_ + _L266876_ '() - _bind265326_ - __tmp274871)))) + _bind266527_ + __tmp276072)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g274870_ + (let ((_g276071_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g274869_) - (##vector-length _g274869_) + _g276070_) + (##vector-length _g276070_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g274870_ 2))) - (error "Context expects 2 values" _g274870_))) + (if (not (let () (declare (not safe)) (##fx= _g276071_ 2))) + (error "Context expects 2 values" _g276071_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_e-continue265715_ + (let ((_e-continue266916_ (let () (declare (not safe)) (##vector-ref - _g274869_ + _g276070_ 0))) - (_e-block265716_ + (_e-block266917_ (let () (declare (not safe)) (##vector-ref - _g274869_ + _g276070_ 1)))) - (values (let ((__tmp274873 + (values (let ((__tmp276074 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274874 - (let ((__tmp274875 + (let ((__tmp276075 + (let ((__tmp276076 (let () (declare (not safe)) - (cons _e-continue265715_ '())))) + (cons _e-continue266916_ '())))) (declare (not safe)) - (cons _k-continue265695_ __tmp274875)))) + (cons _k-continue266896_ __tmp276076)))) (declare (not safe)) - (cons _L265677_ __tmp274874)))) + (cons _L266878_ __tmp276075)))) (declare (not safe)) - (cons '%#if __tmp274873)) - (let ((__tmp274876 + (cons '%#if __tmp276074)) + (let ((__tmp276077 (let () (declare (not safe)) - (cons _e-block265716_ '())))) + (cons _e-block266917_ '())))) (declare (not safe)) - (cons _k-block265696_ __tmp274876))))))))) + (cons _k-block266897_ __tmp276077))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx271990271991_)) - (let ((_e265703265723_ + ___stx273191273192_)) + (let ((_e266904266924_ (let () (declare (not safe)) (gx#stx-e - ___stx271990271991_)))) - (let ((_tl265701265728_ + ___stx273191273192_)))) + (let ((_tl266902266929_ (let () (declare (not safe)) - (##cdr _e265703265723_))) - (_hd265702265726_ + (##cdr _e266904266924_))) + (_hd266903266927_ (let () (declare (not safe)) - (##car _e265703265723_)))) + (##car _e266904266924_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd265702265726_)) + _hd266903266927_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd265702265726_)) - (___kont271992271993_) - (___kont271994271995_)) - (___kont271994271995_)))) - (___kont271994271995_))))))))) - (___kont272012272013_ - (lambda () (values _body265325_ '()))) - (___kont272016272017_ - (lambda (_L265504_ _L265505_ _L265506_) - (let* ((_let-bind265541_ + _hd266903266927_)) + (___kont273193273194_) + (___kont273195273196_)) + (___kont273195273196_)))) + (___kont273195273196_))))))))) + (___kont273213273214_ + (lambda () (values _body266526_ '()))) + (___kont273217273218_ + (lambda (_L266705_ _L266706_ _L266707_) + (let* ((_let-bind266742_ (map cons - (let ((__tmp274877 - (lambda (_g265526265529_ - _g265527265531_) + (let ((__tmp276078 + (lambda (_g266727266730_ + _g266728266732_) (let () (declare (not safe)) - (cons _g265526265529_ - _g265527265531_))))) + (cons _g266727266730_ + _g266728266732_))))) (declare (not safe)) - (foldr1 __tmp274877 + (foldr1 __tmp276078 '() - _L265506_)) - (let ((__tmp274878 - (lambda (_g265533265536_ - _g265534265538_) + _L266707_)) + (let ((__tmp276079 + (lambda (_g266734266737_ + _g266735266739_) (let () (declare (not safe)) - (cons _g265533265536_ - _g265534265538_))))) + (cons _g266734266737_ + _g266735266739_))))) (declare (not safe)) - (foldr1 __tmp274878 + (foldr1 __tmp276079 '() - _L265505_)))) - (_g274879_ - (let ((__tmp274881 + _L266706_)))) + (_g276080_ + (let ((__tmp276082 (let () (declare (not safe)) (foldl1 cons - _bind265326_ - _let-bind265541_)))) + _bind266527_ + _let-bind266742_)))) (declare (not safe)) - (_create-block265143_ - _L265504_ - _let-bind265541_ - __tmp274881 - _assert265327_)))) + (_create-block266344_ + _L266705_ + _let-bind266742_ + __tmp276082 + _assert266528_)))) (begin - (let ((_g274880_ + (let ((_g276081_ (let () (declare (not safe)) - (if (##values? _g274879_) - (##vector-length _g274879_) + (if (##values? _g276080_) + (##vector-length _g276080_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g274880_ 2))) + (##fx= _g276081_ 2))) (error "Context expects 2 values" - _g274880_))) - (let ((_continue265543_ + _g276081_))) + (let ((_continue266744_ (let () (declare (not safe)) - (##vector-ref _g274879_ 0))) - (_block265544_ + (##vector-ref _g276080_ 0))) + (_block266745_ (let () (declare (not safe)) - (##vector-ref _g274879_ 1)))) + (##vector-ref _g276080_ 1)))) (let () - (values _continue265543_ + (values _continue266744_ (let () (declare (not safe)) - (cons _block265544_ + (cons _block266745_ '()))))))))) - (___kont272020272021_ - (lambda () (values _body265325_ '())))) - (let* ((___match272099272100_ - (lambda (_e265385265428_ - _hd265384265431_ - _tl265383265433_ - _e265388265436_ - _hd265387265439_ - _tl265386265441_ - ___splice272018272019_ - _target265389265444_ - _tl265391265446_) - (letrec ((_loop265392265449_ - (lambda (_hd265390265452_ - _expr265396265454_ - _id265397265456_) + (___kont273221273222_ + (lambda () (values _body266526_ '())))) + (let* ((___match273300273301_ + (lambda (_e266586266629_ + _hd266585266632_ + _tl266584266634_ + _e266589266637_ + _hd266588266640_ + _tl266587266642_ + ___splice273219273220_ + _target266590266645_ + _tl266592266647_) + (letrec ((_loop266593266650_ + (lambda (_hd266591266653_ + _expr266597266655_ + _id266598266657_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd265390265452_)) - (let ((_e265393265459_ + _hd266591266653_)) + (let ((_e266594266660_ (let () (declare (not safe)) (gx#stx-e - _hd265390265452_)))) - (let ((_lp-tl265395265464_ + _hd266591266653_)))) + (let ((_lp-tl266596266665_ (let () (declare (not safe)) - (##cdr _e265393265459_))) - (_lp-hd265394265462_ + (##cdr _e266594266660_))) + (_lp-hd266595266663_ (let () (declare (not safe)) - (##car _e265393265459_)))) + (##car _e266594266660_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd265394265462_)) - (let ((_e265402265467_ + _lp-hd266595266663_)) + (let ((_e266603266668_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd265394265462_)))) - (let ((_tl265400265472_ + (gx#stx-e _lp-hd266595266663_)))) + (let ((_tl266601266673_ (let () (declare (not safe)) - (##cdr _e265402265467_))) - (_hd265401265470_ + (##cdr _e266603266668_))) + (_hd266602266671_ (let () (declare (not safe)) - (##car _e265402265467_)))) + (##car _e266603266668_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd265401265470_)) - (let ((_e265405265475_ + (gx#stx-pair? _hd266602266671_)) + (let ((_e266606266676_ (let () (declare (not safe)) - (gx#stx-e _hd265401265470_)))) - (let ((_tl265403265480_ + (gx#stx-e _hd266602266671_)))) + (let ((_tl266604266681_ (let () (declare (not safe)) - (##cdr _e265405265475_))) - (_hd265404265478_ + (##cdr _e266606266676_))) + (_hd266605266679_ (let () (declare (not safe)) - (##car _e265405265475_)))) + (##car _e266606266676_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265403265480_)) + (gx#stx-null? _tl266604266681_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265400265472_)) - (let ((_e265408265483_ + (gx#stx-pair? _tl266601266673_)) + (let ((_e266609266684_ (let () (declare (not safe)) - (gx#stx-e _tl265400265472_)))) - (let ((_tl265406265488_ + (gx#stx-e _tl266601266673_)))) + (let ((_tl266607266689_ (let () (declare (not safe)) - (##cdr _e265408265483_))) - (_hd265407265486_ + (##cdr _e266609266684_))) + (_hd266608266687_ (let () (declare (not safe)) - (##car _e265408265483_)))) + (##car _e266609266684_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl265406265488_)) - (let ((__tmp274883 + _tl266607266689_)) + (let ((__tmp276084 (let () (declare (not safe)) - (cons _hd265407265486_ - _expr265396265454_))) - (__tmp274882 + (cons _hd266608266687_ + _expr266597266655_))) + (__tmp276083 (let () (declare (not safe)) - (cons _hd265404265478_ - _id265397265456_)))) + (cons _hd266605266679_ + _id266598266657_)))) (declare (not safe)) - (_loop265392265449_ - _lp-tl265395265464_ - __tmp274883 - __tmp274882)) - (___kont272020272021_)))) - (___kont272020272021_)) - (___kont272020272021_)))) - (___kont272020272021_)))) - (___kont272020272021_)))) + (_loop266593266650_ + _lp-tl266596266665_ + __tmp276084 + __tmp276083)) + (___kont273221273222_)))) + (___kont273221273222_)) + (___kont273221273222_)))) + (___kont273221273222_)))) + (___kont273221273222_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id265399265493_ - (reverse _id265397265456_)) - (_expr265398265491_ - (reverse _expr265396265454_))) + (let ((_id266600266694_ + (reverse _id266598266657_)) + (_expr266599266692_ + (reverse _expr266597266655_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265386265441_)) - (let ((_e265411265496_ + _tl266587266642_)) + (let ((_e266612266697_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl265386265441_)))) - (let ((_tl265409265501_ - (let () (declare (not safe)) (##cdr _e265411265496_))) - (_hd265410265499_ + (gx#stx-e _tl266587266642_)))) + (let ((_tl266610266702_ + (let () (declare (not safe)) (##cdr _e266612266697_))) + (_hd266611266700_ (let () (declare (not safe)) - (##car _e265411265496_)))) + (##car _e266612266697_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265409265501_)) - (___kont272016272017_ - _hd265410265499_ - _expr265398265491_ - _id265399265493_) - (___kont272020272021_)))) - (___kont272020272021_))))))) + (gx#stx-null? _tl266610266702_)) + (___kont273217273218_ + _hd266611266700_ + _expr266599266692_ + _id266600266694_) + (___kont273221273222_)))) + (___kont273221273222_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop265392265449_ - _target265389265444_ + (_loop266593266650_ + _target266590266645_ '() '()))))) - (___match272075272076_ - (lambda (_e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_) - (letrec ((_loop265358265573_ - (lambda (_hd265356265576_) + (___match273276273277_ + (lambda (_e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_) + (letrec ((_loop266559266774_ + (lambda (_hd266557266777_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd265356265576_)) - (let ((_e265359265579_ + _hd266557266777_)) + (let ((_e266560266780_ (let () (declare (not safe)) (gx#stx-e - _hd265356265576_)))) - (let ((_lp-tl265361265584_ + _hd266557266777_)))) + (let ((_lp-tl266562266785_ (let () (declare (not safe)) - (##cdr _e265359265579_))) - (_lp-hd265360265582_ + (##cdr _e266560266780_))) + (_lp-hd266561266783_ (let () (declare (not safe)) - (##car _e265359265579_)))) + (##car _e266560266780_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd265360265582_)) - (let ((_e265364265587_ + _lp-hd266561266783_)) + (let ((_e266565266788_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd265360265582_)))) - (let ((_tl265362265592_ + (gx#stx-e _lp-hd266561266783_)))) + (let ((_tl266563266793_ (let () (declare (not safe)) - (##cdr _e265364265587_))) - (_hd265363265590_ + (##cdr _e266565266788_))) + (_hd266564266791_ (let () (declare (not safe)) - (##car _e265364265587_)))) + (##car _e266565266788_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd265363265590_)) - (let ((_e265367265595_ + (gx#stx-pair? _hd266564266791_)) + (let ((_e266568266796_ (let () (declare (not safe)) - (gx#stx-e _hd265363265590_)))) - (let ((_tl265365265600_ + (gx#stx-e _hd266564266791_)))) + (let ((_tl266566266801_ (let () (declare (not safe)) - (##cdr _e265367265595_))) - (_hd265366265598_ + (##cdr _e266568266796_))) + (_hd266567266799_ (let () (declare (not safe)) - (##car _e265367265595_)))) + (##car _e266568266796_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265365265600_)) + (gx#stx-null? _tl266566266801_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265362265592_)) - (let ((_e265370265603_ + (gx#stx-pair? _tl266563266793_)) + (let ((_e266571266804_ (let () (declare (not safe)) - (gx#stx-e _tl265362265592_)))) - (let ((_tl265368265608_ + (gx#stx-e _tl266563266793_)))) + (let ((_tl266569266809_ (let () (declare (not safe)) - (##cdr _e265370265603_))) - (_hd265369265606_ + (##cdr _e266571266804_))) + (_hd266570266807_ (let () (declare (not safe)) - (##car _e265370265603_)))) + (##car _e266571266804_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd265369265606_)) - (let ((_e265373265611_ + _hd266570266807_)) + (let ((_e266574266812_ (let () (declare (not safe)) (gx#stx-e - _hd265369265606_)))) - (let ((_tl265371265616_ + _hd266570266807_)))) + (let ((_tl266572266817_ (let () (declare (not safe)) - (##cdr _e265373265611_))) - (_hd265372265614_ + (##cdr _e266574266812_))) + (_hd266573266815_ (let () (declare (not safe)) - (##car _e265373265611_)))) + (##car _e266574266812_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd265372265614_)) + _hd266573266815_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd265372265614_)) + _hd266573266815_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl265371265616_)) - (let ((_e265376265619_ + (gx#stx-pair? _tl266572266817_)) + (let ((_e266577266820_ (let () (declare (not safe)) - (gx#stx-e _tl265371265616_)))) - (let ((_tl265374265624_ + (gx#stx-e _tl266572266817_)))) + (let ((_tl266575266825_ (let () (declare (not safe)) - (##cdr _e265376265619_))) - (_hd265375265622_ + (##cdr _e266577266820_))) + (_hd266576266823_ (let () (declare (not safe)) - (##car _e265376265619_)))) + (##car _e266577266820_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265374265624_)) + (gx#stx-null? _tl266575266825_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl265368265608_)) + (gx#stx-null? _tl266569266809_)) (let () (declare (not safe)) - (_loop265358265573_ _lp-tl265361265584_)) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)))) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)))) + (_loop266559266774_ _lp-tl266562266785_)) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)))) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)))) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)))) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)))) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)))) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)))) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)))) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)))) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (if (let () (declare (not safe)) (gx#stx-pair? - _tl265352265565_)) - (let ((_e265379265628_ + _tl266553266766_)) + (let ((_e266580266829_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl265352265565_)))) - (let ((_tl265377265633_ - (let () (declare (not safe)) (##cdr _e265379265628_))) - (_hd265378265631_ + (gx#stx-e _tl266553266766_)))) + (let ((_tl266578266834_ + (let () (declare (not safe)) (##cdr _e266580266829_))) + (_hd266579266832_ (let () (declare (not safe)) - (##car _e265379265628_)))) + (##car _e266580266829_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265377265633_)) - (___kont272012272013_) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_)))) - (___match272099272100_ - _e265351265552_ - _hd265350265555_ - _tl265349265557_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_))))))) + (gx#stx-null? _tl266578266834_)) + (___kont273213273214_) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_)))) + (___match273300273301_ + _e266552266753_ + _hd266551266756_ + _tl266550266758_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop265358265573_ - _target265355265568_)))))) + (_loop266559266774_ + _target266556266769_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx272008272009_)) - (let ((_e265339265643_ + (gx#stx-pair? ___stx273209273210_)) + (let ((_e266540266844_ (let () (declare (not safe)) - (gx#stx-e ___stx272008272009_)))) - (let ((_tl265337265648_ + (gx#stx-e ___stx273209273210_)))) + (let ((_tl266538266849_ (let () (declare (not safe)) - (##cdr _e265339265643_))) - (_hd265338265646_ + (##cdr _e266540266844_))) + (_hd266539266847_ (let () (declare (not safe)) - (##car _e265339265643_)))) + (##car _e266540266844_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd265338265646_)) + (gx#identifier? _hd266539266847_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd265338265646_)) + _hd266539266847_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265337265648_)) - (let ((_e265342265651_ + _tl266538266849_)) + (let ((_e266543266852_ (let () (declare (not safe)) (gx#stx-e - _tl265337265648_)))) - (let ((_tl265340265656_ + _tl266538266849_)))) + (let ((_tl266541266857_ (let () (declare (not safe)) - (##cdr _e265342265651_))) - (_hd265341265654_ + (##cdr _e266543266852_))) + (_hd266542266855_ (let () (declare (not safe)) - (##car _e265342265651_)))) + (##car _e266543266852_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265340265656_)) - (let ((_e265345265659_ + _tl266541266857_)) + (let ((_e266546266860_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl265340265656_)))) - (let ((_tl265343265664_ - (let () (declare (not safe)) (##cdr _e265345265659_))) - (_hd265344265662_ - (let () (declare (not safe)) (##car _e265345265659_)))) + (gx#stx-e _tl266541266857_)))) + (let ((_tl266544266865_ + (let () (declare (not safe)) (##cdr _e266546266860_))) + (_hd266545266863_ + (let () (declare (not safe)) (##car _e266546266860_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265343265664_)) - (let ((_e265348265667_ + (gx#stx-pair? _tl266544266865_)) + (let ((_e266549266868_ (let () (declare (not safe)) - (gx#stx-e _tl265343265664_)))) - (let ((_tl265346265672_ + (gx#stx-e _tl266544266865_)))) + (let ((_tl266547266873_ (let () (declare (not safe)) - (##cdr _e265348265667_))) - (_hd265347265670_ + (##cdr _e266549266868_))) + (_hd266548266871_ (let () (declare (not safe)) - (##car _e265348265667_)))) + (##car _e266549266868_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265346265672_)) - (___kont272010272011_ - _hd265347265670_ - _hd265344265662_ - _hd265341265654_) - (___kont272020272021_)))) - (___kont272020272021_)))) - (___kont272020272021_)))) + (gx#stx-null? _tl266547266873_)) + (___kont273211273212_ + _hd266548266871_ + _hd266545266863_ + _hd266542266855_) + (___kont273221273222_)))) + (___kont273221273222_)))) + (___kont273221273222_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272020272021_)) + (___kont273221273222_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd265338265646_)) + _hd266539266847_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265337265648_)) - (let ((_e265354265560_ + _tl266538266849_)) + (let ((_e266555266761_ (let () (declare (not safe)) (gx#stx-e - _tl265337265648_)))) - (let ((_tl265352265565_ + _tl266538266849_)))) + (let ((_tl266553266766_ (let () (declare (not safe)) - (##cdr _e265354265560_))) - (_hd265353265563_ + (##cdr _e266555266761_))) + (_hd266554266764_ (let () (declare (not safe)) - (##car _e265354265560_)))) + (##car _e266555266761_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd265353265563_)) - (let ((___splice272014272015_ + _hd266554266764_)) + (let ((___splice273215273216_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd265353265563_ '0)))) - (let ((_tl265357265570_ + (gx#syntax-split-splice _hd266554266764_ '0)))) + (let ((_tl266558266771_ (let () (declare (not safe)) - (##vector-ref ___splice272014272015_ '1))) - (_target265355265568_ + (##vector-ref ___splice273215273216_ '1))) + (_target266556266769_ (let () (declare (not safe)) - (##vector-ref ___splice272014272015_ '0)))) + (##vector-ref ___splice273215273216_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265357265570_)) - (___match272075272076_ - _e265339265643_ - _hd265338265646_ - _tl265337265648_ - _e265354265560_ - _hd265353265563_ - _tl265352265565_ - ___splice272014272015_ - _target265355265568_ - _tl265357265570_) - (___kont272020272021_)))) - (___kont272020272021_)))) + (gx#stx-null? _tl266558266771_)) + (___match273276273277_ + _e266540266844_ + _hd266539266847_ + _tl266538266849_ + _e266555266761_ + _hd266554266764_ + _tl266553266766_ + ___splice273215273216_ + _target266556266769_ + _tl266558266771_) + (___kont273221273222_)))) + (___kont273221273222_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272020272021_)) - (___kont272020272021_))) - (___kont272020272021_)))) - (___kont272020272021_))))))) - (_fold-blocks265145_ - (lambda (_rest265244_ _blocks265245_) - (let* ((_rest265246265263_ _rest265244_) - (_E265249265267_ + (___kont273221273222_)) + (___kont273221273222_))) + (___kont273221273222_)))) + (___kont273221273222_))))))) + (_fold-blocks266346_ + (lambda (_rest266445_ _blocks266446_) + (let* ((_rest266447266464_ _rest266445_) + (_E266450266468_ (lambda () (error '"No clause matching" - _rest265246265263_)))) - (let ((_K265251265287_ - (lambda (_rest265278_ - _assert265279_ - _bind265280_ - _body265281_ - _name265282_) - (let ((_g274884_ + _rest266447266464_)))) + (let ((_K266452266488_ + (lambda (_rest266479_ + _assert266480_ + _bind266481_ + _body266482_ + _name266483_) + (let ((_g276085_ (let () (declare (not safe)) - (_basic-block265144_ - _body265281_ - _bind265280_ - _assert265279_)))) + (_basic-block266345_ + _body266482_ + _bind266481_ + _assert266480_)))) (begin - (let ((_g274885_ + (let ((_g276086_ (let () (declare (not safe)) - (if (##values? _g274884_) - (##vector-length _g274884_) + (if (##values? _g276085_) + (##vector-length _g276085_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g274885_ 2))) + (##fx= _g276086_ 2))) (error "Context expects 2 values" - _g274885_))) - (let ((_body265284_ + _g276086_))) + (let ((_body266485_ (let () (declare (not safe)) - (##vector-ref _g274884_ 0))) - (_body-blocks265285_ + (##vector-ref _g276085_ 0))) + (_body-blocks266486_ (let () (declare (not safe)) - (##vector-ref _g274884_ 1)))) - (let ((__tmp274896 + (##vector-ref _g276085_ 1)))) + (let ((__tmp276097 (let () (declare (not safe)) (foldl1 cons - _rest265278_ - _body-blocks265285_))) - (__tmp274886 - (let ((__tmp274887 - (let ((__tmp274888 - (let ((__tmp274889 + _rest266479_ + _body-blocks266486_))) + (__tmp276087 + (let ((__tmp276088 + (let ((__tmp276089 + (let ((__tmp276090 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274892 - (let ((__tmp274893 - (let ((__tmp274895 - (reverse (map car _bind265280_))) - (__tmp274894 + (let ((__tmp276093 + (let ((__tmp276094 + (let ((__tmp276096 + (reverse (map car _bind266481_))) + (__tmp276095 (let () (declare (not safe)) - (cons _body265284_ '())))) + (cons _body266485_ '())))) (declare (not safe)) - (cons __tmp274895 __tmp274894)))) + (cons __tmp276096 __tmp276095)))) (declare (not safe)) - (cons '%#lambda __tmp274893))) - (__tmp274890 - (let ((__tmp274891 + (cons '%#lambda __tmp276094))) + (__tmp276091 + (let ((__tmp276092 (let () (declare (not safe)) - (cons _bind265280_ '())))) + (cons _bind266481_ '())))) (declare (not safe)) - (cons _assert265279_ __tmp274891)))) + (cons _assert266480_ __tmp276092)))) (declare (not safe)) - (cons __tmp274892 __tmp274890)))) + (cons __tmp276093 __tmp276091)))) (declare (not safe)) - (cons 'continue: __tmp274889)))) + (cons 'continue: __tmp276090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _name265282_ - __tmp274888)))) + (cons _name266483_ + __tmp276089)))) (declare (not safe)) - (cons __tmp274887 - _blocks265245_)))) + (cons __tmp276088 + _blocks266446_)))) (declare (not safe)) - (_fold-blocks265145_ - __tmp274896 - __tmp274886))))))) - (_K265250265272_ (lambda () _blocks265245_))) - (let ((_try-match265248265275_ + (_fold-blocks266346_ + __tmp276097 + __tmp276087))))))) + (_K266451266473_ (lambda () _blocks266446_))) + (let ((_try-match266449266476_ (lambda () (if (let () (declare (not safe)) - (##null? _rest265246265263_)) + (##null? _rest266447266464_)) (let () (declare (not safe)) - (_K265250265272_)) + (_K266451266473_)) (let () (declare (not safe)) - (_E265249265267_)))))) + (_E266450266468_)))))) (if (let () (declare (not safe)) - (##pair? _rest265246265263_)) - (let ((_tl265253265292_ + (##pair? _rest266447266464_)) + (let ((_tl266454266493_ (let () (declare (not safe)) - (##cdr _rest265246265263_))) - (_hd265252265290_ + (##cdr _rest266447266464_))) + (_hd266453266491_ (let () (declare (not safe)) - (##car _rest265246265263_)))) + (##car _rest266447266464_)))) (if (let () (declare (not safe)) - (##pair? _hd265252265290_)) - (let ((_tl265255265297_ + (##pair? _hd266453266491_)) + (let ((_tl266456266498_ (let () (declare (not safe)) - (##cdr _hd265252265290_))) - (_hd265254265295_ + (##cdr _hd266453266491_))) + (_hd266455266496_ (let () (declare (not safe)) - (##car _hd265252265290_)))) + (##car _hd266453266491_)))) (if (let () (declare (not safe)) - (##pair? _tl265255265297_)) - (let ((_tl265257265304_ + (##pair? _tl266456266498_)) + (let ((_tl266458266505_ (let () (declare (not safe)) - (##cdr _tl265255265297_))) - (_hd265256265302_ + (##cdr _tl266456266498_))) + (_hd266457266503_ (let () (declare (not safe)) - (##car _tl265255265297_)))) + (##car _tl266456266498_)))) (if (let () (declare (not safe)) - (##pair? _tl265257265304_)) - (let ((_tl265259265311_ + (##pair? _tl266458266505_)) + (let ((_tl266460266512_ (let () (declare (not safe)) - (##cdr _tl265257265304_))) - (_hd265258265309_ + (##cdr _tl266458266505_))) + (_hd266459266510_ (let () (declare (not safe)) - (##car _tl265257265304_)))) + (##car _tl266458266505_)))) (if (let () (declare (not safe)) - (##pair? _tl265259265311_)) - (let ((_tl265261265318_ + (##pair? _tl266460266512_)) + (let ((_tl266462266519_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl265259265311_))) - (_hd265260265316_ - (let () (declare (not safe)) (##car _tl265259265311_)))) - (if (let () (declare (not safe)) (##null? _tl265261265318_)) - (let ((_name265300_ _hd265254265295_) - (_body265307_ _hd265256265302_) - (_bind265314_ _hd265258265309_) - (_assert265321_ _hd265260265316_) - (_rest265323_ _tl265253265292_)) + (##cdr _tl266460266512_))) + (_hd266461266517_ + (let () (declare (not safe)) (##car _tl266460266512_)))) + (if (let () (declare (not safe)) (##null? _tl266462266519_)) + (let ((_name266501_ _hd266455266496_) + (_body266508_ _hd266457266503_) + (_bind266515_ _hd266459266510_) + (_assert266522_ _hd266461266517_) + (_rest266524_ _tl266454266493_)) (let () (declare (not safe)) - (_K265251265287_ - _rest265323_ - _assert265321_ - _bind265314_ - _body265307_ - _name265300_))) - (let () (declare (not safe)) (_E265249265267_)))) - (let () (declare (not safe)) (_E265249265267_)))) + (_K266452266488_ + _rest266524_ + _assert266522_ + _bind266515_ + _body266508_ + _name266501_))) + (let () (declare (not safe)) (_E266450266468_)))) + (let () (declare (not safe)) (_E266450266468_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E265249265267_)))) + (_E266450266468_)))) (let () (declare (not safe)) - (_E265249265267_)))) + (_E266450266468_)))) (let () (declare (not safe)) - (_E265249265267_)))) + (_E266450266468_)))) (let () (declare (not safe)) - (_try-match265248265275_))))))))) - (let* ((_clause265146265153_ _clause265139_) - (_E265148265157_ + (_try-match266449266476_))))))))) + (let* ((_clause266347266354_ _clause266340_) + (_E266349266358_ (lambda () - (error '"No clause matching" _clause265146265153_))) - (_K265149265232_ - (lambda (_body265160_ _name265161_) - (let* ((_g265163265179_ - (lambda (_g265164265176_) + (error '"No clause matching" _clause266347266354_))) + (_K266350266433_ + (lambda (_body266361_ _name266362_) + (let* ((_g266364266380_ + (lambda (_g266365266377_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265164265176_)))) - (_g265162265229_ - (lambda (_g265164265182_) + _g266365266377_)))) + (_g266363266430_ + (lambda (_g266365266383_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265164265182_)) - (let ((_e265168265184_ + (gx#stx-pair? _g266365266383_)) + (let ((_e266369266385_ (let () (declare (not safe)) - (gx#stx-e _g265164265182_)))) - (let ((_hd265167265187_ + (gx#stx-e _g266365266383_)))) + (let ((_hd266368266388_ (let () (declare (not safe)) - (##car _e265168265184_))) - (_tl265166265189_ + (##car _e266369266385_))) + (_tl266367266390_ (let () (declare (not safe)) - (##cdr _e265168265184_)))) + (##cdr _e266369266385_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd265167265187_)) + (gx#identifier? _hd266368266388_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd265167265187_)) + _hd266368266388_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl265166265189_)) - (let ((_e265171265192_ + _tl266367266390_)) + (let ((_e266372266393_ (let () (declare (not safe)) (gx#stx-e - _tl265166265189_)))) - (let ((_hd265170265195_ + _tl266367266390_)))) + (let ((_hd266371266396_ (let () (declare (not safe)) - (##car _e265171265192_))) - (_tl265169265197_ + (##car _e266372266393_))) + (_tl266370266398_ (let () (declare (not safe)) - (##cdr _e265171265192_)))) + (##cdr _e266372266393_)))) (if (let () (declare (not safe)) (gx#stx-null? - _hd265170265195_)) + _hd266371266396_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl265169265197_)) - (let ((_e265174265200_ + (gx#stx-pair? _tl266370266398_)) + (let ((_e266375266401_ (let () (declare (not safe)) - (gx#stx-e _tl265169265197_)))) - (let ((_hd265173265203_ + (gx#stx-e _tl266370266398_)))) + (let ((_hd266374266404_ (let () (declare (not safe)) - (##car _e265174265200_))) - (_tl265172265205_ + (##car _e266375266401_))) + (_tl266373266406_ (let () (declare (not safe)) - (##cdr _e265174265200_)))) + (##cdr _e266375266401_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265172265205_)) - ((lambda (_L265208_) - (let ((_g274897_ + (gx#stx-null? _tl266373266406_)) + ((lambda (_L266409_) + (let ((_g276098_ (let () (declare (not safe)) - (_basic-block265144_ - _L265208_ + (_basic-block266345_ + _L266409_ '() '())))) (begin - (let ((_g274898_ + (let ((_g276099_ (let () (declare (not safe)) - (if (##values? _g274897_) - (##vector-length _g274897_) + (if (##values? _g276098_) + (##vector-length _g276098_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g274898_ 2))) + (##fx= _g276099_ 2))) (error "Context expects 2 values" - _g274898_))) - (let ((_body265226_ + _g276099_))) + (let ((_body266427_ (let () (declare (not safe)) - (##vector-ref _g274897_ 0))) - (_body-blocks265227_ + (##vector-ref _g276098_ 0))) + (_body-blocks266428_ (let () (declare (not safe)) - (##vector-ref _g274897_ 1)))) - (let ((__tmp274899 - (let ((__tmp274900 - (let ((__tmp274901 - (let ((__tmp274902 + (##vector-ref _g276098_ 1)))) + (let ((__tmp276100 + (let ((__tmp276101 + (let ((__tmp276102 + (let ((__tmp276103 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274904 - (let ((__tmp274905 - (let ((__tmp274906 + (let ((__tmp276105 + (let ((__tmp276106 + (let ((__tmp276107 (let () (declare (not safe)) - (cons _body265226_ '())))) + (cons _body266427_ '())))) (declare (not safe)) - (cons '() __tmp274906)))) + (cons '() __tmp276107)))) (declare (not safe)) - (cons '%#lambda __tmp274905))) - (__tmp274903 + (cons '%#lambda __tmp276106))) + (__tmp276104 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp274904 __tmp274903)))) + (cons __tmp276105 __tmp276104)))) (declare (not safe)) - (cons 'restart: __tmp274902)))) + (cons 'restart: __tmp276103)))) (declare (not safe)) - (cons _name265161_ __tmp274901)))) + (cons _name266362_ __tmp276102)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp274900 - _blocks265140_)))) + (cons __tmp276101 + _blocks266341_)))) (declare (not safe)) - (_fold-blocks265145_ - _body-blocks265227_ - __tmp274899)))))) - _hd265173265203_) + (_fold-blocks266346_ + _body-blocks266428_ + __tmp276100)))))) + _hd266374266404_) (let () (declare (not safe)) - (_g265163265179_ _g265164265182_))))) + (_g266364266380_ _g266365266383_))))) (let () (declare (not safe)) - (_g265163265179_ _g265164265182_))) + (_g266364266380_ _g266365266383_))) (let () (declare (not safe)) - (_g265163265179_ _g265164265182_))))) + (_g266364266380_ _g266365266383_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g265163265179_ - _g265164265182_))) + (_g266364266380_ + _g266365266383_))) (let () (declare (not safe)) - (_g265163265179_ - _g265164265182_))) + (_g266364266380_ + _g266365266383_))) (let () (declare (not safe)) - (_g265163265179_ - _g265164265182_))))) + (_g266364266380_ + _g266365266383_))))) (let () (declare (not safe)) - (_g265163265179_ _g265164265182_)))))) + (_g266364266380_ _g266365266383_)))))) (declare (not safe)) - (_g265162265229_ _body265160_))))) - (if (let () (declare (not safe)) (##pair? _clause265146265153_)) - (let ((_hd265150265235_ + (_g266363266430_ _body266361_))))) + (if (let () (declare (not safe)) (##pair? _clause266347266354_)) + (let ((_hd266351266436_ (let () (declare (not safe)) - (##car _clause265146265153_))) - (_tl265151265237_ + (##car _clause266347266354_))) + (_tl266352266438_ (let () (declare (not safe)) - (##cdr _clause265146265153_)))) - (let* ((_name265240_ _hd265150265235_) - (_body265242_ _tl265151265237_)) + (##cdr _clause266347266354_)))) + (let* ((_name266441_ _hd266351266436_) + (_body266443_ _tl266352266438_)) (declare (not safe)) - (_K265149265232_ _body265242_ _name265240_))) - (let () (declare (not safe)) (_E265148265157_))))))) + (_K266350266433_ _body266443_ _name266441_))) + (let () (declare (not safe)) (_E266349266358_))))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_blocks264745_) - (let _lp264747_ ((_rest264749_ _blocks264745_) (_blocks264750_ '())) - (let* ((_rest264751264759_ _rest264749_) - (_else264753264808_ + (lambda (_blocks265946_) + (let _lp265948_ ((_rest265950_ _blocks265946_) (_blocks265951_ '())) + (let* ((_rest265952265960_ _rest265950_) + (_else265954266009_ (lambda () - (let ((__tmp274907 - (lambda (_block264767_ _r264768_) - (let* ((_block264769264780_ _block264767_) - (_E264771264784_ + (let ((__tmp276108 + (lambda (_block265968_ _r265969_) + (let* ((_block265970265981_ _block265968_) + (_E265972265985_ (lambda () (error '"No clause matching" - _block264769264780_))) - (_K264772264790_ - (lambda (_kont264787_ _name264788_) - (let ((__tmp274908 + _block265970265981_))) + (_K265973265991_ + (lambda (_kont265988_ _name265989_) + (let ((__tmp276109 (let () (declare (not safe)) - (cons _name264788_ - _kont264787_)))) + (cons _name265989_ + _kont265988_)))) (declare (not safe)) - (cons __tmp274908 _r264768_))))) + (cons __tmp276109 _r265969_))))) (if (let () (declare (not safe)) - (##pair? _block264769264780_)) - (let ((_hd264773264793_ + (##pair? _block265970265981_)) + (let ((_hd265974265994_ (let () (declare (not safe)) - (##car _block264769264780_))) - (_tl264774264795_ + (##car _block265970265981_))) + (_tl265975265996_ (let () (declare (not safe)) - (##cdr _block264769264780_)))) - (let ((_name264798_ _hd264773264793_)) + (##cdr _block265970265981_)))) + (let ((_name265999_ _hd265974265994_)) (if (let () (declare (not safe)) - (##pair? _tl264774264795_)) - (let ((_tl264776264800_ + (##pair? _tl265975265996_)) + (let ((_tl265977266001_ (let () (declare (not safe)) - (##cdr _tl264774264795_)))) + (##cdr _tl265975265996_)))) (if (let () (declare (not safe)) - (##pair? _tl264776264800_)) - (let* ((_hd264777264803_ + (##pair? _tl265977266001_)) + (let* ((_hd265978266004_ (let () (declare (not safe)) - (##car _tl264776264800_))) - (_kont264806_ - _hd264777264803_)) + (##car _tl265977266001_))) + (_kont266007_ + _hd265978266004_)) (declare (not safe)) - (_K264772264790_ - _kont264806_ - _name264798_)) + (_K265973265991_ + _kont266007_ + _name265999_)) (let () (declare (not safe)) - (_E264771264784_)))) + (_E265972265985_)))) (let () (declare (not safe)) - (_E264771264784_))))) + (_E265972265985_))))) (let () (declare (not safe)) - (_E264771264784_))))))) + (_E265972265985_))))))) (declare (not safe)) - (foldl1 __tmp274907 '() _blocks264750_)))) - (_K264755265127_ - (lambda (_rest264811_ _block264812_) - (let* ((_block264813264838_ _block264812_) - (_E264816264842_ + (foldl1 __tmp276108 '() _blocks265951_)))) + (_K265956266328_ + (lambda (_rest266012_ _block266013_) + (let* ((_block266014266039_ _block266013_) + (_E266017266043_ (lambda () (error '"No clause matching" - _block264813264838_)))) - (let ((_K264828265098_ - (lambda (_assert265020_ _kont265021_ _name265022_) - (let* ((_g265024265040_ - (lambda (_g265025265037_) + _block266014266039_)))) + (let ((_K266029266299_ + (lambda (_assert266221_ _kont266222_ _name266223_) + (let* ((_g266225266241_ + (lambda (_g266226266238_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g265025265037_)))) - (_g265023265095_ - (lambda (_g265025265043_) + _g266226266238_)))) + (_g266224266296_ + (lambda (_g266226266244_) (if (let () (declare (not safe)) - (gx#stx-pair? _g265025265043_)) - (let ((_e265029265045_ + (gx#stx-pair? _g266226266244_)) + (let ((_e266230266246_ (let () (declare (not safe)) (gx#stx-e - _g265025265043_)))) - (let ((_hd265028265048_ + _g266226266244_)))) + (let ((_hd266229266249_ (let () (declare (not safe)) - (##car _e265029265045_))) - (_tl265027265050_ + (##car _e266230266246_))) + (_tl266228266251_ (let () (declare (not safe)) - (##cdr _e265029265045_)))) + (##cdr _e266230266246_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd265028265048_)) + _hd266229266249_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd265028265048_)) + _hd266229266249_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl265027265050_)) - (let ((_e265032265053_ + (gx#stx-pair? _tl266228266251_)) + (let ((_e266233266254_ (let () (declare (not safe)) - (gx#stx-e _tl265027265050_)))) - (let ((_hd265031265056_ + (gx#stx-e _tl266228266251_)))) + (let ((_hd266232266257_ (let () (declare (not safe)) - (##car _e265032265053_))) - (_tl265030265058_ + (##car _e266233266254_))) + (_tl266231266259_ (let () (declare (not safe)) - (##cdr _e265032265053_)))) + (##cdr _e266233266254_)))) (if (let () (declare (not safe)) - (gx#stx-null? _hd265031265056_)) + (gx#stx-null? _hd266232266257_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl265030265058_)) - (let ((_e265035265061_ + (gx#stx-pair? _tl266231266259_)) + (let ((_e266236266262_ (let () (declare (not safe)) - (gx#stx-e _tl265030265058_)))) - (let ((_hd265034265064_ + (gx#stx-e _tl266231266259_)))) + (let ((_hd266235266265_ (let () (declare (not safe)) - (##car _e265035265061_))) - (_tl265033265066_ + (##car _e266236266262_))) + (_tl266234266267_ (let () (declare (not safe)) - (##cdr _e265035265061_)))) + (##cdr _e266236266262_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl265033265066_)) - ((lambda (_L265069_) - (let* ((_body265084_ + (gx#stx-null? _tl266234266267_)) + ((lambda (_L266270_) + (let* ((_body266285_ (let () (declare (not safe)) (gxc#optimize-match-block - _L265069_ - _assert265020_ + _L266270_ + _assert266221_ '() - _rest264811_))) - (_block265086_ - (let ((__tmp274909 - (let ((__tmp274910 + _rest266012_))) + (_block266287_ + (let ((__tmp276110 + (let ((__tmp276111 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274912 - (let ((__tmp274913 - (let ((__tmp274914 + (let ((__tmp276113 + (let ((__tmp276114 + (let ((__tmp276115 (let () (declare (not safe)) - (cons _body265084_ '())))) + (cons _body266285_ '())))) (declare (not safe)) - (cons '() __tmp274914)))) + (cons '() __tmp276115)))) (declare (not safe)) - (cons '%#lambda __tmp274913))) - (__tmp274911 + (cons '%#lambda __tmp276114))) + (__tmp276112 (let () (declare (not safe)) - (cons _assert265020_ '())))) + (cons _assert266221_ '())))) (declare (not safe)) - (cons __tmp274912 __tmp274911)))) + (cons __tmp276113 __tmp276112)))) (declare (not safe)) - (cons 'restart: __tmp274910)))) + (cons 'restart: __tmp276111)))) (declare (not safe)) - (cons _name265022_ __tmp274909))) + (cons _name266223_ __tmp276110))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_blocks265088_ + (_blocks266289_ (let () (declare (not safe)) - (cons _block265086_ - _blocks264750_))) - (_rest265090_ + (cons _block266287_ + _blocks265951_))) + (_rest266291_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest264811_ - _blocks265088_))) - (_rest265092_ + _rest266012_ + _blocks266289_))) + (_rest266293_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest265090_ - _blocks265088_)))) + _rest266291_ + _blocks266289_)))) (let () (declare (not safe)) - (_lp264747_ - _rest265092_ - _blocks265088_)))) - _hd265034265064_) + (_lp265948_ + _rest266293_ + _blocks266289_)))) + _hd266235266265_) (let () (declare (not safe)) - (_g265024265040_ - _g265025265043_))))) + (_g266225266241_ + _g266226266244_))))) (let () (declare (not safe)) - (_g265024265040_ _g265025265043_))) + (_g266225266241_ _g266226266244_))) (let () (declare (not safe)) - (_g265024265040_ _g265025265043_))))) + (_g266225266241_ _g266226266244_))))) (let () (declare (not safe)) - (_g265024265040_ _g265025265043_))) + (_g266225266241_ _g266226266244_))) (let () (declare (not safe)) - (_g265024265040_ _g265025265043_))) + (_g266225266241_ _g266226266244_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g265024265040_ - _g265025265043_))))) + (_g266225266241_ + _g266226266244_))))) (let () (declare (not safe)) - (_g265024265040_ - _g265025265043_)))))) + (_g266225266241_ + _g266226266244_)))))) (declare (not safe)) - (_g265023265095_ _kont265021_)))) - (_K264817264981_ - (lambda (_bind264846_ - _assert264847_ - _kont264848_ - _name264849_) - (let* ((_g264851264877_ - (lambda (_g264852264874_) + (_g266224266296_ _kont266222_)))) + (_K266018266182_ + (lambda (_bind266047_ + _assert266048_ + _kont266049_ + _name266050_) + (let* ((_g266052266078_ + (lambda (_g266053266075_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g264852264874_)))) - (_g264850264978_ - (lambda (_g264852264880_) + _g266053266075_)))) + (_g266051266179_ + (lambda (_g266053266081_) (if (let () (declare (not safe)) - (gx#stx-pair? _g264852264880_)) - (let ((_e264857264882_ + (gx#stx-pair? _g266053266081_)) + (let ((_e266058266083_ (let () (declare (not safe)) (gx#stx-e - _g264852264880_)))) - (let ((_hd264856264885_ + _g266053266081_)))) + (let ((_hd266057266086_ (let () (declare (not safe)) - (##car _e264857264882_))) - (_tl264855264887_ + (##car _e266058266083_))) + (_tl266056266088_ (let () (declare (not safe)) - (##cdr _e264857264882_)))) + (##cdr _e266058266083_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd264856264885_)) + _hd266057266086_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd264856264885_)) + _hd266057266086_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl264855264887_)) - (let ((_e264860264890_ + (gx#stx-pair? _tl266056266088_)) + (let ((_e266061266091_ (let () (declare (not safe)) - (gx#stx-e _tl264855264887_)))) - (let ((_hd264859264893_ + (gx#stx-e _tl266056266088_)))) + (let ((_hd266060266094_ (let () (declare (not safe)) - (##car _e264860264890_))) - (_tl264858264895_ + (##car _e266061266091_))) + (_tl266059266096_ (let () (declare (not safe)) - (##cdr _e264860264890_)))) + (##cdr _e266061266091_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd264859264893_)) - (let ((_g274915_ + (gx#stx-pair/null? _hd266060266094_)) + (let ((_g276116_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd264859264893_ + _hd266060266094_ '0)))) (begin - (let ((_g274916_ + (let ((_g276117_ (let () (declare (not safe)) - (if (##values? _g274915_) - (##vector-length _g274915_) + (if (##values? _g276116_) + (##vector-length _g276116_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g274916_ 2))) + (##fx= _g276117_ 2))) (error "Context expects 2 values" - _g274916_))) - (let ((_target264861264898_ + _g276117_))) + (let ((_target266062266099_ (let () (declare (not safe)) - (##vector-ref _g274915_ 0))) - (_tl264863264900_ + (##vector-ref _g276116_ 0))) + (_tl266064266101_ (let () (declare (not safe)) - (##vector-ref _g274915_ 1)))) + (##vector-ref _g276116_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264863264900_)) - (letrec ((_loop264864264903_ - (lambda (_hd264862264906_ - _id264868264908_) + (gx#stx-null? _tl266064266101_)) + (letrec ((_loop266065266104_ + (lambda (_hd266063266107_ + _id266069266109_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd264862264906_)) - (let ((_e264865264911_ + _hd266063266107_)) + (let ((_e266066266112_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd264862264906_)))) - (let ((_lp-hd264866264914_ - (let () (declare (not safe)) (##car _e264865264911_))) - (_lp-tl264867264916_ - (let () (declare (not safe)) (##cdr _e264865264911_)))) - (let ((__tmp274926 + (gx#stx-e _hd266063266107_)))) + (let ((_lp-hd266067266115_ + (let () (declare (not safe)) (##car _e266066266112_))) + (_lp-tl266068266117_ + (let () (declare (not safe)) (##cdr _e266066266112_)))) + (let ((__tmp276127 (let () (declare (not safe)) - (cons _lp-hd264866264914_ _id264868264908_)))) + (cons _lp-hd266067266115_ _id266069266109_)))) (declare (not safe)) - (_loop264864264903_ _lp-tl264867264916_ __tmp274926)))) - (let ((_id264869264919_ (reverse _id264868264908_))) + (_loop266065266104_ _lp-tl266068266117_ __tmp276127)))) + (let ((_id266070266120_ (reverse _id266069266109_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264858264895_)) - (let ((_e264872264922_ + (gx#stx-pair? _tl266059266096_)) + (let ((_e266073266123_ (let () (declare (not safe)) - (gx#stx-e _tl264858264895_)))) - (let ((_hd264871264925_ + (gx#stx-e _tl266059266096_)))) + (let ((_hd266072266126_ (let () (declare (not safe)) - (##car _e264872264922_))) - (_tl264870264927_ + (##car _e266073266123_))) + (_tl266071266128_ (let () (declare (not safe)) - (##cdr _e264872264922_)))) + (##cdr _e266073266123_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264870264927_)) - ((lambda (_L264930_ _L264931_) - (let* ((_body264960_ + (gx#stx-null? _tl266071266128_)) + ((lambda (_L266131_ _L266132_) + (let* ((_body266161_ (let () (declare (not safe)) (gxc#optimize-match-block - _L264930_ - _assert264847_ - _bind264846_ - _rest264811_))) - (_block264969_ - (let ((__tmp274917 - (let ((__tmp274918 - (let ((__tmp274921 - (let ((__tmp274922 + _L266131_ + _assert266048_ + _bind266047_ + _rest266012_))) + (_block266170_ + (let ((__tmp276118 + (let ((__tmp276119 + (let ((__tmp276122 + (let ((__tmp276123 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274924 - (let ((__tmp274925 - (lambda (_g264961264964_ - _g264962264966_) + (let ((__tmp276125 + (let ((__tmp276126 + (lambda (_g266162266165_ + _g266163266167_) (let () (declare (not safe)) - (cons _g264961264964_ - _g264962264966_))))) + (cons _g266162266165_ + _g266163266167_))))) (declare (not safe)) - (foldr1 __tmp274925 '() _L264931_))) - (__tmp274923 + (foldr1 __tmp276126 '() _L266132_))) + (__tmp276124 (let () (declare (not safe)) - (cons _body264960_ '())))) + (cons _body266161_ '())))) (declare (not safe)) - (cons __tmp274924 __tmp274923)))) + (cons __tmp276125 __tmp276124)))) (declare (not safe)) - (cons '%#lambda __tmp274922))) - (__tmp274919 - (let ((__tmp274920 + (cons '%#lambda __tmp276123))) + (__tmp276120 + (let ((__tmp276121 (let () (declare (not safe)) - (cons _bind264846_ '())))) + (cons _bind266047_ '())))) (declare (not safe)) - (cons _assert264847_ __tmp274920)))) + (cons _assert266048_ __tmp276121)))) (declare (not safe)) - (cons __tmp274921 __tmp274919)))) + (cons __tmp276122 __tmp276120)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'continue: - __tmp274918)))) + __tmp276119)))) (declare (not safe)) - (cons _name264849_ __tmp274917))) - (_blocks264971_ + (cons _name266050_ __tmp276118))) + (_blocks266172_ (let () (declare (not safe)) - (cons _block264969_ _blocks264750_))) - (_rest264973_ + (cons _block266170_ _blocks265951_))) + (_rest266174_ (let () (declare (not safe)) (gxc#optimize-match-prune-blocks - _rest264811_ - _blocks264971_))) - (_rest264975_ + _rest266012_ + _blocks266172_))) + (_rest266176_ (let () (declare (not safe)) (gxc#optimize-match-fuse-restart-blocks - _rest264973_ - _blocks264971_)))) + _rest266174_ + _blocks266172_)))) (let () (declare (not safe)) - (_lp264747_ _rest264975_ _blocks264971_)))) - _hd264871264925_ - _id264869264919_) + (_lp265948_ _rest266176_ _blocks266172_)))) + _hd266072266126_ + _id266070266120_) (let () (declare (not safe)) - (_g264851264877_ _g264852264880_))))) + (_g266052266078_ _g266053266081_))))) (let () (declare (not safe)) - (_g264851264877_ _g264852264880_)))))))) + (_g266052266078_ _g266053266081_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop264864264903_ - _target264861264898_ + (_loop266065266104_ + _target266062266099_ '()))) (let () (declare (not safe)) - (_g264851264877_ _g264852264880_)))))) + (_g266052266078_ _g266053266081_)))))) (let () (declare (not safe)) - (_g264851264877_ _g264852264880_))))) + (_g266052266078_ _g266053266081_))))) (let () (declare (not safe)) - (_g264851264877_ _g264852264880_))) + (_g266052266078_ _g266053266081_))) (let () (declare (not safe)) - (_g264851264877_ _g264852264880_))) + (_g266052266078_ _g266053266081_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g264851264877_ - _g264852264880_))))) + (_g266052266078_ + _g266053266081_))))) (let () (declare (not safe)) - (_g264851264877_ - _g264852264880_)))))) + (_g266052266078_ + _g266053266081_)))))) (declare (not safe)) - (_g264850264978_ _kont264848_))))) + (_g266051266179_ _kont266049_))))) (if (let () (declare (not safe)) - (##pair? _block264813264838_)) - (let ((_tl264830265103_ + (##pair? _block266014266039_)) + (let ((_tl266031266304_ (let () (declare (not safe)) - (##cdr _block264813264838_))) - (_hd264829265101_ + (##cdr _block266014266039_))) + (_hd266030266302_ (let () (declare (not safe)) - (##car _block264813264838_)))) + (##car _block266014266039_)))) (if (let () (declare (not safe)) - (##pair? _tl264830265103_)) - (let ((_tl264832265110_ + (##pair? _tl266031266304_)) + (let ((_tl266033266311_ (let () (declare (not safe)) - (##cdr _tl264830265103_))) - (_hd264831265108_ + (##cdr _tl266031266304_))) + (_hd266032266309_ (let () (declare (not safe)) - (##car _tl264830265103_)))) + (##car _tl266031266304_)))) (if (let () (declare (not safe)) - (##eq? _hd264831265108_ 'restart:)) + (##eq? _hd266032266309_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl264832265110_)) - (let ((_tl264834265115_ + (##pair? _tl266033266311_)) + (let ((_tl266035266316_ (let () (declare (not safe)) - (##cdr _tl264832265110_))) - (_hd264833265113_ + (##cdr _tl266033266311_))) + (_hd266034266314_ (let () (declare (not safe)) - (##car _tl264832265110_)))) + (##car _tl266033266311_)))) (if (let () (declare (not safe)) - (##pair? _tl264834265115_)) - (let ((_tl264836265122_ + (##pair? _tl266035266316_)) + (let ((_tl266037266323_ (let () (declare (not safe)) - (##cdr _tl264834265115_))) - (_hd264835265120_ + (##cdr _tl266035266316_))) + (_hd266036266321_ (let () (declare (not safe)) - (##car _tl264834265115_)))) + (##car _tl266035266316_)))) (if (let () (declare (not safe)) - (##null? _tl264836265122_)) - (let ((_name265106_ - _hd264829265101_) - (_kont265118_ - _hd264833265113_) - (_assert265125_ - _hd264835265120_)) + (##null? _tl266037266323_)) + (let ((_name266307_ + _hd266030266302_) + (_kont266319_ + _hd266034266314_) + (_assert266326_ + _hd266036266321_)) (let () (declare (not safe)) - (_K264828265098_ - _assert265125_ - _kont265118_ - _name265106_))) + (_K266029266299_ + _assert266326_ + _kont266319_ + _name266307_))) (let () (declare (not safe)) - (_E264816264842_)))) + (_E266017266043_)))) (let () (declare (not safe)) - (_E264816264842_)))) + (_E266017266043_)))) (let () (declare (not safe)) - (_E264816264842_))) + (_E266017266043_))) (if (let () (declare (not safe)) - (##eq? _hd264831265108_ + (##eq? _hd266032266309_ 'continue:)) (if (let () (declare (not safe)) - (##pair? _tl264832265110_)) - (let ((_tl264823264998_ + (##pair? _tl266033266311_)) + (let ((_tl266024266199_ (let () (declare (not safe)) - (##cdr _tl264832265110_))) - (_hd264822264996_ + (##cdr _tl266033266311_))) + (_hd266023266197_ (let () (declare (not safe)) - (##car _tl264832265110_)))) + (##car _tl266033266311_)))) (if (let () (declare (not safe)) - (##pair? _tl264823264998_)) - (let ((_tl264825265005_ + (##pair? _tl266024266199_)) + (let ((_tl266026266206_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _tl264823264998_))) - (_hd264824265003_ - (let () (declare (not safe)) (##car _tl264823264998_)))) - (if (let () (declare (not safe)) (##pair? _tl264825265005_)) - (let ((_tl264827265012_ + (##cdr _tl266024266199_))) + (_hd266025266204_ + (let () (declare (not safe)) (##car _tl266024266199_)))) + (if (let () (declare (not safe)) (##pair? _tl266026266206_)) + (let ((_tl266028266213_ (let () (declare (not safe)) - (##cdr _tl264825265005_))) - (_hd264826265010_ + (##cdr _tl266026266206_))) + (_hd266027266211_ (let () (declare (not safe)) - (##car _tl264825265005_)))) + (##car _tl266026266206_)))) (if (let () (declare (not safe)) - (##null? _tl264827265012_)) - (let ((_name264989_ _hd264829265101_) - (_kont265001_ _hd264822264996_) - (_assert265008_ _hd264824265003_) - (_bind265015_ _hd264826265010_)) + (##null? _tl266028266213_)) + (let ((_name266190_ _hd266030266302_) + (_kont266202_ _hd266023266197_) + (_assert266209_ _hd266025266204_) + (_bind266216_ _hd266027266211_)) (let () (declare (not safe)) - (_K264817264981_ - _bind265015_ - _assert265008_ - _kont265001_ - _name264989_))) - (let () (declare (not safe)) (_E264816264842_)))) - (let () (declare (not safe)) (_E264816264842_)))) - (let () (declare (not safe)) (_E264816264842_)))) + (_K266018266182_ + _bind266216_ + _assert266209_ + _kont266202_ + _name266190_))) + (let () (declare (not safe)) (_E266017266043_)))) + (let () (declare (not safe)) (_E266017266043_)))) + (let () (declare (not safe)) (_E266017266043_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E264816264842_))) + (_E266017266043_))) (let () (declare (not safe)) - (_E264816264842_))))) + (_E266017266043_))))) (let () (declare (not safe)) - (_E264816264842_)))) + (_E266017266043_)))) (let () (declare (not safe)) - (_E264816264842_)))))))) - (if (let () (declare (not safe)) (##pair? _rest264751264759_)) - (let ((_hd264756265130_ + (_E266017266043_)))))))) + (if (let () (declare (not safe)) (##pair? _rest265952265960_)) + (let ((_hd265957266331_ (let () (declare (not safe)) - (##car _rest264751264759_))) - (_tl264757265132_ + (##car _rest265952265960_))) + (_tl265958266333_ (let () (declare (not safe)) - (##cdr _rest264751264759_)))) - (let* ((_block265135_ _hd264756265130_) - (_rest265137_ _tl264757265132_)) + (##cdr _rest265952265960_)))) + (let* ((_block266336_ _hd265957266331_) + (_rest266338_ _tl265958266333_)) (declare (not safe)) - (_K264755265127_ _rest265137_ _block265135_))) - (let () (declare (not safe)) (_else264753264808_))))))) + (_K265956266328_ _rest266338_ _block266336_))) + (let () (declare (not safe)) (_else265954266009_))))))) (define gxc#optimize-match-block - (lambda (_body259378_ _assert259379_ _bind259380_ _blocks259381_) - (letrec* ((_env-assert259616_ '()) - (_env-type259617_ '()) - (_env-bind259618_ '()) - (_in-splice?259619_ '#f) - (_do-assert259620_ - (lambda (_assert264668_ _K264669_) - (if (let () (declare (not safe)) (pair? _assert264668_)) - (let _lp264671_ ((_rest264673_ _assert264668_) - (_env-assert264674_ - _env-assert259616_) - (_env-type264675_ _env-type259617_)) - (let* ((_rest264676264684_ _rest264673_) - (_else264678264692_ + (lambda (_body260579_ _assert260580_ _bind260581_ _blocks260582_) + (letrec* ((_env-assert260817_ '()) + (_env-type260818_ '()) + (_env-bind260819_ '()) + (_in-splice?260820_ '#f) + (_do-assert260821_ + (lambda (_assert265869_ _K265870_) + (if (let () (declare (not safe)) (pair? _assert265869_)) + (let _lp265872_ ((_rest265874_ _assert265869_) + (_env-assert265875_ + _env-assert260817_) + (_env-type265876_ _env-type260818_)) + (let* ((_rest265877265885_ _rest265874_) + (_else265879265893_ (lambda () (let () (declare (not safe)) - (_do-assert!259626_ - _env-assert264674_ - _env-type264675_ - _K264669_)))) - (_K264680264733_ - (lambda (_rest264695_ _assert264696_) - (let* ((_assert264697264704_ - _assert264696_) - (_E264699264708_ + (_do-assert!260827_ + _env-assert265875_ + _env-type265876_ + _K265870_)))) + (_K265881265934_ + (lambda (_rest265896_ _assert265897_) + (let* ((_assert265898265905_ + _assert265897_) + (_E265900265909_ (lambda () (error '"No clause matching" - _assert264697264704_))) - (_K264700264721_ - (lambda (_val264711_ _expr264712_) - (let* ((_sexpr264714_ + _assert265898265905_))) + (_K265901265922_ + (lambda (_val265912_ _expr265913_) + (let* ((_sexpr265915_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr264712_))) - (_env-assert264716_ - (let ((__tmp274927 + _expr265913_))) + (_env-assert265917_ + (let ((__tmp276128 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _sexpr264714_ _val264711_)))) + (cons _sexpr265915_ _val265912_)))) (declare (not safe)) - (cons __tmp274927 _env-assert264674_))) - (_env-type264718_ + (cons __tmp276128 _env-assert265875_))) + (_env-type265919_ (let () (declare (not safe)) - (_fold-assert-type259622_ - _expr264712_ - _val264711_ - _env-type264675_)))) + (_fold-assert-type260823_ + _expr265913_ + _val265912_ + _env-type265876_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp264671_ - _rest264695_ - _env-assert264716_ - _env-type264718_)))))) + (_lp265872_ + _rest265896_ + _env-assert265917_ + _env-type265919_)))))) (if (let () (declare (not safe)) - (##pair? _assert264697264704_)) - (let ((_hd264701264724_ + (##pair? _assert265898265905_)) + (let ((_hd265902265925_ (let () (declare (not safe)) - (##car _assert264697264704_))) - (_tl264702264726_ + (##car _assert265898265905_))) + (_tl265903265927_ (let () (declare (not safe)) - (##cdr _assert264697264704_)))) - (let* ((_expr264729_ - _hd264701264724_) - (_val264731_ - _tl264702264726_)) + (##cdr _assert265898265905_)))) + (let* ((_expr265930_ + _hd265902265925_) + (_val265932_ + _tl265903265927_)) (declare (not safe)) - (_K264700264721_ - _val264731_ - _expr264729_))) + (_K265901265922_ + _val265932_ + _expr265930_))) (let () (declare (not safe)) - (_E264699264708_))))))) + (_E265900265909_))))))) (if (let () (declare (not safe)) - (##pair? _rest264676264684_)) - (let ((_hd264681264736_ + (##pair? _rest265877265885_)) + (let ((_hd265882265937_ (let () (declare (not safe)) - (##car _rest264676264684_))) - (_tl264682264738_ + (##car _rest265877265885_))) + (_tl265883265939_ (let () (declare (not safe)) - (##cdr _rest264676264684_)))) - (let* ((_assert264741_ _hd264681264736_) - (_rest264743_ _tl264682264738_)) + (##cdr _rest265877265885_)))) + (let* ((_assert265942_ _hd265882265937_) + (_rest265944_ _tl265883265939_)) (declare (not safe)) - (_K264680264733_ - _rest264743_ - _assert264741_))) + (_K265881265934_ + _rest265944_ + _assert265942_))) (let () (declare (not safe)) - (_else264678264692_))))) - (_K264669_)))) - (_predicate-type259621_ - (lambda (_id264613_) - (let* ((_sym264615_ + (_else265879265893_))))) + (_K265870_)))) + (_predicate-type260822_ + (lambda (_id265814_) + (let* ((_sym265816_ (let () (declare (not safe)) - (gxc#identifier-symbol _id264613_))) - (_$e264617_ _sym264615_)) - (let ((_default264619264650_ + (gxc#identifier-symbol _id265814_))) + (_$e265818_ _sym265816_)) + (let ((_default265820265851_ (lambda () - (let* ((_g264622264629_ + (let* ((_g265823265830_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _sym264615_))) - (_else264624264637_ (lambda () '#f)) - (_K264626264642_ - (lambda (_t264640_) + _sym265816_))) + (_else265825265838_ (lambda () '#f)) + (_K265827265843_ + (lambda (_t265841_) (let () (declare (not safe)) (gxc#optimizer-resolve-type - _t264640_))))) + _t265841_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g264622264629_ + _g265823265830_ 'gxc#!predicate::t)) - (let* ((_e264627264645_ + (let* ((_e265828265846_ (let () (declare (not safe)) (##unchecked-structure-ref - _g264622264629_ + _g265823265830_ '1 gxc#!type::t '#f))) - (_t264648_ _e264627264645_)) + (_t265849_ _e265828265846_)) (declare (not safe)) - (gxc#optimizer-resolve-type _t264648_)) + (gxc#optimizer-resolve-type _t265849_)) (let () (declare (not safe)) - (_else264624264637_)))))) - (_table264620264652_ + (_else265825265838_)))))) + (_table265821265853_ '#(#f (##box? . 3) #f @@ -4342,50 +4342,50 @@ #f #f #f))) - (if (let () (declare (not safe)) (symbol? _$e264617_)) - (let* ((_h264655_ + (if (let () (declare (not safe)) (symbol? _$e265818_)) + (let* ((_h265856_ (let () (declare (not safe)) - (##symbol-hash _$e264617_))) - (_ix264658_ + (##symbol-hash _$e265818_))) + (_ix265859_ (let () (declare (not safe)) - (##fxmodulo _h264655_ '63))) - (_q264661_ + (##fxmodulo _h265856_ '63))) + (_q265862_ (let () (declare (not safe)) (##vector-ref - _table264620264652_ - _ix264658_)))) - (if _q264661_ - (if (let ((__tmp274928 + _table265821265853_ + _ix265859_)))) + (if _q265862_ + (if (let ((__tmp276129 (let () (declare (not safe)) - (##car _q264661_)))) + (##car _q265862_)))) (declare (not safe)) - (eq? __tmp274928 _$e264617_)) - (let ((_x264665_ + (eq? __tmp276129 _$e265818_)) + (let ((_x265866_ (let () (declare (not safe)) - (##cdr _q264661_)))) + (##cdr _q265862_)))) (if (let () (declare (not safe)) - (##fx< _x264665_ '5)) + (##fx< _x265866_ '5)) (if (let () (declare (not safe)) - (##fx< _x264665_ '2)) + (##fx< _x265866_ '2)) (if (let () (declare (not safe)) - (##fx= _x264665_ '0)) + (##fx= _x265866_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _x264665_ '2)) + (##fx= _x265866_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _x264665_ + (##fx= _x265866_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -4393,19 +4393,19 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _x264665_ '7)) + (##fx< _x265866_ '7)) (if (let () (declare (not safe)) - (##fx= _x264665_ '5)) + (##fx= _x265866_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _x264665_ '7)) + (##fx= _x265866_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _x264665_ + (##fx= _x265866_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box @@ -4413,5304 +4413,5304 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_default264619264650_))) + (_default265820265851_))) (let () (declare (not safe)) - (_default264619264650_)))) + (_default265820265851_)))) (let () (declare (not safe)) - (_default264619264650_))))))) - (_fold-assert-type259622_ - (lambda (_expr263561_ _val263562_ _env263563_) - (let* ((___stx272266272267_ _expr263561_) - (_g263571263750_ + (_default265820265851_))))))) + (_fold-assert-type260823_ + (lambda (_expr264762_ _val264763_ _env264764_) + (let* ((___stx273467273468_ _expr264762_) + (_g264772264951_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272266272267_))))) - (let ((___kont272268272269_ - (lambda (_L264582_ _L264583_) - (let ((_$e264605_ + ___stx273467273468_))))) + (let ((___kont273469273470_ + (lambda (_L265783_ _L265784_) + (let ((_$e265806_ (let () (declare (not safe)) - (_predicate-type259621_ _L264583_)))) - (if _$e264605_ - ((lambda (_t264608_) - (let ((__tmp274929 - (let ((__tmp274930 - (let ((__tmp274931 + (_predicate-type260822_ _L265784_)))) + (if _$e265806_ + ((lambda (_t265809_) + (let ((__tmp276130 + (let ((__tmp276131 + (let ((__tmp276132 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _val263562_ '())))) + (cons _val264763_ '())))) (declare (not safe)) - (cons _t264608_ __tmp274931)))) + (cons _t265809_ __tmp276132)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L264582_ - __tmp274930)))) + (cons _L265783_ + __tmp276131)))) (declare (not safe)) - (cons __tmp274929 _env263563_))) - _$e264605_) - _env263563_)))) - (___kont272270272271_ - (lambda (_L264272_ _L264273_ _L264274_) - (let ((_$e264299_ + (cons __tmp276130 _env264764_))) + _$e265806_) + _env264764_)))) + (___kont273471273472_ + (lambda (_L265473_ _L265474_ _L265475_) + (let ((_$e265500_ (let () (declare (not safe)) - (gxc#identifier-symbol _L264274_)))) + (gxc#identifier-symbol _L265475_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e264299_)) + (eq? '##fx= _$e265500_)) (let () (declare (not safe)) - (eq? 'fx= _$e264299_))) - (let* ((___stx272172272173_ _L264273_) - (_g264306264335_ + (eq? 'fx= _$e265500_))) + (let* ((___stx273373273374_ _L265474_) + (_g265507265536_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272172272173_))))) - (let ((___kont272174272175_ - (lambda (_L264403_ _L264404_) - (let ((_$e264429_ + ___stx273373273374_))))) + (let ((___kont273375273376_ + (lambda (_L265604_ _L265605_) + (let ((_$e265630_ (let () (declare (not safe)) - (_countf-symbol259623_ - _L264404_)))) - (if _$e264429_ - ((lambda (_sym264432_) - (let ((__tmp274937 + (_countf-symbol260824_ + _L265605_)))) + (if _$e265630_ + ((lambda (_sym265633_) + (let ((__tmp276138 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274938 - (let ((__tmp274939 - (let ((__tmp274941 + (let ((__tmp276139 + (let ((__tmp276140 + (let ((__tmp276142 (let () (declare (not safe)) - (gx#stx-e _L264272_))) - (__tmp274940 + (gx#stx-e _L265473_))) + (__tmp276141 (let () (declare (not safe)) - (cons _val263562_ '())))) + (cons _val264763_ '())))) (declare (not safe)) - (cons __tmp274941 __tmp274940)))) + (cons __tmp276142 __tmp276141)))) (declare (not safe)) - (cons _sym264432_ __tmp274939)))) + (cons _sym265633_ __tmp276140)))) (declare (not safe)) - (cons _L264403_ __tmp274938)))) + (cons _L265604_ __tmp276139)))) (declare (not safe)) - (cons __tmp274937 _env263563_))) - _$e264429_) - _env263563_)))) + (cons __tmp276138 _env264764_))) + _$e265630_) + _env264764_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272176272177_ - (lambda () _env263563_))) + (___kont273377273378_ + (lambda () _env264764_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx272172272173_)) - (let ((_e264312264347_ + ___stx273373273374_)) + (let ((_e265513265548_ (let () (declare (not safe)) (gx#stx-e - ___stx272172272173_)))) - (let ((_tl264310264352_ + ___stx273373273374_)))) + (let ((_tl265511265553_ (let () (declare (not safe)) - (##cdr _e264312264347_))) - (_hd264311264350_ + (##cdr _e265513265548_))) + (_hd265512265551_ (let () (declare (not safe)) - (##car _e264312264347_)))) + (##car _e265513265548_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd264311264350_)) + _hd265512265551_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd264311264350_)) + _hd265512265551_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl264310264352_)) - (let ((_e264315264355_ + (gx#stx-pair? _tl265511265553_)) + (let ((_e265516265556_ (let () (declare (not safe)) - (gx#stx-e _tl264310264352_)))) - (let ((_tl264313264360_ + (gx#stx-e _tl265511265553_)))) + (let ((_tl265514265561_ (let () (declare (not safe)) - (##cdr _e264315264355_))) - (_hd264314264358_ + (##cdr _e265516265556_))) + (_hd265515265559_ (let () (declare (not safe)) - (##car _e264315264355_)))) + (##car _e265516265556_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264314264358_)) - (let ((_e264318264363_ + (gx#stx-pair? _hd265515265559_)) + (let ((_e265519265564_ (let () (declare (not safe)) - (gx#stx-e _hd264314264358_)))) - (let ((_tl264316264368_ + (gx#stx-e _hd265515265559_)))) + (let ((_tl265517265569_ (let () (declare (not safe)) - (##cdr _e264318264363_))) - (_hd264317264366_ + (##cdr _e265519265564_))) + (_hd265518265567_ (let () (declare (not safe)) - (##car _e264318264363_)))) + (##car _e265519265564_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264317264366_)) + (gx#identifier? _hd265518265567_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd264317264366_)) + _hd265518265567_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264316264368_)) - (let ((_e264321264371_ + _tl265517265569_)) + (let ((_e265522265572_ (let () (declare (not safe)) (gx#stx-e - _tl264316264368_)))) - (let ((_tl264319264376_ + _tl265517265569_)))) + (let ((_tl265520265577_ (let () (declare (not safe)) - (##cdr _e264321264371_))) - (_hd264320264374_ + (##cdr _e265522265572_))) + (_hd265521265575_ (let () (declare (not safe)) - (##car _e264321264371_)))) + (##car _e265522265572_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264319264376_)) + _tl265520265577_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl264313264360_)) - (let ((_e264324264379_ + _tl265514265561_)) + (let ((_e265525265580_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl264313264360_)))) - (let ((_tl264322264384_ + (gx#stx-e _tl265514265561_)))) + (let ((_tl265523265585_ (let () (declare (not safe)) - (##cdr _e264324264379_))) - (_hd264323264382_ + (##cdr _e265525265580_))) + (_hd265524265583_ (let () (declare (not safe)) - (##car _e264324264379_)))) + (##car _e265525265580_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd264323264382_)) - (let ((_e264327264387_ + (gx#stx-pair? _hd265524265583_)) + (let ((_e265528265588_ (let () (declare (not safe)) - (gx#stx-e _hd264323264382_)))) - (let ((_tl264325264392_ + (gx#stx-e _hd265524265583_)))) + (let ((_tl265526265593_ (let () (declare (not safe)) - (##cdr _e264327264387_))) - (_hd264326264390_ + (##cdr _e265528265588_))) + (_hd265527265591_ (let () (declare (not safe)) - (##car _e264327264387_)))) + (##car _e265528265588_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264326264390_)) + (gx#identifier? _hd265527265591_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd264326264390_)) + (gx#stx-eq? '%#ref _hd265527265591_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264325264392_)) - (let ((_e264330264395_ + (gx#stx-pair? _tl265526265593_)) + (let ((_e265531265596_ (let () (declare (not safe)) (gx#stx-e - _tl264325264392_)))) - (let ((_tl264328264400_ + _tl265526265593_)))) + (let ((_tl265529265601_ (let () (declare (not safe)) - (##cdr _e264330264395_))) - (_hd264329264398_ + (##cdr _e265531265596_))) + (_hd265530265599_ (let () (declare (not safe)) - (##car _e264330264395_)))) + (##car _e265531265596_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl264328264400_)) + _tl265529265601_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl264322264384_)) - (___kont272174272175_ - _hd264329264398_ - _hd264320264374_) - (___kont272176272177_)) - (___kont272176272177_)))) - (___kont272176272177_)) - (___kont272176272177_)) - (___kont272176272177_)))) - (___kont272176272177_)))) - (___kont272176272177_)) - (___kont272176272177_)))) + _tl265523265585_)) + (___kont273375273376_ + _hd265530265599_ + _hd265521265575_) + (___kont273377273378_)) + (___kont273377273378_)))) + (___kont273377273378_)) + (___kont273377273378_)) + (___kont273377273378_)))) + (___kont273377273378_)))) + (___kont273377273378_)) + (___kont273377273378_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272176272177_)) - (___kont272176272177_)) - (___kont272176272177_)))) - (___kont272176272177_)))) - (___kont272176272177_)) - (___kont272176272177_)) - (___kont272176272177_)))) + (___kont273377273378_)) + (___kont273377273378_)) + (___kont273377273378_)))) + (___kont273377273378_)))) + (___kont273377273378_)) + (___kont273377273378_)) + (___kont273377273378_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272176272177_)))) + (___kont273377273378_)))) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e264299_)) + (eq? '##eq? _$e265500_)) (let () (declare (not safe)) - (eq? 'eq? _$e264299_)) + (eq? 'eq? _$e265500_)) (let () (declare (not safe)) - (eq? '##eqv? _$e264299_)) + (eq? '##eqv? _$e265500_)) (let () (declare (not safe)) - (eq? 'eqv? _$e264299_)) + (eq? 'eqv? _$e265500_)) (let () (declare (not safe)) - (eq? '##equal? _$e264299_)) + (eq? '##equal? _$e265500_)) (let () (declare (not safe)) - (eq? 'equal? _$e264299_)) + (eq? 'equal? _$e265500_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e264299_)) + _$e265500_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e264299_))) - ((lambda (_sym264458_) - (let* ((_sym264460_ + (eq? 'gx#stx-eq? _$e265500_))) + ((lambda (_sym265659_) + (let* ((_sym265661_ (let () (declare (not safe)) - (_eqf-symbol259624_ - _sym264458_))) - (___stx272240272241_ - _L264273_) - (_g264463264476_ + (_eqf-symbol260825_ + _sym265659_))) + (___stx273441273442_ + _L265474_) + (_g265664265677_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272240272241_))))) - (let ((___kont272242272243_ - (lambda (_L264504_) - (let ((__tmp274932 - (let ((__tmp274933 + ___stx273441273442_))))) + (let ((___kont273443273444_ + (lambda (_L265705_) + (let ((__tmp276133 + (let ((__tmp276134 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274934 - (let ((__tmp274936 + (let ((__tmp276135 + (let ((__tmp276137 (let () (declare (not safe)) - (gx#stx-e _L264272_))) - (__tmp274935 + (gx#stx-e _L265473_))) + (__tmp276136 (let () (declare (not safe)) - (cons _val263562_ '())))) + (cons _val264763_ '())))) (declare (not safe)) - (cons __tmp274936 __tmp274935)))) + (cons __tmp276137 __tmp276136)))) (declare (not safe)) - (cons _sym264460_ __tmp274934)))) + (cons _sym265661_ __tmp276135)))) (declare (not safe)) - (cons _L264504_ __tmp274933)))) + (cons _L265705_ __tmp276134)))) (declare (not safe)) - (cons __tmp274932 _env263563_)))) + (cons __tmp276133 _env264764_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272244272245_ - (lambda () _env263563_))) + (___kont273445273446_ + (lambda () _env264764_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx272240272241_)) - (let ((_e264468264488_ + ___stx273441273442_)) + (let ((_e265669265689_ (let () (declare (not safe)) (gx#stx-e - ___stx272240272241_)))) - (let ((_tl264466264493_ + ___stx273441273442_)))) + (let ((_tl265667265694_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e264468264488_))) - (_hd264467264491_ - (let () (declare (not safe)) (##car _e264468264488_)))) + (##cdr _e265669265689_))) + (_hd265668265692_ + (let () (declare (not safe)) (##car _e265669265689_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd264467264491_)) + (gx#identifier? _hd265668265692_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd264467264491_)) + (gx#stx-eq? '%#ref _hd265668265692_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl264466264493_)) - (let ((_e264471264496_ + (gx#stx-pair? _tl265667265694_)) + (let ((_e265672265697_ (let () (declare (not safe)) - (gx#stx-e _tl264466264493_)))) - (let ((_tl264469264501_ + (gx#stx-e _tl265667265694_)))) + (let ((_tl265670265702_ (let () (declare (not safe)) - (##cdr _e264471264496_))) - (_hd264470264499_ + (##cdr _e265672265697_))) + (_hd265671265700_ (let () (declare (not safe)) - (##car _e264471264496_)))) + (##car _e265672265697_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl264469264501_)) - (___kont272242272243_ _hd264470264499_) - (___kont272244272245_)))) - (___kont272244272245_)) - (___kont272244272245_)) - (___kont272244272245_)))) + (gx#stx-null? _tl265670265702_)) + (___kont273443273444_ _hd265671265700_) + (___kont273445273446_)))) + (___kont273445273446_)) + (___kont273445273446_)) + (___kont273445273446_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272244272245_))))) - _$e264299_) - _env263563_))))) - (___kont272272272273_ - (lambda (_L264176_ _L264177_ _L264178_) - (let ((__tmp274942 - (let ((__tmp274952 + (___kont273445273446_))))) + _$e265500_) + _env264764_))))) + (___kont273473273474_ + (lambda (_L265377_ _L265378_ _L265379_) + (let ((__tmp276143 + (let ((__tmp276153 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp274943 - (let ((__tmp274949 - (let ((__tmp274951 + (__tmp276144 + (let ((__tmp276150 + (let ((__tmp276152 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp274950 + (__tmp276151 (let () (declare (not safe)) - (cons _L264178_ + (cons _L265379_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp274951 __tmp274950))) + (cons __tmp276152 __tmp276151))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp274944 - (let ((__tmp274945 - (let ((__tmp274946 + (__tmp276145 + (let ((__tmp276146 + (let ((__tmp276147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp274948 + (let ((__tmp276149 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp274947 + (__tmp276148 (let () (declare (not safe)) - (cons _L264177_ '())))) + (cons _L265378_ '())))) (declare (not safe)) - (cons __tmp274948 __tmp274947)))) + (cons __tmp276149 __tmp276148)))) (declare (not safe)) - (cons __tmp274946 '())))) + (cons __tmp276147 '())))) (declare (not safe)) - (cons _L264176_ __tmp274945)))) + (cons _L265377_ __tmp276146)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp274949 - __tmp274944)))) + (cons __tmp276150 + __tmp276145)))) (declare (not safe)) - (cons __tmp274952 __tmp274943)))) + (cons __tmp276153 __tmp276144)))) (declare (not safe)) - (_fold-assert-type259622_ - __tmp274942 - _val263562_ - _env263563_)))) - (___kont272274272275_ - (lambda (_L264066_ _L264067_ _L264068_) - (let ((_$e264097_ + (_fold-assert-type260823_ + __tmp276143 + _val264763_ + _env264764_)))) + (___kont273475273476_ + (lambda (_L265267_ _L265268_ _L265269_) + (let ((_$e265298_ (let () (declare (not safe)) - (gxc#identifier-symbol _L264068_)))) + (gxc#identifier-symbol _L265269_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e264097_)) + _$e265298_)) (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e264097_))) - ((lambda (_sym264103_) - (let* ((_sym264105_ + (eq? 'gx#stx-eq? _$e265298_))) + ((lambda (_sym265304_) + (let* ((_sym265306_ (let () (declare (not safe)) - (_eqf-symbol259624_ - _sym264103_))) - (__tmp274953 - (let ((__tmp274954 - (let ((__tmp274955 - (let ((__tmp274956 + (_eqf-symbol260825_ + _sym265304_))) + (__tmp276154 + (let ((__tmp276155 + (let ((__tmp276156 + (let ((__tmp276157 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _val263562_ '())))) + (cons _val264763_ '())))) (declare (not safe)) - (cons _L264066_ __tmp274956)))) + (cons _L265267_ __tmp276157)))) (declare (not safe)) - (cons _sym264105_ __tmp274955)))) + (cons _sym265306_ __tmp276156)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L264067_ - __tmp274954)))) + (cons _L265268_ + __tmp276155)))) (declare (not safe)) - (cons __tmp274953 _env263563_))) - _$e264097_) - _env263563_)))) - (___kont272276272277_ - (lambda (_L263950_ _L263951_ _L263952_) - (let ((__tmp274957 - (let ((__tmp274970 + (cons __tmp276154 _env264764_))) + _$e265298_) + _env264764_)))) + (___kont273477273478_ + (lambda (_L265151_ _L265152_ _L265153_) + (let ((__tmp276158 + (let ((__tmp276171 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp274958 - (let ((__tmp274967 - (let ((__tmp274969 + (__tmp276159 + (let ((__tmp276168 + (let ((__tmp276170 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp274968 + (__tmp276169 (let () (declare (not safe)) - (cons _L263952_ + (cons _L265153_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp274969 __tmp274968))) + (cons __tmp276170 __tmp276169))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp274959 - (let ((__tmp274964 - (let ((__tmp274966 + (__tmp276160 + (let ((__tmp276165 + (let ((__tmp276167 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp274965 - (let () (declare (not safe)) (cons _L263950_ '())))) + (__tmp276166 + (let () (declare (not safe)) (cons _L265151_ '())))) (declare (not safe)) - (cons __tmp274966 __tmp274965))) - (__tmp274960 - (let ((__tmp274961 - (let ((__tmp274963 + (cons __tmp276167 __tmp276166))) + (__tmp276161 + (let ((__tmp276162 + (let ((__tmp276164 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp274962 + (__tmp276163 (let () (declare (not safe)) - (cons _L263951_ '())))) + (cons _L265152_ '())))) (declare (not safe)) - (cons __tmp274963 __tmp274962)))) + (cons __tmp276164 __tmp276163)))) (declare (not safe)) - (cons __tmp274961 '())))) + (cons __tmp276162 '())))) (declare (not safe)) - (cons __tmp274964 __tmp274960)))) + (cons __tmp276165 __tmp276161)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp274967 - __tmp274959)))) + (cons __tmp276168 + __tmp276160)))) (declare (not safe)) - (cons __tmp274970 __tmp274958)))) + (cons __tmp276171 __tmp276159)))) (declare (not safe)) - (_fold-assert-type259622_ - __tmp274957 - _val263562_ - _env263563_)))) - (___kont272278272279_ - (lambda (_L263834_ _L263835_ _L263836_) - (let ((__tmp274971 + (_fold-assert-type260823_ + __tmp276158 + _val264763_ + _env264764_)))) + (___kont273479273480_ + (lambda (_L265035_ _L265036_ _L265037_) + (let ((__tmp276172 (let () (declare (not safe)) (gxc#apply-expression-subst - _L263835_ - _L263836_ - _L263834_)))) + _L265036_ + _L265037_ + _L265035_)))) (declare (not safe)) - (_fold-assert-type259622_ - __tmp274971 - _val263562_ - _env263563_)))) - (___kont272280272281_ (lambda () _env263563_))) + (_fold-assert-type260823_ + __tmp276172 + _val264763_ + _env264764_)))) + (___kont273481273482_ (lambda () _env264764_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx272266272267_)) - (let ((_e263577264526_ + (gx#stx-pair? ___stx273467273468_)) + (let ((_e264778265727_ (let () (declare (not safe)) - (gx#stx-e ___stx272266272267_)))) - (let ((_tl263575264531_ + (gx#stx-e ___stx273467273468_)))) + (let ((_tl264776265732_ (let () (declare (not safe)) - (##cdr _e263577264526_))) - (_hd263576264529_ + (##cdr _e264778265727_))) + (_hd264777265730_ (let () (declare (not safe)) - (##car _e263577264526_)))) + (##car _e264778265727_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263576264529_)) + (gx#identifier? _hd264777265730_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd263576264529_)) + _hd264777265730_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263575264531_)) - (let ((_e263580264534_ + (gx#stx-pair? _tl264776265732_)) + (let ((_e264781265735_ (let () (declare (not safe)) (gx#stx-e - _tl263575264531_)))) - (let ((_tl263578264539_ + _tl264776265732_)))) + (let ((_tl264779265740_ (let () (declare (not safe)) - (##cdr _e263580264534_))) - (_hd263579264537_ + (##cdr _e264781265735_))) + (_hd264780265738_ (let () (declare (not safe)) - (##car _e263580264534_)))) + (##car _e264781265735_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263579264537_)) - (let ((_e263583264542_ + _hd264780265738_)) + (let ((_e264784265743_ (let () (declare (not safe)) (gx#stx-e - _hd263579264537_)))) - (let ((_tl263581264547_ + _hd264780265738_)))) + (let ((_tl264782265748_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e263583264542_))) - (_hd263582264545_ - (let () (declare (not safe)) (##car _e263583264542_)))) + (##cdr _e264784265743_))) + (_hd264783265746_ + (let () (declare (not safe)) (##car _e264784265743_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263582264545_)) + (gx#identifier? _hd264783265746_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd263582264545_)) + (gx#stx-eq? '%#ref _hd264783265746_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263581264547_)) - (let ((_e263586264550_ + (gx#stx-pair? _tl264782265748_)) + (let ((_e264787265751_ (let () (declare (not safe)) - (gx#stx-e _tl263581264547_)))) - (let ((_tl263584264555_ + (gx#stx-e _tl264782265748_)))) + (let ((_tl264785265756_ (let () (declare (not safe)) - (##cdr _e263586264550_))) - (_hd263585264553_ + (##cdr _e264787265751_))) + (_hd264786265754_ (let () (declare (not safe)) - (##car _e263586264550_)))) + (##car _e264787265751_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263584264555_)) + (gx#stx-null? _tl264785265756_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263578264539_)) - (let ((_e263589264558_ + (gx#stx-pair? _tl264779265740_)) + (let ((_e264790265759_ (let () (declare (not safe)) (gx#stx-e - _tl263578264539_)))) - (let ((_tl263587264563_ + _tl264779265740_)))) + (let ((_tl264788265764_ (let () (declare (not safe)) - (##cdr _e263589264558_))) - (_hd263588264561_ + (##cdr _e264790265759_))) + (_hd264789265762_ (let () (declare (not safe)) - (##car _e263589264558_)))) + (##car _e264790265759_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263588264561_)) - (let ((_e263592264566_ + _hd264789265762_)) + (let ((_e264793265767_ (let () (declare (not safe)) (gx#stx-e - _hd263588264561_)))) - (let ((_tl263590264571_ + _hd264789265762_)))) + (let ((_tl264791265772_ (let () (declare (not safe)) - (##cdr _e263592264566_))) - (_hd263591264569_ + (##cdr _e264793265767_))) + (_hd264792265770_ (let () (declare (not safe)) - (##car _e263592264566_)))) + (##car _e264793265767_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd263591264569_)) + (gx#stx-eq? '%#ref _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263595264574_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264796265775_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263593264579_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264794265780_ (let () (declare (not safe)) - (##cdr _e263595264574_))) - (_hd263594264577_ + (##cdr _e264796265775_))) + (_hd264795265778_ (let () (declare (not safe)) - (##car _e263595264574_)))) + (##car _e264796265775_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263593264579_)) + (gx#stx-null? _tl264794265780_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263587264563_)) - (___kont272268272269_ - _hd263594264577_ - _hd263585264553_) + (gx#stx-null? _tl264788265764_)) + (___kont273469273470_ + _hd264795265778_ + _hd264786265754_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263587264563_)) - (let ((_e263616264248_ + (gx#stx-pair? _tl264788265764_)) + (let ((_e264817265449_ (let () (declare (not safe)) (gx#stx-e - _tl263587264563_)))) - (let ((_tl263614264253_ + _tl264788265764_)))) + (let ((_tl264815265454_ (let () (declare (not safe)) - (##cdr _e263616264248_))) - (_hd263615264251_ + (##cdr _e264817265449_))) + (_hd264816265452_ (let () (declare (not safe)) - (##car _e263616264248_)))) + (##car _e264817265449_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd263615264251_)) - (let ((_e263619264256_ + _hd264816265452_)) + (let ((_e264820265457_ (let () (declare (not safe)) (gx#stx-e - _hd263615264251_)))) - (let ((_tl263617264261_ + _hd264816265452_)))) + (let ((_tl264818265462_ (let () (declare (not safe)) - (##cdr _e263619264256_))) - (_hd263618264259_ + (##cdr _e264820265457_))) + (_hd264819265460_ (let () (declare (not safe)) - (##car _e263619264256_)))) + (##car _e264820265457_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263618264259_)) + _hd264819265460_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd263618264259_)) + (gx#stx-eq? '%#quote _hd264819265460_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263617264261_)) - (let ((_e263622264264_ + (gx#stx-pair? _tl264818265462_)) + (let ((_e264823265465_ (let () (declare (not safe)) - (gx#stx-e _tl263617264261_)))) - (let ((_tl263620264269_ + (gx#stx-e _tl264818265462_)))) + (let ((_tl264821265470_ (let () (declare (not safe)) - (##cdr _e263622264264_))) - (_hd263621264267_ + (##cdr _e264823265465_))) + (_hd264822265468_ (let () (declare (not safe)) - (##car _e263622264264_)))) + (##car _e264823265465_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263620264269_)) + (gx#stx-null? _tl264821265470_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272270272271_ - _hd263621264267_ - _hd263588264561_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) + (gx#stx-null? _tl264815265454_)) + (___kont273471273472_ + _hd264822265468_ + _hd264789265762_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd263618264259_)) + (gx#stx-eq? '%#quote-syntax _hd264819265460_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263617264261_)) - (let ((_e263682264058_ + (gx#stx-pair? _tl264818265462_)) + (let ((_e264883265259_ (let () (declare (not safe)) - (gx#stx-e _tl263617264261_)))) - (let ((_tl263680264063_ + (gx#stx-e _tl264818265462_)))) + (let ((_tl264881265264_ (let () (declare (not safe)) - (##cdr _e263682264058_))) - (_hd263681264061_ + (##cdr _e264883265259_))) + (_hd264882265262_ (let () (declare (not safe)) - (##car _e263682264058_)))) + (##car _e264883265259_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263680264063_)) + (gx#stx-null? _tl264881265264_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272274272275_ - _hd263681264061_ - _hd263594264577_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_))) - (___kont272280272281_)))) + (gx#stx-null? _tl264815265454_)) + (___kont273475273476_ + _hd264882265262_ + _hd264795265778_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_))) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)))) - (___kont272280272281_))) + (___kont273481273482_)))) + (___kont273481273482_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263587264563_)) - (let ((_e263616264248_ + (gx#stx-pair? _tl264788265764_)) + (let ((_e264817265449_ (let () (declare (not safe)) - (gx#stx-e _tl263587264563_)))) - (let ((_tl263614264253_ + (gx#stx-e _tl264788265764_)))) + (let ((_tl264815265454_ (let () (declare (not safe)) - (##cdr _e263616264248_))) - (_hd263615264251_ + (##cdr _e264817265449_))) + (_hd264816265452_ (let () (declare (not safe)) - (##car _e263616264248_)))) + (##car _e264817265449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263615264251_)) - (let ((_e263619264256_ + (gx#stx-pair? _hd264816265452_)) + (let ((_e264820265457_ (let () (declare (not safe)) (gx#stx-e - _hd263615264251_)))) - (let ((_tl263617264261_ + _hd264816265452_)))) + (let ((_tl264818265462_ (let () (declare (not safe)) - (##cdr _e263619264256_))) - (_hd263618264259_ + (##cdr _e264820265457_))) + (_hd264819265460_ (let () (declare (not safe)) - (##car _e263619264256_)))) + (##car _e264820265457_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263618264259_)) + _hd264819265460_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd263618264259_)) + _hd264819265460_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl263617264261_)) - (let ((_e263622264264_ + (gx#stx-pair? _tl264818265462_)) + (let ((_e264823265465_ (let () (declare (not safe)) - (gx#stx-e _tl263617264261_)))) - (let ((_tl263620264269_ + (gx#stx-e _tl264818265462_)))) + (let ((_tl264821265470_ (let () (declare (not safe)) - (##cdr _e263622264264_))) - (_hd263621264267_ + (##cdr _e264823265465_))) + (_hd264822265468_ (let () (declare (not safe)) - (##car _e263622264264_)))) + (##car _e264823265465_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263620264269_)) + (gx#stx-null? _tl264821265470_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272270272271_ - _hd263621264267_ - _hd263588264561_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_)) + (gx#stx-null? _tl264815265454_)) + (___kont273471273472_ + _hd264822265468_ + _hd264789265762_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)))) - (___kont272280272281_)))) - (___kont272280272281_))))) + (___kont273481273482_)))) + (___kont273481273482_)))) + (___kont273481273482_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263587264563_)) - (let ((_e263616264248_ + (gx#stx-pair? _tl264788265764_)) + (let ((_e264817265449_ (let () (declare (not safe)) - (gx#stx-e _tl263587264563_)))) - (let ((_tl263614264253_ + (gx#stx-e _tl264788265764_)))) + (let ((_tl264815265454_ (let () (declare (not safe)) - (##cdr _e263616264248_))) - (_hd263615264251_ + (##cdr _e264817265449_))) + (_hd264816265452_ (let () (declare (not safe)) - (##car _e263616264248_)))) + (##car _e264817265449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263615264251_)) - (let ((_e263619264256_ + (gx#stx-pair? _hd264816265452_)) + (let ((_e264820265457_ (let () (declare (not safe)) - (gx#stx-e _hd263615264251_)))) - (let ((_tl263617264261_ + (gx#stx-e _hd264816265452_)))) + (let ((_tl264818265462_ (let () (declare (not safe)) - (##cdr _e263619264256_))) - (_hd263618264259_ + (##cdr _e264820265457_))) + (_hd264819265460_ (let () (declare (not safe)) - (##car _e263619264256_)))) + (##car _e264820265457_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd263618264259_)) + _hd264819265460_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd263618264259_)) + _hd264819265460_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263617264261_)) - (let ((_e263622264264_ + _tl264818265462_)) + (let ((_e264823265465_ (let () (declare (not safe)) (gx#stx-e - _tl263617264261_)))) - (let ((_tl263620264269_ + _tl264818265462_)))) + (let ((_tl264821265470_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e263622264264_))) - (_hd263621264267_ - (let () (declare (not safe)) (##car _e263622264264_)))) + (##cdr _e264823265465_))) + (_hd264822265468_ + (let () (declare (not safe)) (##car _e264823265465_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263620264269_)) + (gx#stx-null? _tl264821265470_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272270272271_ - _hd263621264267_ - _hd263588264561_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) + (gx#stx-null? _tl264815265454_)) + (___kont273471273472_ + _hd264822265468_ + _hd264789265762_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)))) - (___kont272280272281_))) + (___kont273481273482_)) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)))) + (___kont273481273482_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263587264563_)) - (let ((_e263616264248_ + (gx#stx-pair? _tl264788265764_)) + (let ((_e264817265449_ (let () (declare (not safe)) - (gx#stx-e _tl263587264563_)))) - (let ((_tl263614264253_ + (gx#stx-e _tl264788265764_)))) + (let ((_tl264815265454_ (let () (declare (not safe)) - (##cdr _e263616264248_))) - (_hd263615264251_ + (##cdr _e264817265449_))) + (_hd264816265452_ (let () (declare (not safe)) - (##car _e263616264248_)))) + (##car _e264817265449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263615264251_)) - (let ((_e263619264256_ + (gx#stx-pair? _hd264816265452_)) + (let ((_e264820265457_ (let () (declare (not safe)) - (gx#stx-e _hd263615264251_)))) - (let ((_tl263617264261_ + (gx#stx-e _hd264816265452_)))) + (let ((_tl264818265462_ (let () (declare (not safe)) - (##cdr _e263619264256_))) - (_hd263618264259_ + (##cdr _e264820265457_))) + (_hd264819265460_ (let () (declare (not safe)) - (##car _e263619264256_)))) + (##car _e264820265457_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263618264259_)) + (gx#identifier? _hd264819265460_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd263618264259_)) + _hd264819265460_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263617264261_)) - (let ((_e263622264264_ + _tl264818265462_)) + (let ((_e264823265465_ (let () (declare (not safe)) (gx#stx-e - _tl263617264261_)))) - (let ((_tl263620264269_ + _tl264818265462_)))) + (let ((_tl264821265470_ (let () (declare (not safe)) - (##cdr _e263622264264_))) - (_hd263621264267_ + (##cdr _e264823265465_))) + (_hd264822265468_ (let () (declare (not safe)) - (##car _e263622264264_)))) + (##car _e264823265465_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263620264269_)) + _tl264821265470_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272270272271_ - _hd263621264267_ - _hd263588264561_ - _hd263585264553_) + (gx#stx-null? _tl264815265454_)) + (___kont273471273472_ + _hd264822265468_ + _hd264789265762_ + _hd264786265754_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd263591264569_)) + (gx#stx-eq? '%#quote _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263646264160_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264847265361_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263644264165_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264845265366_ (let () (declare (not safe)) - (##cdr _e263646264160_))) - (_hd263645264163_ + (##cdr _e264847265361_))) + (_hd264846265364_ (let () (declare (not safe)) - (##car _e263646264160_)))) - (___kont272280272281_))) - (___kont272280272281_)) + (##car _e264847265361_)))) + (___kont273481273482_))) + (___kont273481273482_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd263591264569_)) + (gx#stx-eq? '%#quote-syntax _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263706263918_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264907265119_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263704263923_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264905265124_ (let () (declare (not safe)) - (##cdr _e263706263918_))) - (_hd263705263921_ + (##cdr _e264907265119_))) + (_hd264906265122_ (let () (declare (not safe)) - (##car _e263706263918_)))) - (___kont272280272281_))) - (___kont272280272281_)) - (___kont272280272281_)))) + (##car _e264907265119_)))) + (___kont273481273482_))) + (___kont273481273482_)) + (___kont273481273482_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd263591264569_)) + (gx#stx-eq? '%#quote _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263646264160_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264847265361_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263644264165_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264845265366_ (let () (declare (not safe)) - (##cdr _e263646264160_))) - (_hd263645264163_ + (##cdr _e264847265361_))) + (_hd264846265364_ (let () (declare (not safe)) - (##car _e263646264160_)))) + (##car _e264847265361_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263644264165_)) + (gx#stx-null? _tl264845265366_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272272272273_ - _hd263615264251_ - _hd263645264163_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) + (gx#stx-null? _tl264815265454_)) + (___kont273473273474_ + _hd264816265452_ + _hd264846265364_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd263591264569_)) + (gx#stx-eq? '%#quote-syntax _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263706263918_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264907265119_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263704263923_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264905265124_ (let () (declare (not safe)) - (##cdr _e263706263918_))) - (_hd263705263921_ + (##cdr _e264907265119_))) + (_hd264906265122_ (let () (declare (not safe)) - (##car _e263706263918_)))) - (___kont272280272281_))) - (___kont272280272281_)) - (___kont272280272281_)))))) + (##car _e264907265119_)))) + (___kont273481273482_))) + (___kont273481273482_)) + (___kont273481273482_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263590264571_)) - (let ((_e263646264160_ + _tl264791265772_)) + (let ((_e264847265361_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263644264165_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264845265366_ (let () (declare (not safe)) - (##cdr _e263646264160_))) - (_hd263645264163_ + (##cdr _e264847265361_))) + (_hd264846265364_ (let () (declare (not safe)) - (##car _e263646264160_)))) + (##car _e264847265361_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263644264165_)) + (gx#stx-null? _tl264845265366_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272272272273_ - _hd263615264251_ - _hd263645264163_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) + (gx#stx-null? _tl264815265454_)) + (___kont273473273474_ + _hd264816265452_ + _hd264846265364_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263706263918_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264907265119_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263704263923_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264905265124_ (let () (declare (not safe)) - (##cdr _e263706263918_))) - (_hd263705263921_ + (##cdr _e264907265119_))) + (_hd264906265122_ (let () (declare (not safe)) - (##car _e263706263918_)))) - (___kont272280272281_))) - (___kont272280272281_)) - (___kont272280272281_)))) + (##car _e264907265119_)))) + (___kont273481273482_))) + (___kont273481273482_)) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263590264571_)) - (let ((_e263646264160_ + _tl264791265772_)) + (let ((_e264847265361_ (let () (declare (not safe)) (gx#stx-e - _tl263590264571_)))) - (let ((_tl263644264165_ + _tl264791265772_)))) + (let ((_tl264845265366_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e263646264160_))) - (_hd263645264163_ - (let () (declare (not safe)) (##car _e263646264160_)))) + (##cdr _e264847265361_))) + (_hd264846265364_ + (let () (declare (not safe)) (##car _e264847265361_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263644264165_)) + (gx#stx-null? _tl264845265366_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272272272273_ - _hd263615264251_ - _hd263645264163_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) + (gx#stx-null? _tl264815265454_)) + (___kont273473273474_ + _hd264816265452_ + _hd264846265364_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)) + (___kont273481273482_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263590264571_)) - (let ((_e263706263918_ + _tl264791265772_)) + (let ((_e264907265119_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263704263923_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264905265124_ (let () (declare (not safe)) - (##cdr _e263706263918_))) - (_hd263705263921_ + (##cdr _e264907265119_))) + (_hd264906265122_ (let () (declare (not safe)) - (##car _e263706263918_)))) + (##car _e264907265119_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263704263923_)) + (gx#stx-null? _tl264905265124_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd263618264259_)) + (gx#stx-eq? '%#ref _hd264819265460_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263617264261_)) - (let ((_e263715263942_ + (gx#stx-pair? _tl264818265462_)) + (let ((_e264916265143_ (let () (declare (not safe)) - (gx#stx-e _tl263617264261_)))) - (let ((_tl263713263947_ + (gx#stx-e _tl264818265462_)))) + (let ((_tl264914265148_ (let () (declare (not safe)) - (##cdr _e263715263942_))) - (_hd263714263945_ + (##cdr _e264916265143_))) + (_hd264915265146_ (let () (declare (not safe)) - (##car _e263715263942_)))) + (##car _e264916265143_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263713263947_)) + (gx#stx-null? _tl264914265148_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272276272277_ - _hd263714263945_ - _hd263705263921_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) + (gx#stx-null? _tl264815265454_)) + (___kont273477273478_ + _hd264915265146_ + _hd264906265122_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)))) + (___kont273481273482_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263590264571_)) - (let ((_e263646264160_ + _tl264791265772_)) + (let ((_e264847265361_ (let () (declare (not safe)) (gx#stx-e - _tl263590264571_)))) - (let ((_tl263644264165_ + _tl264791265772_)))) + (let ((_tl264845265366_ (let () (declare (not safe)) - (##cdr _e263646264160_))) - (_hd263645264163_ + (##cdr _e264847265361_))) + (_hd264846265364_ (let () (declare (not safe)) - (##car _e263646264160_)))) + (##car _e264847265361_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263644264165_)) + _tl264845265366_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl263614264253_)) - (___kont272272272273_ - _hd263615264251_ - _hd263645264163_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) + (gx#stx-null? _tl264815265454_)) + (___kont273473273474_ + _hd264816265452_ + _hd264846265364_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)) + (___kont273481273482_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263590264571_)) - (let ((_e263706263918_ + _tl264791265772_)) + (let ((_e264907265119_ (let () (declare (not safe)) (gx#stx-e - _tl263590264571_)))) - (let ((_tl263704263923_ + _tl264791265772_)))) + (let ((_tl264905265124_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e263706263918_))) - (_hd263705263921_ - (let () (declare (not safe)) (##car _e263706263918_)))) - (___kont272280272281_))) + (##cdr _e264907265119_))) + (_hd264906265122_ + (let () (declare (not safe)) (##car _e264907265119_)))) + (___kont273481273482_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)) - (___kont272280272281_)))))) + (___kont273481273482_)) + (___kont273481273482_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd263591264569_)) + (gx#stx-eq? '%#quote _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263646264160_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264847265361_ (let () (declare (not safe)) (gx#stx-e - _tl263590264571_)))) - (let ((_tl263644264165_ + _tl264791265772_)))) + (let ((_tl264845265366_ (let () (declare (not safe)) - (##cdr _e263646264160_))) - (_hd263645264163_ + (##cdr _e264847265361_))) + (_hd264846265364_ (let () (declare (not safe)) - (##car _e263646264160_)))) + (##car _e264847265361_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263644264165_)) + _tl264845265366_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl263614264253_)) - (___kont272272272273_ - _hd263615264251_ - _hd263645264163_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) + _tl264815265454_)) + (___kont273473273474_ + _hd264816265452_ + _hd264846265364_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263706263918_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264907265119_ (let () (declare (not safe)) (gx#stx-e - _tl263590264571_)))) - (let ((_tl263704263923_ + _tl264791265772_)))) + (let ((_tl264905265124_ (let () (declare (not safe)) - (##cdr _e263706263918_))) - (_hd263705263921_ + (##cdr _e264907265119_))) + (_hd264906265122_ (let () (declare (not safe)) - (##car _e263706263918_)))) - (___kont272280272281_))) - (___kont272280272281_)) - (___kont272280272281_)))))) + (##car _e264907265119_)))) + (___kont273481273482_))) + (___kont273481273482_)) + (___kont273481273482_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd263591264569_)) + (gx#stx-eq? '%#quote _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263646264160_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264847265361_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263644264165_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264845265366_ (let () (declare (not safe)) - (##cdr _e263646264160_))) - (_hd263645264163_ + (##cdr _e264847265361_))) + (_hd264846265364_ (let () (declare (not safe)) - (##car _e263646264160_)))) - (___kont272280272281_))) - (___kont272280272281_)) + (##car _e264847265361_)))) + (___kont273481273482_))) + (___kont273481273482_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd263591264569_)) + _hd264792265770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263590264571_)) - (let ((_e263706263918_ + (gx#stx-pair? _tl264791265772_)) + (let ((_e264907265119_ (let () (declare (not safe)) - (gx#stx-e _tl263590264571_)))) - (let ((_tl263704263923_ + (gx#stx-e _tl264791265772_)))) + (let ((_tl264905265124_ (let () (declare (not safe)) - (##cdr _e263706263918_))) - (_hd263705263921_ + (##cdr _e264907265119_))) + (_hd264906265122_ (let () (declare (not safe)) - (##car _e263706263918_)))) - (___kont272280272281_))) - (___kont272280272281_)) - (___kont272280272281_))))) + (##car _e264907265119_)))) + (___kont273481273482_))) + (___kont273481273482_)) + (___kont273481273482_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263587264563_)) - (let ((_e263616264248_ + (gx#stx-pair? _tl264788265764_)) + (let ((_e264817265449_ (let () (declare (not safe)) - (gx#stx-e _tl263587264563_)))) - (let ((_tl263614264253_ + (gx#stx-e _tl264788265764_)))) + (let ((_tl264815265454_ (let () (declare (not safe)) - (##cdr _e263616264248_))) - (_hd263615264251_ + (##cdr _e264817265449_))) + (_hd264816265452_ (let () (declare (not safe)) - (##car _e263616264248_)))) + (##car _e264817265449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263615264251_)) - (let ((_e263619264256_ + (gx#stx-pair? _hd264816265452_)) + (let ((_e264820265457_ (let () (declare (not safe)) - (gx#stx-e _hd263615264251_)))) - (let ((_tl263617264261_ + (gx#stx-e _hd264816265452_)))) + (let ((_tl264818265462_ (let () (declare (not safe)) - (##cdr _e263619264256_))) - (_hd263618264259_ + (##cdr _e264820265457_))) + (_hd264819265460_ (let () (declare (not safe)) - (##car _e263619264256_)))) + (##car _e264820265457_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263618264259_)) + (gx#identifier? _hd264819265460_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd263618264259_)) + _hd264819265460_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263617264261_)) - (let ((_e263622264264_ + (gx#stx-pair? _tl264818265462_)) + (let ((_e264823265465_ (let () (declare (not safe)) (gx#stx-e - _tl263617264261_)))) - (let ((_tl263620264269_ + _tl264818265462_)))) + (let ((_tl264821265470_ (let () (declare (not safe)) - (##cdr _e263622264264_))) - (_hd263621264267_ + (##cdr _e264823265465_))) + (_hd264822265468_ (let () (declare (not safe)) - (##car _e263622264264_)))) + (##car _e264823265465_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263620264269_)) + _tl264821265470_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl263614264253_)) - (___kont272270272271_ - _hd263621264267_ - _hd263588264561_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)))) - (___kont272280272281_))))) + _tl264815265454_)) + (___kont273471273472_ + _hd264822265468_ + _hd264789265762_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)))) + (___kont273481273482_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl263587264563_)) - (let ((_e263616264248_ + _tl264788265764_)) + (let ((_e264817265449_ (let () (declare (not safe)) (gx#stx-e - _tl263587264563_)))) - (let ((_tl263614264253_ + _tl264788265764_)))) + (let ((_tl264815265454_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e263616264248_))) - (_hd263615264251_ - (let () (declare (not safe)) (##car _e263616264248_)))) + (##cdr _e264817265449_))) + (_hd264816265452_ + (let () (declare (not safe)) (##car _e264817265449_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263615264251_)) - (let ((_e263619264256_ + (gx#stx-pair? _hd264816265452_)) + (let ((_e264820265457_ (let () (declare (not safe)) - (gx#stx-e _hd263615264251_)))) - (let ((_tl263617264261_ + (gx#stx-e _hd264816265452_)))) + (let ((_tl264818265462_ (let () (declare (not safe)) - (##cdr _e263619264256_))) - (_hd263618264259_ + (##cdr _e264820265457_))) + (_hd264819265460_ (let () (declare (not safe)) - (##car _e263619264256_)))) + (##car _e264820265457_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263618264259_)) + (gx#identifier? _hd264819265460_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd263618264259_)) + (gx#stx-eq? '%#quote _hd264819265460_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263617264261_)) - (let ((_e263622264264_ + (gx#stx-pair? _tl264818265462_)) + (let ((_e264823265465_ (let () (declare (not safe)) - (gx#stx-e _tl263617264261_)))) - (let ((_tl263620264269_ + (gx#stx-e _tl264818265462_)))) + (let ((_tl264821265470_ (let () (declare (not safe)) - (##cdr _e263622264264_))) - (_hd263621264267_ + (##cdr _e264823265465_))) + (_hd264822265468_ (let () (declare (not safe)) - (##car _e263622264264_)))) + (##car _e264823265465_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263620264269_)) + (gx#stx-null? _tl264821265470_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl263614264253_)) - (___kont272270272271_ - _hd263621264267_ - _hd263588264561_ - _hd263585264553_) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)))) + _tl264815265454_)) + (___kont273471273472_ + _hd264822265468_ + _hd264789265762_ + _hd264786265754_) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_))))) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)) + (___kont273481273482_))))) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd263582264545_)) + (gx#stx-eq? '%#lambda _hd264783265746_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263581264547_)) - (let ((_e263730263786_ + (gx#stx-pair? _tl264782265748_)) + (let ((_e264931264987_ (let () (declare (not safe)) - (gx#stx-e _tl263581264547_)))) - (let ((_tl263728263791_ + (gx#stx-e _tl264782265748_)))) + (let ((_tl264929264992_ (let () (declare (not safe)) - (##cdr _e263730263786_))) - (_hd263729263789_ + (##cdr _e264931264987_))) + (_hd264930264990_ (let () (declare (not safe)) - (##car _e263730263786_)))) + (##car _e264931264987_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263729263789_)) - (let ((_e263733263794_ + (gx#stx-pair? _hd264930264990_)) + (let ((_e264934264995_ (let () (declare (not safe)) (gx#stx-e - _hd263729263789_)))) - (let ((_tl263731263799_ + _hd264930264990_)))) + (let ((_tl264932265000_ (let () (declare (not safe)) - (##cdr _e263733263794_))) - (_hd263732263797_ + (##cdr _e264934264995_))) + (_hd264933264998_ (let () (declare (not safe)) - (##car _e263733263794_)))) + (##car _e264934264995_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263731263799_)) + _tl264932265000_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263728263791_)) - (let ((_e263736263802_ + _tl264929264992_)) + (let ((_e264937265003_ (let () (declare (not safe)) (gx#stx-e - _tl263728263791_)))) - (let ((_tl263734263807_ + _tl264929264992_)))) + (let ((_tl264935265008_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e263736263802_))) - (_hd263735263805_ - (let () (declare (not safe)) (##car _e263736263802_)))) + (##cdr _e264937265003_))) + (_hd264936265006_ + (let () (declare (not safe)) (##car _e264937265003_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl263734263807_)) + (gx#stx-null? _tl264935265008_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl263578264539_)) - (let ((_e263739263810_ + (gx#stx-pair? _tl264779265740_)) + (let ((_e264940265011_ (let () (declare (not safe)) - (gx#stx-e _tl263578264539_)))) - (let ((_tl263737263815_ + (gx#stx-e _tl264779265740_)))) + (let ((_tl264938265016_ (let () (declare (not safe)) - (##cdr _e263739263810_))) - (_hd263738263813_ + (##cdr _e264940265011_))) + (_hd264939265014_ (let () (declare (not safe)) - (##car _e263739263810_)))) + (##car _e264940265011_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd263738263813_)) - (let ((_e263742263818_ + (gx#stx-pair? _hd264939265014_)) + (let ((_e264943265019_ (let () (declare (not safe)) - (gx#stx-e _hd263738263813_)))) - (let ((_tl263740263823_ + (gx#stx-e _hd264939265014_)))) + (let ((_tl264941265024_ (let () (declare (not safe)) - (##cdr _e263742263818_))) - (_hd263741263821_ + (##cdr _e264943265019_))) + (_hd264942265022_ (let () (declare (not safe)) - (##car _e263742263818_)))) + (##car _e264943265019_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd263741263821_)) + (gx#identifier? _hd264942265022_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd263741263821_)) + _hd264942265022_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl263740263823_)) - (let ((_e263745263826_ + _tl264941265024_)) + (let ((_e264946265027_ (let () (declare (not safe)) (gx#stx-e - _tl263740263823_)))) - (let ((_tl263743263831_ + _tl264941265024_)))) + (let ((_tl264944265032_ (let () (declare (not safe)) - (##cdr _e263745263826_))) - (_hd263744263829_ + (##cdr _e264946265027_))) + (_hd264945265030_ (let () (declare (not safe)) - (##car _e263745263826_)))) + (##car _e264946265027_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl263743263831_)) + _tl264944265032_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl263737263815_)) - (___kont272278272279_ - _hd263744263829_ - _hd263735263805_ - _hd263732263797_) - (___kont272280272281_)) - (___kont272280272281_)))) + (gx#stx-null? _tl264938265016_)) + (___kont273479273480_ + _hd264945265030_ + _hd264936265006_ + _hd264933264998_) + (___kont273481273482_)) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_)))) + (___kont273481273482_)) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_))) - (___kont272280272281_)))) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_))) + (___kont273481273482_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272280272281_)))) - (___kont272280272281_)) - (___kont272280272281_)) - (___kont272280272281_)))) - (___kont272280272281_)))))) - (_countf-symbol259623_ - (lambda (_id263553_) - (let ((_$e263555_ + (___kont273481273482_)))) + (___kont273481273482_)) + (___kont273481273482_)) + (___kont273481273482_)))) + (___kont273481273482_)))))) + (_countf-symbol260824_ + (lambda (_id264754_) + (let ((_$e264756_ (let () (declare (not safe)) - (gxc#identifier-symbol _id263553_)))) + (gxc#identifier-symbol _id264754_)))) (if (or (let () (declare (not safe)) - (eq? '##vector-length _$e263555_)) + (eq? '##vector-length _$e264756_)) (let () (declare (not safe)) - (eq? 'vector-length _$e263555_))) + (eq? 'vector-length _$e264756_))) 'vector-length (if (let () (declare (not safe)) - (eq? 'values-count _$e263555_)) + (eq? 'values-count _$e264756_)) 'values-count '#f))))) - (_eqf-symbol259624_ - (lambda (_sym263539_) - (let ((_$e263541_ _sym263539_)) + (_eqf-symbol260825_ + (lambda (_sym264740_) + (let ((_$e264742_ _sym264740_)) (if (or (let () (declare (not safe)) - (eq? '##eq? _$e263541_)) + (eq? '##eq? _$e264742_)) (let () (declare (not safe)) - (eq? 'eq? _$e263541_))) + (eq? 'eq? _$e264742_))) 'eq? (if (or (let () (declare (not safe)) - (eq? '##eqv? _$e263541_)) + (eq? '##eqv? _$e264742_)) (let () (declare (not safe)) - (eq? 'eqv? _$e263541_))) + (eq? 'eqv? _$e264742_))) 'eqv? (if (or (let () (declare (not safe)) - (eq? '##equal? _$e263541_)) + (eq? '##equal? _$e264742_)) (let () (declare (not safe)) - (eq? 'equal? _$e263541_))) + (eq? 'equal? _$e264742_))) 'equal? (if (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e263541_)) + _$e264742_)) 'free-identifier=? (if (let () (declare (not safe)) - (eq? 'gx#stx-eq? _$e263541_)) + (eq? 'gx#stx-eq? _$e264742_)) 'stx-eq? '#f)))))))) - (_eqf-symbol?259625_ - (lambda (_sym263522_) - (let ((_$e263524_ _sym263522_)) + (_eqf-symbol?260826_ + (lambda (_sym264723_) + (let ((_$e264725_ _sym264723_)) (if (or (let () (declare (not safe)) - (eq? 'eq? _$e263524_)) + (eq? 'eq? _$e264725_)) (let () (declare (not safe)) - (eq? 'eqv? _$e263524_)) + (eq? 'eqv? _$e264725_)) (let () (declare (not safe)) - (eq? 'equal? _$e263524_)) + (eq? 'equal? _$e264725_)) (let () (declare (not safe)) - (eq? 'free-identifier=? _$e263524_)) + (eq? 'free-identifier=? _$e264725_)) (let () (declare (not safe)) - (eq? 'stx-eq? _$e263524_))) + (eq? 'stx-eq? _$e264725_))) '#t '#f)))) - (_do-assert!259626_ - (lambda (_assert263513_ _type263514_ _K263515_) - (let ((_unwind-assert263517_ _env-assert259616_) - (_unwind-type263518_ _env-type259617_)) - (set! _env-assert259616_ _assert263513_) - (set! _env-type259617_ _type263514_) - (let ((_val263520_ (_K263515_))) - (set! _env-assert259616_ _unwind-assert263517_) - (set! _env-type259617_ _unwind-type263518_) - _val263520_)))) - (_do-bind259627_ - (lambda (_bind263510_ _K263511_) - (if (let () (declare (not safe)) (pair? _bind263510_)) - (let ((__tmp274972 + (_do-assert!260827_ + (lambda (_assert264714_ _type264715_ _K264716_) + (let ((_unwind-assert264718_ _env-assert260817_) + (_unwind-type264719_ _env-type260818_)) + (set! _env-assert260817_ _assert264714_) + (set! _env-type260818_ _type264715_) + (let ((_val264721_ (_K264716_))) + (set! _env-assert260817_ _unwind-assert264718_) + (set! _env-type260818_ _unwind-type264719_) + _val264721_)))) + (_do-bind260828_ + (lambda (_bind264711_ _K264712_) + (if (let () (declare (not safe)) (pair? _bind264711_)) + (let ((__tmp276173 (let () (declare (not safe)) - (_fold-bind-env259628_ - _bind263510_ - _env-bind259618_)))) + (_fold-bind-env260829_ + _bind264711_ + _env-bind260819_)))) (declare (not safe)) - (_do-bind!259629_ __tmp274972 _K263511_)) - (_K263511_)))) - (_fold-bind-env259628_ - (lambda (_bind263439_ _env263440_) - (let _lp263442_ ((_rest263444_ _bind263439_) - (_env263445_ _env263440_)) - (let* ((_rest263446263454_ _rest263444_) - (_else263448263462_ (lambda () _env263445_)) - (_K263450263498_ - (lambda (_rest263465_ _bind263466_) - (let* ((_bind263467263474_ _bind263466_) - (_E263469263478_ + (_do-bind!260830_ __tmp276173 _K264712_)) + (_K264712_)))) + (_fold-bind-env260829_ + (lambda (_bind264640_ _env264641_) + (let _lp264643_ ((_rest264645_ _bind264640_) + (_env264646_ _env264641_)) + (let* ((_rest264647264655_ _rest264645_) + (_else264649264663_ (lambda () _env264646_)) + (_K264651264699_ + (lambda (_rest264666_ _bind264667_) + (let* ((_bind264668264675_ _bind264667_) + (_E264670264679_ (lambda () (error '"No clause matching" - _bind263467263474_))) - (_K263470263486_ - (lambda (_expr263481_ _id263482_) - (let* ((_sexpr263484_ + _bind264668264675_))) + (_K264671264687_ + (lambda (_expr264682_ _id264683_) + (let* ((_sexpr264685_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr263481_))) - (__tmp274973 - (let ((__tmp274974 + _expr264682_))) + (__tmp276174 + (let ((__tmp276175 (let () (declare (not safe)) - (cons _sexpr263484_ + (cons _sexpr264685_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id263482_)))) + _id264683_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp274974 - _env263445_)))) + (cons __tmp276175 + _env264646_)))) (declare (not safe)) - (_lp263442_ - _rest263465_ - __tmp274973))))) + (_lp264643_ + _rest264666_ + __tmp276174))))) (if (let () (declare (not safe)) - (##pair? _bind263467263474_)) - (let ((_hd263471263489_ + (##pair? _bind264668264675_)) + (let ((_hd264672264690_ (let () (declare (not safe)) - (##car _bind263467263474_))) - (_tl263472263491_ + (##car _bind264668264675_))) + (_tl264673264692_ (let () (declare (not safe)) - (##cdr _bind263467263474_)))) - (let* ((_id263494_ _hd263471263489_) - (_expr263496_ - _tl263472263491_)) + (##cdr _bind264668264675_)))) + (let* ((_id264695_ _hd264672264690_) + (_expr264697_ + _tl264673264692_)) (declare (not safe)) - (_K263470263486_ - _expr263496_ - _id263494_))) + (_K264671264687_ + _expr264697_ + _id264695_))) (let () (declare (not safe)) - (_E263469263478_))))))) + (_E264670264679_))))))) (if (let () (declare (not safe)) - (##pair? _rest263446263454_)) - (let ((_hd263451263501_ + (##pair? _rest264647264655_)) + (let ((_hd264652264702_ (let () (declare (not safe)) - (##car _rest263446263454_))) - (_tl263452263503_ + (##car _rest264647264655_))) + (_tl264653264704_ (let () (declare (not safe)) - (##cdr _rest263446263454_)))) - (let* ((_bind263506_ _hd263451263501_) - (_rest263508_ _tl263452263503_)) + (##cdr _rest264647264655_)))) + (let* ((_bind264707_ _hd264652264702_) + (_rest264709_ _tl264653264704_)) (declare (not safe)) - (_K263450263498_ _rest263508_ _bind263506_))) + (_K264651264699_ _rest264709_ _bind264707_))) (let () (declare (not safe)) - (_else263448263462_))))))) - (_do-bind!259629_ - (lambda (_env263432_ _K263433_) - (let ((_unwind263435_ _env-bind259618_)) - (set! _env-bind259618_ _env263432_) - (let ((_val263437_ (_K263433_))) - (set! _env-bind259618_ _unwind263435_) - _val263437_)))) - (_do-splice!259630_ - (lambda (_K263426_) - (let ((_unwind263428_ _in-splice?259619_)) - (set! _in-splice?259619_ '#t) - (let ((_val263430_ (_K263426_))) - (set! _in-splice?259619_ _unwind263428_) - _val263430_)))) - (_optimize-e259631_ - (lambda (_expr262623_) - (let* ((___stx272718272719_ _expr262623_) - (_g262630262803_ + (_else264649264663_))))))) + (_do-bind!260830_ + (lambda (_env264633_ _K264634_) + (let ((_unwind264636_ _env-bind260819_)) + (set! _env-bind260819_ _env264633_) + (let ((_val264638_ (_K264634_))) + (set! _env-bind260819_ _unwind264636_) + _val264638_)))) + (_do-splice!260831_ + (lambda (_K264627_) + (let ((_unwind264629_ _in-splice?260820_)) + (set! _in-splice?260820_ '#t) + (let ((_val264631_ (_K264627_))) + (set! _in-splice?260820_ _unwind264629_) + _val264631_)))) + (_optimize-e260832_ + (lambda (_expr263824_) + (let* ((___stx273919273920_ _expr263824_) + (_g263831264004_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272718272719_))))) - (let ((___kont272720272721_ - (lambda (_L263398_ _L263399_ _L263400_) - (let ((_$e263417_ + ___stx273919273920_))))) + (let ((___kont273921273922_ + (lambda (_L264599_ _L264600_ _L264601_) + (let ((_$e264618_ (let () (declare (not safe)) - (_assert-e259634_ _L263400_)))) + (_assert-e260835_ _L264601_)))) (if (let () (declare (not safe)) - (eq? '#t _$e263417_)) + (eq? '#t _$e264618_)) (let () (declare (not safe)) - (_optimize-e259631_ _L263399_)) + (_optimize-e260832_ _L264600_)) (if (let () (declare (not safe)) - (eq? '#f _$e263417_)) + (eq? '#f _$e264618_)) (let () (declare (not safe)) - (_optimize-e259631_ _L263398_)) - (let ((_K263420_ + (_optimize-e260832_ _L264599_)) + (let ((_K264621_ (let () (declare (not safe)) - (_optimize-t__0__271651271652_ - _L263399_ - _L263400_))) - (_E263421_ + (_optimize-t__0__272852272853_ + _L264600_ + _L264601_))) + (_E264622_ (let () (declare (not safe)) - (_optimize-f__271653271654_ - _L263398_ - _L263400_)))) - (if (let ((__tmp274979 + (_optimize-f__272854272855_ + _L264599_ + _L264601_)))) + (if (let ((__tmp276180 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _K263420_))) - (__tmp274978 + _K264621_))) + (__tmp276179 (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _E263421_)))) + _E264622_)))) (declare (not safe)) - (equal? __tmp274979 - __tmp274978)) - _K263420_ - (let ((__tmp274975 - (let ((__tmp274976 - (let ((__tmp274977 + (equal? __tmp276180 + __tmp276179)) + _K264621_ + (let ((__tmp276176 + (let ((__tmp276177 + (let ((__tmp276178 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E263421_ '())))) + (cons _E264622_ '())))) (declare (not safe)) - (cons _K263420_ __tmp274977)))) + (cons _K264621_ __tmp276178)))) (declare (not safe)) - (cons _L263400_ __tmp274976)))) + (cons _L264601_ __tmp276177)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#if - __tmp274975))))))))) - (___kont272722272723_ - (lambda (_L263328_ _L263329_) - (let ((_$e263349_ + __tmp276176))))))))) + (___kont273923273924_ + (lambda (_L264529_ _L264530_) + (let ((_$e264550_ (let () (declare (not safe)) - (_lookup-block259639_ _L263329_)))) - (if _$e263349_ - ((lambda (_block263352_) + (_lookup-block260840_ _L264530_)))) + (if _$e264550_ + ((lambda (_block264553_) (if (let () (declare (not safe)) - (_nonlinear-block?259641_ - _block263352_)) - _expr262623_ - (let ((__tmp274980 - (let ((__tmp274981 - (let ((__tmp274982 + (_nonlinear-block?260842_ + _block264553_)) + _expr263824_ + (let ((__tmp276181 + (let ((__tmp276182 + (let ((__tmp276183 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g263353263356_ _g263354263358_) + (lambda (_g264554264557_ _g264555264559_) (let () (declare (not safe)) - (cons _g263353263356_ _g263354263358_))))) + (cons _g264554264557_ _g264555264559_))))) (declare (not safe)) - (foldr1 __tmp274982 '() _L263328_)))) + (foldr1 __tmp276183 '() _L264529_)))) (declare (not safe)) - (_inline-block259640_ _block263352_ __tmp274981)))) + (_inline-block260841_ _block264553_ __tmp276182)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_optimize-e259631_ - __tmp274980)))) - _$e263349_) - _expr262623_)))) - (___kont272726272727_ - (lambda (_L263218_ _L263219_ _L263220_) - (let* ((_body263239_ + (_optimize-e260832_ + __tmp276181)))) + _$e264550_) + _expr263824_)))) + (___kont273927273928_ + (lambda (_L264419_ _L264420_ _L264421_) + (let* ((_body264440_ (let () (declare (not safe)) - (_optimize-e259631_ _L263218_))) - (__tmp274983 - (let ((__tmp274985 + (_optimize-e260832_ _L264419_))) + (__tmp276184 + (let ((__tmp276186 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L263219_ - _L263220_)) - (let ((__tmp274986 - (lambda (_g263240263244_ + _L264420_ + _L264421_)) + (let ((__tmp276187 + (lambda (_g264441264445_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g263241263246_ - _g263242263248_) - (let ((__tmp274987 - (let ((__tmp274992 + _g264442264447_ + _g264443264449_) + (let ((__tmp276188 + (let ((__tmp276193 (let () (declare (not safe)) - (cons _g263241263246_ '()))) - (__tmp274988 - (let ((__tmp274989 - (let ((__tmp274991 + (cons _g264442264447_ '()))) + (__tmp276189 + (let ((__tmp276190 + (let ((__tmp276192 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp274990 + (__tmp276191 (let () (declare (not safe)) - (cons _g263240263244_ '())))) + (cons _g264441264445_ '())))) (declare (not safe)) - (cons __tmp274991 __tmp274990)))) + (cons __tmp276192 __tmp276191)))) (declare (not safe)) - (cons __tmp274989 '())))) + (cons __tmp276190 '())))) (declare (not safe)) - (cons __tmp274992 __tmp274988)))) + (cons __tmp276193 __tmp276189)))) (declare (not safe)) - (cons __tmp274987 _g263242263248_))))) + (cons __tmp276188 _g264443264449_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp274986 + (foldr2 __tmp276187 '() - _L263219_ - _L263220_)))) - (__tmp274984 + _L264420_ + _L264421_)))) + (__tmp276185 (let () (declare (not safe)) - (cons _body263239_ '())))) + (cons _body264440_ '())))) (declare (not safe)) - (cons __tmp274985 __tmp274984)))) + (cons __tmp276186 __tmp276185)))) (declare (not safe)) - (cons '%#let-values __tmp274983)))) - (___kont272730272731_ - (lambda (_L263086_ _L263087_ _L263088_) - (let ((__tmp274993 + (cons '%#let-values __tmp276184)))) + (___kont273931273932_ + (lambda (_L264287_ _L264288_ _L264289_) + (let ((__tmp276194 (map cons - (let ((__tmp274994 - (lambda (_g263106263109_ - _g263107263111_) + (let ((__tmp276195 + (lambda (_g264307264310_ + _g264308264312_) (let () (declare (not safe)) - (cons _g263106263109_ - _g263107263111_))))) + (cons _g264307264310_ + _g264308264312_))))) (declare (not safe)) - (foldr1 __tmp274994 + (foldr1 __tmp276195 '() - _L263088_)) - (let ((__tmp274995 - (lambda (_g263113263116_ - _g263114263118_) + _L264289_)) + (let ((__tmp276196 + (lambda (_g264314264317_ + _g264315264319_) (let () (declare (not safe)) - (cons _g263113263116_ - _g263114263118_))))) + (cons _g264314264317_ + _g264315264319_))))) (declare (not safe)) - (foldr1 __tmp274995 + (foldr1 __tmp276196 '() - _L263087_))))) + _L264288_))))) (declare (not safe)) - (_bind-e__0__271659271660_ - __tmp274993 - _L263086_)))) - (___kont272734272735_ - (lambda (_L262943_ - _L262944_ - _L262945_ - _L262946_ - _L262947_) - (let ((__tmp274996 + (_bind-e__0__272860272861_ + __tmp276194 + _L264287_)))) + (___kont273935273936_ + (lambda (_L264144_ + _L264145_ + _L264146_ + _L264147_ + _L264148_) + (let ((__tmp276197 (lambda () - (let* ((_expr262989_ + (let* ((_expr264190_ (let () (declare (not safe)) - (_optimize-e259631_ - _L262945_))) - (__tmp274997 - (let ((__tmp274999 - (let ((__tmp275002 - (let ((__tmp275009 + (_optimize-e260832_ + _L264146_))) + (__tmp276198 + (let ((__tmp276200 + (let ((__tmp276203 + (let ((__tmp276210 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L262947_ '()))) - (__tmp275003 - (let ((__tmp275004 - (let ((__tmp275005 - (let ((__tmp275007 - (let ((__tmp275008 - (lambda (_g262990262993_ + (cons _L264148_ '()))) + (__tmp276204 + (let ((__tmp276205 + (let ((__tmp276206 + (let ((__tmp276208 + (let ((__tmp276209 + (lambda (_g264191264194_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g262991262995_) + _g264192264196_) (let () (declare (not safe)) - (cons _g262990262993_ _g262991262995_))))) + (cons _g264191264194_ _g264192264196_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp275008 + (foldr1 __tmp276209 '() - _L262946_))) - (__tmp275006 + _L264147_))) + (__tmp276207 (let () (declare (not safe)) - (cons _expr262989_ '())))) + (cons _expr264190_ '())))) (declare (not safe)) - (cons __tmp275007 __tmp275006)))) + (cons __tmp276208 __tmp276207)))) (declare (not safe)) - (cons '%#lambda __tmp275005)))) + (cons '%#lambda __tmp276206)))) (declare (not safe)) - (cons __tmp275004 '())))) + (cons __tmp276205 '())))) (declare (not safe)) - (cons __tmp275009 __tmp275003))) - (__tmp275000 - (let ((__tmp275001 - (lambda (_g262997263000_ _g262998263002_) + (cons __tmp276210 __tmp276204))) + (__tmp276201 + (let ((__tmp276202 + (lambda (_g264198264201_ _g264199264203_) (let () (declare (not safe)) - (cons _g262997263000_ _g262998263002_))))) + (cons _g264198264201_ _g264199264203_))))) (declare (not safe)) - (foldr1 __tmp275001 '() _L262944_)))) + (foldr1 __tmp276202 '() _L264145_)))) (declare (not safe)) - (cons __tmp275002 __tmp275000))) - (__tmp274998 - (let () (declare (not safe)) (cons _L262943_ '())))) + (cons __tmp276203 __tmp276201))) + (__tmp276199 + (let () (declare (not safe)) (cons _L264144_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp274999 - __tmp274998)))) + (cons __tmp276200 + __tmp276199)))) (declare (not safe)) (cons '%#letrec-values - __tmp274997))))) + __tmp276198))))) (declare (not safe)) - (_do-splice!259630_ __tmp274996)))) - (___kont272740272741_ (lambda () _expr262623_))) - (let* ((___match272927272928_ - (lambda (_e262753262815_ - _hd262752262818_ - _tl262751262820_ - _e262756262823_ - _hd262755262826_ - _tl262754262828_ - _e262759262831_ - _hd262758262834_ - _tl262757262836_ - _e262762262839_ - _hd262761262842_ - _tl262760262844_ - _e262765262847_ - _hd262764262850_ - _tl262763262852_ - _e262768262855_ - _hd262767262858_ - _tl262766262860_ - _e262771262863_ - _hd262770262866_ - _tl262769262868_ - _e262774262871_ - _hd262773262874_ - _tl262772262876_ - ___splice272736272737_ - _target262775262879_ - _tl262777262881_) - (letrec ((_loop262778262884_ - (lambda (_hd262776262887_ - _id262782262889_) + (_do-splice!260831_ __tmp276197)))) + (___kont273941273942_ (lambda () _expr263824_))) + (let* ((___match274128274129_ + (lambda (_e263954264016_ + _hd263953264019_ + _tl263952264021_ + _e263957264024_ + _hd263956264027_ + _tl263955264029_ + _e263960264032_ + _hd263959264035_ + _tl263958264037_ + _e263963264040_ + _hd263962264043_ + _tl263961264045_ + _e263966264048_ + _hd263965264051_ + _tl263964264053_ + _e263969264056_ + _hd263968264059_ + _tl263967264061_ + _e263972264064_ + _hd263971264067_ + _tl263970264069_ + _e263975264072_ + _hd263974264075_ + _tl263973264077_ + ___splice273937273938_ + _target263976264080_ + _tl263978264082_) + (letrec ((_loop263979264085_ + (lambda (_hd263977264088_ + _id263983264090_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262776262887_)) - (let ((_e262779262892_ + _hd263977264088_)) + (let ((_e263980264093_ (let () (declare (not safe)) (gx#stx-e - _hd262776262887_)))) - (let ((_lp-tl262781262897_ + _hd263977264088_)))) + (let ((_lp-tl263982264098_ (let () (declare (not safe)) - (##cdr _e262779262892_))) - (_lp-hd262780262895_ + (##cdr _e263980264093_))) + (_lp-hd263981264096_ (let () (declare (not safe)) - (##car _e262779262892_)))) - (let ((__tmp275011 + (##car _e263980264093_)))) + (let ((__tmp276212 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd262780262895_ _id262782262889_)))) + (cons _lp-hd263981264096_ _id263983264090_)))) (declare (not safe)) - (_loop262778262884_ _lp-tl262781262897_ __tmp275011)))) + (_loop263979264085_ _lp-tl263982264098_ __tmp276212)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id262783262900_ - (reverse _id262782262889_))) + (let ((_id263984264101_ + (reverse _id263983264090_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262772262876_)) - (let ((_e262786262903_ + _tl263973264077_)) + (let ((_e263987264104_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl262772262876_)))) - (let ((_tl262784262908_ + (gx#stx-e _tl263973264077_)))) + (let ((_tl263985264109_ (let () (declare (not safe)) - (##cdr _e262786262903_))) - (_hd262785262906_ + (##cdr _e263987264104_))) + (_hd263986264107_ (let () (declare (not safe)) - (##car _e262786262903_)))) + (##car _e263987264104_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262784262908_)) + (gx#stx-null? _tl263985264109_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl262766262860_)) + (gx#stx-null? _tl263967264061_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl262757262836_)) - (let ((___splice272738272739_ + (gx#stx-pair/null? _tl263958264037_)) + (let ((___splice273939273940_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl262757262836_ + _tl263958264037_ '0)))) - (let ((_tl262789262913_ + (let ((_tl263990264114_ (let () (declare (not safe)) (##vector-ref - ___splice272738272739_ + ___splice273939273940_ '1))) - (_target262787262911_ + (_target263988264112_ (let () (declare (not safe)) (##vector-ref - ___splice272738272739_ + ___splice273939273940_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262789262913_)) - (letrec ((_loop262790262916_ - (lambda (_hd262788262919_ - _bind262794262921_) + (gx#stx-null? _tl263990264114_)) + (letrec ((_loop263991264117_ + (lambda (_hd263989264120_ + _bind263995264122_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262788262919_)) - (let ((_e262791262924_ + _hd263989264120_)) + (let ((_e263992264125_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd262788262919_)))) - (let ((_lp-tl262793262929_ + (gx#stx-e _hd263989264120_)))) + (let ((_lp-tl263994264130_ (let () (declare (not safe)) - (##cdr _e262791262924_))) - (_lp-hd262792262927_ + (##cdr _e263992264125_))) + (_lp-hd263993264128_ (let () (declare (not safe)) - (##car _e262791262924_)))) - (let ((__tmp275010 + (##car _e263992264125_)))) + (let ((__tmp276211 (let () (declare (not safe)) - (cons _lp-hd262792262927_ _bind262794262921_)))) + (cons _lp-hd263993264128_ _bind263995264122_)))) (declare (not safe)) - (_loop262790262916_ _lp-tl262793262929_ __tmp275010)))) - (let ((_bind262795262932_ (reverse _bind262794262921_))) + (_loop263991264117_ _lp-tl263994264130_ __tmp276211)))) + (let ((_bind263996264133_ (reverse _bind263995264122_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262754262828_)) - (let ((_e262798262935_ + (gx#stx-pair? _tl263955264029_)) + (let ((_e263999264136_ (let () (declare (not safe)) - (gx#stx-e _tl262754262828_)))) - (let ((_tl262796262940_ + (gx#stx-e _tl263955264029_)))) + (let ((_tl263997264141_ (let () (declare (not safe)) - (##cdr _e262798262935_))) - (_hd262797262938_ + (##cdr _e263999264136_))) + (_hd263998264139_ (let () (declare (not safe)) - (##car _e262798262935_)))) + (##car _e263999264136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262796262940_)) - (___kont272734272735_ - _hd262797262938_ - _bind262795262932_ - _hd262785262906_ - _id262783262900_ - _hd262764262850_) - (___kont272740272741_)))) - (___kont272740272741_))))))) + (gx#stx-null? _tl263997264141_)) + (___kont273935273936_ + _hd263998264139_ + _bind263996264133_ + _hd263986264107_ + _id263984264101_ + _hd263965264051_) + (___kont273941273942_)))) + (___kont273941273942_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262790262916_ - _target262787262911_ + (_loop263991264117_ + _target263988264112_ '()))) - (___kont272740272741_)))) - (___kont272740272741_)) - (___kont272740272741_)) - (___kont272740272741_)))) - (___kont272740272741_))))))) + (___kont273941273942_)))) + (___kont273941273942_)) + (___kont273941273942_)) + (___kont273941273942_)))) + (___kont273941273942_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262778262884_ - _target262775262879_ + (_loop263979264085_ + _target263976264080_ '()))))) - (___match272861272862_ - (lambda (_e262719263010_ - _hd262718263013_ - _tl262717263015_ - _e262722263018_ - _hd262721263021_ - _tl262720263023_ - ___splice272732272733_ - _target262723263026_ - _tl262725263028_) - (letrec ((_loop262726263031_ - (lambda (_hd262724263034_ - _expr262730263036_ - _id262731263038_) + (___match274062274063_ + (lambda (_e263920264211_ + _hd263919264214_ + _tl263918264216_ + _e263923264219_ + _hd263922264222_ + _tl263921264224_ + ___splice273933273934_ + _target263924264227_ + _tl263926264229_) + (letrec ((_loop263927264232_ + (lambda (_hd263925264235_ + _expr263931264237_ + _id263932264239_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262724263034_)) - (let ((_e262727263041_ + _hd263925264235_)) + (let ((_e263928264242_ (let () (declare (not safe)) (gx#stx-e - _hd262724263034_)))) - (let ((_lp-tl262729263046_ + _hd263925264235_)))) + (let ((_lp-tl263930264247_ (let () (declare (not safe)) - (##cdr _e262727263041_))) - (_lp-hd262728263044_ + (##cdr _e263928264242_))) + (_lp-hd263929264245_ (let () (declare (not safe)) - (##car _e262727263041_)))) + (##car _e263928264242_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd262728263044_)) - (let ((_e262736263049_ + _lp-hd263929264245_)) + (let ((_e263937264250_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd262728263044_)))) - (let ((_tl262734263054_ + (gx#stx-e _lp-hd263929264245_)))) + (let ((_tl263935264255_ (let () (declare (not safe)) - (##cdr _e262736263049_))) - (_hd262735263052_ + (##cdr _e263937264250_))) + (_hd263936264253_ (let () (declare (not safe)) - (##car _e262736263049_)))) + (##car _e263937264250_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262735263052_)) - (let ((_e262739263057_ + (gx#stx-pair? _hd263936264253_)) + (let ((_e263940264258_ (let () (declare (not safe)) - (gx#stx-e _hd262735263052_)))) - (let ((_tl262737263062_ + (gx#stx-e _hd263936264253_)))) + (let ((_tl263938264263_ (let () (declare (not safe)) - (##cdr _e262739263057_))) - (_hd262738263060_ + (##cdr _e263940264258_))) + (_hd263939264261_ (let () (declare (not safe)) - (##car _e262739263057_)))) + (##car _e263940264258_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262737263062_)) + (gx#stx-null? _tl263938264263_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262734263054_)) - (let ((_e262742263065_ + (gx#stx-pair? _tl263935264255_)) + (let ((_e263943264266_ (let () (declare (not safe)) - (gx#stx-e _tl262734263054_)))) - (let ((_tl262740263070_ + (gx#stx-e _tl263935264255_)))) + (let ((_tl263941264271_ (let () (declare (not safe)) - (##cdr _e262742263065_))) - (_hd262741263068_ + (##cdr _e263943264266_))) + (_hd263942264269_ (let () (declare (not safe)) - (##car _e262742263065_)))) + (##car _e263943264266_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262740263070_)) - (let ((__tmp275013 + _tl263941264271_)) + (let ((__tmp276214 (let () (declare (not safe)) - (cons _hd262741263068_ - _expr262730263036_))) - (__tmp275012 + (cons _hd263942264269_ + _expr263931264237_))) + (__tmp276213 (let () (declare (not safe)) - (cons _hd262738263060_ - _id262731263038_)))) + (cons _hd263939264261_ + _id263932264239_)))) (declare (not safe)) - (_loop262726263031_ - _lp-tl262729263046_ - __tmp275013 - __tmp275012)) - (___kont272740272741_)))) - (___kont272740272741_)) - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)))) + (_loop263927264232_ + _lp-tl263930264247_ + __tmp276214 + __tmp276213)) + (___kont273941273942_)))) + (___kont273941273942_)) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id262733263075_ - (reverse _id262731263038_)) - (_expr262732263073_ - (reverse _expr262730263036_))) + (let ((_id263934264276_ + (reverse _id263932264239_)) + (_expr263933264274_ + (reverse _expr263931264237_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262720263023_)) - (let ((_e262745263078_ + _tl263921264224_)) + (let ((_e263946264279_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl262720263023_)))) - (let ((_tl262743263083_ + (gx#stx-e _tl263921264224_)))) + (let ((_tl263944264284_ (let () (declare (not safe)) - (##cdr _e262745263078_))) - (_hd262744263081_ + (##cdr _e263946264279_))) + (_hd263945264282_ (let () (declare (not safe)) - (##car _e262745263078_)))) + (##car _e263946264279_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262743263083_)) - (___kont272730272731_ - _hd262744263081_ - _expr262732263073_ - _id262733263075_) - (___kont272740272741_)))) - (___kont272740272741_))))))) + (gx#stx-null? _tl263944264284_)) + (___kont273931273932_ + _hd263945264282_ + _expr263933264274_ + _id263934264276_) + (___kont273941273942_)))) + (___kont273941273942_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262726263031_ - _target262723263026_ + (_loop263927264232_ + _target263924264227_ '() '()))))) - (___match272837272838_ - (lambda (_e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_) - (letrec ((_loop262688263147_ - (lambda (_hd262686263150_ - _xid262692263152_ - _id262693263154_) + (___match274038274039_ + (lambda (_e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_) + (letrec ((_loop263889264348_ + (lambda (_hd263887264351_ + _xid263893264353_ + _id263894264355_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262686263150_)) - (let ((_e262689263157_ + _hd263887264351_)) + (let ((_e263890264358_ (let () (declare (not safe)) (gx#stx-e - _hd262686263150_)))) - (let ((_lp-tl262691263162_ + _hd263887264351_)))) + (let ((_lp-tl263892264363_ (let () (declare (not safe)) - (##cdr _e262689263157_))) - (_lp-hd262690263160_ + (##cdr _e263890264358_))) + (_lp-hd263891264361_ (let () (declare (not safe)) - (##car _e262689263157_)))) + (##car _e263890264358_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd262690263160_)) - (let ((_e262698263165_ + _lp-hd263891264361_)) + (let ((_e263899264366_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd262690263160_)))) - (let ((_tl262696263170_ + (gx#stx-e _lp-hd263891264361_)))) + (let ((_tl263897264371_ (let () (declare (not safe)) - (##cdr _e262698263165_))) - (_hd262697263168_ + (##cdr _e263899264366_))) + (_hd263898264369_ (let () (declare (not safe)) - (##car _e262698263165_)))) + (##car _e263899264366_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262697263168_)) - (let ((_e262701263173_ + (gx#stx-pair? _hd263898264369_)) + (let ((_e263902264374_ (let () (declare (not safe)) - (gx#stx-e _hd262697263168_)))) - (let ((_tl262699263178_ + (gx#stx-e _hd263898264369_)))) + (let ((_tl263900264379_ (let () (declare (not safe)) - (##cdr _e262701263173_))) - (_hd262700263176_ + (##cdr _e263902264374_))) + (_hd263901264377_ (let () (declare (not safe)) - (##car _e262701263173_)))) + (##car _e263902264374_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262699263178_)) + (gx#stx-null? _tl263900264379_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262696263170_)) - (let ((_e262704263181_ + (gx#stx-pair? _tl263897264371_)) + (let ((_e263905264382_ (let () (declare (not safe)) - (gx#stx-e _tl262696263170_)))) - (let ((_tl262702263186_ + (gx#stx-e _tl263897264371_)))) + (let ((_tl263903264387_ (let () (declare (not safe)) - (##cdr _e262704263181_))) - (_hd262703263184_ + (##cdr _e263905264382_))) + (_hd263904264385_ (let () (declare (not safe)) - (##car _e262704263181_)))) + (##car _e263905264382_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262703263184_)) - (let ((_e262707263189_ + _hd263904264385_)) + (let ((_e263908264390_ (let () (declare (not safe)) (gx#stx-e - _hd262703263184_)))) - (let ((_tl262705263194_ + _hd263904264385_)))) + (let ((_tl263906264395_ (let () (declare (not safe)) - (##cdr _e262707263189_))) - (_hd262706263192_ + (##cdr _e263908264390_))) + (_hd263907264393_ (let () (declare (not safe)) - (##car _e262707263189_)))) + (##car _e263908264390_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd262706263192_)) + _hd263907264393_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd262706263192_)) + _hd263907264393_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl262705263194_)) - (let ((_e262710263197_ + (gx#stx-pair? _tl263906264395_)) + (let ((_e263911264398_ (let () (declare (not safe)) - (gx#stx-e _tl262705263194_)))) - (let ((_tl262708263202_ + (gx#stx-e _tl263906264395_)))) + (let ((_tl263909264403_ (let () (declare (not safe)) - (##cdr _e262710263197_))) - (_hd262709263200_ + (##cdr _e263911264398_))) + (_hd263910264401_ (let () (declare (not safe)) - (##car _e262710263197_)))) + (##car _e263911264398_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262708263202_)) + (gx#stx-null? _tl263909264403_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl262702263186_)) - (let ((__tmp275015 + (gx#stx-null? _tl263903264387_)) + (let ((__tmp276216 (let () (declare (not safe)) - (cons _hd262709263200_ - _xid262692263152_))) - (__tmp275014 + (cons _hd263910264401_ + _xid263893264353_))) + (__tmp276215 (let () (declare (not safe)) - (cons _hd262700263176_ - _id262693263154_)))) + (cons _hd263901264377_ + _id263894264355_)))) (declare (not safe)) - (_loop262688263147_ - _lp-tl262691263162_ - __tmp275015 - __tmp275014)) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)))) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)))) + (_loop263889264348_ + _lp-tl263892264363_ + __tmp276216 + __tmp276215)) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)))) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)))) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)))) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)))) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)))) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)))) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)))) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)))) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id262695263207_ - (reverse _id262693263154_)) - (_xid262694263205_ - (reverse _xid262692263152_))) + (let ((_id263896264408_ + (reverse _id263894264355_)) + (_xid263895264406_ + (reverse _xid263893264353_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262682263139_)) - (let ((_e262713263210_ + _tl263883264340_)) + (let ((_e263914264411_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl262682263139_)))) - (let ((_tl262711263215_ + (gx#stx-e _tl263883264340_)))) + (let ((_tl263912264416_ (let () (declare (not safe)) - (##cdr _e262713263210_))) - (_hd262712263213_ + (##cdr _e263914264411_))) + (_hd263913264414_ (let () (declare (not safe)) - (##car _e262713263210_)))) + (##car _e263914264411_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262711263215_)) - (___kont272726272727_ - _hd262712263213_ - _xid262694263205_ - _id262695263207_) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_)))) - (___match272861272862_ - _e262681263126_ - _hd262680263129_ - _tl262679263131_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_))))))) + (gx#stx-null? _tl263912264416_)) + (___kont273927273928_ + _hd263913264414_ + _xid263895264406_ + _id263896264408_) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_)))) + (___match274062274063_ + _e263882264327_ + _hd263881264330_ + _tl263880264332_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop262688263147_ - _target262685263142_ + (_loop263889264348_ + _target263886264343_ '() '()))))) - (___match272813272814_ - (lambda (_e262651263256_ - _hd262650263259_ - _tl262649263261_ - _e262654263264_ - _hd262653263267_ - _tl262652263269_ - _e262657263272_ - _hd262656263275_ - _tl262655263277_ - _e262660263280_ - _hd262659263283_ - _tl262658263285_ - ___splice272724272725_ - _target262661263288_ - _tl262663263290_) - (letrec ((_loop262664263293_ - (lambda (_hd262662263296_ - _id262668263298_) + (___match274014274015_ + (lambda (_e263852264457_ + _hd263851264460_ + _tl263850264462_ + _e263855264465_ + _hd263854264468_ + _tl263853264470_ + _e263858264473_ + _hd263857264476_ + _tl263856264478_ + _e263861264481_ + _hd263860264484_ + _tl263859264486_ + ___splice273925273926_ + _target263862264489_ + _tl263864264491_) + (letrec ((_loop263865264494_ + (lambda (_hd263863264497_ + _id263869264499_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262662263296_)) - (let ((_e262665263301_ + _hd263863264497_)) + (let ((_e263866264502_ (let () (declare (not safe)) (gx#stx-e - _hd262662263296_)))) - (let ((_lp-tl262667263306_ + _hd263863264497_)))) + (let ((_lp-tl263868264507_ (let () (declare (not safe)) - (##cdr _e262665263301_))) - (_lp-hd262666263304_ + (##cdr _e263866264502_))) + (_lp-hd263867264505_ (let () (declare (not safe)) - (##car _e262665263301_)))) + (##car _e263866264502_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd262666263304_)) - (let ((_e262672263309_ + _lp-hd263867264505_)) + (let ((_e263873264510_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _lp-hd262666263304_)))) - (let ((_tl262670263314_ + (gx#stx-e _lp-hd263867264505_)))) + (let ((_tl263871264515_ (let () (declare (not safe)) - (##cdr _e262672263309_))) - (_hd262671263312_ + (##cdr _e263873264510_))) + (_hd263872264513_ (let () (declare (not safe)) - (##car _e262672263309_)))) + (##car _e263873264510_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262671263312_)) + (gx#identifier? _hd263872264513_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd262671263312_)) + (gx#stx-eq? '%#ref _hd263872264513_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262670263314_)) - (let ((_e262675263317_ + (gx#stx-pair? _tl263871264515_)) + (let ((_e263876264518_ (let () (declare (not safe)) - (gx#stx-e _tl262670263314_)))) - (let ((_tl262673263322_ + (gx#stx-e _tl263871264515_)))) + (let ((_tl263874264523_ (let () (declare (not safe)) - (##cdr _e262675263317_))) - (_hd262674263320_ + (##cdr _e263876264518_))) + (_hd263875264521_ (let () (declare (not safe)) - (##car _e262675263317_)))) + (##car _e263876264518_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262673263322_)) - (let ((__tmp275016 + (gx#stx-null? _tl263874264523_)) + (let ((__tmp276217 (let () (declare (not safe)) - (cons _hd262674263320_ - _id262668263298_)))) + (cons _hd263875264521_ + _id263869264499_)))) (declare (not safe)) - (_loop262664263293_ - _lp-tl262667263306_ - __tmp275016)) - (___kont272740272741_)))) - (___kont272740272741_)) - (___kont272740272741_)) - (___kont272740272741_)))) - (___kont272740272741_)))) + (_loop263865264494_ + _lp-tl263868264507_ + __tmp276217)) + (___kont273941273942_)))) + (___kont273941273942_)) + (___kont273941273942_)) + (___kont273941273942_)))) + (___kont273941273942_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id262669263325_ - (reverse _id262668263298_))) - (___kont272722272723_ - _id262669263325_ - _hd262659263283_)))))) + (let ((_id263870264526_ + (reverse _id263869264499_))) + (___kont273923273924_ + _id263870264526_ + _hd263860264484_)))))) (let () (declare (not safe)) - (_loop262664263293_ - _target262661263288_ + (_loop263865264494_ + _target263862264489_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx272718272719_)) - (let ((_e262637263366_ + (gx#stx-pair? ___stx273919273920_)) + (let ((_e263838264567_ (let () (declare (not safe)) - (gx#stx-e ___stx272718272719_)))) - (let ((_tl262635263371_ + (gx#stx-e ___stx273919273920_)))) + (let ((_tl263836264572_ (let () (declare (not safe)) - (##cdr _e262637263366_))) - (_hd262636263369_ + (##cdr _e263838264567_))) + (_hd263837264570_ (let () (declare (not safe)) - (##car _e262637263366_)))) + (##car _e263838264567_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262636263369_)) + (gx#identifier? _hd263837264570_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd262636263369_)) + _hd263837264570_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262635263371_)) - (let ((_e262640263374_ + _tl263836264572_)) + (let ((_e263841264575_ (let () (declare (not safe)) (gx#stx-e - _tl262635263371_)))) - (let ((_tl262638263379_ + _tl263836264572_)))) + (let ((_tl263839264580_ (let () (declare (not safe)) - (##cdr _e262640263374_))) - (_hd262639263377_ + (##cdr _e263841264575_))) + (_hd263840264578_ (let () (declare (not safe)) - (##car _e262640263374_)))) + (##car _e263841264575_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262638263379_)) - (let ((_e262643263382_ + _tl263839264580_)) + (let ((_e263844264583_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl262638263379_)))) - (let ((_tl262641263387_ - (let () (declare (not safe)) (##cdr _e262643263382_))) - (_hd262642263385_ - (let () (declare (not safe)) (##car _e262643263382_)))) + (gx#stx-e _tl263839264580_)))) + (let ((_tl263842264588_ + (let () (declare (not safe)) (##cdr _e263844264583_))) + (_hd263843264586_ + (let () (declare (not safe)) (##car _e263844264583_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262641263387_)) - (let ((_e262646263390_ + (gx#stx-pair? _tl263842264588_)) + (let ((_e263847264591_ (let () (declare (not safe)) - (gx#stx-e _tl262641263387_)))) - (let ((_tl262644263395_ + (gx#stx-e _tl263842264588_)))) + (let ((_tl263845264596_ (let () (declare (not safe)) - (##cdr _e262646263390_))) - (_hd262645263393_ + (##cdr _e263847264591_))) + (_hd263846264594_ (let () (declare (not safe)) - (##car _e262646263390_)))) + (##car _e263847264591_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262644263395_)) - (___kont272720272721_ - _hd262645263393_ - _hd262642263385_ - _hd262639263377_) - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)))) + (gx#stx-null? _tl263845264596_)) + (___kont273921273922_ + _hd263846264594_ + _hd263843264586_ + _hd263840264578_) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272740272741_)) + (___kont273941273942_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd262636263369_)) + _hd263837264570_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262635263371_)) - (let ((_e262654263264_ + _tl263836264572_)) + (let ((_e263855264465_ (let () (declare (not safe)) (gx#stx-e - _tl262635263371_)))) - (let ((_tl262652263269_ + _tl263836264572_)))) + (let ((_tl263853264470_ (let () (declare (not safe)) - (##cdr _e262654263264_))) - (_hd262653263267_ + (##cdr _e263855264465_))) + (_hd263854264468_ (let () (declare (not safe)) - (##car _e262654263264_)))) + (##car _e263855264465_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd262653263267_)) - (let ((_e262657263272_ + _hd263854264468_)) + (let ((_e263858264473_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd262653263267_)))) - (let ((_tl262655263277_ + (gx#stx-e _hd263854264468_)))) + (let ((_tl263856264478_ (let () (declare (not safe)) - (##cdr _e262657263272_))) - (_hd262656263275_ + (##cdr _e263858264473_))) + (_hd263857264476_ (let () (declare (not safe)) - (##car _e262657263272_)))) + (##car _e263858264473_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262656263275_)) + (gx#identifier? _hd263857264476_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd262656263275_)) + (gx#stx-eq? '%#ref _hd263857264476_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262655263277_)) - (let ((_e262660263280_ + (gx#stx-pair? _tl263856264478_)) + (let ((_e263861264481_ (let () (declare (not safe)) - (gx#stx-e _tl262655263277_)))) - (let ((_tl262658263285_ + (gx#stx-e _tl263856264478_)))) + (let ((_tl263859264486_ (let () (declare (not safe)) - (##cdr _e262660263280_))) - (_hd262659263283_ + (##cdr _e263861264481_))) + (_hd263860264484_ (let () (declare (not safe)) - (##car _e262660263280_)))) + (##car _e263861264481_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262658263285_)) + (gx#stx-null? _tl263859264486_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl262652263269_)) - (let ((___splice272724272725_ + _tl263853264470_)) + (let ((___splice273925273926_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl262652263269_ + _tl263853264470_ '0)))) - (let ((_tl262663263290_ + (let ((_tl263864264491_ (let () (declare (not safe)) (##vector-ref - ___splice272724272725_ + ___splice273925273926_ '1))) - (_target262661263288_ + (_target263862264489_ (let () (declare (not safe)) (##vector-ref - ___splice272724272725_ + ___splice273925273926_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262663263290_)) - (___match272813272814_ - _e262637263366_ - _hd262636263369_ - _tl262635263371_ - _e262654263264_ - _hd262653263267_ - _tl262652263269_ - _e262657263272_ - _hd262656263275_ - _tl262655263277_ - _e262660263280_ - _hd262659263283_ - _tl262658263285_ - ___splice272724272725_ - _target262661263288_ - _tl262663263290_) - (___kont272740272741_)))) - (___kont272740272741_)) - (___kont272740272741_)))) - (___kont272740272741_)) - (___kont272740272741_)) - (___kont272740272741_)))) - (___kont272740272741_)))) + _tl263864264491_)) + (___match274014274015_ + _e263838264567_ + _hd263837264570_ + _tl263836264572_ + _e263855264465_ + _hd263854264468_ + _tl263853264470_ + _e263858264473_ + _hd263857264476_ + _tl263856264478_ + _e263861264481_ + _hd263860264484_ + _tl263859264486_ + ___splice273925273926_ + _target263862264489_ + _tl263864264491_) + (___kont273941273942_)))) + (___kont273941273942_)) + (___kont273941273942_)))) + (___kont273941273942_)) + (___kont273941273942_)) + (___kont273941273942_)))) + (___kont273941273942_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272740272741_)) + (___kont273941273942_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd262636263369_)) + _hd263837264570_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262635263371_)) - (let ((_e262684263134_ + _tl263836264572_)) + (let ((_e263885264335_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl262635263371_)))) - (let ((_tl262682263139_ - (let () (declare (not safe)) (##cdr _e262684263134_))) - (_hd262683263137_ - (let () (declare (not safe)) (##car _e262684263134_)))) + (gx#stx-e _tl263836264572_)))) + (let ((_tl263883264340_ + (let () (declare (not safe)) (##cdr _e263885264335_))) + (_hd263884264338_ + (let () (declare (not safe)) (##car _e263885264335_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd262683263137_)) - (let ((___splice272728272729_ + (gx#stx-pair/null? _hd263884264338_)) + (let ((___splice273929273930_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd262683263137_ '0)))) - (let ((_tl262687263144_ + (gx#syntax-split-splice _hd263884264338_ '0)))) + (let ((_tl263888264345_ (let () (declare (not safe)) - (##vector-ref ___splice272728272729_ '1))) - (_target262685263142_ + (##vector-ref ___splice273929273930_ '1))) + (_target263886264343_ (let () (declare (not safe)) - (##vector-ref ___splice272728272729_ '0)))) + (##vector-ref ___splice273929273930_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262687263144_)) - (___match272837272838_ - _e262637263366_ - _hd262636263369_ - _tl262635263371_ - _e262684263134_ - _hd262683263137_ - _tl262682263139_ - ___splice272728272729_ - _target262685263142_ - _tl262687263144_) - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)) + (gx#stx-null? _tl263888264345_)) + (___match274038274039_ + _e263838264567_ + _hd263837264570_ + _tl263836264572_ + _e263885264335_ + _hd263884264338_ + _tl263883264340_ + ___splice273929273930_ + _target263886264343_ + _tl263888264345_) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd262636263369_)) + _hd263837264570_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262635263371_)) - (let ((_e262756262823_ + _tl263836264572_)) + (let ((_e263957264024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl262635263371_)))) - (let ((_tl262754262828_ + (gx#stx-e _tl263836264572_)))) + (let ((_tl263955264029_ (let () (declare (not safe)) - (##cdr _e262756262823_))) - (_hd262755262826_ + (##cdr _e263957264024_))) + (_hd263956264027_ (let () (declare (not safe)) - (##car _e262756262823_)))) + (##car _e263957264024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262755262826_)) - (let ((_e262759262831_ + (gx#stx-pair? _hd263956264027_)) + (let ((_e263960264032_ (let () (declare (not safe)) - (gx#stx-e _hd262755262826_)))) - (let ((_tl262757262836_ + (gx#stx-e _hd263956264027_)))) + (let ((_tl263958264037_ (let () (declare (not safe)) - (##cdr _e262759262831_))) - (_hd262758262834_ + (##cdr _e263960264032_))) + (_hd263959264035_ (let () (declare (not safe)) - (##car _e262759262831_)))) + (##car _e263960264032_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262758262834_)) - (let ((_e262762262839_ + (gx#stx-pair? _hd263959264035_)) + (let ((_e263963264040_ (let () (declare (not safe)) - (gx#stx-e _hd262758262834_)))) - (let ((_tl262760262844_ + (gx#stx-e _hd263959264035_)))) + (let ((_tl263961264045_ (let () (declare (not safe)) - (##cdr _e262762262839_))) - (_hd262761262842_ + (##cdr _e263963264040_))) + (_hd263962264043_ (let () (declare (not safe)) - (##car _e262762262839_)))) + (##car _e263963264040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262761262842_)) - (let ((_e262765262847_ + (gx#stx-pair? _hd263962264043_)) + (let ((_e263966264048_ (let () (declare (not safe)) (gx#stx-e - _hd262761262842_)))) - (let ((_tl262763262852_ + _hd263962264043_)))) + (let ((_tl263964264053_ (let () (declare (not safe)) - (##cdr _e262765262847_))) - (_hd262764262850_ + (##cdr _e263966264048_))) + (_hd263965264051_ (let () (declare (not safe)) - (##car _e262765262847_)))) + (##car _e263966264048_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262763262852_)) + _tl263964264053_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262760262844_)) - (let ((_e262768262855_ + _tl263961264045_)) + (let ((_e263969264056_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl262760262844_)))) - (let ((_tl262766262860_ - (let () (declare (not safe)) (##cdr _e262768262855_))) - (_hd262767262858_ - (let () (declare (not safe)) (##car _e262768262855_)))) + (gx#stx-e _tl263961264045_)))) + (let ((_tl263967264061_ + (let () (declare (not safe)) (##cdr _e263969264056_))) + (_hd263968264059_ + (let () (declare (not safe)) (##car _e263969264056_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd262767262858_)) - (let ((_e262771262863_ + (gx#stx-pair? _hd263968264059_)) + (let ((_e263972264064_ (let () (declare (not safe)) - (gx#stx-e _hd262767262858_)))) - (let ((_tl262769262868_ + (gx#stx-e _hd263968264059_)))) + (let ((_tl263970264069_ (let () (declare (not safe)) - (##cdr _e262771262863_))) - (_hd262770262866_ + (##cdr _e263972264064_))) + (_hd263971264067_ (let () (declare (not safe)) - (##car _e262771262863_)))) + (##car _e263972264064_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262770262866_)) + (gx#identifier? _hd263971264067_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd262770262866_)) + (gx#stx-eq? '%#lambda _hd263971264067_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262769262868_)) - (let ((_e262774262871_ + (gx#stx-pair? _tl263970264069_)) + (let ((_e263975264072_ (let () (declare (not safe)) - (gx#stx-e _tl262769262868_)))) - (let ((_tl262772262876_ + (gx#stx-e _tl263970264069_)))) + (let ((_tl263973264077_ (let () (declare (not safe)) - (##cdr _e262774262871_))) - (_hd262773262874_ + (##cdr _e263975264072_))) + (_hd263974264075_ (let () (declare (not safe)) - (##car _e262774262871_)))) + (##car _e263975264072_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd262773262874_)) - (let ((___splice272736272737_ + _hd263974264075_)) + (let ((___splice273937273938_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd262773262874_ + _hd263974264075_ '0)))) - (let ((_tl262777262881_ + (let ((_tl263978264082_ (let () (declare (not safe)) (##vector-ref - ___splice272736272737_ + ___splice273937273938_ '1))) - (_target262775262879_ + (_target263976264080_ (let () (declare (not safe)) (##vector-ref - ___splice272736272737_ + ___splice273937273938_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl262777262881_)) - (___match272927272928_ - _e262637263366_ - _hd262636263369_ - _tl262635263371_ - _e262756262823_ - _hd262755262826_ - _tl262754262828_ - _e262759262831_ - _hd262758262834_ - _tl262757262836_ - _e262762262839_ - _hd262761262842_ - _tl262760262844_ - _e262765262847_ - _hd262764262850_ - _tl262763262852_ - _e262768262855_ - _hd262767262858_ - _tl262766262860_ - _e262771262863_ - _hd262770262866_ - _tl262769262868_ - _e262774262871_ - _hd262773262874_ - _tl262772262876_ - ___splice272736272737_ - _target262775262879_ - _tl262777262881_) - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)) - (___kont272740272741_)) - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)) + _tl263978264082_)) + (___match274128274129_ + _e263838264567_ + _hd263837264570_ + _tl263836264572_ + _e263957264024_ + _hd263956264027_ + _tl263955264029_ + _e263960264032_ + _hd263959264035_ + _tl263958264037_ + _e263963264040_ + _hd263962264043_ + _tl263961264045_ + _e263966264048_ + _hd263965264051_ + _tl263964264053_ + _e263969264056_ + _hd263968264059_ + _tl263967264061_ + _e263972264064_ + _hd263971264067_ + _tl263970264069_ + _e263975264072_ + _hd263974264075_ + _tl263973264077_ + ___splice273937273938_ + _target263976264080_ + _tl263978264082_) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)) + (___kont273941273942_)) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)))) - (___kont272740272741_)) - (___kont272740272741_))))) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)))) + (___kont273941273942_)) + (___kont273941273942_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272740272741_)))) - (___kont272740272741_))))))) - (_optimize-t__271649271650_ - (lambda (_expr262606_ _test262607_ _continue262608_) - (let ((__tmp275018 - (let ((__tmp275019 + (___kont273941273942_)))) + (___kont273941273942_))))))) + (_optimize-t__272850272851_ + (lambda (_expr263807_ _test263808_ _continue263809_) + (let ((__tmp276219 + (let ((__tmp276220 (let () (declare (not safe)) - (cons _test262607_ '#t)))) + (cons _test263808_ '#t)))) (declare (not safe)) - (cons __tmp275019 '()))) - (__tmp275017 - (lambda () (_continue262608_ _expr262606_)))) + (cons __tmp276220 '()))) + (__tmp276218 + (lambda () (_continue263809_ _expr263807_)))) (declare (not safe)) - (_do-assert259620_ __tmp275018 __tmp275017)))) - (_optimize-t__0__271651271652_ - (lambda (_expr262614_ _test262615_) - (let ((_continue262617_ _optimize-e259631_)) + (_do-assert260821_ __tmp276219 __tmp276218)))) + (_optimize-t__0__272852272853_ + (lambda (_expr263815_ _test263816_) + (let ((_continue263818_ _optimize-e260832_)) (declare (not safe)) - (_optimize-t__271649271650_ - _expr262614_ - _test262615_ - _continue262617_)))) - (_optimize-t259632_ - (lambda _g275021_ - (let ((_g275020_ + (_optimize-t__272850272851_ + _expr263815_ + _test263816_ + _continue263818_)))) + (_optimize-t260833_ + (lambda _g276222_ + (let ((_g276221_ (let () (declare (not safe)) - (##length _g275021_)))) - (cond ((let () (declare (not safe)) (##fx= _g275020_ 2)) - (apply (lambda (_expr262614_ _test262615_) + (##length _g276222_)))) + (cond ((let () (declare (not safe)) (##fx= _g276221_ 2)) + (apply (lambda (_expr263815_ _test263816_) (let () (declare (not safe)) - (_optimize-t__0__271651271652_ - _expr262614_ - _test262615_))) - _g275021_)) - ((let () (declare (not safe)) (##fx= _g275020_ 3)) - (apply (lambda (_expr262619_ - _test262620_ - _continue262621_) + (_optimize-t__0__272852272853_ + _expr263815_ + _test263816_))) + _g276222_)) + ((let () (declare (not safe)) (##fx= _g276221_ 3)) + (apply (lambda (_expr263820_ + _test263821_ + _continue263822_) (let () (declare (not safe)) - (_optimize-t__271649271650_ - _expr262619_ - _test262620_ - _continue262621_))) - _g275021_)) + (_optimize-t__272850272851_ + _expr263820_ + _test263821_ + _continue263822_))) + _g276222_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g275021_)))))) - (_optimize-f__271653271654_ - (lambda (_expr261691_ _test261692_) - (let ((__tmp275064 - (if _test261692_ - (let ((__tmp275065 + _g276222_)))))) + (_optimize-f__272854272855_ + (lambda (_expr262892_ _test262893_) + (let ((__tmp276265 + (if _test262893_ + (let ((__tmp276266 (let () (declare (not safe)) - (cons _test261692_ '#f)))) + (cons _test262893_ '#f)))) (declare (not safe)) - (cons __tmp275065 '())) + (cons __tmp276266 '())) '())) - (__tmp275022 + (__tmp276223 (lambda () - (let* ((___stx272968272969_ _expr261691_) - (_g261700261873_ + (let* ((___stx274169274170_ _expr262892_) + (_g262901263074_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272968272969_))))) - (let ((___kont272970272971_ - (lambda (_L262461_ _L262462_) - (let ((_$e262482_ + ___stx274169274170_))))) + (let ((___kont274171274172_ + (lambda (_L263662_ _L263663_) + (let ((_$e263683_ (let () (declare (not safe)) - (_lookup-block259639_ - _L262462_)))) - (if _$e262482_ - ((lambda (_block262485_) + (_lookup-block260840_ + _L263663_)))) + (if _$e263683_ + ((lambda (_block263686_) (if (let () (declare (not safe)) - (_nonlinear-block?259641_ - _block262485_)) - _expr261691_ - (let* ((_inline262494_ - (let ((__tmp275023 + (_nonlinear-block?260842_ + _block263686_)) + _expr262892_ + (let* ((_inline263695_ + (let ((__tmp276224 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275024 - (lambda (_g262486262489_ _g262487262491_) + (let ((__tmp276225 + (lambda (_g263687263690_ _g263688263692_) (let () (declare (not safe)) - (cons _g262486262489_ - _g262487262491_))))) + (cons _g263687263690_ + _g263688263692_))))) (declare (not safe)) - (foldr1 __tmp275024 '() _L262461_)))) + (foldr1 __tmp276225 '() _L263662_)))) (declare (not safe)) - (_inline-block259640_ _block262485_ __tmp275023))) - (___stx272930272931_ _inline262494_) - (_g262497262518_ + (_inline-block260841_ _block263686_ __tmp276224))) + (___stx274131274132_ _inline263695_) + (_g263698263719_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx272930272931_))))) - (let ((___kont272932272933_ - (lambda (_L262562_ _L262563_ _L262564_) - (let ((_$e262586_ + ___stx274131274132_))))) + (let ((___kont274133274134_ + (lambda (_L263763_ _L263764_ _L263765_) + (let ((_$e263787_ (let () (declare (not safe)) - (_assert-e259634_ _L262564_)))) + (_assert-e260835_ _L263765_)))) (if (let () (declare (not safe)) - (eq? '#t _$e262586_)) - (if _in-splice?259619_ + (eq? '#t _$e263787_)) + (if _in-splice?260820_ (let () (declare (not safe)) - (_optimize-f__0__271655271656_ _L262563_)) + (_optimize-f__0__272856272857_ _L263764_)) (let () (declare (not safe)) - (_optimize-e259631_ _L262563_))) + (_optimize-e260832_ _L263764_))) (if (let () (declare (not safe)) - (eq? '#f _$e262586_)) + (eq? '#f _$e263787_)) (let () (declare (not safe)) - (_optimize-f__0__271655271656_ _L262562_)) - _expr261691_))))) - (___kont272934272935_ + (_optimize-f__0__272856272857_ _L263763_)) + _expr262892_))))) + (___kont274135274136_ (lambda () (let () (declare (not safe)) - (_optimize-f__0__271655271656_ _inline262494_))))) + (_optimize-f__0__272856272857_ _inline263695_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx272930272931_)) - (let ((_e262504262530_ + (gx#stx-pair? ___stx274131274132_)) + (let ((_e263705263731_ (let () (declare (not safe)) - (gx#stx-e ___stx272930272931_)))) - (let ((_tl262502262535_ + (gx#stx-e ___stx274131274132_)))) + (let ((_tl263703263736_ (let () (declare (not safe)) - (##cdr _e262504262530_))) - (_hd262503262533_ + (##cdr _e263705263731_))) + (_hd263704263734_ (let () (declare (not safe)) - (##car _e262504262530_)))) + (##car _e263705263731_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd262503262533_)) + (gx#identifier? _hd263704263734_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd262503262533_)) + (gx#stx-eq? '%#if _hd263704263734_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl262502262535_)) - (let ((_e262507262538_ + (gx#stx-pair? _tl263703263736_)) + (let ((_e263708263739_ (let () (declare (not safe)) - (gx#stx-e _tl262502262535_)))) - (let ((_tl262505262543_ + (gx#stx-e _tl263703263736_)))) + (let ((_tl263706263744_ (let () (declare (not safe)) - (##cdr _e262507262538_))) - (_hd262506262541_ + (##cdr _e263708263739_))) + (_hd263707263742_ (let () (declare (not safe)) - (##car _e262507262538_)))) + (##car _e263708263739_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262505262543_)) - (let ((_e262510262546_ + _tl263706263744_)) + (let ((_e263711263747_ (let () (declare (not safe)) (gx#stx-e - _tl262505262543_)))) - (let ((_tl262508262551_ + _tl263706263744_)))) + (let ((_tl263709263752_ (let () (declare (not safe)) - (##cdr _e262510262546_))) - (_hd262509262549_ + (##cdr _e263711263747_))) + (_hd263710263750_ (let () (declare (not safe)) - (##car _e262510262546_)))) + (##car _e263711263747_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl262508262551_)) - (let ((_e262513262554_ + _tl263709263752_)) + (let ((_e263714263755_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl262508262551_)))) - (let ((_tl262511262559_ - (let () (declare (not safe)) (##cdr _e262513262554_))) - (_hd262512262557_ - (let () (declare (not safe)) (##car _e262513262554_)))) + (gx#stx-e _tl263709263752_)))) + (let ((_tl263712263760_ + (let () (declare (not safe)) (##cdr _e263714263755_))) + (_hd263713263758_ + (let () (declare (not safe)) (##car _e263714263755_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl262511262559_)) - (___kont272932272933_ - _hd262512262557_ - _hd262509262549_ - _hd262506262541_) - (___kont272934272935_)))) - (___kont272934272935_)))) + (gx#stx-null? _tl263712263760_)) + (___kont274133274134_ + _hd263713263758_ + _hd263710263750_ + _hd263707263742_) + (___kont274135274136_)))) + (___kont274135274136_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272934272935_)))) - (___kont272934272935_)) - (___kont272934272935_)) - (___kont272934272935_)))) - (___kont272934272935_)))))) + (___kont274135274136_)))) + (___kont274135274136_)) + (___kont274135274136_)) + (___kont274135274136_)))) + (___kont274135274136_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e262482_) - _expr261691_)))) - (___kont272974272975_ - (lambda (_L262359_ _L262360_ _L262361_) - (let ((_$e262378_ + _$e263683_) + _expr262892_)))) + (___kont274175274176_ + (lambda (_L263560_ _L263561_ _L263562_) + (let ((_$e263579_ (let () (declare (not safe)) - (_assert-e259634_ - _L262361_)))) + (_assert-e260835_ + _L263562_)))) (if (let () (declare (not safe)) - (eq? '#t _$e262378_)) - (if _in-splice?259619_ + (eq? '#t _$e263579_)) + (if _in-splice?260820_ (let () (declare (not safe)) - (_optimize-f__0__271655271656_ - _L262360_)) + (_optimize-f__0__272856272857_ + _L263561_)) (let () (declare (not safe)) - (_optimize-e259631_ - _L262360_))) + (_optimize-e260832_ + _L263561_))) (if (let () (declare (not safe)) - (eq? '#f _$e262378_)) + (eq? '#f _$e263579_)) (let () (declare (not safe)) - (_optimize-f__0__271655271656_ - _L262359_)) - (let ((_K262381_ + (_optimize-f__0__272856272857_ + _L263560_)) + (let ((_K263582_ (let () (declare (not safe)) - (_optimize-t__271649271650_ - _L262360_ - _L262361_ - _optimize-f259633_))) - (_E262382_ + (_optimize-t__272850272851_ + _L263561_ + _L263562_ + _optimize-f260834_))) + (_E263583_ (let () (declare (not safe)) - (_optimize-f__271653271654_ - _L262359_ - _L262361_)))) - (if (let ((__tmp275029 + (_optimize-f__272854272855_ + _L263560_ + _L263562_)))) + (if (let ((__tmp276230 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#apply-generate-runtime-repr _K262381_))) - (__tmp275028 + (gxc#apply-generate-runtime-repr _K263582_))) + (__tmp276229 (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _E262382_)))) + (gxc#apply-generate-runtime-repr _E263583_)))) (declare (not safe)) - (equal? __tmp275029 __tmp275028)) - _K262381_ - (let ((__tmp275025 - (let ((__tmp275026 - (let ((__tmp275027 + (equal? __tmp276230 __tmp276229)) + _K263582_ + (let ((__tmp276226 + (let ((__tmp276227 + (let ((__tmp276228 (let () (declare (not safe)) - (cons _E262382_ '())))) + (cons _E263583_ '())))) (declare (not safe)) - (cons _K262381_ __tmp275027)))) + (cons _K263582_ __tmp276228)))) (declare (not safe)) - (cons _L262361_ __tmp275026)))) + (cons _L263562_ __tmp276227)))) (declare (not safe)) - (cons '%#if __tmp275025))))))))) + (cons '%#if __tmp276226))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272976272977_ - (lambda (_L262289_ _L262290_ _L262291_) - (let* ((_body262310_ + (___kont274177274178_ + (lambda (_L263490_ _L263491_ _L263492_) + (let* ((_body263511_ (let () (declare (not safe)) - (_optimize-f__0__271655271656_ - _L262289_))) - (__tmp275030 - (let ((__tmp275032 + (_optimize-f__0__272856272857_ + _L263490_))) + (__tmp276231 + (let ((__tmp276233 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L262290_ - _L262291_)) - (let ((__tmp275033 + _L263491_ + _L263492_)) + (let ((__tmp276234 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g262311262315_ - _g262312262317_ - _g262313262319_) - (let ((__tmp275034 - (let ((__tmp275039 + (lambda (_g263512263516_ + _g263513263518_ + _g263514263520_) + (let ((__tmp276235 + (let ((__tmp276240 (let () (declare (not safe)) - (cons _g262312262317_ '()))) - (__tmp275035 - (let ((__tmp275036 - (let ((__tmp275038 + (cons _g263513263518_ '()))) + (__tmp276236 + (let ((__tmp276237 + (let ((__tmp276239 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275037 + (__tmp276238 (let () (declare (not safe)) - (cons _g262311262315_ + (cons _g263512263516_ '())))) (declare (not safe)) - (cons __tmp275038 - __tmp275037)))) + (cons __tmp276239 + __tmp276238)))) (declare (not safe)) - (cons __tmp275036 '())))) + (cons __tmp276237 '())))) (declare (not safe)) - (cons __tmp275039 __tmp275035)))) + (cons __tmp276240 __tmp276236)))) (declare (not safe)) - (cons __tmp275034 _g262313262319_))))) + (cons __tmp276235 _g263514263520_))))) (declare (not safe)) - (foldr2 __tmp275033 '() _L262290_ _L262291_)))) - (__tmp275031 - (let () (declare (not safe)) (cons _body262310_ '())))) + (foldr2 __tmp276234 '() _L263491_ _L263492_)))) + (__tmp276232 + (let () (declare (not safe)) (cons _body263511_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275032 - __tmp275031)))) + (cons __tmp276233 + __tmp276232)))) (declare (not safe)) - (cons '%#let-values __tmp275030)))) - (___kont272980272981_ - (lambda (_L262157_ _L262158_ _L262159_) - (let ((__tmp275040 + (cons '%#let-values __tmp276231)))) + (___kont274181274182_ + (lambda (_L263358_ _L263359_ _L263360_) + (let ((__tmp276241 (map cons - (let ((__tmp275041 - (lambda (_g262177262180_ + (let ((__tmp276242 + (lambda (_g263378263381_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g262178262182_) + _g263379263383_) (let () (declare (not safe)) - (cons _g262177262180_ _g262178262182_))))) + (cons _g263378263381_ _g263379263383_))))) (declare (not safe)) - (foldr1 __tmp275041 '() _L262159_)) + (foldr1 __tmp276242 '() _L263360_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp275042 - (lambda (_g262184262187_ + (let ((__tmp276243 + (lambda (_g263385263388_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g262185262189_) + _g263386263390_) (let () (declare (not safe)) - (cons _g262184262187_ _g262185262189_))))) + (cons _g263385263388_ _g263386263390_))))) (declare (not safe)) - (foldr1 __tmp275042 '() _L262158_))))) + (foldr1 __tmp276243 '() _L263359_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_bind-e__271657271658_ - __tmp275040 - _L262157_ - _optimize-f259633_)))) - (___kont272984272985_ - (lambda (_L262013_ - _L262014_ - _L262015_ - _L262016_ - _L262017_) - (let ((__tmp275043 + (_bind-e__272858272859_ + __tmp276241 + _L263358_ + _optimize-f260834_)))) + (___kont274185274186_ + (lambda (_L263214_ + _L263215_ + _L263216_ + _L263217_ + _L263218_) + (let ((__tmp276244 (lambda () - (let* ((_expr262060_ + (let* ((_expr263261_ (let () (declare (not safe)) - (_optimize-f__0__271655271656_ - _L262015_))) - (__tmp275044 - (let ((__tmp275046 + (_optimize-f__0__272856272857_ + _L263216_))) + (__tmp276245 + (let ((__tmp276247 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275049 - (let ((__tmp275056 + (let ((__tmp276250 + (let ((__tmp276257 (let () (declare (not safe)) - (cons _L262017_ '()))) - (__tmp275050 - (let ((__tmp275051 - (let ((__tmp275052 - (let ((__tmp275054 - (let ((__tmp275055 + (cons _L263218_ '()))) + (__tmp276251 + (let ((__tmp276252 + (let ((__tmp276253 + (let ((__tmp276255 + (let ((__tmp276256 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g262061262064_ _g262062262066_) + (lambda (_g263262263265_ _g263263263267_) (let () (declare (not safe)) - (cons _g262061262064_ _g262062262066_))))) + (cons _g263262263265_ _g263263263267_))))) (declare (not safe)) - (foldr1 __tmp275055 '() _L262016_))) - (__tmp275053 - (let () (declare (not safe)) (cons _expr262060_ '())))) + (foldr1 __tmp276256 '() _L263217_))) + (__tmp276254 + (let () (declare (not safe)) (cons _expr263261_ '())))) (declare (not safe)) - (cons __tmp275054 __tmp275053)))) + (cons __tmp276255 __tmp276254)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#lambda __tmp275052)))) + (cons '%#lambda __tmp276253)))) (declare (not safe)) - (cons __tmp275051 '())))) + (cons __tmp276252 '())))) (declare (not safe)) - (cons __tmp275056 __tmp275050))) - (__tmp275047 - (let ((__tmp275048 - (lambda (_g262068262071_ - _g262069262073_) + (cons __tmp276257 __tmp276251))) + (__tmp276248 + (let ((__tmp276249 + (lambda (_g263269263272_ + _g263270263274_) (let () (declare (not safe)) - (cons _g262068262071_ - _g262069262073_))))) + (cons _g263269263272_ + _g263270263274_))))) (declare (not safe)) - (foldr1 __tmp275048 '() _L262014_)))) + (foldr1 __tmp276249 '() _L263215_)))) (declare (not safe)) - (cons __tmp275049 __tmp275047))) - (__tmp275045 - (let () (declare (not safe)) (cons _L262013_ '())))) + (cons __tmp276250 __tmp276248))) + (__tmp276246 + (let () (declare (not safe)) (cons _L263214_ '())))) (declare (not safe)) - (cons __tmp275046 __tmp275045)))) + (cons __tmp276247 __tmp276246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#letrec-values - __tmp275044))))) + __tmp276245))))) (declare (not safe)) - (_do-splice!259630_ __tmp275043)))) - (___kont272990272991_ - (lambda () _expr261691_))) - (let* ((___match273177273178_ - (lambda (_e261823261885_ - _hd261822261888_ - _tl261821261890_ - _e261826261893_ - _hd261825261896_ - _tl261824261898_ - _e261829261901_ - _hd261828261904_ - _tl261827261906_ - _e261832261909_ - _hd261831261912_ - _tl261830261914_ - _e261835261917_ - _hd261834261920_ - _tl261833261922_ - _e261838261925_ - _hd261837261928_ - _tl261836261930_ - _e261841261933_ - _hd261840261936_ - _tl261839261938_ - _e261844261941_ - _hd261843261944_ - _tl261842261946_ - ___splice272986272987_ - _target261845261949_ - _tl261847261951_) - (letrec ((_loop261848261954_ - (lambda (_hd261846261957_ - _id261852261959_) + (_do-splice!260831_ __tmp276244)))) + (___kont274191274192_ + (lambda () _expr262892_))) + (let* ((___match274378274379_ + (lambda (_e263024263086_ + _hd263023263089_ + _tl263022263091_ + _e263027263094_ + _hd263026263097_ + _tl263025263099_ + _e263030263102_ + _hd263029263105_ + _tl263028263107_ + _e263033263110_ + _hd263032263113_ + _tl263031263115_ + _e263036263118_ + _hd263035263121_ + _tl263034263123_ + _e263039263126_ + _hd263038263129_ + _tl263037263131_ + _e263042263134_ + _hd263041263137_ + _tl263040263139_ + _e263045263142_ + _hd263044263145_ + _tl263043263147_ + ___splice274187274188_ + _target263046263150_ + _tl263048263152_) + (letrec ((_loop263049263155_ + (lambda (_hd263047263158_ + _id263053263160_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261846261957_)) - (let ((_e261849261962_ + _hd263047263158_)) + (let ((_e263050263163_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd261846261957_)))) - (let ((_lp-tl261851261967_ + (gx#stx-e _hd263047263158_)))) + (let ((_lp-tl263052263168_ (let () (declare (not safe)) - (##cdr _e261849261962_))) - (_lp-hd261850261965_ + (##cdr _e263050263163_))) + (_lp-hd263051263166_ (let () (declare (not safe)) - (##car _e261849261962_)))) - (let ((__tmp275058 + (##car _e263050263163_)))) + (let ((__tmp276259 (let () (declare (not safe)) - (cons _lp-hd261850261965_ _id261852261959_)))) + (cons _lp-hd263051263166_ _id263053263160_)))) (declare (not safe)) - (_loop261848261954_ - _lp-tl261851261967_ - __tmp275058)))) - (let ((_id261853261970_ (reverse _id261852261959_))) + (_loop263049263155_ + _lp-tl263052263168_ + __tmp276259)))) + (let ((_id263054263171_ (reverse _id263053263160_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261842261946_)) - (let ((_e261856261973_ + (gx#stx-pair? _tl263043263147_)) + (let ((_e263057263174_ (let () (declare (not safe)) - (gx#stx-e _tl261842261946_)))) - (let ((_tl261854261978_ + (gx#stx-e _tl263043263147_)))) + (let ((_tl263055263179_ (let () (declare (not safe)) - (##cdr _e261856261973_))) - (_hd261855261976_ + (##cdr _e263057263174_))) + (_hd263056263177_ (let () (declare (not safe)) - (##car _e261856261973_)))) + (##car _e263057263174_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261854261978_)) + (gx#stx-null? _tl263055263179_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261836261930_)) + (gx#stx-null? _tl263037263131_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl261827261906_)) - (let ((___splice272988272989_ + _tl263028263107_)) + (let ((___splice274189274190_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl261827261906_ + _tl263028263107_ '0)))) - (let ((_tl261859261983_ + (let ((_tl263060263184_ (let () (declare (not safe)) (##vector-ref - ___splice272988272989_ + ___splice274189274190_ '1))) - (_target261857261981_ + (_target263058263182_ (let () (declare (not safe)) (##vector-ref - ___splice272988272989_ + ___splice274189274190_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261859261983_)) - (letrec ((_loop261860261986_ - (lambda (_hd261858261989_ + _tl263060263184_)) + (letrec ((_loop263061263187_ + (lambda (_hd263059263190_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind261864261991_) + _bind263065263192_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261858261989_)) - (let ((_e261861261994_ + (gx#stx-pair? _hd263059263190_)) + (let ((_e263062263195_ (let () (declare (not safe)) - (gx#stx-e _hd261858261989_)))) - (let ((_lp-tl261863261999_ + (gx#stx-e _hd263059263190_)))) + (let ((_lp-tl263064263200_ (let () (declare (not safe)) - (##cdr _e261861261994_))) - (_lp-hd261862261997_ + (##cdr _e263062263195_))) + (_lp-hd263063263198_ (let () (declare (not safe)) - (##car _e261861261994_)))) - (let ((__tmp275057 + (##car _e263062263195_)))) + (let ((__tmp276258 (let () (declare (not safe)) - (cons _lp-hd261862261997_ - _bind261864261991_)))) + (cons _lp-hd263063263198_ + _bind263065263192_)))) (declare (not safe)) - (_loop261860261986_ - _lp-tl261863261999_ - __tmp275057)))) - (let ((_bind261865262002_ - (reverse _bind261864261991_))) + (_loop263061263187_ + _lp-tl263064263200_ + __tmp276258)))) + (let ((_bind263066263203_ + (reverse _bind263065263192_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261824261898_)) - (let ((_e261868262005_ + (gx#stx-pair? _tl263025263099_)) + (let ((_e263069263206_ (let () (declare (not safe)) - (gx#stx-e _tl261824261898_)))) - (let ((_tl261866262010_ + (gx#stx-e _tl263025263099_)))) + (let ((_tl263067263211_ (let () (declare (not safe)) - (##cdr _e261868262005_))) - (_hd261867262008_ + (##cdr _e263069263206_))) + (_hd263068263209_ (let () (declare (not safe)) - (##car _e261868262005_)))) + (##car _e263069263206_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261866262010_)) - (___kont272984272985_ - _hd261867262008_ - _bind261865262002_ - _hd261855261976_ - _id261853261970_ - _hd261834261920_) - (___kont272990272991_)))) - (___kont272990272991_))))))) + (gx#stx-null? _tl263067263211_)) + (___kont274185274186_ + _hd263068263209_ + _bind263066263203_ + _hd263056263177_ + _id263054263171_ + _hd263035263121_) + (___kont274191274192_)))) + (___kont274191274192_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop261860261986_ - _target261857261981_ + (_loop263061263187_ + _target263058263182_ '()))) - (___kont272990272991_)))) - (___kont272990272991_)) - (___kont272990272991_)) - (___kont272990272991_)))) - (___kont272990272991_))))))) + (___kont274191274192_)))) + (___kont274191274192_)) + (___kont274191274192_)) + (___kont274191274192_)))) + (___kont274191274192_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop261848261954_ - _target261845261949_ + (_loop263049263155_ + _target263046263150_ '()))))) - (___match273111273112_ - (lambda (_e261789262081_ - _hd261788262084_ - _tl261787262086_ - _e261792262089_ - _hd261791262092_ - _tl261790262094_ - ___splice272982272983_ - _target261793262097_ - _tl261795262099_) - (letrec ((_loop261796262102_ - (lambda (_hd261794262105_ - _expr261800262107_ - _id261801262109_) + (___match274312274313_ + (lambda (_e262990263282_ + _hd262989263285_ + _tl262988263287_ + _e262993263290_ + _hd262992263293_ + _tl262991263295_ + ___splice274183274184_ + _target262994263298_ + _tl262996263300_) + (letrec ((_loop262997263303_ + (lambda (_hd262995263306_ + _expr263001263308_ + _id263002263310_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261794262105_)) - (let ((_e261797262112_ + _hd262995263306_)) + (let ((_e262998263313_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd261794262105_)))) - (let ((_lp-tl261799262117_ + (gx#stx-e _hd262995263306_)))) + (let ((_lp-tl263000263318_ (let () (declare (not safe)) - (##cdr _e261797262112_))) - (_lp-hd261798262115_ + (##cdr _e262998263313_))) + (_lp-hd262999263316_ (let () (declare (not safe)) - (##car _e261797262112_)))) + (##car _e262998263313_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd261798262115_)) - (let ((_e261806262120_ + (gx#stx-pair? _lp-hd262999263316_)) + (let ((_e263007263321_ (let () (declare (not safe)) - (gx#stx-e _lp-hd261798262115_)))) - (let ((_tl261804262125_ + (gx#stx-e _lp-hd262999263316_)))) + (let ((_tl263005263326_ (let () (declare (not safe)) - (##cdr _e261806262120_))) - (_hd261805262123_ + (##cdr _e263007263321_))) + (_hd263006263324_ (let () (declare (not safe)) - (##car _e261806262120_)))) + (##car _e263007263321_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261805262123_)) - (let ((_e261809262128_ + (gx#stx-pair? _hd263006263324_)) + (let ((_e263010263329_ (let () (declare (not safe)) - (gx#stx-e _hd261805262123_)))) - (let ((_tl261807262133_ + (gx#stx-e _hd263006263324_)))) + (let ((_tl263008263334_ (let () (declare (not safe)) - (##cdr _e261809262128_))) - (_hd261808262131_ + (##cdr _e263010263329_))) + (_hd263009263332_ (let () (declare (not safe)) - (##car _e261809262128_)))) + (##car _e263010263329_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261807262133_)) + (gx#stx-null? _tl263008263334_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261804262125_)) - (let ((_e261812262136_ + _tl263005263326_)) + (let ((_e263013263337_ (let () (declare (not safe)) (gx#stx-e - _tl261804262125_)))) - (let ((_tl261810262141_ + _tl263005263326_)))) + (let ((_tl263011263342_ (let () (declare (not safe)) - (##cdr _e261812262136_))) - (_hd261811262139_ + (##cdr _e263013263337_))) + (_hd263012263340_ (let () (declare (not safe)) - (##car _e261812262136_)))) + (##car _e263013263337_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261810262141_)) - (let ((__tmp275060 + _tl263011263342_)) + (let ((__tmp276261 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _hd261811262139_ _expr261800262107_))) - (__tmp275059 + (cons _hd263012263340_ _expr263001263308_))) + (__tmp276260 (let () (declare (not safe)) - (cons _hd261808262131_ _id261801262109_)))) + (cons _hd263009263332_ _id263002263310_)))) (declare (not safe)) - (_loop261796262102_ - _lp-tl261799262117_ - __tmp275060 - __tmp275059)) - (___kont272990272991_)))) + (_loop262997263303_ + _lp-tl263000263318_ + __tmp276261 + __tmp276260)) + (___kont274191274192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272990272991_)) - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)))) - (let ((_id261803262146_ (reverse _id261801262109_)) - (_expr261802262144_ (reverse _expr261800262107_))) + (___kont274191274192_)) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)))) + (let ((_id263004263347_ (reverse _id263002263310_)) + (_expr263003263345_ (reverse _expr263001263308_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261790262094_)) - (let ((_e261815262149_ + (gx#stx-pair? _tl262991263295_)) + (let ((_e263016263350_ (let () (declare (not safe)) - (gx#stx-e _tl261790262094_)))) - (let ((_tl261813262154_ + (gx#stx-e _tl262991263295_)))) + (let ((_tl263014263355_ (let () (declare (not safe)) - (##cdr _e261815262149_))) - (_hd261814262152_ + (##cdr _e263016263350_))) + (_hd263015263353_ (let () (declare (not safe)) - (##car _e261815262149_)))) + (##car _e263016263350_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261813262154_)) - (___kont272980272981_ - _hd261814262152_ - _expr261802262144_ - _id261803262146_) - (___kont272990272991_)))) - (___kont272990272991_))))))) + (gx#stx-null? _tl263014263355_)) + (___kont274181274182_ + _hd263015263353_ + _expr263003263345_ + _id263004263347_) + (___kont274191274192_)))) + (___kont274191274192_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop261796262102_ - _target261793262097_ + (_loop262997263303_ + _target262994263298_ '() '()))))) - (___match273087273088_ - (lambda (_e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_) - (letrec ((_loop261758262218_ - (lambda (_hd261756262221_ - _xid261762262223_ - _id261763262225_) + (___match274288274289_ + (lambda (_e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_) + (letrec ((_loop262959263419_ + (lambda (_hd262957263422_ + _xid262963263424_ + _id262964263426_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261756262221_)) - (let ((_e261759262228_ + _hd262957263422_)) + (let ((_e262960263429_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd261756262221_)))) - (let ((_lp-tl261761262233_ + (gx#stx-e _hd262957263422_)))) + (let ((_lp-tl262962263434_ (let () (declare (not safe)) - (##cdr _e261759262228_))) - (_lp-hd261760262231_ + (##cdr _e262960263429_))) + (_lp-hd262961263432_ (let () (declare (not safe)) - (##car _e261759262228_)))) + (##car _e262960263429_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd261760262231_)) - (let ((_e261768262236_ + (gx#stx-pair? _lp-hd262961263432_)) + (let ((_e262969263437_ (let () (declare (not safe)) - (gx#stx-e _lp-hd261760262231_)))) - (let ((_tl261766262241_ + (gx#stx-e _lp-hd262961263432_)))) + (let ((_tl262967263442_ (let () (declare (not safe)) - (##cdr _e261768262236_))) - (_hd261767262239_ + (##cdr _e262969263437_))) + (_hd262968263440_ (let () (declare (not safe)) - (##car _e261768262236_)))) + (##car _e262969263437_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261767262239_)) - (let ((_e261771262244_ + (gx#stx-pair? _hd262968263440_)) + (let ((_e262972263445_ (let () (declare (not safe)) - (gx#stx-e _hd261767262239_)))) - (let ((_tl261769262249_ + (gx#stx-e _hd262968263440_)))) + (let ((_tl262970263450_ (let () (declare (not safe)) - (##cdr _e261771262244_))) - (_hd261770262247_ + (##cdr _e262972263445_))) + (_hd262971263448_ (let () (declare (not safe)) - (##car _e261771262244_)))) + (##car _e262972263445_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261769262249_)) + (gx#stx-null? _tl262970263450_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261766262241_)) - (let ((_e261774262252_ + _tl262967263442_)) + (let ((_e262975263453_ (let () (declare (not safe)) (gx#stx-e - _tl261766262241_)))) - (let ((_tl261772262257_ + _tl262967263442_)))) + (let ((_tl262973263458_ (let () (declare (not safe)) - (##cdr _e261774262252_))) - (_hd261773262255_ + (##cdr _e262975263453_))) + (_hd262974263456_ (let () (declare (not safe)) - (##car _e261774262252_)))) + (##car _e262975263453_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261773262255_)) - (let ((_e261777262260_ + _hd262974263456_)) + (let ((_e262978263461_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd261773262255_)))) - (let ((_tl261775262265_ - (let () (declare (not safe)) (##cdr _e261777262260_))) - (_hd261776262263_ + (gx#stx-e _hd262974263456_)))) + (let ((_tl262976263466_ + (let () (declare (not safe)) (##cdr _e262978263461_))) + (_hd262977263464_ (let () (declare (not safe)) - (##car _e261777262260_)))) + (##car _e262978263461_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261776262263_)) + (gx#identifier? _hd262977263464_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261776262263_)) + (gx#stx-eq? '%#ref _hd262977263464_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261775262265_)) - (let ((_e261780262268_ + (gx#stx-pair? _tl262976263466_)) + (let ((_e262981263469_ (let () (declare (not safe)) - (gx#stx-e _tl261775262265_)))) - (let ((_tl261778262273_ + (gx#stx-e _tl262976263466_)))) + (let ((_tl262979263474_ (let () (declare (not safe)) - (##cdr _e261780262268_))) - (_hd261779262271_ + (##cdr _e262981263469_))) + (_hd262980263472_ (let () (declare (not safe)) - (##car _e261780262268_)))) + (##car _e262981263469_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261778262273_)) + (gx#stx-null? _tl262979263474_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl261772262257_)) - (let ((__tmp275062 + (gx#stx-null? _tl262973263458_)) + (let ((__tmp276263 (let () (declare (not safe)) - (cons _hd261779262271_ - _xid261762262223_))) - (__tmp275061 + (cons _hd262980263472_ + _xid262963263424_))) + (__tmp276262 (let () (declare (not safe)) - (cons _hd261770262247_ - _id261763262225_)))) + (cons _hd262971263448_ + _id262964263426_)))) (declare (not safe)) - (_loop261758262218_ - _lp-tl261761262233_ - __tmp275062 - __tmp275061)) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)))) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)))) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)))) + (_loop262959263419_ + _lp-tl262962263434_ + __tmp276263 + __tmp276262)) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)))) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)))) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)))) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)))) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)))) - (let ((_id261765262278_ (reverse _id261763262225_)) - (_xid261764262276_ (reverse _xid261762262223_))) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)))) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)))) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)))) + (let ((_id262966263479_ (reverse _id262964263426_)) + (_xid262965263477_ (reverse _xid262963263424_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261752262210_)) - (let ((_e261783262281_ + (gx#stx-pair? _tl262953263411_)) + (let ((_e262984263482_ (let () (declare (not safe)) - (gx#stx-e _tl261752262210_)))) - (let ((_tl261781262286_ + (gx#stx-e _tl262953263411_)))) + (let ((_tl262982263487_ (let () (declare (not safe)) - (##cdr _e261783262281_))) - (_hd261782262284_ + (##cdr _e262984263482_))) + (_hd262983263485_ (let () (declare (not safe)) - (##car _e261783262281_)))) + (##car _e262984263482_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261781262286_)) - (___kont272976272977_ - _hd261782262284_ - _xid261764262276_ - _id261765262278_) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_)))) - (___match273111273112_ - _e261751262197_ - _hd261750262200_ - _tl261749262202_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_))))))) + (gx#stx-null? _tl262982263487_)) + (___kont274177274178_ + _hd262983263485_ + _xid262965263477_ + _id262966263479_) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_)))) + (___match274312274313_ + _e262952263398_ + _hd262951263401_ + _tl262950263403_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop261758262218_ - _target261755262213_ + (_loop262959263419_ + _target262956263414_ '() '()))))) - (___match273033273034_ - (lambda (_e261706262389_ - _hd261705262392_ - _tl261704262394_ - _e261709262397_ - _hd261708262400_ - _tl261707262402_ - _e261712262405_ - _hd261711262408_ - _tl261710262410_ - _e261715262413_ - _hd261714262416_ - _tl261713262418_ - ___splice272972272973_ - _target261716262421_ - _tl261718262423_) - (letrec ((_loop261719262426_ - (lambda (_hd261717262429_ - _id261723262431_) + (___match274234274235_ + (lambda (_e262907263590_ + _hd262906263593_ + _tl262905263595_ + _e262910263598_ + _hd262909263601_ + _tl262908263603_ + _e262913263606_ + _hd262912263609_ + _tl262911263611_ + _e262916263614_ + _hd262915263617_ + _tl262914263619_ + ___splice274173274174_ + _target262917263622_ + _tl262919263624_) + (letrec ((_loop262920263627_ + (lambda (_hd262918263630_ + _id262924263632_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261717262429_)) - (let ((_e261720262434_ + _hd262918263630_)) + (let ((_e262921263635_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd261717262429_)))) - (let ((_lp-tl261722262439_ + (gx#stx-e _hd262918263630_)))) + (let ((_lp-tl262923263640_ (let () (declare (not safe)) - (##cdr _e261720262434_))) - (_lp-hd261721262437_ + (##cdr _e262921263635_))) + (_lp-hd262922263638_ (let () (declare (not safe)) - (##car _e261720262434_)))) + (##car _e262921263635_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd261721262437_)) - (let ((_e261727262442_ + (gx#stx-pair? _lp-hd262922263638_)) + (let ((_e262928263643_ (let () (declare (not safe)) - (gx#stx-e _lp-hd261721262437_)))) - (let ((_tl261725262447_ + (gx#stx-e _lp-hd262922263638_)))) + (let ((_tl262926263648_ (let () (declare (not safe)) - (##cdr _e261727262442_))) - (_hd261726262445_ + (##cdr _e262928263643_))) + (_hd262927263646_ (let () (declare (not safe)) - (##car _e261727262442_)))) + (##car _e262928263643_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261726262445_)) + (gx#identifier? _hd262927263646_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261726262445_)) + (gx#stx-eq? '%#ref _hd262927263646_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261725262447_)) - (let ((_e261730262450_ + (gx#stx-pair? _tl262926263648_)) + (let ((_e262931263651_ (let () (declare (not safe)) (gx#stx-e - _tl261725262447_)))) - (let ((_tl261728262455_ + _tl262926263648_)))) + (let ((_tl262929263656_ (let () (declare (not safe)) - (##cdr _e261730262450_))) - (_hd261729262453_ + (##cdr _e262931263651_))) + (_hd262930263654_ (let () (declare (not safe)) - (##car _e261730262450_)))) + (##car _e262931263651_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261728262455_)) - (let ((__tmp275063 + _tl262929263656_)) + (let ((__tmp276264 (let () (declare (not safe)) - (cons _hd261729262453_ + (cons _hd262930263654_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id261723262431_)))) + _id262924263632_)))) (declare (not safe)) - (_loop261719262426_ _lp-tl261722262439_ __tmp275063)) + (_loop262920263627_ _lp-tl262923263640_ __tmp276264)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272990272991_)))) - (___kont272990272991_)) - (___kont272990272991_)) - (___kont272990272991_)))) - (___kont272990272991_)))) - (let ((_id261724262458_ (reverse _id261723262431_))) - (___kont272970272971_ - _id261724262458_ - _hd261714262416_)))))) + (___kont274191274192_)))) + (___kont274191274192_)) + (___kont274191274192_)) + (___kont274191274192_)))) + (___kont274191274192_)))) + (let ((_id262925263659_ (reverse _id262924263632_))) + (___kont274171274172_ + _id262925263659_ + _hd262915263617_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop261719262426_ - _target261716262421_ + (_loop262920263627_ + _target262917263622_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx272968272969_)) - (let ((_e261706262389_ + (gx#stx-pair? ___stx274169274170_)) + (let ((_e262907263590_ (let () (declare (not safe)) (gx#stx-e - ___stx272968272969_)))) - (let ((_tl261704262394_ + ___stx274169274170_)))) + (let ((_tl262905263595_ (let () (declare (not safe)) - (##cdr _e261706262389_))) - (_hd261705262392_ + (##cdr _e262907263590_))) + (_hd262906263593_ (let () (declare (not safe)) - (##car _e261706262389_)))) + (##car _e262907263590_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261705262392_)) + _hd262906263593_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd261705262392_)) + _hd262906263593_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261704262394_)) - (let ((_e261709262397_ + _tl262905263595_)) + (let ((_e262910263598_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl261704262394_)))) - (let ((_tl261707262402_ - (let () (declare (not safe)) (##cdr _e261709262397_))) - (_hd261708262400_ + (gx#stx-e _tl262905263595_)))) + (let ((_tl262908263603_ + (let () (declare (not safe)) (##cdr _e262910263598_))) + (_hd262909263601_ (let () (declare (not safe)) - (##car _e261709262397_)))) + (##car _e262910263598_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261708262400_)) - (let ((_e261712262405_ + (gx#stx-pair? _hd262909263601_)) + (let ((_e262913263606_ (let () (declare (not safe)) - (gx#stx-e _hd261708262400_)))) - (let ((_tl261710262410_ + (gx#stx-e _hd262909263601_)))) + (let ((_tl262911263611_ (let () (declare (not safe)) - (##cdr _e261712262405_))) - (_hd261711262408_ + (##cdr _e262913263606_))) + (_hd262912263609_ (let () (declare (not safe)) - (##car _e261712262405_)))) + (##car _e262913263606_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261711262408_)) + (gx#identifier? _hd262912263609_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261711262408_)) + (gx#stx-eq? '%#ref _hd262912263609_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261710262410_)) - (let ((_e261715262413_ + (gx#stx-pair? _tl262911263611_)) + (let ((_e262916263614_ (let () (declare (not safe)) - (gx#stx-e _tl261710262410_)))) - (let ((_tl261713262418_ + (gx#stx-e _tl262911263611_)))) + (let ((_tl262914263619_ (let () (declare (not safe)) - (##cdr _e261715262413_))) - (_hd261714262416_ + (##cdr _e262916263614_))) + (_hd262915263617_ (let () (declare (not safe)) - (##car _e261715262413_)))) + (##car _e262916263614_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261713262418_)) + _tl262914263619_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl261707262402_)) - (let ((___splice272972272973_ + _tl262908263603_)) + (let ((___splice274173274174_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl261707262402_ + _tl262908263603_ '0)))) - (let ((_tl261718262423_ + (let ((_tl262919263624_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice272972272973_ '1))) - (_target261716262421_ + (##vector-ref ___splice274173274174_ '1))) + (_target262917263622_ (let () (declare (not safe)) - (##vector-ref ___splice272972272973_ '0)))) + (##vector-ref ___splice274173274174_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261718262423_)) - (___match273033273034_ - _e261706262389_ - _hd261705262392_ - _tl261704262394_ - _e261709262397_ - _hd261708262400_ - _tl261707262402_ - _e261712262405_ - _hd261711262408_ - _tl261710262410_ - _e261715262413_ - _hd261714262416_ - _tl261713262418_ - ___splice272972272973_ - _target261716262421_ - _tl261718262423_) - (___kont272990272991_)))) + (gx#stx-null? _tl262919263624_)) + (___match274234274235_ + _e262907263590_ + _hd262906263593_ + _tl262905263595_ + _e262910263598_ + _hd262909263601_ + _tl262908263603_ + _e262913263606_ + _hd262912263609_ + _tl262911263611_ + _e262916263614_ + _hd262915263617_ + _tl262914263619_ + ___splice274173274174_ + _target262917263622_ + _tl262919263624_) + (___kont274191274192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272990272991_)) - (___kont272990272991_)))) - (___kont272990272991_)) - (___kont272990272991_)) - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)) + (___kont274191274192_)) + (___kont274191274192_)))) + (___kont274191274192_)) + (___kont274191274192_)) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd261705262392_)) + _hd262906263593_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261704262394_)) - (let ((_e261739262335_ + _tl262905263595_)) + (let ((_e262940263536_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl261704262394_)))) - (let ((_tl261737262340_ + (gx#stx-e _tl262905263595_)))) + (let ((_tl262938263541_ (let () (declare (not safe)) - (##cdr _e261739262335_))) - (_hd261738262338_ + (##cdr _e262940263536_))) + (_hd262939263539_ (let () (declare (not safe)) - (##car _e261739262335_)))) + (##car _e262940263536_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261737262340_)) - (let ((_e261742262343_ + (gx#stx-pair? _tl262938263541_)) + (let ((_e262943263544_ (let () (declare (not safe)) - (gx#stx-e _tl261737262340_)))) - (let ((_tl261740262348_ + (gx#stx-e _tl262938263541_)))) + (let ((_tl262941263549_ (let () (declare (not safe)) - (##cdr _e261742262343_))) - (_hd261741262346_ + (##cdr _e262943263544_))) + (_hd262942263547_ (let () (declare (not safe)) - (##car _e261742262343_)))) + (##car _e262943263544_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261740262348_)) - (let ((_e261745262351_ + (gx#stx-pair? _tl262941263549_)) + (let ((_e262946263552_ (let () (declare (not safe)) - (gx#stx-e _tl261740262348_)))) - (let ((_tl261743262356_ + (gx#stx-e _tl262941263549_)))) + (let ((_tl262944263557_ (let () (declare (not safe)) - (##cdr _e261745262351_))) - (_hd261744262354_ + (##cdr _e262946263552_))) + (_hd262945263555_ (let () (declare (not safe)) - (##car _e261745262351_)))) + (##car _e262946263552_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261743262356_)) - (___kont272974272975_ - _hd261744262354_ - _hd261741262346_ - _hd261738262338_) - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)) + (gx#stx-null? _tl262944263557_)) + (___kont274175274176_ + _hd262945263555_ + _hd262942263547_ + _hd262939263539_) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd261705262392_)) + (gx#stx-eq? '%#let-values _hd262906263593_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261704262394_)) - (let ((_e261754262205_ + (gx#stx-pair? _tl262905263595_)) + (let ((_e262955263406_ (let () (declare (not safe)) - (gx#stx-e _tl261704262394_)))) - (let ((_tl261752262210_ + (gx#stx-e _tl262905263595_)))) + (let ((_tl262953263411_ (let () (declare (not safe)) - (##cdr _e261754262205_))) - (_hd261753262208_ + (##cdr _e262955263406_))) + (_hd262954263409_ (let () (declare (not safe)) - (##car _e261754262205_)))) + (##car _e262955263406_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd261753262208_)) - (let ((___splice272978272979_ + (gx#stx-pair/null? _hd262954263409_)) + (let ((___splice274179274180_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd261753262208_ + _hd262954263409_ '0)))) - (let ((_tl261757262215_ + (let ((_tl262958263416_ (let () (declare (not safe)) (##vector-ref - ___splice272978272979_ + ___splice274179274180_ '1))) - (_target261755262213_ + (_target262956263414_ (let () (declare (not safe)) (##vector-ref - ___splice272978272979_ + ___splice274179274180_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261757262215_)) - (___match273087273088_ - _e261706262389_ - _hd261705262392_ - _tl261704262394_ - _e261754262205_ - _hd261753262208_ - _tl261752262210_ - ___splice272978272979_ - _target261755262213_ - _tl261757262215_) - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)) + (gx#stx-null? _tl262958263416_)) + (___match274288274289_ + _e262907263590_ + _hd262906263593_ + _tl262905263595_ + _e262955263406_ + _hd262954263409_ + _tl262953263411_ + ___splice274179274180_ + _target262956263414_ + _tl262958263416_) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _hd261705262392_)) + (gx#stx-eq? '%#letrec-values _hd262906263593_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261704262394_)) - (let ((_e261826261893_ + (gx#stx-pair? _tl262905263595_)) + (let ((_e263027263094_ (let () (declare (not safe)) - (gx#stx-e _tl261704262394_)))) - (let ((_tl261824261898_ + (gx#stx-e _tl262905263595_)))) + (let ((_tl263025263099_ (let () (declare (not safe)) - (##cdr _e261826261893_))) - (_hd261825261896_ + (##cdr _e263027263094_))) + (_hd263026263097_ (let () (declare (not safe)) - (##car _e261826261893_)))) + (##car _e263027263094_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261825261896_)) - (let ((_e261829261901_ + (gx#stx-pair? _hd263026263097_)) + (let ((_e263030263102_ (let () (declare (not safe)) - (gx#stx-e _hd261825261896_)))) - (let ((_tl261827261906_ + (gx#stx-e _hd263026263097_)))) + (let ((_tl263028263107_ (let () (declare (not safe)) - (##cdr _e261829261901_))) - (_hd261828261904_ + (##cdr _e263030263102_))) + (_hd263029263105_ (let () (declare (not safe)) - (##car _e261829261901_)))) + (##car _e263030263102_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261828261904_)) - (let ((_e261832261909_ + (gx#stx-pair? _hd263029263105_)) + (let ((_e263033263110_ (let () (declare (not safe)) (gx#stx-e - _hd261828261904_)))) - (let ((_tl261830261914_ + _hd263029263105_)))) + (let ((_tl263031263115_ (let () (declare (not safe)) - (##cdr _e261832261909_))) - (_hd261831261912_ + (##cdr _e263033263110_))) + (_hd263032263113_ (let () (declare (not safe)) - (##car _e261832261909_)))) + (##car _e263033263110_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd261831261912_)) - (let ((_e261835261917_ + _hd263032263113_)) + (let ((_e263036263118_ (let () (declare (not safe)) (gx#stx-e - _hd261831261912_)))) - (let ((_tl261833261922_ + _hd263032263113_)))) + (let ((_tl263034263123_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e261835261917_))) - (_hd261834261920_ - (let () (declare (not safe)) (##car _e261835261917_)))) + (##cdr _e263036263118_))) + (_hd263035263121_ + (let () (declare (not safe)) (##car _e263036263118_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261833261922_)) + (gx#stx-null? _tl263034263123_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261830261914_)) - (let ((_e261838261925_ + (gx#stx-pair? _tl263031263115_)) + (let ((_e263039263126_ (let () (declare (not safe)) - (gx#stx-e _tl261830261914_)))) - (let ((_tl261836261930_ + (gx#stx-e _tl263031263115_)))) + (let ((_tl263037263131_ (let () (declare (not safe)) - (##cdr _e261838261925_))) - (_hd261837261928_ + (##cdr _e263039263126_))) + (_hd263038263129_ (let () (declare (not safe)) - (##car _e261838261925_)))) + (##car _e263039263126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261837261928_)) - (let ((_e261841261933_ + (gx#stx-pair? _hd263038263129_)) + (let ((_e263042263134_ (let () (declare (not safe)) - (gx#stx-e _hd261837261928_)))) - (let ((_tl261839261938_ + (gx#stx-e _hd263038263129_)))) + (let ((_tl263040263139_ (let () (declare (not safe)) - (##cdr _e261841261933_))) - (_hd261840261936_ + (##cdr _e263042263134_))) + (_hd263041263137_ (let () (declare (not safe)) - (##car _e261841261933_)))) + (##car _e263042263134_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261840261936_)) + (gx#identifier? _hd263041263137_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd261840261936_)) + _hd263041263137_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261839261938_)) - (let ((_e261844261941_ + _tl263040263139_)) + (let ((_e263045263142_ (let () (declare (not safe)) (gx#stx-e - _tl261839261938_)))) - (let ((_tl261842261946_ + _tl263040263139_)))) + (let ((_tl263043263147_ (let () (declare (not safe)) - (##cdr _e261844261941_))) - (_hd261843261944_ + (##cdr _e263045263142_))) + (_hd263044263145_ (let () (declare (not safe)) - (##car _e261844261941_)))) + (##car _e263045263142_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd261843261944_)) - (let ((___splice272986272987_ + _hd263044263145_)) + (let ((___splice274187274188_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _hd261843261944_ '0)))) - (let ((_tl261847261951_ + (gx#syntax-split-splice _hd263044263145_ '0)))) + (let ((_tl263048263152_ (let () (declare (not safe)) - (##vector-ref ___splice272986272987_ '1))) - (_target261845261949_ + (##vector-ref ___splice274187274188_ '1))) + (_target263046263150_ (let () (declare (not safe)) - (##vector-ref ___splice272986272987_ '0)))) + (##vector-ref ___splice274187274188_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261847261951_)) - (___match273177273178_ - _e261706262389_ - _hd261705262392_ - _tl261704262394_ - _e261826261893_ - _hd261825261896_ - _tl261824261898_ - _e261829261901_ - _hd261828261904_ - _tl261827261906_ - _e261832261909_ - _hd261831261912_ - _tl261830261914_ - _e261835261917_ - _hd261834261920_ - _tl261833261922_ - _e261838261925_ - _hd261837261928_ - _tl261836261930_ - _e261841261933_ - _hd261840261936_ - _tl261839261938_ - _e261844261941_ - _hd261843261944_ - _tl261842261946_ - ___splice272986272987_ - _target261845261949_ - _tl261847261951_) - (___kont272990272991_)))) - (___kont272990272991_)))) + (gx#stx-null? _tl263048263152_)) + (___match274378274379_ + _e262907263590_ + _hd262906263593_ + _tl262905263595_ + _e263027263094_ + _hd263026263097_ + _tl263025263099_ + _e263030263102_ + _hd263029263105_ + _tl263028263107_ + _e263033263110_ + _hd263032263113_ + _tl263031263115_ + _e263036263118_ + _hd263035263121_ + _tl263034263123_ + _e263039263126_ + _hd263038263129_ + _tl263037263131_ + _e263042263134_ + _hd263041263137_ + _tl263040263139_ + _e263045263142_ + _hd263044263145_ + _tl263043263147_ + ___splice274187274188_ + _target263046263150_ + _tl263048263152_) + (___kont274191274192_)))) + (___kont274191274192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272990272991_)) - (___kont272990272991_)) - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)) - (___kont272990272991_)))) + (___kont274191274192_)) + (___kont274191274192_)) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)) + (___kont274191274192_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)))) - (___kont272990272991_)) - (___kont272990272991_))))) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)))) + (___kont274191274192_)) + (___kont274191274192_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont272990272991_)))) - (___kont272990272991_)))))))) + (___kont274191274192_)))) + (___kont274191274192_)))))))) (declare (not safe)) - (_do-assert259620_ __tmp275064 __tmp275022)))) - (_optimize-f__0__271655271656_ - (lambda (_expr262598_) - (let ((_test262600_ '#f)) + (_do-assert260821_ __tmp276265 __tmp276223)))) + (_optimize-f__0__272856272857_ + (lambda (_expr263799_) + (let ((_test263801_ '#f)) (declare (not safe)) - (_optimize-f__271653271654_ - _expr262598_ - _test262600_)))) - (_optimize-f259633_ - (lambda _g275067_ - (let ((_g275066_ + (_optimize-f__272854272855_ + _expr263799_ + _test263801_)))) + (_optimize-f260834_ + (lambda _g276268_ + (let ((_g276267_ (let () (declare (not safe)) - (##length _g275067_)))) - (cond ((let () (declare (not safe)) (##fx= _g275066_ 1)) - (apply (lambda (_expr262598_) + (##length _g276268_)))) + (cond ((let () (declare (not safe)) (##fx= _g276267_ 1)) + (apply (lambda (_expr263799_) (let () (declare (not safe)) - (_optimize-f__0__271655271656_ - _expr262598_))) - _g275067_)) - ((let () (declare (not safe)) (##fx= _g275066_ 2)) - (apply (lambda (_expr262602_ _test262603_) + (_optimize-f__0__272856272857_ + _expr263799_))) + _g276268_)) + ((let () (declare (not safe)) (##fx= _g276267_ 2)) + (apply (lambda (_expr263803_ _test263804_) (let () (declare (not safe)) - (_optimize-f__271653271654_ - _expr262602_ - _test262603_))) - _g275067_)) + (_optimize-f__272854272855_ + _expr263803_ + _test263804_))) + _g276268_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g275067_)))))) - (_assert-e259634_ - (lambda (_expr260632_) - (let* ((_sexpr260634_ + _g276268_)))))) + (_assert-e260835_ + (lambda (_expr261833_) + (let* ((_sexpr261835_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-repr _expr260632_))) - (_$e260636_ - (assoc _sexpr260634_ _env-assert259616_))) - (if _$e260636_ - (cdr _$e260636_) - (let _assert260639_ ((_expr260641_ _expr260632_)) - (let* ((___stx273274273275_ _expr260641_) - (_g260649260828_ + (gxc#apply-generate-runtime-repr _expr261833_))) + (_$e261837_ + (assoc _sexpr261835_ _env-assert260817_))) + (if _$e261837_ + (cdr _$e261837_) + (let _assert261840_ ((_expr261842_ _expr261833_)) + (let* ((___stx274475274476_ _expr261842_) + (_g261850262029_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273274273275_))))) - (let ((___kont273276273277_ - (lambda (_L261659_ _L261660_) - (let ((_$e261682_ + ___stx274475274476_))))) + (let ((___kont274477274478_ + (lambda (_L262860_ _L262861_) + (let ((_$e262883_ (let () (declare (not safe)) - (_predicate-type259621_ - _L261660_)))) - (if _$e261682_ - ((lambda (_t261685_) + (_predicate-type260822_ + _L262861_)))) + (if _$e262883_ + ((lambda (_t262886_) (let () (declare (not safe)) - (_assert-type259635_ - _L261659_ - _t261685_))) - _$e261682_) + (_assert-type260836_ + _L262860_ + _t262886_))) + _$e262883_) '#!void)))) - (___kont273278273279_ - (lambda (_L261352_ _L261353_ _L261354_) - (let ((_$e261379_ + (___kont274479274480_ + (lambda (_L262553_ _L262554_ _L262555_) + (let ((_$e262580_ (let () (declare (not safe)) (gxc#identifier-symbol - _L261354_)))) + _L262555_)))) (if (or (let () (declare (not safe)) - (eq? '##fx= _$e261379_)) + (eq? '##fx= _$e262580_)) (let () (declare (not safe)) - (eq? 'fx= _$e261379_))) - (let* ((___stx273180273181_ - _L261353_) - (_g261386261415_ + (eq? 'fx= _$e262580_))) + (let* ((___stx274381274382_ + _L262554_) + (_g262587262616_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273180273181_))))) - (let ((___kont273182273183_ - (lambda (_L261483_ - _L261484_) - (let ((_$e261509_ + ___stx274381274382_))))) + (let ((___kont274383274384_ + (lambda (_L262684_ + _L262685_) + (let ((_$e262710_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_countf-symbol259623_ _L261484_)))) - (if _$e261509_ - ((lambda (_sym261512_) - (let ((__tmp275070 + (_countf-symbol260824_ _L262685_)))) + (if _$e262710_ + ((lambda (_sym262713_) + (let ((__tmp276271 (let () (declare (not safe)) - (gx#stx-e _L261352_)))) + (gx#stx-e _L262553_)))) (declare (not safe)) - (_assert-count259636_ - _L261483_ - _sym261512_ - __tmp275070))) - _$e261509_) + (_assert-count260837_ + _L262684_ + _sym262713_ + __tmp276271))) + _$e262710_) '#!void)))) - (___kont273184273185_ (lambda () '#!void))) + (___kont274385274386_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx273180273181_)) - (let ((_e261392261427_ + ___stx274381274382_)) + (let ((_e262593262628_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx273180273181_)))) - (let ((_tl261390261432_ - (let () (declare (not safe)) (##cdr _e261392261427_))) - (_hd261391261430_ - (let () (declare (not safe)) (##car _e261392261427_)))) + (gx#stx-e ___stx274381274382_)))) + (let ((_tl262591262633_ + (let () (declare (not safe)) (##cdr _e262593262628_))) + (_hd262592262631_ + (let () (declare (not safe)) (##car _e262593262628_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261391261430_)) + (gx#identifier? _hd262592262631_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd261391261430_)) + (gx#stx-eq? '%#call _hd262592262631_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261390261432_)) - (let ((_e261395261435_ + (gx#stx-pair? _tl262591262633_)) + (let ((_e262596262636_ (let () (declare (not safe)) - (gx#stx-e _tl261390261432_)))) - (let ((_tl261393261440_ + (gx#stx-e _tl262591262633_)))) + (let ((_tl262594262641_ (let () (declare (not safe)) - (##cdr _e261395261435_))) - (_hd261394261438_ + (##cdr _e262596262636_))) + (_hd262595262639_ (let () (declare (not safe)) - (##car _e261395261435_)))) + (##car _e262596262636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261394261438_)) - (let ((_e261398261443_ + (gx#stx-pair? _hd262595262639_)) + (let ((_e262599262644_ (let () (declare (not safe)) - (gx#stx-e _hd261394261438_)))) - (let ((_tl261396261448_ + (gx#stx-e _hd262595262639_)))) + (let ((_tl262597262649_ (let () (declare (not safe)) - (##cdr _e261398261443_))) - (_hd261397261446_ + (##cdr _e262599262644_))) + (_hd262598262647_ (let () (declare (not safe)) - (##car _e261398261443_)))) + (##car _e262599262644_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd261397261446_)) + _hd262598262647_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd261397261446_)) + _hd262598262647_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261396261448_)) - (let ((_e261401261451_ + _tl262597262649_)) + (let ((_e262602262652_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl261396261448_)))) - (let ((_tl261399261456_ - (let () (declare (not safe)) (##cdr _e261401261451_))) - (_hd261400261454_ - (let () (declare (not safe)) (##car _e261401261451_)))) + (gx#stx-e _tl262597262649_)))) + (let ((_tl262600262657_ + (let () (declare (not safe)) (##cdr _e262602262652_))) + (_hd262601262655_ + (let () (declare (not safe)) (##car _e262602262652_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261399261456_)) + (gx#stx-null? _tl262600262657_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261393261440_)) - (let ((_e261404261459_ + (gx#stx-pair? _tl262594262641_)) + (let ((_e262605262660_ (let () (declare (not safe)) - (gx#stx-e _tl261393261440_)))) - (let ((_tl261402261464_ + (gx#stx-e _tl262594262641_)))) + (let ((_tl262603262665_ (let () (declare (not safe)) - (##cdr _e261404261459_))) - (_hd261403261462_ + (##cdr _e262605262660_))) + (_hd262604262663_ (let () (declare (not safe)) - (##car _e261404261459_)))) + (##car _e262605262660_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd261403261462_)) - (let ((_e261407261467_ + (gx#stx-pair? _hd262604262663_)) + (let ((_e262608262668_ (let () (declare (not safe)) - (gx#stx-e _hd261403261462_)))) - (let ((_tl261405261472_ + (gx#stx-e _hd262604262663_)))) + (let ((_tl262606262673_ (let () (declare (not safe)) - (##cdr _e261407261467_))) - (_hd261406261470_ + (##cdr _e262608262668_))) + (_hd262607262671_ (let () (declare (not safe)) - (##car _e261407261467_)))) + (##car _e262608262668_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261406261470_)) + (gx#identifier? _hd262607262671_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd261406261470_)) + _hd262607262671_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl261405261472_)) - (let ((_e261410261475_ + _tl262606262673_)) + (let ((_e262611262676_ (let () (declare (not safe)) (gx#stx-e - _tl261405261472_)))) - (let ((_tl261408261480_ + _tl262606262673_)))) + (let ((_tl262609262681_ (let () (declare (not safe)) - (##cdr _e261410261475_))) - (_hd261409261478_ + (##cdr _e262611262676_))) + (_hd262610262679_ (let () (declare (not safe)) - (##car _e261410261475_)))) + (##car _e262611262676_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl261408261480_)) + _tl262609262681_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl261402261464_)) - (___kont273182273183_ _hd261409261478_ _hd261400261454_) - (___kont273184273185_)) - (___kont273184273185_)))) + (gx#stx-null? _tl262603262665_)) + (___kont274383274384_ _hd262610262679_ _hd262601262655_) + (___kont274385274386_)) + (___kont274385274386_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273184273185_)) - (___kont273184273185_)) - (___kont273184273185_)))) - (___kont273184273185_)))) - (___kont273184273185_)) - (___kont273184273185_)))) - (___kont273184273185_)) + (___kont274385274386_)) + (___kont274385274386_)) + (___kont274385274386_)))) + (___kont274385274386_)))) + (___kont274385274386_)) + (___kont274385274386_)))) + (___kont274385274386_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273184273185_)) - (___kont273184273185_)))) - (___kont273184273185_)))) - (___kont273184273185_)) - (___kont273184273185_)) - (___kont273184273185_)))) - (___kont273184273185_)))) + (___kont274385274386_)) + (___kont274385274386_)))) + (___kont274385274386_)))) + (___kont274385274386_)) + (___kont274385274386_)) + (___kont274385274386_)))) + (___kont274385274386_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (or (let () (declare (not safe)) (eq? '##eq? - _$e261379_)) + _$e262580_)) (let () (declare (not safe)) - (eq? 'eq? _$e261379_)) + (eq? 'eq? _$e262580_)) (let () (declare (not safe)) (eq? '##eqv? - _$e261379_)) + _$e262580_)) (let () (declare (not safe)) - (eq? 'eqv? _$e261379_)) + (eq? 'eqv? _$e262580_)) (let () (declare (not safe)) (eq? '##equal? - _$e261379_)) + _$e262580_)) (let () (declare (not safe)) (eq? 'equal? - _$e261379_)) + _$e262580_)) (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e261379_)) + _$e262580_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e261379_))) - ((lambda (_sym261538_) - (let* ((___stx273248273249_ - _L261353_) - (_g261541261554_ + _$e262580_))) + ((lambda (_sym262739_) + (let* ((___stx274449274450_ + _L262554_) + (_g262742262755_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -9718,1465 +9718,1465 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273248273249_))))) - (let ((___kont273250273251_ - (lambda (_L261582_) - (let ((__tmp275069 + ___stx274449274450_))))) + (let ((___kont274451274452_ + (lambda (_L262783_) + (let ((__tmp276270 (let () (declare (not safe)) - (_eqf-symbol259624_ _sym261538_))) - (__tmp275068 + (_eqf-symbol260825_ _sym262739_))) + (__tmp276269 (let () (declare (not safe)) - (gx#stx-e _L261352_)))) + (gx#stx-e _L262553_)))) (declare (not safe)) - (_assert-eqf259637_ - _L261582_ - __tmp275069 - __tmp275068)))) - (___kont273252273253_ (lambda () '#!void))) + (_assert-eqf260838_ + _L262783_ + __tmp276270 + __tmp276269)))) + (___kont274453274454_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx273248273249_)) - (let ((_e261546261566_ + (gx#stx-pair? ___stx274449274450_)) + (let ((_e262747262767_ (let () (declare (not safe)) - (gx#stx-e ___stx273248273249_)))) - (let ((_tl261544261571_ + (gx#stx-e ___stx274449274450_)))) + (let ((_tl262745262772_ (let () (declare (not safe)) - (##cdr _e261546261566_))) - (_hd261545261569_ + (##cdr _e262747262767_))) + (_hd262746262770_ (let () (declare (not safe)) - (##car _e261546261566_)))) + (##car _e262747262767_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd261545261569_)) + (gx#identifier? _hd262746262770_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd261545261569_)) + (gx#stx-eq? '%#ref _hd262746262770_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl261544261571_)) - (let ((_e261549261574_ + (gx#stx-pair? _tl262745262772_)) + (let ((_e262750262775_ (let () (declare (not safe)) - (gx#stx-e _tl261544261571_)))) - (let ((_tl261547261579_ + (gx#stx-e _tl262745262772_)))) + (let ((_tl262748262780_ (let () (declare (not safe)) - (##cdr _e261549261574_))) - (_hd261548261577_ + (##cdr _e262750262775_))) + (_hd262749262778_ (let () (declare (not safe)) - (##car _e261549261574_)))) + (##car _e262750262775_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl261547261579_)) - (___kont273250273251_ - _hd261548261577_) - (___kont273252273253_)))) - (___kont273252273253_)) - (___kont273252273253_)) - (___kont273252273253_)))) - (___kont273252273253_))))) + (gx#stx-null? _tl262748262780_)) + (___kont274451274452_ + _hd262749262778_) + (___kont274453274454_)))) + (___kont274453274454_)) + (___kont274453274454_)) + (___kont274453274454_)))) + (___kont274453274454_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e261379_) + _$e262580_) '#!void))))) - (___kont273280273281_ - (lambda (_L261256_ _L261257_ _L261258_) - (let ((__tmp275071 - (let ((__tmp275081 + (___kont274481274482_ + (lambda (_L262457_ _L262458_ _L262459_) + (let ((__tmp276272 + (let ((__tmp276282 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp275072 - (let ((__tmp275078 - (let ((__tmp275080 + (__tmp276273 + (let ((__tmp276279 + (let ((__tmp276281 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275079 + (__tmp276280 (let () (declare (not safe)) - (cons _L261258_ '())))) + (cons _L262459_ '())))) (declare (not safe)) - (cons __tmp275080 __tmp275079))) - (__tmp275073 - (let ((__tmp275074 - (let ((__tmp275075 - (let ((__tmp275077 + (cons __tmp276281 __tmp276280))) + (__tmp276274 + (let ((__tmp276275 + (let ((__tmp276276 + (let ((__tmp276278 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote))) - (__tmp275076 + (__tmp276277 (let () (declare (not safe)) - (cons _L261257_ '())))) + (cons _L262458_ '())))) (declare (not safe)) - (cons __tmp275077 __tmp275076)))) + (cons __tmp276278 __tmp276277)))) (declare (not safe)) - (cons __tmp275075 '())))) + (cons __tmp276276 '())))) (declare (not safe)) - (cons _L261256_ __tmp275074)))) + (cons _L262457_ __tmp276275)))) (declare (not safe)) - (cons __tmp275078 __tmp275073)))) + (cons __tmp276279 __tmp276274)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275081 - __tmp275072)))) + (cons __tmp276282 + __tmp276273)))) (declare (not safe)) - (_assert260639_ __tmp275071)))) - (___kont273282273283_ - (lambda (_L261148_ _L261149_ _L261150_) - (let ((_$e261179_ + (_assert261840_ __tmp276272)))) + (___kont274483274484_ + (lambda (_L262349_ _L262350_ _L262351_) + (let ((_$e262380_ (let () (declare (not safe)) (gxc#identifier-symbol - _L261150_)))) + _L262351_)))) (if (or (let () (declare (not safe)) (eq? 'gx#free-identifier=? - _$e261179_)) + _$e262380_)) (let () (declare (not safe)) (eq? 'gx#stx-eq? - _$e261179_))) - ((lambda (_sym261185_) - (let ((__tmp275082 + _$e262380_))) + ((lambda (_sym262386_) + (let ((__tmp276283 (let () (declare (not safe)) - (_eqf-symbol259624_ - _sym261185_)))) + (_eqf-symbol260825_ + _sym262386_)))) (declare (not safe)) - (_assert-eqf259637_ - _L261149_ - __tmp275082 - _L261148_))) - _$e261179_) + (_assert-eqf260838_ + _L262350_ + __tmp276283 + _L262349_))) + _$e262380_) '#!void)))) - (___kont273284273285_ - (lambda (_L261032_ _L261033_ _L261034_) - (let ((__tmp275083 - (let ((__tmp275096 + (___kont274485274486_ + (lambda (_L262233_ _L262234_ _L262235_) + (let ((__tmp276284 + (let ((__tmp276297 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp275084 - (let ((__tmp275093 - (let ((__tmp275095 + (__tmp276285 + (let ((__tmp276294 + (let ((__tmp276296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275094 + (__tmp276295 (let () (declare (not safe)) - (cons _L261034_ '())))) + (cons _L262235_ '())))) (declare (not safe)) - (cons __tmp275095 __tmp275094))) - (__tmp275085 - (let ((__tmp275090 - (let ((__tmp275092 + (cons __tmp276296 __tmp276295))) + (__tmp276286 + (let ((__tmp276291 + (let ((__tmp276293 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275091 + (__tmp276292 (let () (declare (not safe)) - (cons _L261032_ '())))) + (cons _L262233_ '())))) (declare (not safe)) - (cons __tmp275092 __tmp275091))) - (__tmp275086 - (let ((__tmp275087 - (let ((__tmp275089 + (cons __tmp276293 __tmp276292))) + (__tmp276287 + (let ((__tmp276288 + (let ((__tmp276290 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax))) - (__tmp275088 + (__tmp276289 (let () (declare (not safe)) - (cons _L261033_ '())))) + (cons _L262234_ '())))) (declare (not safe)) - (cons __tmp275089 __tmp275088)))) + (cons __tmp276290 __tmp276289)))) (declare (not safe)) - (cons __tmp275087 '())))) + (cons __tmp276288 '())))) (declare (not safe)) - (cons __tmp275090 __tmp275086)))) + (cons __tmp276291 __tmp276287)))) (declare (not safe)) - (cons __tmp275093 __tmp275085)))) + (cons __tmp276294 __tmp276286)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275096 - __tmp275084)))) + (cons __tmp276297 + __tmp276285)))) (declare (not safe)) - (_assert260639_ __tmp275083)))) - (___kont273286273287_ - (lambda (_L260912_ _L260913_ _L260914_) - (let ((__tmp275097 + (_assert261840_ __tmp276284)))) + (___kont274487274488_ + (lambda (_L262113_ _L262114_ _L262115_) + (let ((__tmp276298 (let () (declare (not safe)) (gxc#apply-expression-subst - _L260913_ - _L260914_ - _L260912_)))) + _L262114_ + _L262115_ + _L262113_)))) (declare (not safe)) - (_assert260639_ __tmp275097)))) - (___kont273288273289_ + (_assert261840_ __tmp276298)))) + (___kont274489274490_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx273274273275_)) - (let ((_e260655261603_ + (gx#stx-pair? ___stx274475274476_)) + (let ((_e261856262804_ (let () (declare (not safe)) - (gx#stx-e ___stx273274273275_)))) - (let ((_tl260653261608_ + (gx#stx-e ___stx274475274476_)))) + (let ((_tl261854262809_ (let () (declare (not safe)) - (##cdr _e260655261603_))) - (_hd260654261606_ + (##cdr _e261856262804_))) + (_hd261855262807_ (let () (declare (not safe)) - (##car _e260655261603_)))) + (##car _e261856262804_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260654261606_)) + _hd261855262807_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd260654261606_)) + _hd261855262807_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260653261608_)) - (let ((_e260658261611_ + _tl261854262809_)) + (let ((_e261859262812_ (let () (declare (not safe)) (gx#stx-e - _tl260653261608_)))) - (let ((_tl260656261616_ + _tl261854262809_)))) + (let ((_tl261857262817_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260658261611_))) - (_hd260657261614_ - (let () (declare (not safe)) (##car _e260658261611_)))) + (##cdr _e261859262812_))) + (_hd261858262815_ + (let () (declare (not safe)) (##car _e261859262812_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260657261614_)) - (let ((_e260661261619_ + (gx#stx-pair? _hd261858262815_)) + (let ((_e261862262820_ (let () (declare (not safe)) - (gx#stx-e _hd260657261614_)))) - (let ((_tl260659261624_ + (gx#stx-e _hd261858262815_)))) + (let ((_tl261860262825_ (let () (declare (not safe)) - (##cdr _e260661261619_))) - (_hd260660261622_ + (##cdr _e261862262820_))) + (_hd261861262823_ (let () (declare (not safe)) - (##car _e260661261619_)))) + (##car _e261862262820_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260660261622_)) + (gx#identifier? _hd261861262823_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd260660261622_)) + (gx#stx-eq? '%#ref _hd261861262823_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260659261624_)) - (let ((_e260664261627_ + (gx#stx-pair? _tl261860262825_)) + (let ((_e261865262828_ (let () (declare (not safe)) - (gx#stx-e _tl260659261624_)))) - (let ((_tl260662261632_ + (gx#stx-e _tl261860262825_)))) + (let ((_tl261863262833_ (let () (declare (not safe)) - (##cdr _e260664261627_))) - (_hd260663261630_ + (##cdr _e261865262828_))) + (_hd261864262831_ (let () (declare (not safe)) - (##car _e260664261627_)))) + (##car _e261865262828_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260662261632_)) + (gx#stx-null? _tl261863262833_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260656261616_)) - (let ((_e260667261635_ + _tl261857262817_)) + (let ((_e261868262836_ (let () (declare (not safe)) (gx#stx-e - _tl260656261616_)))) - (let ((_tl260665261640_ + _tl261857262817_)))) + (let ((_tl261866262841_ (let () (declare (not safe)) - (##cdr _e260667261635_))) - (_hd260666261638_ + (##cdr _e261868262836_))) + (_hd261867262839_ (let () (declare (not safe)) - (##car _e260667261635_)))) + (##car _e261868262836_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260666261638_)) - (let ((_e260670261643_ + _hd261867262839_)) + (let ((_e261871262844_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd260666261638_)))) - (let ((_tl260668261648_ + (gx#stx-e _hd261867262839_)))) + (let ((_tl261869262849_ (let () (declare (not safe)) - (##cdr _e260670261643_))) - (_hd260669261646_ + (##cdr _e261871262844_))) + (_hd261870262847_ (let () (declare (not safe)) - (##car _e260670261643_)))) + (##car _e261871262844_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260669261646_)) + (gx#identifier? _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd260669261646_)) + (gx#stx-eq? '%#ref _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260673261651_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261874262852_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260671261656_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261872262857_ (let () (declare (not safe)) - (##cdr _e260673261651_))) - (_hd260672261654_ + (##cdr _e261874262852_))) + (_hd261873262855_ (let () (declare (not safe)) - (##car _e260673261651_)))) + (##car _e261874262852_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260671261656_)) + (gx#stx-null? _tl261872262857_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260665261640_)) - (___kont273276273277_ - _hd260672261654_ - _hd260663261630_) + (gx#stx-null? _tl261866262841_)) + (___kont274477274478_ + _hd261873262855_ + _hd261864262831_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260665261640_)) - (let ((_e260694261328_ + _tl261866262841_)) + (let ((_e261895262529_ (let () (declare (not safe)) (gx#stx-e - _tl260665261640_)))) - (let ((_tl260692261333_ + _tl261866262841_)))) + (let ((_tl261893262534_ (let () (declare (not safe)) - (##cdr _e260694261328_))) - (_hd260693261331_ + (##cdr _e261895262529_))) + (_hd261894262532_ (let () (declare (not safe)) - (##car _e260694261328_)))) + (##car _e261895262529_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260693261331_)) - (let ((_e260697261336_ + _hd261894262532_)) + (let ((_e261898262537_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd260693261331_)))) - (let ((_tl260695261341_ + (gx#stx-e _hd261894262532_)))) + (let ((_tl261896262542_ (let () (declare (not safe)) - (##cdr _e260697261336_))) - (_hd260696261339_ + (##cdr _e261898262537_))) + (_hd261897262540_ (let () (declare (not safe)) - (##car _e260697261336_)))) + (##car _e261898262537_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260696261339_)) + (gx#identifier? _hd261897262540_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260696261339_)) + (gx#stx-eq? '%#quote _hd261897262540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260695261341_)) - (let ((_e260700261344_ + (gx#stx-pair? _tl261896262542_)) + (let ((_e261901262545_ (let () (declare (not safe)) - (gx#stx-e _tl260695261341_)))) - (let ((_tl260698261349_ + (gx#stx-e _tl261896262542_)))) + (let ((_tl261899262550_ (let () (declare (not safe)) - (##cdr _e260700261344_))) - (_hd260699261347_ + (##cdr _e261901262545_))) + (_hd261900262548_ (let () (declare (not safe)) - (##car _e260700261344_)))) + (##car _e261901262545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260698261349_)) + (gx#stx-null? _tl261899262550_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273278273279_ - _hd260699261347_ - _hd260666261638_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) + (gx#stx-null? _tl261893262534_)) + (___kont274479274480_ + _hd261900262548_ + _hd261867262839_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260695261341_)) - (let ((_e260760261140_ + (gx#stx-pair? _tl261896262542_)) + (let ((_e261961262341_ (let () (declare (not safe)) - (gx#stx-e _tl260695261341_)))) - (let ((_tl260758261145_ + (gx#stx-e _tl261896262542_)))) + (let ((_tl261959262346_ (let () (declare (not safe)) - (##cdr _e260760261140_))) - (_hd260759261143_ + (##cdr _e261961262341_))) + (_hd261960262344_ (let () (declare (not safe)) - (##car _e260760261140_)))) + (##car _e261961262341_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260758261145_)) + (gx#stx-null? _tl261959262346_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl260692261333_)) - (___kont273282273283_ - _hd260759261143_ - _hd260672261654_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_))) - (___kont273288273289_)))) - (___kont273288273289_)))) + _tl261893262534_)) + (___kont274483274484_ + _hd261960262344_ + _hd261873262855_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_))) + (___kont274489274490_)))) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_))) + (___kont274489274490_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260665261640_)) - (let ((_e260694261328_ + (gx#stx-pair? _tl261866262841_)) + (let ((_e261895262529_ (let () (declare (not safe)) (gx#stx-e - _tl260665261640_)))) - (let ((_tl260692261333_ + _tl261866262841_)))) + (let ((_tl261893262534_ (let () (declare (not safe)) - (##cdr _e260694261328_))) - (_hd260693261331_ + (##cdr _e261895262529_))) + (_hd261894262532_ (let () (declare (not safe)) - (##car _e260694261328_)))) + (##car _e261895262529_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260693261331_)) - (let ((_e260697261336_ + _hd261894262532_)) + (let ((_e261898262537_ (let () (declare (not safe)) (gx#stx-e - _hd260693261331_)))) - (let ((_tl260695261341_ + _hd261894262532_)))) + (let ((_tl261896262542_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260697261336_))) - (_hd260696261339_ - (let () (declare (not safe)) (##car _e260697261336_)))) + (##cdr _e261898262537_))) + (_hd261897262540_ + (let () (declare (not safe)) (##car _e261898262537_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260696261339_)) + (gx#identifier? _hd261897262540_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260696261339_)) + (gx#stx-eq? '%#quote _hd261897262540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260695261341_)) - (let ((_e260700261344_ + (gx#stx-pair? _tl261896262542_)) + (let ((_e261901262545_ (let () (declare (not safe)) - (gx#stx-e _tl260695261341_)))) - (let ((_tl260698261349_ + (gx#stx-e _tl261896262542_)))) + (let ((_tl261899262550_ (let () (declare (not safe)) - (##cdr _e260700261344_))) - (_hd260699261347_ + (##cdr _e261901262545_))) + (_hd261900262548_ (let () (declare (not safe)) - (##car _e260700261344_)))) + (##car _e261901262545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260698261349_)) + (gx#stx-null? _tl261899262550_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273278273279_ - _hd260699261347_ - _hd260666261638_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_)) - (___kont273288273289_)))) + (gx#stx-null? _tl261893262534_)) + (___kont274479274480_ + _hd261900262548_ + _hd261867262839_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)))) - (___kont273288273289_))))) + (___kont274489274490_)))) + (___kont274489274490_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260665261640_)) - (let ((_e260694261328_ + (gx#stx-pair? _tl261866262841_)) + (let ((_e261895262529_ (let () (declare (not safe)) - (gx#stx-e _tl260665261640_)))) - (let ((_tl260692261333_ + (gx#stx-e _tl261866262841_)))) + (let ((_tl261893262534_ (let () (declare (not safe)) - (##cdr _e260694261328_))) - (_hd260693261331_ + (##cdr _e261895262529_))) + (_hd261894262532_ (let () (declare (not safe)) - (##car _e260694261328_)))) + (##car _e261895262529_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260693261331_)) - (let ((_e260697261336_ + (gx#stx-pair? _hd261894262532_)) + (let ((_e261898262537_ (let () (declare (not safe)) (gx#stx-e - _hd260693261331_)))) - (let ((_tl260695261341_ + _hd261894262532_)))) + (let ((_tl261896262542_ (let () (declare (not safe)) - (##cdr _e260697261336_))) - (_hd260696261339_ + (##cdr _e261898262537_))) + (_hd261897262540_ (let () (declare (not safe)) - (##car _e260697261336_)))) + (##car _e261898262537_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl260695261341_)) - (let ((_e260700261344_ + (gx#stx-pair? _tl261896262542_)) + (let ((_e261901262545_ (let () (declare (not safe)) - (gx#stx-e _tl260695261341_)))) - (let ((_tl260698261349_ + (gx#stx-e _tl261896262542_)))) + (let ((_tl261899262550_ (let () (declare (not safe)) - (##cdr _e260700261344_))) - (_hd260699261347_ + (##cdr _e261901262545_))) + (_hd261900262548_ (let () (declare (not safe)) - (##car _e260700261344_)))) + (##car _e261901262545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260698261349_)) + (gx#stx-null? _tl261899262550_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273278273279_ - _hd260699261347_ - _hd260666261638_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_)) + (gx#stx-null? _tl261893262534_)) + (___kont274479274480_ + _hd261900262548_ + _hd261867262839_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)))) - (___kont273288273289_)))) - (___kont273288273289_))) + (___kont274489274490_)))) + (___kont274489274490_)))) + (___kont274489274490_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260665261640_)) - (let ((_e260694261328_ + (gx#stx-pair? _tl261866262841_)) + (let ((_e261895262529_ (let () (declare (not safe)) - (gx#stx-e _tl260665261640_)))) - (let ((_tl260692261333_ + (gx#stx-e _tl261866262841_)))) + (let ((_tl261893262534_ (let () (declare (not safe)) - (##cdr _e260694261328_))) - (_hd260693261331_ + (##cdr _e261895262529_))) + (_hd261894262532_ (let () (declare (not safe)) - (##car _e260694261328_)))) + (##car _e261895262529_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260693261331_)) - (let ((_e260697261336_ + (gx#stx-pair? _hd261894262532_)) + (let ((_e261898262537_ (let () (declare (not safe)) (gx#stx-e - _hd260693261331_)))) - (let ((_tl260695261341_ + _hd261894262532_)))) + (let ((_tl261896262542_ (let () (declare (not safe)) - (##cdr _e260697261336_))) - (_hd260696261339_ + (##cdr _e261898262537_))) + (_hd261897262540_ (let () (declare (not safe)) - (##car _e260697261336_)))) + (##car _e261898262537_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260695261341_)) - (let ((_e260700261344_ + _tl261896262542_)) + (let ((_e261901262545_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl260695261341_)))) - (let ((_tl260698261349_ + (gx#stx-e _tl261896262542_)))) + (let ((_tl261899262550_ (let () (declare (not safe)) - (##cdr _e260700261344_))) - (_hd260699261347_ + (##cdr _e261901262545_))) + (_hd261900262548_ (let () (declare (not safe)) - (##car _e260700261344_)))) + (##car _e261901262545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260698261349_)) + (gx#stx-null? _tl261899262550_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273278273279_ - _hd260699261347_ - _hd260666261638_ - _hd260663261630_) + (gx#stx-null? _tl261893262534_)) + (___kont274479274480_ + _hd261900262548_ + _hd261867262839_ + _hd261864262831_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260669261646_)) + (gx#stx-eq? '%#quote _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260724261240_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261925262441_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260722261245_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261923262446_ (let () (declare (not safe)) - (##cdr _e260724261240_))) - (_hd260723261243_ + (##cdr _e261925262441_))) + (_hd261924262444_ (let () (declare (not safe)) - (##car _e260724261240_)))) - (___kont273288273289_))) - (___kont273288273289_)) + (##car _e261925262441_)))) + (___kont274489274490_))) + (___kont274489274490_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260784261000_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261985262201_ (let () (declare (not safe)) (gx#stx-e - _tl260668261648_)))) - (let ((_tl260782261005_ + _tl261869262849_)))) + (let ((_tl261983262206_ (let () (declare (not safe)) - (##cdr _e260784261000_))) - (_hd260783261003_ + (##cdr _e261985262201_))) + (_hd261984262204_ (let () (declare (not safe)) - (##car _e260784261000_)))) - (___kont273288273289_))) - (___kont273288273289_)) - (___kont273288273289_)))) + (##car _e261985262201_)))) + (___kont274489274490_))) + (___kont274489274490_)) + (___kont274489274490_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260669261646_)) + (gx#stx-eq? '%#quote _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260724261240_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261925262441_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260722261245_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261923262446_ (let () (declare (not safe)) - (##cdr _e260724261240_))) - (_hd260723261243_ + (##cdr _e261925262441_))) + (_hd261924262444_ (let () (declare (not safe)) - (##car _e260724261240_)))) + (##car _e261925262441_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260722261245_)) + (gx#stx-null? _tl261923262446_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273280273281_ - _hd260693261331_ - _hd260723261243_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) + (gx#stx-null? _tl261893262534_)) + (___kont274481274482_ + _hd261894262532_ + _hd261924262444_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260784261000_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261985262201_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260782261005_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261983262206_ (let () (declare (not safe)) - (##cdr _e260784261000_))) - (_hd260783261003_ + (##cdr _e261985262201_))) + (_hd261984262204_ (let () (declare (not safe)) - (##car _e260784261000_)))) - (___kont273288273289_))) - (___kont273288273289_)) - (___kont273288273289_)))))) + (##car _e261985262201_)))) + (___kont274489274490_))) + (___kont274489274490_)) + (___kont274489274490_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260669261646_)) + (gx#stx-eq? '%#quote _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260724261240_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261925262441_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260722261245_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261923262446_ (let () (declare (not safe)) - (##cdr _e260724261240_))) - (_hd260723261243_ + (##cdr _e261925262441_))) + (_hd261924262444_ (let () (declare (not safe)) - (##car _e260724261240_)))) + (##car _e261925262441_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260722261245_)) + (gx#stx-null? _tl261923262446_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273280273281_ - _hd260693261331_ - _hd260723261243_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) + (gx#stx-null? _tl261893262534_)) + (___kont274481274482_ + _hd261894262532_ + _hd261924262444_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd260669261646_)) + (gx#stx-eq? '%#quote-syntax _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260784261000_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261985262201_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260782261005_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261983262206_ (let () (declare (not safe)) - (##cdr _e260784261000_))) - (_hd260783261003_ + (##cdr _e261985262201_))) + (_hd261984262204_ (let () (declare (not safe)) - (##car _e260784261000_)))) - (___kont273288273289_))) - (___kont273288273289_)) - (___kont273288273289_)))) + (##car _e261985262201_)))) + (___kont274489274490_))) + (___kont274489274490_)) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260724261240_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261925262441_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260722261245_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261923262446_ (let () (declare (not safe)) - (##cdr _e260724261240_))) - (_hd260723261243_ + (##cdr _e261925262441_))) + (_hd261924262444_ (let () (declare (not safe)) - (##car _e260724261240_)))) + (##car _e261925262441_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260722261245_)) + (gx#stx-null? _tl261923262446_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273280273281_ - _hd260693261331_ - _hd260723261243_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) + (gx#stx-null? _tl261893262534_)) + (___kont274481274482_ + _hd261894262532_ + _hd261924262444_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _hd260669261646_)) + (gx#stx-eq? '%#quote-syntax _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260784261000_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261985262201_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260782261005_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261983262206_ (let () (declare (not safe)) - (##cdr _e260784261000_))) - (_hd260783261003_ + (##cdr _e261985262201_))) + (_hd261984262204_ (let () (declare (not safe)) - (##car _e260784261000_)))) + (##car _e261985262201_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260782261005_)) + (gx#stx-null? _tl261983262206_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd260696261339_)) + (gx#stx-eq? '%#ref _hd261897262540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260695261341_)) - (let ((_e260793261024_ + (gx#stx-pair? _tl261896262542_)) + (let ((_e261994262225_ (let () (declare (not safe)) (gx#stx-e - _tl260695261341_)))) - (let ((_tl260791261029_ + _tl261896262542_)))) + (let ((_tl261992262230_ (let () (declare (not safe)) - (##cdr _e260793261024_))) - (_hd260792261027_ + (##cdr _e261994262225_))) + (_hd261993262228_ (let () (declare (not safe)) - (##car _e260793261024_)))) + (##car _e261994262225_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260791261029_)) + _tl261992262230_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl260692261333_)) - (___kont273284273285_ - _hd260792261027_ - _hd260783261003_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_)))) + _tl261893262534_)) + (___kont274485274486_ + _hd261993262228_ + _hd261984262204_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260668261648_)) - (let ((_e260724261240_ + _tl261869262849_)) + (let ((_e261925262441_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260722261245_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261923262446_ (let () (declare (not safe)) - (##cdr _e260724261240_))) - (_hd260723261243_ + (##cdr _e261925262441_))) + (_hd261924262444_ (let () (declare (not safe)) - (##car _e260724261240_)))) + (##car _e261925262441_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260722261245_)) + (gx#stx-null? _tl261923262446_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273280273281_ - _hd260693261331_ - _hd260723261243_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) + (gx#stx-null? _tl261893262534_)) + (___kont274481274482_ + _hd261894262532_ + _hd261924262444_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260784261000_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261985262201_ (let () (declare (not safe)) - (gx#stx-e _tl260668261648_)))) - (let ((_tl260782261005_ + (gx#stx-e _tl261869262849_)))) + (let ((_tl261983262206_ (let () (declare (not safe)) - (##cdr _e260784261000_))) - (_hd260783261003_ + (##cdr _e261985262201_))) + (_hd261984262204_ (let () (declare (not safe)) - (##car _e260784261000_)))) - (___kont273288273289_))) - (___kont273288273289_)) - (___kont273288273289_)))))) + (##car _e261985262201_)))) + (___kont274489274490_))) + (___kont274489274490_)) + (___kont274489274490_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260668261648_)) - (let ((_e260724261240_ + _tl261869262849_)) + (let ((_e261925262441_ (let () (declare (not safe)) (gx#stx-e - _tl260668261648_)))) - (let ((_tl260722261245_ + _tl261869262849_)))) + (let ((_tl261923262446_ (let () (declare (not safe)) - (##cdr _e260724261240_))) - (_hd260723261243_ + (##cdr _e261925262441_))) + (_hd261924262444_ (let () (declare (not safe)) - (##car _e260724261240_)))) + (##car _e261925262441_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260722261245_)) + _tl261923262446_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273280273281_ - _hd260693261331_ - _hd260723261243_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) + (gx#stx-null? _tl261893262534_)) + (___kont274481274482_ + _hd261894262532_ + _hd261924262444_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)) + (___kont274489274490_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260668261648_)) - (let ((_e260784261000_ + _tl261869262849_)) + (let ((_e261985262201_ (let () (declare (not safe)) (gx#stx-e - _tl260668261648_)))) - (let ((_tl260782261005_ + _tl261869262849_)))) + (let ((_tl261983262206_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260784261000_))) - (_hd260783261003_ - (let () (declare (not safe)) (##car _e260784261000_)))) - (___kont273288273289_))) + (##cdr _e261985262201_))) + (_hd261984262204_ + (let () (declare (not safe)) (##car _e261985262201_)))) + (___kont274489274490_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)) - (___kont273288273289_)))))) + (___kont274489274490_)) + (___kont274489274490_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd260669261646_)) + (gx#stx-eq? '%#quote _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260724261240_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261925262441_ (let () (declare (not safe)) (gx#stx-e - _tl260668261648_)))) - (let ((_tl260722261245_ + _tl261869262849_)))) + (let ((_tl261923262446_ (let () (declare (not safe)) - (##cdr _e260724261240_))) - (_hd260723261243_ + (##cdr _e261925262441_))) + (_hd261924262444_ (let () (declare (not safe)) - (##car _e260724261240_)))) - (___kont273288273289_))) - (___kont273288273289_)) + (##car _e261925262441_)))) + (___kont274489274490_))) + (___kont274489274490_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _hd260669261646_)) + _hd261870262847_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260668261648_)) - (let ((_e260784261000_ + (gx#stx-pair? _tl261869262849_)) + (let ((_e261985262201_ (let () (declare (not safe)) (gx#stx-e - _tl260668261648_)))) - (let ((_tl260782261005_ + _tl261869262849_)))) + (let ((_tl261983262206_ (let () (declare (not safe)) - (##cdr _e260784261000_))) - (_hd260783261003_ + (##cdr _e261985262201_))) + (_hd261984262204_ (let () (declare (not safe)) - (##car _e260784261000_)))) - (___kont273288273289_))) - (___kont273288273289_)) - (___kont273288273289_))))) + (##car _e261985262201_)))) + (___kont274489274490_))) + (___kont274489274490_)) + (___kont274489274490_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260665261640_)) - (let ((_e260694261328_ + (gx#stx-pair? _tl261866262841_)) + (let ((_e261895262529_ (let () (declare (not safe)) - (gx#stx-e _tl260665261640_)))) - (let ((_tl260692261333_ + (gx#stx-e _tl261866262841_)))) + (let ((_tl261893262534_ (let () (declare (not safe)) - (##cdr _e260694261328_))) - (_hd260693261331_ + (##cdr _e261895262529_))) + (_hd261894262532_ (let () (declare (not safe)) - (##car _e260694261328_)))) + (##car _e261895262529_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260693261331_)) - (let ((_e260697261336_ + (gx#stx-pair? _hd261894262532_)) + (let ((_e261898262537_ (let () (declare (not safe)) - (gx#stx-e _hd260693261331_)))) - (let ((_tl260695261341_ + (gx#stx-e _hd261894262532_)))) + (let ((_tl261896262542_ (let () (declare (not safe)) - (##cdr _e260697261336_))) - (_hd260696261339_ + (##cdr _e261898262537_))) + (_hd261897262540_ (let () (declare (not safe)) - (##car _e260697261336_)))) + (##car _e261898262537_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260695261341_)) - (let ((_e260700261344_ + _tl261896262542_)) + (let ((_e261901262545_ (let () (declare (not safe)) (gx#stx-e - _tl260695261341_)))) - (let ((_tl260698261349_ + _tl261896262542_)))) + (let ((_tl261899262550_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260700261344_))) - (_hd260699261347_ - (let () (declare (not safe)) (##car _e260700261344_)))) + (##cdr _e261901262545_))) + (_hd261900262548_ + (let () (declare (not safe)) (##car _e261901262545_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260698261349_)) + (gx#stx-null? _tl261899262550_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260692261333_)) - (___kont273278273279_ - _hd260699261347_ - _hd260666261638_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) + (gx#stx-null? _tl261893262534_)) + (___kont274479274480_ + _hd261900262548_ + _hd261867262839_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)))) - (___kont273288273289_))))) + (___kont274489274490_)) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)))) + (___kont274489274490_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260665261640_)) - (let ((_e260694261328_ + (gx#stx-pair? _tl261866262841_)) + (let ((_e261895262529_ (let () (declare (not safe)) - (gx#stx-e _tl260665261640_)))) - (let ((_tl260692261333_ + (gx#stx-e _tl261866262841_)))) + (let ((_tl261893262534_ (let () (declare (not safe)) - (##cdr _e260694261328_))) - (_hd260693261331_ + (##cdr _e261895262529_))) + (_hd261894262532_ (let () (declare (not safe)) - (##car _e260694261328_)))) + (##car _e261895262529_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260693261331_)) - (let ((_e260697261336_ + (gx#stx-pair? _hd261894262532_)) + (let ((_e261898262537_ (let () (declare (not safe)) - (gx#stx-e _hd260693261331_)))) - (let ((_tl260695261341_ + (gx#stx-e _hd261894262532_)))) + (let ((_tl261896262542_ (let () (declare (not safe)) - (##cdr _e260697261336_))) - (_hd260696261339_ + (##cdr _e261898262537_))) + (_hd261897262540_ (let () (declare (not safe)) - (##car _e260697261336_)))) + (##car _e261898262537_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260696261339_)) + (gx#identifier? _hd261897262540_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd260696261339_)) + _hd261897262540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260695261341_)) - (let ((_e260700261344_ + (gx#stx-pair? _tl261896262542_)) + (let ((_e261901262545_ (let () (declare (not safe)) (gx#stx-e - _tl260695261341_)))) - (let ((_tl260698261349_ + _tl261896262542_)))) + (let ((_tl261899262550_ (let () (declare (not safe)) - (##cdr _e260700261344_))) - (_hd260699261347_ + (##cdr _e261901262545_))) + (_hd261900262548_ (let () (declare (not safe)) - (##car _e260700261344_)))) + (##car _e261901262545_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260698261349_)) + _tl261899262550_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl260692261333_)) - (___kont273278273279_ - _hd260699261347_ - _hd260666261638_ - _hd260663261630_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)))) - (___kont273288273289_))))) + _tl261893262534_)) + (___kont274479274480_ + _hd261900262548_ + _hd261867262839_ + _hd261864262831_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)))) + (___kont274489274490_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd260660261622_)) + (gx#stx-eq? '%#lambda _hd261861262823_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260659261624_)) - (let ((_e260808260864_ + (gx#stx-pair? _tl261860262825_)) + (let ((_e262009262065_ (let () (declare (not safe)) (gx#stx-e - _tl260659261624_)))) - (let ((_tl260806260869_ + _tl261860262825_)))) + (let ((_tl262007262070_ (let () (declare (not safe)) - (##cdr _e260808260864_))) - (_hd260807260867_ + (##cdr _e262009262065_))) + (_hd262008262068_ (let () (declare (not safe)) - (##car _e260808260864_)))) + (##car _e262009262065_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd260807260867_)) - (let ((_e260811260872_ + _hd262008262068_)) + (let ((_e262012262073_ (let () (declare (not safe)) (gx#stx-e - _hd260807260867_)))) - (let ((_tl260809260877_ + _hd262008262068_)))) + (let ((_tl262010262078_ (let () (declare (not safe)) - (##cdr _e260811260872_))) - (_hd260810260875_ + (##cdr _e262012262073_))) + (_hd262011262076_ (let () (declare (not safe)) - (##car _e260811260872_)))) + (##car _e262012262073_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260809260877_)) + _tl262010262078_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl260806260869_)) - (let ((_e260814260880_ + (gx#stx-pair? _tl262007262070_)) + (let ((_e262015262081_ (let () (declare (not safe)) - (gx#stx-e _tl260806260869_)))) - (let ((_tl260812260885_ + (gx#stx-e _tl262007262070_)))) + (let ((_tl262013262086_ (let () (declare (not safe)) - (##cdr _e260814260880_))) - (_hd260813260883_ + (##cdr _e262015262081_))) + (_hd262014262084_ (let () (declare (not safe)) - (##car _e260814260880_)))) + (##car _e262015262081_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260812260885_)) + (gx#stx-null? _tl262013262086_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl260656261616_)) - (let ((_e260817260888_ + (gx#stx-pair? _tl261857262817_)) + (let ((_e262018262089_ (let () (declare (not safe)) - (gx#stx-e _tl260656261616_)))) - (let ((_tl260815260893_ + (gx#stx-e _tl261857262817_)))) + (let ((_tl262016262094_ (let () (declare (not safe)) - (##cdr _e260817260888_))) - (_hd260816260891_ + (##cdr _e262018262089_))) + (_hd262017262092_ (let () (declare (not safe)) - (##car _e260817260888_)))) + (##car _e262018262089_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260816260891_)) - (let ((_e260820260896_ + (gx#stx-pair? _hd262017262092_)) + (let ((_e262021262097_ (let () (declare (not safe)) (gx#stx-e - _hd260816260891_)))) - (let ((_tl260818260901_ + _hd262017262092_)))) + (let ((_tl262019262102_ (let () (declare (not safe)) - (##cdr _e260820260896_))) - (_hd260819260899_ + (##cdr _e262021262097_))) + (_hd262020262100_ (let () (declare (not safe)) - (##car _e260820260896_)))) + (##car _e262021262097_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd260819260899_)) + _hd262020262100_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd260819260899_)) + _hd262020262100_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260818260901_)) - (let ((_e260823260904_ + _tl262019262102_)) + (let ((_e262024262105_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl260818260901_)))) - (let ((_tl260821260909_ + (gx#stx-e _tl262019262102_)))) + (let ((_tl262022262110_ (let () (declare (not safe)) - (##cdr _e260823260904_))) - (_hd260822260907_ + (##cdr _e262024262105_))) + (_hd262023262108_ (let () (declare (not safe)) - (##car _e260823260904_)))) + (##car _e262024262105_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260821260909_)) + (gx#stx-null? _tl262022262110_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl260815260893_)) - (___kont273286273287_ - _hd260822260907_ - _hd260813260883_ - _hd260810260875_) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) + (gx#stx-null? _tl262016262094_)) + (___kont274487274488_ + _hd262023262108_ + _hd262014262084_ + _hd262011262076_) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_)))) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)))) - (___kont273288273289_)) - (___kont273288273289_))) - (___kont273288273289_)))) - (___kont273288273289_)))) + (___kont274489274490_)))) + (___kont274489274490_)) + (___kont274489274490_))) + (___kont274489274490_)))) + (___kont274489274490_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273288273289_)) - (___kont273288273289_)) - (___kont273288273289_)))) - (___kont273288273289_))))))))) - (_assert-type259635_ - (lambda (_id260534_ _t260535_) - (let _lp260537_ ((_rest260539_ _env-type259617_)) - (let* ((_rest260540260548_ _rest260539_) - (_else260542260556_ (lambda () '#!void)) - (_K260544260620_ - (lambda (_rest260559_ _type-info260560_) - (let* ((_type-info260561260573_ - _type-info260560_) - (_else260563260581_ + (___kont274489274490_)) + (___kont274489274490_)) + (___kont274489274490_)))) + (___kont274489274490_))))))))) + (_assert-type260836_ + (lambda (_id261735_ _t261736_) + (let _lp261738_ ((_rest261740_ _env-type260818_)) + (let* ((_rest261741261749_ _rest261740_) + (_else261743261757_ (lambda () '#!void)) + (_K261745261821_ + (lambda (_rest261760_ _type-info261761_) + (let* ((_type-info261762261774_ + _type-info261761_) + (_else261764261782_ (lambda () (let () (declare (not safe)) - (_lp260537_ _rest260559_)))) - (_K260565260596_ - (lambda (_val260584_ - _xt260585_ - _xid260586_) + (_lp261738_ _rest261760_)))) + (_K261766261797_ + (lambda (_val261785_ + _xt261786_ + _xid261787_) (if (let () (declare (not safe)) (gx#free-identifier=? - _id260534_ - _xid260586_)) + _id261735_ + _xid261787_)) (if (let () (declare (not safe)) - (eq? _t260535_ - _xt260585_)) - _val260584_ - (if _val260584_ + (eq? _t261736_ + _xt261786_)) + _val261785_ + (if _val261785_ (if (let () (declare (not safe)) (##structure-instance-of? - _t260535_ + _t261736_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##structure-instance-of? _xt260585_ 'gxc#!class::t)) - (memq _t260535_ - (map (lambda (_g260587260589_) + (##structure-instance-of? _xt261786_ 'gxc#!class::t)) + (memq _t261736_ + (map (lambda (_g261788261790_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _xt260585_ - _g260587260589_))) + _xt261786_ + _g261788261790_))) (##structure-ref - _xt260585_ + _xt261786_ '3 gxc#!class::t '#f))) @@ -11184,3500 +11184,3500 @@ '#f) (if (and (let () (declare (not safe)) - (##structure-instance-of? _t260535_ 'gxc#!class::t)) + (##structure-instance-of? _t261736_ 'gxc#!class::t)) (let () (declare (not safe)) - (##structure-instance-of? _xt260585_ 'gxc#!class::t)) - (memq _xt260585_ - (map (lambda (_g260591260593_) + (##structure-instance-of? _xt261786_ 'gxc#!class::t)) + (memq _xt261786_ + (map (lambda (_g261792261794_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _t260535_ - _g260591260593_))) + _t261736_ + _g261792261794_))) (##structure-ref - _t260535_ + _t261736_ '3 gxc#!class::t '#f)))) '#f - (let () (declare (not safe)) (_lp260537_ _rest260559_))))) + (let () (declare (not safe)) (_lp261738_ _rest261760_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_lp260537_ _rest260559_)))))) + (_lp261738_ _rest261760_)))))) (if (let () (declare (not safe)) - (##pair? _type-info260561260573_)) - (let ((_hd260566260599_ + (##pair? _type-info261762261774_)) + (let ((_hd261767261800_ (let () (declare (not safe)) - (##car _type-info260561260573_))) - (_tl260567260601_ + (##car _type-info261762261774_))) + (_tl261768261802_ (let () (declare (not safe)) - (##cdr _type-info260561260573_)))) - (let ((_xid260604_ _hd260566260599_)) + (##cdr _type-info261762261774_)))) + (let ((_xid261805_ _hd261767261800_)) (if (let () (declare (not safe)) - (##pair? _tl260567260601_)) - (let ((_hd260568260606_ + (##pair? _tl261768261802_)) + (let ((_hd261769261807_ (let () (declare (not safe)) - (##car _tl260567260601_))) - (_tl260569260608_ + (##car _tl261768261802_))) + (_tl261770261809_ (let () (declare (not safe)) - (##cdr _tl260567260601_)))) - (let ((_xt260611_ - _hd260568260606_)) + (##cdr _tl261768261802_)))) + (let ((_xt261812_ + _hd261769261807_)) (if (let () (declare (not safe)) - (##pair? _tl260569260608_)) - (let ((_hd260570260613_ + (##pair? _tl261770261809_)) + (let ((_hd261771261814_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl260569260608_))) - (_tl260571260615_ - (let () (declare (not safe)) (##cdr _tl260569260608_)))) - (let ((_val260618_ _hd260570260613_)) - (if (let () (declare (not safe)) (##null? _tl260571260615_)) + (##car _tl261770261809_))) + (_tl261772261816_ + (let () (declare (not safe)) (##cdr _tl261770261809_)))) + (let ((_val261819_ _hd261771261814_)) + (if (let () (declare (not safe)) (##null? _tl261772261816_)) (let () (declare (not safe)) - (_K260565260596_ _val260618_ _xt260611_ _xid260604_)) - (let () (declare (not safe)) (_else260563260581_))))) - (let () (declare (not safe)) (_else260563260581_))))) + (_K261766261797_ _val261819_ _xt261812_ _xid261805_)) + (let () (declare (not safe)) (_else261764261782_))))) + (let () (declare (not safe)) (_else261764261782_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else260563260581_))))) + (_else261764261782_))))) (let () (declare (not safe)) - (_else260563260581_))))))) + (_else261764261782_))))))) (if (let () (declare (not safe)) - (##pair? _rest260540260548_)) - (let ((_hd260545260623_ + (##pair? _rest261741261749_)) + (let ((_hd261746261824_ (let () (declare (not safe)) - (##car _rest260540260548_))) - (_tl260546260625_ + (##car _rest261741261749_))) + (_tl261747261826_ (let () (declare (not safe)) - (##cdr _rest260540260548_)))) - (let* ((_type-info260628_ _hd260545260623_) - (_rest260630_ _tl260546260625_)) + (##cdr _rest261741261749_)))) + (let* ((_type-info261829_ _hd261746261824_) + (_rest261831_ _tl261747261826_)) (declare (not safe)) - (_K260544260620_ - _rest260630_ - _type-info260628_))) + (_K261745261821_ + _rest261831_ + _type-info261829_))) (let () (declare (not safe)) - (_else260542260556_))))))) - (_assert-count259636_ - (lambda (_id260433_ _sym260434_ _count260435_) - (let _lp260437_ ((_rest260439_ _env-type259617_)) - (let* ((_rest260440260448_ _rest260439_) - (_else260442260456_ (lambda () '#!void)) - (_K260444260522_ - (lambda (_rest260459_ _type-info260460_) - (let* ((_type-info260461260475_ - _type-info260460_) - (_else260463260483_ + (_else261743261757_))))))) + (_assert-count260837_ + (lambda (_id261634_ _sym261635_ _count261636_) + (let _lp261638_ ((_rest261640_ _env-type260818_)) + (let* ((_rest261641261649_ _rest261640_) + (_else261643261657_ (lambda () '#!void)) + (_K261645261723_ + (lambda (_rest261660_ _type-info261661_) + (let* ((_type-info261662261676_ + _type-info261661_) + (_else261664261684_ (lambda () (let () (declare (not safe)) - (_lp260437_ _rest260459_)))) - (_K260465260491_ - (lambda (_val260486_ - _xcount260487_ - _xsym260488_ - _xid260489_) + (_lp261638_ _rest261660_)))) + (_K261666261692_ + (lambda (_val261687_ + _xcount261688_ + _xsym261689_ + _xid261690_) (if (and (let () (declare (not safe)) - (eq? _sym260434_ - _xsym260488_)) + (eq? _sym261635_ + _xsym261689_)) (let () (declare (not safe)) (gx#free-identifier=? - _id260433_ - _xid260489_))) - (if _val260486_ - (fx= _count260435_ - _xcount260487_) - (if (fx= _count260435_ - _xcount260487_) + _id261634_ + _xid261690_))) + (if _val261687_ + (fx= _count261636_ + _xcount261688_) + (if (fx= _count261636_ + _xcount261688_) '#f (let () (declare (not safe)) - (_lp260437_ - _rest260459_)))) + (_lp261638_ + _rest261660_)))) (let () (declare (not safe)) - (_lp260437_ _rest260459_)))))) + (_lp261638_ _rest261660_)))))) (if (let () (declare (not safe)) - (##pair? _type-info260461260475_)) - (let ((_hd260466260494_ + (##pair? _type-info261662261676_)) + (let ((_hd261667261695_ (let () (declare (not safe)) - (##car _type-info260461260475_))) - (_tl260467260496_ + (##car _type-info261662261676_))) + (_tl261668261697_ (let () (declare (not safe)) - (##cdr _type-info260461260475_)))) - (let ((_xid260499_ _hd260466260494_)) + (##cdr _type-info261662261676_)))) + (let ((_xid261700_ _hd261667261695_)) (if (let () (declare (not safe)) - (##pair? _tl260467260496_)) - (let ((_hd260468260501_ + (##pair? _tl261668261697_)) + (let ((_hd261669261702_ (let () (declare (not safe)) - (##car _tl260467260496_))) - (_tl260469260503_ + (##car _tl261668261697_))) + (_tl261670261704_ (let () (declare (not safe)) - (##cdr _tl260467260496_)))) - (let ((_xsym260506_ - _hd260468260501_)) + (##cdr _tl261668261697_)))) + (let ((_xsym261707_ + _hd261669261702_)) (if (let () (declare (not safe)) - (##pair? _tl260469260503_)) - (let ((_hd260470260508_ + (##pair? _tl261670261704_)) + (let ((_hd261671261709_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _tl260469260503_))) - (_tl260471260510_ - (let () (declare (not safe)) (##cdr _tl260469260503_)))) - (let ((_xcount260513_ _hd260470260508_)) - (if (let () (declare (not safe)) (##pair? _tl260471260510_)) - (let ((_hd260472260515_ + (##car _tl261670261704_))) + (_tl261672261711_ + (let () (declare (not safe)) (##cdr _tl261670261704_)))) + (let ((_xcount261714_ _hd261671261709_)) + (if (let () (declare (not safe)) (##pair? _tl261672261711_)) + (let ((_hd261673261716_ (let () (declare (not safe)) - (##car _tl260471260510_))) - (_tl260473260517_ + (##car _tl261672261711_))) + (_tl261674261718_ (let () (declare (not safe)) - (##cdr _tl260471260510_)))) - (let ((_val260520_ _hd260472260515_)) + (##cdr _tl261672261711_)))) + (let ((_val261721_ _hd261673261716_)) (if (let () (declare (not safe)) - (##null? _tl260473260517_)) + (##null? _tl261674261718_)) (let () (declare (not safe)) - (_K260465260491_ - _val260520_ - _xcount260513_ - _xsym260506_ - _xid260499_)) + (_K261666261692_ + _val261721_ + _xcount261714_ + _xsym261707_ + _xid261700_)) (let () (declare (not safe)) - (_else260463260483_))))) - (let () (declare (not safe)) (_else260463260483_))))) - (let () (declare (not safe)) (_else260463260483_))))) + (_else261664261684_))))) + (let () (declare (not safe)) (_else261664261684_))))) + (let () (declare (not safe)) (_else261664261684_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else260463260483_))))) + (_else261664261684_))))) (let () (declare (not safe)) - (_else260463260483_))))))) + (_else261664261684_))))))) (if (let () (declare (not safe)) - (##pair? _rest260440260448_)) - (let ((_hd260445260525_ + (##pair? _rest261641261649_)) + (let ((_hd261646261726_ (let () (declare (not safe)) - (##car _rest260440260448_))) - (_tl260446260527_ + (##car _rest261641261649_))) + (_tl261647261728_ (let () (declare (not safe)) - (##cdr _rest260440260448_)))) - (let* ((_type-info260530_ _hd260445260525_) - (_rest260532_ _tl260446260527_)) + (##cdr _rest261641261649_)))) + (let* ((_type-info261731_ _hd261646261726_) + (_rest261733_ _tl261647261728_)) (declare (not safe)) - (_K260444260522_ - _rest260532_ - _type-info260530_))) + (_K261645261723_ + _rest261733_ + _type-info261731_))) (let () (declare (not safe)) - (_else260442260456_))))))) - (_assert-eqf259637_ - (lambda (_id260323_ _sym260324_ _datum260325_) - (letrec ((_eqf260327_ - (lambda (_sym260428_) - (let ((_$e260430_ _sym260428_)) + (_else261643261657_))))))) + (_assert-eqf260838_ + (lambda (_id261524_ _sym261525_ _datum261526_) + (letrec ((_eqf261528_ + (lambda (_sym261629_) + (let ((_$e261631_ _sym261629_)) (if (let () (declare (not safe)) - (eq? 'eq? _$e260430_)) + (eq? 'eq? _$e261631_)) eq? (if (let () (declare (not safe)) - (eq? 'eqv? _$e260430_)) + (eq? 'eqv? _$e261631_)) eqv? (if (let () (declare (not safe)) - (eq? 'equal? _$e260430_)) + (eq? 'equal? _$e261631_)) equal? (if (let () (declare (not safe)) (eq? 'free-identifier=? - _$e260430_)) + _$e261631_)) gx#free-identifier=? (if (let () (declare (not safe)) (eq? 'stx-eq? - _$e260430_)) + _$e261631_)) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _body259378_ - _sym260428_))))))))))) - (let _lp260329_ ((_rest260331_ _env-type259617_)) - (let* ((_rest260332260340_ _rest260331_) - (_else260334260348_ (lambda () '#!void)) - (_K260336260416_ - (lambda (_rest260351_ _type-info260352_) - (let* ((_type-info260353260367_ - _type-info260352_) - (_else260355260375_ + _body260579_ + _sym261629_))))))))))) + (let _lp261530_ ((_rest261532_ _env-type260818_)) + (let* ((_rest261533261541_ _rest261532_) + (_else261535261549_ (lambda () '#!void)) + (_K261537261617_ + (lambda (_rest261552_ _type-info261553_) + (let* ((_type-info261554261568_ + _type-info261553_) + (_else261556261576_ (lambda () (let () (declare (not safe)) - (_lp260329_ _rest260351_)))) - (_K260357260385_ - (lambda (_val260378_ - _xdatum260379_ - _xsym260380_ - _xid260381_) + (_lp261530_ _rest261552_)))) + (_K261558261586_ + (lambda (_val261579_ + _xdatum261580_ + _xsym261581_ + _xid261582_) (if (and (let () (declare (not safe)) - (eq? _sym260324_ - _xsym260380_)) + (eq? _sym261525_ + _xsym261581_)) (let () (declare (not safe)) (gx#free-identifier=? - _id260323_ - _xid260381_))) - (let ((_=?260383_ + _id261524_ + _xid261582_))) + (let ((_=?261584_ (let () (declare (not safe)) - (_eqf260327_ - _sym260324_)))) - (if _val260378_ - (_=?260383_ - _datum260325_ - _xdatum260379_) - (if (_=?260383_ - _datum260325_ - _xdatum260379_) + (_eqf261528_ + _sym261525_)))) + (if _val261579_ + (_=?261584_ + _datum261526_ + _xdatum261580_) + (if (_=?261584_ + _datum261526_ + _xdatum261580_) '#f (let () (declare (not safe)) - (_lp260329_ - _rest260351_))))) + (_lp261530_ + _rest261552_))))) (let () (declare (not safe)) - (_lp260329_ - _rest260351_)))))) + (_lp261530_ + _rest261552_)))))) (if (let () (declare (not safe)) - (##pair? _type-info260353260367_)) - (let ((_hd260358260388_ + (##pair? _type-info261554261568_)) + (let ((_hd261559261589_ (let () (declare (not safe)) - (##car _type-info260353260367_))) - (_tl260359260390_ + (##car _type-info261554261568_))) + (_tl261560261591_ (let () (declare (not safe)) - (##cdr _type-info260353260367_)))) - (let ((_xid260393_ - _hd260358260388_)) + (##cdr _type-info261554261568_)))) + (let ((_xid261594_ + _hd261559261589_)) (if (let () (declare (not safe)) - (##pair? _tl260359260390_)) - (let ((_hd260360260395_ + (##pair? _tl261560261591_)) + (let ((_hd261561261596_ (let () (declare (not safe)) - (##car _tl260359260390_))) - (_tl260361260397_ + (##car _tl261560261591_))) + (_tl261562261598_ (let () (declare (not safe)) - (##cdr _tl260359260390_)))) - (let ((_xsym260400_ - _hd260360260395_)) + (##cdr _tl261560261591_)))) + (let ((_xsym261601_ + _hd261561261596_)) (if (let () (declare (not safe)) - (##pair? _tl260361260397_)) - (let ((_hd260362260402_ + (##pair? _tl261562261598_)) + (let ((_hd261563261603_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _tl260361260397_))) - (_tl260363260404_ + (##car _tl261562261598_))) + (_tl261564261605_ (let () (declare (not safe)) - (##cdr _tl260361260397_)))) - (let ((_xdatum260407_ _hd260362260402_)) + (##cdr _tl261562261598_)))) + (let ((_xdatum261608_ _hd261563261603_)) (if (let () (declare (not safe)) - (##pair? _tl260363260404_)) - (let ((_hd260364260409_ + (##pair? _tl261564261605_)) + (let ((_hd261565261610_ (let () (declare (not safe)) - (##car _tl260363260404_))) - (_tl260365260411_ + (##car _tl261564261605_))) + (_tl261566261612_ (let () (declare (not safe)) - (##cdr _tl260363260404_)))) - (let ((_val260414_ _hd260364260409_)) + (##cdr _tl261564261605_)))) + (let ((_val261615_ _hd261565261610_)) (if (let () (declare (not safe)) - (##null? _tl260365260411_)) + (##null? _tl261566261612_)) (let () (declare (not safe)) - (_K260357260385_ - _val260414_ - _xdatum260407_ - _xsym260400_ - _xid260393_)) + (_K261558261586_ + _val261615_ + _xdatum261608_ + _xsym261601_ + _xid261594_)) (let () (declare (not safe)) - (_else260355260375_))))) - (let () (declare (not safe)) (_else260355260375_))))) - (let () (declare (not safe)) (_else260355260375_))))) + (_else261556261576_))))) + (let () (declare (not safe)) (_else261556261576_))))) + (let () (declare (not safe)) (_else261556261576_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else260355260375_))))) + (_else261556261576_))))) (let () (declare (not safe)) - (_else260355260375_))))))) + (_else261556261576_))))))) (if (let () (declare (not safe)) - (##pair? _rest260332260340_)) - (let ((_hd260337260419_ + (##pair? _rest261533261541_)) + (let ((_hd261538261620_ (let () (declare (not safe)) - (##car _rest260332260340_))) - (_tl260338260421_ + (##car _rest261533261541_))) + (_tl261539261622_ (let () (declare (not safe)) - (##cdr _rest260332260340_)))) - (let* ((_type-info260424_ _hd260337260419_) - (_rest260426_ _tl260338260421_)) + (##cdr _rest261533261541_)))) + (let* ((_type-info261625_ _hd261538261620_) + (_rest261627_ _tl261539261622_)) (declare (not safe)) - (_K260336260416_ - _rest260426_ - _type-info260424_))) + (_K261537261617_ + _rest261627_ + _type-info261625_))) (let () (declare (not safe)) - (_else260334260348_)))))))) - (_bind-e__271657271658_ - (lambda (_bind260226_ _body260227_ _continue260228_) - (let _lp260230_ ((_rest260232_ _bind260226_) - (_subst260233_ '()) - (_locals260234_ '()) - (_env260235_ _env-bind259618_)) - (let* ((_rest260236260244_ _rest260232_) - (_else260238260258_ + (_else261535261549_)))))))) + (_bind-e__272858272859_ + (lambda (_bind261427_ _body261428_ _continue261429_) + (let _lp261431_ ((_rest261433_ _bind261427_) + (_subst261434_ '()) + (_locals261435_ '()) + (_env261436_ _env-bind260819_)) + (let* ((_rest261437261445_ _rest261433_) + (_else261439261459_ (lambda () - (let* ((_body260252_ + (let* ((_body261453_ (if (let () (declare (not safe)) - (null? _subst260233_)) - _body260227_ + (null? _subst261434_)) + _body261428_ (let () (declare (not safe)) (gxc#apply-expression-subst* - _body260227_ - _subst260233_)))) - (_body260255_ - (let ((__tmp275098 + _body261428_ + _subst261434_)))) + (_body261456_ + (let ((__tmp276299 (lambda () - (_continue260228_ - _body260252_)))) + (_continue261429_ + _body261453_)))) (declare (not safe)) - (_do-bind!259629_ - _env260235_ - __tmp275098)))) + (_do-bind!260830_ + _env261436_ + __tmp276299)))) (if (let () (declare (not safe)) - (null? _locals260234_)) - _body260255_ - (let ((__tmp275099 - (let ((__tmp275100 + (null? _locals261435_)) + _body261456_ + (let ((__tmp276300 + (let ((__tmp276301 (let () (declare (not safe)) - (cons _body260255_ + (cons _body261456_ '())))) (declare (not safe)) - (cons _locals260234_ - __tmp275100)))) + (cons _locals261435_ + __tmp276301)))) (declare (not safe)) - (cons '%#let-values __tmp275099)))))) - (_K260240260299_ - (lambda (_rest260261_ _bind260262_) - (let* ((_bind260263260270_ _bind260262_) - (_E260265260274_ + (cons '%#let-values __tmp276300)))))) + (_K261441261500_ + (lambda (_rest261462_ _bind261463_) + (let* ((_bind261464261471_ _bind261463_) + (_E261466261475_ (lambda () (error '"No clause matching" - _bind260263260270_))) - (_K260266260287_ - (lambda (_expr260277_ _id260278_) - (let* ((_sexpr260280_ + _bind261464261471_))) + (_K261467261488_ + (lambda (_expr261478_ _id261479_) + (let* ((_sexpr261481_ (let () (declare (not safe)) (gxc#apply-generate-runtime-repr - _expr260277_))) - (_$e260282_ + _expr261478_))) + (_$e261483_ (let () (declare (not safe)) - (assget _sexpr260280_ - _env-bind259618_)))) - (if _$e260282_ - ((lambda (_xid260285_) - (let ((__tmp275107 - (let ((__tmp275108 + (assget _sexpr261481_ + _env-bind260819_)))) + (if _$e261483_ + ((lambda (_xid261486_) + (let ((__tmp276308 + (let ((__tmp276309 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id260278_ _xid260285_)))) + (cons _id261479_ _xid261486_)))) (declare (not safe)) - (cons __tmp275108 _subst260233_)))) + (cons __tmp276309 _subst261434_)))) (declare (not safe)) - (_lp260230_ - _rest260261_ - __tmp275107 - _locals260234_ - _env260235_))) + (_lp261431_ + _rest261462_ + __tmp276308 + _locals261435_ + _env261436_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e260282_) - (let ((__tmp275103 - (let ((__tmp275104 - (let ((__tmp275106 + _$e261483_) + (let ((__tmp276304 + (let ((__tmp276305 + (let ((__tmp276307 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id260278_ '()))) - (__tmp275105 + (cons _id261479_ '()))) + (__tmp276306 (let () (declare (not safe)) - (cons _expr260277_ '())))) + (cons _expr261478_ '())))) (declare (not safe)) - (cons __tmp275106 __tmp275105)))) + (cons __tmp276307 __tmp276306)))) (declare (not safe)) - (cons __tmp275104 _locals260234_))) - (__tmp275101 - (let ((__tmp275102 + (cons __tmp276305 _locals261435_))) + (__tmp276302 + (let ((__tmp276303 (let () (declare (not safe)) - (cons _sexpr260280_ _id260278_)))) + (cons _sexpr261481_ _id261479_)))) (declare (not safe)) - (cons __tmp275102 _env260235_)))) + (cons __tmp276303 _env261436_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp260230_ - _rest260261_ - _subst260233_ - __tmp275103 - __tmp275101))))))) + (_lp261431_ + _rest261462_ + _subst261434_ + __tmp276304 + __tmp276302))))))) (if (let () (declare (not safe)) - (##pair? _bind260263260270_)) - (let ((_hd260267260290_ + (##pair? _bind261464261471_)) + (let ((_hd261468261491_ (let () (declare (not safe)) - (##car _bind260263260270_))) - (_tl260268260292_ + (##car _bind261464261471_))) + (_tl261469261493_ (let () (declare (not safe)) - (##cdr _bind260263260270_)))) - (let* ((_id260295_ _hd260267260290_) - (_expr260297_ - _tl260268260292_)) + (##cdr _bind261464261471_)))) + (let* ((_id261496_ _hd261468261491_) + (_expr261498_ + _tl261469261493_)) (declare (not safe)) - (_K260266260287_ - _expr260297_ - _id260295_))) + (_K261467261488_ + _expr261498_ + _id261496_))) (let () (declare (not safe)) - (_E260265260274_))))))) + (_E261466261475_))))))) (if (let () (declare (not safe)) - (##pair? _rest260236260244_)) - (let ((_hd260241260302_ + (##pair? _rest261437261445_)) + (let ((_hd261442261503_ (let () (declare (not safe)) - (##car _rest260236260244_))) - (_tl260242260304_ + (##car _rest261437261445_))) + (_tl261443261505_ (let () (declare (not safe)) - (##cdr _rest260236260244_)))) - (let* ((_bind260307_ _hd260241260302_) - (_rest260309_ _tl260242260304_)) + (##cdr _rest261437261445_)))) + (let* ((_bind261508_ _hd261442261503_) + (_rest261510_ _tl261443261505_)) (declare (not safe)) - (_K260240260299_ _rest260309_ _bind260307_))) + (_K261441261500_ _rest261510_ _bind261508_))) (let () (declare (not safe)) - (_else260238260258_))))))) - (_bind-e__0__271659271660_ - (lambda (_bind260314_ _body260315_) - (let ((_continue260317_ _optimize-e259631_)) + (_else261439261459_))))))) + (_bind-e__0__272860272861_ + (lambda (_bind261515_ _body261516_) + (let ((_continue261518_ _optimize-e260832_)) (declare (not safe)) - (_bind-e__271657271658_ - _bind260314_ - _body260315_ - _continue260317_)))) - (_bind-e259638_ - (lambda _g275110_ - (let ((_g275109_ + (_bind-e__272858272859_ + _bind261515_ + _body261516_ + _continue261518_)))) + (_bind-e260839_ + (lambda _g276311_ + (let ((_g276310_ (let () (declare (not safe)) - (##length _g275110_)))) - (cond ((let () (declare (not safe)) (##fx= _g275109_ 2)) - (apply (lambda (_bind260314_ _body260315_) + (##length _g276311_)))) + (cond ((let () (declare (not safe)) (##fx= _g276310_ 2)) + (apply (lambda (_bind261515_ _body261516_) (let () (declare (not safe)) - (_bind-e__0__271659271660_ - _bind260314_ - _body260315_))) - _g275110_)) - ((let () (declare (not safe)) (##fx= _g275109_ 3)) - (apply (lambda (_bind260319_ - _body260320_ - _continue260321_) + (_bind-e__0__272860272861_ + _bind261515_ + _body261516_))) + _g276311_)) + ((let () (declare (not safe)) (##fx= _g276310_ 3)) + (apply (lambda (_bind261520_ + _body261521_ + _continue261522_) (let () (declare (not safe)) - (_bind-e__271657271658_ - _bind260319_ - _body260320_ - _continue260321_))) - _g275110_)) + (_bind-e__272858272859_ + _bind261520_ + _body261521_ + _continue261522_))) + _g276311_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g275110_)))))) - (_lookup-block259639_ - (lambda (_id260221_) - (let ((__tmp275111 - (lambda (_block260223_) - (let ((__tmp275112 (car _block260223_))) + _g276311_)))))) + (_lookup-block260840_ + (lambda (_id261422_) + (let ((__tmp276312 + (lambda (_block261424_) + (let ((__tmp276313 (car _block261424_))) (declare (not safe)) (gx#free-identifier=? - __tmp275112 - _id260221_))))) + __tmp276313 + _id261422_))))) (declare (not safe)) - (find __tmp275111 _blocks259381_)))) - (_inline-block259640_ - (lambda (_block260097_ _args260098_) - (let* ((_kont260100_ (caddr _block260097_)) - (_g260102260128_ - (lambda (_g260103260125_) + (find __tmp276312 _blocks260582_)))) + (_inline-block260841_ + (lambda (_block261298_ _args261299_) + (let* ((_kont261301_ (caddr _block261298_)) + (_g261303261329_ + (lambda (_g261304261326_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g260103260125_)))) - (_g260101260218_ - (lambda (_g260103260131_) + _g261304261326_)))) + (_g261302261419_ + (lambda (_g261304261332_) (if (let () (declare (not safe)) - (gx#stx-pair? _g260103260131_)) - (let ((_e260108260133_ + (gx#stx-pair? _g261304261332_)) + (let ((_e261309261334_ (let () (declare (not safe)) - (gx#stx-e _g260103260131_)))) - (let ((_hd260107260136_ + (gx#stx-e _g261304261332_)))) + (let ((_hd261308261337_ (let () (declare (not safe)) - (##car _e260108260133_))) - (_tl260106260138_ + (##car _e261309261334_))) + (_tl261307261339_ (let () (declare (not safe)) - (##cdr _e260108260133_)))) + (##cdr _e261309261334_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260107260136_)) + (gx#identifier? _hd261308261337_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd260107260136_)) + _hd261308261337_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260106260138_)) - (let ((_e260111260141_ + _tl261307261339_)) + (let ((_e261312261342_ (let () (declare (not safe)) (gx#stx-e - _tl260106260138_)))) - (let ((_hd260110260144_ + _tl261307261339_)))) + (let ((_hd261311261345_ (let () (declare (not safe)) - (##car _e260111260141_))) - (_tl260109260146_ + (##car _e261312261342_))) + (_tl261310261347_ (let () (declare (not safe)) - (##cdr _e260111260141_)))) + (##cdr _e261312261342_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd260110260144_)) - (let ((_g275113_ + _hd261311261345_)) + (let ((_g276314_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd260110260144_ '0)))) + (gx#syntax-split-splice _hd261311261345_ '0)))) (begin - (let ((_g275114_ + (let ((_g276315_ (let () (declare (not safe)) - (if (##values? _g275113_) - (##vector-length _g275113_) + (if (##values? _g276314_) + (##vector-length _g276314_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g275114_ 2))) - (error "Context expects 2 values" _g275114_))) - (let ((_target260112260149_ + (##fx= _g276315_ 2))) + (error "Context expects 2 values" _g276315_))) + (let ((_target261313261350_ (let () (declare (not safe)) - (##vector-ref _g275113_ 0))) - (_tl260114260151_ + (##vector-ref _g276314_ 0))) + (_tl261315261352_ (let () (declare (not safe)) - (##vector-ref _g275113_ 1)))) + (##vector-ref _g276314_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl260114260151_)) - (letrec ((_loop260115260154_ - (lambda (_hd260113260157_ - _id260119260159_) + (gx#stx-null? _tl261315261352_)) + (letrec ((_loop261316261355_ + (lambda (_hd261314261358_ + _id261320261360_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd260113260157_)) - (let ((_e260116260162_ + (gx#stx-pair? _hd261314261358_)) + (let ((_e261317261363_ (let () (declare (not safe)) (gx#stx-e - _hd260113260157_)))) - (let ((_lp-hd260117260165_ + _hd261314261358_)))) + (let ((_lp-hd261318261366_ (let () (declare (not safe)) - (##car _e260116260162_))) - (_lp-tl260118260167_ + (##car _e261317261363_))) + (_lp-tl261319261368_ (let () (declare (not safe)) - (##cdr _e260116260162_)))) - (let ((__tmp275118 + (##cdr _e261317261363_)))) + (let ((__tmp276319 (let () (declare (not safe)) - (cons _lp-hd260117260165_ - _id260119260159_)))) + (cons _lp-hd261318261366_ + _id261320261360_)))) (declare (not safe)) - (_loop260115260154_ - _lp-tl260118260167_ - __tmp275118)))) - (let ((_id260120260170_ - (reverse _id260119260159_))) + (_loop261316261355_ + _lp-tl261319261368_ + __tmp276319)))) + (let ((_id261321261371_ + (reverse _id261320261360_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl260109260146_)) - (let ((_e260123260173_ + _tl261310261347_)) + (let ((_e261324261374_ (let () (declare (not safe)) (gx#stx-e - _tl260109260146_)))) - (let ((_hd260122260176_ + _tl261310261347_)))) + (let ((_hd261323261377_ (let () (declare (not safe)) - (##car _e260123260173_))) - (_tl260121260178_ + (##car _e261324261374_))) + (_tl261322261379_ (let () (declare (not safe)) - (##cdr _e260123260173_)))) + (##cdr _e261324261374_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl260121260178_)) - ((lambda (_L260181_ + _tl261322261379_)) + ((lambda (_L261382_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L260182_) - (if (let ((__tmp275116 - (let ((__tmp275117 - (lambda (_g260201260204_ - _g260202260206_) + _L261383_) + (if (let ((__tmp276317 + (let ((__tmp276318 + (lambda (_g261402261405_ + _g261403261407_) (let () (declare (not safe)) - (cons _g260201260204_ - _g260202260206_))))) + (cons _g261402261405_ + _g261403261407_))))) (declare (not safe)) - (foldr1 __tmp275117 '() _L260182_)))) + (foldr1 __tmp276318 '() _L261383_)))) (declare (not safe)) - (null? __tmp275116)) - _L260181_ - (let ((_subst260216_ + (null? __tmp276317)) + _L261382_ + (let ((_subst261417_ (map cons - (let ((__tmp275115 - (lambda (_g260208260211_ - _g260209260213_) + (let ((__tmp276316 + (lambda (_g261409261412_ + _g261410261414_) (let () (declare (not safe)) - (cons _g260208260211_ - _g260209260213_))))) + (cons _g261409261412_ + _g261410261414_))))) (declare (not safe)) - (foldr1 __tmp275115 '() _L260182_)) - _args260098_))) + (foldr1 __tmp276316 '() _L261383_)) + _args261299_))) (declare (not safe)) (gxc#apply-expression-subst* - _L260181_ - _subst260216_)))) - _hd260122260176_ - _id260120260170_) + _L261382_ + _subst261417_)))) + _hd261323261377_ + _id261321261371_) (let () (declare (not safe)) - (_g260102260128_ _g260103260131_))))) + (_g261303261329_ _g261304261332_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g260102260128_ - _g260103260131_)))))))) + (_g261303261329_ + _g261304261332_)))))))) (let () (declare (not safe)) - (_loop260115260154_ - _target260112260149_ + (_loop261316261355_ + _target261313261350_ '()))) (let () (declare (not safe)) - (_g260102260128_ _g260103260131_)))))) + (_g261303261329_ _g261304261332_)))))) (let () (declare (not safe)) - (_g260102260128_ _g260103260131_))))) + (_g261303261329_ _g261304261332_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g260102260128_ - _g260103260131_))) + (_g261303261329_ + _g261304261332_))) (let () (declare (not safe)) - (_g260102260128_ - _g260103260131_))) + (_g261303261329_ + _g261304261332_))) (let () (declare (not safe)) - (_g260102260128_ - _g260103260131_))))) + (_g261303261329_ + _g261304261332_))))) (let () (declare (not safe)) - (_g260102260128_ _g260103260131_)))))) + (_g261303261329_ _g261304261332_)))))) (declare (not safe)) - (_g260101260218_ _kont260100_)))) - (_nonlinear-block?259641_ - (lambda (_block259646_) - (letrec ((_nonlinear-expr?259648_ - (lambda (_expr259756_) - (let* ((___stx273744273745_ _expr259756_) - (_g259762259828_ + (_g261302261419_ _kont261301_)))) + (_nonlinear-block?260842_ + (lambda (_block260847_) + (letrec ((_nonlinear-expr?260849_ + (lambda (_expr260957_) + (let* ((___stx274945274946_ _expr260957_) + (_g260963261029_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273744273745_))))) - (let ((___kont273746273747_ (lambda () '#t)) - (___kont273748273749_ - (lambda (_L260027_) - (let* ((___stx273726273727_ - _L260027_) - (_g260045260054_ + ___stx274945274946_))))) + (let ((___kont274947274948_ (lambda () '#t)) + (___kont274949274950_ + (lambda (_L261228_) + (let* ((___stx274927274928_ + _L261228_) + (_g261246261255_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273726273727_))))) - (let ((___kont273728273729_ + ___stx274927274928_))))) + (let ((___kont274929274930_ (lambda () '#f)) - (___kont273730273731_ + (___kont274931274932_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx273726273727_)) - (let ((_e260049260066_ + ___stx274927274928_)) + (let ((_e261250261267_ (let () (declare (not safe)) (gx#stx-e - ___stx273726273727_)))) - (let ((_tl260047260071_ + ___stx274927274928_)))) + (let ((_tl261248261272_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e260049260066_))) - (_hd260048260069_ - (let () (declare (not safe)) (##car _e260049260066_)))) + (##cdr _e261250261267_))) + (_hd261249261270_ + (let () (declare (not safe)) (##car _e261250261267_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd260048260069_)) + (gx#identifier? _hd261249261270_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd260048260069_)) - (___kont273728273729_) - (___kont273730273731_)) - (___kont273730273731_)))) + (gx#stx-eq? '%#call _hd261249261270_)) + (___kont274929274930_) + (___kont274931274932_)) + (___kont274931274932_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273730273731_)))))) - (___kont273752273753_ - (lambda (_L259925_) + (___kont274931274932_)))))) + (___kont274953274954_ + (lambda (_L261126_) (let () (declare (not safe)) - (_nonlinear-expr?259648_ - _L259925_)))) - (___kont273754273755_ - (lambda (_L259872_ - _L259873_ - _L259874_) - (let ((_$e259893_ + (_nonlinear-expr?260849_ + _L261126_)))) + (___kont274955274956_ + (lambda (_L261073_ + _L261074_ + _L261075_) + (let ((_$e261094_ (let () (declare (not safe)) - (_nonlinear-expr?259648_ - _L259873_)))) - (if _$e259893_ - _$e259893_ + (_nonlinear-expr?260849_ + _L261074_)))) + (if _$e261094_ + _$e261094_ (let () (declare (not safe)) - (_nonlinear-expr?259648_ - _L259872_)))))) - (___kont273756273757_ + (_nonlinear-expr?260849_ + _L261073_)))))) + (___kont274957274958_ (lambda () '#f))) - (let* ((___match273807273808_ - (lambda (_e259802259901_ - _hd259801259904_ - _tl259800259906_ - _e259805259909_ - _hd259804259912_ - _tl259803259914_) + (let* ((___match275008275009_ + (lambda (_e261003261102_ + _hd261002261105_ + _tl261001261107_ + _e261006261110_ + _hd261005261113_ + _tl261004261115_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259803259914_)) - (let ((_e259808259917_ + _tl261004261115_)) + (let ((_e261009261118_ (let () (declare (not safe)) (gx#stx-e - _tl259803259914_)))) - (let ((_tl259806259922_ + _tl261004261115_)))) + (let ((_tl261007261123_ (let () (declare (not safe)) - (##cdr _e259808259917_))) - (_hd259807259920_ + (##cdr _e261009261118_))) + (_hd261008261121_ (let () (declare (not safe)) - (##car _e259808259917_)))) + (##car _e261009261118_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259806259922_)) - (___kont273752273753_ - _hd259807259920_) - (___kont273756273757_)))) - (___kont273756273757_)))) - (___match273791273792_ - (lambda (_e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_ - ___splice273750273751_ - _target259774259959_ - _tl259776259961_) - (letrec ((_loop259777259964_ - (lambda (_hd259775259967_) + _tl261007261123_)) + (___kont274953274954_ + _hd261008261121_) + (___kont274957274958_)))) + (___kont274957274958_)))) + (___match274992274993_ + (lambda (_e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_ + ___splice274951274952_ + _target260975261160_ + _tl260977261162_) + (letrec ((_loop260978261165_ + (lambda (_hd260976261168_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _hd259775259967_)) - (let ((_e259778259970_ + (gx#stx-pair? _hd260976261168_)) + (let ((_e260979261171_ (let () (declare (not safe)) - (gx#stx-e _hd259775259967_)))) - (let ((_lp-tl259780259975_ + (gx#stx-e _hd260976261168_)))) + (let ((_lp-tl260981261176_ (let () (declare (not safe)) - (##cdr _e259778259970_))) - (_lp-hd259779259973_ + (##cdr _e260979261171_))) + (_lp-hd260980261174_ (let () (declare (not safe)) - (##car _e259778259970_)))) + (##car _e260979261171_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd259779259973_)) - (let ((_e259783259978_ + (gx#stx-pair? _lp-hd260980261174_)) + (let ((_e260984261179_ (let () (declare (not safe)) - (gx#stx-e _lp-hd259779259973_)))) - (let ((_tl259781259983_ + (gx#stx-e _lp-hd260980261174_)))) + (let ((_tl260982261184_ (let () (declare (not safe)) - (##cdr _e259783259978_))) - (_hd259782259981_ + (##cdr _e260984261179_))) + (_hd260983261182_ (let () (declare (not safe)) - (##car _e259783259978_)))) + (##car _e260984261179_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd259782259981_)) - (let ((_e259786259986_ + (gx#stx-pair? _hd260983261182_)) + (let ((_e260987261187_ (let () (declare (not safe)) - (gx#stx-e _hd259782259981_)))) - (let ((_tl259784259991_ + (gx#stx-e _hd260983261182_)))) + (let ((_tl260985261192_ (let () (declare (not safe)) - (##cdr _e259786259986_))) - (_hd259785259989_ + (##cdr _e260987261187_))) + (_hd260986261190_ (let () (declare (not safe)) - (##car _e259786259986_)))) + (##car _e260987261187_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259784259991_)) + _tl260985261192_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259781259983_)) - (let ((_e259789259994_ + _tl260982261184_)) + (let ((_e260990261195_ (let () (declare (not safe)) (gx#stx-e - _tl259781259983_)))) - (let ((_tl259787259999_ + _tl260982261184_)))) + (let ((_tl260988261200_ (let () (declare (not safe)) - (##cdr _e259789259994_))) - (_hd259788259997_ + (##cdr _e260990261195_))) + (_hd260989261198_ (let () (declare (not safe)) - (##car _e259789259994_)))) + (##car _e260990261195_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259788259997_)) - (let ((_e259792260002_ + _hd260989261198_)) + (let ((_e260993261203_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd259788259997_)))) - (let ((_tl259790260007_ + (gx#stx-e _hd260989261198_)))) + (let ((_tl260991261208_ (let () (declare (not safe)) - (##cdr _e259792260002_))) - (_hd259791260005_ + (##cdr _e260993261203_))) + (_hd260992261206_ (let () (declare (not safe)) - (##car _e259792260002_)))) + (##car _e260993261203_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd259791260005_)) + (gx#identifier? _hd260992261206_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd259791260005_)) + (gx#stx-eq? '%#ref _hd260992261206_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259790260007_)) - (let ((_e259795260010_ + (gx#stx-pair? _tl260991261208_)) + (let ((_e260996261211_ (let () (declare (not safe)) - (gx#stx-e _tl259790260007_)))) - (let ((_tl259793260015_ + (gx#stx-e _tl260991261208_)))) + (let ((_tl260994261216_ (let () (declare (not safe)) - (##cdr _e259795260010_))) - (_hd259794260013_ + (##cdr _e260996261211_))) + (_hd260995261214_ (let () (declare (not safe)) - (##car _e259795260010_)))) + (##car _e260996261211_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259793260015_)) + (gx#stx-null? _tl260994261216_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl259787259999_)) + _tl260988261200_)) (let () (declare (not safe)) - (_loop259777259964_ - _lp-tl259780259975_)) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)))) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)))) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)))) + (_loop260978261165_ + _lp-tl260981261176_)) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)))) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)))) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)))) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)))) - (___match273807273808_ - _e259770259943_ - _hd259769259946_ - _tl259768259948_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_)))) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)))) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)))) + (___match275008275009_ + _e260971261144_ + _hd260970261147_ + _tl260969261149_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_)))) (let () (if (let () (declare (not safe)) - (gx#stx-pair? _tl259771259956_)) - (let ((_e259798260019_ + (gx#stx-pair? _tl260972261157_)) + (let ((_e260999261220_ (let () (declare (not safe)) - (gx#stx-e _tl259771259956_)))) - (let ((_tl259796260024_ + (gx#stx-e _tl260972261157_)))) + (let ((_tl260997261225_ (let () (declare (not safe)) - (##cdr _e259798260019_))) - (_hd259797260022_ + (##cdr _e260999261220_))) + (_hd260998261223_ (let () (declare (not safe)) - (##car _e259798260019_)))) + (##car _e260999261220_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259796260024_)) - (___kont273748273749_ _hd259797260022_) - (___kont273756273757_)))) - (___kont273756273757_))))))) + (gx#stx-null? _tl260997261225_)) + (___kont274949274950_ _hd260998261223_) + (___kont274957274958_)))) + (___kont274957274958_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop259777259964_ - _target259774259959_)))))) + (_loop260978261165_ + _target260975261160_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx273744273745_)) - (let ((_e259766260084_ + ___stx274945274946_)) + (let ((_e260967261285_ (let () (declare (not safe)) (gx#stx-e - ___stx273744273745_)))) - (let ((_tl259764260089_ + ___stx274945274946_)))) + (let ((_tl260965261290_ (let () (declare (not safe)) - (##cdr _e259766260084_))) - (_hd259765260087_ + (##cdr _e260967261285_))) + (_hd260966261288_ (let () (declare (not safe)) - (##car _e259766260084_)))) + (##car _e260967261285_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd259765260087_)) + _hd260966261288_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd259765260087_)) - (___kont273746273747_) + _hd260966261288_)) + (___kont274947274948_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd259765260087_)) + _hd260966261288_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl259764260089_)) - (let ((_e259773259951_ + (gx#stx-pair? _tl260965261290_)) + (let ((_e260974261152_ (let () (declare (not safe)) - (gx#stx-e _tl259764260089_)))) - (let ((_tl259771259956_ + (gx#stx-e _tl260965261290_)))) + (let ((_tl260972261157_ (let () (declare (not safe)) - (##cdr _e259773259951_))) - (_hd259772259954_ + (##cdr _e260974261152_))) + (_hd260973261155_ (let () (declare (not safe)) - (##car _e259773259951_)))) + (##car _e260974261152_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd259772259954_)) - (let ((___splice273750273751_ + (gx#stx-pair/null? _hd260973261155_)) + (let ((___splice274951274952_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd259772259954_ + _hd260973261155_ '0)))) - (let ((_tl259776259961_ + (let ((_tl260977261162_ (let () (declare (not safe)) (##vector-ref - ___splice273750273751_ + ___splice274951274952_ '1))) - (_target259774259959_ + (_target260975261160_ (let () (declare (not safe)) (##vector-ref - ___splice273750273751_ + ___splice274951274952_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259776259961_)) - (___match273791273792_ - _e259766260084_ - _hd259765260087_ - _tl259764260089_ - _e259773259951_ - _hd259772259954_ - _tl259771259956_ - ___splice273750273751_ - _target259774259959_ - _tl259776259961_) + (gx#stx-null? _tl260977261162_)) + (___match274992274993_ + _e260967261285_ + _hd260966261288_ + _tl260965261290_ + _e260974261152_ + _hd260973261155_ + _tl260972261157_ + ___splice274951274952_ + _target260975261160_ + _tl260977261162_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259771259956_)) - (let ((_e259808259917_ + (gx#stx-pair? _tl260972261157_)) + (let ((_e261009261118_ (let () (declare (not safe)) (gx#stx-e - _tl259771259956_)))) - (let ((_tl259806259922_ + _tl260972261157_)))) + (let ((_tl261007261123_ (let () (declare (not safe)) - (##cdr _e259808259917_))) - (_hd259807259920_ + (##cdr _e261009261118_))) + (_hd261008261121_ (let () (declare (not safe)) - (##car _e259808259917_)))) + (##car _e261009261118_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259806259922_)) - (___kont273752273753_ - _hd259807259920_) - (___kont273756273757_)))) - (___kont273756273757_))))) + _tl261007261123_)) + (___kont274953274954_ + _hd261008261121_) + (___kont274957274958_)))) + (___kont274957274958_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259771259956_)) - (let ((_e259808259917_ + (gx#stx-pair? _tl260972261157_)) + (let ((_e261009261118_ (let () (declare (not safe)) - (gx#stx-e _tl259771259956_)))) - (let ((_tl259806259922_ + (gx#stx-e _tl260972261157_)))) + (let ((_tl261007261123_ (let () (declare (not safe)) - (##cdr _e259808259917_))) - (_hd259807259920_ + (##cdr _e261009261118_))) + (_hd261008261121_ (let () (declare (not safe)) - (##car _e259808259917_)))) + (##car _e261009261118_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259806259922_)) - (___kont273752273753_ - _hd259807259920_) - (___kont273756273757_)))) - (___kont273756273757_))))) - (___kont273756273757_)) + (gx#stx-null? _tl261007261123_)) + (___kont274953274954_ + _hd261008261121_) + (___kont274957274958_)))) + (___kont274957274958_))))) + (___kont274957274958_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd259765260087_)) + (gx#stx-eq? '%#if _hd260966261288_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259764260089_)) - (let ((_e259817259848_ + (gx#stx-pair? _tl260965261290_)) + (let ((_e261018261049_ (let () (declare (not safe)) - (gx#stx-e _tl259764260089_)))) - (let ((_tl259815259853_ + (gx#stx-e _tl260965261290_)))) + (let ((_tl261016261054_ (let () (declare (not safe)) - (##cdr _e259817259848_))) - (_hd259816259851_ + (##cdr _e261018261049_))) + (_hd261017261052_ (let () (declare (not safe)) - (##car _e259817259848_)))) + (##car _e261018261049_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259815259853_)) - (let ((_e259820259856_ + (gx#stx-pair? _tl261016261054_)) + (let ((_e261021261057_ (let () (declare (not safe)) - (gx#stx-e _tl259815259853_)))) - (let ((_tl259818259861_ + (gx#stx-e _tl261016261054_)))) + (let ((_tl261019261062_ (let () (declare (not safe)) - (##cdr _e259820259856_))) - (_hd259819259859_ + (##cdr _e261021261057_))) + (_hd261020261060_ (let () (declare (not safe)) - (##car _e259820259856_)))) + (##car _e261021261057_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl259818259861_)) - (let ((_e259823259864_ + (gx#stx-pair? _tl261019261062_)) + (let ((_e261024261065_ (let () (declare (not safe)) (gx#stx-e - _tl259818259861_)))) - (let ((_tl259821259869_ + _tl261019261062_)))) + (let ((_tl261022261070_ (let () (declare (not safe)) - (##cdr _e259823259864_))) - (_hd259822259867_ + (##cdr _e261024261065_))) + (_hd261023261068_ (let () (declare (not safe)) - (##car _e259823259864_)))) + (##car _e261024261065_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl259821259869_)) - (___kont273754273755_ - _hd259822259867_ - _hd259819259859_ - _hd259816259851_) - (___kont273756273757_)))) - (___kont273756273757_)))) - (___kont273756273757_)))) - (___kont273756273757_)) - (___kont273756273757_)))) + _tl261022261070_)) + (___kont274955274956_ + _hd261023261068_ + _hd261020261060_ + _hd261017261052_) + (___kont274957274958_)))) + (___kont274957274958_)))) + (___kont274957274958_)))) + (___kont274957274958_)) + (___kont274957274958_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273756273757_)))) - (___kont273756273757_)))))))) - (let* ((_kont259650_ (caddr _block259646_)) - (_g259652259678_ - (lambda (_g259653259675_) + (___kont274957274958_)))) + (___kont274957274958_)))))))) + (let* ((_kont260851_ (caddr _block260847_)) + (_g260853260879_ + (lambda (_g260854260876_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g259653259675_)))) - (_g259651259753_ - (lambda (_g259653259681_) + _g260854260876_)))) + (_g260852260954_ + (lambda (_g260854260882_) (if (let () (declare (not safe)) - (gx#stx-pair? _g259653259681_)) - (let ((_e259658259683_ + (gx#stx-pair? _g260854260882_)) + (let ((_e260859260884_ (let () (declare (not safe)) - (gx#stx-e _g259653259681_)))) - (let ((_hd259657259686_ + (gx#stx-e _g260854260882_)))) + (let ((_hd260858260887_ (let () (declare (not safe)) - (##car _e259658259683_))) - (_tl259656259688_ + (##car _e260859260884_))) + (_tl260857260889_ (let () (declare (not safe)) - (##cdr _e259658259683_)))) + (##cdr _e260859260884_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd259657259686_)) + _hd260858260887_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd259657259686_)) + _hd260858260887_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259656259688_)) - (let ((_e259661259691_ + _tl260857260889_)) + (let ((_e260862260892_ (let () (declare (not safe)) (gx#stx-e - _tl259656259688_)))) - (let ((_hd259660259694_ + _tl260857260889_)))) + (let ((_hd260861260895_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e259661259691_))) - (_tl259659259696_ - (let () (declare (not safe)) (##cdr _e259661259691_)))) + (##car _e260862260892_))) + (_tl260860260897_ + (let () (declare (not safe)) (##cdr _e260862260892_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd259660259694_)) - (let ((_g275119_ + (gx#stx-pair/null? _hd260861260895_)) + (let ((_g276320_ (let () (declare (not safe)) - (gx#syntax-split-splice _hd259660259694_ '0)))) + (gx#syntax-split-splice _hd260861260895_ '0)))) (begin - (let ((_g275120_ + (let ((_g276321_ (let () (declare (not safe)) - (if (##values? _g275119_) - (##vector-length _g275119_) + (if (##values? _g276320_) + (##vector-length _g276320_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g275120_ 2))) - (error "Context expects 2 values" _g275120_))) - (let ((_target259662259699_ + (##fx= _g276321_ 2))) + (error "Context expects 2 values" _g276321_))) + (let ((_target260863260900_ (let () (declare (not safe)) - (##vector-ref _g275119_ 0))) - (_tl259664259701_ + (##vector-ref _g276320_ 0))) + (_tl260865260902_ (let () (declare (not safe)) - (##vector-ref _g275119_ 1)))) + (##vector-ref _g276320_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259664259701_)) - (letrec ((_loop259665259704_ - (lambda (_hd259663259707_ - _id259669259709_) + (gx#stx-null? _tl260865260902_)) + (letrec ((_loop260866260905_ + (lambda (_hd260864260908_ + _id260870260910_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd259663259707_)) - (let ((_e259666259712_ + _hd260864260908_)) + (let ((_e260867260913_ (let () (declare (not safe)) (gx#stx-e - _hd259663259707_)))) - (let ((_lp-hd259667259715_ + _hd260864260908_)))) + (let ((_lp-hd260868260916_ (let () (declare (not safe)) - (##car _e259666259712_))) - (_lp-tl259668259717_ + (##car _e260867260913_))) + (_lp-tl260869260918_ (let () (declare (not safe)) - (##cdr _e259666259712_)))) - (let ((__tmp275121 + (##cdr _e260867260913_)))) + (let ((__tmp276322 (let () (declare (not safe)) - (cons _lp-hd259667259715_ + (cons _lp-hd260868260916_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id259669259709_)))) + _id260870260910_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop259665259704_ - _lp-tl259668259717_ - __tmp275121)))) - (let ((_id259670259720_ - (reverse _id259669259709_))) + (_loop260866260905_ + _lp-tl260869260918_ + __tmp276322)))) + (let ((_id260871260921_ + (reverse _id260870260910_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl259659259696_)) - (let ((_e259673259723_ + _tl260860260897_)) + (let ((_e260874260924_ (let () (declare (not safe)) (gx#stx-e - _tl259659259696_)))) - (let ((_hd259672259726_ + _tl260860260897_)))) + (let ((_hd260873260927_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e259673259723_))) - (_tl259671259728_ - (let () (declare (not safe)) (##cdr _e259673259723_)))) + (##car _e260874260924_))) + (_tl260872260929_ + (let () (declare (not safe)) (##cdr _e260874260924_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl259671259728_)) - ((lambda (_L259731_ _L259732_) + (gx#stx-null? _tl260872260929_)) + ((lambda (_L260932_ _L260933_) (let () (declare (not safe)) - (_nonlinear-expr?259648_ _L259731_))) - _hd259672259726_ - _id259670259720_) + (_nonlinear-expr?260849_ _L260932_))) + _hd260873260927_ + _id260871260921_) (let () (declare (not safe)) - (_g259652259678_ _g259653259681_))))) + (_g260853260879_ _g260854260882_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259652259678_ - _g259653259681_)))))))) + (_g260853260879_ + _g260854260882_)))))))) (let () (declare (not safe)) - (_loop259665259704_ - _target259662259699_ + (_loop260866260905_ + _target260863260900_ '()))) (let () (declare (not safe)) - (_g259652259678_ _g259653259681_)))))) + (_g260853260879_ _g260854260882_)))))) (let () (declare (not safe)) - (_g259652259678_ _g259653259681_))))) + (_g260853260879_ _g260854260882_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g259652259678_ - _g259653259681_))) + (_g260853260879_ + _g260854260882_))) (let () (declare (not safe)) - (_g259652259678_ - _g259653259681_))) + (_g260853260879_ + _g260854260882_))) (let () (declare (not safe)) - (_g259652259678_ - _g259653259681_))))) + (_g260853260879_ + _g260854260882_))))) (let () (declare (not safe)) - (_g259652259678_ _g259653259681_)))))) + (_g260853260879_ _g260854260882_)))))) (declare (not safe)) - (_g259651259753_ _kont259650_)))))) - (let ((__tmp275122 + (_g260852260954_ _kont260851_)))))) + (let ((__tmp276323 (lambda () - (let ((__tmp275123 + (let ((__tmp276324 (lambda () (if (memq '@match:prefix (gxc#current-annotation-optimizer)) - (let ((__tmp275124 + (let ((__tmp276325 (lambda () (let () (declare (not safe)) - (_optimize-e259631_ - _body259378_))))) + (_optimize-e260832_ + _body260579_))))) (declare (not safe)) - (_do-splice!259630_ __tmp275124)) + (_do-splice!260831_ __tmp276325)) (let () (declare (not safe)) - (_optimize-e259631_ _body259378_)))))) + (_optimize-e260832_ _body260579_)))))) (declare (not safe)) - (_do-bind259627_ _bind259380_ __tmp275123))))) + (_do-bind260828_ _bind260581_ __tmp276324))))) (declare (not safe)) - (_do-assert259620_ _assert259379_ __tmp275122))))) + (_do-assert260821_ _assert260580_ __tmp276323))))) (define gxc#optimize-match-prune-blocks - (lambda (_blocks259290_ _konts259291_) - (letrec* ((_rtab259293_ + (lambda (_blocks260491_ _konts260492_) + (letrec* ((_rtab260494_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_block259295_) - (let ((__tmp275125 (caddr _block259295_))) + (lambda (_block260496_) + (let ((__tmp276326 (caddr _block260496_))) (declare (not safe)) - (gxc#apply-collect-runtime-refs __tmp275125 _rtab259293_))) - _konts259291_) - (let _lp259297_ ((_rest259299_ _blocks259290_) (_r259300_ '())) - (let* ((_rest259301259309_ _rest259299_) - (_else259303259317_ (lambda () (reverse _r259300_))) - (_K259305259366_ - (lambda (_rest259320_ _block259321_) - (let* ((_block259322259333_ _block259321_) - (_E259324259337_ + (gxc#apply-collect-runtime-refs __tmp276326 _rtab260494_))) + _konts260492_) + (let _lp260498_ ((_rest260500_ _blocks260491_) (_r260501_ '())) + (let* ((_rest260502260510_ _rest260500_) + (_else260504260518_ (lambda () (reverse _r260501_))) + (_K260506260567_ + (lambda (_rest260521_ _block260522_) + (let* ((_block260523260534_ _block260522_) + (_E260525260538_ (lambda () (error '"No clause matching" - _block259322259333_))) - (_K259325259344_ - (lambda (_kont259340_ _type259341_ _name259342_) - (if (let ((__tmp275127 + _block260523260534_))) + (_K260526260545_ + (lambda (_kont260541_ _type260542_ _name260543_) + (if (let ((__tmp276328 (let () (declare (not safe)) (gxc#identifier-symbol - _name259342_)))) + _name260543_)))) (declare (not safe)) - (table-ref _rtab259293_ __tmp275127 '#f)) + (table-ref _rtab260494_ __tmp276328 '#f)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs - _kont259340_ - _rtab259293_)) - (let ((__tmp275126 + _kont260541_ + _rtab260494_)) + (let ((__tmp276327 (let () (declare (not safe)) - (cons _block259321_ - _r259300_)))) + (cons _block260522_ + _r260501_)))) (declare (not safe)) - (_lp259297_ _rest259320_ __tmp275126))) + (_lp260498_ _rest260521_ __tmp276327))) (let () (declare (not safe)) - (_lp259297_ _rest259320_ _r259300_)))))) + (_lp260498_ _rest260521_ _r260501_)))))) (if (let () (declare (not safe)) - (##pair? _block259322259333_)) - (let ((_hd259326259347_ + (##pair? _block260523260534_)) + (let ((_hd260527260548_ (let () (declare (not safe)) - (##car _block259322259333_))) - (_tl259327259349_ + (##car _block260523260534_))) + (_tl260528260550_ (let () (declare (not safe)) - (##cdr _block259322259333_)))) - (let ((_name259352_ _hd259326259347_)) + (##cdr _block260523260534_)))) + (let ((_name260553_ _hd260527260548_)) (if (let () (declare (not safe)) - (##pair? _tl259327259349_)) - (let ((_hd259328259354_ + (##pair? _tl260528260550_)) + (let ((_hd260529260555_ (let () (declare (not safe)) - (##car _tl259327259349_))) - (_tl259329259356_ + (##car _tl260528260550_))) + (_tl260530260557_ (let () (declare (not safe)) - (##cdr _tl259327259349_)))) - (let ((_type259359_ _hd259328259354_)) + (##cdr _tl260528260550_)))) + (let ((_type260560_ _hd260529260555_)) (if (let () (declare (not safe)) - (##pair? _tl259329259356_)) - (let* ((_hd259330259361_ + (##pair? _tl260530260557_)) + (let* ((_hd260531260562_ (let () (declare (not safe)) - (##car _tl259329259356_))) - (_kont259364_ - _hd259330259361_)) + (##car _tl260530260557_))) + (_kont260565_ + _hd260531260562_)) (declare (not safe)) - (_K259325259344_ - _kont259364_ - _type259359_ - _name259352_)) + (_K260526260545_ + _kont260565_ + _type260560_ + _name260553_)) (let () (declare (not safe)) - (_E259324259337_))))) + (_E260525260538_))))) (let () (declare (not safe)) - (_E259324259337_))))) + (_E260525260538_))))) (let () (declare (not safe)) - (_E259324259337_))))))) - (if (let () (declare (not safe)) (##pair? _rest259301259309_)) - (let ((_hd259306259369_ + (_E260525260538_))))))) + (if (let () (declare (not safe)) (##pair? _rest260502260510_)) + (let ((_hd260507260570_ (let () (declare (not safe)) - (##car _rest259301259309_))) - (_tl259307259371_ + (##car _rest260502260510_))) + (_tl260508260572_ (let () (declare (not safe)) - (##cdr _rest259301259309_)))) - (let* ((_block259374_ _hd259306259369_) - (_rest259376_ _tl259307259371_)) + (##cdr _rest260502260510_)))) + (let* ((_block260575_ _hd260507260570_) + (_rest260577_ _tl260508260572_)) (declare (not safe)) - (_K259305259366_ _rest259376_ _block259374_))) - (let () (declare (not safe)) (_else259303259317_)))))))) + (_K260506260567_ _rest260577_ _block260575_))) + (let () (declare (not safe)) (_else260504260518_)))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_blocks259214_ _konts259215_) - (let* ((_blocks259216259232_ _blocks259214_) - (_else259218259240_ (lambda () _blocks259214_)) - (_K259220259258_ - (lambda (_rest259243_ _kont259244_ _name259245_) - (letrec* ((_rtab259247_ + (lambda (_blocks260415_ _konts260416_) + (let* ((_blocks260417260433_ _blocks260415_) + (_else260419260441_ (lambda () _blocks260415_)) + (_K260421260459_ + (lambda (_rest260444_ _kont260445_ _name260446_) + (letrec* ((_rtab260448_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_block259249_) - (let ((__tmp275128 (caddr _block259249_))) + (lambda (_block260450_) + (let ((__tmp276329 (caddr _block260450_))) (declare (not safe)) (gxc#apply-collect-runtime-refs - __tmp275128 - _rtab259247_))) - _konts259215_) - (if (fx= (let ((__tmp275136 + __tmp276329 + _rtab260448_))) + _konts260416_) + (if (fx= (let ((__tmp276337 (let () (declare (not safe)) - (gxc#identifier-symbol _name259245_)))) + (gxc#identifier-symbol _name260446_)))) (declare (not safe)) - (table-ref _rtab259247_ __tmp275136)) + (table-ref _rtab260448_ __tmp276337)) '1) - (let* ((_rblock259253_ - (let ((__tmp275129 - (lambda (_block259251_) - (let ((__tmp275131 - (caddr _block259251_)) - (__tmp275130 + (let* ((_rblock260454_ + (let ((__tmp276330 + (lambda (_block260452_) + (let ((__tmp276332 + (caddr _block260452_)) + (__tmp276331 (let () (declare (not safe)) - (cons _name259245_ '())))) + (cons _name260446_ '())))) (declare (not safe)) (gxc#apply-find-var-refs - __tmp275131 - __tmp275130))))) + __tmp276332 + __tmp276331))))) (declare (not safe)) - (find __tmp275129 _konts259215_))) - (_assert259255_ + (find __tmp276330 _konts260416_))) + (_assert260456_ (let () (declare (not safe)) (gxc#optimize-match-assert-restart - _rblock259253_ - _name259245_)))) - (let ((__tmp275132 - (let ((__tmp275133 - (let ((__tmp275134 - (let ((__tmp275135 + _rblock260454_ + _name260446_)))) + (let ((__tmp276333 + (let ((__tmp276334 + (let ((__tmp276335 + (let ((__tmp276336 (let () (declare (not safe)) - (cons _assert259255_ + (cons _assert260456_ '())))) (declare (not safe)) - (cons _kont259244_ - __tmp275135)))) + (cons _kont260445_ + __tmp276336)))) (declare (not safe)) - (cons 'restart: __tmp275134)))) + (cons 'restart: __tmp276335)))) (declare (not safe)) - (cons _name259245_ __tmp275133)))) + (cons _name260446_ __tmp276334)))) (declare (not safe)) - (cons __tmp275132 _rest259243_))) - _blocks259214_))))) - (if (let () (declare (not safe)) (##pair? _blocks259216259232_)) - (let ((_hd259221259261_ + (cons __tmp276333 _rest260444_))) + _blocks260415_))))) + (if (let () (declare (not safe)) (##pair? _blocks260417260433_)) + (let ((_hd260422260462_ (let () (declare (not safe)) - (##car _blocks259216259232_))) - (_tl259222259263_ + (##car _blocks260417260433_))) + (_tl260423260464_ (let () (declare (not safe)) - (##cdr _blocks259216259232_)))) - (if (let () (declare (not safe)) (##pair? _hd259221259261_)) - (let ((_hd259223259266_ + (##cdr _blocks260417260433_)))) + (if (let () (declare (not safe)) (##pair? _hd260422260462_)) + (let ((_hd260424260467_ (let () (declare (not safe)) - (##car _hd259221259261_))) - (_tl259224259268_ + (##car _hd260422260462_))) + (_tl260425260469_ (let () (declare (not safe)) - (##cdr _hd259221259261_)))) - (let ((_name259271_ _hd259223259266_)) + (##cdr _hd260422260462_)))) + (let ((_name260472_ _hd260424260467_)) (if (let () (declare (not safe)) - (##pair? _tl259224259268_)) - (let ((_hd259225259273_ + (##pair? _tl260425260469_)) + (let ((_hd260426260474_ (let () (declare (not safe)) - (##car _tl259224259268_))) - (_tl259226259275_ + (##car _tl260425260469_))) + (_tl260427260476_ (let () (declare (not safe)) - (##cdr _tl259224259268_)))) + (##cdr _tl260425260469_)))) (if (let () (declare (not safe)) - (##eq? _hd259225259273_ 'restart:)) + (##eq? _hd260426260474_ 'restart:)) (if (let () (declare (not safe)) - (##pair? _tl259226259275_)) - (let ((_hd259227259278_ + (##pair? _tl260427260476_)) + (let ((_hd260428260479_ (let () (declare (not safe)) - (##car _tl259226259275_))) - (_tl259228259280_ + (##car _tl260427260476_))) + (_tl260429260481_ (let () (declare (not safe)) - (##cdr _tl259226259275_)))) - (let ((_kont259283_ _hd259227259278_)) + (##cdr _tl260427260476_)))) + (let ((_kont260484_ _hd260428260479_)) (if (let () (declare (not safe)) - (##pair? _tl259228259280_)) - (let ((_tl259230259285_ + (##pair? _tl260429260481_)) + (let ((_tl260431260486_ (let () (declare (not safe)) - (##cdr _tl259228259280_)))) + (##cdr _tl260429260481_)))) (if (let () (declare (not safe)) - (##null? _tl259230259285_)) - (let ((_rest259288_ - _tl259222259263_)) + (##null? _tl260431260486_)) + (let ((_rest260489_ + _tl260423260464_)) (declare (not safe)) - (_K259220259258_ - _rest259288_ - _kont259283_ - _name259271_)) + (_K260421260459_ + _rest260489_ + _kont260484_ + _name260472_)) (let () (declare (not safe)) - (_else259218259240_)))) + (_else260419260441_)))) (let () (declare (not safe)) - (_else259218259240_))))) + (_else260419260441_))))) (let () (declare (not safe)) - (_else259218259240_))) + (_else260419260441_))) (let () (declare (not safe)) - (_else259218259240_)))) + (_else260419260441_)))) (let () (declare (not safe)) - (_else259218259240_))))) - (let () (declare (not safe)) (_else259218259240_)))) - (let () (declare (not safe)) (_else259218259240_)))))) + (_else260419260441_))))) + (let () (declare (not safe)) (_else260419260441_)))) + (let () (declare (not safe)) (_else260419260441_)))))) (define gxc#optimize-match-assert-restart - (lambda (_block258610_ _name258611_) - (letrec ((_assert-restart258613_ - (lambda (_expr258769_ _assert258770_) - (let* ((___stx273848273849_ _expr258769_) - (_g258776258873_ + (lambda (_block259811_ _name259812_) + (letrec ((_assert-restart259814_ + (lambda (_expr259970_ _assert259971_) + (let* ((___stx275049275050_ _expr259970_) + (_g259977260074_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx273848273849_))))) - (let ((___kont273850273851_ - (lambda (_L259189_ _L259190_ _L259191_) - (let ((_$e259208_ - (let ((__tmp275137 - (let ((__tmp275138 + ___stx275049275050_))))) + (let ((___kont275051275052_ + (lambda (_L260390_ _L260391_ _L260392_) + (let ((_$e260409_ + (let ((__tmp276338 + (let ((__tmp276339 (let () (declare (not safe)) - (cons _L259191_ '#t)))) + (cons _L260392_ '#t)))) (declare (not safe)) - (cons __tmp275138 - _assert258770_)))) + (cons __tmp276339 + _assert259971_)))) (declare (not safe)) - (_assert-restart258613_ - _L259190_ - __tmp275137)))) - (if _$e259208_ - _$e259208_ - (let ((__tmp275139 - (let ((__tmp275140 + (_assert-restart259814_ + _L260391_ + __tmp276338)))) + (if _$e260409_ + _$e260409_ + (let ((__tmp276340 + (let ((__tmp276341 (let () (declare (not safe)) - (cons _L259191_ '#f)))) + (cons _L260392_ '#f)))) (declare (not safe)) - (cons __tmp275140 - _assert258770_)))) + (cons __tmp276341 + _assert259971_)))) (declare (not safe)) - (_assert-restart258613_ - _L259189_ - __tmp275139)))))) - (___kont273852273853_ - (lambda (_L259137_) + (_assert-restart259814_ + _L260390_ + __tmp276340)))))) + (___kont275053275054_ + (lambda (_L260338_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L259137_ - _name258611_)) - _assert258770_ + _L260338_ + _name259812_)) + _assert259971_ '#f))) - (___kont273854273855_ - (lambda (_L259087_) + (___kont275055275056_ + (lambda (_L260288_) (let () (declare (not safe)) - (_assert-restart258613_ - _L259087_ - _assert258770_)))) - (___kont273856273857_ - (lambda (_L259013_ - _L259014_ - _L259015_ - _L259016_ - _L259017_) + (_assert-restart259814_ + _L260288_ + _assert259971_)))) + (___kont275057275058_ + (lambda (_L260214_ + _L260215_ + _L260216_ + _L260217_ + _L260218_) (let () (declare (not safe)) - (_assert-restart258613_ - _L259015_ - _assert258770_)))) - (___kont273862273863_ (lambda () '#f))) - (let ((___match274017274018_ - (lambda (_e258823258885_ - _hd258822258888_ - _tl258821258890_ - _e258826258893_ - _hd258825258896_ - _tl258824258898_ - _e258829258901_ - _hd258828258904_ - _tl258827258906_ - _e258832258909_ - _hd258831258912_ - _tl258830258914_ - _e258835258917_ - _hd258834258920_ - _tl258833258922_ - _e258838258925_ - _hd258837258928_ - _tl258836258930_ - _e258841258933_ - _hd258840258936_ - _tl258839258938_ - _e258844258941_ - _hd258843258944_ - _tl258842258946_ - ___splice273858273859_ - _target258845258949_ - _tl258847258951_) - (letrec ((_loop258848258954_ - (lambda (_hd258846258957_ - _id258852258959_) + (_assert-restart259814_ + _L260216_ + _assert259971_)))) + (___kont275063275064_ (lambda () '#f))) + (let ((___match275218275219_ + (lambda (_e260024260086_ + _hd260023260089_ + _tl260022260091_ + _e260027260094_ + _hd260026260097_ + _tl260025260099_ + _e260030260102_ + _hd260029260105_ + _tl260028260107_ + _e260033260110_ + _hd260032260113_ + _tl260031260115_ + _e260036260118_ + _hd260035260121_ + _tl260034260123_ + _e260039260126_ + _hd260038260129_ + _tl260037260131_ + _e260042260134_ + _hd260041260137_ + _tl260040260139_ + _e260045260142_ + _hd260044260145_ + _tl260043260147_ + ___splice275059275060_ + _target260046260150_ + _tl260048260152_) + (letrec ((_loop260049260155_ + (lambda (_hd260047260158_ + _id260053260160_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258846258957_)) - (let ((_e258849258962_ + _hd260047260158_)) + (let ((_e260050260163_ (let () (declare (not safe)) (gx#stx-e - _hd258846258957_)))) - (let ((_lp-tl258851258967_ + _hd260047260158_)))) + (let ((_lp-tl260052260168_ (let () (declare (not safe)) - (##cdr _e258849258962_))) - (_lp-hd258850258965_ + (##cdr _e260050260163_))) + (_lp-hd260051260166_ (let () (declare (not safe)) - (##car _e258849258962_)))) - (let ((__tmp275142 + (##car _e260050260163_)))) + (let ((__tmp276343 (let () (declare (not safe)) - (cons _lp-hd258850258965_ + (cons _lp-hd260051260166_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id258852258959_)))) + _id260053260160_)))) (declare (not safe)) - (_loop258848258954_ _lp-tl258851258967_ __tmp275142)))) + (_loop260049260155_ _lp-tl260052260168_ __tmp276343)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id258853258970_ - (reverse _id258852258959_))) + (let ((_id260054260171_ + (reverse _id260053260160_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258842258946_)) - (let ((_e258856258973_ + _tl260043260147_)) + (let ((_e260057260174_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258842258946_)))) - (let ((_tl258854258978_ - (let () (declare (not safe)) (##cdr _e258856258973_))) - (_hd258855258976_ - (let () (declare (not safe)) (##car _e258856258973_)))) + (gx#stx-e _tl260043260147_)))) + (let ((_tl260055260179_ + (let () (declare (not safe)) (##cdr _e260057260174_))) + (_hd260056260177_ + (let () (declare (not safe)) (##car _e260057260174_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258854258978_)) + (gx#stx-null? _tl260055260179_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl258836258930_)) + (gx#stx-null? _tl260037260131_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl258827258906_)) - (let ((___splice273860273861_ + (gx#stx-pair/null? _tl260028260107_)) + (let ((___splice275061275062_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl258827258906_ + _tl260028260107_ '0)))) - (let ((_tl258859258983_ + (let ((_tl260060260184_ (let () (declare (not safe)) (##vector-ref - ___splice273860273861_ + ___splice275061275062_ '1))) - (_target258857258981_ + (_target260058260182_ (let () (declare (not safe)) (##vector-ref - ___splice273860273861_ + ___splice275061275062_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258859258983_)) - (letrec ((_loop258860258986_ - (lambda (_hd258858258989_ - _bind258864258991_) + (gx#stx-null? _tl260060260184_)) + (letrec ((_loop260061260187_ + (lambda (_hd260059260190_ + _bind260065260192_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258858258989_)) - (let ((_e258861258994_ + _hd260059260190_)) + (let ((_e260062260195_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd258858258989_)))) - (let ((_lp-tl258863258999_ - (let () (declare (not safe)) (##cdr _e258861258994_))) - (_lp-hd258862258997_ - (let () (declare (not safe)) (##car _e258861258994_)))) - (let ((__tmp275141 + (gx#stx-e _hd260059260190_)))) + (let ((_lp-tl260064260200_ + (let () (declare (not safe)) (##cdr _e260062260195_))) + (_lp-hd260063260198_ + (let () (declare (not safe)) (##car _e260062260195_)))) + (let ((__tmp276342 (let () (declare (not safe)) - (cons _lp-hd258862258997_ _bind258864258991_)))) + (cons _lp-hd260063260198_ _bind260065260192_)))) (declare (not safe)) - (_loop258860258986_ _lp-tl258863258999_ __tmp275141)))) - (let ((_bind258865259002_ (reverse _bind258864258991_))) + (_loop260061260187_ _lp-tl260064260200_ __tmp276342)))) + (let ((_bind260066260203_ (reverse _bind260065260192_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258824258898_)) - (let ((_e258868259005_ + (gx#stx-pair? _tl260025260099_)) + (let ((_e260069260206_ (let () (declare (not safe)) - (gx#stx-e _tl258824258898_)))) - (let ((_tl258866259010_ + (gx#stx-e _tl260025260099_)))) + (let ((_tl260067260211_ (let () (declare (not safe)) - (##cdr _e258868259005_))) - (_hd258867259008_ + (##cdr _e260069260206_))) + (_hd260068260209_ (let () (declare (not safe)) - (##car _e258868259005_)))) + (##car _e260069260206_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258866259010_)) - (___kont273856273857_ - _hd258867259008_ - _bind258865259002_ - _hd258855258976_ - _id258853258970_ - _hd258834258920_) - (___kont273862273863_)))) - (___kont273862273863_))))))) + (gx#stx-null? _tl260067260211_)) + (___kont275057275058_ + _hd260068260209_ + _bind260066260203_ + _hd260056260177_ + _id260054260171_ + _hd260035260121_) + (___kont275063275064_)))) + (___kont275063275064_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258860258986_ - _target258857258981_ + (_loop260061260187_ + _target260058260182_ '()))) - (___kont273862273863_)))) - (___kont273862273863_)) - (___kont273862273863_)) - (___kont273862273863_)))) - (___kont273862273863_))))))) + (___kont275063275064_)))) + (___kont275063275064_)) + (___kont275063275064_)) + (___kont275063275064_)))) + (___kont275063275064_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop258848258954_ - _target258845258949_ + (_loop260049260155_ + _target260046260150_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx273848273849_)) - (let ((_e258783259157_ + (gx#stx-pair? ___stx275049275050_)) + (let ((_e259984260358_ (let () (declare (not safe)) - (gx#stx-e ___stx273848273849_)))) - (let ((_tl258781259162_ + (gx#stx-e ___stx275049275050_)))) + (let ((_tl259982260363_ (let () (declare (not safe)) - (##cdr _e258783259157_))) - (_hd258782259160_ + (##cdr _e259984260358_))) + (_hd259983260361_ (let () (declare (not safe)) - (##car _e258783259157_)))) + (##car _e259984260358_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258782259160_)) + (gx#identifier? _hd259983260361_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd258782259160_)) + _hd259983260361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258781259162_)) - (let ((_e258786259165_ + _tl259982260363_)) + (let ((_e259987260366_ (let () (declare (not safe)) (gx#stx-e - _tl258781259162_)))) - (let ((_tl258784259170_ + _tl259982260363_)))) + (let ((_tl259985260371_ (let () (declare (not safe)) - (##cdr _e258786259165_))) - (_hd258785259168_ + (##cdr _e259987260366_))) + (_hd259986260369_ (let () (declare (not safe)) - (##car _e258786259165_)))) + (##car _e259987260366_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258784259170_)) - (let ((_e258789259173_ + _tl259985260371_)) + (let ((_e259990260374_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258784259170_)))) - (let ((_tl258787259178_ - (let () (declare (not safe)) (##cdr _e258789259173_))) - (_hd258788259176_ - (let () (declare (not safe)) (##car _e258789259173_)))) + (gx#stx-e _tl259985260371_)))) + (let ((_tl259988260379_ + (let () (declare (not safe)) (##cdr _e259990260374_))) + (_hd259989260377_ + (let () (declare (not safe)) (##car _e259990260374_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258787259178_)) - (let ((_e258792259181_ + (gx#stx-pair? _tl259988260379_)) + (let ((_e259993260382_ (let () (declare (not safe)) - (gx#stx-e _tl258787259178_)))) - (let ((_tl258790259186_ + (gx#stx-e _tl259988260379_)))) + (let ((_tl259991260387_ (let () (declare (not safe)) - (##cdr _e258792259181_))) - (_hd258791259184_ + (##cdr _e259993260382_))) + (_hd259992260385_ (let () (declare (not safe)) - (##car _e258792259181_)))) + (##car _e259993260382_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258790259186_)) - (___kont273850273851_ - _hd258791259184_ - _hd258788259176_ - _hd258785259168_) - (___kont273862273863_)))) - (___kont273862273863_)))) - (___kont273862273863_)))) + (gx#stx-null? _tl259991260387_)) + (___kont275051275052_ + _hd259992260385_ + _hd259989260377_ + _hd259986260369_) + (___kont275063275064_)))) + (___kont275063275064_)))) + (___kont275063275064_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273862273863_)) + (___kont275063275064_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd258782259160_)) + _hd259983260361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258781259162_)) - (let ((_e258799259113_ + _tl259982260363_)) + (let ((_e260000260314_ (let () (declare (not safe)) (gx#stx-e - _tl258781259162_)))) - (let ((_tl258797259118_ + _tl259982260363_)))) + (let ((_tl259998260319_ (let () (declare (not safe)) - (##cdr _e258799259113_))) - (_hd258798259116_ + (##cdr _e260000260314_))) + (_hd259999260317_ (let () (declare (not safe)) - (##car _e258799259113_)))) + (##car _e260000260314_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258798259116_)) - (let ((_e258802259121_ + _hd259999260317_)) + (let ((_e260003260322_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258798259116_)))) - (let ((_tl258800259126_ + (gx#stx-e _hd259999260317_)))) + (let ((_tl260001260327_ (let () (declare (not safe)) - (##cdr _e258802259121_))) - (_hd258801259124_ + (##cdr _e260003260322_))) + (_hd260002260325_ (let () (declare (not safe)) - (##car _e258802259121_)))) + (##car _e260003260322_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258801259124_)) + (gx#identifier? _hd260002260325_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258801259124_)) + (gx#stx-eq? '%#ref _hd260002260325_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258800259126_)) - (let ((_e258805259129_ + (gx#stx-pair? _tl260001260327_)) + (let ((_e260006260330_ (let () (declare (not safe)) - (gx#stx-e _tl258800259126_)))) - (let ((_tl258803259134_ + (gx#stx-e _tl260001260327_)))) + (let ((_tl260004260335_ (let () (declare (not safe)) - (##cdr _e258805259129_))) - (_hd258804259132_ + (##cdr _e260006260330_))) + (_hd260005260333_ (let () (declare (not safe)) - (##car _e258805259129_)))) + (##car _e260006260330_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258803259134_)) - (___kont273852273853_ - _hd258804259132_) - (___kont273862273863_)))) - (___kont273862273863_)) - (___kont273862273863_)) - (___kont273862273863_)))) - (___kont273862273863_)))) + (gx#stx-null? _tl260004260335_)) + (___kont275053275054_ + _hd260005260333_) + (___kont275063275064_)))) + (___kont275063275064_)) + (___kont275063275064_)) + (___kont275063275064_)))) + (___kont275063275064_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273862273863_)) + (___kont275063275064_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd258782259160_)) + _hd259983260361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258781259162_)) - (let ((_e258812259071_ + _tl259982260363_)) + (let ((_e260013260272_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258781259162_)))) - (let ((_tl258810259076_ - (let () (declare (not safe)) (##cdr _e258812259071_))) - (_hd258811259074_ - (let () (declare (not safe)) (##car _e258812259071_)))) + (gx#stx-e _tl259982260363_)))) + (let ((_tl260011260277_ + (let () (declare (not safe)) (##cdr _e260013260272_))) + (_hd260012260275_ + (let () (declare (not safe)) (##car _e260013260272_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258810259076_)) - (let ((_e258815259079_ + (gx#stx-pair? _tl260011260277_)) + (let ((_e260016260280_ (let () (declare (not safe)) - (gx#stx-e _tl258810259076_)))) - (let ((_tl258813259084_ + (gx#stx-e _tl260011260277_)))) + (let ((_tl260014260285_ (let () (declare (not safe)) - (##cdr _e258815259079_))) - (_hd258814259082_ + (##cdr _e260016260280_))) + (_hd260015260283_ (let () (declare (not safe)) - (##car _e258815259079_)))) + (##car _e260016260280_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258813259084_)) - (___kont273854273855_ _hd258814259082_) - (___kont273862273863_)))) - (___kont273862273863_)))) - (___kont273862273863_)) + (gx#stx-null? _tl260014260285_)) + (___kont275055275056_ _hd260015260283_) + (___kont275063275064_)))) + (___kont275063275064_)))) + (___kont275063275064_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd258782259160_)) + _hd259983260361_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258781259162_)) - (let ((_e258826258893_ + _tl259982260363_)) + (let ((_e260027260094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl258781259162_)))) - (let ((_tl258824258898_ + (gx#stx-e _tl259982260363_)))) + (let ((_tl260025260099_ (let () (declare (not safe)) - (##cdr _e258826258893_))) - (_hd258825258896_ + (##cdr _e260027260094_))) + (_hd260026260097_ (let () (declare (not safe)) - (##car _e258826258893_)))) + (##car _e260027260094_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258825258896_)) - (let ((_e258829258901_ + (gx#stx-pair? _hd260026260097_)) + (let ((_e260030260102_ (let () (declare (not safe)) - (gx#stx-e _hd258825258896_)))) - (let ((_tl258827258906_ + (gx#stx-e _hd260026260097_)))) + (let ((_tl260028260107_ (let () (declare (not safe)) - (##cdr _e258829258901_))) - (_hd258828258904_ + (##cdr _e260030260102_))) + (_hd260029260105_ (let () (declare (not safe)) - (##car _e258829258901_)))) + (##car _e260030260102_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258828258904_)) - (let ((_e258832258909_ + (gx#stx-pair? _hd260029260105_)) + (let ((_e260033260110_ (let () (declare (not safe)) - (gx#stx-e _hd258828258904_)))) - (let ((_tl258830258914_ + (gx#stx-e _hd260029260105_)))) + (let ((_tl260031260115_ (let () (declare (not safe)) - (##cdr _e258832258909_))) - (_hd258831258912_ + (##cdr _e260033260110_))) + (_hd260032260113_ (let () (declare (not safe)) - (##car _e258832258909_)))) + (##car _e260033260110_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258831258912_)) - (let ((_e258835258917_ + (gx#stx-pair? _hd260032260113_)) + (let ((_e260036260118_ (let () (declare (not safe)) (gx#stx-e - _hd258831258912_)))) - (let ((_tl258833258922_ + _hd260032260113_)))) + (let ((_tl260034260123_ (let () (declare (not safe)) - (##cdr _e258835258917_))) - (_hd258834258920_ + (##cdr _e260036260118_))) + (_hd260035260121_ (let () (declare (not safe)) - (##car _e258835258917_)))) + (##car _e260036260118_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258833258922_)) + _tl260034260123_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258830258914_)) - (let ((_e258838258925_ + _tl260031260115_)) + (let ((_e260039260126_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl258830258914_)))) - (let ((_tl258836258930_ - (let () (declare (not safe)) (##cdr _e258838258925_))) - (_hd258837258928_ - (let () (declare (not safe)) (##car _e258838258925_)))) + (gx#stx-e _tl260031260115_)))) + (let ((_tl260037260131_ + (let () (declare (not safe)) (##cdr _e260039260126_))) + (_hd260038260129_ + (let () (declare (not safe)) (##car _e260039260126_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258837258928_)) - (let ((_e258841258933_ + (gx#stx-pair? _hd260038260129_)) + (let ((_e260042260134_ (let () (declare (not safe)) - (gx#stx-e _hd258837258928_)))) - (let ((_tl258839258938_ + (gx#stx-e _hd260038260129_)))) + (let ((_tl260040260139_ (let () (declare (not safe)) - (##cdr _e258841258933_))) - (_hd258840258936_ + (##cdr _e260042260134_))) + (_hd260041260137_ (let () (declare (not safe)) - (##car _e258841258933_)))) + (##car _e260042260134_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258840258936_)) + (gx#identifier? _hd260041260137_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd258840258936_)) + (gx#stx-eq? '%#lambda _hd260041260137_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258839258938_)) - (let ((_e258844258941_ + (gx#stx-pair? _tl260040260139_)) + (let ((_e260045260142_ (let () (declare (not safe)) - (gx#stx-e _tl258839258938_)))) - (let ((_tl258842258946_ + (gx#stx-e _tl260040260139_)))) + (let ((_tl260043260147_ (let () (declare (not safe)) - (##cdr _e258844258941_))) - (_hd258843258944_ + (##cdr _e260045260142_))) + (_hd260044260145_ (let () (declare (not safe)) - (##car _e258844258941_)))) + (##car _e260045260142_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd258843258944_)) - (let ((___splice273858273859_ + _hd260044260145_)) + (let ((___splice275059275060_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd258843258944_ + _hd260044260145_ '0)))) - (let ((_tl258847258951_ + (let ((_tl260048260152_ (let () (declare (not safe)) (##vector-ref - ___splice273858273859_ + ___splice275059275060_ '1))) - (_target258845258949_ + (_target260046260150_ (let () (declare (not safe)) (##vector-ref - ___splice273858273859_ + ___splice275059275060_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258847258951_)) - (___match274017274018_ - _e258783259157_ - _hd258782259160_ - _tl258781259162_ - _e258826258893_ - _hd258825258896_ - _tl258824258898_ - _e258829258901_ - _hd258828258904_ - _tl258827258906_ - _e258832258909_ - _hd258831258912_ - _tl258830258914_ - _e258835258917_ - _hd258834258920_ - _tl258833258922_ - _e258838258925_ - _hd258837258928_ - _tl258836258930_ - _e258841258933_ - _hd258840258936_ - _tl258839258938_ - _e258844258941_ - _hd258843258944_ - _tl258842258946_ - ___splice273858273859_ - _target258845258949_ - _tl258847258951_) - (___kont273862273863_)))) - (___kont273862273863_)))) - (___kont273862273863_)) - (___kont273862273863_)) - (___kont273862273863_)))) - (___kont273862273863_)))) - (___kont273862273863_)) + _tl260048260152_)) + (___match275218275219_ + _e259984260358_ + _hd259983260361_ + _tl259982260363_ + _e260027260094_ + _hd260026260097_ + _tl260025260099_ + _e260030260102_ + _hd260029260105_ + _tl260028260107_ + _e260033260110_ + _hd260032260113_ + _tl260031260115_ + _e260036260118_ + _hd260035260121_ + _tl260034260123_ + _e260039260126_ + _hd260038260129_ + _tl260037260131_ + _e260042260134_ + _hd260041260137_ + _tl260040260139_ + _e260045260142_ + _hd260044260145_ + _tl260043260147_ + ___splice275059275060_ + _target260046260150_ + _tl260048260152_) + (___kont275063275064_)))) + (___kont275063275064_)))) + (___kont275063275064_)) + (___kont275063275064_)) + (___kont275063275064_)))) + (___kont275063275064_)))) + (___kont275063275064_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273862273863_)))) - (___kont273862273863_)))) - (___kont273862273863_)))) - (___kont273862273863_)))) - (___kont273862273863_)) - (___kont273862273863_))))) + (___kont275063275064_)))) + (___kont275063275064_)))) + (___kont275063275064_)))) + (___kont275063275064_)))) + (___kont275063275064_)) + (___kont275063275064_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont273862273863_)))) - (___kont273862273863_)))))))) - (let* ((_block258614258627_ _block258610_) - (_E258616258631_ + (___kont275063275064_)))) + (___kont275063275064_)))))))) + (let* ((_block259815259828_ _block259811_) + (_E259817259832_ (lambda () - (error '"No clause matching" _block258614258627_))) - (_K258617258744_ - (lambda (_maybe-bind258634_ _assert258635_ _kont258636_) - (let* ((_g258638258664_ - (lambda (_g258639258661_) + (error '"No clause matching" _block259815259828_))) + (_K259818259945_ + (lambda (_maybe-bind259835_ _assert259836_ _kont259837_) + (let* ((_g259839259865_ + (lambda (_g259840259862_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g258639258661_)))) - (_g258637258741_ - (lambda (_g258639258667_) + _g259840259862_)))) + (_g259838259942_ + (lambda (_g259840259868_) (if (let () (declare (not safe)) - (gx#stx-pair? _g258639258667_)) - (let ((_e258644258669_ + (gx#stx-pair? _g259840259868_)) + (let ((_e259845259870_ (let () (declare (not safe)) - (gx#stx-e _g258639258667_)))) - (let ((_hd258643258672_ + (gx#stx-e _g259840259868_)))) + (let ((_hd259844259873_ (let () (declare (not safe)) - (##car _e258644258669_))) - (_tl258642258674_ + (##car _e259845259870_))) + (_tl259843259875_ (let () (declare (not safe)) - (##cdr _e258644258669_)))) + (##cdr _e259845259870_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258643258672_)) + (gx#identifier? _hd259844259873_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd258643258672_)) + _hd259844259873_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258642258674_)) - (let ((_e258647258677_ + _tl259843259875_)) + (let ((_e259848259878_ (let () (declare (not safe)) (gx#stx-e - _tl258642258674_)))) - (let ((_hd258646258680_ + _tl259843259875_)))) + (let ((_hd259847259881_ (let () (declare (not safe)) - (##car _e258647258677_))) - (_tl258645258682_ + (##car _e259848259878_))) + (_tl259846259883_ (let () (declare (not safe)) - (##cdr _e258647258677_)))) + (##cdr _e259848259878_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd258646258680_)) - (let ((_g275143_ + _hd259847259881_)) + (let ((_g276344_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd258646258680_ '0)))) + (gx#syntax-split-splice _hd259847259881_ '0)))) (begin - (let ((_g275144_ + (let ((_g276345_ (let () (declare (not safe)) - (if (##values? _g275143_) - (##vector-length _g275143_) + (if (##values? _g276344_) + (##vector-length _g276344_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g275144_ 2))) - (error "Context expects 2 values" _g275144_))) - (let ((_target258648258685_ + (##fx= _g276345_ 2))) + (error "Context expects 2 values" _g276345_))) + (let ((_target259849259886_ (let () (declare (not safe)) - (##vector-ref _g275143_ 0))) - (_tl258650258687_ + (##vector-ref _g276344_ 0))) + (_tl259851259888_ (let () (declare (not safe)) - (##vector-ref _g275143_ 1)))) + (##vector-ref _g276344_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258650258687_)) - (letrec ((_loop258651258690_ - (lambda (_hd258649258693_ - _id258655258695_) + (gx#stx-null? _tl259851259888_)) + (letrec ((_loop259852259891_ + (lambda (_hd259850259894_ + _id259856259896_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258649258693_)) - (let ((_e258652258698_ + (gx#stx-pair? _hd259850259894_)) + (let ((_e259853259899_ (let () (declare (not safe)) (gx#stx-e - _hd258649258693_)))) - (let ((_lp-hd258653258701_ + _hd259850259894_)))) + (let ((_lp-hd259854259902_ (let () (declare (not safe)) - (##car _e258652258698_))) - (_lp-tl258654258703_ + (##car _e259853259899_))) + (_lp-tl259855259904_ (let () (declare (not safe)) - (##cdr _e258652258698_)))) - (let ((__tmp275145 + (##cdr _e259853259899_)))) + (let ((__tmp276346 (let () (declare (not safe)) - (cons _lp-hd258653258701_ - _id258655258695_)))) + (cons _lp-hd259854259902_ + _id259856259896_)))) (declare (not safe)) - (_loop258651258690_ - _lp-tl258654258703_ - __tmp275145)))) - (let ((_id258656258706_ - (reverse _id258655258695_))) + (_loop259852259891_ + _lp-tl259855259904_ + __tmp276346)))) + (let ((_id259857259907_ + (reverse _id259856259896_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258645258682_)) - (let ((_e258659258709_ + _tl259846259883_)) + (let ((_e259860259910_ (let () (declare (not safe)) (gx#stx-e - _tl258645258682_)))) - (let ((_hd258658258712_ + _tl259846259883_)))) + (let ((_hd259859259913_ (let () (declare (not safe)) - (##car _e258659258709_))) - (_tl258657258714_ + (##car _e259860259910_))) + (_tl259858259915_ (let () (declare (not safe)) - (##cdr _e258659258709_)))) + (##cdr _e259860259910_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258657258714_)) - ((lambda (_L258717_ + _tl259858259915_)) + ((lambda (_L259918_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L258718_) + _L259919_) (let () (declare (not safe)) - (_assert-restart258613_ _L258717_ _assert258635_))) - _hd258658258712_ - _id258656258706_) + (_assert-restart259814_ _L259918_ _assert259836_))) + _hd259859259913_ + _id259857259907_) (let () (declare (not safe)) - (_g258638258664_ _g258639258667_))))) + (_g259839259865_ _g259840259868_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258638258664_ - _g258639258667_)))))))) + (_g259839259865_ + _g259840259868_)))))))) (let () (declare (not safe)) - (_loop258651258690_ _target258648258685_ '()))) + (_loop259852259891_ _target259849259886_ '()))) (let () (declare (not safe)) - (_g258638258664_ _g258639258667_)))))) + (_g259839259865_ _g259840259868_)))))) (let () (declare (not safe)) - (_g258638258664_ _g258639258667_))))) + (_g259839259865_ _g259840259868_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258638258664_ - _g258639258667_))) + (_g259839259865_ + _g259840259868_))) (let () (declare (not safe)) - (_g258638258664_ - _g258639258667_))) + (_g259839259865_ + _g259840259868_))) (let () (declare (not safe)) - (_g258638258664_ - _g258639258667_))))) + (_g259839259865_ + _g259840259868_))))) (let () (declare (not safe)) - (_g258638258664_ _g258639258667_)))))) + (_g259839259865_ _g259840259868_)))))) (declare (not safe)) - (_g258637258741_ _kont258636_))))) - (if (let () (declare (not safe)) (##pair? _block258614258627_)) - (let ((_tl258619258747_ + (_g259838259942_ _kont259837_))))) + (if (let () (declare (not safe)) (##pair? _block259815259828_)) + (let ((_tl259820259948_ (let () (declare (not safe)) - (##cdr _block258614258627_)))) - (if (let () (declare (not safe)) (##pair? _tl258619258747_)) - (let ((_tl258621258750_ + (##cdr _block259815259828_)))) + (if (let () (declare (not safe)) (##pair? _tl259820259948_)) + (let ((_tl259822259951_ (let () (declare (not safe)) - (##cdr _tl258619258747_)))) + (##cdr _tl259820259948_)))) (if (let () (declare (not safe)) - (##pair? _tl258621258750_)) - (let ((_hd258622258753_ + (##pair? _tl259822259951_)) + (let ((_hd259823259954_ (let () (declare (not safe)) - (##car _tl258621258750_))) - (_tl258623258755_ + (##car _tl259822259951_))) + (_tl259824259956_ (let () (declare (not safe)) - (##cdr _tl258621258750_)))) - (let ((_kont258758_ _hd258622258753_)) + (##cdr _tl259822259951_)))) + (let ((_kont259959_ _hd259823259954_)) (if (let () (declare (not safe)) - (##pair? _tl258623258755_)) - (let ((_hd258624258760_ + (##pair? _tl259824259956_)) + (let ((_hd259825259961_ (let () (declare (not safe)) - (##car _tl258623258755_))) - (_tl258625258762_ + (##car _tl259824259956_))) + (_tl259826259963_ (let () (declare (not safe)) - (##cdr _tl258623258755_)))) - (let* ((_assert258765_ _hd258624258760_) - (_maybe-bind258767_ - _tl258625258762_)) + (##cdr _tl259824259956_)))) + (let* ((_assert259966_ _hd259825259961_) + (_maybe-bind259968_ + _tl259826259963_)) (declare (not safe)) - (_K258617258744_ - _maybe-bind258767_ - _assert258765_ - _kont258758_))) + (_K259818259945_ + _maybe-bind259968_ + _assert259966_ + _kont259959_))) (let () (declare (not safe)) - (_E258616258631_))))) - (let () (declare (not safe)) (_E258616258631_)))) - (let () (declare (not safe)) (_E258616258631_)))) - (let () (declare (not safe)) (_E258616258631_))))))) + (_E259817259832_))))) + (let () (declare (not safe)) (_E259817259832_)))) + (let () (declare (not safe)) (_E259817259832_)))) + (let () (declare (not safe)) (_E259817259832_))))))) (define gxc#optimize-syntax-case - (lambda (_stx258241_) - (let* ((_g258243258273_ - (lambda (_g258244258270_) + (lambda (_stx259442_) + (let* ((_g259444259474_ + (lambda (_g259445259471_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g258244258270_)))) - (_g258242258607_ - (lambda (_g258244258276_) + _g259445259471_)))) + (_g259443259808_ + (lambda (_g259445259477_) (if (let () (declare (not safe)) - (gx#stx-pair? _g258244258276_)) - (let ((_e258250258278_ + (gx#stx-pair? _g259445259477_)) + (let ((_e259451259479_ (let () (declare (not safe)) - (gx#stx-e _g258244258276_)))) - (let ((_hd258249258281_ + (gx#stx-e _g259445259477_)))) + (let ((_hd259450259482_ (let () (declare (not safe)) - (##car _e258250258278_))) - (_tl258248258283_ + (##car _e259451259479_))) + (_tl259449259484_ (let () (declare (not safe)) - (##cdr _e258250258278_)))) + (##cdr _e259451259479_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258249258281_)) + (gx#identifier? _hd259450259482_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd258249258281_)) + _hd259450259482_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258248258283_)) - (let ((_e258253258286_ + (gx#stx-pair? _tl259449259484_)) + (let ((_e259454259487_ (let () (declare (not safe)) - (gx#stx-e _tl258248258283_)))) - (let ((_hd258252258289_ + (gx#stx-e _tl259449259484_)))) + (let ((_hd259453259490_ (let () (declare (not safe)) - (##car _e258253258286_))) - (_tl258251258291_ + (##car _e259454259487_))) + (_tl259452259492_ (let () (declare (not safe)) - (##cdr _e258253258286_)))) + (##cdr _e259454259487_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258252258289_)) - (let ((_e258256258294_ + _hd259453259490_)) + (let ((_e259457259495_ (let () (declare (not safe)) (gx#stx-e - _hd258252258289_)))) - (let ((_hd258255258297_ + _hd259453259490_)))) + (let ((_hd259456259498_ (let () (declare (not safe)) - (##car _e258256258294_))) - (_tl258254258299_ + (##car _e259457259495_))) + (_tl259455259500_ (let () (declare (not safe)) - (##cdr _e258256258294_)))) + (##cdr _e259457259495_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258255258297_)) - (let ((_e258259258302_ + _hd259456259498_)) + (let ((_e259460259503_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd258255258297_)))) - (let ((_hd258258258305_ - (let () (declare (not safe)) (##car _e258259258302_))) - (_tl258257258307_ - (let () (declare (not safe)) (##cdr _e258259258302_)))) + (gx#stx-e _hd259456259498_)))) + (let ((_hd259459259506_ + (let () (declare (not safe)) (##car _e259460259503_))) + (_tl259458259508_ + (let () (declare (not safe)) (##cdr _e259460259503_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258258258305_)) - (let ((_e258262258310_ + (gx#stx-pair? _hd259459259506_)) + (let ((_e259463259511_ (let () (declare (not safe)) - (gx#stx-e _hd258258258305_)))) - (let ((_hd258261258313_ + (gx#stx-e _hd259459259506_)))) + (let ((_hd259462259514_ (let () (declare (not safe)) - (##car _e258262258310_))) - (_tl258260258315_ + (##car _e259463259511_))) + (_tl259461259516_ (let () (declare (not safe)) - (##cdr _e258262258310_)))) + (##cdr _e259463259511_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258260258315_)) + (gx#stx-null? _tl259461259516_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258257258307_)) - (let ((_e258265258318_ + (gx#stx-pair? _tl259458259508_)) + (let ((_e259466259519_ (let () (declare (not safe)) - (gx#stx-e _tl258257258307_)))) - (let ((_hd258264258321_ + (gx#stx-e _tl259458259508_)))) + (let ((_hd259465259522_ (let () (declare (not safe)) - (##car _e258265258318_))) - (_tl258263258323_ + (##car _e259466259519_))) + (_tl259464259524_ (let () (declare (not safe)) - (##cdr _e258265258318_)))) + (##cdr _e259466259519_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258263258323_)) + (gx#stx-null? _tl259464259524_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl258254258299_)) + _tl259455259500_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258251258291_)) - (let ((_e258268258326_ + _tl259452259492_)) + (let ((_e259469259527_ (let () (declare (not safe)) (gx#stx-e - _tl258251258291_)))) - (let ((_hd258267258329_ + _tl259452259492_)))) + (let ((_hd259468259530_ (let () (declare (not safe)) - (##car _e258268258326_))) - (_tl258266258331_ + (##car _e259469259527_))) + (_tl259467259532_ (let () (declare (not safe)) - (##cdr _e258268258326_)))) + (##cdr _e259469259527_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258266258331_)) - ((lambda (_L258334_ + _tl259467259532_)) + ((lambda (_L259535_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L258335_ - _L258336_) - (let _lp258360_ ((_body258362_ _L258334_) - (_clauses258363_ '())) - (let* ((___stx274020274021_ _body258362_) - (_g258366258413_ + _L259536_ + _L259537_) + (let _lp259561_ ((_body259563_ _L259535_) + (_clauses259564_ '())) + (let* ((___stx275221275222_ _body259563_) + (_g259567259614_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274020274021_))))) - (let ((___kont274022274023_ - (lambda (_L258579_ _L258580_ _L258581_) - (let ((__tmp275146 - (let ((__tmp275147 - (let ((__tmp275148 + ___stx275221275222_))))) + (let ((___kont275223275224_ + (lambda (_L259780_ _L259781_ _L259782_) + (let ((__tmp276347 + (let ((__tmp276348 + (let ((__tmp276349 (let () (declare (not safe)) (gxc#compile-e__0 - _L258580_)))) + _L259781_)))) (declare (not safe)) - (cons _L258581_ - __tmp275148)))) + (cons _L259782_ + __tmp276349)))) (declare (not safe)) - (cons __tmp275147 - _clauses258363_)))) + (cons __tmp276348 + _clauses259564_)))) (declare (not safe)) - (_lp258360_ _L258579_ __tmp275146)))) - (___kont274024274025_ - (lambda (_L258458_ _L258459_) - (let ((_$e258480_ (length _clauses258363_))) + (_lp259561_ _L259780_ __tmp276347)))) + (___kont275225275226_ + (lambda (_L259659_ _L259660_) + (let ((_$e259681_ (length _clauses259564_))) (if (let () (declare (not safe)) - (eq? '0 _$e258480_)) - (let ((__tmp275166 - (let ((__tmp275167 - (let ((__tmp275170 - (let ((__tmp275171 + (eq? '0 _$e259681_)) + (let ((__tmp276367 + (let ((__tmp276368 + (let ((__tmp276371 + (let ((__tmp276372 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275173 + (let ((__tmp276374 (let () (declare (not safe)) - (cons _L258336_ '()))) - (__tmp275172 + (cons _L259537_ '()))) + (__tmp276373 (let () (declare (not safe)) - (cons _L258335_ '())))) + (cons _L259536_ '())))) (declare (not safe)) - (cons __tmp275173 __tmp275172)))) + (cons __tmp276374 __tmp276373)))) (declare (not safe)) - (cons __tmp275171 '()))) - (__tmp275168 - (let ((__tmp275169 + (cons __tmp276372 '()))) + (__tmp276369 + (let ((__tmp276370 (let () (declare (not safe)) - (gxc#compile-e__0 _body258362_)))) + (gxc#compile-e__0 _body259563_)))) (declare (not safe)) - (cons __tmp275169 '())))) + (cons __tmp276370 '())))) (declare (not safe)) - (cons __tmp275170 __tmp275168)))) + (cons __tmp276371 __tmp276369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp275167)))) + __tmp276368)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp275166 - _stx258241_)) + __tmp276367 + _stx259442_)) (if (let () (declare (not safe)) - (eq? '1 _$e258480_)) - (let* ((_clauses258482258491_ - _clauses258363_) - (_E258484258495_ + (eq? '1 _$e259681_)) + (let* ((_clauses259683259692_ + _clauses259564_) + (_E259685259696_ (lambda () (error '"No clause matching" - _clauses258482258491_))) - (_K258485258501_ - (lambda (_clause-lambda258498_ - _clause258499_) - (let ((__tmp275151 - (let ((__tmp275152 + _clauses259683259692_))) + (_K259686259702_ + (lambda (_clause-lambda259699_ + _clause259700_) + (let ((__tmp276352 + (let ((__tmp276353 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275162 - (let ((__tmp275163 - (let ((__tmp275165 + (let ((__tmp276363 + (let ((__tmp276364 + (let ((__tmp276366 (let () (declare (not safe)) - (cons _L258336_ '()))) - (__tmp275164 + (cons _L259537_ '()))) + (__tmp276365 (let () (declare (not safe)) - (cons _L258335_ '())))) + (cons _L259536_ '())))) (declare (not safe)) - (cons __tmp275165 __tmp275164)))) + (cons __tmp276366 __tmp276365)))) (declare (not safe)) - (cons __tmp275163 '()))) - (__tmp275153 - (let ((__tmp275154 - (let ((__tmp275155 - (let ((__tmp275158 - (let ((__tmp275159 - (let ((__tmp275161 + (cons __tmp276364 '()))) + (__tmp276354 + (let ((__tmp276355 + (let ((__tmp276356 + (let ((__tmp276359 + (let ((__tmp276360 + (let ((__tmp276362 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _clause258499_ '()))) - (__tmp275160 + (cons _clause259700_ '()))) + (__tmp276361 (let () (declare (not safe)) - (cons _clause-lambda258498_ '())))) + (cons _clause-lambda259699_ '())))) (declare (not safe)) - (cons __tmp275161 __tmp275160)))) + (cons __tmp276362 __tmp276361)))) (declare (not safe)) - (cons __tmp275159 '()))) - (__tmp275156 - (let ((__tmp275157 + (cons __tmp276360 '()))) + (__tmp276357 + (let ((__tmp276358 (let () (declare (not safe)) - (gxc#compile-e__0 _body258362_)))) + (gxc#compile-e__0 _body259563_)))) (declare (not safe)) - (cons __tmp275157 '())))) + (cons __tmp276358 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275158 - __tmp275156)))) + (cons __tmp276359 + __tmp276357)))) (declare (not safe)) - (cons '%#let-values __tmp275155)))) + (cons '%#let-values __tmp276356)))) (declare (not safe)) - (cons __tmp275154 '())))) + (cons __tmp276355 '())))) (declare (not safe)) - (cons __tmp275162 __tmp275153)))) + (cons __tmp276363 __tmp276354)))) (declare (not safe)) - (cons '%#let-values __tmp275152)))) + (cons '%#let-values __tmp276353)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp275151 _stx258241_))))) + (gxc#xform-wrap-source __tmp276352 _stx259442_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _clauses258482258491_)) - (let ((_hd258486258504_ + (##pair? _clauses259683259692_)) + (let ((_hd259687259705_ (let () (declare (not safe)) - (##car _clauses258482258491_))) - (_tl258487258506_ + (##car _clauses259683259692_))) + (_tl259688259707_ (let () (declare (not safe)) - (##cdr _clauses258482258491_)))) + (##cdr _clauses259683259692_)))) (if (let () (declare (not safe)) - (##pair? _hd258486258504_)) - (let ((_hd258488258509_ + (##pair? _hd259687259705_)) + (let ((_hd259689259710_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _hd258486258504_))) - (_tl258489258511_ - (let () (declare (not safe)) (##cdr _hd258486258504_)))) - (let* ((_clause258514_ _hd258488258509_) - (_clause-lambda258516_ _tl258489258511_)) + (##car _hd259687259705_))) + (_tl259690259712_ + (let () (declare (not safe)) (##cdr _hd259687259705_)))) + (let* ((_clause259715_ _hd259689259710_) + (_clause-lambda259717_ _tl259690259712_)) (if (let () (declare (not safe)) - (##null? _tl258487258506_)) + (##null? _tl259688259707_)) (let () (declare (not safe)) - (_K258485258501_ - _clause-lambda258516_ - _clause258514_)) - (let () (declare (not safe)) (_E258484258495_))))) - (let () (declare (not safe)) (_E258484258495_)))) + (_K259686259702_ + _clause-lambda259717_ + _clause259715_)) + (let () (declare (not safe)) (_E259685259696_))))) + (let () (declare (not safe)) (_E259685259696_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E258484258495_)))) - (let ((__tmp275150 + (_E259685259696_)))) + (let ((__tmp276351 (let () (declare (not safe)) (gxc#compile-e__0 - _L258458_))) - (__tmp275149 + _L259659_))) + (__tmp276350 (let () (declare (not safe)) - (cons _L258336_ - _L258335_)))) + (cons _L259537_ + _L259536_)))) (declare (not safe)) (gxc#optimize-syntax-case-body - _stx258241_ - __tmp275150 - __tmp275149 - _clauses258363_)))))))) + _stx259442_ + __tmp276351 + __tmp276350 + _clauses259564_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274020274021_)) - (let ((_e258373258523_ + (gx#stx-pair? ___stx275221275222_)) + (let ((_e259574259724_ (let () (declare (not safe)) - (gx#stx-e ___stx274020274021_)))) - (let ((_tl258371258528_ + (gx#stx-e ___stx275221275222_)))) + (let ((_tl259572259729_ (let () (declare (not safe)) - (##cdr _e258373258523_))) - (_hd258372258526_ + (##cdr _e259574259724_))) + (_hd259573259727_ (let () (declare (not safe)) - (##car _e258373258523_)))) + (##car _e259574259724_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258372258526_)) + (gx#identifier? _hd259573259727_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd258372258526_)) + _hd259573259727_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258371258528_)) - (let ((_e258376258531_ + _tl259572259729_)) + (let ((_e259577259732_ (let () (declare (not safe)) (gx#stx-e - _tl258371258528_)))) - (let ((_tl258374258536_ + _tl259572259729_)))) + (let ((_tl259575259737_ (let () (declare (not safe)) - (##cdr _e258376258531_))) - (_hd258375258534_ + (##cdr _e259577259732_))) + (_hd259576259735_ (let () (declare (not safe)) - (##car _e258376258531_)))) + (##car _e259577259732_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258375258534_)) - (let ((_e258379258539_ + _hd259576259735_)) + (let ((_e259580259740_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd258375258534_)))) - (let ((_tl258377258544_ - (let () (declare (not safe)) (##cdr _e258379258539_))) - (_hd258378258542_ - (let () (declare (not safe)) (##car _e258379258539_)))) + (gx#stx-e _hd259576259735_)))) + (let ((_tl259578259745_ + (let () (declare (not safe)) (##cdr _e259580259740_))) + (_hd259579259743_ + (let () (declare (not safe)) (##car _e259580259740_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258378258542_)) - (let ((_e258382258547_ + (gx#stx-pair? _hd259579259743_)) + (let ((_e259583259748_ (let () (declare (not safe)) - (gx#stx-e _hd258378258542_)))) - (let ((_tl258380258552_ + (gx#stx-e _hd259579259743_)))) + (let ((_tl259581259753_ (let () (declare (not safe)) - (##cdr _e258382258547_))) - (_hd258381258550_ + (##cdr _e259583259748_))) + (_hd259582259751_ (let () (declare (not safe)) - (##car _e258382258547_)))) + (##car _e259583259748_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd258381258550_)) - (let ((_e258385258555_ + (gx#stx-pair? _hd259582259751_)) + (let ((_e259586259756_ (let () (declare (not safe)) - (gx#stx-e _hd258381258550_)))) - (let ((_tl258383258560_ + (gx#stx-e _hd259582259751_)))) + (let ((_tl259584259761_ (let () (declare (not safe)) - (##cdr _e258385258555_))) - (_hd258384258558_ + (##cdr _e259586259756_))) + (_hd259585259759_ (let () (declare (not safe)) - (##car _e258385258555_)))) + (##car _e259586259756_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258383258560_)) + (gx#stx-null? _tl259584259761_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258380258552_)) - (let ((_e258388258563_ + (gx#stx-pair? _tl259581259753_)) + (let ((_e259589259764_ (let () (declare (not safe)) (gx#stx-e - _tl258380258552_)))) - (let ((_tl258386258568_ + _tl259581259753_)))) + (let ((_tl259587259769_ (let () (declare (not safe)) - (##cdr _e258388258563_))) - (_hd258387258566_ + (##cdr _e259589259764_))) + (_hd259588259767_ (let () (declare (not safe)) - (##car _e258388258563_)))) + (##car _e259589259764_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258386258568_)) + _tl259587259769_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl258377258544_)) + _tl259578259745_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258374258536_)) - (let ((_e258391258571_ + _tl259575259737_)) + (let ((_e259592259772_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl258374258536_)))) - (let ((_tl258389258576_ + (gx#stx-e _tl259575259737_)))) + (let ((_tl259590259777_ (let () (declare (not safe)) - (##cdr _e258391258571_))) - (_hd258390258574_ + (##cdr _e259592259772_))) + (_hd259591259775_ (let () (declare (not safe)) - (##car _e258391258571_)))) + (##car _e259592259772_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258389258576_)) - (___kont274022274023_ - _hd258390258574_ - _hd258387258566_ - _hd258384258558_) - (let () (declare (not safe)) (_g258366258413_))))) - (let () (declare (not safe)) (_g258366258413_))) - (let () (declare (not safe)) (_g258366258413_))) + (gx#stx-null? _tl259590259777_)) + (___kont275223275224_ + _hd259591259775_ + _hd259588259767_ + _hd259585259759_) + (let () (declare (not safe)) (_g259567259614_))))) + (let () (declare (not safe)) (_g259567259614_))) + (let () (declare (not safe)) (_g259567259614_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258366258413_))))) + (_g259567259614_))))) (let () (declare (not safe)) - (_g258366258413_))) + (_g259567259614_))) (let () (declare (not safe)) - (_g258366258413_))))) + (_g259567259614_))))) (let () (declare (not safe)) - (_g258366258413_))))) - (let () (declare (not safe)) (_g258366258413_))))) - (let () (declare (not safe)) (_g258366258413_))))) + (_g259567259614_))))) + (let () (declare (not safe)) (_g259567259614_))))) + (let () (declare (not safe)) (_g259567259614_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258366258413_))) + (_g259567259614_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd258372258526_)) + _hd259573259727_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258371258528_)) - (let ((_e258399258426_ + _tl259572259729_)) + (let ((_e259600259627_ (let () (declare (not safe)) (gx#stx-e - _tl258371258528_)))) - (let ((_tl258397258431_ + _tl259572259729_)))) + (let ((_tl259598259632_ (let () (declare (not safe)) - (##cdr _e258399258426_))) - (_hd258398258429_ + (##cdr _e259600259627_))) + (_hd259599259630_ (let () (declare (not safe)) - (##car _e258399258426_)))) + (##car _e259600259627_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd258398258429_)) - (let ((_e258402258434_ + _hd259599259630_)) + (let ((_e259603259635_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd258398258429_)))) - (let ((_tl258400258439_ + (gx#stx-e _hd259599259630_)))) + (let ((_tl259601259640_ (let () (declare (not safe)) - (##cdr _e258402258434_))) - (_hd258401258437_ + (##cdr _e259603259635_))) + (_hd259602259638_ (let () (declare (not safe)) - (##car _e258402258434_)))) + (##car _e259603259635_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd258401258437_)) + (gx#identifier? _hd259602259638_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd258401258437_)) + (gx#stx-eq? '%#ref _hd259602259638_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl258400258439_)) - (let ((_e258405258442_ + (gx#stx-pair? _tl259601259640_)) + (let ((_e259606259643_ (let () (declare (not safe)) - (gx#stx-e _tl258400258439_)))) - (let ((_tl258403258447_ + (gx#stx-e _tl259601259640_)))) + (let ((_tl259604259648_ (let () (declare (not safe)) - (##cdr _e258405258442_))) - (_hd258404258445_ + (##cdr _e259606259643_))) + (_hd259605259646_ (let () (declare (not safe)) - (##car _e258405258442_)))) + (##car _e259606259643_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl258403258447_)) + (gx#stx-null? _tl259604259648_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl258397258431_)) - (let ((_e258408258450_ + _tl259598259632_)) + (let ((_e259609259651_ (let () (declare (not safe)) (gx#stx-e - _tl258397258431_)))) - (let ((_tl258406258455_ + _tl259598259632_)))) + (let ((_tl259607259656_ (let () (declare (not safe)) - (##cdr _e258408258450_))) - (_hd258407258453_ + (##cdr _e259609259651_))) + (_hd259608259654_ (let () (declare (not safe)) - (##car _e258408258450_)))) + (##car _e259609259651_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl258406258455_)) - (___kont274024274025_ - _hd258407258453_ - _hd258404258445_) + _tl259607259656_)) + (___kont275225275226_ + _hd259608259654_ + _hd259605259646_) (let () (declare (not safe)) - (_g258366258413_))))) + (_g259567259614_))))) (let () (declare (not safe)) - (_g258366258413_))) + (_g259567259614_))) (let () (declare (not safe)) - (_g258366258413_))))) + (_g259567259614_))))) (let () (declare (not safe)) - (_g258366258413_))) - (let () (declare (not safe)) (_g258366258413_))) - (let () (declare (not safe)) (_g258366258413_))))) - (let () (declare (not safe)) (_g258366258413_))))) + (_g259567259614_))) + (let () (declare (not safe)) (_g259567259614_))) + (let () (declare (not safe)) (_g259567259614_))))) + (let () (declare (not safe)) (_g259567259614_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258366258413_))) + (_g259567259614_))) (let () (declare (not safe)) - (_g258366258413_)))) + (_g259567259614_)))) (let () (declare (not safe)) - (_g258366258413_))))) + (_g259567259614_))))) (let () (declare (not safe)) - (_g258366258413_))))))) - _hd258267258329_ - _hd258264258321_ - _hd258261258313_) + (_g259567259614_))))))) + _hd259468259530_ + _hd259465259522_ + _hd259462259514_) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))))) + (_g259444259474_ _g259445259477_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258243258273_ - _g258244258276_))) + (_g259444259474_ + _g259445259477_))) (let () (declare (not safe)) - (_g258243258273_ - _g258244258276_))) + (_g259444259474_ + _g259445259477_))) (let () (declare (not safe)) - (_g258243258273_ - _g258244258276_))))) + (_g259444259474_ + _g259445259477_))))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))) + (_g259444259474_ _g259445259477_))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))))) + (_g259444259474_ _g259445259477_))))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))))) + (_g259444259474_ _g259445259477_))))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))))) + (_g259444259474_ _g259445259477_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g258243258273_ - _g258244258276_))))) + (_g259444259474_ + _g259445259477_))))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))) + (_g259444259474_ _g259445259477_))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))) + (_g259444259474_ _g259445259477_))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_))))) + (_g259444259474_ _g259445259477_))))) (let () (declare (not safe)) - (_g258243258273_ _g258244258276_)))))) + (_g259444259474_ _g259445259477_)))))) (declare (not safe)) - (_g258242258607_ _stx258241_)))) + (_g259443259808_ _stx259442_)))) (define gxc#optimize-syntax-case-body - (lambda (_stx258169_ _expr258170_ _negation258171_ _clauses258172_) - (letrec ((_normalize258174_ - (lambda (_clauses258201_) - (let* ((_clauses258202258211_ _clauses258201_) - (_E258204258215_ + (lambda (_stx259370_ _expr259371_ _negation259372_ _clauses259373_) + (letrec ((_normalize259375_ + (lambda (_clauses259402_) + (let* ((_clauses259403259412_ _clauses259402_) + (_E259405259416_ (lambda () (error '"No clause matching" - _clauses258202258211_))) - (_K258205258222_ - (lambda (_rest258218_ _kont258219_ _id258220_) - (let ((__tmp275174 + _clauses259403259412_))) + (_K259406259423_ + (lambda (_rest259419_ _kont259420_ _id259421_) + (let ((__tmp276375 (let () (declare (not safe)) - (cons '#f _kont258219_)))) + (cons '#f _kont259420_)))) (declare (not safe)) - (cons __tmp275174 _rest258218_))))) + (cons __tmp276375 _rest259419_))))) (if (let () (declare (not safe)) - (##pair? _clauses258202258211_)) - (let ((_hd258206258225_ + (##pair? _clauses259403259412_)) + (let ((_hd259407259426_ (let () (declare (not safe)) - (##car _clauses258202258211_))) - (_tl258207258227_ + (##car _clauses259403259412_))) + (_tl259408259428_ (let () (declare (not safe)) - (##cdr _clauses258202258211_)))) + (##cdr _clauses259403259412_)))) (if (let () (declare (not safe)) - (##pair? _hd258206258225_)) - (let ((_hd258208258230_ + (##pair? _hd259407259426_)) + (let ((_hd259409259431_ (let () (declare (not safe)) - (##car _hd258206258225_))) - (_tl258209258232_ + (##car _hd259407259426_))) + (_tl259410259433_ (let () (declare (not safe)) - (##cdr _hd258206258225_)))) - (let* ((_id258235_ _hd258208258230_) - (_kont258237_ _tl258209258232_) - (_rest258239_ _tl258207258227_)) + (##cdr _hd259407259426_)))) + (let* ((_id259436_ _hd259409259431_) + (_kont259438_ _tl259410259433_) + (_rest259440_ _tl259408259428_)) (declare (not safe)) - (_K258205258222_ - _rest258239_ - _kont258237_ - _id258235_))) + (_K259406259423_ + _rest259440_ + _kont259438_ + _id259436_))) (let () (declare (not safe)) - (_E258204258215_)))) - (let () (declare (not safe)) (_E258204258215_))))))) - (let ((__tmp275176 + (_E259405259416_)))) + (let () (declare (not safe)) (_E259405259416_))))))) + (let ((__tmp276377 (lambda () - (let* ((_id258177_ - (let ((__tmp275177 (gensym '__stx))) + (let* ((_id259378_ + (let ((__tmp276378 (gensym '__stx))) (declare (not safe)) - (make-symbol__0 __tmp275177))) - (_id258179_ + (make-symbol__0 __tmp276378))) + (_id259380_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id258177_))) - (_g275178_ + (gx#core-quote-syntax__0 _id259378_))) + (_g276379_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _id258179_))) - (_g275179_ - (let ((__tmp275181 (car _negation258171_))) + (gx#core-bind-runtime!__0 _id259380_))) + (_g276380_ + (let ((__tmp276382 (car _negation259372_))) (declare (not safe)) (gxc#optimize-syntax-case-clauses - _clauses258172_ - __tmp275181)))) + _clauses259373_ + __tmp276382)))) (begin - (let ((_g275180_ + (let ((_g276381_ (let () (declare (not safe)) - (if (##values? _g275179_) - (##vector-length _g275179_) + (if (##values? _g276380_) + (##vector-length _g276380_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g275180_ 2))) - (error "Context expects 2 values" _g275180_))) - (let ((_clauses258182_ + (##fx= _g276381_ 2))) + (error "Context expects 2 values" _g276381_))) + (let ((_clauses259383_ (let () (declare (not safe)) - (##vector-ref _g275179_ 0))) - (_konts258183_ + (##vector-ref _g276380_ 0))) + (_konts259384_ (let () (declare (not safe)) - (##vector-ref _g275179_ 1)))) - (let* ((_clauses258192_ - (map (lambda (_g258184258187_ _g258185258189_) + (##vector-ref _g276380_ 1)))) + (let* ((_clauses259393_ + (map (lambda (_g259385259388_ _g259386259390_) (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _g258184258187_ - _g258185258189_ - _id258179_))) - _clauses258182_ - (let ((__tmp275183 - (let ((__tmp275184 - (car _negation258171_))) + _g259385259388_ + _g259386259390_ + _id259380_))) + _clauses259383_ + (let ((__tmp276384 + (let ((__tmp276385 + (car _negation259372_))) (declare (not safe)) - (cons __tmp275184 '()))) - (__tmp275182 - (map car (cdr _clauses258182_)))) + (cons __tmp276385 '()))) + (__tmp276383 + (map car (cdr _clauses259383_)))) (declare (not safe)) (foldr1 cons - __tmp275183 - __tmp275182)))) - (_clauses258194_ + __tmp276384 + __tmp276383)))) + (_clauses259395_ (let () (declare (not safe)) - (_normalize258174_ _clauses258192_))) - (_negation258196_ + (_normalize259375_ _clauses259393_))) + (_negation259397_ (let () (declare (not safe)) (gxc#optimize-syntax-case-closure - _negation258171_ + _negation259372_ '#f - _id258179_))) - (_body258198_ + _id259380_))) + (_body259399_ (let () (declare (not safe)) (gxc#optimize-match-body - _stx258169_ - _negation258196_ - _clauses258194_ - _konts258183_)))) - (let ((__tmp275185 - (let ((__tmp275186 - (let ((__tmp275188 - (let ((__tmp275189 - (let ((__tmp275191 + _stx259370_ + _negation259397_ + _clauses259395_ + _konts259384_)))) + (let ((__tmp276386 + (let ((__tmp276387 + (let ((__tmp276389 + (let ((__tmp276390 + (let ((__tmp276392 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id258179_ '()))) - (__tmp275190 - (let () (declare (not safe)) (cons _expr258170_ '())))) + (cons _id259380_ '()))) + (__tmp276391 + (let () (declare (not safe)) (cons _expr259371_ '())))) (declare (not safe)) - (cons __tmp275191 __tmp275190)))) + (cons __tmp276392 __tmp276391)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275189 '()))) - (__tmp275187 + (cons __tmp276390 '()))) + (__tmp276388 (let () (declare (not safe)) - (cons _body258198_ '())))) + (cons _body259399_ '())))) (declare (not safe)) - (cons __tmp275188 __tmp275187)))) + (cons __tmp276389 __tmp276388)))) (declare (not safe)) - (cons '%#let-values __tmp275186)))) + (cons '%#let-values __tmp276387)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp275185 - _stx258169_)))))))) - (__tmp275175 - (let ((__obj274766 + __tmp276386 + _stx259370_)))))))) + (__tmp276376 + (let ((__obj275967 (let () (declare (not safe)) (##structure @@ -14687,3729 +14687,3729 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj274766) - __obj274766))) + (gx#local-context:::init! __obj275967) + __obj275967))) (declare (not safe)) (call-with-parameters - __tmp275176 + __tmp276377 gx#current-expander-context - __tmp275175))))) + __tmp276376))))) (define gxc#optimize-syntax-case-clauses - (lambda (_clauses256927_ _negation-id256928_) - (letrec ((_xform-e256930_ - (lambda (_expr257314_ - _kont-id257315_ - _kont-box257316_ - _negation-id257317_) - (let* ((___stx274222274223_ _expr257314_) - (_g257323257456_ + (lambda (_clauses258128_ _negation-id258129_) + (letrec ((_xform-e258131_ + (lambda (_expr258515_ + _kont-id258516_ + _kont-box258517_ + _negation-id258518_) + (let* ((___stx275423275424_ _expr258515_) + (_g258524258657_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274222274223_))))) - (let ((___kont274224274225_ - (lambda (_L258145_ _L258146_ _L258147_) - (let* ((_K258164_ + ___stx275423275424_))))) + (let ((___kont275425275426_ + (lambda (_L259346_ _L259347_ _L259348_) + (let* ((_K259365_ (let () (declare (not safe)) - (_xform-e256930_ - _L258146_ - _kont-id257315_ - _kont-box257316_ - _negation-id257317_))) - (__tmp275192 - (let ((__tmp275193 - (let ((__tmp275194 + (_xform-e258131_ + _L259347_ + _kont-id258516_ + _kont-box258517_ + _negation-id258518_))) + (__tmp276393 + (let ((__tmp276394 + (let ((__tmp276395 (let () (declare (not safe)) - (cons _L258145_ '())))) + (cons _L259346_ '())))) (declare (not safe)) - (cons _K258164_ __tmp275194)))) + (cons _K259365_ __tmp276395)))) (declare (not safe)) - (cons _L258147_ __tmp275193)))) + (cons _L259348_ __tmp276394)))) (declare (not safe)) - (cons '%#if __tmp275192)))) - (___kont274226274227_ - (lambda (_L258061_ - _L258062_ - _L258063_ - _L258064_ - _L258065_) - (let* ((_id258100_ - (let ((__tmp275195 (gensym '__splice))) + (cons '%#if __tmp276393)))) + (___kont275427275428_ + (lambda (_L259262_ + _L259263_ + _L259264_ + _L259265_ + _L259266_) + (let* ((_id259301_ + (let ((__tmp276396 (gensym '__splice))) (declare (not safe)) - (make-symbol__0 __tmp275195))) - (_id258102_ + (make-symbol__0 __tmp276396))) + (_id259303_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _id258100_))) - (_g275196_ + (gx#core-quote-syntax__0 _id259301_))) + (_g276397_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id258102_))) - (_body258105_ + _id259303_))) + (_body259306_ (let () (declare (not safe)) - (_xform-e256930_ - _L258061_ - _kont-id257315_ - _kont-box257316_ - _negation-id257317_)))) - (let ((__tmp275197 - (let ((__tmp275222 - (let ((__tmp275223 - (let ((__tmp275231 + (_xform-e258131_ + _L259262_ + _kont-id258516_ + _kont-box258517_ + _negation-id258518_)))) + (let ((__tmp276398 + (let ((__tmp276423 + (let ((__tmp276424 + (let ((__tmp276432 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id258102_ '()))) - (__tmp275224 - (let ((__tmp275225 - (let ((__tmp275230 + (cons _id259303_ '()))) + (__tmp276425 + (let ((__tmp276426 + (let ((__tmp276431 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp275226 - (let ((__tmp275227 - (let ((__tmp275229 + (__tmp276427 + (let ((__tmp276428 + (let ((__tmp276430 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275228 + (__tmp276429 (let () (declare (not safe)) - (cons _L258063_ '())))) + (cons _L259264_ '())))) (declare (not safe)) - (cons __tmp275229 __tmp275228)))) + (cons __tmp276430 __tmp276429)))) (declare (not safe)) - (cons __tmp275227 _L258062_)))) + (cons __tmp276428 _L259263_)))) (declare (not safe)) - (cons __tmp275230 __tmp275226)))) + (cons __tmp276431 __tmp276427)))) (declare (not safe)) - (cons __tmp275225 '())))) + (cons __tmp276426 '())))) (declare (not safe)) - (cons __tmp275231 __tmp275224)))) + (cons __tmp276432 __tmp276425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275223 '()))) - (__tmp275198 - (let ((__tmp275199 - (let ((__tmp275200 - (let ((__tmp275202 + (cons __tmp276424 '()))) + (__tmp276399 + (let ((__tmp276400 + (let ((__tmp276401 + (let ((__tmp276403 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275213 - (let ((__tmp275221 + (let ((__tmp276414 + (let ((__tmp276422 (let () (declare (not safe)) - (cons _L258065_ '()))) - (__tmp275214 - (let ((__tmp275215 - (let ((__tmp275216 - (let ((__tmp275217 - (let ((__tmp275219 + (cons _L259266_ '()))) + (__tmp276415 + (let ((__tmp276416 + (let ((__tmp276417 + (let ((__tmp276418 + (let ((__tmp276420 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275220 + (let ((__tmp276421 (let () (declare (not safe)) - (cons _id258102_ '())))) + (cons _id259303_ '())))) (declare (not safe)) - (cons '%#ref __tmp275220))) - (__tmp275218 + (cons '%#ref __tmp276421))) + (__tmp276419 (let () (declare (not safe)) (cons '(%#quote 0) '())))) (declare (not safe)) - (cons __tmp275219 __tmp275218)))) + (cons __tmp276420 __tmp276419)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp275217)))) + (cons '(%#ref ##vector-ref) __tmp276418)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp275216)))) + __tmp276417)))) (declare (not safe)) - (cons __tmp275215 '())))) + (cons __tmp276416 '())))) (declare (not safe)) - (cons __tmp275221 __tmp275214))) - (__tmp275203 - (let ((__tmp275204 - (let ((__tmp275212 + (cons __tmp276422 __tmp276415))) + (__tmp276404 + (let ((__tmp276405 + (let ((__tmp276413 (let () (declare (not safe)) - (cons _L258064_ '()))) - (__tmp275205 - (let ((__tmp275206 - (let ((__tmp275207 - (let ((__tmp275208 + (cons _L259265_ '()))) + (__tmp276406 + (let ((__tmp276407 + (let ((__tmp276408 + (let ((__tmp276409 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275210 - (let ((__tmp275211 + (let ((__tmp276411 + (let ((__tmp276412 (let () (declare (not safe)) - (cons _id258102_ '())))) + (cons _id259303_ '())))) (declare (not safe)) - (cons '%#ref __tmp275211))) - (__tmp275209 + (cons '%#ref __tmp276412))) + (__tmp276410 (let () (declare (not safe)) (cons '(%#quote 1) '())))) (declare (not safe)) - (cons __tmp275210 __tmp275209)))) + (cons __tmp276411 __tmp276410)))) (declare (not safe)) - (cons '(%#ref ##vector-ref) __tmp275208)))) + (cons '(%#ref ##vector-ref) __tmp276409)))) (declare (not safe)) - (cons '%#call __tmp275207)))) + (cons '%#call __tmp276408)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275206 '())))) + (cons __tmp276407 '())))) (declare (not safe)) - (cons __tmp275212 __tmp275205)))) + (cons __tmp276413 __tmp276406)))) (declare (not safe)) - (cons __tmp275204 '())))) + (cons __tmp276405 '())))) (declare (not safe)) - (cons __tmp275213 __tmp275203))) - (__tmp275201 + (cons __tmp276414 __tmp276404))) + (__tmp276402 (let () (declare (not safe)) - (cons _body258105_ '())))) + (cons _body259306_ '())))) (declare (not safe)) - (cons __tmp275202 __tmp275201)))) + (cons __tmp276403 __tmp276402)))) (declare (not safe)) - (cons '%#let-values __tmp275200)))) + (cons '%#let-values __tmp276401)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275199 '())))) + (cons __tmp276400 '())))) (declare (not safe)) - (cons __tmp275222 __tmp275198)))) + (cons __tmp276423 __tmp276399)))) (declare (not safe)) - (cons '%#let-values __tmp275197))))) - (___kont274228274229_ - (lambda (_L257943_ _L257944_) - (let* ((_body257958_ + (cons '%#let-values __tmp276398))))) + (___kont275429275430_ + (lambda (_L259144_ _L259145_) + (let* ((_body259159_ (let () (declare (not safe)) - (_xform-e256930_ - _L257943_ - _kont-id257315_ - _kont-box257316_ - _negation-id257317_))) - (__tmp275232 - (let ((__tmp275233 + (_xform-e258131_ + _L259144_ + _kont-id258516_ + _kont-box258517_ + _negation-id258518_))) + (__tmp276433 + (let ((__tmp276434 (let () (declare (not safe)) - (cons _body257958_ '())))) + (cons _body259159_ '())))) (declare (not safe)) - (cons _L257944_ __tmp275233)))) + (cons _L259145_ __tmp276434)))) (declare (not safe)) - (cons '%#let-values __tmp275232)))) - (___kont274230274231_ - (lambda (_L257887_ _L257888_ _L257889_) - (let* ((_lambda-expr257912_ + (cons '%#let-values __tmp276433)))) + (___kont275431275432_ + (lambda (_L259088_ _L259089_ _L259090_) + (let* ((_lambda-expr259113_ (let () (declare (not safe)) - (_xform-loop-e256931_ - _L257888_ - _kont-id257315_ - _kont-box257316_ - _negation-id257317_))) - (__tmp275234 - (let ((__tmp275236 - (let ((__tmp275237 - (let ((__tmp275239 + (_xform-loop-e258132_ + _L259089_ + _kont-id258516_ + _kont-box258517_ + _negation-id258518_))) + (__tmp276435 + (let ((__tmp276437 + (let ((__tmp276438 + (let ((__tmp276440 (let () (declare (not safe)) - (cons _L257889_ + (cons _L259090_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp275238 + (__tmp276439 (let () (declare (not safe)) - (cons _lambda-expr257912_ '())))) + (cons _lambda-expr259113_ '())))) (declare (not safe)) - (cons __tmp275239 __tmp275238)))) + (cons __tmp276440 __tmp276439)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275237 '()))) - (__tmp275235 + (cons __tmp276438 '()))) + (__tmp276436 (let () (declare (not safe)) - (cons _L257887_ '())))) + (cons _L259088_ '())))) (declare (not safe)) - (cons __tmp275236 __tmp275235)))) + (cons __tmp276437 __tmp276436)))) (declare (not safe)) - (cons '%#letrec-values __tmp275234)))) - (___kont274232274233_ - (lambda (_L257549_ _L257550_ _L257551_) - (let* ((___stx274124274125_ _L257550_) - (_g257580257623_ + (cons '%#letrec-values __tmp276435)))) + (___kont275433275434_ + (lambda (_L258750_ _L258751_ _L258752_) + (let* ((___stx275325275326_ _L258751_) + (_g258781258824_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274124274125_))))) - (let ((___kont274126274127_ - (lambda (_L257739_ - _L257740_ - _L257741_ - _L257742_) - (let ((_kont257783_ - (let ((__tmp275244 + ___stx275325275326_))))) + (let ((___kont275327275328_ + (lambda (_L258940_ + _L258941_ + _L258942_ + _L258943_) + (let ((_kont258984_ + (let ((__tmp276445 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp275240 - (let ((__tmp275242 - (let ((__tmp275243 + (__tmp276441 + (let ((__tmp276443 + (let ((__tmp276444 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g257775257778_ _g257776257780_) + (lambda (_g258976258979_ _g258977258981_) (let () (declare (not safe)) - (cons _g257775257778_ _g257776257780_))))) + (cons _g258976258979_ _g258977258981_))))) (declare (not safe)) - (foldr1 __tmp275243 '() _L257551_))) - (__tmp275241 - (let () (declare (not safe)) (cons _L257741_ '())))) + (foldr1 __tmp276444 '() _L258752_))) + (__tmp276442 + (let () (declare (not safe)) (cons _L258942_ '())))) (declare (not safe)) - (cons __tmp275242 __tmp275241)))) + (cons __tmp276443 __tmp276442)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275244 - __tmp275240)))) + (cons __tmp276445 + __tmp276441)))) (set-box! - _kont-box257316_ - _kont257783_) - (let* ((_kont-args257794_ - (map (lambda (_id257785_) - (let ((__tmp275245 + _kont-box258517_ + _kont258984_) + (let* ((_kont-args258995_ + (map (lambda (_id258986_) + (let ((__tmp276446 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id257785_ '())))) + (let () (declare (not safe)) (cons _id258986_ '())))) (declare (not safe)) - (cons '%#ref __tmp275245))) - (let ((__tmp275246 - (lambda (_g257786257789_ _g257787257791_) + (cons '%#ref __tmp276446))) + (let ((__tmp276447 + (lambda (_g258987258990_ _g258988258992_) (let () (declare (not safe)) - (cons _g257786257789_ _g257787257791_))))) + (cons _g258987258990_ _g258988258992_))))) (declare (not safe)) - (foldr1 __tmp275246 '() _L257551_)))) + (foldr1 __tmp276447 '() _L258752_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_body257796_ - (let ((__tmp275247 - (let ((__tmp275248 + (_body258997_ + (let ((__tmp276448 + (let ((__tmp276449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp275260 - (let ((__tmp275261 - (let ((__tmp275262 - (let ((__tmp275263 + (let ((__tmp276461 + (let ((__tmp276462 + (let ((__tmp276463 + (let ((__tmp276464 (let () (declare (not safe)) - (cons _kont-id257315_ + (cons _kont-id258516_ '())))) (declare (not safe)) - (cons '%#ref __tmp275263)))) + (cons '%#ref __tmp276464)))) (declare (not safe)) - (cons __tmp275262 - _kont-args257794_)))) + (cons __tmp276463 + _kont-args258995_)))) (declare (not safe)) - (cons '%#call __tmp275261))) - (__tmp275249 - (let ((__tmp275250 - (let ((__tmp275259 + (cons '%#call __tmp276462))) + (__tmp276450 + (let ((__tmp276451 + (let ((__tmp276460 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call))) - (__tmp275251 - (let ((__tmp275256 - (let ((__tmp275258 + (__tmp276452 + (let ((__tmp276457 + (let ((__tmp276459 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275257 - (let () (declare (not safe)) (cons _L257740_ '())))) + (__tmp276458 + (let () (declare (not safe)) (cons _L258941_ '())))) (declare (not safe)) - (cons __tmp275258 __tmp275257))) + (cons __tmp276459 __tmp276458))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp275252 - (let ((__tmp275253 - (let ((__tmp275255 + (__tmp276453 + (let ((__tmp276454 + (let ((__tmp276456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275254 + (__tmp276455 (let () (declare (not safe)) - (cons _L257739_ '())))) + (cons _L258940_ '())))) (declare (not safe)) - (cons __tmp275255 __tmp275254)))) + (cons __tmp276456 __tmp276455)))) (declare (not safe)) - (cons __tmp275253 '())))) + (cons __tmp276454 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275256 - __tmp275252)))) + (cons __tmp276457 + __tmp276453)))) (declare (not safe)) - (cons __tmp275259 __tmp275251)))) + (cons __tmp276460 __tmp276452)))) (declare (not safe)) - (cons __tmp275250 '())))) + (cons __tmp276451 '())))) (declare (not safe)) - (cons __tmp275260 __tmp275249)))) + (cons __tmp276461 __tmp276450)))) (declare (not safe)) - (cons _L257742_ __tmp275248)))) + (cons _L258943_ __tmp276449)))) (declare (not safe)) - (cons '%#if __tmp275247)))) + (cons '%#if __tmp276448)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp275271 - (let ((__tmp275272 - (lambda (_g257798257801_ + (if (let ((__tmp276472 + (let ((__tmp276473 + (lambda (_g258999259002_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g257799257803_) + _g259000259004_) (let () (declare (not safe)) - (cons _g257798257801_ _g257799257803_))))) + (cons _g258999259002_ _g259000259004_))))) (declare (not safe)) - (foldr1 __tmp275272 '() _L257551_)))) + (foldr1 __tmp276473 '() _L258752_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp275271)) - _body257796_ - (let ((__tmp275264 - (let ((__tmp275266 - (map (lambda (_id257806_ + (null? __tmp276472)) + _body258997_ + (let ((__tmp276465 + (let ((__tmp276467 + (map (lambda (_id259007_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _arg257807_) - (let ((__tmp275268 + _arg259008_) + (let ((__tmp276469 (let () (declare (not safe)) - (cons _id257806_ '()))) - (__tmp275267 + (cons _id259007_ '()))) + (__tmp276468 (let () (declare (not safe)) - (cons _arg257807_ '())))) + (cons _arg259008_ '())))) (declare (not safe)) - (cons __tmp275268 __tmp275267))) - (let ((__tmp275269 - (lambda (_g257808257811_ _g257809257813_) + (cons __tmp276469 __tmp276468))) + (let ((__tmp276470 + (lambda (_g259009259012_ _g259010259014_) (let () (declare (not safe)) - (cons _g257808257811_ - _g257809257813_))))) + (cons _g259009259012_ + _g259010259014_))))) (declare (not safe)) - (foldr1 __tmp275269 '() _L257551_)) - (let ((__tmp275270 - (lambda (_g257815257818_ _g257816257820_) + (foldr1 __tmp276470 '() _L258752_)) + (let ((__tmp276471 + (lambda (_g259016259019_ _g259017259021_) (let () (declare (not safe)) - (cons _g257815257818_ - _g257816257820_))))) + (cons _g259016259019_ + _g259017259021_))))) (declare (not safe)) - (foldr1 __tmp275270 '() _L257549_)))) - (__tmp275265 - (let () (declare (not safe)) (cons _body257796_ '())))) + (foldr1 __tmp276471 '() _L258750_)))) + (__tmp276466 + (let () (declare (not safe)) (cons _body258997_ '())))) (declare (not safe)) - (cons __tmp275266 __tmp275265)))) + (cons __tmp276467 __tmp276466)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp275264))))))) - (___kont274128274129_ + __tmp276465))))))) + (___kont275329275330_ (lambda () - (let ((_kont257637_ - (let ((__tmp275277 + (let ((_kont258838_ + (let ((__tmp276478 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp275273 - (let ((__tmp275275 - (let ((__tmp275276 + (__tmp276474 + (let ((__tmp276476 + (let ((__tmp276477 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g257629257632_ _g257630257634_) + (lambda (_g258830258833_ _g258831258835_) (let () (declare (not safe)) - (cons _g257629257632_ _g257630257634_))))) + (cons _g258830258833_ _g258831258835_))))) (declare (not safe)) - (foldr1 __tmp275276 '() _L257551_))) - (__tmp275274 - (let () (declare (not safe)) (cons _L257550_ '())))) + (foldr1 __tmp276477 '() _L258752_))) + (__tmp276475 + (let () (declare (not safe)) (cons _L258751_ '())))) (declare (not safe)) - (cons __tmp275275 __tmp275274)))) + (cons __tmp276476 __tmp276475)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275277 - __tmp275273)))) + (cons __tmp276478 + __tmp276474)))) (set-box! - _kont-box257316_ - _kont257637_) - (let ((__tmp275278 - (let ((__tmp275281 - (let ((__tmp275282 + _kont-box258517_ + _kont258838_) + (let ((__tmp276479 + (let ((__tmp276482 + (let ((__tmp276483 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kont-id257315_ '())))) + (cons _kont-id258516_ '())))) (declare (not safe)) - (cons '%#ref __tmp275282))) - (__tmp275279 - (let ((__tmp275280 - (lambda (_g257638257641_ _g257639257643_) + (cons '%#ref __tmp276483))) + (__tmp276480 + (let ((__tmp276481 + (lambda (_g258839258842_ _g258840258844_) (let () (declare (not safe)) - (cons _g257638257641_ _g257639257643_))))) + (cons _g258839258842_ _g258840258844_))))) (declare (not safe)) - (foldr1 __tmp275280 '() _L257549_)))) + (foldr1 __tmp276481 '() _L258750_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275281 - __tmp275279)))) + (cons __tmp276482 + __tmp276480)))) (declare (not safe)) - (cons '%#call __tmp275278)))))) - (let ((___match274219274220_ - (lambda (_e257588257651_ - _hd257587257654_ - _tl257586257656_ - _e257591257659_ - _hd257590257662_ - _tl257589257664_ - _e257594257667_ - _hd257593257670_ - _tl257592257672_ - _e257597257675_ - _hd257596257678_ - _tl257595257680_ - _e257600257683_ - _hd257599257686_ - _tl257598257688_ - _e257603257691_ - _hd257602257694_ - _tl257601257696_ - _e257606257699_ - _hd257605257702_ - _tl257604257704_ - _e257609257707_ - _hd257608257710_ - _tl257607257712_ - _e257612257715_ - _hd257611257718_ - _tl257610257720_ - _e257615257723_ - _hd257614257726_ - _tl257613257728_ - _e257618257731_ - _hd257617257734_ - _tl257616257736_) - (let ((_L257739_ _hd257617257734_) - (_L257740_ _hd257608257710_) - (_L257741_ _hd257593257670_) - (_L257742_ _hd257590257662_)) + (cons '%#call __tmp276479)))))) + (let ((___match275420275421_ + (lambda (_e258789258852_ + _hd258788258855_ + _tl258787258857_ + _e258792258860_ + _hd258791258863_ + _tl258790258865_ + _e258795258868_ + _hd258794258871_ + _tl258793258873_ + _e258798258876_ + _hd258797258879_ + _tl258796258881_ + _e258801258884_ + _hd258800258887_ + _tl258799258889_ + _e258804258892_ + _hd258803258895_ + _tl258802258897_ + _e258807258900_ + _hd258806258903_ + _tl258805258905_ + _e258810258908_ + _hd258809258911_ + _tl258808258913_ + _e258813258916_ + _hd258812258919_ + _tl258811258921_ + _e258816258924_ + _hd258815258927_ + _tl258814258929_ + _e258819258932_ + _hd258818258935_ + _tl258817258937_) + (let ((_L258940_ _hd258818258935_) + (_L258941_ _hd258809258911_) + (_L258942_ _hd258794258871_) + (_L258943_ _hd258791258863_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L257740_ - _negation-id257317_)) - (___kont274126274127_ - _L257739_ - _L257740_ - _L257741_ - _L257742_) - (___kont274128274129_)))))) + _L258941_ + _negation-id258518_)) + (___kont275327275328_ + _L258940_ + _L258941_ + _L258942_ + _L258943_) + (___kont275329275330_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274124274125_)) - (let ((_e257588257651_ + (gx#stx-pair? ___stx275325275326_)) + (let ((_e258789258852_ (let () (declare (not safe)) (gx#stx-e - ___stx274124274125_)))) - (let ((_tl257586257656_ + ___stx275325275326_)))) + (let ((_tl258787258857_ (let () (declare (not safe)) - (##cdr _e257588257651_))) - (_hd257587257654_ + (##cdr _e258789258852_))) + (_hd258788258855_ (let () (declare (not safe)) - (##car _e257588257651_)))) + (##car _e258789258852_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257587257654_)) + _hd258788258855_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd257587257654_)) + _hd258788258855_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257586257656_)) - (let ((_e257591257659_ + _tl258787258857_)) + (let ((_e258792258860_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl257586257656_)))) - (let ((_tl257589257664_ + (gx#stx-e _tl258787258857_)))) + (let ((_tl258790258865_ (let () (declare (not safe)) - (##cdr _e257591257659_))) - (_hd257590257662_ + (##cdr _e258792258860_))) + (_hd258791258863_ (let () (declare (not safe)) - (##car _e257591257659_)))) + (##car _e258792258860_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257589257664_)) - (let ((_e257594257667_ + (gx#stx-pair? _tl258790258865_)) + (let ((_e258795258868_ (let () (declare (not safe)) - (gx#stx-e _tl257589257664_)))) - (let ((_tl257592257672_ + (gx#stx-e _tl258790258865_)))) + (let ((_tl258793258873_ (let () (declare (not safe)) - (##cdr _e257594257667_))) - (_hd257593257670_ + (##cdr _e258795258868_))) + (_hd258794258871_ (let () (declare (not safe)) - (##car _e257594257667_)))) + (##car _e258795258868_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257592257672_)) - (let ((_e257597257675_ + (gx#stx-pair? _tl258793258873_)) + (let ((_e258798258876_ (let () (declare (not safe)) - (gx#stx-e _tl257592257672_)))) - (let ((_tl257595257680_ + (gx#stx-e _tl258793258873_)))) + (let ((_tl258796258881_ (let () (declare (not safe)) - (##cdr _e257597257675_))) - (_hd257596257678_ + (##cdr _e258798258876_))) + (_hd258797258879_ (let () (declare (not safe)) - (##car _e257597257675_)))) + (##car _e258798258876_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257596257678_)) - (let ((_e257600257683_ + (gx#stx-pair? _hd258797258879_)) + (let ((_e258801258884_ (let () (declare (not safe)) (gx#stx-e - _hd257596257678_)))) - (let ((_tl257598257688_ + _hd258797258879_)))) + (let ((_tl258799258889_ (let () (declare (not safe)) - (##cdr _e257600257683_))) - (_hd257599257686_ + (##cdr _e258801258884_))) + (_hd258800258887_ (let () (declare (not safe)) - (##car _e257600257683_)))) + (##car _e258801258884_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257599257686_)) + _hd258800258887_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd257599257686_)) + _hd258800258887_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257598257688_)) - (let ((_e257603257691_ + _tl258799258889_)) + (let ((_e258804258892_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl257598257688_)))) - (let ((_tl257601257696_ + (gx#stx-e _tl258799258889_)))) + (let ((_tl258802258897_ (let () (declare (not safe)) - (##cdr _e257603257691_))) - (_hd257602257694_ + (##cdr _e258804258892_))) + (_hd258803258895_ (let () (declare (not safe)) - (##car _e257603257691_)))) + (##car _e258804258892_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257602257694_)) - (let ((_e257606257699_ + (gx#stx-pair? _hd258803258895_)) + (let ((_e258807258900_ (let () (declare (not safe)) - (gx#stx-e _hd257602257694_)))) - (let ((_tl257604257704_ + (gx#stx-e _hd258803258895_)))) + (let ((_tl258805258905_ (let () (declare (not safe)) - (##cdr _e257606257699_))) - (_hd257605257702_ + (##cdr _e258807258900_))) + (_hd258806258903_ (let () (declare (not safe)) - (##car _e257606257699_)))) + (##car _e258807258900_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257605257702_)) + (gx#identifier? _hd258806258903_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd257605257702_)) + (gx#stx-eq? '%#ref _hd258806258903_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257604257704_)) - (let ((_e257609257707_ + (gx#stx-pair? _tl258805258905_)) + (let ((_e258810258908_ (let () (declare (not safe)) (gx#stx-e - _tl257604257704_)))) - (let ((_tl257607257712_ + _tl258805258905_)))) + (let ((_tl258808258913_ (let () (declare (not safe)) - (##cdr _e257609257707_))) - (_hd257608257710_ + (##cdr _e258810258908_))) + (_hd258809258911_ (let () (declare (not safe)) - (##car _e257609257707_)))) + (##car _e258810258908_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257607257712_)) + _tl258808258913_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257601257696_)) - (let ((_e257612257715_ + _tl258802258897_)) + (let ((_e258813258916_ (let () (declare (not safe)) (gx#stx-e - _tl257601257696_)))) - (let ((_tl257610257720_ + _tl258802258897_)))) + (let ((_tl258811258921_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e257612257715_))) - (_hd257611257718_ - (let () (declare (not safe)) (##car _e257612257715_)))) + (##cdr _e258813258916_))) + (_hd258812258919_ + (let () (declare (not safe)) (##car _e258813258916_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257611257718_)) - (let ((_e257615257723_ + (gx#stx-pair? _hd258812258919_)) + (let ((_e258816258924_ (let () (declare (not safe)) - (gx#stx-e _hd257611257718_)))) - (let ((_tl257613257728_ + (gx#stx-e _hd258812258919_)))) + (let ((_tl258814258929_ (let () (declare (not safe)) - (##cdr _e257615257723_))) - (_hd257614257726_ + (##cdr _e258816258924_))) + (_hd258815258927_ (let () (declare (not safe)) - (##car _e257615257723_)))) + (##car _e258816258924_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257614257726_)) + (gx#identifier? _hd258815258927_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd257614257726_)) + (gx#stx-eq? '%#ref _hd258815258927_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257613257728_)) - (let ((_e257618257731_ + (gx#stx-pair? _tl258814258929_)) + (let ((_e258819258932_ (let () (declare (not safe)) - (gx#stx-e _tl257613257728_)))) - (let ((_tl257616257736_ + (gx#stx-e _tl258814258929_)))) + (let ((_tl258817258937_ (let () (declare (not safe)) - (##cdr _e257618257731_))) - (_hd257617257734_ + (##cdr _e258819258932_))) + (_hd258818258935_ (let () (declare (not safe)) - (##car _e257618257731_)))) + (##car _e258819258932_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257616257736_)) + (gx#stx-null? _tl258817258937_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl257610257720_)) + _tl258811258921_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl257595257680_)) - (___match274219274220_ - _e257588257651_ - _hd257587257654_ - _tl257586257656_ - _e257591257659_ - _hd257590257662_ - _tl257589257664_ - _e257594257667_ - _hd257593257670_ - _tl257592257672_ - _e257597257675_ - _hd257596257678_ - _tl257595257680_ - _e257600257683_ - _hd257599257686_ - _tl257598257688_ - _e257603257691_ - _hd257602257694_ - _tl257601257696_ - _e257606257699_ - _hd257605257702_ - _tl257604257704_ - _e257609257707_ - _hd257608257710_ - _tl257607257712_ - _e257612257715_ - _hd257611257718_ - _tl257610257720_ - _e257615257723_ - _hd257614257726_ - _tl257613257728_ - _e257618257731_ - _hd257617257734_ - _tl257616257736_) - (___kont274128274129_)) - (___kont274128274129_)) - (___kont274128274129_)))) - (___kont274128274129_)) - (___kont274128274129_)) - (___kont274128274129_)))) - (___kont274128274129_)))) + _tl258796258881_)) + (___match275420275421_ + _e258789258852_ + _hd258788258855_ + _tl258787258857_ + _e258792258860_ + _hd258791258863_ + _tl258790258865_ + _e258795258868_ + _hd258794258871_ + _tl258793258873_ + _e258798258876_ + _hd258797258879_ + _tl258796258881_ + _e258801258884_ + _hd258800258887_ + _tl258799258889_ + _e258804258892_ + _hd258803258895_ + _tl258802258897_ + _e258807258900_ + _hd258806258903_ + _tl258805258905_ + _e258810258908_ + _hd258809258911_ + _tl258808258913_ + _e258813258916_ + _hd258812258919_ + _tl258811258921_ + _e258816258924_ + _hd258815258927_ + _tl258814258929_ + _e258819258932_ + _hd258818258935_ + _tl258817258937_) + (___kont275329275330_)) + (___kont275329275330_)) + (___kont275329275330_)))) + (___kont275329275330_)) + (___kont275329275330_)) + (___kont275329275330_)))) + (___kont275329275330_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274128274129_)) - (___kont274128274129_)))) - (___kont274128274129_)) - (___kont274128274129_)) - (___kont274128274129_)))) - (___kont274128274129_)))) - (___kont274128274129_)) + (___kont275329275330_)) + (___kont275329275330_)))) + (___kont275329275330_)) + (___kont275329275330_)) + (___kont275329275330_)))) + (___kont275329275330_)))) + (___kont275329275330_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274128274129_)) - (___kont274128274129_)))) - (___kont274128274129_)))) - (___kont274128274129_)))) - (___kont274128274129_)))) - (___kont274128274129_)) + (___kont275329275330_)) + (___kont275329275330_)))) + (___kont275329275330_)))) + (___kont275329275330_)))) + (___kont275329275330_)))) + (___kont275329275330_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274128274129_)) - (___kont274128274129_)))) - (___kont274128274129_)))))))) - (let* ((___match274479274480_ - (lambda (_e257421257461_ - _hd257420257464_ - _tl257419257466_ - _e257424257469_ - _hd257423257472_ - _tl257422257474_ - _e257427257477_ - _hd257426257480_ - _tl257425257482_ - _e257430257485_ - _hd257429257488_ - _tl257428257490_ - ___splice274234274235_ - _target257431257493_ - _tl257433257495_) - (letrec ((_loop257434257498_ - (lambda (_hd257432257501_ - _id257438257503_) + (___kont275329275330_)) + (___kont275329275330_)))) + (___kont275329275330_)))))))) + (let* ((___match275680275681_ + (lambda (_e258622258662_ + _hd258621258665_ + _tl258620258667_ + _e258625258670_ + _hd258624258673_ + _tl258623258675_ + _e258628258678_ + _hd258627258681_ + _tl258626258683_ + _e258631258686_ + _hd258630258689_ + _tl258629258691_ + ___splice275435275436_ + _target258632258694_ + _tl258634258696_) + (letrec ((_loop258635258699_ + (lambda (_hd258633258702_ + _id258639258704_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257432257501_)) - (let ((_e257435257506_ + _hd258633258702_)) + (let ((_e258636258707_ (let () (declare (not safe)) (gx#stx-e - _hd257432257501_)))) - (let ((_lp-tl257437257511_ + _hd258633258702_)))) + (let ((_lp-tl258638258712_ (let () (declare (not safe)) - (##cdr _e257435257506_))) - (_lp-hd257436257509_ + (##cdr _e258636258707_))) + (_lp-hd258637258710_ (let () (declare (not safe)) - (##car _e257435257506_)))) - (let ((__tmp275284 + (##car _e258636258707_)))) + (let ((__tmp276485 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd257436257509_ _id257438257503_)))) + (cons _lp-hd258637258710_ _id258639258704_)))) (declare (not safe)) - (_loop257434257498_ _lp-tl257437257511_ __tmp275284)))) + (_loop258635258699_ _lp-tl258638258712_ __tmp276485)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id257439257514_ - (reverse _id257438257503_))) + (let ((_id258640258715_ + (reverse _id258639258704_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257428257490_)) - (let ((_e257442257517_ + _tl258629258691_)) + (let ((_e258643258718_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl257428257490_)))) - (let ((_tl257440257522_ - (let () (declare (not safe)) (##cdr _e257442257517_))) - (_hd257441257520_ + (gx#stx-e _tl258629258691_)))) + (let ((_tl258641258723_ + (let () (declare (not safe)) (##cdr _e258643258718_))) + (_hd258642258721_ (let () (declare (not safe)) - (##car _e257442257517_)))) + (##car _e258643258718_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257440257522_)) + (gx#stx-null? _tl258641258723_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl257422257474_)) - (let ((___splice274236274237_ + (gx#stx-pair/null? _tl258623258675_)) + (let ((___splice275437275438_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl257422257474_ + _tl258623258675_ '0)))) - (let ((_tl257445257527_ + (let ((_tl258646258728_ (let () (declare (not safe)) (##vector-ref - ___splice274236274237_ + ___splice275437275438_ '1))) - (_target257443257525_ + (_target258644258726_ (let () (declare (not safe)) (##vector-ref - ___splice274236274237_ + ___splice275437275438_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257445257527_)) - (letrec ((_loop257446257530_ - (lambda (_hd257444257533_ - _arg257450257535_) + (gx#stx-null? _tl258646258728_)) + (letrec ((_loop258647258731_ + (lambda (_hd258645258734_ + _arg258651258736_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257444257533_)) - (let ((_e257447257538_ + _hd258645258734_)) + (let ((_e258648258739_ (let () (declare (not safe)) (gx#stx-e - _hd257444257533_)))) - (let ((_lp-tl257449257543_ + _hd258645258734_)))) + (let ((_lp-tl258650258744_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e257447257538_))) - (_lp-hd257448257541_ - (let () (declare (not safe)) (##car _e257447257538_)))) - (let ((__tmp275283 + (##cdr _e258648258739_))) + (_lp-hd258649258742_ + (let () (declare (not safe)) (##car _e258648258739_)))) + (let ((__tmp276484 (let () (declare (not safe)) - (cons _lp-hd257448257541_ _arg257450257535_)))) + (cons _lp-hd258649258742_ _arg258651258736_)))) (declare (not safe)) - (_loop257446257530_ _lp-tl257449257543_ __tmp275283)))) + (_loop258647258731_ _lp-tl258650258744_ __tmp276484)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg257451257546_ - (reverse _arg257450257535_))) - (___kont274232274233_ - _arg257451257546_ - _hd257441257520_ - _id257439257514_)))))) + (let ((_arg258652258747_ + (reverse _arg258651258736_))) + (___kont275433275434_ + _arg258652258747_ + _hd258642258721_ + _id258640258715_)))))) (let () (declare (not safe)) - (_loop257446257530_ - _target257443257525_ + (_loop258647258731_ + _target258644258726_ '()))) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))) - (let () (declare (not safe)) (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))))))) + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))) + (let () (declare (not safe)) (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop257434257498_ - _target257431257493_ + (_loop258635258699_ + _target258632258694_ '()))))) - (___match274361274362_ - (lambda (_e257347257965_ - _hd257346257968_ - _tl257345257970_ - _e257350257973_ - _hd257349257976_ - _tl257348257978_ - _e257353257981_ - _hd257352257984_ - _tl257351257986_ - _e257356257989_ - _hd257355257992_ - _tl257354257994_ - _e257359257997_ - _hd257358258000_ - _tl257357258002_ - _e257362258005_ - _hd257361258008_ - _tl257360258010_ - _e257365258013_ - _hd257364258016_ - _tl257363258018_ - _e257368258021_ - _hd257367258024_ - _tl257366258026_ - _e257371258029_ - _hd257370258032_ - _tl257369258034_ - _e257374258037_ - _hd257373258040_ - _tl257372258042_ - _e257377258045_ - _hd257376258048_ - _tl257375258050_ - _e257380258053_ - _hd257379258056_ - _tl257378258058_) - (let ((_L258061_ _hd257379258056_) - (_L258062_ _tl257369258034_) - (_L258063_ _hd257376258048_) - (_L258064_ _hd257361258008_) - (_L258065_ _hd257358258000_)) + (___match275562275563_ + (lambda (_e258548259166_ + _hd258547259169_ + _tl258546259171_ + _e258551259174_ + _hd258550259177_ + _tl258549259179_ + _e258554259182_ + _hd258553259185_ + _tl258552259187_ + _e258557259190_ + _hd258556259193_ + _tl258555259195_ + _e258560259198_ + _hd258559259201_ + _tl258558259203_ + _e258563259206_ + _hd258562259209_ + _tl258561259211_ + _e258566259214_ + _hd258565259217_ + _tl258564259219_ + _e258569259222_ + _hd258568259225_ + _tl258567259227_ + _e258572259230_ + _hd258571259233_ + _tl258570259235_ + _e258575259238_ + _hd258574259241_ + _tl258573259243_ + _e258578259246_ + _hd258577259249_ + _tl258576259251_ + _e258581259254_ + _hd258580259257_ + _tl258579259259_) + (let ((_L259262_ _hd258580259257_) + (_L259263_ _tl258570259235_) + (_L259264_ _hd258577259249_) + (_L259265_ _hd258562259209_) + (_L259266_ _hd258559259201_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L258063_ + _L259264_ 'gx#syntax-split-splice)) - (___kont274226274227_ - _L258061_ - _L258062_ - _L258063_ - _L258064_ - _L258065_) - (___kont274228274229_ - _hd257379258056_ - _hd257349257976_)))))) + (___kont275427275428_ + _L259262_ + _L259263_ + _L259264_ + _L259265_ + _L259266_) + (___kont275429275430_ + _hd258580259257_ + _hd258550259177_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274222274223_)) - (let ((_e257330258113_ + (gx#stx-pair? ___stx275423275424_)) + (let ((_e258531259314_ (let () (declare (not safe)) - (gx#stx-e ___stx274222274223_)))) - (let ((_tl257328258118_ + (gx#stx-e ___stx275423275424_)))) + (let ((_tl258529259319_ (let () (declare (not safe)) - (##cdr _e257330258113_))) - (_hd257329258116_ + (##cdr _e258531259314_))) + (_hd258530259317_ (let () (declare (not safe)) - (##car _e257330258113_)))) + (##car _e258531259314_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257329258116_)) + (gx#identifier? _hd258530259317_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd257329258116_)) + _hd258530259317_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257328258118_)) - (let ((_e257333258121_ + _tl258529259319_)) + (let ((_e258534259322_ (let () (declare (not safe)) (gx#stx-e - _tl257328258118_)))) - (let ((_tl257331258126_ + _tl258529259319_)))) + (let ((_tl258532259327_ (let () (declare (not safe)) - (##cdr _e257333258121_))) - (_hd257332258124_ + (##cdr _e258534259322_))) + (_hd258533259325_ (let () (declare (not safe)) - (##car _e257333258121_)))) + (##car _e258534259322_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257331258126_)) - (let ((_e257336258129_ + _tl258532259327_)) + (let ((_e258537259330_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl257331258126_)))) - (let ((_tl257334258134_ - (let () (declare (not safe)) (##cdr _e257336258129_))) - (_hd257335258132_ - (let () (declare (not safe)) (##car _e257336258129_)))) + (gx#stx-e _tl258532259327_)))) + (let ((_tl258535259335_ + (let () (declare (not safe)) (##cdr _e258537259330_))) + (_hd258536259333_ + (let () (declare (not safe)) (##car _e258537259330_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257334258134_)) - (let ((_e257339258137_ + (gx#stx-pair? _tl258535259335_)) + (let ((_e258540259338_ (let () (declare (not safe)) - (gx#stx-e _tl257334258134_)))) - (let ((_tl257337258142_ + (gx#stx-e _tl258535259335_)))) + (let ((_tl258538259343_ (let () (declare (not safe)) - (##cdr _e257339258137_))) - (_hd257338258140_ + (##cdr _e258540259338_))) + (_hd258539259341_ (let () (declare (not safe)) - (##car _e257339258137_)))) + (##car _e258540259338_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257337258142_)) - (___kont274224274225_ - _hd257338258140_ - _hd257335258132_ - _hd257332258124_) + (gx#stx-null? _tl258538259343_)) + (___kont275425275426_ + _hd258539259341_ + _hd258536259333_ + _hd258533259325_) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))))) + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257323257456_))) + (_g258524258657_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd257329258116_)) + _hd258530259317_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257328258118_)) - (let ((_e257350257973_ + _tl258529259319_)) + (let ((_e258551259174_ (let () (declare (not safe)) (gx#stx-e - _tl257328258118_)))) - (let ((_tl257348257978_ + _tl258529259319_)))) + (let ((_tl258549259179_ (let () (declare (not safe)) - (##cdr _e257350257973_))) - (_hd257349257976_ + (##cdr _e258551259174_))) + (_hd258550259177_ (let () (declare (not safe)) - (##car _e257350257973_)))) + (##car _e258551259174_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257349257976_)) - (let ((_e257353257981_ + _hd258550259177_)) + (let ((_e258554259182_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd257349257976_)))) - (let ((_tl257351257986_ + (gx#stx-e _hd258550259177_)))) + (let ((_tl258552259187_ (let () (declare (not safe)) - (##cdr _e257353257981_))) - (_hd257352257984_ + (##cdr _e258554259182_))) + (_hd258553259185_ (let () (declare (not safe)) - (##car _e257353257981_)))) + (##car _e258554259182_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257352257984_)) - (let ((_e257356257989_ + (gx#stx-pair? _hd258553259185_)) + (let ((_e258557259190_ (let () (declare (not safe)) - (gx#stx-e _hd257352257984_)))) - (let ((_tl257354257994_ + (gx#stx-e _hd258553259185_)))) + (let ((_tl258555259195_ (let () (declare (not safe)) - (##cdr _e257356257989_))) - (_hd257355257992_ + (##cdr _e258557259190_))) + (_hd258556259193_ (let () (declare (not safe)) - (##car _e257356257989_)))) + (##car _e258557259190_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257355257992_)) - (let ((_e257359257997_ + (gx#stx-pair? _hd258556259193_)) + (let ((_e258560259198_ (let () (declare (not safe)) - (gx#stx-e _hd257355257992_)))) - (let ((_tl257357258002_ + (gx#stx-e _hd258556259193_)))) + (let ((_tl258558259203_ (let () (declare (not safe)) - (##cdr _e257359257997_))) - (_hd257358258000_ + (##cdr _e258560259198_))) + (_hd258559259201_ (let () (declare (not safe)) - (##car _e257359257997_)))) + (##car _e258560259198_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257357258002_)) - (let ((_e257362258005_ + (gx#stx-pair? _tl258558259203_)) + (let ((_e258563259206_ (let () (declare (not safe)) (gx#stx-e - _tl257357258002_)))) - (let ((_tl257360258010_ + _tl258558259203_)))) + (let ((_tl258561259211_ (let () (declare (not safe)) - (##cdr _e257362258005_))) - (_hd257361258008_ + (##cdr _e258563259206_))) + (_hd258562259209_ (let () (declare (not safe)) - (##car _e257362258005_)))) + (##car _e258563259206_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257360258010_)) + _tl258561259211_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257354257994_)) - (let ((_e257365258013_ + _tl258555259195_)) + (let ((_e258566259214_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl257354257994_)))) - (let ((_tl257363258018_ - (let () (declare (not safe)) (##cdr _e257365258013_))) - (_hd257364258016_ - (let () (declare (not safe)) (##car _e257365258013_)))) + (gx#stx-e _tl258555259195_)))) + (let ((_tl258564259219_ + (let () (declare (not safe)) (##cdr _e258566259214_))) + (_hd258565259217_ + (let () (declare (not safe)) (##car _e258566259214_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257364258016_)) - (let ((_e257368258021_ + (gx#stx-pair? _hd258565259217_)) + (let ((_e258569259222_ (let () (declare (not safe)) - (gx#stx-e _hd257364258016_)))) - (let ((_tl257366258026_ + (gx#stx-e _hd258565259217_)))) + (let ((_tl258567259227_ (let () (declare (not safe)) - (##cdr _e257368258021_))) - (_hd257367258024_ + (##cdr _e258569259222_))) + (_hd258568259225_ (let () (declare (not safe)) - (##car _e257368258021_)))) + (##car _e258569259222_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257367258024_)) + (gx#identifier? _hd258568259225_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd257367258024_)) + (gx#stx-eq? '%#call _hd258568259225_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257366258026_)) - (let ((_e257371258029_ + (gx#stx-pair? _tl258567259227_)) + (let ((_e258572259230_ (let () (declare (not safe)) - (gx#stx-e _tl257366258026_)))) - (let ((_tl257369258034_ + (gx#stx-e _tl258567259227_)))) + (let ((_tl258570259235_ (let () (declare (not safe)) - (##cdr _e257371258029_))) - (_hd257370258032_ + (##cdr _e258572259230_))) + (_hd258571259233_ (let () (declare (not safe)) - (##car _e257371258029_)))) + (##car _e258572259230_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257370258032_)) - (let ((_e257374258037_ + _hd258571259233_)) + (let ((_e258575259238_ (let () (declare (not safe)) (gx#stx-e - _hd257370258032_)))) - (let ((_tl257372258042_ + _hd258571259233_)))) + (let ((_tl258573259243_ (let () (declare (not safe)) - (##cdr _e257374258037_))) - (_hd257373258040_ + (##cdr _e258575259238_))) + (_hd258574259241_ (let () (declare (not safe)) - (##car _e257374258037_)))) + (##car _e258575259238_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257373258040_)) + _hd258574259241_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd257373258040_)) + _hd258574259241_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl257372258042_)) - (let ((_e257377258045_ + (gx#stx-pair? _tl258573259243_)) + (let ((_e258578259246_ (let () (declare (not safe)) - (gx#stx-e _tl257372258042_)))) - (let ((_tl257375258050_ + (gx#stx-e _tl258573259243_)))) + (let ((_tl258576259251_ (let () (declare (not safe)) - (##cdr _e257377258045_))) - (_hd257376258048_ + (##cdr _e258578259246_))) + (_hd258577259249_ (let () (declare (not safe)) - (##car _e257377258045_)))) + (##car _e258578259246_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257375258050_)) + (gx#stx-null? _tl258576259251_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257363258018_)) + (gx#stx-null? _tl258564259219_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl257351257986_)) + (gx#stx-null? _tl258552259187_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257380258053_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258581259254_ (let () (declare (not safe)) (gx#stx-e - _tl257348257978_)))) - (let ((_tl257378258058_ + _tl258549259179_)))) + (let ((_tl258579259259_ (let () (declare (not safe)) - (##cdr _e257380258053_))) - (_hd257379258056_ + (##cdr _e258581259254_))) + (_hd258580259257_ (let () (declare (not safe)) - (##car _e257380258053_)))) + (##car _e258581259254_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257378258058_)) - (___match274361274362_ - _e257330258113_ - _hd257329258116_ - _tl257328258118_ - _e257350257973_ - _hd257349257976_ - _tl257348257978_ - _e257353257981_ - _hd257352257984_ - _tl257351257986_ - _e257356257989_ - _hd257355257992_ - _tl257354257994_ - _e257359257997_ - _hd257358258000_ - _tl257357258002_ - _e257362258005_ - _hd257361258008_ - _tl257360258010_ - _e257365258013_ - _hd257364258016_ - _tl257363258018_ - _e257368258021_ - _hd257367258024_ - _tl257366258026_ - _e257371258029_ - _hd257370258032_ - _tl257369258034_ - _e257374258037_ - _hd257373258040_ - _tl257372258042_ - _e257377258045_ - _hd257376258048_ - _tl257375258050_ - _e257380258053_ - _hd257379258056_ - _tl257378258058_) + _tl258579259259_)) + (___match275562275563_ + _e258531259314_ + _hd258530259317_ + _tl258529259319_ + _e258551259174_ + _hd258550259177_ + _tl258549259179_ + _e258554259182_ + _hd258553259185_ + _tl258552259187_ + _e258557259190_ + _hd258556259193_ + _tl258555259195_ + _e258560259198_ + _hd258559259201_ + _tl258558259203_ + _e258563259206_ + _hd258562259209_ + _tl258561259211_ + _e258566259214_ + _hd258565259217_ + _tl258564259219_ + _e258569259222_ + _hd258568259225_ + _tl258567259227_ + _e258572259230_ + _hd258571259233_ + _tl258570259235_ + _e258575259238_ + _hd258574259241_ + _tl258573259243_ + _e258578259246_ + _hd258577259249_ + _tl258576259251_ + _e258581259254_ + _hd258580259257_ + _tl258579259259_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_))) + (_g258524258657_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) (gx#stx-e - _tl257348257978_)))) - (let ((_tl257389257940_ + _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))) + (_g258524258657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))) + (_g258524258657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))))) + (_g258524258657_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))) + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) - (let () (declare (not safe)) (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))))) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) + (let () (declare (not safe)) (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl257348257978_)) - (let ((_e257391257935_ + _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) (gx#stx-e - _tl257348257978_)))) - (let ((_tl257389257940_ + _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))))) + (_g258524258657_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) (gx#stx-e - _tl257348257978_)))) - (let ((_tl257389257940_ + _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))) + (_g258524258657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))) + (_g258524258657_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))))) + (_g258524258657_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))))) - (if (let () (declare (not safe)) (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))))) + (if (let () (declare (not safe)) (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) - (let () (declare (not safe)) (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) + (let () (declare (not safe)) (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl257348257978_)) - (let ((_e257391257935_ + _tl258549259179_)) + (let ((_e258592259136_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ - (let () (declare (not safe)) (##cdr _e257391257935_))) - (_hd257390257938_ - (let () (declare (not safe)) (##car _e257391257935_)))) + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ + (let () (declare (not safe)) (##cdr _e258592259136_))) + (_hd258591259139_ + (let () (declare (not safe)) (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ _hd257390257938_ _hd257349257976_) - (let () (declare (not safe)) (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))))) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ _hd258591259139_ _hd258550259177_) + (let () (declare (not safe)) (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl257348257978_)) - (let ((_e257391257935_ + _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) (gx#stx-e - _tl257348257978_)))) - (let ((_tl257389257940_ + _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))))) + (_g258524258657_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))))) + (_g258524258657_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))))) + (_g258524258657_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257348257978_)) - (let ((_e257391257935_ + (gx#stx-pair? _tl258549259179_)) + (let ((_e258592259136_ (let () (declare (not safe)) - (gx#stx-e _tl257348257978_)))) - (let ((_tl257389257940_ + (gx#stx-e _tl258549259179_)))) + (let ((_tl258590259141_ (let () (declare (not safe)) - (##cdr _e257391257935_))) - (_hd257390257938_ + (##cdr _e258592259136_))) + (_hd258591259139_ (let () (declare (not safe)) - (##car _e257391257935_)))) + (##car _e258592259136_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257389257940_)) - (___kont274228274229_ - _hd257390257938_ - _hd257349257976_) + (gx#stx-null? _tl258590259141_)) + (___kont275429275430_ + _hd258591259139_ + _hd258550259177_) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_)))))) + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257323257456_))) + (_g258524258657_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd257329258116_)) + _hd258530259317_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257328258118_)) - (let ((_e257400257839_ + _tl258529259319_)) + (let ((_e258601259040_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl257328258118_)))) - (let ((_tl257398257844_ - (let () (declare (not safe)) (##cdr _e257400257839_))) - (_hd257399257842_ - (let () (declare (not safe)) (##car _e257400257839_)))) + (gx#stx-e _tl258529259319_)))) + (let ((_tl258599259045_ + (let () (declare (not safe)) (##cdr _e258601259040_))) + (_hd258600259043_ + (let () (declare (not safe)) (##car _e258601259040_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257399257842_)) - (let ((_e257403257847_ + (gx#stx-pair? _hd258600259043_)) + (let ((_e258604259048_ (let () (declare (not safe)) - (gx#stx-e _hd257399257842_)))) - (let ((_tl257401257852_ + (gx#stx-e _hd258600259043_)))) + (let ((_tl258602259053_ (let () (declare (not safe)) - (##cdr _e257403257847_))) - (_hd257402257850_ + (##cdr _e258604259048_))) + (_hd258603259051_ (let () (declare (not safe)) - (##car _e257403257847_)))) + (##car _e258604259048_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257402257850_)) - (let ((_e257406257855_ + (gx#stx-pair? _hd258603259051_)) + (let ((_e258607259056_ (let () (declare (not safe)) - (gx#stx-e _hd257402257850_)))) - (let ((_tl257404257860_ + (gx#stx-e _hd258603259051_)))) + (let ((_tl258605259061_ (let () (declare (not safe)) - (##cdr _e257406257855_))) - (_hd257405257858_ + (##cdr _e258607259056_))) + (_hd258606259059_ (let () (declare (not safe)) - (##car _e257406257855_)))) + (##car _e258607259056_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257405257858_)) - (let ((_e257409257863_ + (gx#stx-pair? _hd258606259059_)) + (let ((_e258610259064_ (let () (declare (not safe)) - (gx#stx-e _hd257405257858_)))) - (let ((_tl257407257868_ + (gx#stx-e _hd258606259059_)))) + (let ((_tl258608259069_ (let () (declare (not safe)) - (##cdr _e257409257863_))) - (_hd257408257866_ + (##cdr _e258610259064_))) + (_hd258609259067_ (let () (declare (not safe)) - (##car _e257409257863_)))) + (##car _e258610259064_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257407257868_)) + _tl258608259069_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257404257860_)) - (let ((_e257412257871_ + _tl258605259061_)) + (let ((_e258613259072_ (let () (declare (not safe)) (gx#stx-e - _tl257404257860_)))) - (let ((_tl257410257876_ + _tl258605259061_)))) + (let ((_tl258611259077_ (let () (declare (not safe)) - (##cdr _e257412257871_))) - (_hd257411257874_ + (##cdr _e258613259072_))) + (_hd258612259075_ (let () (declare (not safe)) - (##car _e257412257871_)))) + (##car _e258613259072_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257410257876_)) + _tl258611259077_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl257401257852_)) + (gx#stx-null? _tl258602259053_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257398257844_)) - (let ((_e257415257879_ + (gx#stx-pair? _tl258599259045_)) + (let ((_e258616259080_ (let () (declare (not safe)) - (gx#stx-e _tl257398257844_)))) - (let ((_tl257413257884_ + (gx#stx-e _tl258599259045_)))) + (let ((_tl258614259085_ (let () (declare (not safe)) - (##cdr _e257415257879_))) - (_hd257414257882_ + (##cdr _e258616259080_))) + (_hd258615259083_ (let () (declare (not safe)) - (##car _e257415257879_)))) + (##car _e258616259080_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257413257884_)) - (___kont274230274231_ - _hd257414257882_ - _hd257411257874_ - _hd257408257866_) + (gx#stx-null? _tl258614259085_)) + (___kont275431275432_ + _hd258615259083_ + _hd258612259075_ + _hd258609259067_) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))) - (let () (declare (not safe)) (_g257323257456_))) - (let () (declare (not safe)) (_g257323257456_))))) + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))) + (let () (declare (not safe)) (_g258524258657_))) + (let () (declare (not safe)) (_g258524258657_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257323257456_))) + (_g258524258657_))) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))) + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd257329258116_)) + _hd258530259317_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257328258118_)) - (let ((_e257424257469_ + _tl258529259319_)) + (let ((_e258625258670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl257328258118_)))) - (let ((_tl257422257474_ + (gx#stx-e _tl258529259319_)))) + (let ((_tl258623258675_ (let () (declare (not safe)) - (##cdr _e257424257469_))) - (_hd257423257472_ + (##cdr _e258625258670_))) + (_hd258624258673_ (let () (declare (not safe)) - (##car _e257424257469_)))) + (##car _e258625258670_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257423257472_)) - (let ((_e257427257477_ + (gx#stx-pair? _hd258624258673_)) + (let ((_e258628258678_ (let () (declare (not safe)) - (gx#stx-e _hd257423257472_)))) - (let ((_tl257425257482_ + (gx#stx-e _hd258624258673_)))) + (let ((_tl258626258683_ (let () (declare (not safe)) - (##cdr _e257427257477_))) - (_hd257426257480_ + (##cdr _e258628258678_))) + (_hd258627258681_ (let () (declare (not safe)) - (##car _e257427257477_)))) + (##car _e258628258678_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257426257480_)) + (gx#identifier? _hd258627258681_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd257426257480_)) + _hd258627258681_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257425257482_)) - (let ((_e257430257485_ + (gx#stx-pair? _tl258626258683_)) + (let ((_e258631258686_ (let () (declare (not safe)) (gx#stx-e - _tl257425257482_)))) - (let ((_tl257428257490_ + _tl258626258683_)))) + (let ((_tl258629258691_ (let () (declare (not safe)) - (##cdr _e257430257485_))) - (_hd257429257488_ + (##cdr _e258631258686_))) + (_hd258630258689_ (let () (declare (not safe)) - (##car _e257430257485_)))) + (##car _e258631258686_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd257429257488_)) - (let ((___splice274234274235_ + _hd258630258689_)) + (let ((___splice275435275436_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd257429257488_ + _hd258630258689_ '0)))) - (let ((_tl257433257495_ + (let ((_tl258634258696_ (let () (declare (not safe)) (##vector-ref - ___splice274234274235_ + ___splice275435275436_ '1))) - (_target257431257493_ + (_target258632258694_ (let () (declare (not safe)) (##vector-ref - ___splice274234274235_ + ___splice275435275436_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257433257495_)) - (___match274479274480_ - _e257330258113_ - _hd257329258116_ - _tl257328258118_ - _e257424257469_ - _hd257423257472_ - _tl257422257474_ - _e257427257477_ - _hd257426257480_ - _tl257425257482_ - _e257430257485_ - _hd257429257488_ - _tl257428257490_ - ___splice274234274235_ - _target257431257493_ - _tl257433257495_) + _tl258634258696_)) + (___match275680275681_ + _e258531259314_ + _hd258530259317_ + _tl258529259319_ + _e258625258670_ + _hd258624258673_ + _tl258623258675_ + _e258628258678_ + _hd258627258681_ + _tl258626258683_ + _e258631258686_ + _hd258630258689_ + _tl258629258691_ + ___splice275435275436_ + _target258632258694_ + _tl258634258696_) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_))) + (_g258524258657_))) (let () (declare (not safe)) - (_g257323257456_))) + (_g258524258657_))) (let () (declare (not safe)) - (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))))) - (let () (declare (not safe)) (_g257323257456_))) - (let () (declare (not safe)) (_g257323257456_)))))) + (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))))) + (let () (declare (not safe)) (_g258524258657_))) + (let () (declare (not safe)) (_g258524258657_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257323257456_))))) + (_g258524258657_))))) (let () (declare (not safe)) - (_g257323257456_)))))))) - (_xform-loop-e256931_ - (lambda (_expr257140_ - _kont-id257141_ - _kont-box257142_ - _negation-id257143_) - (let* ((_g257145257185_ - (lambda (_g257146257182_) + (_g258524258657_)))))))) + (_xform-loop-e258132_ + (lambda (_expr258341_ + _kont-id258342_ + _kont-box258343_ + _negation-id258344_) + (let* ((_g258346258386_ + (lambda (_g258347258383_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g257146257182_)))) - (_g257144257311_ - (lambda (_g257146257188_) + _g258347258383_)))) + (_g258345258512_ + (lambda (_g258347258389_) (if (let () (declare (not safe)) - (gx#stx-pair? _g257146257188_)) - (let ((_e257153257190_ + (gx#stx-pair? _g258347258389_)) + (let ((_e258354258391_ (let () (declare (not safe)) - (gx#stx-e _g257146257188_)))) - (let ((_hd257152257193_ + (gx#stx-e _g258347258389_)))) + (let ((_hd258353258394_ (let () (declare (not safe)) - (##car _e257153257190_))) - (_tl257151257195_ + (##car _e258354258391_))) + (_tl258352258396_ (let () (declare (not safe)) - (##cdr _e257153257190_)))) + (##cdr _e258354258391_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257152257193_)) + (gx#identifier? _hd258353258394_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd257152257193_)) + _hd258353258394_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257151257195_)) - (let ((_e257156257198_ + _tl258352258396_)) + (let ((_e258357258399_ (let () (declare (not safe)) (gx#stx-e - _tl257151257195_)))) - (let ((_hd257155257201_ + _tl258352258396_)))) + (let ((_hd258356258402_ (let () (declare (not safe)) - (##car _e257156257198_))) - (_tl257154257203_ + (##car _e258357258399_))) + (_tl258355258404_ (let () (declare (not safe)) - (##cdr _e257156257198_)))) + (##cdr _e258357258399_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd257155257201_)) - (let ((_g275285_ + _hd258356258402_)) + (let ((_g276486_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd257155257201_ '0)))) + (gx#syntax-split-splice _hd258356258402_ '0)))) (begin - (let ((_g275286_ + (let ((_g276487_ (let () (declare (not safe)) - (if (##values? _g275285_) - (##vector-length _g275285_) + (if (##values? _g276486_) + (##vector-length _g276486_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g275286_ 2))) - (error "Context expects 2 values" _g275286_))) - (let ((_target257157257206_ + (##fx= _g276487_ 2))) + (error "Context expects 2 values" _g276487_))) + (let ((_target258358258407_ (let () (declare (not safe)) - (##vector-ref _g275285_ 0))) - (_tl257159257208_ + (##vector-ref _g276486_ 0))) + (_tl258360258409_ (let () (declare (not safe)) - (##vector-ref _g275285_ 1)))) + (##vector-ref _g276486_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257159257208_)) - (letrec ((_loop257160257211_ - (lambda (_hd257158257214_ - _id257164257216_) + (gx#stx-null? _tl258360258409_)) + (letrec ((_loop258361258412_ + (lambda (_hd258359258415_ + _id258365258417_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257158257214_)) - (let ((_e257161257219_ + (gx#stx-pair? _hd258359258415_)) + (let ((_e258362258420_ (let () (declare (not safe)) (gx#stx-e - _hd257158257214_)))) - (let ((_lp-hd257162257222_ + _hd258359258415_)))) + (let ((_lp-hd258363258423_ (let () (declare (not safe)) - (##car _e257161257219_))) - (_lp-tl257163257224_ + (##car _e258362258420_))) + (_lp-tl258364258425_ (let () (declare (not safe)) - (##cdr _e257161257219_)))) - (let ((__tmp275295 + (##cdr _e258362258420_)))) + (let ((__tmp276496 (let () (declare (not safe)) - (cons _lp-hd257162257222_ - _id257164257216_)))) + (cons _lp-hd258363258423_ + _id258365258417_)))) (declare (not safe)) - (_loop257160257211_ - _lp-tl257163257224_ - __tmp275295)))) - (let ((_id257165257227_ - (reverse _id257164257216_))) + (_loop258361258412_ + _lp-tl258364258425_ + __tmp276496)))) + (let ((_id258366258428_ + (reverse _id258365258417_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257154257203_)) - (let ((_e257168257230_ + _tl258355258404_)) + (let ((_e258369258431_ (let () (declare (not safe)) (gx#stx-e - _tl257154257203_)))) - (let ((_hd257167257233_ + _tl258355258404_)))) + (let ((_hd258368258434_ (let () (declare (not safe)) - (##car _e257168257230_))) - (_tl257166257235_ + (##car _e258369258431_))) + (_tl258367258436_ (let () (declare (not safe)) - (##cdr _e257168257230_)))) + (##cdr _e258369258431_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd257167257233_)) - (let ((_e257171257238_ + _hd258368258434_)) + (let ((_e258372258439_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd257167257233_)))) - (let ((_hd257170257241_ + (gx#stx-e _hd258368258434_)))) + (let ((_hd258371258442_ (let () (declare (not safe)) - (##car _e257171257238_))) - (_tl257169257243_ + (##car _e258372258439_))) + (_tl258370258444_ (let () (declare (not safe)) - (##cdr _e257171257238_)))) + (##cdr _e258372258439_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd257170257241_)) + (gx#identifier? _hd258371258442_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _hd257170257241_)) + (gx#stx-eq? '%#if _hd258371258442_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257169257243_)) - (let ((_e257174257246_ + (gx#stx-pair? _tl258370258444_)) + (let ((_e258375258447_ (let () (declare (not safe)) - (gx#stx-e _tl257169257243_)))) - (let ((_hd257173257249_ + (gx#stx-e _tl258370258444_)))) + (let ((_hd258374258450_ (let () (declare (not safe)) - (##car _e257174257246_))) - (_tl257172257251_ + (##car _e258375258447_))) + (_tl258373258452_ (let () (declare (not safe)) - (##cdr _e257174257246_)))) + (##cdr _e258375258447_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257172257251_)) - (let ((_e257177257254_ + (gx#stx-pair? _tl258373258452_)) + (let ((_e258378258455_ (let () (declare (not safe)) (gx#stx-e - _tl257172257251_)))) - (let ((_hd257176257257_ + _tl258373258452_)))) + (let ((_hd258377258458_ (let () (declare (not safe)) - (##car _e257177257254_))) - (_tl257175257259_ + (##car _e258378258455_))) + (_tl258376258460_ (let () (declare (not safe)) - (##cdr _e257177257254_)))) + (##cdr _e258378258455_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257175257259_)) - (let ((_e257180257262_ + _tl258376258460_)) + (let ((_e258381258463_ (let () (declare (not safe)) (gx#stx-e - _tl257175257259_)))) - (let ((_hd257179257265_ + _tl258376258460_)))) + (let ((_hd258380258466_ (let () (declare (not safe)) - (##car _e257180257262_))) - (_tl257178257267_ + (##car _e258381258463_))) + (_tl258379258468_ (let () (declare (not safe)) - (##cdr _e257180257262_)))) + (##cdr _e258381258463_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl257178257267_)) + _tl258379258468_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl257166257235_)) - ((lambda (_L257270_ _L257271_ _L257272_ _L257273_) - (let* ((_E257302_ + (gx#stx-null? _tl258367258436_)) + ((lambda (_L258471_ _L258472_ _L258473_ _L258474_) + (let* ((_E258503_ (let () (declare (not safe)) - (_xform-e256930_ - _L257270_ - _kont-id257141_ - _kont-box257142_ - _negation-id257143_))) - (__tmp275287 - (let ((__tmp275293 - (let ((__tmp275294 - (lambda (_g257303257306_ - _g257304257308_) + (_xform-e258131_ + _L258471_ + _kont-id258342_ + _kont-box258343_ + _negation-id258344_))) + (__tmp276488 + (let ((__tmp276494 + (let ((__tmp276495 + (lambda (_g258504258507_ + _g258505258509_) (let () (declare (not safe)) - (cons _g257303257306_ - _g257304257308_))))) + (cons _g258504258507_ + _g258505258509_))))) (declare (not safe)) - (foldr1 __tmp275294 '() _L257273_))) - (__tmp275288 - (let ((__tmp275289 - (let ((__tmp275290 - (let ((__tmp275291 - (let ((__tmp275292 + (foldr1 __tmp276495 '() _L258474_))) + (__tmp276489 + (let ((__tmp276490 + (let ((__tmp276491 + (let ((__tmp276492 + (let ((__tmp276493 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _E257302_ '())))) + (cons _E258503_ '())))) (declare (not safe)) - (cons _L257271_ __tmp275292)))) + (cons _L258472_ __tmp276493)))) (declare (not safe)) - (cons _L257272_ __tmp275291)))) + (cons _L258473_ __tmp276492)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp275290)))) + (cons '%#if __tmp276491)))) (declare (not safe)) - (cons __tmp275289 '())))) + (cons __tmp276490 '())))) (declare (not safe)) - (cons __tmp275293 __tmp275288)))) + (cons __tmp276494 __tmp276489)))) (declare (not safe)) - (cons '%#lambda __tmp275287))) - _hd257179257265_ - _hd257176257257_ - _hd257173257249_ - _id257165257227_) + (cons '%#lambda __tmp276488))) + _hd258380258466_ + _hd258377258458_ + _hd258374258450_ + _id258366258428_) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_))) + (_g258346258386_ _g258347258389_))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_))))) + (_g258346258386_ _g258347258389_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257145257185_ - _g257146257188_))))) + (_g258346258386_ + _g258347258389_))))) (let () (declare (not safe)) - (_g257145257185_ - _g257146257188_))))) + (_g258346258386_ + _g258347258389_))))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_))) + (_g258346258386_ _g258347258389_))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_))) + (_g258346258386_ _g258347258389_))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_))))) + (_g258346258386_ _g258347258389_))))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_))))) + (_g258346258386_ _g258347258389_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257145257185_ - _g257146257188_)))))))) + (_g258346258386_ + _g258347258389_)))))))) (let () (declare (not safe)) - (_loop257160257211_ _target257157257206_ '()))) + (_loop258361258412_ _target258358258407_ '()))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_)))))) + (_g258346258386_ _g258347258389_)))))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_))))) + (_g258346258386_ _g258347258389_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257145257185_ - _g257146257188_))) + (_g258346258386_ + _g258347258389_))) (let () (declare (not safe)) - (_g257145257185_ - _g257146257188_))) + (_g258346258386_ + _g258347258389_))) (let () (declare (not safe)) - (_g257145257185_ - _g257146257188_))))) + (_g258346258386_ + _g258347258389_))))) (let () (declare (not safe)) - (_g257145257185_ _g257146257188_)))))) + (_g258346258386_ _g258347258389_)))))) (declare (not safe)) - (_g257144257311_ _expr257140_)))) - (_clause-e256932_ - (lambda (_clause-lambda257010_ _kont-id257011_ _rest257012_) - (letrec* ((_kont-box257014_ + (_g258345258512_ _expr258341_)))) + (_clause-e258133_ + (lambda (_clause-lambda258211_ _kont-id258212_ _rest258213_) + (letrec* ((_kont-box258215_ (let () (declare (not safe)) (box '#f)))) - (let* ((_negation-id257054_ - (let* ((_rest257015257025_ _rest257012_) - (_else257017257033_ - (lambda () _negation-id256928_)) - (_K257019257039_ - (lambda (_clause257036_ - _clause-id257037_) - _clause-id257037_))) + (let* ((_negation-id258255_ + (let* ((_rest258216258226_ _rest258213_) + (_else258218258234_ + (lambda () _negation-id258129_)) + (_K258220258240_ + (lambda (_clause258237_ + _clause-id258238_) + _clause-id258238_))) (if (let () (declare (not safe)) - (##pair? _rest257015257025_)) - (let ((_hd257020257042_ + (##pair? _rest258216258226_)) + (let ((_hd258221258243_ (let () (declare (not safe)) - (##car _rest257015257025_)))) + (##car _rest258216258226_)))) (if (let () (declare (not safe)) - (##pair? _hd257020257042_)) - (let ((_hd257022257045_ + (##pair? _hd258221258243_)) + (let ((_hd258223258246_ (let () (declare (not safe)) - (##car _hd257020257042_))) - (_tl257023257047_ + (##car _hd258221258243_))) + (_tl258224258248_ (let () (declare (not safe)) - (##cdr _hd257020257042_)))) - (let* ((_clause-id257050_ - _hd257022257045_) - (_clause257052_ - _tl257023257047_)) + (##cdr _hd258221258243_)))) + (let* ((_clause-id258251_ + _hd258223258246_) + (_clause258253_ + _tl258224258248_)) (declare (not safe)) - (_K257019257039_ - _clause257052_ - _clause-id257050_))) + (_K258220258240_ + _clause258253_ + _clause-id258251_))) (let () (declare (not safe)) - (_else257017257033_)))) + (_else258218258234_)))) (let () (declare (not safe)) - (_else257017257033_))))) - (_g257056257076_ - (lambda (_g257057257073_) + (_else258218258234_))))) + (_g258257258277_ + (lambda (_g258258258274_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g257057257073_)))) - (_g257055257137_ - (lambda (_g257057257079_) + _g258258258274_)))) + (_g258256258338_ + (lambda (_g258258258280_) (if (let () (declare (not safe)) - (gx#stx-pair? _g257057257079_)) - (let ((_e257062257081_ + (gx#stx-pair? _g258258258280_)) + (let ((_e258263258282_ (let () (declare (not safe)) - (gx#stx-e _g257057257079_)))) - (let ((_hd257061257084_ + (gx#stx-e _g258258258280_)))) + (let ((_hd258262258285_ (let () (declare (not safe)) - (##car _e257062257081_))) - (_tl257060257086_ + (##car _e258263258282_))) + (_tl258261258287_ (let () (declare (not safe)) - (##cdr _e257062257081_)))) + (##cdr _e258263258282_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd257061257084_)) + _hd258262258285_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd257061257084_)) + _hd258262258285_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl257060257086_)) - (let ((_e257065257089_ + _tl258261258287_)) + (let ((_e258266258290_ (let () (declare (not safe)) (gx#stx-e - _tl257060257086_)))) - (let ((_hd257064257092_ + _tl258261258287_)))) + (let ((_hd258265258293_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e257065257089_))) - (_tl257063257094_ - (let () (declare (not safe)) (##cdr _e257065257089_)))) + (##car _e258266258290_))) + (_tl258264258295_ + (let () (declare (not safe)) (##cdr _e258266258290_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd257064257092_)) - (let ((_e257068257097_ + (gx#stx-pair? _hd258265258293_)) + (let ((_e258269258298_ (let () (declare (not safe)) - (gx#stx-e _hd257064257092_)))) - (let ((_hd257067257100_ + (gx#stx-e _hd258265258293_)))) + (let ((_hd258268258301_ (let () (declare (not safe)) - (##car _e257068257097_))) - (_tl257066257102_ + (##car _e258269258298_))) + (_tl258267258303_ (let () (declare (not safe)) - (##cdr _e257068257097_)))) + (##cdr _e258269258298_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257066257102_)) + (gx#stx-null? _tl258267258303_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl257063257094_)) - (let ((_e257071257105_ + (gx#stx-pair? _tl258264258295_)) + (let ((_e258272258306_ (let () (declare (not safe)) - (gx#stx-e _tl257063257094_)))) - (let ((_hd257070257108_ + (gx#stx-e _tl258264258295_)))) + (let ((_hd258271258309_ (let () (declare (not safe)) - (##car _e257071257105_))) - (_tl257069257110_ + (##car _e258272258306_))) + (_tl258270258311_ (let () (declare (not safe)) - (##cdr _e257071257105_)))) + (##cdr _e258272258306_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl257069257110_)) - ((lambda (_L257113_ _L257114_) - (let ((_body257135_ + (gx#stx-null? _tl258270258311_)) + ((lambda (_L258314_ _L258315_) + (let ((_body258336_ (let () (declare (not safe)) - (_xform-e256930_ - _L257113_ - _kont-id257011_ - _kont-box257014_ - _negation-id257054_)))) - (values (let ((__tmp275296 - (let ((__tmp275298 + (_xform-e258131_ + _L258314_ + _kont-id258212_ + _kont-box258215_ + _negation-id258255_)))) + (values (let ((__tmp276497 + (let ((__tmp276499 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L257114_ '()))) - (__tmp275297 + (let () (declare (not safe)) (cons _L258315_ '()))) + (__tmp276498 (let () (declare (not safe)) - (cons _body257135_ '())))) + (cons _body258336_ '())))) (declare (not safe)) - (cons __tmp275298 __tmp275297)))) + (cons __tmp276499 __tmp276498)))) (declare (not safe)) - (cons '%#lambda __tmp275296)) + (cons '%#lambda __tmp276497)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _kont-box257014_)))) - _hd257070257108_ - _hd257067257100_) + (unbox _kont-box258215_)))) + _hd258271258309_ + _hd258268258301_) (let () (declare (not safe)) - (_g257056257076_ _g257057257079_))))) + (_g258257258277_ _g258258258280_))))) (let () (declare (not safe)) - (_g257056257076_ _g257057257079_))) + (_g258257258277_ _g258258258280_))) (let () (declare (not safe)) - (_g257056257076_ _g257057257079_))))) + (_g258257258277_ _g258258258280_))))) (let () (declare (not safe)) - (_g257056257076_ _g257057257079_))))) + (_g258257258277_ _g258258258280_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g257056257076_ - _g257057257079_))) + (_g258257258277_ + _g258258258280_))) (let () (declare (not safe)) - (_g257056257076_ - _g257057257079_))) + (_g258257258277_ + _g258258258280_))) (let () (declare (not safe)) - (_g257056257076_ - _g257057257079_))))) + (_g258257258277_ + _g258258258280_))))) (let () (declare (not safe)) - (_g257056257076_ _g257057257079_)))))) + (_g258257258277_ _g258258258280_)))))) (declare (not safe)) - (_g257055257137_ _clause-lambda257010_)))))) - (let _lp256934_ ((_rest256936_ _clauses256927_) - (_clauses256937_ '()) - (_konts256938_ '())) - (let* ((_rest256939256947_ _rest256936_) - (_else256941256955_ + (_g258256258338_ _clause-lambda258211_)))))) + (let _lp258135_ ((_rest258137_ _clauses258128_) + (_clauses258138_ '()) + (_konts258139_ '())) + (let* ((_rest258140258148_ _rest258137_) + (_else258142258156_ (lambda () - (values (reverse _clauses256937_) - (reverse _konts256938_)))) - (_K256943256998_ - (lambda (_rest256958_ _clause256959_) - (let* ((_clause256960256967_ _clause256959_) - (_E256962256971_ + (values (reverse _clauses258138_) + (reverse _konts258139_)))) + (_K258144258199_ + (lambda (_rest258159_ _clause258160_) + (let* ((_clause258161258168_ _clause258160_) + (_E258163258172_ (lambda () (error '"No clause matching" - _clause256960256967_))) - (_K256963256986_ - (lambda (_clause-lambda256974_ _clause-id256975_) - (let* ((_id256977_ - (let ((__tmp275299 (gensym '__kont))) + _clause258161258168_))) + (_K258164258187_ + (lambda (_clause-lambda258175_ _clause-id258176_) + (let* ((_id258178_ + (let ((__tmp276500 (gensym '__kont))) (declare (not safe)) - (make-symbol__0 __tmp275299))) - (_id256979_ + (make-symbol__0 __tmp276500))) + (_id258180_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _id256977_))) - (_g275300_ + _id258178_))) + (_g276501_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _id256979_))) - (_g275301_ + _id258180_))) + (_g276502_ (let () (declare (not safe)) - (_clause-e256932_ - _clause-lambda256974_ - _id256979_ - _rest256958_)))) + (_clause-e258133_ + _clause-lambda258175_ + _id258180_ + _rest258159_)))) (begin - (let ((_g275302_ + (let ((_g276503_ (let () (declare (not safe)) - (if (##values? _g275301_) - (##vector-length _g275301_) + (if (##values? _g276502_) + (##vector-length _g276502_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g275302_ 2))) + (##fx= _g276503_ 2))) (error "Context expects 2 values" - _g275302_))) - (let ((_clause-lambda256982_ + _g276503_))) + (let ((_clause-lambda258183_ (let () (declare (not safe)) - (##vector-ref _g275301_ 0))) - (_kont256983_ + (##vector-ref _g276502_ 0))) + (_kont258184_ (let () (declare (not safe)) - (##vector-ref _g275301_ 1)))) + (##vector-ref _g276502_ 1)))) (let () - (let ((__tmp275305 - (let ((__tmp275306 + (let ((__tmp276506 + (let ((__tmp276507 (let () (declare (not safe)) - (cons _clause-id256975_ - _clause-lambda256982_)))) + (cons _clause-id258176_ + _clause-lambda258183_)))) (declare (not safe)) - (cons __tmp275306 - _clauses256937_))) - (__tmp275303 - (let ((__tmp275304 + (cons __tmp276507 + _clauses258138_))) + (__tmp276504 + (let ((__tmp276505 (let () (declare (not safe)) - (cons _id256979_ - _kont256983_)))) + (cons _id258180_ + _kont258184_)))) (declare (not safe)) - (cons __tmp275304 - _konts256938_)))) + (cons __tmp276505 + _konts258139_)))) (declare (not safe)) - (_lp256934_ - _rest256958_ - __tmp275305 - __tmp275303))))))))) + (_lp258135_ + _rest258159_ + __tmp276506 + __tmp276504))))))))) (if (let () (declare (not safe)) - (##pair? _clause256960256967_)) - (let ((_hd256964256989_ + (##pair? _clause258161258168_)) + (let ((_hd258165258190_ (let () (declare (not safe)) - (##car _clause256960256967_))) - (_tl256965256991_ + (##car _clause258161258168_))) + (_tl258166258192_ (let () (declare (not safe)) - (##cdr _clause256960256967_)))) - (let* ((_clause-id256994_ _hd256964256989_) - (_clause-lambda256996_ _tl256965256991_)) + (##cdr _clause258161258168_)))) + (let* ((_clause-id258195_ _hd258165258190_) + (_clause-lambda258197_ _tl258166258192_)) (declare (not safe)) - (_K256963256986_ - _clause-lambda256996_ - _clause-id256994_))) + (_K258164258187_ + _clause-lambda258197_ + _clause-id258195_))) (let () (declare (not safe)) - (_E256962256971_))))))) - (if (let () (declare (not safe)) (##pair? _rest256939256947_)) - (let ((_hd256944257001_ + (_E258163258172_))))))) + (if (let () (declare (not safe)) (##pair? _rest258140258148_)) + (let ((_hd258145258202_ (let () (declare (not safe)) - (##car _rest256939256947_))) - (_tl256945257003_ + (##car _rest258140258148_))) + (_tl258146258204_ (let () (declare (not safe)) - (##cdr _rest256939256947_)))) - (let* ((_clause257006_ _hd256944257001_) - (_rest257008_ _tl256945257003_)) + (##cdr _rest258140258148_)))) + (let* ((_clause258207_ _hd258145258202_) + (_rest258209_ _tl258146258204_)) (declare (not safe)) - (_K256943256998_ _rest257008_ _clause257006_))) - (let () (declare (not safe)) (_else256941256955_)))))))) + (_K258144258199_ _rest258209_ _clause258207_))) + (let () (declare (not safe)) (_else258142258156_)))))))) (define gxc#optimize-syntax-case-closure - (lambda (_clause256271_ _negation256272_ _target256273_) - (letrec ((_closure-e256275_ - (lambda (_expr256392_) - (let* ((___stx274482274483_ _expr256392_) - (_g256399256514_ + (lambda (_clause257472_ _negation257473_ _target257474_) + (letrec ((_closure-e257476_ + (lambda (_expr257593_) + (let* ((___stx275683275684_ _expr257593_) + (_g257600257715_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274482274483_))))) - (let ((___kont274484274485_ - (lambda (_L256905_ _L256906_ _L256907_) - (let ((__tmp275307 - (let ((__tmp275308 - (let ((__tmp275311 + ___stx275683275684_))))) + (let ((___kont275685275686_ + (lambda (_L258106_ _L258107_ _L258108_) + (let ((__tmp276508 + (let ((__tmp276509 + (let ((__tmp276512 (let () (declare (not safe)) - (_closure-e256275_ - _L256906_))) - (__tmp275309 - (let ((__tmp275310 + (_closure-e257476_ + _L258107_))) + (__tmp276510 + (let ((__tmp276511 (let () (declare (not safe)) - (_closure-e256275_ - _L256905_)))) + (_closure-e257476_ + _L258106_)))) (declare (not safe)) - (cons __tmp275310 '())))) + (cons __tmp276511 '())))) (declare (not safe)) - (cons __tmp275311 - __tmp275309)))) + (cons __tmp276512 + __tmp276510)))) (declare (not safe)) - (cons _L256907_ __tmp275308)))) + (cons _L258108_ __tmp276509)))) (declare (not safe)) - (cons '%#if __tmp275307)))) - (___kont274486274487_ - (lambda (_L256853_ _L256854_) - (let ((__tmp275312 - (let ((__tmp275313 - (let ((__tmp275314 + (cons '%#if __tmp276508)))) + (___kont275687275688_ + (lambda (_L258054_ _L258055_) + (let ((__tmp276513 + (let ((__tmp276514 + (let ((__tmp276515 (let () (declare (not safe)) - (_closure-e256275_ - _L256853_)))) + (_closure-e257476_ + _L258054_)))) (declare (not safe)) - (cons __tmp275314 '())))) + (cons __tmp276515 '())))) (declare (not safe)) - (cons _L256854_ __tmp275313)))) + (cons _L258055_ __tmp276514)))) (declare (not safe)) - (cons '%#let-values __tmp275312)))) - (___kont274488274489_ - (lambda (_L256799_ _L256800_ _L256801_) - (let ((__tmp275315 - (let ((__tmp275317 - (let ((__tmp275318 - (let ((__tmp275321 + (cons '%#let-values __tmp276513)))) + (___kont275689275690_ + (lambda (_L258000_ _L258001_ _L258002_) + (let ((__tmp276516 + (let ((__tmp276518 + (let ((__tmp276519 + (let ((__tmp276522 (let () (declare (not safe)) - (cons _L256801_ + (cons _L258002_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp275319 - (let ((__tmp275320 + (__tmp276520 + (let ((__tmp276521 (let () (declare (not safe)) - (_closure-e256275_ _L256800_)))) + (_closure-e257476_ _L258001_)))) (declare (not safe)) - (cons __tmp275320 '())))) + (cons __tmp276521 '())))) (declare (not safe)) - (cons __tmp275321 __tmp275319)))) + (cons __tmp276522 __tmp276520)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp275318 '()))) - (__tmp275316 + (cons __tmp276519 '()))) + (__tmp276517 (let () (declare (not safe)) - (cons _L256799_ '())))) + (cons _L258000_ '())))) (declare (not safe)) - (cons __tmp275317 __tmp275316)))) + (cons __tmp276518 __tmp276517)))) (declare (not safe)) - (cons '%#letrec-values __tmp275315)))) - (___kont274490274491_ - (lambda (_L256712_ _L256713_) - (let ((__tmp275322 - (let ((__tmp275325 - (let ((__tmp275326 - (lambda (_g256730256733_ - _g256731256735_) + (cons '%#letrec-values __tmp276516)))) + (___kont275691275692_ + (lambda (_L257913_ _L257914_) + (let ((__tmp276523 + (let ((__tmp276526 + (let ((__tmp276527 + (lambda (_g257931257934_ + _g257932257936_) (let () (declare (not safe)) - (cons _g256730256733_ - _g256731256735_))))) + (cons _g257931257934_ + _g257932257936_))))) (declare (not safe)) - (foldr1 __tmp275326 + (foldr1 __tmp276527 '() - _L256713_))) - (__tmp275323 - (let ((__tmp275324 + _L257914_))) + (__tmp276524 + (let ((__tmp276525 (let () (declare (not safe)) - (_closure-e256275_ - _L256712_)))) + (_closure-e257476_ + _L257913_)))) (declare (not safe)) - (cons __tmp275324 '())))) + (cons __tmp276525 '())))) (declare (not safe)) - (cons __tmp275325 __tmp275323)))) + (cons __tmp276526 __tmp276524)))) (declare (not safe)) - (cons '%#lambda __tmp275322)))) - (___kont274494274495_ - (lambda (_L256642_) - (let ((__tmp275327 - (let ((__tmp275328 - (let ((__tmp275330 + (cons '%#lambda __tmp276523)))) + (___kont275695275696_ + (lambda (_L257843_) + (let ((__tmp276528 + (let ((__tmp276529 + (let ((__tmp276531 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp275329 + (__tmp276530 (let () (declare (not safe)) - (cons _L256642_ '())))) + (cons _L257843_ '())))) (declare (not safe)) - (cons __tmp275330 - __tmp275329)))) + (cons __tmp276531 + __tmp276530)))) (declare (not safe)) - (cons __tmp275328 '())))) + (cons __tmp276529 '())))) (declare (not safe)) - (cons '%#call __tmp275327)))) - (___kont274496274497_ - (lambda (_L256575_ _L256576_) _expr256392_))) - (let* ((___match274715274716_ - (lambda (_e256491256519_ - _hd256490256522_ - _tl256489256524_ - _e256494256527_ - _hd256493256530_ - _tl256492256532_ - _e256497256535_ - _hd256496256538_ - _tl256495256540_ - _e256500256543_ - _hd256499256546_ - _tl256498256548_ - ___splice274498274499_ - _target256501256551_ - _tl256503256553_) - (letrec ((_loop256504256556_ - (lambda (_hd256502256559_ - _arg256508256561_) + (cons '%#call __tmp276528)))) + (___kont275697275698_ + (lambda (_L257776_ _L257777_) _expr257593_))) + (let* ((___match275916275917_ + (lambda (_e257692257720_ + _hd257691257723_ + _tl257690257725_ + _e257695257728_ + _hd257694257731_ + _tl257693257733_ + _e257698257736_ + _hd257697257739_ + _tl257696257741_ + _e257701257744_ + _hd257700257747_ + _tl257699257749_ + ___splice275699275700_ + _target257702257752_ + _tl257704257754_) + (letrec ((_loop257705257757_ + (lambda (_hd257703257760_ + _arg257709257762_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd256502256559_)) - (let ((_e256505256564_ + _hd257703257760_)) + (let ((_e257706257765_ (let () (declare (not safe)) (gx#stx-e - _hd256502256559_)))) - (let ((_lp-tl256507256569_ + _hd257703257760_)))) + (let ((_lp-tl257708257770_ (let () (declare (not safe)) - (##cdr _e256505256564_))) - (_lp-hd256506256567_ + (##cdr _e257706257765_))) + (_lp-hd257707257768_ (let () (declare (not safe)) - (##car _e256505256564_)))) - (let ((__tmp275331 + (##car _e257706257765_)))) + (let ((__tmp276532 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd256506256567_ _arg256508256561_)))) + (cons _lp-hd257707257768_ _arg257709257762_)))) (declare (not safe)) - (_loop256504256556_ _lp-tl256507256569_ __tmp275331)))) + (_loop257705257757_ _lp-tl257708257770_ __tmp276532)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_arg256509256572_ - (reverse _arg256508256561_))) - (___kont274496274497_ - _arg256509256572_ - _hd256499256546_)))))) + (let ((_arg257710257773_ + (reverse _arg257709257762_))) + (___kont275697275698_ + _arg257710257773_ + _hd257700257747_)))))) (let () (declare (not safe)) - (_loop256504256556_ - _target256501256551_ + (_loop257705257757_ + _target257702257752_ '()))))) - (___match274673274674_ - (lambda (_e256474256602_ - _hd256473256605_ - _tl256472256607_ - _e256477256610_ - _hd256476256613_ - _tl256475256615_ - _e256480256618_ - _hd256479256621_ - _tl256478256623_ - _e256483256626_ - _hd256482256629_ - _tl256481256631_ - _e256486256634_ - _hd256485256637_ - _tl256484256639_) - (let ((_L256642_ _hd256482256629_)) + (___match275874275875_ + (lambda (_e257675257803_ + _hd257674257806_ + _tl257673257808_ + _e257678257811_ + _hd257677257814_ + _tl257676257816_ + _e257681257819_ + _hd257680257822_ + _tl257679257824_ + _e257684257827_ + _hd257683257830_ + _tl257682257832_ + _e257687257835_ + _hd257686257838_ + _tl257685257840_) + (let ((_L257843_ _hd257683257830_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L256642_ - _negation256272_)) - (___kont274494274495_ _L256642_) + _L257843_ + _negation257473_)) + (___kont275695275696_ _L257843_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl256475256615_)) - (let ((___splice274498274499_ + _tl257676257816_)) + (let ((___splice275699275700_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl256475256615_ + _tl257676257816_ '0)))) - (let ((_tl256503256553_ + (let ((_tl257704257754_ (let () (declare (not safe)) (##vector-ref - ___splice274498274499_ + ___splice275699275700_ '1))) - (_target256501256551_ + (_target257702257752_ (let () (declare (not safe)) (##vector-ref - ___splice274498274499_ + ___splice275699275700_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256503256553_)) - (___match274715274716_ - _e256474256602_ - _hd256473256605_ - _tl256472256607_ - _e256477256610_ - _hd256476256613_ - _tl256475256615_ - _e256480256618_ - _hd256479256621_ - _tl256478256623_ - _e256483256626_ - _hd256482256629_ - _tl256481256631_ - ___splice274498274499_ - _target256501256551_ - _tl256503256553_) + _tl257704257754_)) + (___match275916275917_ + _e257675257803_ + _hd257674257806_ + _tl257673257808_ + _e257678257811_ + _hd257677257814_ + _tl257676257816_ + _e257681257819_ + _hd257680257822_ + _tl257679257824_ + _e257684257827_ + _hd257683257830_ + _tl257682257832_ + ___splice275699275700_ + _target257702257752_ + _tl257704257754_) (let () (declare (not safe)) - (_g256399256514_))))) + (_g257600257715_))))) (let () (declare (not safe)) - (_g256399256514_))))))) - (___match274631274632_ - (lambda (_e256455256664_ - _hd256454256667_ - _tl256453256669_ - _e256458256672_ - _hd256457256675_ - _tl256456256677_ - ___splice274492274493_ - _target256459256680_ - _tl256461256682_) - (letrec ((_loop256462256685_ - (lambda (_hd256460256688_ - _id256466256690_) + (_g257600257715_))))))) + (___match275832275833_ + (lambda (_e257656257865_ + _hd257655257868_ + _tl257654257870_ + _e257659257873_ + _hd257658257876_ + _tl257657257878_ + ___splice275693275694_ + _target257660257881_ + _tl257662257883_) + (letrec ((_loop257663257886_ + (lambda (_hd257661257889_ + _id257667257891_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd256460256688_)) - (let ((_e256463256693_ + _hd257661257889_)) + (let ((_e257664257894_ (let () (declare (not safe)) (gx#stx-e - _hd256460256688_)))) - (let ((_lp-tl256465256698_ + _hd257661257889_)))) + (let ((_lp-tl257666257899_ (let () (declare (not safe)) - (##cdr _e256463256693_))) - (_lp-hd256464256696_ + (##cdr _e257664257894_))) + (_lp-hd257665257897_ (let () (declare (not safe)) - (##car _e256463256693_)))) - (let ((__tmp275332 + (##car _e257664257894_)))) + (let ((__tmp276533 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd256464256696_ _id256466256690_)))) + (cons _lp-hd257665257897_ _id257667257891_)))) (declare (not safe)) - (_loop256462256685_ _lp-tl256465256698_ __tmp275332)))) + (_loop257663257886_ _lp-tl257666257899_ __tmp276533)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_id256467256701_ - (reverse _id256466256690_))) + (let ((_id257668257902_ + (reverse _id257667257891_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256456256677_)) - (let ((_e256470256704_ + _tl257657257878_)) + (let ((_e257671257905_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl256456256677_)))) - (let ((_tl256468256709_ - (let () (declare (not safe)) (##cdr _e256470256704_))) - (_hd256469256707_ + (gx#stx-e _tl257657257878_)))) + (let ((_tl257669257910_ + (let () (declare (not safe)) (##cdr _e257671257905_))) + (_hd257670257908_ (let () (declare (not safe)) - (##car _e256470256704_)))) + (##car _e257671257905_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256468256709_)) - (___kont274490274491_ - _hd256469256707_ - _id256467256701_) - (let () (declare (not safe)) (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_)))))))) + (gx#stx-null? _tl257669257910_)) + (___kont275691275692_ + _hd257670257908_ + _id257668257902_) + (let () (declare (not safe)) (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop256462256685_ - _target256459256680_ + (_loop257663257886_ + _target257660257881_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274482274483_)) - (let ((_e256406256873_ + (gx#stx-pair? ___stx275683275684_)) + (let ((_e257607258074_ (let () (declare (not safe)) - (gx#stx-e ___stx274482274483_)))) - (let ((_tl256404256878_ + (gx#stx-e ___stx275683275684_)))) + (let ((_tl257605258079_ (let () (declare (not safe)) - (##cdr _e256406256873_))) - (_hd256405256876_ + (##cdr _e257607258074_))) + (_hd257606258077_ (let () (declare (not safe)) - (##car _e256406256873_)))) + (##car _e257607258074_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd256405256876_)) + (gx#identifier? _hd257606258077_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _hd256405256876_)) + _hd257606258077_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256404256878_)) - (let ((_e256409256881_ + _tl257605258079_)) + (let ((_e257610258082_ (let () (declare (not safe)) (gx#stx-e - _tl256404256878_)))) - (let ((_tl256407256886_ + _tl257605258079_)))) + (let ((_tl257608258087_ (let () (declare (not safe)) - (##cdr _e256409256881_))) - (_hd256408256884_ + (##cdr _e257610258082_))) + (_hd257609258085_ (let () (declare (not safe)) - (##car _e256409256881_)))) + (##car _e257610258082_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256407256886_)) - (let ((_e256412256889_ + _tl257608258087_)) + (let ((_e257613258090_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl256407256886_)))) - (let ((_tl256410256894_ - (let () (declare (not safe)) (##cdr _e256412256889_))) - (_hd256411256892_ - (let () (declare (not safe)) (##car _e256412256889_)))) + (gx#stx-e _tl257608258087_)))) + (let ((_tl257611258095_ + (let () (declare (not safe)) (##cdr _e257613258090_))) + (_hd257612258093_ + (let () (declare (not safe)) (##car _e257613258090_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256410256894_)) - (let ((_e256415256897_ + (gx#stx-pair? _tl257611258095_)) + (let ((_e257616258098_ (let () (declare (not safe)) - (gx#stx-e _tl256410256894_)))) - (let ((_tl256413256902_ + (gx#stx-e _tl257611258095_)))) + (let ((_tl257614258103_ (let () (declare (not safe)) - (##cdr _e256415256897_))) - (_hd256414256900_ + (##cdr _e257616258098_))) + (_hd257615258101_ (let () (declare (not safe)) - (##car _e256415256897_)))) + (##car _e257616258098_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256413256902_)) - (___kont274484274485_ - _hd256414256900_ - _hd256411256892_ - _hd256408256884_) + (gx#stx-null? _tl257614258103_)) + (___kont275685275686_ + _hd257615258101_ + _hd257612258093_ + _hd257609258085_) (let () (declare (not safe)) - (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))))) + (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256399256514_))) + (_g257600257715_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd256405256876_)) + _hd257606258077_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256404256878_)) - (let ((_e256423256837_ + _tl257605258079_)) + (let ((_e257624258038_ (let () (declare (not safe)) (gx#stx-e - _tl256404256878_)))) - (let ((_tl256421256842_ + _tl257605258079_)))) + (let ((_tl257622258043_ (let () (declare (not safe)) - (##cdr _e256423256837_))) - (_hd256422256840_ + (##cdr _e257624258038_))) + (_hd257623258041_ (let () (declare (not safe)) - (##car _e256423256837_)))) + (##car _e257624258038_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256421256842_)) - (let ((_e256426256845_ + _tl257622258043_)) + (let ((_e257627258046_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl256421256842_)))) - (let ((_tl256424256850_ + (gx#stx-e _tl257622258043_)))) + (let ((_tl257625258051_ (let () (declare (not safe)) - (##cdr _e256426256845_))) - (_hd256425256848_ + (##cdr _e257627258046_))) + (_hd257626258049_ (let () (declare (not safe)) - (##car _e256426256845_)))) + (##car _e257627258046_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256424256850_)) - (___kont274486274487_ - _hd256425256848_ - _hd256422256840_) - (let () (declare (not safe)) (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))))) + (gx#stx-null? _tl257625258051_)) + (___kont275687275688_ + _hd257626258049_ + _hd257623258041_) + (let () (declare (not safe)) (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256399256514_))) + (_g257600257715_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _hd256405256876_)) + _hd257606258077_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256404256878_)) - (let ((_e256435256751_ + _tl257605258079_)) + (let ((_e257636257952_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl256404256878_)))) - (let ((_tl256433256756_ - (let () (declare (not safe)) (##cdr _e256435256751_))) - (_hd256434256754_ - (let () (declare (not safe)) (##car _e256435256751_)))) + (gx#stx-e _tl257605258079_)))) + (let ((_tl257634257957_ + (let () (declare (not safe)) (##cdr _e257636257952_))) + (_hd257635257955_ + (let () (declare (not safe)) (##car _e257636257952_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd256434256754_)) - (let ((_e256438256759_ + (gx#stx-pair? _hd257635257955_)) + (let ((_e257639257960_ (let () (declare (not safe)) - (gx#stx-e _hd256434256754_)))) - (let ((_tl256436256764_ + (gx#stx-e _hd257635257955_)))) + (let ((_tl257637257965_ (let () (declare (not safe)) - (##cdr _e256438256759_))) - (_hd256437256762_ + (##cdr _e257639257960_))) + (_hd257638257963_ (let () (declare (not safe)) - (##car _e256438256759_)))) + (##car _e257639257960_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd256437256762_)) - (let ((_e256441256767_ + (gx#stx-pair? _hd257638257963_)) + (let ((_e257642257968_ (let () (declare (not safe)) - (gx#stx-e _hd256437256762_)))) - (let ((_tl256439256772_ + (gx#stx-e _hd257638257963_)))) + (let ((_tl257640257973_ (let () (declare (not safe)) - (##cdr _e256441256767_))) - (_hd256440256770_ + (##cdr _e257642257968_))) + (_hd257641257971_ (let () (declare (not safe)) - (##car _e256441256767_)))) + (##car _e257642257968_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd256440256770_)) - (let ((_e256444256775_ + (gx#stx-pair? _hd257641257971_)) + (let ((_e257645257976_ (let () (declare (not safe)) - (gx#stx-e _hd256440256770_)))) - (let ((_tl256442256780_ + (gx#stx-e _hd257641257971_)))) + (let ((_tl257643257981_ (let () (declare (not safe)) - (##cdr _e256444256775_))) - (_hd256443256778_ + (##cdr _e257645257976_))) + (_hd257644257979_ (let () (declare (not safe)) - (##car _e256444256775_)))) + (##car _e257645257976_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256442256780_)) + _tl257643257981_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256439256772_)) - (let ((_e256447256783_ + _tl257640257973_)) + (let ((_e257648257984_ (let () (declare (not safe)) (gx#stx-e - _tl256439256772_)))) - (let ((_tl256445256788_ + _tl257640257973_)))) + (let ((_tl257646257989_ (let () (declare (not safe)) - (##cdr _e256447256783_))) - (_hd256446256786_ + (##cdr _e257648257984_))) + (_hd257647257987_ (let () (declare (not safe)) - (##car _e256447256783_)))) + (##car _e257648257984_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256445256788_)) + _tl257646257989_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl256436256764_)) + (gx#stx-null? _tl257637257965_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256433256756_)) - (let ((_e256450256791_ + (gx#stx-pair? _tl257634257957_)) + (let ((_e257651257992_ (let () (declare (not safe)) - (gx#stx-e _tl256433256756_)))) - (let ((_tl256448256796_ + (gx#stx-e _tl257634257957_)))) + (let ((_tl257649257997_ (let () (declare (not safe)) - (##cdr _e256450256791_))) - (_hd256449256794_ + (##cdr _e257651257992_))) + (_hd257650257995_ (let () (declare (not safe)) - (##car _e256450256791_)))) + (##car _e257651257992_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256448256796_)) - (___kont274488274489_ - _hd256449256794_ - _hd256446256786_ - _hd256443256778_) + (gx#stx-null? _tl257649257997_)) + (___kont275689275690_ + _hd257650257995_ + _hd257647257987_ + _hd257644257979_) (let () (declare (not safe)) - (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))) - (let () (declare (not safe)) (_g256399256514_))) - (let () (declare (not safe)) (_g256399256514_))))) + (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))) + (let () (declare (not safe)) (_g257600257715_))) + (let () (declare (not safe)) (_g257600257715_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256399256514_))) + (_g257600257715_))) (let () (declare (not safe)) - (_g256399256514_))))) + (_g257600257715_))))) (let () (declare (not safe)) - (_g256399256514_))))) + (_g257600257715_))))) (let () (declare (not safe)) - (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))) + (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd256405256876_)) + _hd257606258077_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256404256878_)) - (let ((_e256458256672_ + _tl257605258079_)) + (let ((_e257659257873_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl256404256878_)))) - (let ((_tl256456256677_ + (gx#stx-e _tl257605258079_)))) + (let ((_tl257657257878_ (let () (declare (not safe)) - (##cdr _e256458256672_))) - (_hd256457256675_ + (##cdr _e257659257873_))) + (_hd257658257876_ (let () (declare (not safe)) - (##car _e256458256672_)))) + (##car _e257659257873_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd256457256675_)) - (let ((___splice274492274493_ + (gx#stx-pair/null? _hd257658257876_)) + (let ((___splice275693275694_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd256457256675_ + _hd257658257876_ '0)))) - (let ((_tl256461256682_ + (let ((_tl257662257883_ (let () (declare (not safe)) - (##vector-ref ___splice274492274493_ '1))) - (_target256459256680_ + (##vector-ref ___splice275693275694_ '1))) + (_target257660257881_ (let () (declare (not safe)) (##vector-ref - ___splice274492274493_ + ___splice275693275694_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256461256682_)) - (___match274631274632_ - _e256406256873_ - _hd256405256876_ - _tl256404256878_ - _e256458256672_ - _hd256457256675_ - _tl256456256677_ - ___splice274492274493_ - _target256459256680_ - _tl256461256682_) + (gx#stx-null? _tl257662257883_)) + (___match275832275833_ + _e257607258074_ + _hd257606258077_ + _tl257605258079_ + _e257659257873_ + _hd257658257876_ + _tl257657257878_ + ___splice275693275694_ + _target257660257881_ + _tl257662257883_) (let () (declare (not safe)) - (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))) + (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd256405256876_)) + (gx#stx-eq? '%#call _hd257606258077_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256404256878_)) - (let ((_e256477256610_ + (gx#stx-pair? _tl257605258079_)) + (let ((_e257678257811_ (let () (declare (not safe)) - (gx#stx-e _tl256404256878_)))) - (let ((_tl256475256615_ + (gx#stx-e _tl257605258079_)))) + (let ((_tl257676257816_ (let () (declare (not safe)) - (##cdr _e256477256610_))) - (_hd256476256613_ + (##cdr _e257678257811_))) + (_hd257677257814_ (let () (declare (not safe)) - (##car _e256477256610_)))) + (##car _e257678257811_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd256476256613_)) - (let ((_e256480256618_ + (gx#stx-pair? _hd257677257814_)) + (let ((_e257681257819_ (let () (declare (not safe)) - (gx#stx-e _hd256476256613_)))) - (let ((_tl256478256623_ + (gx#stx-e _hd257677257814_)))) + (let ((_tl257679257824_ (let () (declare (not safe)) - (##cdr _e256480256618_))) - (_hd256479256621_ + (##cdr _e257681257819_))) + (_hd257680257822_ (let () (declare (not safe)) - (##car _e256480256618_)))) + (##car _e257681257819_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd256479256621_)) + (gx#identifier? _hd257680257822_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd256479256621_)) + _hd257680257822_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256478256623_)) - (let ((_e256483256626_ + _tl257679257824_)) + (let ((_e257684257827_ (let () (declare (not safe)) (gx#stx-e - _tl256478256623_)))) - (let ((_tl256481256631_ + _tl257679257824_)))) + (let ((_tl257682257832_ (let () (declare (not safe)) - (##cdr _e256483256626_))) - (_hd256482256629_ + (##cdr _e257684257827_))) + (_hd257683257830_ (let () (declare (not safe)) - (##car _e256483256626_)))) + (##car _e257684257827_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256481256631_)) + _tl257682257832_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256475256615_)) - (let ((_e256486256634_ + _tl257676257816_)) + (let ((_e257687257835_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl256475256615_)))) - (let ((_tl256484256639_ + (gx#stx-e _tl257676257816_)))) + (let ((_tl257685257840_ (let () (declare (not safe)) - (##cdr _e256486256634_))) - (_hd256485256637_ + (##cdr _e257687257835_))) + (_hd257686257838_ (let () (declare (not safe)) - (##car _e256486256634_)))) + (##car _e257687257835_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256484256639_)) - (___match274673274674_ - _e256406256873_ - _hd256405256876_ - _tl256404256878_ - _e256477256610_ - _hd256476256613_ - _tl256475256615_ - _e256480256618_ - _hd256479256621_ - _tl256478256623_ - _e256483256626_ - _hd256482256629_ - _tl256481256631_ - _e256486256634_ - _hd256485256637_ - _tl256484256639_) + (gx#stx-null? _tl257685257840_)) + (___match275874275875_ + _e257607258074_ + _hd257606258077_ + _tl257605258079_ + _e257678257811_ + _hd257677257814_ + _tl257676257816_ + _e257681257819_ + _hd257680257822_ + _tl257679257824_ + _e257684257827_ + _hd257683257830_ + _tl257682257832_ + _e257687257835_ + _hd257686257838_ + _tl257685257840_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl256475256615_)) - (let ((___splice274498274499_ + (gx#stx-pair/null? _tl257676257816_)) + (let ((___splice275699275700_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl256475256615_ + _tl257676257816_ '0)))) - (let ((_tl256503256553_ + (let ((_tl257704257754_ (let () (declare (not safe)) (##vector-ref - ___splice274498274499_ + ___splice275699275700_ '1))) - (_target256501256551_ + (_target257702257752_ (let () (declare (not safe)) (##vector-ref - ___splice274498274499_ + ___splice275699275700_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256503256553_)) - (___match274715274716_ - _e256406256873_ - _hd256405256876_ - _tl256404256878_ - _e256477256610_ - _hd256476256613_ - _tl256475256615_ - _e256480256618_ - _hd256479256621_ - _tl256478256623_ - _e256483256626_ - _hd256482256629_ - _tl256481256631_ - ___splice274498274499_ - _target256501256551_ - _tl256503256553_) + (gx#stx-null? _tl257704257754_)) + (___match275916275917_ + _e257607258074_ + _hd257606258077_ + _tl257605258079_ + _e257678257811_ + _hd257677257814_ + _tl257676257816_ + _e257681257819_ + _hd257680257822_ + _tl257679257824_ + _e257684257827_ + _hd257683257830_ + _tl257682257832_ + ___splice275699275700_ + _target257702257752_ + _tl257704257754_) (let () (declare (not safe)) - (_g256399256514_))))) + (_g257600257715_))))) (let () (declare (not safe)) - (_g256399256514_)))))) + (_g257600257715_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl256475256615_)) - (let ((___splice274498274499_ + (gx#stx-pair/null? _tl257676257816_)) + (let ((___splice275699275700_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl256475256615_ '0)))) - (let ((_tl256503256553_ + (gx#syntax-split-splice _tl257676257816_ '0)))) + (let ((_tl257704257754_ (let () (declare (not safe)) - (##vector-ref ___splice274498274499_ '1))) - (_target256501256551_ + (##vector-ref ___splice275699275700_ '1))) + (_target257702257752_ (let () (declare (not safe)) - (##vector-ref ___splice274498274499_ '0)))) + (##vector-ref ___splice275699275700_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256503256553_)) - (___match274715274716_ - _e256406256873_ - _hd256405256876_ - _tl256404256878_ - _e256477256610_ - _hd256476256613_ - _tl256475256615_ - _e256480256618_ - _hd256479256621_ - _tl256478256623_ - _e256483256626_ - _hd256482256629_ - _tl256481256631_ - ___splice274498274499_ - _target256501256551_ - _tl256503256553_) + (gx#stx-null? _tl257704257754_)) + (___match275916275917_ + _e257607258074_ + _hd257606258077_ + _tl257605258079_ + _e257678257811_ + _hd257677257814_ + _tl257676257816_ + _e257681257819_ + _hd257680257822_ + _tl257679257824_ + _e257684257827_ + _hd257683257830_ + _tl257682257832_ + ___splice275699275700_ + _target257702257752_ + _tl257704257754_) (let () (declare (not safe)) - (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_)))) - (let () (declare (not safe)) (_g256399256514_))))) + (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_)))) + (let () (declare (not safe)) (_g257600257715_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256399256514_))) + (_g257600257715_))) (let () (declare (not safe)) - (_g256399256514_))) + (_g257600257715_))) (let () (declare (not safe)) - (_g256399256514_))))) + (_g257600257715_))))) (let () (declare (not safe)) - (_g256399256514_))))) - (let () (declare (not safe)) (_g256399256514_))) - (let () (declare (not safe)) (_g256399256514_))))))) + (_g257600257715_))))) + (let () (declare (not safe)) (_g257600257715_))) + (let () (declare (not safe)) (_g257600257715_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256399256514_))))) + (_g257600257715_))))) (let () (declare (not safe)) - (_g256399256514_))))))))) - (let* ((_clause256276256283_ _clause256271_) - (_E256278256287_ + (_g257600257715_))))))))) + (let* ((_clause257477257484_ _clause257472_) + (_E257479257488_ (lambda () - (error '"No clause matching" _clause256276256283_))) - (_K256279256380_ - (lambda (_kont256290_ _id256291_) - (let* ((_g256293256313_ - (lambda (_g256294256310_) + (error '"No clause matching" _clause257477257484_))) + (_K257480257581_ + (lambda (_kont257491_ _id257492_) + (let* ((_g257494257514_ + (lambda (_g257495257511_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g256294256310_)))) - (_g256292256377_ - (lambda (_g256294256316_) + _g257495257511_)))) + (_g257493257578_ + (lambda (_g257495257517_) (if (let () (declare (not safe)) - (gx#stx-pair? _g256294256316_)) - (let ((_e256299256318_ + (gx#stx-pair? _g257495257517_)) + (let ((_e257500257519_ (let () (declare (not safe)) - (gx#stx-e _g256294256316_)))) - (let ((_hd256298256321_ + (gx#stx-e _g257495257517_)))) + (let ((_hd257499257522_ (let () (declare (not safe)) - (##car _e256299256318_))) - (_tl256297256323_ + (##car _e257500257519_))) + (_tl257498257524_ (let () (declare (not safe)) - (##cdr _e256299256318_)))) + (##cdr _e257500257519_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd256298256321_)) + (gx#identifier? _hd257499257522_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd256298256321_)) + _hd257499257522_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256297256323_)) - (let ((_e256302256326_ + _tl257498257524_)) + (let ((_e257503257527_ (let () (declare (not safe)) (gx#stx-e - _tl256297256323_)))) - (let ((_hd256301256329_ + _tl257498257524_)))) + (let ((_hd257502257530_ (let () (declare (not safe)) - (##car _e256302256326_))) - (_tl256300256331_ + (##car _e257503257527_))) + (_tl257501257532_ (let () (declare (not safe)) - (##cdr _e256302256326_)))) + (##cdr _e257503257527_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd256301256329_)) - (let ((_e256305256334_ + _hd257502257530_)) + (let ((_e257506257535_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd256301256329_)))) - (let ((_hd256304256337_ + (gx#stx-e _hd257502257530_)))) + (let ((_hd257505257538_ (let () (declare (not safe)) - (##car _e256305256334_))) - (_tl256303256339_ + (##car _e257506257535_))) + (_tl257504257540_ (let () (declare (not safe)) - (##cdr _e256305256334_)))) + (##cdr _e257506257535_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256303256339_)) + (gx#stx-null? _tl257504257540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256300256331_)) - (let ((_e256308256342_ + (gx#stx-pair? _tl257501257532_)) + (let ((_e257509257543_ (let () (declare (not safe)) - (gx#stx-e _tl256300256331_)))) - (let ((_hd256307256345_ + (gx#stx-e _tl257501257532_)))) + (let ((_hd257508257546_ (let () (declare (not safe)) - (##car _e256308256342_))) - (_tl256306256347_ + (##car _e257509257543_))) + (_tl257507257548_ (let () (declare (not safe)) - (##cdr _e256308256342_)))) + (##cdr _e257509257543_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256306256347_)) - ((lambda (_L256350_ _L256351_) - (let* ((_body256372_ + (gx#stx-null? _tl257507257548_)) + ((lambda (_L257551_ _L257552_) + (let* ((_body257573_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L256350_ - _L256351_ - _target256273_))) - (_body256374_ - (if _negation256272_ + _L257551_ + _L257552_ + _target257474_))) + (_body257575_ + (if _negation257473_ (let () (declare (not safe)) - (_closure-e256275_ - _body256372_)) - _body256372_))) - (let ((__tmp275334 + (_closure-e257476_ + _body257573_)) + _body257573_))) + (let ((__tmp276535 (let () (declare (not safe)) (gxc#identifier-symbol - _id256291_))) - (__tmp275333 - (let ((__obj274767 + _id257492_))) + (__tmp276534 + (let ((__obj275968 (let () (declare (not safe)) (##structure @@ -18420,641 +18420,641 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj274767 + __obj275968 'lambda '0 '#f) - __obj274767))) + __obj275968))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp275334 - __tmp275333 + __tmp276535 + __tmp276534 '#t)) - (let ((__tmp275335 - (let ((__tmp275336 - (let ((__tmp275337 + (let ((__tmp276536 + (let ((__tmp276537 + (let ((__tmp276538 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body256374_ '())))) + (cons _body257575_ '())))) (declare (not safe)) - (cons '() __tmp275337)))) + (cons '() __tmp276538)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#lambda - __tmp275336)))) + __tmp276537)))) (declare (not safe)) - (cons _id256291_ __tmp275335)))) - _hd256307256345_ - _hd256304256337_) + (cons _id257492_ __tmp276536)))) + _hd257508257546_ + _hd257505257538_) (let () (declare (not safe)) - (_g256293256313_ _g256294256316_))))) + (_g257494257514_ _g257495257517_))))) (let () (declare (not safe)) - (_g256293256313_ _g256294256316_))) + (_g257494257514_ _g257495257517_))) (let () (declare (not safe)) - (_g256293256313_ _g256294256316_))))) + (_g257494257514_ _g257495257517_))))) (let () (declare (not safe)) - (_g256293256313_ _g256294256316_))))) + (_g257494257514_ _g257495257517_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g256293256313_ - _g256294256316_))) + (_g257494257514_ + _g257495257517_))) (let () (declare (not safe)) - (_g256293256313_ - _g256294256316_))) + (_g257494257514_ + _g257495257517_))) (let () (declare (not safe)) - (_g256293256313_ - _g256294256316_))))) + (_g257494257514_ + _g257495257517_))))) (let () (declare (not safe)) - (_g256293256313_ _g256294256316_)))))) + (_g257494257514_ _g257495257517_)))))) (declare (not safe)) - (_g256292256377_ _kont256290_))))) - (if (let () (declare (not safe)) (##pair? _clause256276256283_)) - (let ((_hd256280256383_ + (_g257493257578_ _kont257491_))))) + (if (let () (declare (not safe)) (##pair? _clause257477257484_)) + (let ((_hd257481257584_ (let () (declare (not safe)) - (##car _clause256276256283_))) - (_tl256281256385_ + (##car _clause257477257484_))) + (_tl257482257586_ (let () (declare (not safe)) - (##cdr _clause256276256283_)))) - (let* ((_id256388_ _hd256280256383_) - (_kont256390_ _tl256281256385_)) + (##cdr _clause257477257484_)))) + (let* ((_id257589_ _hd257481257584_) + (_kont257591_ _tl257482257586_)) (declare (not safe)) - (_K256279256380_ _kont256390_ _id256388_))) - (let () (declare (not safe)) (_E256278256287_))))))) + (_K257480257581_ _kont257591_ _id257589_))) + (let () (declare (not safe)) (_E257479257488_))))))) (define gxc#push-match-vars-let-values% - (lambda (_stx256057_ _vars256058_ _K256059_) - (let* ((_g256061256078_ - (lambda (_g256062256075_) + (lambda (_stx257258_ _vars257259_ _K257260_) + (let* ((_g257262257279_ + (lambda (_g257263257276_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g256062256075_)))) - (_g256060256268_ - (lambda (_g256062256081_) + _g257263257276_)))) + (_g257261257469_ + (lambda (_g257263257282_) (if (let () (declare (not safe)) - (gx#stx-pair? _g256062256081_)) - (let ((_e256067256083_ + (gx#stx-pair? _g257263257282_)) + (let ((_e257268257284_ (let () (declare (not safe)) - (gx#stx-e _g256062256081_)))) - (let ((_hd256066256086_ + (gx#stx-e _g257263257282_)))) + (let ((_hd257267257287_ (let () (declare (not safe)) - (##car _e256067256083_))) - (_tl256065256088_ + (##car _e257268257284_))) + (_tl257266257289_ (let () (declare (not safe)) - (##cdr _e256067256083_)))) + (##cdr _e257268257284_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256065256088_)) - (let ((_e256070256091_ + (gx#stx-pair? _tl257266257289_)) + (let ((_e257271257292_ (let () (declare (not safe)) - (gx#stx-e _tl256065256088_)))) - (let ((_hd256069256094_ + (gx#stx-e _tl257266257289_)))) + (let ((_hd257270257295_ (let () (declare (not safe)) - (##car _e256070256091_))) - (_tl256068256096_ + (##car _e257271257292_))) + (_tl257269257297_ (let () (declare (not safe)) - (##cdr _e256070256091_)))) + (##cdr _e257271257292_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256068256096_)) - (let ((_e256073256099_ + (gx#stx-pair? _tl257269257297_)) + (let ((_e257274257300_ (let () (declare (not safe)) - (gx#stx-e _tl256068256096_)))) - (let ((_hd256072256102_ + (gx#stx-e _tl257269257297_)))) + (let ((_hd257273257303_ (let () (declare (not safe)) - (##car _e256073256099_))) - (_tl256071256104_ + (##car _e257274257300_))) + (_tl257272257305_ (let () (declare (not safe)) - (##cdr _e256073256099_)))) + (##cdr _e257274257300_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl256071256104_)) - ((lambda (_L256107_ _L256108_) - (let _lp256123_ ((_rest256125_ + _tl257272257305_)) + ((lambda (_L257308_ _L257309_) + (let _lp257324_ ((_rest257326_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L256108_) - (_rebind256126_ '()) - (_vars256127_ _vars256058_)) + _L257309_) + (_rebind257327_ '()) + (_vars257328_ _vars257259_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest256128256136_ - _rest256125_) - (_else256130256144_ + (let* ((_rest257329257337_ + _rest257326_) + (_else257331257345_ (lambda () (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (null? _rebind256126_)) + (null? _rebind257327_)) (let () (declare (not safe)) - (gxc#compile-e__2 _L256107_ _vars256127_ _K256059_)) - (let ((__tmp275338 - (let ((__tmp275339 - (let ((__tmp275342 - (reverse _rebind256126_)) - (__tmp275340 - (let ((__tmp275341 + (gxc#compile-e__2 _L257308_ _vars257328_ _K257260_)) + (let ((__tmp276539 + (let ((__tmp276540 + (let ((__tmp276543 + (reverse _rebind257327_)) + (__tmp276541 + (let ((__tmp276542 (let () (declare (not safe)) (gxc#compile-e__2 - _L256107_ - _vars256127_ - _K256059_)))) + _L257308_ + _vars257328_ + _K257260_)))) (declare (not safe)) - (cons __tmp275341 '())))) + (cons __tmp276542 '())))) (declare (not safe)) - (cons __tmp275342 __tmp275340)))) + (cons __tmp276543 __tmp276541)))) (declare (not safe)) - (cons '%#let-values __tmp275339)))) + (cons '%#let-values __tmp276540)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp275338 _stx256057_))))) - (_K256132256256_ - (lambda (_rest256147_ _bind256148_) - (let* ((___stx274718274719_ _bind256148_) - (_g256151256174_ + (gxc#xform-wrap-source __tmp276539 _stx257258_))))) + (_K257333257457_ + (lambda (_rest257348_ _bind257349_) + (let* ((___stx275919275920_ _bind257349_) + (_g257352257375_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx274718274719_))))) - (let ((___kont274720274721_ - (lambda (_L256226_ _L256227_) - (let ((__tmp275343 + ___stx275919275920_))))) + (let ((___kont275921275922_ + (lambda (_L257427_ _L257428_) + (let ((__tmp276544 (let () (declare (not safe)) - (cons _bind256148_ _vars256127_)))) + (cons _bind257349_ _vars257328_)))) (declare (not safe)) - (_lp256123_ - _rest256147_ - _rebind256126_ - __tmp275343)))) - (___kont274722274723_ + (_lp257324_ + _rest257348_ + _rebind257327_ + __tmp276544)))) + (___kont275923275924_ (lambda () - (let ((__tmp275344 + (let ((__tmp276545 (let () (declare (not safe)) - (cons _bind256148_ _rebind256126_)))) + (cons _bind257349_ _rebind257327_)))) (declare (not safe)) - (_lp256123_ - _rest256147_ - __tmp275344 - _vars256127_))))) + (_lp257324_ + _rest257348_ + __tmp276545 + _vars257328_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx274718274719_)) - (let ((_e256157256186_ + (gx#stx-pair? ___stx275919275920_)) + (let ((_e257358257387_ (let () (declare (not safe)) - (gx#stx-e ___stx274718274719_)))) - (let ((_tl256155256191_ + (gx#stx-e ___stx275919275920_)))) + (let ((_tl257356257392_ (let () (declare (not safe)) - (##cdr _e256157256186_))) - (_hd256156256189_ + (##cdr _e257358257387_))) + (_hd257357257390_ (let () (declare (not safe)) - (##car _e256157256186_)))) + (##car _e257358257387_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd256156256189_)) - (let ((_e256160256194_ + (gx#stx-pair? _hd257357257390_)) + (let ((_e257361257395_ (let () (declare (not safe)) - (gx#stx-e _hd256156256189_)))) - (let ((_tl256158256199_ + (gx#stx-e _hd257357257390_)))) + (let ((_tl257359257400_ (let () (declare (not safe)) - (##cdr _e256160256194_))) - (_hd256159256197_ + (##cdr _e257361257395_))) + (_hd257360257398_ (let () (declare (not safe)) - (##car _e256160256194_)))) + (##car _e257361257395_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256158256199_)) + (gx#stx-null? _tl257359257400_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl256155256191_)) - (let ((_e256163256202_ + _tl257356257392_)) + (let ((_e257364257403_ (let () (declare (not safe)) (gx#stx-e - _tl256155256191_)))) - (let ((_tl256161256207_ + _tl257356257392_)))) + (let ((_tl257362257408_ (let () (declare (not safe)) - (##cdr _e256163256202_))) - (_hd256162256205_ + (##cdr _e257364257403_))) + (_hd257363257406_ (let () (declare (not safe)) - (##car _e256163256202_)))) + (##car _e257364257403_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd256162256205_)) - (let ((_e256166256210_ + _hd257363257406_)) + (let ((_e257367257411_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd256162256205_)))) - (let ((_tl256164256215_ + (gx#stx-e _hd257363257406_)))) + (let ((_tl257365257416_ (let () (declare (not safe)) - (##cdr _e256166256210_))) - (_hd256165256213_ + (##cdr _e257367257411_))) + (_hd257366257414_ (let () (declare (not safe)) - (##car _e256166256210_)))) + (##car _e257367257411_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd256165256213_)) + (gx#identifier? _hd257366257414_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd256165256213_)) + (gx#stx-eq? '%#ref _hd257366257414_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl256164256215_)) - (let ((_e256169256218_ + (gx#stx-pair? _tl257365257416_)) + (let ((_e257370257419_ (let () (declare (not safe)) - (gx#stx-e _tl256164256215_)))) - (let ((_tl256167256223_ + (gx#stx-e _tl257365257416_)))) + (let ((_tl257368257424_ (let () (declare (not safe)) - (##cdr _e256169256218_))) - (_hd256168256221_ + (##cdr _e257370257419_))) + (_hd257369257422_ (let () (declare (not safe)) - (##car _e256169256218_)))) + (##car _e257370257419_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl256167256223_)) + (gx#stx-null? _tl257368257424_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl256161256207_)) - (___kont274720274721_ - _hd256168256221_ - _hd256159256197_) - (___kont274722274723_)) - (___kont274722274723_)))) - (___kont274722274723_)) - (___kont274722274723_)) - (___kont274722274723_)))) - (___kont274722274723_)))) + (gx#stx-null? _tl257362257408_)) + (___kont275921275922_ + _hd257369257422_ + _hd257360257398_) + (___kont275923275924_)) + (___kont275923275924_)))) + (___kont275923275924_)) + (___kont275923275924_)) + (___kont275923275924_)))) + (___kont275923275924_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont274722274723_)) - (___kont274722274723_)))) - (___kont274722274723_)))) - (___kont274722274723_))))))) + (___kont275923275924_)) + (___kont275923275924_)))) + (___kont275923275924_)))) + (___kont275923275924_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest256128256136_)) - (let ((_hd256133256259_ + (##pair? _rest257329257337_)) + (let ((_hd257334257460_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _rest256128256136_))) - (_tl256134256261_ + (##car _rest257329257337_))) + (_tl257335257462_ (let () (declare (not safe)) - (##cdr _rest256128256136_)))) - (let* ((_bind256264_ _hd256133256259_) - (_rest256266_ _tl256134256261_)) + (##cdr _rest257329257337_)))) + (let* ((_bind257465_ _hd257334257460_) + (_rest257467_ _tl257335257462_)) (declare (not safe)) - (_K256132256256_ _rest256266_ _bind256264_))) - (let () (declare (not safe)) (_else256130256144_)))))) + (_K257333257457_ _rest257467_ _bind257465_))) + (let () (declare (not safe)) (_else257331257345_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd256072256102_ - _hd256069256094_) + _hd257273257303_ + _hd257270257295_) (let () (declare (not safe)) - (_g256061256078_ - _g256062256081_))))) + (_g257262257279_ + _g257263257282_))))) (let () (declare (not safe)) - (_g256061256078_ _g256062256081_))))) + (_g257262257279_ _g257263257282_))))) (let () (declare (not safe)) - (_g256061256078_ _g256062256081_))))) + (_g257262257279_ _g257263257282_))))) (let () (declare (not safe)) - (_g256061256078_ _g256062256081_)))))) + (_g257262257279_ _g257263257282_)))))) (declare (not safe)) - (_g256060256268_ _stx256057_)))) + (_g257261257469_ _stx257258_)))) (define gxc#push-match-vars-if% - (lambda (_stx255972_ _vars255973_ _K255974_) - (let* ((_g255976255997_ - (lambda (_g255977255994_) + (lambda (_stx257173_ _vars257174_ _K257175_) + (let* ((_g257177257198_ + (lambda (_g257178257195_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g255977255994_)))) - (_g255975256054_ - (lambda (_g255977256000_) + _g257178257195_)))) + (_g257176257255_ + (lambda (_g257178257201_) (if (let () (declare (not safe)) - (gx#stx-pair? _g255977256000_)) - (let ((_e255983256002_ + (gx#stx-pair? _g257178257201_)) + (let ((_e257184257203_ (let () (declare (not safe)) - (gx#stx-e _g255977256000_)))) - (let ((_hd255982256005_ + (gx#stx-e _g257178257201_)))) + (let ((_hd257183257206_ (let () (declare (not safe)) - (##car _e255983256002_))) - (_tl255981256007_ + (##car _e257184257203_))) + (_tl257182257208_ (let () (declare (not safe)) - (##cdr _e255983256002_)))) + (##cdr _e257184257203_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255981256007_)) - (let ((_e255986256010_ + (gx#stx-pair? _tl257182257208_)) + (let ((_e257187257211_ (let () (declare (not safe)) - (gx#stx-e _tl255981256007_)))) - (let ((_hd255985256013_ + (gx#stx-e _tl257182257208_)))) + (let ((_hd257186257214_ (let () (declare (not safe)) - (##car _e255986256010_))) - (_tl255984256015_ + (##car _e257187257211_))) + (_tl257185257216_ (let () (declare (not safe)) - (##cdr _e255986256010_)))) + (##cdr _e257187257211_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255984256015_)) - (let ((_e255989256018_ + (gx#stx-pair? _tl257185257216_)) + (let ((_e257190257219_ (let () (declare (not safe)) - (gx#stx-e _tl255984256015_)))) - (let ((_hd255988256021_ + (gx#stx-e _tl257185257216_)))) + (let ((_hd257189257222_ (let () (declare (not safe)) - (##car _e255989256018_))) - (_tl255987256023_ + (##car _e257190257219_))) + (_tl257188257224_ (let () (declare (not safe)) - (##cdr _e255989256018_)))) + (##cdr _e257190257219_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255987256023_)) - (let ((_e255992256026_ + _tl257188257224_)) + (let ((_e257193257227_ (let () (declare (not safe)) (gx#stx-e - _tl255987256023_)))) - (let ((_hd255991256029_ + _tl257188257224_)))) + (let ((_hd257192257230_ (let () (declare (not safe)) - (##car _e255992256026_))) - (_tl255990256031_ + (##car _e257193257227_))) + (_tl257191257232_ (let () (declare (not safe)) - (##cdr _e255992256026_)))) + (##cdr _e257193257227_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl255990256031_)) - ((lambda (_L256034_ - _L256035_ - _L256036_) - (if (let ((__tmp275351 + _tl257191257232_)) + ((lambda (_L257235_ + _L257236_ + _L257237_) + (if (let ((__tmp276552 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _vars255973_))) + (map caar _vars257174_))) (declare (not safe)) - (gxc#apply-find-var-refs _L256036_ __tmp275351)) + (gxc#apply-find-var-refs _L257237_ __tmp276552)) (let () (declare (not safe)) (gxc#push-match-vars-stop - _stx255972_ - _vars255973_ - _K255974_)) - (let ((__tmp275345 - (let ((__tmp275346 - (let ((__tmp275347 - (let ((__tmp275350 + _stx257173_ + _vars257174_ + _K257175_)) + (let ((__tmp276546 + (let ((__tmp276547 + (let ((__tmp276548 + (let ((__tmp276551 (let () (declare (not safe)) (gxc#compile-e__2 - _L256035_ - _vars255973_ - _K255974_))) - (__tmp275348 - (let ((__tmp275349 + _L257236_ + _vars257174_ + _K257175_))) + (__tmp276549 + (let ((__tmp276550 (let () (declare (not safe)) (gxc#compile-e__2 - _L256034_ - _vars255973_ - _K255974_)))) + _L257235_ + _vars257174_ + _K257175_)))) (declare (not safe)) - (cons __tmp275349 '())))) + (cons __tmp276550 '())))) (declare (not safe)) - (cons __tmp275350 __tmp275348)))) + (cons __tmp276551 __tmp276549)))) (declare (not safe)) - (cons _L256036_ __tmp275347)))) + (cons _L257237_ __tmp276548)))) (declare (not safe)) - (cons '%#if __tmp275346)))) + (cons '%#if __tmp276547)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp275345 _stx255972_)))) - _hd255991256029_ - _hd255988256021_ - _hd255985256013_) + (gxc#xform-wrap-source __tmp276546 _stx257173_)))) + _hd257192257230_ + _hd257189257222_ + _hd257186257214_) (let () (declare (not safe)) - (_g255976255997_ _g255977256000_))))) + (_g257177257198_ _g257178257201_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255976255997_ - _g255977256000_))))) + (_g257177257198_ + _g257178257201_))))) (let () (declare (not safe)) - (_g255976255997_ _g255977256000_))))) + (_g257177257198_ _g257178257201_))))) (let () (declare (not safe)) - (_g255976255997_ _g255977256000_))))) + (_g257177257198_ _g257178257201_))))) (let () (declare (not safe)) - (_g255976255997_ _g255977256000_)))))) + (_g257177257198_ _g257178257201_)))))) (declare (not safe)) - (_g255975256054_ _stx255972_)))) + (_g257176257255_ _stx257173_)))) (define gxc#push-match-vars-call% - (lambda (_stx255892_ _vars255893_ _K255894_) - (let* ((_g255896255915_ - (lambda (_g255897255912_) + (lambda (_stx257093_ _vars257094_ _K257095_) + (let* ((_g257097257116_ + (lambda (_g257098257113_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g255897255912_)))) - (_g255895255969_ - (lambda (_g255897255918_) + _g257098257113_)))) + (_g257096257170_ + (lambda (_g257098257119_) (if (let () (declare (not safe)) - (gx#stx-pair? _g255897255918_)) - (let ((_e255901255920_ + (gx#stx-pair? _g257098257119_)) + (let ((_e257102257121_ (let () (declare (not safe)) - (gx#stx-e _g255897255918_)))) - (let ((_hd255900255923_ + (gx#stx-e _g257098257119_)))) + (let ((_hd257101257124_ (let () (declare (not safe)) - (##car _e255901255920_))) - (_tl255899255925_ + (##car _e257102257121_))) + (_tl257100257126_ (let () (declare (not safe)) - (##cdr _e255901255920_)))) + (##cdr _e257102257121_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl255899255925_)) - (let ((_e255904255928_ + (gx#stx-pair? _tl257100257126_)) + (let ((_e257105257129_ (let () (declare (not safe)) - (gx#stx-e _tl255899255925_)))) - (let ((_hd255903255931_ + (gx#stx-e _tl257100257126_)))) + (let ((_hd257104257132_ (let () (declare (not safe)) - (##car _e255904255928_))) - (_tl255902255933_ + (##car _e257105257129_))) + (_tl257103257134_ (let () (declare (not safe)) - (##cdr _e255904255928_)))) + (##cdr _e257105257129_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd255903255931_)) - (let ((_e255907255936_ + (gx#stx-pair? _hd257104257132_)) + (let ((_e257108257137_ (let () (declare (not safe)) - (gx#stx-e _hd255903255931_)))) - (let ((_hd255906255939_ + (gx#stx-e _hd257104257132_)))) + (let ((_hd257107257140_ (let () (declare (not safe)) - (##car _e255907255936_))) - (_tl255905255941_ + (##car _e257108257137_))) + (_tl257106257142_ (let () (declare (not safe)) - (##cdr _e255907255936_)))) + (##cdr _e257108257137_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd255906255939_)) + _hd257107257140_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd255906255939_)) + _hd257107257140_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl255905255941_)) - (let ((_e255910255944_ + _tl257106257142_)) + (let ((_e257111257145_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl255905255941_)))) - (let ((_hd255909255947_ - (let () (declare (not safe)) (##car _e255910255944_))) - (_tl255908255949_ - (let () (declare (not safe)) (##cdr _e255910255944_)))) + (gx#stx-e _tl257106257142_)))) + (let ((_hd257110257148_ + (let () (declare (not safe)) (##car _e257111257145_))) + (_tl257109257150_ + (let () (declare (not safe)) (##cdr _e257111257145_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl255908255949_)) - ((lambda (_L255952_) + (gx#stx-null? _tl257109257150_)) + ((lambda (_L257153_) (if (and (let () (declare (not safe)) - (gx#free-identifier=? _L255952_ _K255894_)) + (gx#free-identifier=? _L257153_ _K257095_)) (let () (declare (not safe)) - (pair? _vars255893_))) - (let ((__tmp275352 - (let ((__tmp275353 - (let ((__tmp275355 - (reverse _vars255893_)) - (__tmp275354 + (pair? _vars257094_))) + (let ((__tmp276553 + (let ((__tmp276554 + (let ((__tmp276556 + (reverse _vars257094_)) + (__tmp276555 (let () (declare (not safe)) - (cons _stx255892_ '())))) + (cons _stx257093_ '())))) (declare (not safe)) - (cons __tmp275355 __tmp275354)))) + (cons __tmp276556 __tmp276555)))) (declare (not safe)) - (cons '%#let-values __tmp275353)))) + (cons '%#let-values __tmp276554)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp275352 _stx255892_)) - _stx255892_)) - _hd255909255947_) + (gxc#xform-wrap-source __tmp276553 _stx257093_)) + _stx257093_)) + _hd257110257148_) (let () (declare (not safe)) - (_g255896255915_ _g255897255918_))))) - (let () (declare (not safe)) (_g255896255915_ _g255897255918_))) + (_g257097257116_ _g257098257119_))))) + (let () (declare (not safe)) (_g257097257116_ _g257098257119_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g255896255915_ - _g255897255918_))) + (_g257097257116_ + _g257098257119_))) (let () (declare (not safe)) - (_g255896255915_ - _g255897255918_))))) + (_g257097257116_ + _g257098257119_))))) (let () (declare (not safe)) - (_g255896255915_ _g255897255918_))))) + (_g257097257116_ _g257098257119_))))) (let () (declare (not safe)) - (_g255896255915_ _g255897255918_))))) + (_g257097257116_ _g257098257119_))))) (let () (declare (not safe)) - (_g255896255915_ _g255897255918_)))))) + (_g257097257116_ _g257098257119_)))))) (declare (not safe)) - (_g255895255969_ _stx255892_)))) + (_g257096257170_ _stx257093_)))) (define gxc#push-match-vars-stop - (lambda (_stx255888_ _vars255889_ _K255890_) - (if (let () (declare (not safe)) (null? _vars255889_)) - _stx255888_ - (let ((__tmp275356 - (let ((__tmp275357 - (let ((__tmp275359 (reverse _vars255889_)) - (__tmp275358 + (lambda (_stx257089_ _vars257090_ _K257091_) + (if (let () (declare (not safe)) (null? _vars257090_)) + _stx257089_ + (let ((__tmp276557 + (let ((__tmp276558 + (let ((__tmp276560 (reverse _vars257090_)) + (__tmp276559 (let () (declare (not safe)) - (cons _stx255888_ '())))) + (cons _stx257089_ '())))) (declare (not safe)) - (cons __tmp275359 __tmp275358)))) + (cons __tmp276560 __tmp276559)))) (declare (not safe)) - (cons '%#let-values __tmp275357)))) + (cons '%#let-values __tmp276558)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp275356 _stx255888_))))))) + (gxc#xform-wrap-source __tmp276557 _stx257089_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base.ssi b/src/bootstrap/gerbil/compiler/optimize-base.ssi index 629eabe2c..8e2f17100 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base.ssi +++ b/src/bootstrap/gerbil/compiler/optimize-base.ssi @@ -88,6 +88,7 @@ namespace: gxc (%#define-runtime !class-constructor gxc#!class-constructor) (%#define-runtime !class-struct? gxc#!class-struct?) (%#define-runtime !class-final? gxc#!class-final?) + (%#define-runtime !class-metaclass gxc#!class-metaclass) (%#define-runtime !class-methods gxc#!class-methods) (%#define-runtime !class-id gxc#!class-id) (%#define-runtime !class-super-set! gxc#!class-super-set!) @@ -99,6 +100,7 @@ namespace: gxc (%#define-runtime !class-constructor-set! gxc#!class-constructor-set!) (%#define-runtime !class-struct?-set! gxc#!class-struct?-set!) (%#define-runtime !class-final?-set! gxc#!class-final?-set!) + (%#define-runtime !class-metaclass-set! gxc#!class-metaclass-set!) (%#define-runtime !class-methods-set! gxc#!class-methods-set!) (%#define-runtime !class-id-set! gxc#!class-id-set!) (%#define-runtime &!class-super gxc#&!class-super) @@ -108,6 +110,7 @@ namespace: gxc (%#define-runtime &!class-constructor gxc#&!class-constructor) (%#define-runtime &!class-struct? gxc#&!class-struct?) (%#define-runtime &!class-final? gxc#&!class-final?) + (%#define-runtime &!class-metaclass gxc#&!class-metaclass) (%#define-runtime &!class-methods gxc#&!class-methods) (%#define-runtime &!class-id gxc#&!class-id) (%#define-runtime &!class-super-set! gxc#&!class-super-set!) @@ -121,6 +124,7 @@ namespace: gxc gxc#&!class-constructor-set!) (%#define-runtime &!class-struct?-set! gxc#&!class-struct?-set!) (%#define-runtime &!class-final?-set! gxc#&!class-final?-set!) + (%#define-runtime &!class-metaclass-set! gxc#&!class-metaclass-set!) (%#define-runtime &!class-methods-set! gxc#&!class-methods-set!) (%#define-runtime &!class-id-set! gxc#&!class-id-set!) (%#define-syntax !class |gxc[:0:]#!class|) diff --git a/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss b/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss index f52326ece..fda72bdc2 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss +++ b/src/bootstrap/gerbil/compiler/optimize-base.ssxi.ss @@ -12,6 +12,7 @@ package: gerbil/compiler :init! #t #f + #f ((:init! . gxc#optimizer-info:::init!)))) (declare-type gxc#optimizer-info? (@predicate gxc#optimizer-info::t)) (declare-type gxc#make-optimizer-info (@constructor gxc#optimizer-info::t)) @@ -52,7 +53,9 @@ package: gerbil/compiler gxc#&optimizer-info-methods-set! (@mutator gxc#optimizer-info::t methods #f)) (declare-type gxc#optimizer-info:::init! (@lambda 1 #f)) - (declare-type gxc#!type::t (@class gxc#!type::t () () (id) (id) #f #t #f #f)) + (declare-type + gxc#!type::t + (@class gxc#!type::t () () (id) (id) #f #t #f #f #f)) (declare-type gxc#!type? (@predicate gxc#!type::t)) (declare-type gxc#make-!type (@constructor gxc#!type::t)) (declare-type gxc#!type-id (@accessor gxc#!type::t id #t)) @@ -61,7 +64,7 @@ package: gerbil/compiler (declare-type gxc#&!type-id-set! (@mutator gxc#!type::t id #f)) (declare-type gxc#!alias::t - (@class gxc#!alias::t (gxc#!type::t) (gxc#!type::t) () (id) #f #t #f #f)) + (@class gxc#!alias::t (gxc#!type::t) (gxc#!type::t) () (id) #f #t #f #f #f)) (declare-type gxc#!alias? (@predicate gxc#!alias::t)) (declare-type gxc#make-!alias (@constructor gxc#!alias::t)) (declare-type gxc#!alias-id (@accessor gxc#!alias::t id #t)) @@ -78,6 +81,7 @@ package: gerbil/compiler #f #t #f + #f #f)) (declare-type gxc#!procedure? (@predicate gxc#!procedure::t)) (declare-type gxc#make-!procedure (@constructor gxc#!procedure::t)) @@ -96,6 +100,7 @@ package: gerbil/compiler constructor struct? final? + metaclass methods) (id super precedence-list @@ -104,10 +109,12 @@ package: gerbil/compiler constructor struct? final? + metaclass methods) :init! #t #f + #f ((:init! . gxc#!class:::init!)))) (declare-type gxc#!class? (@predicate gxc#!class::t)) (declare-type gxc#make-!class (@constructor gxc#!class::t)) @@ -122,6 +129,7 @@ package: gerbil/compiler (@accessor gxc#!class::t constructor #t)) (declare-type gxc#!class-struct? (@accessor gxc#!class::t struct? #t)) (declare-type gxc#!class-final? (@accessor gxc#!class::t final? #t)) + (declare-type gxc#!class-metaclass (@accessor gxc#!class::t metaclass #t)) (declare-type gxc#!class-methods (@accessor gxc#!class::t methods #t)) (declare-type gxc#!class-id (@accessor gxc#!class::t id #t)) (declare-type gxc#!class-super-set! (@mutator gxc#!class::t super #t)) @@ -135,6 +143,9 @@ package: gerbil/compiler (@mutator gxc#!class::t constructor #t)) (declare-type gxc#!class-struct?-set! (@mutator gxc#!class::t struct? #t)) (declare-type gxc#!class-final?-set! (@mutator gxc#!class::t final? #t)) + (declare-type + gxc#!class-metaclass-set! + (@mutator gxc#!class::t metaclass #t)) (declare-type gxc#!class-methods-set! (@mutator gxc#!class::t methods #t)) (declare-type gxc#!class-id-set! (@mutator gxc#!class::t id #t)) (declare-type gxc#&!class-super (@accessor gxc#!class::t super #f)) @@ -148,6 +159,7 @@ package: gerbil/compiler (@accessor gxc#!class::t constructor #f)) (declare-type gxc#&!class-struct? (@accessor gxc#!class::t struct? #f)) (declare-type gxc#&!class-final? (@accessor gxc#!class::t final? #f)) + (declare-type gxc#&!class-metaclass (@accessor gxc#!class::t metaclass #f)) (declare-type gxc#&!class-methods (@accessor gxc#!class::t methods #f)) (declare-type gxc#&!class-id (@accessor gxc#!class::t id #f)) (declare-type gxc#&!class-super-set! (@mutator gxc#!class::t super #f)) @@ -161,6 +173,9 @@ package: gerbil/compiler (@mutator gxc#!class::t constructor #f)) (declare-type gxc#&!class-struct?-set! (@mutator gxc#!class::t struct? #f)) (declare-type gxc#&!class-final?-set! (@mutator gxc#!class::t final? #f)) + (declare-type + gxc#&!class-metaclass-set! + (@mutator gxc#!class::t metaclass #f)) (declare-type gxc#&!class-methods-set! (@mutator gxc#!class::t methods #f)) (declare-type gxc#&!class-id-set! (@mutator gxc#!class::t id #f)) (declare-type @@ -173,6 +188,7 @@ package: gerbil/compiler #f #t #f + #f ((:init! . gxc#!predicate:::init!)))) (declare-type gxc#!predicate? (@predicate gxc#!predicate::t)) (declare-type gxc#make-!predicate (@constructor gxc#!predicate::t)) @@ -190,6 +206,7 @@ package: gerbil/compiler #f #t #f + #f ((:init! . gxc#!constructor:::init!)))) (declare-type gxc#!constructor? (@predicate gxc#!constructor::t)) (declare-type gxc#make-!constructor (@constructor gxc#!constructor::t)) @@ -207,6 +224,7 @@ package: gerbil/compiler #f #t #f + #f ((:init! . gxc#!accessor:::init!)))) (declare-type gxc#!accessor? (@predicate gxc#!accessor::t)) (declare-type gxc#make-!accessor (@constructor gxc#!accessor::t)) @@ -240,6 +258,7 @@ package: gerbil/compiler #f #t #f + #f ((:init! . gxc#!mutator:::init!)))) (declare-type gxc#!mutator? (@predicate gxc#!mutator::t)) (declare-type gxc#make-!mutator (@constructor gxc#!mutator::t)) @@ -269,6 +288,7 @@ package: gerbil/compiler :init! #t #f + #f ((:init! . gxc#!lambda:::init!)))) (declare-type gxc#!lambda? (@predicate gxc#!lambda::t)) (declare-type gxc#make-!lambda (@constructor gxc#!lambda::t)) @@ -314,6 +334,7 @@ package: gerbil/compiler #f #t #f + #f #f)) (declare-type gxc#!case-lambda? (@predicate gxc#!case-lambda::t)) (declare-type gxc#make-!case-lambda (@constructor gxc#!case-lambda::t)) @@ -343,6 +364,7 @@ package: gerbil/compiler #f #t #f + #f #f)) (declare-type gxc#!kw-lambda? (@predicate gxc#!kw-lambda::t)) (declare-type gxc#make-!kw-lambda (@constructor gxc#!kw-lambda::t)) @@ -380,6 +402,7 @@ package: gerbil/compiler #f #t #f + #f #f)) (declare-type gxc#!kw-lambda-primary? (@predicate gxc#!kw-lambda-primary::t)) (declare-type @@ -423,7 +446,7 @@ package: gerbil/compiler (@mutator gxc#!kw-lambda-primary::t id #f)) (declare-type gxc#!primitive::t - (@class gxc#!primitive::t () () () () #f #f #f #f)) + (@class gxc#!primitive::t () () () () #f #f #f #f #f)) (declare-type gxc#!primitive? (@predicate gxc#!primitive::t)) (declare-type gxc#make-!primitive (@constructor gxc#!primitive::t)) (declare-type @@ -436,6 +459,7 @@ package: gerbil/compiler :init! #f #f + #f ((:init! . gxc#!primitive-lambda:::init!)))) (declare-type gxc#!primitive-lambda? (@predicate gxc#!primitive-lambda::t)) (declare-type @@ -514,6 +538,7 @@ package: gerbil/compiler :init! #f #f + #f ((:init! . gxc#!primitive-case-lambda:::init!)))) (declare-type gxc#!primitive-case-lambda? @@ -545,11 +570,11 @@ package: gerbil/compiler (declare-type gxc#&!primitive-case-lambda-id-set! (@mutator gxc#!primitive-case-lambda::t id #f)) - (declare-type gxc#!class:::init!__0 (@lambda 7 #f)) - (declare-type gxc#!class:::init!__1 (@lambda 10 #f)) + (declare-type gxc#!class:::init!__0 (@lambda 8 #f)) + (declare-type gxc#!class:::init!__1 (@lambda 11 #f)) (declare-type gxc#!class:::init! - (@case-lambda (7 gxc#!class:::init!__0) (10 gxc#!class:::init!__1))) + (@case-lambda (8 gxc#!class:::init!__0) (11 gxc#!class:::init!__1))) (declare-type gxc#!class:::init!::specialize (@lambda 1 #f)) (declare-type gxc#compute-class-fields (@lambda 4 #f)) (declare-type gxc#!class-slot->field-offset (@lambda 2 #f)) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__0.scm b/src/bootstrap/gerbil/compiler/optimize-base__0.scm index ef7b1deb3..6b5a59559 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__0.scm @@ -1,32 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1707773929) + (define gerbil/compiler/optimize-base::timestamp 1708102805) (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#optimizer-info::t - (let ((__tmp220251 (list)) - (__tmp220249 - (let ((__tmp220250 + (let ((__tmp221416 (list)) + (__tmp221414 + (let ((__tmp221415 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220250 '())))) + (cons __tmp221415 '())))) (declare (not safe)) (make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp220251 + __tmp221416 '(type ssxi methods) - __tmp220249 + __tmp221414 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _$args215624_ - (apply make-instance gxc#optimizer-info::t _$args215624_))) + (lambda _$args216787_ + (apply make-instance gxc#optimizer-info::t _$args216787_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -76,59 +76,59 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_self215622_) - (if (let ((__tmp220258 + (lambda (_self216785_) + (if (let ((__tmp221423 (let () (declare (not safe)) - (##structure-length _self215622_)))) + (##structure-length _self216785_)))) (declare (not safe)) - (##fx< '3 __tmp220258)) + (##fx< '3 __tmp221423)) (begin - (let ((__tmp220253 + (let ((__tmp221418 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp220252 + (__tmp221417 (let () (declare (not safe)) - (##structure-type _self215622_)))) + (##structure-type _self216785_)))) (declare (not safe)) (##unchecked-structure-set! - _self215622_ - __tmp220253 + _self216785_ + __tmp221418 '1 - __tmp220252 + __tmp221417 '#f)) - (let ((__tmp220255 + (let ((__tmp221420 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp220254 + (__tmp221419 (let () (declare (not safe)) - (##structure-type _self215622_)))) + (##structure-type _self216785_)))) (declare (not safe)) (##unchecked-structure-set! - _self215622_ - __tmp220255 + _self216785_ + __tmp221420 '2 - __tmp220254 + __tmp221419 '#f)) - (let ((__tmp220257 + (let ((__tmp221422 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp220256 + (__tmp221421 (let () (declare (not safe)) - (##structure-type _self215622_)))) + (##structure-type _self216785_)))) (declare (not safe)) (##unchecked-structure-set! - _self215622_ - __tmp220257 + _self216785_ + __tmp221422 '3 - __tmp220256 + __tmp221421 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self215622_ + _self216785_ '3 (let () (declare (not safe)) - (##vector-length _self215622_)))))) + (##vector-length _self216785_)))))) (let () (declare (not safe)) (bind-method! @@ -137,24 +137,24 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp220261 (list)) - (__tmp220259 - (let ((__tmp220260 + (let ((__tmp221426 (list)) + (__tmp221424 + (let ((__tmp221425 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220260 '())))) + (cons __tmp221425 '())))) (declare (not safe)) (make-class-type 'gxc#!type::t '!type - __tmp220261 + __tmp221426 '(id) - __tmp220259 + __tmp221424 '#f))) (define gxc#!type? (let () (declare (not safe)) (make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _$args215497_ (apply make-instance gxc#!type::t _$args215497_))) + (lambda _$args216660_ (apply make-instance gxc#!type::t _$args216660_))) (define gxc#!type-id (let () (declare (not safe)) @@ -170,24 +170,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!alias::t - (let ((__tmp220264 (list gxc#!type::t)) - (__tmp220262 - (let ((__tmp220263 + (let ((__tmp221429 (list gxc#!type::t)) + (__tmp221427 + (let ((__tmp221428 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220263 '())))) + (cons __tmp221428 '())))) (declare (not safe)) (make-class-type 'gxc#!alias::t '!alias - __tmp220264 + __tmp221429 '() - __tmp220262 + __tmp221427 '#f))) (define gxc#!alias? (let () (declare (not safe)) (make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _$args215494_ (apply make-instance gxc#!alias::t _$args215494_))) + (lambda _$args216657_ (apply make-instance gxc#!alias::t _$args216657_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -205,25 +205,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!procedure::t - (let ((__tmp220267 (list gxc#!type::t)) - (__tmp220265 - (let ((__tmp220266 + (let ((__tmp221432 (list gxc#!type::t)) + (__tmp221430 + (let ((__tmp221431 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220266 '())))) + (cons __tmp221431 '())))) (declare (not safe)) (make-class-type 'gxc#!procedure::t '!procedure - __tmp220267 + __tmp221432 '() - __tmp220265 + __tmp221430 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (make-class-predicate gxc#!procedure::t))) (define gxc#make-!procedure - (lambda _$args215491_ - (apply make-instance gxc#!procedure::t _$args215491_))) + (lambda _$args216654_ + (apply make-instance gxc#!procedure::t _$args216654_))) (define gxc#!procedure-id (let () (declare (not safe)) @@ -241,30 +241,31 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#!class::t - (let ((__tmp220270 (list gxc#!type::t)) - (__tmp220268 - (let ((__tmp220269 + (let ((__tmp221435 (list gxc#!type::t)) + (__tmp221433 + (let ((__tmp221434 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220269 '())))) + (cons __tmp221434 '())))) (declare (not safe)) (make-class-type 'gxc#!class::t '!class - __tmp220270 + __tmp221435 '(super precedence-list slots fields constructor struct? final? + metaclass methods) - __tmp220268 + __tmp221433 ':init!))) (define gxc#!class? (let () (declare (not safe)) (make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _$args215488_ (apply make-instance gxc#!class::t _$args215488_))) + (lambda _$args216651_ (apply make-instance gxc#!class::t _$args216651_))) (define gxc#!class-super (let () (declare (not safe)) @@ -293,6 +294,10 @@ (let () (declare (not safe)) (make-class-slot-accessor gxc#!class::t 'final?))) + (define gxc#!class-metaclass + (let () + (declare (not safe)) + (make-class-slot-accessor gxc#!class::t 'metaclass))) (define gxc#!class-methods (let () (declare (not safe)) @@ -329,6 +334,10 @@ (let () (declare (not safe)) (make-class-slot-mutator gxc#!class::t 'final?))) + (define gxc#!class-metaclass-set! + (let () + (declare (not safe)) + (make-class-slot-mutator gxc#!class::t 'metaclass))) (define gxc#!class-methods-set! (let () (declare (not safe)) @@ -365,6 +374,10 @@ (let () (declare (not safe)) (make-class-slot-unchecked-accessor gxc#!class::t 'final?))) + (define gxc#&!class-metaclass + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor gxc#!class::t 'metaclass))) (define gxc#&!class-methods (let () (declare (not safe)) @@ -401,6 +414,10 @@ (let () (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!class::t 'final?))) + (define gxc#&!class-metaclass-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator gxc#!class::t 'metaclass))) (define gxc#&!class-methods-set! (let () (declare (not safe)) @@ -410,25 +427,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp220273 (list gxc#!procedure::t)) - (__tmp220271 - (let ((__tmp220272 + (let ((__tmp221438 (list gxc#!procedure::t)) + (__tmp221436 + (let ((__tmp221437 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220272 '())))) + (cons __tmp221437 '())))) (declare (not safe)) (make-class-type 'gxc#!predicate::t '!predicate - __tmp220273 + __tmp221438 '() - __tmp220271 + __tmp221436 '#f))) (define gxc#!predicate? (let () (declare (not safe)) (make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _$args215485_ - (apply make-instance gxc#!predicate::t _$args215485_))) + (lambda _$args216648_ + (apply make-instance gxc#!predicate::t _$args216648_))) (define gxc#!predicate-id (let () (declare (not safe)) @@ -446,25 +463,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp220276 (list gxc#!procedure::t)) - (__tmp220274 - (let ((__tmp220275 + (let ((__tmp221441 (list gxc#!procedure::t)) + (__tmp221439 + (let ((__tmp221440 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220275 '())))) + (cons __tmp221440 '())))) (declare (not safe)) (make-class-type 'gxc#!constructor::t '!constructor - __tmp220276 + __tmp221441 '() - __tmp220274 + __tmp221439 '#f))) (define gxc#!constructor? (let () (declare (not safe)) (make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _$args215482_ - (apply make-instance gxc#!constructor::t _$args215482_))) + (lambda _$args216645_ + (apply make-instance gxc#!constructor::t _$args216645_))) (define gxc#!constructor-id (let () (declare (not safe)) @@ -482,25 +499,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp220279 (list gxc#!procedure::t)) - (__tmp220277 - (let ((__tmp220278 + (let ((__tmp221444 (list gxc#!procedure::t)) + (__tmp221442 + (let ((__tmp221443 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220278 '())))) + (cons __tmp221443 '())))) (declare (not safe)) (make-class-type 'gxc#!accessor::t '!accessor - __tmp220279 + __tmp221444 '(slot checked?) - __tmp220277 + __tmp221442 '#f))) (define gxc#!accessor? (let () (declare (not safe)) (make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _$args215479_ - (apply make-instance gxc#!accessor::t _$args215479_))) + (lambda _$args216642_ + (apply make-instance gxc#!accessor::t _$args216642_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -550,25 +567,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp220282 (list gxc#!procedure::t)) - (__tmp220280 - (let ((__tmp220281 + (let ((__tmp221447 (list gxc#!procedure::t)) + (__tmp221445 + (let ((__tmp221446 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220281 '())))) + (cons __tmp221446 '())))) (declare (not safe)) (make-class-type 'gxc#!mutator::t '!mutator - __tmp220282 + __tmp221447 '(slot checked?) - __tmp220280 + __tmp221445 '#f))) (define gxc#!mutator? (let () (declare (not safe)) (make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _$args215476_ - (apply make-instance gxc#!mutator::t _$args215476_))) + (lambda _$args216639_ + (apply make-instance gxc#!mutator::t _$args216639_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -618,25 +635,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!lambda::t - (let ((__tmp220285 (list gxc#!procedure::t)) - (__tmp220283 - (let ((__tmp220284 + (let ((__tmp221450 (list gxc#!procedure::t)) + (__tmp221448 + (let ((__tmp221449 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220284 '())))) + (cons __tmp221449 '())))) (declare (not safe)) (make-class-type 'gxc#!lambda::t '!lambda - __tmp220285 + __tmp221450 '(arity dispatch inline inline-typedecl) - __tmp220283 + __tmp221448 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _$args215473_ - (apply make-instance gxc#!lambda::t _$args215473_))) + (lambda _$args216636_ + (apply make-instance gxc#!lambda::t _$args216636_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -718,25 +735,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp220288 (list gxc#!procedure::t)) - (__tmp220286 - (let ((__tmp220287 + (let ((__tmp221453 (list gxc#!procedure::t)) + (__tmp221451 + (let ((__tmp221452 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220287 '())))) + (cons __tmp221452 '())))) (declare (not safe)) (make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp220288 + __tmp221453 '(clauses) - __tmp220286 + __tmp221451 '#f))) (define gxc#!case-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _$args215470_ - (apply make-instance gxc#!case-lambda::t _$args215470_))) + (lambda _$args216633_ + (apply make-instance gxc#!case-lambda::t _$args216633_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -770,25 +787,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp220291 (list gxc#!procedure::t)) - (__tmp220289 - (let ((__tmp220290 + (let ((__tmp221456 (list gxc#!procedure::t)) + (__tmp221454 + (let ((__tmp221455 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220290 '())))) + (cons __tmp221455 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp220291 + __tmp221456 '(table dispatch) - __tmp220289 + __tmp221454 '#f))) (define gxc#!kw-lambda? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _$args215467_ - (apply make-instance gxc#!kw-lambda::t _$args215467_))) + (lambda _$args216630_ + (apply make-instance gxc#!kw-lambda::t _$args216630_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -838,27 +855,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp220294 (list gxc#!procedure::t)) - (__tmp220292 - (let ((__tmp220293 + (let ((__tmp221459 (list gxc#!procedure::t)) + (__tmp221457 + (let ((__tmp221458 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp220293 '())))) + (cons __tmp221458 '())))) (declare (not safe)) (make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp220294 + __tmp221459 '(keys main) - __tmp220292 + __tmp221457 '#f))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _$args215464_ - (apply make-instance gxc#!kw-lambda-primary::t _$args215464_))) + (lambda _$args216627_ + (apply make-instance gxc#!kw-lambda-primary::t _$args216627_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -908,27 +925,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp220295 (list))) + (let ((__tmp221460 (list))) (declare (not safe)) (make-class-type 'gxc#!primitive::t '!primitive - __tmp220295 + __tmp221460 '() '() '#f))) (define gxc#!primitive? (let () (declare (not safe)) (make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _$args215461_ - (apply make-instance gxc#!primitive::t _$args215461_))) + (lambda _$args216624_ + (apply make-instance gxc#!primitive::t _$args216624_))) (define gxc#!primitive-lambda::t - (let ((__tmp220296 (list gxc#!primitive::t gxc#!lambda::t))) + (let ((__tmp221461 (list gxc#!primitive::t gxc#!lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp220296 + __tmp221461 '() '() ':init!))) @@ -937,8 +954,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _$args215458_ - (apply make-instance gxc#!primitive-lambda::t _$args215458_))) + (lambda _$args216621_ + (apply make-instance gxc#!primitive-lambda::t _$args216621_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1028,12 +1045,12 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp220297 (list gxc#!primitive::t gxc#!case-lambda::t))) + (let ((__tmp221462 (list gxc#!primitive::t gxc#!case-lambda::t))) (declare (not safe)) (make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp220297 + __tmp221462 '() '() ':init!))) @@ -1042,8 +1059,8 @@ (declare (not safe)) (make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _$args215455_ - (apply make-instance gxc#!primitive-case-lambda::t _$args215455_))) + (lambda _$args216618_ + (apply make-instance gxc#!primitive-case-lambda::t _$args216618_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1083,830 +1100,867 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gxc#!primitive-case-lambda::t 'id))) (define gxc#!class:::init!__0 - (lambda (_self215339_ - _id215340_ - _super215341_ - _slots215342_ - _ctor-method215343_ - _struct?215344_ - _final?215345_) - (let _lp215347_ ((_rest215349_ _super215341_)) - (let* ((_rest215350215358_ _rest215349_) - (_else215352215366_ (lambda () '#!void)) - (_K215354215372_ - (lambda (_rest215369_ _super-id215370_) + (lambda (_self216500_ + _id216501_ + _super216502_ + _slots216503_ + _ctor-method216504_ + _struct?216505_ + _final?216506_ + _metaclass216507_) + (let _lp216509_ ((_rest216511_ _super216502_)) + (let* ((_rest216512216520_ _rest216511_) + (_else216514216528_ (lambda () '#!void)) + (_K216516216534_ + (lambda (_rest216531_ _super-id216532_) (if (##structure-ref - (let ((__tmp220300 - (let ((__tmp220301 + (let ((__tmp221465 + (let ((__tmp221466 (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220301)))) + (cons '!class __tmp221466)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220300 - _super-id215370_)) + __tmp221465 + _super-id216532_)) '8 gxc#!class::t '#f) - (let ((__tmp220298 - (let ((__tmp220299 + (let ((__tmp221463 + (let ((__tmp221464 (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220299)))) + (cons '!class __tmp221464)))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp220298 - _super-id215370_)) + __tmp221463 + _super-id216532_)) '#!void) - (let () (declare (not safe)) (_lp215347_ _rest215369_))))) - (if (let () (declare (not safe)) (##pair? _rest215350215358_)) - (let ((_hd215355215375_ + (let () (declare (not safe)) (_lp216509_ _rest216531_))))) + (if (let () (declare (not safe)) (##pair? _rest216512216520_)) + (let ((_hd216517216537_ (let () (declare (not safe)) - (##car _rest215350215358_))) - (_tl215356215377_ + (##car _rest216512216520_))) + (_tl216518216539_ (let () (declare (not safe)) - (##cdr _rest215350215358_)))) - (let* ((_super-id215380_ _hd215355215375_) - (_rest215382_ _tl215356215377_)) + (##cdr _rest216512216520_)))) + (let* ((_super-id216542_ _hd216517216537_) + (_rest216544_ _tl216518216539_)) (declare (not safe)) - (_K215354215372_ _rest215382_ _super-id215380_))) + (_K216516216534_ _rest216544_ _super-id216542_))) '#!void))) - (let* ((_ctor-method215432_ - (let ((_$e215384_ _ctor-method215343_)) - (if _$e215384_ - _$e215384_ - (let _lp215387_ ((_rest215389_ _super215341_) - (_method215390_ '#f)) - (let* ((_rest215391215399_ _rest215389_) - (_else215393215407_ (lambda () _method215390_)) - (_K215395215420_ - (lambda (_rest215410_ _super-id215411_) - (let* ((_klass215413_ - (let ((__tmp220302 - (let ((__tmp220303 + (let* ((_ctor-method216594_ + (let ((_$e216546_ _ctor-method216504_)) + (if _$e216546_ + _$e216546_ + (let _lp216549_ ((_rest216551_ _super216502_) + (_method216552_ '#f)) + (let* ((_rest216553216561_ _rest216551_) + (_else216555216569_ (lambda () _method216552_)) + (_K216557216582_ + (lambda (_rest216572_ _super-id216573_) + (let* ((_klass216575_ + (let ((__tmp221467 + (let ((__tmp221468 (let () (declare (not safe)) - (cons _id215340_ + (cons _id216501_ '())))) (declare (not safe)) (cons '!class - __tmp220303)))) + __tmp221468)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220302 - _super-id215411_))) - (_$e215415_ + __tmp221467 + _super-id216573_))) + (_$e216577_ (##structure-ref - _klass215413_ + _klass216575_ '6 gxc#!class::t '#f))) - (if _$e215415_ - ((lambda (_ctor-method215418_) - (if _method215390_ + (if _$e216577_ + ((lambda (_ctor-method216580_) + (if _method216552_ (if (let () (declare (not safe)) - (eq? _ctor-method215418_ - _method215390_)) + (eq? _ctor-method216580_ + _method216552_)) (let () (declare (not safe)) - (_lp215387_ - _rest215410_ - _ctor-method215418_)) - (let ((__tmp220304 - (let ((__tmp220305 + (_lp216549_ + _rest216572_ + _ctor-method216580_)) + (let ((__tmp221469 + (let ((__tmp221470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id215340_ '())))) + (let () (declare (not safe)) (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220305)))) + (cons '!class __tmp221470)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp220304 - _method215390_ - _ctor-method215418_))) + __tmp221469 + _method216552_ + _ctor-method216580_))) (let () (declare (not safe)) - (_lp215387_ - _rest215410_ - _ctor-method215418_)))) - _$e215415_) + (_lp216549_ + _rest216572_ + _ctor-method216580_)))) + _$e216577_) (let () (declare (not safe)) - (_lp215387_ - _rest215410_ - _method215390_))))))) + (_lp216549_ + _rest216572_ + _method216552_))))))) (if (let () (declare (not safe)) - (##pair? _rest215391215399_)) - (let ((_hd215396215423_ + (##pair? _rest216553216561_)) + (let ((_hd216558216585_ (let () (declare (not safe)) - (##car _rest215391215399_))) - (_tl215397215425_ + (##car _rest216553216561_))) + (_tl216559216587_ (let () (declare (not safe)) - (##cdr _rest215391215399_)))) - (let* ((_super-id215428_ _hd215396215423_) - (_rest215430_ _tl215397215425_)) + (##cdr _rest216553216561_)))) + (let* ((_super-id216590_ _hd216558216585_) + (_rest216592_ _tl216559216587_)) (declare (not safe)) - (_K215395215420_ - _rest215430_ - _super-id215428_))) + (_K216557216582_ + _rest216592_ + _super-id216590_))) (let () (declare (not safe)) - (_else215393215407_)))))))) - (_g220306_ - (let ((__tmp220311 - (lambda (_klass-id215434_) - (let ((__tmp220312 + (_else216555216569_)))))))) + (_g221471_ + (let ((__tmp221476 + (lambda (_klass-id216596_) + (let ((__tmp221477 (##structure-ref - (let ((__tmp220313 - (let ((__tmp220314 + (let ((__tmp221478 + (let ((__tmp221479 (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220314)))) + (cons '!class __tmp221479)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220313 - _klass-id215434_)) + __tmp221478 + _klass-id216596_)) '3 gxc#!class::t '#f))) (declare (not safe)) - (cons _klass-id215434_ __tmp220312)))) - (__tmp220308 - (lambda (_klass-id215436_) + (cons _klass-id216596_ __tmp221477)))) + (__tmp221473 + (lambda (_klass-id216598_) (##structure-ref - (let ((__tmp220309 - (let ((__tmp220310 + (let ((__tmp221474 + (let ((__tmp221475 (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220310)))) + (cons '!class __tmp221475)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220309 - _klass-id215436_)) + __tmp221474 + _klass-id216598_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize__% '#f - __tmp220311 - __tmp220308 + __tmp221476 + __tmp221473 eq? identity '() - _super215341_)))) + _super216502_)))) (begin - (let ((_g220307_ + (let ((_g221472_ (let () (declare (not safe)) - (if (##values? _g220306_) - (##vector-length _g220306_) + (if (##values? _g221471_) + (##vector-length _g221471_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g220307_ 2))) - (error "Context expects 2 values" _g220307_))) - (let ((_precedence-list215438_ - (let () (declare (not safe)) (##vector-ref _g220306_ 0))) - (_base-struct215439_ - (let () (declare (not safe)) (##vector-ref _g220306_ 1)))) - (let ((_fields215441_ - (let ((__tmp220315 - (let ((__tmp220316 + (if (not (let () (declare (not safe)) (##fx= _g221472_ 2))) + (error "Context expects 2 values" _g221472_))) + (let ((_precedence-list216600_ + (let () (declare (not safe)) (##vector-ref _g221471_ 0))) + (_base-struct216601_ + (let () (declare (not safe)) (##vector-ref _g221471_ 1)))) + (let ((_fields216603_ + (let ((__tmp221480 + (let ((__tmp221481 (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220316)))) + (cons '!class __tmp221481)))) (declare (not safe)) (gxc#compute-class-fields - __tmp220315 - _base-struct215439_ - _precedence-list215438_ - _slots215342_)))) - (##structure-set! _self215339_ _id215340_ '1 gxc#!type::t '#f) + __tmp221480 + _base-struct216601_ + _precedence-list216600_ + _slots216503_)))) + (##structure-set! _self216500_ _id216501_ '1 gxc#!type::t '#f) (##structure-set! - _self215339_ - _super215341_ + _self216500_ + _super216502_ '2 gxc#!class::t '#f) (##structure-set! - _self215339_ - _precedence-list215438_ + _self216500_ + _precedence-list216600_ '3 gxc#!class::t '#f) (##structure-set! - _self215339_ - _slots215342_ + _self216500_ + _slots216503_ '4 gxc#!class::t '#f) (##structure-set! - _self215339_ - _fields215441_ + _self216500_ + _fields216603_ '5 gxc#!class::t '#f) (##structure-set! - _self215339_ - _ctor-method215432_ + _self216500_ + _ctor-method216594_ '6 gxc#!class::t '#f) (##structure-set! - _self215339_ - _struct?215344_ + _self216500_ + _struct?216505_ '7 gxc#!class::t '#f) (##structure-set! - _self215339_ - _final?215345_ + _self216500_ + _final?216506_ '8 gxc#!class::t + '#f) + (##structure-set! + _self216500_ + _metaclass216507_ + '9 + gxc#!class::t '#f))))))) (define gxc#!class:::init!__1 - (lambda (_self215444_ - _id215445_ - _super215446_ - _precedence-list215447_ - _slots215448_ - _fields215449_ - _constructor215450_ - _struct?215451_ - _final?215452_ - _methods215453_) - (##structure-set! _self215444_ _id215445_ '1 gxc#!type::t '#f) - (##structure-set! _self215444_ _super215446_ '2 gxc#!class::t '#f) + (lambda (_self216606_ + _id216607_ + _super216608_ + _precedence-list216609_ + _slots216610_ + _fields216611_ + _constructor216612_ + _struct?216613_ + _final?216614_ + _metaclass216615_ + _methods216616_) + (##structure-set! _self216606_ _id216607_ '1 gxc#!type::t '#f) + (##structure-set! _self216606_ _super216608_ '2 gxc#!class::t '#f) (##structure-set! - _self215444_ - _precedence-list215447_ + _self216606_ + _precedence-list216609_ '3 gxc#!class::t '#f) - (##structure-set! _self215444_ _slots215448_ '4 gxc#!class::t '#f) - (##structure-set! _self215444_ _fields215449_ '5 gxc#!class::t '#f) + (##structure-set! _self216606_ _slots216610_ '4 gxc#!class::t '#f) + (##structure-set! _self216606_ _fields216611_ '5 gxc#!class::t '#f) (##structure-set! - _self215444_ - _constructor215450_ + _self216606_ + _constructor216612_ '6 gxc#!class::t '#f) - (##structure-set! _self215444_ _struct?215451_ '7 gxc#!class::t '#f) - (##structure-set! _self215444_ _final?215452_ '8 gxc#!class::t '#f) - (if _methods215453_ + (##structure-set! _self216606_ _struct?216613_ '7 gxc#!class::t '#f) + (##structure-set! _self216606_ _final?216614_ '8 gxc#!class::t '#f) + (##structure-set! _self216606_ _metaclass216615_ '9 gxc#!class::t '#f) + (if _methods216616_ (##structure-set! - _self215444_ + _self216606_ (let () (declare (not safe)) - (list->table _methods215453_ 'test: eq?)) - '9 + (list->table _methods216616_ 'test: eq?)) + '10 gxc#!class::t '#f) '#!void))) (define gxc#!class:::init! - (lambda _g220318_ - (let ((_g220317_ (let () (declare (not safe)) (##length _g220318_)))) - (cond ((let () (declare (not safe)) (##fx= _g220317_ 7)) - (apply (lambda (_self215339_ - _id215340_ - _super215341_ - _slots215342_ - _ctor-method215343_ - _struct?215344_ - _final?215345_) + (lambda _g221483_ + (let ((_g221482_ (let () (declare (not safe)) (##length _g221483_)))) + (cond ((let () (declare (not safe)) (##fx= _g221482_ 8)) + (apply (lambda (_self216500_ + _id216501_ + _super216502_ + _slots216503_ + _ctor-method216504_ + _struct?216505_ + _final?216506_ + _metaclass216507_) (let () (declare (not safe)) (gxc#!class:::init!__0 - _self215339_ - _id215340_ - _super215341_ - _slots215342_ - _ctor-method215343_ - _struct?215344_ - _final?215345_))) - _g220318_)) - ((let () (declare (not safe)) (##fx= _g220317_ 10)) - (apply (lambda (_self215444_ - _id215445_ - _super215446_ - _precedence-list215447_ - _slots215448_ - _fields215449_ - _constructor215450_ - _struct?215451_ - _final?215452_ - _methods215453_) + _self216500_ + _id216501_ + _super216502_ + _slots216503_ + _ctor-method216504_ + _struct?216505_ + _final?216506_ + _metaclass216507_))) + _g221483_)) + ((let () (declare (not safe)) (##fx= _g221482_ 11)) + (apply (lambda (_self216606_ + _id216607_ + _super216608_ + _precedence-list216609_ + _slots216610_ + _fields216611_ + _constructor216612_ + _struct?216613_ + _final?216614_ + _metaclass216615_ + _methods216616_) (let () (declare (not safe)) (gxc#!class:::init!__1 - _self215444_ - _id215445_ - _super215446_ - _precedence-list215447_ - _slots215448_ - _fields215449_ - _constructor215450_ - _struct?215451_ - _final?215452_ - _methods215453_))) - _g220318_)) + _self216606_ + _id216607_ + _super216608_ + _precedence-list216609_ + _slots216610_ + _fields216611_ + _constructor216612_ + _struct?216613_ + _final?216614_ + _metaclass216615_ + _methods216616_))) + _g221483_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g220318_)))))) + _g221483_)))))) (define gxc#!class:::init!::specialize - (lambda (__t220194) - (let ((__struct?220195 - (let ((__tmp220204 + (lambda (__t221357) + (let ((__precedence-list221358 + (let ((__tmp221368 (let () (declare (not safe)) - (class-slot-offset __t220194 'struct?)))) - (if __tmp220204 - __tmp220204 - (error '"Unknown slot" 'struct?)))) - (__fields220196 - (let ((__tmp220205 + (class-slot-offset __t221357 'precedence-list)))) + (if __tmp221368 + __tmp221368 + (error '"Unknown slot" 'precedence-list)))) + (__fields221359 + (let ((__tmp221369 (let () (declare (not safe)) - (class-slot-offset __t220194 'fields)))) - (if __tmp220205 __tmp220205 (error '"Unknown slot" 'fields)))) - (__slots220197 - (let ((__tmp220206 + (class-slot-offset __t221357 'fields)))) + (if __tmp221369 __tmp221369 (error '"Unknown slot" 'fields)))) + (__id221360 + (let ((__tmp221370 (let () (declare (not safe)) - (class-slot-offset __t220194 'slots)))) - (if __tmp220206 __tmp220206 (error '"Unknown slot" 'slots)))) - (__methods220198 - (let ((__tmp220207 + (class-slot-offset __t221357 'id)))) + (if __tmp221370 __tmp221370 (error '"Unknown slot" 'id)))) + (__super221361 + (let ((__tmp221371 (let () (declare (not safe)) - (class-slot-offset __t220194 'methods)))) - (if __tmp220207 - __tmp220207 - (error '"Unknown slot" 'methods)))) - (__precedence-list220199 - (let ((__tmp220208 + (class-slot-offset __t221357 'super)))) + (if __tmp221371 __tmp221371 (error '"Unknown slot" 'super)))) + (__metaclass221362 + (let ((__tmp221372 (let () (declare (not safe)) - (class-slot-offset __t220194 'precedence-list)))) - (if __tmp220208 - __tmp220208 - (error '"Unknown slot" 'precedence-list)))) - (__id220200 - (let ((__tmp220209 + (class-slot-offset __t221357 'metaclass)))) + (if __tmp221372 + __tmp221372 + (error '"Unknown slot" 'metaclass)))) + (__constructor221363 + (let ((__tmp221373 (let () (declare (not safe)) - (class-slot-offset __t220194 'id)))) - (if __tmp220209 __tmp220209 (error '"Unknown slot" 'id)))) - (__super220201 - (let ((__tmp220210 + (class-slot-offset __t221357 'constructor)))) + (if __tmp221373 + __tmp221373 + (error '"Unknown slot" 'constructor)))) + (__slots221364 + (let ((__tmp221374 (let () (declare (not safe)) - (class-slot-offset __t220194 'super)))) - (if __tmp220210 __tmp220210 (error '"Unknown slot" 'super)))) - (__constructor220202 - (let ((__tmp220211 + (class-slot-offset __t221357 'slots)))) + (if __tmp221374 __tmp221374 (error '"Unknown slot" 'slots)))) + (__final?221365 + (let ((__tmp221375 (let () (declare (not safe)) - (class-slot-offset __t220194 'constructor)))) - (if __tmp220211 - __tmp220211 - (error '"Unknown slot" 'constructor)))) - (__final?220203 - (let ((__tmp220212 + (class-slot-offset __t221357 'final?)))) + (if __tmp221375 __tmp221375 (error '"Unknown slot" 'final?)))) + (__struct?221366 + (let ((__tmp221376 (let () (declare (not safe)) - (class-slot-offset __t220194 'final?)))) - (if __tmp220212 - __tmp220212 - (error '"Unknown slot" 'final?))))) - (lambda _g220320_ - (let ((_g220319_ - (let () (declare (not safe)) (##length _g220320_)))) - (cond ((let () (declare (not safe)) (##fx= _g220319_ 7)) - (apply (lambda (_self215339_ - _id215340_ - _super215341_ - _slots215342_ - _ctor-method215343_ - _struct?215344_ - _final?215345_) - (let _lp215347_ ((_rest215349_ _super215341_)) - (let* ((_rest215350215358_ _rest215349_) - (_else215352215366_ (lambda () '#!void)) - (_K215354215372_ - (lambda (_rest215369_ _super-id215370_) + (class-slot-offset __t221357 'struct?)))) + (if __tmp221376 + __tmp221376 + (error '"Unknown slot" 'struct?)))) + (__methods221367 + (let ((__tmp221377 + (let () + (declare (not safe)) + (class-slot-offset __t221357 'methods)))) + (if __tmp221377 + __tmp221377 + (error '"Unknown slot" 'methods))))) + (lambda _g221485_ + (let ((_g221484_ + (let () (declare (not safe)) (##length _g221485_)))) + (cond ((let () (declare (not safe)) (##fx= _g221484_ 8)) + (apply (lambda (_self216500_ + _id216501_ + _super216502_ + _slots216503_ + _ctor-method216504_ + _struct?216505_ + _final?216506_ + _metaclass216507_) + (let _lp216509_ ((_rest216511_ _super216502_)) + (let* ((_rest216512216520_ _rest216511_) + (_else216514216528_ (lambda () '#!void)) + (_K216516216534_ + (lambda (_rest216531_ _super-id216532_) (if (##structure-ref - (let ((__tmp220323 - (let ((__tmp220324 + (let ((__tmp221488 + (let ((__tmp221489 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220324)))) + (cons '!class __tmp221489)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220323 - _super-id215370_)) + __tmp221488 + _super-id216532_)) '8 gxc#!class::t '#f) - (let ((__tmp220321 - (let ((__tmp220322 + (let ((__tmp221486 + (let ((__tmp221487 (let () (declare (not safe)) - (cons _id215340_ + (cons _id216501_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '!class __tmp220322)))) + (cons '!class __tmp221487)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp220321 - _super-id215370_)) + __tmp221486 + _super-id216532_)) '#!void) (let () (declare (not safe)) - (_lp215347_ _rest215369_))))) + (_lp216509_ _rest216531_))))) (if (let () (declare (not safe)) - (##pair? _rest215350215358_)) - (let ((_hd215355215375_ + (##pair? _rest216512216520_)) + (let ((_hd216517216537_ (let () (declare (not safe)) - (##car _rest215350215358_))) - (_tl215356215377_ + (##car _rest216512216520_))) + (_tl216518216539_ (let () (declare (not safe)) - (##cdr _rest215350215358_)))) - (let* ((_super-id215380_ - _hd215355215375_) - (_rest215382_ _tl215356215377_)) + (##cdr _rest216512216520_)))) + (let* ((_super-id216542_ + _hd216517216537_) + (_rest216544_ _tl216518216539_)) (declare (not safe)) - (_K215354215372_ - _rest215382_ - _super-id215380_))) + (_K216516216534_ + _rest216544_ + _super-id216542_))) '#!void))) - (let* ((_ctor-method215432_ - (let ((_$e215384_ _ctor-method215343_)) - (if _$e215384_ - _$e215384_ - (let _lp215387_ ((_rest215389_ - _super215341_) - (_method215390_ + (let* ((_ctor-method216594_ + (let ((_$e216546_ _ctor-method216504_)) + (if _$e216546_ + _$e216546_ + (let _lp216549_ ((_rest216551_ + _super216502_) + (_method216552_ '#f)) - (let* ((_rest215391215399_ - _rest215389_) - (_else215393215407_ + (let* ((_rest216553216561_ + _rest216551_) + (_else216555216569_ (lambda () - _method215390_)) - (_K215395215420_ - (lambda (_rest215410_ - _super-id215411_) - (let* ((_klass215413_ - (let ((__tmp220325 + _method216552_)) + (_K216557216582_ + (lambda (_rest216572_ + _super-id216573_) + (let* ((_klass216575_ + (let ((__tmp221490 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp220326 + (let ((__tmp221491 (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220326)))) + (cons '!class __tmp221491)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220325 - _super-id215411_))) - (_$e215415_ - (##structure-ref _klass215413_ '6 gxc#!class::t '#f))) - (if _$e215415_ - ((lambda (_ctor-method215418_) - (if _method215390_ + __tmp221490 + _super-id216573_))) + (_$e216577_ + (##structure-ref _klass216575_ '6 gxc#!class::t '#f))) + (if _$e216577_ + ((lambda (_ctor-method216580_) + (if _method216552_ (if (let () (declare (not safe)) - (eq? _ctor-method215418_ _method215390_)) + (eq? _ctor-method216580_ _method216552_)) (let () (declare (not safe)) - (_lp215387_ - _rest215410_ - _ctor-method215418_)) - (let ((__tmp220327 - (let ((__tmp220328 + (_lp216549_ + _rest216572_ + _ctor-method216580_)) + (let ((__tmp221492 + (let ((__tmp221493 (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220328)))) + (cons '!class __tmp221493)))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp220327 - _method215390_ - _ctor-method215418_))) + __tmp221492 + _method216552_ + _ctor-method216580_))) (let () (declare (not safe)) - (_lp215387_ _rest215410_ _ctor-method215418_)))) - _$e215415_) + (_lp216549_ _rest216572_ _ctor-method216580_)))) + _$e216577_) (let () (declare (not safe)) - (_lp215387_ _rest215410_ _method215390_))))))) + (_lp216549_ _rest216572_ _method216552_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest215391215399_)) - (let ((_hd215396215423_ + (##pair? _rest216553216561_)) + (let ((_hd216558216585_ (let () (declare (not safe)) - (##car _rest215391215399_))) - (_tl215397215425_ + (##car _rest216553216561_))) + (_tl216559216587_ (let () (declare (not safe)) - (##cdr _rest215391215399_)))) - (let* ((_super-id215428_ - _hd215396215423_) - (_rest215430_ - _tl215397215425_)) + (##cdr _rest216553216561_)))) + (let* ((_super-id216590_ + _hd216558216585_) + (_rest216592_ + _tl216559216587_)) (declare (not safe)) - (_K215395215420_ - _rest215430_ - _super-id215428_))) + (_K216557216582_ + _rest216592_ + _super-id216590_))) (let () (declare (not safe)) - (_else215393215407_)))))))) - (_g220329_ - (let ((__tmp220334 - (lambda (_klass-id215434_) - (let ((__tmp220335 + (_else216555216569_)))))))) + (_g221494_ + (let ((__tmp221499 + (lambda (_klass-id216596_) + (let ((__tmp221500 (##structure-ref - (let ((__tmp220336 - (let ((__tmp220337 + (let ((__tmp221501 + (let ((__tmp221502 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220337)))) + (cons '!class __tmp221502)))) (declare (not safe)) - (gxc#optimizer-resolve-class __tmp220336 _klass-id215434_)) + (gxc#optimizer-resolve-class __tmp221501 _klass-id216596_)) '3 gxc#!class::t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _klass-id215434_ - __tmp220335)))) - (__tmp220331 - (lambda (_klass-id215436_) + (cons _klass-id216596_ + __tmp221500)))) + (__tmp221496 + (lambda (_klass-id216598_) (##structure-ref - (let ((__tmp220332 - (let ((__tmp220333 + (let ((__tmp221497 + (let ((__tmp221498 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _id215340_ '())))) + (cons _id216501_ '())))) (declare (not safe)) - (cons '!class __tmp220333)))) + (cons '!class __tmp221498)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220332 - _klass-id215436_)) + __tmp221497 + _klass-id216598_)) '7 gxc#!class::t '#f)))) (declare (not safe)) (c4-linearize__% '#f - __tmp220334 - __tmp220331 + __tmp221499 + __tmp221496 eq? identity '() - _super215341_)))) + _super216502_)))) (begin - (let ((_g220330_ + (let ((_g221495_ (let () (declare (not safe)) - (if (##values? _g220329_) - (##vector-length _g220329_) + (if (##values? _g221494_) + (##vector-length _g221494_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g220330_ 2))) + (##fx= _g221495_ 2))) (error "Context expects 2 values" - _g220330_))) - (let ((_precedence-list215438_ + _g221495_))) + (let ((_precedence-list216600_ (let () (declare (not safe)) - (##vector-ref _g220329_ 0))) - (_base-struct215439_ + (##vector-ref _g221494_ 0))) + (_base-struct216601_ (let () (declare (not safe)) - (##vector-ref _g220329_ 1)))) - (let ((_fields215441_ - (let ((__tmp220338 - (let ((__tmp220339 + (##vector-ref _g221494_ 1)))) + (let ((_fields216603_ + (let ((__tmp221503 + (let ((__tmp221504 (let () (declare (not safe)) - (cons _id215340_ + (cons _id216501_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '!class - __tmp220339)))) + __tmp221504)))) (declare (not safe)) (gxc#compute-class-fields - __tmp220338 - _base-struct215439_ - _precedence-list215438_ - _slots215342_)))) + __tmp221503 + _base-struct216601_ + _precedence-list216600_ + _slots216503_)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self216500_ + _id216501_ + __id221360 + __t221357 + '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _id215340_ - __id220200 - __t220194 + _self216500_ + _super216502_ + __super221361 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _super215341_ - __super220201 - __t220194 + _self216500_ + _precedence-list216600_ + __precedence-list221358 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _precedence-list215438_ - __precedence-list220199 - __t220194 + _self216500_ + _slots216503_ + __slots221364 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _slots215342_ - __slots220197 - __t220194 + _self216500_ + _fields216603_ + __fields221359 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _fields215441_ - __fields220196 - __t220194 + _self216500_ + _ctor-method216594_ + __constructor221363 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _ctor-method215432_ - __constructor220202 - __t220194 + _self216500_ + _struct?216505_ + __struct?221366 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _struct?215344_ - __struct?220195 - __t220194 + _self216500_ + _final?216506_ + __final?221365 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215339_ - _final?215345_ - __final?220203 - __t220194 + _self216500_ + _metaclass216507_ + __metaclass221362 + __t221357 '#f))))))) - _g220320_)) - ((let () (declare (not safe)) (##fx= _g220319_ 10)) - (apply (lambda (_self215444_ - _id215445_ - _super215446_ - _precedence-list215447_ - _slots215448_ - _fields215449_ - _constructor215450_ - _struct?215451_ - _final?215452_ - _methods215453_) + _g221485_)) + ((let () (declare (not safe)) (##fx= _g221484_ 11)) + (apply (lambda (_self216606_ + _id216607_ + _super216608_ + _precedence-list216609_ + _slots216610_ + _fields216611_ + _constructor216612_ + _struct?216613_ + _final?216614_ + _metaclass216615_ + _methods216616_) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _id215445_ - __id220200 - __t220194 + _self216606_ + _id216607_ + __id221360 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _super215446_ - __super220201 - __t220194 + _self216606_ + _super216608_ + __super221361 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _precedence-list215447_ - __precedence-list220199 - __t220194 + _self216606_ + _precedence-list216609_ + __precedence-list221358 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _slots215448_ - __slots220197 - __t220194 + _self216606_ + _slots216610_ + __slots221364 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _fields215449_ - __fields220196 - __t220194 + _self216606_ + _fields216611_ + __fields221359 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _constructor215450_ - __constructor220202 - __t220194 + _self216606_ + _constructor216612_ + __constructor221363 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _struct?215451_ - __struct?220195 - __t220194 + _self216606_ + _struct?216613_ + __struct?221366 + __t221357 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self215444_ - _final?215452_ - __final?220203 - __t220194 + _self216606_ + _final?216614_ + __final?221365 + __t221357 '#f)) - (if _methods215453_ - (let ((__tmp220340 + (let () + (declare (not safe)) + (##unchecked-structure-set! + _self216606_ + _metaclass216615_ + __metaclass221362 + __t221357 + '#f)) + (if _methods216616_ + (let ((__tmp221505 (let () (declare (not safe)) (list->table - _methods215453_ + _methods216616_ 'test: eq?)))) (declare (not safe)) (##unchecked-structure-set! - _self215444_ - __tmp220340 - __methods220198 - __t220194 + _self216606_ + __tmp221505 + __methods221367 + __t221357 '#f)) '#!void)) - _g220320_)) + _g221485_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g220320_)))))))) + _g221485_)))))))) (let () (declare (not safe)) (bind-specializer! gxc#!class:::init! gxc#!class:::init!::specialize)) @@ -1914,199 +1968,199 @@ (declare (not safe)) (bind-method! gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_where215191_ - _base-struct215192_ - _precedence-list215193_ - _direct-slots215194_) - (let* ((_base-fields215196_ - (if _base-struct215192_ + (lambda (_where216352_ + _base-struct216353_ + _precedence-list216354_ + _direct-slots216355_) + (let* ((_base-fields216357_ + (if _base-struct216353_ (##structure-ref (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where215191_ - _base-struct215192_)) + _where216352_ + _base-struct216353_)) '5 gxc#!class::t '#f) '())) - (_r-fields215198_ (reverse _base-fields215196_)) - (_seen-slots215206_ - (let ((_tab215200_ + (_r-fields216359_ (reverse _base-fields216357_)) + (_seen-slots216367_ + (let ((_tab216361_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_g215201215203_) + (lambda (_g216362216364_) (let () (declare (not safe)) - (table-set! _tab215200_ _g215201215203_ '#t))) - _base-fields215196_) - _tab215200_)) - (_process-slot215210_ - (lambda (_slot215208_) + (table-set! _tab216361_ _g216362216364_ '#t))) + _base-fields216357_) + _tab216361_)) + (_process-slot216371_ + (lambda (_slot216369_) (if (let () (declare (not safe)) - (table-ref _seen-slots215206_ _slot215208_ '#f)) + (table-ref _seen-slots216367_ _slot216369_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _seen-slots215206_ _slot215208_ '#t)) - (set! _r-fields215198_ + (table-set! _seen-slots216367_ _slot216369_ '#t)) + (set! _r-fields216359_ (let () (declare (not safe)) - (cons _slot215208_ _r-fields215198_)))))))) + (cons _slot216369_ _r-fields216359_)))))))) (for-each - (lambda (_mixin215213_) - (let ((_klass215215_ + (lambda (_mixin216374_) + (let ((_klass216376_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _where215191_ - _mixin215213_)))) - (if (##structure-ref _klass215215_ '7 gxc#!class::t '#f) + _where216352_ + _mixin216374_)))) + (if (##structure-ref _klass216376_ '7 gxc#!class::t '#f) '#!void (for-each - _process-slot215210_ - (##structure-ref _klass215215_ '5 gxc#!class::t '#f))))) - _precedence-list215193_) - (for-each _process-slot215210_ _direct-slots215194_) - (reverse _r-fields215198_)))) + _process-slot216371_ + (##structure-ref _klass216376_ '5 gxc#!class::t '#f))))) + _precedence-list216354_) + (for-each _process-slot216371_ _direct-slots216355_) + (reverse _r-fields216359_)))) (define gxc#!class-slot->field-offset - (lambda (_klass215150_ _slot215151_) - (let _lp215153_ ((_rest215155_ - (##structure-ref _klass215150_ '5 gxc#!class::t '#f)) - (_offset215156_ '1)) - (let* ((_rest215157215165_ _rest215155_) - (_else215159215173_ + (lambda (_klass216311_ _slot216312_) + (let _lp216314_ ((_rest216316_ + (##structure-ref _klass216311_ '5 gxc#!class::t '#f)) + (_offset216317_ '1)) + (let* ((_rest216318216326_ _rest216316_) + (_else216320216334_ (lambda () - (let ((__tmp220342 - (##structure-ref _klass215150_ '1 gxc#!type::t '#f)) - (__tmp220341 + (let ((__tmp221507 + (##structure-ref _klass216311_ '1 gxc#!type::t '#f)) + (__tmp221506 (##structure-ref - _klass215150_ + _klass216311_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp220342 - __tmp220341 - _slot215151_)))) - (_K215161215179_ - (lambda (_rest215176_ _s215177_) + __tmp221507 + __tmp221506 + _slot216312_)))) + (_K216322216340_ + (lambda (_rest216337_ _s216338_) (if (let () (declare (not safe)) - (eq? _s215177_ _slot215151_)) - _offset215156_ - (let ((__tmp220343 + (eq? _s216338_ _slot216312_)) + _offset216317_ + (let ((__tmp221508 (let () (declare (not safe)) - (fx+ _offset215156_ '1)))) + (fx+ _offset216317_ '1)))) (declare (not safe)) - (_lp215153_ _rest215176_ __tmp220343)))))) - (if (let () (declare (not safe)) (##pair? _rest215157215165_)) - (let ((_hd215162215182_ + (_lp216314_ _rest216337_ __tmp221508)))))) + (if (let () (declare (not safe)) (##pair? _rest216318216326_)) + (let ((_hd216323216343_ (let () (declare (not safe)) - (##car _rest215157215165_))) - (_tl215163215184_ + (##car _rest216318216326_))) + (_tl216324216345_ (let () (declare (not safe)) - (##cdr _rest215157215165_)))) - (let* ((_s215187_ _hd215162215182_) - (_rest215189_ _tl215163215184_)) + (##cdr _rest216318216326_)))) + (let* ((_s216348_ _hd216323216343_) + (_rest216350_ _tl216324216345_)) (declare (not safe)) - (_K215161215179_ _rest215189_ _s215187_))) - (let () (declare (not safe)) (_else215159215173_))))))) + (_K216322216340_ _rest216350_ _s216348_))) + (let () (declare (not safe)) (_else216320216334_))))))) (define gxc#!class-slot-find-struct - (lambda (_klass215108_ _slot215109_) + (lambda (_klass216269_ _slot216270_) (if (let () (declare (not safe)) - (gxc#!class-struct-slot? _klass215108_ _slot215109_)) - _klass215108_ - (let _lp215111_ ((_rest215113_ + (gxc#!class-struct-slot? _klass216269_ _slot216270_)) + _klass216269_ + (let _lp216272_ ((_rest216274_ (##structure-ref - _klass215108_ + _klass216269_ '3 gxc#!class::t '#f))) - (let* ((_rest215114215122_ _rest215113_) - (_else215116215130_ (lambda () '#f)) - (_K215118215138_ - (lambda (_rest215133_ _super215134_) - (let ((_super-class215136_ - (let ((__tmp220344 - (let ((__tmp220345 - (let ((__tmp220347 + (let* ((_rest216275216283_ _rest216274_) + (_else216277216291_ (lambda () '#f)) + (_K216279216299_ + (lambda (_rest216294_ _super216295_) + (let ((_super-class216297_ + (let ((__tmp221509 + (let ((__tmp221510 + (let ((__tmp221512 (##structure-ref - _klass215108_ + _klass216269_ '1 gxc#!type::t '#f)) - (__tmp220346 + (__tmp221511 (let () (declare (not safe)) - (cons _slot215109_ + (cons _slot216270_ '())))) (declare (not safe)) - (cons __tmp220347 - __tmp220346)))) + (cons __tmp221512 + __tmp221511)))) (declare (not safe)) (cons '!class-slot-find-struct - __tmp220345)))) + __tmp221510)))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp220344 - _super215134_)))) + __tmp221509 + _super216295_)))) (if (let () (declare (not safe)) (gxc#!class-struct-slot? - _super-class215136_ - _slot215109_)) - _super-class215136_ + _super-class216297_ + _slot216270_)) + _super-class216297_ (let () (declare (not safe)) - (_lp215111_ _rest215133_))))))) - (if (let () (declare (not safe)) (##pair? _rest215114215122_)) - (let ((_hd215119215141_ + (_lp216272_ _rest216294_))))))) + (if (let () (declare (not safe)) (##pair? _rest216275216283_)) + (let ((_hd216280216302_ (let () (declare (not safe)) - (##car _rest215114215122_))) - (_tl215120215143_ + (##car _rest216275216283_))) + (_tl216281216304_ (let () (declare (not safe)) - (##cdr _rest215114215122_)))) - (let* ((_super215146_ _hd215119215141_) - (_rest215148_ _tl215120215143_)) + (##cdr _rest216275216283_)))) + (let* ((_super216307_ _hd216280216302_) + (_rest216309_ _tl216281216304_)) (declare (not safe)) - (_K215118215138_ _rest215148_ _super215146_))) - (let () (declare (not safe)) (_else215116215130_)))))))) + (_K216279216299_ _rest216309_ _super216307_))) + (let () (declare (not safe)) (_else216277216291_)))))))) (define gxc#!class-struct-slot? - (lambda (_klass215105_ _slot215106_) - (if (##structure-ref _klass215105_ '7 gxc#!class::t '#f) - (memq _slot215106_ - (##structure-ref _klass215105_ '5 gxc#!class::t '#f)) + (lambda (_klass216266_ _slot216267_) + (if (##structure-ref _klass216266_ '7 gxc#!class::t '#f) + (memq _slot216267_ + (##structure-ref _klass216266_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_self215102_ _id215103_) - (##structure-set! _self215102_ _id215103_ '1 gxc#!type::t '#f))) + (lambda (_self216263_ _id216264_) + (##structure-set! _self216263_ _id216264_ '1 gxc#!type::t '#f))) (define gxc#!predicate:::init!::specialize - (lambda (__t220213) - (let ((__id220214 - (let ((__tmp220215 + (lambda (__t221378) + (let ((__id221379 + (let ((__tmp221380 (let () (declare (not safe)) - (class-slot-offset __t220213 'id)))) - (if __tmp220215 __tmp220215 (error '"Unknown slot" 'id))))) - (lambda (_self215102_ _id215103_) + (class-slot-offset __t221378 'id)))) + (if __tmp221380 __tmp221380 (error '"Unknown slot" 'id))))) + (lambda (_self216263_ _id216264_) (let () (declare (not safe)) (##unchecked-structure-set! - _self215102_ - _id215103_ - __id220214 - __t220213 + _self216263_ + _id216264_ + __id221379 + __t221378 '#f)))))) (let () (declare (not safe)) @@ -2117,24 +2171,24 @@ (declare (not safe)) (bind-method! gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_self214977_ _id214978_) - (##structure-set! _self214977_ _id214978_ '1 gxc#!type::t '#f))) + (lambda (_self216138_ _id216139_) + (##structure-set! _self216138_ _id216139_ '1 gxc#!type::t '#f))) (define gxc#!constructor:::init!::specialize - (lambda (__t220216) - (let ((__id220217 - (let ((__tmp220218 + (lambda (__t221381) + (let ((__id221382 + (let ((__tmp221383 (let () (declare (not safe)) - (class-slot-offset __t220216 'id)))) - (if __tmp220218 __tmp220218 (error '"Unknown slot" 'id))))) - (lambda (_self214977_ _id214978_) + (class-slot-offset __t221381 'id)))) + (if __tmp221383 __tmp221383 (error '"Unknown slot" 'id))))) + (lambda (_self216138_ _id216139_) (let () (declare (not safe)) (##unchecked-structure-set! - _self214977_ - _id214978_ - __id220217 - __t220216 + _self216138_ + _id216139_ + __id221382 + __t221381 '#f)))))) (let () (declare (not safe)) @@ -2145,61 +2199,61 @@ (declare (not safe)) (bind-method! gxc#!constructor::t ':init! gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_self214850_ _id214851_ _slot214852_ _checked?214853_) - (##structure-set! _self214850_ _id214851_ '1 gxc#!type::t '#f) - (##structure-set! _self214850_ _slot214852_ '2 gxc#!accessor::t '#f) + (lambda (_self216011_ _id216012_ _slot216013_ _checked?216014_) + (##structure-set! _self216011_ _id216012_ '1 gxc#!type::t '#f) + (##structure-set! _self216011_ _slot216013_ '2 gxc#!accessor::t '#f) (##structure-set! - _self214850_ - _checked?214853_ + _self216011_ + _checked?216014_ '3 gxc#!accessor::t '#f))) (define gxc#!accessor:::init!::specialize - (lambda (__t220219) - (let ((__checked?220220 - (let ((__tmp220223 + (lambda (__t221384) + (let ((__slot221385 + (let ((__tmp221388 (let () (declare (not safe)) - (class-slot-offset __t220219 'checked?)))) - (if __tmp220223 - __tmp220223 - (error '"Unknown slot" 'checked?)))) - (__id220221 - (let ((__tmp220224 + (class-slot-offset __t221384 'slot)))) + (if __tmp221388 __tmp221388 (error '"Unknown slot" 'slot)))) + (__id221386 + (let ((__tmp221389 (let () (declare (not safe)) - (class-slot-offset __t220219 'id)))) - (if __tmp220224 __tmp220224 (error '"Unknown slot" 'id)))) - (__slot220222 - (let ((__tmp220225 + (class-slot-offset __t221384 'id)))) + (if __tmp221389 __tmp221389 (error '"Unknown slot" 'id)))) + (__checked?221387 + (let ((__tmp221390 (let () (declare (not safe)) - (class-slot-offset __t220219 'slot)))) - (if __tmp220225 __tmp220225 (error '"Unknown slot" 'slot))))) - (lambda (_self214850_ _id214851_ _slot214852_ _checked?214853_) + (class-slot-offset __t221384 'checked?)))) + (if __tmp221390 + __tmp221390 + (error '"Unknown slot" 'checked?))))) + (lambda (_self216011_ _id216012_ _slot216013_ _checked?216014_) (let () (declare (not safe)) (##unchecked-structure-set! - _self214850_ - _id214851_ - __id220221 - __t220219 + _self216011_ + _id216012_ + __id221386 + __t221384 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self214850_ - _slot214852_ - __slot220222 - __t220219 + _self216011_ + _slot216013_ + __slot221385 + __t221384 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self214850_ - _checked?214853_ - __checked?220220 - __t220219 + _self216011_ + _checked?216014_ + __checked?221387 + __t221384 '#f)))))) (let () (declare (not safe)) @@ -2210,61 +2264,61 @@ (declare (not safe)) (bind-method! gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_self214723_ _id214724_ _slot214725_ _checked?214726_) - (##structure-set! _self214723_ _id214724_ '1 gxc#!type::t '#f) - (##structure-set! _self214723_ _slot214725_ '2 gxc#!mutator::t '#f) + (lambda (_self215884_ _id215885_ _slot215886_ _checked?215887_) + (##structure-set! _self215884_ _id215885_ '1 gxc#!type::t '#f) + (##structure-set! _self215884_ _slot215886_ '2 gxc#!mutator::t '#f) (##structure-set! - _self214723_ - _checked?214726_ + _self215884_ + _checked?215887_ '3 gxc#!mutator::t '#f))) (define gxc#!mutator:::init!::specialize - (lambda (__t220226) - (let ((__checked?220227 - (let ((__tmp220230 + (lambda (__t221391) + (let ((__slot221392 + (let ((__tmp221395 (let () (declare (not safe)) - (class-slot-offset __t220226 'checked?)))) - (if __tmp220230 - __tmp220230 - (error '"Unknown slot" 'checked?)))) - (__id220228 - (let ((__tmp220231 + (class-slot-offset __t221391 'slot)))) + (if __tmp221395 __tmp221395 (error '"Unknown slot" 'slot)))) + (__id221393 + (let ((__tmp221396 (let () (declare (not safe)) - (class-slot-offset __t220226 'id)))) - (if __tmp220231 __tmp220231 (error '"Unknown slot" 'id)))) - (__slot220229 - (let ((__tmp220232 + (class-slot-offset __t221391 'id)))) + (if __tmp221396 __tmp221396 (error '"Unknown slot" 'id)))) + (__checked?221394 + (let ((__tmp221397 (let () (declare (not safe)) - (class-slot-offset __t220226 'slot)))) - (if __tmp220232 __tmp220232 (error '"Unknown slot" 'slot))))) - (lambda (_self214723_ _id214724_ _slot214725_ _checked?214726_) + (class-slot-offset __t221391 'checked?)))) + (if __tmp221397 + __tmp221397 + (error '"Unknown slot" 'checked?))))) + (lambda (_self215884_ _id215885_ _slot215886_ _checked?215887_) (let () (declare (not safe)) (##unchecked-structure-set! - _self214723_ - _id214724_ - __id220228 - __t220226 + _self215884_ + _id215885_ + __id221393 + __t221391 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self214723_ - _slot214725_ - __slot220229 - __t220226 + _self215884_ + _slot215886_ + __slot221392 + __t221391 '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _self214723_ - _checked?214726_ - __checked?220227 - __t220226 + _self215884_ + _checked?215887_ + __checked?221394 + __t221391 '#f)))))) (let () (declare (not safe)) @@ -2275,337 +2329,337 @@ (declare (not safe)) (bind-method! gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_self214567_ - _id214568_ - _arity214569_ - _dispatch214570_ - _inline214571_ - _typedecl214572_) - (if (let ((__tmp220353 + (lambda (_self215728_ + _id215729_ + _arity215730_ + _dispatch215731_ + _inline215732_ + _typedecl215733_) + (if (let ((__tmp221518 (let () (declare (not safe)) - (##structure-length _self214567_)))) + (##structure-length _self215728_)))) (declare (not safe)) - (##fx< '5 __tmp220353)) + (##fx< '5 __tmp221518)) (begin - (let ((__tmp220348 + (let ((__tmp221513 (let () (declare (not safe)) - (##structure-type _self214567_)))) + (##structure-type _self215728_)))) (declare (not safe)) (##unchecked-structure-set! - _self214567_ - _id214568_ + _self215728_ + _id215729_ '1 - __tmp220348 + __tmp221513 '#f)) - (let ((__tmp220349 + (let ((__tmp221514 (let () (declare (not safe)) - (##structure-type _self214567_)))) + (##structure-type _self215728_)))) (declare (not safe)) (##unchecked-structure-set! - _self214567_ - _arity214569_ + _self215728_ + _arity215730_ '2 - __tmp220349 + __tmp221514 '#f)) - (let ((__tmp220350 + (let ((__tmp221515 (let () (declare (not safe)) - (##structure-type _self214567_)))) + (##structure-type _self215728_)))) (declare (not safe)) (##unchecked-structure-set! - _self214567_ - _dispatch214570_ + _self215728_ + _dispatch215731_ '3 - __tmp220350 + __tmp221515 '#f)) - (let ((__tmp220351 + (let ((__tmp221516 (let () (declare (not safe)) - (##structure-type _self214567_)))) + (##structure-type _self215728_)))) (declare (not safe)) (##unchecked-structure-set! - _self214567_ - _inline214571_ + _self215728_ + _inline215732_ '4 - __tmp220351 + __tmp221516 '#f)) - (let ((__tmp220352 + (let ((__tmp221517 (let () (declare (not safe)) - (##structure-type _self214567_)))) + (##structure-type _self215728_)))) (declare (not safe)) (##unchecked-structure-set! - _self214567_ - _typedecl214572_ + _self215728_ + _typedecl215733_ '5 - __tmp220352 + __tmp221517 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self214567_ + _self215728_ '5 (let () (declare (not safe)) - (##vector-length _self214567_)))))) + (##vector-length _self215728_)))))) (define gxc#!lambda:::init!__0 - (lambda (_self214577_ _id214578_ _arity214579_ _dispatch214580_) - (let* ((_inline214582_ '#f) (_typedecl214584_ '#f)) - (if (let ((__tmp220359 + (lambda (_self215738_ _id215739_ _arity215740_ _dispatch215741_) + (let* ((_inline215743_ '#f) (_typedecl215745_ '#f)) + (if (let ((__tmp221524 (let () (declare (not safe)) - (##structure-length _self214577_)))) + (##structure-length _self215738_)))) (declare (not safe)) - (##fx< '5 __tmp220359)) + (##fx< '5 __tmp221524)) (begin - (let ((__tmp220354 + (let ((__tmp221519 (let () (declare (not safe)) - (##structure-type _self214577_)))) + (##structure-type _self215738_)))) (declare (not safe)) (##unchecked-structure-set! - _self214577_ - _id214578_ + _self215738_ + _id215739_ '1 - __tmp220354 + __tmp221519 '#f)) - (let ((__tmp220355 + (let ((__tmp221520 (let () (declare (not safe)) - (##structure-type _self214577_)))) + (##structure-type _self215738_)))) (declare (not safe)) (##unchecked-structure-set! - _self214577_ - _arity214579_ + _self215738_ + _arity215740_ '2 - __tmp220355 + __tmp221520 '#f)) - (let ((__tmp220356 + (let ((__tmp221521 (let () (declare (not safe)) - (##structure-type _self214577_)))) + (##structure-type _self215738_)))) (declare (not safe)) (##unchecked-structure-set! - _self214577_ - _dispatch214580_ + _self215738_ + _dispatch215741_ '3 - __tmp220356 + __tmp221521 '#f)) - (let ((__tmp220357 + (let ((__tmp221522 (let () (declare (not safe)) - (##structure-type _self214577_)))) + (##structure-type _self215738_)))) (declare (not safe)) (##unchecked-structure-set! - _self214577_ - _inline214582_ + _self215738_ + _inline215743_ '4 - __tmp220357 + __tmp221522 '#f)) - (let ((__tmp220358 + (let ((__tmp221523 (let () (declare (not safe)) - (##structure-type _self214577_)))) + (##structure-type _self215738_)))) (declare (not safe)) (##unchecked-structure-set! - _self214577_ - _typedecl214584_ + _self215738_ + _typedecl215745_ '5 - __tmp220358 + __tmp221523 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self214577_ + _self215738_ '5 (let () (declare (not safe)) - (##vector-length _self214577_))))))) + (##vector-length _self215738_))))))) (define gxc#!lambda:::init!__1 - (lambda (_self214586_ - _id214587_ - _arity214588_ - _dispatch214589_ - _inline214590_) - (let ((_typedecl214592_ '#f)) - (if (let ((__tmp220365 + (lambda (_self215747_ + _id215748_ + _arity215749_ + _dispatch215750_ + _inline215751_) + (let ((_typedecl215753_ '#f)) + (if (let ((__tmp221530 (let () (declare (not safe)) - (##structure-length _self214586_)))) + (##structure-length _self215747_)))) (declare (not safe)) - (##fx< '5 __tmp220365)) + (##fx< '5 __tmp221530)) (begin - (let ((__tmp220360 + (let ((__tmp221525 (let () (declare (not safe)) - (##structure-type _self214586_)))) + (##structure-type _self215747_)))) (declare (not safe)) (##unchecked-structure-set! - _self214586_ - _id214587_ + _self215747_ + _id215748_ '1 - __tmp220360 + __tmp221525 '#f)) - (let ((__tmp220361 + (let ((__tmp221526 (let () (declare (not safe)) - (##structure-type _self214586_)))) + (##structure-type _self215747_)))) (declare (not safe)) (##unchecked-structure-set! - _self214586_ - _arity214588_ + _self215747_ + _arity215749_ '2 - __tmp220361 + __tmp221526 '#f)) - (let ((__tmp220362 + (let ((__tmp221527 (let () (declare (not safe)) - (##structure-type _self214586_)))) + (##structure-type _self215747_)))) (declare (not safe)) (##unchecked-structure-set! - _self214586_ - _dispatch214589_ + _self215747_ + _dispatch215750_ '3 - __tmp220362 + __tmp221527 '#f)) - (let ((__tmp220363 + (let ((__tmp221528 (let () (declare (not safe)) - (##structure-type _self214586_)))) + (##structure-type _self215747_)))) (declare (not safe)) (##unchecked-structure-set! - _self214586_ - _inline214590_ + _self215747_ + _inline215751_ '4 - __tmp220363 + __tmp221528 '#f)) - (let ((__tmp220364 + (let ((__tmp221529 (let () (declare (not safe)) - (##structure-type _self214586_)))) + (##structure-type _self215747_)))) (declare (not safe)) (##unchecked-structure-set! - _self214586_ - _typedecl214592_ + _self215747_ + _typedecl215753_ '5 - __tmp220364 + __tmp221529 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self214586_ + _self215747_ '5 (let () (declare (not safe)) - (##vector-length _self214586_))))))) + (##vector-length _self215747_))))))) (define gxc#!lambda:::init! - (lambda _g220367_ - (let ((_g220366_ (let () (declare (not safe)) (##length _g220367_)))) - (cond ((let () (declare (not safe)) (##fx= _g220366_ 4)) - (apply (lambda (_self214577_ - _id214578_ - _arity214579_ - _dispatch214580_) + (lambda _g221532_ + (let ((_g221531_ (let () (declare (not safe)) (##length _g221532_)))) + (cond ((let () (declare (not safe)) (##fx= _g221531_ 4)) + (apply (lambda (_self215738_ + _id215739_ + _arity215740_ + _dispatch215741_) (let () (declare (not safe)) (gxc#!lambda:::init!__0 - _self214577_ - _id214578_ - _arity214579_ - _dispatch214580_))) - _g220367_)) - ((let () (declare (not safe)) (##fx= _g220366_ 5)) - (apply (lambda (_self214586_ - _id214587_ - _arity214588_ - _dispatch214589_ - _inline214590_) + _self215738_ + _id215739_ + _arity215740_ + _dispatch215741_))) + _g221532_)) + ((let () (declare (not safe)) (##fx= _g221531_ 5)) + (apply (lambda (_self215747_ + _id215748_ + _arity215749_ + _dispatch215750_ + _inline215751_) (let () (declare (not safe)) (gxc#!lambda:::init!__1 - _self214586_ - _id214587_ - _arity214588_ - _dispatch214589_ - _inline214590_))) - _g220367_)) - ((let () (declare (not safe)) (##fx= _g220366_ 6)) - (apply (lambda (_self214594_ - _id214595_ - _arity214596_ - _dispatch214597_ - _inline214598_ - _typedecl214599_) - (if (let ((__tmp220373 + _self215747_ + _id215748_ + _arity215749_ + _dispatch215750_ + _inline215751_))) + _g221532_)) + ((let () (declare (not safe)) (##fx= _g221531_ 6)) + (apply (lambda (_self215755_ + _id215756_ + _arity215757_ + _dispatch215758_ + _inline215759_ + _typedecl215760_) + (if (let ((__tmp221538 (let () (declare (not safe)) - (##structure-length _self214594_)))) + (##structure-length _self215755_)))) (declare (not safe)) - (##fx< '5 __tmp220373)) + (##fx< '5 __tmp221538)) (begin - (let ((__tmp220368 + (let ((__tmp221533 (let () (declare (not safe)) - (##structure-type _self214594_)))) + (##structure-type _self215755_)))) (declare (not safe)) (##unchecked-structure-set! - _self214594_ - _id214595_ + _self215755_ + _id215756_ '1 - __tmp220368 + __tmp221533 '#f)) - (let ((__tmp220369 + (let ((__tmp221534 (let () (declare (not safe)) - (##structure-type _self214594_)))) + (##structure-type _self215755_)))) (declare (not safe)) (##unchecked-structure-set! - _self214594_ - _arity214596_ + _self215755_ + _arity215757_ '2 - __tmp220369 + __tmp221534 '#f)) - (let ((__tmp220370 + (let ((__tmp221535 (let () (declare (not safe)) - (##structure-type _self214594_)))) + (##structure-type _self215755_)))) (declare (not safe)) (##unchecked-structure-set! - _self214594_ - _dispatch214597_ + _self215755_ + _dispatch215758_ '3 - __tmp220370 + __tmp221535 '#f)) - (let ((__tmp220371 + (let ((__tmp221536 (let () (declare (not safe)) - (##structure-type _self214594_)))) + (##structure-type _self215755_)))) (declare (not safe)) (##unchecked-structure-set! - _self214594_ - _inline214598_ + _self215755_ + _inline215759_ '4 - __tmp220371 + __tmp221536 '#f)) - (let ((__tmp220372 + (let ((__tmp221537 (let () (declare (not safe)) - (##structure-type _self214594_)))) + (##structure-type _self215755_)))) (declare (not safe)) (##unchecked-structure-set! - _self214594_ - _typedecl214599_ + _self215755_ + _typedecl215760_ '5 - __tmp220372 + __tmp221537 '#f))) (error '"struct-instance-init!: too many arguments for struct" - _self214594_ + _self215755_ '5 (let () (declare (not safe)) - (##vector-length _self214594_))))) - _g220367_)) + (##vector-length _self215755_))))) + _g221532_)) (else (##raise-wrong-number-of-arguments-exception gxc#!lambda:::init! - _g220367_)))))) + _g221532_)))))) (let () (declare (not safe)) (bind-method! gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) @@ -2618,8 +2672,8 @@ gxc#!primitive-lambda:::init! '#f)) (define gxc#!primitive-case-lambda:::init! - (lambda (_self214319_ . _args214320_) - (apply struct-instance-init! _self214319_ _args214320_))) + (lambda (_self215480_ . _args215481_) + (apply struct-instance-init! _self215480_ _args215481_))) (let () (declare (not safe)) (bind-method! @@ -2628,62 +2682,62 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!type-vtab - (lambda (_type214194_) + (lambda (_type215355_) (if (let () (declare (not safe)) - (##structure-instance-of? _type214194_ 'gxc#!class::t)) + (##structure-instance-of? _type215355_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-method-table _type214194_)) + (gxc#!class-method-table _type215355_)) '#f))) (define gxc#!class-method-table - (lambda (_klass214187_) - (let ((_$e214189_ - (##structure-ref _klass214187_ '9 gxc#!class::t '#f))) - (if _$e214189_ - _$e214189_ - (let ((_tab214192_ + (lambda (_klass215348_) + (let ((_$e215350_ + (##structure-ref _klass215348_ '10 gxc#!class::t '#f))) + (if _$e215350_ + _$e215350_ + (let ((_tab215353_ (let () (declare (not safe)) (make-table 'test: eq?)))) (##structure-set! - _klass214187_ - _tab214192_ - '9 + _klass215348_ + _tab215353_ + '10 gxc#!class::t '#f) - _tab214192_))))) + _tab215353_))))) (define gxc#!class-lookup-method - (lambda (_klass214178_ _method214179_) - (let ((_tab214180214182_ - (##structure-ref _klass214178_ '9 gxc#!class::t '#f))) - (if _tab214180214182_ - (let ((_tab214185_ _tab214180214182_)) + (lambda (_klass215339_ _method215340_) + (let ((_tab215341215343_ + (##structure-ref _klass215339_ '10 gxc#!class::t '#f))) + (if _tab215341215343_ + (let ((_tab215346_ _tab215341215343_)) (declare (not safe)) - (table-ref _tab214185_ _method214179_ '#f)) + (table-ref _tab215346_ _method215340_ '#f)) '#f)))) (define gxc#!type-lookup-method - (lambda (_type214175_ _method214176_) + (lambda (_type215336_ _method215337_) (if (let () (declare (not safe)) - (##structure-instance-of? _type214175_ 'gxc#!class::t)) + (##structure-instance-of? _type215336_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-lookup-method _type214175_ _method214176_)) + (gxc#!class-lookup-method _type215336_ _method215337_)) '#f))) (define gxc#optimizer-declare-type!__% - (lambda (_sym214159_ _type214160_ _local?214161_) + (lambda (_sym215320_ _type215321_ _local?215322_) (if (let () (declare (not safe)) - (##structure-instance-of? _type214160_ 'gxc#!type::t)) + (##structure-instance-of? _type215321_ 'gxc#!type::t)) '#!void (error '"bad declaration: expected !type" - _sym214159_ - _type214160_)) - (let ((__tmp220374 - (let () (declare (not safe)) (struct->list _type214160_)))) + _sym215320_ + _type215321_)) + (let ((__tmp221539 + (let () (declare (not safe)) (struct->list _type215321_)))) (declare (not safe)) - (gxc#verbose '"declare-type " _sym214159_ '" " __tmp220374)) - (let ((__tmp220375 - (if _local?214161_ + (gxc#verbose '"declare-type " _sym215320_ '" " __tmp221539)) + (let ((__tmp221540 + (if _local?215322_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2691,44 +2745,44 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp220375 _sym214159_ _type214160_)))) + (table-set! __tmp221540 _sym215320_ _type215321_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_sym214166_ _type214167_) - (let ((_local?214169_ '#f)) + (lambda (_sym215327_ _type215328_) + (let ((_local?215330_ '#f)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym214166_ - _type214167_ - _local?214169_)))) + _sym215327_ + _type215328_ + _local?215330_)))) (define gxc#optimizer-declare-type! - (lambda _g220377_ - (let ((_g220376_ (let () (declare (not safe)) (##length _g220377_)))) - (cond ((let () (declare (not safe)) (##fx= _g220376_ 2)) - (apply (lambda (_sym214166_ _type214167_) + (lambda _g221542_ + (let ((_g221541_ (let () (declare (not safe)) (##length _g221542_)))) + (cond ((let () (declare (not safe)) (##fx= _g221541_ 2)) + (apply (lambda (_sym215327_ _type215328_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym214166_ - _type214167_))) - _g220377_)) - ((let () (declare (not safe)) (##fx= _g220376_ 3)) - (apply (lambda (_sym214171_ _type214172_ _local?214173_) + _sym215327_ + _type215328_))) + _g221542_)) + ((let () (declare (not safe)) (##fx= _g221541_ 3)) + (apply (lambda (_sym215332_ _type215333_ _local?215334_) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym214171_ - _type214172_ - _local?214173_))) - _g220377_)) + _sym215332_ + _type215333_ + _local?215334_))) + _g221542_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g220377_)))))) + _g221542_)))))) (define gxc#optimizer-clear-type!__% - (lambda (_sym214145_ _local?214146_) - (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym214145_)) - (let ((__tmp220378 - (if _local?214146_ + (lambda (_sym215306_ _local?215307_) + (let () (declare (not safe)) (gxc#verbose '"clear-type " _sym215306_)) + (let ((__tmp221543 + (if _local?215307_ (gxc#current-compile-local-type) (##structure-ref (gxc#current-compile-optimizer-info) @@ -2736,262 +2790,262 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (table-set! __tmp220378 _sym214145_)))) + (table-set! __tmp221543 _sym215306_)))) (define gxc#optimizer-clear-type!__0 - (lambda (_sym214151_) - (let ((_local?214153_ '#f)) + (lambda (_sym215312_) + (let ((_local?215314_ '#f)) (declare (not safe)) - (gxc#optimizer-clear-type!__% _sym214151_ _local?214153_)))) + (gxc#optimizer-clear-type!__% _sym215312_ _local?215314_)))) (define gxc#optimizer-clear-type! - (lambda _g220380_ - (let ((_g220379_ (let () (declare (not safe)) (##length _g220380_)))) - (cond ((let () (declare (not safe)) (##fx= _g220379_ 1)) - (apply (lambda (_sym214151_) + (lambda _g221545_ + (let ((_g221544_ (let () (declare (not safe)) (##length _g221545_)))) + (cond ((let () (declare (not safe)) (##fx= _g221544_ 1)) + (apply (lambda (_sym215312_) (let () (declare (not safe)) - (gxc#optimizer-clear-type!__0 _sym214151_))) - _g220380_)) - ((let () (declare (not safe)) (##fx= _g220379_ 2)) - (apply (lambda (_sym214155_ _local?214156_) + (gxc#optimizer-clear-type!__0 _sym215312_))) + _g221545_)) + ((let () (declare (not safe)) (##fx= _g221544_ 2)) + (apply (lambda (_sym215316_ _local?215317_) (let () (declare (not safe)) (gxc#optimizer-clear-type!__% - _sym214155_ - _local?214156_))) - _g220380_)) + _sym215316_ + _local?215317_))) + _g221545_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-clear-type! - _g220380_)))))) + _g221545_)))))) (define gxc#optimizer-declare-method!__% - (lambda (_type-t214118_ _method214119_ _sym214120_ _rebind?214121_) - (let* ((_type214123_ + (lambda (_type-t215279_ _method215280_ _sym215281_ _rebind?215282_) + (let* ((_type215284_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t214118_))) - (_$e214125_ - (let () (declare (not safe)) (gxc#!type-vtab _type214123_)))) - (if _$e214125_ - ((lambda (_vtab214128_) + (gxc#optimizer-resolve-type _type-t215279_))) + (_$e215286_ + (let () (declare (not safe)) (gxc#!type-vtab _type215284_)))) + (if _$e215286_ + ((lambda (_vtab215289_) (if (let () (declare (not safe)) - (hash-key? _vtab214128_ _method214119_)) - (if _rebind?214121_ + (hash-key? _vtab215289_ _method215280_)) + (if _rebind?215282_ (begin (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _type-t214118_ + _type-t215279_ '" " - _method214119_)) + _method215280_)) (let () (declare (not safe)) (table-set! - _vtab214128_ - _method214119_ - _sym214120_))) - (let ((__tmp220385 - (let ((__tmp220386 - (let ((__tmp220387 - (let ((__tmp220388 + _vtab215289_ + _method215280_ + _sym215281_))) + (let ((__tmp221550 + (let ((__tmp221551 + (let ((__tmp221552 + (let ((__tmp221553 (let () (declare (not safe)) - (cons _sym214120_ + (cons _sym215281_ '())))) (declare (not safe)) - (cons _method214119_ - __tmp220388)))) + (cons _method215280_ + __tmp221553)))) (declare (not safe)) - (cons _type-t214118_ __tmp220387)))) + (cons _type-t215279_ __tmp221552)))) (declare (not safe)) - (cons 'bind-method! __tmp220386)))) + (cons 'bind-method! __tmp221551)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp220385 - _method214119_))) + __tmp221550 + _method215280_))) (begin (let () (declare (not safe)) (gxc#verbose '"declare-method " - _type-t214118_ + _type-t215279_ '" " - _method214119_ + _method215280_ '" => " - _sym214120_)) + _sym215281_)) (let () (declare (not safe)) (table-set! - _vtab214128_ - _method214119_ - _sym214120_))))) - _$e214125_) - (if (let () (declare (not safe)) (not _type214123_)) + _vtab215289_ + _method215280_ + _sym215281_))))) + _$e215286_) + (if (let () (declare (not safe)) (not _type215284_)) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown type " - _type-t214118_)) - (let ((__tmp220381 - (let ((__tmp220382 - (let ((__tmp220383 - (let ((__tmp220384 + _type-t215279_)) + (let ((__tmp221546 + (let ((__tmp221547 + (let ((__tmp221548 + (let ((__tmp221549 (let () (declare (not safe)) - (cons _method214119_ '())))) + (cons _method215280_ '())))) (declare (not safe)) - (cons _sym214120_ __tmp220384)))) + (cons _sym215281_ __tmp221549)))) (declare (not safe)) - (cons _type-t214118_ __tmp220383)))) + (cons _type-t215279_ __tmp221548)))) (declare (not safe)) - (cons 'bind-method! __tmp220382)))) + (cons 'bind-method! __tmp221547)))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: bad method declaration; no method table" - __tmp220381 - _type214123_))))))) + __tmp221546 + _type215284_))))))) (define gxc#optimizer-declare-method!__0 - (lambda (_type-t214133_ _method214134_ _sym214135_) - (let ((_rebind?214137_ '#f)) + (lambda (_type-t215294_ _method215295_ _sym215296_) + (let ((_rebind?215298_ '#f)) (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t214133_ - _method214134_ - _sym214135_ - _rebind?214137_)))) + _type-t215294_ + _method215295_ + _sym215296_ + _rebind?215298_)))) (define gxc#optimizer-declare-method! - (lambda _g220390_ - (let ((_g220389_ (let () (declare (not safe)) (##length _g220390_)))) - (cond ((let () (declare (not safe)) (##fx= _g220389_ 3)) - (apply (lambda (_type-t214133_ _method214134_ _sym214135_) + (lambda _g221555_ + (let ((_g221554_ (let () (declare (not safe)) (##length _g221555_)))) + (cond ((let () (declare (not safe)) (##fx= _g221554_ 3)) + (apply (lambda (_type-t215294_ _method215295_ _sym215296_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__0 - _type-t214133_ - _method214134_ - _sym214135_))) - _g220390_)) - ((let () (declare (not safe)) (##fx= _g220389_ 4)) - (apply (lambda (_type-t214139_ - _method214140_ - _sym214141_ - _rebind?214142_) + _type-t215294_ + _method215295_ + _sym215296_))) + _g221555_)) + ((let () (declare (not safe)) (##fx= _g221554_ 4)) + (apply (lambda (_type-t215300_ + _method215301_ + _sym215302_ + _rebind?215303_) (let () (declare (not safe)) (gxc#optimizer-declare-method!__% - _type-t214139_ - _method214140_ - _sym214141_ - _rebind?214142_))) - _g220390_)) + _type-t215300_ + _method215301_ + _sym215302_ + _rebind?215303_))) + _g221555_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g220390_)))))) + _g221555_)))))) (define gxc#optimizer-lookup-type - (lambda (_sym214106_) - (let ((_$e214114_ - (let ((_ht214107214109_ (gxc#current-compile-local-type))) - (if _ht214107214109_ - (let ((_ht214112_ _ht214107214109_)) + (lambda (_sym215267_) + (let ((_$e215275_ + (let ((_ht215268215270_ (gxc#current-compile-local-type))) + (if _ht215268215270_ + (let ((_ht215273_ _ht215268215270_)) (declare (not safe)) - (table-ref _ht214112_ _sym214106_ '#f)) + (table-ref _ht215273_ _sym215267_ '#f)) '#f)))) - (if _$e214114_ - _$e214114_ - (let ((__tmp220391 + (if _$e215275_ + _$e215275_ + (let ((__tmp221556 (##structure-ref (gxc#current-compile-optimizer-info) '1 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp220391 _sym214106_ '#f)))))) + (table-ref __tmp221556 _sym215267_ '#f)))))) (define gxc#optimizer-resolve-type - (lambda (_sym214098_) - (let ((_type214099214101_ + (lambda (_sym215259_) + (let ((_type215260215262_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym214098_)))) - (if _type214099214101_ - (let ((_type214104_ _type214099214101_)) + (gxc#optimizer-lookup-type _sym215259_)))) + (if _type215260215262_ + (let ((_type215265_ _type215260215262_)) (if (let () (declare (not safe)) - (##structure-instance-of? _type214104_ 'gxc#!alias::t)) - (let ((__tmp220392 - (##structure-ref _type214104_ '1 gxc#!type::t '#f))) + (##structure-instance-of? _type215265_ 'gxc#!alias::t)) + (let ((__tmp221557 + (##structure-ref _type215265_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp220392)) - _type214104_)) + (gxc#optimizer-resolve-type __tmp221557)) + _type215265_)) '#f)))) (define gxc#optimizer-resolve-class - (lambda (_where214090_ _klass-id214091_) - (let ((_$e214093_ + (lambda (_where215251_ _klass-id215252_) + (let ((_$e215254_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _klass-id214091_)))) - (if _$e214093_ - ((lambda (_klass214096_) + (gxc#optimizer-resolve-type _klass-id215252_)))) + (if _$e215254_ + ((lambda (_klass215257_) (if (let () (declare (not safe)) - (##structure-instance-of? _klass214096_ 'gxc#!class::t)) + (##structure-instance-of? _klass215257_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"bad class reference; not a class type" - _where214090_ - _klass-id214091_ - _klass214096_))) - _klass214096_) - _$e214093_) + _where215251_ + _klass-id215252_ + _klass215257_))) + _klass215257_) + _$e215254_) (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _where214090_ - _klass-id214091_)))))) + _where215251_ + _klass-id215252_)))))) (define gxc#optimizer-lookup-method - (lambda (_type-t214087_ _method214088_) - (let ((__tmp220393 + (lambda (_type-t215248_ _method215249_) + (let ((__tmp221558 (let () (declare (not safe)) - (gxc#optimizer-resolve-type _type-t214087_)))) + (gxc#optimizer-resolve-type _type-t215248_)))) (declare (not safe)) - (gxc#!type-lookup-method __tmp220393 _method214088_)))) + (gxc#!type-lookup-method __tmp221558 _method215249_)))) (define gxc#optimizer-top-level-method! - (lambda (_sym214085_) + (lambda (_sym215246_) (let () (declare (not safe)) - (gxc#verbose '"top-level method: " _sym214085_)) - (let ((__tmp220394 + (gxc#verbose '"top-level method: " _sym215246_)) + (let ((__tmp221559 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-set! __tmp220394 _sym214085_ '#t)))) + (table-set! __tmp221559 _sym215246_ '#t)))) (define gxc#optimizer-top-level-method? - (lambda (_sym214083_) - (let ((__tmp220395 + (lambda (_sym215244_) + (let ((__tmp221560 (##structure-ref (gxc#current-compile-optimizer-info) '3 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-ref __tmp220395 _sym214083_ '#f)))) + (table-ref __tmp221560 _sym215244_ '#f)))) (define gxc#identifier-symbol - (lambda (_stx214081_) + (lambda (_stx215242_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _stx214081_ + _stx215242_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _stx214081_)) - (let () (declare (not safe)) (gx#stx-e _stx214081_))))))) + (gxc#generate-runtime-binding-id _stx215242_)) + (let () (declare (not safe)) (gx#stx-e _stx215242_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base__1.scm b/src/bootstrap/gerbil/compiler/optimize-base__1.scm index c59026ca4..2f360d5a1 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base__1.scm @@ -1,1574 +1,1602 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g220397_| + (define |gxc[1]#_g221562_| (##structure gx#syntax-quote::t 'optimizer-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220399_| + (define |gxc[1]#_g221564_| (##structure gx#syntax-quote::t 'make-optimizer-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220401_| + (define |gxc[1]#_g221566_| (##structure gx#syntax-quote::t 'optimizer-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220407_| + (define |gxc[1]#_g221572_| (##structure gx#syntax-quote::t 'optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220410_| + (define |gxc[1]#_g221575_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220413_| + (define |gxc[1]#_g221578_| (##structure gx#syntax-quote::t 'optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220419_| + (define |gxc[1]#_g221584_| (##structure gx#syntax-quote::t 'optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220422_| + (define |gxc[1]#_g221587_| (##structure gx#syntax-quote::t 'optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220425_| + (define |gxc[1]#_g221590_| (##structure gx#syntax-quote::t 'optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220431_| + (define |gxc[1]#_g221596_| (##structure gx#syntax-quote::t '&optimizer-info-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220434_| + (define |gxc[1]#_g221599_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220437_| + (define |gxc[1]#_g221602_| (##structure gx#syntax-quote::t '&optimizer-info-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220443_| + (define |gxc[1]#_g221608_| (##structure gx#syntax-quote::t '&optimizer-info-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220446_| + (define |gxc[1]#_g221611_| (##structure gx#syntax-quote::t '&optimizer-info-ssxi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220449_| + (define |gxc[1]#_g221614_| (##structure gx#syntax-quote::t '&optimizer-info-type-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220451_| + (define |gxc[1]#_g221616_| (##structure gx#syntax-quote::t '!type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220453_| + (define |gxc[1]#_g221618_| (##structure gx#syntax-quote::t 'make-!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220455_| + (define |gxc[1]#_g221620_| (##structure gx#syntax-quote::t '!type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220459_| + (define |gxc[1]#_g221624_| (##structure gx#syntax-quote::t '!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220463_| + (define |gxc[1]#_g221628_| (##structure gx#syntax-quote::t '!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220467_| + (define |gxc[1]#_g221632_| (##structure gx#syntax-quote::t '&!type-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220471_| + (define |gxc[1]#_g221636_| (##structure gx#syntax-quote::t '&!type-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220474_| + (define |gxc[1]#_g221639_| (##structure gx#syntax-quote::t '!type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220476_| + (define |gxc[1]#_g221641_| (##structure gx#syntax-quote::t '!alias::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220478_| + (define |gxc[1]#_g221643_| (##structure gx#syntax-quote::t 'make-!alias #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220480_| + (define |gxc[1]#_g221645_| (##structure gx#syntax-quote::t '!alias? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220484_| + (define |gxc[1]#_g221649_| (##structure gx#syntax-quote::t '!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220488_| + (define |gxc[1]#_g221653_| (##structure gx#syntax-quote::t '!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220492_| + (define |gxc[1]#_g221657_| (##structure gx#syntax-quote::t '&!alias-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220496_| + (define |gxc[1]#_g221661_| (##structure gx#syntax-quote::t '&!alias-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220500_| + (define |gxc[1]#_g221665_| (##structure gx#syntax-quote::t '!procedure::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220502_| + (define |gxc[1]#_g221667_| (##structure gx#syntax-quote::t 'make-!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220504_| + (define |gxc[1]#_g221669_| (##structure gx#syntax-quote::t '!procedure? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220508_| + (define |gxc[1]#_g221673_| (##structure gx#syntax-quote::t '!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220512_| + (define |gxc[1]#_g221677_| (##structure gx#syntax-quote::t '!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220516_| + (define |gxc[1]#_g221681_| (##structure gx#syntax-quote::t '&!procedure-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220520_| + (define |gxc[1]#_g221685_| (##structure gx#syntax-quote::t '&!procedure-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220524_| + (define |gxc[1]#_g221689_| (##structure gx#syntax-quote::t '!class::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220526_| + (define |gxc[1]#_g221691_| (##structure gx#syntax-quote::t 'make-!class #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220528_| + (define |gxc[1]#_g221693_| (##structure gx#syntax-quote::t '!class? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220540_| + (define |gxc[1]#_g221706_| (##structure gx#syntax-quote::t '!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220543_| + (define |gxc[1]#_g221709_| (##structure gx#syntax-quote::t '!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220546_| + (define |gxc[1]#_g221712_| + (##structure + gx#syntax-quote::t + '!class-metaclass + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g221715_| (##structure gx#syntax-quote::t '!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220549_| + (define |gxc[1]#_g221718_| (##structure gx#syntax-quote::t '!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220552_| + (define |gxc[1]#_g221721_| (##structure gx#syntax-quote::t '!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220555_| + (define |gxc[1]#_g221724_| (##structure gx#syntax-quote::t '!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220558_| + (define |gxc[1]#_g221727_| (##structure gx#syntax-quote::t '!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220561_| + (define |gxc[1]#_g221730_| (##structure gx#syntax-quote::t '!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220564_| + (define |gxc[1]#_g221733_| (##structure gx#syntax-quote::t '!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220576_| + (define |gxc[1]#_g221746_| (##structure gx#syntax-quote::t '!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220579_| + (define |gxc[1]#_g221749_| (##structure gx#syntax-quote::t '!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220582_| + (define |gxc[1]#_g221752_| + (##structure + gx#syntax-quote::t + '!class-metaclass-set! + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g221755_| (##structure gx#syntax-quote::t '!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220585_| + (define |gxc[1]#_g221758_| (##structure gx#syntax-quote::t '!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220588_| + (define |gxc[1]#_g221761_| (##structure gx#syntax-quote::t '!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220591_| + (define |gxc[1]#_g221764_| (##structure gx#syntax-quote::t '!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220594_| + (define |gxc[1]#_g221767_| (##structure gx#syntax-quote::t '!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220597_| + (define |gxc[1]#_g221770_| (##structure gx#syntax-quote::t '!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220600_| + (define |gxc[1]#_g221773_| (##structure gx#syntax-quote::t '!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220612_| + (define |gxc[1]#_g221786_| (##structure gx#syntax-quote::t '&!class-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220615_| + (define |gxc[1]#_g221789_| (##structure gx#syntax-quote::t '&!class-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220618_| + (define |gxc[1]#_g221792_| + (##structure + gx#syntax-quote::t + '&!class-metaclass + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g221795_| (##structure gx#syntax-quote::t '&!class-final? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220621_| + (define |gxc[1]#_g221798_| (##structure gx#syntax-quote::t '&!class-struct? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220624_| + (define |gxc[1]#_g221801_| (##structure gx#syntax-quote::t '&!class-constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220627_| + (define |gxc[1]#_g221804_| (##structure gx#syntax-quote::t '&!class-fields #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220630_| + (define |gxc[1]#_g221807_| (##structure gx#syntax-quote::t '&!class-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220633_| + (define |gxc[1]#_g221810_| (##structure gx#syntax-quote::t '&!class-precedence-list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220636_| + (define |gxc[1]#_g221813_| (##structure gx#syntax-quote::t '&!class-super #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220648_| + (define |gxc[1]#_g221826_| (##structure gx#syntax-quote::t '&!class-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220651_| + (define |gxc[1]#_g221829_| (##structure gx#syntax-quote::t '&!class-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220654_| + (define |gxc[1]#_g221832_| + (##structure + gx#syntax-quote::t + '&!class-metaclass-set! + #f + (gx#current-expander-context) + '())) + (define |gxc[1]#_g221835_| (##structure gx#syntax-quote::t '&!class-final?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220657_| + (define |gxc[1]#_g221838_| (##structure gx#syntax-quote::t '&!class-struct?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220660_| + (define |gxc[1]#_g221841_| (##structure gx#syntax-quote::t '&!class-constructor-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220663_| + (define |gxc[1]#_g221844_| (##structure gx#syntax-quote::t '&!class-fields-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220666_| + (define |gxc[1]#_g221847_| (##structure gx#syntax-quote::t '&!class-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220669_| + (define |gxc[1]#_g221850_| (##structure gx#syntax-quote::t '&!class-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220672_| + (define |gxc[1]#_g221853_| (##structure gx#syntax-quote::t '&!class-super-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220675_| + (define |gxc[1]#_g221856_| (##structure gx#syntax-quote::t '!procedure #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220677_| + (define |gxc[1]#_g221858_| (##structure gx#syntax-quote::t '!predicate::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220679_| + (define |gxc[1]#_g221860_| (##structure gx#syntax-quote::t 'make-!predicate #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220681_| + (define |gxc[1]#_g221862_| (##structure gx#syntax-quote::t '!predicate? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220685_| + (define |gxc[1]#_g221866_| (##structure gx#syntax-quote::t '!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220689_| + (define |gxc[1]#_g221870_| (##structure gx#syntax-quote::t '!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220693_| + (define |gxc[1]#_g221874_| (##structure gx#syntax-quote::t '&!predicate-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220697_| + (define |gxc[1]#_g221878_| (##structure gx#syntax-quote::t '&!predicate-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220701_| + (define |gxc[1]#_g221882_| (##structure gx#syntax-quote::t '!constructor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220703_| + (define |gxc[1]#_g221884_| (##structure gx#syntax-quote::t 'make-!constructor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220705_| + (define |gxc[1]#_g221886_| (##structure gx#syntax-quote::t '!constructor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220709_| + (define |gxc[1]#_g221890_| (##structure gx#syntax-quote::t '!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220713_| + (define |gxc[1]#_g221894_| (##structure gx#syntax-quote::t '!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220717_| + (define |gxc[1]#_g221898_| (##structure gx#syntax-quote::t '&!constructor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220721_| + (define |gxc[1]#_g221902_| (##structure gx#syntax-quote::t '&!constructor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220725_| + (define |gxc[1]#_g221906_| (##structure gx#syntax-quote::t '!accessor::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220727_| + (define |gxc[1]#_g221908_| (##structure gx#syntax-quote::t 'make-!accessor #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220729_| + (define |gxc[1]#_g221910_| (##structure gx#syntax-quote::t '!accessor? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220735_| + (define |gxc[1]#_g221916_| (##structure gx#syntax-quote::t '!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220738_| + (define |gxc[1]#_g221919_| (##structure gx#syntax-quote::t '!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220741_| + (define |gxc[1]#_g221922_| (##structure gx#syntax-quote::t '!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220747_| + (define |gxc[1]#_g221928_| (##structure gx#syntax-quote::t '!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220750_| + (define |gxc[1]#_g221931_| (##structure gx#syntax-quote::t '!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220753_| + (define |gxc[1]#_g221934_| (##structure gx#syntax-quote::t '!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220759_| + (define |gxc[1]#_g221940_| (##structure gx#syntax-quote::t '&!accessor-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220762_| + (define |gxc[1]#_g221943_| (##structure gx#syntax-quote::t '&!accessor-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220765_| + (define |gxc[1]#_g221946_| (##structure gx#syntax-quote::t '&!accessor-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220771_| + (define |gxc[1]#_g221952_| (##structure gx#syntax-quote::t '&!accessor-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220774_| + (define |gxc[1]#_g221955_| (##structure gx#syntax-quote::t '&!accessor-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220777_| + (define |gxc[1]#_g221958_| (##structure gx#syntax-quote::t '&!accessor-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220781_| + (define |gxc[1]#_g221962_| (##structure gx#syntax-quote::t '!mutator::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220783_| + (define |gxc[1]#_g221964_| (##structure gx#syntax-quote::t 'make-!mutator #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220785_| + (define |gxc[1]#_g221966_| (##structure gx#syntax-quote::t '!mutator? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220791_| + (define |gxc[1]#_g221972_| (##structure gx#syntax-quote::t '!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220794_| + (define |gxc[1]#_g221975_| (##structure gx#syntax-quote::t '!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220797_| + (define |gxc[1]#_g221978_| (##structure gx#syntax-quote::t '!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220803_| + (define |gxc[1]#_g221984_| (##structure gx#syntax-quote::t '!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220806_| + (define |gxc[1]#_g221987_| (##structure gx#syntax-quote::t '!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220809_| + (define |gxc[1]#_g221990_| (##structure gx#syntax-quote::t '!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220815_| + (define |gxc[1]#_g221996_| (##structure gx#syntax-quote::t '&!mutator-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220818_| + (define |gxc[1]#_g221999_| (##structure gx#syntax-quote::t '&!mutator-checked? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220821_| + (define |gxc[1]#_g222002_| (##structure gx#syntax-quote::t '&!mutator-slot #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220827_| + (define |gxc[1]#_g222008_| (##structure gx#syntax-quote::t '&!mutator-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220830_| + (define |gxc[1]#_g222011_| (##structure gx#syntax-quote::t '&!mutator-checked?-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220833_| + (define |gxc[1]#_g222014_| (##structure gx#syntax-quote::t '&!mutator-slot-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220837_| + (define |gxc[1]#_g222018_| (##structure gx#syntax-quote::t '!lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220839_| + (define |gxc[1]#_g222020_| (##structure gx#syntax-quote::t 'make-!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220841_| + (define |gxc[1]#_g222022_| (##structure gx#syntax-quote::t '!lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220849_| + (define |gxc[1]#_g222030_| (##structure gx#syntax-quote::t '!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220852_| + (define |gxc[1]#_g222033_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220855_| + (define |gxc[1]#_g222036_| (##structure gx#syntax-quote::t '!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220858_| + (define |gxc[1]#_g222039_| (##structure gx#syntax-quote::t '!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220861_| + (define |gxc[1]#_g222042_| (##structure gx#syntax-quote::t '!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220869_| + (define |gxc[1]#_g222050_| (##structure gx#syntax-quote::t '!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220872_| + (define |gxc[1]#_g222053_| (##structure gx#syntax-quote::t '!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220875_| + (define |gxc[1]#_g222056_| (##structure gx#syntax-quote::t '!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220878_| + (define |gxc[1]#_g222059_| (##structure gx#syntax-quote::t '!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220881_| + (define |gxc[1]#_g222062_| (##structure gx#syntax-quote::t '!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220889_| + (define |gxc[1]#_g222070_| (##structure gx#syntax-quote::t '&!lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220892_| + (define |gxc[1]#_g222073_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220895_| + (define |gxc[1]#_g222076_| (##structure gx#syntax-quote::t '&!lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220898_| + (define |gxc[1]#_g222079_| (##structure gx#syntax-quote::t '&!lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220901_| + (define |gxc[1]#_g222082_| (##structure gx#syntax-quote::t '&!lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220909_| + (define |gxc[1]#_g222090_| (##structure gx#syntax-quote::t '&!lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220912_| + (define |gxc[1]#_g222093_| (##structure gx#syntax-quote::t '&!lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220915_| + (define |gxc[1]#_g222096_| (##structure gx#syntax-quote::t '&!lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220918_| + (define |gxc[1]#_g222099_| (##structure gx#syntax-quote::t '&!lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220921_| + (define |gxc[1]#_g222102_| (##structure gx#syntax-quote::t '&!lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220925_| + (define |gxc[1]#_g222106_| (##structure gx#syntax-quote::t '!case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220927_| + (define |gxc[1]#_g222108_| (##structure gx#syntax-quote::t 'make-!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220929_| + (define |gxc[1]#_g222110_| (##structure gx#syntax-quote::t '!case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220934_| + (define |gxc[1]#_g222115_| (##structure gx#syntax-quote::t '!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220937_| + (define |gxc[1]#_g222118_| (##structure gx#syntax-quote::t '!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220942_| + (define |gxc[1]#_g222123_| (##structure gx#syntax-quote::t '!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220945_| + (define |gxc[1]#_g222126_| (##structure gx#syntax-quote::t '!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220950_| + (define |gxc[1]#_g222131_| (##structure gx#syntax-quote::t '&!case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220953_| + (define |gxc[1]#_g222134_| (##structure gx#syntax-quote::t '&!case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220958_| + (define |gxc[1]#_g222139_| (##structure gx#syntax-quote::t '&!case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220961_| + (define |gxc[1]#_g222142_| (##structure gx#syntax-quote::t '&!case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220965_| + (define |gxc[1]#_g222146_| (##structure gx#syntax-quote::t '!kw-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220967_| + (define |gxc[1]#_g222148_| (##structure gx#syntax-quote::t 'make-!kw-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220969_| + (define |gxc[1]#_g222150_| (##structure gx#syntax-quote::t '!kw-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220975_| + (define |gxc[1]#_g222156_| (##structure gx#syntax-quote::t '!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220978_| + (define |gxc[1]#_g222159_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220981_| + (define |gxc[1]#_g222162_| (##structure gx#syntax-quote::t '!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220987_| + (define |gxc[1]#_g222168_| (##structure gx#syntax-quote::t '!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220990_| + (define |gxc[1]#_g222171_| (##structure gx#syntax-quote::t '!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220993_| + (define |gxc[1]#_g222174_| (##structure gx#syntax-quote::t '!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g220999_| + (define |gxc[1]#_g222180_| (##structure gx#syntax-quote::t '&!kw-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221002_| + (define |gxc[1]#_g222183_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221005_| + (define |gxc[1]#_g222186_| (##structure gx#syntax-quote::t '&!kw-lambda-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221011_| + (define |gxc[1]#_g222192_| (##structure gx#syntax-quote::t '&!kw-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221014_| + (define |gxc[1]#_g222195_| (##structure gx#syntax-quote::t '&!kw-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221017_| + (define |gxc[1]#_g222198_| (##structure gx#syntax-quote::t '&!kw-lambda-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221021_| + (define |gxc[1]#_g222202_| (##structure gx#syntax-quote::t '!kw-lambda-primary::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221023_| + (define |gxc[1]#_g222204_| (##structure gx#syntax-quote::t 'make-!kw-lambda-primary #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221025_| + (define |gxc[1]#_g222206_| (##structure gx#syntax-quote::t '!kw-lambda-primary? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221031_| + (define |gxc[1]#_g222212_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221034_| + (define |gxc[1]#_g222215_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221037_| + (define |gxc[1]#_g222218_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221043_| + (define |gxc[1]#_g222224_| (##structure gx#syntax-quote::t '!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221046_| + (define |gxc[1]#_g222227_| (##structure gx#syntax-quote::t '!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221049_| + (define |gxc[1]#_g222230_| (##structure gx#syntax-quote::t '!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221055_| + (define |gxc[1]#_g222236_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221058_| + (define |gxc[1]#_g222239_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221061_| + (define |gxc[1]#_g222242_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221067_| + (define |gxc[1]#_g222248_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221070_| + (define |gxc[1]#_g222251_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-main-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221073_| + (define |gxc[1]#_g222254_| (##structure gx#syntax-quote::t '&!kw-lambda-primary-keys-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221075_| + (define |gxc[1]#_g222256_| (##structure gx#syntax-quote::t '!primitive::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221077_| + (define |gxc[1]#_g222258_| (##structure gx#syntax-quote::t 'make-!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221079_| + (define |gxc[1]#_g222260_| (##structure gx#syntax-quote::t '!primitive? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221083_| + (define |gxc[1]#_g222264_| (##structure gx#syntax-quote::t '!lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221085_| + (define |gxc[1]#_g222266_| (##structure gx#syntax-quote::t '!primitive #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221087_| + (define |gxc[1]#_g222268_| (##structure gx#syntax-quote::t '!primitive-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221089_| + (define |gxc[1]#_g222270_| (##structure gx#syntax-quote::t 'make-!primitive-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221091_| + (define |gxc[1]#_g222272_| (##structure gx#syntax-quote::t '!primitive-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221099_| + (define |gxc[1]#_g222280_| (##structure gx#syntax-quote::t '!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221102_| + (define |gxc[1]#_g222283_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221105_| + (define |gxc[1]#_g222286_| (##structure gx#syntax-quote::t '!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221108_| + (define |gxc[1]#_g222289_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221111_| + (define |gxc[1]#_g222292_| (##structure gx#syntax-quote::t '!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221119_| + (define |gxc[1]#_g222300_| (##structure gx#syntax-quote::t '!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221122_| + (define |gxc[1]#_g222303_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221125_| + (define |gxc[1]#_g222306_| (##structure gx#syntax-quote::t '!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221128_| + (define |gxc[1]#_g222309_| (##structure gx#syntax-quote::t '!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221131_| + (define |gxc[1]#_g222312_| (##structure gx#syntax-quote::t '!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221139_| + (define |gxc[1]#_g222320_| (##structure gx#syntax-quote::t '&!primitive-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221142_| + (define |gxc[1]#_g222323_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221145_| + (define |gxc[1]#_g222326_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221148_| + (define |gxc[1]#_g222329_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221151_| + (define |gxc[1]#_g222332_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221159_| + (define |gxc[1]#_g222340_| (##structure gx#syntax-quote::t '&!primitive-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221162_| + (define |gxc[1]#_g222343_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-typedecl-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221165_| + (define |gxc[1]#_g222346_| (##structure gx#syntax-quote::t '&!primitive-lambda-inline-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221168_| + (define |gxc[1]#_g222349_| (##structure gx#syntax-quote::t '&!primitive-lambda-dispatch-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221171_| + (define |gxc[1]#_g222352_| (##structure gx#syntax-quote::t '&!primitive-lambda-arity-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221175_| + (define |gxc[1]#_g222356_| (##structure gx#syntax-quote::t '!case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221178_| + (define |gxc[1]#_g222359_| (##structure gx#syntax-quote::t '!primitive-case-lambda::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221180_| + (define |gxc[1]#_g222361_| (##structure gx#syntax-quote::t 'make-!primitive-case-lambda #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221182_| + (define |gxc[1]#_g222363_| (##structure gx#syntax-quote::t '!primitive-case-lambda? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221187_| + (define |gxc[1]#_g222368_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221190_| + (define |gxc[1]#_g222371_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221195_| + (define |gxc[1]#_g222376_| (##structure gx#syntax-quote::t '!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221198_| + (define |gxc[1]#_g222379_| (##structure gx#syntax-quote::t '!primitive-case-lambda-clauses-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221203_| + (define |gxc[1]#_g222384_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221206_| + (define |gxc[1]#_g222387_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221211_| + (define |gxc[1]#_g222392_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g221214_| + (define |gxc[1]#_g222395_| (##structure gx#syntax-quote::t '&!primitive-case-lambda-clauses-set! @@ -1577,7 +1605,7 @@ '())) (begin (define |gxc[:0:]#optimizer-info| - (let ((__obj220233 + (let ((__obj221398 (let () (declare (not safe)) (##structure @@ -1595,11 +1623,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 + __obj221398 'gxc#optimizer-info::t '1 gerbil/core$$#class-type-info::t @@ -1607,7 +1636,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 + __obj221398 'optimizer-info '2 gerbil/core$$#class-type-info::t @@ -1615,7 +1644,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 + __obj221398 '(type ssxi methods) '4 gerbil/core$$#class-type-info::t @@ -1623,7 +1652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 + __obj221398 '() '3 gerbil/core$$#class-type-info::t @@ -1631,7 +1660,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 + __obj221398 '#t '5 gerbil/core$$#class-type-info::t @@ -1639,7 +1668,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 + __obj221398 '#f '6 gerbil/core$$#class-type-info::t @@ -1647,150 +1676,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 - ':init! + __obj221398 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220396 |gxc[1]#_g220397_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220233 - __tmp220396 + __obj221398 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220398 |gxc[1]#_g220399_|)) + (let ((__tmp221561 |gxc[1]#_g221562_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220233 - __tmp220398 + __obj221398 + __tmp221561 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220400 |gxc[1]#_g220401_|)) + (let ((__tmp221563 |gxc[1]#_g221564_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220233 - __tmp220400 + __obj221398 + __tmp221563 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220402 - (let ((__tmp220411 - (let ((__tmp220412 |gxc[1]#_g220413_|)) + (let ((__tmp221565 |gxc[1]#_g221566_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221398 + __tmp221565 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp221567 + (let ((__tmp221576 + (let ((__tmp221577 |gxc[1]#_g221578_|)) (declare (not safe)) - (cons 'type __tmp220412))) - (__tmp220403 - (let ((__tmp220408 - (let ((__tmp220409 |gxc[1]#_g220410_|)) + (cons 'type __tmp221577))) + (__tmp221568 + (let ((__tmp221573 + (let ((__tmp221574 |gxc[1]#_g221575_|)) (declare (not safe)) - (cons 'ssxi __tmp220409))) - (__tmp220404 - (let ((__tmp220405 - (let ((__tmp220406 |gxc[1]#_g220407_|)) + (cons 'ssxi __tmp221574))) + (__tmp221569 + (let ((__tmp221570 + (let ((__tmp221571 |gxc[1]#_g221572_|)) (declare (not safe)) - (cons 'methods __tmp220406)))) + (cons 'methods __tmp221571)))) (declare (not safe)) - (cons __tmp220405 '())))) + (cons __tmp221570 '())))) (declare (not safe)) - (cons __tmp220408 __tmp220404)))) + (cons __tmp221573 __tmp221569)))) (declare (not safe)) - (cons __tmp220411 __tmp220403)))) + (cons __tmp221576 __tmp221568)))) (declare (not safe)) (##unchecked-structure-set! - __obj220233 - __tmp220402 - '11 + __obj221398 + __tmp221567 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220414 - (let ((__tmp220423 - (let ((__tmp220424 |gxc[1]#_g220425_|)) + (let ((__tmp221579 + (let ((__tmp221588 + (let ((__tmp221589 |gxc[1]#_g221590_|)) (declare (not safe)) - (cons 'type __tmp220424))) - (__tmp220415 - (let ((__tmp220420 - (let ((__tmp220421 |gxc[1]#_g220422_|)) + (cons 'type __tmp221589))) + (__tmp221580 + (let ((__tmp221585 + (let ((__tmp221586 |gxc[1]#_g221587_|)) (declare (not safe)) - (cons 'ssxi __tmp220421))) - (__tmp220416 - (let ((__tmp220417 - (let ((__tmp220418 |gxc[1]#_g220419_|)) + (cons 'ssxi __tmp221586))) + (__tmp221581 + (let ((__tmp221582 + (let ((__tmp221583 |gxc[1]#_g221584_|)) (declare (not safe)) - (cons 'methods __tmp220418)))) + (cons 'methods __tmp221583)))) (declare (not safe)) - (cons __tmp220417 '())))) + (cons __tmp221582 '())))) (declare (not safe)) - (cons __tmp220420 __tmp220416)))) + (cons __tmp221585 __tmp221581)))) (declare (not safe)) - (cons __tmp220423 __tmp220415)))) + (cons __tmp221588 __tmp221580)))) (declare (not safe)) (##unchecked-structure-set! - __obj220233 - __tmp220414 - '12 + __obj221398 + __tmp221579 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220426 - (let ((__tmp220435 - (let ((__tmp220436 |gxc[1]#_g220437_|)) + (let ((__tmp221591 + (let ((__tmp221600 + (let ((__tmp221601 |gxc[1]#_g221602_|)) (declare (not safe)) - (cons 'type __tmp220436))) - (__tmp220427 - (let ((__tmp220432 - (let ((__tmp220433 |gxc[1]#_g220434_|)) + (cons 'type __tmp221601))) + (__tmp221592 + (let ((__tmp221597 + (let ((__tmp221598 |gxc[1]#_g221599_|)) (declare (not safe)) - (cons 'ssxi __tmp220433))) - (__tmp220428 - (let ((__tmp220429 - (let ((__tmp220430 |gxc[1]#_g220431_|)) + (cons 'ssxi __tmp221598))) + (__tmp221593 + (let ((__tmp221594 + (let ((__tmp221595 |gxc[1]#_g221596_|)) (declare (not safe)) - (cons 'methods __tmp220430)))) + (cons 'methods __tmp221595)))) (declare (not safe)) - (cons __tmp220429 '())))) + (cons __tmp221594 '())))) (declare (not safe)) - (cons __tmp220432 __tmp220428)))) + (cons __tmp221597 __tmp221593)))) (declare (not safe)) - (cons __tmp220435 __tmp220427)))) + (cons __tmp221600 __tmp221592)))) (declare (not safe)) (##unchecked-structure-set! - __obj220233 - __tmp220426 - '13 + __obj221398 + __tmp221591 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220438 - (let ((__tmp220447 - (let ((__tmp220448 |gxc[1]#_g220449_|)) + (let ((__tmp221603 + (let ((__tmp221612 + (let ((__tmp221613 |gxc[1]#_g221614_|)) (declare (not safe)) - (cons 'type __tmp220448))) - (__tmp220439 - (let ((__tmp220444 - (let ((__tmp220445 |gxc[1]#_g220446_|)) + (cons 'type __tmp221613))) + (__tmp221604 + (let ((__tmp221609 + (let ((__tmp221610 |gxc[1]#_g221611_|)) (declare (not safe)) - (cons 'ssxi __tmp220445))) - (__tmp220440 - (let ((__tmp220441 - (let ((__tmp220442 |gxc[1]#_g220443_|)) + (cons 'ssxi __tmp221610))) + (__tmp221605 + (let ((__tmp221606 + (let ((__tmp221607 |gxc[1]#_g221608_|)) (declare (not safe)) - (cons 'methods __tmp220442)))) + (cons 'methods __tmp221607)))) (declare (not safe)) - (cons __tmp220441 '())))) + (cons __tmp221606 '())))) (declare (not safe)) - (cons __tmp220444 __tmp220440)))) + (cons __tmp221609 __tmp221605)))) (declare (not safe)) - (cons __tmp220447 __tmp220439)))) + (cons __tmp221612 __tmp221604)))) (declare (not safe)) (##unchecked-structure-set! - __obj220233 - __tmp220438 - '14 + __obj221398 + __tmp221603 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220233)) + __obj221398)) (define |gxc[:0:]#!type| - (let ((__obj220234 + (let ((__obj221399 (let () (declare (not safe)) (##structure @@ -1808,11 +1845,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 + __obj221399 'gxc#!type::t '1 gerbil/core$$#class-type-info::t @@ -1820,7 +1858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 + __obj221399 '!type '2 gerbil/core$$#class-type-info::t @@ -1828,7 +1866,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 + __obj221399 '(id) '4 gerbil/core$$#class-type-info::t @@ -1836,7 +1874,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 + __obj221399 '() '3 gerbil/core$$#class-type-info::t @@ -1844,7 +1882,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 + __obj221399 '#t '5 gerbil/core$$#class-type-info::t @@ -1852,7 +1890,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 + __obj221399 '#f '6 gerbil/core$$#class-type-info::t @@ -1860,94 +1898,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 + __obj221399 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220450 |gxc[1]#_g220451_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220234 - __tmp220450 + __obj221399 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220452 |gxc[1]#_g220453_|)) + (let ((__tmp221615 |gxc[1]#_g221616_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220234 - __tmp220452 + __obj221399 + __tmp221615 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220454 |gxc[1]#_g220455_|)) + (let ((__tmp221617 |gxc[1]#_g221618_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220234 - __tmp220454 + __obj221399 + __tmp221617 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220456 - (let ((__tmp220457 - (let ((__tmp220458 |gxc[1]#_g220459_|)) - (declare (not safe)) - (cons 'id __tmp220458)))) - (declare (not safe)) - (cons __tmp220457 '())))) + (let ((__tmp221619 |gxc[1]#_g221620_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220234 - __tmp220456 + __obj221399 + __tmp221619 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220460 - (let ((__tmp220461 - (let ((__tmp220462 |gxc[1]#_g220463_|)) + (let ((__tmp221621 + (let ((__tmp221622 + (let ((__tmp221623 |gxc[1]#_g221624_|)) (declare (not safe)) - (cons 'id __tmp220462)))) + (cons 'id __tmp221623)))) (declare (not safe)) - (cons __tmp220461 '())))) + (cons __tmp221622 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220234 - __tmp220460 + __obj221399 + __tmp221621 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220464 - (let ((__tmp220465 - (let ((__tmp220466 |gxc[1]#_g220467_|)) + (let ((__tmp221625 + (let ((__tmp221626 + (let ((__tmp221627 |gxc[1]#_g221628_|)) (declare (not safe)) - (cons 'id __tmp220466)))) + (cons 'id __tmp221627)))) (declare (not safe)) - (cons __tmp220465 '())))) + (cons __tmp221626 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220234 - __tmp220464 + __obj221399 + __tmp221625 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220468 - (let ((__tmp220469 - (let ((__tmp220470 |gxc[1]#_g220471_|)) + (let ((__tmp221629 + (let ((__tmp221630 + (let ((__tmp221631 |gxc[1]#_g221632_|)) (declare (not safe)) - (cons 'id __tmp220470)))) + (cons 'id __tmp221631)))) (declare (not safe)) - (cons __tmp220469 '())))) + (cons __tmp221630 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220234 - __tmp220468 + __obj221399 + __tmp221629 '14 gerbil/core$$#class-type-info::t '#f)) - __obj220234)) + (let ((__tmp221633 + (let ((__tmp221634 + (let ((__tmp221635 |gxc[1]#_g221636_|)) + (declare (not safe)) + (cons 'id __tmp221635)))) + (declare (not safe)) + (cons __tmp221634 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj221399 + __tmp221633 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221399)) (define |gxc[:0:]#!alias| - (let ((__obj220235 + (let ((__obj221400 (let () (declare (not safe)) (##structure @@ -1965,11 +2011,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220235 + __obj221400 'gxc#!alias::t '1 gerbil/core$$#class-type-info::t @@ -1977,7 +2024,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220235 + __obj221400 '!alias '2 gerbil/core$$#class-type-info::t @@ -1985,26 +2032,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220235 + __obj221400 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220472 - (let ((__tmp220473 |gxc[1]#_g220474_|)) + (let ((__tmp221637 + (let ((__tmp221638 |gxc[1]#_g221639_|)) (declare (not safe)) - (cons __tmp220473 '())))) + (cons __tmp221638 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220472 + __obj221400 + __tmp221637 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220235 + __obj221400 '#t '5 gerbil/core$$#class-type-info::t @@ -2012,7 +2059,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220235 + __obj221400 '#f '6 gerbil/core$$#class-type-info::t @@ -2020,94 +2067,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220235 + __obj221400 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220475 |gxc[1]#_g220476_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220475 + __obj221400 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220477 |gxc[1]#_g220478_|)) + (let ((__tmp221640 |gxc[1]#_g221641_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220477 + __obj221400 + __tmp221640 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220479 |gxc[1]#_g220480_|)) + (let ((__tmp221642 |gxc[1]#_g221643_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220479 + __obj221400 + __tmp221642 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220481 - (let ((__tmp220482 - (let ((__tmp220483 |gxc[1]#_g220484_|)) - (declare (not safe)) - (cons 'id __tmp220483)))) - (declare (not safe)) - (cons __tmp220482 '())))) + (let ((__tmp221644 |gxc[1]#_g221645_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220481 + __obj221400 + __tmp221644 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220485 - (let ((__tmp220486 - (let ((__tmp220487 |gxc[1]#_g220488_|)) + (let ((__tmp221646 + (let ((__tmp221647 + (let ((__tmp221648 |gxc[1]#_g221649_|)) (declare (not safe)) - (cons 'id __tmp220487)))) + (cons 'id __tmp221648)))) (declare (not safe)) - (cons __tmp220486 '())))) + (cons __tmp221647 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220485 + __obj221400 + __tmp221646 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220489 - (let ((__tmp220490 - (let ((__tmp220491 |gxc[1]#_g220492_|)) + (let ((__tmp221650 + (let ((__tmp221651 + (let ((__tmp221652 |gxc[1]#_g221653_|)) (declare (not safe)) - (cons 'id __tmp220491)))) + (cons 'id __tmp221652)))) (declare (not safe)) - (cons __tmp220490 '())))) + (cons __tmp221651 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220489 + __obj221400 + __tmp221650 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220493 - (let ((__tmp220494 - (let ((__tmp220495 |gxc[1]#_g220496_|)) + (let ((__tmp221654 + (let ((__tmp221655 + (let ((__tmp221656 |gxc[1]#_g221657_|)) (declare (not safe)) - (cons 'id __tmp220495)))) + (cons 'id __tmp221656)))) (declare (not safe)) - (cons __tmp220494 '())))) + (cons __tmp221655 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220235 - __tmp220493 + __obj221400 + __tmp221654 '14 gerbil/core$$#class-type-info::t '#f)) - __obj220235)) + (let ((__tmp221658 + (let ((__tmp221659 + (let ((__tmp221660 |gxc[1]#_g221661_|)) + (declare (not safe)) + (cons 'id __tmp221660)))) + (declare (not safe)) + (cons __tmp221659 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj221400 + __tmp221658 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221400)) (define |gxc[:0:]#!procedure| - (let ((__obj220236 + (let ((__obj221401 (let () (declare (not safe)) (##structure @@ -2125,11 +2180,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220236 + __obj221401 'gxc#!procedure::t '1 gerbil/core$$#class-type-info::t @@ -2137,7 +2193,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220236 + __obj221401 '!procedure '2 gerbil/core$$#class-type-info::t @@ -2145,26 +2201,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220236 + __obj221401 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220497 - (let ((__tmp220498 |gxc[1]#_g220474_|)) + (let ((__tmp221662 + (let ((__tmp221663 |gxc[1]#_g221639_|)) (declare (not safe)) - (cons __tmp220498 '())))) + (cons __tmp221663 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220497 + __obj221401 + __tmp221662 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220236 + __obj221401 '#t '5 gerbil/core$$#class-type-info::t @@ -2172,7 +2228,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220236 + __obj221401 '#f '6 gerbil/core$$#class-type-info::t @@ -2180,94 +2236,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220236 + __obj221401 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220499 |gxc[1]#_g220500_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220499 + __obj221401 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220501 |gxc[1]#_g220502_|)) + (let ((__tmp221664 |gxc[1]#_g221665_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220501 + __obj221401 + __tmp221664 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220503 |gxc[1]#_g220504_|)) + (let ((__tmp221666 |gxc[1]#_g221667_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220503 + __obj221401 + __tmp221666 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220505 - (let ((__tmp220506 - (let ((__tmp220507 |gxc[1]#_g220508_|)) - (declare (not safe)) - (cons 'id __tmp220507)))) - (declare (not safe)) - (cons __tmp220506 '())))) + (let ((__tmp221668 |gxc[1]#_g221669_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220505 + __obj221401 + __tmp221668 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220509 - (let ((__tmp220510 - (let ((__tmp220511 |gxc[1]#_g220512_|)) + (let ((__tmp221670 + (let ((__tmp221671 + (let ((__tmp221672 |gxc[1]#_g221673_|)) (declare (not safe)) - (cons 'id __tmp220511)))) + (cons 'id __tmp221672)))) (declare (not safe)) - (cons __tmp220510 '())))) + (cons __tmp221671 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220509 + __obj221401 + __tmp221670 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220513 - (let ((__tmp220514 - (let ((__tmp220515 |gxc[1]#_g220516_|)) + (let ((__tmp221674 + (let ((__tmp221675 + (let ((__tmp221676 |gxc[1]#_g221677_|)) (declare (not safe)) - (cons 'id __tmp220515)))) + (cons 'id __tmp221676)))) (declare (not safe)) - (cons __tmp220514 '())))) + (cons __tmp221675 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220513 + __obj221401 + __tmp221674 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220517 - (let ((__tmp220518 - (let ((__tmp220519 |gxc[1]#_g220520_|)) + (let ((__tmp221678 + (let ((__tmp221679 + (let ((__tmp221680 |gxc[1]#_g221681_|)) (declare (not safe)) - (cons 'id __tmp220519)))) + (cons 'id __tmp221680)))) (declare (not safe)) - (cons __tmp220518 '())))) + (cons __tmp221679 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220236 - __tmp220517 + __obj221401 + __tmp221678 '14 gerbil/core$$#class-type-info::t '#f)) - __obj220236)) + (let ((__tmp221682 + (let ((__tmp221683 + (let ((__tmp221684 |gxc[1]#_g221685_|)) + (declare (not safe)) + (cons 'id __tmp221684)))) + (declare (not safe)) + (cons __tmp221683 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj221401 + __tmp221682 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221401)) (define |gxc[:0:]#!class| - (let ((__obj220237 + (let ((__obj221402 (let () (declare (not safe)) (##structure @@ -2285,11 +2349,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220237 + __obj221402 'gxc#!class::t '1 gerbil/core$$#class-type-info::t @@ -2297,7 +2362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220237 + __obj221402 '!class '2 gerbil/core$$#class-type-info::t @@ -2305,32 +2370,33 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220237 + __obj221402 '(super precedence-list slots fields constructor struct? final? + metaclass methods) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220521 - (let ((__tmp220522 |gxc[1]#_g220474_|)) + (let ((__tmp221686 + (let ((__tmp221687 |gxc[1]#_g221639_|)) (declare (not safe)) - (cons __tmp220522 '())))) + (cons __tmp221687 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220521 + __obj221402 + __tmp221686 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220237 + __obj221402 '#t '5 gerbil/core$$#class-type-info::t @@ -2338,7 +2404,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220237 + __obj221402 '#f '6 gerbil/core$$#class-type-info::t @@ -2346,350 +2412,390 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220237 - ':init! + __obj221402 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220523 |gxc[1]#_g220524_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220523 + __obj221402 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220525 |gxc[1]#_g220526_|)) + (let ((__tmp221688 |gxc[1]#_g221689_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220525 + __obj221402 + __tmp221688 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220527 |gxc[1]#_g220528_|)) + (let ((__tmp221690 |gxc[1]#_g221691_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220527 + __obj221402 + __tmp221690 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220529 - (let ((__tmp220562 - (let ((__tmp220563 |gxc[1]#_g220564_|)) + (let ((__tmp221692 |gxc[1]#_g221693_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221402 + __tmp221692 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp221694 + (let ((__tmp221731 + (let ((__tmp221732 |gxc[1]#_g221733_|)) (declare (not safe)) - (cons 'super __tmp220563))) - (__tmp220530 - (let ((__tmp220559 - (let ((__tmp220560 |gxc[1]#_g220561_|)) + (cons 'super __tmp221732))) + (__tmp221695 + (let ((__tmp221728 + (let ((__tmp221729 |gxc[1]#_g221730_|)) (declare (not safe)) - (cons 'precedence-list __tmp220560))) - (__tmp220531 - (let ((__tmp220556 - (let ((__tmp220557 |gxc[1]#_g220558_|)) + (cons 'precedence-list __tmp221729))) + (__tmp221696 + (let ((__tmp221725 + (let ((__tmp221726 |gxc[1]#_g221727_|)) (declare (not safe)) - (cons 'slots __tmp220557))) - (__tmp220532 - (let ((__tmp220553 - (let ((__tmp220554 - |gxc[1]#_g220555_|)) + (cons 'slots __tmp221726))) + (__tmp221697 + (let ((__tmp221722 + (let ((__tmp221723 + |gxc[1]#_g221724_|)) (declare (not safe)) - (cons 'fields __tmp220554))) - (__tmp220533 - (let ((__tmp220550 - (let ((__tmp220551 - |gxc[1]#_g220552_|)) + (cons 'fields __tmp221723))) + (__tmp221698 + (let ((__tmp221719 + (let ((__tmp221720 + |gxc[1]#_g221721_|)) (declare (not safe)) (cons 'constructor - __tmp220551))) - (__tmp220534 - (let ((__tmp220547 - (let ((__tmp220548 - |gxc[1]#_g220549_|)) + __tmp221720))) + (__tmp221699 + (let ((__tmp221716 + (let ((__tmp221717 + |gxc[1]#_g221718_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp220548))) - (__tmp220535 - (let ((__tmp220544 - (let ((__tmp220545 |gxc[1]#_g220546_|)) + __tmp221717))) + (__tmp221700 + (let ((__tmp221713 + (let ((__tmp221714 |gxc[1]#_g221715_|)) (declare (not safe)) - (cons 'final? __tmp220545))) - (__tmp220536 - (let ((__tmp220541 - (let ((__tmp220542 |gxc[1]#_g220543_|)) + (cons 'final? __tmp221714))) + (__tmp221701 + (let ((__tmp221710 + (let ((__tmp221711 |gxc[1]#_g221712_|)) (declare (not safe)) - (cons 'methods __tmp220542))) - (__tmp220537 - (let ((__tmp220538 - (let ((__tmp220539 |gxc[1]#_g220540_|)) + (cons 'metaclass __tmp221711))) + (__tmp221702 + (let ((__tmp221707 + (let ((__tmp221708 |gxc[1]#_g221709_|)) + (declare (not safe)) + (cons 'methods __tmp221708))) + (__tmp221703 + (let ((__tmp221704 + (let ((__tmp221705 + |gxc[1]#_g221706_|)) + (declare (not safe)) + (cons 'id __tmp221705)))) (declare (not safe)) - (cons 'id __tmp220539)))) + (cons __tmp221704 '())))) (declare (not safe)) - (cons __tmp220538 '())))) + (cons __tmp221707 __tmp221703)))) (declare (not safe)) - (cons __tmp220541 __tmp220537)))) + (cons __tmp221710 __tmp221702)))) (declare (not safe)) - (cons __tmp220544 __tmp220536)))) + (cons __tmp221713 __tmp221701)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp220547 - __tmp220535)))) + (cons __tmp221716 + __tmp221700)))) (declare (not safe)) - (cons __tmp220550 __tmp220534)))) + (cons __tmp221719 __tmp221699)))) (declare (not safe)) - (cons __tmp220553 __tmp220533)))) + (cons __tmp221722 __tmp221698)))) (declare (not safe)) - (cons __tmp220556 __tmp220532)))) + (cons __tmp221725 __tmp221697)))) (declare (not safe)) - (cons __tmp220559 __tmp220531)))) + (cons __tmp221728 __tmp221696)))) (declare (not safe)) - (cons __tmp220562 __tmp220530)))) + (cons __tmp221731 __tmp221695)))) (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220529 - '11 + __obj221402 + __tmp221694 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220565 - (let ((__tmp220598 - (let ((__tmp220599 |gxc[1]#_g220600_|)) + (let ((__tmp221734 + (let ((__tmp221771 + (let ((__tmp221772 |gxc[1]#_g221773_|)) (declare (not safe)) - (cons 'super __tmp220599))) - (__tmp220566 - (let ((__tmp220595 - (let ((__tmp220596 |gxc[1]#_g220597_|)) + (cons 'super __tmp221772))) + (__tmp221735 + (let ((__tmp221768 + (let ((__tmp221769 |gxc[1]#_g221770_|)) (declare (not safe)) - (cons 'precedence-list __tmp220596))) - (__tmp220567 - (let ((__tmp220592 - (let ((__tmp220593 |gxc[1]#_g220594_|)) + (cons 'precedence-list __tmp221769))) + (__tmp221736 + (let ((__tmp221765 + (let ((__tmp221766 |gxc[1]#_g221767_|)) (declare (not safe)) - (cons 'slots __tmp220593))) - (__tmp220568 - (let ((__tmp220589 - (let ((__tmp220590 - |gxc[1]#_g220591_|)) + (cons 'slots __tmp221766))) + (__tmp221737 + (let ((__tmp221762 + (let ((__tmp221763 + |gxc[1]#_g221764_|)) (declare (not safe)) - (cons 'fields __tmp220590))) - (__tmp220569 - (let ((__tmp220586 - (let ((__tmp220587 - |gxc[1]#_g220588_|)) + (cons 'fields __tmp221763))) + (__tmp221738 + (let ((__tmp221759 + (let ((__tmp221760 + |gxc[1]#_g221761_|)) (declare (not safe)) (cons 'constructor - __tmp220587))) - (__tmp220570 - (let ((__tmp220583 - (let ((__tmp220584 - |gxc[1]#_g220585_|)) + __tmp221760))) + (__tmp221739 + (let ((__tmp221756 + (let ((__tmp221757 + |gxc[1]#_g221758_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp220584))) - (__tmp220571 - (let ((__tmp220580 - (let ((__tmp220581 |gxc[1]#_g220582_|)) + __tmp221757))) + (__tmp221740 + (let ((__tmp221753 + (let ((__tmp221754 |gxc[1]#_g221755_|)) (declare (not safe)) - (cons 'final? __tmp220581))) - (__tmp220572 - (let ((__tmp220577 - (let ((__tmp220578 |gxc[1]#_g220579_|)) + (cons 'final? __tmp221754))) + (__tmp221741 + (let ((__tmp221750 + (let ((__tmp221751 |gxc[1]#_g221752_|)) (declare (not safe)) - (cons 'methods __tmp220578))) - (__tmp220573 - (let ((__tmp220574 - (let ((__tmp220575 |gxc[1]#_g220576_|)) + (cons 'metaclass __tmp221751))) + (__tmp221742 + (let ((__tmp221747 + (let ((__tmp221748 |gxc[1]#_g221749_|)) (declare (not safe)) - (cons 'id __tmp220575)))) + (cons 'methods __tmp221748))) + (__tmp221743 + (let ((__tmp221744 + (let ((__tmp221745 + |gxc[1]#_g221746_|)) + (declare (not safe)) + (cons 'id __tmp221745)))) + (declare (not safe)) + (cons __tmp221744 '())))) (declare (not safe)) - (cons __tmp220574 '())))) + (cons __tmp221747 __tmp221743)))) (declare (not safe)) - (cons __tmp220577 __tmp220573)))) + (cons __tmp221750 __tmp221742)))) (declare (not safe)) - (cons __tmp220580 __tmp220572)))) + (cons __tmp221753 __tmp221741)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp220583 - __tmp220571)))) + (cons __tmp221756 + __tmp221740)))) (declare (not safe)) - (cons __tmp220586 __tmp220570)))) + (cons __tmp221759 __tmp221739)))) (declare (not safe)) - (cons __tmp220589 __tmp220569)))) + (cons __tmp221762 __tmp221738)))) (declare (not safe)) - (cons __tmp220592 __tmp220568)))) + (cons __tmp221765 __tmp221737)))) (declare (not safe)) - (cons __tmp220595 __tmp220567)))) + (cons __tmp221768 __tmp221736)))) (declare (not safe)) - (cons __tmp220598 __tmp220566)))) + (cons __tmp221771 __tmp221735)))) (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220565 - '12 + __obj221402 + __tmp221734 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220601 - (let ((__tmp220634 - (let ((__tmp220635 |gxc[1]#_g220636_|)) + (let ((__tmp221774 + (let ((__tmp221811 + (let ((__tmp221812 |gxc[1]#_g221813_|)) (declare (not safe)) - (cons 'super __tmp220635))) - (__tmp220602 - (let ((__tmp220631 - (let ((__tmp220632 |gxc[1]#_g220633_|)) + (cons 'super __tmp221812))) + (__tmp221775 + (let ((__tmp221808 + (let ((__tmp221809 |gxc[1]#_g221810_|)) (declare (not safe)) - (cons 'precedence-list __tmp220632))) - (__tmp220603 - (let ((__tmp220628 - (let ((__tmp220629 |gxc[1]#_g220630_|)) + (cons 'precedence-list __tmp221809))) + (__tmp221776 + (let ((__tmp221805 + (let ((__tmp221806 |gxc[1]#_g221807_|)) (declare (not safe)) - (cons 'slots __tmp220629))) - (__tmp220604 - (let ((__tmp220625 - (let ((__tmp220626 - |gxc[1]#_g220627_|)) + (cons 'slots __tmp221806))) + (__tmp221777 + (let ((__tmp221802 + (let ((__tmp221803 + |gxc[1]#_g221804_|)) (declare (not safe)) - (cons 'fields __tmp220626))) - (__tmp220605 - (let ((__tmp220622 - (let ((__tmp220623 - |gxc[1]#_g220624_|)) + (cons 'fields __tmp221803))) + (__tmp221778 + (let ((__tmp221799 + (let ((__tmp221800 + |gxc[1]#_g221801_|)) (declare (not safe)) (cons 'constructor - __tmp220623))) - (__tmp220606 - (let ((__tmp220619 - (let ((__tmp220620 - |gxc[1]#_g220621_|)) + __tmp221800))) + (__tmp221779 + (let ((__tmp221796 + (let ((__tmp221797 + |gxc[1]#_g221798_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp220620))) - (__tmp220607 - (let ((__tmp220616 - (let ((__tmp220617 |gxc[1]#_g220618_|)) + __tmp221797))) + (__tmp221780 + (let ((__tmp221793 + (let ((__tmp221794 |gxc[1]#_g221795_|)) (declare (not safe)) - (cons 'final? __tmp220617))) - (__tmp220608 - (let ((__tmp220613 - (let ((__tmp220614 |gxc[1]#_g220615_|)) + (cons 'final? __tmp221794))) + (__tmp221781 + (let ((__tmp221790 + (let ((__tmp221791 |gxc[1]#_g221792_|)) (declare (not safe)) - (cons 'methods __tmp220614))) - (__tmp220609 - (let ((__tmp220610 - (let ((__tmp220611 |gxc[1]#_g220612_|)) + (cons 'metaclass __tmp221791))) + (__tmp221782 + (let ((__tmp221787 + (let ((__tmp221788 |gxc[1]#_g221789_|)) + (declare (not safe)) + (cons 'methods __tmp221788))) + (__tmp221783 + (let ((__tmp221784 + (let ((__tmp221785 + |gxc[1]#_g221786_|)) + (declare (not safe)) + (cons 'id __tmp221785)))) (declare (not safe)) - (cons 'id __tmp220611)))) + (cons __tmp221784 '())))) (declare (not safe)) - (cons __tmp220610 '())))) + (cons __tmp221787 __tmp221783)))) (declare (not safe)) - (cons __tmp220613 __tmp220609)))) + (cons __tmp221790 __tmp221782)))) (declare (not safe)) - (cons __tmp220616 __tmp220608)))) + (cons __tmp221793 __tmp221781)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp220619 - __tmp220607)))) + (cons __tmp221796 + __tmp221780)))) (declare (not safe)) - (cons __tmp220622 __tmp220606)))) + (cons __tmp221799 __tmp221779)))) (declare (not safe)) - (cons __tmp220625 __tmp220605)))) + (cons __tmp221802 __tmp221778)))) (declare (not safe)) - (cons __tmp220628 __tmp220604)))) + (cons __tmp221805 __tmp221777)))) (declare (not safe)) - (cons __tmp220631 __tmp220603)))) + (cons __tmp221808 __tmp221776)))) (declare (not safe)) - (cons __tmp220634 __tmp220602)))) + (cons __tmp221811 __tmp221775)))) (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220601 - '13 + __obj221402 + __tmp221774 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220637 - (let ((__tmp220670 - (let ((__tmp220671 |gxc[1]#_g220672_|)) + (let ((__tmp221814 + (let ((__tmp221851 + (let ((__tmp221852 |gxc[1]#_g221853_|)) (declare (not safe)) - (cons 'super __tmp220671))) - (__tmp220638 - (let ((__tmp220667 - (let ((__tmp220668 |gxc[1]#_g220669_|)) + (cons 'super __tmp221852))) + (__tmp221815 + (let ((__tmp221848 + (let ((__tmp221849 |gxc[1]#_g221850_|)) (declare (not safe)) - (cons 'precedence-list __tmp220668))) - (__tmp220639 - (let ((__tmp220664 - (let ((__tmp220665 |gxc[1]#_g220666_|)) + (cons 'precedence-list __tmp221849))) + (__tmp221816 + (let ((__tmp221845 + (let ((__tmp221846 |gxc[1]#_g221847_|)) (declare (not safe)) - (cons 'slots __tmp220665))) - (__tmp220640 - (let ((__tmp220661 - (let ((__tmp220662 - |gxc[1]#_g220663_|)) + (cons 'slots __tmp221846))) + (__tmp221817 + (let ((__tmp221842 + (let ((__tmp221843 + |gxc[1]#_g221844_|)) (declare (not safe)) - (cons 'fields __tmp220662))) - (__tmp220641 - (let ((__tmp220658 - (let ((__tmp220659 - |gxc[1]#_g220660_|)) + (cons 'fields __tmp221843))) + (__tmp221818 + (let ((__tmp221839 + (let ((__tmp221840 + |gxc[1]#_g221841_|)) (declare (not safe)) (cons 'constructor - __tmp220659))) - (__tmp220642 - (let ((__tmp220655 - (let ((__tmp220656 - |gxc[1]#_g220657_|)) + __tmp221840))) + (__tmp221819 + (let ((__tmp221836 + (let ((__tmp221837 + |gxc[1]#_g221838_|)) (declare (not safe)) (cons 'struct? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp220656))) - (__tmp220643 - (let ((__tmp220652 - (let ((__tmp220653 |gxc[1]#_g220654_|)) + __tmp221837))) + (__tmp221820 + (let ((__tmp221833 + (let ((__tmp221834 |gxc[1]#_g221835_|)) (declare (not safe)) - (cons 'final? __tmp220653))) - (__tmp220644 - (let ((__tmp220649 - (let ((__tmp220650 |gxc[1]#_g220651_|)) + (cons 'final? __tmp221834))) + (__tmp221821 + (let ((__tmp221830 + (let ((__tmp221831 |gxc[1]#_g221832_|)) (declare (not safe)) - (cons 'methods __tmp220650))) - (__tmp220645 - (let ((__tmp220646 - (let ((__tmp220647 |gxc[1]#_g220648_|)) + (cons 'metaclass __tmp221831))) + (__tmp221822 + (let ((__tmp221827 + (let ((__tmp221828 |gxc[1]#_g221829_|)) (declare (not safe)) - (cons 'id __tmp220647)))) + (cons 'methods __tmp221828))) + (__tmp221823 + (let ((__tmp221824 + (let ((__tmp221825 + |gxc[1]#_g221826_|)) + (declare (not safe)) + (cons 'id __tmp221825)))) + (declare (not safe)) + (cons __tmp221824 '())))) (declare (not safe)) - (cons __tmp220646 '())))) + (cons __tmp221827 __tmp221823)))) (declare (not safe)) - (cons __tmp220649 __tmp220645)))) + (cons __tmp221830 __tmp221822)))) (declare (not safe)) - (cons __tmp220652 __tmp220644)))) + (cons __tmp221833 __tmp221821)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp220655 - __tmp220643)))) + (cons __tmp221836 + __tmp221820)))) (declare (not safe)) - (cons __tmp220658 __tmp220642)))) + (cons __tmp221839 __tmp221819)))) (declare (not safe)) - (cons __tmp220661 __tmp220641)))) + (cons __tmp221842 __tmp221818)))) (declare (not safe)) - (cons __tmp220664 __tmp220640)))) + (cons __tmp221845 __tmp221817)))) (declare (not safe)) - (cons __tmp220667 __tmp220639)))) + (cons __tmp221848 __tmp221816)))) (declare (not safe)) - (cons __tmp220670 __tmp220638)))) + (cons __tmp221851 __tmp221815)))) (declare (not safe)) (##unchecked-structure-set! - __obj220237 - __tmp220637 - '14 + __obj221402 + __tmp221814 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220237)) + __obj221402)) (define |gxc[:0:]#!predicate| - (let ((__obj220238 + (let ((__obj221403 (let () (declare (not safe)) (##structure @@ -2707,11 +2813,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220238 + __obj221403 'gxc#!predicate::t '1 gerbil/core$$#class-type-info::t @@ -2719,7 +2826,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220238 + __obj221403 '!predicate '2 gerbil/core$$#class-type-info::t @@ -2727,26 +2834,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220238 + __obj221403 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220673 - (let ((__tmp220674 |gxc[1]#_g220675_|)) + (let ((__tmp221854 + (let ((__tmp221855 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp220674 '())))) + (cons __tmp221855 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220673 + __obj221403 + __tmp221854 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220238 + __obj221403 '#t '5 gerbil/core$$#class-type-info::t @@ -2754,7 +2861,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220238 + __obj221403 '#f '6 gerbil/core$$#class-type-info::t @@ -2762,94 +2869,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220238 + __obj221403 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220676 |gxc[1]#_g220677_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220676 + __obj221403 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220678 |gxc[1]#_g220679_|)) + (let ((__tmp221857 |gxc[1]#_g221858_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220678 + __obj221403 + __tmp221857 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220680 |gxc[1]#_g220681_|)) + (let ((__tmp221859 |gxc[1]#_g221860_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220680 + __obj221403 + __tmp221859 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220682 - (let ((__tmp220683 - (let ((__tmp220684 |gxc[1]#_g220685_|)) - (declare (not safe)) - (cons 'id __tmp220684)))) - (declare (not safe)) - (cons __tmp220683 '())))) + (let ((__tmp221861 |gxc[1]#_g221862_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220682 + __obj221403 + __tmp221861 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220686 - (let ((__tmp220687 - (let ((__tmp220688 |gxc[1]#_g220689_|)) + (let ((__tmp221863 + (let ((__tmp221864 + (let ((__tmp221865 |gxc[1]#_g221866_|)) (declare (not safe)) - (cons 'id __tmp220688)))) + (cons 'id __tmp221865)))) (declare (not safe)) - (cons __tmp220687 '())))) + (cons __tmp221864 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220686 + __obj221403 + __tmp221863 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220690 - (let ((__tmp220691 - (let ((__tmp220692 |gxc[1]#_g220693_|)) + (let ((__tmp221867 + (let ((__tmp221868 + (let ((__tmp221869 |gxc[1]#_g221870_|)) (declare (not safe)) - (cons 'id __tmp220692)))) + (cons 'id __tmp221869)))) (declare (not safe)) - (cons __tmp220691 '())))) + (cons __tmp221868 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220690 + __obj221403 + __tmp221867 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220694 - (let ((__tmp220695 - (let ((__tmp220696 |gxc[1]#_g220697_|)) + (let ((__tmp221871 + (let ((__tmp221872 + (let ((__tmp221873 |gxc[1]#_g221874_|)) (declare (not safe)) - (cons 'id __tmp220696)))) + (cons 'id __tmp221873)))) (declare (not safe)) - (cons __tmp220695 '())))) + (cons __tmp221872 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220238 - __tmp220694 + __obj221403 + __tmp221871 '14 gerbil/core$$#class-type-info::t '#f)) - __obj220238)) + (let ((__tmp221875 + (let ((__tmp221876 + (let ((__tmp221877 |gxc[1]#_g221878_|)) + (declare (not safe)) + (cons 'id __tmp221877)))) + (declare (not safe)) + (cons __tmp221876 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj221403 + __tmp221875 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221403)) (define |gxc[:0:]#!constructor| - (let ((__obj220239 + (let ((__obj221404 (let () (declare (not safe)) (##structure @@ -2867,11 +2982,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220239 + __obj221404 'gxc#!constructor::t '1 gerbil/core$$#class-type-info::t @@ -2879,7 +2995,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220239 + __obj221404 '!constructor '2 gerbil/core$$#class-type-info::t @@ -2887,26 +3003,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220239 + __obj221404 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220698 - (let ((__tmp220699 |gxc[1]#_g220675_|)) + (let ((__tmp221879 + (let ((__tmp221880 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp220699 '())))) + (cons __tmp221880 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220698 + __obj221404 + __tmp221879 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220239 + __obj221404 '#t '5 gerbil/core$$#class-type-info::t @@ -2914,7 +3030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220239 + __obj221404 '#f '6 gerbil/core$$#class-type-info::t @@ -2922,94 +3038,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220239 + __obj221404 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220700 |gxc[1]#_g220701_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220700 + __obj221404 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220702 |gxc[1]#_g220703_|)) + (let ((__tmp221881 |gxc[1]#_g221882_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220702 + __obj221404 + __tmp221881 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220704 |gxc[1]#_g220705_|)) + (let ((__tmp221883 |gxc[1]#_g221884_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220704 + __obj221404 + __tmp221883 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220706 - (let ((__tmp220707 - (let ((__tmp220708 |gxc[1]#_g220709_|)) - (declare (not safe)) - (cons 'id __tmp220708)))) - (declare (not safe)) - (cons __tmp220707 '())))) + (let ((__tmp221885 |gxc[1]#_g221886_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220706 + __obj221404 + __tmp221885 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220710 - (let ((__tmp220711 - (let ((__tmp220712 |gxc[1]#_g220713_|)) + (let ((__tmp221887 + (let ((__tmp221888 + (let ((__tmp221889 |gxc[1]#_g221890_|)) (declare (not safe)) - (cons 'id __tmp220712)))) + (cons 'id __tmp221889)))) (declare (not safe)) - (cons __tmp220711 '())))) + (cons __tmp221888 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220710 + __obj221404 + __tmp221887 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220714 - (let ((__tmp220715 - (let ((__tmp220716 |gxc[1]#_g220717_|)) + (let ((__tmp221891 + (let ((__tmp221892 + (let ((__tmp221893 |gxc[1]#_g221894_|)) (declare (not safe)) - (cons 'id __tmp220716)))) + (cons 'id __tmp221893)))) (declare (not safe)) - (cons __tmp220715 '())))) + (cons __tmp221892 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220714 + __obj221404 + __tmp221891 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220718 - (let ((__tmp220719 - (let ((__tmp220720 |gxc[1]#_g220721_|)) + (let ((__tmp221895 + (let ((__tmp221896 + (let ((__tmp221897 |gxc[1]#_g221898_|)) (declare (not safe)) - (cons 'id __tmp220720)))) + (cons 'id __tmp221897)))) (declare (not safe)) - (cons __tmp220719 '())))) + (cons __tmp221896 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220239 - __tmp220718 + __obj221404 + __tmp221895 '14 gerbil/core$$#class-type-info::t '#f)) - __obj220239)) + (let ((__tmp221899 + (let ((__tmp221900 + (let ((__tmp221901 |gxc[1]#_g221902_|)) + (declare (not safe)) + (cons 'id __tmp221901)))) + (declare (not safe)) + (cons __tmp221900 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj221404 + __tmp221899 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221404)) (define |gxc[:0:]#!accessor| - (let ((__obj220240 + (let ((__obj221405 (let () (declare (not safe)) (##structure @@ -3027,11 +3151,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220240 + __obj221405 'gxc#!accessor::t '1 gerbil/core$$#class-type-info::t @@ -3039,7 +3164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220240 + __obj221405 '!accessor '2 gerbil/core$$#class-type-info::t @@ -3047,26 +3172,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220240 + __obj221405 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220722 - (let ((__tmp220723 |gxc[1]#_g220675_|)) + (let ((__tmp221903 + (let ((__tmp221904 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp220723 '())))) + (cons __tmp221904 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220722 + __obj221405 + __tmp221903 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220240 + __obj221405 '#t '5 gerbil/core$$#class-type-info::t @@ -3074,7 +3199,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220240 + __obj221405 '#f '6 gerbil/core$$#class-type-info::t @@ -3082,150 +3207,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220240 + __obj221405 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220724 |gxc[1]#_g220725_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220724 + __obj221405 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220726 |gxc[1]#_g220727_|)) + (let ((__tmp221905 |gxc[1]#_g221906_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220726 + __obj221405 + __tmp221905 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220728 |gxc[1]#_g220729_|)) + (let ((__tmp221907 |gxc[1]#_g221908_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220728 + __obj221405 + __tmp221907 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220730 - (let ((__tmp220739 - (let ((__tmp220740 |gxc[1]#_g220741_|)) + (let ((__tmp221909 |gxc[1]#_g221910_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221405 + __tmp221909 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp221911 + (let ((__tmp221920 + (let ((__tmp221921 |gxc[1]#_g221922_|)) (declare (not safe)) - (cons 'slot __tmp220740))) - (__tmp220731 - (let ((__tmp220736 - (let ((__tmp220737 |gxc[1]#_g220738_|)) + (cons 'slot __tmp221921))) + (__tmp221912 + (let ((__tmp221917 + (let ((__tmp221918 |gxc[1]#_g221919_|)) (declare (not safe)) - (cons 'checked? __tmp220737))) - (__tmp220732 - (let ((__tmp220733 - (let ((__tmp220734 |gxc[1]#_g220735_|)) + (cons 'checked? __tmp221918))) + (__tmp221913 + (let ((__tmp221914 + (let ((__tmp221915 |gxc[1]#_g221916_|)) (declare (not safe)) - (cons 'id __tmp220734)))) + (cons 'id __tmp221915)))) (declare (not safe)) - (cons __tmp220733 '())))) + (cons __tmp221914 '())))) (declare (not safe)) - (cons __tmp220736 __tmp220732)))) + (cons __tmp221917 __tmp221913)))) (declare (not safe)) - (cons __tmp220739 __tmp220731)))) + (cons __tmp221920 __tmp221912)))) (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220730 - '11 + __obj221405 + __tmp221911 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220742 - (let ((__tmp220751 - (let ((__tmp220752 |gxc[1]#_g220753_|)) + (let ((__tmp221923 + (let ((__tmp221932 + (let ((__tmp221933 |gxc[1]#_g221934_|)) (declare (not safe)) - (cons 'slot __tmp220752))) - (__tmp220743 - (let ((__tmp220748 - (let ((__tmp220749 |gxc[1]#_g220750_|)) + (cons 'slot __tmp221933))) + (__tmp221924 + (let ((__tmp221929 + (let ((__tmp221930 |gxc[1]#_g221931_|)) (declare (not safe)) - (cons 'checked? __tmp220749))) - (__tmp220744 - (let ((__tmp220745 - (let ((__tmp220746 |gxc[1]#_g220747_|)) + (cons 'checked? __tmp221930))) + (__tmp221925 + (let ((__tmp221926 + (let ((__tmp221927 |gxc[1]#_g221928_|)) (declare (not safe)) - (cons 'id __tmp220746)))) + (cons 'id __tmp221927)))) (declare (not safe)) - (cons __tmp220745 '())))) + (cons __tmp221926 '())))) (declare (not safe)) - (cons __tmp220748 __tmp220744)))) + (cons __tmp221929 __tmp221925)))) (declare (not safe)) - (cons __tmp220751 __tmp220743)))) + (cons __tmp221932 __tmp221924)))) (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220742 - '12 + __obj221405 + __tmp221923 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220754 - (let ((__tmp220763 - (let ((__tmp220764 |gxc[1]#_g220765_|)) + (let ((__tmp221935 + (let ((__tmp221944 + (let ((__tmp221945 |gxc[1]#_g221946_|)) (declare (not safe)) - (cons 'slot __tmp220764))) - (__tmp220755 - (let ((__tmp220760 - (let ((__tmp220761 |gxc[1]#_g220762_|)) + (cons 'slot __tmp221945))) + (__tmp221936 + (let ((__tmp221941 + (let ((__tmp221942 |gxc[1]#_g221943_|)) (declare (not safe)) - (cons 'checked? __tmp220761))) - (__tmp220756 - (let ((__tmp220757 - (let ((__tmp220758 |gxc[1]#_g220759_|)) + (cons 'checked? __tmp221942))) + (__tmp221937 + (let ((__tmp221938 + (let ((__tmp221939 |gxc[1]#_g221940_|)) (declare (not safe)) - (cons 'id __tmp220758)))) + (cons 'id __tmp221939)))) (declare (not safe)) - (cons __tmp220757 '())))) + (cons __tmp221938 '())))) (declare (not safe)) - (cons __tmp220760 __tmp220756)))) + (cons __tmp221941 __tmp221937)))) (declare (not safe)) - (cons __tmp220763 __tmp220755)))) + (cons __tmp221944 __tmp221936)))) (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220754 - '13 + __obj221405 + __tmp221935 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220766 - (let ((__tmp220775 - (let ((__tmp220776 |gxc[1]#_g220777_|)) + (let ((__tmp221947 + (let ((__tmp221956 + (let ((__tmp221957 |gxc[1]#_g221958_|)) (declare (not safe)) - (cons 'slot __tmp220776))) - (__tmp220767 - (let ((__tmp220772 - (let ((__tmp220773 |gxc[1]#_g220774_|)) + (cons 'slot __tmp221957))) + (__tmp221948 + (let ((__tmp221953 + (let ((__tmp221954 |gxc[1]#_g221955_|)) (declare (not safe)) - (cons 'checked? __tmp220773))) - (__tmp220768 - (let ((__tmp220769 - (let ((__tmp220770 |gxc[1]#_g220771_|)) + (cons 'checked? __tmp221954))) + (__tmp221949 + (let ((__tmp221950 + (let ((__tmp221951 |gxc[1]#_g221952_|)) (declare (not safe)) - (cons 'id __tmp220770)))) + (cons 'id __tmp221951)))) (declare (not safe)) - (cons __tmp220769 '())))) + (cons __tmp221950 '())))) (declare (not safe)) - (cons __tmp220772 __tmp220768)))) + (cons __tmp221953 __tmp221949)))) (declare (not safe)) - (cons __tmp220775 __tmp220767)))) + (cons __tmp221956 __tmp221948)))) (declare (not safe)) (##unchecked-structure-set! - __obj220240 - __tmp220766 - '14 + __obj221405 + __tmp221947 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220240)) + __obj221405)) (define |gxc[:0:]#!mutator| - (let ((__obj220241 + (let ((__obj221406 (let () (declare (not safe)) (##structure @@ -3243,11 +3376,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220241 + __obj221406 'gxc#!mutator::t '1 gerbil/core$$#class-type-info::t @@ -3255,7 +3389,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220241 + __obj221406 '!mutator '2 gerbil/core$$#class-type-info::t @@ -3263,26 +3397,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220241 + __obj221406 '(slot checked?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220778 - (let ((__tmp220779 |gxc[1]#_g220675_|)) + (let ((__tmp221959 + (let ((__tmp221960 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp220779 '())))) + (cons __tmp221960 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220778 + __obj221406 + __tmp221959 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220241 + __obj221406 '#t '5 gerbil/core$$#class-type-info::t @@ -3290,7 +3424,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220241 + __obj221406 '#f '6 gerbil/core$$#class-type-info::t @@ -3298,150 +3432,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220241 + __obj221406 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220780 |gxc[1]#_g220781_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220780 + __obj221406 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220782 |gxc[1]#_g220783_|)) + (let ((__tmp221961 |gxc[1]#_g221962_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220782 + __obj221406 + __tmp221961 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220784 |gxc[1]#_g220785_|)) + (let ((__tmp221963 |gxc[1]#_g221964_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220784 + __obj221406 + __tmp221963 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220786 - (let ((__tmp220795 - (let ((__tmp220796 |gxc[1]#_g220797_|)) + (let ((__tmp221965 |gxc[1]#_g221966_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221406 + __tmp221965 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp221967 + (let ((__tmp221976 + (let ((__tmp221977 |gxc[1]#_g221978_|)) (declare (not safe)) - (cons 'slot __tmp220796))) - (__tmp220787 - (let ((__tmp220792 - (let ((__tmp220793 |gxc[1]#_g220794_|)) + (cons 'slot __tmp221977))) + (__tmp221968 + (let ((__tmp221973 + (let ((__tmp221974 |gxc[1]#_g221975_|)) (declare (not safe)) - (cons 'checked? __tmp220793))) - (__tmp220788 - (let ((__tmp220789 - (let ((__tmp220790 |gxc[1]#_g220791_|)) + (cons 'checked? __tmp221974))) + (__tmp221969 + (let ((__tmp221970 + (let ((__tmp221971 |gxc[1]#_g221972_|)) (declare (not safe)) - (cons 'id __tmp220790)))) + (cons 'id __tmp221971)))) (declare (not safe)) - (cons __tmp220789 '())))) + (cons __tmp221970 '())))) (declare (not safe)) - (cons __tmp220792 __tmp220788)))) + (cons __tmp221973 __tmp221969)))) (declare (not safe)) - (cons __tmp220795 __tmp220787)))) + (cons __tmp221976 __tmp221968)))) (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220786 - '11 + __obj221406 + __tmp221967 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220798 - (let ((__tmp220807 - (let ((__tmp220808 |gxc[1]#_g220809_|)) + (let ((__tmp221979 + (let ((__tmp221988 + (let ((__tmp221989 |gxc[1]#_g221990_|)) (declare (not safe)) - (cons 'slot __tmp220808))) - (__tmp220799 - (let ((__tmp220804 - (let ((__tmp220805 |gxc[1]#_g220806_|)) + (cons 'slot __tmp221989))) + (__tmp221980 + (let ((__tmp221985 + (let ((__tmp221986 |gxc[1]#_g221987_|)) (declare (not safe)) - (cons 'checked? __tmp220805))) - (__tmp220800 - (let ((__tmp220801 - (let ((__tmp220802 |gxc[1]#_g220803_|)) + (cons 'checked? __tmp221986))) + (__tmp221981 + (let ((__tmp221982 + (let ((__tmp221983 |gxc[1]#_g221984_|)) (declare (not safe)) - (cons 'id __tmp220802)))) + (cons 'id __tmp221983)))) (declare (not safe)) - (cons __tmp220801 '())))) + (cons __tmp221982 '())))) (declare (not safe)) - (cons __tmp220804 __tmp220800)))) + (cons __tmp221985 __tmp221981)))) (declare (not safe)) - (cons __tmp220807 __tmp220799)))) + (cons __tmp221988 __tmp221980)))) (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220798 - '12 + __obj221406 + __tmp221979 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220810 - (let ((__tmp220819 - (let ((__tmp220820 |gxc[1]#_g220821_|)) + (let ((__tmp221991 + (let ((__tmp222000 + (let ((__tmp222001 |gxc[1]#_g222002_|)) (declare (not safe)) - (cons 'slot __tmp220820))) - (__tmp220811 - (let ((__tmp220816 - (let ((__tmp220817 |gxc[1]#_g220818_|)) + (cons 'slot __tmp222001))) + (__tmp221992 + (let ((__tmp221997 + (let ((__tmp221998 |gxc[1]#_g221999_|)) (declare (not safe)) - (cons 'checked? __tmp220817))) - (__tmp220812 - (let ((__tmp220813 - (let ((__tmp220814 |gxc[1]#_g220815_|)) + (cons 'checked? __tmp221998))) + (__tmp221993 + (let ((__tmp221994 + (let ((__tmp221995 |gxc[1]#_g221996_|)) (declare (not safe)) - (cons 'id __tmp220814)))) + (cons 'id __tmp221995)))) (declare (not safe)) - (cons __tmp220813 '())))) + (cons __tmp221994 '())))) (declare (not safe)) - (cons __tmp220816 __tmp220812)))) + (cons __tmp221997 __tmp221993)))) (declare (not safe)) - (cons __tmp220819 __tmp220811)))) + (cons __tmp222000 __tmp221992)))) (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220810 - '13 + __obj221406 + __tmp221991 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220822 - (let ((__tmp220831 - (let ((__tmp220832 |gxc[1]#_g220833_|)) + (let ((__tmp222003 + (let ((__tmp222012 + (let ((__tmp222013 |gxc[1]#_g222014_|)) (declare (not safe)) - (cons 'slot __tmp220832))) - (__tmp220823 - (let ((__tmp220828 - (let ((__tmp220829 |gxc[1]#_g220830_|)) + (cons 'slot __tmp222013))) + (__tmp222004 + (let ((__tmp222009 + (let ((__tmp222010 |gxc[1]#_g222011_|)) (declare (not safe)) - (cons 'checked? __tmp220829))) - (__tmp220824 - (let ((__tmp220825 - (let ((__tmp220826 |gxc[1]#_g220827_|)) + (cons 'checked? __tmp222010))) + (__tmp222005 + (let ((__tmp222006 + (let ((__tmp222007 |gxc[1]#_g222008_|)) (declare (not safe)) - (cons 'id __tmp220826)))) + (cons 'id __tmp222007)))) (declare (not safe)) - (cons __tmp220825 '())))) + (cons __tmp222006 '())))) (declare (not safe)) - (cons __tmp220828 __tmp220824)))) + (cons __tmp222009 __tmp222005)))) (declare (not safe)) - (cons __tmp220831 __tmp220823)))) + (cons __tmp222012 __tmp222004)))) (declare (not safe)) (##unchecked-structure-set! - __obj220241 - __tmp220822 - '14 + __obj221406 + __tmp222003 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220241)) + __obj221406)) (define |gxc[:0:]#!lambda| - (let ((__obj220242 + (let ((__obj221407 (let () (declare (not safe)) (##structure @@ -3459,11 +3601,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220242 + __obj221407 'gxc#!lambda::t '1 gerbil/core$$#class-type-info::t @@ -3471,7 +3614,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220242 + __obj221407 '!lambda '2 gerbil/core$$#class-type-info::t @@ -3479,26 +3622,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220242 + __obj221407 '(arity dispatch inline inline-typedecl) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220834 - (let ((__tmp220835 |gxc[1]#_g220675_|)) + (let ((__tmp222015 + (let ((__tmp222016 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp220835 '())))) + (cons __tmp222016 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220834 + __obj221407 + __tmp222015 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220242 + __obj221407 '#t '5 gerbil/core$$#class-type-info::t @@ -3506,7 +3649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220242 + __obj221407 '#f '6 gerbil/core$$#class-type-info::t @@ -3514,218 +3657,226 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220242 - ':init! + __obj221407 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220836 |gxc[1]#_g220837_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220836 + __obj221407 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220838 |gxc[1]#_g220839_|)) + (let ((__tmp222017 |gxc[1]#_g222018_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220838 + __obj221407 + __tmp222017 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220840 |gxc[1]#_g220841_|)) + (let ((__tmp222019 |gxc[1]#_g222020_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220840 + __obj221407 + __tmp222019 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220842 - (let ((__tmp220859 - (let ((__tmp220860 |gxc[1]#_g220861_|)) + (let ((__tmp222021 |gxc[1]#_g222022_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221407 + __tmp222021 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp222023 + (let ((__tmp222040 + (let ((__tmp222041 |gxc[1]#_g222042_|)) (declare (not safe)) - (cons 'arity __tmp220860))) - (__tmp220843 - (let ((__tmp220856 - (let ((__tmp220857 |gxc[1]#_g220858_|)) + (cons 'arity __tmp222041))) + (__tmp222024 + (let ((__tmp222037 + (let ((__tmp222038 |gxc[1]#_g222039_|)) (declare (not safe)) - (cons 'dispatch __tmp220857))) - (__tmp220844 - (let ((__tmp220853 - (let ((__tmp220854 |gxc[1]#_g220855_|)) + (cons 'dispatch __tmp222038))) + (__tmp222025 + (let ((__tmp222034 + (let ((__tmp222035 |gxc[1]#_g222036_|)) (declare (not safe)) - (cons 'inline __tmp220854))) - (__tmp220845 - (let ((__tmp220850 - (let ((__tmp220851 - |gxc[1]#_g220852_|)) + (cons 'inline __tmp222035))) + (__tmp222026 + (let ((__tmp222031 + (let ((__tmp222032 + |gxc[1]#_g222033_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp220851))) - (__tmp220846 - (let ((__tmp220847 - (let ((__tmp220848 - |gxc[1]#_g220849_|)) + __tmp222032))) + (__tmp222027 + (let ((__tmp222028 + (let ((__tmp222029 + |gxc[1]#_g222030_|)) (declare (not safe)) - (cons 'id __tmp220848)))) + (cons 'id __tmp222029)))) (declare (not safe)) - (cons __tmp220847 '())))) + (cons __tmp222028 '())))) (declare (not safe)) - (cons __tmp220850 __tmp220846)))) + (cons __tmp222031 __tmp222027)))) (declare (not safe)) - (cons __tmp220853 __tmp220845)))) + (cons __tmp222034 __tmp222026)))) (declare (not safe)) - (cons __tmp220856 __tmp220844)))) + (cons __tmp222037 __tmp222025)))) (declare (not safe)) - (cons __tmp220859 __tmp220843)))) + (cons __tmp222040 __tmp222024)))) (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220842 - '11 + __obj221407 + __tmp222023 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220862 - (let ((__tmp220879 - (let ((__tmp220880 |gxc[1]#_g220881_|)) + (let ((__tmp222043 + (let ((__tmp222060 + (let ((__tmp222061 |gxc[1]#_g222062_|)) (declare (not safe)) - (cons 'arity __tmp220880))) - (__tmp220863 - (let ((__tmp220876 - (let ((__tmp220877 |gxc[1]#_g220878_|)) + (cons 'arity __tmp222061))) + (__tmp222044 + (let ((__tmp222057 + (let ((__tmp222058 |gxc[1]#_g222059_|)) (declare (not safe)) - (cons 'dispatch __tmp220877))) - (__tmp220864 - (let ((__tmp220873 - (let ((__tmp220874 |gxc[1]#_g220875_|)) + (cons 'dispatch __tmp222058))) + (__tmp222045 + (let ((__tmp222054 + (let ((__tmp222055 |gxc[1]#_g222056_|)) (declare (not safe)) - (cons 'inline __tmp220874))) - (__tmp220865 - (let ((__tmp220870 - (let ((__tmp220871 - |gxc[1]#_g220872_|)) + (cons 'inline __tmp222055))) + (__tmp222046 + (let ((__tmp222051 + (let ((__tmp222052 + |gxc[1]#_g222053_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp220871))) - (__tmp220866 - (let ((__tmp220867 - (let ((__tmp220868 - |gxc[1]#_g220869_|)) + __tmp222052))) + (__tmp222047 + (let ((__tmp222048 + (let ((__tmp222049 + |gxc[1]#_g222050_|)) (declare (not safe)) - (cons 'id __tmp220868)))) + (cons 'id __tmp222049)))) (declare (not safe)) - (cons __tmp220867 '())))) + (cons __tmp222048 '())))) (declare (not safe)) - (cons __tmp220870 __tmp220866)))) + (cons __tmp222051 __tmp222047)))) (declare (not safe)) - (cons __tmp220873 __tmp220865)))) + (cons __tmp222054 __tmp222046)))) (declare (not safe)) - (cons __tmp220876 __tmp220864)))) + (cons __tmp222057 __tmp222045)))) (declare (not safe)) - (cons __tmp220879 __tmp220863)))) + (cons __tmp222060 __tmp222044)))) (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220862 - '12 + __obj221407 + __tmp222043 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220882 - (let ((__tmp220899 - (let ((__tmp220900 |gxc[1]#_g220901_|)) + (let ((__tmp222063 + (let ((__tmp222080 + (let ((__tmp222081 |gxc[1]#_g222082_|)) (declare (not safe)) - (cons 'arity __tmp220900))) - (__tmp220883 - (let ((__tmp220896 - (let ((__tmp220897 |gxc[1]#_g220898_|)) + (cons 'arity __tmp222081))) + (__tmp222064 + (let ((__tmp222077 + (let ((__tmp222078 |gxc[1]#_g222079_|)) (declare (not safe)) - (cons 'dispatch __tmp220897))) - (__tmp220884 - (let ((__tmp220893 - (let ((__tmp220894 |gxc[1]#_g220895_|)) + (cons 'dispatch __tmp222078))) + (__tmp222065 + (let ((__tmp222074 + (let ((__tmp222075 |gxc[1]#_g222076_|)) (declare (not safe)) - (cons 'inline __tmp220894))) - (__tmp220885 - (let ((__tmp220890 - (let ((__tmp220891 - |gxc[1]#_g220892_|)) + (cons 'inline __tmp222075))) + (__tmp222066 + (let ((__tmp222071 + (let ((__tmp222072 + |gxc[1]#_g222073_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp220891))) - (__tmp220886 - (let ((__tmp220887 - (let ((__tmp220888 - |gxc[1]#_g220889_|)) + __tmp222072))) + (__tmp222067 + (let ((__tmp222068 + (let ((__tmp222069 + |gxc[1]#_g222070_|)) (declare (not safe)) - (cons 'id __tmp220888)))) + (cons 'id __tmp222069)))) (declare (not safe)) - (cons __tmp220887 '())))) + (cons __tmp222068 '())))) (declare (not safe)) - (cons __tmp220890 __tmp220886)))) + (cons __tmp222071 __tmp222067)))) (declare (not safe)) - (cons __tmp220893 __tmp220885)))) + (cons __tmp222074 __tmp222066)))) (declare (not safe)) - (cons __tmp220896 __tmp220884)))) + (cons __tmp222077 __tmp222065)))) (declare (not safe)) - (cons __tmp220899 __tmp220883)))) + (cons __tmp222080 __tmp222064)))) (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220882 - '13 + __obj221407 + __tmp222063 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220902 - (let ((__tmp220919 - (let ((__tmp220920 |gxc[1]#_g220921_|)) + (let ((__tmp222083 + (let ((__tmp222100 + (let ((__tmp222101 |gxc[1]#_g222102_|)) (declare (not safe)) - (cons 'arity __tmp220920))) - (__tmp220903 - (let ((__tmp220916 - (let ((__tmp220917 |gxc[1]#_g220918_|)) + (cons 'arity __tmp222101))) + (__tmp222084 + (let ((__tmp222097 + (let ((__tmp222098 |gxc[1]#_g222099_|)) (declare (not safe)) - (cons 'dispatch __tmp220917))) - (__tmp220904 - (let ((__tmp220913 - (let ((__tmp220914 |gxc[1]#_g220915_|)) + (cons 'dispatch __tmp222098))) + (__tmp222085 + (let ((__tmp222094 + (let ((__tmp222095 |gxc[1]#_g222096_|)) (declare (not safe)) - (cons 'inline __tmp220914))) - (__tmp220905 - (let ((__tmp220910 - (let ((__tmp220911 - |gxc[1]#_g220912_|)) + (cons 'inline __tmp222095))) + (__tmp222086 + (let ((__tmp222091 + (let ((__tmp222092 + |gxc[1]#_g222093_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp220911))) - (__tmp220906 - (let ((__tmp220907 - (let ((__tmp220908 - |gxc[1]#_g220909_|)) + __tmp222092))) + (__tmp222087 + (let ((__tmp222088 + (let ((__tmp222089 + |gxc[1]#_g222090_|)) (declare (not safe)) - (cons 'id __tmp220908)))) + (cons 'id __tmp222089)))) (declare (not safe)) - (cons __tmp220907 '())))) + (cons __tmp222088 '())))) (declare (not safe)) - (cons __tmp220910 __tmp220906)))) + (cons __tmp222091 __tmp222087)))) (declare (not safe)) - (cons __tmp220913 __tmp220905)))) + (cons __tmp222094 __tmp222086)))) (declare (not safe)) - (cons __tmp220916 __tmp220904)))) + (cons __tmp222097 __tmp222085)))) (declare (not safe)) - (cons __tmp220919 __tmp220903)))) + (cons __tmp222100 __tmp222084)))) (declare (not safe)) (##unchecked-structure-set! - __obj220242 - __tmp220902 - '14 + __obj221407 + __tmp222083 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220242)) + __obj221407)) (define |gxc[:0:]#!case-lambda| - (let ((__obj220243 + (let ((__obj221408 (let () (declare (not safe)) (##structure @@ -3743,11 +3894,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220243 + __obj221408 'gxc#!case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -3755,7 +3907,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220243 + __obj221408 '!case-lambda '2 gerbil/core$$#class-type-info::t @@ -3763,26 +3915,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220243 + __obj221408 '(clauses) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220922 - (let ((__tmp220923 |gxc[1]#_g220675_|)) + (let ((__tmp222103 + (let ((__tmp222104 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp220923 '())))) + (cons __tmp222104 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220922 + __obj221408 + __tmp222103 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220243 + __obj221408 '#t '5 gerbil/core$$#class-type-info::t @@ -3790,7 +3942,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220243 + __obj221408 '#f '6 gerbil/core$$#class-type-info::t @@ -3798,122 +3950,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220243 + __obj221408 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220924 |gxc[1]#_g220925_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220924 + __obj221408 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220926 |gxc[1]#_g220927_|)) + (let ((__tmp222105 |gxc[1]#_g222106_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220926 + __obj221408 + __tmp222105 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220928 |gxc[1]#_g220929_|)) + (let ((__tmp222107 |gxc[1]#_g222108_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220928 + __obj221408 + __tmp222107 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220930 - (let ((__tmp220935 - (let ((__tmp220936 |gxc[1]#_g220937_|)) - (declare (not safe)) - (cons 'clauses __tmp220936))) - (__tmp220931 - (let ((__tmp220932 - (let ((__tmp220933 |gxc[1]#_g220934_|)) - (declare (not safe)) - (cons 'id __tmp220933)))) - (declare (not safe)) - (cons __tmp220932 '())))) - (declare (not safe)) - (cons __tmp220935 __tmp220931)))) + (let ((__tmp222109 |gxc[1]#_g222110_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220930 + __obj221408 + __tmp222109 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220938 - (let ((__tmp220943 - (let ((__tmp220944 |gxc[1]#_g220945_|)) + (let ((__tmp222111 + (let ((__tmp222116 + (let ((__tmp222117 |gxc[1]#_g222118_|)) (declare (not safe)) - (cons 'clauses __tmp220944))) - (__tmp220939 - (let ((__tmp220940 - (let ((__tmp220941 |gxc[1]#_g220942_|)) + (cons 'clauses __tmp222117))) + (__tmp222112 + (let ((__tmp222113 + (let ((__tmp222114 |gxc[1]#_g222115_|)) (declare (not safe)) - (cons 'id __tmp220941)))) + (cons 'id __tmp222114)))) (declare (not safe)) - (cons __tmp220940 '())))) + (cons __tmp222113 '())))) (declare (not safe)) - (cons __tmp220943 __tmp220939)))) + (cons __tmp222116 __tmp222112)))) (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220938 + __obj221408 + __tmp222111 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220946 - (let ((__tmp220951 - (let ((__tmp220952 |gxc[1]#_g220953_|)) + (let ((__tmp222119 + (let ((__tmp222124 + (let ((__tmp222125 |gxc[1]#_g222126_|)) (declare (not safe)) - (cons 'clauses __tmp220952))) - (__tmp220947 - (let ((__tmp220948 - (let ((__tmp220949 |gxc[1]#_g220950_|)) + (cons 'clauses __tmp222125))) + (__tmp222120 + (let ((__tmp222121 + (let ((__tmp222122 |gxc[1]#_g222123_|)) (declare (not safe)) - (cons 'id __tmp220949)))) + (cons 'id __tmp222122)))) (declare (not safe)) - (cons __tmp220948 '())))) + (cons __tmp222121 '())))) (declare (not safe)) - (cons __tmp220951 __tmp220947)))) + (cons __tmp222124 __tmp222120)))) (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220946 + __obj221408 + __tmp222119 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220954 - (let ((__tmp220959 - (let ((__tmp220960 |gxc[1]#_g220961_|)) + (let ((__tmp222127 + (let ((__tmp222132 + (let ((__tmp222133 |gxc[1]#_g222134_|)) (declare (not safe)) - (cons 'clauses __tmp220960))) - (__tmp220955 - (let ((__tmp220956 - (let ((__tmp220957 |gxc[1]#_g220958_|)) + (cons 'clauses __tmp222133))) + (__tmp222128 + (let ((__tmp222129 + (let ((__tmp222130 |gxc[1]#_g222131_|)) (declare (not safe)) - (cons 'id __tmp220957)))) + (cons 'id __tmp222130)))) (declare (not safe)) - (cons __tmp220956 '())))) + (cons __tmp222129 '())))) (declare (not safe)) - (cons __tmp220959 __tmp220955)))) + (cons __tmp222132 __tmp222128)))) (declare (not safe)) (##unchecked-structure-set! - __obj220243 - __tmp220954 + __obj221408 + __tmp222127 '14 gerbil/core$$#class-type-info::t '#f)) - __obj220243)) + (let ((__tmp222135 + (let ((__tmp222140 + (let ((__tmp222141 |gxc[1]#_g222142_|)) + (declare (not safe)) + (cons 'clauses __tmp222141))) + (__tmp222136 + (let ((__tmp222137 + (let ((__tmp222138 |gxc[1]#_g222139_|)) + (declare (not safe)) + (cons 'id __tmp222138)))) + (declare (not safe)) + (cons __tmp222137 '())))) + (declare (not safe)) + (cons __tmp222140 __tmp222136)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj221408 + __tmp222135 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221408)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj220244 + (let ((__obj221409 (let () (declare (not safe)) (##structure @@ -3931,11 +4091,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220244 + __obj221409 'gxc#!kw-lambda::t '1 gerbil/core$$#class-type-info::t @@ -3943,7 +4104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220244 + __obj221409 '!kw-lambda '2 gerbil/core$$#class-type-info::t @@ -3951,26 +4112,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220244 + __obj221409 '(table dispatch) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220962 - (let ((__tmp220963 |gxc[1]#_g220675_|)) + (let ((__tmp222143 + (let ((__tmp222144 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp220963 '())))) + (cons __tmp222144 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp220962 + __obj221409 + __tmp222143 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220244 + __obj221409 '#t '5 gerbil/core$$#class-type-info::t @@ -3978,7 +4139,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220244 + __obj221409 '#f '6 gerbil/core$$#class-type-info::t @@ -3986,150 +4147,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220244 + __obj221409 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220964 |gxc[1]#_g220965_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp220964 + __obj221409 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220966 |gxc[1]#_g220967_|)) + (let ((__tmp222145 |gxc[1]#_g222146_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp220966 + __obj221409 + __tmp222145 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220968 |gxc[1]#_g220969_|)) + (let ((__tmp222147 |gxc[1]#_g222148_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp220968 + __obj221409 + __tmp222147 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220970 - (let ((__tmp220979 - (let ((__tmp220980 |gxc[1]#_g220981_|)) + (let ((__tmp222149 |gxc[1]#_g222150_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221409 + __tmp222149 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp222151 + (let ((__tmp222160 + (let ((__tmp222161 |gxc[1]#_g222162_|)) (declare (not safe)) - (cons 'table __tmp220980))) - (__tmp220971 - (let ((__tmp220976 - (let ((__tmp220977 |gxc[1]#_g220978_|)) + (cons 'table __tmp222161))) + (__tmp222152 + (let ((__tmp222157 + (let ((__tmp222158 |gxc[1]#_g222159_|)) (declare (not safe)) - (cons 'dispatch __tmp220977))) - (__tmp220972 - (let ((__tmp220973 - (let ((__tmp220974 |gxc[1]#_g220975_|)) + (cons 'dispatch __tmp222158))) + (__tmp222153 + (let ((__tmp222154 + (let ((__tmp222155 |gxc[1]#_g222156_|)) (declare (not safe)) - (cons 'id __tmp220974)))) + (cons 'id __tmp222155)))) (declare (not safe)) - (cons __tmp220973 '())))) + (cons __tmp222154 '())))) (declare (not safe)) - (cons __tmp220976 __tmp220972)))) + (cons __tmp222157 __tmp222153)))) (declare (not safe)) - (cons __tmp220979 __tmp220971)))) + (cons __tmp222160 __tmp222152)))) (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp220970 - '11 + __obj221409 + __tmp222151 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220982 - (let ((__tmp220991 - (let ((__tmp220992 |gxc[1]#_g220993_|)) + (let ((__tmp222163 + (let ((__tmp222172 + (let ((__tmp222173 |gxc[1]#_g222174_|)) (declare (not safe)) - (cons 'table __tmp220992))) - (__tmp220983 - (let ((__tmp220988 - (let ((__tmp220989 |gxc[1]#_g220990_|)) + (cons 'table __tmp222173))) + (__tmp222164 + (let ((__tmp222169 + (let ((__tmp222170 |gxc[1]#_g222171_|)) (declare (not safe)) - (cons 'dispatch __tmp220989))) - (__tmp220984 - (let ((__tmp220985 - (let ((__tmp220986 |gxc[1]#_g220987_|)) + (cons 'dispatch __tmp222170))) + (__tmp222165 + (let ((__tmp222166 + (let ((__tmp222167 |gxc[1]#_g222168_|)) (declare (not safe)) - (cons 'id __tmp220986)))) + (cons 'id __tmp222167)))) (declare (not safe)) - (cons __tmp220985 '())))) + (cons __tmp222166 '())))) (declare (not safe)) - (cons __tmp220988 __tmp220984)))) + (cons __tmp222169 __tmp222165)))) (declare (not safe)) - (cons __tmp220991 __tmp220983)))) + (cons __tmp222172 __tmp222164)))) (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp220982 - '12 + __obj221409 + __tmp222163 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp220994 - (let ((__tmp221003 - (let ((__tmp221004 |gxc[1]#_g221005_|)) + (let ((__tmp222175 + (let ((__tmp222184 + (let ((__tmp222185 |gxc[1]#_g222186_|)) (declare (not safe)) - (cons 'table __tmp221004))) - (__tmp220995 - (let ((__tmp221000 - (let ((__tmp221001 |gxc[1]#_g221002_|)) + (cons 'table __tmp222185))) + (__tmp222176 + (let ((__tmp222181 + (let ((__tmp222182 |gxc[1]#_g222183_|)) (declare (not safe)) - (cons 'dispatch __tmp221001))) - (__tmp220996 - (let ((__tmp220997 - (let ((__tmp220998 |gxc[1]#_g220999_|)) + (cons 'dispatch __tmp222182))) + (__tmp222177 + (let ((__tmp222178 + (let ((__tmp222179 |gxc[1]#_g222180_|)) (declare (not safe)) - (cons 'id __tmp220998)))) + (cons 'id __tmp222179)))) (declare (not safe)) - (cons __tmp220997 '())))) + (cons __tmp222178 '())))) (declare (not safe)) - (cons __tmp221000 __tmp220996)))) + (cons __tmp222181 __tmp222177)))) (declare (not safe)) - (cons __tmp221003 __tmp220995)))) + (cons __tmp222184 __tmp222176)))) (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp220994 - '13 + __obj221409 + __tmp222175 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221006 - (let ((__tmp221015 - (let ((__tmp221016 |gxc[1]#_g221017_|)) + (let ((__tmp222187 + (let ((__tmp222196 + (let ((__tmp222197 |gxc[1]#_g222198_|)) (declare (not safe)) - (cons 'table __tmp221016))) - (__tmp221007 - (let ((__tmp221012 - (let ((__tmp221013 |gxc[1]#_g221014_|)) + (cons 'table __tmp222197))) + (__tmp222188 + (let ((__tmp222193 + (let ((__tmp222194 |gxc[1]#_g222195_|)) (declare (not safe)) - (cons 'dispatch __tmp221013))) - (__tmp221008 - (let ((__tmp221009 - (let ((__tmp221010 |gxc[1]#_g221011_|)) + (cons 'dispatch __tmp222194))) + (__tmp222189 + (let ((__tmp222190 + (let ((__tmp222191 |gxc[1]#_g222192_|)) (declare (not safe)) - (cons 'id __tmp221010)))) + (cons 'id __tmp222191)))) (declare (not safe)) - (cons __tmp221009 '())))) + (cons __tmp222190 '())))) (declare (not safe)) - (cons __tmp221012 __tmp221008)))) + (cons __tmp222193 __tmp222189)))) (declare (not safe)) - (cons __tmp221015 __tmp221007)))) + (cons __tmp222196 __tmp222188)))) (declare (not safe)) (##unchecked-structure-set! - __obj220244 - __tmp221006 - '14 + __obj221409 + __tmp222187 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220244)) + __obj221409)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj220245 + (let ((__obj221410 (let () (declare (not safe)) (##structure @@ -4147,11 +4316,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220245 + __obj221410 'gxc#!kw-lambda-primary::t '1 gerbil/core$$#class-type-info::t @@ -4159,7 +4329,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220245 + __obj221410 '!kw-lambda-primary '2 gerbil/core$$#class-type-info::t @@ -4167,26 +4337,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220245 + __obj221410 '(keys main) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221018 - (let ((__tmp221019 |gxc[1]#_g220675_|)) + (let ((__tmp222199 + (let ((__tmp222200 |gxc[1]#_g221856_|)) (declare (not safe)) - (cons __tmp221019 '())))) + (cons __tmp222200 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221018 + __obj221410 + __tmp222199 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220245 + __obj221410 '#t '5 gerbil/core$$#class-type-info::t @@ -4194,7 +4364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220245 + __obj221410 '#f '6 gerbil/core$$#class-type-info::t @@ -4202,150 +4372,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220245 + __obj221410 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221020 |gxc[1]#_g221021_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221020 + __obj221410 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221022 |gxc[1]#_g221023_|)) + (let ((__tmp222201 |gxc[1]#_g222202_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221022 + __obj221410 + __tmp222201 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221024 |gxc[1]#_g221025_|)) + (let ((__tmp222203 |gxc[1]#_g222204_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221024 + __obj221410 + __tmp222203 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221026 - (let ((__tmp221035 - (let ((__tmp221036 |gxc[1]#_g221037_|)) + (let ((__tmp222205 |gxc[1]#_g222206_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221410 + __tmp222205 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp222207 + (let ((__tmp222216 + (let ((__tmp222217 |gxc[1]#_g222218_|)) (declare (not safe)) - (cons 'keys __tmp221036))) - (__tmp221027 - (let ((__tmp221032 - (let ((__tmp221033 |gxc[1]#_g221034_|)) + (cons 'keys __tmp222217))) + (__tmp222208 + (let ((__tmp222213 + (let ((__tmp222214 |gxc[1]#_g222215_|)) (declare (not safe)) - (cons 'main __tmp221033))) - (__tmp221028 - (let ((__tmp221029 - (let ((__tmp221030 |gxc[1]#_g221031_|)) + (cons 'main __tmp222214))) + (__tmp222209 + (let ((__tmp222210 + (let ((__tmp222211 |gxc[1]#_g222212_|)) (declare (not safe)) - (cons 'id __tmp221030)))) + (cons 'id __tmp222211)))) (declare (not safe)) - (cons __tmp221029 '())))) + (cons __tmp222210 '())))) (declare (not safe)) - (cons __tmp221032 __tmp221028)))) + (cons __tmp222213 __tmp222209)))) (declare (not safe)) - (cons __tmp221035 __tmp221027)))) + (cons __tmp222216 __tmp222208)))) (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221026 - '11 + __obj221410 + __tmp222207 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221038 - (let ((__tmp221047 - (let ((__tmp221048 |gxc[1]#_g221049_|)) + (let ((__tmp222219 + (let ((__tmp222228 + (let ((__tmp222229 |gxc[1]#_g222230_|)) (declare (not safe)) - (cons 'keys __tmp221048))) - (__tmp221039 - (let ((__tmp221044 - (let ((__tmp221045 |gxc[1]#_g221046_|)) + (cons 'keys __tmp222229))) + (__tmp222220 + (let ((__tmp222225 + (let ((__tmp222226 |gxc[1]#_g222227_|)) (declare (not safe)) - (cons 'main __tmp221045))) - (__tmp221040 - (let ((__tmp221041 - (let ((__tmp221042 |gxc[1]#_g221043_|)) + (cons 'main __tmp222226))) + (__tmp222221 + (let ((__tmp222222 + (let ((__tmp222223 |gxc[1]#_g222224_|)) (declare (not safe)) - (cons 'id __tmp221042)))) + (cons 'id __tmp222223)))) (declare (not safe)) - (cons __tmp221041 '())))) + (cons __tmp222222 '())))) (declare (not safe)) - (cons __tmp221044 __tmp221040)))) + (cons __tmp222225 __tmp222221)))) (declare (not safe)) - (cons __tmp221047 __tmp221039)))) + (cons __tmp222228 __tmp222220)))) (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221038 - '12 + __obj221410 + __tmp222219 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221050 - (let ((__tmp221059 - (let ((__tmp221060 |gxc[1]#_g221061_|)) + (let ((__tmp222231 + (let ((__tmp222240 + (let ((__tmp222241 |gxc[1]#_g222242_|)) (declare (not safe)) - (cons 'keys __tmp221060))) - (__tmp221051 - (let ((__tmp221056 - (let ((__tmp221057 |gxc[1]#_g221058_|)) + (cons 'keys __tmp222241))) + (__tmp222232 + (let ((__tmp222237 + (let ((__tmp222238 |gxc[1]#_g222239_|)) (declare (not safe)) - (cons 'main __tmp221057))) - (__tmp221052 - (let ((__tmp221053 - (let ((__tmp221054 |gxc[1]#_g221055_|)) + (cons 'main __tmp222238))) + (__tmp222233 + (let ((__tmp222234 + (let ((__tmp222235 |gxc[1]#_g222236_|)) (declare (not safe)) - (cons 'id __tmp221054)))) + (cons 'id __tmp222235)))) (declare (not safe)) - (cons __tmp221053 '())))) + (cons __tmp222234 '())))) (declare (not safe)) - (cons __tmp221056 __tmp221052)))) + (cons __tmp222237 __tmp222233)))) (declare (not safe)) - (cons __tmp221059 __tmp221051)))) + (cons __tmp222240 __tmp222232)))) (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221050 - '13 + __obj221410 + __tmp222231 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221062 - (let ((__tmp221071 - (let ((__tmp221072 |gxc[1]#_g221073_|)) + (let ((__tmp222243 + (let ((__tmp222252 + (let ((__tmp222253 |gxc[1]#_g222254_|)) (declare (not safe)) - (cons 'keys __tmp221072))) - (__tmp221063 - (let ((__tmp221068 - (let ((__tmp221069 |gxc[1]#_g221070_|)) + (cons 'keys __tmp222253))) + (__tmp222244 + (let ((__tmp222249 + (let ((__tmp222250 |gxc[1]#_g222251_|)) (declare (not safe)) - (cons 'main __tmp221069))) - (__tmp221064 - (let ((__tmp221065 - (let ((__tmp221066 |gxc[1]#_g221067_|)) + (cons 'main __tmp222250))) + (__tmp222245 + (let ((__tmp222246 + (let ((__tmp222247 |gxc[1]#_g222248_|)) (declare (not safe)) - (cons 'id __tmp221066)))) + (cons 'id __tmp222247)))) (declare (not safe)) - (cons __tmp221065 '())))) + (cons __tmp222246 '())))) (declare (not safe)) - (cons __tmp221068 __tmp221064)))) + (cons __tmp222249 __tmp222245)))) (declare (not safe)) - (cons __tmp221071 __tmp221063)))) + (cons __tmp222252 __tmp222244)))) (declare (not safe)) (##unchecked-structure-set! - __obj220245 - __tmp221062 - '14 + __obj221410 + __tmp222243 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220245)) + __obj221410)) (define |gxc[:0:]#!primitive| - (let ((__obj220246 + (let ((__obj221411 (let () (declare (not safe)) (##structure @@ -4363,11 +4541,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 'gxc#!primitive::t '1 gerbil/core$$#class-type-info::t @@ -4375,7 +4554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '!primitive '2 gerbil/core$$#class-type-info::t @@ -4383,7 +4562,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '() '4 gerbil/core$$#class-type-info::t @@ -4391,7 +4570,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '() '3 gerbil/core$$#class-type-info::t @@ -4399,7 +4578,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '#f '5 gerbil/core$$#class-type-info::t @@ -4407,7 +4586,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '#f '6 gerbil/core$$#class-type-info::t @@ -4415,47 +4594,47 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221074 |gxc[1]#_g221075_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 - __tmp221074 + __obj221411 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221076 |gxc[1]#_g221077_|)) + (let ((__tmp222255 |gxc[1]#_g222256_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220246 - __tmp221076 + __obj221411 + __tmp222255 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221078 |gxc[1]#_g221079_|)) + (let ((__tmp222257 |gxc[1]#_g222258_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220246 - __tmp221078 + __obj221411 + __tmp222257 '10 gerbil/core$$#class-type-info::t '#f)) - (let () + (let ((__tmp222259 |gxc[1]#_g222260_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220246 - '() + __obj221411 + __tmp222259 '11 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '() '12 gerbil/core$$#class-type-info::t @@ -4463,7 +4642,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '() '13 gerbil/core$$#class-type-info::t @@ -4471,14 +4650,22 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220246 + __obj221411 '() '14 gerbil/core$$#class-type-info::t '#f)) - __obj220246)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj221411 + '() + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221411)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj220247 + (let ((__obj221412 (let () (declare (not safe)) (##structure @@ -4496,11 +4683,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220247 + __obj221412 'gxc#!primitive-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4508,7 +4696,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220247 + __obj221412 '!primitive-lambda '2 gerbil/core$$#class-type-info::t @@ -4516,30 +4704,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220247 + __obj221412 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221080 - (let ((__tmp221084 |gxc[1]#_g221085_|) - (__tmp221081 - (let ((__tmp221082 |gxc[1]#_g221083_|)) + (let ((__tmp222261 + (let ((__tmp222265 |gxc[1]#_g222266_|) + (__tmp222262 + (let ((__tmp222263 |gxc[1]#_g222264_|)) (declare (not safe)) - (cons __tmp221082 '())))) + (cons __tmp222263 '())))) (declare (not safe)) - (cons __tmp221084 __tmp221081)))) + (cons __tmp222265 __tmp222262)))) (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221080 + __obj221412 + __tmp222261 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220247 + __obj221412 '#f '5 gerbil/core$$#class-type-info::t @@ -4547,7 +4735,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220247 + __obj221412 '#f '6 gerbil/core$$#class-type-info::t @@ -4555,218 +4743,226 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220247 - ':init! + __obj221412 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221086 |gxc[1]#_g221087_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221086 + __obj221412 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221088 |gxc[1]#_g221089_|)) + (let ((__tmp222267 |gxc[1]#_g222268_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221088 + __obj221412 + __tmp222267 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221090 |gxc[1]#_g221091_|)) + (let ((__tmp222269 |gxc[1]#_g222270_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221090 + __obj221412 + __tmp222269 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221092 - (let ((__tmp221109 - (let ((__tmp221110 |gxc[1]#_g221111_|)) + (let ((__tmp222271 |gxc[1]#_g222272_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj221412 + __tmp222271 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp222273 + (let ((__tmp222290 + (let ((__tmp222291 |gxc[1]#_g222292_|)) (declare (not safe)) - (cons 'arity __tmp221110))) - (__tmp221093 - (let ((__tmp221106 - (let ((__tmp221107 |gxc[1]#_g221108_|)) + (cons 'arity __tmp222291))) + (__tmp222274 + (let ((__tmp222287 + (let ((__tmp222288 |gxc[1]#_g222289_|)) (declare (not safe)) - (cons 'dispatch __tmp221107))) - (__tmp221094 - (let ((__tmp221103 - (let ((__tmp221104 |gxc[1]#_g221105_|)) + (cons 'dispatch __tmp222288))) + (__tmp222275 + (let ((__tmp222284 + (let ((__tmp222285 |gxc[1]#_g222286_|)) (declare (not safe)) - (cons 'inline __tmp221104))) - (__tmp221095 - (let ((__tmp221100 - (let ((__tmp221101 - |gxc[1]#_g221102_|)) + (cons 'inline __tmp222285))) + (__tmp222276 + (let ((__tmp222281 + (let ((__tmp222282 + |gxc[1]#_g222283_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp221101))) - (__tmp221096 - (let ((__tmp221097 - (let ((__tmp221098 - |gxc[1]#_g221099_|)) + __tmp222282))) + (__tmp222277 + (let ((__tmp222278 + (let ((__tmp222279 + |gxc[1]#_g222280_|)) (declare (not safe)) - (cons 'id __tmp221098)))) + (cons 'id __tmp222279)))) (declare (not safe)) - (cons __tmp221097 '())))) + (cons __tmp222278 '())))) (declare (not safe)) - (cons __tmp221100 __tmp221096)))) + (cons __tmp222281 __tmp222277)))) (declare (not safe)) - (cons __tmp221103 __tmp221095)))) + (cons __tmp222284 __tmp222276)))) (declare (not safe)) - (cons __tmp221106 __tmp221094)))) + (cons __tmp222287 __tmp222275)))) (declare (not safe)) - (cons __tmp221109 __tmp221093)))) + (cons __tmp222290 __tmp222274)))) (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221092 - '11 + __obj221412 + __tmp222273 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221112 - (let ((__tmp221129 - (let ((__tmp221130 |gxc[1]#_g221131_|)) + (let ((__tmp222293 + (let ((__tmp222310 + (let ((__tmp222311 |gxc[1]#_g222312_|)) (declare (not safe)) - (cons 'arity __tmp221130))) - (__tmp221113 - (let ((__tmp221126 - (let ((__tmp221127 |gxc[1]#_g221128_|)) + (cons 'arity __tmp222311))) + (__tmp222294 + (let ((__tmp222307 + (let ((__tmp222308 |gxc[1]#_g222309_|)) (declare (not safe)) - (cons 'dispatch __tmp221127))) - (__tmp221114 - (let ((__tmp221123 - (let ((__tmp221124 |gxc[1]#_g221125_|)) + (cons 'dispatch __tmp222308))) + (__tmp222295 + (let ((__tmp222304 + (let ((__tmp222305 |gxc[1]#_g222306_|)) (declare (not safe)) - (cons 'inline __tmp221124))) - (__tmp221115 - (let ((__tmp221120 - (let ((__tmp221121 - |gxc[1]#_g221122_|)) + (cons 'inline __tmp222305))) + (__tmp222296 + (let ((__tmp222301 + (let ((__tmp222302 + |gxc[1]#_g222303_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp221121))) - (__tmp221116 - (let ((__tmp221117 - (let ((__tmp221118 - |gxc[1]#_g221119_|)) + __tmp222302))) + (__tmp222297 + (let ((__tmp222298 + (let ((__tmp222299 + |gxc[1]#_g222300_|)) (declare (not safe)) - (cons 'id __tmp221118)))) + (cons 'id __tmp222299)))) (declare (not safe)) - (cons __tmp221117 '())))) + (cons __tmp222298 '())))) (declare (not safe)) - (cons __tmp221120 __tmp221116)))) + (cons __tmp222301 __tmp222297)))) (declare (not safe)) - (cons __tmp221123 __tmp221115)))) + (cons __tmp222304 __tmp222296)))) (declare (not safe)) - (cons __tmp221126 __tmp221114)))) + (cons __tmp222307 __tmp222295)))) (declare (not safe)) - (cons __tmp221129 __tmp221113)))) + (cons __tmp222310 __tmp222294)))) (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221112 - '12 + __obj221412 + __tmp222293 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221132 - (let ((__tmp221149 - (let ((__tmp221150 |gxc[1]#_g221151_|)) + (let ((__tmp222313 + (let ((__tmp222330 + (let ((__tmp222331 |gxc[1]#_g222332_|)) (declare (not safe)) - (cons 'arity __tmp221150))) - (__tmp221133 - (let ((__tmp221146 - (let ((__tmp221147 |gxc[1]#_g221148_|)) + (cons 'arity __tmp222331))) + (__tmp222314 + (let ((__tmp222327 + (let ((__tmp222328 |gxc[1]#_g222329_|)) (declare (not safe)) - (cons 'dispatch __tmp221147))) - (__tmp221134 - (let ((__tmp221143 - (let ((__tmp221144 |gxc[1]#_g221145_|)) + (cons 'dispatch __tmp222328))) + (__tmp222315 + (let ((__tmp222324 + (let ((__tmp222325 |gxc[1]#_g222326_|)) (declare (not safe)) - (cons 'inline __tmp221144))) - (__tmp221135 - (let ((__tmp221140 - (let ((__tmp221141 - |gxc[1]#_g221142_|)) + (cons 'inline __tmp222325))) + (__tmp222316 + (let ((__tmp222321 + (let ((__tmp222322 + |gxc[1]#_g222323_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp221141))) - (__tmp221136 - (let ((__tmp221137 - (let ((__tmp221138 - |gxc[1]#_g221139_|)) + __tmp222322))) + (__tmp222317 + (let ((__tmp222318 + (let ((__tmp222319 + |gxc[1]#_g222320_|)) (declare (not safe)) - (cons 'id __tmp221138)))) + (cons 'id __tmp222319)))) (declare (not safe)) - (cons __tmp221137 '())))) + (cons __tmp222318 '())))) (declare (not safe)) - (cons __tmp221140 __tmp221136)))) + (cons __tmp222321 __tmp222317)))) (declare (not safe)) - (cons __tmp221143 __tmp221135)))) + (cons __tmp222324 __tmp222316)))) (declare (not safe)) - (cons __tmp221146 __tmp221134)))) + (cons __tmp222327 __tmp222315)))) (declare (not safe)) - (cons __tmp221149 __tmp221133)))) + (cons __tmp222330 __tmp222314)))) (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221132 - '13 + __obj221412 + __tmp222313 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221152 - (let ((__tmp221169 - (let ((__tmp221170 |gxc[1]#_g221171_|)) + (let ((__tmp222333 + (let ((__tmp222350 + (let ((__tmp222351 |gxc[1]#_g222352_|)) (declare (not safe)) - (cons 'arity __tmp221170))) - (__tmp221153 - (let ((__tmp221166 - (let ((__tmp221167 |gxc[1]#_g221168_|)) + (cons 'arity __tmp222351))) + (__tmp222334 + (let ((__tmp222347 + (let ((__tmp222348 |gxc[1]#_g222349_|)) (declare (not safe)) - (cons 'dispatch __tmp221167))) - (__tmp221154 - (let ((__tmp221163 - (let ((__tmp221164 |gxc[1]#_g221165_|)) + (cons 'dispatch __tmp222348))) + (__tmp222335 + (let ((__tmp222344 + (let ((__tmp222345 |gxc[1]#_g222346_|)) (declare (not safe)) - (cons 'inline __tmp221164))) - (__tmp221155 - (let ((__tmp221160 - (let ((__tmp221161 - |gxc[1]#_g221162_|)) + (cons 'inline __tmp222345))) + (__tmp222336 + (let ((__tmp222341 + (let ((__tmp222342 + |gxc[1]#_g222343_|)) (declare (not safe)) (cons 'inline-typedecl - __tmp221161))) - (__tmp221156 - (let ((__tmp221157 - (let ((__tmp221158 - |gxc[1]#_g221159_|)) + __tmp222342))) + (__tmp222337 + (let ((__tmp222338 + (let ((__tmp222339 + |gxc[1]#_g222340_|)) (declare (not safe)) - (cons 'id __tmp221158)))) + (cons 'id __tmp222339)))) (declare (not safe)) - (cons __tmp221157 '())))) + (cons __tmp222338 '())))) (declare (not safe)) - (cons __tmp221160 __tmp221156)))) + (cons __tmp222341 __tmp222337)))) (declare (not safe)) - (cons __tmp221163 __tmp221155)))) + (cons __tmp222344 __tmp222336)))) (declare (not safe)) - (cons __tmp221166 __tmp221154)))) + (cons __tmp222347 __tmp222335)))) (declare (not safe)) - (cons __tmp221169 __tmp221153)))) + (cons __tmp222350 __tmp222334)))) (declare (not safe)) (##unchecked-structure-set! - __obj220247 - __tmp221152 - '14 + __obj221412 + __tmp222333 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj220247)) + __obj221412)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj220248 + (let ((__obj221413 (let () (declare (not safe)) (##structure @@ -4784,11 +4980,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220248 + __obj221413 'gxc#!primitive-case-lambda::t '1 gerbil/core$$#class-type-info::t @@ -4796,7 +4993,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220248 + __obj221413 '!primitive-case-lambda '2 gerbil/core$$#class-type-info::t @@ -4804,30 +5001,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220248 + __obj221413 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221172 - (let ((__tmp221176 |gxc[1]#_g221085_|) - (__tmp221173 - (let ((__tmp221174 |gxc[1]#_g221175_|)) + (let ((__tmp222353 + (let ((__tmp222357 |gxc[1]#_g222266_|) + (__tmp222354 + (let ((__tmp222355 |gxc[1]#_g222356_|)) (declare (not safe)) - (cons __tmp221174 '())))) + (cons __tmp222355 '())))) (declare (not safe)) - (cons __tmp221176 __tmp221173)))) + (cons __tmp222357 __tmp222354)))) (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221172 + __obj221413 + __tmp222353 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj220248 + __obj221413 '#f '5 gerbil/core$$#class-type-info::t @@ -4835,7 +5032,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220248 + __obj221413 '#f '6 gerbil/core$$#class-type-info::t @@ -4843,117 +5040,125 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj220248 - ':init! + __obj221413 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221177 |gxc[1]#_g221178_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221177 + __obj221413 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221179 |gxc[1]#_g221180_|)) + (let ((__tmp222358 |gxc[1]#_g222359_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221179 + __obj221413 + __tmp222358 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221181 |gxc[1]#_g221182_|)) + (let ((__tmp222360 |gxc[1]#_g222361_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221181 + __obj221413 + __tmp222360 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221183 - (let ((__tmp221188 - (let ((__tmp221189 |gxc[1]#_g221190_|)) - (declare (not safe)) - (cons 'clauses __tmp221189))) - (__tmp221184 - (let ((__tmp221185 - (let ((__tmp221186 |gxc[1]#_g221187_|)) - (declare (not safe)) - (cons 'id __tmp221186)))) - (declare (not safe)) - (cons __tmp221185 '())))) - (declare (not safe)) - (cons __tmp221188 __tmp221184)))) + (let ((__tmp222362 |gxc[1]#_g222363_|)) (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221183 + __obj221413 + __tmp222362 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221191 - (let ((__tmp221196 - (let ((__tmp221197 |gxc[1]#_g221198_|)) + (let ((__tmp222364 + (let ((__tmp222369 + (let ((__tmp222370 |gxc[1]#_g222371_|)) (declare (not safe)) - (cons 'clauses __tmp221197))) - (__tmp221192 - (let ((__tmp221193 - (let ((__tmp221194 |gxc[1]#_g221195_|)) + (cons 'clauses __tmp222370))) + (__tmp222365 + (let ((__tmp222366 + (let ((__tmp222367 |gxc[1]#_g222368_|)) (declare (not safe)) - (cons 'id __tmp221194)))) + (cons 'id __tmp222367)))) (declare (not safe)) - (cons __tmp221193 '())))) + (cons __tmp222366 '())))) (declare (not safe)) - (cons __tmp221196 __tmp221192)))) + (cons __tmp222369 __tmp222365)))) (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221191 + __obj221413 + __tmp222364 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221199 - (let ((__tmp221204 - (let ((__tmp221205 |gxc[1]#_g221206_|)) + (let ((__tmp222372 + (let ((__tmp222377 + (let ((__tmp222378 |gxc[1]#_g222379_|)) (declare (not safe)) - (cons 'clauses __tmp221205))) - (__tmp221200 - (let ((__tmp221201 - (let ((__tmp221202 |gxc[1]#_g221203_|)) + (cons 'clauses __tmp222378))) + (__tmp222373 + (let ((__tmp222374 + (let ((__tmp222375 |gxc[1]#_g222376_|)) (declare (not safe)) - (cons 'id __tmp221202)))) + (cons 'id __tmp222375)))) (declare (not safe)) - (cons __tmp221201 '())))) + (cons __tmp222374 '())))) (declare (not safe)) - (cons __tmp221204 __tmp221200)))) + (cons __tmp222377 __tmp222373)))) (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221199 + __obj221413 + __tmp222372 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp221207 - (let ((__tmp221212 - (let ((__tmp221213 |gxc[1]#_g221214_|)) + (let ((__tmp222380 + (let ((__tmp222385 + (let ((__tmp222386 |gxc[1]#_g222387_|)) (declare (not safe)) - (cons 'clauses __tmp221213))) - (__tmp221208 - (let ((__tmp221209 - (let ((__tmp221210 |gxc[1]#_g221211_|)) + (cons 'clauses __tmp222386))) + (__tmp222381 + (let ((__tmp222382 + (let ((__tmp222383 |gxc[1]#_g222384_|)) (declare (not safe)) - (cons 'id __tmp221210)))) + (cons 'id __tmp222383)))) (declare (not safe)) - (cons __tmp221209 '())))) + (cons __tmp222382 '())))) (declare (not safe)) - (cons __tmp221212 __tmp221208)))) + (cons __tmp222385 __tmp222381)))) (declare (not safe)) (##unchecked-structure-set! - __obj220248 - __tmp221207 + __obj221413 + __tmp222380 '14 gerbil/core$$#class-type-info::t '#f)) - __obj220248)))) + (let ((__tmp222388 + (let ((__tmp222393 + (let ((__tmp222394 |gxc[1]#_g222395_|)) + (declare (not safe)) + (cons 'clauses __tmp222394))) + (__tmp222389 + (let ((__tmp222390 + (let ((__tmp222391 |gxc[1]#_g222392_|)) + (declare (not safe)) + (cons 'id __tmp222391)))) + (declare (not safe)) + (cons __tmp222390 '())))) + (declare (not safe)) + (cons __tmp222393 __tmp222389)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj221413 + __tmp222388 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj221413)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call__0.scm b/src/bootstrap/gerbil/compiler/optimize-call__0.scm index 0208fa315..376bfc43d 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call__0.scm @@ -1,592 +1,592 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1707773933) + (define gerbil/compiler/optimize-call::timestamp 1708102809) (begin (define gxc#&optimize-call (make-promise (lambda () - (let ((_tbl277353_ + (let ((_tbl278565_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp282212 (force gxc#&basic-xform))) + (let ((__tmp283424 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl277353_ __tmp282212)) + (hash-copy! _tbl278565_ __tmp283424)) (let () (declare (not safe)) - (table-set! _tbl277353_ '%#call gxc#optimize-call%)) - _tbl277353_)))) + (table-set! _tbl278565_ '%#call gxc#optimize-call%)) + _tbl278565_)))) (define gxc#apply-optimize-call - (lambda (_stx277336_ . _args277338_) - (let ((__tmp282214 + (lambda (_stx278548_ . _args278550_) + (let ((__tmp283426 (lambda () (declare (not safe)) - (if (null? _args277338_) - (gxc#compile-e__0 _stx277336_) - (let ((_arg1277343_ (car _args277338_)) - (_rest277345_ (cdr _args277338_))) - (if (null? _rest277345_) - (gxc#compile-e__1 _stx277336_ _arg1277343_) - (let ((_arg2277348_ (car _rest277345_)) - (_rest277350_ (cdr _rest277345_))) - (if (null? _rest277350_) + (if (null? _args278550_) + (gxc#compile-e__0 _stx278548_) + (let ((_arg1278555_ (car _args278550_)) + (_rest278557_ (cdr _args278550_))) + (if (null? _rest278557_) + (gxc#compile-e__1 _stx278548_ _arg1278555_) + (let ((_arg2278560_ (car _rest278557_)) + (_rest278562_ (cdr _rest278557_))) + (if (null? _rest278562_) (gxc#compile-e__2 - _stx277336_ - _arg1277343_ - _arg2277348_) + _stx278548_ + _arg1278555_ + _arg2278560_) (apply gxc#compile-e - _stx277336_ - _arg1277343_ - _arg2277348_ - _rest277350_)))))))) - (__tmp282213 (force gxc#&optimize-call))) + _stx278548_ + _arg1278555_ + _arg2278560_ + _rest278562_)))))))) + (__tmp283425 (force gxc#&optimize-call))) (declare (not safe)) (call-with-parameters - __tmp282214 + __tmp283426 gxc#current-compile-methods - __tmp282213)))) + __tmp283425)))) (define gxc#optimize-call% - (lambda (_stx277191_) - (let* ((___stx281962281963_ _stx277191_) - (_g277194277214_ + (lambda (_stx278403_) + (let* ((___stx283174283175_ _stx278403_) + (_g278406278426_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx281962281963_))))) - (let ((___kont281964281965_ - (lambda (_L277258_ _L277259_) - (let* ((_rator-id277277_ + ___stx283174283175_))))) + (let ((___kont283176283177_ + (lambda (_L278470_ _L278471_) + (let* ((_rator-id278489_ (let () (declare (not safe)) - (gxc#identifier-symbol _L277259_))) - (_rator-type277279_ + (gxc#identifier-symbol _L278471_))) + (_rator-type278491_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _rator-id277277_)))) + (gxc#optimizer-resolve-type _rator-id278489_)))) (if (let () (declare (not safe)) (##structure-instance-of? - _rator-type277279_ + _rator-type278491_ 'gxc#!procedure::t)) (begin - (let ((__tmp282215 + (let ((__tmp283427 (##structure-ref - _rator-type277279_ + _rator-type278491_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#verbose '"optimize-call " - _rator-id277277_ + _rator-id278489_ '" => " - _rator-type277279_ + _rator-type278491_ '" " - __tmp282215)) - (let ((_optimized277282_ - (let ((__method282210 + __tmp283427)) + (let ((_optimized278494_ + (let ((__method283422 (let () (declare (not safe)) (method-ref - _rator-type277279_ + _rator-type278491_ 'optimize-call)))) - (if __method282210 - (__method282210 - _rator-type277279_ - _stx277191_ - _L277258_) + (if __method283422 + (__method283422 + _rator-type278491_ + _stx278403_ + _L278470_) (error '"Missing method" - _rator-type277279_ + _rator-type278491_ 'optimize-call))))) (if (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _rator-type277279_)) - _optimized277282_ - (let* ((___stx281944281945_ _optimized277282_) - (_g277285277295_ + _rator-type278491_)) + _optimized278494_ + (let* ((___stx283156283157_ _optimized278494_) + (_g278497278507_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx281944281945_))))) - (let ((___kont281946281947_ - (lambda (_L277315_) - (let ((__tmp282216 + ___stx283156283157_))))) + (let ((___kont283158283159_ + (lambda (_L278527_) + (let ((__tmp283428 (let () (declare (not safe)) (cons '%#call-unchecked - _L277315_)))) + _L278527_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282216 - _stx277191_)))) - (___kont281948281949_ - (lambda () _optimized277282_))) + __tmp283428 + _stx278403_)))) + (___kont283160283161_ + (lambda () _optimized278494_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx281944281945_)) - (let ((_e277290277307_ + (gx#stx-pair? ___stx283156283157_)) + (let ((_e278502278519_ (let () (declare (not safe)) (gx#stx-e - ___stx281944281945_)))) - (let ((_tl277288277312_ + ___stx283156283157_)))) + (let ((_tl278500278524_ (let () (declare (not safe)) - (##cdr _e277290277307_))) - (_hd277289277310_ + (##cdr _e278502278519_))) + (_hd278501278522_ (let () (declare (not safe)) - (##car _e277290277307_)))) + (##car _e278502278519_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd277289277310_)) + _hd278501278522_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd277289277310_)) - (___kont281946281947_ - _tl277288277312_) - (___kont281948281949_)) - (___kont281948281949_)))) - (___kont281948281949_))))))) + _hd278501278522_)) + (___kont283158283159_ + _tl278500278524_) + (___kont283160283161_)) + (___kont283160283161_)))) + (___kont283160283161_))))))) (if (let () (declare (not safe)) - (not _rator-type277279_)) + (not _rator-type278491_)) (let () (declare (not safe)) - (gxc#xform-call% _stx277191_)) + (gxc#xform-call% _stx278403_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _stx277191_ - _rator-type277279_))))))) - (___kont281966281967_ + _stx278403_ + _rator-type278491_))))))) + (___kont283178283179_ (lambda () (let () (declare (not safe)) - (gxc#xform-call% _stx277191_))))) + (gxc#xform-call% _stx278403_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx281962281963_)) - (let ((_e277200277226_ + (gx#stx-pair? ___stx283174283175_)) + (let ((_e278412278438_ (let () (declare (not safe)) - (gx#stx-e ___stx281962281963_)))) - (let ((_tl277198277231_ - (let () (declare (not safe)) (##cdr _e277200277226_))) - (_hd277199277229_ + (gx#stx-e ___stx283174283175_)))) + (let ((_tl278410278443_ + (let () (declare (not safe)) (##cdr _e278412278438_))) + (_hd278411278441_ (let () (declare (not safe)) - (##car _e277200277226_)))) + (##car _e278412278438_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl277198277231_)) - (let ((_e277203277234_ + (gx#stx-pair? _tl278410278443_)) + (let ((_e278415278446_ (let () (declare (not safe)) - (gx#stx-e _tl277198277231_)))) - (let ((_tl277201277239_ + (gx#stx-e _tl278410278443_)))) + (let ((_tl278413278451_ (let () (declare (not safe)) - (##cdr _e277203277234_))) - (_hd277202277237_ + (##cdr _e278415278446_))) + (_hd278414278449_ (let () (declare (not safe)) - (##car _e277203277234_)))) + (##car _e278415278446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd277202277237_)) - (let ((_e277206277242_ + (gx#stx-pair? _hd278414278449_)) + (let ((_e278418278454_ (let () (declare (not safe)) - (gx#stx-e _hd277202277237_)))) - (let ((_tl277204277247_ + (gx#stx-e _hd278414278449_)))) + (let ((_tl278416278459_ (let () (declare (not safe)) - (##cdr _e277206277242_))) - (_hd277205277245_ + (##cdr _e278418278454_))) + (_hd278417278457_ (let () (declare (not safe)) - (##car _e277206277242_)))) + (##car _e278418278454_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd277205277245_)) + (gx#identifier? _hd278417278457_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd277205277245_)) + _hd278417278457_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl277204277247_)) - (let ((_e277209277250_ + _tl278416278459_)) + (let ((_e278421278462_ (let () (declare (not safe)) (gx#stx-e - _tl277204277247_)))) - (let ((_tl277207277255_ + _tl278416278459_)))) + (let ((_tl278419278467_ (let () (declare (not safe)) - (##cdr _e277209277250_))) - (_hd277208277253_ + (##cdr _e278421278462_))) + (_hd278420278465_ (let () (declare (not safe)) - (##car _e277209277250_)))) + (##car _e278421278462_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl277207277255_)) - (___kont281964281965_ - _tl277201277239_ - _hd277208277253_) - (___kont281966281967_)))) - (___kont281966281967_)) - (___kont281966281967_)) - (___kont281966281967_)))) - (___kont281966281967_)))) - (___kont281966281967_)))) - (___kont281966281967_)))))) + _tl278419278467_)) + (___kont283176283177_ + _tl278413278451_ + _hd278420278465_) + (___kont283178283179_)))) + (___kont283178283179_)) + (___kont283178283179_)) + (___kont283178283179_)))) + (___kont283178283179_)))) + (___kont283178283179_)))) + (___kont283178283179_)))))) (define gxc#!predicate::optimize-call - (lambda (_self277145_ _stx277146_ _args277147_) - (let* ((_g277149277159_ - (lambda (_g277150277156_) + (lambda (_self278357_ _stx278358_ _args278359_) + (let* ((_g278361278371_ + (lambda (_g278362278368_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g277150277156_)))) - (_g277148277188_ - (lambda (_g277150277162_) + _g278362278368_)))) + (_g278360278400_ + (lambda (_g278362278374_) (if (let () (declare (not safe)) - (gx#stx-pair? _g277150277162_)) - (let ((_e277154277164_ + (gx#stx-pair? _g278362278374_)) + (let ((_e278366278376_ (let () (declare (not safe)) - (gx#stx-e _g277150277162_)))) - (let ((_hd277153277167_ + (gx#stx-e _g278362278374_)))) + (let ((_hd278365278379_ (let () (declare (not safe)) - (##car _e277154277164_))) - (_tl277152277169_ + (##car _e278366278376_))) + (_tl278364278381_ (let () (declare (not safe)) - (##cdr _e277154277164_)))) + (##cdr _e278366278376_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl277152277169_)) - ((lambda (_L277172_) - (let* ((_klass277183_ - (let ((__tmp282217 + (gx#stx-null? _tl278364278381_)) + ((lambda (_L278384_) + (let* ((_klass278395_ + (let ((__tmp283429 (##structure-ref - _self277145_ + _self278357_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx277146_ - __tmp282217))) - (_object277185_ + _stx278358_ + __tmp283429))) + (_object278397_ (let () (declare (not safe)) - (gxc#compile-e__0 _L277172_)))) + (gxc#compile-e__0 _L278384_)))) (if (##structure-ref - _klass277183_ + _klass278395_ '8 gxc#!class::t '#f) - (let ((__tmp282233 - (let ((__tmp282234 - (let ((__tmp282236 - (let ((__tmp282237 + (let ((__tmp283445 + (let ((__tmp283446 + (let ((__tmp283448 + (let ((__tmp283449 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282238 + (let ((__tmp283450 (##structure-ref - _klass277183_ + _klass278395_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282238 '())))) + (cons __tmp283450 '())))) (declare (not safe)) - (cons '%#quote __tmp282237))) - (__tmp282235 - (let () (declare (not safe)) (cons _object277185_ '())))) + (cons '%#quote __tmp283449))) + (__tmp283447 + (let () (declare (not safe)) (cons _object278397_ '())))) (declare (not safe)) - (cons __tmp282236 __tmp282235)))) + (cons __tmp283448 __tmp283447)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp282234)))) + __tmp283446)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282233 - _stx277146_)) + __tmp283445 + _stx278358_)) (if (##structure-ref - _klass277183_ + _klass278395_ '7 gxc#!class::t '#f) - (let ((__tmp282227 - (let ((__tmp282228 - (let ((__tmp282230 - (let ((__tmp282231 + (let ((__tmp283439 + (let ((__tmp283440 + (let ((__tmp283442 + (let ((__tmp283443 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282232 + (let ((__tmp283444 (##structure-ref - _klass277183_ + _klass278395_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282232 '())))) + (cons __tmp283444 '())))) (declare (not safe)) - (cons '%#quote __tmp282231))) - (__tmp282229 + (cons '%#quote __tmp283443))) + (__tmp283441 (let () (declare (not safe)) - (cons _object277185_ '())))) + (cons _object278397_ '())))) (declare (not safe)) - (cons __tmp282230 __tmp282229)))) + (cons __tmp283442 __tmp283441)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-instance? - __tmp282228)))) + __tmp283440)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282227 - _stx277146_)) - (let ((__tmp282218 - (let ((__tmp282219 - (let ((__tmp282225 - (let ((__tmp282226 + __tmp283439 + _stx278358_)) + (let ((__tmp283430 + (let ((__tmp283431 + (let ((__tmp283437 + (let ((__tmp283438 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp282226))) - (__tmp282220 - (let ((__tmp282222 - (let ((__tmp282223 - (let ((__tmp282224 + (cons '%#ref __tmp283438))) + (__tmp283432 + (let ((__tmp283434 + (let ((__tmp283435 + (let ((__tmp283436 (##structure-ref - _self277145_ + _self278357_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282224 '())))) + (cons __tmp283436 '())))) (declare (not safe)) - (cons '%#ref __tmp282223))) - (__tmp282221 + (cons '%#ref __tmp283435))) + (__tmp283433 (let () (declare (not safe)) - (cons _object277185_ '())))) + (cons _object278397_ '())))) (declare (not safe)) - (cons __tmp282222 __tmp282221)))) + (cons __tmp283434 __tmp283433)))) (declare (not safe)) - (cons __tmp282225 __tmp282220)))) + (cons __tmp283437 __tmp283432)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#call - __tmp282219)))) + __tmp283431)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282218 - _stx277146_)))))) - _hd277153277167_) + __tmp283430 + _stx278358_)))))) + _hd278365278379_) (let () (declare (not safe)) - (_g277149277159_ _g277150277162_))))) + (_g278361278371_ _g278362278374_))))) (let () (declare (not safe)) - (_g277149277159_ _g277150277162_)))))) + (_g278361278371_ _g278362278374_)))))) (declare (not safe)) - (_g277148277188_ _args277147_)))) + (_g278360278400_ _args278359_)))) (define gxc#!predicate::optimize-call::specialize - (lambda (__t281923) - (let ((__id281924 - (let ((__tmp281925 + (lambda (__t283135) + (let ((__id283136 + (let ((__tmp283137 (let () (declare (not safe)) - (class-slot-offset __t281923 'id)))) - (if __tmp281925 __tmp281925 (error '"Unknown slot" 'id))))) - (lambda (_self277145_ _stx277146_ _args277147_) - (let* ((_g277149277159_ - (lambda (_g277150277156_) + (class-slot-offset __t283135 'id)))) + (if __tmp283137 __tmp283137 (error '"Unknown slot" 'id))))) + (lambda (_self278357_ _stx278358_ _args278359_) + (let* ((_g278361278371_ + (lambda (_g278362278368_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g277150277156_)))) - (_g277148277188_ - (lambda (_g277150277162_) + _g278362278368_)))) + (_g278360278400_ + (lambda (_g278362278374_) (if (let () (declare (not safe)) - (gx#stx-pair? _g277150277162_)) - (let ((_e277154277164_ + (gx#stx-pair? _g278362278374_)) + (let ((_e278366278376_ (let () (declare (not safe)) - (gx#stx-e _g277150277162_)))) - (let ((_hd277153277167_ + (gx#stx-e _g278362278374_)))) + (let ((_hd278365278379_ (let () (declare (not safe)) - (##car _e277154277164_))) - (_tl277152277169_ + (##car _e278366278376_))) + (_tl278364278381_ (let () (declare (not safe)) - (##cdr _e277154277164_)))) + (##cdr _e278366278376_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl277152277169_)) - ((lambda (_L277172_) - (let* ((_klass277183_ - (let ((__tmp282239 + (gx#stx-null? _tl278364278381_)) + ((lambda (_L278384_) + (let* ((_klass278395_ + (let ((__tmp283451 (let () (declare (not safe)) (##unchecked-structure-ref - _self277145_ - __id281924 - __t281923 + _self278357_ + __id283136 + __t283135 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx277146_ - __tmp282239))) - (_object277185_ + _stx278358_ + __tmp283451))) + (_object278397_ (let () (declare (not safe)) - (gxc#compile-e__0 _L277172_)))) + (gxc#compile-e__0 _L278384_)))) (if (##structure-ref - _klass277183_ + _klass278395_ '8 gxc#!class::t '#f) - (let ((__tmp282255 - (let ((__tmp282256 - (let ((__tmp282258 - (let ((__tmp282259 + (let ((__tmp283467 + (let ((__tmp283468 + (let ((__tmp283470 + (let ((__tmp283471 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282260 + (let ((__tmp283472 (##structure-ref - _klass277183_ + _klass278395_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282260 '())))) + (cons __tmp283472 '())))) (declare (not safe)) - (cons '%#quote __tmp282259))) - (__tmp282257 + (cons '%#quote __tmp283471))) + (__tmp283469 (let () (declare (not safe)) - (cons _object277185_ '())))) + (cons _object278397_ '())))) (declare (not safe)) - (cons __tmp282258 __tmp282257)))) + (cons __tmp283470 __tmp283469)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#struct-direct-instance? - __tmp282256)))) + __tmp283468)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282255 - _stx277146_)) + __tmp283467 + _stx278358_)) (if (##structure-ref - _klass277183_ + _klass278395_ '7 gxc#!class::t '#f) - (let ((__tmp282249 - (let ((__tmp282250 - (let ((__tmp282252 + (let ((__tmp283461 + (let ((__tmp283462 + (let ((__tmp283464 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282253 - (let ((__tmp282254 + (let ((__tmp283465 + (let ((__tmp283466 (##structure-ref - _klass277183_ + _klass278395_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282254 '())))) + (cons __tmp283466 '())))) (declare (not safe)) - (cons '%#quote __tmp282253))) - (__tmp282251 + (cons '%#quote __tmp283465))) + (__tmp283463 (let () (declare (not safe)) - (cons _object277185_ '())))) + (cons _object278397_ '())))) (declare (not safe)) - (cons __tmp282252 __tmp282251)))) + (cons __tmp283464 __tmp283463)))) (declare (not safe)) - (cons '%#struct-instance? __tmp282250)))) + (cons '%#struct-instance? __tmp283462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282249 - _stx277146_)) - (let ((__tmp282240 - (let ((__tmp282241 - (let ((__tmp282247 + __tmp283461 + _stx278358_)) + (let ((__tmp283452 + (let ((__tmp283453 + (let ((__tmp283459 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282248 + (let ((__tmp283460 (let () (declare (not safe)) (cons 'class-instance? '())))) (declare (not safe)) - (cons '%#ref __tmp282248))) - (__tmp282242 - (let ((__tmp282244 - (let ((__tmp282245 - (let ((__tmp282246 + (cons '%#ref __tmp283460))) + (__tmp283454 + (let ((__tmp283456 + (let ((__tmp283457 + (let ((__tmp283458 (let () (declare (not safe)) (##unchecked-structure-ref - _self277145_ - __id281924 - __t281923 + _self278357_ + __id283136 + __t283135 '#f)))) (declare (not safe)) - (cons __tmp282246 '())))) + (cons __tmp283458 '())))) (declare (not safe)) - (cons '%#ref __tmp282245))) - (__tmp282243 + (cons '%#ref __tmp283457))) + (__tmp283455 (let () (declare (not safe)) - (cons _object277185_ '())))) + (cons _object278397_ '())))) (declare (not safe)) - (cons __tmp282244 __tmp282243)))) + (cons __tmp283456 __tmp283455)))) (declare (not safe)) - (cons __tmp282247 __tmp282242)))) + (cons __tmp283459 __tmp283454)))) (declare (not safe)) - (cons '%#call __tmp282241)))) + (cons '%#call __tmp283453)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282240 - _stx277146_)))))) - _hd277153277167_) + __tmp283452 + _stx278358_)))))) + _hd278365278379_) (let () (declare (not safe)) - (_g277149277159_ _g277150277162_))))) + (_g278361278371_ _g278362278374_))))) (let () (declare (not safe)) - (_g277149277159_ _g277150277162_)))))) + (_g278361278371_ _g278362278374_)))))) (declare (not safe)) - (_g277148277188_ _args277147_)))))) + (_g278360278400_ _args278359_)))))) (let () (declare (not safe)) (bind-specializer! @@ -600,220 +600,232 @@ gxc#!predicate::optimize-call '#f)) (define gxc#!constructor::optimize-call - (lambda (_self276876_ _stx276877_ _args276878_) - (let* ((_klass276880_ - (let ((__tmp282261 - (##structure-ref _self276876_ '1 gxc#!type::t '#f))) + (lambda (_self278077_ _stx278078_ _args278079_) + (let* ((_klass278081_ + (let ((__tmp283473 + (##structure-ref _self278077_ '1 gxc#!type::t '#f))) (declare (not safe)) - (gxc#optimizer-resolve-class _stx276877_ __tmp282261))) - (_fields276882_ - (length (##structure-ref _klass276880_ '5 gxc#!class::t '#f))) - (_args276884_ (map gxc#compile-e _args276878_)) - (_inline-make-object276886_ - (let ((__tmp282262 - (let ((__tmp282268 - (let ((__tmp282269 + (gxc#optimizer-resolve-class _stx278078_ __tmp283473))) + (_fields278083_ + (length (##structure-ref _klass278081_ '5 gxc#!class::t '#f))) + (_args278085_ (map gxc#compile-e _args278079_)) + (_inline-make-object278087_ + (let ((__tmp283474 + (let ((__tmp283480 + (let ((__tmp283481 (let () (declare (not safe)) (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp282269))) - (__tmp282263 - (let ((__tmp282265 - (let ((__tmp282266 - (let ((__tmp282267 + (cons '%#ref __tmp283481))) + (__tmp283475 + (let ((__tmp283477 + (let ((__tmp283478 + (let ((__tmp283479 (##structure-ref - _self276876_ + _self278077_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282267 '())))) + (cons __tmp283479 '())))) (declare (not safe)) - (cons '%#ref __tmp282266))) - (__tmp282264 - (make-list _fields276882_ '(%#quote #f)))) + (cons '%#ref __tmp283478))) + (__tmp283476 + (make-list _fields278083_ '(%#quote #f)))) (declare (not safe)) - (cons __tmp282265 __tmp282264)))) + (cons __tmp283477 __tmp283476)))) (declare (not safe)) - (cons __tmp282268 __tmp282263)))) + (cons __tmp283480 __tmp283475)))) (declare (not safe)) - (cons '%#call __tmp282262)))) - (let ((_$e276889_ - (##structure-ref _klass276880_ '6 gxc#!class::t '#f))) - (if _$e276889_ - ((lambda (_ctor276892_) - (let ((_$obj276894_ - (let ((__tmp282331 (gensym '__obj))) + (cons '%#call __tmp283474)))) + (let ((_$e278090_ + (##structure-ref _klass278081_ '6 gxc#!class::t '#f))) + (if _$e278090_ + ((lambda (_ctor278093_) + (let ((_$obj278095_ + (let ((__tmp283581 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp282331))) - (_ctor-impl276895_ + (make-symbol__0 __tmp283581))) + (_ctor-impl278096_ (let () (declare (not safe)) (gxc#!class-lookup-method - _klass276880_ - _ctor276892_)))) - (let ((__tmp282332 - (let ((__tmp282333 - (let ((__tmp282398 - (let ((__tmp282399 - (let ((__tmp282401 + _klass278081_ + _ctor278093_)))) + (let ((__tmp283582 + (let ((__tmp283583 + (let ((__tmp283651 + (let ((__tmp283652 + (let ((__tmp283654 (let () (declare (not safe)) - (cons _$obj276894_ + (cons _$obj278095_ '()))) - (__tmp282400 + (__tmp283653 (let () (declare (not safe)) - (cons _inline-make-object276886_ + (cons _inline-make-object278087_ '())))) (declare (not safe)) - (cons __tmp282401 - __tmp282400)))) + (cons __tmp283654 + __tmp283653)))) (declare (not safe)) - (cons __tmp282399 '()))) - (__tmp282334 - (let ((__tmp282335 - (let ((__tmp282336 - (let ((__tmp282340 - (if _ctor-impl276895_ + (cons __tmp283652 '()))) + (__tmp283584 + (let ((__tmp283585 + (let ((__tmp283586 + (let ((__tmp283590 + (if _ctor-impl278096_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282392 - (let ((__tmp282396 - (let ((__tmp282397 + (let ((__tmp283645 + (let ((__tmp283649 + (let ((__tmp283650 (let () (declare (not safe)) - (cons _ctor-impl276895_ + (cons _ctor-impl278096_ '())))) (declare (not safe)) - (cons '%#ref __tmp282397))) - (__tmp282393 - (let ((__tmp282394 - (let ((__tmp282395 + (cons '%#ref __tmp283650))) + (__tmp283646 + (let ((__tmp283647 + (let ((__tmp283648 (let () (declare (not safe)) - (cons _$obj276894_ + (cons _$obj278095_ '())))) (declare (not safe)) - (cons '%#ref __tmp282395)))) + (cons '%#ref __tmp283648)))) (declare (not safe)) - (cons __tmp282394 _args276884_)))) + (cons __tmp283647 _args278085_)))) (declare (not safe)) - (cons __tmp282396 __tmp282393)))) + (cons __tmp283649 __tmp283646)))) (declare (not safe)) - (cons '%#call __tmp282392)) - (let* ((_$ctor276897_ - (let ((__tmp282341 (gensym '__constructor))) + (cons '%#call __tmp283645)) + (let* ((_$ctor278098_ + (let ((__tmp283591 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp282341))) - (__tmp282342 - (let ((__tmp282377 - (let ((__tmp282378 - (let ((__tmp282391 + (make-symbol__0 __tmp283591))) + (__tmp283592 + (let ((__tmp283627 + (let ((__tmp283628 + (let ((__tmp283644 (let () (declare (not safe)) - (cons _$ctor276897_ + (cons _$ctor278098_ '()))) - (__tmp282379 - (let ((__tmp282380 - (let ((__tmp282381 + (__tmp283629 + (let ((__tmp283630 + (let ((__tmp283631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282389 - (let ((__tmp282390 + (let ((__tmp283642 + (let ((__tmp283643 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp282390))) - (__tmp282382 - (let ((__tmp282386 - (let ((__tmp282387 - (let ((__tmp282388 + (cons '%#ref __tmp283643))) + (__tmp283632 + (let ((__tmp283639 + (let ((__tmp283640 + (let ((__tmp283641 (##structure-ref - _self276876_ + _self278077_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282388 '())))) + (cons __tmp283641 '())))) (declare (not safe)) - (cons '%#ref __tmp282387))) - (__tmp282383 - (let ((__tmp282384 - (let ((__tmp282385 + (cons '%#ref __tmp283640))) + (__tmp283633 + (let ((__tmp283637 + (let ((__tmp283638 (let () (declare (not safe)) - (cons _ctor276892_ + (cons _$obj278095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#quote - __tmp282385)))) + (cons '%#ref + __tmp283638))) + (__tmp283634 + (let ((__tmp283635 + (let ((__tmp283636 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _ctor278093_ '())))) + (declare (not safe)) + (cons '%#quote __tmp283636)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp283635 '())))) (declare (not safe)) - (cons __tmp282384 '())))) + (cons __tmp283637 __tmp283634)))) (declare (not safe)) - (cons __tmp282386 __tmp282383)))) + (cons __tmp283639 __tmp283633)))) (declare (not safe)) - (cons __tmp282389 __tmp282382)))) + (cons __tmp283642 __tmp283632)))) (declare (not safe)) - (cons '%#call __tmp282381)))) + (cons '%#call __tmp283631)))) (declare (not safe)) - (cons __tmp282380 '())))) + (cons __tmp283630 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282391 - __tmp282379)))) + (cons __tmp283644 + __tmp283629)))) (declare (not safe)) - (cons __tmp282378 '()))) - (__tmp282343 - (let ((__tmp282344 - (let ((__tmp282345 - (let ((__tmp282375 - (let ((__tmp282376 + (cons __tmp283628 '()))) + (__tmp283593 + (let ((__tmp283594 + (let ((__tmp283595 + (let ((__tmp283625 + (let ((__tmp283626 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$ctor276897_ '())))) + (cons _$ctor278098_ '())))) (declare (not safe)) - (cons '%#ref __tmp282376))) - (__tmp282346 - (let ((__tmp282368 - (let ((__tmp282369 - (let ((__tmp282373 - (let ((__tmp282374 + (cons '%#ref __tmp283626))) + (__tmp283596 + (let ((__tmp283618 + (let ((__tmp283619 + (let ((__tmp283623 + (let ((__tmp283624 (let () (declare (not safe)) - (cons _$ctor276897_ + (cons _$ctor278098_ '())))) (declare (not safe)) - (cons '%#ref __tmp282374))) - (__tmp282370 - (let ((__tmp282371 - (let ((__tmp282372 + (cons '%#ref __tmp283624))) + (__tmp283620 + (let ((__tmp283621 + (let ((__tmp283622 (let () (declare (not safe)) - (cons _$obj276894_ + (cons _$obj278095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp282372)))) + __tmp283622)))) (declare (not safe)) - (cons __tmp282371 - _args276884_)))) + (cons __tmp283621 + _args278085_)))) (declare (not safe)) - (cons __tmp282373 __tmp282370)))) + (cons __tmp283623 __tmp283620)))) (declare (not safe)) - (cons '%#call __tmp282369))) - (__tmp282347 - (let ((__tmp282348 - (let ((__tmp282349 - (let ((__tmp282366 - (let ((__tmp282367 + (cons '%#call __tmp283619))) + (__tmp283597 + (let ((__tmp283598 + (let ((__tmp283599 + (let ((__tmp283616 + (let ((__tmp283617 (let () (declare (not safe)) @@ -823,1315 +835,1704 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp282367))) - (__tmp282350 - (let ((__tmp282364 - (let ((__tmp282365 + __tmp283617))) + (__tmp283600 + (let ((__tmp283614 + (let ((__tmp283615 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp282365))) - (__tmp282351 - (let ((__tmp282362 - (let ((__tmp282363 + (cons '%#quote __tmp283615))) + (__tmp283601 + (let ((__tmp283612 + (let ((__tmp283613 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp282363))) - (__tmp282352 - (let ((__tmp282359 - (let ((__tmp282360 - (let ((__tmp282361 + (cons '%#quote __tmp283613))) + (__tmp283602 + (let ((__tmp283609 + (let ((__tmp283610 + (let ((__tmp283611 (##structure-ref - _self276876_ + _self278077_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282361 '())))) + (cons __tmp283611 '())))) (declare (not safe)) - (cons '%#ref __tmp282360))) - (__tmp282353 - (let ((__tmp282357 - (let ((__tmp282358 + (cons '%#ref __tmp283610))) + (__tmp283603 + (let ((__tmp283607 + (let ((__tmp283608 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp282358))) - (__tmp282354 - (let ((__tmp282355 - (let ((__tmp282356 + (cons '%#quote __tmp283608))) + (__tmp283604 + (let ((__tmp283605 + (let ((__tmp283606 (let () (declare (not safe)) - (cons _ctor276892_ + (cons _ctor278093_ '())))) (declare (not safe)) - (cons '%#quote __tmp282356)))) + (cons '%#quote __tmp283606)))) (declare (not safe)) - (cons __tmp282355 '())))) + (cons __tmp283605 '())))) (declare (not safe)) - (cons __tmp282357 __tmp282354)))) + (cons __tmp283607 __tmp283604)))) (declare (not safe)) - (cons __tmp282359 __tmp282353)))) + (cons __tmp283609 __tmp283603)))) (declare (not safe)) - (cons __tmp282362 __tmp282352)))) + (cons __tmp283612 __tmp283602)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282364 - __tmp282351)))) + (cons __tmp283614 + __tmp283601)))) (declare (not safe)) - (cons __tmp282366 __tmp282350)))) + (cons __tmp283616 __tmp283600)))) (declare (not safe)) - (cons '%#call __tmp282349)))) + (cons '%#call __tmp283599)))) (declare (not safe)) - (cons __tmp282348 '())))) + (cons __tmp283598 '())))) (declare (not safe)) - (cons __tmp282368 __tmp282347)))) + (cons __tmp283618 __tmp283597)))) (declare (not safe)) - (cons __tmp282375 __tmp282346)))) + (cons __tmp283625 __tmp283596)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp282345)))) + (cons '%#if __tmp283595)))) (declare (not safe)) - (cons __tmp282344 '())))) + (cons __tmp283594 '())))) (declare (not safe)) - (cons __tmp282377 __tmp282343)))) + (cons __tmp283627 __tmp283593)))) (declare (not safe)) - (cons '%#let-values __tmp282342)))) - (__tmp282337 - (let ((__tmp282338 - (let ((__tmp282339 + (cons '%#let-values __tmp283592)))) + (__tmp283587 + (let ((__tmp283588 + (let ((__tmp283589 (let () (declare (not safe)) - (cons _$obj276894_ '())))) + (cons _$obj278095_ '())))) (declare (not safe)) - (cons '%#ref __tmp282339)))) + (cons '%#ref __tmp283589)))) (declare (not safe)) - (cons __tmp282338 '())))) + (cons __tmp283588 '())))) (declare (not safe)) - (cons __tmp282340 __tmp282337)))) + (cons __tmp283590 __tmp283587)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#begin - __tmp282336)))) + __tmp283586)))) (declare (not safe)) - (cons __tmp282335 '())))) + (cons __tmp283585 '())))) (declare (not safe)) - (cons __tmp282398 __tmp282334)))) + (cons __tmp283651 __tmp283584)))) (declare (not safe)) - (cons '%#let-values __tmp282333)))) + (cons '%#let-values __tmp283583)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282332 _stx276877_)))) - _$e276889_) - (if (##structure-ref _klass276880_ '7 gxc#!class::t '#f) - (if (fx= (length _args276884_) _fields276882_) - (let ((__tmp282323 - (let ((__tmp282324 - (let ((__tmp282329 - (let ((__tmp282330 - (let () - (declare (not safe)) - (cons '##structure - '())))) - (declare (not safe)) - (cons '%#ref __tmp282330))) - (__tmp282325 - (let ((__tmp282326 - (let ((__tmp282327 - (let ((__tmp282328 + (gxc#xform-wrap-source __tmp283582 _stx278078_)))) + _$e278090_) + (let ((_$e278100_ + (##structure-ref _klass278081_ '9 gxc#!class::t '#f))) + (if _$e278100_ + ((lambda (_metaclass278103_) + (let* ((_$obj278105_ + (let ((__tmp283543 (gensym '__obj))) + (declare (not safe)) + (make-symbol__0 __tmp283543))) + (_metakons278107_ + (let ((__tmp283544 + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _stx278078_ + _metaclass278103_)))) + (declare (not safe)) + (gxc#!class-lookup-method + __tmp283544 + 'instance-init!)))) + (let ((__tmp283545 + (let ((__tmp283546 + (let ((__tmp283577 + (let ((__tmp283578 + (let ((__tmp283580 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self276876_ '1 gxc#!type::t '#f))) - (declare (not safe)) - (cons __tmp282328 '())))) - (declare (not safe)) - (cons '%#ref __tmp282327)))) + (not safe)) + (cons _$obj278105_ '()))) + (__tmp283579 + (let () + (declare (not safe)) + (cons _inline-make-object278087_ '())))) + (declare (not safe)) + (cons __tmp283580 __tmp283579)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp282326 - _args276884_)))) - (declare (not safe)) - (cons __tmp282329 __tmp282325)))) - (declare (not safe)) - (cons '%#call __tmp282324)))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp282323 _stx276877_)) - (let ((__tmp282322 - (##structure-ref - _self276876_ - '1 - gxc#!type::t - '#f)) - (__tmp282321 - (length (##structure-ref - _klass276880_ - '5 - gxc#!class::t - '#f)))) - (declare (not safe)) - (gxc#raise-compile-error - '"illegal struct constructor application; arity mismatch" - _stx276877_ - __tmp282322 - __tmp282321))) - (let ((_$obj276899_ - (let ((__tmp282270 (gensym '__obj))) - (declare (not safe)) - (make-symbol__0 __tmp282270)))) - (let _lp276901_ ((_rest276903_ _args276884_) - (_initializers276904_ '())) - (let* ((___stx282000282001_ _rest276903_) - (_g276908276929_ - (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - ___stx282000282001_))))) - (let ((___kont282002282003_ - (lambda (_L276983_ _L276984_ _L276985_) - (let* ((_slot277015_ - (keyword->symbol - (let () - (declare (not safe)) - (gx#stx-e _L276985_)))) - (_off277017_ - (let () - (declare (not safe)) - (gxc#!class-slot->field-offset - _klass276880_ - _slot277015_)))) - (if _off277017_ - (let ((__tmp282272 - (let ((__tmp282273 - (let () - (declare (not safe)) - (cons _off277017_ - _L276984_)))) (declare (not safe)) - (cons __tmp282273 - _initializers276904_)))) - (declare (not safe)) - (_lp276901_ _L276983_ __tmp282272)) - (let ((__tmp282271 - (##structure-ref - _self276876_ - '1 - gxc#!type::t - '#f))) - (declare (not safe)) - (gxc#raise-compile-error - '"unknown slot" - _stx276877_ - __tmp282271 - _slot277015_)))))) - (___kont282004282005_ - (lambda () - (let ((__tmp282274 - (let ((__tmp282275 - (let ((__tmp282298 - (let ((__tmp282299 - (let ((__tmp282301 + (cons __tmp283578 '()))) + (__tmp283547 + (let ((__tmp283548 + (let ((__tmp283549 + (let ((__tmp283553 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (cons _$obj276899_ '()))) - (__tmp282300 - (let () - (declare (not safe)) - (cons _inline-make-object276886_ '())))) - (declare (not safe)) - (cons __tmp282301 __tmp282300)))) - (declare (not safe)) - (cons __tmp282299 '()))) - (__tmp282276 - (let ((__tmp282277 - (let ((__tmp282278 - (let ((__tmp282295 - (let ((__tmp282296 - (let ((__tmp282297 - (let () - (declare (not safe)) - (cons _$obj276899_ '())))) - (declare (not safe)) - (cons '%#ref __tmp282297)))) - (declare (not safe)) - (cons __tmp282296 '()))) - (__tmp282279 - (let ((__tmp282280 - (lambda (_i276943_ _r276944_) - (let ((__tmp282281 - (let ((__tmp282282 - (let ((__tmp282292 + (if _metakons278107_ + (let ((__tmp283567 + (let ((__tmp283575 + (let ((__tmp283576 + (let () + (declare (not safe)) + (cons _metakons278107_ + '())))) + (declare (not safe)) + (cons '%#ref __tmp283576))) + (__tmp283568 + (let ((__tmp283572 + (let ((__tmp283573 + (let ((__tmp283574 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282293 - (let ((__tmp282294 - (##structure-ref - _self276876_ - '1 - gxc#!type::t - '#f))) - (declare (not safe)) - (cons __tmp282294 '())))) - (declare (not safe)) - (cons '%#ref __tmp282293))) - (__tmp282283 - (let ((__tmp282289 - (let ((__tmp282290 - (let ((__tmp282291 (car _i276943_))) - (declare (not safe)) - (cons __tmp282291 '())))) - (declare (not safe)) - (cons '%#quote __tmp282290))) - (__tmp282284 - (let ((__tmp282287 - (let ((__tmp282288 - (let () + (##structure-ref + _self278077_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (cons __tmp283574 '())))) + (declare (not safe)) + (cons '%#ref __tmp283573))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp283569 + (let ((__tmp283570 + (let ((__tmp283571 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _$obj278105_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283571)))) + (declare (not safe)) + (cons __tmp283570 _args278085_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp283572 + __tmp283569)))) + (declare (not safe)) + (cons __tmp283575 __tmp283568)))) + (declare (not safe)) + (cons '%#call __tmp283567)) + (let ((__tmp283554 + (let ((__tmp283565 + (let ((__tmp283566 + (let () + (declare (not safe)) + (cons 'call-method + '())))) + (declare (not safe)) + (cons '%#ref __tmp283566))) + (__tmp283555 + (let ((__tmp283562 + (let ((__tmp283563 + (let ((__tmp283564 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (##structure-ref + _self278077_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (cons __tmp283564 '())))) + (declare (not safe)) + (cons '%#ref __tmp283563))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp283556 + (let ((__tmp283560 + (let ((__tmp283561 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons 'instance-init! '())))) + (declare (not safe)) + (cons '%#quote __tmp283561))) + (__tmp283557 + (let ((__tmp283558 + (let ((__tmp283559 + (let () + (declare (not safe)) + (cons _$obj278105_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283559)))) + (declare (not safe)) + (cons __tmp283558 _args278085_)))) + (declare (not safe)) + (cons __tmp283560 __tmp283557)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp283562 + __tmp283556)))) + (declare (not safe)) + (cons __tmp283565 __tmp283555)))) + (declare (not safe)) + (cons '%#call __tmp283554)))) + (__tmp283550 + (let ((__tmp283551 + (let ((__tmp283552 + (let () + (declare (not safe)) + (cons _$obj278105_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283552)))) + (declare (not safe)) + (cons __tmp283551 '())))) + (declare (not safe)) + (cons __tmp283553 __tmp283550)))) + (declare (not safe)) + (cons '%#begin __tmp283549)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _$obj276899_ '())))) + (cons __tmp283548 '())))) (declare (not safe)) - (cons '%#ref __tmp282288))) - (__tmp282285 - (let ((__tmp282286 (cdr _i276943_))) - (declare (not safe)) - (cons __tmp282286 '())))) + (cons __tmp283577 __tmp283547)))) (declare (not safe)) - (cons __tmp282287 __tmp282285)))) + (cons '%#let-values __tmp283546)))) (declare (not safe)) - (cons __tmp282289 __tmp282284)))) - (declare (not safe)) - (cons __tmp282292 __tmp282283)))) - (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp282282)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp282281 - _r276944_))))) - (declare (not safe)) - (foldl1 __tmp282280 - '() - _initializers276904_)))) - (declare (not safe)) - (foldr1 cons __tmp282295 __tmp282279)))) - (declare (not safe)) - (cons '%#begin __tmp282278)))) - (declare (not safe)) - (cons __tmp282277 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp282298 - __tmp282276)))) - (declare (not safe)) - (cons '%#let-values __tmp282275)))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp282274 - _stx276877_)))) - (___kont282006282007_ - (lambda () - (let ((__tmp282302 - (let ((__tmp282303 - (let ((__tmp282317 - (let ((__tmp282318 - (let ((__tmp282320 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (cons _$obj276899_ '()))) - (__tmp282319 - (let () - (declare (not safe)) - (cons _inline-make-object276886_ '())))) - (declare (not safe)) - (cons __tmp282320 __tmp282319)))) - (declare (not safe)) - (cons __tmp282318 '()))) - (__tmp282304 - (let ((__tmp282305 - (let ((__tmp282306 - (let ((__tmp282310 - (let ((__tmp282311 - (let ((__tmp282315 - (let ((__tmp282316 + (gxc#xform-wrap-source __tmp283545 _stx278078_)))) + _$e278100_) + (if (##structure-ref _klass278081_ '7 gxc#!class::t '#f) + (if (fx= (length _args278085_) _fields278083_) + (let ((__tmp283535 + (let ((__tmp283536 + (let ((__tmp283541 + (let ((__tmp283542 (let () (declare (not safe)) - (cons 'class-instance-init! + (cons '##structure ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp282316))) - (__tmp282312 - (let ((__tmp282313 - (let ((__tmp282314 + __tmp283542))) + (__tmp283537 + (let ((__tmp283538 + (let ((__tmp283539 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () + (let ((__tmp283540 + (##structure-ref + _self278077_ + '1 + gxc#!type::t + '#f))) (declare (not safe)) - (cons _$obj276899_ '())))) + (cons __tmp283540 '())))) (declare (not safe)) - (cons '%#ref __tmp282314)))) + (cons '%#ref __tmp283539)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282313 - _args276884_)))) - (declare (not safe)) - (cons __tmp282315 __tmp282312)))) - (declare (not safe)) - (cons '%#call __tmp282311))) - (__tmp282307 - (let ((__tmp282308 - (let ((__tmp282309 - (let () - (declare (not safe)) - (cons _$obj276899_ '())))) + (cons __tmp283538 + _args278085_)))) (declare (not safe)) - (cons '%#ref __tmp282309)))) + (cons __tmp283541 __tmp283537)))) (declare (not safe)) - (cons __tmp282308 '())))) + (cons '%#call __tmp283536)))) (declare (not safe)) - (cons __tmp282310 __tmp282307)))) - (declare (not safe)) - (cons '%#begin __tmp282306)))) - (declare (not safe)) - (cons __tmp282305 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp282317 - __tmp282304)))) - (declare (not safe)) - (cons '%#let-values __tmp282303)))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp282302 - _stx276877_))))) - (let* ((_g276906276946_ - (lambda () - (if (let () - (declare (not safe)) - (gx#stx-null? ___stx282000282001_)) - (___kont282004282005_) - (___kont282006282007_)))) - (___match282037282038_ - (lambda (_e276915276951_ - _hd276914276954_ - _tl276913276956_ - _e276918276959_ - _hd276917276962_ - _tl276916276964_ - _e276921276967_ - _hd276920276970_ - _tl276919276972_ - _e276924276975_ - _hd276923276978_ - _tl276922276980_) - (let ((_L276983_ _tl276922276980_) - (_L276984_ _hd276923276978_) - (_L276985_ _hd276920276970_)) - (if (let () - (declare (not safe)) - (gx#stx-keyword? _L276985_)) - (___kont282002282003_ - _L276983_ - _L276984_ - _L276985_) - (___kont282006282007_)))))) - (if (let () - (declare (not safe)) - (gx#stx-pair? ___stx282000282001_)) - (let ((_e276915276951_ - (let () - (declare (not safe)) - (gx#stx-e ___stx282000282001_)))) - (let ((_tl276913276956_ - (let () - (declare (not safe)) - (##cdr _e276915276951_))) - (_hd276914276954_ - (let () - (declare (not safe)) - (##car _e276915276951_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? _hd276914276954_)) - (let ((_e276918276959_ + (gxc#xform-wrap-source + __tmp283535 + _stx278078_)) + (let ((__tmp283534 + (##structure-ref + _self278077_ + '1 + gxc#!type::t + '#f)) + (__tmp283533 + (length (##structure-ref + _klass278081_ + '5 + gxc#!class::t + '#f)))) + (declare (not safe)) + (gxc#raise-compile-error + '"illegal struct constructor application; arity mismatch" + _stx278078_ + __tmp283534 + __tmp283533))) + (let ((_$obj278110_ + (let ((__tmp283482 (gensym '__obj))) + (declare (not safe)) + (make-symbol__0 __tmp283482)))) + (let _lp278112_ ((_rest278114_ _args278085_) + (_initializers278115_ '())) + (let* ((___stx283212283213_ _rest278114_) + (_g278119278140_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___stx283212283213_))))) + (let ((___kont283214283215_ + (lambda (_L278194_ _L278195_ _L278196_) + (let* ((_slot278227_ + (keyword->symbol + (let () + (declare (not safe)) + (gx#stx-e _L278196_)))) + (_off278229_ (let () (declare (not safe)) - (gx#stx-e - _hd276914276954_)))) - (let ((_tl276916276964_ - (let () - (declare (not safe)) - (##cdr _e276918276959_))) - (_hd276917276962_ - (let () - (declare (not safe)) - (##car _e276918276959_)))) - (if (let () + (gxc#!class-slot->field-offset + _klass278081_ + _slot278227_)))) + (if _off278229_ + (let ((__tmp283484 + (let ((__tmp283485 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _off278229_ _L278195_)))) + (declare (not safe)) + (cons __tmp283485 _initializers278115_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp278112_ + _L278194_ + __tmp283484)) + (let ((__tmp283483 + (##structure-ref + _self278077_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (gxc#raise-compile-error + '"unknown slot" + _stx278078_ + __tmp283483 + _slot278227_)))))) + (___kont283216283217_ + (lambda () + (let ((__tmp283486 + (let ((__tmp283487 + (let ((__tmp283510 + (let ((__tmp283511 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp283513 + (let () + (declare (not safe)) + (cons _$obj278110_ '()))) + (__tmp283512 + (let () + (declare (not safe)) + (cons _inline-make-object278087_ '())))) + (declare (not safe)) + (cons __tmp283513 __tmp283512)))) + (declare (not safe)) + (cons __tmp283511 '()))) + (__tmp283488 + (let ((__tmp283489 + (let ((__tmp283490 + (let ((__tmp283507 + (let ((__tmp283508 + (let ((__tmp283509 + (let () + (declare (not safe)) + (cons _$obj278110_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gx#identifier? - _hd276917276962_)) - (if (let () - (declare (not safe)) - (gx#stx-eq? - '%#quote - _hd276917276962_)) - (if (let () - (declare - (not safe)) - (gx#stx-pair? - _tl276916276964_)) - (let ((_e276921276967_ + (cons '%#ref + __tmp283509)))) + (declare (not safe)) + (cons __tmp283508 '()))) + (__tmp283491 + (let ((__tmp283492 + (lambda (_i278154_ _r278155_) + (let ((__tmp283493 + (let ((__tmp283494 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#stx-e _tl276916276964_)))) - (let ((_tl276919276972_ - (let () - (declare (not safe)) - (##cdr _e276921276967_))) - (_hd276920276970_ - (let () - (declare (not safe)) - (##car _e276921276967_)))) - (if (let () + (let ((__tmp283504 + (let ((__tmp283505 + (let ((__tmp283506 + (##structure-ref + _self278077_ + '1 + gxc#!type::t + '#f))) + (declare (not safe)) + (cons __tmp283506 '())))) + (declare (not safe)) + (cons '%#ref __tmp283505))) + (__tmp283495 + (let ((__tmp283501 + (let ((__tmp283502 + (let ((__tmp283503 + (car _i278154_))) + (declare (not safe)) + (cons __tmp283503 '())))) + (declare (not safe)) + (cons '%#quote __tmp283502))) + (__tmp283496 + (let ((__tmp283499 + (let ((__tmp283500 + (let () + (declare (not safe)) + (cons _$obj278110_ + '())))) + (declare (not safe)) + (cons '%#ref __tmp283500))) + (__tmp283497 + (let ((__tmp283498 + (cdr _i278154_))) + (declare (not safe)) + (cons __tmp283498 '())))) + (declare (not safe)) + (cons __tmp283499 __tmp283497)))) + (declare (not safe)) + (cons __tmp283501 __tmp283496)))) (declare (not safe)) - (gx#stx-null? _tl276919276972_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _tl276913276956_)) - (let ((_e276924276975_ - (let () - (declare (not safe)) - (gx#stx-e _tl276913276956_)))) - (let ((_tl276922276980_ - (let () - (declare (not safe)) - (##cdr _e276924276975_))) - (_hd276923276978_ - (let () - (declare (not safe)) - (##car _e276924276975_)))) - (___match282037282038_ - _e276915276951_ - _hd276914276954_ - _tl276913276956_ - _e276918276959_ - _hd276917276962_ - _tl276916276964_ - _e276921276967_ - _hd276920276970_ - _tl276919276972_ - _e276924276975_ - _hd276923276978_ - _tl276922276980_))) - (___kont282006282007_)) - (___kont282006282007_)))) - (___kont282006282007_)) - (___kont282006282007_)) + (cons __tmp283504 __tmp283495)))) + (declare (not safe)) + (cons '%#struct-unchecked-set! __tmp283494)))) + (declare (not safe)) + (cons __tmp283493 _r278155_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont282006282007_)))) - (___kont282006282007_)))) - (let () - (declare (not safe)) - (_g276906276946_)))))))))))))) - (define gxc#!constructor::optimize-call::specialize - (lambda (__t281926) - (let ((__id281927 - (let ((__tmp281928 - (let () + (declare (not safe)) + (foldl1 __tmp283492 + '() + _initializers278115_)))) + (declare (not safe)) + (foldr1 cons __tmp283507 __tmp283491)))) + (declare (not safe)) + (cons '%#begin __tmp283490)))) (declare (not safe)) - (class-slot-offset __t281926 'id)))) - (if __tmp281928 __tmp281928 (error '"Unknown slot" 'id))))) - (lambda (_self276876_ _stx276877_ _args276878_) - (let* ((_klass276880_ - (let ((__tmp282402 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 - '#f)))) - (declare (not safe)) - (gxc#optimizer-resolve-class _stx276877_ __tmp282402))) - (_fields276882_ - (length (##structure-ref - _klass276880_ - '5 - gxc#!class::t - '#f))) - (_args276884_ (map gxc#compile-e _args276878_)) - (_inline-make-object276886_ - (let ((__tmp282403 - (let ((__tmp282409 - (let ((__tmp282410 - (let () - (declare (not safe)) - (cons '##structure '())))) - (declare (not safe)) - (cons '%#ref __tmp282410))) - (__tmp282404 - (let ((__tmp282406 - (let ((__tmp282407 - (let ((__tmp282408 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 - '#f)))) + (cons __tmp283489 '())))) + (declare (not safe)) + (cons __tmp283510 __tmp283488)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282408 '())))) + (cons '%#let-values + __tmp283487)))) (declare (not safe)) - (cons '%#ref __tmp282407))) - (__tmp282405 - (make-list - _fields276882_ - '(%#quote #f)))) - (declare (not safe)) - (cons __tmp282406 __tmp282405)))) - (declare (not safe)) - (cons __tmp282409 __tmp282404)))) - (declare (not safe)) - (cons '%#call __tmp282403)))) - (let ((_$e276889_ - (##structure-ref _klass276880_ '6 gxc#!class::t '#f))) - (if _$e276889_ - ((lambda (_ctor276892_) - (let ((_$obj276894_ - (let ((__tmp282472 (gensym '__obj))) - (declare (not safe)) - (make-symbol__0 __tmp282472))) - (_ctor-impl276895_ - (let () - (declare (not safe)) - (gxc#!class-lookup-method - _klass276880_ - _ctor276892_)))) - (let ((__tmp282473 - (let ((__tmp282474 - (let ((__tmp282539 - (let ((__tmp282540 - (let ((__tmp282542 + (gxc#xform-wrap-source + __tmp283486 + _stx278078_)))) + (___kont283218283219_ + (lambda () + (let ((__tmp283514 + (let ((__tmp283515 + (let ((__tmp283529 + (let ((__tmp283530 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp283532 + (let () + (declare (not safe)) + (cons _$obj278110_ '()))) + (__tmp283531 + (let () + (declare (not safe)) + (cons _inline-make-object278087_ '())))) + (declare (not safe)) + (cons __tmp283532 __tmp283531)))) + (declare (not safe)) + (cons __tmp283530 '()))) + (__tmp283516 + (let ((__tmp283517 + (let ((__tmp283518 + (let ((__tmp283522 + (let ((__tmp283523 + (let ((__tmp283527 + (let ((__tmp283528 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons 'class-instance-init! '())))) + (declare (not safe)) + (cons '%#ref __tmp283528))) + (__tmp283524 + (let ((__tmp283525 + (let ((__tmp283526 + (let () + (declare (not safe)) + (cons _$obj278110_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283526)))) + (declare (not safe)) + (cons __tmp283525 _args278085_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp283527 + __tmp283524)))) + (declare (not safe)) + (cons '%#call __tmp283523))) + (__tmp283519 + (let ((__tmp283520 + (let ((__tmp283521 + (let () + (declare (not safe)) + (cons _$obj278110_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref + __tmp283521)))) + (declare (not safe)) + (cons __tmp283520 '())))) + (declare (not safe)) + (cons __tmp283522 __tmp283519)))) + (declare (not safe)) + (cons '%#begin __tmp283518)))) + (declare (not safe)) + (cons __tmp283517 '())))) + (declare (not safe)) + (cons __tmp283529 __tmp283516)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#let-values + __tmp283515)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp283514 + _stx278078_))))) + (let* ((_g278117278157_ + (lambda () + (if (let () + (declare (not safe)) + (gx#stx-null? + ___stx283212283213_)) + (___kont283216283217_) + (___kont283218283219_)))) + (___match283249283250_ + (lambda (_e278126278162_ + _hd278125278165_ + _tl278124278167_ + _e278129278170_ + _hd278128278173_ + _tl278127278175_ + _e278132278178_ + _hd278131278181_ + _tl278130278183_ + _e278135278186_ + _hd278134278189_ + _tl278133278191_) + (let ((_L278194_ _tl278133278191_) + (_L278195_ _hd278134278189_) + (_L278196_ _hd278131278181_)) + (if (let () + (declare (not safe)) + (gx#stx-keyword? + _L278196_)) + (___kont283214283215_ + _L278194_ + _L278195_ + _L278196_) + (___kont283218283219_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? ___stx283212283213_)) + (let ((_e278126278162_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx283212283213_)))) + (let ((_tl278124278167_ + (let () + (declare (not safe)) + (##cdr _e278126278162_))) + (_hd278125278165_ + (let () + (declare (not safe)) + (##car _e278126278162_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd278125278165_)) + (let ((_e278129278170_ + (let () + (declare (not safe)) + (gx#stx-e + _hd278125278165_)))) + (let ((_tl278127278175_ + (let () + (declare (not safe)) + (##cdr _e278129278170_))) + (_hd278128278173_ + (let () + (declare (not safe)) + (##car _e278129278170_)))) + (if (let () + (declare (not safe)) + (gx#identifier? + _hd278128278173_)) + (if (let () + (declare + (not safe)) + (gx#stx-eq? + '%#quote + _hd278128278173_)) + (if (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (gx#stx-pair? _tl278127278175_)) + (let ((_e278132278178_ + (let () + (declare (not safe)) + (gx#stx-e _tl278127278175_)))) + (let ((_tl278130278183_ + (let () + (declare (not safe)) + (##cdr _e278132278178_))) + (_hd278131278181_ + (let () + (declare (not safe)) + (##car _e278132278178_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl278130278183_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl278124278167_)) + (let ((_e278135278186_ + (let () + (declare (not safe)) + (gx#stx-e _tl278124278167_)))) + (let ((_tl278133278191_ + (let () + (declare (not safe)) + (##cdr _e278135278186_))) + (_hd278134278189_ + (let () + (declare (not safe)) + (##car _e278135278186_)))) + (___match283249283250_ + _e278126278162_ + _hd278125278165_ + _tl278124278167_ + _e278129278170_ + _hd278128278173_ + _tl278127278175_ + _e278132278178_ + _hd278131278181_ + _tl278130278183_ + _e278135278186_ + _hd278134278189_ + _tl278133278191_))) + (___kont283218283219_)) + (___kont283218283219_)))) + (___kont283218283219_)) + (___kont283218283219_)) + (___kont283218283219_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont283218283219_)))) + (let () + (declare (not safe)) + (_g278117278157_)))))))))))))))) + (define gxc#!constructor::optimize-call::specialize + (lambda (__t283138) + (let ((__id283139 + (let ((__tmp283140 + (let () + (declare (not safe)) + (class-slot-offset __t283138 'id)))) + (if __tmp283140 __tmp283140 (error '"Unknown slot" 'id))))) + (lambda (_self278077_ _stx278078_ _args278079_) + (let* ((_klass278081_ + (let ((__tmp283655 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f)))) + (declare (not safe)) + (gxc#optimizer-resolve-class _stx278078_ __tmp283655))) + (_fields278083_ + (length (##structure-ref + _klass278081_ + '5 + gxc#!class::t + '#f))) + (_args278085_ (map gxc#compile-e _args278079_)) + (_inline-make-object278087_ + (let ((__tmp283656 + (let ((__tmp283662 + (let ((__tmp283663 + (let () + (declare (not safe)) + (cons '##structure '())))) + (declare (not safe)) + (cons '%#ref __tmp283663))) + (__tmp283657 + (let ((__tmp283659 + (let ((__tmp283660 + (let ((__tmp283661 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f)))) + (declare (not safe)) + (cons __tmp283661 '())))) + (declare (not safe)) + (cons '%#ref __tmp283660))) + (__tmp283658 + (make-list + _fields278083_ + '(%#quote #f)))) + (declare (not safe)) + (cons __tmp283659 __tmp283658)))) + (declare (not safe)) + (cons __tmp283662 __tmp283657)))) + (declare (not safe)) + (cons '%#call __tmp283656)))) + (let ((_$e278090_ + (##structure-ref _klass278081_ '6 gxc#!class::t '#f))) + (if _$e278090_ + ((lambda (_ctor278093_) + (let ((_$obj278095_ + (let ((__tmp283763 (gensym '__obj))) + (declare (not safe)) + (make-symbol__0 __tmp283763))) + (_ctor-impl278096_ + (let () + (declare (not safe)) + (gxc#!class-lookup-method + _klass278081_ + _ctor278093_)))) + (let ((__tmp283764 + (let ((__tmp283765 + (let ((__tmp283833 + (let ((__tmp283834 + (let ((__tmp283836 (let () (declare (not safe)) - (cons _$obj276894_ + (cons _$obj278095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp282541 + (__tmp283835 (let () (declare (not safe)) - (cons _inline-make-object276886_ '())))) + (cons _inline-make-object278087_ '())))) (declare (not safe)) - (cons __tmp282542 __tmp282541)))) + (cons __tmp283836 __tmp283835)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282540 '()))) - (__tmp282475 - (let ((__tmp282476 - (let ((__tmp282477 - (let ((__tmp282481 + (cons __tmp283834 '()))) + (__tmp283766 + (let ((__tmp283767 + (let ((__tmp283768 + (let ((__tmp283772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _ctor-impl276895_ - (let ((__tmp282533 - (let ((__tmp282537 - (let ((__tmp282538 + (if _ctor-impl278096_ + (let ((__tmp283827 + (let ((__tmp283831 + (let ((__tmp283832 (let () (declare (not safe)) - (cons _ctor-impl276895_ + (cons _ctor-impl278096_ '())))) (declare (not safe)) - (cons '%#ref __tmp282538))) - (__tmp282534 - (let ((__tmp282535 - (let ((__tmp282536 + (cons '%#ref __tmp283832))) + (__tmp283828 + (let ((__tmp283829 + (let ((__tmp283830 (let () (declare (not safe)) - (cons _$obj276894_ + (cons _$obj278095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp282536)))) + (cons '%#ref __tmp283830)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282535 - _args276884_)))) + (cons __tmp283829 + _args278085_)))) (declare (not safe)) - (cons __tmp282537 __tmp282534)))) + (cons __tmp283831 __tmp283828)))) (declare (not safe)) - (cons '%#call __tmp282533)) - (let* ((_$ctor276897_ - (let ((__tmp282482 + (cons '%#call __tmp283827)) + (let* ((_$ctor278098_ + (let ((__tmp283773 (gensym '__constructor))) (declare (not safe)) - (make-symbol__0 __tmp282482))) - (__tmp282483 - (let ((__tmp282518 - (let ((__tmp282519 - (let ((__tmp282532 + (make-symbol__0 __tmp283773))) + (__tmp283774 + (let ((__tmp283809 + (let ((__tmp283810 + (let ((__tmp283826 (let () (declare (not safe)) - (cons _$ctor276897_ + (cons _$ctor278098_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp282520 - (let ((__tmp282521 - (let ((__tmp282522 - (let ((__tmp282530 - (let ((__tmp282531 + (__tmp283811 + (let ((__tmp283812 + (let ((__tmp283813 + (let ((__tmp283824 + (let ((__tmp283825 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp282531))) - (__tmp282523 - (let ((__tmp282527 - (let ((__tmp282528 - (let ((__tmp282529 + (cons '%#ref __tmp283825))) + (__tmp283814 + (let ((__tmp283821 + (let ((__tmp283822 + (let ((__tmp283823 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 + _self278077_ + __id283139 + __t283138 '#f)))) (declare (not safe)) - (cons __tmp282529 '())))) + (cons __tmp283823 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp282528))) - (__tmp282524 - (let ((__tmp282525 - (let ((__tmp282526 + (cons '%#ref __tmp283822))) + (__tmp283815 + (let ((__tmp283819 + (let ((__tmp283820 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _ctor276892_ '())))) + (cons _$obj278095_ '())))) (declare (not safe)) - (cons '%#quote __tmp282526)))) + (cons '%#ref __tmp283820))) + (__tmp283816 + (let ((__tmp283817 + (let ((__tmp283818 + (let () + (declare (not safe)) + (cons _ctor278093_ '())))) + (declare (not safe)) + (cons '%#quote __tmp283818)))) + (declare (not safe)) + (cons __tmp283817 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282525 '())))) + (cons __tmp283819 + __tmp283816)))) (declare (not safe)) - (cons __tmp282527 __tmp282524)))) + (cons __tmp283821 __tmp283815)))) (declare (not safe)) - (cons __tmp282530 __tmp282523)))) + (cons __tmp283824 __tmp283814)))) (declare (not safe)) - (cons '%#call __tmp282522)))) + (cons '%#call __tmp283813)))) (declare (not safe)) - (cons __tmp282521 '())))) + (cons __tmp283812 '())))) (declare (not safe)) - (cons __tmp282532 __tmp282520)))) + (cons __tmp283826 __tmp283811)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282519 '()))) - (__tmp282484 - (let ((__tmp282485 - (let ((__tmp282486 - (let ((__tmp282516 + (cons __tmp283810 '()))) + (__tmp283775 + (let ((__tmp283776 + (let ((__tmp283777 + (let ((__tmp283807 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282517 + (let ((__tmp283808 (let () (declare (not safe)) - (cons _$ctor276897_ '())))) + (cons _$ctor278098_ '())))) (declare (not safe)) - (cons '%#ref __tmp282517))) - (__tmp282487 - (let ((__tmp282509 - (let ((__tmp282510 - (let ((__tmp282514 - (let ((__tmp282515 + (cons '%#ref __tmp283808))) + (__tmp283778 + (let ((__tmp283800 + (let ((__tmp283801 + (let ((__tmp283805 + (let ((__tmp283806 (let () (declare (not safe)) - (cons _$ctor276897_ + (cons _$ctor278098_ '())))) (declare (not safe)) - (cons '%#ref __tmp282515))) - (__tmp282511 - (let ((__tmp282512 - (let ((__tmp282513 + (cons '%#ref __tmp283806))) + (__tmp283802 + (let ((__tmp283803 + (let ((__tmp283804 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj276894_ '())))) + (cons _$obj278095_ '())))) (declare (not safe)) - (cons '%#ref __tmp282513)))) + (cons '%#ref __tmp283804)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282512 - _args276884_)))) + (cons __tmp283803 + _args278085_)))) (declare (not safe)) - (cons __tmp282514 __tmp282511)))) + (cons __tmp283805 __tmp283802)))) (declare (not safe)) - (cons '%#call __tmp282510))) - (__tmp282488 - (let ((__tmp282489 - (let ((__tmp282490 - (let ((__tmp282507 - (let ((__tmp282508 + (cons '%#call __tmp283801))) + (__tmp283779 + (let ((__tmp283780 + (let ((__tmp283781 + (let ((__tmp283798 + (let ((__tmp283799 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp282508))) - (__tmp282491 - (let ((__tmp282505 - (let ((__tmp282506 + (cons '%#ref __tmp283799))) + (__tmp283782 + (let ((__tmp283796 + (let ((__tmp283797 (let () (declare (not safe)) (cons '"missing constructor method implementation" '())))) (declare (not safe)) - (cons '%#quote __tmp282506))) - (__tmp282492 - (let ((__tmp282503 - (let ((__tmp282504 + (cons '%#quote __tmp283797))) + (__tmp283783 + (let ((__tmp283794 + (let ((__tmp283795 (let () (declare (not safe)) (cons 'class: '())))) (declare (not safe)) - (cons '%#quote __tmp282504))) - (__tmp282493 - (let ((__tmp282500 - (let ((__tmp282501 - (let ((__tmp282502 + (cons '%#quote __tmp283795))) + (__tmp283784 + (let ((__tmp283791 + (let ((__tmp283792 + (let ((__tmp283793 (let () (declare (not safe)) (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 + _self278077_ + __id283139 + __t283138 '#f)))) (declare (not safe)) - (cons __tmp282502 '())))) + (cons __tmp283793 '())))) (declare (not safe)) - (cons '%#ref __tmp282501))) - (__tmp282494 - (let ((__tmp282498 - (let ((__tmp282499 + (cons '%#ref __tmp283792))) + (__tmp283785 + (let ((__tmp283789 + (let ((__tmp283790 (let () (declare (not safe)) (cons 'method: '())))) (declare (not safe)) - (cons '%#quote __tmp282499))) - (__tmp282495 - (let ((__tmp282496 - (let ((__tmp282497 + (cons '%#quote __tmp283790))) + (__tmp283786 + (let ((__tmp283787 + (let ((__tmp283788 (let () (declare (not safe)) - (cons _ctor276892_ + (cons _ctor278093_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#quote - __tmp282497)))) + __tmp283788)))) (declare (not safe)) - (cons __tmp282496 '())))) + (cons __tmp283787 '())))) (declare (not safe)) - (cons __tmp282498 __tmp282495)))) + (cons __tmp283789 __tmp283786)))) (declare (not safe)) - (cons __tmp282500 __tmp282494)))) + (cons __tmp283791 __tmp283785)))) (declare (not safe)) - (cons __tmp282503 __tmp282493)))) + (cons __tmp283794 __tmp283784)))) (declare (not safe)) - (cons __tmp282505 __tmp282492)))) + (cons __tmp283796 __tmp283783)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282507 - __tmp282491)))) + (cons __tmp283798 + __tmp283782)))) (declare (not safe)) - (cons '%#call __tmp282490)))) + (cons '%#call __tmp283781)))) (declare (not safe)) - (cons __tmp282489 '())))) + (cons __tmp283780 '())))) (declare (not safe)) - (cons __tmp282509 __tmp282488)))) + (cons __tmp283800 __tmp283779)))) (declare (not safe)) - (cons __tmp282516 __tmp282487)))) + (cons __tmp283807 __tmp283778)))) (declare (not safe)) - (cons '%#if __tmp282486)))) + (cons '%#if __tmp283777)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282485 '())))) + (cons __tmp283776 '())))) (declare (not safe)) - (cons __tmp282518 __tmp282484)))) + (cons __tmp283809 __tmp283775)))) (declare (not safe)) - (cons '%#let-values __tmp282483)))) - (__tmp282478 - (let ((__tmp282479 - (let ((__tmp282480 + (cons '%#let-values __tmp283774)))) + (__tmp283769 + (let ((__tmp283770 + (let ((__tmp283771 (let () (declare (not safe)) - (cons _$obj276894_ '())))) + (cons _$obj278095_ '())))) (declare (not safe)) - (cons '%#ref __tmp282480)))) + (cons '%#ref __tmp283771)))) (declare (not safe)) - (cons __tmp282479 '())))) + (cons __tmp283770 '())))) (declare (not safe)) - (cons __tmp282481 __tmp282478)))) + (cons __tmp283772 __tmp283769)))) (declare (not safe)) - (cons '%#begin __tmp282477)))) + (cons '%#begin __tmp283768)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282476 '())))) + (cons __tmp283767 '())))) (declare (not safe)) - (cons __tmp282539 __tmp282475)))) + (cons __tmp283833 __tmp283766)))) (declare (not safe)) - (cons '%#let-values __tmp282474)))) + (cons '%#let-values __tmp283765)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282473 _stx276877_)))) - _$e276889_) - (if (##structure-ref _klass276880_ '7 gxc#!class::t '#f) - (if (fx= (length _args276884_) _fields276882_) - (let ((__tmp282464 - (let ((__tmp282465 - (let ((__tmp282470 - (let ((__tmp282471 - (let () - (declare (not safe)) - (cons '##structure - '())))) - (declare (not safe)) - (cons '%#ref __tmp282471))) - (__tmp282466 - (let ((__tmp282467 - (let ((__tmp282468 - (let ((__tmp282469 + (gxc#xform-wrap-source __tmp283764 _stx278078_)))) + _$e278090_) + (let ((_$e278100_ + (##structure-ref + _klass278081_ + '9 + gxc#!class::t + '#f))) + (if _$e278100_ + ((lambda (_metaclass278103_) + (let* ((_$obj278105_ + (let ((__tmp283725 (gensym '__obj))) + (declare (not safe)) + (make-symbol__0 __tmp283725))) + (_metakons278107_ + (let ((__tmp283726 + (let () + (declare (not safe)) + (gxc#optimizer-resolve-class + _stx278078_ + _metaclass278103_)))) + (declare (not safe)) + (gxc#!class-lookup-method + __tmp283726 + 'instance-init!)))) + (let ((__tmp283727 + (let ((__tmp283728 + (let ((__tmp283759 + (let ((__tmp283760 + (let ((__tmp283762 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 - '#f)))) - (declare (not safe)) - (cons __tmp282469 '())))) - (declare (not safe)) - (cons '%#ref __tmp282468)))) + (let () + (declare (not safe)) + (cons _$obj278105_ '()))) + (__tmp283761 + (let () + (declare (not safe)) + (cons _inline-make-object278087_ '())))) + (declare (not safe)) + (cons __tmp283762 __tmp283761)))) + (declare (not safe)) + (cons __tmp283760 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp282467 - _args276884_)))) - (declare (not safe)) - (cons __tmp282470 __tmp282466)))) - (declare (not safe)) - (cons '%#call __tmp282465)))) - (declare (not safe)) - (gxc#xform-wrap-source __tmp282464 _stx276877_)) - (let ((__tmp282463 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 - '#f))) - (__tmp282462 - (length (##structure-ref - _klass276880_ - '5 - gxc#!class::t - '#f)))) - (declare (not safe)) - (gxc#raise-compile-error - '"illegal struct constructor application; arity mismatch" - _stx276877_ - __tmp282463 - __tmp282462))) - (let ((_$obj276899_ - (let ((__tmp282411 (gensym '__obj))) - (declare (not safe)) - (make-symbol__0 __tmp282411)))) - (let _lp276901_ ((_rest276903_ _args276884_) - (_initializers276904_ '())) - (let* ((___stx282042282043_ _rest276903_) - (_g276908276929_ - (lambda () - (let () - (declare (not safe)) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - ___stx282042282043_))))) - (let ((___kont282044282045_ - (lambda (_L276983_ _L276984_ _L276985_) - (let* ((_slot277015_ - (keyword->symbol - (let () - (declare (not safe)) - (gx#stx-e _L276985_)))) - (_off277017_ - (let () - (declare (not safe)) - (gxc#!class-slot->field-offset - _klass276880_ - _slot277015_)))) - (if _off277017_ - (let ((__tmp282413 - (let ((__tmp282414 - (let () - (declare - (not safe)) - (cons _off277017_ + (__tmp283729 + (let ((__tmp283730 + (let ((__tmp283731 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L276984_)))) - (declare (not safe)) - (cons __tmp282414 _initializers276904_)))) + (let ((__tmp283735 + (if _metakons278107_ + (let ((__tmp283749 + (let ((__tmp283757 + (let ((__tmp283758 + (let () + (declare + (not safe)) + (cons _metakons278107_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_lp276901_ - _L276983_ - __tmp282413)) - (let ((__tmp282412 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 - '#f)))) - (declare (not safe)) - (gxc#raise-compile-error - '"unknown slot" - _stx276877_ - __tmp282412 - _slot277015_)))))) - (___kont282046282047_ - (lambda () - (let ((__tmp282415 - (let ((__tmp282416 - (let ((__tmp282439 - (let ((__tmp282440 + (declare (not safe)) + (cons '%#ref + __tmp283758))) + (__tmp283750 + (let ((__tmp283754 + (let ((__tmp283755 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282442 - (let () - (declare (not safe)) - (cons _$obj276899_ '()))) - (__tmp282441 - (let () - (declare (not safe)) - (cons _inline-make-object276886_ '())))) - (declare (not safe)) - (cons __tmp282442 __tmp282441)))) - (declare (not safe)) - (cons __tmp282440 '()))) - (__tmp282417 - (let ((__tmp282418 - (let ((__tmp282419 - (let ((__tmp282436 - (let ((__tmp282437 - (let ((__tmp282438 - (let () - (declare (not safe)) - (cons _$obj276899_ - '())))) - (declare (not safe)) - (cons '%#ref __tmp282438)))) - (declare (not safe)) - (cons __tmp282437 '()))) - (__tmp282420 - (let ((__tmp282421 - (lambda (_i276943_ _r276944_) - (let ((__tmp282422 - (let ((__tmp282423 - (let ((__tmp282433 + (let ((__tmp283756 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f)))) + (declare (not safe)) + (cons __tmp283756 '())))) + (declare (not safe)) + (cons '%#ref __tmp283755))) + (__tmp283751 + (let ((__tmp283752 + (let ((__tmp283753 + (let () + (declare (not safe)) + (cons _$obj278105_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283753)))) + (declare (not safe)) + (cons __tmp283752 _args278085_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp283754 + __tmp283751)))) + (declare (not safe)) + (cons __tmp283757 __tmp283750)))) + (declare (not safe)) + (cons '%#call __tmp283749)) + (let ((__tmp283736 + (let ((__tmp283747 + (let ((__tmp283748 + (let () + (declare + (not safe)) + (cons 'call-method ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282434 - (let ((__tmp282435 - (let () - (declare (not safe)) - (##unchecked-structure-ref - _self276876_ - __id281927 - __t281926 - '#f)))) - (declare (not safe)) - (cons __tmp282435 '())))) - (declare (not safe)) - (cons '%#ref __tmp282434))) - (__tmp282424 - (let ((__tmp282430 - (let ((__tmp282431 - (let ((__tmp282432 - (car _i276943_))) - (declare (not safe)) - (cons __tmp282432 '())))) - (declare (not safe)) - (cons '%#quote __tmp282431))) - (__tmp282425 - (let ((__tmp282428 - (let ((__tmp282429 - (let () - (declare (not safe)) - (cons _$obj276899_ - '())))) - (declare (not safe)) - (cons '%#ref __tmp282429))) - (__tmp282426 - (let ((__tmp282427 - (cdr _i276943_))) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref + __tmp283748))) + (__tmp283737 + (let ((__tmp283744 + (let ((__tmp283745 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp283746 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f)))) + (declare (not safe)) + (cons __tmp283746 '())))) + (declare (not safe)) + (cons '%#ref __tmp283745))) + (__tmp283738 + (let ((__tmp283742 + (let ((__tmp283743 + (let () + (declare (not safe)) + (cons 'instance-init! '())))) + (declare (not safe)) + (cons '%#quote __tmp283743))) + (__tmp283739 + (let ((__tmp283740 + (let ((__tmp283741 + (let () + (declare (not safe)) + (cons _$obj278105_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283741)))) + (declare (not safe)) + (cons __tmp283740 _args278085_)))) + (declare (not safe)) + (cons __tmp283742 __tmp283739)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp283744 + __tmp283738)))) + (declare (not safe)) + (cons __tmp283747 __tmp283737)))) + (declare (not safe)) + (cons '%#call __tmp283736)))) + (__tmp283732 + (let ((__tmp283733 + (let ((__tmp283734 + (let () + (declare (not safe)) + (cons _$obj278105_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283734)))) + (declare (not safe)) + (cons __tmp283733 '())))) + (declare (not safe)) + (cons __tmp283735 __tmp283732)))) + (declare (not safe)) + (cons '%#begin __tmp283731)))) + (declare (not safe)) + (cons __tmp283730 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282427 '())))) + (cons __tmp283759 + __tmp283729)))) (declare (not safe)) - (cons __tmp282428 __tmp282426)))) + (cons '%#let-values __tmp283728)))) (declare (not safe)) - (cons __tmp282430 __tmp282425)))) - (declare (not safe)) - (cons __tmp282433 __tmp282424)))) - (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp282423)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp282422 - _r276944_))))) - (declare (not safe)) - (foldl1 __tmp282421 - '() - _initializers276904_)))) - (declare (not safe)) - (foldr1 cons __tmp282436 __tmp282420)))) - (declare (not safe)) - (cons '%#begin __tmp282419)))) - (declare (not safe)) - (cons __tmp282418 '())))) - (declare (not safe)) - (cons __tmp282439 __tmp282417)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons '%#let-values - __tmp282416)))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp282415 - _stx276877_)))) - (___kont282048282049_ - (lambda () - (let ((__tmp282443 - (let ((__tmp282444 - (let ((__tmp282458 - (let ((__tmp282459 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282461 - (let () - (declare (not safe)) - (cons _$obj276899_ '()))) - (__tmp282460 - (let () - (declare (not safe)) - (cons _inline-make-object276886_ '())))) - (declare (not safe)) - (cons __tmp282461 __tmp282460)))) - (declare (not safe)) - (cons __tmp282459 '()))) - (__tmp282445 - (let ((__tmp282446 - (let ((__tmp282447 - (let ((__tmp282451 - (let ((__tmp282452 - (let ((__tmp282456 - (let ((__tmp282457 + (gxc#xform-wrap-source + __tmp283727 + _stx278078_)))) + _$e278100_) + (if (##structure-ref + _klass278081_ + '7 + gxc#!class::t + '#f) + (if (fx= (length _args278085_) _fields278083_) + (let ((__tmp283717 + (let ((__tmp283718 + (let ((__tmp283723 + (let ((__tmp283724 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons 'class-instance-init! '())))) + (cons '##structure '())))) (declare (not safe)) - (cons '%#ref __tmp282457))) - (__tmp282453 - (let ((__tmp282454 - (let ((__tmp282455 - (let () + (cons '%#ref __tmp283724))) + (__tmp283719 + (let ((__tmp283720 + (let ((__tmp283721 + (let ((__tmp283722 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f)))) (declare (not safe)) - (cons _$obj276899_ '())))) + (cons __tmp283722 '())))) (declare (not safe)) - (cons '%#ref __tmp282455)))) + (cons '%#ref __tmp283721)))) (declare (not safe)) - (cons __tmp282454 _args276884_)))) + (cons __tmp283720 _args278085_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282456 - __tmp282453)))) + (cons __tmp283723 + __tmp283719)))) (declare (not safe)) - (cons '%#call __tmp282452))) - (__tmp282448 - (let ((__tmp282449 - (let ((__tmp282450 - (let () - (declare (not safe)) - (cons _$obj276899_ - '())))) - (declare (not safe)) - (cons '%#ref __tmp282450)))) + (cons '%#call __tmp283718)))) + (declare (not safe)) + (gxc#xform-wrap-source + __tmp283717 + _stx278078_)) + (let ((__tmp283716 + (let () (declare (not safe)) - (cons __tmp282449 '())))) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f))) + (__tmp283715 + (length (##structure-ref + _klass278081_ + '5 + gxc#!class::t + '#f)))) (declare (not safe)) - (cons __tmp282451 __tmp282448)))) - (declare (not safe)) - (cons '%#begin __tmp282447)))) - (declare (not safe)) - (cons __tmp282446 '())))) - (declare (not safe)) - (cons __tmp282458 __tmp282445)))) + (gxc#raise-compile-error + '"illegal struct constructor application; arity mismatch" + _stx278078_ + __tmp283716 + __tmp283715))) + (let ((_$obj278110_ + (let ((__tmp283664 (gensym '__obj))) + (declare (not safe)) + (make-symbol__0 __tmp283664)))) + (let _lp278112_ ((_rest278114_ _args278085_) + (_initializers278115_ '())) + (let* ((___stx283254283255_ _rest278114_) + (_g278119278140_ + (lambda () + (let () + (declare (not safe)) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___stx283254283255_))))) + (let ((___kont283256283257_ + (lambda (_L278194_ + _L278195_ + _L278196_) + (let* ((_slot278227_ + (keyword->symbol + (let () + (declare (not safe)) + (gx#stx-e _L278196_)))) + (_off278229_ + (let () + (declare (not safe)) + (gxc#!class-slot->field-offset + _klass278081_ + _slot278227_)))) + (if _off278229_ + (let ((__tmp283666 + (let ((__tmp283667 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _off278229_ _L278195_)))) + (declare (not safe)) + (cons __tmp283667 _initializers278115_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_lp278112_ + _L278194_ + __tmp283666)) + (let ((__tmp283665 + (let () + (declare + (not safe)) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f)))) + (declare (not safe)) + (gxc#raise-compile-error + '"unknown slot" + _stx278078_ + __tmp283665 + _slot278227_)))))) + (___kont283258283259_ + (lambda () + (let ((__tmp283668 + (let ((__tmp283669 + (let ((__tmp283692 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp283693 + (let ((__tmp283695 + (let () + (declare (not safe)) + (cons _$obj278110_ '()))) + (__tmp283694 + (let () + (declare (not safe)) + (cons _inline-make-object278087_ + '())))) + (declare (not safe)) + (cons __tmp283695 __tmp283694)))) + (declare (not safe)) + (cons __tmp283693 '()))) + (__tmp283670 + (let ((__tmp283671 + (let ((__tmp283672 + (let ((__tmp283689 + (let ((__tmp283690 + (let ((__tmp283691 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _$obj278110_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283691)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp283690 '()))) + (__tmp283673 + (let ((__tmp283674 + (lambda (_i278154_ + _r278155_) + (let ((__tmp283675 + (let ((__tmp283676 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp283686 + (let ((__tmp283687 + (let ((__tmp283688 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self278077_ + __id283139 + __t283138 + '#f)))) + (declare (not safe)) + (cons __tmp283688 '())))) + (declare (not safe)) + (cons '%#ref __tmp283687))) + (__tmp283677 + (let ((__tmp283683 + (let ((__tmp283684 + (let ((__tmp283685 + (car _i278154_))) + (declare (not safe)) + (cons __tmp283685 '())))) + (declare (not safe)) + (cons '%#quote __tmp283684))) + (__tmp283678 + (let ((__tmp283681 + (let ((__tmp283682 + (let () + (declare + (not safe)) + (cons _$obj278110_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons '%#ref + __tmp283682))) + (__tmp283679 + (let ((__tmp283680 + (cdr _i278154_))) + (declare (not safe)) + (cons __tmp283680 '())))) + (declare (not safe)) + (cons __tmp283681 __tmp283679)))) + (declare (not safe)) + (cons __tmp283683 __tmp283678)))) + (declare (not safe)) + (cons __tmp283686 __tmp283677)))) + (declare (not safe)) + (cons '%#struct-unchecked-set! __tmp283676)))) + (declare (not safe)) + (cons __tmp283675 _r278155_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldl1 __tmp283674 + '() + _initializers278115_)))) + (declare (not safe)) + (foldr1 cons + __tmp283689 + __tmp283673)))) + (declare (not safe)) + (cons '%#begin __tmp283672)))) + (declare (not safe)) + (cons __tmp283671 '())))) + (declare (not safe)) + (cons __tmp283692 __tmp283670)))) + (declare (not safe)) + (cons '%#let-values __tmp283669)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons '%#let-values - __tmp282444)))) - (declare (not safe)) - (gxc#xform-wrap-source - __tmp282443 - _stx276877_))))) - (let* ((_g276906276946_ - (lambda () - (if (let () - (declare (not safe)) - (gx#stx-null? - ___stx282042282043_)) - (___kont282046282047_) - (___kont282048282049_)))) - (___match282079282080_ - (lambda (_e276915276951_ - _hd276914276954_ - _tl276913276956_ - _e276918276959_ - _hd276917276962_ - _tl276916276964_ - _e276921276967_ - _hd276920276970_ - _tl276919276972_ - _e276924276975_ - _hd276923276978_ - _tl276922276980_) - (let ((_L276983_ _tl276922276980_) - (_L276984_ _hd276923276978_) - (_L276985_ _hd276920276970_)) - (if (let () - (declare (not safe)) - (gx#stx-keyword? _L276985_)) - (___kont282044282045_ - _L276983_ - _L276984_ - _L276985_) - (___kont282048282049_)))))) - (if (let () - (declare (not safe)) - (gx#stx-pair? ___stx282042282043_)) - (let ((_e276915276951_ - (let () (declare (not safe)) - (gx#stx-e - ___stx282042282043_)))) - (let ((_tl276913276956_ - (let () + (gxc#xform-wrap-source + __tmp283668 + _stx278078_)))) + (___kont283260283261_ + (lambda () + (let ((__tmp283696 + (let ((__tmp283697 + (let ((__tmp283711 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp283712 + (let ((__tmp283714 + (let () + (declare (not safe)) + (cons _$obj278110_ '()))) + (__tmp283713 + (let () + (declare (not safe)) + (cons _inline-make-object278087_ + '())))) + (declare (not safe)) + (cons __tmp283714 __tmp283713)))) + (declare (not safe)) + (cons __tmp283712 '()))) + (__tmp283698 + (let ((__tmp283699 + (let ((__tmp283700 + (let ((__tmp283704 + (let ((__tmp283705 + (let ((__tmp283709 + (let ((__tmp283710 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons 'class-instance-init! '())))) + (declare (not safe)) + (cons '%#ref __tmp283710))) + (__tmp283706 + (let ((__tmp283707 + (let ((__tmp283708 + (let () + (declare (not safe)) + (cons _$obj278110_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283708)))) + (declare (not safe)) + (cons __tmp283707 _args278085_)))) + (declare (not safe)) + (cons __tmp283709 __tmp283706)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##cdr _e276915276951_))) - (_hd276914276954_ - (let () + (cons '%#call __tmp283705))) + (__tmp283701 + (let ((__tmp283702 + (let ((__tmp283703 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _$obj278110_ '())))) + (declare (not safe)) + (cons '%#ref __tmp283703)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##car _e276915276951_)))) - (if (let () - (declare (not safe)) - (gx#stx-pair? - _hd276914276954_)) - (let ((_e276918276959_ - (let () - (declare (not safe)) - (gx#stx-e - _hd276914276954_)))) - (let ((_tl276916276964_ - (let () - (declare (not safe)) - (##cdr _e276918276959_))) - (_hd276917276962_ - (let () - (declare (not safe)) - (##car _e276918276959_)))) + (cons __tmp283702 '())))) + (declare (not safe)) + (cons __tmp283704 __tmp283701)))) + (declare (not safe)) + (cons '%#begin __tmp283700)))) + (declare (not safe)) + (cons __tmp283699 '())))) + (declare (not safe)) + (cons __tmp283711 __tmp283698)))) + (declare (not safe)) + (cons '%#let-values __tmp283697)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (gxc#xform-wrap-source + __tmp283696 + _stx278078_))))) + (let* ((_g278117278157_ + (lambda () + (if (let () + (declare (not safe)) + (gx#stx-null? + ___stx283254283255_)) + (___kont283258283259_) + (___kont283260283261_)))) + (___match283291283292_ + (lambda (_e278126278162_ + _hd278125278165_ + _tl278124278167_ + _e278129278170_ + _hd278128278173_ + _tl278127278175_ + _e278132278178_ + _hd278131278181_ + _tl278130278183_ + _e278135278186_ + _hd278134278189_ + _tl278133278191_) + (let ((_L278194_ + _tl278133278191_) + (_L278195_ + _hd278134278189_) + (_L278196_ + _hd278131278181_)) (if (let () (declare (not safe)) - (gx#identifier? - _hd276917276962_)) - (if (let () - (declare - (not safe)) - (gx#stx-eq? - '%#quote - _hd276917276962_)) - (if (let () - (declare + (gx#stx-keyword? + _L278196_)) + (___kont283256283257_ + _L278194_ + _L278195_ + _L278196_) + (___kont283260283261_)))))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + ___stx283254283255_)) + (let ((_e278126278162_ + (let () + (declare (not safe)) + (gx#stx-e + ___stx283254283255_)))) + (let ((_tl278124278167_ + (let () + (declare (not safe)) + (##cdr _e278126278162_))) + (_hd278125278165_ + (let () + (declare (not safe)) + (##car _e278126278162_)))) + (if (let () + (declare (not safe)) + (gx#stx-pair? + _hd278125278165_)) + (let ((_e278129278170_ + (let () + (declare + (not safe)) + (gx#stx-e + _hd278125278165_)))) + (let ((_tl278127278175_ + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (gx#stx-pair? _tl276916276964_)) - (let ((_e276921276967_ - (let () - (declare (not safe)) - (gx#stx-e _tl276916276964_)))) - (let ((_tl276919276972_ - (let () - (declare (not safe)) - (##cdr _e276921276967_))) - (_hd276920276970_ - (let () - (declare (not safe)) - (##car _e276921276967_)))) - (if (let () - (declare (not safe)) - (gx#stx-null? _tl276919276972_)) - (if (let () - (declare (not safe)) - (gx#stx-pair? _tl276913276956_)) - (let ((_e276924276975_ - (let () - (declare (not safe)) - (gx#stx-e _tl276913276956_)))) - (let ((_tl276922276980_ - (let () - (declare (not safe)) - (##cdr _e276924276975_))) - (_hd276923276978_ - (let () - (declare (not safe)) - (##car _e276924276975_)))) - (___match282079282080_ - _e276915276951_ - _hd276914276954_ - _tl276913276956_ - _e276918276959_ - _hd276917276962_ - _tl276916276964_ - _e276921276967_ - _hd276920276970_ - _tl276919276972_ - _e276924276975_ - _hd276923276978_ - _tl276922276980_))) - (___kont282048282049_)) - (___kont282048282049_)))) - (___kont282048282049_)) - (___kont282048282049_)) - (___kont282048282049_)))) + (not safe)) + (##cdr _e278129278170_))) + (_hd278128278173_ + (let () (declare (not safe)) (##car _e278129278170_)))) + (if (let () + (declare (not safe)) + (gx#identifier? _hd278128278173_)) + (if (let () + (declare (not safe)) + (gx#stx-eq? '%#quote _hd278128278173_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl278127278175_)) + (let ((_e278132278178_ + (let () + (declare (not safe)) + (gx#stx-e _tl278127278175_)))) + (let ((_tl278130278183_ + (let () + (declare (not safe)) + (##cdr _e278132278178_))) + (_hd278131278181_ + (let () + (declare (not safe)) + (##car _e278132278178_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl278130278183_)) + (if (let () + (declare (not safe)) + (gx#stx-pair? _tl278124278167_)) + (let ((_e278135278186_ + (let () + (declare (not safe)) + (gx#stx-e _tl278124278167_)))) + (let ((_tl278133278191_ + (let () + (declare (not safe)) + (##cdr _e278135278186_))) + (_hd278134278189_ + (let () + (declare (not safe)) + (##car _e278135278186_)))) + (___match283291283292_ + _e278126278162_ + _hd278125278165_ + _tl278124278167_ + _e278129278170_ + _hd278128278173_ + _tl278127278175_ + _e278132278178_ + _hd278131278181_ + _tl278130278183_ + _e278135278186_ + _hd278134278189_ + _tl278133278191_))) + (___kont283260283261_)) + (___kont283260283261_)))) + (___kont283260283261_)) + (___kont283260283261_)) + (___kont283260283261_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont282048282049_)))) - (let () - (declare (not safe)) - (_g276906276946_)))))))))))))))) + (___kont283260283261_)))) + (let () + (declare (not safe)) + (_g278117278157_)))))))))))))))))) (let () (declare (not safe)) (bind-specializer! @@ -2145,944 +2546,944 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_self276699_ _stx276700_ _args276701_) - (let* ((_g276703276713_ - (lambda (_g276704276710_) + (lambda (_self277900_ _stx277901_ _args277902_) + (let* ((_g277904277914_ + (lambda (_g277905277911_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g276704276710_)))) - (_g276702276751_ - (lambda (_g276704276716_) + _g277905277911_)))) + (_g277903277952_ + (lambda (_g277905277917_) (if (let () (declare (not safe)) - (gx#stx-pair? _g276704276716_)) - (let ((_e276708276718_ + (gx#stx-pair? _g277905277917_)) + (let ((_e277909277919_ (let () (declare (not safe)) - (gx#stx-e _g276704276716_)))) - (let ((_hd276707276721_ + (gx#stx-e _g277905277917_)))) + (let ((_hd277908277922_ (let () (declare (not safe)) - (##car _e276708276718_))) - (_tl276706276723_ + (##car _e277909277919_))) + (_tl277907277924_ (let () (declare (not safe)) - (##cdr _e276708276718_)))) + (##cdr _e277909277919_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl276706276723_)) - ((lambda (_L276726_) - (let* ((_klass276737_ - (let ((__tmp282543 + (gx#stx-null? _tl277907277924_)) + ((lambda (_L277927_) + (let* ((_klass277938_ + (let ((__tmp283837 (##structure-ref - _self276699_ + _self277900_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx276700_ - __tmp282543))) - (_field276739_ - (let ((__tmp282544 + _stx277901_ + __tmp283837))) + (_field277940_ + (let ((__tmp283838 (##structure-ref - _self276699_ + _self277900_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass276737_ - __tmp282544))) - (_object276741_ + _klass277938_ + __tmp283838))) + (_object277942_ (let () (declare (not safe)) - (gxc#compile-e__0 _L276726_)))) + (gxc#compile-e__0 _L277927_)))) (if (##structure-ref - _klass276737_ + _klass277938_ '8 gxc#!class::t '#f) - (let ((__tmp282621 - (let ((__tmp282630 + (let ((__tmp283915 + (let ((__tmp283924 (if (##structure-ref - _self276699_ + _self277900_ '3 gxc#!accessor::t '#f) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp282622 - (let ((__tmp282627 - (let ((__tmp282628 + (__tmp283916 + (let ((__tmp283921 + (let ((__tmp283922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282629 + (let ((__tmp283923 (##structure-ref - _self276699_ + _self277900_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282629 '())))) + (cons __tmp283923 '())))) (declare (not safe)) - (cons '%#ref __tmp282628))) - (__tmp282623 - (let ((__tmp282625 - (let ((__tmp282626 + (cons '%#ref __tmp283922))) + (__tmp283917 + (let ((__tmp283919 + (let ((__tmp283920 (let () (declare (not safe)) - (cons _field276739_ '())))) + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282626))) - (__tmp282624 + (cons '%#quote __tmp283920))) + (__tmp283918 (let () (declare (not safe)) - (cons _object276741_ '())))) + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282625 __tmp282624)))) + (cons __tmp283919 __tmp283918)))) (declare (not safe)) - (cons __tmp282627 __tmp282623)))) + (cons __tmp283921 __tmp283917)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282630 - __tmp282622)))) + (cons __tmp283924 + __tmp283916)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282621 - _stx276700_)) + __tmp283915 + _stx277901_)) (if (##structure-ref - _klass276737_ + _klass277938_ '7 gxc#!class::t '#f) - (let ((__tmp282611 - (let ((__tmp282620 + (let ((__tmp283905 + (let ((__tmp283914 (if (##structure-ref - _self276699_ + _self277900_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp282612 - (let ((__tmp282617 - (let ((__tmp282618 + (__tmp283906 + (let ((__tmp283911 + (let ((__tmp283912 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282619 + (let ((__tmp283913 (##structure-ref - _self276699_ + _self277900_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282619 '())))) + (cons __tmp283913 '())))) (declare (not safe)) - (cons '%#ref __tmp282618))) - (__tmp282613 - (let ((__tmp282615 - (let ((__tmp282616 + (cons '%#ref __tmp283912))) + (__tmp283907 + (let ((__tmp283909 + (let ((__tmp283910 (let () (declare (not safe)) - (cons _field276739_ '())))) + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282616))) - (__tmp282614 + (cons '%#quote __tmp283910))) + (__tmp283908 (let () (declare (not safe)) - (cons _object276741_ '())))) + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282615 __tmp282614)))) + (cons __tmp283909 __tmp283908)))) (declare (not safe)) - (cons __tmp282617 __tmp282613)))) + (cons __tmp283911 __tmp283907)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282620 - __tmp282612)))) + (cons __tmp283914 + __tmp283906)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282611 - _stx276700_)) - (let ((_$e276744_ - (let ((__tmp282545 + __tmp283905 + _stx277901_)) + (let ((_$e277945_ + (let ((__tmp283839 (##structure-ref - _self276699_ + _self277900_ '2 gxc#!accessor::t '#f))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass276737_ - __tmp282545)))) - (if _$e276744_ - ((lambda (_klass276747_) - (let ((__tmp282601 - (let ((__tmp282610 + _klass277938_ + __tmp283839)))) + (if _$e277945_ + ((lambda (_klass277948_) + (let ((__tmp283895 + (let ((__tmp283904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self276699_ + _self277900_ '3 gxc#!accessor::t '#f) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp282602 - (let ((__tmp282607 - (let ((__tmp282608 - (let ((__tmp282609 + (__tmp283896 + (let ((__tmp283901 + (let ((__tmp283902 + (let ((__tmp283903 (##structure-ref - _self276699_ + _self277900_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282609 '())))) + (cons __tmp283903 '())))) (declare (not safe)) - (cons '%#ref __tmp282608))) - (__tmp282603 - (let ((__tmp282605 - (let ((__tmp282606 + (cons '%#ref __tmp283902))) + (__tmp283897 + (let ((__tmp283899 + (let ((__tmp283900 (let () (declare (not safe)) - (cons _field276739_ '())))) + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282606))) - (__tmp282604 + (cons '%#quote __tmp283900))) + (__tmp283898 (let () (declare (not safe)) - (cons _object276741_ '())))) + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282605 __tmp282604)))) + (cons __tmp283899 __tmp283898)))) (declare (not safe)) - (cons __tmp282607 __tmp282603)))) + (cons __tmp283901 __tmp283897)))) (declare (not safe)) - (cons __tmp282610 __tmp282602)))) + (cons __tmp283904 __tmp283896)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282601 _stx276700_))) + (gxc#xform-wrap-source __tmp283895 _stx277901_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e276744_) + _$e277945_) (if (##structure-ref - _self276699_ + _self277900_ '3 gxc#!accessor::t '#f) - (let ((__tmp282555 - (let* ((_$obj276749_ + (let ((__tmp283849 + (let* ((_$obj277950_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282556 (gensym '__obj))) + (let ((__tmp283850 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp282556))) - (__tmp282557 - (let ((__tmp282597 - (let ((__tmp282598 - (let ((__tmp282600 + (make-symbol__0 __tmp283850))) + (__tmp283851 + (let ((__tmp283891 + (let ((__tmp283892 + (let ((__tmp283894 (let () (declare (not safe)) - (cons _$obj276749_ '()))) - (__tmp282599 + (cons _$obj277950_ '()))) + (__tmp283893 (let () (declare (not safe)) - (cons _object276741_ '())))) + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282600 __tmp282599)))) + (cons __tmp283894 __tmp283893)))) (declare (not safe)) - (cons __tmp282598 '()))) - (__tmp282558 - (let ((__tmp282559 - (let ((__tmp282560 - (let ((__tmp282589 - (let ((__tmp282590 - (let ((__tmp282594 + (cons __tmp283892 '()))) + (__tmp283852 + (let ((__tmp283853 + (let ((__tmp283854 + (let ((__tmp283883 + (let ((__tmp283884 + (let ((__tmp283888 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282595 - (let ((__tmp282596 + (let ((__tmp283889 + (let ((__tmp283890 (##structure-ref - _klass276737_ + _klass277938_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282596 '())))) + (cons __tmp283890 '())))) (declare (not safe)) - (cons '%#quote __tmp282595))) - (__tmp282591 - (let ((__tmp282592 - (let ((__tmp282593 + (cons '%#quote __tmp283889))) + (__tmp283885 + (let ((__tmp283886 + (let ((__tmp283887 (let () (declare (not safe)) - (cons _$obj276749_ '())))) + (cons _$obj277950_ '())))) (declare (not safe)) - (cons '%#ref __tmp282593)))) + (cons '%#ref __tmp283887)))) (declare (not safe)) - (cons __tmp282592 '())))) + (cons __tmp283886 '())))) (declare (not safe)) - (cons __tmp282594 __tmp282591)))) + (cons __tmp283888 __tmp283885)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp282590))) - (__tmp282561 - (let ((__tmp282578 - (let ((__tmp282579 - (let ((__tmp282586 - (let ((__tmp282587 - (let ((__tmp282588 + (cons '%#struct-direct-instance? __tmp283884))) + (__tmp283855 + (let ((__tmp283872 + (let ((__tmp283873 + (let ((__tmp283880 + (let ((__tmp283881 + (let ((__tmp283882 (##structure-ref - _self276699_ + _self277900_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282588 '())))) + (cons __tmp283882 '())))) (declare (not safe)) - (cons '%#ref __tmp282587))) - (__tmp282580 - (let ((__tmp282584 - (let ((__tmp282585 + (cons '%#ref __tmp283881))) + (__tmp283874 + (let ((__tmp283878 + (let ((__tmp283879 (let () (declare (not safe)) - (cons _field276739_ + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282585))) - (__tmp282581 - (let ((__tmp282582 - (let ((__tmp282583 + (cons '%#quote __tmp283879))) + (__tmp283875 + (let ((__tmp283876 + (let ((__tmp283877 (let () (declare (not safe)) - (cons _$obj276749_ + (cons _$obj277950_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp282583)))) + __tmp283877)))) (declare (not safe)) - (cons __tmp282582 '())))) + (cons __tmp283876 '())))) (declare (not safe)) - (cons __tmp282584 __tmp282581)))) + (cons __tmp283878 __tmp283875)))) (declare (not safe)) - (cons __tmp282586 __tmp282580)))) + (cons __tmp283880 __tmp283874)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp282579))) - (__tmp282562 - (let ((__tmp282563 - (let ((__tmp282564 - (let ((__tmp282576 - (let ((__tmp282577 + (cons '%#struct-unchecked-ref __tmp283873))) + (__tmp283856 + (let ((__tmp283857 + (let ((__tmp283858 + (let ((__tmp283870 + (let ((__tmp283871 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp282577))) - (__tmp282565 - (let ((__tmp282573 - (let ((__tmp282574 - (let ((__tmp282575 + (cons '%#ref __tmp283871))) + (__tmp283859 + (let ((__tmp283867 + (let ((__tmp283868 + (let ((__tmp283869 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##structure-ref _self276699_ '1 gxc#!type::t '#f))) + (##structure-ref _self277900_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282575 '())))) + (cons __tmp283869 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp282574))) - (__tmp282566 - (let ((__tmp282571 - (let ((__tmp282572 + __tmp283868))) + (__tmp283860 + (let ((__tmp283865 + (let ((__tmp283866 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj276749_ '())))) + (cons _$obj277950_ '())))) (declare (not safe)) - (cons '%#ref __tmp282572))) - (__tmp282567 - (let ((__tmp282568 - (let ((__tmp282569 - (let ((__tmp282570 + (cons '%#ref __tmp283866))) + (__tmp283861 + (let ((__tmp283862 + (let ((__tmp283863 + (let ((__tmp283864 (##structure-ref - _self276699_ + _self277900_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp282570 '())))) + (cons __tmp283864 '())))) (declare (not safe)) - (cons '%#quote __tmp282569)))) + (cons '%#quote __tmp283863)))) (declare (not safe)) - (cons __tmp282568 '())))) + (cons __tmp283862 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282571 - __tmp282567)))) + (cons __tmp283865 + __tmp283861)))) (declare (not safe)) - (cons __tmp282573 __tmp282566)))) + (cons __tmp283867 __tmp283860)))) (declare (not safe)) - (cons __tmp282576 __tmp282565)))) + (cons __tmp283870 __tmp283859)))) (declare (not safe)) - (cons '%#call __tmp282564)))) + (cons '%#call __tmp283858)))) (declare (not safe)) - (cons __tmp282563 '())))) + (cons __tmp283857 '())))) (declare (not safe)) - (cons __tmp282578 __tmp282562)))) + (cons __tmp283872 __tmp283856)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282589 - __tmp282561)))) + (cons __tmp283883 + __tmp283855)))) (declare (not safe)) - (cons '%#if __tmp282560)))) + (cons '%#if __tmp283854)))) (declare (not safe)) - (cons __tmp282559 '())))) + (cons __tmp283853 '())))) (declare (not safe)) - (cons __tmp282597 __tmp282558)))) + (cons __tmp283891 __tmp283852)))) (declare (not safe)) - (cons '%#let-values __tmp282557)))) + (cons '%#let-values __tmp283851)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282555 _stx276700_)) + (gxc#xform-wrap-source __tmp283849 _stx277901_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp282546 - (let ((__tmp282547 + (let ((__tmp283840 + (let ((__tmp283841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282553 - (let ((__tmp282554 + (let ((__tmp283847 + (let ((__tmp283848 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp282554))) - (__tmp282548 - (let ((__tmp282549 - (let ((__tmp282550 - (let ((__tmp282551 - (let ((__tmp282552 + (cons '%#ref __tmp283848))) + (__tmp283842 + (let ((__tmp283843 + (let ((__tmp283844 + (let ((__tmp283845 + (let ((__tmp283846 (##structure-ref - _self276699_ + _self277900_ '2 gxc#!accessor::t '#f))) (declare (not safe)) - (cons __tmp282552 + (cons __tmp283846 '())))) (declare (not safe)) (cons '%#quote - __tmp282551)))) + __tmp283845)))) (declare (not safe)) - (cons __tmp282550 '())))) + (cons __tmp283844 '())))) (declare (not safe)) - (cons _object276741_ __tmp282549)))) + (cons _object277942_ __tmp283843)))) (declare (not safe)) - (cons __tmp282553 __tmp282548)))) + (cons __tmp283847 __tmp283842)))) (declare (not safe)) - (cons '%#call __tmp282547)))) + (cons '%#call __tmp283841)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282546 _stx276700_))))))))) + (gxc#xform-wrap-source __tmp283840 _stx277901_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd276707276721_) + _hd277908277922_) (let () (declare (not safe)) - (_g276703276713_ _g276704276716_))))) + (_g277904277914_ _g277905277917_))))) (let () (declare (not safe)) - (_g276703276713_ _g276704276716_)))))) + (_g277904277914_ _g277905277917_)))))) (declare (not safe)) - (_g276702276751_ _args276701_)))) + (_g277903277952_ _args277902_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__t281929) - (let ((__checked?281930 - (let ((__tmp281933 + (lambda (__t283141) + (let ((__slot283142 + (let ((__tmp283145 (let () (declare (not safe)) - (class-slot-offset __t281929 'checked?)))) - (if __tmp281933 - __tmp281933 - (error '"Unknown slot" 'checked?)))) - (__id281931 - (let ((__tmp281934 + (class-slot-offset __t283141 'slot)))) + (if __tmp283145 __tmp283145 (error '"Unknown slot" 'slot)))) + (__id283143 + (let ((__tmp283146 (let () (declare (not safe)) - (class-slot-offset __t281929 'id)))) - (if __tmp281934 __tmp281934 (error '"Unknown slot" 'id)))) - (__slot281932 - (let ((__tmp281935 + (class-slot-offset __t283141 'id)))) + (if __tmp283146 __tmp283146 (error '"Unknown slot" 'id)))) + (__checked?283144 + (let ((__tmp283147 (let () (declare (not safe)) - (class-slot-offset __t281929 'slot)))) - (if __tmp281935 __tmp281935 (error '"Unknown slot" 'slot))))) - (lambda (_self276699_ _stx276700_ _args276701_) - (let* ((_g276703276713_ - (lambda (_g276704276710_) + (class-slot-offset __t283141 'checked?)))) + (if __tmp283147 + __tmp283147 + (error '"Unknown slot" 'checked?))))) + (lambda (_self277900_ _stx277901_ _args277902_) + (let* ((_g277904277914_ + (lambda (_g277905277911_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g276704276710_)))) - (_g276702276751_ - (lambda (_g276704276716_) + _g277905277911_)))) + (_g277903277952_ + (lambda (_g277905277917_) (if (let () (declare (not safe)) - (gx#stx-pair? _g276704276716_)) - (let ((_e276708276718_ + (gx#stx-pair? _g277905277917_)) + (let ((_e277909277919_ (let () (declare (not safe)) - (gx#stx-e _g276704276716_)))) - (let ((_hd276707276721_ + (gx#stx-e _g277905277917_)))) + (let ((_hd277908277922_ (let () (declare (not safe)) - (##car _e276708276718_))) - (_tl276706276723_ + (##car _e277909277919_))) + (_tl277907277924_ (let () (declare (not safe)) - (##cdr _e276708276718_)))) + (##cdr _e277909277919_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl276706276723_)) - ((lambda (_L276726_) - (let* ((_klass276737_ - (let ((__tmp282631 + (gx#stx-null? _tl277907277924_)) + ((lambda (_L277927_) + (let* ((_klass277938_ + (let ((__tmp283925 (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __id281931 - __t281929 + _self277900_ + __id283143 + __t283141 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx276700_ - __tmp282631))) - (_field276739_ - (let ((__tmp282632 + _stx277901_ + __tmp283925))) + (_field277940_ + (let ((__tmp283926 (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __slot281932 - __t281929 + _self277900_ + __slot283142 + __t283141 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass276737_ - __tmp282632))) - (_object276741_ + _klass277938_ + __tmp283926))) + (_object277942_ (let () (declare (not safe)) - (gxc#compile-e__0 _L276726_)))) + (gxc#compile-e__0 _L277927_)))) (if (##structure-ref - _klass276737_ + _klass277938_ '8 gxc#!class::t '#f) - (let ((__tmp282709 - (let ((__tmp282718 + (let ((__tmp284003 + (let ((__tmp284012 (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self276699_ - __checked?281930 - __t281929 + _self277900_ + __checked?283144 + __t283141 '#f)) '%#struct-direct-ref '%#struct-unchecked-ref)) - (__tmp282710 - (let ((__tmp282715 - (let ((__tmp282716 - (let ((__tmp282717 + (__tmp284004 + (let ((__tmp284009 + (let ((__tmp284010 + (let ((__tmp284011 (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __id281931 - __t281929 + _self277900_ + __id283143 + __t283141 '#f)))) (declare (not safe)) - (cons __tmp282717 '())))) + (cons __tmp284011 '())))) (declare (not safe)) - (cons '%#ref __tmp282716))) - (__tmp282711 - (let ((__tmp282713 - (let ((__tmp282714 + (cons '%#ref __tmp284010))) + (__tmp284005 + (let ((__tmp284007 + (let ((__tmp284008 (let () (declare (not safe)) - (cons _field276739_ '())))) + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282714))) - (__tmp282712 + (cons '%#quote __tmp284008))) + (__tmp284006 (let () (declare (not safe)) - (cons _object276741_ '())))) + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282713 __tmp282712)))) + (cons __tmp284007 __tmp284006)))) (declare (not safe)) - (cons __tmp282715 __tmp282711)))) + (cons __tmp284009 __tmp284005)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282718 - __tmp282710)))) + (cons __tmp284012 + __tmp284004)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282709 - _stx276700_)) + __tmp284003 + _stx277901_)) (if (##structure-ref - _klass276737_ + _klass277938_ '7 gxc#!class::t '#f) - (let ((__tmp282699 - (let ((__tmp282708 + (let ((__tmp283993 + (let ((__tmp284002 (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __checked?281930 - __t281929 + _self277900_ + __checked?283144 + __t283141 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp282700 - (let ((__tmp282705 - (let ((__tmp282706 - (let ((__tmp282707 + (__tmp283994 + (let ((__tmp283999 + (let ((__tmp284000 + (let ((__tmp284001 (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __id281931 - __t281929 + _self277900_ + __id283143 + __t283141 '#f)))) (declare (not safe)) - (cons __tmp282707 '())))) + (cons __tmp284001 '())))) (declare (not safe)) - (cons '%#ref __tmp282706))) - (__tmp282701 - (let ((__tmp282703 - (let ((__tmp282704 + (cons '%#ref __tmp284000))) + (__tmp283995 + (let ((__tmp283997 + (let ((__tmp283998 (let () (declare (not safe)) - (cons _field276739_ '())))) + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282704))) - (__tmp282702 + (cons '%#quote __tmp283998))) + (__tmp283996 (let () (declare (not safe)) - (cons _object276741_ '())))) + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282703 __tmp282702)))) + (cons __tmp283997 __tmp283996)))) (declare (not safe)) - (cons __tmp282705 __tmp282701)))) + (cons __tmp283999 __tmp283995)))) (declare (not safe)) - (cons __tmp282708 __tmp282700)))) + (cons __tmp284002 __tmp283994)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282699 - _stx276700_)) - (let ((_$e276744_ - (let ((__tmp282633 + __tmp283993 + _stx277901_)) + (let ((_$e277945_ + (let ((__tmp283927 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _self276699_ - __slot281932 - __t281929 + _self277900_ + __slot283142 + __t283141 '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass276737_ __tmp282633)))) + (gxc#!class-slot-find-struct _klass277938_ __tmp283927)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e276744_ - ((lambda (_klass276747_) - (let ((__tmp282689 - (let ((__tmp282698 + (if _$e277945_ + ((lambda (_klass277948_) + (let ((__tmp283983 + (let ((__tmp283992 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __checked?281930 - __t281929 + _self277900_ + __checked?283144 + __t283141 '#f)) '%#struct-ref '%#struct-unchecked-ref)) - (__tmp282690 - (let ((__tmp282695 - (let ((__tmp282696 - (let ((__tmp282697 + (__tmp283984 + (let ((__tmp283989 + (let ((__tmp283990 + (let ((__tmp283991 (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __id281931 - __t281929 + _self277900_ + __id283143 + __t283141 '#f)))) (declare (not safe)) - (cons __tmp282697 '())))) + (cons __tmp283991 '())))) (declare (not safe)) - (cons '%#ref __tmp282696))) - (__tmp282691 - (let ((__tmp282693 - (let ((__tmp282694 + (cons '%#ref __tmp283990))) + (__tmp283985 + (let ((__tmp283987 + (let ((__tmp283988 (let () (declare (not safe)) - (cons _field276739_ + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282694))) - (__tmp282692 + (cons '%#quote __tmp283988))) + (__tmp283986 (let () (declare (not safe)) - (cons _object276741_ '())))) + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282693 __tmp282692)))) + (cons __tmp283987 __tmp283986)))) (declare (not safe)) - (cons __tmp282695 __tmp282691)))) + (cons __tmp283989 __tmp283985)))) (declare (not safe)) - (cons __tmp282698 __tmp282690)))) + (cons __tmp283992 __tmp283984)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282689 _stx276700_))) - _$e276744_) + (gxc#xform-wrap-source __tmp283983 _stx277901_))) + _$e277945_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __checked?281930 - __t281929 + _self277900_ + __checked?283144 + __t283141 '#f)) - (let ((__tmp282643 - (let* ((_$obj276749_ + (let ((__tmp283937 + (let* ((_$obj277950_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282644 (gensym '__obj))) + (let ((__tmp283938 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp282644))) - (__tmp282645 - (let ((__tmp282685 - (let ((__tmp282686 - (let ((__tmp282688 + (make-symbol__0 __tmp283938))) + (__tmp283939 + (let ((__tmp283979 + (let ((__tmp283980 + (let ((__tmp283982 (let () (declare (not safe)) - (cons _$obj276749_ + (cons _$obj277950_ '()))) - (__tmp282687 + (__tmp283981 (let () (declare (not safe)) - (cons _object276741_ + (cons _object277942_ '())))) (declare (not safe)) - (cons __tmp282688 - __tmp282687)))) + (cons __tmp283982 + __tmp283981)))) (declare (not safe)) - (cons __tmp282686 '()))) - (__tmp282646 - (let ((__tmp282647 - (let ((__tmp282648 - (let ((__tmp282677 - (let ((__tmp282678 + (cons __tmp283980 '()))) + (__tmp283940 + (let ((__tmp283941 + (let ((__tmp283942 + (let ((__tmp283971 + (let ((__tmp283972 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282682 - (let ((__tmp282683 - (let ((__tmp282684 + (let ((__tmp283976 + (let ((__tmp283977 + (let ((__tmp283978 (##structure-ref - _klass276737_ + _klass277938_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282684 '())))) + (cons __tmp283978 '())))) (declare (not safe)) - (cons '%#quote __tmp282683))) - (__tmp282679 - (let ((__tmp282680 - (let ((__tmp282681 + (cons '%#quote __tmp283977))) + (__tmp283973 + (let ((__tmp283974 + (let ((__tmp283975 (let () (declare (not safe)) - (cons _$obj276749_ '())))) + (cons _$obj277950_ '())))) (declare (not safe)) - (cons '%#ref __tmp282681)))) + (cons '%#ref __tmp283975)))) (declare (not safe)) - (cons __tmp282680 '())))) + (cons __tmp283974 '())))) (declare (not safe)) - (cons __tmp282682 __tmp282679)))) + (cons __tmp283976 __tmp283973)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp282678))) - (__tmp282649 - (let ((__tmp282666 - (let ((__tmp282667 - (let ((__tmp282674 - (let ((__tmp282675 - (let ((__tmp282676 + (cons '%#struct-direct-instance? __tmp283972))) + (__tmp283943 + (let ((__tmp283960 + (let ((__tmp283961 + (let ((__tmp283968 + (let ((__tmp283969 + (let ((__tmp283970 (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __id281931 - __t281929 + _self277900_ + __id283143 + __t283141 '#f)))) (declare (not safe)) - (cons __tmp282676 '())))) + (cons __tmp283970 '())))) (declare (not safe)) - (cons '%#ref __tmp282675))) - (__tmp282668 - (let ((__tmp282672 - (let ((__tmp282673 + (cons '%#ref __tmp283969))) + (__tmp283962 + (let ((__tmp283966 + (let ((__tmp283967 (let () (declare (not safe)) - (cons _field276739_ + (cons _field277940_ '())))) (declare (not safe)) - (cons '%#quote __tmp282673))) - (__tmp282669 - (let ((__tmp282670 - (let ((__tmp282671 + (cons '%#quote __tmp283967))) + (__tmp283963 + (let ((__tmp283964 + (let ((__tmp283965 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj276749_ '())))) + (cons _$obj277950_ '())))) (declare (not safe)) - (cons '%#ref __tmp282671)))) + (cons '%#ref __tmp283965)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282670 '())))) + (cons __tmp283964 '())))) (declare (not safe)) - (cons __tmp282672 __tmp282669)))) + (cons __tmp283966 __tmp283963)))) (declare (not safe)) - (cons __tmp282674 __tmp282668)))) + (cons __tmp283968 __tmp283962)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp282667))) - (__tmp282650 - (let ((__tmp282651 - (let ((__tmp282652 - (let ((__tmp282664 - (let ((__tmp282665 + (cons '%#struct-unchecked-ref __tmp283961))) + (__tmp283944 + (let ((__tmp283945 + (let ((__tmp283946 + (let ((__tmp283958 + (let ((__tmp283959 (let () (declare (not safe)) (cons 'class-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp282665))) - (__tmp282653 - (let ((__tmp282661 - (let ((__tmp282662 - (let ((__tmp282663 + (cons '%#ref __tmp283959))) + (__tmp283947 + (let ((__tmp283955 + (let ((__tmp283956 + (let ((__tmp283957 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __id281931 - __t281929 + _self277900_ + __id283143 + __t283141 '#f)))) (declare (not safe)) - (cons __tmp282663 '())))) + (cons __tmp283957 '())))) (declare (not safe)) - (cons '%#ref __tmp282662))) - (__tmp282654 - (let ((__tmp282659 - (let ((__tmp282660 + (cons '%#ref __tmp283956))) + (__tmp283948 + (let ((__tmp283953 + (let ((__tmp283954 (let () (declare (not safe)) - (cons _$obj276749_ '())))) + (cons _$obj277950_ '())))) (declare (not safe)) - (cons '%#ref __tmp282660))) - (__tmp282655 - (let ((__tmp282656 - (let ((__tmp282657 - (let ((__tmp282658 + (cons '%#ref __tmp283954))) + (__tmp283949 + (let ((__tmp283950 + (let ((__tmp283951 + (let ((__tmp283952 (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __slot281932 - __t281929 + _self277900_ + __slot283142 + __t283141 '#f)))) (declare (not safe)) - (cons __tmp282658 '())))) + (cons __tmp283952 '())))) (declare (not safe)) - (cons '%#quote __tmp282657)))) + (cons '%#quote __tmp283951)))) (declare (not safe)) - (cons __tmp282656 '())))) + (cons __tmp283950 '())))) (declare (not safe)) - (cons __tmp282659 __tmp282655)))) + (cons __tmp283953 __tmp283949)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282661 - __tmp282654)))) + (cons __tmp283955 + __tmp283948)))) (declare (not safe)) - (cons __tmp282664 __tmp282653)))) + (cons __tmp283958 __tmp283947)))) (declare (not safe)) - (cons '%#call __tmp282652)))) + (cons '%#call __tmp283946)))) (declare (not safe)) - (cons __tmp282651 '())))) + (cons __tmp283945 '())))) (declare (not safe)) - (cons __tmp282666 __tmp282650)))) + (cons __tmp283960 __tmp283944)))) (declare (not safe)) - (cons __tmp282677 __tmp282649)))) + (cons __tmp283971 __tmp283943)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp282648)))) + (cons '%#if __tmp283942)))) (declare (not safe)) - (cons __tmp282647 '())))) + (cons __tmp283941 '())))) (declare (not safe)) - (cons __tmp282685 __tmp282646)))) + (cons __tmp283979 __tmp283940)))) (declare (not safe)) - (cons '%#let-values __tmp282645)))) + (cons '%#let-values __tmp283939)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282643 _stx276700_)) - (let ((__tmp282634 - (let ((__tmp282635 - (let ((__tmp282641 - (let ((__tmp282642 + (gxc#xform-wrap-source __tmp283937 _stx277901_)) + (let ((__tmp283928 + (let ((__tmp283929 + (let ((__tmp283935 + (let ((__tmp283936 (let () (declare (not safe)) (cons 'unchecked-slot-ref '())))) (declare (not safe)) - (cons '%#ref __tmp282642))) - (__tmp282636 - (let ((__tmp282637 - (let ((__tmp282638 - (let ((__tmp282639 - (let ((__tmp282640 + (cons '%#ref __tmp283936))) + (__tmp283930 + (let ((__tmp283931 + (let ((__tmp283932 + (let ((__tmp283933 + (let ((__tmp283934 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _self276699_ - __slot281932 - __t281929 + _self277900_ + __slot283142 + __t283141 '#f)))) (declare (not safe)) - (cons __tmp282640 '())))) + (cons __tmp283934 '())))) (declare (not safe)) - (cons '%#quote __tmp282639)))) + (cons '%#quote __tmp283933)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282638 '())))) + (cons __tmp283932 '())))) (declare (not safe)) - (cons _object276741_ __tmp282637)))) + (cons _object277942_ __tmp283931)))) (declare (not safe)) - (cons __tmp282641 __tmp282636)))) + (cons __tmp283935 __tmp283930)))) (declare (not safe)) - (cons '%#call __tmp282635)))) + (cons '%#call __tmp283929)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282634 _stx276700_))))))))) + (gxc#xform-wrap-source __tmp283928 _stx277901_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd276707276721_) + _hd277908277922_) (let () (declare (not safe)) - (_g276703276713_ _g276704276716_))))) + (_g277904277914_ _g277905277917_))))) (let () (declare (not safe)) - (_g276703276713_ _g276704276716_)))))) + (_g277904277914_ _g277905277917_)))))) (declare (not safe)) - (_g276702276751_ _args276701_)))))) + (_g277903277952_ _args277902_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3096,363 +3497,363 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_self276504_ _stx276505_ _args276506_) - (let* ((_g276508276522_ - (lambda (_g276509276519_) + (lambda (_self277705_ _stx277706_ _args277707_) + (let* ((_g277709277723_ + (lambda (_g277710277720_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g276509276519_)))) - (_g276507276574_ - (lambda (_g276509276525_) + _g277710277720_)))) + (_g277708277775_ + (lambda (_g277710277726_) (if (let () (declare (not safe)) - (gx#stx-pair? _g276509276525_)) - (let ((_e276514276527_ + (gx#stx-pair? _g277710277726_)) + (let ((_e277715277728_ (let () (declare (not safe)) - (gx#stx-e _g276509276525_)))) - (let ((_hd276513276530_ + (gx#stx-e _g277710277726_)))) + (let ((_hd277714277731_ (let () (declare (not safe)) - (##car _e276514276527_))) - (_tl276512276532_ + (##car _e277715277728_))) + (_tl277713277733_ (let () (declare (not safe)) - (##cdr _e276514276527_)))) + (##cdr _e277715277728_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl276512276532_)) - (let ((_e276517276535_ + (gx#stx-pair? _tl277713277733_)) + (let ((_e277718277736_ (let () (declare (not safe)) - (gx#stx-e _tl276512276532_)))) - (let ((_hd276516276538_ + (gx#stx-e _tl277713277733_)))) + (let ((_hd277717277739_ (let () (declare (not safe)) - (##car _e276517276535_))) - (_tl276515276540_ + (##car _e277718277736_))) + (_tl277716277741_ (let () (declare (not safe)) - (##cdr _e276517276535_)))) + (##cdr _e277718277736_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl276515276540_)) - ((lambda (_L276543_ _L276544_) - (let* ((_klass276558_ - (let ((__tmp282719 + (gx#stx-null? _tl277716277741_)) + ((lambda (_L277744_ _L277745_) + (let* ((_klass277759_ + (let ((__tmp284013 (##structure-ref - _self276504_ + _self277705_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx276505_ - __tmp282719))) - (_field276560_ - (let ((__tmp282720 + _stx277706_ + __tmp284013))) + (_field277761_ + (let ((__tmp284014 (##structure-ref - _self276504_ + _self277705_ '2 gxc#!mutator::t '#f))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass276558_ - __tmp282720))) - (_object276562_ + _klass277759_ + __tmp284014))) + (_object277763_ (let () (declare (not safe)) (gxc#compile-e__0 - _L276544_))) - (_value276564_ + _L277745_))) + (_value277765_ (let () (declare (not safe)) (gxc#compile-e__0 - _L276543_)))) + _L277744_)))) (if (##structure-ref - _klass276558_ + _klass277759_ '8 gxc#!class::t '#f) - (let ((__tmp282802 - (let ((__tmp282812 + (let ((__tmp284096 + (let ((__tmp284106 (if (##structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _self276504_ + _self277705_ '3 gxc#!mutator::t '#f) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp282803 - (let ((__tmp282809 - (let ((__tmp282810 - (let ((__tmp282811 + (__tmp284097 + (let ((__tmp284103 + (let ((__tmp284104 + (let ((__tmp284105 (##structure-ref - _self276504_ + _self277705_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282811 '())))) + (cons __tmp284105 '())))) (declare (not safe)) - (cons '%#ref __tmp282810))) - (__tmp282804 - (let ((__tmp282807 - (let ((__tmp282808 + (cons '%#ref __tmp284104))) + (__tmp284098 + (let ((__tmp284101 + (let ((__tmp284102 (let () (declare (not safe)) - (cons _field276560_ '())))) + (cons _field277761_ '())))) (declare (not safe)) - (cons '%#quote __tmp282808))) - (__tmp282805 - (let ((__tmp282806 + (cons '%#quote __tmp284102))) + (__tmp284099 + (let ((__tmp284100 (let () (declare (not safe)) - (cons _value276564_ '())))) + (cons _value277765_ '())))) (declare (not safe)) - (cons _object276562_ __tmp282806)))) + (cons _object277763_ __tmp284100)))) (declare (not safe)) - (cons __tmp282807 __tmp282805)))) + (cons __tmp284101 __tmp284099)))) (declare (not safe)) - (cons __tmp282809 __tmp282804)))) + (cons __tmp284103 __tmp284098)))) (declare (not safe)) - (cons __tmp282812 __tmp282803)))) + (cons __tmp284106 __tmp284097)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282802 - _stx276505_)) + __tmp284096 + _stx277706_)) (if (##structure-ref - _klass276558_ + _klass277759_ '7 gxc#!class::t '#f) - (let ((__tmp282791 - (let ((__tmp282801 + (let ((__tmp284085 + (let ((__tmp284095 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (##structure-ref - _self276504_ + _self277705_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp282792 - (let ((__tmp282798 - (let ((__tmp282799 - (let ((__tmp282800 + (__tmp284086 + (let ((__tmp284092 + (let ((__tmp284093 + (let ((__tmp284094 (##structure-ref - _self276504_ + _self277705_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282800 '())))) + (cons __tmp284094 '())))) (declare (not safe)) - (cons '%#ref __tmp282799))) - (__tmp282793 - (let ((__tmp282796 - (let ((__tmp282797 + (cons '%#ref __tmp284093))) + (__tmp284087 + (let ((__tmp284090 + (let ((__tmp284091 (let () (declare (not safe)) - (cons _field276560_ '())))) + (cons _field277761_ '())))) (declare (not safe)) - (cons '%#quote __tmp282797))) - (__tmp282794 - (let ((__tmp282795 + (cons '%#quote __tmp284091))) + (__tmp284088 + (let ((__tmp284089 (let () (declare (not safe)) - (cons _value276564_ '())))) + (cons _value277765_ '())))) (declare (not safe)) - (cons _object276562_ __tmp282795)))) + (cons _object277763_ __tmp284089)))) (declare (not safe)) - (cons __tmp282796 __tmp282794)))) + (cons __tmp284090 __tmp284088)))) (declare (not safe)) - (cons __tmp282798 __tmp282793)))) + (cons __tmp284092 __tmp284087)))) (declare (not safe)) - (cons __tmp282801 __tmp282792)))) + (cons __tmp284095 __tmp284086)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282791 - _stx276505_)) - (let ((_$e276567_ - (let ((__tmp282721 + __tmp284085 + _stx277706_)) + (let ((_$e277768_ + (let ((__tmp284015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self276504_ + _self277705_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (gxc#!class-slot-find-struct _klass276558_ __tmp282721)))) + (gxc#!class-slot-find-struct _klass277759_ __tmp284015)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e276567_ - ((lambda (_klass276570_) - (let ((__tmp282780 + (if _$e277768_ + ((lambda (_klass277771_) + (let ((__tmp284074 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282790 + (let ((__tmp284084 (if (##structure-ref - _self276504_ + _self277705_ '3 gxc#!mutator::t '#f) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp282781 - (let ((__tmp282787 - (let ((__tmp282788 - (let ((__tmp282789 + (__tmp284075 + (let ((__tmp284081 + (let ((__tmp284082 + (let ((__tmp284083 (##structure-ref - _self276504_ + _self277705_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282789 '())))) + (cons __tmp284083 '())))) (declare (not safe)) - (cons '%#ref __tmp282788))) - (__tmp282782 - (let ((__tmp282785 - (let ((__tmp282786 + (cons '%#ref __tmp284082))) + (__tmp284076 + (let ((__tmp284079 + (let ((__tmp284080 (let () (declare (not safe)) - (cons _field276560_ + (cons _field277761_ '())))) (declare (not safe)) - (cons '%#quote __tmp282786))) - (__tmp282783 - (let ((__tmp282784 + (cons '%#quote __tmp284080))) + (__tmp284077 + (let ((__tmp284078 (let () (declare (not safe)) - (cons _value276564_ + (cons _value277765_ '())))) (declare (not safe)) - (cons _object276562_ - __tmp282784)))) + (cons _object277763_ + __tmp284078)))) (declare (not safe)) - (cons __tmp282785 __tmp282783)))) + (cons __tmp284079 __tmp284077)))) (declare (not safe)) - (cons __tmp282787 __tmp282782)))) + (cons __tmp284081 __tmp284076)))) (declare (not safe)) - (cons __tmp282790 __tmp282781)))) + (cons __tmp284084 __tmp284075)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282780 _stx276505_))) - _$e276567_) - (if (##structure-ref _self276504_ '3 gxc#!mutator::t '#f) - (let ((__tmp282732 - (let* ((_$obj276572_ - (let ((__tmp282733 (gensym '__obj))) + (gxc#xform-wrap-source __tmp284074 _stx277706_))) + _$e277768_) + (if (##structure-ref _self277705_ '3 gxc#!mutator::t '#f) + (let ((__tmp284026 + (let* ((_$obj277773_ + (let ((__tmp284027 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp282733))) - (__tmp282734 - (let ((__tmp282776 - (let ((__tmp282777 - (let ((__tmp282779 + (make-symbol__0 __tmp284027))) + (__tmp284028 + (let ((__tmp284070 + (let ((__tmp284071 + (let ((__tmp284073 (let () (declare (not safe)) - (cons _$obj276572_ + (cons _$obj277773_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp282778 - (let () (declare (not safe)) (cons _object276562_ '())))) + (__tmp284072 + (let () (declare (not safe)) (cons _object277763_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282779 - __tmp282778)))) + (cons __tmp284073 + __tmp284072)))) (declare (not safe)) - (cons __tmp282777 '()))) - (__tmp282735 - (let ((__tmp282736 - (let ((__tmp282737 - (let ((__tmp282768 - (let ((__tmp282769 + (cons __tmp284071 '()))) + (__tmp284029 + (let ((__tmp284030 + (let ((__tmp284031 + (let ((__tmp284062 + (let ((__tmp284063 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282773 - (let ((__tmp282774 - (let ((__tmp282775 + (let ((__tmp284067 + (let ((__tmp284068 + (let ((__tmp284069 (##structure-ref - _klass276558_ + _klass277759_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282775 '())))) + (cons __tmp284069 '())))) (declare (not safe)) - (cons '%#quote __tmp282774))) - (__tmp282770 - (let ((__tmp282771 - (let ((__tmp282772 + (cons '%#quote __tmp284068))) + (__tmp284064 + (let ((__tmp284065 + (let ((__tmp284066 (let () (declare (not safe)) - (cons _$obj276572_ + (cons _$obj277773_ '())))) (declare (not safe)) - (cons '%#ref __tmp282772)))) + (cons '%#ref __tmp284066)))) (declare (not safe)) - (cons __tmp282771 '())))) + (cons __tmp284065 '())))) (declare (not safe)) - (cons __tmp282773 __tmp282770)))) + (cons __tmp284067 __tmp284064)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp282769))) - (__tmp282738 - (let ((__tmp282756 - (let ((__tmp282757 - (let ((__tmp282765 - (let ((__tmp282766 - (let ((__tmp282767 + (cons '%#struct-direct-instance? __tmp284063))) + (__tmp284032 + (let ((__tmp284050 + (let ((__tmp284051 + (let ((__tmp284059 + (let ((__tmp284060 + (let ((__tmp284061 (##structure-ref - _self276504_ + _self277705_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282767 '())))) + (cons __tmp284061 '())))) (declare (not safe)) - (cons '%#ref __tmp282766))) - (__tmp282758 - (let ((__tmp282763 - (let ((__tmp282764 + (cons '%#ref __tmp284060))) + (__tmp284052 + (let ((__tmp284057 + (let ((__tmp284058 (let () (declare (not safe)) - (cons _field276560_ + (cons _field277761_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp282764))) + (cons '%#quote __tmp284058))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp282759 - (let ((__tmp282761 - (let ((__tmp282762 + (__tmp284053 + (let ((__tmp284055 + (let ((__tmp284056 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$obj276572_ '())))) + (cons _$obj277773_ '())))) (declare (not safe)) - (cons '%#ref __tmp282762))) - (__tmp282760 - (let () (declare (not safe)) (cons _value276564_ '())))) + (cons '%#ref __tmp284056))) + (__tmp284054 + (let () (declare (not safe)) (cons _value277765_ '())))) (declare (not safe)) - (cons __tmp282761 __tmp282760)))) + (cons __tmp284055 __tmp284054)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282763 - __tmp282759)))) + (cons __tmp284057 + __tmp284053)))) (declare (not safe)) - (cons __tmp282765 __tmp282758)))) + (cons __tmp284059 __tmp284052)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp282757))) - (__tmp282739 - (let ((__tmp282740 - (let ((__tmp282741 - (let ((__tmp282754 - (let ((__tmp282755 + (cons '%#struct-unchecked-set! __tmp284051))) + (__tmp284033 + (let ((__tmp284034 + (let ((__tmp284035 + (let ((__tmp284048 + (let ((__tmp284049 (let () (declare (not safe)) @@ -3460,674 +3861,674 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp282755))) + (cons '%#ref __tmp284049))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp282742 - (let ((__tmp282751 - (let ((__tmp282752 + (__tmp284036 + (let ((__tmp284045 + (let ((__tmp284046 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282753 + (let ((__tmp284047 (##structure-ref - _self276504_ + _self277705_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282753 '())))) + (cons __tmp284047 '())))) (declare (not safe)) - (cons '%#ref __tmp282752))) - (__tmp282743 - (let ((__tmp282749 - (let ((__tmp282750 + (cons '%#ref __tmp284046))) + (__tmp284037 + (let ((__tmp284043 + (let ((__tmp284044 (let () (declare (not safe)) - (cons _$obj276572_ '())))) + (cons _$obj277773_ '())))) (declare (not safe)) - (cons '%#ref __tmp282750))) - (__tmp282744 - (let ((__tmp282746 - (let ((__tmp282747 - (let ((__tmp282748 + (cons '%#ref __tmp284044))) + (__tmp284038 + (let ((__tmp284040 + (let ((__tmp284041 + (let ((__tmp284042 (##structure-ref - _self276504_ + _self277705_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp282748 '())))) + (cons __tmp284042 '())))) (declare (not safe)) - (cons '%#quote __tmp282747))) - (__tmp282745 + (cons '%#quote __tmp284041))) + (__tmp284039 (let () (declare (not safe)) - (cons _value276564_ '())))) + (cons _value277765_ '())))) (declare (not safe)) - (cons __tmp282746 __tmp282745)))) + (cons __tmp284040 __tmp284039)))) (declare (not safe)) - (cons __tmp282749 __tmp282744)))) + (cons __tmp284043 __tmp284038)))) (declare (not safe)) - (cons __tmp282751 __tmp282743)))) + (cons __tmp284045 __tmp284037)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282754 - __tmp282742)))) + (cons __tmp284048 + __tmp284036)))) (declare (not safe)) - (cons '%#call __tmp282741)))) + (cons '%#call __tmp284035)))) (declare (not safe)) - (cons __tmp282740 '())))) + (cons __tmp284034 '())))) (declare (not safe)) - (cons __tmp282756 __tmp282739)))) + (cons __tmp284050 __tmp284033)))) (declare (not safe)) - (cons __tmp282768 __tmp282738)))) + (cons __tmp284062 __tmp284032)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#if __tmp282737)))) + (cons '%#if __tmp284031)))) (declare (not safe)) - (cons __tmp282736 '())))) + (cons __tmp284030 '())))) (declare (not safe)) - (cons __tmp282776 __tmp282735)))) + (cons __tmp284070 __tmp284029)))) (declare (not safe)) - (cons '%#let-values __tmp282734)))) + (cons '%#let-values __tmp284028)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282732 _stx276505_)) - (let ((__tmp282722 - (let ((__tmp282723 - (let ((__tmp282730 - (let ((__tmp282731 + (gxc#xform-wrap-source __tmp284026 _stx277706_)) + (let ((__tmp284016 + (let ((__tmp284017 + (let ((__tmp284024 + (let ((__tmp284025 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp282731))) - (__tmp282724 - (let ((__tmp282725 - (let ((__tmp282727 - (let ((__tmp282728 - (let ((__tmp282729 + (cons '%#ref __tmp284025))) + (__tmp284018 + (let ((__tmp284019 + (let ((__tmp284021 + (let ((__tmp284022 + (let ((__tmp284023 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure-ref - _self276504_ + _self277705_ '2 gxc#!mutator::t '#f))) (declare (not safe)) - (cons __tmp282729 '())))) + (cons __tmp284023 '())))) (declare (not safe)) - (cons '%#quote __tmp282728))) - (__tmp282726 - (let () (declare (not safe)) (cons _value276564_ '())))) + (cons '%#quote __tmp284022))) + (__tmp284020 + (let () (declare (not safe)) (cons _value277765_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282727 - __tmp282726)))) + (cons __tmp284021 + __tmp284020)))) (declare (not safe)) - (cons _object276562_ - __tmp282725)))) + (cons _object277763_ + __tmp284019)))) (declare (not safe)) - (cons __tmp282730 __tmp282724)))) + (cons __tmp284024 __tmp284018)))) (declare (not safe)) - (cons '%#call __tmp282723)))) + (cons '%#call __tmp284017)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282722 _stx276505_))))))))) + (gxc#xform-wrap-source __tmp284016 _stx277706_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd276516276538_ - _hd276513276530_) + _hd277717277739_ + _hd277714277731_) (let () (declare (not safe)) - (_g276508276522_ _g276509276525_))))) + (_g277709277723_ _g277710277726_))))) (let () (declare (not safe)) - (_g276508276522_ _g276509276525_))))) + (_g277709277723_ _g277710277726_))))) (let () (declare (not safe)) - (_g276508276522_ _g276509276525_)))))) + (_g277709277723_ _g277710277726_)))))) (declare (not safe)) - (_g276507276574_ _args276506_)))) + (_g277708277775_ _args277707_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__t281936) - (let ((__checked?281937 - (let ((__tmp281940 + (lambda (__t283148) + (let ((__slot283149 + (let ((__tmp283152 (let () (declare (not safe)) - (class-slot-offset __t281936 'checked?)))) - (if __tmp281940 - __tmp281940 - (error '"Unknown slot" 'checked?)))) - (__id281938 - (let ((__tmp281941 + (class-slot-offset __t283148 'slot)))) + (if __tmp283152 __tmp283152 (error '"Unknown slot" 'slot)))) + (__id283150 + (let ((__tmp283153 (let () (declare (not safe)) - (class-slot-offset __t281936 'id)))) - (if __tmp281941 __tmp281941 (error '"Unknown slot" 'id)))) - (__slot281939 - (let ((__tmp281942 + (class-slot-offset __t283148 'id)))) + (if __tmp283153 __tmp283153 (error '"Unknown slot" 'id)))) + (__checked?283151 + (let ((__tmp283154 (let () (declare (not safe)) - (class-slot-offset __t281936 'slot)))) - (if __tmp281942 __tmp281942 (error '"Unknown slot" 'slot))))) - (lambda (_self276504_ _stx276505_ _args276506_) - (let* ((_g276508276522_ - (lambda (_g276509276519_) + (class-slot-offset __t283148 'checked?)))) + (if __tmp283154 + __tmp283154 + (error '"Unknown slot" 'checked?))))) + (lambda (_self277705_ _stx277706_ _args277707_) + (let* ((_g277709277723_ + (lambda (_g277710277720_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g276509276519_)))) - (_g276507276574_ - (lambda (_g276509276525_) + _g277710277720_)))) + (_g277708277775_ + (lambda (_g277710277726_) (if (let () (declare (not safe)) - (gx#stx-pair? _g276509276525_)) - (let ((_e276514276527_ + (gx#stx-pair? _g277710277726_)) + (let ((_e277715277728_ (let () (declare (not safe)) - (gx#stx-e _g276509276525_)))) - (let ((_hd276513276530_ + (gx#stx-e _g277710277726_)))) + (let ((_hd277714277731_ (let () (declare (not safe)) - (##car _e276514276527_))) - (_tl276512276532_ + (##car _e277715277728_))) + (_tl277713277733_ (let () (declare (not safe)) - (##cdr _e276514276527_)))) + (##cdr _e277715277728_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl276512276532_)) - (let ((_e276517276535_ + (gx#stx-pair? _tl277713277733_)) + (let ((_e277718277736_ (let () (declare (not safe)) - (gx#stx-e _tl276512276532_)))) - (let ((_hd276516276538_ + (gx#stx-e _tl277713277733_)))) + (let ((_hd277717277739_ (let () (declare (not safe)) - (##car _e276517276535_))) - (_tl276515276540_ + (##car _e277718277736_))) + (_tl277716277741_ (let () (declare (not safe)) - (##cdr _e276517276535_)))) + (##cdr _e277718277736_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl276515276540_)) - ((lambda (_L276543_ _L276544_) - (let* ((_klass276558_ - (let ((__tmp282813 + (gx#stx-null? _tl277716277741_)) + ((lambda (_L277744_ _L277745_) + (let* ((_klass277759_ + (let ((__tmp284107 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __id281938 - __t281936 + _self277705_ + __id283150 + __t283148 '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _stx276505_ - __tmp282813))) - (_field276560_ - (let ((__tmp282814 + _stx277706_ + __tmp284107))) + (_field277761_ + (let ((__tmp284108 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __slot281939 - __t281936 + _self277705_ + __slot283149 + __t283148 '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _klass276558_ - __tmp282814))) - (_object276562_ + _klass277759_ + __tmp284108))) + (_object277763_ (let () (declare (not safe)) (gxc#compile-e__0 - _L276544_))) - (_value276564_ + _L277745_))) + (_value277765_ (let () (declare (not safe)) (gxc#compile-e__0 - _L276543_)))) + _L277744_)))) (if (##structure-ref - _klass276558_ + _klass277759_ '8 gxc#!class::t '#f) - (let ((__tmp282896 - (let ((__tmp282906 + (let ((__tmp284190 + (let ((__tmp284200 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __checked?281937 - __t281936 + _self277705_ + __checked?283151 + __t283148 '#f)) '%#struct-direct-set! '%#struct-unchecked-set!)) - (__tmp282897 - (let ((__tmp282903 - (let ((__tmp282904 - (let ((__tmp282905 + (__tmp284191 + (let ((__tmp284197 + (let ((__tmp284198 + (let ((__tmp284199 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __id281938 - __t281936 + _self277705_ + __id283150 + __t283148 '#f)))) (declare (not safe)) - (cons __tmp282905 '())))) + (cons __tmp284199 '())))) (declare (not safe)) - (cons '%#ref __tmp282904))) - (__tmp282898 - (let ((__tmp282901 - (let ((__tmp282902 + (cons '%#ref __tmp284198))) + (__tmp284192 + (let ((__tmp284195 + (let ((__tmp284196 (let () (declare (not safe)) - (cons _field276560_ '())))) + (cons _field277761_ '())))) (declare (not safe)) - (cons '%#quote __tmp282902))) - (__tmp282899 - (let ((__tmp282900 + (cons '%#quote __tmp284196))) + (__tmp284193 + (let ((__tmp284194 (let () (declare (not safe)) - (cons _value276564_ '())))) + (cons _value277765_ '())))) (declare (not safe)) - (cons _object276562_ __tmp282900)))) + (cons _object277763_ __tmp284194)))) (declare (not safe)) - (cons __tmp282901 __tmp282899)))) + (cons __tmp284195 __tmp284193)))) (declare (not safe)) - (cons __tmp282903 __tmp282898)))) + (cons __tmp284197 __tmp284192)))) (declare (not safe)) - (cons __tmp282906 __tmp282897)))) + (cons __tmp284200 __tmp284191)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282896 - _stx276505_)) + __tmp284190 + _stx277706_)) (if (##structure-ref - _klass276558_ + _klass277759_ '7 gxc#!class::t '#f) - (let ((__tmp282885 - (let ((__tmp282895 + (let ((__tmp284179 + (let ((__tmp284189 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __checked?281937 - __t281936 + _self277705_ + __checked?283151 + __t283148 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp282886 - (let ((__tmp282892 - (let ((__tmp282893 - (let ((__tmp282894 + (__tmp284180 + (let ((__tmp284186 + (let ((__tmp284187 + (let ((__tmp284188 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __id281938 - __t281936 + _self277705_ + __id283150 + __t283148 '#f)))) (declare (not safe)) - (cons __tmp282894 '())))) + (cons __tmp284188 '())))) (declare (not safe)) - (cons '%#ref __tmp282893))) - (__tmp282887 - (let ((__tmp282890 - (let ((__tmp282891 + (cons '%#ref __tmp284187))) + (__tmp284181 + (let ((__tmp284184 + (let ((__tmp284185 (let () (declare (not safe)) - (cons _field276560_ '())))) + (cons _field277761_ '())))) (declare (not safe)) - (cons '%#quote __tmp282891))) - (__tmp282888 - (let ((__tmp282889 + (cons '%#quote __tmp284185))) + (__tmp284182 + (let ((__tmp284183 (let () (declare (not safe)) - (cons _value276564_ '())))) + (cons _value277765_ '())))) (declare (not safe)) - (cons _object276562_ - __tmp282889)))) + (cons _object277763_ + __tmp284183)))) (declare (not safe)) - (cons __tmp282890 __tmp282888)))) + (cons __tmp284184 __tmp284182)))) (declare (not safe)) - (cons __tmp282892 __tmp282887)))) + (cons __tmp284186 __tmp284181)))) (declare (not safe)) - (cons __tmp282895 __tmp282886)))) + (cons __tmp284189 __tmp284180)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282885 _stx276505_)) - (let ((_$e276567_ - (let ((__tmp282815 + (gxc#xform-wrap-source __tmp284179 _stx277706_)) + (let ((_$e277768_ + (let ((__tmp284109 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __slot281939 - __t281936 + _self277705_ + __slot283149 + __t283148 '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _klass276558_ - __tmp282815)))) - (if _$e276567_ - ((lambda (_klass276570_) - (let ((__tmp282874 - (let ((__tmp282884 + _klass277759_ + __tmp284109)))) + (if _$e277768_ + ((lambda (_klass277771_) + (let ((__tmp284168 + (let ((__tmp284178 (if (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __checked?281937 - __t281936 + _self277705_ + __checked?283151 + __t283148 '#f)) '%#struct-set! '%#struct-unchecked-set!)) - (__tmp282875 - (let ((__tmp282881 - (let ((__tmp282882 - (let ((__tmp282883 + (__tmp284169 + (let ((__tmp284175 + (let ((__tmp284176 + (let ((__tmp284177 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __id281938 - __t281936 + _self277705_ + __id283150 + __t283148 '#f)))) (declare (not safe)) - (cons __tmp282883 '())))) + (cons __tmp284177 '())))) (declare (not safe)) - (cons '%#ref __tmp282882))) - (__tmp282876 - (let ((__tmp282879 - (let ((__tmp282880 + (cons '%#ref __tmp284176))) + (__tmp284170 + (let ((__tmp284173 + (let ((__tmp284174 (let () (declare (not safe)) - (cons _field276560_ + (cons _field277761_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#quote __tmp282880))) + (cons '%#quote __tmp284174))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp282877 - (let ((__tmp282878 + (__tmp284171 + (let ((__tmp284172 (let () (declare (not safe)) - (cons _value276564_ + (cons _value277765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _object276562_ __tmp282878)))) + (cons _object277763_ __tmp284172)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282879 - __tmp282877)))) + (cons __tmp284173 + __tmp284171)))) (declare (not safe)) - (cons __tmp282881 __tmp282876)))) + (cons __tmp284175 __tmp284170)))) (declare (not safe)) - (cons __tmp282884 __tmp282875)))) + (cons __tmp284178 __tmp284169)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282874 _stx276505_))) - _$e276567_) + (gxc#xform-wrap-source __tmp284168 _stx277706_))) + _$e277768_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __checked?281937 - __t281936 + _self277705_ + __checked?283151 + __t283148 '#f)) - (let ((__tmp282826 - (let* ((_$obj276572_ - (let ((__tmp282827 (gensym '__obj))) + (let ((__tmp284120 + (let* ((_$obj277773_ + (let ((__tmp284121 (gensym '__obj))) (declare (not safe)) - (make-symbol__0 __tmp282827))) - (__tmp282828 - (let ((__tmp282870 - (let ((__tmp282871 - (let ((__tmp282873 + (make-symbol__0 __tmp284121))) + (__tmp284122 + (let ((__tmp284164 + (let ((__tmp284165 + (let ((__tmp284167 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$obj276572_ '()))) - (__tmp282872 - (let () (declare (not safe)) (cons _object276562_ '())))) + (cons _$obj277773_ '()))) + (__tmp284166 + (let () (declare (not safe)) (cons _object277763_ '())))) (declare (not safe)) - (cons __tmp282873 __tmp282872)))) + (cons __tmp284167 __tmp284166)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282871 '()))) - (__tmp282829 - (let ((__tmp282830 - (let ((__tmp282831 - (let ((__tmp282862 + (cons __tmp284165 '()))) + (__tmp284123 + (let ((__tmp284124 + (let ((__tmp284125 + (let ((__tmp284156 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282863 - (let ((__tmp282867 - (let ((__tmp282868 - (let ((__tmp282869 + (let ((__tmp284157 + (let ((__tmp284161 + (let ((__tmp284162 + (let ((__tmp284163 (##structure-ref - _klass276558_ + _klass277759_ '1 gxc#!type::t '#f))) (declare (not safe)) - (cons __tmp282869 '())))) + (cons __tmp284163 '())))) (declare (not safe)) - (cons '%#quote __tmp282868))) - (__tmp282864 - (let ((__tmp282865 - (let ((__tmp282866 + (cons '%#quote __tmp284162))) + (__tmp284158 + (let ((__tmp284159 + (let ((__tmp284160 (let () (declare (not safe)) - (cons _$obj276572_ + (cons _$obj277773_ '())))) (declare (not safe)) - (cons '%#ref __tmp282866)))) + (cons '%#ref __tmp284160)))) (declare (not safe)) - (cons __tmp282865 '())))) + (cons __tmp284159 '())))) (declare (not safe)) - (cons __tmp282867 __tmp282864)))) + (cons __tmp284161 __tmp284158)))) (declare (not safe)) - (cons '%#struct-direct-instance? __tmp282863))) - (__tmp282832 - (let ((__tmp282850 - (let ((__tmp282851 - (let ((__tmp282859 - (let ((__tmp282860 - (let ((__tmp282861 + (cons '%#struct-direct-instance? __tmp284157))) + (__tmp284126 + (let ((__tmp284144 + (let ((__tmp284145 + (let ((__tmp284153 + (let ((__tmp284154 + (let ((__tmp284155 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __id281938 - __t281936 + _self277705_ + __id283150 + __t283148 '#f)))) (declare (not safe)) - (cons __tmp282861 '())))) + (cons __tmp284155 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp282860))) - (__tmp282852 - (let ((__tmp282857 - (let ((__tmp282858 + (cons '%#ref __tmp284154))) + (__tmp284146 + (let ((__tmp284151 + (let ((__tmp284152 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _field276560_ '())))) + (cons _field277761_ '())))) (declare (not safe)) - (cons '%#quote __tmp282858))) - (__tmp282853 - (let ((__tmp282855 - (let ((__tmp282856 + (cons '%#quote __tmp284152))) + (__tmp284147 + (let ((__tmp284149 + (let ((__tmp284150 (let () (declare (not safe)) - (cons _$obj276572_ '())))) + (cons _$obj277773_ '())))) (declare (not safe)) - (cons '%#ref __tmp282856))) - (__tmp282854 - (let () (declare (not safe)) (cons _value276564_ '())))) + (cons '%#ref __tmp284150))) + (__tmp284148 + (let () (declare (not safe)) (cons _value277765_ '())))) (declare (not safe)) - (cons __tmp282855 __tmp282854)))) + (cons __tmp284149 __tmp284148)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282857 - __tmp282853)))) + (cons __tmp284151 + __tmp284147)))) (declare (not safe)) - (cons __tmp282859 __tmp282852)))) + (cons __tmp284153 __tmp284146)))) (declare (not safe)) (cons '%#struct-unchecked-set! - __tmp282851))) - (__tmp282833 - (let ((__tmp282834 - (let ((__tmp282835 - (let ((__tmp282848 - (let ((__tmp282849 + __tmp284145))) + (__tmp284127 + (let ((__tmp284128 + (let ((__tmp284129 + (let ((__tmp284142 + (let ((__tmp284143 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons 'class-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp282849))) - (__tmp282836 - (let ((__tmp282845 - (let ((__tmp282846 - (let ((__tmp282847 + (cons '%#ref __tmp284143))) + (__tmp284130 + (let ((__tmp284139 + (let ((__tmp284140 + (let ((__tmp284141 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __id281938 - __t281936 + _self277705_ + __id283150 + __t283148 '#f)))) (declare (not safe)) - (cons __tmp282847 '())))) + (cons __tmp284141 '())))) (declare (not safe)) - (cons '%#ref __tmp282846))) - (__tmp282837 - (let ((__tmp282843 - (let ((__tmp282844 + (cons '%#ref __tmp284140))) + (__tmp284131 + (let ((__tmp284137 + (let ((__tmp284138 (let () (declare (not safe)) - (cons _$obj276572_ '())))) + (cons _$obj277773_ '())))) (declare (not safe)) - (cons '%#ref __tmp282844))) - (__tmp282838 - (let ((__tmp282840 - (let ((__tmp282841 - (let ((__tmp282842 + (cons '%#ref __tmp284138))) + (__tmp284132 + (let ((__tmp284134 + (let ((__tmp284135 + (let ((__tmp284136 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __slot281939 - __t281936 + _self277705_ + __slot283149 + __t283148 '#f)))) (declare (not safe)) - (cons __tmp282842 '())))) + (cons __tmp284136 '())))) (declare (not safe)) - (cons '%#quote __tmp282841))) - (__tmp282839 + (cons '%#quote __tmp284135))) + (__tmp284133 (let () (declare (not safe)) - (cons _value276564_ '())))) + (cons _value277765_ '())))) (declare (not safe)) - (cons __tmp282840 __tmp282839)))) + (cons __tmp284134 __tmp284133)))) (declare (not safe)) - (cons __tmp282843 __tmp282838)))) + (cons __tmp284137 __tmp284132)))) (declare (not safe)) - (cons __tmp282845 __tmp282837)))) + (cons __tmp284139 __tmp284131)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282848 - __tmp282836)))) + (cons __tmp284142 + __tmp284130)))) (declare (not safe)) - (cons '%#call __tmp282835)))) + (cons '%#call __tmp284129)))) (declare (not safe)) - (cons __tmp282834 '())))) + (cons __tmp284128 '())))) (declare (not safe)) - (cons __tmp282850 __tmp282833)))) + (cons __tmp284144 __tmp284127)))) (declare (not safe)) - (cons __tmp282862 __tmp282832)))) + (cons __tmp284156 __tmp284126)))) (declare (not safe)) - (cons '%#if __tmp282831)))) + (cons '%#if __tmp284125)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282830 '())))) + (cons __tmp284124 '())))) (declare (not safe)) - (cons __tmp282870 __tmp282829)))) + (cons __tmp284164 __tmp284123)))) (declare (not safe)) - (cons '%#let-values __tmp282828)))) + (cons '%#let-values __tmp284122)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp282826 _stx276505_)) - (let ((__tmp282816 - (let ((__tmp282817 - (let ((__tmp282824 - (let ((__tmp282825 + (gxc#xform-wrap-source __tmp284120 _stx277706_)) + (let ((__tmp284110 + (let ((__tmp284111 + (let ((__tmp284118 + (let ((__tmp284119 (let () (declare (not safe)) (cons 'unchecked-slot-set! '())))) (declare (not safe)) - (cons '%#ref __tmp282825))) - (__tmp282818 - (let ((__tmp282819 - (let ((__tmp282821 - (let ((__tmp282822 + (cons '%#ref __tmp284119))) + (__tmp284112 + (let ((__tmp284113 + (let ((__tmp284115 + (let ((__tmp284116 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282823 + (let ((__tmp284117 (let () (declare (not safe)) (##unchecked-structure-ref - _self276504_ - __slot281939 - __t281936 + _self277705_ + __slot283149 + __t283148 '#f)))) (declare (not safe)) - (cons __tmp282823 '())))) + (cons __tmp284117 '())))) (declare (not safe)) - (cons '%#quote __tmp282822))) - (__tmp282820 - (let () (declare (not safe)) (cons _value276564_ '())))) + (cons '%#quote __tmp284116))) + (__tmp284114 + (let () (declare (not safe)) (cons _value277765_ '())))) (declare (not safe)) - (cons __tmp282821 __tmp282820)))) + (cons __tmp284115 __tmp284114)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _object276562_ - __tmp282819)))) + (cons _object277763_ + __tmp284113)))) (declare (not safe)) - (cons __tmp282824 __tmp282818)))) + (cons __tmp284118 __tmp284112)))) (declare (not safe)) - (cons '%#call __tmp282817)))) + (cons '%#call __tmp284111)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282816 - _stx276505_))))))))) + __tmp284110 + _stx277706_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd276516276538_ - _hd276513276530_) + _hd277717277739_ + _hd277714277731_) (let () (declare (not safe)) - (_g276508276522_ - _g276509276525_))))) + (_g277709277723_ + _g277710277726_))))) (let () (declare (not safe)) - (_g276508276522_ _g276509276525_))))) + (_g277709277723_ _g277710277726_))))) (let () (declare (not safe)) - (_g276508276522_ _g276509276525_)))))) + (_g277709277723_ _g277710277726_)))))) (declare (not safe)) - (_g276507276574_ _args276506_)))))) + (_g277708277775_ _args277707_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4141,113 +4542,113 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_self276338_ _stx276339_ _args276340_) - (let* ((_self276341276350_ _self276338_) - (_E276343276354_ - (lambda () (error '"No clause matching" _self276341276350_))) - (_K276344276361_ - (lambda (_inline276357_ _dispatch276358_ _arity276359_) + (lambda (_self277539_ _stx277540_ _args277541_) + (let* ((_self277542277551_ _self277539_) + (_E277544277555_ + (lambda () (error '"No clause matching" _self277542277551_))) + (_K277545277562_ + (lambda (_inline277558_ _dispatch277559_ _arity277560_) (if (let () (declare (not safe)) - (gxc#!lambda-arity-match? _self276338_ _args276340_)) + (gxc#!lambda-arity-match? _self277539_ _args277541_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _stx276339_ - _arity276359_))) - (if _inline276357_ + _stx277540_ + _arity277560_))) + (if _inline277558_ (begin (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp282912 - (let ((__tmp282913 - (_inline276357_ _stx276339_))) + (let ((__tmp284206 + (let ((__tmp284207 + (_inline277558_ _stx277540_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282913 - _stx276339_)))) + __tmp284207 + _stx277540_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp282912))) - (if _dispatch276358_ + (gxc#compile-e__0 __tmp284206))) + (if _dispatch277559_ (begin (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _dispatch276358_)) - (let ((__tmp282907 - (let ((__tmp282908 - (let ((__tmp282909 - (let ((__tmp282910 - (let ((__tmp282911 + _dispatch277559_)) + (let ((__tmp284201 + (let ((__tmp284202 + (let ((__tmp284203 + (let ((__tmp284204 + (let ((__tmp284205 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _dispatch276358_ '())))) + (cons _dispatch277559_ '())))) (declare (not safe)) - (cons '%#ref __tmp282911)))) + (cons '%#ref __tmp284205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282910 - _args276340_)))) + (cons __tmp284204 + _args277541_)))) (declare (not safe)) - (cons '%#call __tmp282909)))) + (cons '%#call __tmp284203)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282908 - _stx276339_)))) + __tmp284202 + _stx277540_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp282907))) + (gxc#compile-e__0 __tmp284201))) (let () (declare (not safe)) - (gxc#xform-call% _stx276339_))))))) + (gxc#xform-call% _stx277540_))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self276341276350_ 'gxc#!lambda::t)) - (let* ((_e276345276364_ + (##structure-instance-of? _self277542277551_ 'gxc#!lambda::t)) + (let* ((_e277546277565_ (let () (declare (not safe)) (##unchecked-structure-ref - _self276341276350_ + _self277542277551_ '1 gxc#!type::t '#f))) - (_e276346276367_ + (_e277547277568_ (let () (declare (not safe)) (##unchecked-structure-ref - _self276341276350_ + _self277542277551_ '2 gxc#!lambda::t '#f))) - (_arity276370_ _e276346276367_) - (_e276347276372_ + (_arity277571_ _e277547277568_) + (_e277548277573_ (let () (declare (not safe)) (##unchecked-structure-ref - _self276341276350_ + _self277542277551_ '3 gxc#!lambda::t '#f))) - (_dispatch276375_ _e276347276372_) - (_e276348276377_ + (_dispatch277576_ _e277548277573_) + (_e277549277578_ (let () (declare (not safe)) (##unchecked-structure-ref - _self276341276350_ + _self277542277551_ '4 gxc#!lambda::t '#f))) - (_inline276380_ _e276348276377_)) + (_inline277581_ _e277549277578_)) (declare (not safe)) - (_K276344276361_ - _inline276380_ - _dispatch276375_ - _arity276370_)) - (let () (declare (not safe)) (_E276343276354_)))))) + (_K277545277562_ + _inline277581_ + _dispatch277576_ + _arity277571_)) + (let () (declare (not safe)) (_E277544277555_)))))) (let () (declare (not safe)) (bind-method! @@ -4256,71 +4657,71 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_self276177_ _stx276178_ _args276179_) - (let* ((_self276180276187_ _self276177_) - (_E276182276191_ - (lambda () (error '"No clause matching" _self276180276187_))) - (_K276183276205_ - (lambda (_clauses276194_) - (let ((_$e276200_ - (let ((__tmp282914 - (lambda (_g276195276197_) + (lambda (_self277378_ _stx277379_ _args277380_) + (let* ((_self277381277388_ _self277378_) + (_E277383277392_ + (lambda () (error '"No clause matching" _self277381277388_))) + (_K277384277406_ + (lambda (_clauses277395_) + (let ((_$e277401_ + (let ((__tmp284208 + (lambda (_g277396277398_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _g276195276197_ - _args276179_))))) + _g277396277398_ + _args277380_))))) (declare (not safe)) - (find __tmp282914 _clauses276194_)))) - (if _$e276200_ - ((lambda (_clause276203_) - (let ((__method282211 + (find __tmp284208 _clauses277395_)))) + (if _$e277401_ + ((lambda (_clause277404_) + (let ((__method283423 (let () (declare (not safe)) (method-ref - _clause276203_ + _clause277404_ 'optimize-call)))) - (if __method282211 - (__method282211 - _clause276203_ - _stx276178_ - _args276179_) + (if __method283423 + (__method283423 + _clause277404_ + _stx277379_ + _args277380_) (error '"Missing method" - _clause276203_ + _clause277404_ 'optimize-call)))) - _$e276200_) - (let ((__tmp282915 - (map gxc#!lambda-arity _clauses276194_))) + _$e277401_) + (let ((__tmp284209 + (map gxc#!lambda-arity _clauses277395_))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _stx276178_ - __tmp282915))))))) + _stx277379_ + __tmp284209))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self276180276187_ + _self277381277388_ 'gxc#!case-lambda::t)) - (let* ((_e276184276208_ + (let* ((_e277385277409_ (let () (declare (not safe)) (##unchecked-structure-ref - _self276180276187_ + _self277381277388_ '1 gxc#!type::t '#f))) - (_e276185276211_ + (_e277386277412_ (let () (declare (not safe)) (##unchecked-structure-ref - _self276180276187_ + _self277381277388_ '2 gxc#!case-lambda::t '#f))) - (_clauses276214_ _e276185276211_)) + (_clauses277415_ _e277386277412_)) (declare (not safe)) - (_K276183276205_ _clauses276214_)) - (let () (declare (not safe)) (_E276182276191_)))))) + (_K277384277406_ _clauses277415_)) + (let () (declare (not safe)) (_E277383277392_)))))) (let () (declare (not safe)) (bind-method! @@ -4329,484 +4730,484 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!lambda-arity-match? - (lambda (_self275991_ _args275992_) - (let* ((_self275993276000_ _self275991_) - (_E275995276004_ - (lambda () (error '"No clause matching" _self275993276000_))) - (_K275996276044_ - (lambda (_arity276007_) - (let* ((_arity276008276017_ _arity276007_) - (_E276011276021_ + (lambda (_self277192_ _args277193_) + (let* ((_self277194277201_ _self277192_) + (_E277196277205_ + (lambda () (error '"No clause matching" _self277194277201_))) + (_K277197277245_ + (lambda (_arity277208_) + (let* ((_arity277209277218_ _arity277208_) + (_E277212277222_ (lambda () (error '"No clause matching" - _arity276008276017_)))) - (let ((_K276015276041_ + _arity277209277218_)))) + (let ((_K277216277242_ (lambda () - (fx= (length _args275992_) _arity276007_))) - (_K276012276027_ - (lambda (_arity276025_) - (fx>= (length _args275992_) _arity276025_)))) - (let ((_try-match276010276037_ + (fx= (length _args277193_) _arity277208_))) + (_K277213277228_ + (lambda (_arity277226_) + (fx>= (length _args277193_) _arity277226_)))) + (let ((_try-match277211277238_ (lambda () (if (let () (declare (not safe)) - (##pair? _arity276008276017_)) - (let ((_tl276014276032_ + (##pair? _arity277209277218_)) + (let ((_tl277215277233_ (let () (declare (not safe)) - (##cdr _arity276008276017_))) - (_hd276013276030_ + (##cdr _arity277209277218_))) + (_hd277214277231_ (let () (declare (not safe)) - (##car _arity276008276017_)))) + (##car _arity277209277218_)))) (if (let () (declare (not safe)) - (##null? _tl276014276032_)) - (let ((_arity276035_ - _hd276013276030_)) + (##null? _tl277215277233_)) + (let ((_arity277236_ + _hd277214277231_)) (declare (not safe)) - (_K276012276027_ _arity276035_)) + (_K277213277228_ _arity277236_)) (let () (declare (not safe)) - (_E276011276021_)))) + (_E277212277222_)))) (let () (declare (not safe)) - (_E276011276021_)))))) - (if (fixnum? _arity276008276017_) - (let () (declare (not safe)) (_K276015276041_)) + (_E277212277222_)))))) + (if (fixnum? _arity277209277218_) + (let () (declare (not safe)) (_K277216277242_)) (let () (declare (not safe)) - (_try-match276010276037_))))))))) + (_try-match277211277238_))))))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self275993276000_ 'gxc#!lambda::t)) - (let* ((_e275997276047_ + (##structure-instance-of? _self277194277201_ 'gxc#!lambda::t)) + (let* ((_e277198277248_ (let () (declare (not safe)) (##unchecked-structure-ref - _self275993276000_ + _self277194277201_ '1 gxc#!type::t '#f))) - (_e275998276050_ + (_e277199277251_ (let () (declare (not safe)) (##unchecked-structure-ref - _self275993276000_ + _self277194277201_ '2 gxc#!lambda::t '#f))) - (_arity276053_ _e275998276050_)) + (_arity277254_ _e277199277251_)) (declare (not safe)) - (_K275996276044_ _arity276053_)) - (let () (declare (not safe)) (_E275995276004_)))))) + (_K277197277245_ _arity277254_)) + (let () (declare (not safe)) (_E277196277205_)))))) (define gxc#!kw-lambda::optimize-call - (lambda (_self275876_ _stx275877_ _args275878_) - (let* ((_self275879275887_ _self275876_) - (_E275881275891_ - (lambda () (error '"No clause matching" _self275879275887_))) - (_K275882275975_ - (lambda (_dispatch275894_ _table275895_) - (let* ((_g275896275905_ + (lambda (_self277077_ _stx277078_ _args277079_) + (let* ((_self277080277088_ _self277077_) + (_E277082277092_ + (lambda () (error '"No clause matching" _self277080277088_))) + (_K277083277176_ + (lambda (_dispatch277095_ _table277096_) + (let* ((_g277097277106_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _dispatch275894_))) - (_else275898275913_ + (gxc#optimizer-lookup-type _dispatch277095_))) + (_else277099277114_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _dispatch275894_)) + _dispatch277095_)) (let () (declare (not safe)) - (gxc#xform-call% _stx275877_)))) - (_K275900275959_ - (lambda (_main275916_ _keys275917_) - (let ((_g282916_ + (gxc#xform-call% _stx277078_)))) + (_K277101277160_ + (lambda (_main277117_ _keys277118_) + (let ((_g284210_ (let () (declare (not safe)) (gxc#!kw-lambda-split-args - _stx275877_ - _args275878_)))) + _stx277078_ + _args277079_)))) (begin - (let ((_g282917_ + (let ((_g284211_ (let () (declare (not safe)) - (if (##values? _g282916_) - (##vector-length _g282916_) + (if (##values? _g284210_) + (##vector-length _g284210_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g282917_ 2))) + (##fx= _g284211_ 2))) (error "Context expects 2 values" - _g282917_))) - (let ((_pargs275919_ + _g284211_))) + (let ((_pargs277120_ (let () (declare (not safe)) - (##vector-ref _g282916_ 0))) - (_kwargs275920_ + (##vector-ref _g284210_ 0))) + (_kwargs277121_ (let () (declare (not safe)) - (##vector-ref _g282916_ 1)))) + (##vector-ref _g284210_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _main275916_)) - (if _table275895_ - (let ((_xargs275927_ - (map (lambda (_key275922_) - (let ((_$e275924_ + _main277117_)) + (if _table277096_ + (let ((_xargs277128_ + (map (lambda (_key277123_) + (let ((_$e277125_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key275922_ _kwargs275920_)))) - (if _$e275924_ (values _$e275924_) '(%#ref absent-value)))) + (assgetq _key277123_ _kwargs277121_)))) + (if _$e277125_ (values _$e277125_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys275917_))) + _keys277118_))) (for-each - (lambda (_kw275929_) - (if (memq (car _kw275929_) - _keys275917_) + (lambda (_kw277130_) + (if (memq (car _kw277130_) + _keys277118_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _stx275877_ - _keys275917_ - _kw275929_)))) - _kwargs275920_) - (let ((__tmp282969 - (let ((__tmp282970 - (let ((__tmp282971 - (let ((__tmp282976 + _stx277078_ + _keys277118_ + _kw277130_)))) + _kwargs277121_) + (let ((__tmp284263 + (let ((__tmp284264 + (let ((__tmp284265 + (let ((__tmp284270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282977 + (let ((__tmp284271 (let () (declare (not safe)) - (cons _main275916_ '())))) + (cons _main277117_ '())))) (declare (not safe)) - (cons '%#ref __tmp282977))) - (__tmp282972 - (let ((__tmp282974 - (let ((__tmp282975 + (cons '%#ref __tmp284271))) + (__tmp284266 + (let ((__tmp284268 + (let ((__tmp284269 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '%#quote __tmp282975))) - (__tmp282973 + (cons '%#quote __tmp284269))) + (__tmp284267 (let () (declare (not safe)) (foldr1 cons - _pargs275919_ - _xargs275927_)))) + _pargs277120_ + _xargs277128_)))) (declare (not safe)) - (cons __tmp282974 __tmp282973)))) + (cons __tmp284268 __tmp284267)))) (declare (not safe)) - (cons __tmp282976 __tmp282972)))) + (cons __tmp284270 __tmp284266)))) (declare (not safe)) - (cons '%#call __tmp282971)))) + (cons '%#call __tmp284265)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282970 - _stx275877_)))) + __tmp284264 + _stx277078_)))) (declare (not safe)) - (gxc#compile-e__0 __tmp282969))) - (let* ((_kwt275931_ - (let ((__tmp282918 + (gxc#compile-e__0 __tmp284263))) + (let* ((_kwt277132_ + (let ((__tmp284212 (gensym '__kwt))) (declare (not safe)) (make-symbol__0 - __tmp282918))) - (_kwvars275934_ - (map (lambda (_g282919_) - (let ((__tmp282920 + __tmp284212))) + (_kwvars277135_ + (map (lambda (_g284213_) + (let ((__tmp284214 (gensym '__kw))) (declare (not safe)) (make-symbol__0 - __tmp282920))) - _kwargs275920_)) - (_kwbind275939_ - (map (lambda (_kw275936_ - _kwvar275937_) - (let ((__tmp282923 + __tmp284214))) + _kwargs277121_)) + (_kwbind277140_ + (map (lambda (_kw277137_ + _kwvar277138_) + (let ((__tmp284217 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _kwvar275937_ '()))) - (__tmp282921 - (let ((__tmp282922 (cdr _kw275936_))) + (cons _kwvar277138_ '()))) + (__tmp284215 + (let ((__tmp284216 (cdr _kw277137_))) (declare (not safe)) - (cons __tmp282922 '())))) + (cons __tmp284216 '())))) (declare (not safe)) - (cons __tmp282923 __tmp282921))) + (cons __tmp284217 __tmp284215))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs275920_ - _kwvars275934_)) - (_kwset275944_ - (map (lambda (_kw275941_ - _kwvar275942_) - (let ((__tmp282924 - (let ((__tmp282925 + _kwargs277121_ + _kwvars277135_)) + (_kwset277145_ + (map (lambda (_kw277142_ + _kwvar277143_) + (let ((__tmp284218 + (let ((__tmp284219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282933 - (let ((__tmp282934 + (let ((__tmp284227 + (let ((__tmp284228 (let () (declare (not safe)) - (cons _kwt275931_ '())))) + (cons _kwt277132_ '())))) (declare (not safe)) - (cons '%#ref __tmp282934))) - (__tmp282926 - (let ((__tmp282930 - (let ((__tmp282931 - (let ((__tmp282932 - (car _kw275941_))) + (cons '%#ref __tmp284228))) + (__tmp284220 + (let ((__tmp284224 + (let ((__tmp284225 + (let ((__tmp284226 + (car _kw277142_))) (declare (not safe)) - (cons __tmp282932 '())))) + (cons __tmp284226 '())))) (declare (not safe)) - (cons '%#quote __tmp282931))) - (__tmp282927 - (let ((__tmp282928 - (let ((__tmp282929 + (cons '%#quote __tmp284225))) + (__tmp284221 + (let ((__tmp284222 + (let ((__tmp284223 (let () (declare (not safe)) - (cons _kwvar275942_ + (cons _kwvar277143_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp282929)))) + __tmp284223)))) (declare (not safe)) - (cons __tmp282928 '())))) + (cons __tmp284222 '())))) (declare (not safe)) - (cons __tmp282930 __tmp282927)))) + (cons __tmp284224 __tmp284221)))) (declare (not safe)) - (cons __tmp282933 __tmp282926)))) + (cons __tmp284227 __tmp284220)))) (declare (not safe)) - (cons '(%#ref hash-put!) __tmp282925)))) + (cons '(%#ref hash-put!) __tmp284219)))) (declare (not safe)) - (cons '%#call __tmp282924))) + (cons '%#call __tmp284218))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs275920_ - _kwvars275934_)) - (_xkwargs275949_ - (map (lambda (_kw275946_ - _kwvar275947_) - (let ((__tmp282937 - (car _kw275946_)) - (__tmp282935 - (let ((__tmp282936 + _kwargs277121_ + _kwvars277135_)) + (_xkwargs277150_ + (map (lambda (_kw277147_ + _kwvar277148_) + (let ((__tmp284231 + (car _kw277147_)) + (__tmp284229 + (let ((__tmp284230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _kwvar275947_ '())))) + (cons _kwvar277148_ '())))) (declare (not safe)) - (cons '%#ref __tmp282936)))) + (cons '%#ref __tmp284230)))) (declare (not safe)) - (cons __tmp282937 __tmp282935))) + (cons __tmp284231 __tmp284229))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _kwargs275920_ - _kwvars275934_)) - (_xargs275956_ - (map (lambda (_key275951_) - (let ((_$e275953_ + _kwargs277121_ + _kwvars277135_)) + (_xargs277157_ + (map (lambda (_key277152_) + (let ((_$e277154_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _key275951_ _xkwargs275949_)))) - (if _$e275953_ (values _$e275953_) '(%#ref absent-value)))) + (assgetq _key277152_ _xkwargs277150_)))) + (if _$e277154_ (values _$e277154_) '(%#ref absent-value)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _keys275917_))) - (let ((__tmp282938 - (let ((__tmp282939 - (let ((__tmp282940 - (let ((__tmp282941 + _keys277118_))) + (let ((__tmp284232 + (let ((__tmp284233 + (let ((__tmp284234 + (let ((__tmp284235 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282942 - (let ((__tmp282943 - (let ((__tmp282957 - (let ((__tmp282958 - (let ((__tmp282968 + (let ((__tmp284236 + (let ((__tmp284237 + (let ((__tmp284251 + (let ((__tmp284252 + (let ((__tmp284262 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _kwt275931_ '()))) - (__tmp282959 - (let ((__tmp282960 - (let ((__tmp282961 - (let ((__tmp282962 - (let ((__tmp282963 - (let ((__tmp282964 - (let ((__tmp282965 + (let () (declare (not safe)) (cons _kwt277132_ '()))) + (__tmp284253 + (let ((__tmp284254 + (let ((__tmp284255 + (let ((__tmp284256 + (let ((__tmp284257 + (let ((__tmp284258 + (let ((__tmp284259 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282966 - (let ((__tmp282967 (length _kwargs275920_))) + (let ((__tmp284260 + (let ((__tmp284261 (length _kwargs277121_))) (declare (not safe)) - (cons __tmp282967 '())))) + (cons __tmp284261 '())))) (declare (not safe)) - (cons '%#quote __tmp282966)))) + (cons '%#quote __tmp284260)))) (declare (not safe)) - (cons __tmp282965 '())))) + (cons __tmp284259 '())))) (declare (not safe)) - (cons '(%#quote size:) __tmp282964)))) + (cons '(%#quote size:) __tmp284258)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '(%#ref make-hash-table-eq) - __tmp282963)))) + __tmp284257)))) (declare (not safe)) - (cons '%#call __tmp282962)))) + (cons '%#call __tmp284256)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282961 - _stx275877_)))) + __tmp284255 + _stx277078_)))) (declare (not safe)) - (cons __tmp282960 '())))) + (cons __tmp284254 '())))) (declare (not safe)) - (cons __tmp282968 __tmp282959)))) + (cons __tmp284262 __tmp284253)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282958 '()))) - (__tmp282944 - (let ((__tmp282945 - (let ((__tmp282946 + (cons __tmp284252 '()))) + (__tmp284238 + (let ((__tmp284239 + (let ((__tmp284240 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp282947 - (let ((__tmp282948 - (let ((__tmp282949 - (let ((__tmp282950 - (let ((__tmp282955 - (let ((__tmp282956 + (let ((__tmp284241 + (let ((__tmp284242 + (let ((__tmp284243 + (let ((__tmp284244 + (let ((__tmp284249 + (let ((__tmp284250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main275916_ '())))) + (cons _main277117_ '())))) (declare (not safe)) - (cons '%#ref __tmp282956))) - (__tmp282951 - (let ((__tmp282953 - (let ((__tmp282954 + (cons '%#ref __tmp284250))) + (__tmp284245 + (let ((__tmp284247 + (let ((__tmp284248 (let () (declare (not safe)) - (cons _kwt275931_ '())))) + (cons _kwt277132_ '())))) (declare (not safe)) - (cons '%#ref __tmp282954))) - (__tmp282952 + (cons '%#ref __tmp284248))) + (__tmp284246 (let () (declare (not safe)) - (foldr1 cons _pargs275919_ _xargs275956_)))) + (foldr1 cons _pargs277120_ _xargs277157_)))) (declare (not safe)) - (cons __tmp282953 __tmp282952)))) + (cons __tmp284247 __tmp284246)))) (declare (not safe)) - (cons __tmp282955 __tmp282951)))) + (cons __tmp284249 __tmp284245)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp282950)))) + (cons '%#call __tmp284244)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp282949 - _stx275877_)))) + __tmp284243 + _stx277078_)))) (declare (not safe)) - (cons __tmp282948 '())))) + (cons __tmp284242 '())))) (declare (not safe)) - (foldr1 cons __tmp282947 _kwset275944_)))) + (foldr1 cons __tmp284241 _kwset277145_)))) (declare (not safe)) - (cons '%#begin __tmp282946)))) + (cons '%#begin __tmp284240)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp282945 '())))) + (cons __tmp284239 '())))) (declare (not safe)) - (cons __tmp282957 __tmp282944)))) + (cons __tmp284251 __tmp284238)))) (declare (not safe)) - (cons '%#let-values __tmp282943)))) + (cons '%#let-values __tmp284237)))) (declare (not safe)) - (cons __tmp282942 '())))) + (cons __tmp284236 '())))) (declare (not safe)) - (cons _kwbind275939_ __tmp282941)))) + (cons _kwbind277140_ __tmp284235)))) (declare (not safe)) - (cons '%#let-values __tmp282940)))) + (cons '%#let-values __tmp284234)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp282939 - _stx275877_)))) + __tmp284233 + _stx277078_)))) (declare (not safe)) (gxc#compile-e__0 - __tmp282938))))))))))) + __tmp284232))))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _g275896275905_ + _g277097277106_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e275901275962_ + (let* ((_e277102277163_ (let () (declare (not safe)) (##unchecked-structure-ref - _g275896275905_ + _g277097277106_ '1 gxc#!type::t '#f))) - (_e275902275965_ + (_e277103277166_ (let () (declare (not safe)) (##unchecked-structure-ref - _g275896275905_ + _g277097277106_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys275968_ _e275902275965_) - (_e275903275970_ + (_keys277169_ _e277103277166_) + (_e277104277171_ (let () (declare (not safe)) (##unchecked-structure-ref - _g275896275905_ + _g277097277106_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main275973_ _e275903275970_)) + (_main277174_ _e277104277171_)) (declare (not safe)) - (_K275900275959_ _main275973_ _keys275968_)) - (let () (declare (not safe)) (_else275898275913_))))))) + (_K277101277160_ _main277174_ _keys277169_)) + (let () (declare (not safe)) (_else277099277114_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self275879275887_ + _self277080277088_ 'gxc#!kw-lambda::t)) - (let* ((_e275883275978_ + (let* ((_e277084277179_ (let () (declare (not safe)) (##unchecked-structure-ref - _self275879275887_ + _self277080277088_ '1 gxc#!type::t '#f))) - (_e275884275981_ + (_e277085277182_ (let () (declare (not safe)) (##unchecked-structure-ref - _self275879275887_ + _self277080277088_ '2 gxc#!kw-lambda::t '#f))) - (_table275984_ _e275884275981_) - (_e275885275986_ + (_table277185_ _e277085277182_) + (_e277086277187_ (let () (declare (not safe)) (##unchecked-structure-ref - _self275879275887_ + _self277080277088_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch275989_ _e275885275986_)) + (_dispatch277190_ _e277086277187_)) (declare (not safe)) - (_K275882275975_ _dispatch275989_ _table275984_)) - (let () (declare (not safe)) (_E275881275891_)))))) + (_K277083277176_ _dispatch277190_ _table277185_)) + (let () (declare (not safe)) (_E277082277092_)))))) (let () (declare (not safe)) (bind-method! @@ -4815,300 +5216,300 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_stx275489_ _args275490_) - (let _lp275492_ ((_rest275494_ _args275490_) - (_pargs275495_ '()) - (_kwargs275496_ '())) - (let* ((___stx282093282094_ _rest275494_) - (_g275502275554_ + (lambda (_stx276690_ _args276691_) + (let _lp276693_ ((_rest276695_ _args276691_) + (_pargs276696_ '()) + (_kwargs276697_ '())) + (let* ((___stx283305283306_ _rest276695_) + (_g276703276755_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx282093282094_))))) - (let ((___kont282095282096_ - (lambda (_L275733_ _L275734_) - (let ((__tmp282978 + ___stx283305283306_))))) + (let ((___kont283307283308_ + (lambda (_L276934_ _L276935_) + (let ((__tmp284272 (let () (declare (not safe)) - (cons _L275734_ _pargs275495_)))) + (cons _L276935_ _pargs276696_)))) (declare (not safe)) - (_lp275492_ _L275733_ __tmp282978 _kwargs275496_)))) - (___kont282097282098_ - (lambda (_L275679_) + (_lp276693_ _L276934_ __tmp284272 _kwargs276697_)))) + (___kont283309283310_ + (lambda (_L276880_) (values (let () (declare (not safe)) - (foldl1 cons _L275679_ _pargs275495_)) - (reverse _kwargs275496_)))) - (___kont282099282100_ - (lambda (_L275626_ _L275627_ _L275628_) - (let ((_kw275645_ + (foldl1 cons _L276880_ _pargs276696_)) + (reverse _kwargs276697_)))) + (___kont283311283312_ + (lambda (_L276827_ _L276828_ _L276829_) + (let ((_kw276846_ (let () (declare (not safe)) - (gx#stx-e _L275628_)))) - (if (assq _kw275645_ _kwargs275496_) + (gx#stx-e _L276829_)))) + (if (assq _kw276846_ _kwargs276697_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _stx275489_ - _kw275645_)) - (let ((__tmp282979 - (let ((__tmp282980 + _stx276690_ + _kw276846_)) + (let ((__tmp284273 + (let ((__tmp284274 (let () (declare (not safe)) - (cons _kw275645_ _L275627_)))) + (cons _kw276846_ _L276828_)))) (declare (not safe)) - (cons __tmp282980 _kwargs275496_)))) + (cons __tmp284274 _kwargs276697_)))) (declare (not safe)) - (_lp275492_ - _L275626_ - _pargs275495_ - __tmp282979)))))) - (___kont282101282102_ - (lambda (_L275574_ _L275575_) - (let ((__tmp282981 + (_lp276693_ + _L276827_ + _pargs276696_ + __tmp284273)))))) + (___kont283313283314_ + (lambda (_L276775_ _L276776_) + (let ((__tmp284275 (let () (declare (not safe)) - (cons _L275575_ _pargs275495_)))) + (cons _L276776_ _pargs276696_)))) (declare (not safe)) - (_lp275492_ _L275574_ __tmp282981 _kwargs275496_)))) - (___kont282103282104_ + (_lp276693_ _L276775_ __tmp284275 _kwargs276697_)))) + (___kont283315283316_ (lambda () - (values (reverse _pargs275495_) - (reverse _kwargs275496_))))) - (let* ((_g275501275561_ + (values (reverse _pargs276696_) + (reverse _kwargs276697_))))) + (let* ((_g276702276762_ (lambda () (if (let () (declare (not safe)) - (gx#stx-null? ___stx282093282094_)) - (___kont282103282104_) - (let () (declare (not safe)) (_g275502275554_))))) - (___match282200282201_ - (lambda (_e275535275594_ - _hd275534275597_ - _tl275533275599_ - _e275538275602_ - _hd275537275605_ - _tl275536275607_ - _e275541275610_ - _hd275540275613_ - _tl275539275615_ - _e275544275618_ - _hd275543275621_ - _tl275542275623_) - (let ((_L275626_ _tl275542275623_) - (_L275627_ _hd275543275621_) - (_L275628_ _hd275540275613_)) + (gx#stx-null? ___stx283305283306_)) + (___kont283315283316_) + (let () (declare (not safe)) (_g276703276755_))))) + (___match283412283413_ + (lambda (_e276736276795_ + _hd276735276798_ + _tl276734276800_ + _e276739276803_ + _hd276738276806_ + _tl276737276808_ + _e276742276811_ + _hd276741276814_ + _tl276740276816_ + _e276745276819_ + _hd276744276822_ + _tl276743276824_) + (let ((_L276827_ _tl276743276824_) + (_L276828_ _hd276744276822_) + (_L276829_ _hd276741276814_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _L275628_)) - (___kont282099282100_ - _L275626_ - _L275627_ - _L275628_) - (___kont282101282102_ - _tl275533275599_ - _hd275534275597_)))))) + (gx#stx-keyword? _L276829_)) + (___kont283311283312_ + _L276827_ + _L276828_ + _L276829_) + (___kont283313283314_ + _tl276734276800_ + _hd276735276798_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx282093282094_)) - (let ((_e275508275698_ + (gx#stx-pair? ___stx283305283306_)) + (let ((_e276709276899_ (let () (declare (not safe)) - (gx#stx-e ___stx282093282094_)))) - (let ((_tl275506275703_ + (gx#stx-e ___stx283305283306_)))) + (let ((_tl276707276904_ (let () (declare (not safe)) - (##cdr _e275508275698_))) - (_hd275507275701_ + (##cdr _e276709276899_))) + (_hd276708276902_ (let () (declare (not safe)) - (##car _e275508275698_)))) + (##car _e276709276899_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd275507275701_)) - (let ((_e275511275706_ + (gx#stx-pair? _hd276708276902_)) + (let ((_e276712276907_ (let () (declare (not safe)) - (gx#stx-e _hd275507275701_)))) - (let ((_tl275509275711_ + (gx#stx-e _hd276708276902_)))) + (let ((_tl276710276912_ (let () (declare (not safe)) - (##cdr _e275511275706_))) - (_hd275510275709_ + (##cdr _e276712276907_))) + (_hd276711276910_ (let () (declare (not safe)) - (##car _e275511275706_)))) + (##car _e276712276907_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd275510275709_)) + (gx#identifier? _hd276711276910_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd275510275709_)) + _hd276711276910_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl275509275711_)) - (let ((_e275514275714_ + (gx#stx-pair? _tl276710276912_)) + (let ((_e276715276915_ (let () (declare (not safe)) (gx#stx-e - _tl275509275711_)))) - (let ((_tl275512275719_ + _tl276710276912_)))) + (let ((_tl276713276920_ (let () (declare (not safe)) - (##cdr _e275514275714_))) - (_hd275513275717_ + (##cdr _e276715276915_))) + (_hd276714276918_ (let () (declare (not safe)) - (##car _e275514275714_)))) + (##car _e276715276915_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd275513275717_)) - (let ((_e275515275722_ + _hd276714276918_)) + (let ((_e276716276923_ (let () (declare (not safe)) (gx#stx-e - _hd275513275717_)))) + _hd276714276918_)))) (if (let () (declare (not safe)) - (equal? _e275515275722_ + (equal? _e276716276923_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key)) (if (let () (declare (not safe)) - (gx#stx-null? _tl275512275719_)) + (gx#stx-null? _tl276713276920_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl275506275703_)) - (let ((_e275518275725_ + (gx#stx-pair? _tl276707276904_)) + (let ((_e276719276926_ (let () (declare (not safe)) - (gx#stx-e _tl275506275703_)))) - (let ((_tl275516275730_ + (gx#stx-e _tl276707276904_)))) + (let ((_tl276717276931_ (let () (declare (not safe)) - (##cdr _e275518275725_))) - (_hd275517275728_ + (##cdr _e276719276926_))) + (_hd276718276929_ (let () (declare (not safe)) - (##car _e275518275725_)))) - (___kont282095282096_ - _tl275516275730_ - _hd275517275728_))) - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_)) - (___kont282101282102_ _tl275506275703_ _hd275507275701_)) + (##car _e276719276926_)))) + (___kont283307283308_ + _tl276717276931_ + _hd276718276929_))) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_)) + (___kont283313283314_ _tl276707276904_ _hd276708276902_)) (if (let () (declare (not safe)) - (equal? _e275515275722_ '#!rest)) + (equal? _e276716276923_ '#!rest)) (if (let () (declare (not safe)) - (gx#stx-null? _tl275512275719_)) - (___kont282097282098_ _tl275506275703_) - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_)) + (gx#stx-null? _tl276713276920_)) + (___kont283309283310_ _tl276707276904_) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl275512275719_)) + (gx#stx-null? _tl276713276920_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl275506275703_)) - (let ((_e275544275618_ + (gx#stx-pair? _tl276707276904_)) + (let ((_e276745276819_ (let () (declare (not safe)) - (gx#stx-e _tl275506275703_)))) - (let ((_tl275542275623_ + (gx#stx-e _tl276707276904_)))) + (let ((_tl276743276824_ (let () (declare (not safe)) - (##cdr _e275544275618_))) - (_hd275543275621_ + (##cdr _e276745276819_))) + (_hd276744276822_ (let () (declare (not safe)) - (##car _e275544275618_)))) - (___match282200282201_ - _e275508275698_ - _hd275507275701_ - _tl275506275703_ - _e275511275706_ - _hd275510275709_ - _tl275509275711_ - _e275514275714_ - _hd275513275717_ - _tl275512275719_ - _e275544275618_ - _hd275543275621_ - _tl275542275623_))) - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_)) - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_))))) + (##car _e276745276819_)))) + (___match283412283413_ + _e276709276899_ + _hd276708276902_ + _tl276707276904_ + _e276712276907_ + _hd276711276910_ + _tl276710276912_ + _e276715276915_ + _hd276714276918_ + _tl276713276920_ + _e276745276819_ + _hd276744276822_ + _tl276743276824_))) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_)) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl275512275719_)) + _tl276713276920_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl275506275703_)) - (let ((_e275544275618_ + _tl276707276904_)) + (let ((_e276745276819_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl275506275703_)))) - (let ((_tl275542275623_ + (gx#stx-e _tl276707276904_)))) + (let ((_tl276743276824_ (let () (declare (not safe)) - (##cdr _e275544275618_))) - (_hd275543275621_ + (##cdr _e276745276819_))) + (_hd276744276822_ (let () (declare (not safe)) - (##car _e275544275618_)))) - (___match282200282201_ - _e275508275698_ - _hd275507275701_ - _tl275506275703_ - _e275511275706_ - _hd275510275709_ - _tl275509275711_ - _e275514275714_ - _hd275513275717_ - _tl275512275719_ - _e275544275618_ - _hd275543275621_ - _tl275542275623_))) - (___kont282101282102_ _tl275506275703_ _hd275507275701_)) - (___kont282101282102_ _tl275506275703_ _hd275507275701_))))) + (##car _e276745276819_)))) + (___match283412283413_ + _e276709276899_ + _hd276708276902_ + _tl276707276904_ + _e276712276907_ + _hd276711276910_ + _tl276710276912_ + _e276715276915_ + _hd276714276918_ + _tl276713276920_ + _e276745276819_ + _hd276744276822_ + _tl276743276824_))) + (___kont283313283314_ _tl276707276904_ _hd276708276902_)) + (___kont283313283314_ _tl276707276904_ _hd276708276902_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_)) - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_)) - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_)))) - (___kont282101282102_ - _tl275506275703_ - _hd275507275701_)))) - (let () (declare (not safe)) (_g275501275561_))))))))) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_)) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_)) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_)))) + (___kont283313283314_ + _tl276707276904_ + _hd276708276902_)))) + (let () (declare (not safe)) (_g276702276762_))))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_self275485_ _stx275486_ _args275487_) - (let () (declare (not safe)) (gxc#xform-call% _stx275486_)))) + (lambda (_self276686_ _stx276687_ _args276688_) + (let () (declare (not safe)) (gxc#xform-call% _stx276687_)))) (let () (declare (not safe)) (bind-method! diff --git a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm index 29284d2cd..ac4ef3cb2 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec__0.scm @@ -1,234 +1,234 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1707773930) + (define gerbil/compiler/optimize-spec::timestamp 1708102806) (begin (define gxc#&generate-method-specializers (make-promise (lambda () - (let ((_tbl249744_ + (let ((_tbl250942_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp255440 (force gxc#&identity))) + (let ((__tmp256638 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl249744_ __tmp255440)) + (hash-copy! _tbl250942_ __tmp256638)) (let () (declare (not safe)) - (table-set! _tbl249744_ '%#begin gxc#xform-begin%)) + (table-set! _tbl250942_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl249744_ '%#begin-syntax gxc#xform-begin-syntax%)) + (table-set! _tbl250942_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl249744_ '%#module gxc#xform-module%)) + (table-set! _tbl250942_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (table-set! - _tbl249744_ + _tbl250942_ '%#define-values gxc#generate-method-specializers-define-values%)) - _tbl249744_)))) + _tbl250942_)))) (define gxc#apply-generate-method-specializers - (lambda (_stx249727_ . _args249729_) - (let ((__tmp255442 + (lambda (_stx250925_ . _args250927_) + (let ((__tmp256640 (lambda () (declare (not safe)) - (if (null? _args249729_) - (gxc#compile-e__0 _stx249727_) - (let ((_arg1249734_ (car _args249729_)) - (_rest249736_ (cdr _args249729_))) - (if (null? _rest249736_) - (gxc#compile-e__1 _stx249727_ _arg1249734_) - (let ((_arg2249739_ (car _rest249736_)) - (_rest249741_ (cdr _rest249736_))) - (if (null? _rest249741_) + (if (null? _args250927_) + (gxc#compile-e__0 _stx250925_) + (let ((_arg1250932_ (car _args250927_)) + (_rest250934_ (cdr _args250927_))) + (if (null? _rest250934_) + (gxc#compile-e__1 _stx250925_ _arg1250932_) + (let ((_arg2250937_ (car _rest250934_)) + (_rest250939_ (cdr _rest250934_))) + (if (null? _rest250939_) (gxc#compile-e__2 - _stx249727_ - _arg1249734_ - _arg2249739_) + _stx250925_ + _arg1250932_ + _arg2250937_) (apply gxc#compile-e - _stx249727_ - _arg1249734_ - _arg2249739_ - _rest249741_)))))))) - (__tmp255441 (force gxc#&generate-method-specializers))) + _stx250925_ + _arg1250932_ + _arg2250937_ + _rest250939_)))))))) + (__tmp256639 (force gxc#&generate-method-specializers))) (declare (not safe)) (call-with-parameters - __tmp255442 + __tmp256640 gxc#current-compile-methods - __tmp255441)))) + __tmp256639)))) (define gxc#&collect-object-refs (make-promise (lambda () - (let ((_tbl249724_ + (let ((_tbl250922_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp255443 (force gxc#&void))) + (let ((__tmp256641 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl249724_ __tmp255443)) + (hash-copy! _tbl250922_ __tmp256641)) (let () (declare (not safe)) - (table-set! _tbl249724_ '%#begin gxc#collect-begin%)) + (table-set! _tbl250922_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl249724_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl250922_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#letrec-values* gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl249724_ '%#call gxc#collect-object-refs-call%)) + (table-set! _tbl250922_ '%#call gxc#collect-object-refs-call%)) (let () (declare (not safe)) - (table-set! _tbl249724_ '%#if gxc#collect-operands)) + (table-set! _tbl250922_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl249724_ '%#set! gxc#collect-body-setq%)) + (table-set! _tbl250922_ '%#set! gxc#collect-body-setq%)) (let () (declare (not safe)) - (table-set! _tbl249724_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl250922_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl249724_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl250922_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl249724_ + _tbl250922_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl249724_)))) + _tbl250922_)))) (define gxc#apply-collect-object-refs - (lambda (_stx249707_ . _args249709_) - (let ((__tmp255445 + (lambda (_stx250905_ . _args250907_) + (let ((__tmp256643 (lambda () (declare (not safe)) - (if (null? _args249709_) - (gxc#compile-e__0 _stx249707_) - (let ((_arg1249714_ (car _args249709_)) - (_rest249716_ (cdr _args249709_))) - (if (null? _rest249716_) - (gxc#compile-e__1 _stx249707_ _arg1249714_) - (let ((_arg2249719_ (car _rest249716_)) - (_rest249721_ (cdr _rest249716_))) - (if (null? _rest249721_) + (if (null? _args250907_) + (gxc#compile-e__0 _stx250905_) + (let ((_arg1250912_ (car _args250907_)) + (_rest250914_ (cdr _args250907_))) + (if (null? _rest250914_) + (gxc#compile-e__1 _stx250905_ _arg1250912_) + (let ((_arg2250917_ (car _rest250914_)) + (_rest250919_ (cdr _rest250914_))) + (if (null? _rest250919_) (gxc#compile-e__2 - _stx249707_ - _arg1249714_ - _arg2249719_) + _stx250905_ + _arg1250912_ + _arg2250917_) (apply gxc#compile-e - _stx249707_ - _arg1249714_ - _arg2249719_ - _rest249721_)))))))) - (__tmp255444 (force gxc#&collect-object-refs))) + _stx250905_ + _arg1250912_ + _arg2250917_ + _rest250919_)))))))) + (__tmp256642 (force gxc#&collect-object-refs))) (declare (not safe)) (call-with-parameters - __tmp255445 + __tmp256643 gxc#current-compile-methods - __tmp255444)))) + __tmp256642)))) (define gxc#&subst-object-refs (make-promise (lambda () - (let ((_tbl249704_ + (let ((_tbl250902_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp255446 (force gxc#&basic-xform-expression))) + (let ((__tmp256644 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl249704_ __tmp255446)) + (hash-copy! _tbl250902_ __tmp256644)) (let () (declare (not safe)) - (table-set! _tbl249704_ '%#begin gxc#xform-begin%)) + (table-set! _tbl250902_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl249704_ '%#call gxc#subst-object-refs-call%)) - _tbl249704_)))) + (table-set! _tbl250902_ '%#call gxc#subst-object-refs-call%)) + _tbl250902_)))) (define gxc#apply-subst-object-refs - (lambda (_stx249687_ . _args249689_) - (let ((__tmp255448 + (lambda (_stx250885_ . _args250887_) + (let ((__tmp256646 (lambda () (declare (not safe)) - (if (null? _args249689_) - (gxc#compile-e__0 _stx249687_) - (let ((_arg1249694_ (car _args249689_)) - (_rest249696_ (cdr _args249689_))) - (if (null? _rest249696_) - (gxc#compile-e__1 _stx249687_ _arg1249694_) - (let ((_arg2249699_ (car _rest249696_)) - (_rest249701_ (cdr _rest249696_))) - (if (null? _rest249701_) + (if (null? _args250887_) + (gxc#compile-e__0 _stx250885_) + (let ((_arg1250892_ (car _args250887_)) + (_rest250894_ (cdr _args250887_))) + (if (null? _rest250894_) + (gxc#compile-e__1 _stx250885_ _arg1250892_) + (let ((_arg2250897_ (car _rest250894_)) + (_rest250899_ (cdr _rest250894_))) + (if (null? _rest250899_) (gxc#compile-e__2 - _stx249687_ - _arg1249694_ - _arg2249699_) + _stx250885_ + _arg1250892_ + _arg2250897_) (apply gxc#compile-e - _stx249687_ - _arg1249694_ - _arg2249699_ - _rest249701_)))))))) - (__tmp255447 (force gxc#&subst-object-refs))) + _stx250885_ + _arg1250892_ + _arg2250897_ + _rest250899_)))))))) + (__tmp256645 (force gxc#&subst-object-refs))) (declare (not safe)) (call-with-parameters - __tmp255448 + __tmp256646 gxc#current-compile-methods - __tmp255447)))) + __tmp256645)))) (define gxc#generate-method-specializers-define-values% - (lambda (_stx246357_) - (letrec ((_generate-method-bind246359_ - (lambda (_$t249681_ _id249682_ _$id249683_) - (let ((_$tmp249685_ - (let ((__tmp255449 (gensym '__tmp))) + (lambda (_stx247555_) + (letrec ((_generate-method-bind247557_ + (lambda (_$t250879_ _id250880_ _$id250881_) + (let ((_$tmp250883_ + (let ((__tmp256647 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp255449)))) - (let ((__tmp255494 + (make-symbol__0 __tmp256647)))) + (let ((__tmp256695 (let () (declare (not safe)) - (cons _$id249683_ '()))) - (__tmp255450 - (let ((__tmp255451 - (let ((__tmp255452 - (let ((__tmp255492 - (let ((__tmp255493 + (cons _$id250881_ '()))) + (__tmp256648 + (let ((__tmp256649 + (let ((__tmp256650 + (let ((__tmp256693 + (let ((__tmp256694 (let () (declare (not safe)) (cons 'make-promise @@ -236,1268 +236,1276 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp255493))) - (__tmp255453 - (let ((__tmp255454 - (let ((__tmp255455 - (let ((__tmp255456 + (cons '%#ref __tmp256694))) + (__tmp256651 + (let ((__tmp256652 + (let ((__tmp256653 + (let ((__tmp256654 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255457 - (let ((__tmp255458 - (let ((__tmp255478 - (let ((__tmp255479 - (let ((__tmp255491 + (let ((__tmp256655 + (let ((__tmp256656 + (let ((__tmp256676 + (let ((__tmp256677 + (let ((__tmp256692 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$tmp249685_ '()))) - (__tmp255480 - (let ((__tmp255481 - (let ((__tmp255482 - (let ((__tmp255489 - (let ((__tmp255490 + (cons _$tmp250883_ '()))) + (__tmp256678 + (let ((__tmp256679 + (let ((__tmp256680 + (let ((__tmp256690 + (let ((__tmp256691 (let () (declare (not safe)) (cons 'direct-method-ref '())))) (declare (not safe)) - (cons '%#ref __tmp255490))) - (__tmp255483 - (let ((__tmp255487 - (let ((__tmp255488 + (cons '%#ref __tmp256691))) + (__tmp256681 + (let ((__tmp256688 + (let ((__tmp256689 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t249681_ '())))) + (cons _$t250879_ '())))) (declare (not safe)) - (cons '%#ref __tmp255488))) + (cons '%#ref __tmp256689))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp255484 - (let ((__tmp255485 - (let ((__tmp255486 + (__tmp256682 + (let ((__tmp256686 + (let ((__tmp256687 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons '%#quote __tmp256687))) + (__tmp256683 + (let ((__tmp256684 + (let ((__tmp256685 + (let () + (declare (not safe)) + (cons _id250880_ '())))) (declare (not safe)) - (cons _id249682_ '())))) + (cons '%#quote __tmp256685)))) (declare (not safe)) - (cons '%#quote __tmp255486)))) + (cons __tmp256684 '())))) (declare (not safe)) - (cons __tmp255485 '())))) + (cons __tmp256686 __tmp256683)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255487 - __tmp255484)))) + (cons __tmp256688 + __tmp256682)))) (declare (not safe)) - (cons __tmp255489 __tmp255483)))) + (cons __tmp256690 __tmp256681)))) (declare (not safe)) - (cons '%#call __tmp255482)))) + (cons '%#call __tmp256680)))) (declare (not safe)) - (cons __tmp255481 '())))) + (cons __tmp256679 '())))) (declare (not safe)) - (cons __tmp255491 __tmp255480)))) + (cons __tmp256692 __tmp256678)))) (declare (not safe)) - (cons __tmp255479 '()))) + (cons __tmp256677 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp255459 - (let ((__tmp255460 - (let ((__tmp255461 + (__tmp256657 + (let ((__tmp256658 + (let ((__tmp256659 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255476 - (let ((__tmp255477 + (let ((__tmp256674 + (let ((__tmp256675 (let () (declare (not safe)) - (cons _$tmp249685_ '())))) + (cons _$tmp250883_ '())))) (declare (not safe)) - (cons '%#ref __tmp255477))) - (__tmp255462 - (let ((__tmp255474 - (let ((__tmp255475 + (cons '%#ref __tmp256675))) + (__tmp256660 + (let ((__tmp256672 + (let ((__tmp256673 (let () (declare (not safe)) - (cons _$tmp249685_ '())))) + (cons _$tmp250883_ '())))) (declare (not safe)) - (cons '%#ref __tmp255475))) - (__tmp255463 - (let ((__tmp255464 - (let ((__tmp255465 - (let ((__tmp255472 - (let ((__tmp255473 + (cons '%#ref __tmp256673))) + (__tmp256661 + (let ((__tmp256662 + (let ((__tmp256663 + (let ((__tmp256670 + (let ((__tmp256671 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp255473))) - (__tmp255466 - (let ((__tmp255470 - (let ((__tmp255471 + (cons '%#ref __tmp256671))) + (__tmp256664 + (let ((__tmp256668 + (let ((__tmp256669 (let () (declare (not safe)) (cons '"Missing method" '())))) (declare (not safe)) - (cons '%#quote __tmp255471))) - (__tmp255467 - (let ((__tmp255468 - (let ((__tmp255469 + (cons '%#quote __tmp256669))) + (__tmp256665 + (let ((__tmp256666 + (let ((__tmp256667 (let () (declare (not safe)) - (cons _id249682_ '())))) + (cons _id250880_ '())))) (declare (not safe)) - (cons '%#quote __tmp255469)))) + (cons '%#quote __tmp256667)))) (declare (not safe)) - (cons __tmp255468 '())))) + (cons __tmp256666 '())))) (declare (not safe)) - (cons __tmp255470 __tmp255467)))) + (cons __tmp256668 __tmp256665)))) (declare (not safe)) - (cons __tmp255472 __tmp255466)))) + (cons __tmp256670 __tmp256664)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp255465)))) + (cons '%#call __tmp256663)))) (declare (not safe)) - (cons __tmp255464 '())))) + (cons __tmp256662 '())))) (declare (not safe)) - (cons __tmp255474 __tmp255463)))) + (cons __tmp256672 __tmp256661)))) (declare (not safe)) - (cons __tmp255476 __tmp255462)))) + (cons __tmp256674 __tmp256660)))) (declare (not safe)) - (cons '%#if __tmp255461)))) + (cons '%#if __tmp256659)))) (declare (not safe)) - (cons __tmp255460 '())))) + (cons __tmp256658 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255478 - __tmp255459)))) + (cons __tmp256676 + __tmp256657)))) (declare (not safe)) - (cons '%#let-values __tmp255458)))) + (cons '%#let-values __tmp256656)))) (declare (not safe)) - (cons __tmp255457 '())))) + (cons __tmp256655 '())))) (declare (not safe)) - (cons '() __tmp255456)))) + (cons '() __tmp256654)))) (declare (not safe)) - (cons '%#lambda __tmp255455)))) + (cons '%#lambda __tmp256653)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255454 '())))) + (cons __tmp256652 '())))) (declare (not safe)) - (cons __tmp255492 __tmp255453)))) + (cons __tmp256693 __tmp256651)))) (declare (not safe)) - (cons '%#call __tmp255452)))) + (cons '%#call __tmp256650)))) (declare (not safe)) - (cons __tmp255451 '())))) + (cons __tmp256649 '())))) (declare (not safe)) - (cons __tmp255494 __tmp255450))))) - (_generate-slot-bind246360_ - (lambda (_$t249675_ _id249676_ _$id249677_) - (let ((_$tmp249679_ - (let ((__tmp255495 (gensym '__tmp))) + (cons __tmp256695 __tmp256648))))) + (_generate-slot-bind247558_ + (lambda (_$t250873_ _id250874_ _$id250875_) + (let ((_$tmp250877_ + (let ((__tmp256696 (gensym '__tmp))) (declare (not safe)) - (make-symbol__0 __tmp255495)))) - (let ((__tmp255532 + (make-symbol__0 __tmp256696)))) + (let ((__tmp256733 (let () (declare (not safe)) - (cons _$id249677_ '()))) - (__tmp255496 - (let ((__tmp255497 - (let ((__tmp255498 - (let ((__tmp255518 - (let ((__tmp255519 - (let ((__tmp255531 + (cons _$id250875_ '()))) + (__tmp256697 + (let ((__tmp256698 + (let ((__tmp256699 + (let ((__tmp256719 + (let ((__tmp256720 + (let ((__tmp256732 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tmp249679_ '()))) - (__tmp255520 - (let ((__tmp255521 - (let ((__tmp255522 - (let ((__tmp255529 - (let ((__tmp255530 + (cons _$tmp250877_ '()))) + (__tmp256721 + (let ((__tmp256722 + (let ((__tmp256723 + (let ((__tmp256730 + (let ((__tmp256731 (let () (declare (not safe)) (cons 'class-slot-offset '())))) (declare (not safe)) - (cons '%#ref __tmp255530))) - (__tmp255523 - (let ((__tmp255527 - (let ((__tmp255528 + (cons '%#ref __tmp256731))) + (__tmp256724 + (let ((__tmp256728 + (let ((__tmp256729 (let () (declare (not safe)) - (cons _$t249675_ + (cons _$t250873_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp255528))) + (cons '%#ref __tmp256729))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp255524 - (let ((__tmp255525 - (let ((__tmp255526 + (__tmp256725 + (let ((__tmp256726 + (let ((__tmp256727 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id249676_ '())))) + (let () (declare (not safe)) (cons _id250874_ '())))) (declare (not safe)) - (cons '%#quote __tmp255526)))) + (cons '%#quote __tmp256727)))) (declare (not safe)) - (cons __tmp255525 '())))) + (cons __tmp256726 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255527 - __tmp255524)))) + (cons __tmp256728 + __tmp256725)))) (declare (not safe)) - (cons __tmp255529 __tmp255523)))) + (cons __tmp256730 __tmp256724)))) (declare (not safe)) - (cons '%#call __tmp255522)))) + (cons '%#call __tmp256723)))) (declare (not safe)) - (cons __tmp255521 '())))) + (cons __tmp256722 '())))) (declare (not safe)) - (cons __tmp255531 __tmp255520)))) + (cons __tmp256732 __tmp256721)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255519 '()))) - (__tmp255499 - (let ((__tmp255500 - (let ((__tmp255501 - (let ((__tmp255516 + (cons __tmp256720 '()))) + (__tmp256700 + (let ((__tmp256701 + (let ((__tmp256702 + (let ((__tmp256717 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255517 + (let ((__tmp256718 (let () (declare (not safe)) - (cons _$tmp249679_ '())))) + (cons _$tmp250877_ '())))) (declare (not safe)) - (cons '%#ref __tmp255517))) - (__tmp255502 - (let ((__tmp255514 - (let ((__tmp255515 + (cons '%#ref __tmp256718))) + (__tmp256703 + (let ((__tmp256715 + (let ((__tmp256716 (let () (declare (not safe)) - (cons _$tmp249679_ '())))) + (cons _$tmp250877_ '())))) (declare (not safe)) - (cons '%#ref __tmp255515))) - (__tmp255503 - (let ((__tmp255504 - (let ((__tmp255505 - (let ((__tmp255512 - (let ((__tmp255513 + (cons '%#ref __tmp256716))) + (__tmp256704 + (let ((__tmp256705 + (let ((__tmp256706 + (let ((__tmp256713 + (let ((__tmp256714 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'error '())))) (declare (not safe)) - (cons '%#ref __tmp255513))) - (__tmp255506 - (let ((__tmp255510 - (let ((__tmp255511 + (cons '%#ref __tmp256714))) + (__tmp256707 + (let ((__tmp256711 + (let ((__tmp256712 (let () (declare (not safe)) (cons '"Unknown slot" '())))) (declare (not safe)) - (cons '%#quote __tmp255511))) - (__tmp255507 - (let ((__tmp255508 - (let ((__tmp255509 + (cons '%#quote __tmp256712))) + (__tmp256708 + (let ((__tmp256709 + (let ((__tmp256710 (let () (declare (not safe)) - (cons _id249676_ '())))) + (cons _id250874_ '())))) (declare (not safe)) - (cons '%#quote __tmp255509)))) + (cons '%#quote __tmp256710)))) (declare (not safe)) - (cons __tmp255508 '())))) + (cons __tmp256709 '())))) (declare (not safe)) - (cons __tmp255510 __tmp255507)))) + (cons __tmp256711 __tmp256708)))) (declare (not safe)) - (cons __tmp255512 __tmp255506)))) + (cons __tmp256713 __tmp256707)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp255505)))) + (cons '%#call __tmp256706)))) (declare (not safe)) - (cons __tmp255504 '())))) + (cons __tmp256705 '())))) (declare (not safe)) - (cons __tmp255514 __tmp255503)))) + (cons __tmp256715 __tmp256704)))) (declare (not safe)) - (cons __tmp255516 __tmp255502)))) + (cons __tmp256717 __tmp256703)))) (declare (not safe)) - (cons '%#if __tmp255501)))) + (cons '%#if __tmp256702)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255500 '())))) + (cons __tmp256701 '())))) (declare (not safe)) - (cons __tmp255518 __tmp255499)))) + (cons __tmp256719 __tmp256700)))) (declare (not safe)) - (cons '%#let-values __tmp255498)))) + (cons '%#let-values __tmp256699)))) (declare (not safe)) - (cons __tmp255497 '())))) + (cons __tmp256698 '())))) (declare (not safe)) - (cons __tmp255532 __tmp255496))))) - (_generate-class-check-bind246361_ - (lambda (_$t249671_ _class-type249672_ _$class-type249673_) - (let ((__tmp255544 + (cons __tmp256733 __tmp256697))))) + (_generate-class-check-bind247559_ + (lambda (_$t250869_ _class-type250870_ _$class-type250871_) + (let ((__tmp256745 (let () (declare (not safe)) - (cons _$class-type249673_ '()))) - (__tmp255533 - (let ((__tmp255534 - (let ((__tmp255535 - (let ((__tmp255542 - (let ((__tmp255543 + (cons _$class-type250871_ '()))) + (__tmp256734 + (let ((__tmp256735 + (let ((__tmp256736 + (let ((__tmp256743 + (let ((__tmp256744 (let () (declare (not safe)) (cons 'subclass? '())))) (declare (not safe)) - (cons '%#ref __tmp255543))) - (__tmp255536 - (let ((__tmp255540 - (let ((__tmp255541 + (cons '%#ref __tmp256744))) + (__tmp256737 + (let ((__tmp256741 + (let ((__tmp256742 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t249671_ '())))) + (cons _$t250869_ '())))) (declare (not safe)) - (cons '%#ref __tmp255541))) - (__tmp255537 - (let ((__tmp255538 - (let ((__tmp255539 + (cons '%#ref __tmp256742))) + (__tmp256738 + (let ((__tmp256739 + (let ((__tmp256740 (let () (declare (not safe)) - (cons _class-type249672_ '())))) + (cons _class-type250870_ '())))) (declare (not safe)) - (cons '%#ref __tmp255539)))) + (cons '%#ref __tmp256740)))) (declare (not safe)) - (cons __tmp255538 '())))) + (cons __tmp256739 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255540 - __tmp255537)))) + (cons __tmp256741 + __tmp256738)))) (declare (not safe)) - (cons __tmp255542 __tmp255536)))) + (cons __tmp256743 __tmp256737)))) (declare (not safe)) - (cons '%#call __tmp255535)))) + (cons '%#call __tmp256736)))) (declare (not safe)) - (cons __tmp255534 '())))) + (cons __tmp256735 '())))) (declare (not safe)) - (cons __tmp255544 __tmp255533)))) - (_generate-struct-check-bind246362_ - (lambda (_$t249667_ _class-type249668_ _$class-type249669_) - (let ((__tmp255556 + (cons __tmp256745 __tmp256734)))) + (_generate-struct-check-bind247560_ + (lambda (_$t250865_ _class-type250866_ _$class-type250867_) + (let ((__tmp256757 (let () (declare (not safe)) - (cons _$class-type249669_ '()))) - (__tmp255545 - (let ((__tmp255546 - (let ((__tmp255547 - (let ((__tmp255554 - (let ((__tmp255555 + (cons _$class-type250867_ '()))) + (__tmp256746 + (let ((__tmp256747 + (let ((__tmp256748 + (let ((__tmp256755 + (let ((__tmp256756 (let () (declare (not safe)) (cons 'substruct? '())))) (declare (not safe)) - (cons '%#ref __tmp255555))) - (__tmp255548 - (let ((__tmp255552 - (let ((__tmp255553 + (cons '%#ref __tmp256756))) + (__tmp256749 + (let ((__tmp256753 + (let ((__tmp256754 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$t249667_ '())))) + (cons _$t250865_ '())))) (declare (not safe)) - (cons '%#ref __tmp255553))) - (__tmp255549 - (let ((__tmp255550 - (let ((__tmp255551 + (cons '%#ref __tmp256754))) + (__tmp256750 + (let ((__tmp256751 + (let ((__tmp256752 (let () (declare (not safe)) - (cons _class-type249668_ '())))) + (cons _class-type250866_ '())))) (declare (not safe)) - (cons '%#ref __tmp255551)))) + (cons '%#ref __tmp256752)))) (declare (not safe)) - (cons __tmp255550 '())))) + (cons __tmp256751 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255552 - __tmp255549)))) + (cons __tmp256753 + __tmp256750)))) (declare (not safe)) - (cons __tmp255554 __tmp255548)))) + (cons __tmp256755 __tmp256749)))) (declare (not safe)) - (cons '%#call __tmp255547)))) + (cons '%#call __tmp256748)))) (declare (not safe)) - (cons __tmp255546 '())))) + (cons __tmp256747 '())))) (declare (not safe)) - (cons __tmp255556 __tmp255545)))) - (_generate-specializer-impl246363_ - (lambda (_$t249616_ - _methods-bind249617_ - _slots-bind249618_ - _class-check-bind249619_ - _struct-check-bind249620_ - _specializer-impl249621_ - _lifted-specializer-id249622_ - _unchecked-specializer-impl249623_) - (let ((__tmp255557 - (let ((__tmp255558 - (let ((__tmp255584 + (cons __tmp256757 __tmp256746)))) + (_generate-specializer-impl247561_ + (lambda (_$t250814_ + _methods-bind250815_ + _slots-bind250816_ + _class-check-bind250817_ + _struct-check-bind250818_ + _specializer-impl250819_ + _lifted-specializer-id250820_ + _unchecked-specializer-impl250821_) + (let ((__tmp256758 + (let ((__tmp256759 + (let ((__tmp256785 (let () (declare (not safe)) - (cons _$t249616_ '()))) - (__tmp255559 - (let ((__tmp255560 - (let ((__tmp255561 - (let ((__tmp255581 - (let ((__tmp255582 + (cons _$t250814_ '()))) + (__tmp256760 + (let ((__tmp256761 + (let ((__tmp256762 + (let ((__tmp256782 + (let ((__tmp256783 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255583 + (let ((__tmp256784 (let () (declare (not safe)) (foldr1 cons - _struct-check-bind249620_ - _class-check-bind249619_)))) + _struct-check-bind250818_ + _class-check-bind250817_)))) (declare (not safe)) - (foldr1 cons __tmp255583 _slots-bind249618_)))) + (foldr1 cons __tmp256784 _slots-bind250816_)))) (declare (not safe)) - (foldr1 cons __tmp255582 _methods-bind249617_))) - (__tmp255562 - (let ((__tmp255563 - (if (or _lifted-specializer-id249622_ - _unchecked-specializer-impl249623_) - (let* ((_$specializer249628_ - (let ((__tmp255564 + (foldr1 cons __tmp256783 _methods-bind250815_))) + (__tmp256763 + (let ((__tmp256764 + (if (or _lifted-specializer-id250820_ + _unchecked-specializer-impl250821_) + (let* ((_$specializer250826_ + (let ((__tmp256765 (gensym '__specializer))) (declare (not safe)) - (make-symbol__0 __tmp255564))) - (__tmp255565 - (let ((__tmp255577 - (let ((__tmp255578 - (let ((__tmp255580 + (make-symbol__0 __tmp256765))) + (__tmp256766 + (let ((__tmp256778 + (let ((__tmp256779 + (let ((__tmp256781 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer249628_ '()))) - (__tmp255579 + (cons _$specializer250826_ '()))) + (__tmp256780 (let () (declare (not safe)) - (cons _specializer-impl249621_ '())))) + (cons _specializer-impl250819_ '())))) (declare (not safe)) - (cons __tmp255580 __tmp255579)))) + (cons __tmp256781 __tmp256780)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255578 '()))) - (__tmp255566 - (let ((__tmp255567 - (let _recur249630_ ((_rest249632_ + (cons __tmp256779 '()))) + (__tmp256767 + (let ((__tmp256768 + (let _recur250828_ ((_rest250830_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (map caar _struct-check-bind249620_))) - (let* ((_rest249633249641_ _rest249632_) - (_else249635249649_ + (map caar _struct-check-bind250818_))) + (let* ((_rest250831250839_ _rest250830_) + (_else250833250847_ (lambda () - (if _lifted-specializer-id249622_ - (let ((__tmp255568 + (if _lifted-specializer-id250820_ + (let ((__tmp256769 (let () (declare (not safe)) - (cons _lifted-specializer-id249622_ + (cons _lifted-specializer-id250820_ '())))) (declare (not safe)) - (cons '%#ref __tmp255568)) - _unchecked-specializer-impl249623_))) - (_K249637249655_ - (lambda (_rest249652_ _checkq249653_) - (let ((__tmp255569 - (let ((__tmp255575 - (let ((__tmp255576 + (cons '%#ref __tmp256769)) + _unchecked-specializer-impl250821_))) + (_K250835250853_ + (lambda (_rest250850_ _checkq250851_) + (let ((__tmp256770 + (let ((__tmp256776 + (let ((__tmp256777 (let () (declare (not safe)) - (cons _checkq249653_ '())))) + (cons _checkq250851_ '())))) (declare (not safe)) - (cons '%#ref __tmp255576))) - (__tmp255570 - (let ((__tmp255574 + (cons '%#ref __tmp256777))) + (__tmp256771 + (let ((__tmp256775 (let () (declare (not safe)) - (_recur249630_ - _rest249652_))) - (__tmp255571 - (let ((__tmp255572 - (let ((__tmp255573 + (_recur250828_ + _rest250850_))) + (__tmp256772 + (let ((__tmp256773 + (let ((__tmp256774 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$specializer249628_ '())))) + (cons _$specializer250826_ '())))) (declare (not safe)) - (cons '%#ref __tmp255573)))) + (cons '%#ref __tmp256774)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255572 '())))) + (cons __tmp256773 '())))) (declare (not safe)) - (cons __tmp255574 __tmp255571)))) + (cons __tmp256775 __tmp256772)))) (declare (not safe)) - (cons __tmp255575 __tmp255570)))) + (cons __tmp256776 __tmp256771)))) (declare (not safe)) - (cons '%#if __tmp255569))))) + (cons '%#if __tmp256770))))) (if (let () (declare (not safe)) - (##pair? _rest249633249641_)) - (let ((_hd249638249658_ + (##pair? _rest250831250839_)) + (let ((_hd250836250856_ (let () (declare (not safe)) - (##car _rest249633249641_))) - (_tl249639249660_ + (##car _rest250831250839_))) + (_tl250837250858_ (let () (declare (not safe)) - (##cdr _rest249633249641_)))) - (let* ((_checkq249663_ _hd249638249658_) - (_rest249665_ _tl249639249660_)) + (##cdr _rest250831250839_)))) + (let* ((_checkq250861_ _hd250836250856_) + (_rest250863_ _tl250837250858_)) (declare (not safe)) - (_K249637249655_ _rest249665_ _checkq249663_))) - (let () (declare (not safe)) (_else249635249649_))))))) + (_K250835250853_ _rest250863_ _checkq250861_))) + (let () (declare (not safe)) (_else250833250847_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255567 '())))) + (cons __tmp256768 '())))) (declare (not safe)) - (cons __tmp255577 __tmp255566)))) + (cons __tmp256778 __tmp256767)))) (declare (not safe)) - (cons '%#let-values __tmp255565)) - _specializer-impl249621_))) + (cons '%#let-values __tmp256766)) + _specializer-impl250819_))) (declare (not safe)) - (cons __tmp255563 '())))) + (cons __tmp256764 '())))) (declare (not safe)) - (cons __tmp255581 __tmp255562)))) + (cons __tmp256782 __tmp256763)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp255561)))) + __tmp256762)))) (declare (not safe)) - (cons __tmp255560 '())))) + (cons __tmp256761 '())))) (declare (not safe)) - (cons __tmp255584 __tmp255559)))) + (cons __tmp256785 __tmp256760)))) (declare (not safe)) - (cons '%#lambda __tmp255558)))) + (cons '%#lambda __tmp256759)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255557 _stx246357_)))) - (_generate-specializer-def246364_ - (lambda (_id249610_ - _specializer-id249611_ - _specializer-impl249612_ - _lifted-specializer-id249613_ - _unchecked-specializer-impl249614_) - (let ((__tmp255585 - (let ((__tmp255586 - (let ((__tmp255587 - (let ((__tmp255607 - (let ((__tmp255608 - (let ((__tmp255609 - (let ((__tmp255611 + (gxc#xform-wrap-source __tmp256758 _stx247555_)))) + (_generate-specializer-def247562_ + (lambda (_id250808_ + _specializer-id250809_ + _specializer-impl250810_ + _lifted-specializer-id250811_ + _unchecked-specializer-impl250812_) + (let ((__tmp256786 + (let ((__tmp256787 + (let ((__tmp256788 + (let ((__tmp256808 + (let ((__tmp256809 + (let ((__tmp256810 + (let ((__tmp256812 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _specializer-id249611_ '()))) - (__tmp255610 + (cons _specializer-id250809_ '()))) + (__tmp256811 (let () (declare (not safe)) - (cons _specializer-impl249612_ '())))) + (cons _specializer-impl250810_ '())))) (declare (not safe)) - (cons __tmp255611 __tmp255610)))) + (cons __tmp256812 __tmp256811)))) (declare (not safe)) - (cons '%#define-values __tmp255609)))) + (cons '%#define-values __tmp256810)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp255608 - _stx246357_))) - (__tmp255588 - (let ((__tmp255595 - (let ((__tmp255596 - (let ((__tmp255597 + __tmp256809 + _stx247555_))) + (__tmp256789 + (let ((__tmp256796 + (let ((__tmp256797 + (let ((__tmp256798 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255598 - (let ((__tmp255605 - (let ((__tmp255606 + (let ((__tmp256799 + (let ((__tmp256806 + (let ((__tmp256807 (let () (declare (not safe)) (cons 'bind-specializer! '())))) (declare (not safe)) - (cons '%#ref __tmp255606))) - (__tmp255599 - (let ((__tmp255603 - (let ((__tmp255604 + (cons '%#ref __tmp256807))) + (__tmp256800 + (let ((__tmp256804 + (let ((__tmp256805 (let () (declare (not safe)) - (cons _id249610_ + (cons _id250808_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp255604))) - (__tmp255600 - (let ((__tmp255601 - (let ((__tmp255602 + (cons '%#ref __tmp256805))) + (__tmp256801 + (let ((__tmp256802 + (let ((__tmp256803 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _specializer-id249611_ '())))) + (cons _specializer-id250809_ '())))) (declare (not safe)) - (cons '%#ref __tmp255602)))) + (cons '%#ref __tmp256803)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255601 '())))) + (cons __tmp256802 '())))) (declare (not safe)) - (cons __tmp255603 __tmp255600)))) + (cons __tmp256804 __tmp256801)))) (declare (not safe)) - (cons __tmp255605 __tmp255599)))) + (cons __tmp256806 __tmp256800)))) (declare (not safe)) - (cons '%#call __tmp255598)))) + (cons '%#call __tmp256799)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255597 _stx246357_)))) + (gxc#xform-wrap-source __tmp256798 _stx247555_)))) (declare (not safe)) - (cons __tmp255596 '()))) - (__tmp255589 - (if _lifted-specializer-id249613_ - (let ((__tmp255590 - (let ((__tmp255591 - (let ((__tmp255592 - (let ((__tmp255594 + (cons __tmp256797 '()))) + (__tmp256790 + (if _lifted-specializer-id250811_ + (let ((__tmp256791 + (let ((__tmp256792 + (let ((__tmp256793 + (let ((__tmp256795 (let () (declare (not safe)) - (cons _lifted-specializer-id249613_ + (cons _lifted-specializer-id250811_ '()))) - (__tmp255593 + (__tmp256794 (let () (declare (not safe)) - (cons _unchecked-specializer-impl249614_ + (cons _unchecked-specializer-impl250812_ '())))) (declare (not safe)) - (cons __tmp255594 __tmp255593)))) + (cons __tmp256795 __tmp256794)))) (declare (not safe)) - (cons '%#define-values __tmp255592)))) + (cons '%#define-values __tmp256793)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255591 _stx246357_)))) + (gxc#xform-wrap-source __tmp256792 _stx247555_)))) (declare (not safe)) - (cons __tmp255590 '())) + (cons __tmp256791 '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp255595 - __tmp255589)))) + __tmp256796 + __tmp256790)))) (declare (not safe)) - (cons __tmp255607 __tmp255588)))) + (cons __tmp256808 __tmp256789)))) (declare (not safe)) - (cons _stx246357_ __tmp255587)))) + (cons _stx247555_ __tmp256788)))) (declare (not safe)) - (cons '%#begin __tmp255586)))) + (cons '%#begin __tmp256787)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255585 _stx246357_))))) - (let* ((___stx254401254402_ _stx246357_) - (_g246367246387_ + (gxc#xform-wrap-source __tmp256786 _stx247555_))))) + (let* ((___stx255599255600_ _stx247555_) + (_g247565247585_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx254401254402_))))) - (let ((___kont254403254404_ - (lambda (_L246431_ _L246432_) - (let ((_method-calls246451_ + ___stx255599255600_))))) + (let ((___kont255601255602_ + (lambda (_L247629_ _L247630_) + (let ((_method-calls247649_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_slot-refs246452_ + (_slot-refs247650_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_class-type-check246453_ + (_class-type-check247651_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_struct-type-check246454_ + (_struct-type-check247652_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_struct-type-assert246455_ + (_struct-type-assert247653_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_empty246456_ + (_empty247654_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (letrec ((_no-specializer?246458_ + (letrec ((_no-specializer?247656_ (lambda () - (if (let ((__tmp255616 + (if (let ((__tmp256817 (let () (declare (not safe)) (table-length - _method-calls246451_)))) + _method-calls247649_)))) (declare (not safe)) - (fxzero? __tmp255616)) - (if (let ((__tmp255615 + (fxzero? __tmp256817)) + (if (let ((__tmp256816 (let () (declare (not safe)) (table-length - _slot-refs246452_)))) + _slot-refs247650_)))) (declare (not safe)) - (fxzero? __tmp255615)) - (if (let ((__tmp255614 + (fxzero? __tmp256816)) + (if (let ((__tmp256815 (let () (declare (not safe)) (table-length - _class-type-check246453_)))) + _class-type-check247651_)))) (declare (not safe)) - (fxzero? __tmp255614)) - (if (let ((__tmp255613 + (fxzero? __tmp256815)) + (if (let ((__tmp256814 (let () (declare (not safe)) (table-length - _struct-type-check246454_)))) + _struct-type-check247652_)))) (declare (not safe)) - (fxzero? __tmp255613)) - (let ((__tmp255612 + (fxzero? __tmp256814)) + (let ((__tmp256813 (let () (declare (not safe)) (table-length - _struct-type-assert246455_)))) + _struct-type-assert247653_)))) (declare (not safe)) - (fxzero? __tmp255612)) + (fxzero? __tmp256813)) '#f) '#f) '#f) '#f))) - (_unchecked-specializer?246459_ + (_unchecked-specializer?247657_ (lambda () - (let ((_$e249603_ - (let ((__tmp255617 - (let ((__tmp255618 + (let ((_$e250801_ + (let ((__tmp256818 + (let ((__tmp256819 (let () (declare (not safe)) (table-length - _struct-type-check246454_)))) + _struct-type-check247652_)))) (declare (not safe)) - (fxzero? __tmp255618)))) + (fxzero? __tmp256819)))) (declare (not safe)) - (not __tmp255617)))) - (if _$e249603_ - _$e249603_ - (let ((__tmp255619 - (let ((__tmp255620 + (not __tmp256818)))) + (if _$e250801_ + _$e250801_ + (let ((__tmp256820 + (let ((__tmp256821 (let () (declare (not safe)) (table-length - _struct-type-assert246455_)))) + _struct-type-assert247653_)))) (declare (not safe)) - (fxzero? __tmp255620)))) + (fxzero? __tmp256821)))) (declare (not safe)) - (not __tmp255619)))))) - (_lift-unchecked-specializer?246460_ + (not __tmp256820)))))) + (_lift-unchecked-specializer?247658_ (lambda () - (if (let ((__tmp255623 + (if (let ((__tmp256824 (let () (declare (not safe)) (table-length - _method-calls246451_)))) + _method-calls247649_)))) (declare (not safe)) - (fxzero? __tmp255623)) - (if (let ((__tmp255622 + (fxzero? __tmp256824)) + (if (let ((__tmp256823 (let () (declare (not safe)) (table-length - _slot-refs246452_)))) + _slot-refs247650_)))) (declare (not safe)) - (fxzero? __tmp255622)) - (let ((__tmp255621 + (fxzero? __tmp256823)) + (let ((__tmp256822 (let () (declare (not safe)) (table-length - _class-type-check246453_)))) + _class-type-check247651_)))) (declare (not safe)) - (fxzero? __tmp255621)) + (fxzero? __tmp256822)) '#f) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L246431_)) - (let* ((___stx254315254316_ _L246431_) - (_g246973246991_ + (gxc#lambda-expr? _L247629_)) + (let* ((___stx255513255514_ _L247629_) + (_g248171248189_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx254315254316_))))) - (let ((___kont254317254318_ - (lambda (_L247027_ _L247028_ _L247029_) + ___stx255513255514_))))) + (let ((___kont255515255516_ + (lambda (_L248225_ _L248226_ _L248227_) (for-each - (lambda (_g247044247046_) + (lambda (_g248242248244_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g247044247046_ - _L247029_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check246454_ - _struct-type-assert246455_))) - _L247027_) + _g248242248244_ + _L248227_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check247652_ + _struct-type-assert247653_))) + _L248225_) (if (let () (declare (not safe)) - (_no-specializer?246458_)) - _stx246357_ - (let* ((_specializer-id247055_ - (let* ((_id247049_ - (let ((__tmp255773 + (_no-specializer?247656_)) + _stx247555_ + (let* ((_specializer-id248253_ + (let* ((_id248247_ + (let ((__tmp256974 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (gx#stx-e _L246432_)))) + (let () (declare (not safe)) (gx#stx-e _L247630_)))) (declare (not safe)) - (make-symbol__1 __tmp255773 '"::specialize"))) - (_specializer-id247052_ - (let ((__tmp255774 + (make-symbol__1 __tmp256974 '"::specialize"))) + (_specializer-id248250_ + (let ((__tmp256975 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id247049_ __tmp255774)))) + (gx#core-quote-syntax__1 _id248247_ __tmp256975)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id247052_)) - _specializer-id247052_)) + (gx#core-bind-runtime!__0 _specializer-id248250_)) + _specializer-id248250_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id247062_ + (_lifted-specializer-id248260_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?246460_)) - (let* ((_id247057_ - (let ((__tmp255775 + (_lift-unchecked-specializer?247658_)) + (let* ((_id248255_ + (let ((__tmp256976 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L246432_)))) + (gx#stx-e _L247630_)))) (declare (not safe)) (make-symbol__1 - __tmp255775 + __tmp256976 '"::specialize::unchecked"))) - (_lifted-specializer-id247059_ - (let ((__tmp255776 + (_lifted-specializer-id248257_ + (let ((__tmp256977 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id247057_ __tmp255776)))) + (gx#core-quote-syntax__1 _id248255_ __tmp256977)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id247059_)) - _lifted-specializer-id247059_) + (gx#core-bind-runtime!__0 _lifted-specializer-id248257_)) + _lifted-specializer-id248257_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t247064_ - (let ((__tmp255777 + (_$t248262_ + (let ((__tmp256978 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp255777))) - (_methods247066_ + __tmp256978))) + (_methods248264_ (let () (declare (not safe)) (hash-keys - _method-calls246451_))) - (_$methods247070_ - (map (lambda (_id247068_) - (let ((__tmp255778 + _method-calls247649_))) + (_$methods248268_ + (map (lambda (_id248266_) + (let ((__tmp256979 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id247068_))) + (gensym _id248266_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255778))) - _methods247066_)) + (make-symbol__1 '"__" __tmp256979))) + _methods248264_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255779_ + (_g256980_ (for-each - (lambda (_g247071247074_ - _g247072247076_) + (lambda (_g248269248272_ + _g248270248274_) (let () (declare (not safe)) (table-set! - _method-calls246451_ - _g247071247074_ - _g247072247076_))) - _methods247066_ - _$methods247070_)) - (_methods-bind247087_ - (map (lambda (_g247079247082_ + _method-calls247649_ + _g248269248272_ + _g248270248274_))) + _methods248264_ + _$methods248268_)) + (_methods-bind248285_ + (map (lambda (_g248277248280_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247080247084_) + _g248278248282_) (let () (declare (not safe)) - (_generate-method-bind246359_ - _$t247064_ - _g247079247082_ - _g247080247084_))) - _methods247066_ - _$methods247070_)) + (_generate-method-bind247557_ + _$t248262_ + _g248277248280_ + _g248278248282_))) + _methods248264_ + _$methods248268_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots247089_ + (_slots248287_ (let () (declare (not safe)) (hash-keys - _slot-refs246452_))) - (_$slots247093_ - (map (lambda (_id247091_) - (let ((__tmp255780 + _slot-refs247650_))) + (_$slots248291_ + (map (lambda (_id248289_) + (let ((__tmp256981 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id247091_))) + (gensym _id248289_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255780))) - _slots247089_)) + (make-symbol__1 '"__" __tmp256981))) + _slots248287_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255781_ + (_g256982_ (for-each - (lambda (_g247094247097_ - _g247095247099_) + (lambda (_g248292248295_ + _g248293248297_) (let () (declare (not safe)) (table-set! - _slot-refs246452_ - _g247094247097_ - _g247095247099_))) - _slots247089_ - _$slots247093_)) - (_slots-bind247110_ - (map (lambda (_g247102247105_ + _slot-refs247650_ + _g248292248295_ + _g248293248297_))) + _slots248287_ + _$slots248291_)) + (_slots-bind248308_ + (map (lambda (_g248300248303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247103247107_) + _g248301248305_) (let () (declare (not safe)) - (_generate-slot-bind246360_ - _$t247064_ - _g247102247105_ - _g247103247107_))) - _slots247089_ - _$slots247093_)) + (_generate-slot-bind247558_ + _$t248262_ + _g248300248303_ + _g248301248305_))) + _slots248287_ + _$slots248291_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check247112_ + (_class-check248310_ (let () (declare (not safe)) (hash-keys - _class-type-check246453_))) - (_$class-check247115_ - (map (lambda (_g255782_) - (let ((__tmp255783 + _class-type-check247651_))) + (_$class-check248313_ + (map (lambda (_g256983_) + (let ((__tmp256984 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255783))) - _class-check247112_)) + (make-symbol__0 __tmp256984))) + _class-check248310_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255784_ + (_g256985_ (for-each - (lambda (_g247116247119_ - _g247117247121_) + (lambda (_g248314248317_ + _g248315248319_) (let () (declare (not safe)) (table-set! - _class-type-check246453_ - _g247116247119_ - _g247117247121_))) - _class-check247112_ - _$class-check247115_)) - (_class-check-bind247132_ - (map (lambda (_g247124247127_ + _class-type-check247651_ + _g248314248317_ + _g248315248319_))) + _class-check248310_ + _$class-check248313_)) + (_class-check-bind248330_ + (map (lambda (_g248322248325_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247125247129_) + _g248323248327_) (let () (declare (not safe)) - (_generate-class-check-bind246361_ - _$t247064_ - _g247124247127_ - _g247125247129_))) - _class-check247112_ - _$class-check247115_)) + (_generate-class-check-bind247559_ + _$t248262_ + _g248322248325_ + _g248323248327_))) + _class-check248310_ + _$class-check248313_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all247134_ + (_struct-check-all248332_ (let () (declare (not safe)) (hash-merge - _struct-type-check246454_ - _struct-type-assert246455_))) - (_struct-check247136_ + _struct-type-check247652_ + _struct-type-assert247653_))) + (_struct-check248334_ (let () (declare (not safe)) (hash-keys - _struct-check-all247134_))) - (_$struct-check247139_ - (map (lambda (_g255785_) - (let ((__tmp255786 + _struct-check-all248332_))) + (_$struct-check248337_ + (map (lambda (_g256986_) + (let ((__tmp256987 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255786))) - _struct-check247136_)) + (make-symbol__0 __tmp256987))) + _struct-check248334_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255787_ + (_g256988_ (for-each - (lambda (_g247140247143_ - _g247141247145_) + (lambda (_g248338248341_ + _g248339248343_) (let () (declare (not safe)) (table-set! - _struct-check-all247134_ - _g247140247143_ - _g247141247145_))) - _struct-check247136_ - _$struct-check247139_)) - (_struct-check-bind247156_ - (map (lambda (_g247148247151_ + _struct-check-all248332_ + _g248338248341_ + _g248339248343_))) + _struct-check248334_ + _$struct-check248337_)) + (_struct-check-bind248354_ + (map (lambda (_g248346248349_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247149247153_) + _g248347248351_) (let () (declare (not safe)) - (_generate-struct-check-bind246362_ - _$t247064_ - _g247148247151_ - _g247149247153_))) - _struct-check247136_ - _$struct-check247139_)) + (_generate-struct-check-bind247560_ + _$t248262_ + _g248346248349_ + _g248347248351_))) + _struct-check248334_ + _$struct-check248337_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl247167_ - (lambda (_struct-type-check1247158_ - _struct-type-check2247159_) - (let* ((_specializer-body247165_ - (map (lambda (_g247160247162_) + (_make-specializer-impl248365_ + (lambda (_struct-type-check1248356_ + _struct-type-check2248357_) + (let* ((_specializer-body248363_ + (map (lambda (_g248358248360_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g247160247162_ - _L247029_ - _$t247064_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check1247158_ - _struct-type-check2247159_))) - _L247027_)) - (__tmp255788 - (let ((__tmp255789 - (let ((__tmp255790 + _g248358248360_ + _L248227_ + _$t248262_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check1248356_ + _struct-type-check2248357_))) + _L248225_)) + (__tmp256989 + (let ((__tmp256990 + (let ((__tmp256991 (let () (declare (not safe)) - (cons _L247029_ _L247028_)))) + (cons _L248227_ _L248226_)))) (declare (not safe)) - (cons __tmp255790 _specializer-body247165_)))) + (cons __tmp256991 _specializer-body248363_)))) (declare (not safe)) - (cons '%#lambda __tmp255789)))) + (cons '%#lambda __tmp256990)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255788 _stx246357_)))) + (gxc#xform-wrap-source __tmp256989 _stx247555_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-impl247169_ + (_specializer-impl248367_ (let () (declare (not safe)) - (_make-specializer-impl247167_ - _struct-check-all247134_ - _empty246456_))) - (_unchecked-specializer-impl247171_ + (_make-specializer-impl248365_ + _struct-check-all248332_ + _empty247654_))) + (_unchecked-specializer-impl248369_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-impl247167_ - _empty246456_ - _struct-check-all247134_)) + (_make-specializer-impl248365_ + _empty247654_ + _struct-check-all248332_)) '#f)) - (_specializer-impl247173_ + (_specializer-impl248371_ (let () (declare (not safe)) - (_generate-specializer-impl246363_ - _$t247064_ - _methods-bind247087_ - _slots-bind247110_ - _class-check-bind247132_ - _struct-check-bind247156_ - _specializer-impl247169_ - _lifted-specializer-id247062_ - _unchecked-specializer-impl247171_)))) - (let ((__tmp255792 + (_generate-specializer-impl247561_ + _$t248262_ + _methods-bind248285_ + _slots-bind248308_ + _class-check-bind248330_ + _struct-check-bind248354_ + _specializer-impl248367_ + _lifted-specializer-id248260_ + _unchecked-specializer-impl248369_)))) + (let ((__tmp256993 (let () (declare (not safe)) - (gx#stx-e _L246432_))) - (__tmp255791 + (gx#stx-e _L247630_))) + (__tmp256992 (let () (declare (not safe)) (gx#stx-e - _specializer-id247055_)))) + _specializer-id248253_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp255792 + __tmp256993 '" => " - __tmp255791)) + __tmp256992)) (let () (declare (not safe)) - (_generate-specializer-def246364_ - _L246432_ - _specializer-id247055_ - _specializer-impl247173_ - _lifted-specializer-id247062_ - _unchecked-specializer-impl247171_)))))) - (___kont254319254320_ - (lambda () _stx246357_))) + (_generate-specializer-def247562_ + _L247630_ + _specializer-id248253_ + _specializer-impl248371_ + _lifted-specializer-id248260_ + _unchecked-specializer-impl248369_)))))) + (___kont255517255518_ + (lambda () _stx247555_))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx254315254316_)) - (let ((_e246980247003_ + (gx#stx-pair? ___stx255513255514_)) + (let ((_e248178248201_ (let () (declare (not safe)) - (gx#stx-e ___stx254315254316_)))) - (let ((_tl246978247008_ + (gx#stx-e ___stx255513255514_)))) + (let ((_tl248176248206_ (let () (declare (not safe)) - (##cdr _e246980247003_))) - (_hd246979247006_ + (##cdr _e248178248201_))) + (_hd248177248204_ (let () (declare (not safe)) - (##car _e246980247003_)))) + (##car _e248178248201_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246978247008_)) - (let ((_e246983247011_ + (gx#stx-pair? _tl248176248206_)) + (let ((_e248181248209_ (let () (declare (not safe)) (gx#stx-e - _tl246978247008_)))) - (let ((_tl246981247016_ + _tl248176248206_)))) + (let ((_tl248179248214_ (let () (declare (not safe)) - (##cdr _e246983247011_))) - (_hd246982247014_ + (##cdr _e248181248209_))) + (_hd248180248212_ (let () (declare (not safe)) - (##car _e246983247011_)))) + (##car _e248181248209_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd246982247014_)) - (let ((_e246986247019_ + _hd248180248212_)) + (let ((_e248184248217_ (let () (declare (not safe)) (gx#stx-e - _hd246982247014_)))) - (let ((_tl246984247024_ + _hd248180248212_)))) + (let ((_tl248182248222_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e246986247019_))) - (_hd246985247022_ - (let () (declare (not safe)) (##car _e246986247019_)))) - (___kont254317254318_ - _tl246981247016_ - _tl246984247024_ - _hd246985247022_))) + (##cdr _e248184248217_))) + (_hd248183248220_ + (let () (declare (not safe)) (##car _e248184248217_)))) + (___kont255515255516_ + _tl248179248214_ + _tl248182248222_ + _hd248183248220_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254319254320_)))) - (___kont254319254320_)))) - (___kont254319254320_)))) + (___kont255517255518_)))) + (___kont255517255518_)))) + (___kont255517255518_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _L246431_)) - (let* ((_g247179247198_ - (lambda (_g247180247195_) + (gxc#case-lambda-expr? _L247629_)) + (let* ((_g248377248396_ + (lambda (_g248378248393_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247180247195_)))) - (_g247178247549_ - (lambda (_g247180247201_) + _g248378248393_)))) + (_g248376248747_ + (lambda (_g248378248399_) (if (let () (declare (not safe)) (gx#stx-pair? - _g247180247201_)) - (let ((_e247184247203_ + _g248378248399_)) + (let ((_e248382248401_ (let () (declare (not safe)) (gx#stx-e - _g247180247201_)))) - (let ((_hd247183247206_ + _g248378248399_)))) + (let ((_hd248381248404_ (let () (declare (not safe)) - (##car _e247184247203_))) - (_tl247182247208_ + (##car _e248382248401_))) + (_tl248380248406_ (let () (declare (not safe)) - (##cdr _e247184247203_)))) + (##cdr _e248382248401_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl247182247208_)) - (let ((_g255749_ + _tl248380248406_)) + (let ((_g256950_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl247182247208_ '0)))) + (gx#syntax-split-splice _tl248380248406_ '0)))) (begin - (let ((_g255750_ + (let ((_g256951_ (let () (declare (not safe)) - (if (##values? _g255749_) - (##vector-length _g255749_) + (if (##values? _g256950_) + (##vector-length _g256950_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g255750_ 2))) - (error "Context expects 2 values" _g255750_))) - (let ((_target247185247211_ + (##fx= _g256951_ 2))) + (error "Context expects 2 values" _g256951_))) + (let ((_target248383248409_ (let () (declare (not safe)) - (##vector-ref _g255749_ 0))) - (_tl247187247213_ + (##vector-ref _g256950_ 0))) + (_tl248385248411_ (let () (declare (not safe)) - (##vector-ref _g255749_ 1)))) + (##vector-ref _g256950_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247187247213_)) - (letrec ((_loop247188247216_ - (lambda (_hd247186247219_ - _clause247192247221_) + (gx#stx-null? _tl248385248411_)) + (letrec ((_loop248386248414_ + (lambda (_hd248384248417_ + _clause248390248419_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247186247219_)) - (let ((_e247189247224_ + (gx#stx-pair? _hd248384248417_)) + (let ((_e248387248422_ (let () (declare (not safe)) (gx#stx-e - _hd247186247219_)))) - (let ((_lp-hd247190247227_ + _hd248384248417_)))) + (let ((_lp-hd248388248425_ (let () (declare (not safe)) - (##car _e247189247224_))) - (_lp-tl247191247229_ + (##car _e248387248422_))) + (_lp-tl248389248427_ (let () (declare (not safe)) - (##cdr _e247189247224_)))) - (let ((__tmp255772 + (##cdr _e248387248422_)))) + (let ((__tmp256973 (let () (declare (not safe)) - (cons _lp-hd247190247227_ - _clause247192247221_)))) + (cons _lp-hd248388248425_ + _clause248390248419_)))) (declare (not safe)) - (_loop247188247216_ - _lp-tl247191247229_ - __tmp255772)))) - (let ((_clause247193247232_ - (reverse _clause247192247221_))) - ((lambda (_L247235_) + (_loop248386248414_ + _lp-tl248389248427_ + __tmp256973)))) + (let ((_clause248391248430_ + (reverse _clause248390248419_))) + ((lambda (_L248433_) (for-each - (lambda (_clause247248_) - (let* ((___stx254341254342_ - _clause247248_) - (_g247251247266_ + (lambda (_clause248446_) + (let* ((___stx255539255540_ + _clause248446_) + (_g248449248464_ (lambda () (let () (declare @@ -1505,8193 +1513,8193 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx254341254342_))))) - (let ((___kont254343254344_ - (lambda (_L247294_ + ___stx255539255540_))))) + (let ((___kont255541255542_ + (lambda (_L248492_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L247295_ - _L247296_) + _L248493_ + _L248494_) (for-each - (lambda (_g247311247313_) + (lambda (_g248509248511_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g247311247313_ - _L247296_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check246454_ - _struct-type-assert246455_))) - _L247294_))) - (___kont254345254346_ (lambda () '#!void))) + _g248509248511_ + _L248494_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check247652_ + _struct-type-assert247653_))) + _L248492_))) + (___kont255543255544_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx254341254342_)) - (let ((_e247258247278_ + ___stx255539255540_)) + (let ((_e248456248476_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e ___stx254341254342_)))) - (let ((_tl247256247283_ + (gx#stx-e ___stx255539255540_)))) + (let ((_tl248454248481_ (let () (declare (not safe)) - (##cdr _e247258247278_))) - (_hd247257247281_ + (##cdr _e248456248476_))) + (_hd248455248479_ (let () (declare (not safe)) - (##car _e247258247278_)))) + (##car _e248456248476_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247257247281_)) - (let ((_e247261247286_ + (gx#stx-pair? _hd248455248479_)) + (let ((_e248459248484_ (let () (declare (not safe)) - (gx#stx-e _hd247257247281_)))) - (let ((_tl247259247291_ + (gx#stx-e _hd248455248479_)))) + (let ((_tl248457248489_ (let () (declare (not safe)) - (##cdr _e247261247286_))) - (_hd247260247289_ + (##cdr _e248459248484_))) + (_hd248458248487_ (let () (declare (not safe)) - (##car _e247261247286_)))) - (___kont254343254344_ - _tl247256247283_ - _tl247259247291_ - _hd247260247289_))) - (___kont254345254346_)))) - (___kont254345254346_))))) + (##car _e248459248484_)))) + (___kont255541255542_ + _tl248454248481_ + _tl248457248489_ + _hd248458248487_))) + (___kont255543255544_)))) + (___kont255543255544_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp255751 - (lambda (_g247318247321_ - _g247319247323_) + (let ((__tmp256952 + (lambda (_g248516248519_ + _g248517248521_) (let () (declare (not safe)) - (cons _g247318247321_ - _g247319247323_))))) + (cons _g248516248519_ + _g248517248521_))))) (declare (not safe)) - (foldr1 __tmp255751 + (foldr1 __tmp256952 '() - _L247235_))) + _L248433_))) (if (let () (declare (not safe)) - (_no-specializer?246458_)) - _stx246357_ - (let* ((_specializer-id247332_ - (let* ((_id247326_ + (_no-specializer?247656_)) + _stx247555_ + (let* ((_specializer-id248530_ + (let* ((_id248524_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255752 + (let ((__tmp256953 (let () (declare (not safe)) - (gx#stx-e _L246432_)))) + (gx#stx-e _L247630_)))) (declare (not safe)) - (make-symbol__1 __tmp255752 '"::specialize"))) - (_specializer-id247329_ - (let ((__tmp255753 + (make-symbol__1 __tmp256953 '"::specialize"))) + (_specializer-id248527_ + (let ((__tmp256954 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id247326_ __tmp255753)))) + (gx#core-quote-syntax__1 _id248524_ __tmp256954)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id247329_)) - _specializer-id247329_)) - (_lifted-specializer-id247339_ + (gx#core-bind-runtime!__0 _specializer-id248527_)) + _specializer-id248527_)) + (_lifted-specializer-id248537_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?246460_)) - (let* ((_id247334_ - (let ((__tmp255754 + (_lift-unchecked-specializer?247658_)) + (let* ((_id248532_ + (let ((__tmp256955 (let () (declare (not safe)) - (gx#stx-e _L246432_)))) + (gx#stx-e _L247630_)))) (declare (not safe)) (make-symbol__1 - __tmp255754 + __tmp256955 '"::specialize::unchecked"))) - (_lifted-specializer-id247336_ - (let ((__tmp255755 + (_lifted-specializer-id248534_ + (let ((__tmp256956 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id247334_ - __tmp255755)))) + _id248532_ + __tmp256956)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id247336_)) - _lifted-specializer-id247336_) + _lifted-specializer-id248534_)) + _lifted-specializer-id248534_) '#f)) - (_$t247341_ - (let ((__tmp255756 (gensym '__t))) + (_$t248539_ + (let ((__tmp256957 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp255756))) - (_methods247343_ + (make-symbol__0 __tmp256957))) + (_methods248541_ (let () (declare (not safe)) - (hash-keys _method-calls246451_))) - (_$methods247347_ - (map (lambda (_id247345_) - (let ((__tmp255757 (gensym _id247345_))) + (hash-keys _method-calls247649_))) + (_$methods248545_ + (map (lambda (_id248543_) + (let ((__tmp256958 (gensym _id248543_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255757))) - _methods247343_)) - (_g255758_ + (make-symbol__1 '"__" __tmp256958))) + _methods248541_)) + (_g256959_ (for-each - (lambda (_g247348247351_ _g247349247353_) + (lambda (_g248546248549_ _g248547248551_) (let () (declare (not safe)) (table-set! - _method-calls246451_ - _g247348247351_ - _g247349247353_))) - _methods247343_ - _$methods247347_)) - (_methods-bind247364_ - (map (lambda (_g247356247359_ _g247357247361_) + _method-calls247649_ + _g248546248549_ + _g248547248551_))) + _methods248541_ + _$methods248545_)) + (_methods-bind248562_ + (map (lambda (_g248554248557_ _g248555248559_) (let () (declare (not safe)) - (_generate-method-bind246359_ - _$t247341_ - _g247356247359_ - _g247357247361_))) - _methods247343_ - _$methods247347_)) - (_slots247366_ - (let () (declare (not safe)) (hash-keys _slot-refs246452_))) - (_$slots247370_ - (map (lambda (_id247368_) - (let ((__tmp255759 (gensym _id247368_))) + (_generate-method-bind247557_ + _$t248539_ + _g248554248557_ + _g248555248559_))) + _methods248541_ + _$methods248545_)) + (_slots248564_ + (let () (declare (not safe)) (hash-keys _slot-refs247650_))) + (_$slots248568_ + (map (lambda (_id248566_) + (let ((__tmp256960 (gensym _id248566_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255759))) - _slots247366_)) - (_g255760_ + (make-symbol__1 '"__" __tmp256960))) + _slots248564_)) + (_g256961_ (for-each - (lambda (_g247371247374_ _g247372247376_) + (lambda (_g248569248572_ _g248570248574_) (let () (declare (not safe)) (table-set! - _slot-refs246452_ - _g247371247374_ - _g247372247376_))) - _slots247366_ - _$slots247370_)) - (_slots-bind247387_ - (map (lambda (_g247379247382_ _g247380247384_) + _slot-refs247650_ + _g248569248572_ + _g248570248574_))) + _slots248564_ + _$slots248568_)) + (_slots-bind248585_ + (map (lambda (_g248577248580_ _g248578248582_) (let () (declare (not safe)) - (_generate-slot-bind246360_ - _$t247341_ - _g247379247382_ - _g247380247384_))) - _slots247366_ - _$slots247370_)) - (_class-check247389_ + (_generate-slot-bind247558_ + _$t248539_ + _g248577248580_ + _g248578248582_))) + _slots248564_ + _$slots248568_)) + (_class-check248587_ (let () (declare (not safe)) - (hash-keys _class-type-check246453_))) - (_$class-check247392_ - (map (lambda (_g255761_) - (let ((__tmp255762 (gensym '__class))) + (hash-keys _class-type-check247651_))) + (_$class-check248590_ + (map (lambda (_g256962_) + (let ((__tmp256963 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255762))) - _class-check247389_)) - (_g255763_ + (make-symbol__0 __tmp256963))) + _class-check248587_)) + (_g256964_ (for-each - (lambda (_g247393247396_ _g247394247398_) + (lambda (_g248591248594_ _g248592248596_) (let () (declare (not safe)) (table-set! - _class-type-check246453_ - _g247393247396_ - _g247394247398_))) - _class-check247389_ - _$class-check247392_)) - (_class-check-bind247409_ - (map (lambda (_g247401247404_ _g247402247406_) + _class-type-check247651_ + _g248591248594_ + _g248592248596_))) + _class-check248587_ + _$class-check248590_)) + (_class-check-bind248607_ + (map (lambda (_g248599248602_ _g248600248604_) (let () (declare (not safe)) - (_generate-class-check-bind246361_ - _$t247341_ - _g247401247404_ - _g247402247406_))) - _class-check247389_ - _$class-check247392_)) - (_struct-check-all247411_ + (_generate-class-check-bind247559_ + _$t248539_ + _g248599248602_ + _g248600248604_))) + _class-check248587_ + _$class-check248590_)) + (_struct-check-all248609_ (let () (declare (not safe)) (hash-merge - _struct-type-check246454_ - _struct-type-assert246455_))) - (_struct-check247413_ + _struct-type-check247652_ + _struct-type-assert247653_))) + (_struct-check248611_ (let () (declare (not safe)) - (hash-keys _struct-check-all247411_))) - (_$struct-check247416_ - (map (lambda (_g255764_) - (let ((__tmp255765 (gensym '__class))) + (hash-keys _struct-check-all248609_))) + (_$struct-check248614_ + (map (lambda (_g256965_) + (let ((__tmp256966 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255765))) - _struct-check247413_)) - (_g255766_ + (make-symbol__0 __tmp256966))) + _struct-check248611_)) + (_g256967_ (for-each - (lambda (_g247417247420_ _g247418247422_) + (lambda (_g248615248618_ _g248616248620_) (let () (declare (not safe)) (table-set! - _struct-check-all247411_ - _g247417247420_ - _g247418247422_))) - _struct-check247413_ - _$struct-check247416_)) - (_struct-check-bind247433_ - (map (lambda (_g247425247428_ _g247426247430_) + _struct-check-all248609_ + _g248615248618_ + _g248616248620_))) + _struct-check248611_ + _$struct-check248614_)) + (_struct-check-bind248631_ + (map (lambda (_g248623248626_ _g248624248628_) (let () (declare (not safe)) - (_generate-struct-check-bind246362_ - _$t247341_ - _g247425247428_ - _g247426247430_))) - _struct-check247413_ - _$struct-check247416_)) - (_make-specializer-impl247540_ - (lambda (_struct-type-check1247435_ - _struct-type-check2247436_) - (let* ((_specializer-clauses247538_ - (map (lambda (_clause247438_) - (let* ((___stx254361254362_ _clause247438_) - (_g247441247456_ + (_generate-struct-check-bind247560_ + _$t248539_ + _g248623248626_ + _g248624248628_))) + _struct-check248611_ + _$struct-check248614_)) + (_make-specializer-impl248738_ + (lambda (_struct-type-check1248633_ + _struct-type-check2248634_) + (let* ((_specializer-clauses248736_ + (map (lambda (_clause248636_) + (let* ((___stx255559255560_ _clause248636_) + (_g248639248654_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx254361254362_))))) - (let ((___kont254363254364_ - (lambda (_L247484_ - _L247485_ - _L247486_) - (let* ((_body247526_ - (map (lambda (_g247521247523_) + ___stx255559255560_))))) + (let ((___kont255561255562_ + (lambda (_L248682_ + _L248683_ + _L248684_) + (let* ((_body248724_ + (map (lambda (_g248719248721_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#apply-subst-object-refs - _g247521247523_ - _L247486_ - _$t247341_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check1247435_ - _struct-type-check2247436_))) - _L247484_)) + _g248719248721_ + _L248684_ + _$t248539_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check1248633_ + _struct-type-check2248634_))) + _L248682_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp255767 + (__tmp256968 (let () (declare (not safe)) - (cons _L247486_ - _L247485_)))) + (cons _L248684_ + _L248683_)))) (declare (not safe)) - (cons __tmp255767 - _body247526_)))) - (___kont254365254366_ - (lambda () _clause247438_))) + (cons __tmp256968 + _body248724_)))) + (___kont255563255564_ + (lambda () _clause248636_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx254361254362_)) - (let ((_e247448247468_ + ___stx255559255560_)) + (let ((_e248646248666_ (let () (declare (not safe)) (gx#stx-e - ___stx254361254362_)))) - (let ((_tl247446247473_ + ___stx255559255560_)))) + (let ((_tl248644248671_ (let () (declare (not safe)) - (##cdr _e247448247468_))) - (_hd247447247471_ + (##cdr _e248646248666_))) + (_hd248645248669_ (let () (declare (not safe)) - (##car _e247448247468_)))) + (##car _e248646248666_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247447247471_)) - (let ((_e247451247476_ + _hd248645248669_)) + (let ((_e248649248674_ (let () (declare (not safe)) (gx#stx-e - _hd247447247471_)))) - (let ((_tl247449247481_ + _hd248645248669_)))) + (let ((_tl248647248679_ (let () (declare (not safe)) - (##cdr _e247451247476_))) - (_hd247450247479_ + (##cdr _e248649248674_))) + (_hd248648248677_ (let () (declare (not safe)) - (##car _e247451247476_)))) - (___kont254363254364_ - _tl247446247473_ - _tl247449247481_ - _hd247450247479_))) - (___kont254365254366_)))) - (___kont254365254366_))))) - (let ((__tmp255768 - (lambda (_g247530247533_ - _g247531247535_) + (##car _e248649248674_)))) + (___kont255561255562_ + _tl248644248671_ + _tl248647248679_ + _hd248648248677_))) + (___kont255563255564_)))) + (___kont255563255564_))))) + (let ((__tmp256969 + (lambda (_g248728248731_ + _g248729248733_) (let () (declare (not safe)) - (cons _g247530247533_ - _g247531247535_))))) + (cons _g248728248731_ + _g248729248733_))))) (declare (not safe)) - (foldr1 __tmp255768 '() _L247235_)))) - (__tmp255769 + (foldr1 __tmp256969 '() _L248433_)))) + (__tmp256970 (let () (declare (not safe)) (cons '%#case-lambda - _specializer-clauses247538_)))) + _specializer-clauses248736_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255769 _stx246357_)))) - (_specializer-impl247542_ + (gxc#xform-wrap-source __tmp256970 _stx247555_)))) + (_specializer-impl248740_ (let () (declare (not safe)) - (_make-specializer-impl247540_ - _struct-check-all247411_ - _empty246456_))) - (_unchecked-specializer-impl247544_ + (_make-specializer-impl248738_ + _struct-check-all248609_ + _empty247654_))) + (_unchecked-specializer-impl248742_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-impl247540_ - _empty246456_ - _struct-check-all247411_)) + (_make-specializer-impl248738_ + _empty247654_ + _struct-check-all248609_)) '#f)) - (_specializer-impl247546_ + (_specializer-impl248744_ (let () (declare (not safe)) - (_generate-specializer-impl246363_ - _$t247341_ - _methods-bind247364_ - _slots-bind247387_ - _class-check-bind247409_ - _struct-check-bind247433_ - _specializer-impl247542_ - _lifted-specializer-id247339_ - _unchecked-specializer-impl247544_)))) + (_generate-specializer-impl247561_ + _$t248539_ + _methods-bind248562_ + _slots-bind248585_ + _class-check-bind248607_ + _struct-check-bind248631_ + _specializer-impl248740_ + _lifted-specializer-id248537_ + _unchecked-specializer-impl248742_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp255771 + (let ((__tmp256972 (let () (declare (not safe)) (gx#stx-e - _L246432_))) - (__tmp255770 + _L247630_))) + (__tmp256971 (let () (declare (not safe)) (gx#stx-e - _specializer-id247332_)))) + _specializer-id248530_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp255771 + __tmp256972 '" => " - __tmp255770)) + __tmp256971)) (let () (declare (not safe)) - (_generate-specializer-def246364_ - _L246432_ - _specializer-id247332_ - _specializer-impl247546_ - _lifted-specializer-id247339_ - _unchecked-specializer-impl247544_))))) - _clause247193247232_)))))) + (_generate-specializer-def247562_ + _L247630_ + _specializer-id248530_ + _specializer-impl248744_ + _lifted-specializer-id248537_ + _unchecked-specializer-impl248742_))))) + _clause248391248430_)))))) (let () (declare (not safe)) - (_loop247188247216_ _target247185247211_ '()))) + (_loop248386248414_ _target248383248409_ '()))) (let () (declare (not safe)) - (_g247179247198_ _g247180247201_)))))) + (_g248377248396_ _g248378248399_)))))) (let () (declare (not safe)) - (_g247179247198_ _g247180247201_))))) + (_g248377248396_ _g248378248399_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247179247198_ - _g247180247201_)))))) + (_g248377248396_ + _g248378248399_)))))) (declare (not safe)) - (_g247178247549_ _L246431_)) + (_g248376248747_ _L247629_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L246431_)) - (let* ((_g247552247582_ - (lambda (_g247553247579_) + (gxc#opt-lambda-expr? _L247629_)) + (let* ((_g248750248780_ + (lambda (_g248751248777_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247553247579_)))) - (_g247551248270_ - (lambda (_g247553247585_) + _g248751248777_)))) + (_g248749249468_ + (lambda (_g248751248783_) (if (let () (declare (not safe)) (gx#stx-pair? - _g247553247585_)) - (let ((_e247559247587_ + _g248751248783_)) + (let ((_e248757248785_ (let () (declare (not safe)) (gx#stx-e - _g247553247585_)))) - (let ((_hd247558247590_ + _g248751248783_)))) + (let ((_hd248756248788_ (let () (declare (not safe)) - (##car _e247559247587_))) - (_tl247557247592_ + (##car _e248757248785_))) + (_tl248755248790_ (let () (declare (not safe)) - (##cdr _e247559247587_)))) + (##cdr _e248757248785_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247557247592_)) - (let ((_e247562247595_ + _tl248755248790_)) + (let ((_e248760248793_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl247557247592_)))) - (let ((_hd247561247598_ + (gx#stx-e _tl248755248790_)))) + (let ((_hd248759248796_ (let () (declare (not safe)) - (##car _e247562247595_))) - (_tl247560247600_ + (##car _e248760248793_))) + (_tl248758248798_ (let () (declare (not safe)) - (##cdr _e247562247595_)))) + (##cdr _e248760248793_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247561247598_)) - (let ((_e247565247603_ + (gx#stx-pair? _hd248759248796_)) + (let ((_e248763248801_ (let () (declare (not safe)) - (gx#stx-e _hd247561247598_)))) - (let ((_hd247564247606_ + (gx#stx-e _hd248759248796_)))) + (let ((_hd248762248804_ (let () (declare (not safe)) - (##car _e247565247603_))) - (_tl247563247608_ + (##car _e248763248801_))) + (_tl248761248806_ (let () (declare (not safe)) - (##cdr _e247565247603_)))) + (##cdr _e248763248801_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247564247606_)) - (let ((_e247568247611_ + (gx#stx-pair? _hd248762248804_)) + (let ((_e248766248809_ (let () (declare (not safe)) - (gx#stx-e _hd247564247606_)))) - (let ((_hd247567247614_ + (gx#stx-e _hd248762248804_)))) + (let ((_hd248765248812_ (let () (declare (not safe)) - (##car _e247568247611_))) - (_tl247566247616_ + (##car _e248766248809_))) + (_tl248764248814_ (let () (declare (not safe)) - (##cdr _e247568247611_)))) + (##cdr _e248766248809_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247567247614_)) - (let ((_e247571247619_ + (gx#stx-pair? _hd248765248812_)) + (let ((_e248769248817_ (let () (declare (not safe)) (gx#stx-e - _hd247567247614_)))) - (let ((_hd247570247622_ + _hd248765248812_)))) + (let ((_hd248768248820_ (let () (declare (not safe)) - (##car _e247571247619_))) - (_tl247569247624_ + (##car _e248769248817_))) + (_tl248767248822_ (let () (declare (not safe)) - (##cdr _e247571247619_)))) + (##cdr _e248769248817_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl247569247624_)) + _tl248767248822_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl247566247616_)) - (let ((_e247574247627_ + _tl248764248814_)) + (let ((_e248772248825_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl247566247616_)))) - (let ((_hd247573247630_ - (let () (declare (not safe)) (##car _e247574247627_))) - (_tl247572247632_ - (let () (declare (not safe)) (##cdr _e247574247627_)))) + (gx#stx-e _tl248764248814_)))) + (let ((_hd248771248828_ + (let () (declare (not safe)) (##car _e248772248825_))) + (_tl248770248830_ + (let () (declare (not safe)) (##cdr _e248772248825_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247572247632_)) + (gx#stx-null? _tl248770248830_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl247563247608_)) + (gx#stx-null? _tl248761248806_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247560247600_)) - (let ((_e247577247635_ + (gx#stx-pair? _tl248758248798_)) + (let ((_e248775248833_ (let () (declare (not safe)) - (gx#stx-e _tl247560247600_)))) - (let ((_hd247576247638_ + (gx#stx-e _tl248758248798_)))) + (let ((_hd248774248836_ (let () (declare (not safe)) - (##car _e247577247635_))) - (_tl247575247640_ + (##car _e248775248833_))) + (_tl248773248838_ (let () (declare (not safe)) - (##cdr _e247577247635_)))) + (##cdr _e248775248833_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247575247640_)) - ((lambda (_L247643_ _L247644_ _L247645_) - (let* ((_g247668247686_ - (lambda (_g247669247683_) + (gx#stx-null? _tl248773248838_)) + ((lambda (_L248841_ _L248842_ _L248843_) + (let* ((_g248866248884_ + (lambda (_g248867248881_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247669247683_)))) - (_g247667247737_ - (lambda (_g247669247689_) + _g248867248881_)))) + (_g248865248935_ + (lambda (_g248867248887_) (if (let () (declare (not safe)) (gx#stx-pair? - _g247669247689_)) - (let ((_e247675247691_ + _g248867248887_)) + (let ((_e248873248889_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g247669247689_)))) - (let ((_hd247674247694_ - (let () (declare (not safe)) (##car _e247675247691_))) - (_tl247673247696_ + (gx#stx-e _g248867248887_)))) + (let ((_hd248872248892_ + (let () (declare (not safe)) (##car _e248873248889_))) + (_tl248871248894_ (let () (declare (not safe)) - (##cdr _e247675247691_)))) + (##cdr _e248873248889_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247673247696_)) - (let ((_e247678247699_ + (gx#stx-pair? _tl248871248894_)) + (let ((_e248876248897_ (let () (declare (not safe)) - (gx#stx-e _tl247673247696_)))) - (let ((_hd247677247702_ + (gx#stx-e _tl248871248894_)))) + (let ((_hd248875248900_ (let () (declare (not safe)) - (##car _e247678247699_))) - (_tl247676247704_ + (##car _e248876248897_))) + (_tl248874248902_ (let () (declare (not safe)) - (##cdr _e247678247699_)))) + (##cdr _e248876248897_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247677247702_)) - (let ((_e247681247707_ + (gx#stx-pair? _hd248875248900_)) + (let ((_e248879248905_ (let () (declare (not safe)) - (gx#stx-e _hd247677247702_)))) - (let ((_hd247680247710_ + (gx#stx-e _hd248875248900_)))) + (let ((_hd248878248908_ (let () (declare (not safe)) - (##car _e247681247707_))) - (_tl247679247712_ + (##car _e248879248905_))) + (_tl248877248910_ (let () (declare (not safe)) - (##cdr _e247681247707_)))) - ((lambda (_L247715_ _L247716_ _L247717_) + (##cdr _e248879248905_)))) + ((lambda (_L248913_ _L248914_ _L248915_) (for-each - (lambda (_g247732247734_) + (lambda (_g248930248932_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g247732247734_ - _L247717_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check246454_ - _struct-type-assert246455_))) - _L247715_)) - _tl247676247704_ - _tl247679247712_ - _hd247680247710_))) + _g248930248932_ + _L248915_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check247652_ + _struct-type-assert247653_))) + _L248913_)) + _tl248874248902_ + _tl248877248910_ + _hd248878248908_))) (let () (declare (not safe)) - (_g247668247686_ _g247669247689_))))) + (_g248866248884_ _g248867248887_))))) (let () (declare (not safe)) - (_g247668247686_ _g247669247689_))))) + (_g248866248884_ _g248867248887_))))) (let () (declare (not safe)) - (_g247668247686_ _g247669247689_)))))) + (_g248866248884_ _g248867248887_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g247667247737_ _L247644_)) - (let* ((_g247740247759_ - (lambda (_g247741247756_) + (_g248865248935_ _L248842_)) + (let* ((_g248938248957_ + (lambda (_g248939248954_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247741247756_)))) - (_g247739247878_ - (lambda (_g247741247762_) + _g248939248954_)))) + (_g248937249076_ + (lambda (_g248939248960_) (if (let () (declare (not safe)) (gx#stx-pair? - _g247741247762_)) - (let ((_e247745247764_ + _g248939248960_)) + (let ((_e248943248962_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _g247741247762_)))) - (let ((_hd247744247767_ - (let () (declare (not safe)) (##car _e247745247764_))) - (_tl247743247769_ + (gx#stx-e _g248939248960_)))) + (let ((_hd248942248965_ + (let () (declare (not safe)) (##car _e248943248962_))) + (_tl248941248967_ (let () (declare (not safe)) - (##cdr _e247745247764_)))) + (##cdr _e248943248962_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl247743247769_)) - (let ((_g255712_ + (gx#stx-pair/null? _tl248941248967_)) + (let ((_g256913_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl247743247769_ + _tl248941248967_ '0)))) (begin - (let ((_g255713_ + (let ((_g256914_ (let () (declare (not safe)) - (if (##values? _g255712_) - (##vector-length _g255712_) + (if (##values? _g256913_) + (##vector-length _g256913_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g255713_ 2))) + (##fx= _g256914_ 2))) (error "Context expects 2 values" - _g255713_))) - (let ((_target247746247772_ + _g256914_))) + (let ((_target248944248970_ (let () (declare (not safe)) - (##vector-ref _g255712_ 0))) - (_tl247748247774_ + (##vector-ref _g256913_ 0))) + (_tl248946248972_ (let () (declare (not safe)) - (##vector-ref _g255712_ 1)))) + (##vector-ref _g256913_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl247748247774_)) - (letrec ((_loop247749247777_ - (lambda (_hd247747247780_ - _clause247753247782_) + (gx#stx-null? _tl248946248972_)) + (letrec ((_loop248947248975_ + (lambda (_hd248945248978_ + _clause248951248980_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd247747247780_)) - (let ((_e247750247785_ + _hd248945248978_)) + (let ((_e248948248983_ (let () (declare (not safe)) (gx#stx-e - _hd247747247780_)))) - (let ((_lp-hd247751247788_ + _hd248945248978_)))) + (let ((_lp-hd248949248986_ (let () (declare (not safe)) - (##car _e247750247785_))) - (_lp-tl247752247790_ + (##car _e248948248983_))) + (_lp-tl248950248988_ (let () (declare (not safe)) - (##cdr _e247750247785_)))) - (let ((__tmp255715 + (##cdr _e248948248983_)))) + (let ((__tmp256916 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd247751247788_ _clause247753247782_)))) + (cons _lp-hd248949248986_ _clause248951248980_)))) (declare (not safe)) - (_loop247749247777_ _lp-tl247752247790_ __tmp255715)))) + (_loop248947248975_ _lp-tl248950248988_ __tmp256916)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_clause247754247793_ - (reverse _clause247753247782_))) - ((lambda (_L247796_) + (let ((_clause248952248991_ + (reverse _clause248951248980_))) + ((lambda (_L248994_) (for-each - (lambda (_clause247809_) - (let* ((_g247811247826_ + (lambda (_clause249007_) + (let* ((_g249009249024_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g247812247823_) + (lambda (_g249010249021_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247812247823_)))) - (_g247810247868_ - (lambda (_g247812247829_) + _g249010249021_)))) + (_g249008249066_ + (lambda (_g249010249027_) (if (let () (declare (not safe)) - (gx#stx-pair? _g247812247829_)) - (let ((_e247818247831_ + (gx#stx-pair? _g249010249027_)) + (let ((_e249016249029_ (let () (declare (not safe)) - (gx#stx-e _g247812247829_)))) - (let ((_hd247817247834_ + (gx#stx-e _g249010249027_)))) + (let ((_hd249015249032_ (let () (declare (not safe)) - (##car _e247818247831_))) - (_tl247816247836_ + (##car _e249016249029_))) + (_tl249014249034_ (let () (declare (not safe)) - (##cdr _e247818247831_)))) + (##cdr _e249016249029_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd247817247834_)) - (let ((_e247821247839_ + (gx#stx-pair? _hd249015249032_)) + (let ((_e249019249037_ (let () (declare (not safe)) - (gx#stx-e _hd247817247834_)))) - (let ((_hd247820247842_ + (gx#stx-e _hd249015249032_)))) + (let ((_hd249018249040_ (let () (declare (not safe)) - (##car _e247821247839_))) - (_tl247819247844_ + (##car _e249019249037_))) + (_tl249017249042_ (let () (declare (not safe)) - (##cdr _e247821247839_)))) - ((lambda (_L247847_ - _L247848_ - _L247849_) + (##cdr _e249019249037_)))) + ((lambda (_L249045_ + _L249046_ + _L249047_) (for-each - (lambda (_g247863247865_) + (lambda (_g249061249063_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g247863247865_ - _L247849_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check246454_ - _struct-type-assert246455_))) - _L247847_)) - _tl247816247836_ - _tl247819247844_ - _hd247820247842_))) + _g249061249063_ + _L249047_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check247652_ + _struct-type-assert247653_))) + _L249045_)) + _tl249014249034_ + _tl249017249042_ + _hd249018249040_))) (let () (declare (not safe)) - (_g247811247826_ _g247812247829_))))) + (_g249009249024_ _g249010249027_))))) (let () (declare (not safe)) - (_g247811247826_ _g247812247829_)))))) + (_g249009249024_ _g249010249027_)))))) (declare (not safe)) - (_g247810247868_ _clause247809_))) - (let ((__tmp255714 - (lambda (_g247870247873_ _g247871247875_) + (_g249008249066_ _clause249007_))) + (let ((__tmp256915 + (lambda (_g249068249071_ _g249069249073_) (let () (declare (not safe)) - (cons _g247870247873_ _g247871247875_))))) + (cons _g249068249071_ _g249069249073_))))) (declare (not safe)) - (foldr1 __tmp255714 '() _L247796_)))) + (foldr1 __tmp256915 '() _L248994_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _clause247754247793_)))))) + _clause248952248991_)))))) (let () (declare (not safe)) - (_loop247749247777_ - _target247746247772_ + (_loop248947248975_ + _target248944248970_ '()))) (let () (declare (not safe)) - (_g247740247759_ _g247741247762_)))))) + (_g248938248957_ _g248939248960_)))))) (let () (declare (not safe)) - (_g247740247759_ _g247741247762_))))) + (_g248938248957_ _g248939248960_))))) (let () (declare (not safe)) - (_g247740247759_ _g247741247762_)))))) + (_g248938248957_ _g248939248960_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g247739247878_ _L247643_)) + (_g248937249076_ _L248841_)) (if (let () (declare (not safe)) - (_no-specializer?246458_)) - _stx246357_ - (let* ((_specializer-id247887_ - (let* ((_id247881_ - (let ((__tmp255716 + (_no-specializer?247656_)) + _stx247555_ + (let* ((_specializer-id249085_ + (let* ((_id249079_ + (let ((__tmp256917 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _L246432_)))) + (gx#stx-e _L247630_)))) (declare (not safe)) - (make-symbol__1 __tmp255716 '"::specialize"))) - (_specializer-id247884_ - (let ((__tmp255717 + (make-symbol__1 __tmp256917 '"::specialize"))) + (_specializer-id249082_ + (let ((__tmp256918 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id247881_ __tmp255717)))) + (gx#core-quote-syntax__1 _id249079_ __tmp256918)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id247884_)) - _specializer-id247884_)) + (gx#core-bind-runtime!__0 _specializer-id249082_)) + _specializer-id249082_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lifted-specializer-id247894_ + (_lifted-specializer-id249092_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?246460_)) - (let* ((_id247889_ + (_lift-unchecked-specializer?247658_)) + (let* ((_id249087_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255718 + (let ((__tmp256919 (let () (declare (not safe)) - (gx#stx-e _L246432_)))) + (gx#stx-e _L247630_)))) (declare (not safe)) (make-symbol__1 - __tmp255718 + __tmp256919 '"::specialize::unchecked"))) - (_lifted-specializer-id247891_ - (let ((__tmp255719 + (_lifted-specializer-id249089_ + (let ((__tmp256920 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id247889_ __tmp255719)))) + (gx#core-quote-syntax__1 _id249087_ __tmp256920)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lifted-specializer-id247891_)) - _lifted-specializer-id247891_) + (gx#core-bind-runtime!__0 _lifted-specializer-id249089_)) + _lifted-specializer-id249089_) '#f)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_$t247896_ - (let ((__tmp255720 + (_$t249094_ + (let ((__tmp256921 (gensym '__t))) (declare (not safe)) (make-symbol__0 - __tmp255720))) - (_methods247898_ + __tmp256921))) + (_methods249096_ (let () (declare (not safe)) (hash-keys - _method-calls246451_))) - (_$methods247902_ - (map (lambda (_id247900_) - (let ((__tmp255721 + _method-calls247649_))) + (_$methods249100_ + (map (lambda (_id249098_) + (let ((__tmp256922 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id247900_))) + (gensym _id249098_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255721))) - _methods247898_)) + (make-symbol__1 '"__" __tmp256922))) + _methods249096_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255722_ + (_g256923_ (for-each - (lambda (_g247903247906_ - _g247904247908_) + (lambda (_g249101249104_ + _g249102249106_) (let () (declare (not safe)) (table-set! - _method-calls246451_ - _g247903247906_ - _g247904247908_))) - _methods247898_ - _$methods247902_)) - (_methods-bind247919_ - (map (lambda (_g247911247914_ + _method-calls247649_ + _g249101249104_ + _g249102249106_))) + _methods249096_ + _$methods249100_)) + (_methods-bind249117_ + (map (lambda (_g249109249112_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247912247916_) + _g249110249114_) (let () (declare (not safe)) - (_generate-method-bind246359_ - _$t247896_ - _g247911247914_ - _g247912247916_))) - _methods247898_ - _$methods247902_)) + (_generate-method-bind247557_ + _$t249094_ + _g249109249112_ + _g249110249114_))) + _methods249096_ + _$methods249100_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_slots247921_ + (_slots249119_ (let () (declare (not safe)) (hash-keys - _slot-refs246452_))) - (_$slots247925_ - (map (lambda (_id247923_) - (let ((__tmp255723 + _slot-refs247650_))) + (_$slots249123_ + (map (lambda (_id249121_) + (let ((__tmp256924 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _id247923_))) + (gensym _id249121_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255723))) - _slots247921_)) + (make-symbol__1 '"__" __tmp256924))) + _slots249119_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255724_ + (_g256925_ (for-each - (lambda (_g247926247929_ - _g247927247931_) + (lambda (_g249124249127_ + _g249125249129_) (let () (declare (not safe)) (table-set! - _slot-refs246452_ - _g247926247929_ - _g247927247931_))) - _slots247921_ - _$slots247925_)) - (_slots-bind247942_ - (map (lambda (_g247934247937_ + _slot-refs247650_ + _g249124249127_ + _g249125249129_))) + _slots249119_ + _$slots249123_)) + (_slots-bind249140_ + (map (lambda (_g249132249135_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247935247939_) + _g249133249137_) (let () (declare (not safe)) - (_generate-slot-bind246360_ - _$t247896_ - _g247934247937_ - _g247935247939_))) - _slots247921_ - _$slots247925_)) + (_generate-slot-bind247558_ + _$t249094_ + _g249132249135_ + _g249133249137_))) + _slots249119_ + _$slots249123_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_class-check247944_ + (_class-check249142_ (let () (declare (not safe)) (hash-keys - _class-type-check246453_))) - (_$class-check247947_ - (map (lambda (_g255725_) - (let ((__tmp255726 + _class-type-check247651_))) + (_$class-check249145_ + (map (lambda (_g256926_) + (let ((__tmp256927 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255726))) - _class-check247944_)) + (make-symbol__0 __tmp256927))) + _class-check249142_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255727_ + (_g256928_ (for-each - (lambda (_g247948247951_ - _g247949247953_) + (lambda (_g249146249149_ + _g249147249151_) (let () (declare (not safe)) (table-set! - _class-type-check246453_ - _g247948247951_ - _g247949247953_))) - _class-check247944_ - _$class-check247947_)) - (_class-check-bind247964_ - (map (lambda (_g247956247959_ + _class-type-check247651_ + _g249146249149_ + _g249147249151_))) + _class-check249142_ + _$class-check249145_)) + (_class-check-bind249162_ + (map (lambda (_g249154249157_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247957247961_) + _g249155249159_) (let () (declare (not safe)) - (_generate-class-check-bind246361_ - _$t247896_ - _g247956247959_ - _g247957247961_))) - _class-check247944_ - _$class-check247947_)) + (_generate-class-check-bind247559_ + _$t249094_ + _g249154249157_ + _g249155249159_))) + _class-check249142_ + _$class-check249145_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_struct-check-all247966_ + (_struct-check-all249164_ (let () (declare (not safe)) (hash-merge - _struct-type-check246454_ - _struct-type-assert246455_))) - (_struct-check247968_ + _struct-type-check247652_ + _struct-type-assert247653_))) + (_struct-check249166_ (let () (declare (not safe)) (hash-keys - _struct-check-all247966_))) - (_$struct-check247971_ - (map (lambda (_g255728_) - (let ((__tmp255729 + _struct-check-all249164_))) + (_$struct-check249169_ + (map (lambda (_g256929_) + (let ((__tmp256930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255729))) - _struct-check247968_)) + (make-symbol__0 __tmp256930))) + _struct-check249166_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g255730_ + (_g256931_ (for-each - (lambda (_g247972247975_ - _g247973247977_) + (lambda (_g249170249173_ + _g249171249175_) (let () (declare (not safe)) (table-set! - _struct-check-all247966_ - _g247972247975_ - _g247973247977_))) - _struct-check247968_ - _$struct-check247971_)) - (_struct-check-bind247988_ - (map (lambda (_g247980247983_ + _struct-check-all249164_ + _g249170249173_ + _g249171249175_))) + _struct-check249166_ + _$struct-check249169_)) + (_struct-check-bind249186_ + (map (lambda (_g249178249181_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g247981247985_) + _g249179249183_) (let () (declare (not safe)) - (_generate-struct-check-bind246362_ - _$t247896_ - _g247980247983_ - _g247981247985_))) - _struct-check247968_ - _$struct-check247971_)) + (_generate-struct-check-bind247560_ + _$t249094_ + _g249178249181_ + _g249179249183_))) + _struct-check249166_ + _$struct-check249169_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-lambda-expr248087_ - (lambda (_struct-type-check1247990_ - _struct-type-check2247991_) - (let* ((_g247993248011_ - (lambda (_g247994248008_) + (_make-specializer-lambda-expr249285_ + (lambda (_struct-type-check1249188_ + _struct-type-check2249189_) + (let* ((_g249191249209_ + (lambda (_g249192249206_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g247994248008_)))) - (_g247992248084_ - (lambda (_g247994248014_) + _g249192249206_)))) + (_g249190249282_ + (lambda (_g249192249212_) (if (let () (declare (not safe)) - (gx#stx-pair? _g247994248014_)) - (let ((_e248000248016_ + (gx#stx-pair? _g249192249212_)) + (let ((_e249198249214_ (let () (declare (not safe)) - (gx#stx-e _g247994248014_)))) - (let ((_hd247999248019_ + (gx#stx-e _g249192249212_)))) + (let ((_hd249197249217_ (let () (declare (not safe)) - (##car _e248000248016_))) - (_tl247998248021_ + (##car _e249198249214_))) + (_tl249196249219_ (let () (declare (not safe)) - (##cdr _e248000248016_)))) + (##cdr _e249198249214_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl247998248021_)) - (let ((_e248003248024_ + (gx#stx-pair? _tl249196249219_)) + (let ((_e249201249222_ (let () (declare (not safe)) - (gx#stx-e _tl247998248021_)))) - (let ((_hd248002248027_ + (gx#stx-e _tl249196249219_)))) + (let ((_hd249200249225_ (let () (declare (not safe)) - (##car _e248003248024_))) - (_tl248001248029_ + (##car _e249201249222_))) + (_tl249199249227_ (let () (declare (not safe)) - (##cdr _e248003248024_)))) + (##cdr _e249201249222_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248002248027_)) - (let ((_e248006248032_ + _hd249200249225_)) + (let ((_e249204249230_ (let () (declare (not safe)) (gx#stx-e - _hd248002248027_)))) - (let ((_hd248005248035_ + _hd249200249225_)))) + (let ((_hd249203249233_ (let () (declare (not safe)) - (##car _e248006248032_))) - (_tl248004248037_ + (##car _e249204249230_))) + (_tl249202249235_ (let () (declare (not safe)) - (##cdr _e248006248032_)))) - ((lambda (_L248040_ - _L248041_ - _L248042_) - (let* ((_body248082_ - (map (lambda (_g248077248079_) + (##cdr _e249204249230_)))) + ((lambda (_L249238_ + _L249239_ + _L249240_) + (let* ((_body249280_ + (map (lambda (_g249275249277_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g248077248079_ - _L248042_ - _$t247896_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check1247990_ - _struct-type-check2247991_))) - _L248040_)) - (__tmp255731 - (let ((__tmp255732 - (let ((__tmp255733 + _g249275249277_ + _L249240_ + _$t249094_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check1249188_ + _struct-type-check2249189_))) + _L249238_)) + (__tmp256932 + (let ((__tmp256933 + (let ((__tmp256934 (let () (declare (not safe)) - (cons _L248042_ _L248041_)))) + (cons _L249240_ _L249239_)))) (declare (not safe)) - (cons __tmp255733 _body248082_)))) + (cons __tmp256934 _body249280_)))) (declare (not safe)) - (cons '%#lambda __tmp255732)))) + (cons '%#lambda __tmp256933)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255731 _L247644_))) + (gxc#xform-wrap-source __tmp256932 _L248842_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl248001248029_ - _tl248004248037_ - _hd248005248035_))) + _tl249199249227_ + _tl249202249235_ + _hd249203249233_))) (let () (declare (not safe)) - (_g247993248011_ - _g247994248014_))))) + (_g249191249209_ + _g249192249212_))))) (let () (declare (not safe)) - (_g247993248011_ _g247994248014_))))) + (_g249191249209_ _g249192249212_))))) (let () (declare (not safe)) - (_g247993248011_ _g247994248014_)))))) + (_g249191249209_ _g249192249212_)))))) (declare (not safe)) - (_g247992248084_ _L247644_)))) + (_g249190249282_ _L248842_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-case-lambda-expr248248_ - (lambda (_struct-type-check1248089_ - _struct-type-check2248090_) - (let* ((_g248092248111_ - (lambda (_g248093248108_) + (_make-specializer-case-lambda-expr249446_ + (lambda (_struct-type-check1249287_ + _struct-type-check2249288_) + (let* ((_g249290249309_ + (lambda (_g249291249306_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248093248108_)))) - (_g248091248245_ - (lambda (_g248093248114_) + _g249291249306_)))) + (_g249289249443_ + (lambda (_g249291249312_) (if (let () (declare (not safe)) - (gx#stx-pair? _g248093248114_)) - (let ((_e248097248116_ + (gx#stx-pair? _g249291249312_)) + (let ((_e249295249314_ (let () (declare (not safe)) - (gx#stx-e _g248093248114_)))) - (let ((_hd248096248119_ + (gx#stx-e _g249291249312_)))) + (let ((_hd249294249317_ (let () (declare (not safe)) - (##car _e248097248116_))) - (_tl248095248121_ + (##car _e249295249314_))) + (_tl249293249319_ (let () (declare (not safe)) - (##cdr _e248097248116_)))) + (##cdr _e249295249314_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl248095248121_)) - (let ((_g255734_ + (gx#stx-pair/null? _tl249293249319_)) + (let ((_g256935_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl248095248121_ + _tl249293249319_ '0)))) (begin - (let ((_g255735_ + (let ((_g256936_ (let () (declare (not safe)) - (if (##values? _g255734_) + (if (##values? _g256935_) (##vector-length - _g255734_) + _g256935_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g255735_ 2))) + (##fx= _g256936_ 2))) (error "Context expects 2 values" - _g255735_))) - (let ((_target248098248124_ + _g256936_))) + (let ((_target249296249322_ (let () (declare (not safe)) - (##vector-ref _g255734_ 0))) - (_tl248100248126_ + (##vector-ref _g256935_ 0))) + (_tl249298249324_ (let () (declare (not safe)) (##vector-ref - _g255734_ + _g256935_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248100248126_)) - (letrec ((_loop248101248129_ - (lambda (_hd248099248132_ + _tl249298249324_)) + (letrec ((_loop249299249327_ + (lambda (_hd249297249330_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause248105248134_) + _clause249303249332_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248099248132_)) - (let ((_e248102248137_ + (gx#stx-pair? _hd249297249330_)) + (let ((_e249300249335_ (let () (declare (not safe)) - (gx#stx-e _hd248099248132_)))) - (let ((_lp-hd248103248140_ + (gx#stx-e _hd249297249330_)))) + (let ((_lp-hd249301249338_ (let () (declare (not safe)) - (##car _e248102248137_))) - (_lp-tl248104248142_ + (##car _e249300249335_))) + (_lp-tl249302249340_ (let () (declare (not safe)) - (##cdr _e248102248137_)))) - (let ((__tmp255739 + (##cdr _e249300249335_)))) + (let ((__tmp256940 (let () (declare (not safe)) - (cons _lp-hd248103248140_ - _clause248105248134_)))) + (cons _lp-hd249301249338_ + _clause249303249332_)))) (declare (not safe)) - (_loop248101248129_ - _lp-tl248104248142_ - __tmp255739)))) - (let ((_clause248106248145_ - (reverse _clause248105248134_))) - ((lambda (_L248148_) - (let* ((_clauses248243_ - (map (lambda (_clause248163_) - (let* ((___stx254381254382_ - _clause248163_) - (_g248166248181_ + (_loop249299249327_ + _lp-tl249302249340_ + __tmp256940)))) + (let ((_clause249304249343_ + (reverse _clause249303249332_))) + ((lambda (_L249346_) + (let* ((_clauses249441_ + (map (lambda (_clause249361_) + (let* ((___stx255579255580_ + _clause249361_) + (_g249364249379_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx254381254382_))))) - (let ((___kont254383254384_ - (lambda (_L248209_ - _L248210_ - _L248211_) - (let* ((_body248231_ - (map (lambda (_g248226248228_) + ___stx255579255580_))))) + (let ((___kont255581255582_ + (lambda (_L249407_ + _L249408_ + _L249409_) + (let* ((_body249429_ + (map (lambda (_g249424249426_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g248226248228_ - _L248211_ - _$t247896_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check1248089_ - _struct-type-check2248090_))) - _L248209_)) - (__tmp255736 + _g249424249426_ + _L249409_ + _$t249094_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check1249287_ + _struct-type-check2249288_))) + _L249407_)) + (__tmp256937 (let () (declare (not safe)) - (cons _L248211_ _L248210_)))) + (cons _L249409_ _L249408_)))) (declare (not safe)) - (cons __tmp255736 _body248231_)))) + (cons __tmp256937 _body249429_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254385254386_ + (___kont255583255584_ (lambda () - _clause248163_))) + _clause249361_))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx254381254382_)) - (let ((_e248173248193_ + ___stx255579255580_)) + (let ((_e249371249391_ (let () (declare (not safe)) (gx#stx-e - ___stx254381254382_)))) - (let ((_tl248171248198_ + ___stx255579255580_)))) + (let ((_tl249369249396_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e248173248193_))) - (_hd248172248196_ - (let () (declare (not safe)) (##car _e248173248193_)))) + (##cdr _e249371249391_))) + (_hd249370249394_ + (let () (declare (not safe)) (##car _e249371249391_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248172248196_)) - (let ((_e248176248201_ + (gx#stx-pair? _hd249370249394_)) + (let ((_e249374249399_ (let () (declare (not safe)) - (gx#stx-e _hd248172248196_)))) - (let ((_tl248174248206_ + (gx#stx-e _hd249370249394_)))) + (let ((_tl249372249404_ (let () (declare (not safe)) - (##cdr _e248176248201_))) - (_hd248175248204_ + (##cdr _e249374249399_))) + (_hd249373249402_ (let () (declare (not safe)) - (##car _e248176248201_)))) - (___kont254383254384_ - _tl248171248198_ - _tl248174248206_ - _hd248175248204_))) - (___kont254385254386_)))) + (##car _e249374249399_)))) + (___kont255581255582_ + _tl249369249396_ + _tl249372249404_ + _hd249373249402_))) + (___kont255583255584_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254385254386_))))) - (let ((__tmp255737 - (lambda (_g248235248238_ - _g248236248240_) + (___kont255583255584_))))) + (let ((__tmp256938 + (lambda (_g249433249436_ + _g249434249438_) (let () (declare (not safe)) - (cons _g248235248238_ - _g248236248240_))))) + (cons _g249433249436_ + _g249434249438_))))) (declare (not safe)) - (foldr1 __tmp255737 + (foldr1 __tmp256938 '() - _L248148_)))) - (__tmp255738 + _L249346_)))) + (__tmp256939 (let () (declare (not safe)) - (cons '%#case-lambda _clauses248243_)))) + (cons '%#case-lambda _clauses249441_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255738 _L247643_))) - _clause248106248145_)))))) + (gxc#xform-wrap-source __tmp256939 _L248841_))) + _clause249304249343_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop248101248129_ - _target248098248124_ + (_loop249299249327_ + _target249296249322_ '()))) (let () (declare (not safe)) - (_g248092248111_ - _g248093248114_)))))) + (_g249290249309_ + _g249291249312_)))))) (let () (declare (not safe)) - (_g248092248111_ _g248093248114_))))) + (_g249290249309_ _g249291249312_))))) (let () (declare (not safe)) - (_g248092248111_ _g248093248114_)))))) + (_g249290249309_ _g249291249312_)))))) (declare (not safe)) - (_g248091248245_ _L247643_)))) + (_g249289249443_ _L248841_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_make-specializer-impl248253_ - (lambda (_specializer-lambda-expr248250_ - _specializer-case-lambda-expr248251_) - (let ((__tmp255740 - (let ((__tmp255741 + (_make-specializer-impl249451_ + (lambda (_specializer-lambda-expr249448_ + _specializer-case-lambda-expr249449_) + (let ((__tmp256941 + (let ((__tmp256942 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255743 - (let ((__tmp255744 - (let ((__tmp255746 + (let ((__tmp256944 + (let ((__tmp256945 + (let ((__tmp256947 (let () (declare (not safe)) - (cons _L247645_ '()))) - (__tmp255745 + (cons _L248843_ '()))) + (__tmp256946 (let () (declare (not safe)) - (cons _specializer-lambda-expr248250_ + (cons _specializer-lambda-expr249448_ '())))) (declare (not safe)) - (cons __tmp255746 __tmp255745)))) + (cons __tmp256947 __tmp256946)))) (declare (not safe)) - (cons __tmp255744 '()))) - (__tmp255742 + (cons __tmp256945 '()))) + (__tmp256943 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr248251_ + (cons _specializer-case-lambda-expr249449_ '())))) (declare (not safe)) - (cons __tmp255743 __tmp255742)))) + (cons __tmp256944 __tmp256943)))) (declare (not safe)) - (cons '%#let-values __tmp255741)))) + (cons '%#let-values __tmp256942)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255740 _stx246357_)))) + (gxc#xform-wrap-source __tmp256941 _stx247555_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_specializer-lambda-expr248255_ + (_specializer-lambda-expr249453_ (let () (declare (not safe)) - (_make-specializer-lambda-expr248087_ - _struct-check-all247966_ - _empty246456_))) - (_specializer-case-lambda-expr248257_ + (_make-specializer-lambda-expr249285_ + _struct-check-all249164_ + _empty247654_))) + (_specializer-case-lambda-expr249455_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr248248_ - _struct-check-all247966_ - _empty246456_))) - (_specializer-impl248259_ + (_make-specializer-case-lambda-expr249446_ + _struct-check-all249164_ + _empty247654_))) + (_specializer-impl249457_ (let () (declare (not safe)) - (_make-specializer-impl248253_ - _specializer-lambda-expr248255_ - _specializer-case-lambda-expr248257_))) - (_unchecked-specializer-lambda-expr248261_ + (_make-specializer-impl249451_ + _specializer-lambda-expr249453_ + _specializer-case-lambda-expr249455_))) + (_unchecked-specializer-lambda-expr249459_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr248087_ - _empty246456_ - _struct-check-all247966_)) + (_make-specializer-lambda-expr249285_ + _empty247654_ + _struct-check-all249164_)) '#f)) - (_unchecked-specializer-case-lambda-expr248263_ + (_unchecked-specializer-case-lambda-expr249461_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr248248_ - _empty246456_ - _struct-check-all247966_)) + (_make-specializer-case-lambda-expr249446_ + _empty247654_ + _struct-check-all249164_)) '#f)) - (_unchecked-specializer-impl248265_ + (_unchecked-specializer-impl249463_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-impl248253_ - _unchecked-specializer-lambda-expr248261_ - _unchecked-specializer-case-lambda-expr248263_)) + (_make-specializer-impl249451_ + _unchecked-specializer-lambda-expr249459_ + _unchecked-specializer-case-lambda-expr249461_)) '#f)) - (_specializer-impl248267_ + (_specializer-impl249465_ (let () (declare (not safe)) - (_generate-specializer-impl246363_ - _$t247896_ - _methods-bind247919_ - _slots-bind247942_ - _class-check-bind247964_ - _struct-check-bind247988_ - _specializer-impl248259_ - _lifted-specializer-id247894_ - _unchecked-specializer-impl248265_)))) - (let ((__tmp255748 + (_generate-specializer-impl247561_ + _$t249094_ + _methods-bind249117_ + _slots-bind249140_ + _class-check-bind249162_ + _struct-check-bind249186_ + _specializer-impl249457_ + _lifted-specializer-id249092_ + _unchecked-specializer-impl249463_)))) + (let ((__tmp256949 (let () (declare (not safe)) - (gx#stx-e _L246432_))) - (__tmp255747 + (gx#stx-e _L247630_))) + (__tmp256948 (let () (declare (not safe)) (gx#stx-e - _specializer-id247887_)))) + _specializer-id249085_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp255748 + __tmp256949 '" => " - __tmp255747)) + __tmp256948)) (let () (declare (not safe)) - (_generate-specializer-def246364_ - _L246432_ - _specializer-id247887_ - _specializer-impl248267_ - _lifted-specializer-id247894_ - _unchecked-specializer-impl248265_))))) - _hd247576247638_ - _hd247573247630_ - _hd247570247622_) + (_generate-specializer-def247562_ + _L247630_ + _specializer-id249085_ + _specializer-impl249465_ + _lifted-specializer-id249092_ + _unchecked-specializer-impl249463_))))) + _hd248774248836_ + _hd248771248828_ + _hd248768248820_) (let () (declare (not safe)) - (_g247552247582_ _g247553247585_))))) + (_g248750248780_ _g248751248783_))))) (let () (declare (not safe)) - (_g247552247582_ _g247553247585_))) + (_g248750248780_ _g248751248783_))) (let () (declare (not safe)) - (_g247552247582_ _g247553247585_))) + (_g248750248780_ _g248751248783_))) (let () (declare (not safe)) - (_g247552247582_ _g247553247585_))))) - (let () (declare (not safe)) (_g247552247582_ _g247553247585_))) + (_g248750248780_ _g248751248783_))))) + (let () (declare (not safe)) (_g248750248780_ _g248751248783_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247552247582_ - _g247553247585_))))) + (_g248750248780_ + _g248751248783_))))) (let () (declare (not safe)) - (_g247552247582_ - _g247553247585_))))) + (_g248750248780_ + _g248751248783_))))) (let () (declare (not safe)) - (_g247552247582_ _g247553247585_))))) + (_g248750248780_ _g248751248783_))))) (let () (declare (not safe)) - (_g247552247582_ _g247553247585_))))) + (_g248750248780_ _g248751248783_))))) (let () (declare (not safe)) - (_g247552247582_ _g247553247585_))))) + (_g248750248780_ _g248751248783_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g247552247582_ - _g247553247585_)))))) + (_g248750248780_ + _g248751248783_)))))) (declare (not safe)) - (_g247551248270_ _L246431_)) + (_g248749249468_ _L247629_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L246431_)) - (let* ((_g248273248326_ - (lambda (_g248274248323_) + (gxc#kw-lambda-expr? _L247629_)) + (let* ((_g249471249524_ + (lambda (_g249472249521_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248274248323_)))) - (_g248272249598_ - (lambda (_g248274248329_) + _g249472249521_)))) + (_g249470250796_ + (lambda (_g249472249527_) (if (let () (declare (not safe)) (gx#stx-pair? - _g248274248329_)) - (let ((_e248282248331_ + _g249472249527_)) + (let ((_e249480249529_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g248274248329_)))) - (let ((_hd248281248334_ - (let () (declare (not safe)) (##car _e248282248331_))) - (_tl248280248336_ - (let () (declare (not safe)) (##cdr _e248282248331_)))) + (gx#stx-e _g249472249527_)))) + (let ((_hd249479249532_ + (let () (declare (not safe)) (##car _e249480249529_))) + (_tl249478249534_ + (let () (declare (not safe)) (##cdr _e249480249529_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd248281248334_)) + (gx#identifier? _hd249479249532_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd248281248334_)) + (gx#stx-eq? '%#let-values _hd249479249532_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248280248336_)) - (let ((_e248285248339_ + (gx#stx-pair? _tl249478249534_)) + (let ((_e249483249537_ (let () (declare (not safe)) - (gx#stx-e _tl248280248336_)))) - (let ((_hd248284248342_ + (gx#stx-e _tl249478249534_)))) + (let ((_hd249482249540_ (let () (declare (not safe)) - (##car _e248285248339_))) - (_tl248283248344_ + (##car _e249483249537_))) + (_tl249481249542_ (let () (declare (not safe)) - (##cdr _e248285248339_)))) + (##cdr _e249483249537_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248284248342_)) - (let ((_e248288248347_ + (gx#stx-pair? _hd249482249540_)) + (let ((_e249486249545_ (let () (declare (not safe)) - (gx#stx-e _hd248284248342_)))) - (let ((_hd248287248350_ + (gx#stx-e _hd249482249540_)))) + (let ((_hd249485249548_ (let () (declare (not safe)) - (##car _e248288248347_))) - (_tl248286248352_ + (##car _e249486249545_))) + (_tl249484249550_ (let () (declare (not safe)) - (##cdr _e248288248347_)))) + (##cdr _e249486249545_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248287248350_)) - (let ((_e248291248355_ + _hd249485249548_)) + (let ((_e249489249553_ (let () (declare (not safe)) (gx#stx-e - _hd248287248350_)))) - (let ((_hd248290248358_ + _hd249485249548_)))) + (let ((_hd249488249556_ (let () (declare (not safe)) - (##car _e248291248355_))) - (_tl248289248360_ + (##car _e249489249553_))) + (_tl249487249558_ (let () (declare (not safe)) - (##cdr _e248291248355_)))) + (##cdr _e249489249553_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248290248358_)) - (let ((_e248294248363_ + _hd249488249556_)) + (let ((_e249492249561_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd248290248358_)))) - (let ((_hd248293248366_ - (let () (declare (not safe)) (##car _e248294248363_))) - (_tl248292248368_ - (let () (declare (not safe)) (##cdr _e248294248363_)))) + (gx#stx-e _hd249488249556_)))) + (let ((_hd249491249564_ + (let () (declare (not safe)) (##car _e249492249561_))) + (_tl249490249566_ + (let () (declare (not safe)) (##cdr _e249492249561_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248292248368_)) + (gx#stx-null? _tl249490249566_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248289248360_)) - (let ((_e248297248371_ + (gx#stx-pair? _tl249487249558_)) + (let ((_e249495249569_ (let () (declare (not safe)) - (gx#stx-e _tl248289248360_)))) - (let ((_hd248296248374_ + (gx#stx-e _tl249487249558_)))) + (let ((_hd249494249572_ (let () (declare (not safe)) - (##car _e248297248371_))) - (_tl248295248376_ + (##car _e249495249569_))) + (_tl249493249574_ (let () (declare (not safe)) - (##cdr _e248297248371_)))) + (##cdr _e249495249569_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248296248374_)) - (let ((_e248300248379_ + (gx#stx-pair? _hd249494249572_)) + (let ((_e249498249577_ (let () (declare (not safe)) - (gx#stx-e _hd248296248374_)))) - (let ((_hd248299248382_ + (gx#stx-e _hd249494249572_)))) + (let ((_hd249497249580_ (let () (declare (not safe)) - (##car _e248300248379_))) - (_tl248298248384_ + (##car _e249498249577_))) + (_tl249496249582_ (let () (declare (not safe)) - (##cdr _e248300248379_)))) + (##cdr _e249498249577_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd248299248382_)) + (gx#identifier? _hd249497249580_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd248299248382_)) + _hd249497249580_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248298248384_)) - (let ((_e248303248387_ + _tl249496249582_)) + (let ((_e249501249585_ (let () (declare (not safe)) (gx#stx-e - _tl248298248384_)))) - (let ((_hd248302248390_ + _tl249496249582_)))) + (let ((_hd249500249588_ (let () (declare (not safe)) - (##car _e248303248387_))) - (_tl248301248392_ + (##car _e249501249585_))) + (_tl249499249590_ (let () (declare (not safe)) - (##cdr _e248303248387_)))) + (##cdr _e249501249585_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248302248390_)) - (let ((_e248306248395_ + _hd249500249588_)) + (let ((_e249504249593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd248302248390_)))) - (let ((_hd248305248398_ + (gx#stx-e _hd249500249588_)))) + (let ((_hd249503249596_ (let () (declare (not safe)) - (##car _e248306248395_))) - (_tl248304248400_ + (##car _e249504249593_))) + (_tl249502249598_ (let () (declare (not safe)) - (##cdr _e248306248395_)))) + (##cdr _e249504249593_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248305248398_)) - (let ((_e248309248403_ + (gx#stx-pair? _hd249503249596_)) + (let ((_e249507249601_ (let () (declare (not safe)) - (gx#stx-e _hd248305248398_)))) - (let ((_hd248308248406_ + (gx#stx-e _hd249503249596_)))) + (let ((_hd249506249604_ (let () (declare (not safe)) - (##car _e248309248403_))) - (_tl248307248408_ + (##car _e249507249601_))) + (_tl249505249606_ (let () (declare (not safe)) - (##cdr _e248309248403_)))) + (##cdr _e249507249601_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248308248406_)) - (let ((_e248312248411_ + (gx#stx-pair? _hd249506249604_)) + (let ((_e249510249609_ (let () (declare (not safe)) - (gx#stx-e _hd248308248406_)))) - (let ((_hd248311248414_ + (gx#stx-e _hd249506249604_)))) + (let ((_hd249509249612_ (let () (declare (not safe)) - (##car _e248312248411_))) - (_tl248310248416_ + (##car _e249510249609_))) + (_tl249508249614_ (let () (declare (not safe)) - (##cdr _e248312248411_)))) + (##cdr _e249510249609_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248310248416_)) + (gx#stx-null? _tl249508249614_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248307248408_)) - (let ((_e248315248419_ + _tl249505249606_)) + (let ((_e249513249617_ (let () (declare (not safe)) (gx#stx-e - _tl248307248408_)))) - (let ((_hd248314248422_ + _tl249505249606_)))) + (let ((_hd249512249620_ (let () (declare (not safe)) - (##car _e248315248419_))) - (_tl248313248424_ + (##car _e249513249617_))) + (_tl249511249622_ (let () (declare (not safe)) - (##cdr _e248315248419_)))) + (##cdr _e249513249617_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248313248424_)) + _tl249511249622_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl248304248400_)) + _tl249502249598_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl248301248392_)) - (let ((_e248318248427_ + (gx#stx-pair? _tl249499249590_)) + (let ((_e249516249625_ (let () (declare (not safe)) - (gx#stx-e _tl248301248392_)))) - (let ((_hd248317248430_ + (gx#stx-e _tl249499249590_)))) + (let ((_hd249515249628_ (let () (declare (not safe)) - (##car _e248318248427_))) - (_tl248316248432_ + (##car _e249516249625_))) + (_tl249514249630_ (let () (declare (not safe)) - (##cdr _e248318248427_)))) + (##cdr _e249516249625_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248316248432_)) + (gx#stx-null? _tl249514249630_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl248295248376_)) + (gx#stx-null? _tl249493249574_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl248286248352_)) + (gx#stx-null? _tl249484249550_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248283248344_)) - (let ((_e248321248435_ + (gx#stx-pair? _tl249481249542_)) + (let ((_e249519249633_ (let () (declare (not safe)) (gx#stx-e - _tl248283248344_)))) - (let ((_hd248320248438_ + _tl249481249542_)))) + (let ((_hd249518249636_ (let () (declare (not safe)) - (##car _e248321248435_))) - (_tl248319248440_ + (##car _e249519249633_))) + (_tl249517249638_ (let () (declare (not safe)) - (##cdr _e248321248435_)))) + (##cdr _e249519249633_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248319248440_)) - ((lambda (_L248443_ - _L248444_ - _L248445_ - _L248446_ - _L248447_) - (let* ((_g248486248548_ - (lambda (_g248487248545_) + _tl249517249638_)) + ((lambda (_L249641_ + _L249642_ + _L249643_ + _L249644_ + _L249645_) + (let* ((_g249684249746_ + (lambda (_g249685249743_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248487248545_)))) - (_g248485249595_ - (lambda (_g248487248551_) + _g249685249743_)))) + (_g249683250793_ + (lambda (_g249685249749_) (if (let () (declare (not safe)) - (gx#stx-pair? _g248487248551_)) - (let ((_e248495248553_ + (gx#stx-pair? _g249685249749_)) + (let ((_e249693249751_ (let () (declare (not safe)) - (gx#stx-e _g248487248551_)))) - (let ((_hd248494248556_ + (gx#stx-e _g249685249749_)))) + (let ((_hd249692249754_ (let () (declare (not safe)) - (##car _e248495248553_))) - (_tl248493248558_ + (##car _e249693249751_))) + (_tl249691249756_ (let () (declare (not safe)) - (##cdr _e248495248553_)))) + (##cdr _e249693249751_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd248494248556_)) + (gx#identifier? _hd249692249754_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd248494248556_)) + _hd249692249754_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248493248558_)) - (let ((_e248498248561_ + (gx#stx-pair? _tl249691249756_)) + (let ((_e249696249759_ (let () (declare (not safe)) (gx#stx-e - _tl248493248558_)))) - (let ((_hd248497248564_ + _tl249691249756_)))) + (let ((_hd249695249762_ (let () (declare (not safe)) - (##car _e248498248561_))) - (_tl248496248566_ + (##car _e249696249759_))) + (_tl249694249764_ (let () (declare (not safe)) - (##cdr _e248498248561_)))) + (##cdr _e249696249759_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248496248566_)) - (let ((_e248501248569_ + _tl249694249764_)) + (let ((_e249699249767_ (let () (declare (not safe)) (gx#stx-e - _tl248496248566_)))) - (let ((_hd248500248572_ + _tl249694249764_)))) + (let ((_hd249698249770_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e248501248569_))) - (_tl248499248574_ - (let () (declare (not safe)) (##cdr _e248501248569_)))) + (##car _e249699249767_))) + (_tl249697249772_ + (let () (declare (not safe)) (##cdr _e249699249767_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248500248572_)) - (let ((_e248504248577_ + (gx#stx-pair? _hd249698249770_)) + (let ((_e249702249775_ (let () (declare (not safe)) - (gx#stx-e _hd248500248572_)))) - (let ((_hd248503248580_ + (gx#stx-e _hd249698249770_)))) + (let ((_hd249701249778_ (let () (declare (not safe)) - (##car _e248504248577_))) - (_tl248502248582_ + (##car _e249702249775_))) + (_tl249700249780_ (let () (declare (not safe)) - (##cdr _e248504248577_)))) + (##cdr _e249702249775_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd248503248580_)) + (gx#identifier? _hd249701249778_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd248503248580_)) + (gx#stx-eq? '%#call _hd249701249778_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248502248582_)) - (let ((_e248507248585_ + (gx#stx-pair? _tl249700249780_)) + (let ((_e249705249783_ (let () (declare (not safe)) - (gx#stx-e _tl248502248582_)))) - (let ((_hd248506248588_ + (gx#stx-e _tl249700249780_)))) + (let ((_hd249704249786_ (let () (declare (not safe)) - (##car _e248507248585_))) - (_tl248505248590_ + (##car _e249705249783_))) + (_tl249703249788_ (let () (declare (not safe)) - (##cdr _e248507248585_)))) + (##cdr _e249705249783_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248506248588_)) - (let ((_e248510248593_ + (gx#stx-pair? _hd249704249786_)) + (let ((_e249708249791_ (let () (declare (not safe)) (gx#stx-e - _hd248506248588_)))) - (let ((_hd248509248596_ + _hd249704249786_)))) + (let ((_hd249707249794_ (let () (declare (not safe)) - (##car _e248510248593_))) - (_tl248508248598_ + (##car _e249708249791_))) + (_tl249706249796_ (let () (declare (not safe)) - (##cdr _e248510248593_)))) + (##cdr _e249708249791_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd248509248596_)) + _hd249707249794_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd248509248596_)) + _hd249707249794_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248508248598_)) - (let ((_e248513248601_ + _tl249706249796_)) + (let ((_e249711249799_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl248508248598_)))) - (let ((_hd248512248604_ + (gx#stx-e _tl249706249796_)))) + (let ((_hd249710249802_ (let () (declare (not safe)) - (##car _e248513248601_))) - (_tl248511248606_ + (##car _e249711249799_))) + (_tl249709249804_ (let () (declare (not safe)) - (##cdr _e248513248601_)))) + (##cdr _e249711249799_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248511248606_)) + (gx#stx-null? _tl249709249804_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248505248590_)) - (let ((_e248516248609_ + (gx#stx-pair? _tl249703249788_)) + (let ((_e249714249807_ (let () (declare (not safe)) - (gx#stx-e _tl248505248590_)))) - (let ((_hd248515248612_ + (gx#stx-e _tl249703249788_)))) + (let ((_hd249713249810_ (let () (declare (not safe)) - (##car _e248516248609_))) - (_tl248514248614_ + (##car _e249714249807_))) + (_tl249712249812_ (let () (declare (not safe)) - (##cdr _e248516248609_)))) + (##cdr _e249714249807_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248515248612_)) - (let ((_e248519248617_ + (gx#stx-pair? _hd249713249810_)) + (let ((_e249717249815_ (let () (declare (not safe)) - (gx#stx-e _hd248515248612_)))) - (let ((_hd248518248620_ + (gx#stx-e _hd249713249810_)))) + (let ((_hd249716249818_ (let () (declare (not safe)) - (##car _e248519248617_))) - (_tl248517248622_ + (##car _e249717249815_))) + (_tl249715249820_ (let () (declare (not safe)) - (##cdr _e248519248617_)))) + (##cdr _e249717249815_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd248518248620_)) + _hd249716249818_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd248518248620_)) + _hd249716249818_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248517248622_)) - (let ((_e248522248625_ + _tl249715249820_)) + (let ((_e249720249823_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl248517248622_)))) - (let ((_hd248521248628_ - (let () (declare (not safe)) (##car _e248522248625_))) - (_tl248520248630_ + (gx#stx-e _tl249715249820_)))) + (let ((_hd249719249826_ + (let () (declare (not safe)) (##car _e249720249823_))) + (_tl249718249828_ (let () (declare (not safe)) - (##cdr _e248522248625_)))) + (##cdr _e249720249823_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248520248630_)) + (gx#stx-null? _tl249718249828_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248514248614_)) - (let ((_e248525248633_ + (gx#stx-pair? _tl249712249812_)) + (let ((_e249723249831_ (let () (declare (not safe)) - (gx#stx-e _tl248514248614_)))) - (let ((_hd248524248636_ + (gx#stx-e _tl249712249812_)))) + (let ((_hd249722249834_ (let () (declare (not safe)) - (##car _e248525248633_))) - (_tl248523248638_ + (##car _e249723249831_))) + (_tl249721249836_ (let () (declare (not safe)) - (##cdr _e248525248633_)))) + (##cdr _e249723249831_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248524248636_)) - (let ((_e248528248641_ + (gx#stx-pair? _hd249722249834_)) + (let ((_e249726249839_ (let () (declare (not safe)) - (gx#stx-e _hd248524248636_)))) - (let ((_hd248527248644_ + (gx#stx-e _hd249722249834_)))) + (let ((_hd249725249842_ (let () (declare (not safe)) - (##car _e248528248641_))) - (_tl248526248646_ + (##car _e249726249839_))) + (_tl249724249844_ (let () (declare (not safe)) - (##cdr _e248528248641_)))) + (##cdr _e249726249839_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd248527248644_)) + _hd249725249842_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd248527248644_)) + _hd249725249842_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248526248646_)) - (let ((_e248531248649_ + _tl249724249844_)) + (let ((_e249729249847_ (let () (declare (not safe)) (gx#stx-e - _tl248526248646_)))) - (let ((_hd248530248652_ + _tl249724249844_)))) + (let ((_hd249728249850_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e248531248649_))) - (_tl248529248654_ - (let () (declare (not safe)) (##cdr _e248531248649_)))) + (##car _e249729249847_))) + (_tl249727249852_ + (let () (declare (not safe)) (##cdr _e249729249847_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248529248654_)) + (gx#stx-null? _tl249727249852_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl248523248638_)) + (gx#stx-pair/null? _tl249721249836_)) (if (fx>= (let () (declare (not safe)) - (gx#stx-length _tl248523248638_)) + (gx#stx-length _tl249721249836_)) '1) - (let ((_g255624_ + (let ((_g256825_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl248523248638_ + _tl249721249836_ '1)))) (begin - (let ((_g255625_ + (let ((_g256826_ (let () (declare (not safe)) - (if (##values? _g255624_) - (##vector-length _g255624_) + (if (##values? _g256825_) + (##vector-length _g256825_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g255625_ 2))) + (##fx= _g256826_ 2))) (error "Context expects 2 values" - _g255625_))) - (let ((_target248532248657_ + _g256826_))) + (let ((_target249730249855_ (let () (declare (not safe)) - (##vector-ref _g255624_ 0))) - (_tl248534248659_ + (##vector-ref _g256825_ 0))) + (_tl249732249857_ (let () (declare (not safe)) - (##vector-ref _g255624_ 1)))) + (##vector-ref _g256825_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248534248659_)) - (let ((_e248543248662_ + (gx#stx-pair? _tl249732249857_)) + (let ((_e249741249860_ (let () (declare (not safe)) - (gx#stx-e _tl248534248659_)))) - (let ((_hd248542248665_ + (gx#stx-e _tl249732249857_)))) + (let ((_hd249740249863_ (let () (declare (not safe)) - (##car _e248543248662_))) - (_tl248541248667_ + (##car _e249741249860_))) + (_tl249739249865_ (let () (declare (not safe)) - (##cdr _e248543248662_)))) + (##cdr _e249741249860_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248541248667_)) - (letrec ((_loop248535248670_ - (lambda (_hd248533248673_ + _tl249739249865_)) + (letrec ((_loop249733249868_ + (lambda (_hd249731249871_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _kw-ref248539248675_) + _kw-ref249737249873_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248533248673_)) - (let ((_e248536248678_ + (gx#stx-pair? _hd249731249871_)) + (let ((_e249734249876_ (let () (declare (not safe)) - (gx#stx-e _hd248533248673_)))) - (let ((_lp-hd248537248681_ + (gx#stx-e _hd249731249871_)))) + (let ((_lp-hd249735249879_ (let () (declare (not safe)) - (##car _e248536248678_))) - (_lp-tl248538248683_ + (##car _e249734249876_))) + (_lp-tl249736249881_ (let () (declare (not safe)) - (##cdr _e248536248678_)))) - (let ((__tmp255711 + (##cdr _e249734249876_)))) + (let ((__tmp256912 (let () (declare (not safe)) - (cons _lp-hd248537248681_ - _kw-ref248539248675_)))) + (cons _lp-hd249735249879_ + _kw-ref249737249873_)))) (declare (not safe)) - (_loop248535248670_ - _lp-tl248538248683_ - __tmp255711)))) - (let ((_kw-ref248540248686_ - (reverse _kw-ref248539248675_))) + (_loop249733249868_ + _lp-tl249736249881_ + __tmp256912)))) + (let ((_kw-ref249738249884_ + (reverse _kw-ref249737249873_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248499248574_)) - ((lambda (_L248689_ - _L248690_ - _L248691_ - _L248692_ - _L248693_) - (let* ((_kw-count248744_ - (length (let ((__tmp255626 - (lambda (_g248736248739_ - _g248737248741_) + (gx#stx-null? _tl249697249772_)) + ((lambda (_L249887_ + _L249888_ + _L249889_ + _L249890_ + _L249891_) + (let* ((_kw-count249942_ + (length (let ((__tmp256827 + (lambda (_g249934249937_ + _g249935249939_) (let () (declare (not safe)) - (cons _g248736248739_ - _g248737248741_))))) + (cons _g249934249937_ + _g249935249939_))))) (declare (not safe)) - (foldr1 __tmp255626 + (foldr1 __tmp256827 '() - _L248690_)))) - (_self-index248746_ + _L249888_)))) + (_self-index249944_ (let () (declare (not safe)) - (fx+ _kw-count248744_ '1)))) + (fx+ _kw-count249942_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L248445_)) - (let* ((_g248749248763_ - (lambda (_g248750248760_) + (gxc#lambda-expr? _L249643_)) + (let* ((_g249947249961_ + (lambda (_g249948249958_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248750248760_)))) - (_g248748248934_ - (lambda (_g248750248766_) + _g249948249958_)))) + (_g249946250132_ + (lambda (_g249948249964_) (if (let () (declare (not safe)) (gx#stx-pair? - _g248750248766_)) - (let ((_e248755248768_ + _g249948249964_)) + (let ((_e249953249966_ (let () (declare (not safe)) (gx#stx-e - _g248750248766_)))) - (let ((_hd248754248771_ + _g249948249964_)))) + (let ((_hd249952249969_ (let () (declare (not safe)) - (##car _e248755248768_))) - (_tl248753248773_ + (##car _e249953249966_))) + (_tl249951249971_ (let () (declare (not safe)) - (##cdr _e248755248768_)))) + (##cdr _e249953249966_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248753248773_)) - (let ((_e248758248776_ + _tl249951249971_)) + (let ((_e249956249974_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl248753248773_)))) - (let ((_hd248757248779_ + (gx#stx-e _tl249951249971_)))) + (let ((_hd249955249977_ (let () (declare (not safe)) - (##car _e248758248776_))) - (_tl248756248781_ + (##car _e249956249974_))) + (_tl249954249979_ (let () (declare (not safe)) - (##cdr _e248758248776_)))) - ((lambda (_L248784_ _L248785_) - (let ((_self248801_ - (list-ref _L248785_ _self-index248746_))) + (##cdr _e249956249974_)))) + ((lambda (_L249982_ _L249983_) + (let ((_self249999_ + (list-ref _L249983_ _self-index249944_))) (for-each - (lambda (_g248802248804_) + (lambda (_g250000250002_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g248802248804_ - _self248801_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check246454_ - _struct-type-assert246455_))) - _L248784_) + _g250000250002_ + _self249999_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check247652_ + _struct-type-assert247653_))) + _L249982_) (if (let () (declare (not safe)) - (_no-specializer?246458_)) - _stx246357_ - (let* ((_specializer-id248813_ - (let* ((_id248807_ - (let ((__tmp255677 + (_no-specializer?247656_)) + _stx247555_ + (let* ((_specializer-id250011_ + (let* ((_id250005_ + (let ((__tmp256878 (let () (declare (not safe)) (gx#stx-e - _L246432_)))) + _L247630_)))) (declare (not safe)) (make-symbol__1 - __tmp255677 + __tmp256878 '"::specialize"))) - (_specializer-id248810_ - (let ((__tmp255678 + (_specializer-id250008_ + (let ((__tmp256879 (let () (declare (not safe)) (gx#stx-source - _stx246357_)))) + _stx247555_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id248807_ - __tmp255678)))) + _id250005_ + __tmp256879)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _specializer-id248810_)) - _specializer-id248810_)) - (_lifted-specializer-id248820_ + _specializer-id250008_)) + _specializer-id250008_)) + (_lifted-specializer-id250018_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?246460_)) - (let* ((_id248815_ - (let ((__tmp255679 + (_lift-unchecked-specializer?247658_)) + (let* ((_id250013_ + (let ((__tmp256880 (let () (declare (not safe)) (gx#stx-e - _L246432_)))) + _L247630_)))) (declare (not safe)) (make-symbol__1 - __tmp255679 + __tmp256880 '"::specialize::unchecked"))) - (_lifted-specializer-id248817_ - (let ((__tmp255680 + (_lifted-specializer-id250015_ + (let ((__tmp256881 (let () (declare (not safe)) (gx#stx-source - _stx246357_)))) + _stx247555_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id248815_ - __tmp255680)))) + _id250013_ + __tmp256881)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id248817_)) - _lifted-specializer-id248817_) + _lifted-specializer-id250015_)) + _lifted-specializer-id250015_) '#f)) - (_$t248822_ - (let ((__tmp255681 (gensym '__t))) + (_$t250020_ + (let ((__tmp256882 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp255681))) - (_methods248824_ + (make-symbol__0 __tmp256882))) + (_methods250022_ (let () (declare (not safe)) - (hash-keys _method-calls246451_))) - (_$methods248828_ - (map (lambda (_id248826_) - (let ((__tmp255682 - (gensym _id248826_))) + (hash-keys _method-calls247649_))) + (_$methods250026_ + (map (lambda (_id250024_) + (let ((__tmp256883 + (gensym _id250024_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp255682))) - _methods248824_)) - (_g255683_ + __tmp256883))) + _methods250022_)) + (_g256884_ (for-each - (lambda (_g248829248832_ - _g248830248834_) + (lambda (_g250027250030_ + _g250028250032_) (let () (declare (not safe)) (table-set! - _method-calls246451_ - _g248829248832_ - _g248830248834_))) - _methods248824_ - _$methods248828_)) - (_methods-bind248845_ - (map (lambda (_g248837248840_ - _g248838248842_) + _method-calls247649_ + _g250027250030_ + _g250028250032_))) + _methods250022_ + _$methods250026_)) + (_methods-bind250043_ + (map (lambda (_g250035250038_ + _g250036250040_) (let () (declare (not safe)) - (_generate-method-bind246359_ - _$t248822_ - _g248837248840_ - _g248838248842_))) - _methods248824_ - _$methods248828_)) - (_slots248847_ + (_generate-method-bind247557_ + _$t250020_ + _g250035250038_ + _g250036250040_))) + _methods250022_ + _$methods250026_)) + (_slots250045_ (let () (declare (not safe)) - (hash-keys _slot-refs246452_))) - (_$slots248851_ - (map (lambda (_id248849_) - (let ((__tmp255684 - (gensym _id248849_))) + (hash-keys _slot-refs247650_))) + (_$slots250049_ + (map (lambda (_id250047_) + (let ((__tmp256885 + (gensym _id250047_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp255684))) - _slots248847_)) - (_g255685_ + __tmp256885))) + _slots250045_)) + (_g256886_ (for-each - (lambda (_g248852248855_ - _g248853248857_) + (lambda (_g250050250053_ + _g250051250055_) (let () (declare (not safe)) (table-set! - _slot-refs246452_ - _g248852248855_ - _g248853248857_))) - _slots248847_ - _$slots248851_)) - (_slots-bind248868_ - (map (lambda (_g248860248863_ - _g248861248865_) + _slot-refs247650_ + _g250050250053_ + _g250051250055_))) + _slots250045_ + _$slots250049_)) + (_slots-bind250066_ + (map (lambda (_g250058250061_ + _g250059250063_) (let () (declare (not safe)) - (_generate-slot-bind246360_ - _$t248822_ - _g248860248863_ - _g248861248865_))) - _slots248847_ - _$slots248851_)) - (_class-check248870_ + (_generate-slot-bind247558_ + _$t250020_ + _g250058250061_ + _g250059250063_))) + _slots250045_ + _$slots250049_)) + (_class-check250068_ (let () (declare (not safe)) (hash-keys - _class-type-check246453_))) - (_$class-check248873_ - (map (lambda (_g255686_) - (let ((__tmp255687 + _class-type-check247651_))) + (_$class-check250071_ + (map (lambda (_g256887_) + (let ((__tmp256888 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255687))) - _class-check248870_)) - (_g255688_ + (make-symbol__0 __tmp256888))) + _class-check250068_)) + (_g256889_ (for-each - (lambda (_g248874248877_ - _g248875248879_) + (lambda (_g250072250075_ + _g250073250077_) (let () (declare (not safe)) (table-set! - _class-type-check246453_ - _g248874248877_ - _g248875248879_))) - _class-check248870_ - _$class-check248873_)) - (_class-check-bind248890_ - (map (lambda (_g248882248885_ - _g248883248887_) + _class-type-check247651_ + _g250072250075_ + _g250073250077_))) + _class-check250068_ + _$class-check250071_)) + (_class-check-bind250088_ + (map (lambda (_g250080250083_ + _g250081250085_) (let () (declare (not safe)) - (_generate-class-check-bind246361_ - _$t248822_ - _g248882248885_ - _g248883248887_))) - _class-check248870_ - _$class-check248873_)) - (_struct-check-all248892_ + (_generate-class-check-bind247559_ + _$t250020_ + _g250080250083_ + _g250081250085_))) + _class-check250068_ + _$class-check250071_)) + (_struct-check-all250090_ (let () (declare (not safe)) (hash-merge - _struct-type-check246454_ - _struct-type-assert246455_))) - (_struct-check248894_ + _struct-type-check247652_ + _struct-type-assert247653_))) + (_struct-check250092_ (let () (declare (not safe)) (hash-keys - _struct-check-all248892_))) - (_$struct-check248897_ - (map (lambda (_g255689_) - (let ((__tmp255690 + _struct-check-all250090_))) + (_$struct-check250095_ + (map (lambda (_g256890_) + (let ((__tmp256891 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255690))) - _struct-check248894_)) - (_g255691_ + (make-symbol__0 __tmp256891))) + _struct-check250092_)) + (_g256892_ (for-each - (lambda (_g248898248901_ - _g248899248903_) + (lambda (_g250096250099_ + _g250097250101_) (let () (declare (not safe)) (table-set! - _struct-check-all248892_ - _g248898248901_ - _g248899248903_))) - _struct-check248894_ - _$struct-check248897_)) - (_struct-check-bind248914_ - (map (lambda (_g248906248909_ - _g248907248911_) + _struct-check-all250090_ + _g250096250099_ + _g250097250101_))) + _struct-check250092_ + _$struct-check250095_)) + (_struct-check-bind250112_ + (map (lambda (_g250104250107_ + _g250105250109_) (let () (declare (not safe)) - (_generate-struct-check-bind246362_ - _$t248822_ - _g248906248909_ - _g248907248911_))) - _struct-check248894_ - _$struct-check248897_)) - (_make-specializer-impl248925_ - (lambda (_struct-type-check1248916_ - _struct-type-check2248917_) - (let* ((_specializer-body248923_ - (map (lambda (_g248918248920_) + (_generate-struct-check-bind247560_ + _$t250020_ + _g250104250107_ + _g250105250109_))) + _struct-check250092_ + _$struct-check250095_)) + (_make-specializer-impl250123_ + (lambda (_struct-type-check1250114_ + _struct-type-check2250115_) + (let* ((_specializer-body250121_ + (map (lambda (_g250116250118_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g248918248920_ - _self248801_ - _$t248822_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check1248916_ - _struct-type-check2248917_))) - _L248784_)) - (__tmp255692 - (let ((__tmp255693 - (let ((__tmp255695 - (let ((__tmp255696 + _g250116250118_ + _self249999_ + _$t250020_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check1250114_ + _struct-type-check2250115_))) + _L249982_)) + (__tmp256893 + (let ((__tmp256894 + (let ((__tmp256896 + (let ((__tmp256897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255708 + (let ((__tmp256909 (let () (declare (not safe)) - (cons _L248447_ '()))) - (__tmp255697 - (let ((__tmp255698 - (let ((__tmp255699 - (let ((__tmp255701 - (let ((__tmp255702 + (cons _L249645_ '()))) + (__tmp256898 + (let ((__tmp256899 + (let ((__tmp256900 + (let ((__tmp256902 + (let ((__tmp256903 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255707 + (let ((__tmp256908 (let () (declare (not safe)) - (cons _L248446_ '()))) - (__tmp255703 - (let ((__tmp255704 - (let ((__tmp255705 - (let ((__tmp255706 + (cons _L249644_ '()))) + (__tmp256904 + (let ((__tmp256905 + (let ((__tmp256906 + (let ((__tmp256907 (let () (declare (not safe)) - (cons _L248785_ - _specializer-body248923_)))) + (cons _L249983_ + _specializer-body250121_)))) (declare (not safe)) (cons '%#lambda - __tmp255706)))) + __tmp256907)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp255705 - _L248445_)))) + __tmp256906 + _L249643_)))) (declare (not safe)) - (cons __tmp255704 '())))) + (cons __tmp256905 '())))) (declare (not safe)) - (cons __tmp255707 __tmp255703)))) + (cons __tmp256908 __tmp256904)))) (declare (not safe)) - (cons __tmp255702 '()))) - (__tmp255700 - (let () (declare (not safe)) (cons _L248444_ '())))) + (cons __tmp256903 '()))) + (__tmp256901 + (let () (declare (not safe)) (cons _L249642_ '())))) (declare (not safe)) - (cons __tmp255701 __tmp255700)))) + (cons __tmp256902 __tmp256901)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp255699)))) + __tmp256900)))) (declare (not safe)) - (cons __tmp255698 '())))) + (cons __tmp256899 '())))) (declare (not safe)) - (cons __tmp255708 __tmp255697)))) + (cons __tmp256909 __tmp256898)))) (declare (not safe)) - (cons __tmp255696 '()))) - (__tmp255694 - (let () (declare (not safe)) (cons _L248443_ '())))) + (cons __tmp256897 '()))) + (__tmp256895 + (let () (declare (not safe)) (cons _L249641_ '())))) (declare (not safe)) - (cons __tmp255695 __tmp255694)))) + (cons __tmp256896 __tmp256895)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#let-values - __tmp255693)))) + __tmp256894)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp255692 - _stx246357_)))) - (_specializer-impl248927_ + __tmp256893 + _stx247555_)))) + (_specializer-impl250125_ (let () (declare (not safe)) - (_make-specializer-impl248925_ - _struct-check-all248892_ - _empty246456_))) - (_unchecked-specializer-impl248929_ + (_make-specializer-impl250123_ + _struct-check-all250090_ + _empty247654_))) + (_unchecked-specializer-impl250127_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-impl248925_ - _empty246456_ - _struct-check-all248892_)) + (_make-specializer-impl250123_ + _empty247654_ + _struct-check-all250090_)) '#f)) - (_specializer-impl248931_ + (_specializer-impl250129_ (let () (declare (not safe)) - (_generate-specializer-impl246363_ - _$t248822_ - _methods-bind248845_ - _slots-bind248868_ - _class-check-bind248890_ - _struct-check-bind248914_ - _specializer-impl248927_ - _lifted-specializer-id248820_ - _unchecked-specializer-impl248929_)))) - (let ((__tmp255710 + (_generate-specializer-impl247561_ + _$t250020_ + _methods-bind250043_ + _slots-bind250066_ + _class-check-bind250088_ + _struct-check-bind250112_ + _specializer-impl250125_ + _lifted-specializer-id250018_ + _unchecked-specializer-impl250127_)))) + (let ((__tmp256911 (let () (declare (not safe)) - (gx#stx-e _L246432_))) - (__tmp255709 + (gx#stx-e _L247630_))) + (__tmp256910 (let () (declare (not safe)) - (gx#stx-e _specializer-id248813_)))) + (gx#stx-e _specializer-id250011_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp255710 + __tmp256911 '" => " - __tmp255709)) + __tmp256910)) (let () (declare (not safe)) - (_generate-specializer-def246364_ - _L246432_ - _specializer-id248813_ - _specializer-impl248931_ - _lifted-specializer-id248820_ - _unchecked-specializer-impl248929_)))))) - _tl248756248781_ - _hd248757248779_))) + (_generate-specializer-def247562_ + _L247630_ + _specializer-id250011_ + _specializer-impl250129_ + _lifted-specializer-id250018_ + _unchecked-specializer-impl250127_)))))) + _tl249954249979_ + _hd249955249977_))) (let () (declare (not safe)) - (_g248749248763_ _g248750248766_))))) + (_g249947249961_ _g249948249964_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248749248763_ - _g248750248766_)))))) + (_g249947249961_ + _g249948249964_)))))) (declare (not safe)) - (_g248748248934_ _L248445_)) + (_g249946250132_ _L249643_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L248445_)) - (let* ((_g248937248967_ - (lambda (_g248938248964_) + (gxc#opt-lambda-expr? _L249643_)) + (let* ((_g250135250165_ + (lambda (_g250136250162_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g248938248964_)))) - (_g248936249592_ - (lambda (_g248938248970_) + _g250136250162_)))) + (_g250134250790_ + (lambda (_g250136250168_) (if (let () (declare (not safe)) (gx#stx-pair? - _g248938248970_)) - (let ((_e248944248972_ + _g250136250168_)) + (let ((_e250142250170_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _g248938248970_)))) - (let ((_hd248943248975_ - (let () (declare (not safe)) (##car _e248944248972_))) - (_tl248942248977_ - (let () (declare (not safe)) (##cdr _e248944248972_)))) + (gx#stx-e _g250136250168_)))) + (let ((_hd250141250173_ + (let () (declare (not safe)) (##car _e250142250170_))) + (_tl250140250175_ + (let () (declare (not safe)) (##cdr _e250142250170_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248942248977_)) - (let ((_e248947248980_ + (gx#stx-pair? _tl250140250175_)) + (let ((_e250145250178_ (let () (declare (not safe)) - (gx#stx-e _tl248942248977_)))) - (let ((_hd248946248983_ + (gx#stx-e _tl250140250175_)))) + (let ((_hd250144250181_ (let () (declare (not safe)) - (##car _e248947248980_))) - (_tl248945248985_ + (##car _e250145250178_))) + (_tl250143250183_ (let () (declare (not safe)) - (##cdr _e248947248980_)))) + (##cdr _e250145250178_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248946248983_)) - (let ((_e248950248988_ + (gx#stx-pair? _hd250144250181_)) + (let ((_e250148250186_ (let () (declare (not safe)) - (gx#stx-e _hd248946248983_)))) - (let ((_hd248949248991_ + (gx#stx-e _hd250144250181_)))) + (let ((_hd250147250189_ (let () (declare (not safe)) - (##car _e248950248988_))) - (_tl248948248993_ + (##car _e250148250186_))) + (_tl250146250191_ (let () (declare (not safe)) - (##cdr _e248950248988_)))) + (##cdr _e250148250186_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd248949248991_)) - (let ((_e248953248996_ + (gx#stx-pair? _hd250147250189_)) + (let ((_e250151250194_ (let () (declare (not safe)) - (gx#stx-e _hd248949248991_)))) - (let ((_hd248952248999_ + (gx#stx-e _hd250147250189_)))) + (let ((_hd250150250197_ (let () (declare (not safe)) - (##car _e248953248996_))) - (_tl248951249001_ + (##car _e250151250194_))) + (_tl250149250199_ (let () (declare (not safe)) - (##cdr _e248953248996_)))) + (##cdr _e250151250194_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd248952248999_)) - (let ((_e248956249004_ + _hd250150250197_)) + (let ((_e250154250202_ (let () (declare (not safe)) (gx#stx-e - _hd248952248999_)))) - (let ((_hd248955249007_ + _hd250150250197_)))) + (let ((_hd250153250205_ (let () (declare (not safe)) - (##car _e248956249004_))) - (_tl248954249009_ + (##car _e250154250202_))) + (_tl250152250207_ (let () (declare (not safe)) - (##cdr _e248956249004_)))) + (##cdr _e250154250202_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl248954249009_)) + _tl250152250207_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl248951249001_)) - (let ((_e248959249012_ + _tl250149250199_)) + (let ((_e250157250210_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl248951249001_)))) - (let ((_hd248958249015_ + (gx#stx-e _tl250149250199_)))) + (let ((_hd250156250213_ (let () (declare (not safe)) - (##car _e248959249012_))) - (_tl248957249017_ + (##car _e250157250210_))) + (_tl250155250215_ (let () (declare (not safe)) - (##cdr _e248959249012_)))) + (##cdr _e250157250210_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248957249017_)) + (gx#stx-null? _tl250155250215_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl248948248993_)) + (gx#stx-null? _tl250146250191_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl248945248985_)) - (let ((_e248962249020_ + (gx#stx-pair? _tl250143250183_)) + (let ((_e250160250218_ (let () (declare (not safe)) - (gx#stx-e _tl248945248985_)))) - (let ((_hd248961249023_ + (gx#stx-e _tl250143250183_)))) + (let ((_hd250159250221_ (let () (declare (not safe)) - (##car _e248962249020_))) - (_tl248960249025_ + (##car _e250160250218_))) + (_tl250158250223_ (let () (declare (not safe)) - (##cdr _e248962249020_)))) + (##cdr _e250160250218_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl248960249025_)) - ((lambda (_L249028_ - _L249029_ - _L249030_) - (let* ((_g249053249067_ - (lambda (_g249054249064_) + (gx#stx-null? _tl250158250223_)) + ((lambda (_L250226_ + _L250227_ + _L250228_) + (let* ((_g250251250265_ + (lambda (_g250252250262_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249054249064_)))) - (_g249052249108_ - (lambda (_g249054249070_) + _g250252250262_)))) + (_g250250250306_ + (lambda (_g250252250268_) (if (let () (declare (not safe)) (gx#stx-pair? - _g249054249070_)) - (let ((_e249059249072_ + _g250252250268_)) + (let ((_e250257250270_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g249054249070_)))) - (let ((_hd249058249075_ + (gx#stx-e _g250252250268_)))) + (let ((_hd250256250273_ (let () (declare (not safe)) - (##car _e249059249072_))) - (_tl249057249077_ + (##car _e250257250270_))) + (_tl250255250275_ (let () (declare (not safe)) - (##cdr _e249059249072_)))) + (##cdr _e250257250270_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249057249077_)) - (let ((_e249062249080_ + (gx#stx-pair? _tl250255250275_)) + (let ((_e250260250278_ (let () (declare (not safe)) - (gx#stx-e _tl249057249077_)))) - (let ((_hd249061249083_ + (gx#stx-e _tl250255250275_)))) + (let ((_hd250259250281_ (let () (declare (not safe)) - (##car _e249062249080_))) - (_tl249060249085_ + (##car _e250260250278_))) + (_tl250258250283_ (let () (declare (not safe)) - (##cdr _e249062249080_)))) - ((lambda (_L249088_ _L249089_) - (let ((_self249102_ + (##cdr _e250260250278_)))) + ((lambda (_L250286_ _L250287_) + (let ((_self250300_ (list-ref - _L249089_ - _self-index248746_))) + _L250287_ + _self-index249944_))) (for-each - (lambda (_g249103249105_) + (lambda (_g250301250303_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g249103249105_ - _self249102_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check246454_ - _struct-type-assert246455_))) - _L249088_))) - _tl249060249085_ - _hd249061249083_))) + _g250301250303_ + _self250300_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check247652_ + _struct-type-assert247653_))) + _L250286_))) + _tl250258250283_ + _hd250259250281_))) (let () (declare (not safe)) - (_g249053249067_ _g249054249070_))))) + (_g250251250265_ _g250252250268_))))) (let () (declare (not safe)) - (_g249053249067_ _g249054249070_)))))) + (_g250251250265_ _g250252250268_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g249052249108_ _L249029_)) - (let* ((_g249111249130_ - (lambda (_g249112249127_) + (_g250250250306_ _L250227_)) + (let* ((_g250309250328_ + (lambda (_g250310250325_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249112249127_)))) - (_g249110249235_ - (lambda (_g249112249133_) + _g250310250325_)))) + (_g250308250433_ + (lambda (_g250310250331_) (if (let () (declare (not safe)) (gx#stx-pair? - _g249112249133_)) - (let ((_e249116249135_ + _g250310250331_)) + (let ((_e250314250333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g249112249133_)))) - (let ((_hd249115249138_ + (gx#stx-e _g250310250331_)))) + (let ((_hd250313250336_ (let () (declare (not safe)) - (##car _e249116249135_))) - (_tl249114249140_ + (##car _e250314250333_))) + (_tl250312250338_ (let () (declare (not safe)) - (##cdr _e249116249135_)))) + (##cdr _e250314250333_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl249114249140_)) - (let ((_g255627_ + (gx#stx-pair/null? _tl250312250338_)) + (let ((_g256828_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl249114249140_ + _tl250312250338_ '0)))) (begin - (let ((_g255628_ + (let ((_g256829_ (let () (declare (not safe)) - (if (##values? _g255627_) - (##vector-length _g255627_) + (if (##values? _g256828_) + (##vector-length _g256828_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g255628_ 2))) + (##fx= _g256829_ 2))) (error "Context expects 2 values" - _g255628_))) - (let ((_target249117249143_ + _g256829_))) + (let ((_target250315250341_ (let () (declare (not safe)) - (##vector-ref _g255627_ 0))) - (_tl249119249145_ + (##vector-ref _g256828_ 0))) + (_tl250317250343_ (let () (declare (not safe)) - (##vector-ref _g255627_ 1)))) + (##vector-ref _g256828_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl249119249145_)) - (letrec ((_loop249120249148_ - (lambda (_hd249118249151_ - _clause249124249153_) + (gx#stx-null? _tl250317250343_)) + (letrec ((_loop250318250346_ + (lambda (_hd250316250349_ + _clause250322250351_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd249118249151_)) - (let ((_e249121249156_ + _hd250316250349_)) + (let ((_e250319250354_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd249118249151_)))) - (let ((_lp-hd249122249159_ - (let () (declare (not safe)) (##car _e249121249156_))) - (_lp-tl249123249161_ - (let () (declare (not safe)) (##cdr _e249121249156_)))) - (let ((__tmp255630 + (gx#stx-e _hd250316250349_)))) + (let ((_lp-hd250320250357_ + (let () (declare (not safe)) (##car _e250319250354_))) + (_lp-tl250321250359_ + (let () (declare (not safe)) (##cdr _e250319250354_)))) + (let ((__tmp256831 (let () (declare (not safe)) - (cons _lp-hd249122249159_ _clause249124249153_)))) + (cons _lp-hd250320250357_ _clause250322250351_)))) (declare (not safe)) - (_loop249120249148_ _lp-tl249123249161_ __tmp255630)))) - (let ((_clause249125249164_ (reverse _clause249124249153_))) - ((lambda (_L249167_) + (_loop250318250346_ _lp-tl250321250359_ __tmp256831)))) + (let ((_clause250323250362_ (reverse _clause250322250351_))) + ((lambda (_L250365_) (for-each - (lambda (_clause249180_) - (let* ((_g249182249193_ - (lambda (_g249183249190_) + (lambda (_clause250378_) + (let* ((_g250380250391_ + (lambda (_g250381250388_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249183249190_)))) - (_g249181249225_ - (lambda (_g249183249196_) + _g250381250388_)))) + (_g250379250423_ + (lambda (_g250381250394_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249183249196_)) - (let ((_e249188249198_ + (gx#stx-pair? _g250381250394_)) + (let ((_e250386250396_ (let () (declare (not safe)) - (gx#stx-e _g249183249196_)))) - (let ((_hd249187249201_ + (gx#stx-e _g250381250394_)))) + (let ((_hd250385250399_ (let () (declare (not safe)) - (##car _e249188249198_))) - (_tl249186249203_ + (##car _e250386250396_))) + (_tl250384250401_ (let () (declare (not safe)) - (##cdr _e249188249198_)))) - ((lambda (_L249206_ _L249207_) - (let ((_self249219_ + (##cdr _e250386250396_)))) + ((lambda (_L250404_ _L250405_) + (let ((_self250417_ (list-ref - _L249207_ - _self-index248746_))) + _L250405_ + _self-index249944_))) (for-each - (lambda (_g249220249222_) + (lambda (_g250418250420_) (let () (declare (not safe)) (gxc#apply-collect-object-refs - _g249220249222_ - _self249219_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check246454_ - _struct-type-assert246455_))) - _L249206_))) - _tl249186249203_ - _hd249187249201_))) + _g250418250420_ + _self250417_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check247652_ + _struct-type-assert247653_))) + _L250404_))) + _tl250384250401_ + _hd250385250399_))) (let () (declare (not safe)) - (_g249182249193_ _g249183249196_)))))) + (_g250380250391_ _g250381250394_)))))) (declare (not safe)) - (_g249181249225_ _clause249180_))) - (let ((__tmp255629 - (lambda (_g249227249230_ _g249228249232_) + (_g250379250423_ _clause250378_))) + (let ((__tmp256830 + (lambda (_g250425250428_ _g250426250430_) (let () (declare (not safe)) - (cons _g249227249230_ _g249228249232_))))) + (cons _g250425250428_ _g250426250430_))))) (declare (not safe)) - (foldr1 __tmp255629 '() _L249167_)))) - _clause249125249164_)))))) + (foldr1 __tmp256830 '() _L250365_)))) + _clause250323250362_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop249120249148_ - _target249117249143_ + (_loop250318250346_ + _target250315250341_ '()))) (let () (declare (not safe)) - (_g249111249130_ _g249112249133_)))))) + (_g250309250328_ _g250310250331_)))))) (let () (declare (not safe)) - (_g249111249130_ _g249112249133_))))) + (_g250309250328_ _g250310250331_))))) (let () (declare (not safe)) - (_g249111249130_ _g249112249133_)))))) + (_g250309250328_ _g250310250331_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g249110249235_ _L249028_)) + (_g250308250433_ _L250226_)) (if (let () (declare (not safe)) - (_no-specializer?246458_)) - _stx246357_ - (let* ((_specializer-id249244_ - (let* ((_id249238_ + (_no-specializer?247656_)) + _stx247555_ + (let* ((_specializer-id250442_ + (let* ((_id250436_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255631 + (let ((__tmp256832 (let () (declare (not safe)) - (gx#stx-e _L246432_)))) + (gx#stx-e _L247630_)))) (declare (not safe)) - (make-symbol__1 __tmp255631 '"::specialize"))) - (_specializer-id249241_ - (let ((__tmp255632 + (make-symbol__1 __tmp256832 '"::specialize"))) + (_specializer-id250439_ + (let ((__tmp256833 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _id249238_ __tmp255632)))) + (gx#core-quote-syntax__1 _id250436_ __tmp256833)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _specializer-id249241_)) - _specializer-id249241_)) - (_lifted-specializer-id249251_ + (gx#core-bind-runtime!__0 _specializer-id250439_)) + _specializer-id250439_)) + (_lifted-specializer-id250449_ (if (let () (declare (not safe)) - (_lift-unchecked-specializer?246460_)) - (let* ((_id249246_ - (let ((__tmp255633 + (_lift-unchecked-specializer?247658_)) + (let* ((_id250444_ + (let ((__tmp256834 (let () (declare (not safe)) - (gx#stx-e _L246432_)))) + (gx#stx-e _L247630_)))) (declare (not safe)) (make-symbol__1 - __tmp255633 + __tmp256834 '"::specialize::unchecked"))) - (_lifted-specializer-id249248_ - (let ((__tmp255634 + (_lifted-specializer-id250446_ + (let ((__tmp256835 (let () (declare (not safe)) - (gx#stx-source _stx246357_)))) + (gx#stx-source _stx247555_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id249246_ - __tmp255634)))) + _id250444_ + __tmp256835)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lifted-specializer-id249248_)) - _lifted-specializer-id249248_) + _lifted-specializer-id250446_)) + _lifted-specializer-id250446_) '#f)) - (_$t249253_ - (let ((__tmp255635 (gensym '__t))) + (_$t250451_ + (let ((__tmp256836 (gensym '__t))) (declare (not safe)) - (make-symbol__0 __tmp255635))) - (_methods249255_ + (make-symbol__0 __tmp256836))) + (_methods250453_ (let () (declare (not safe)) - (hash-keys _method-calls246451_))) - (_$methods249259_ - (map (lambda (_id249257_) - (let ((__tmp255636 (gensym _id249257_))) + (hash-keys _method-calls247649_))) + (_$methods250457_ + (map (lambda (_id250455_) + (let ((__tmp256837 (gensym _id250455_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255636))) - _methods249255_)) - (_g255637_ + (make-symbol__1 '"__" __tmp256837))) + _methods250453_)) + (_g256838_ (for-each - (lambda (_g249260249263_ _g249261249265_) + (lambda (_g250458250461_ _g250459250463_) (let () (declare (not safe)) (table-set! - _method-calls246451_ - _g249260249263_ - _g249261249265_))) - _methods249255_ - _$methods249259_)) - (_methods-bind249276_ - (map (lambda (_g249268249271_ _g249269249273_) + _method-calls247649_ + _g250458250461_ + _g250459250463_))) + _methods250453_ + _$methods250457_)) + (_methods-bind250474_ + (map (lambda (_g250466250469_ _g250467250471_) (let () (declare (not safe)) - (_generate-method-bind246359_ - _$t249253_ - _g249268249271_ - _g249269249273_))) - _methods249255_ - _$methods249259_)) - (_slots249278_ - (let () (declare (not safe)) (hash-keys _slot-refs246452_))) - (_$slots249282_ - (map (lambda (_id249280_) - (let ((__tmp255638 (gensym _id249280_))) + (_generate-method-bind247557_ + _$t250451_ + _g250466250469_ + _g250467250471_))) + _methods250453_ + _$methods250457_)) + (_slots250476_ + (let () (declare (not safe)) (hash-keys _slot-refs247650_))) + (_$slots250480_ + (map (lambda (_id250478_) + (let ((__tmp256839 (gensym _id250478_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp255638))) - _slots249278_)) - (_g255639_ + (make-symbol__1 '"__" __tmp256839))) + _slots250476_)) + (_g256840_ (for-each - (lambda (_g249283249286_ _g249284249288_) + (lambda (_g250481250484_ _g250482250486_) (let () (declare (not safe)) (table-set! - _slot-refs246452_ - _g249283249286_ - _g249284249288_))) - _slots249278_ - _$slots249282_)) - (_slots-bind249299_ - (map (lambda (_g249291249294_ _g249292249296_) + _slot-refs247650_ + _g250481250484_ + _g250482250486_))) + _slots250476_ + _$slots250480_)) + (_slots-bind250497_ + (map (lambda (_g250489250492_ _g250490250494_) (let () (declare (not safe)) - (_generate-slot-bind246360_ - _$t249253_ - _g249291249294_ - _g249292249296_))) - _slots249278_ - _$slots249282_)) - (_class-check249301_ + (_generate-slot-bind247558_ + _$t250451_ + _g250489250492_ + _g250490250494_))) + _slots250476_ + _$slots250480_)) + (_class-check250499_ (let () (declare (not safe)) - (hash-keys _class-type-check246453_))) - (_$class-check249304_ - (map (lambda (_g255640_) - (let ((__tmp255641 (gensym '__class))) + (hash-keys _class-type-check247651_))) + (_$class-check250502_ + (map (lambda (_g256841_) + (let ((__tmp256842 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255641))) - _class-check249301_)) - (_g255642_ + (make-symbol__0 __tmp256842))) + _class-check250499_)) + (_g256843_ (for-each - (lambda (_g249305249308_ _g249306249310_) + (lambda (_g250503250506_ _g250504250508_) (let () (declare (not safe)) (table-set! - _class-type-check246453_ - _g249305249308_ - _g249306249310_))) - _class-check249301_ - _$class-check249304_)) - (_class-check-bind249321_ - (map (lambda (_g249313249316_ _g249314249318_) + _class-type-check247651_ + _g250503250506_ + _g250504250508_))) + _class-check250499_ + _$class-check250502_)) + (_class-check-bind250519_ + (map (lambda (_g250511250514_ _g250512250516_) (let () (declare (not safe)) - (_generate-class-check-bind246361_ - _$t249253_ - _g249313249316_ - _g249314249318_))) - _class-check249301_ - _$class-check249304_)) - (_struct-check-all249323_ + (_generate-class-check-bind247559_ + _$t250451_ + _g250511250514_ + _g250512250516_))) + _class-check250499_ + _$class-check250502_)) + (_struct-check-all250521_ (let () (declare (not safe)) (hash-merge - _struct-type-check246454_ - _struct-type-assert246455_))) - (_struct-check249325_ + _struct-type-check247652_ + _struct-type-assert247653_))) + (_struct-check250523_ (let () (declare (not safe)) - (hash-keys _struct-check-all249323_))) - (_$struct-check249328_ - (map (lambda (_g255643_) - (let ((__tmp255644 (gensym '__class))) + (hash-keys _struct-check-all250521_))) + (_$struct-check250526_ + (map (lambda (_g256844_) + (let ((__tmp256845 (gensym '__class))) (declare (not safe)) - (make-symbol__0 __tmp255644))) - _struct-check249325_)) - (_g255645_ + (make-symbol__0 __tmp256845))) + _struct-check250523_)) + (_g256846_ (for-each - (lambda (_g249329249332_ _g249330249334_) + (lambda (_g250527250530_ _g250528250532_) (let () (declare (not safe)) (table-set! - _struct-check-all249323_ - _g249329249332_ - _g249330249334_))) - _struct-check249325_ - _$struct-check249328_)) - (_struct-check-bind249345_ - (map (lambda (_g249337249340_ _g249338249342_) + _struct-check-all250521_ + _g250527250530_ + _g250528250532_))) + _struct-check250523_ + _$struct-check250526_)) + (_struct-check-bind250543_ + (map (lambda (_g250535250538_ _g250536250540_) (let () (declare (not safe)) - (_generate-struct-check-bind246362_ - _$t249253_ - _g249337249340_ - _g249338249342_))) - _struct-check249325_ - _$struct-check249328_)) - (_make-specializer-lambda-expr249431_ - (lambda (_struct-type-check1249347_ - _struct-type-check2249348_) - (let* ((_g249350249364_ - (lambda (_g249351249361_) + (_generate-struct-check-bind247560_ + _$t250451_ + _g250535250538_ + _g250536250540_))) + _struct-check250523_ + _$struct-check250526_)) + (_make-specializer-lambda-expr250629_ + (lambda (_struct-type-check1250545_ + _struct-type-check2250546_) + (let* ((_g250548250562_ + (lambda (_g250549250559_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249351249361_)))) - (_g249349249428_ - (lambda (_g249351249367_) + _g250549250559_)))) + (_g250547250626_ + (lambda (_g250549250565_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249351249367_)) - (let ((_e249356249369_ + (gx#stx-pair? _g250549250565_)) + (let ((_e250554250567_ (let () (declare (not safe)) - (gx#stx-e _g249351249367_)))) - (let ((_hd249355249372_ + (gx#stx-e _g250549250565_)))) + (let ((_hd250553250570_ (let () (declare (not safe)) - (##car _e249356249369_))) - (_tl249354249374_ + (##car _e250554250567_))) + (_tl250552250572_ (let () (declare (not safe)) - (##cdr _e249356249369_)))) + (##cdr _e250554250567_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl249354249374_)) - (let ((_e249359249377_ + (gx#stx-pair? _tl250552250572_)) + (let ((_e250557250575_ (let () (declare (not safe)) (gx#stx-e - _tl249354249374_)))) - (let ((_hd249358249380_ + _tl250552250572_)))) + (let ((_hd250556250578_ (let () (declare (not safe)) - (##car _e249359249377_))) - (_tl249357249382_ + (##car _e250557250575_))) + (_tl250555250580_ (let () (declare (not safe)) - (##cdr _e249359249377_)))) - ((lambda (_L249385_ _L249386_) - (let* ((_self249419_ + (##cdr _e250557250575_)))) + ((lambda (_L250583_ _L250584_) + (let* ((_self250617_ (list-ref - _L249386_ - _self-index248746_)) - (_body249425_ - (map (lambda (_g249420249422_) + _L250584_ + _self-index249944_)) + (_body250623_ + (map (lambda (_g250618250620_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#apply-subst-object-refs - _g249420249422_ - _self249419_ - _$t249253_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check1249347_ - _struct-type-check2249348_))) - _L249385_))) + _g250618250620_ + _self250617_ + _$t250451_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check1250545_ + _struct-type-check2250546_))) + _L250583_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp255646 - (let ((__tmp255647 + (let ((__tmp256847 + (let ((__tmp256848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L249386_ _body249425_)))) + (cons _L250584_ _body250623_)))) (declare (not safe)) - (cons '%#lambda __tmp255647)))) + (cons '%#lambda __tmp256848)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp255646 - _L249029_)))) - _tl249357249382_ - _hd249358249380_))) + __tmp256847 + _L250227_)))) + _tl250555250580_ + _hd250556250578_))) (let () (declare (not safe)) - (_g249350249364_ - _g249351249367_))))) + (_g250548250562_ + _g250549250565_))))) (let () (declare (not safe)) - (_g249350249364_ _g249351249367_)))))) + (_g250548250562_ _g250549250565_)))))) (declare (not safe)) - (_g249349249428_ _L249029_)))) - (_make-specializer-case-lambda-expr249570_ - (lambda (_struct-type-check1249433_ - _struct-type-check2249434_) - (let* ((_g249436249455_ - (lambda (_g249437249452_) + (_g250547250626_ _L250227_)))) + (_make-specializer-case-lambda-expr250768_ + (lambda (_struct-type-check1250631_ + _struct-type-check2250632_) + (let* ((_g250634250653_ + (lambda (_g250635250650_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249437249452_)))) - (_g249435249567_ - (lambda (_g249437249458_) + _g250635250650_)))) + (_g250633250765_ + (lambda (_g250635250656_) (if (let () (declare (not safe)) - (gx#stx-pair? _g249437249458_)) - (let ((_e249441249460_ + (gx#stx-pair? _g250635250656_)) + (let ((_e250639250658_ (let () (declare (not safe)) - (gx#stx-e _g249437249458_)))) - (let ((_hd249440249463_ + (gx#stx-e _g250635250656_)))) + (let ((_hd250638250661_ (let () (declare (not safe)) - (##car _e249441249460_))) - (_tl249439249465_ + (##car _e250639250658_))) + (_tl250637250663_ (let () (declare (not safe)) - (##cdr _e249441249460_)))) + (##cdr _e250639250658_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl249439249465_)) - (let ((_g255648_ + _tl250637250663_)) + (let ((_g256849_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl249439249465_ + _tl250637250663_ '0)))) (begin - (let ((_g255649_ + (let ((_g256850_ (let () (declare (not safe)) (if (##values? - _g255648_) + _g256849_) (##vector-length - _g255648_) + _g256849_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g255649_ + (##fx= _g256850_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g255649_))) - (let ((_target249442249468_ + _g256850_))) + (let ((_target250640250666_ (let () (declare (not safe)) (##vector-ref - _g255648_ + _g256849_ 0))) - (_tl249444249470_ + (_tl250642250668_ (let () (declare (not safe)) (##vector-ref - _g255648_ + _g256849_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl249444249470_)) - (letrec ((_loop249445249473_ - (lambda (_hd249443249476_ + _tl250642250668_)) + (letrec ((_loop250643250671_ + (lambda (_hd250641250674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _clause249449249478_) + _clause250647250676_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd249443249476_)) - (let ((_e249446249481_ + (gx#stx-pair? _hd250641250674_)) + (let ((_e250644250679_ (let () (declare (not safe)) - (gx#stx-e _hd249443249476_)))) - (let ((_lp-hd249447249484_ + (gx#stx-e _hd250641250674_)))) + (let ((_lp-hd250645250682_ (let () (declare (not safe)) - (##car _e249446249481_))) - (_lp-tl249448249486_ + (##car _e250644250679_))) + (_lp-tl250646250684_ (let () (declare (not safe)) - (##cdr _e249446249481_)))) - (let ((__tmp255652 + (##cdr _e250644250679_)))) + (let ((__tmp256853 (let () (declare (not safe)) - (cons _lp-hd249447249484_ - _clause249449249478_)))) + (cons _lp-hd250645250682_ + _clause250647250676_)))) (declare (not safe)) - (_loop249445249473_ - _lp-tl249448249486_ - __tmp255652)))) - (let ((_clause249450249489_ - (reverse _clause249449249478_))) - ((lambda (_L249492_) - (let* ((_clauses249565_ - (map (lambda (_clause249507_) - (let* ((_g249509249520_ - (lambda (_g249510249517_) + (_loop250643250671_ + _lp-tl250646250684_ + __tmp256853)))) + (let ((_clause250648250687_ + (reverse _clause250647250676_))) + ((lambda (_L250690_) + (let* ((_clauses250763_ + (map (lambda (_clause250705_) + (let* ((_g250707250718_ + (lambda (_g250708250715_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g249510249517_)))) - (_g249508249555_ - (lambda (_g249510249523_) + _g250708250715_)))) + (_g250706250753_ + (lambda (_g250708250721_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _g249510249523_)) - (let ((_e249515249525_ + (gx#stx-pair? _g250708250721_)) + (let ((_e250713250723_ (let () (declare (not safe)) - (gx#stx-e _g249510249523_)))) - (let ((_hd249514249528_ + (gx#stx-e _g250708250721_)))) + (let ((_hd250712250726_ (let () (declare (not safe)) - (##car _e249515249525_))) - (_tl249513249530_ + (##car _e250713250723_))) + (_tl250711250728_ (let () (declare (not safe)) - (##cdr _e249515249525_)))) - ((lambda (_L249533_ _L249534_) - (let* ((_self249546_ - (list-ref _L249534_ _self-index248746_)) - (_body249552_ - (map (lambda (_g249547249549_) + (##cdr _e250713250723_)))) + ((lambda (_L250731_ _L250732_) + (let* ((_self250744_ + (list-ref _L250732_ _self-index249944_)) + (_body250750_ + (map (lambda (_g250745250747_) (let () (declare (not safe)) (gxc#apply-subst-object-refs - _g249547249549_ - _self249546_ - _$t249253_ - _method-calls246451_ - _slot-refs246452_ - _class-type-check246453_ - _struct-type-check1249433_ - _struct-type-check2249434_))) - _L249533_))) + _g250745250747_ + _self250744_ + _$t250451_ + _method-calls247649_ + _slot-refs247650_ + _class-type-check247651_ + _struct-type-check1250631_ + _struct-type-check2250632_))) + _L250731_))) (let () (declare (not safe)) - (cons _L249534_ _body249552_)))) - _tl249513249530_ - _hd249514249528_))) + (cons _L250732_ _body250750_)))) + _tl250711250728_ + _hd250712250726_))) (let () (declare (not safe)) - (_g249509249520_ _g249510249523_)))))) + (_g250707250718_ _g250708250721_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g249508249555_ - _clause249507_))) - (let ((__tmp255650 - (lambda (_g249557249560_ - _g249558249562_) + (_g250706250753_ + _clause250705_))) + (let ((__tmp256851 + (lambda (_g250755250758_ + _g250756250760_) (let () (declare (not safe)) - (cons _g249557249560_ - _g249558249562_))))) + (cons _g250755250758_ + _g250756250760_))))) (declare (not safe)) - (foldr1 __tmp255650 + (foldr1 __tmp256851 '() - _L249492_)))) - (__tmp255651 + _L250690_)))) + (__tmp256852 (let () (declare (not safe)) (cons '%#case-lambda - _clauses249565_)))) + _clauses250763_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp255651 - _L249028_))) - _clause249450249489_)))))) + __tmp256852 + _L250226_))) + _clause250648250687_)))))) (let () (declare (not safe)) - (_loop249445249473_ _target249442249468_ '()))) + (_loop250643250671_ _target250640250666_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g249436249455_ - _g249437249458_)))))) + (_g250634250653_ + _g250635250656_)))))) (let () (declare (not safe)) - (_g249436249455_ - _g249437249458_))))) + (_g250634250653_ + _g250635250656_))))) (let () (declare (not safe)) - (_g249436249455_ _g249437249458_)))))) + (_g250634250653_ _g250635250656_)))))) (declare (not safe)) - (_g249435249567_ _L249028_)))) - (_make-specializer-impl249575_ - (lambda (_specializer-lambda-expr249572_ - _specializer-case-lambda-expr249573_) - (let ((__tmp255653 - (let ((__tmp255654 - (let ((__tmp255656 - (let ((__tmp255657 - (let ((__tmp255674 + (_g250633250765_ _L250226_)))) + (_make-specializer-impl250773_ + (lambda (_specializer-lambda-expr250770_ + _specializer-case-lambda-expr250771_) + (let ((__tmp256854 + (let ((__tmp256855 + (let ((__tmp256857 + (let ((__tmp256858 + (let ((__tmp256875 (let () (declare (not safe)) - (cons _L248447_ '()))) - (__tmp255658 - (let ((__tmp255659 - (let ((__tmp255660 + (cons _L249645_ '()))) + (__tmp256859 + (let ((__tmp256860 + (let ((__tmp256861 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255662 - (let ((__tmp255663 - (let ((__tmp255673 + (let ((__tmp256863 + (let ((__tmp256864 + (let ((__tmp256874 (let () (declare (not safe)) - (cons _L248446_ '()))) - (__tmp255664 - (let ((__tmp255665 - (let ((__tmp255666 - (let ((__tmp255667 + (cons _L249644_ '()))) + (__tmp256865 + (let ((__tmp256866 + (let ((__tmp256867 + (let ((__tmp256868 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp255669 - (let ((__tmp255670 - (let ((__tmp255672 + (let ((__tmp256870 + (let ((__tmp256871 + (let ((__tmp256873 (let () (declare (not safe)) - (cons _L249030_ '()))) - (__tmp255671 + (cons _L250228_ '()))) + (__tmp256872 (let () (declare (not safe)) - (cons _specializer-lambda-expr249572_ + (cons _specializer-lambda-expr250770_ '())))) (declare (not safe)) - (cons __tmp255672 - __tmp255671)))) + (cons __tmp256873 + __tmp256872)))) (declare (not safe)) - (cons __tmp255670 '()))) - (__tmp255668 + (cons __tmp256871 '()))) + (__tmp256869 (let () (declare (not safe)) - (cons _specializer-case-lambda-expr249573_ + (cons _specializer-case-lambda-expr250771_ '())))) (declare (not safe)) - (cons __tmp255669 __tmp255668)))) + (cons __tmp256870 __tmp256869)))) (declare (not safe)) - (cons '%#let-values __tmp255667)))) + (cons '%#let-values __tmp256868)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255666 _stx246357_)))) + (gxc#xform-wrap-source __tmp256867 _stx247555_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255665 '())))) + (cons __tmp256866 '())))) (declare (not safe)) - (cons __tmp255673 __tmp255664)))) + (cons __tmp256874 __tmp256865)))) (declare (not safe)) - (cons __tmp255663 '()))) - (__tmp255661 + (cons __tmp256864 '()))) + (__tmp256862 (let () (declare (not safe)) - (cons _L248444_ '())))) + (cons _L249642_ '())))) (declare (not safe)) - (cons __tmp255662 __tmp255661)))) + (cons __tmp256863 __tmp256862)))) (declare (not safe)) - (cons '%#let-values __tmp255660)))) + (cons '%#let-values __tmp256861)))) (declare (not safe)) - (cons __tmp255659 '())))) + (cons __tmp256860 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255674 - __tmp255658)))) + (cons __tmp256875 + __tmp256859)))) (declare (not safe)) - (cons __tmp255657 '()))) - (__tmp255655 + (cons __tmp256858 '()))) + (__tmp256856 (let () (declare (not safe)) - (cons _L248443_ '())))) + (cons _L249641_ '())))) (declare (not safe)) - (cons __tmp255656 __tmp255655)))) + (cons __tmp256857 __tmp256856)))) (declare (not safe)) - (cons '%#let-values __tmp255654)))) + (cons '%#let-values __tmp256855)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255653 _stx246357_)))) - (_specializer-lambda-expr249577_ + (gxc#xform-wrap-source __tmp256854 _stx247555_)))) + (_specializer-lambda-expr250775_ (let () (declare (not safe)) - (_make-specializer-lambda-expr249431_ - _struct-check-all249323_ - _empty246456_))) - (_specializer-case-lambda-expr249579_ + (_make-specializer-lambda-expr250629_ + _struct-check-all250521_ + _empty247654_))) + (_specializer-case-lambda-expr250777_ (let () (declare (not safe)) - (_make-specializer-case-lambda-expr249570_ - _struct-check-all249323_ - _empty246456_))) - (_specializer-impl249581_ + (_make-specializer-case-lambda-expr250768_ + _struct-check-all250521_ + _empty247654_))) + (_specializer-impl250779_ (let () (declare (not safe)) - (_make-specializer-impl249575_ - _specializer-lambda-expr249577_ - _specializer-case-lambda-expr249579_))) - (_unchecked-specializer-lambda-expr249583_ + (_make-specializer-impl250773_ + _specializer-lambda-expr250775_ + _specializer-case-lambda-expr250777_))) + (_unchecked-specializer-lambda-expr250781_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-lambda-expr249431_ - _empty246456_ - _struct-check-all249323_)) + (_make-specializer-lambda-expr250629_ + _empty247654_ + _struct-check-all250521_)) '#f)) - (_unchecked-specializer-case-lambda-expr249585_ + (_unchecked-specializer-case-lambda-expr250783_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-case-lambda-expr249570_ - _empty246456_ - _struct-check-all249323_)) + (_make-specializer-case-lambda-expr250768_ + _empty247654_ + _struct-check-all250521_)) '#f)) - (_unchecked-specializer-impl249587_ + (_unchecked-specializer-impl250785_ (if (let () (declare (not safe)) - (_unchecked-specializer?246459_)) + (_unchecked-specializer?247657_)) (let () (declare (not safe)) - (_make-specializer-impl249575_ - _unchecked-specializer-lambda-expr249583_ - _unchecked-specializer-case-lambda-expr249585_)) + (_make-specializer-impl250773_ + _unchecked-specializer-lambda-expr250781_ + _unchecked-specializer-case-lambda-expr250783_)) '#f)) - (_specializer-impl249589_ + (_specializer-impl250787_ (let () (declare (not safe)) - (_generate-specializer-impl246363_ - _$t249253_ - _methods-bind249276_ - _slots-bind249299_ - _class-check-bind249321_ - _struct-check-bind249345_ - _specializer-impl249581_ - _lifted-specializer-id249251_ - _unchecked-specializer-impl249587_)))) + (_generate-specializer-impl247561_ + _$t250451_ + _methods-bind250474_ + _slots-bind250497_ + _class-check-bind250519_ + _struct-check-bind250543_ + _specializer-impl250779_ + _lifted-specializer-id250449_ + _unchecked-specializer-impl250785_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp255676 + (let ((__tmp256877 (let () (declare (not safe)) (gx#stx-e - _L246432_))) - (__tmp255675 + _L247630_))) + (__tmp256876 (let () (declare (not safe)) (gx#stx-e - _specializer-id249244_)))) + _specializer-id250442_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp255676 + __tmp256877 '" => " - __tmp255675)) + __tmp256876)) (let () (declare (not safe)) - (_generate-specializer-def246364_ - _L246432_ - _specializer-id249244_ - _specializer-impl249589_ - _lifted-specializer-id249251_ - _unchecked-specializer-impl249587_))))) - _hd248961249023_ - _hd248958249015_ - _hd248955249007_) + (_generate-specializer-def247562_ + _L247630_ + _specializer-id250442_ + _specializer-impl250787_ + _lifted-specializer-id250449_ + _unchecked-specializer-impl250785_))))) + _hd250159250221_ + _hd250156250213_ + _hd250153250205_) (let () (declare (not safe)) - (_g248937248967_ - _g248938248970_))))) + (_g250135250165_ + _g250136250168_))))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))) + (_g250135250165_ _g250136250168_))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))) + (_g250135250165_ _g250136250168_))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))))) + (_g250135250165_ _g250136250168_))))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))) + (_g250135250165_ _g250136250168_))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))))) + (_g250135250165_ _g250136250168_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248937248967_ - _g248938248970_))))) + (_g250135250165_ + _g250136250168_))))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))))) + (_g250135250165_ _g250136250168_))))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))))) + (_g250135250165_ _g250136250168_))))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_))))) + (_g250135250165_ _g250136250168_))))) (let () (declare (not safe)) - (_g248937248967_ _g248938248970_)))))) + (_g250135250165_ _g250136250168_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g248936249592_ _L248445_)) - _stx246357_)))) - _hd248542248665_ - _kw-ref248540248686_ - _hd248530248652_ - _hd248521248628_ - _hd248512248604_) + (_g250134250790_ _L249643_)) + _stx247555_)))) + _hd249740249863_ + _kw-ref249738249884_ + _hd249728249850_ + _hd249719249826_ + _hd249710249802_) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_)))))))) + (_g249684249746_ _g249685249749_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop248535248670_ - _target248532248657_ + (_loop249733249868_ + _target249730249855_ '()))) (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))))) + (_g249684249746_ + _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_)))))) + (_g249684249746_ _g249685249749_)))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))) + (_g249684249746_ + _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))) + (_g249684249746_ + _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))))) + (_g249684249746_ + _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))) + (_g249684249746_ + _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))))) + (_g249684249746_ + _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))))) + (_g249684249746_ + _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))))) + (_g249684249746_ + _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))))) + (_g249684249746_ + _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ - _g248487248551_))) + (_g249684249746_ + _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))) + (_g249684249746_ _g249685249749_))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_))))) + (_g249684249746_ _g249685249749_))))) (let () (declare (not safe)) - (_g248486248548_ _g248487248551_)))))) + (_g249684249746_ _g249685249749_)))))) (declare (not safe)) - (_g248485249595_ _L248444_))) + (_g249683250793_ _L249642_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd248320248438_ - _hd248317248430_ - _hd248314248422_ - _hd248311248414_ - _hd248293248366_) + _hd249518249636_ + _hd249515249628_ + _hd249512249620_ + _hd249509249612_ + _hd249491249564_) (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))))) + (_g249471249524_ + _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))) + (_g249471249524_ + _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))) + (_g249471249524_ _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))) + (_g249471249524_ _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))) + (_g249471249524_ _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))) + (_g249471249524_ _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))) + (_g249471249524_ + _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))))) + (_g249471249524_ + _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))) + (_g249471249524_ + _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))) + (_g249471249524_ + _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))))) + (_g249471249524_ + _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))) + (_g249471249524_ _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g248273248326_ - _g248274248329_))))) + (_g249471249524_ + _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))) + (_g249471249524_ _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))) + (_g249471249524_ _g249472249527_))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_))))) + (_g249471249524_ _g249472249527_))))) (let () (declare (not safe)) - (_g248273248326_ _g248274248329_)))))) + (_g249471249524_ _g249472249527_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g248272249598_ _L246431_)) - _stx246357_)))))))) - (___kont254405254406_ (lambda () _stx246357_))) - (let ((___match254434254435_ - (lambda (_e246373246399_ - _hd246372246402_ - _tl246371246404_ - _e246376246407_ - _hd246375246410_ - _tl246374246412_ - _e246379246415_ - _hd246378246418_ - _tl246377246420_ - _e246382246423_ - _hd246381246426_ - _tl246380246428_) - (let ((_L246431_ _hd246381246426_) - (_L246432_ _hd246378246418_)) - (if (let ((__tmp255793 + (_g249470250796_ _L247629_)) + _stx247555_)))))))) + (___kont255603255604_ (lambda () _stx247555_))) + (let ((___match255632255633_ + (lambda (_e247571247597_ + _hd247570247600_ + _tl247569247602_ + _e247574247605_ + _hd247573247608_ + _tl247572247610_ + _e247577247613_ + _hd247576247616_ + _tl247575247618_ + _e247580247621_ + _hd247579247624_ + _tl247578247626_) + (let ((_L247629_ _hd247579247624_) + (_L247630_ _hd247576247616_)) + (if (let ((__tmp256994 (let () (declare (not safe)) - (gxc#identifier-symbol _L246432_)))) + (gxc#identifier-symbol _L247630_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp255793)) - (___kont254403254404_ _L246431_ _L246432_) - (___kont254405254406_)))))) + (gxc#optimizer-top-level-method? __tmp256994)) + (___kont255601255602_ _L247629_ _L247630_) + (___kont255603255604_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx254401254402_)) - (let ((_e246373246399_ + (gx#stx-pair? ___stx255599255600_)) + (let ((_e247571247597_ (let () (declare (not safe)) - (gx#stx-e ___stx254401254402_)))) - (let ((_tl246371246404_ + (gx#stx-e ___stx255599255600_)))) + (let ((_tl247569247602_ (let () (declare (not safe)) - (##cdr _e246373246399_))) - (_hd246372246402_ + (##cdr _e247571247597_))) + (_hd247570247600_ (let () (declare (not safe)) - (##car _e246373246399_)))) + (##car _e247571247597_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl246371246404_)) - (let ((_e246376246407_ + (gx#stx-pair? _tl247569247602_)) + (let ((_e247574247605_ (let () (declare (not safe)) - (gx#stx-e _tl246371246404_)))) - (let ((_tl246374246412_ + (gx#stx-e _tl247569247602_)))) + (let ((_tl247572247610_ (let () (declare (not safe)) - (##cdr _e246376246407_))) - (_hd246375246410_ + (##cdr _e247574247605_))) + (_hd247573247608_ (let () (declare (not safe)) - (##car _e246376246407_)))) + (##car _e247574247605_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd246375246410_)) - (let ((_e246379246415_ + (gx#stx-pair? _hd247573247608_)) + (let ((_e247577247613_ (let () (declare (not safe)) - (gx#stx-e _hd246375246410_)))) - (let ((_tl246377246420_ + (gx#stx-e _hd247573247608_)))) + (let ((_tl247575247618_ (let () (declare (not safe)) - (##cdr _e246379246415_))) - (_hd246378246418_ + (##cdr _e247577247613_))) + (_hd247576247616_ (let () (declare (not safe)) - (##car _e246379246415_)))) + (##car _e247577247613_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl246377246420_)) + (gx#stx-null? _tl247575247618_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl246374246412_)) - (let ((_e246382246423_ + _tl247572247610_)) + (let ((_e247580247621_ (let () (declare (not safe)) (gx#stx-e - _tl246374246412_)))) - (let ((_tl246380246428_ + _tl247572247610_)))) + (let ((_tl247578247626_ (let () (declare (not safe)) - (##cdr _e246382246423_))) - (_hd246381246426_ + (##cdr _e247580247621_))) + (_hd247579247624_ (let () (declare (not safe)) - (##car _e246382246423_)))) + (##car _e247580247621_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl246380246428_)) - (___match254434254435_ - _e246373246399_ - _hd246372246402_ - _tl246371246404_ - _e246376246407_ - _hd246375246410_ - _tl246374246412_ - _e246379246415_ - _hd246378246418_ - _tl246377246420_ - _e246382246423_ - _hd246381246426_ - _tl246380246428_) - (___kont254405254406_)))) - (___kont254405254406_)) - (___kont254405254406_)))) - (___kont254405254406_)))) - (___kont254405254406_)))) - (___kont254405254406_)))))))) + _tl247578247626_)) + (___match255632255633_ + _e247571247597_ + _hd247570247600_ + _tl247569247602_ + _e247574247605_ + _hd247573247608_ + _tl247572247610_ + _e247577247613_ + _hd247576247616_ + _tl247575247618_ + _e247580247621_ + _hd247579247624_ + _tl247578247626_) + (___kont255603255604_)))) + (___kont255603255604_)) + (___kont255603255604_)))) + (___kont255603255604_)))) + (___kont255603255604_)))) + (___kont255603255604_)))))))) (define gxc#collect-object-refs-call% - (lambda (_stx245333_ - _self245334_ - _methods245335_ - _slots245336_ - _class-check245337_ - _struct-check245338_ - _struct-assert245339_) - (let* ((___stx254437254438_ _stx245333_) - (_g245347245569_ + (lambda (_stx246531_ + _self246532_ + _methods246533_ + _slots246534_ + _class-check246535_ + _struct-check246536_ + _struct-assert246537_) + (let* ((___stx255635255636_ _stx246531_) + (_g246545246767_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx254437254438_))))) - (let ((___kont254439254440_ - (lambda (_L246306_ _L246307_ _L246308_ _L246309_) - (let ((__tmp255794 - (let () (declare (not safe)) (gx#stx-e _L246307_)))) + ___stx255635255636_))))) + (let ((___kont255637255638_ + (lambda (_L247504_ _L247505_ _L247506_ _L247507_) + (let ((__tmp256995 + (let () (declare (not safe)) (gx#stx-e _L247505_)))) (declare (not safe)) - (table-set! _methods245335_ __tmp255794 '#t)) + (table-set! _methods246533_ __tmp256995 '#t)) (for-each - (lambda (_g246342246344_) + (lambda (_g247540247542_) (let () (declare (not safe)) (gxc#compile-e__3 - _g246342246344_ - _self245334_ - _methods245335_ - _slots245336_ - _class-check245337_ - _struct-check245338_ - _struct-assert245339_))) - (let ((__tmp255795 - (lambda (_g246346246349_ _g246347246351_) + _g247540247542_ + _self246532_ + _methods246533_ + _slots246534_ + _class-check246535_ + _struct-check246536_ + _struct-assert246537_))) + (let ((__tmp256996 + (lambda (_g247544247547_ _g247545247549_) (let () (declare (not safe)) - (cons _g246346246349_ _g246347246351_))))) + (cons _g247544247547_ _g247545247549_))))) (declare (not safe)) - (foldr1 __tmp255795 '() _L246306_))))) - (___kont254443254444_ - (lambda (_L246141_ _L246142_ _L246143_ _L246144_ _L246145_) - (let ((__tmp255796 - (let () (declare (not safe)) (gx#stx-e _L246142_)))) + (foldr1 __tmp256996 '() _L247504_))))) + (___kont255641255642_ + (lambda (_L247339_ _L247340_ _L247341_ _L247342_ _L247343_) + (let ((__tmp256997 + (let () (declare (not safe)) (gx#stx-e _L247340_)))) (declare (not safe)) - (table-set! _methods245335_ __tmp255796 '#t)) + (table-set! _methods246533_ __tmp256997 '#t)) (for-each - (lambda (_g246185246187_) + (lambda (_g247383247385_) (let () (declare (not safe)) (gxc#compile-e__3 - _g246185246187_ - _self245334_ - _methods245335_ - _slots245336_ - _class-check245337_ - _struct-check245338_ - _struct-assert245339_))) - (let ((__tmp255797 - (lambda (_g246189246192_ _g246190246194_) + _g247383247385_ + _self246532_ + _methods246533_ + _slots246534_ + _class-check246535_ + _struct-check246536_ + _struct-assert246537_))) + (let ((__tmp256998 + (lambda (_g247387247390_ _g247388247392_) (let () (declare (not safe)) - (cons _g246189246192_ _g246190246194_))))) + (cons _g247387247390_ _g247388247392_))))) (declare (not safe)) - (foldr1 __tmp255797 '() _L246141_))))) - (___kont254447254448_ - (lambda (_L245974_ _L245975_ _L245976_) - (let ((__tmp255798 - (let () (declare (not safe)) (gx#stx-e _L245974_)))) + (foldr1 __tmp256998 '() _L247339_))))) + (___kont255645255646_ + (lambda (_L247172_ _L247173_ _L247174_) + (let ((__tmp256999 + (let () (declare (not safe)) (gx#stx-e _L247172_)))) (declare (not safe)) - (table-set! _slots245336_ __tmp255798 '#t)))) - (___kont254449254450_ - (lambda (_L245851_ _L245852_ _L245853_ _L245854_) - (let ((__tmp255799 - (let () (declare (not safe)) (gx#stx-e _L245852_)))) + (table-set! _slots246534_ __tmp256999 '#t)))) + (___kont255647255648_ + (lambda (_L247049_ _L247050_ _L247051_ _L247052_) + (let ((__tmp257000 + (let () (declare (not safe)) (gx#stx-e _L247050_)))) (declare (not safe)) - (table-set! _slots245336_ __tmp255799 '#t)) + (table-set! _slots246534_ __tmp257000 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L245851_ - _self245334_ - _methods245335_ - _slots245336_ - _class-check245337_ - _struct-check245338_ - _struct-assert245339_)))) - (___kont254451254452_ - (lambda (_L245735_ _L245736_) - (let ((__tmp255800 + _L247049_ + _self246532_ + _methods246533_ + _slots246534_ + _class-check246535_ + _struct-check246536_ + _struct-assert246537_)))) + (___kont255649255650_ + (lambda (_L246933_ _L246934_) + (let ((__tmp257001 (##structure-ref - (let ((__tmp255801 + (let ((__tmp257002 (let () (declare (not safe)) - (gxc#identifier-symbol _L245736_)))) + (gxc#identifier-symbol _L246934_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp255801)) + (gxc#optimizer-resolve-type __tmp257002)) '2 gxc#!accessor::t '#f))) (declare (not safe)) - (table-set! _slots245336_ __tmp255800 '#t)))) - (___kont254453254454_ - (lambda (_L245645_ _L245646_ _L245647_) - (let ((__tmp255802 + (table-set! _slots246534_ __tmp257001 '#t)))) + (___kont255651255652_ + (lambda (_L246843_ _L246844_ _L246845_) + (let ((__tmp257003 (##structure-ref - (let ((__tmp255803 + (let ((__tmp257004 (let () (declare (not safe)) - (gxc#identifier-symbol _L245647_)))) + (gxc#identifier-symbol _L246845_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp255803)) + (gxc#optimizer-resolve-type __tmp257004)) '2 gxc#!mutator::t '#f))) (declare (not safe)) - (table-set! _slots245336_ __tmp255802 '#t)) + (table-set! _slots246534_ __tmp257003 '#t)) (let () (declare (not safe)) (gxc#compile-e__3 - _L245645_ - _self245334_ - _methods245335_ - _slots245336_ - _class-check245337_ - _struct-check245338_ - _struct-assert245339_)))) - (___kont254455254456_ + _L246843_ + _self246532_ + _methods246533_ + _slots246534_ + _class-check246535_ + _struct-check246536_ + _struct-assert246537_)))) + (___kont255653255654_ (lambda () (let () (declare (not safe)) (gxc#collect-operands - _stx245333_ - _self245334_ - _methods245335_ - _slots245336_ - _class-check245337_ - _struct-check245338_ - _struct-assert245339_))))) - (let* ((___match254936254937_ - (lambda (_e245543245581_ - _hd245542245584_ - _tl245541245586_ - _e245546245589_ - _hd245545245592_ - _tl245544245594_ - _e245549245597_ - _hd245548245600_ - _tl245547245602_ - _e245552245605_ - _hd245551245608_ - _tl245550245610_ - _e245555245613_ - _hd245554245616_ - _tl245553245618_ - _e245558245621_ - _hd245557245624_ - _tl245556245626_ - _e245561245629_ - _hd245560245632_ - _tl245559245634_ - _e245564245637_ - _hd245563245640_ - _tl245562245642_) - (let ((_L245645_ _hd245563245640_) - (_L245646_ _hd245560245632_) - (_L245647_ _hd245551245608_)) - (if (and (let ((__tmp255804 - (let ((__tmp255805 + _stx246531_ + _self246532_ + _methods246533_ + _slots246534_ + _class-check246535_ + _struct-check246536_ + _struct-assert246537_))))) + (let* ((___match256134256135_ + (lambda (_e246741246779_ + _hd246740246782_ + _tl246739246784_ + _e246744246787_ + _hd246743246790_ + _tl246742246792_ + _e246747246795_ + _hd246746246798_ + _tl246745246800_ + _e246750246803_ + _hd246749246806_ + _tl246748246808_ + _e246753246811_ + _hd246752246814_ + _tl246751246816_ + _e246756246819_ + _hd246755246822_ + _tl246754246824_ + _e246759246827_ + _hd246758246830_ + _tl246757246832_ + _e246762246835_ + _hd246761246838_ + _tl246760246840_) + (let ((_L246843_ _hd246761246838_) + (_L246844_ _hd246758246830_) + (_L246845_ _hd246749246806_)) + (if (and (let ((__tmp257005 + (let ((__tmp257006 (let () (declare (not safe)) (gxc#identifier-symbol - _L245647_)))) + _L246845_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp255805)))) + __tmp257006)))) (declare (not safe)) (##structure-instance-of? - __tmp255804 + __tmp257005 'gxc#!mutator::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L245646_ - _self245334_))) - (___kont254453254454_ - _L245645_ - _L245646_ - _L245647_) - (___kont254455254456_))))) - (___match254934254935_ - (lambda (_e245543245581_ - _hd245542245584_ - _tl245541245586_ - _e245546245589_ - _hd245545245592_ - _tl245544245594_ - _e245549245597_ - _hd245548245600_ - _tl245547245602_ - _e245552245605_ - _hd245551245608_ - _tl245550245610_ - _e245555245613_ - _hd245554245616_ - _tl245553245618_ - _e245558245621_ - _hd245557245624_ - _tl245556245626_ - _e245561245629_ - _hd245560245632_ - _tl245559245634_ - _e245564245637_ - _hd245563245640_ - _tl245562245642_) + _L246844_ + _self246532_))) + (___kont255651255652_ + _L246843_ + _L246844_ + _L246845_) + (___kont255653255654_))))) + (___match256132256133_ + (lambda (_e246741246779_ + _hd246740246782_ + _tl246739246784_ + _e246744246787_ + _hd246743246790_ + _tl246742246792_ + _e246747246795_ + _hd246746246798_ + _tl246745246800_ + _e246750246803_ + _hd246749246806_ + _tl246748246808_ + _e246753246811_ + _hd246752246814_ + _tl246751246816_ + _e246756246819_ + _hd246755246822_ + _tl246754246824_ + _e246759246827_ + _hd246758246830_ + _tl246757246832_ + _e246762246835_ + _hd246761246838_ + _tl246760246840_) (if (let () (declare (not safe)) - (gx#stx-null? _tl245562245642_)) - (___match254936254937_ - _e245543245581_ - _hd245542245584_ - _tl245541245586_ - _e245546245589_ - _hd245545245592_ - _tl245544245594_ - _e245549245597_ - _hd245548245600_ - _tl245547245602_ - _e245552245605_ - _hd245551245608_ - _tl245550245610_ - _e245555245613_ - _hd245554245616_ - _tl245553245618_ - _e245558245621_ - _hd245557245624_ - _tl245556245626_ - _e245561245629_ - _hd245560245632_ - _tl245559245634_ - _e245564245637_ - _hd245563245640_ - _tl245562245642_) - (___kont254455254456_)))) - (___match254928254929_ - (lambda (_e245543245581_ - _hd245542245584_ - _tl245541245586_ - _e245546245589_ - _hd245545245592_ - _tl245544245594_ - _e245549245597_ - _hd245548245600_ - _tl245547245602_ - _e245552245605_ - _hd245551245608_ - _tl245550245610_ - _e245555245613_ - _hd245554245616_ - _tl245553245618_ - _e245558245621_ - _hd245557245624_ - _tl245556245626_ - _e245561245629_ - _hd245560245632_ - _tl245559245634_) + (gx#stx-null? _tl246760246840_)) + (___match256134256135_ + _e246741246779_ + _hd246740246782_ + _tl246739246784_ + _e246744246787_ + _hd246743246790_ + _tl246742246792_ + _e246747246795_ + _hd246746246798_ + _tl246745246800_ + _e246750246803_ + _hd246749246806_ + _tl246748246808_ + _e246753246811_ + _hd246752246814_ + _tl246751246816_ + _e246756246819_ + _hd246755246822_ + _tl246754246824_ + _e246759246827_ + _hd246758246830_ + _tl246757246832_ + _e246762246835_ + _hd246761246838_ + _tl246760246840_) + (___kont255653255654_)))) + (___match256126256127_ + (lambda (_e246741246779_ + _hd246740246782_ + _tl246739246784_ + _e246744246787_ + _hd246743246790_ + _tl246742246792_ + _e246747246795_ + _hd246746246798_ + _tl246745246800_ + _e246750246803_ + _hd246749246806_ + _tl246748246808_ + _e246753246811_ + _hd246752246814_ + _tl246751246816_ + _e246756246819_ + _hd246755246822_ + _tl246754246824_ + _e246759246827_ + _hd246758246830_ + _tl246757246832_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245553245618_)) - (let ((_e245564245637_ + (gx#stx-pair? _tl246751246816_)) + (let ((_e246762246835_ (let () (declare (not safe)) - (gx#stx-e _tl245553245618_)))) - (let ((_tl245562245642_ + (gx#stx-e _tl246751246816_)))) + (let ((_tl246760246840_ (let () (declare (not safe)) - (##cdr _e245564245637_))) - (_hd245563245640_ + (##cdr _e246762246835_))) + (_hd246761246838_ (let () (declare (not safe)) - (##car _e245564245637_)))) + (##car _e246762246835_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245562245642_)) - (___match254936254937_ - _e245543245581_ - _hd245542245584_ - _tl245541245586_ - _e245546245589_ - _hd245545245592_ - _tl245544245594_ - _e245549245597_ - _hd245548245600_ - _tl245547245602_ - _e245552245605_ - _hd245551245608_ - _tl245550245610_ - _e245555245613_ - _hd245554245616_ - _tl245553245618_ - _e245558245621_ - _hd245557245624_ - _tl245556245626_ - _e245561245629_ - _hd245560245632_ - _tl245559245634_ - _e245564245637_ - _hd245563245640_ - _tl245562245642_) - (___kont254455254456_)))) - (___kont254455254456_)))) - (___match254874254875_ - (lambda (_e245519245679_ - _hd245518245682_ - _tl245517245684_ - _e245522245687_ - _hd245521245690_ - _tl245520245692_ - _e245525245695_ - _hd245524245698_ - _tl245523245700_ - _e245528245703_ - _hd245527245706_ - _tl245526245708_ - _e245531245711_ - _hd245530245714_ - _tl245529245716_ - _e245534245719_ - _hd245533245722_ - _tl245532245724_ - _e245537245727_ - _hd245536245730_ - _tl245535245732_) - (let ((_L245735_ _hd245536245730_) - (_L245736_ _hd245527245706_)) - (if (and (let ((__tmp255806 - (let ((__tmp255807 + (gx#stx-null? _tl246760246840_)) + (___match256134256135_ + _e246741246779_ + _hd246740246782_ + _tl246739246784_ + _e246744246787_ + _hd246743246790_ + _tl246742246792_ + _e246747246795_ + _hd246746246798_ + _tl246745246800_ + _e246750246803_ + _hd246749246806_ + _tl246748246808_ + _e246753246811_ + _hd246752246814_ + _tl246751246816_ + _e246756246819_ + _hd246755246822_ + _tl246754246824_ + _e246759246827_ + _hd246758246830_ + _tl246757246832_ + _e246762246835_ + _hd246761246838_ + _tl246760246840_) + (___kont255653255654_)))) + (___kont255653255654_)))) + (___match256072256073_ + (lambda (_e246717246877_ + _hd246716246880_ + _tl246715246882_ + _e246720246885_ + _hd246719246888_ + _tl246718246890_ + _e246723246893_ + _hd246722246896_ + _tl246721246898_ + _e246726246901_ + _hd246725246904_ + _tl246724246906_ + _e246729246909_ + _hd246728246912_ + _tl246727246914_ + _e246732246917_ + _hd246731246920_ + _tl246730246922_ + _e246735246925_ + _hd246734246928_ + _tl246733246930_) + (let ((_L246933_ _hd246734246928_) + (_L246934_ _hd246725246904_)) + (if (and (let ((__tmp257007 + (let ((__tmp257008 (let () (declare (not safe)) (gxc#identifier-symbol - _L245736_)))) + _L246934_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp255807)))) + __tmp257008)))) (declare (not safe)) (##structure-instance-of? - __tmp255806 + __tmp257007 'gxc#!accessor::t)) (let () (declare (not safe)) (gx#free-identifier=? - _L245735_ - _self245334_))) - (___kont254451254452_ _L245735_ _L245736_) - (___kont254455254456_))))) - (___match254872254873_ - (lambda (_e245519245679_ - _hd245518245682_ - _tl245517245684_ - _e245522245687_ - _hd245521245690_ - _tl245520245692_ - _e245525245695_ - _hd245524245698_ - _tl245523245700_ - _e245528245703_ - _hd245527245706_ - _tl245526245708_ - _e245531245711_ - _hd245530245714_ - _tl245529245716_ - _e245534245719_ - _hd245533245722_ - _tl245532245724_ - _e245537245727_ - _hd245536245730_ - _tl245535245732_) + _L246933_ + _self246532_))) + (___kont255649255650_ _L246933_ _L246934_) + (___kont255653255654_))))) + (___match256070256071_ + (lambda (_e246717246877_ + _hd246716246880_ + _tl246715246882_ + _e246720246885_ + _hd246719246888_ + _tl246718246890_ + _e246723246893_ + _hd246722246896_ + _tl246721246898_ + _e246726246901_ + _hd246725246904_ + _tl246724246906_ + _e246729246909_ + _hd246728246912_ + _tl246727246914_ + _e246732246917_ + _hd246731246920_ + _tl246730246922_ + _e246735246925_ + _hd246734246928_ + _tl246733246930_) (if (let () (declare (not safe)) - (gx#stx-null? _tl245529245716_)) - (___match254874254875_ - _e245519245679_ - _hd245518245682_ - _tl245517245684_ - _e245522245687_ - _hd245521245690_ - _tl245520245692_ - _e245525245695_ - _hd245524245698_ - _tl245523245700_ - _e245528245703_ - _hd245527245706_ - _tl245526245708_ - _e245531245711_ - _hd245530245714_ - _tl245529245716_ - _e245534245719_ - _hd245533245722_ - _tl245532245724_ - _e245537245727_ - _hd245536245730_ - _tl245535245732_) - (___match254928254929_ - _e245519245679_ - _hd245518245682_ - _tl245517245684_ - _e245522245687_ - _hd245521245690_ - _tl245520245692_ - _e245525245695_ - _hd245524245698_ - _tl245523245700_ - _e245528245703_ - _hd245527245706_ - _tl245526245708_ - _e245531245711_ - _hd245530245714_ - _tl245529245716_ - _e245534245719_ - _hd245533245722_ - _tl245532245724_ - _e245537245727_ - _hd245536245730_ - _tl245535245732_)))) - (___match254818254819_ - (lambda (_e245484245763_ - _hd245483245766_ - _tl245482245768_ - _e245487245771_ - _hd245486245774_ - _tl245485245776_ - _e245490245779_ - _hd245489245782_ - _tl245488245784_ - _e245493245787_ - _hd245492245790_ - _tl245491245792_ - _e245496245795_ - _hd245495245798_ - _tl245494245800_ - _e245499245803_ - _hd245498245806_ - _tl245497245808_ - _e245502245811_ - _hd245501245814_ - _tl245500245816_ - _e245505245819_ - _hd245504245822_ - _tl245503245824_ - _e245508245827_ - _hd245507245830_ - _tl245506245832_ - _e245511245835_ - _hd245510245838_ - _tl245509245840_ - _e245514245843_ - _hd245513245846_ - _tl245512245848_) - (let ((_L245851_ _hd245513245846_) - (_L245852_ _hd245510245838_) - (_L245853_ _hd245501245814_) - (_L245854_ _hd245492245790_)) + (gx#stx-null? _tl246727246914_)) + (___match256072256073_ + _e246717246877_ + _hd246716246880_ + _tl246715246882_ + _e246720246885_ + _hd246719246888_ + _tl246718246890_ + _e246723246893_ + _hd246722246896_ + _tl246721246898_ + _e246726246901_ + _hd246725246904_ + _tl246724246906_ + _e246729246909_ + _hd246728246912_ + _tl246727246914_ + _e246732246917_ + _hd246731246920_ + _tl246730246922_ + _e246735246925_ + _hd246734246928_ + _tl246733246930_) + (___match256126256127_ + _e246717246877_ + _hd246716246880_ + _tl246715246882_ + _e246720246885_ + _hd246719246888_ + _tl246718246890_ + _e246723246893_ + _hd246722246896_ + _tl246721246898_ + _e246726246901_ + _hd246725246904_ + _tl246724246906_ + _e246729246909_ + _hd246728246912_ + _tl246727246914_ + _e246732246917_ + _hd246731246920_ + _tl246730246922_ + _e246735246925_ + _hd246734246928_ + _tl246733246930_)))) + (___match256016256017_ + (lambda (_e246682246961_ + _hd246681246964_ + _tl246680246966_ + _e246685246969_ + _hd246684246972_ + _tl246683246974_ + _e246688246977_ + _hd246687246980_ + _tl246686246982_ + _e246691246985_ + _hd246690246988_ + _tl246689246990_ + _e246694246993_ + _hd246693246996_ + _tl246692246998_ + _e246697247001_ + _hd246696247004_ + _tl246695247006_ + _e246700247009_ + _hd246699247012_ + _tl246698247014_ + _e246703247017_ + _hd246702247020_ + _tl246701247022_ + _e246706247025_ + _hd246705247028_ + _tl246704247030_ + _e246709247033_ + _hd246708247036_ + _tl246707247038_ + _e246712247041_ + _hd246711247044_ + _tl246710247046_) + (let ((_L247049_ _hd246711247044_) + (_L247050_ _hd246708247036_) + (_L247051_ _hd246699247012_) + (_L247052_ _hd246690246988_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L245854_ + _L247052_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L245854_ + _L247052_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L245853_ - _self245334_))) - (___kont254449254450_ - _L245851_ - _L245852_ - _L245853_ - _L245854_) - (___kont254455254456_))))) - (___match254810254811_ - (lambda (_e245484245763_ - _hd245483245766_ - _tl245482245768_ - _e245487245771_ - _hd245486245774_ - _tl245485245776_ - _e245490245779_ - _hd245489245782_ - _tl245488245784_ - _e245493245787_ - _hd245492245790_ - _tl245491245792_ - _e245496245795_ - _hd245495245798_ - _tl245494245800_ - _e245499245803_ - _hd245498245806_ - _tl245497245808_ - _e245502245811_ - _hd245501245814_ - _tl245500245816_ - _e245505245819_ - _hd245504245822_ - _tl245503245824_ - _e245508245827_ - _hd245507245830_ - _tl245506245832_ - _e245511245835_ - _hd245510245838_ - _tl245509245840_) + _L247051_ + _self246532_))) + (___kont255647255648_ + _L247049_ + _L247050_ + _L247051_ + _L247052_) + (___kont255653255654_))))) + (___match256008256009_ + (lambda (_e246682246961_ + _hd246681246964_ + _tl246680246966_ + _e246685246969_ + _hd246684246972_ + _tl246683246974_ + _e246688246977_ + _hd246687246980_ + _tl246686246982_ + _e246691246985_ + _hd246690246988_ + _tl246689246990_ + _e246694246993_ + _hd246693246996_ + _tl246692246998_ + _e246697247001_ + _hd246696247004_ + _tl246695247006_ + _e246700247009_ + _hd246699247012_ + _tl246698247014_ + _e246703247017_ + _hd246702247020_ + _tl246701247022_ + _e246706247025_ + _hd246705247028_ + _tl246704247030_ + _e246709247033_ + _hd246708247036_ + _tl246707247038_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245503245824_)) - (let ((_e245514245843_ + (gx#stx-pair? _tl246701247022_)) + (let ((_e246712247041_ (let () (declare (not safe)) - (gx#stx-e _tl245503245824_)))) - (let ((_tl245512245848_ + (gx#stx-e _tl246701247022_)))) + (let ((_tl246710247046_ (let () (declare (not safe)) - (##cdr _e245514245843_))) - (_hd245513245846_ + (##cdr _e246712247041_))) + (_hd246711247044_ (let () (declare (not safe)) - (##car _e245514245843_)))) + (##car _e246712247041_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245512245848_)) - (___match254818254819_ - _e245484245763_ - _hd245483245766_ - _tl245482245768_ - _e245487245771_ - _hd245486245774_ - _tl245485245776_ - _e245490245779_ - _hd245489245782_ - _tl245488245784_ - _e245493245787_ - _hd245492245790_ - _tl245491245792_ - _e245496245795_ - _hd245495245798_ - _tl245494245800_ - _e245499245803_ - _hd245498245806_ - _tl245497245808_ - _e245502245811_ - _hd245501245814_ - _tl245500245816_ - _e245505245819_ - _hd245504245822_ - _tl245503245824_ - _e245508245827_ - _hd245507245830_ - _tl245506245832_ - _e245511245835_ - _hd245510245838_ - _tl245509245840_ - _e245514245843_ - _hd245513245846_ - _tl245512245848_) - (___kont254455254456_)))) - (___match254934254935_ - _e245484245763_ - _hd245483245766_ - _tl245482245768_ - _e245487245771_ - _hd245486245774_ - _tl245485245776_ - _e245490245779_ - _hd245489245782_ - _tl245488245784_ - _e245493245787_ - _hd245492245790_ - _tl245491245792_ - _e245496245795_ - _hd245495245798_ - _tl245494245800_ - _e245499245803_ - _hd245498245806_ - _tl245497245808_ - _e245502245811_ - _hd245501245814_ - _tl245500245816_ - _e245505245819_ - _hd245504245822_ - _tl245503245824_)))) - (___match254732254733_ - (lambda (_e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_ - _e245474245958_ - _hd245473245961_ - _tl245472245963_ - _e245477245966_ - _hd245476245969_ - _tl245475245971_) - (let ((_L245974_ _hd245476245969_) - (_L245975_ _hd245467245945_) - (_L245976_ _hd245458245921_)) + (gx#stx-null? _tl246710247046_)) + (___match256016256017_ + _e246682246961_ + _hd246681246964_ + _tl246680246966_ + _e246685246969_ + _hd246684246972_ + _tl246683246974_ + _e246688246977_ + _hd246687246980_ + _tl246686246982_ + _e246691246985_ + _hd246690246988_ + _tl246689246990_ + _e246694246993_ + _hd246693246996_ + _tl246692246998_ + _e246697247001_ + _hd246696247004_ + _tl246695247006_ + _e246700247009_ + _hd246699247012_ + _tl246698247014_ + _e246703247017_ + _hd246702247020_ + _tl246701247022_ + _e246706247025_ + _hd246705247028_ + _tl246704247030_ + _e246709247033_ + _hd246708247036_ + _tl246707247038_ + _e246712247041_ + _hd246711247044_ + _tl246710247046_) + (___kont255653255654_)))) + (___match256132256133_ + _e246682246961_ + _hd246681246964_ + _tl246680246966_ + _e246685246969_ + _hd246684246972_ + _tl246683246974_ + _e246688246977_ + _hd246687246980_ + _tl246686246982_ + _e246691246985_ + _hd246690246988_ + _tl246689246990_ + _e246694246993_ + _hd246693246996_ + _tl246692246998_ + _e246697247001_ + _hd246696247004_ + _tl246695247006_ + _e246700247009_ + _hd246699247012_ + _tl246698247014_ + _e246703247017_ + _hd246702247020_ + _tl246701247022_)))) + (___match255930255931_ + (lambda (_e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_ + _e246672247156_ + _hd246671247159_ + _tl246670247161_ + _e246675247164_ + _hd246674247167_ + _tl246673247169_) + (let ((_L247172_ _hd246674247167_) + (_L247173_ _hd246665247143_) + (_L247174_ _hd246656247119_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L245976_ + _L247174_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L245976_ + _L247174_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L245975_ - _self245334_))) - (___kont254447254448_ - _L245974_ - _L245975_ - _L245976_) - (___match254936254937_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_))))) - (___match254730254731_ - (lambda (_e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_ - _e245474245958_ - _hd245473245961_ - _tl245472245963_ - _e245477245966_ - _hd245476245969_ - _tl245475245971_) + _L247173_ + _self246532_))) + (___kont255645255646_ + _L247172_ + _L247173_ + _L247174_) + (___match256134256135_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_))))) + (___match255928255929_ + (lambda (_e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_ + _e246672247156_ + _hd246671247159_ + _tl246670247161_ + _e246675247164_ + _hd246674247167_ + _tl246673247169_) (if (let () (declare (not safe)) - (gx#stx-null? _tl245469245955_)) - (___match254732254733_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_ - _e245474245958_ - _hd245473245961_ - _tl245472245963_ - _e245477245966_ - _hd245476245969_ - _tl245475245971_) - (___match254810254811_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_ - _e245474245958_ - _hd245473245961_ - _tl245472245963_ - _e245477245966_ - _hd245476245969_ - _tl245475245971_)))) - (___match254720254721_ - (lambda (_e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_ - _e245474245958_ - _hd245473245961_ - _tl245472245963_) + (gx#stx-null? _tl246667247153_)) + (___match255930255931_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_ + _e246672247156_ + _hd246671247159_ + _tl246670247161_ + _e246675247164_ + _hd246674247167_ + _tl246673247169_) + (___match256008256009_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_ + _e246672247156_ + _hd246671247159_ + _tl246670247161_ + _e246675247164_ + _hd246674247167_ + _tl246673247169_)))) + (___match255918255919_ + (lambda (_e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_ + _e246672247156_ + _hd246671247159_ + _tl246670247161_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd245473245961_)) + (gx#stx-eq? '%#quote _hd246671247159_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245472245963_)) - (let ((_e245477245966_ + (gx#stx-pair? _tl246670247161_)) + (let ((_e246675247164_ (let () (declare (not safe)) - (gx#stx-e _tl245472245963_)))) - (let ((_tl245475245971_ + (gx#stx-e _tl246670247161_)))) + (let ((_tl246673247169_ (let () (declare (not safe)) - (##cdr _e245477245966_))) - (_hd245476245969_ + (##cdr _e246675247164_))) + (_hd246674247167_ (let () (declare (not safe)) - (##car _e245477245966_)))) + (##car _e246675247164_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245475245971_)) + (gx#stx-null? _tl246673247169_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl245469245955_)) - (___match254732254733_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_ - _e245474245958_ - _hd245473245961_ - _tl245472245963_ - _e245477245966_ - _hd245476245969_ - _tl245475245971_) - (___match254810254811_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_ - _e245474245958_ - _hd245473245961_ - _tl245472245963_ - _e245477245966_ - _hd245476245969_ - _tl245475245971_)) - (___match254934254935_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_)))) - (___match254934254935_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_)) - (___match254934254935_ - _e245450245894_ - _hd245449245897_ - _tl245448245899_ - _e245453245902_ - _hd245452245905_ - _tl245451245907_ - _e245456245910_ - _hd245455245913_ - _tl245454245915_ - _e245459245918_ - _hd245458245921_ - _tl245457245923_ - _e245462245926_ - _hd245461245929_ - _tl245460245931_ - _e245465245934_ - _hd245464245937_ - _tl245463245939_ - _e245468245942_ - _hd245467245945_ - _tl245466245947_ - _e245471245950_ - _hd245470245953_ - _tl245469245955_)))) - (___match254652254653_ - (lambda (_e245399246013_ - _hd245398246016_ - _tl245397246018_ - _e245402246021_ - _hd245401246024_ - _tl245400246026_ - _e245405246029_ - _hd245404246032_ - _tl245403246034_ - _e245408246037_ - _hd245407246040_ - _tl245406246042_ - _e245411246045_ - _hd245410246048_ - _tl245409246050_ - _e245414246053_ - _hd245413246056_ - _tl245412246058_ - _e245417246061_ - _hd245416246064_ - _tl245415246066_ - _e245420246069_ - _hd245419246072_ - _tl245418246074_ - _e245423246077_ - _hd245422246080_ - _tl245421246082_ - _e245426246085_ - _hd245425246088_ - _tl245424246090_ - _e245429246093_ - _hd245428246096_ - _tl245427246098_ - _e245432246101_ - _hd245431246104_ - _tl245430246106_ - _e245435246109_ - _hd245434246112_ - _tl245433246114_ - ___splice254445254446_ - _target245436246117_ - _tl245438246119_) - (letrec ((_loop245439246122_ - (lambda (_hd245437246125_ _args245443246127_) + (gx#stx-null? _tl246667247153_)) + (___match255930255931_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_ + _e246672247156_ + _hd246671247159_ + _tl246670247161_ + _e246675247164_ + _hd246674247167_ + _tl246673247169_) + (___match256008256009_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_ + _e246672247156_ + _hd246671247159_ + _tl246670247161_ + _e246675247164_ + _hd246674247167_ + _tl246673247169_)) + (___match256132256133_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_)))) + (___match256132256133_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_)) + (___match256132256133_ + _e246648247092_ + _hd246647247095_ + _tl246646247097_ + _e246651247100_ + _hd246650247103_ + _tl246649247105_ + _e246654247108_ + _hd246653247111_ + _tl246652247113_ + _e246657247116_ + _hd246656247119_ + _tl246655247121_ + _e246660247124_ + _hd246659247127_ + _tl246658247129_ + _e246663247132_ + _hd246662247135_ + _tl246661247137_ + _e246666247140_ + _hd246665247143_ + _tl246664247145_ + _e246669247148_ + _hd246668247151_ + _tl246667247153_)))) + (___match255850255851_ + (lambda (_e246597247211_ + _hd246596247214_ + _tl246595247216_ + _e246600247219_ + _hd246599247222_ + _tl246598247224_ + _e246603247227_ + _hd246602247230_ + _tl246601247232_ + _e246606247235_ + _hd246605247238_ + _tl246604247240_ + _e246609247243_ + _hd246608247246_ + _tl246607247248_ + _e246612247251_ + _hd246611247254_ + _tl246610247256_ + _e246615247259_ + _hd246614247262_ + _tl246613247264_ + _e246618247267_ + _hd246617247270_ + _tl246616247272_ + _e246621247275_ + _hd246620247278_ + _tl246619247280_ + _e246624247283_ + _hd246623247286_ + _tl246622247288_ + _e246627247291_ + _hd246626247294_ + _tl246625247296_ + _e246630247299_ + _hd246629247302_ + _tl246628247304_ + _e246633247307_ + _hd246632247310_ + _tl246631247312_ + ___splice255643255644_ + _target246634247315_ + _tl246636247317_) + (letrec ((_loop246637247320_ + (lambda (_hd246635247323_ _args246641247325_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245437246125_)) - (let ((_e245440246130_ + (gx#stx-pair? _hd246635247323_)) + (let ((_e246638247328_ (let () (declare (not safe)) - (gx#stx-e _hd245437246125_)))) - (let ((_lp-tl245442246135_ + (gx#stx-e _hd246635247323_)))) + (let ((_lp-tl246640247333_ (let () (declare (not safe)) - (##cdr _e245440246130_))) - (_lp-hd245441246133_ + (##cdr _e246638247328_))) + (_lp-hd246639247331_ (let () (declare (not safe)) - (##car _e245440246130_)))) - (let ((__tmp255808 + (##car _e246638247328_)))) + (let ((__tmp257009 (let () (declare (not safe)) - (cons _lp-hd245441246133_ - _args245443246127_)))) + (cons _lp-hd246639247331_ + _args246641247325_)))) (declare (not safe)) - (_loop245439246122_ - _lp-tl245442246135_ - __tmp255808)))) - (let ((_args245444246138_ - (reverse _args245443246127_))) - (let ((_L246141_ _args245444246138_) - (_L246142_ _hd245434246112_) - (_L246143_ _hd245425246088_) - (_L246144_ _hd245416246064_) - (_L246145_ _hd245407246040_)) + (_loop246637247320_ + _lp-tl246640247333_ + __tmp257009)))) + (let ((_args246642247336_ + (reverse _args246641247325_))) + (let ((_L247339_ _args246642247336_) + (_L247340_ _hd246632247310_) + (_L247341_ _hd246623247286_) + (_L247342_ _hd246614247262_) + (_L247343_ _hd246605247238_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246145_ + _L247343_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246144_ + _L247342_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L246143_ - _self245334_))) - (___kont254443254444_ - _L246141_ - _L246142_ - _L246143_ - _L246144_ - _L246145_) - (___kont254455254456_)))))))) + _L247341_ + _self246532_))) + (___kont255641255642_ + _L247339_ + _L247340_ + _L247341_ + _L247342_ + _L247343_) + (___kont255653255654_)))))))) (let () (declare (not safe)) - (_loop245439246122_ _target245436246117_ '()))))) - (___match254610254611_ - (lambda (_e245399246013_ - _hd245398246016_ - _tl245397246018_ - _e245402246021_ - _hd245401246024_ - _tl245400246026_ - _e245405246029_ - _hd245404246032_ - _tl245403246034_ - _e245408246037_ - _hd245407246040_ - _tl245406246042_ - _e245411246045_ - _hd245410246048_ - _tl245409246050_ - _e245414246053_ - _hd245413246056_ - _tl245412246058_ - _e245417246061_ - _hd245416246064_ - _tl245415246066_ - _e245420246069_ - _hd245419246072_ - _tl245418246074_ - _e245423246077_ - _hd245422246080_ - _tl245421246082_) + (_loop246637247320_ _target246634247315_ '()))))) + (___match255808255809_ + (lambda (_e246597247211_ + _hd246596247214_ + _tl246595247216_ + _e246600247219_ + _hd246599247222_ + _tl246598247224_ + _e246603247227_ + _hd246602247230_ + _tl246601247232_ + _e246606247235_ + _hd246605247238_ + _tl246604247240_ + _e246609247243_ + _hd246608247246_ + _tl246607247248_ + _e246612247251_ + _hd246611247254_ + _tl246610247256_ + _e246615247259_ + _hd246614247262_ + _tl246613247264_ + _e246618247267_ + _hd246617247270_ + _tl246616247272_ + _e246621247275_ + _hd246620247278_ + _tl246619247280_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd245422246080_)) + (gx#stx-eq? '%#ref _hd246620247278_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245421246082_)) - (let ((_e245426246085_ + (gx#stx-pair? _tl246619247280_)) + (let ((_e246624247283_ (let () (declare (not safe)) - (gx#stx-e _tl245421246082_)))) - (let ((_tl245424246090_ + (gx#stx-e _tl246619247280_)))) + (let ((_tl246622247288_ (let () (declare (not safe)) - (##cdr _e245426246085_))) - (_hd245425246088_ + (##cdr _e246624247283_))) + (_hd246623247286_ (let () (declare (not safe)) - (##car _e245426246085_)))) + (##car _e246624247283_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245424246090_)) + (gx#stx-null? _tl246622247288_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245418246074_)) - (let ((_e245429246093_ + (gx#stx-pair? _tl246616247272_)) + (let ((_e246627247291_ (let () (declare (not safe)) (gx#stx-e - _tl245418246074_)))) - (let ((_tl245427246098_ + _tl246616247272_)))) + (let ((_tl246625247296_ (let () (declare (not safe)) - (##cdr _e245429246093_))) - (_hd245428246096_ + (##cdr _e246627247291_))) + (_hd246626247294_ (let () (declare (not safe)) - (##car _e245429246093_)))) + (##car _e246627247291_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd245428246096_)) - (let ((_e245432246101_ + _hd246626247294_)) + (let ((_e246630247299_ (let () (declare (not safe)) (gx#stx-e - _hd245428246096_)))) - (let ((_tl245430246106_ + _hd246626247294_)))) + (let ((_tl246628247304_ (let () (declare (not safe)) - (##cdr _e245432246101_))) - (_hd245431246104_ + (##cdr _e246630247299_))) + (_hd246629247302_ (let () (declare (not safe)) - (##car _e245432246101_)))) + (##car _e246630247299_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd245431246104_)) + _hd246629247302_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _hd245431246104_)) + (gx#stx-eq? '%#quote _hd246629247302_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245430246106_)) - (let ((_e245435246109_ + (gx#stx-pair? _tl246628247304_)) + (let ((_e246633247307_ (let () (declare (not safe)) - (gx#stx-e _tl245430246106_)))) - (let ((_tl245433246114_ + (gx#stx-e _tl246628247304_)))) + (let ((_tl246631247312_ (let () (declare (not safe)) - (##cdr _e245435246109_))) - (_hd245434246112_ + (##cdr _e246633247307_))) + (_hd246632247310_ (let () (declare (not safe)) - (##car _e245435246109_)))) + (##car _e246633247307_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245433246114_)) + (gx#stx-null? _tl246631247312_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl245427246098_)) - (let ((___splice254445254446_ + (gx#stx-pair/null? _tl246625247296_)) + (let ((___splice255643255644_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl245427246098_ + _tl246625247296_ '0)))) - (let ((_tl245438246119_ + (let ((_tl246636247317_ (let () (declare (not safe)) (##vector-ref - ___splice254445254446_ + ___splice255643255644_ '1))) - (_target245436246117_ + (_target246634247315_ (let () (declare (not safe)) (##vector-ref - ___splice254445254446_ + ___splice255643255644_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245438246119_)) - (___match254652254653_ - _e245399246013_ - _hd245398246016_ - _tl245397246018_ - _e245402246021_ - _hd245401246024_ - _tl245400246026_ - _e245405246029_ - _hd245404246032_ - _tl245403246034_ - _e245408246037_ - _hd245407246040_ - _tl245406246042_ - _e245411246045_ - _hd245410246048_ - _tl245409246050_ - _e245414246053_ - _hd245413246056_ - _tl245412246058_ - _e245417246061_ - _hd245416246064_ - _tl245415246066_ - _e245420246069_ - _hd245419246072_ - _tl245418246074_ - _e245423246077_ - _hd245422246080_ - _tl245421246082_ - _e245426246085_ - _hd245425246088_ - _tl245424246090_ - _e245429246093_ - _hd245428246096_ - _tl245427246098_ - _e245432246101_ - _hd245431246104_ - _tl245430246106_ - _e245435246109_ - _hd245434246112_ - _tl245433246114_ - ___splice254445254446_ - _target245436246117_ - _tl245438246119_) - (___kont254455254456_)))) - (___kont254455254456_)) - (___kont254455254456_)))) - (___kont254455254456_)) - (___kont254455254456_)) - (___kont254455254456_)))) + _tl246636247317_)) + (___match255850255851_ + _e246597247211_ + _hd246596247214_ + _tl246595247216_ + _e246600247219_ + _hd246599247222_ + _tl246598247224_ + _e246603247227_ + _hd246602247230_ + _tl246601247232_ + _e246606247235_ + _hd246605247238_ + _tl246604247240_ + _e246609247243_ + _hd246608247246_ + _tl246607247248_ + _e246612247251_ + _hd246611247254_ + _tl246610247256_ + _e246615247259_ + _hd246614247262_ + _tl246613247264_ + _e246618247267_ + _hd246617247270_ + _tl246616247272_ + _e246621247275_ + _hd246620247278_ + _tl246619247280_ + _e246624247283_ + _hd246623247286_ + _tl246622247288_ + _e246627247291_ + _hd246626247294_ + _tl246625247296_ + _e246630247299_ + _hd246629247302_ + _tl246628247304_ + _e246633247307_ + _hd246632247310_ + _tl246631247312_ + ___splice255643255644_ + _target246634247315_ + _tl246636247317_) + (___kont255653255654_)))) + (___kont255653255654_)) + (___kont255653255654_)))) + (___kont255653255654_)) + (___kont255653255654_)) + (___kont255653255654_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254455254456_)))) - (___match254934254935_ - _e245399246013_ - _hd245398246016_ - _tl245397246018_ - _e245402246021_ - _hd245401246024_ - _tl245400246026_ - _e245405246029_ - _hd245404246032_ - _tl245403246034_ - _e245408246037_ - _hd245407246040_ - _tl245406246042_ - _e245411246045_ - _hd245410246048_ - _tl245409246050_ - _e245414246053_ - _hd245413246056_ - _tl245412246058_ - _e245417246061_ - _hd245416246064_ - _tl245415246066_ - _e245420246069_ - _hd245419246072_ - _tl245418246074_)) - (___match254934254935_ - _e245399246013_ - _hd245398246016_ - _tl245397246018_ - _e245402246021_ - _hd245401246024_ - _tl245400246026_ - _e245405246029_ - _hd245404246032_ - _tl245403246034_ - _e245408246037_ - _hd245407246040_ - _tl245406246042_ - _e245411246045_ - _hd245410246048_ - _tl245409246050_ - _e245414246053_ - _hd245413246056_ - _tl245412246058_ - _e245417246061_ - _hd245416246064_ - _tl245415246066_ - _e245420246069_ - _hd245419246072_ - _tl245418246074_)))) - (___match254934254935_ - _e245399246013_ - _hd245398246016_ - _tl245397246018_ - _e245402246021_ - _hd245401246024_ - _tl245400246026_ - _e245405246029_ - _hd245404246032_ - _tl245403246034_ - _e245408246037_ - _hd245407246040_ - _tl245406246042_ - _e245411246045_ - _hd245410246048_ - _tl245409246050_ - _e245414246053_ - _hd245413246056_ - _tl245412246058_ - _e245417246061_ - _hd245416246064_ - _tl245415246066_ - _e245420246069_ - _hd245419246072_ - _tl245418246074_)) - (___match254720254721_ - _e245399246013_ - _hd245398246016_ - _tl245397246018_ - _e245402246021_ - _hd245401246024_ - _tl245400246026_ - _e245405246029_ - _hd245404246032_ - _tl245403246034_ - _e245408246037_ - _hd245407246040_ - _tl245406246042_ - _e245411246045_ - _hd245410246048_ - _tl245409246050_ - _e245414246053_ - _hd245413246056_ - _tl245412246058_ - _e245417246061_ - _hd245416246064_ - _tl245415246066_ - _e245420246069_ - _hd245419246072_ - _tl245418246074_ - _e245423246077_ - _hd245422246080_ - _tl245421246082_)))) - (___match254542254543_ - (lambda (_e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_ - _e245379246266_ - _hd245378246269_ - _tl245377246271_ - _e245382246274_ - _hd245381246277_ - _tl245380246279_ - ___splice254441254442_ - _target245383246282_ - _tl245385246284_) - (letrec ((_loop245386246287_ - (lambda (_hd245384246290_ _args245390246292_) + (___kont255653255654_)))) + (___match256132256133_ + _e246597247211_ + _hd246596247214_ + _tl246595247216_ + _e246600247219_ + _hd246599247222_ + _tl246598247224_ + _e246603247227_ + _hd246602247230_ + _tl246601247232_ + _e246606247235_ + _hd246605247238_ + _tl246604247240_ + _e246609247243_ + _hd246608247246_ + _tl246607247248_ + _e246612247251_ + _hd246611247254_ + _tl246610247256_ + _e246615247259_ + _hd246614247262_ + _tl246613247264_ + _e246618247267_ + _hd246617247270_ + _tl246616247272_)) + (___match256132256133_ + _e246597247211_ + _hd246596247214_ + _tl246595247216_ + _e246600247219_ + _hd246599247222_ + _tl246598247224_ + _e246603247227_ + _hd246602247230_ + _tl246601247232_ + _e246606247235_ + _hd246605247238_ + _tl246604247240_ + _e246609247243_ + _hd246608247246_ + _tl246607247248_ + _e246612247251_ + _hd246611247254_ + _tl246610247256_ + _e246615247259_ + _hd246614247262_ + _tl246613247264_ + _e246618247267_ + _hd246617247270_ + _tl246616247272_)))) + (___match256132256133_ + _e246597247211_ + _hd246596247214_ + _tl246595247216_ + _e246600247219_ + _hd246599247222_ + _tl246598247224_ + _e246603247227_ + _hd246602247230_ + _tl246601247232_ + _e246606247235_ + _hd246605247238_ + _tl246604247240_ + _e246609247243_ + _hd246608247246_ + _tl246607247248_ + _e246612247251_ + _hd246611247254_ + _tl246610247256_ + _e246615247259_ + _hd246614247262_ + _tl246613247264_ + _e246618247267_ + _hd246617247270_ + _tl246616247272_)) + (___match255918255919_ + _e246597247211_ + _hd246596247214_ + _tl246595247216_ + _e246600247219_ + _hd246599247222_ + _tl246598247224_ + _e246603247227_ + _hd246602247230_ + _tl246601247232_ + _e246606247235_ + _hd246605247238_ + _tl246604247240_ + _e246609247243_ + _hd246608247246_ + _tl246607247248_ + _e246612247251_ + _hd246611247254_ + _tl246610247256_ + _e246615247259_ + _hd246614247262_ + _tl246613247264_ + _e246618247267_ + _hd246617247270_ + _tl246616247272_ + _e246621247275_ + _hd246620247278_ + _tl246619247280_)))) + (___match255740255741_ + (lambda (_e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_ + _e246577247464_ + _hd246576247467_ + _tl246575247469_ + _e246580247472_ + _hd246579247475_ + _tl246578247477_ + ___splice255639255640_ + _target246581247480_ + _tl246583247482_) + (letrec ((_loop246584247485_ + (lambda (_hd246582247488_ _args246588247490_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245384246290_)) - (let ((_e245387246295_ + (gx#stx-pair? _hd246582247488_)) + (let ((_e246585247493_ (let () (declare (not safe)) - (gx#stx-e _hd245384246290_)))) - (let ((_lp-tl245389246300_ + (gx#stx-e _hd246582247488_)))) + (let ((_lp-tl246587247498_ (let () (declare (not safe)) - (##cdr _e245387246295_))) - (_lp-hd245388246298_ + (##cdr _e246585247493_))) + (_lp-hd246586247496_ (let () (declare (not safe)) - (##car _e245387246295_)))) - (let ((__tmp255809 + (##car _e246585247493_)))) + (let ((__tmp257010 (let () (declare (not safe)) - (cons _lp-hd245388246298_ - _args245390246292_)))) + (cons _lp-hd246586247496_ + _args246588247490_)))) (declare (not safe)) - (_loop245386246287_ - _lp-tl245389246300_ - __tmp255809)))) - (let ((_args245391246303_ - (reverse _args245390246292_))) - (let ((_L246306_ _args245391246303_) - (_L246307_ _hd245381246277_) - (_L246308_ _hd245372246253_) - (_L246309_ _hd245363246229_)) + (_loop246584247485_ + _lp-tl246587247498_ + __tmp257010)))) + (let ((_args246589247501_ + (reverse _args246588247490_))) + (let ((_L247504_ _args246589247501_) + (_L247505_ _hd246579247475_) + (_L247506_ _hd246570247451_) + (_L247507_ _hd246561247427_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L246309_ + _L247507_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L246308_ - _self245334_))) - (___kont254439254440_ - _L246306_ - _L246307_ - _L246308_ - _L246309_) - (___match254730254731_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_ - _e245379246266_ - _hd245378246269_ - _tl245377246271_ - _e245382246274_ - _hd245381246277_ - _tl245380246279_)))))))) + _L247506_ + _self246532_))) + (___kont255637255638_ + _L247504_ + _L247505_ + _L247506_ + _L247507_) + (___match255928255929_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_ + _e246577247464_ + _hd246576247467_ + _tl246575247469_ + _e246580247472_ + _hd246579247475_ + _tl246578247477_)))))))) (let () (declare (not safe)) - (_loop245386246287_ _target245383246282_ '())))))) + (_loop246584247485_ _target246581247480_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx254437254438_)) - (let ((_e245355246202_ + (gx#stx-pair? ___stx255635255636_)) + (let ((_e246553247400_ (let () (declare (not safe)) - (gx#stx-e ___stx254437254438_)))) - (let ((_tl245353246207_ + (gx#stx-e ___stx255635255636_)))) + (let ((_tl246551247405_ (let () (declare (not safe)) - (##cdr _e245355246202_))) - (_hd245354246205_ + (##cdr _e246553247400_))) + (_hd246552247403_ (let () (declare (not safe)) - (##car _e245355246202_)))) + (##car _e246553247400_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245353246207_)) - (let ((_e245358246210_ + (gx#stx-pair? _tl246551247405_)) + (let ((_e246556247408_ (let () (declare (not safe)) - (gx#stx-e _tl245353246207_)))) - (let ((_tl245356246215_ + (gx#stx-e _tl246551247405_)))) + (let ((_tl246554247413_ (let () (declare (not safe)) - (##cdr _e245358246210_))) - (_hd245357246213_ + (##cdr _e246556247408_))) + (_hd246555247411_ (let () (declare (not safe)) - (##car _e245358246210_)))) + (##car _e246556247408_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245357246213_)) - (let ((_e245361246218_ + (gx#stx-pair? _hd246555247411_)) + (let ((_e246559247416_ (let () (declare (not safe)) - (gx#stx-e _hd245357246213_)))) - (let ((_tl245359246223_ + (gx#stx-e _hd246555247411_)))) + (let ((_tl246557247421_ (let () (declare (not safe)) - (##cdr _e245361246218_))) - (_hd245360246221_ + (##cdr _e246559247416_))) + (_hd246558247419_ (let () (declare (not safe)) - (##car _e245361246218_)))) + (##car _e246559247416_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245360246221_)) + (gx#identifier? _hd246558247419_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245360246221_)) + _hd246558247419_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245359246223_)) - (let ((_e245364246226_ + _tl246557247421_)) + (let ((_e246562247424_ (let () (declare (not safe)) (gx#stx-e - _tl245359246223_)))) - (let ((_tl245362246231_ + _tl246557247421_)))) + (let ((_tl246560247429_ (let () (declare (not safe)) - (##cdr _e245364246226_))) - (_hd245363246229_ + (##cdr _e246562247424_))) + (_hd246561247427_ (let () (declare (not safe)) - (##car _e245364246226_)))) + (##car _e246562247424_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245362246231_)) + _tl246560247429_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl245356246215_)) - (let ((_e245367246234_ + (gx#stx-pair? _tl246554247413_)) + (let ((_e246565247432_ (let () (declare (not safe)) - (gx#stx-e _tl245356246215_)))) - (let ((_tl245365246239_ + (gx#stx-e _tl246554247413_)))) + (let ((_tl246563247437_ (let () (declare (not safe)) - (##cdr _e245367246234_))) - (_hd245366246237_ + (##cdr _e246565247432_))) + (_hd246564247435_ (let () (declare (not safe)) - (##car _e245367246234_)))) + (##car _e246565247432_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245366246237_)) - (let ((_e245370246242_ + (gx#stx-pair? _hd246564247435_)) + (let ((_e246568247440_ (let () (declare (not safe)) - (gx#stx-e _hd245366246237_)))) - (let ((_tl245368246247_ + (gx#stx-e _hd246564247435_)))) + (let ((_tl246566247445_ (let () (declare (not safe)) - (##cdr _e245370246242_))) - (_hd245369246245_ + (##cdr _e246568247440_))) + (_hd246567247443_ (let () (declare (not safe)) - (##car _e245370246242_)))) + (##car _e246568247440_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245369246245_)) + (gx#identifier? _hd246567247443_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd245369246245_)) + _hd246567247443_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245368246247_)) - (let ((_e245373246250_ + _tl246566247445_)) + (let ((_e246571247448_ (let () (declare (not safe)) (gx#stx-e - _tl245368246247_)))) - (let ((_tl245371246255_ + _tl246566247445_)))) + (let ((_tl246569247453_ (let () (declare (not safe)) - (##cdr _e245373246250_))) - (_hd245372246253_ + (##cdr _e246571247448_))) + (_hd246570247451_ (let () (declare (not safe)) - (##car _e245373246250_)))) + (##car _e246571247448_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245371246255_)) + _tl246569247453_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl245365246239_)) - (let ((_e245376246258_ + _tl246563247437_)) + (let ((_e246574247456_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl245365246239_)))) - (let ((_tl245374246263_ + (gx#stx-e _tl246563247437_)))) + (let ((_tl246572247461_ (let () (declare (not safe)) - (##cdr _e245376246258_))) - (_hd245375246261_ + (##cdr _e246574247456_))) + (_hd246573247459_ (let () (declare (not safe)) - (##car _e245376246258_)))) + (##car _e246574247456_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd245375246261_)) - (let ((_e245379246266_ + (gx#stx-pair? _hd246573247459_)) + (let ((_e246577247464_ (let () (declare (not safe)) - (gx#stx-e _hd245375246261_)))) - (let ((_tl245377246271_ + (gx#stx-e _hd246573247459_)))) + (let ((_tl246575247469_ (let () (declare (not safe)) - (##cdr _e245379246266_))) - (_hd245378246269_ + (##cdr _e246577247464_))) + (_hd246576247467_ (let () (declare (not safe)) - (##car _e245379246266_)))) + (##car _e246577247464_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd245378246269_)) + (gx#identifier? _hd246576247467_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd245378246269_)) + (gx#stx-eq? '%#quote _hd246576247467_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl245377246271_)) - (let ((_e245382246274_ + (gx#stx-pair? _tl246575247469_)) + (let ((_e246580247472_ (let () (declare (not safe)) (gx#stx-e - _tl245377246271_)))) - (let ((_tl245380246279_ + _tl246575247469_)))) + (let ((_tl246578247477_ (let () (declare (not safe)) - (##cdr _e245382246274_))) - (_hd245381246277_ + (##cdr _e246580247472_))) + (_hd246579247475_ (let () (declare (not safe)) - (##car _e245382246274_)))) + (##car _e246580247472_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl245380246279_)) + _tl246578247477_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl245374246263_)) - (let ((___splice254441254442_ + _tl246572247461_)) + (let ((___splice255639255640_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl245374246263_ '0)))) - (let ((_tl245385246284_ + (gx#syntax-split-splice _tl246572247461_ '0)))) + (let ((_tl246583247482_ (let () (declare (not safe)) - (##vector-ref ___splice254441254442_ '1))) - (_target245383246282_ + (##vector-ref ___splice255639255640_ '1))) + (_target246581247480_ (let () (declare (not safe)) - (##vector-ref ___splice254441254442_ '0)))) + (##vector-ref ___splice255639255640_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl245385246284_)) - (___match254542254543_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_ - _e245379246266_ - _hd245378246269_ - _tl245377246271_ - _e245382246274_ - _hd245381246277_ - _tl245380246279_ - ___splice254441254442_ - _target245383246282_ - _tl245385246284_) - (___match254730254731_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_ - _e245379246266_ - _hd245378246269_ - _tl245377246271_ - _e245382246274_ - _hd245381246277_ - _tl245380246279_)))) - (___match254730254731_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_ - _e245379246266_ - _hd245378246269_ - _tl245377246271_ - _e245382246274_ - _hd245381246277_ - _tl245380246279_)) + (gx#stx-null? _tl246583247482_)) + (___match255740255741_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_ + _e246577247464_ + _hd246576247467_ + _tl246575247469_ + _e246580247472_ + _hd246579247475_ + _tl246578247477_ + ___splice255639255640_ + _target246581247480_ + _tl246583247482_) + (___match255928255929_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_ + _e246577247464_ + _hd246576247467_ + _tl246575247469_ + _e246580247472_ + _hd246579247475_ + _tl246578247477_)))) + (___match255928255929_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_ + _e246577247464_ + _hd246576247467_ + _tl246575247469_ + _e246580247472_ + _hd246579247475_ + _tl246578247477_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match254934254935_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_)))) - (___match254934254935_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_)) - (___match254610254611_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_ - _e245379246266_ - _hd245378246269_ - _tl245377246271_)) - (___match254934254935_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_)))) - (___match254934254935_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_ - _e245376246258_ - _hd245375246261_ - _tl245374246263_)))) - (___match254872254873_ - _e245355246202_ - _hd245354246205_ - _tl245353246207_ - _e245358246210_ - _hd245357246213_ - _tl245356246215_ - _e245361246218_ - _hd245360246221_ - _tl245359246223_ - _e245364246226_ - _hd245363246229_ - _tl245362246231_ - _e245367246234_ - _hd245366246237_ - _tl245365246239_ - _e245370246242_ - _hd245369246245_ - _tl245368246247_ - _e245373246250_ - _hd245372246253_ - _tl245371246255_)) - (___kont254455254456_)))) + (___match256132256133_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_)))) + (___match256132256133_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_)) + (___match255808255809_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_ + _e246577247464_ + _hd246576247467_ + _tl246575247469_)) + (___match256132256133_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_)))) + (___match256132256133_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_ + _e246574247456_ + _hd246573247459_ + _tl246572247461_)))) + (___match256070256071_ + _e246553247400_ + _hd246552247403_ + _tl246551247405_ + _e246556247408_ + _hd246555247411_ + _tl246554247413_ + _e246559247416_ + _hd246558247419_ + _tl246557247421_ + _e246562247424_ + _hd246561247427_ + _tl246560247429_ + _e246565247432_ + _hd246564247435_ + _tl246563247437_ + _e246568247440_ + _hd246567247443_ + _tl246566247445_ + _e246571247448_ + _hd246570247451_ + _tl246569247453_)) + (___kont255653255654_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254455254456_)) - (___kont254455254456_)) - (___kont254455254456_)))) - (___kont254455254456_)))) - (___kont254455254456_)) - (___kont254455254456_)))) + (___kont255653255654_)) + (___kont255653255654_)) + (___kont255653255654_)))) + (___kont255653255654_)))) + (___kont255653255654_)) + (___kont255653255654_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254455254456_)) - (___kont254455254456_)) - (___kont254455254456_)))) - (___kont254455254456_)))) - (___kont254455254456_)))) - (___kont254455254456_))))))) + (___kont255653255654_)) + (___kont255653255654_)) + (___kont255653255654_)))) + (___kont255653255654_)))) + (___kont255653255654_)))) + (___kont255653255654_))))))) (define gxc#subst-object-refs-call% - (lambda (_stx244279_ - _self244280_ - _$t244281_ - _methods244282_ - _slots244283_ - _class-check244284_ - _struct-check244285_ - _struct-assert244286_) - (letrec ((_force-e244288_ - (lambda (_what245331_) - (let ((__tmp255810 - (let ((__tmp255814 - (let ((__tmp255815 + (lambda (_stx245477_ + _self245478_ + _$t245479_ + _methods245480_ + _slots245481_ + _class-check245482_ + _struct-check245483_ + _struct-assert245484_) + (letrec ((_force-e245486_ + (lambda (_what246529_) + (let ((__tmp257011 + (let ((__tmp257015 + (let ((__tmp257016 (let () (declare (not safe)) (cons 'force '())))) (declare (not safe)) - (cons '%#ref __tmp255815))) - (__tmp255811 - (let ((__tmp255812 - (let ((__tmp255813 + (cons '%#ref __tmp257016))) + (__tmp257012 + (let ((__tmp257013 + (let ((__tmp257014 (let () (declare (not safe)) - (cons _what245331_ '())))) + (cons _what246529_ '())))) (declare (not safe)) - (cons '%#ref __tmp255813)))) + (cons '%#ref __tmp257014)))) (declare (not safe)) - (cons __tmp255812 '())))) + (cons __tmp257013 '())))) (declare (not safe)) - (cons __tmp255814 __tmp255811)))) + (cons __tmp257015 __tmp257012)))) (declare (not safe)) - (cons '%#call __tmp255810))))) - (let* ((___stx254939254940_ _stx244279_) - (_g244296244518_ + (cons '%#call __tmp257011))))) + (let* ((___stx256137256138_ _stx245477_) + (_g245494245716_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx254939254940_))))) - (let ((___kont254941254942_ - (lambda (_L245277_ _L245278_ _L245279_ _L245280_) - (let ((_$method245325_ - (let ((__tmp255816 + ___stx256137256138_))))) + (let ((___kont256139256140_ + (lambda (_L246475_ _L246476_ _L246477_ _L246478_) + (let ((_$method246523_ + (let ((__tmp257017 (let () (declare (not safe)) - (gx#stx-e _L245278_)))) + (gx#stx-e _L246476_)))) (declare (not safe)) - (table-ref _methods244282_ __tmp255816))) - (_args245326_ - (map (lambda (_g245313245315_) + (table-ref _methods245480_ __tmp257017))) + (_args246524_ + (map (lambda (_g246511246513_) (let () (declare (not safe)) (gxc#compile-e__3 - _g245313245315_ - _self244280_ - _$t244281_ - _methods244282_ - _slots244283_ - _class-check244284_ - _struct-check244285_ - _struct-assert244286_))) - (let ((__tmp255817 - (lambda (_g245317245320_ - _g245318245322_) + _g246511246513_ + _self245478_ + _$t245479_ + _methods245480_ + _slots245481_ + _class-check245482_ + _struct-check245483_ + _struct-assert245484_))) + (let ((__tmp257018 + (lambda (_g246515246518_ + _g246516246520_) (let () (declare (not safe)) - (cons _g245317245320_ - _g245318245322_))))) + (cons _g246515246518_ + _g246516246520_))))) (declare (not safe)) - (foldr1 __tmp255817 '() _L245277_))))) - (let ((__tmp255818 - (let ((__tmp255819 - (let ((__tmp255823 + (foldr1 __tmp257018 '() _L246475_))))) + (let ((__tmp257019 + (let ((__tmp257020 + (let ((__tmp257024 (let () (declare (not safe)) - (_force-e244288_ - _$method245325_))) - (__tmp255820 - (let ((__tmp255821 - (let ((__tmp255822 + (_force-e245486_ + _$method246523_))) + (__tmp257021 + (let ((__tmp257022 + (let ((__tmp257023 (let () (declare (not safe)) - (cons _self244280_ + (cons _self245478_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp255822)))) + __tmp257023)))) (declare (not safe)) - (cons __tmp255821 - _args245326_)))) + (cons __tmp257022 + _args246524_)))) (declare (not safe)) - (cons __tmp255823 __tmp255820)))) + (cons __tmp257024 __tmp257021)))) (declare (not safe)) - (cons '%#call __tmp255819)))) + (cons '%#call __tmp257020)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255818 _stx244279_))))) - (___kont254945254946_ - (lambda (_L245109_ _L245110_ _L245111_ _L245112_ _L245113_) - (let ((_$method245165_ - (let ((__tmp255824 + (gxc#xform-wrap-source __tmp257019 _stx245477_))))) + (___kont256143256144_ + (lambda (_L246307_ _L246308_ _L246309_ _L246310_ _L246311_) + (let ((_$method246363_ + (let ((__tmp257025 (let () (declare (not safe)) - (gx#stx-e _L245110_)))) + (gx#stx-e _L246308_)))) (declare (not safe)) - (table-ref _methods244282_ __tmp255824))) - (_args245166_ - (map (lambda (_g245153245155_) + (table-ref _methods245480_ __tmp257025))) + (_args246364_ + (map (lambda (_g246351246353_) (let () (declare (not safe)) (gxc#compile-e__3 - _g245153245155_ - _self244280_ - _$t244281_ - _methods244282_ - _slots244283_ - _class-check244284_ - _struct-check244285_ - _struct-assert244286_))) - (let ((__tmp255825 - (lambda (_g245157245160_ - _g245158245162_) + _g246351246353_ + _self245478_ + _$t245479_ + _methods245480_ + _slots245481_ + _class-check245482_ + _struct-check245483_ + _struct-assert245484_))) + (let ((__tmp257026 + (lambda (_g246355246358_ + _g246356246360_) (let () (declare (not safe)) - (cons _g245157245160_ - _g245158245162_))))) + (cons _g246355246358_ + _g246356246360_))))) (declare (not safe)) - (foldr1 __tmp255825 '() _L245109_))))) - (let ((__tmp255826 - (let ((__tmp255827 - (let ((__tmp255833 - (let ((__tmp255834 + (foldr1 __tmp257026 '() _L246307_))))) + (let ((__tmp257027 + (let ((__tmp257028 + (let ((__tmp257034 + (let ((__tmp257035 (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp255834))) - (__tmp255828 - (let ((__tmp255832 + (cons '%#ref __tmp257035))) + (__tmp257029 + (let ((__tmp257033 (let () (declare (not safe)) - (_force-e244288_ - _$method245165_))) - (__tmp255829 - (let ((__tmp255830 - (let ((__tmp255831 + (_force-e245486_ + _$method246363_))) + (__tmp257030 + (let ((__tmp257031 + (let ((__tmp257032 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self244280_ '())))) + (cons _self245478_ '())))) (declare (not safe)) - (cons '%#ref __tmp255831)))) + (cons '%#ref __tmp257032)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255830 - _args245166_)))) + (cons __tmp257031 + _args246364_)))) (declare (not safe)) - (cons __tmp255832 __tmp255829)))) + (cons __tmp257033 __tmp257030)))) (declare (not safe)) - (cons __tmp255833 __tmp255828)))) + (cons __tmp257034 __tmp257029)))) (declare (not safe)) - (cons '%#call __tmp255827)))) + (cons '%#call __tmp257028)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255826 _stx244279_))))) - (___kont254949254950_ - (lambda (_L244940_ _L244941_ _L244942_) - (let* ((_$field244974_ - (let ((__tmp255835 + (gxc#xform-wrap-source __tmp257027 _stx245477_))))) + (___kont256147256148_ + (lambda (_L246138_ _L246139_ _L246140_) + (let* ((_$field246172_ + (let ((__tmp257036 (let () (declare (not safe)) - (gx#stx-e _L244940_)))) + (gx#stx-e _L246138_)))) (declare (not safe)) - (table-ref _slots244283_ __tmp255835))) - (__tmp255836 - (let ((__tmp255837 - (let ((__tmp255844 - (let ((__tmp255845 + (table-ref _slots245481_ __tmp257036))) + (__tmp257037 + (let ((__tmp257038 + (let ((__tmp257045 + (let ((__tmp257046 (let () (declare (not safe)) - (cons _$t244281_ '())))) + (cons _$t245479_ '())))) (declare (not safe)) - (cons '%#ref __tmp255845))) - (__tmp255838 - (let ((__tmp255842 - (let ((__tmp255843 + (cons '%#ref __tmp257046))) + (__tmp257039 + (let ((__tmp257043 + (let ((__tmp257044 (let () (declare (not safe)) - (cons _$field244974_ + (cons _$field246172_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#ref __tmp255843))) - (__tmp255839 - (let ((__tmp255840 - (let ((__tmp255841 + (cons '%#ref __tmp257044))) + (__tmp257040 + (let ((__tmp257041 + (let ((__tmp257042 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _self244280_ '())))) + (cons _self245478_ '())))) (declare (not safe)) - (cons '%#ref __tmp255841)))) + (cons '%#ref __tmp257042)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255840 '())))) + (cons __tmp257041 '())))) (declare (not safe)) - (cons __tmp255842 __tmp255839)))) + (cons __tmp257043 __tmp257040)))) (declare (not safe)) - (cons __tmp255844 __tmp255838)))) + (cons __tmp257045 __tmp257039)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp255837)))) + (cons '%#struct-unchecked-ref __tmp257038)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255836 _stx244279_)))) - (___kont254951254952_ - (lambda (_L244814_ _L244815_ _L244816_ _L244817_) - (let ((_$field244852_ - (let ((__tmp255846 + (gxc#xform-wrap-source __tmp257037 _stx245477_)))) + (___kont256149256150_ + (lambda (_L246012_ _L246013_ _L246014_ _L246015_) + (let ((_$field246050_ + (let ((__tmp257047 (let () (declare (not safe)) - (gx#stx-e _L244815_)))) + (gx#stx-e _L246013_)))) (declare (not safe)) - (table-ref _slots244283_ __tmp255846))) - (_expr244853_ + (table-ref _slots245481_ __tmp257047))) + (_expr246051_ (let () (declare (not safe)) (gxc#compile-e__3 - _L244814_ - _self244280_ - _$t244281_ - _methods244282_ - _slots244283_ - _class-check244284_ - _struct-check244285_ - _struct-assert244286_)))) - (let ((__tmp255847 - (let ((__tmp255848 - (let ((__tmp255856 - (let ((__tmp255857 + _L246012_ + _self245478_ + _$t245479_ + _methods245480_ + _slots245481_ + _class-check245482_ + _struct-check245483_ + _struct-assert245484_)))) + (let ((__tmp257048 + (let ((__tmp257049 + (let ((__tmp257057 + (let ((__tmp257058 (let () (declare (not safe)) - (cons _$t244281_ '())))) + (cons _$t245479_ '())))) (declare (not safe)) - (cons '%#ref __tmp255857))) - (__tmp255849 - (let ((__tmp255854 - (let ((__tmp255855 + (cons '%#ref __tmp257058))) + (__tmp257050 + (let ((__tmp257055 + (let ((__tmp257056 (let () (declare (not safe)) - (cons _$field244852_ + (cons _$field246050_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp255855))) - (__tmp255850 - (let ((__tmp255852 - (let ((__tmp255853 + __tmp257056))) + (__tmp257051 + (let ((__tmp257053 + (let ((__tmp257054 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self244280_ '())))) + (cons _self245478_ '())))) (declare (not safe)) - (cons '%#ref __tmp255853))) - (__tmp255851 - (let () (declare (not safe)) (cons _expr244853_ '())))) + (cons '%#ref __tmp257054))) + (__tmp257052 + (let () (declare (not safe)) (cons _expr246051_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255852 - __tmp255851)))) + (cons __tmp257053 + __tmp257052)))) (declare (not safe)) - (cons __tmp255854 __tmp255850)))) + (cons __tmp257055 __tmp257051)))) (declare (not safe)) - (cons __tmp255856 __tmp255849)))) + (cons __tmp257057 __tmp257050)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp255848)))) + (cons '%#struct-unchecked-set! __tmp257049)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255847 _stx244279_))))) - (___kont254953254954_ - (lambda (_L244693_ _L244694_) - (let* ((_slot244716_ + (gxc#xform-wrap-source __tmp257048 _stx245477_))))) + (___kont256151256152_ + (lambda (_L245891_ _L245892_) + (let* ((_slot245914_ (##structure-ref - (let ((__tmp255858 + (let ((__tmp257059 (let () (declare (not safe)) - (gxc#identifier-symbol _L244694_)))) + (gxc#identifier-symbol _L245892_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp255858)) + (gxc#optimizer-resolve-type __tmp257059)) '2 gxc#!accessor::t '#f)) - (_$field244718_ + (_$field245916_ (let () (declare (not safe)) - (table-ref _slots244283_ _slot244716_)))) - (let ((__tmp255859 - (let ((__tmp255860 - (let ((__tmp255867 - (let ((__tmp255868 + (table-ref _slots245481_ _slot245914_)))) + (let ((__tmp257060 + (let ((__tmp257061 + (let ((__tmp257068 + (let ((__tmp257069 (let () (declare (not safe)) - (cons _$t244281_ '())))) + (cons _$t245479_ '())))) (declare (not safe)) - (cons '%#ref __tmp255868))) - (__tmp255861 - (let ((__tmp255865 - (let ((__tmp255866 + (cons '%#ref __tmp257069))) + (__tmp257062 + (let ((__tmp257066 + (let ((__tmp257067 (let () (declare (not safe)) - (cons _$field244718_ + (cons _$field245916_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp255866))) - (__tmp255862 - (let ((__tmp255863 - (let ((__tmp255864 + __tmp257067))) + (__tmp257063 + (let ((__tmp257064 + (let ((__tmp257065 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self244280_ '())))) + (cons _self245478_ '())))) (declare (not safe)) - (cons '%#ref __tmp255864)))) + (cons '%#ref __tmp257065)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255863 '())))) + (cons __tmp257064 '())))) (declare (not safe)) - (cons __tmp255865 __tmp255862)))) + (cons __tmp257066 __tmp257063)))) (declare (not safe)) - (cons __tmp255867 __tmp255861)))) + (cons __tmp257068 __tmp257062)))) (declare (not safe)) - (cons '%#struct-unchecked-ref __tmp255860)))) + (cons '%#struct-unchecked-ref __tmp257061)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255859 _stx244279_))))) - (___kont254955254956_ - (lambda (_L244594_ _L244595_ _L244596_) - (let* ((_slot244625_ + (gxc#xform-wrap-source __tmp257060 _stx245477_))))) + (___kont256153256154_ + (lambda (_L245792_ _L245793_ _L245794_) + (let* ((_slot245823_ (##structure-ref - (let ((__tmp255869 + (let ((__tmp257070 (let () (declare (not safe)) - (gxc#identifier-symbol _L244596_)))) + (gxc#identifier-symbol _L245794_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp255869)) + (gxc#optimizer-resolve-type __tmp257070)) '2 gxc#!mutator::t '#f)) - (_$field244627_ + (_$field245825_ (let () (declare (not safe)) - (table-ref _slots244283_ _slot244625_))) - (_expr244629_ + (table-ref _slots245481_ _slot245823_))) + (_expr245827_ (let () (declare (not safe)) (gxc#compile-e__3 - _L244594_ - _self244280_ - _$t244281_ - _methods244282_ - _slots244283_ - _class-check244284_ - _struct-check244285_ - _struct-assert244286_)))) - (let ((__tmp255870 - (let ((__tmp255871 - (let ((__tmp255879 - (let ((__tmp255880 + _L245792_ + _self245478_ + _$t245479_ + _methods245480_ + _slots245481_ + _class-check245482_ + _struct-check245483_ + _struct-assert245484_)))) + (let ((__tmp257071 + (let ((__tmp257072 + (let ((__tmp257080 + (let ((__tmp257081 (let () (declare (not safe)) - (cons _$t244281_ '())))) + (cons _$t245479_ '())))) (declare (not safe)) - (cons '%#ref __tmp255880))) - (__tmp255872 - (let ((__tmp255877 - (let ((__tmp255878 + (cons '%#ref __tmp257081))) + (__tmp257073 + (let ((__tmp257078 + (let ((__tmp257079 (let () (declare (not safe)) - (cons _$field244627_ + (cons _$field245825_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '%#ref - __tmp255878))) - (__tmp255873 - (let ((__tmp255875 - (let ((__tmp255876 + __tmp257079))) + (__tmp257074 + (let ((__tmp257076 + (let ((__tmp257077 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _self244280_ '())))) + (cons _self245478_ '())))) (declare (not safe)) - (cons '%#ref __tmp255876))) - (__tmp255874 - (let () (declare (not safe)) (cons _expr244629_ '())))) + (cons '%#ref __tmp257077))) + (__tmp257075 + (let () (declare (not safe)) (cons _expr245827_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp255875 - __tmp255874)))) + (cons __tmp257076 + __tmp257075)))) (declare (not safe)) - (cons __tmp255877 __tmp255873)))) + (cons __tmp257078 __tmp257074)))) (declare (not safe)) - (cons __tmp255879 __tmp255872)))) + (cons __tmp257080 __tmp257073)))) (declare (not safe)) - (cons '%#struct-unchecked-set! __tmp255871)))) + (cons '%#struct-unchecked-set! __tmp257072)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp255870 _stx244279_))))) - (___kont254957254958_ + (gxc#xform-wrap-source __tmp257071 _stx245477_))))) + (___kont256155256156_ (lambda () (let () (declare (not safe)) (gxc#xform-operands - _stx244279_ - _self244280_ - _$t244281_ - _methods244282_ - _slots244283_ - _class-check244284_ - _struct-check244285_ - _struct-assert244286_))))) - (let* ((___match255438255439_ - (lambda (_e244492244530_ - _hd244491244533_ - _tl244490244535_ - _e244495244538_ - _hd244494244541_ - _tl244493244543_ - _e244498244546_ - _hd244497244549_ - _tl244496244551_ - _e244501244554_ - _hd244500244557_ - _tl244499244559_ - _e244504244562_ - _hd244503244565_ - _tl244502244567_ - _e244507244570_ - _hd244506244573_ - _tl244505244575_ - _e244510244578_ - _hd244509244581_ - _tl244508244583_ - _e244513244586_ - _hd244512244589_ - _tl244511244591_) - (let ((_L244594_ _hd244512244589_) - (_L244595_ _hd244509244581_) - (_L244596_ _hd244500244557_)) + _stx245477_ + _self245478_ + _$t245479_ + _methods245480_ + _slots245481_ + _class-check245482_ + _struct-check245483_ + _struct-assert245484_))))) + (let* ((___match256636256637_ + (lambda (_e245690245728_ + _hd245689245731_ + _tl245688245733_ + _e245693245736_ + _hd245692245739_ + _tl245691245741_ + _e245696245744_ + _hd245695245747_ + _tl245694245749_ + _e245699245752_ + _hd245698245755_ + _tl245697245757_ + _e245702245760_ + _hd245701245763_ + _tl245700245765_ + _e245705245768_ + _hd245704245771_ + _tl245703245773_ + _e245708245776_ + _hd245707245779_ + _tl245706245781_ + _e245711245784_ + _hd245710245787_ + _tl245709245789_) + (let ((_L245792_ _hd245710245787_) + (_L245793_ _hd245707245779_) + (_L245794_ _hd245698245755_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L244595_ - _self244280_)) - (let ((__tmp255881 - (let ((__tmp255882 + _L245793_ + _self245478_)) + (let ((__tmp257082 + (let ((__tmp257083 (let () (declare (not safe)) (gxc#identifier-symbol - _L244596_)))) + _L245794_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp255882)))) + __tmp257083)))) (declare (not safe)) (##structure-instance-of? - __tmp255881 + __tmp257082 'gxc#!mutator::t))) - (___kont254955254956_ - _L244594_ - _L244595_ - _L244596_) - (___kont254957254958_))))) - (___match255436255437_ - (lambda (_e244492244530_ - _hd244491244533_ - _tl244490244535_ - _e244495244538_ - _hd244494244541_ - _tl244493244543_ - _e244498244546_ - _hd244497244549_ - _tl244496244551_ - _e244501244554_ - _hd244500244557_ - _tl244499244559_ - _e244504244562_ - _hd244503244565_ - _tl244502244567_ - _e244507244570_ - _hd244506244573_ - _tl244505244575_ - _e244510244578_ - _hd244509244581_ - _tl244508244583_ - _e244513244586_ - _hd244512244589_ - _tl244511244591_) + (___kont256153256154_ + _L245792_ + _L245793_ + _L245794_) + (___kont256155256156_))))) + (___match256634256635_ + (lambda (_e245690245728_ + _hd245689245731_ + _tl245688245733_ + _e245693245736_ + _hd245692245739_ + _tl245691245741_ + _e245696245744_ + _hd245695245747_ + _tl245694245749_ + _e245699245752_ + _hd245698245755_ + _tl245697245757_ + _e245702245760_ + _hd245701245763_ + _tl245700245765_ + _e245705245768_ + _hd245704245771_ + _tl245703245773_ + _e245708245776_ + _hd245707245779_ + _tl245706245781_ + _e245711245784_ + _hd245710245787_ + _tl245709245789_) (if (let () (declare (not safe)) - (gx#stx-null? _tl244511244591_)) - (___match255438255439_ - _e244492244530_ - _hd244491244533_ - _tl244490244535_ - _e244495244538_ - _hd244494244541_ - _tl244493244543_ - _e244498244546_ - _hd244497244549_ - _tl244496244551_ - _e244501244554_ - _hd244500244557_ - _tl244499244559_ - _e244504244562_ - _hd244503244565_ - _tl244502244567_ - _e244507244570_ - _hd244506244573_ - _tl244505244575_ - _e244510244578_ - _hd244509244581_ - _tl244508244583_ - _e244513244586_ - _hd244512244589_ - _tl244511244591_) - (___kont254957254958_)))) - (___match255430255431_ - (lambda (_e244492244530_ - _hd244491244533_ - _tl244490244535_ - _e244495244538_ - _hd244494244541_ - _tl244493244543_ - _e244498244546_ - _hd244497244549_ - _tl244496244551_ - _e244501244554_ - _hd244500244557_ - _tl244499244559_ - _e244504244562_ - _hd244503244565_ - _tl244502244567_ - _e244507244570_ - _hd244506244573_ - _tl244505244575_ - _e244510244578_ - _hd244509244581_ - _tl244508244583_) + (gx#stx-null? _tl245709245789_)) + (___match256636256637_ + _e245690245728_ + _hd245689245731_ + _tl245688245733_ + _e245693245736_ + _hd245692245739_ + _tl245691245741_ + _e245696245744_ + _hd245695245747_ + _tl245694245749_ + _e245699245752_ + _hd245698245755_ + _tl245697245757_ + _e245702245760_ + _hd245701245763_ + _tl245700245765_ + _e245705245768_ + _hd245704245771_ + _tl245703245773_ + _e245708245776_ + _hd245707245779_ + _tl245706245781_ + _e245711245784_ + _hd245710245787_ + _tl245709245789_) + (___kont256155256156_)))) + (___match256628256629_ + (lambda (_e245690245728_ + _hd245689245731_ + _tl245688245733_ + _e245693245736_ + _hd245692245739_ + _tl245691245741_ + _e245696245744_ + _hd245695245747_ + _tl245694245749_ + _e245699245752_ + _hd245698245755_ + _tl245697245757_ + _e245702245760_ + _hd245701245763_ + _tl245700245765_ + _e245705245768_ + _hd245704245771_ + _tl245703245773_ + _e245708245776_ + _hd245707245779_ + _tl245706245781_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244502244567_)) - (let ((_e244513244586_ + (gx#stx-pair? _tl245700245765_)) + (let ((_e245711245784_ (let () (declare (not safe)) - (gx#stx-e _tl244502244567_)))) - (let ((_tl244511244591_ + (gx#stx-e _tl245700245765_)))) + (let ((_tl245709245789_ (let () (declare (not safe)) - (##cdr _e244513244586_))) - (_hd244512244589_ + (##cdr _e245711245784_))) + (_hd245710245787_ (let () (declare (not safe)) - (##car _e244513244586_)))) + (##car _e245711245784_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244511244591_)) - (___match255438255439_ - _e244492244530_ - _hd244491244533_ - _tl244490244535_ - _e244495244538_ - _hd244494244541_ - _tl244493244543_ - _e244498244546_ - _hd244497244549_ - _tl244496244551_ - _e244501244554_ - _hd244500244557_ - _tl244499244559_ - _e244504244562_ - _hd244503244565_ - _tl244502244567_ - _e244507244570_ - _hd244506244573_ - _tl244505244575_ - _e244510244578_ - _hd244509244581_ - _tl244508244583_ - _e244513244586_ - _hd244512244589_ - _tl244511244591_) - (___kont254957254958_)))) - (___kont254957254958_)))) - (___match255376255377_ - (lambda (_e244468244637_ - _hd244467244640_ - _tl244466244642_ - _e244471244645_ - _hd244470244648_ - _tl244469244650_ - _e244474244653_ - _hd244473244656_ - _tl244472244658_ - _e244477244661_ - _hd244476244664_ - _tl244475244666_ - _e244480244669_ - _hd244479244672_ - _tl244478244674_ - _e244483244677_ - _hd244482244680_ - _tl244481244682_ - _e244486244685_ - _hd244485244688_ - _tl244484244690_) - (let ((_L244693_ _hd244485244688_) - (_L244694_ _hd244476244664_)) + (gx#stx-null? _tl245709245789_)) + (___match256636256637_ + _e245690245728_ + _hd245689245731_ + _tl245688245733_ + _e245693245736_ + _hd245692245739_ + _tl245691245741_ + _e245696245744_ + _hd245695245747_ + _tl245694245749_ + _e245699245752_ + _hd245698245755_ + _tl245697245757_ + _e245702245760_ + _hd245701245763_ + _tl245700245765_ + _e245705245768_ + _hd245704245771_ + _tl245703245773_ + _e245708245776_ + _hd245707245779_ + _tl245706245781_ + _e245711245784_ + _hd245710245787_ + _tl245709245789_) + (___kont256155256156_)))) + (___kont256155256156_)))) + (___match256574256575_ + (lambda (_e245666245835_ + _hd245665245838_ + _tl245664245840_ + _e245669245843_ + _hd245668245846_ + _tl245667245848_ + _e245672245851_ + _hd245671245854_ + _tl245670245856_ + _e245675245859_ + _hd245674245862_ + _tl245673245864_ + _e245678245867_ + _hd245677245870_ + _tl245676245872_ + _e245681245875_ + _hd245680245878_ + _tl245679245880_ + _e245684245883_ + _hd245683245886_ + _tl245682245888_) + (let ((_L245891_ _hd245683245886_) + (_L245892_ _hd245674245862_)) (if (and (let () (declare (not safe)) (gx#free-identifier=? - _L244693_ - _self244280_)) - (let ((__tmp255883 - (let ((__tmp255884 + _L245891_ + _self245478_)) + (let ((__tmp257084 + (let ((__tmp257085 (let () (declare (not safe)) (gxc#identifier-symbol - _L244694_)))) + _L245892_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp255884)))) + __tmp257085)))) (declare (not safe)) (##structure-instance-of? - __tmp255883 + __tmp257084 'gxc#!accessor::t))) - (___kont254953254954_ _L244693_ _L244694_) - (___kont254957254958_))))) - (___match255374255375_ - (lambda (_e244468244637_ - _hd244467244640_ - _tl244466244642_ - _e244471244645_ - _hd244470244648_ - _tl244469244650_ - _e244474244653_ - _hd244473244656_ - _tl244472244658_ - _e244477244661_ - _hd244476244664_ - _tl244475244666_ - _e244480244669_ - _hd244479244672_ - _tl244478244674_ - _e244483244677_ - _hd244482244680_ - _tl244481244682_ - _e244486244685_ - _hd244485244688_ - _tl244484244690_) + (___kont256151256152_ _L245891_ _L245892_) + (___kont256155256156_))))) + (___match256572256573_ + (lambda (_e245666245835_ + _hd245665245838_ + _tl245664245840_ + _e245669245843_ + _hd245668245846_ + _tl245667245848_ + _e245672245851_ + _hd245671245854_ + _tl245670245856_ + _e245675245859_ + _hd245674245862_ + _tl245673245864_ + _e245678245867_ + _hd245677245870_ + _tl245676245872_ + _e245681245875_ + _hd245680245878_ + _tl245679245880_ + _e245684245883_ + _hd245683245886_ + _tl245682245888_) (if (let () (declare (not safe)) - (gx#stx-null? _tl244478244674_)) - (___match255376255377_ - _e244468244637_ - _hd244467244640_ - _tl244466244642_ - _e244471244645_ - _hd244470244648_ - _tl244469244650_ - _e244474244653_ - _hd244473244656_ - _tl244472244658_ - _e244477244661_ - _hd244476244664_ - _tl244475244666_ - _e244480244669_ - _hd244479244672_ - _tl244478244674_ - _e244483244677_ - _hd244482244680_ - _tl244481244682_ - _e244486244685_ - _hd244485244688_ - _tl244484244690_) - (___match255430255431_ - _e244468244637_ - _hd244467244640_ - _tl244466244642_ - _e244471244645_ - _hd244470244648_ - _tl244469244650_ - _e244474244653_ - _hd244473244656_ - _tl244472244658_ - _e244477244661_ - _hd244476244664_ - _tl244475244666_ - _e244480244669_ - _hd244479244672_ - _tl244478244674_ - _e244483244677_ - _hd244482244680_ - _tl244481244682_ - _e244486244685_ - _hd244485244688_ - _tl244484244690_)))) - (___match255320255321_ - (lambda (_e244433244726_ - _hd244432244729_ - _tl244431244731_ - _e244436244734_ - _hd244435244737_ - _tl244434244739_ - _e244439244742_ - _hd244438244745_ - _tl244437244747_ - _e244442244750_ - _hd244441244753_ - _tl244440244755_ - _e244445244758_ - _hd244444244761_ - _tl244443244763_ - _e244448244766_ - _hd244447244769_ - _tl244446244771_ - _e244451244774_ - _hd244450244777_ - _tl244449244779_ - _e244454244782_ - _hd244453244785_ - _tl244452244787_ - _e244457244790_ - _hd244456244793_ - _tl244455244795_ - _e244460244798_ - _hd244459244801_ - _tl244458244803_ - _e244463244806_ - _hd244462244809_ - _tl244461244811_) - (let ((_L244814_ _hd244462244809_) - (_L244815_ _hd244459244801_) - (_L244816_ _hd244450244777_) - (_L244817_ _hd244441244753_)) + (gx#stx-null? _tl245676245872_)) + (___match256574256575_ + _e245666245835_ + _hd245665245838_ + _tl245664245840_ + _e245669245843_ + _hd245668245846_ + _tl245667245848_ + _e245672245851_ + _hd245671245854_ + _tl245670245856_ + _e245675245859_ + _hd245674245862_ + _tl245673245864_ + _e245678245867_ + _hd245677245870_ + _tl245676245872_ + _e245681245875_ + _hd245680245878_ + _tl245679245880_ + _e245684245883_ + _hd245683245886_ + _tl245682245888_) + (___match256628256629_ + _e245666245835_ + _hd245665245838_ + _tl245664245840_ + _e245669245843_ + _hd245668245846_ + _tl245667245848_ + _e245672245851_ + _hd245671245854_ + _tl245670245856_ + _e245675245859_ + _hd245674245862_ + _tl245673245864_ + _e245678245867_ + _hd245677245870_ + _tl245676245872_ + _e245681245875_ + _hd245680245878_ + _tl245679245880_ + _e245684245883_ + _hd245683245886_ + _tl245682245888_)))) + (___match256518256519_ + (lambda (_e245631245924_ + _hd245630245927_ + _tl245629245929_ + _e245634245932_ + _hd245633245935_ + _tl245632245937_ + _e245637245940_ + _hd245636245943_ + _tl245635245945_ + _e245640245948_ + _hd245639245951_ + _tl245638245953_ + _e245643245956_ + _hd245642245959_ + _tl245641245961_ + _e245646245964_ + _hd245645245967_ + _tl245644245969_ + _e245649245972_ + _hd245648245975_ + _tl245647245977_ + _e245652245980_ + _hd245651245983_ + _tl245650245985_ + _e245655245988_ + _hd245654245991_ + _tl245653245993_ + _e245658245996_ + _hd245657245999_ + _tl245656246001_ + _e245661246004_ + _hd245660246007_ + _tl245659246009_) + (let ((_L246012_ _hd245660246007_) + (_L246013_ _hd245657245999_) + (_L246014_ _hd245648245975_) + (_L246015_ _hd245639245951_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L244817_ + _L246015_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L244817_ + _L246015_ 'unchecked-slot-set!))) (let () (declare (not safe)) (gx#free-identifier=? - _L244816_ - _self244280_))) - (___kont254951254952_ - _L244814_ - _L244815_ - _L244816_ - _L244817_) - (___kont254957254958_))))) - (___match255312255313_ - (lambda (_e244433244726_ - _hd244432244729_ - _tl244431244731_ - _e244436244734_ - _hd244435244737_ - _tl244434244739_ - _e244439244742_ - _hd244438244745_ - _tl244437244747_ - _e244442244750_ - _hd244441244753_ - _tl244440244755_ - _e244445244758_ - _hd244444244761_ - _tl244443244763_ - _e244448244766_ - _hd244447244769_ - _tl244446244771_ - _e244451244774_ - _hd244450244777_ - _tl244449244779_ - _e244454244782_ - _hd244453244785_ - _tl244452244787_ - _e244457244790_ - _hd244456244793_ - _tl244455244795_ - _e244460244798_ - _hd244459244801_ - _tl244458244803_) + _L246014_ + _self245478_))) + (___kont256149256150_ + _L246012_ + _L246013_ + _L246014_ + _L246015_) + (___kont256155256156_))))) + (___match256510256511_ + (lambda (_e245631245924_ + _hd245630245927_ + _tl245629245929_ + _e245634245932_ + _hd245633245935_ + _tl245632245937_ + _e245637245940_ + _hd245636245943_ + _tl245635245945_ + _e245640245948_ + _hd245639245951_ + _tl245638245953_ + _e245643245956_ + _hd245642245959_ + _tl245641245961_ + _e245646245964_ + _hd245645245967_ + _tl245644245969_ + _e245649245972_ + _hd245648245975_ + _tl245647245977_ + _e245652245980_ + _hd245651245983_ + _tl245650245985_ + _e245655245988_ + _hd245654245991_ + _tl245653245993_ + _e245658245996_ + _hd245657245999_ + _tl245656246001_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244452244787_)) - (let ((_e244463244806_ + (gx#stx-pair? _tl245650245985_)) + (let ((_e245661246004_ (let () (declare (not safe)) - (gx#stx-e _tl244452244787_)))) - (let ((_tl244461244811_ + (gx#stx-e _tl245650245985_)))) + (let ((_tl245659246009_ (let () (declare (not safe)) - (##cdr _e244463244806_))) - (_hd244462244809_ + (##cdr _e245661246004_))) + (_hd245660246007_ (let () (declare (not safe)) - (##car _e244463244806_)))) + (##car _e245661246004_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244461244811_)) - (___match255320255321_ - _e244433244726_ - _hd244432244729_ - _tl244431244731_ - _e244436244734_ - _hd244435244737_ - _tl244434244739_ - _e244439244742_ - _hd244438244745_ - _tl244437244747_ - _e244442244750_ - _hd244441244753_ - _tl244440244755_ - _e244445244758_ - _hd244444244761_ - _tl244443244763_ - _e244448244766_ - _hd244447244769_ - _tl244446244771_ - _e244451244774_ - _hd244450244777_ - _tl244449244779_ - _e244454244782_ - _hd244453244785_ - _tl244452244787_ - _e244457244790_ - _hd244456244793_ - _tl244455244795_ - _e244460244798_ - _hd244459244801_ - _tl244458244803_ - _e244463244806_ - _hd244462244809_ - _tl244461244811_) - (___kont254957254958_)))) - (___match255436255437_ - _e244433244726_ - _hd244432244729_ - _tl244431244731_ - _e244436244734_ - _hd244435244737_ - _tl244434244739_ - _e244439244742_ - _hd244438244745_ - _tl244437244747_ - _e244442244750_ - _hd244441244753_ - _tl244440244755_ - _e244445244758_ - _hd244444244761_ - _tl244443244763_ - _e244448244766_ - _hd244447244769_ - _tl244446244771_ - _e244451244774_ - _hd244450244777_ - _tl244449244779_ - _e244454244782_ - _hd244453244785_ - _tl244452244787_)))) - (___match255234255235_ - (lambda (_e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_ - _e244423244924_ - _hd244422244927_ - _tl244421244929_ - _e244426244932_ - _hd244425244935_ - _tl244424244937_) - (let ((_L244940_ _hd244425244935_) - (_L244941_ _hd244416244911_) - (_L244942_ _hd244407244887_)) + (gx#stx-null? _tl245659246009_)) + (___match256518256519_ + _e245631245924_ + _hd245630245927_ + _tl245629245929_ + _e245634245932_ + _hd245633245935_ + _tl245632245937_ + _e245637245940_ + _hd245636245943_ + _tl245635245945_ + _e245640245948_ + _hd245639245951_ + _tl245638245953_ + _e245643245956_ + _hd245642245959_ + _tl245641245961_ + _e245646245964_ + _hd245645245967_ + _tl245644245969_ + _e245649245972_ + _hd245648245975_ + _tl245647245977_ + _e245652245980_ + _hd245651245983_ + _tl245650245985_ + _e245655245988_ + _hd245654245991_ + _tl245653245993_ + _e245658245996_ + _hd245657245999_ + _tl245656246001_ + _e245661246004_ + _hd245660246007_ + _tl245659246009_) + (___kont256155256156_)))) + (___match256634256635_ + _e245631245924_ + _hd245630245927_ + _tl245629245929_ + _e245634245932_ + _hd245633245935_ + _tl245632245937_ + _e245637245940_ + _hd245636245943_ + _tl245635245945_ + _e245640245948_ + _hd245639245951_ + _tl245638245953_ + _e245643245956_ + _hd245642245959_ + _tl245641245961_ + _e245646245964_ + _hd245645245967_ + _tl245644245969_ + _e245649245972_ + _hd245648245975_ + _tl245647245977_ + _e245652245980_ + _hd245651245983_ + _tl245650245985_)))) + (___match256432256433_ + (lambda (_e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_ + _e245621246122_ + _hd245620246125_ + _tl245619246127_ + _e245624246130_ + _hd245623246133_ + _tl245622246135_) + (let ((_L246138_ _hd245623246133_) + (_L246139_ _hd245614246109_) + (_L246140_ _hd245605246085_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _L244942_ + _L246140_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L244942_ + _L246140_ 'unchecked-slot-ref))) (let () (declare (not safe)) (gx#free-identifier=? - _L244941_ - _self244280_))) - (___kont254949254950_ - _L244940_ - _L244941_ - _L244942_) - (___match255438255439_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_))))) - (___match255232255233_ - (lambda (_e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_ - _e244423244924_ - _hd244422244927_ - _tl244421244929_ - _e244426244932_ - _hd244425244935_ - _tl244424244937_) + _L246139_ + _self245478_))) + (___kont256147256148_ + _L246138_ + _L246139_ + _L246140_) + (___match256636256637_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_))))) + (___match256430256431_ + (lambda (_e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_ + _e245621246122_ + _hd245620246125_ + _tl245619246127_ + _e245624246130_ + _hd245623246133_ + _tl245622246135_) (if (let () (declare (not safe)) - (gx#stx-null? _tl244418244921_)) - (___match255234255235_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_ - _e244423244924_ - _hd244422244927_ - _tl244421244929_ - _e244426244932_ - _hd244425244935_ - _tl244424244937_) - (___match255312255313_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_ - _e244423244924_ - _hd244422244927_ - _tl244421244929_ - _e244426244932_ - _hd244425244935_ - _tl244424244937_)))) - (___match255222255223_ - (lambda (_e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_ - _e244423244924_ - _hd244422244927_ - _tl244421244929_) + (gx#stx-null? _tl245616246119_)) + (___match256432256433_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_ + _e245621246122_ + _hd245620246125_ + _tl245619246127_ + _e245624246130_ + _hd245623246133_ + _tl245622246135_) + (___match256510256511_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_ + _e245621246122_ + _hd245620246125_ + _tl245619246127_ + _e245624246130_ + _hd245623246133_ + _tl245622246135_)))) + (___match256420256421_ + (lambda (_e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_ + _e245621246122_ + _hd245620246125_ + _tl245619246127_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd244422244927_)) + (gx#stx-eq? '%#quote _hd245620246125_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244421244929_)) - (let ((_e244426244932_ + (gx#stx-pair? _tl245619246127_)) + (let ((_e245624246130_ (let () (declare (not safe)) - (gx#stx-e _tl244421244929_)))) - (let ((_tl244424244937_ + (gx#stx-e _tl245619246127_)))) + (let ((_tl245622246135_ (let () (declare (not safe)) - (##cdr _e244426244932_))) - (_hd244425244935_ + (##cdr _e245624246130_))) + (_hd245623246133_ (let () (declare (not safe)) - (##car _e244426244932_)))) + (##car _e245624246130_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244424244937_)) + (gx#stx-null? _tl245622246135_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl244418244921_)) - (___match255234255235_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_ - _e244423244924_ - _hd244422244927_ - _tl244421244929_ - _e244426244932_ - _hd244425244935_ - _tl244424244937_) - (___match255312255313_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_ - _e244423244924_ - _hd244422244927_ - _tl244421244929_ - _e244426244932_ - _hd244425244935_ - _tl244424244937_)) - (___match255436255437_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_)))) - (___match255436255437_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_)) - (___match255436255437_ - _e244399244860_ - _hd244398244863_ - _tl244397244865_ - _e244402244868_ - _hd244401244871_ - _tl244400244873_ - _e244405244876_ - _hd244404244879_ - _tl244403244881_ - _e244408244884_ - _hd244407244887_ - _tl244406244889_ - _e244411244892_ - _hd244410244895_ - _tl244409244897_ - _e244414244900_ - _hd244413244903_ - _tl244412244905_ - _e244417244908_ - _hd244416244911_ - _tl244415244913_ - _e244420244916_ - _hd244419244919_ - _tl244418244921_)))) - (___match255154255155_ - (lambda (_e244348244981_ - _hd244347244984_ - _tl244346244986_ - _e244351244989_ - _hd244350244992_ - _tl244349244994_ - _e244354244997_ - _hd244353245000_ - _tl244352245002_ - _e244357245005_ - _hd244356245008_ - _tl244355245010_ - _e244360245013_ - _hd244359245016_ - _tl244358245018_ - _e244363245021_ - _hd244362245024_ - _tl244361245026_ - _e244366245029_ - _hd244365245032_ - _tl244364245034_ - _e244369245037_ - _hd244368245040_ - _tl244367245042_ - _e244372245045_ - _hd244371245048_ - _tl244370245050_ - _e244375245053_ - _hd244374245056_ - _tl244373245058_ - _e244378245061_ - _hd244377245064_ - _tl244376245066_ - _e244381245069_ - _hd244380245072_ - _tl244379245074_ - _e244384245077_ - _hd244383245080_ - _tl244382245082_ - ___splice254947254948_ - _target244385245085_ - _tl244387245087_) - (letrec ((_loop244388245090_ - (lambda (_hd244386245093_ _args244392245095_) + (gx#stx-null? _tl245616246119_)) + (___match256432256433_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_ + _e245621246122_ + _hd245620246125_ + _tl245619246127_ + _e245624246130_ + _hd245623246133_ + _tl245622246135_) + (___match256510256511_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_ + _e245621246122_ + _hd245620246125_ + _tl245619246127_ + _e245624246130_ + _hd245623246133_ + _tl245622246135_)) + (___match256634256635_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_)))) + (___match256634256635_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_)) + (___match256634256635_ + _e245597246058_ + _hd245596246061_ + _tl245595246063_ + _e245600246066_ + _hd245599246069_ + _tl245598246071_ + _e245603246074_ + _hd245602246077_ + _tl245601246079_ + _e245606246082_ + _hd245605246085_ + _tl245604246087_ + _e245609246090_ + _hd245608246093_ + _tl245607246095_ + _e245612246098_ + _hd245611246101_ + _tl245610246103_ + _e245615246106_ + _hd245614246109_ + _tl245613246111_ + _e245618246114_ + _hd245617246117_ + _tl245616246119_)))) + (___match256352256353_ + (lambda (_e245546246179_ + _hd245545246182_ + _tl245544246184_ + _e245549246187_ + _hd245548246190_ + _tl245547246192_ + _e245552246195_ + _hd245551246198_ + _tl245550246200_ + _e245555246203_ + _hd245554246206_ + _tl245553246208_ + _e245558246211_ + _hd245557246214_ + _tl245556246216_ + _e245561246219_ + _hd245560246222_ + _tl245559246224_ + _e245564246227_ + _hd245563246230_ + _tl245562246232_ + _e245567246235_ + _hd245566246238_ + _tl245565246240_ + _e245570246243_ + _hd245569246246_ + _tl245568246248_ + _e245573246251_ + _hd245572246254_ + _tl245571246256_ + _e245576246259_ + _hd245575246262_ + _tl245574246264_ + _e245579246267_ + _hd245578246270_ + _tl245577246272_ + _e245582246275_ + _hd245581246278_ + _tl245580246280_ + ___splice256145256146_ + _target245583246283_ + _tl245585246285_) + (letrec ((_loop245586246288_ + (lambda (_hd245584246291_ _args245590246293_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244386245093_)) - (let ((_e244389245098_ + (gx#stx-pair? _hd245584246291_)) + (let ((_e245587246296_ (let () (declare (not safe)) - (gx#stx-e _hd244386245093_)))) - (let ((_lp-tl244391245103_ + (gx#stx-e _hd245584246291_)))) + (let ((_lp-tl245589246301_ (let () (declare (not safe)) - (##cdr _e244389245098_))) - (_lp-hd244390245101_ + (##cdr _e245587246296_))) + (_lp-hd245588246299_ (let () (declare (not safe)) - (##car _e244389245098_)))) - (let ((__tmp255885 + (##car _e245587246296_)))) + (let ((__tmp257086 (let () (declare (not safe)) - (cons _lp-hd244390245101_ - _args244392245095_)))) + (cons _lp-hd245588246299_ + _args245590246293_)))) (declare (not safe)) - (_loop244388245090_ - _lp-tl244391245103_ - __tmp255885)))) - (let ((_args244393245106_ - (reverse _args244392245095_))) - (let ((_L245109_ _args244393245106_) - (_L245110_ _hd244383245080_) - (_L245111_ _hd244374245056_) - (_L245112_ _hd244365245032_) - (_L245113_ _hd244356245008_)) + (_loop245586246288_ + _lp-tl245589246301_ + __tmp257086)))) + (let ((_args245591246304_ + (reverse _args245590246293_))) + (let ((_L246307_ _args245591246304_) + (_L246308_ _hd245581246278_) + (_L246309_ _hd245572246254_) + (_L246310_ _hd245563246230_) + (_L246311_ _hd245554246206_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L245113_ + _L246311_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L245112_ + _L246310_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L245111_ - _self244280_))) - (___kont254945254946_ - _L245109_ - _L245110_ - _L245111_ - _L245112_ - _L245113_) - (___kont254957254958_)))))))) + _L246309_ + _self245478_))) + (___kont256143256144_ + _L246307_ + _L246308_ + _L246309_ + _L246310_ + _L246311_) + (___kont256155256156_)))))))) (let () (declare (not safe)) - (_loop244388245090_ _target244385245085_ '()))))) - (___match255112255113_ - (lambda (_e244348244981_ - _hd244347244984_ - _tl244346244986_ - _e244351244989_ - _hd244350244992_ - _tl244349244994_ - _e244354244997_ - _hd244353245000_ - _tl244352245002_ - _e244357245005_ - _hd244356245008_ - _tl244355245010_ - _e244360245013_ - _hd244359245016_ - _tl244358245018_ - _e244363245021_ - _hd244362245024_ - _tl244361245026_ - _e244366245029_ - _hd244365245032_ - _tl244364245034_ - _e244369245037_ - _hd244368245040_ - _tl244367245042_ - _e244372245045_ - _hd244371245048_ - _tl244370245050_) + (_loop245586246288_ _target245583246283_ '()))))) + (___match256310256311_ + (lambda (_e245546246179_ + _hd245545246182_ + _tl245544246184_ + _e245549246187_ + _hd245548246190_ + _tl245547246192_ + _e245552246195_ + _hd245551246198_ + _tl245550246200_ + _e245555246203_ + _hd245554246206_ + _tl245553246208_ + _e245558246211_ + _hd245557246214_ + _tl245556246216_ + _e245561246219_ + _hd245560246222_ + _tl245559246224_ + _e245564246227_ + _hd245563246230_ + _tl245562246232_ + _e245567246235_ + _hd245566246238_ + _tl245565246240_ + _e245570246243_ + _hd245569246246_ + _tl245568246248_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd244371245048_)) + (gx#stx-eq? '%#ref _hd245569246246_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244370245050_)) - (let ((_e244375245053_ + (gx#stx-pair? _tl245568246248_)) + (let ((_e245573246251_ (let () (declare (not safe)) - (gx#stx-e _tl244370245050_)))) - (let ((_tl244373245058_ + (gx#stx-e _tl245568246248_)))) + (let ((_tl245571246256_ (let () (declare (not safe)) - (##cdr _e244375245053_))) - (_hd244374245056_ + (##cdr _e245573246251_))) + (_hd245572246254_ (let () (declare (not safe)) - (##car _e244375245053_)))) + (##car _e245573246251_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244373245058_)) + (gx#stx-null? _tl245571246256_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244367245042_)) - (let ((_e244378245061_ + (gx#stx-pair? _tl245565246240_)) + (let ((_e245576246259_ (let () (declare (not safe)) (gx#stx-e - _tl244367245042_)))) - (let ((_tl244376245066_ + _tl245565246240_)))) + (let ((_tl245574246264_ (let () (declare (not safe)) - (##cdr _e244378245061_))) - (_hd244377245064_ + (##cdr _e245576246259_))) + (_hd245575246262_ (let () (declare (not safe)) - (##car _e244378245061_)))) + (##car _e245576246259_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd244377245064_)) - (let ((_e244381245069_ + _hd245575246262_)) + (let ((_e245579246267_ (let () (declare (not safe)) (gx#stx-e - _hd244377245064_)))) - (let ((_tl244379245074_ + _hd245575246262_)))) + (let ((_tl245577246272_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e244381245069_))) - (_hd244380245072_ - (let () (declare (not safe)) (##car _e244381245069_)))) + (##cdr _e245579246267_))) + (_hd245578246270_ + (let () (declare (not safe)) (##car _e245579246267_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd244380245072_)) + (gx#identifier? _hd245578246270_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd244380245072_)) + (gx#stx-eq? '%#quote _hd245578246270_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244379245074_)) - (let ((_e244384245077_ + (gx#stx-pair? _tl245577246272_)) + (let ((_e245582246275_ (let () (declare (not safe)) - (gx#stx-e _tl244379245074_)))) - (let ((_tl244382245082_ + (gx#stx-e _tl245577246272_)))) + (let ((_tl245580246280_ (let () (declare (not safe)) - (##cdr _e244384245077_))) - (_hd244383245080_ + (##cdr _e245582246275_))) + (_hd245581246278_ (let () (declare (not safe)) - (##car _e244384245077_)))) + (##car _e245582246275_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244382245082_)) + (gx#stx-null? _tl245580246280_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl244376245066_)) - (let ((___splice254947254948_ + (gx#stx-pair/null? _tl245574246264_)) + (let ((___splice256145256146_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl244376245066_ + _tl245574246264_ '0)))) - (let ((_tl244387245087_ + (let ((_tl245585246285_ (let () (declare (not safe)) (##vector-ref - ___splice254947254948_ + ___splice256145256146_ '1))) - (_target244385245085_ + (_target245583246283_ (let () (declare (not safe)) (##vector-ref - ___splice254947254948_ + ___splice256145256146_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl244387245087_)) - (___match255154255155_ - _e244348244981_ - _hd244347244984_ - _tl244346244986_ - _e244351244989_ - _hd244350244992_ - _tl244349244994_ - _e244354244997_ - _hd244353245000_ - _tl244352245002_ - _e244357245005_ - _hd244356245008_ - _tl244355245010_ - _e244360245013_ - _hd244359245016_ - _tl244358245018_ - _e244363245021_ - _hd244362245024_ - _tl244361245026_ - _e244366245029_ - _hd244365245032_ - _tl244364245034_ - _e244369245037_ - _hd244368245040_ - _tl244367245042_ - _e244372245045_ - _hd244371245048_ - _tl244370245050_ - _e244375245053_ - _hd244374245056_ - _tl244373245058_ - _e244378245061_ - _hd244377245064_ - _tl244376245066_ - _e244381245069_ - _hd244380245072_ - _tl244379245074_ - _e244384245077_ - _hd244383245080_ - _tl244382245082_ - ___splice254947254948_ - _target244385245085_ - _tl244387245087_) - (___kont254957254958_)))) - (___kont254957254958_)) - (___kont254957254958_)))) - (___kont254957254958_)) - (___kont254957254958_)) - (___kont254957254958_)))) + _tl245585246285_)) + (___match256352256353_ + _e245546246179_ + _hd245545246182_ + _tl245544246184_ + _e245549246187_ + _hd245548246190_ + _tl245547246192_ + _e245552246195_ + _hd245551246198_ + _tl245550246200_ + _e245555246203_ + _hd245554246206_ + _tl245553246208_ + _e245558246211_ + _hd245557246214_ + _tl245556246216_ + _e245561246219_ + _hd245560246222_ + _tl245559246224_ + _e245564246227_ + _hd245563246230_ + _tl245562246232_ + _e245567246235_ + _hd245566246238_ + _tl245565246240_ + _e245570246243_ + _hd245569246246_ + _tl245568246248_ + _e245573246251_ + _hd245572246254_ + _tl245571246256_ + _e245576246259_ + _hd245575246262_ + _tl245574246264_ + _e245579246267_ + _hd245578246270_ + _tl245577246272_ + _e245582246275_ + _hd245581246278_ + _tl245580246280_ + ___splice256145256146_ + _target245583246283_ + _tl245585246285_) + (___kont256155256156_)))) + (___kont256155256156_)) + (___kont256155256156_)))) + (___kont256155256156_)) + (___kont256155256156_)) + (___kont256155256156_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254957254958_)))) - (___match255436255437_ - _e244348244981_ - _hd244347244984_ - _tl244346244986_ - _e244351244989_ - _hd244350244992_ - _tl244349244994_ - _e244354244997_ - _hd244353245000_ - _tl244352245002_ - _e244357245005_ - _hd244356245008_ - _tl244355245010_ - _e244360245013_ - _hd244359245016_ - _tl244358245018_ - _e244363245021_ - _hd244362245024_ - _tl244361245026_ - _e244366245029_ - _hd244365245032_ - _tl244364245034_ - _e244369245037_ - _hd244368245040_ - _tl244367245042_)) - (___match255436255437_ - _e244348244981_ - _hd244347244984_ - _tl244346244986_ - _e244351244989_ - _hd244350244992_ - _tl244349244994_ - _e244354244997_ - _hd244353245000_ - _tl244352245002_ - _e244357245005_ - _hd244356245008_ - _tl244355245010_ - _e244360245013_ - _hd244359245016_ - _tl244358245018_ - _e244363245021_ - _hd244362245024_ - _tl244361245026_ - _e244366245029_ - _hd244365245032_ - _tl244364245034_ - _e244369245037_ - _hd244368245040_ - _tl244367245042_)))) - (___match255436255437_ - _e244348244981_ - _hd244347244984_ - _tl244346244986_ - _e244351244989_ - _hd244350244992_ - _tl244349244994_ - _e244354244997_ - _hd244353245000_ - _tl244352245002_ - _e244357245005_ - _hd244356245008_ - _tl244355245010_ - _e244360245013_ - _hd244359245016_ - _tl244358245018_ - _e244363245021_ - _hd244362245024_ - _tl244361245026_ - _e244366245029_ - _hd244365245032_ - _tl244364245034_ - _e244369245037_ - _hd244368245040_ - _tl244367245042_)) - (___match255222255223_ - _e244348244981_ - _hd244347244984_ - _tl244346244986_ - _e244351244989_ - _hd244350244992_ - _tl244349244994_ - _e244354244997_ - _hd244353245000_ - _tl244352245002_ - _e244357245005_ - _hd244356245008_ - _tl244355245010_ - _e244360245013_ - _hd244359245016_ - _tl244358245018_ - _e244363245021_ - _hd244362245024_ - _tl244361245026_ - _e244366245029_ - _hd244365245032_ - _tl244364245034_ - _e244369245037_ - _hd244368245040_ - _tl244367245042_ - _e244372245045_ - _hd244371245048_ - _tl244370245050_)))) - (___match255044255045_ - (lambda (_e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_ - _e244328245237_ - _hd244327245240_ - _tl244326245242_ - _e244331245245_ - _hd244330245248_ - _tl244329245250_ - ___splice254943254944_ - _target244332245253_ - _tl244334245255_) - (letrec ((_loop244335245258_ - (lambda (_hd244333245261_ _args244339245263_) + (___kont256155256156_)))) + (___match256634256635_ + _e245546246179_ + _hd245545246182_ + _tl245544246184_ + _e245549246187_ + _hd245548246190_ + _tl245547246192_ + _e245552246195_ + _hd245551246198_ + _tl245550246200_ + _e245555246203_ + _hd245554246206_ + _tl245553246208_ + _e245558246211_ + _hd245557246214_ + _tl245556246216_ + _e245561246219_ + _hd245560246222_ + _tl245559246224_ + _e245564246227_ + _hd245563246230_ + _tl245562246232_ + _e245567246235_ + _hd245566246238_ + _tl245565246240_)) + (___match256634256635_ + _e245546246179_ + _hd245545246182_ + _tl245544246184_ + _e245549246187_ + _hd245548246190_ + _tl245547246192_ + _e245552246195_ + _hd245551246198_ + _tl245550246200_ + _e245555246203_ + _hd245554246206_ + _tl245553246208_ + _e245558246211_ + _hd245557246214_ + _tl245556246216_ + _e245561246219_ + _hd245560246222_ + _tl245559246224_ + _e245564246227_ + _hd245563246230_ + _tl245562246232_ + _e245567246235_ + _hd245566246238_ + _tl245565246240_)))) + (___match256634256635_ + _e245546246179_ + _hd245545246182_ + _tl245544246184_ + _e245549246187_ + _hd245548246190_ + _tl245547246192_ + _e245552246195_ + _hd245551246198_ + _tl245550246200_ + _e245555246203_ + _hd245554246206_ + _tl245553246208_ + _e245558246211_ + _hd245557246214_ + _tl245556246216_ + _e245561246219_ + _hd245560246222_ + _tl245559246224_ + _e245564246227_ + _hd245563246230_ + _tl245562246232_ + _e245567246235_ + _hd245566246238_ + _tl245565246240_)) + (___match256420256421_ + _e245546246179_ + _hd245545246182_ + _tl245544246184_ + _e245549246187_ + _hd245548246190_ + _tl245547246192_ + _e245552246195_ + _hd245551246198_ + _tl245550246200_ + _e245555246203_ + _hd245554246206_ + _tl245553246208_ + _e245558246211_ + _hd245557246214_ + _tl245556246216_ + _e245561246219_ + _hd245560246222_ + _tl245559246224_ + _e245564246227_ + _hd245563246230_ + _tl245562246232_ + _e245567246235_ + _hd245566246238_ + _tl245565246240_ + _e245570246243_ + _hd245569246246_ + _tl245568246248_)))) + (___match256242256243_ + (lambda (_e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_ + _e245526246435_ + _hd245525246438_ + _tl245524246440_ + _e245529246443_ + _hd245528246446_ + _tl245527246448_ + ___splice256141256142_ + _target245530246451_ + _tl245532246453_) + (letrec ((_loop245533246456_ + (lambda (_hd245531246459_ _args245537246461_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244333245261_)) - (let ((_e244336245266_ + (gx#stx-pair? _hd245531246459_)) + (let ((_e245534246464_ (let () (declare (not safe)) - (gx#stx-e _hd244333245261_)))) - (let ((_lp-tl244338245271_ + (gx#stx-e _hd245531246459_)))) + (let ((_lp-tl245536246469_ (let () (declare (not safe)) - (##cdr _e244336245266_))) - (_lp-hd244337245269_ + (##cdr _e245534246464_))) + (_lp-hd245535246467_ (let () (declare (not safe)) - (##car _e244336245266_)))) - (let ((__tmp255886 + (##car _e245534246464_)))) + (let ((__tmp257087 (let () (declare (not safe)) - (cons _lp-hd244337245269_ - _args244339245263_)))) + (cons _lp-hd245535246467_ + _args245537246461_)))) (declare (not safe)) - (_loop244335245258_ - _lp-tl244338245271_ - __tmp255886)))) - (let ((_args244340245274_ - (reverse _args244339245263_))) - (let ((_L245277_ _args244340245274_) - (_L245278_ _hd244330245248_) - (_L245279_ _hd244321245224_) - (_L245280_ _hd244312245200_)) + (_loop245533246456_ + _lp-tl245536246469_ + __tmp257087)))) + (let ((_args245538246472_ + (reverse _args245537246461_))) + (let ((_L246475_ _args245538246472_) + (_L246476_ _hd245528246446_) + (_L246477_ _hd245519246422_) + (_L246478_ _hd245510246398_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _L245280_ + _L246478_ 'call-method)) (let () (declare (not safe)) (gx#free-identifier=? - _L245279_ - _self244280_))) - (___kont254941254942_ - _L245277_ - _L245278_ - _L245279_ - _L245280_) - (___match255232255233_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_ - _e244328245237_ - _hd244327245240_ - _tl244326245242_ - _e244331245245_ - _hd244330245248_ - _tl244329245250_)))))))) + _L246477_ + _self245478_))) + (___kont256139256140_ + _L246475_ + _L246476_ + _L246477_ + _L246478_) + (___match256430256431_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_ + _e245526246435_ + _hd245525246438_ + _tl245524246440_ + _e245529246443_ + _hd245528246446_ + _tl245527246448_)))))))) (let () (declare (not safe)) - (_loop244335245258_ _target244332245253_ '())))))) + (_loop245533246456_ _target245530246451_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx254939254940_)) - (let ((_e244304245173_ + (gx#stx-pair? ___stx256137256138_)) + (let ((_e245502246371_ (let () (declare (not safe)) - (gx#stx-e ___stx254939254940_)))) - (let ((_tl244302245178_ + (gx#stx-e ___stx256137256138_)))) + (let ((_tl245500246376_ (let () (declare (not safe)) - (##cdr _e244304245173_))) - (_hd244303245176_ + (##cdr _e245502246371_))) + (_hd245501246374_ (let () (declare (not safe)) - (##car _e244304245173_)))) + (##car _e245502246371_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244302245178_)) - (let ((_e244307245181_ + (gx#stx-pair? _tl245500246376_)) + (let ((_e245505246379_ (let () (declare (not safe)) - (gx#stx-e _tl244302245178_)))) - (let ((_tl244305245186_ + (gx#stx-e _tl245500246376_)))) + (let ((_tl245503246384_ (let () (declare (not safe)) - (##cdr _e244307245181_))) - (_hd244306245184_ + (##cdr _e245505246379_))) + (_hd245504246382_ (let () (declare (not safe)) - (##car _e244307245181_)))) + (##car _e245505246379_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244306245184_)) - (let ((_e244310245189_ + (gx#stx-pair? _hd245504246382_)) + (let ((_e245508246387_ (let () (declare (not safe)) - (gx#stx-e _hd244306245184_)))) - (let ((_tl244308245194_ + (gx#stx-e _hd245504246382_)))) + (let ((_tl245506246392_ (let () (declare (not safe)) - (##cdr _e244310245189_))) - (_hd244309245192_ + (##cdr _e245508246387_))) + (_hd245507246390_ (let () (declare (not safe)) - (##car _e244310245189_)))) + (##car _e245508246387_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd244309245192_)) + _hd245507246390_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd244309245192_)) + _hd245507246390_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl244308245194_)) - (let ((_e244313245197_ + _tl245506246392_)) + (let ((_e245511246395_ (let () (declare (not safe)) (gx#stx-e - _tl244308245194_)))) - (let ((_tl244311245202_ + _tl245506246392_)))) + (let ((_tl245509246400_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e244313245197_))) - (_hd244312245200_ - (let () (declare (not safe)) (##car _e244313245197_)))) + (##cdr _e245511246395_))) + (_hd245510246398_ + (let () (declare (not safe)) (##car _e245511246395_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244311245202_)) + (gx#stx-null? _tl245509246400_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244305245186_)) - (let ((_e244316245205_ + (gx#stx-pair? _tl245503246384_)) + (let ((_e245514246403_ (let () (declare (not safe)) - (gx#stx-e _tl244305245186_)))) - (let ((_tl244314245210_ + (gx#stx-e _tl245503246384_)))) + (let ((_tl245512246408_ (let () (declare (not safe)) - (##cdr _e244316245205_))) - (_hd244315245208_ + (##cdr _e245514246403_))) + (_hd245513246406_ (let () (declare (not safe)) - (##car _e244316245205_)))) + (##car _e245514246403_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244315245208_)) - (let ((_e244319245213_ + (gx#stx-pair? _hd245513246406_)) + (let ((_e245517246411_ (let () (declare (not safe)) - (gx#stx-e _hd244315245208_)))) - (let ((_tl244317245218_ + (gx#stx-e _hd245513246406_)))) + (let ((_tl245515246416_ (let () (declare (not safe)) - (##cdr _e244319245213_))) - (_hd244318245216_ + (##cdr _e245517246411_))) + (_hd245516246414_ (let () (declare (not safe)) - (##car _e244319245213_)))) + (##car _e245517246411_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd244318245216_)) + (gx#identifier? _hd245516246414_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd244318245216_)) + _hd245516246414_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl244317245218_)) - (let ((_e244322245221_ + _tl245515246416_)) + (let ((_e245520246419_ (let () (declare (not safe)) (gx#stx-e - _tl244317245218_)))) - (let ((_tl244320245226_ + _tl245515246416_)))) + (let ((_tl245518246424_ (let () (declare (not safe)) - (##cdr _e244322245221_))) - (_hd244321245224_ + (##cdr _e245520246419_))) + (_hd245519246422_ (let () (declare (not safe)) - (##car _e244322245221_)))) + (##car _e245520246419_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl244320245226_)) + _tl245518246424_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl244314245210_)) - (let ((_e244325245229_ + _tl245512246408_)) + (let ((_e245523246427_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl244314245210_)))) - (let ((_tl244323245234_ + (gx#stx-e _tl245512246408_)))) + (let ((_tl245521246432_ (let () (declare (not safe)) - (##cdr _e244325245229_))) - (_hd244324245232_ + (##cdr _e245523246427_))) + (_hd245522246430_ (let () (declare (not safe)) - (##car _e244325245229_)))) + (##car _e245523246427_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd244324245232_)) - (let ((_e244328245237_ + (gx#stx-pair? _hd245522246430_)) + (let ((_e245526246435_ (let () (declare (not safe)) - (gx#stx-e _hd244324245232_)))) - (let ((_tl244326245242_ + (gx#stx-e _hd245522246430_)))) + (let ((_tl245524246440_ (let () (declare (not safe)) - (##cdr _e244328245237_))) - (_hd244327245240_ + (##cdr _e245526246435_))) + (_hd245525246438_ (let () (declare (not safe)) - (##car _e244328245237_)))) + (##car _e245526246435_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd244327245240_)) + (gx#identifier? _hd245525246438_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd244327245240_)) + _hd245525246438_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl244326245242_)) - (let ((_e244331245245_ + (gx#stx-pair? _tl245524246440_)) + (let ((_e245529246443_ (let () (declare (not safe)) (gx#stx-e - _tl244326245242_)))) - (let ((_tl244329245250_ + _tl245524246440_)))) + (let ((_tl245527246448_ (let () (declare (not safe)) - (##cdr _e244331245245_))) - (_hd244330245248_ + (##cdr _e245529246443_))) + (_hd245528246446_ (let () (declare (not safe)) - (##car _e244331245245_)))) + (##car _e245529246443_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl244329245250_)) + _tl245527246448_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl244323245234_)) - (let ((___splice254943254944_ + _tl245521246432_)) + (let ((___splice256141256142_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _tl244323245234_ '0)))) - (let ((_tl244334245255_ + (gx#syntax-split-splice _tl245521246432_ '0)))) + (let ((_tl245532246453_ (let () (declare (not safe)) - (##vector-ref ___splice254943254944_ '1))) - (_target244332245253_ + (##vector-ref ___splice256141256142_ '1))) + (_target245530246451_ (let () (declare (not safe)) - (##vector-ref ___splice254943254944_ '0)))) + (##vector-ref ___splice256141256142_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl244334245255_)) - (___match255044255045_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_ - _e244328245237_ - _hd244327245240_ - _tl244326245242_ - _e244331245245_ - _hd244330245248_ - _tl244329245250_ - ___splice254943254944_ - _target244332245253_ - _tl244334245255_) - (___match255232255233_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_ - _e244328245237_ - _hd244327245240_ - _tl244326245242_ - _e244331245245_ - _hd244330245248_ - _tl244329245250_)))) - (___match255232255233_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_ - _e244328245237_ - _hd244327245240_ - _tl244326245242_ - _e244331245245_ - _hd244330245248_ - _tl244329245250_)) + (gx#stx-null? _tl245532246453_)) + (___match256242256243_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_ + _e245526246435_ + _hd245525246438_ + _tl245524246440_ + _e245529246443_ + _hd245528246446_ + _tl245527246448_ + ___splice256141256142_ + _target245530246451_ + _tl245532246453_) + (___match256430256431_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_ + _e245526246435_ + _hd245525246438_ + _tl245524246440_ + _e245529246443_ + _hd245528246446_ + _tl245527246448_)))) + (___match256430256431_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_ + _e245526246435_ + _hd245525246438_ + _tl245524246440_ + _e245529246443_ + _hd245528246446_ + _tl245527246448_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match255436255437_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_)))) - (___match255436255437_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_)) - (___match255112255113_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_ - _e244328245237_ - _hd244327245240_ - _tl244326245242_)) - (___match255436255437_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_)))) - (___match255436255437_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_ - _e244325245229_ - _hd244324245232_ - _tl244323245234_)))) - (___match255374255375_ - _e244304245173_ - _hd244303245176_ - _tl244302245178_ - _e244307245181_ - _hd244306245184_ - _tl244305245186_ - _e244310245189_ - _hd244309245192_ - _tl244308245194_ - _e244313245197_ - _hd244312245200_ - _tl244311245202_ - _e244316245205_ - _hd244315245208_ - _tl244314245210_ - _e244319245213_ - _hd244318245216_ - _tl244317245218_ - _e244322245221_ - _hd244321245224_ - _tl244320245226_)) - (___kont254957254958_)))) + (___match256634256635_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_)))) + (___match256634256635_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_)) + (___match256310256311_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_ + _e245526246435_ + _hd245525246438_ + _tl245524246440_)) + (___match256634256635_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_)))) + (___match256634256635_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_ + _e245523246427_ + _hd245522246430_ + _tl245521246432_)))) + (___match256572256573_ + _e245502246371_ + _hd245501246374_ + _tl245500246376_ + _e245505246379_ + _hd245504246382_ + _tl245503246384_ + _e245508246387_ + _hd245507246390_ + _tl245506246392_ + _e245511246395_ + _hd245510246398_ + _tl245509246400_ + _e245514246403_ + _hd245513246406_ + _tl245512246408_ + _e245517246411_ + _hd245516246414_ + _tl245515246416_ + _e245520246419_ + _hd245519246422_ + _tl245518246424_)) + (___kont256155256156_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254957254958_)) - (___kont254957254958_)) - (___kont254957254958_)))) - (___kont254957254958_)))) - (___kont254957254958_)) - (___kont254957254958_)))) + (___kont256155256156_)) + (___kont256155256156_)) + (___kont256155256156_)))) + (___kont256155256156_)))) + (___kont256155256156_)) + (___kont256155256156_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont254957254958_)) - (___kont254957254958_)) - (___kont254957254958_)))) - (___kont254957254958_)))) - (___kont254957254958_)))) - (___kont254957254958_)))))))))) + (___kont256155256156_)) + (___kont256155256156_)) + (___kont256155256156_)))) + (___kont256155256156_)))) + (___kont256155256156_)))) + (___kont256155256156_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__0.scm b/src/bootstrap/gerbil/compiler/optimize-top__0.scm index 8186cb4ca..3310f0122 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__0.scm @@ -1,2912 +1,2912 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1707773929) + (define gerbil/compiler/optimize-top::timestamp 1708102805) (begin (define gxc#&collect-top-level-type-info (make-promise (lambda () - (let ((_tbl237205_ + (let ((_tbl238403_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp243866 (force gxc#&void))) + (let ((__tmp245064 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl237205_ __tmp243866)) + (hash-copy! _tbl238403_ __tmp245064)) (let () (declare (not safe)) - (table-set! _tbl237205_ '%#begin gxc#collect-begin%)) + (table-set! _tbl238403_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl237205_ + _tbl238403_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl237205_ '%#module gxc#collect-module%)) + (table-set! _tbl238403_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl237205_ + _tbl238403_ '%#define-values gxc#collect-top-level-type-define-values%)) - _tbl237205_)))) + _tbl238403_)))) (define gxc#apply-collect-top-level-type-info - (lambda (_stx237188_ . _args237190_) - (let ((__tmp243868 + (lambda (_stx238386_ . _args238388_) + (let ((__tmp245066 (lambda () (declare (not safe)) - (if (null? _args237190_) - (gxc#compile-e__0 _stx237188_) - (let ((_arg1237195_ (car _args237190_)) - (_rest237197_ (cdr _args237190_))) - (if (null? _rest237197_) - (gxc#compile-e__1 _stx237188_ _arg1237195_) - (let ((_arg2237200_ (car _rest237197_)) - (_rest237202_ (cdr _rest237197_))) - (if (null? _rest237202_) + (if (null? _args238388_) + (gxc#compile-e__0 _stx238386_) + (let ((_arg1238393_ (car _args238388_)) + (_rest238395_ (cdr _args238388_))) + (if (null? _rest238395_) + (gxc#compile-e__1 _stx238386_ _arg1238393_) + (let ((_arg2238398_ (car _rest238395_)) + (_rest238400_ (cdr _rest238395_))) + (if (null? _rest238400_) (gxc#compile-e__2 - _stx237188_ - _arg1237195_ - _arg2237200_) + _stx238386_ + _arg1238393_ + _arg2238398_) (apply gxc#compile-e - _stx237188_ - _arg1237195_ - _arg2237200_ - _rest237202_)))))))) - (__tmp243867 (force gxc#&collect-top-level-type-info))) + _stx238386_ + _arg1238393_ + _arg2238398_ + _rest238400_)))))))) + (__tmp245065 (force gxc#&collect-top-level-type-info))) (declare (not safe)) (call-with-parameters - __tmp243868 + __tmp245066 gxc#current-compile-methods - __tmp243867)))) + __tmp245065)))) (define gxc#&basic-expression-top-level-type (make-promise (lambda () - (let ((_tbl237185_ + (let ((_tbl238383_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp243869 (force gxc#&false))) + (let ((__tmp245067 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl237185_ __tmp243869)) + (hash-copy! _tbl238383_ __tmp245067)) (let () (declare (not safe)) (table-set! - _tbl237185_ + _tbl238383_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl237185_ '%#call gxc#basic-expression-type-call%)) - _tbl237185_)))) + (table-set! _tbl238383_ '%#call gxc#basic-expression-type-call%)) + _tbl238383_)))) (define gxc#apply-basic-expression-top-level-type - (lambda (_stx237168_ . _args237170_) - (let ((__tmp243871 + (lambda (_stx238366_ . _args238368_) + (let ((__tmp245069 (lambda () (declare (not safe)) - (if (null? _args237170_) - (gxc#compile-e__0 _stx237168_) - (let ((_arg1237175_ (car _args237170_)) - (_rest237177_ (cdr _args237170_))) - (if (null? _rest237177_) - (gxc#compile-e__1 _stx237168_ _arg1237175_) - (let ((_arg2237180_ (car _rest237177_)) - (_rest237182_ (cdr _rest237177_))) - (if (null? _rest237182_) + (if (null? _args238368_) + (gxc#compile-e__0 _stx238366_) + (let ((_arg1238373_ (car _args238368_)) + (_rest238375_ (cdr _args238368_))) + (if (null? _rest238375_) + (gxc#compile-e__1 _stx238366_ _arg1238373_) + (let ((_arg2238378_ (car _rest238375_)) + (_rest238380_ (cdr _rest238375_))) + (if (null? _rest238380_) (gxc#compile-e__2 - _stx237168_ - _arg1237175_ - _arg2237180_) + _stx238366_ + _arg1238373_ + _arg2238378_) (apply gxc#compile-e - _stx237168_ - _arg1237175_ - _arg2237180_ - _rest237182_)))))))) - (__tmp243870 (force gxc#&basic-expression-top-level-type))) + _stx238366_ + _arg1238373_ + _arg2238378_ + _rest238380_)))))))) + (__tmp245068 (force gxc#&basic-expression-top-level-type))) (declare (not safe)) (call-with-parameters - __tmp243871 + __tmp245069 gxc#current-compile-methods - __tmp243870)))) + __tmp245068)))) (define gxc#&collect-type-info (make-promise (lambda () - (let ((_tbl237165_ + (let ((_tbl238363_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp243872 (force gxc#&void))) + (let ((__tmp245070 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl237165_ __tmp243872)) + (hash-copy! _tbl238363_ __tmp245070)) (let () (declare (not safe)) - (table-set! _tbl237165_ '%#begin gxc#collect-begin%)) + (table-set! _tbl238363_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl237165_ + _tbl238363_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl237165_ '%#module gxc#collect-module%)) + (table-set! _tbl238363_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl237165_ + _tbl238363_ '%#define-values gxc#collect-type-define-values%)) (let () (declare (not safe)) (table-set! - _tbl237165_ + _tbl238363_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl237165_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl238363_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl237165_ + _tbl238363_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl237165_ + _tbl238363_ '%#let-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl237165_ + _tbl238363_ '%#letrec-values gxc#collect-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl237165_ + _tbl238363_ '%#letrec*-values gxc#collect-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl237165_ '%#call gxc#collect-type-call%)) + (table-set! _tbl238363_ '%#call gxc#collect-type-call%)) (let () (declare (not safe)) - (table-set! _tbl237165_ '%#if gxc#collect-operands)) + (table-set! _tbl238363_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl237165_ '%#set! gxc#collect-body-setq%)) - _tbl237165_)))) + (table-set! _tbl238363_ '%#set! gxc#collect-body-setq%)) + _tbl238363_)))) (define gxc#apply-collect-type-info - (lambda (_stx237148_ . _args237150_) - (let ((__tmp243874 + (lambda (_stx238346_ . _args238348_) + (let ((__tmp245072 (lambda () (declare (not safe)) - (if (null? _args237150_) - (gxc#compile-e__0 _stx237148_) - (let ((_arg1237155_ (car _args237150_)) - (_rest237157_ (cdr _args237150_))) - (if (null? _rest237157_) - (gxc#compile-e__1 _stx237148_ _arg1237155_) - (let ((_arg2237160_ (car _rest237157_)) - (_rest237162_ (cdr _rest237157_))) - (if (null? _rest237162_) + (if (null? _args238348_) + (gxc#compile-e__0 _stx238346_) + (let ((_arg1238353_ (car _args238348_)) + (_rest238355_ (cdr _args238348_))) + (if (null? _rest238355_) + (gxc#compile-e__1 _stx238346_ _arg1238353_) + (let ((_arg2238358_ (car _rest238355_)) + (_rest238360_ (cdr _rest238355_))) + (if (null? _rest238360_) (gxc#compile-e__2 - _stx237148_ - _arg1237155_ - _arg2237160_) + _stx238346_ + _arg1238353_ + _arg2238358_) (apply gxc#compile-e - _stx237148_ - _arg1237155_ - _arg2237160_ - _rest237162_)))))))) - (__tmp243873 (force gxc#&collect-type-info))) + _stx238346_ + _arg1238353_ + _arg2238358_ + _rest238360_)))))))) + (__tmp245071 (force gxc#&collect-type-info))) (declare (not safe)) (call-with-parameters - __tmp243874 + __tmp245072 gxc#current-compile-methods - __tmp243873)))) + __tmp245071)))) (define gxc#&basic-expression-type (make-promise (lambda () - (let ((_tbl237145_ + (let ((_tbl238343_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp243875 (force gxc#&false))) + (let ((__tmp245073 (force gxc#&false))) (declare (not safe)) - (hash-copy! _tbl237145_ __tmp243875)) + (hash-copy! _tbl238343_ __tmp245073)) (let () (declare (not safe)) (table-set! - _tbl237145_ + _tbl238343_ '%#begin gxc#basic-expression-type-begin%)) (let () (declare (not safe)) (table-set! - _tbl237145_ + _tbl238343_ '%#begin-annotation gxc#basic-expression-type-begin-annotation%)) (let () (declare (not safe)) (table-set! - _tbl237145_ + _tbl238343_ '%#lambda gxc#basic-expression-type-lambda%)) (let () (declare (not safe)) (table-set! - _tbl237145_ + _tbl238343_ '%#case-lambda gxc#basic-expression-type-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl237145_ + _tbl238343_ '%#let-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl237145_ + _tbl238343_ '%#letrec-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) (table-set! - _tbl237145_ + _tbl238343_ '%#letrec*-values gxc#basic-expression-type-let-values%)) (let () (declare (not safe)) - (table-set! _tbl237145_ '%#call gxc#basic-expression-type-call%)) + (table-set! _tbl238343_ '%#call gxc#basic-expression-type-call%)) (let () (declare (not safe)) - (table-set! _tbl237145_ '%#ref gxc#basic-expression-type-ref%)) - _tbl237145_)))) + (table-set! _tbl238343_ '%#ref gxc#basic-expression-type-ref%)) + _tbl238343_)))) (define gxc#apply-basic-expression-type - (lambda (_stx237128_ . _args237130_) - (let ((__tmp243877 + (lambda (_stx238326_ . _args238328_) + (let ((__tmp245075 (lambda () (declare (not safe)) - (if (null? _args237130_) - (gxc#compile-e__0 _stx237128_) - (let ((_arg1237135_ (car _args237130_)) - (_rest237137_ (cdr _args237130_))) - (if (null? _rest237137_) - (gxc#compile-e__1 _stx237128_ _arg1237135_) - (let ((_arg2237140_ (car _rest237137_)) - (_rest237142_ (cdr _rest237137_))) - (if (null? _rest237142_) + (if (null? _args238328_) + (gxc#compile-e__0 _stx238326_) + (let ((_arg1238333_ (car _args238328_)) + (_rest238335_ (cdr _args238328_))) + (if (null? _rest238335_) + (gxc#compile-e__1 _stx238326_ _arg1238333_) + (let ((_arg2238338_ (car _rest238335_)) + (_rest238340_ (cdr _rest238335_))) + (if (null? _rest238340_) (gxc#compile-e__2 - _stx237128_ - _arg1237135_ - _arg2237140_) + _stx238326_ + _arg1238333_ + _arg2238338_) (apply gxc#compile-e - _stx237128_ - _arg1237135_ - _arg2237140_ - _rest237142_)))))))) - (__tmp243876 (force gxc#&basic-expression-type))) + _stx238326_ + _arg1238333_ + _arg2238338_ + _rest238340_)))))))) + (__tmp245074 (force gxc#&basic-expression-type))) (declare (not safe)) (call-with-parameters - __tmp243877 + __tmp245075 gxc#current-compile-methods - __tmp243876)))) + __tmp245074)))) (define gxc#&lift-top-lambdas (make-promise (lambda () - (let ((_tbl237125_ + (let ((_tbl238323_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp243878 (force gxc#&basic-xform))) + (let ((__tmp245076 (force gxc#&basic-xform))) (declare (not safe)) - (hash-copy! _tbl237125_ __tmp243878)) + (hash-copy! _tbl238323_ __tmp245076)) (let () (declare (not safe)) (table-set! - _tbl237125_ + _tbl238323_ '%#define-values gxc#lift-top-lambda-define-values%)) (let () (declare (not safe)) (table-set! - _tbl237125_ + _tbl238323_ '%#let-values gxc#lift-top-lambda-let-values%)) (let () (declare (not safe)) (table-set! - _tbl237125_ + _tbl238323_ '%#letrec-values gxc#lift-top-lambda-letrec-values%)) (let () (declare (not safe)) (table-set! - _tbl237125_ + _tbl238323_ '%#letrec*-values gxc#lift-top-lambda-letrec-values%)) - _tbl237125_)))) + _tbl238323_)))) (define gxc#apply-lift-top-lambdas - (lambda (_stx237108_ . _args237110_) - (let ((__tmp243880 + (lambda (_stx238306_ . _args238308_) + (let ((__tmp245078 (lambda () (declare (not safe)) - (if (null? _args237110_) - (gxc#compile-e__0 _stx237108_) - (let ((_arg1237115_ (car _args237110_)) - (_rest237117_ (cdr _args237110_))) - (if (null? _rest237117_) - (gxc#compile-e__1 _stx237108_ _arg1237115_) - (let ((_arg2237120_ (car _rest237117_)) - (_rest237122_ (cdr _rest237117_))) - (if (null? _rest237122_) + (if (null? _args238308_) + (gxc#compile-e__0 _stx238306_) + (let ((_arg1238313_ (car _args238308_)) + (_rest238315_ (cdr _args238308_))) + (if (null? _rest238315_) + (gxc#compile-e__1 _stx238306_ _arg1238313_) + (let ((_arg2238318_ (car _rest238315_)) + (_rest238320_ (cdr _rest238315_))) + (if (null? _rest238320_) (gxc#compile-e__2 - _stx237108_ - _arg1237115_ - _arg2237120_) + _stx238306_ + _arg1238313_ + _arg2238318_) (apply gxc#compile-e - _stx237108_ - _arg1237115_ - _arg2237120_ - _rest237122_)))))))) - (__tmp243879 (force gxc#&lift-top-lambdas))) + _stx238306_ + _arg1238313_ + _arg2238318_ + _rest238320_)))))))) + (__tmp245077 (force gxc#&lift-top-lambdas))) (declare (not safe)) (call-with-parameters - __tmp243880 + __tmp245078 gxc#current-compile-methods - __tmp243879)))) + __tmp245077)))) (define gxc#collect-top-level-type-define-values% - (lambda (_stx237011_) - (let* ((___stx241786241787_ _stx237011_) - (_g237014237034_ + (lambda (_stx238209_) + (let* ((___stx242984242985_ _stx238209_) + (_g238212238232_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx241786241787_))))) - (let ((___kont241788241789_ - (lambda (_L237078_ _L237079_) - (let ((_sym237097_ + ___stx242984242985_))))) + (let ((___kont242986242987_ + (lambda (_L238276_ _L238277_) + (let ((_sym238295_ (let () (declare (not safe)) - (gxc#identifier-symbol _L237079_)))) - (if (let ((__tmp243881 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L238277_)))) + (if (let ((__tmp245079 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp243881 _sym237097_ '#f)) + (table-ref __tmp245079 _sym238295_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym237097_)) - (let ((_type237098237100_ + _sym238295_)) + (let ((_type238296238298_ (let () (declare (not safe)) (gxc#apply-basic-expression-top-level-type - _L237078_)))) - (if _type237098237100_ - (let ((_type237103_ _type237098237100_)) + _L238276_)))) + (if _type238296238298_ + (let ((_type238301_ _type238296238298_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym237097_ - _type237103_)) + _sym238295_ + _type238301_)) '#f)))))) - (___kont241790241791_ (lambda () '#!void))) - (let ((___match241819241820_ - (lambda (_e237020237046_ - _hd237019237049_ - _tl237018237051_ - _e237023237054_ - _hd237022237057_ - _tl237021237059_ - _e237026237062_ - _hd237025237065_ - _tl237024237067_ - _e237029237070_ - _hd237028237073_ - _tl237027237075_) - (let ((_L237078_ _hd237028237073_) - (_L237079_ _hd237025237065_)) + (___kont242988242989_ (lambda () '#!void))) + (let ((___match243017243018_ + (lambda (_e238218238244_ + _hd238217238247_ + _tl238216238249_ + _e238221238252_ + _hd238220238255_ + _tl238219238257_ + _e238224238260_ + _hd238223238263_ + _tl238222238265_ + _e238227238268_ + _hd238226238271_ + _tl238225238273_) + (let ((_L238276_ _hd238226238271_) + (_L238277_ _hd238223238263_)) (if (let () (declare (not safe)) - (gx#identifier? _L237079_)) - (___kont241788241789_ _L237078_ _L237079_) - (___kont241790241791_)))))) + (gx#identifier? _L238277_)) + (___kont242986242987_ _L238276_ _L238277_) + (___kont242988242989_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx241786241787_)) - (let ((_e237020237046_ + (gx#stx-pair? ___stx242984242985_)) + (let ((_e238218238244_ (let () (declare (not safe)) - (gx#stx-e ___stx241786241787_)))) - (let ((_tl237018237051_ + (gx#stx-e ___stx242984242985_)))) + (let ((_tl238216238249_ (let () (declare (not safe)) - (##cdr _e237020237046_))) - (_hd237019237049_ + (##cdr _e238218238244_))) + (_hd238217238247_ (let () (declare (not safe)) - (##car _e237020237046_)))) + (##car _e238218238244_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl237018237051_)) - (let ((_e237023237054_ + (gx#stx-pair? _tl238216238249_)) + (let ((_e238221238252_ (let () (declare (not safe)) - (gx#stx-e _tl237018237051_)))) - (let ((_tl237021237059_ + (gx#stx-e _tl238216238249_)))) + (let ((_tl238219238257_ (let () (declare (not safe)) - (##cdr _e237023237054_))) - (_hd237022237057_ + (##cdr _e238221238252_))) + (_hd238220238255_ (let () (declare (not safe)) - (##car _e237023237054_)))) + (##car _e238221238252_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd237022237057_)) - (let ((_e237026237062_ + (gx#stx-pair? _hd238220238255_)) + (let ((_e238224238260_ (let () (declare (not safe)) - (gx#stx-e _hd237022237057_)))) - (let ((_tl237024237067_ + (gx#stx-e _hd238220238255_)))) + (let ((_tl238222238265_ (let () (declare (not safe)) - (##cdr _e237026237062_))) - (_hd237025237065_ + (##cdr _e238224238260_))) + (_hd238223238263_ (let () (declare (not safe)) - (##car _e237026237062_)))) + (##car _e238224238260_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl237024237067_)) + (gx#stx-null? _tl238222238265_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl237021237059_)) - (let ((_e237029237070_ + _tl238219238257_)) + (let ((_e238227238268_ (let () (declare (not safe)) (gx#stx-e - _tl237021237059_)))) - (let ((_tl237027237075_ + _tl238219238257_)))) + (let ((_tl238225238273_ (let () (declare (not safe)) - (##cdr _e237029237070_))) - (_hd237028237073_ + (##cdr _e238227238268_))) + (_hd238226238271_ (let () (declare (not safe)) - (##car _e237029237070_)))) + (##car _e238227238268_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl237027237075_)) - (___match241819241820_ - _e237020237046_ - _hd237019237049_ - _tl237018237051_ - _e237023237054_ - _hd237022237057_ - _tl237021237059_ - _e237026237062_ - _hd237025237065_ - _tl237024237067_ - _e237029237070_ - _hd237028237073_ - _tl237027237075_) - (___kont241790241791_)))) - (___kont241790241791_)) - (___kont241790241791_)))) - (___kont241790241791_)))) - (___kont241790241791_)))) - (___kont241790241791_))))))) + _tl238225238273_)) + (___match243017243018_ + _e238218238244_ + _hd238217238247_ + _tl238216238249_ + _e238221238252_ + _hd238220238255_ + _tl238219238257_ + _e238224238260_ + _hd238223238263_ + _tl238222238265_ + _e238227238268_ + _hd238226238271_ + _tl238225238273_) + (___kont242988242989_)))) + (___kont242988242989_)) + (___kont242988242989_)))) + (___kont242988242989_)))) + (___kont242988242989_)))) + (___kont242988242989_))))))) (define gxc#collect-type-define-values% - (lambda (_stx236867_) - (let* ((___stx241822241823_ _stx236867_) - (_g236870236901_ + (lambda (_stx238065_) + (let* ((___stx243020243021_ _stx238065_) + (_g238068238099_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx241822241823_))))) - (let ((___kont241824241825_ - (lambda (_L236983_ _L236984_) - (let ((_sym237000_ + ___stx243020243021_))))) + (let ((___kont243022243023_ + (lambda (_L238181_ _L238182_) + (let ((_sym238198_ (let () (declare (not safe)) - (gxc#identifier-symbol _L236984_)))) - (if (let ((__tmp243882 (gxc#current-compile-mutators))) + (gxc#identifier-symbol _L238182_)))) + (if (let ((__tmp245080 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp243882 _sym237000_ '#f)) + (table-ref __tmp245080 _sym238198_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for mutable binding " - _sym237000_)) + _sym238198_)) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym237000_)) + (gxc#optimizer-lookup-type _sym238198_)) (let () (declare (not safe)) (gxc#verbose '"skipping type inference for already declared type " - _sym237000_)) - (let ((_type237001237003_ + _sym238198_)) + (let ((_type238199238201_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _L236983_)))) - (if _type237001237003_ - (let ((_type237006_ _type237001237003_)) + _L238181_)))) + (if _type238199238201_ + (let ((_type238204_ _type238199238201_)) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _sym237000_ - _type237006_)) + _sym238198_ + _type238204_)) '#f)))) (let () (declare (not safe)) - (gxc#compile-e__0 _L236983_))))) - (___kont241826241827_ - (lambda (_L236930_ _L236931_) + (gxc#compile-e__0 _L238181_))))) + (___kont243024243025_ + (lambda (_L238128_ _L238129_) (let () (declare (not safe)) - (gxc#compile-e__0 _L236930_))))) - (let ((___match241855241856_ - (lambda (_e236876236951_ - _hd236875236954_ - _tl236874236956_ - _e236879236959_ - _hd236878236962_ - _tl236877236964_ - _e236882236967_ - _hd236881236970_ - _tl236880236972_ - _e236885236975_ - _hd236884236978_ - _tl236883236980_) - (let ((_L236983_ _hd236884236978_) - (_L236984_ _hd236881236970_)) + (gxc#compile-e__0 _L238128_))))) + (let ((___match243053243054_ + (lambda (_e238074238149_ + _hd238073238152_ + _tl238072238154_ + _e238077238157_ + _hd238076238160_ + _tl238075238162_ + _e238080238165_ + _hd238079238168_ + _tl238078238170_ + _e238083238173_ + _hd238082238176_ + _tl238081238178_) + (let ((_L238181_ _hd238082238176_) + (_L238182_ _hd238079238168_)) (if (let () (declare (not safe)) - (gx#identifier? _L236984_)) - (___kont241824241825_ _L236983_ _L236984_) - (___kont241826241827_ - _hd236884236978_ - _hd236878236962_)))))) + (gx#identifier? _L238182_)) + (___kont243022243023_ _L238181_ _L238182_) + (___kont243024243025_ + _hd238082238176_ + _hd238076238160_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx241822241823_)) - (let ((_e236876236951_ + (gx#stx-pair? ___stx243020243021_)) + (let ((_e238074238149_ (let () (declare (not safe)) - (gx#stx-e ___stx241822241823_)))) - (let ((_tl236874236956_ + (gx#stx-e ___stx243020243021_)))) + (let ((_tl238072238154_ (let () (declare (not safe)) - (##cdr _e236876236951_))) - (_hd236875236954_ + (##cdr _e238074238149_))) + (_hd238073238152_ (let () (declare (not safe)) - (##car _e236876236951_)))) + (##car _e238074238149_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236874236956_)) - (let ((_e236879236959_ + (gx#stx-pair? _tl238072238154_)) + (let ((_e238077238157_ (let () (declare (not safe)) - (gx#stx-e _tl236874236956_)))) - (let ((_tl236877236964_ + (gx#stx-e _tl238072238154_)))) + (let ((_tl238075238162_ (let () (declare (not safe)) - (##cdr _e236879236959_))) - (_hd236878236962_ + (##cdr _e238077238157_))) + (_hd238076238160_ (let () (declare (not safe)) - (##car _e236879236959_)))) + (##car _e238077238157_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236878236962_)) - (let ((_e236882236967_ + (gx#stx-pair? _hd238076238160_)) + (let ((_e238080238165_ (let () (declare (not safe)) - (gx#stx-e _hd236878236962_)))) - (let ((_tl236880236972_ + (gx#stx-e _hd238076238160_)))) + (let ((_tl238078238170_ (let () (declare (not safe)) - (##cdr _e236882236967_))) - (_hd236881236970_ + (##cdr _e238080238165_))) + (_hd238079238168_ (let () (declare (not safe)) - (##car _e236882236967_)))) + (##car _e238080238165_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236880236972_)) + (gx#stx-null? _tl238078238170_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236877236964_)) - (let ((_e236885236975_ + _tl238075238162_)) + (let ((_e238083238173_ (let () (declare (not safe)) (gx#stx-e - _tl236877236964_)))) - (let ((_tl236883236980_ + _tl238075238162_)))) + (let ((_tl238081238178_ (let () (declare (not safe)) - (##cdr _e236885236975_))) - (_hd236884236978_ + (##cdr _e238083238173_))) + (_hd238082238176_ (let () (declare (not safe)) - (##car _e236885236975_)))) + (##car _e238083238173_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236883236980_)) - (___match241855241856_ - _e236876236951_ - _hd236875236954_ - _tl236874236956_ - _e236879236959_ - _hd236878236962_ - _tl236877236964_ - _e236882236967_ - _hd236881236970_ - _tl236880236972_ - _e236885236975_ - _hd236884236978_ - _tl236883236980_) + _tl238081238178_)) + (___match243053243054_ + _e238074238149_ + _hd238073238152_ + _tl238072238154_ + _e238077238157_ + _hd238076238160_ + _tl238075238162_ + _e238080238165_ + _hd238079238168_ + _tl238078238170_ + _e238083238173_ + _hd238082238176_ + _tl238081238178_) (let () (declare (not safe)) - (_g236870236901_))))) + (_g238068238099_))))) (let () (declare (not safe)) - (_g236870236901_))) + (_g238068238099_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236877236964_)) - (let ((_e236896236922_ + _tl238075238162_)) + (let ((_e238094238120_ (let () (declare (not safe)) (gx#stx-e - _tl236877236964_)))) - (let ((_tl236894236927_ + _tl238075238162_)))) + (let ((_tl238092238125_ (let () (declare (not safe)) - (##cdr _e236896236922_))) - (_hd236895236925_ + (##cdr _e238094238120_))) + (_hd238093238123_ (let () (declare (not safe)) - (##car _e236896236922_)))) + (##car _e238094238120_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236894236927_)) - (___kont241826241827_ - _hd236895236925_ - _hd236878236962_) + _tl238092238125_)) + (___kont243024243025_ + _hd238093238123_ + _hd238076238160_) (let () (declare (not safe)) - (_g236870236901_))))) + (_g238068238099_))))) (let () (declare (not safe)) - (_g236870236901_)))))) + (_g238068238099_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236877236964_)) - (let ((_e236896236922_ + (gx#stx-pair? _tl238075238162_)) + (let ((_e238094238120_ (let () (declare (not safe)) - (gx#stx-e _tl236877236964_)))) - (let ((_tl236894236927_ + (gx#stx-e _tl238075238162_)))) + (let ((_tl238092238125_ (let () (declare (not safe)) - (##cdr _e236896236922_))) - (_hd236895236925_ + (##cdr _e238094238120_))) + (_hd238093238123_ (let () (declare (not safe)) - (##car _e236896236922_)))) + (##car _e238094238120_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236894236927_)) - (___kont241826241827_ - _hd236895236925_ - _hd236878236962_) + _tl238092238125_)) + (___kont243024243025_ + _hd238093238123_ + _hd238076238160_) (let () (declare (not safe)) - (_g236870236901_))))) + (_g238068238099_))))) (let () (declare (not safe)) - (_g236870236901_)))))) - (let () (declare (not safe)) (_g236870236901_))))) - (let () (declare (not safe)) (_g236870236901_)))))))) + (_g238068238099_)))))) + (let () (declare (not safe)) (_g238068238099_))))) + (let () (declare (not safe)) (_g238068238099_)))))))) (define gxc#collect-type-let-values% - (lambda (_stx236652_) - (letrec ((_collect-e236654_ - (lambda (_hd236811_ _expr236812_) - (let* ((___stx241878241879_ _hd236811_) - (_g236815236825_ + (lambda (_stx237850_) + (letrec ((_collect-e237852_ + (lambda (_hd238009_ _expr238010_) + (let* ((___stx243076243077_ _hd238009_) + (_g238013238023_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx241878241879_))))) - (let ((___kont241880241881_ - (lambda (_L236845_) - (let ((_sym236856_ + ___stx243076243077_))))) + (let ((___kont243078243079_ + (lambda (_L238043_) + (let ((_sym238054_ (let () (declare (not safe)) - (gxc#identifier-symbol _L236845_)))) - (if (let ((__tmp243883 + (gxc#identifier-symbol _L238043_)))) + (if (let ((__tmp245081 (gxc#current-compile-mutators))) (declare (not safe)) - (table-ref __tmp243883 _sym236856_ '#f)) + (table-ref __tmp245081 _sym238054_ '#f)) (let () (declare (not safe)) (gxc#verbose '"skipping type declaration for mutable binding " - _sym236856_)) - (let ((_type236857236859_ + _sym238054_)) + (let ((_type238055238057_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _expr236812_)))) - (if _type236857236859_ - (let ((_type236862_ - _type236857236859_)) + _expr238010_)))) + (if _type238055238057_ + (let ((_type238060_ + _type238055238057_)) (declare (not safe)) (gxc#optimizer-declare-type!__% - _sym236856_ - _type236862_ + _sym238054_ + _type238060_ '#t)) '#f)))))) - (___kont241882241883_ (lambda () '#!void))) - (let ((___match241891241892_ - (lambda (_e236820236837_ - _hd236819236840_ - _tl236818236842_) - (let ((_L236845_ _hd236819236840_)) + (___kont243080243081_ (lambda () '#!void))) + (let ((___match243089243090_ + (lambda (_e238018238035_ + _hd238017238038_ + _tl238016238040_) + (let ((_L238043_ _hd238017238038_)) (if (let () (declare (not safe)) - (gx#identifier? _L236845_)) - (___kont241880241881_ _L236845_) - (___kont241882241883_)))))) + (gx#identifier? _L238043_)) + (___kont243078243079_ _L238043_) + (___kont243080243081_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx241878241879_)) - (let ((_e236820236837_ + (gx#stx-pair? ___stx243076243077_)) + (let ((_e238018238035_ (let () (declare (not safe)) - (gx#stx-e ___stx241878241879_)))) - (let ((_tl236818236842_ + (gx#stx-e ___stx243076243077_)))) + (let ((_tl238016238040_ (let () (declare (not safe)) - (##cdr _e236820236837_))) - (_hd236819236840_ + (##cdr _e238018238035_))) + (_hd238017238038_ (let () (declare (not safe)) - (##car _e236820236837_)))) + (##car _e238018238035_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236818236842_)) - (___match241891241892_ - _e236820236837_ - _hd236819236840_ - _tl236818236842_) - (___kont241882241883_)))) - (___kont241882241883_)))))))) - (let* ((_g236656236691_ - (lambda (_g236657236688_) + (gx#stx-null? _tl238016238040_)) + (___match243089243090_ + _e238018238035_ + _hd238017238038_ + _tl238016238040_) + (___kont243080243081_)))) + (___kont243080243081_)))))))) + (let* ((_g237854237889_ + (lambda (_g237855237886_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g236657236688_)))) - (_g236655236808_ - (lambda (_g236657236694_) + _g237855237886_)))) + (_g237853238006_ + (lambda (_g237855237892_) (if (let () (declare (not safe)) - (gx#stx-pair? _g236657236694_)) - (let ((_e236663236696_ + (gx#stx-pair? _g237855237892_)) + (let ((_e237861237894_ (let () (declare (not safe)) - (gx#stx-e _g236657236694_)))) - (let ((_hd236662236699_ + (gx#stx-e _g237855237892_)))) + (let ((_hd237860237897_ (let () (declare (not safe)) - (##car _e236663236696_))) - (_tl236661236701_ + (##car _e237861237894_))) + (_tl237859237899_ (let () (declare (not safe)) - (##cdr _e236663236696_)))) + (##cdr _e237861237894_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236661236701_)) - (let ((_e236666236704_ + (gx#stx-pair? _tl237859237899_)) + (let ((_e237864237902_ (let () (declare (not safe)) - (gx#stx-e _tl236661236701_)))) - (let ((_hd236665236707_ + (gx#stx-e _tl237859237899_)))) + (let ((_hd237863237905_ (let () (declare (not safe)) - (##car _e236666236704_))) - (_tl236664236709_ + (##car _e237864237902_))) + (_tl237862237907_ (let () (declare (not safe)) - (##cdr _e236666236704_)))) + (##cdr _e237864237902_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd236665236707_)) - (let ((_g243884_ + (gx#stx-pair/null? _hd237863237905_)) + (let ((_g245082_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd236665236707_ + _hd237863237905_ '0)))) (begin - (let ((_g243885_ + (let ((_g245083_ (let () (declare (not safe)) - (if (##values? _g243884_) + (if (##values? _g245082_) (##vector-length - _g243884_) + _g245082_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g243885_ 2))) + (##fx= _g245083_ 2))) (error "Context expects 2 values" - _g243885_))) - (let ((_target236667236712_ + _g245083_))) + (let ((_target237865237910_ (let () (declare (not safe)) (##vector-ref - _g243884_ + _g245082_ 0))) - (_tl236669236714_ + (_tl237867237912_ (let () (declare (not safe)) (##vector-ref - _g243884_ + _g245082_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236669236714_)) - (letrec ((_loop236670236717_ - (lambda (_hd236668236720_ + _tl237867237912_)) + (letrec ((_loop237868237915_ + (lambda (_hd237866237918_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr236674236722_ - _hd236675236724_) + _expr237872237920_ + _hd237873237922_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236668236720_)) - (let ((_e236671236727_ + (gx#stx-pair? _hd237866237918_)) + (let ((_e237869237925_ (let () (declare (not safe)) - (gx#stx-e _hd236668236720_)))) - (let ((_lp-hd236672236730_ + (gx#stx-e _hd237866237918_)))) + (let ((_lp-hd237870237928_ (let () (declare (not safe)) - (##car _e236671236727_))) - (_lp-tl236673236732_ + (##car _e237869237925_))) + (_lp-tl237871237930_ (let () (declare (not safe)) - (##cdr _e236671236727_)))) + (##cdr _e237869237925_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd236672236730_)) - (let ((_e236680236735_ + (gx#stx-pair? _lp-hd237870237928_)) + (let ((_e237878237933_ (let () (declare (not safe)) - (gx#stx-e _lp-hd236672236730_)))) - (let ((_hd236679236738_ + (gx#stx-e _lp-hd237870237928_)))) + (let ((_hd237877237936_ (let () (declare (not safe)) - (##car _e236680236735_))) - (_tl236678236740_ + (##car _e237878237933_))) + (_tl237876237938_ (let () (declare (not safe)) - (##cdr _e236680236735_)))) + (##cdr _e237878237933_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236678236740_)) - (let ((_e236683236743_ + (gx#stx-pair? _tl237876237938_)) + (let ((_e237881237941_ (let () (declare (not safe)) (gx#stx-e - _tl236678236740_)))) - (let ((_hd236682236746_ + _tl237876237938_)))) + (let ((_hd237880237944_ (let () (declare (not safe)) - (##car _e236683236743_))) - (_tl236681236748_ + (##car _e237881237941_))) + (_tl237879237946_ (let () (declare (not safe)) - (##cdr _e236683236743_)))) + (##cdr _e237881237941_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236681236748_)) - (let ((__tmp243890 + _tl237879237946_)) + (let ((__tmp245088 (let () (declare (not safe)) - (cons _hd236682236746_ + (cons _hd237880237944_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr236674236722_))) - (__tmp243889 + _expr237872237920_))) + (__tmp245087 (let () (declare (not safe)) - (cons _hd236679236738_ _hd236675236724_)))) + (cons _hd237877237936_ _hd237873237922_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop236670236717_ - _lp-tl236673236732_ - __tmp243890 - __tmp243889)) + (_loop237868237915_ + _lp-tl237871237930_ + __tmp245088 + __tmp245087)) (let () (declare (not safe)) - (_g236656236691_ - _g236657236694_))))) + (_g237854237889_ + _g237855237892_))))) (let () (declare (not safe)) - (_g236656236691_ - _g236657236694_))))) + (_g237854237889_ + _g237855237892_))))) (let () (declare (not safe)) - (_g236656236691_ _g236657236694_))))) - (let ((_expr236676236751_ - (reverse _expr236674236722_)) - (_hd236677236753_ (reverse _hd236675236724_))) + (_g237854237889_ _g237855237892_))))) + (let ((_expr237874237949_ + (reverse _expr237872237920_)) + (_hd237875237951_ (reverse _hd237873237922_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236664236709_)) - (let ((_e236686236756_ + (gx#stx-pair? _tl237862237907_)) + (let ((_e237884237954_ (let () (declare (not safe)) - (gx#stx-e _tl236664236709_)))) - (let ((_hd236685236759_ + (gx#stx-e _tl237862237907_)))) + (let ((_hd237883237957_ (let () (declare (not safe)) - (##car _e236686236756_))) - (_tl236684236761_ + (##car _e237884237954_))) + (_tl237882237959_ (let () (declare (not safe)) - (##cdr _e236686236756_)))) + (##cdr _e237884237954_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236684236761_)) - ((lambda (_L236764_ - _L236765_ - _L236766_) + (gx#stx-null? _tl237882237959_)) + ((lambda (_L237962_ + _L237963_ + _L237964_) (for-each - _collect-e236654_ - (let ((__tmp243886 - (lambda (_g236786236789_ - _g236787236791_) + _collect-e237852_ + (let ((__tmp245084 + (lambda (_g237984237987_ + _g237985237989_) (let () (declare (not safe)) - (cons _g236786236789_ - _g236787236791_))))) + (cons _g237984237987_ + _g237985237989_))))) (declare (not safe)) - (foldr1 __tmp243886 + (foldr1 __tmp245084 '() - _L236766_)) - (let ((__tmp243887 - (lambda (_g236793236796_ - _g236794236798_) + _L237964_)) + (let ((__tmp245085 + (lambda (_g237991237994_ + _g237992237996_) (let () (declare (not safe)) - (cons _g236793236796_ - _g236794236798_))))) + (cons _g237991237994_ + _g237992237996_))))) (declare (not safe)) - (foldr1 __tmp243887 + (foldr1 __tmp245085 '() - _L236765_))) + _L237963_))) (for-each gxc#compile-e - (let ((__tmp243888 - (lambda (_g236800236803_ - _g236801236805_) + (let ((__tmp245086 + (lambda (_g237998238001_ + _g237999238003_) (let () (declare (not safe)) - (cons _g236800236803_ - _g236801236805_))))) + (cons _g237998238001_ + _g237999238003_))))) (declare (not safe)) - (foldr1 __tmp243888 + (foldr1 __tmp245086 '() - _L236765_))) + _L237963_))) (let () (declare (not safe)) - (gxc#compile-e__0 _L236764_))) - _hd236685236759_ - _expr236676236751_ - _hd236677236753_) + (gxc#compile-e__0 _L237962_))) + _hd237883237957_ + _expr237874237949_ + _hd237875237951_) (let () (declare (not safe)) - (_g236656236691_ _g236657236694_))))) + (_g237854237889_ _g237855237892_))))) (let () (declare (not safe)) - (_g236656236691_ _g236657236694_)))))))) + (_g237854237889_ _g237855237892_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop236670236717_ - _target236667236712_ + (_loop237868237915_ + _target237865237910_ '() '()))) (let () (declare (not safe)) - (_g236656236691_ - _g236657236694_)))))) + (_g237854237889_ + _g237855237892_)))))) (let () (declare (not safe)) - (_g236656236691_ _g236657236694_))))) + (_g237854237889_ _g237855237892_))))) (let () (declare (not safe)) - (_g236656236691_ _g236657236694_))))) + (_g237854237889_ _g237855237892_))))) (let () (declare (not safe)) - (_g236656236691_ _g236657236694_)))))) + (_g237854237889_ _g237855237892_)))))) (declare (not safe)) - (_g236655236808_ _stx236652_))))) + (_g237853238006_ _stx237850_))))) (define gxc#collect-type-call% - (lambda (_stx236144_) - (let* ((___stx241894241895_ _stx236144_) - (_g236148236263_ + (lambda (_stx237342_) + (let* ((___stx243092243093_ _stx237342_) + (_g237346237461_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx241894241895_))))) - (let ((___kont241896241897_ - (lambda (_L236602_ _L236603_ _L236604_ _L236605_ _L236606_) - (let ((__tmp243894 + ___stx243092243093_))))) + (let ((___kont243094243095_ + (lambda (_L237800_ _L237801_ _L237802_ _L237803_ _L237804_) + (let ((__tmp245092 (let () (declare (not safe)) - (gxc#identifier-symbol _L236605_))) - (__tmp243893 - (let () (declare (not safe)) (gx#stx-e _L236604_))) - (__tmp243892 + (gxc#identifier-symbol _L237803_))) + (__tmp245091 + (let () (declare (not safe)) (gx#stx-e _L237802_))) + (__tmp245090 (let () (declare (not safe)) - (gxc#identifier-symbol _L236603_))) - (__tmp243891 - (let () (declare (not safe)) (gx#stx-e _L236602_)))) + (gxc#identifier-symbol _L237801_))) + (__tmp245089 + (let () (declare (not safe)) (gx#stx-e _L237800_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp243894 - __tmp243893 - __tmp243892 - __tmp243891)))) - (___kont241898241899_ - (lambda (_L236430_ _L236431_ _L236432_ _L236433_) - (let ((__tmp243897 + __tmp245092 + __tmp245091 + __tmp245090 + __tmp245089)))) + (___kont243096243097_ + (lambda (_L237628_ _L237629_ _L237630_ _L237631_) + (let ((__tmp245095 (let () (declare (not safe)) - (gxc#identifier-symbol _L236432_))) - (__tmp243896 - (let () (declare (not safe)) (gx#stx-e _L236431_))) - (__tmp243895 + (gxc#identifier-symbol _L237630_))) + (__tmp245094 + (let () (declare (not safe)) (gx#stx-e _L237629_))) + (__tmp245093 (let () (declare (not safe)) - (gxc#identifier-symbol _L236430_)))) + (gxc#identifier-symbol _L237628_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp243897 - __tmp243896 - __tmp243895 + __tmp245095 + __tmp245094 + __tmp245093 '#f)))) - (___kont241900241901_ - (lambda (_L236300_) + (___kont243098243099_ + (lambda (_L237498_) (for-each gxc#compile-e - (let ((__tmp243898 - (lambda (_g236313236316_ _g236314236318_) + (let ((__tmp245096 + (lambda (_g237511237514_ _g237512237516_) (let () (declare (not safe)) - (cons _g236313236316_ _g236314236318_))))) + (cons _g237511237514_ _g237512237516_))))) (declare (not safe)) - (foldr1 __tmp243898 '() _L236300_)))))) - (let* ((___match242151242152_ - (lambda (_e236249236268_ - _hd236248236271_ - _tl236247236273_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) - (letrec ((_loop236253236281_ - (lambda (_hd236251236284_ _expr236257236286_) + (foldr1 __tmp245096 '() _L237498_)))))) + (let* ((___match243349243350_ + (lambda (_e237447237466_ + _hd237446237469_ + _tl237445237471_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) + (letrec ((_loop237451237479_ + (lambda (_hd237449237482_ _expr237455237484_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236251236284_)) - (let ((_e236254236289_ + (gx#stx-pair? _hd237449237482_)) + (let ((_e237452237487_ (let () (declare (not safe)) - (gx#stx-e _hd236251236284_)))) - (let ((_lp-tl236256236294_ + (gx#stx-e _hd237449237482_)))) + (let ((_lp-tl237454237492_ (let () (declare (not safe)) - (##cdr _e236254236289_))) - (_lp-hd236255236292_ + (##cdr _e237452237487_))) + (_lp-hd237453237490_ (let () (declare (not safe)) - (##car _e236254236289_)))) - (let ((__tmp243899 + (##car _e237452237487_)))) + (let ((__tmp245097 (let () (declare (not safe)) - (cons _lp-hd236255236292_ - _expr236257236286_)))) + (cons _lp-hd237453237490_ + _expr237455237484_)))) (declare (not safe)) - (_loop236253236281_ - _lp-tl236256236294_ - __tmp243899)))) - (let ((_expr236258236297_ - (reverse _expr236257236286_))) - (___kont241900241901_ - _expr236258236297_)))))) + (_loop237451237479_ + _lp-tl237454237492_ + __tmp245097)))) + (let ((_expr237456237495_ + (reverse _expr237455237484_))) + (___kont243098243099_ + _expr237456237495_)))))) (let () (declare (not safe)) - (_loop236253236281_ _target236250236276_ '()))))) - (___match242031242032_ - (lambda (_e236157236474_ - _hd236156236477_ - _tl236155236479_ - _e236160236482_ - _hd236159236485_ - _tl236158236487_ - _e236163236490_ - _hd236162236493_ - _tl236161236495_ - _e236166236498_ - _hd236165236501_ - _tl236164236503_ - _e236169236506_ - _hd236168236509_ - _tl236167236511_ - _e236172236514_ - _hd236171236517_ - _tl236170236519_ - _e236175236522_ - _hd236174236525_ - _tl236173236527_ - _e236178236530_ - _hd236177236533_ - _tl236176236535_ - _e236181236538_ - _hd236180236541_ - _tl236179236543_ - _e236184236546_ - _hd236183236549_ - _tl236182236551_ - _e236187236554_ - _hd236186236557_ - _tl236185236559_ - _e236190236562_ - _hd236189236565_ - _tl236188236567_ - _e236193236570_ - _hd236192236573_ - _tl236191236575_ - _e236196236578_ - _hd236195236581_ - _tl236194236583_ - _e236199236586_ - _hd236198236589_ - _tl236197236591_ - _e236202236594_ - _hd236201236597_ - _tl236200236599_) - (let ((_L236602_ _hd236201236597_) - (_L236603_ _hd236192236573_) - (_L236604_ _hd236183236549_) - (_L236605_ _hd236174236525_) - (_L236606_ _hd236165236501_)) + (_loop237451237479_ _target237448237474_ '()))))) + (___match243229243230_ + (lambda (_e237355237672_ + _hd237354237675_ + _tl237353237677_ + _e237358237680_ + _hd237357237683_ + _tl237356237685_ + _e237361237688_ + _hd237360237691_ + _tl237359237693_ + _e237364237696_ + _hd237363237699_ + _tl237362237701_ + _e237367237704_ + _hd237366237707_ + _tl237365237709_ + _e237370237712_ + _hd237369237715_ + _tl237368237717_ + _e237373237720_ + _hd237372237723_ + _tl237371237725_ + _e237376237728_ + _hd237375237731_ + _tl237374237733_ + _e237379237736_ + _hd237378237739_ + _tl237377237741_ + _e237382237744_ + _hd237381237747_ + _tl237380237749_ + _e237385237752_ + _hd237384237755_ + _tl237383237757_ + _e237388237760_ + _hd237387237763_ + _tl237386237765_ + _e237391237768_ + _hd237390237771_ + _tl237389237773_ + _e237394237776_ + _hd237393237779_ + _tl237392237781_ + _e237397237784_ + _hd237396237787_ + _tl237395237789_ + _e237400237792_ + _hd237399237795_ + _tl237398237797_) + (let ((_L237800_ _hd237399237795_) + (_L237801_ _hd237390237771_) + (_L237802_ _hd237381237747_) + (_L237803_ _hd237372237723_) + (_L237804_ _hd237363237699_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L236606_ + _L237804_ 'bind-method!)) - (___kont241896241897_ - _L236602_ - _L236603_ - _L236604_ - _L236605_ - _L236606_) + (___kont243094243095_ + _L237800_ + _L237801_ + _L237802_ + _L237803_ + _L237804_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))))) + (_g237346237461_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx241894241895_)) - (let ((_e236157236474_ + (gx#stx-pair? ___stx243092243093_)) + (let ((_e237355237672_ (let () (declare (not safe)) - (gx#stx-e ___stx241894241895_)))) - (let ((_tl236155236479_ + (gx#stx-e ___stx243092243093_)))) + (let ((_tl237353237677_ (let () (declare (not safe)) - (##cdr _e236157236474_))) - (_hd236156236477_ + (##cdr _e237355237672_))) + (_hd237354237675_ (let () (declare (not safe)) - (##car _e236157236474_)))) + (##car _e237355237672_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236155236479_)) - (let ((_e236160236482_ + (gx#stx-pair? _tl237353237677_)) + (let ((_e237358237680_ (let () (declare (not safe)) - (gx#stx-e _tl236155236479_)))) - (let ((_tl236158236487_ + (gx#stx-e _tl237353237677_)))) + (let ((_tl237356237685_ (let () (declare (not safe)) - (##cdr _e236160236482_))) - (_hd236159236485_ + (##cdr _e237358237680_))) + (_hd237357237683_ (let () (declare (not safe)) - (##car _e236160236482_)))) + (##car _e237358237680_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236159236485_)) - (let ((_e236163236490_ + (gx#stx-pair? _hd237357237683_)) + (let ((_e237361237688_ (let () (declare (not safe)) - (gx#stx-e _hd236159236485_)))) - (let ((_tl236161236495_ + (gx#stx-e _hd237357237683_)))) + (let ((_tl237359237693_ (let () (declare (not safe)) - (##cdr _e236163236490_))) - (_hd236162236493_ + (##cdr _e237361237688_))) + (_hd237360237691_ (let () (declare (not safe)) - (##car _e236163236490_)))) + (##car _e237361237688_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236162236493_)) + (gx#identifier? _hd237360237691_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd236162236493_)) + _hd237360237691_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236161236495_)) - (let ((_e236166236498_ + _tl237359237693_)) + (let ((_e237364237696_ (let () (declare (not safe)) (gx#stx-e - _tl236161236495_)))) - (let ((_tl236164236503_ + _tl237359237693_)))) + (let ((_tl237362237701_ (let () (declare (not safe)) - (##cdr _e236166236498_))) - (_hd236165236501_ + (##cdr _e237364237696_))) + (_hd237363237699_ (let () (declare (not safe)) - (##car _e236166236498_)))) + (##car _e237364237696_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236164236503_)) + _tl237362237701_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl236158236487_)) - (let ((_e236169236506_ + (gx#stx-pair? _tl237356237685_)) + (let ((_e237367237704_ (let () (declare (not safe)) - (gx#stx-e _tl236158236487_)))) - (let ((_tl236167236511_ + (gx#stx-e _tl237356237685_)))) + (let ((_tl237365237709_ (let () (declare (not safe)) - (##cdr _e236169236506_))) - (_hd236168236509_ + (##cdr _e237367237704_))) + (_hd237366237707_ (let () (declare (not safe)) - (##car _e236169236506_)))) + (##car _e237367237704_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236168236509_)) - (let ((_e236172236514_ + (gx#stx-pair? _hd237366237707_)) + (let ((_e237370237712_ (let () (declare (not safe)) - (gx#stx-e _hd236168236509_)))) - (let ((_tl236170236519_ + (gx#stx-e _hd237366237707_)))) + (let ((_tl237368237717_ (let () (declare (not safe)) - (##cdr _e236172236514_))) - (_hd236171236517_ + (##cdr _e237370237712_))) + (_hd237369237715_ (let () (declare (not safe)) - (##car _e236172236514_)))) + (##car _e237370237712_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236171236517_)) + (gx#identifier? _hd237369237715_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd236171236517_)) + _hd237369237715_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236170236519_)) - (let ((_e236175236522_ + _tl237368237717_)) + (let ((_e237373237720_ (let () (declare (not safe)) (gx#stx-e - _tl236170236519_)))) - (let ((_tl236173236527_ + _tl237368237717_)))) + (let ((_tl237371237725_ (let () (declare (not safe)) - (##cdr _e236175236522_))) - (_hd236174236525_ + (##cdr _e237373237720_))) + (_hd237372237723_ (let () (declare (not safe)) - (##car _e236175236522_)))) + (##car _e237373237720_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236173236527_)) + _tl237371237725_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236167236511_)) - (let ((_e236178236530_ + _tl237365237709_)) + (let ((_e237376237728_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl236167236511_)))) - (let ((_tl236176236535_ + (gx#stx-e _tl237365237709_)))) + (let ((_tl237374237733_ (let () (declare (not safe)) - (##cdr _e236178236530_))) - (_hd236177236533_ + (##cdr _e237376237728_))) + (_hd237375237731_ (let () (declare (not safe)) - (##car _e236178236530_)))) + (##car _e237376237728_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236177236533_)) - (let ((_e236181236538_ + (gx#stx-pair? _hd237375237731_)) + (let ((_e237379237736_ (let () (declare (not safe)) - (gx#stx-e _hd236177236533_)))) - (let ((_tl236179236543_ + (gx#stx-e _hd237375237731_)))) + (let ((_tl237377237741_ (let () (declare (not safe)) - (##cdr _e236181236538_))) - (_hd236180236541_ + (##cdr _e237379237736_))) + (_hd237378237739_ (let () (declare (not safe)) - (##car _e236181236538_)))) + (##car _e237379237736_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236180236541_)) + (gx#identifier? _hd237378237739_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd236180236541_)) + (gx#stx-eq? '%#quote _hd237378237739_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236179236543_)) - (let ((_e236184236546_ + (gx#stx-pair? _tl237377237741_)) + (let ((_e237382237744_ (let () (declare (not safe)) (gx#stx-e - _tl236179236543_)))) - (let ((_tl236182236551_ + _tl237377237741_)))) + (let ((_tl237380237749_ (let () (declare (not safe)) - (##cdr _e236184236546_))) - (_hd236183236549_ + (##cdr _e237382237744_))) + (_hd237381237747_ (let () (declare (not safe)) - (##car _e236184236546_)))) + (##car _e237382237744_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236182236551_)) + _tl237380237749_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236176236535_)) - (let ((_e236187236554_ + _tl237374237733_)) + (let ((_e237385237752_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl236176236535_)))) - (let ((_tl236185236559_ - (let () (declare (not safe)) (##cdr _e236187236554_))) - (_hd236186236557_ - (let () (declare (not safe)) (##car _e236187236554_)))) + (gx#stx-e _tl237374237733_)))) + (let ((_tl237383237757_ + (let () (declare (not safe)) (##cdr _e237385237752_))) + (_hd237384237755_ + (let () (declare (not safe)) (##car _e237385237752_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd236186236557_)) - (let ((_e236190236562_ + (gx#stx-pair? _hd237384237755_)) + (let ((_e237388237760_ (let () (declare (not safe)) - (gx#stx-e _hd236186236557_)))) - (let ((_tl236188236567_ + (gx#stx-e _hd237384237755_)))) + (let ((_tl237386237765_ (let () (declare (not safe)) - (##cdr _e236190236562_))) - (_hd236189236565_ + (##cdr _e237388237760_))) + (_hd237387237763_ (let () (declare (not safe)) - (##car _e236190236562_)))) + (##car _e237388237760_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236189236565_)) + (gx#identifier? _hd237387237763_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd236189236565_)) + (gx#stx-eq? '%#ref _hd237387237763_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236188236567_)) - (let ((_e236193236570_ + (gx#stx-pair? _tl237386237765_)) + (let ((_e237391237768_ (let () (declare (not safe)) - (gx#stx-e _tl236188236567_)))) - (let ((_tl236191236575_ + (gx#stx-e _tl237386237765_)))) + (let ((_tl237389237773_ (let () (declare (not safe)) - (##cdr _e236193236570_))) - (_hd236192236573_ + (##cdr _e237391237768_))) + (_hd237390237771_ (let () (declare (not safe)) - (##car _e236193236570_)))) + (##car _e237391237768_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236191236575_)) + _tl237389237773_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl236185236559_)) - (let ((_e236196236578_ + _tl237383237757_)) + (let ((_e237394237776_ (let () (declare (not safe)) (gx#stx-e - _tl236185236559_)))) - (let ((_tl236194236583_ + _tl237383237757_)))) + (let ((_tl237392237781_ (let () (declare (not safe)) - (##cdr _e236196236578_))) - (_hd236195236581_ + (##cdr _e237394237776_))) + (_hd237393237779_ (let () (declare (not safe)) - (##car _e236196236578_)))) + (##car _e237394237776_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd236195236581_)) - (let ((_e236199236586_ + _hd237393237779_)) + (let ((_e237397237784_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd236195236581_)))) - (let ((_tl236197236591_ + (gx#stx-e _hd237393237779_)))) + (let ((_tl237395237789_ (let () (declare (not safe)) - (##cdr _e236199236586_))) - (_hd236198236589_ + (##cdr _e237397237784_))) + (_hd237396237787_ (let () (declare (not safe)) - (##car _e236199236586_)))) + (##car _e237397237784_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd236198236589_)) + (gx#identifier? _hd237396237787_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd236198236589_)) + (gx#stx-eq? '%#quote _hd237396237787_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236197236591_)) - (let ((_e236202236594_ + (gx#stx-pair? _tl237395237789_)) + (let ((_e237400237792_ (let () (declare (not safe)) - (gx#stx-e _tl236197236591_)))) - (let ((_tl236200236599_ + (gx#stx-e _tl237395237789_)))) + (let ((_tl237398237797_ (let () (declare (not safe)) - (##cdr _e236202236594_))) - (_hd236201236597_ + (##cdr _e237400237792_))) + (_hd237399237795_ (let () (declare (not safe)) - (##car _e236202236594_)))) + (##car _e237400237792_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236200236599_)) + (gx#stx-null? _tl237398237797_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl236194236583_)) - (___match242031242032_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - _e236160236482_ - _hd236159236485_ - _tl236158236487_ - _e236163236490_ - _hd236162236493_ - _tl236161236495_ - _e236166236498_ - _hd236165236501_ - _tl236164236503_ - _e236169236506_ - _hd236168236509_ - _tl236167236511_ - _e236172236514_ - _hd236171236517_ - _tl236170236519_ - _e236175236522_ - _hd236174236525_ - _tl236173236527_ - _e236178236530_ - _hd236177236533_ - _tl236176236535_ - _e236181236538_ - _hd236180236541_ - _tl236179236543_ - _e236184236546_ - _hd236183236549_ - _tl236182236551_ - _e236187236554_ - _hd236186236557_ - _tl236185236559_ - _e236190236562_ - _hd236189236565_ - _tl236188236567_ - _e236193236570_ - _hd236192236573_ - _tl236191236575_ - _e236196236578_ - _hd236195236581_ - _tl236194236583_ - _e236199236586_ - _hd236198236589_ - _tl236197236591_ - _e236202236594_ - _hd236201236597_ - _tl236200236599_) + _tl237392237781_)) + (___match243229243230_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + _e237358237680_ + _hd237357237683_ + _tl237356237685_ + _e237361237688_ + _hd237360237691_ + _tl237359237693_ + _e237364237696_ + _hd237363237699_ + _tl237362237701_ + _e237367237704_ + _hd237366237707_ + _tl237365237709_ + _e237370237712_ + _hd237369237715_ + _tl237368237717_ + _e237373237720_ + _hd237372237723_ + _tl237371237725_ + _e237376237728_ + _hd237375237731_ + _tl237374237733_ + _e237379237736_ + _hd237378237739_ + _tl237377237741_ + _e237382237744_ + _hd237381237747_ + _tl237380237749_ + _e237385237752_ + _hd237384237755_ + _tl237383237757_ + _e237388237760_ + _hd237387237763_ + _tl237386237765_ + _e237391237768_ + _hd237390237771_ + _tl237389237773_ + _e237394237776_ + _hd237393237779_ + _tl237392237781_ + _e237397237784_ + _hd237396237787_ + _tl237395237789_ + _e237400237792_ + _hd237399237795_ + _tl237398237797_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))))) + (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl236185236559_)) - (if (let ((__tmp243900 + _tl237383237757_)) + (if (let ((__tmp245098 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp243900 'bind-method!)) - (let ((_L236430_ _hd236192236573_) - (_L236431_ _hd236183236549_) - (_L236432_ _hd236174236525_) - (_L236433_ _hd236165236501_)) - (___kont241898241899_ - _L236430_ - _L236431_ - _L236432_ - _L236433_)) + (gxc#runtime-identifier=? __tmp245098 'bind-method!)) + (let ((_L237628_ _hd237390237771_) + (_L237629_ _hd237381237747_) + (_L237630_ _hd237372237723_) + (_L237631_ _hd237363237699_)) + (___kont243096243097_ + _L237628_ + _L237629_ + _L237630_ + _L237631_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))) + (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) - (let () (declare (not safe)) (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_))))) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) + (let () (declare (not safe)) (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))))) + (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) - (let () (declare (not safe)) (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) + (let () (declare (not safe)) (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) - (let () (declare (not safe)) (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))))) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) + (let () (declare (not safe)) (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))) + (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) - (let () (declare (not safe)) (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))))) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) + (let () (declare (not safe)) (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))) + (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))))) + (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl236155236479_ '0)))) - (let ((_tl236252236278_ + (gx#syntax-split-splice _tl237353237677_ '0)))) + (let ((_tl237450237476_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '1))) - (_target236250236276_ + (##vector-ref ___splice243100243101_ '1))) + (_target237448237474_ (let () (declare (not safe)) - (##vector-ref ___splice241902241903_ '0)))) + (##vector-ref ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) - (let () (declare (not safe)) (_g236148236263_))))) - (let () (declare (not safe)) (_g236148236263_)))) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) + (let () (declare (not safe)) (_g237346237461_))))) + (let () (declare (not safe)) (_g237346237461_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))) + (_g237346237461_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl236155236479_)) - (let ((___splice241902241903_ + _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) + (_g237346237461_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl236155236479_)) - (let ((___splice241902241903_ + (gx#stx-pair/null? _tl237353237677_)) + (let ((___splice243100243101_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl236155236479_ + _tl237353237677_ '0)))) - (let ((_tl236252236278_ + (let ((_tl237450237476_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '1))) - (_target236250236276_ + (_target237448237474_ (let () (declare (not safe)) (##vector-ref - ___splice241902241903_ + ___splice243100243101_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236252236278_)) - (___match242151242152_ - _e236157236474_ - _hd236156236477_ - _tl236155236479_ - ___splice241902241903_ - _target236250236276_ - _tl236252236278_) + (gx#stx-null? _tl237450237476_)) + (___match243349243350_ + _e237355237672_ + _hd237354237675_ + _tl237353237677_ + ___splice243100243101_ + _target237448237474_ + _tl237450237476_) (let () (declare (not safe)) - (_g236148236263_))))) + (_g237346237461_))))) (let () (declare (not safe)) - (_g236148236263_)))))) - (let () (declare (not safe)) (_g236148236263_)))))))) + (_g237346237461_)))))) + (let () (declare (not safe)) (_g237346237461_)))))))) (define gxc#current-compile-type-closure (make-parameter '#f)) (define gxc#basic-expression-type-begin% - (lambda (_stx236084_) - (let* ((___stx242154242155_ _stx236084_) - (_g236087236100_ + (lambda (_stx237282_) + (let* ((___stx243352243353_ _stx237282_) + (_g237285237298_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242154242155_))))) - (let ((___kont242156242157_ - (lambda (_L236128_) - (let () (declare (not safe)) (gxc#compile-e__0 _L236128_)))) - (___kont242158242159_ (lambda () '#f))) + ___stx243352243353_))))) + (let ((___kont243354243355_ + (lambda (_L237326_) + (let () (declare (not safe)) (gxc#compile-e__0 _L237326_)))) + (___kont243356243357_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242154242155_)) - (let ((_e236092236112_ + (gx#stx-pair? ___stx243352243353_)) + (let ((_e237290237310_ (let () (declare (not safe)) - (gx#stx-e ___stx242154242155_)))) - (let ((_tl236090236117_ - (let () (declare (not safe)) (##cdr _e236092236112_))) - (_hd236091236115_ + (gx#stx-e ___stx243352243353_)))) + (let ((_tl237288237315_ + (let () (declare (not safe)) (##cdr _e237290237310_))) + (_hd237289237313_ (let () (declare (not safe)) - (##car _e236092236112_)))) + (##car _e237290237310_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl236090236117_)) - (let ((_e236095236120_ + (gx#stx-pair? _tl237288237315_)) + (let ((_e237293237318_ (let () (declare (not safe)) - (gx#stx-e _tl236090236117_)))) - (let ((_tl236093236125_ + (gx#stx-e _tl237288237315_)))) + (let ((_tl237291237323_ (let () (declare (not safe)) - (##cdr _e236095236120_))) - (_hd236094236123_ + (##cdr _e237293237318_))) + (_hd237292237321_ (let () (declare (not safe)) - (##car _e236095236120_)))) + (##car _e237293237318_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl236093236125_)) - (___kont242156242157_ _hd236094236123_) - (___kont242158242159_)))) - (___kont242158242159_)))) - (___kont242158242159_)))))) + (gx#stx-null? _tl237291237323_)) + (___kont243354243355_ _hd237292237321_) + (___kont243356243357_)))) + (___kont243356243357_)))) + (___kont243356243357_)))))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-table 'test: eq?))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_stx235964_) - (let* ((_g235966235983_ - (lambda (_g235967235980_) + (lambda (_stx237162_) + (let* ((_g237164237181_ + (lambda (_g237165237178_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235967235980_)))) - (_g235965236081_ - (lambda (_g235967235986_) + _g237165237178_)))) + (_g237163237279_ + (lambda (_g237165237184_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235967235986_)) - (let ((_e235972235988_ + (gx#stx-pair? _g237165237184_)) + (let ((_e237170237186_ (let () (declare (not safe)) - (gx#stx-e _g235967235986_)))) - (let ((_hd235971235991_ + (gx#stx-e _g237165237184_)))) + (let ((_hd237169237189_ (let () (declare (not safe)) - (##car _e235972235988_))) - (_tl235970235993_ + (##car _e237170237186_))) + (_tl237168237191_ (let () (declare (not safe)) - (##cdr _e235972235988_)))) + (##cdr _e237170237186_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235970235993_)) - (let ((_e235975235996_ + (gx#stx-pair? _tl237168237191_)) + (let ((_e237173237194_ (let () (declare (not safe)) - (gx#stx-e _tl235970235993_)))) - (let ((_hd235974235999_ + (gx#stx-e _tl237168237191_)))) + (let ((_hd237172237197_ (let () (declare (not safe)) - (##car _e235975235996_))) - (_tl235973236001_ + (##car _e237173237194_))) + (_tl237171237199_ (let () (declare (not safe)) - (##cdr _e235975235996_)))) + (##cdr _e237173237194_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235973236001_)) - (let ((_e235978236004_ + (gx#stx-pair? _tl237171237199_)) + (let ((_e237176237202_ (let () (declare (not safe)) - (gx#stx-e _tl235973236001_)))) - (let ((_hd235977236007_ + (gx#stx-e _tl237171237199_)))) + (let ((_hd237175237205_ (let () (declare (not safe)) - (##car _e235978236004_))) - (_tl235976236009_ + (##car _e237176237202_))) + (_tl237174237207_ (let () (declare (not safe)) - (##cdr _e235978236004_)))) + (##cdr _e237176237202_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235976236009_)) - ((lambda (_L236012_ _L236013_) - (let* ((___stx242176242177_ - _L236013_) - (_g236029236040_ + _tl237174237207_)) + ((lambda (_L237210_ _L237211_) + (let* ((___stx243374243375_ + _L237211_) + (_g237227237238_ (lambda () (let () (declare @@ -2914,659 +2914,707 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242176242177_))))) - (let ((___kont242178242179_ - (lambda (_L236060_ + ___stx243374243375_))))) + (let ((___kont243376243377_ + (lambda (_L237258_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L236061_) - (let ((_$e236073_ - (let ((__tmp243901 + _L237259_) + (let ((_$e237271_ + (let ((__tmp245099 (let () (declare (not safe)) - (gx#stx-e _L236061_)))) + (gx#stx-e _L237259_)))) (declare (not safe)) (table-ref gxc#basic-expression-type-annotations - __tmp243901 + __tmp245099 '#f)))) - (if _$e236073_ - ((lambda (_type-e236076_) - (_type-e236076_ _stx235964_ _L236013_)) - _$e236073_) + (if _$e237271_ + ((lambda (_type-e237274_) + (_type-e237274_ _stx237162_ _L237211_)) + _$e237271_) (let () (declare (not safe)) - (gxc#compile-e__0 _L236012_)))))) - (___kont242180242181_ + (gxc#compile-e__0 _L237210_)))))) + (___kont243378243379_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__0 _L236012_))))) + (gxc#compile-e__0 _L237210_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match242187242188_ - (lambda (_e236035236052_ + (let ((___match243385243386_ + (lambda (_e237233237250_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd236034236055_ - _tl236033236057_) - (let ((_L236060_ _tl236033236057_) - (_L236061_ _hd236034236055_)) + _hd237232237253_ + _tl237231237255_) + (let ((_L237258_ _tl237231237255_) + (_L237259_ _hd237232237253_)) (if (let () (declare (not safe)) - (gx#identifier? _L236061_)) - (___kont242178242179_ _L236060_ _L236061_) - (___kont242180242181_)))))) + (gx#identifier? _L237259_)) + (___kont243376243377_ _L237258_ _L237259_) + (___kont243378243379_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242176242177_)) - (let ((_e236035236052_ + (gx#stx-pair? ___stx243374243375_)) + (let ((_e237233237250_ (let () (declare (not safe)) - (gx#stx-e ___stx242176242177_)))) - (let ((_tl236033236057_ + (gx#stx-e ___stx243374243375_)))) + (let ((_tl237231237255_ (let () (declare (not safe)) - (##cdr _e236035236052_))) - (_hd236034236055_ + (##cdr _e237233237250_))) + (_hd237232237253_ (let () (declare (not safe)) - (##car _e236035236052_)))) - (___match242187242188_ - _e236035236052_ - _hd236034236055_ - _tl236033236057_))) - (___kont242180242181_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd235977236007_ - _hd235974235999_) + (##car _e237233237250_)))) + (___match243385243386_ + _e237233237250_ + _hd237232237253_ + _tl237231237255_))) + (___kont243378243379_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _hd237175237205_ + _hd237172237197_) (let () (declare (not safe)) - (_g235966235983_ - _g235967235986_))))) + (_g237164237181_ + _g237165237184_))))) (let () (declare (not safe)) - (_g235966235983_ _g235967235986_))))) + (_g237164237181_ _g237165237184_))))) (let () (declare (not safe)) - (_g235966235983_ _g235967235986_))))) + (_g237164237181_ _g237165237184_))))) (let () (declare (not safe)) - (_g235966235983_ _g235967235986_)))))) + (_g237164237181_ _g237165237184_)))))) (declare (not safe)) - (_g235965236081_ _stx235964_)))) + (_g237163237279_ _stx237162_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_stx235825_ _ann235826_) - (let* ((_g235828235861_ - (lambda (_g235829235858_) + (lambda (_stx237006_ _ann237007_) + (let* ((_g237009237046_ + (lambda (_g237010237043_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235829235858_)))) - (_g235827235961_ - (lambda (_g235829235864_) + _g237010237043_)))) + (_g237008237159_ + (lambda (_g237010237049_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235829235864_)) - (let ((_e235838235866_ + (gx#stx-pair? _g237010237049_)) + (let ((_e237020237051_ (let () (declare (not safe)) - (gx#stx-e _g235829235864_)))) - (let ((_hd235837235869_ + (gx#stx-e _g237010237049_)))) + (let ((_hd237019237054_ (let () (declare (not safe)) - (##car _e235838235866_))) - (_tl235836235871_ + (##car _e237020237051_))) + (_tl237018237056_ (let () (declare (not safe)) - (##cdr _e235838235866_)))) + (##cdr _e237020237051_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235836235871_)) - (let ((_e235841235874_ + (gx#stx-pair? _tl237018237056_)) + (let ((_e237023237059_ (let () (declare (not safe)) - (gx#stx-e _tl235836235871_)))) - (let ((_hd235840235877_ + (gx#stx-e _tl237018237056_)))) + (let ((_hd237022237062_ (let () (declare (not safe)) - (##car _e235841235874_))) - (_tl235839235879_ + (##car _e237023237059_))) + (_tl237021237064_ (let () (declare (not safe)) - (##cdr _e235841235874_)))) + (##cdr _e237023237059_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235839235879_)) - (let ((_e235844235882_ + (gx#stx-pair? _tl237021237064_)) + (let ((_e237026237067_ (let () (declare (not safe)) - (gx#stx-e _tl235839235879_)))) - (let ((_hd235843235885_ + (gx#stx-e _tl237021237064_)))) + (let ((_hd237025237070_ (let () (declare (not safe)) - (##car _e235844235882_))) - (_tl235842235887_ + (##car _e237026237067_))) + (_tl237024237072_ (let () (declare (not safe)) - (##cdr _e235844235882_)))) + (##cdr _e237026237067_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235842235887_)) - (let ((_e235847235890_ + _tl237024237072_)) + (let ((_e237029237075_ (let () (declare (not safe)) (gx#stx-e - _tl235842235887_)))) - (let ((_hd235846235893_ + _tl237024237072_)))) + (let ((_hd237028237078_ (let () (declare (not safe)) - (##car _e235847235890_))) - (_tl235845235895_ + (##car _e237029237075_))) + (_tl237027237080_ (let () (declare (not safe)) - (##cdr _e235847235890_)))) + (##cdr _e237029237075_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235845235895_)) - (let ((_e235850235898_ + _tl237027237080_)) + (let ((_e237032237083_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl235845235895_)))) - (let ((_hd235849235901_ - (let () (declare (not safe)) (##car _e235850235898_))) - (_tl235848235903_ - (let () (declare (not safe)) (##cdr _e235850235898_)))) + (gx#stx-e _tl237027237080_)))) + (let ((_hd237031237086_ + (let () (declare (not safe)) (##car _e237032237083_))) + (_tl237030237088_ + (let () (declare (not safe)) (##cdr _e237032237083_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235848235903_)) - (let ((_e235853235906_ + (gx#stx-pair? _tl237030237088_)) + (let ((_e237035237091_ (let () (declare (not safe)) - (gx#stx-e _tl235848235903_)))) - (let ((_hd235852235909_ + (gx#stx-e _tl237030237088_)))) + (let ((_hd237034237094_ (let () (declare (not safe)) - (##car _e235853235906_))) - (_tl235851235911_ + (##car _e237035237091_))) + (_tl237033237096_ (let () (declare (not safe)) - (##cdr _e235853235906_)))) + (##cdr _e237035237091_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235851235911_)) - (let ((_e235856235914_ + (gx#stx-pair? _tl237033237096_)) + (let ((_e237038237099_ (let () (declare (not safe)) - (gx#stx-e _tl235851235911_)))) - (let ((_hd235855235917_ + (gx#stx-e _tl237033237096_)))) + (let ((_hd237037237102_ (let () (declare (not safe)) - (##car _e235856235914_))) - (_tl235854235919_ + (##car _e237038237099_))) + (_tl237036237104_ (let () (declare (not safe)) - (##cdr _e235856235914_)))) + (##cdr _e237038237099_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235854235919_)) - ((lambda (_L235922_ - _L235923_ - _L235924_ - _L235925_ - _L235926_ - _L235927_) - (let ((_type-id235954_ - (let () - (declare (not safe)) - (gx#stx-e _L235927_))) - (_super235955_ - (map gxc#identifier-symbol - _L235926_)) - (_slots235956_ - (map gx#stx-e _L235925_)) - (_ctor-method235957_ - (let () - (declare (not safe)) - (gx#stx-e _L235924_))) - (_struct?235958_ - (let () - (declare (not safe)) - (gx#stx-e _L235923_))) - (_final?235959_ - (let () - (declare (not safe)) - (gx#stx-e _L235922_)))) - (let ((__obj243859 - (let () - (declare (not safe)) - (##structure - gxc#!class::t - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f - '#f)))) - (gxc#!class:::init! - __obj243859 - _type-id235954_ - _super235955_ - _slots235956_ - _ctor-method235957_ - _struct?235958_ - _final?235959_) - __obj243859))) - _hd235855235917_ - _hd235852235909_ - _hd235849235901_ - _hd235846235893_ - _hd235843235885_ - _hd235840235877_) + (gx#stx-pair? _tl237036237104_)) + (let ((_e237041237107_ + (let () + (declare (not safe)) + (gx#stx-e _tl237036237104_)))) + (let ((_hd237040237110_ + (let () + (declare (not safe)) + (##car _e237041237107_))) + (_tl237039237112_ + (let () + (declare (not safe)) + (##cdr _e237041237107_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? + _tl237039237112_)) + ((lambda (_L237115_ + _L237116_ + _L237117_ + _L237118_ + _L237119_ + _L237120_ + _L237121_) + (let ((_type-id237151_ + (let () + (declare (not safe)) + (gx#stx-e + _L237121_))) + (_super237152_ + (let () + (declare (not safe)) + (gx#stx-map1 + gxc#identifier-symbol + _L237120_))) + (_slots237153_ + (let () + (declare (not safe)) + (gx#stx-map1 + gx#stx-e + _L237119_))) + (_ctor-method237154_ + (let () + (declare (not safe)) + (gx#stx-e + _L237118_))) + (_struct?237155_ + (let () + (declare (not safe)) + (gx#stx-e + _L237117_))) + (_final?237156_ + (let () + (declare (not safe)) + (gx#stx-e + _L237116_))) + (_metaclass237157_ + (if (let () + (declare + (not safe)) + (gx#stx-e + _L237115_)) + (let () + (declare + (not safe)) + (gxc#identifier-symbol + _L237115_)) + '#f))) + (let ((__obj245057 + (let () + (declare + (not safe)) + (##structure + gxc#!class::t + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f + '#f)))) + (gxc#!class:::init! + __obj245057 + _type-id237151_ + _super237152_ + _slots237153_ + _ctor-method237154_ + _struct?237155_ + _final?237156_ + _metaclass237157_) + __obj245057))) + _hd237040237110_ + _hd237037237102_ + _hd237034237094_ + _hd237031237086_ + _hd237028237078_ + _hd237025237070_ + _hd237022237062_) + (let () + (declare (not safe)) + (_g237009237046_ + _g237010237049_))))) (let () (declare (not safe)) - (_g235828235861_ _g235829235864_))))) + (_g237009237046_ _g237010237049_))))) (let () (declare (not safe)) - (_g235828235861_ _g235829235864_))))) + (_g237009237046_ _g237010237049_))))) (let () (declare (not safe)) - (_g235828235861_ _g235829235864_))))) + (_g237009237046_ _g237010237049_))))) (let () (declare (not safe)) - (_g235828235861_ _g235829235864_))))) + (_g237009237046_ _g237010237049_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g235828235861_ - _g235829235864_))))) + (_g237009237046_ + _g237010237049_))))) (let () (declare (not safe)) - (_g235828235861_ _g235829235864_))))) + (_g237009237046_ _g237010237049_))))) (let () (declare (not safe)) - (_g235828235861_ _g235829235864_))))) + (_g237009237046_ _g237010237049_))))) (let () (declare (not safe)) - (_g235828235861_ _g235829235864_)))))) + (_g237009237046_ _g237010237049_)))))) (declare (not safe)) - (_g235827235961_ _ann235826_)))) + (_g237008237159_ _ann237007_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_stx235773_ _ann235774_) - (let* ((_g235776235789_ - (lambda (_g235777235786_) + (lambda (_stx236954_ _ann236955_) + (let* ((_g236957236970_ + (lambda (_g236958236967_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235777235786_)))) - (_g235775235822_ - (lambda (_g235777235792_) + _g236958236967_)))) + (_g236956237003_ + (lambda (_g236958236973_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235777235792_)) - (let ((_e235781235794_ + (gx#stx-pair? _g236958236973_)) + (let ((_e236962236975_ (let () (declare (not safe)) - (gx#stx-e _g235777235792_)))) - (let ((_hd235780235797_ + (gx#stx-e _g236958236973_)))) + (let ((_hd236961236978_ (let () (declare (not safe)) - (##car _e235781235794_))) - (_tl235779235799_ + (##car _e236962236975_))) + (_tl236960236980_ (let () (declare (not safe)) - (##cdr _e235781235794_)))) + (##cdr _e236962236975_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235779235799_)) - (let ((_e235784235802_ + (gx#stx-pair? _tl236960236980_)) + (let ((_e236965236983_ (let () (declare (not safe)) - (gx#stx-e _tl235779235799_)))) - (let ((_hd235783235805_ + (gx#stx-e _tl236960236980_)))) + (let ((_hd236964236986_ (let () (declare (not safe)) - (##car _e235784235802_))) - (_tl235782235807_ + (##car _e236965236983_))) + (_tl236963236988_ (let () (declare (not safe)) - (##cdr _e235784235802_)))) + (##cdr _e236965236983_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235782235807_)) - ((lambda (_L235810_) - (let ((__tmp243902 + (gx#stx-null? _tl236963236988_)) + ((lambda (_L236991_) + (let ((__tmp245100 (let () (declare (not safe)) (gxc#identifier-symbol - _L235810_)))) + _L236991_)))) (declare (not safe)) (##structure gxc#!constructor::t - __tmp243902))) - _hd235783235805_) + __tmp245100))) + _hd236964236986_) (let () (declare (not safe)) - (_g235776235789_ _g235777235792_))))) + (_g236957236970_ _g236958236973_))))) (let () (declare (not safe)) - (_g235776235789_ _g235777235792_))))) + (_g236957236970_ _g236958236973_))))) (let () (declare (not safe)) - (_g235776235789_ _g235777235792_)))))) + (_g236957236970_ _g236958236973_)))))) (declare (not safe)) - (_g235775235822_ _ann235774_)))) + (_g236956237003_ _ann236955_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_stx235721_ _ann235722_) - (let* ((_g235724235737_ - (lambda (_g235725235734_) + (lambda (_stx236902_ _ann236903_) + (let* ((_g236905236918_ + (lambda (_g236906236915_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235725235734_)))) - (_g235723235770_ - (lambda (_g235725235740_) + _g236906236915_)))) + (_g236904236951_ + (lambda (_g236906236921_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235725235740_)) - (let ((_e235729235742_ + (gx#stx-pair? _g236906236921_)) + (let ((_e236910236923_ (let () (declare (not safe)) - (gx#stx-e _g235725235740_)))) - (let ((_hd235728235745_ + (gx#stx-e _g236906236921_)))) + (let ((_hd236909236926_ (let () (declare (not safe)) - (##car _e235729235742_))) - (_tl235727235747_ + (##car _e236910236923_))) + (_tl236908236928_ (let () (declare (not safe)) - (##cdr _e235729235742_)))) + (##cdr _e236910236923_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235727235747_)) - (let ((_e235732235750_ + (gx#stx-pair? _tl236908236928_)) + (let ((_e236913236931_ (let () (declare (not safe)) - (gx#stx-e _tl235727235747_)))) - (let ((_hd235731235753_ + (gx#stx-e _tl236908236928_)))) + (let ((_hd236912236934_ (let () (declare (not safe)) - (##car _e235732235750_))) - (_tl235730235755_ + (##car _e236913236931_))) + (_tl236911236936_ (let () (declare (not safe)) - (##cdr _e235732235750_)))) + (##cdr _e236913236931_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl235730235755_)) - ((lambda (_L235758_) - (let ((__tmp243903 + (gx#stx-null? _tl236911236936_)) + ((lambda (_L236939_) + (let ((__tmp245101 (let () (declare (not safe)) (gxc#identifier-symbol - _L235758_)))) + _L236939_)))) (declare (not safe)) (##structure gxc#!predicate::t - __tmp243903))) - _hd235731235753_) + __tmp245101))) + _hd236912236934_) (let () (declare (not safe)) - (_g235724235737_ _g235725235740_))))) + (_g236905236918_ _g236906236921_))))) (let () (declare (not safe)) - (_g235724235737_ _g235725235740_))))) + (_g236905236918_ _g236906236921_))))) (let () (declare (not safe)) - (_g235724235737_ _g235725235740_)))))) + (_g236905236918_ _g236906236921_)))))) (declare (not safe)) - (_g235723235770_ _ann235722_)))) + (_g236904236951_ _ann236903_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_stx235637_ _ann235638_) - (let* ((_g235640235661_ - (lambda (_g235641235658_) + (lambda (_stx236818_ _ann236819_) + (let* ((_g236821236842_ + (lambda (_g236822236839_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235641235658_)))) - (_g235639235718_ - (lambda (_g235641235664_) + _g236822236839_)))) + (_g236820236899_ + (lambda (_g236822236845_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235641235664_)) - (let ((_e235647235666_ + (gx#stx-pair? _g236822236845_)) + (let ((_e236828236847_ (let () (declare (not safe)) - (gx#stx-e _g235641235664_)))) - (let ((_hd235646235669_ + (gx#stx-e _g236822236845_)))) + (let ((_hd236827236850_ (let () (declare (not safe)) - (##car _e235647235666_))) - (_tl235645235671_ + (##car _e236828236847_))) + (_tl236826236852_ (let () (declare (not safe)) - (##cdr _e235647235666_)))) + (##cdr _e236828236847_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235645235671_)) - (let ((_e235650235674_ + (gx#stx-pair? _tl236826236852_)) + (let ((_e236831236855_ (let () (declare (not safe)) - (gx#stx-e _tl235645235671_)))) - (let ((_hd235649235677_ + (gx#stx-e _tl236826236852_)))) + (let ((_hd236830236858_ (let () (declare (not safe)) - (##car _e235650235674_))) - (_tl235648235679_ + (##car _e236831236855_))) + (_tl236829236860_ (let () (declare (not safe)) - (##cdr _e235650235674_)))) + (##cdr _e236831236855_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235648235679_)) - (let ((_e235653235682_ + (gx#stx-pair? _tl236829236860_)) + (let ((_e236834236863_ (let () (declare (not safe)) - (gx#stx-e _tl235648235679_)))) - (let ((_hd235652235685_ + (gx#stx-e _tl236829236860_)))) + (let ((_hd236833236866_ (let () (declare (not safe)) - (##car _e235653235682_))) - (_tl235651235687_ + (##car _e236834236863_))) + (_tl236832236868_ (let () (declare (not safe)) - (##cdr _e235653235682_)))) + (##cdr _e236834236863_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235651235687_)) - (let ((_e235656235690_ + _tl236832236868_)) + (let ((_e236837236871_ (let () (declare (not safe)) (gx#stx-e - _tl235651235687_)))) - (let ((_hd235655235693_ + _tl236832236868_)))) + (let ((_hd236836236874_ (let () (declare (not safe)) - (##car _e235656235690_))) - (_tl235654235695_ + (##car _e236837236871_))) + (_tl236835236876_ (let () (declare (not safe)) - (##cdr _e235656235690_)))) + (##cdr _e236837236871_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235654235695_)) - ((lambda (_L235698_ - _L235699_ - _L235700_) - (let ((__tmp243906 + _tl236835236876_)) + ((lambda (_L236879_ + _L236880_ + _L236881_) + (let ((__tmp245104 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L235700_))) - (__tmp243905 - (let () (declare (not safe)) (gx#stx-e _L235699_))) - (__tmp243904 - (let () (declare (not safe)) (gx#stx-e _L235698_)))) + (gxc#identifier-symbol _L236881_))) + (__tmp245103 + (let () (declare (not safe)) (gx#stx-e _L236880_))) + (__tmp245102 + (let () (declare (not safe)) (gx#stx-e _L236879_)))) (declare (not safe)) (##structure gxc#!accessor::t - __tmp243906 - __tmp243905 - __tmp243904))) - _hd235655235693_ - _hd235652235685_ - _hd235649235677_) + __tmp245104 + __tmp245103 + __tmp245102))) + _hd236836236874_ + _hd236833236866_ + _hd236830236858_) (let () (declare (not safe)) - (_g235640235661_ _g235641235664_))))) + (_g236821236842_ _g236822236845_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g235640235661_ - _g235641235664_))))) + (_g236821236842_ + _g236822236845_))))) (let () (declare (not safe)) - (_g235640235661_ _g235641235664_))))) + (_g236821236842_ _g236822236845_))))) (let () (declare (not safe)) - (_g235640235661_ _g235641235664_))))) + (_g236821236842_ _g236822236845_))))) (let () (declare (not safe)) - (_g235640235661_ _g235641235664_)))))) + (_g236821236842_ _g236822236845_)))))) (declare (not safe)) - (_g235639235718_ _ann235638_)))) + (_g236820236899_ _ann236819_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_stx235553_ _ann235554_) - (let* ((_g235556235577_ - (lambda (_g235557235574_) + (lambda (_stx236734_ _ann236735_) + (let* ((_g236737236758_ + (lambda (_g236738236755_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g235557235574_)))) - (_g235555235634_ - (lambda (_g235557235580_) + _g236738236755_)))) + (_g236736236815_ + (lambda (_g236738236761_) (if (let () (declare (not safe)) - (gx#stx-pair? _g235557235580_)) - (let ((_e235563235582_ + (gx#stx-pair? _g236738236761_)) + (let ((_e236744236763_ (let () (declare (not safe)) - (gx#stx-e _g235557235580_)))) - (let ((_hd235562235585_ + (gx#stx-e _g236738236761_)))) + (let ((_hd236743236766_ (let () (declare (not safe)) - (##car _e235563235582_))) - (_tl235561235587_ + (##car _e236744236763_))) + (_tl236742236768_ (let () (declare (not safe)) - (##cdr _e235563235582_)))) + (##cdr _e236744236763_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235561235587_)) - (let ((_e235566235590_ + (gx#stx-pair? _tl236742236768_)) + (let ((_e236747236771_ (let () (declare (not safe)) - (gx#stx-e _tl235561235587_)))) - (let ((_hd235565235593_ + (gx#stx-e _tl236742236768_)))) + (let ((_hd236746236774_ (let () (declare (not safe)) - (##car _e235566235590_))) - (_tl235564235595_ + (##car _e236747236771_))) + (_tl236745236776_ (let () (declare (not safe)) - (##cdr _e235566235590_)))) + (##cdr _e236747236771_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl235564235595_)) - (let ((_e235569235598_ + (gx#stx-pair? _tl236745236776_)) + (let ((_e236750236779_ (let () (declare (not safe)) - (gx#stx-e _tl235564235595_)))) - (let ((_hd235568235601_ + (gx#stx-e _tl236745236776_)))) + (let ((_hd236749236782_ (let () (declare (not safe)) - (##car _e235569235598_))) - (_tl235567235603_ + (##car _e236750236779_))) + (_tl236748236784_ (let () (declare (not safe)) - (##cdr _e235569235598_)))) + (##cdr _e236750236779_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl235567235603_)) - (let ((_e235572235606_ + _tl236748236784_)) + (let ((_e236753236787_ (let () (declare (not safe)) (gx#stx-e - _tl235567235603_)))) - (let ((_hd235571235609_ + _tl236748236784_)))) + (let ((_hd236752236790_ (let () (declare (not safe)) - (##car _e235572235606_))) - (_tl235570235611_ + (##car _e236753236787_))) + (_tl236751236792_ (let () (declare (not safe)) - (##cdr _e235572235606_)))) + (##cdr _e236753236787_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl235570235611_)) - ((lambda (_L235614_ - _L235615_ - _L235616_) - (let ((__tmp243909 + _tl236751236792_)) + ((lambda (_L236795_ + _L236796_ + _L236797_) + (let ((__tmp245107 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _L235616_))) - (__tmp243908 - (let () (declare (not safe)) (gx#stx-e _L235615_))) - (__tmp243907 - (let () (declare (not safe)) (gx#stx-e _L235614_)))) + (gxc#identifier-symbol _L236797_))) + (__tmp245106 + (let () (declare (not safe)) (gx#stx-e _L236796_))) + (__tmp245105 + (let () (declare (not safe)) (gx#stx-e _L236795_)))) (declare (not safe)) (##structure gxc#!mutator::t - __tmp243909 - __tmp243908 - __tmp243907))) - _hd235571235609_ - _hd235568235601_ - _hd235565235593_) + __tmp245107 + __tmp245106 + __tmp245105))) + _hd236752236790_ + _hd236749236782_ + _hd236746236774_) (let () (declare (not safe)) - (_g235556235577_ _g235557235580_))))) + (_g236737236758_ _g236738236761_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g235556235577_ - _g235557235580_))))) + (_g236737236758_ + _g236738236761_))))) (let () (declare (not safe)) - (_g235556235577_ _g235557235580_))))) + (_g236737236758_ _g236738236761_))))) (let () (declare (not safe)) - (_g235556235577_ _g235557235580_))))) + (_g236737236758_ _g236738236761_))))) (let () (declare (not safe)) - (_g235556235577_ _g235557235580_)))))) + (_g236737236758_ _g236738236761_)))))) (declare (not safe)) - (_g235555235634_ _ann235554_)))) + (_g236736236815_ _ann236735_)))) (let () (declare (not safe)) (table-set! @@ -3598,2048 +3646,2048 @@ '@mop.mutator gxc#basic-expression-type-annotation-mop.mutator)) (define gxc#basic-expression-type-lambda% - (lambda (_stx234673_) - (let* ((___stx242190242191_ _stx234673_) - (_g234679234875_ + (lambda (_stx235854_) + (let* ((___stx243388243389_ _stx235854_) + (_g235860236056_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242190242191_))))) - (let ((___kont242192242193_ - (lambda (_L235541_) - (let ((__obj243860 + ___stx243388243389_))))) + (let ((___kont243390243391_ + (lambda (_L236722_) + (let ((__obj245058 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj243860 + __obj245058 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L235541_)) + (gxc#lambda-form-arity _L236722_)) '#f) - __obj243860))) - (___kont242194242195_ - (lambda (_L235468_ - _L235469_ - _L235470_ - _L235471_ - _L235472_ - _L235473_) - (let* ((_tab235523_ - (let () (declare (not safe)) (gx#stx-e _L235470_))) - (_keys235525_ - (if _tab235523_ - (let ((__tmp243910 (vector->list _tab235523_))) + __obj245058))) + (___kont243392243393_ + (lambda (_L236649_ + _L236650_ + _L236651_ + _L236652_ + _L236653_ + _L236654_) + (let* ((_tab236704_ + (let () (declare (not safe)) (gx#stx-e _L236651_))) + (_keys236706_ + (if _tab236704_ + (let ((__tmp245108 (vector->list _tab236704_))) (declare (not safe)) - (filter values __tmp243910)) + (filter values __tmp245108)) '#f))) - (let ((__tmp243911 + (let ((__tmp245109 (let () (declare (not safe)) - (gxc#identifier-symbol _L235469_)))) + (gxc#identifier-symbol _L236650_)))) (declare (not safe)) (##structure gxc#!kw-lambda::t 'kw-lambda - _keys235525_ - __tmp243911))))) - (___kont242196242197_ - (lambda (_L235201_ - _L235202_ - _L235203_ - _L235204_ - _L235205_ - _L235206_ - _L235207_ - _L235208_ - _L235209_ - _L235210_) - (let ((__tmp243913 + _keys236706_ + __tmp245109))))) + (___kont243394243395_ + (lambda (_L236382_ + _L236383_ + _L236384_ + _L236385_ + _L236386_ + _L236387_ + _L236388_ + _L236389_ + _L236390_ + _L236391_) + (let ((__tmp245111 (map gx#stx-e - (let ((__tmp243914 - (lambda (_g235303235306_ _g235304235308_) + (let ((__tmp245112 + (lambda (_g236484236487_ _g236485236489_) (let () (declare (not safe)) - (cons _g235303235306_ - _g235304235308_))))) + (cons _g236484236487_ + _g236485236489_))))) (declare (not safe)) - (foldr1 __tmp243914 '() _L235203_)))) - (__tmp243912 + (foldr1 __tmp245112 '() _L236384_)))) + (__tmp245110 (let () (declare (not safe)) - (gxc#identifier-symbol _L235207_)))) + (gxc#identifier-symbol _L236388_)))) (declare (not safe)) (##structure gxc#!kw-lambda-primary::t 'kw-lambda-dispatch - __tmp243913 - __tmp243912)))) - (___kont242200242201_ - (lambda (_L234911_) - (let ((__obj243861 + __tmp245111 + __tmp245110)))) + (___kont243398243399_ + (lambda (_L236092_) + (let ((__obj245059 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj243861 + __obj245059 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L234911_)) + (gxc#lambda-form-arity _L236092_)) (let () (declare (not safe)) - (gxc#dispatch-lambda-form-delegate _L234911_))) - __obj243861))) - (___kont242202242203_ - (lambda (_L234888_) - (let ((__obj243862 + (gxc#dispatch-lambda-form-delegate _L236092_))) + __obj245059))) + (___kont243400243401_ + (lambda (_L236069_) + (let ((__obj245060 (let () (declare (not safe)) (##structure gxc#!lambda::t '#f '#f '#f '#f '#f)))) (gxc#!lambda:::init! - __obj243862 + __obj245060 'lambda (let () (declare (not safe)) - (gxc#lambda-form-arity _L234888_)) + (gxc#lambda-form-arity _L236069_)) '#f) - __obj243862)))) - (let* ((___match242509242510_ - (lambda (_e234866234903_ _hd234865234906_ _tl234864234908_) - (let ((_L234911_ _tl234864234908_)) + __obj245060)))) + (let* ((___match243707243708_ + (lambda (_e236047236084_ _hd236046236087_ _tl236045236089_) + (let ((_L236092_ _tl236045236089_)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _L234911_)) - (___kont242200242201_ _L234911_) - (___kont242202242203_ _tl234864234908_))))) - (___match242503242504_ - (lambda (_e234760234925_ - _hd234759234928_ - _tl234758234930_ - _e234763234933_ - _hd234762234936_ - _tl234761234938_ - _e234766234941_ - _hd234765234944_ - _tl234764234946_ - _e234769234949_ - _hd234768234952_ - _tl234767234954_ - _e234772234957_ - _hd234771234960_ - _tl234770234962_ - _e234775234965_ - _hd234774234968_ - _tl234773234970_ - _e234778234973_ - _hd234777234976_ - _tl234776234978_ - _e234781234981_ - _hd234780234984_ - _tl234779234986_ - _e234784234989_ - _hd234783234992_ - _tl234782234994_ - _e234787234997_ - _hd234786235000_ - _tl234785235002_ - _e234790235005_ - _hd234789235008_ - _tl234788235010_ - _e234793235013_ - _hd234792235016_ - _tl234791235018_ - _e234796235021_ - _hd234795235024_ - _tl234794235026_ - _e234799235029_ - _hd234798235032_ - _tl234797235034_ - ___splice242198242199_ - _target234800235037_ - _tl234802235039_ - _e234817235042_ - _hd234816235045_ - _tl234815235047_ - _e234820235050_ - _hd234819235053_ - _tl234818235055_ - _e234823235058_ - _hd234822235061_ - _tl234821235063_) - (letrec ((_loop234803235066_ - (lambda (_hd234801235069_ - _-absent-value234807235071_ - _key234808235073_ - _-xkwvar234809235075_ - _-hash-ref234810235077_) + (gxc#dispatch-lambda-form? _L236092_)) + (___kont243398243399_ _L236092_) + (___kont243400243401_ _tl236045236089_))))) + (___match243701243702_ + (lambda (_e235941236106_ + _hd235940236109_ + _tl235939236111_ + _e235944236114_ + _hd235943236117_ + _tl235942236119_ + _e235947236122_ + _hd235946236125_ + _tl235945236127_ + _e235950236130_ + _hd235949236133_ + _tl235948236135_ + _e235953236138_ + _hd235952236141_ + _tl235951236143_ + _e235956236146_ + _hd235955236149_ + _tl235954236151_ + _e235959236154_ + _hd235958236157_ + _tl235957236159_ + _e235962236162_ + _hd235961236165_ + _tl235960236167_ + _e235965236170_ + _hd235964236173_ + _tl235963236175_ + _e235968236178_ + _hd235967236181_ + _tl235966236183_ + _e235971236186_ + _hd235970236189_ + _tl235969236191_ + _e235974236194_ + _hd235973236197_ + _tl235972236199_ + _e235977236202_ + _hd235976236205_ + _tl235975236207_ + _e235980236210_ + _hd235979236213_ + _tl235978236215_ + ___splice243396243397_ + _target235981236218_ + _tl235983236220_ + _e235998236223_ + _hd235997236226_ + _tl235996236228_ + _e236001236231_ + _hd236000236234_ + _tl235999236236_ + _e236004236239_ + _hd236003236242_ + _tl236002236244_) + (letrec ((_loop235984236247_ + (lambda (_hd235982236250_ + _-absent-value235988236252_ + _key235989236254_ + _-xkwvar235990236256_ + _-hash-ref235991236258_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234801235069_)) - (let ((_e234804235080_ + (gx#stx-pair? _hd235982236250_)) + (let ((_e235985236261_ (let () (declare (not safe)) - (gx#stx-e _hd234801235069_)))) - (let ((_lp-tl234806235085_ + (gx#stx-e _hd235982236250_)))) + (let ((_lp-tl235987236266_ (let () (declare (not safe)) - (##cdr _e234804235080_))) - (_lp-hd234805235083_ + (##cdr _e235985236261_))) + (_lp-hd235986236264_ (let () (declare (not safe)) - (##car _e234804235080_)))) + (##car _e235985236261_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd234805235083_)) - (let ((_e234826235088_ + _lp-hd235986236264_)) + (let ((_e236007236269_ (let () (declare (not safe)) (gx#stx-e - _lp-hd234805235083_)))) - (let ((_tl234824235093_ + _lp-hd235986236264_)))) + (let ((_tl236005236274_ (let () (declare (not safe)) - (##cdr _e234826235088_))) - (_hd234825235091_ + (##cdr _e236007236269_))) + (_hd236006236272_ (let () (declare (not safe)) - (##car _e234826235088_)))) + (##car _e236007236269_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234825235091_)) + _hd236006236272_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd234825235091_)) + _hd236006236272_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl234824235093_)) - (let ((_e234829235096_ + (gx#stx-pair? _tl236005236274_)) + (let ((_e236010236277_ (let () (declare (not safe)) - (gx#stx-e _tl234824235093_)))) - (let ((_tl234827235101_ + (gx#stx-e _tl236005236274_)))) + (let ((_tl236008236282_ (let () (declare (not safe)) - (##cdr _e234829235096_))) - (_hd234828235099_ + (##cdr _e236010236277_))) + (_hd236009236280_ (let () (declare (not safe)) - (##car _e234829235096_)))) + (##car _e236010236277_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234828235099_)) - (let ((_e234832235104_ + (gx#stx-pair? _hd236009236280_)) + (let ((_e236013236285_ (let () (declare (not safe)) - (gx#stx-e _hd234828235099_)))) - (let ((_tl234830235109_ + (gx#stx-e _hd236009236280_)))) + (let ((_tl236011236290_ (let () (declare (not safe)) - (##cdr _e234832235104_))) - (_hd234831235107_ + (##cdr _e236013236285_))) + (_hd236012236288_ (let () (declare (not safe)) - (##car _e234832235104_)))) + (##car _e236013236285_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234831235107_)) + (gx#identifier? _hd236012236288_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234831235107_)) + _hd236012236288_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234830235109_)) - (let ((_e234835235112_ + _tl236011236290_)) + (let ((_e236016236293_ (let () (declare (not safe)) (gx#stx-e - _tl234830235109_)))) - (let ((_tl234833235117_ + _tl236011236290_)))) + (let ((_tl236014236298_ (let () (declare (not safe)) - (##cdr _e234835235112_))) - (_hd234834235115_ + (##cdr _e236016236293_))) + (_hd236015236296_ (let () (declare (not safe)) - (##car _e234835235112_)))) + (##car _e236016236293_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234833235117_)) + _tl236014236298_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234827235101_)) - (let ((_e234838235120_ + _tl236008236282_)) + (let ((_e236019236301_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl234827235101_)))) - (let ((_tl234836235125_ + (gx#stx-e _tl236008236282_)))) + (let ((_tl236017236306_ (let () (declare (not safe)) - (##cdr _e234838235120_))) - (_hd234837235123_ + (##cdr _e236019236301_))) + (_hd236018236304_ (let () (declare (not safe)) - (##car _e234838235120_)))) + (##car _e236019236301_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234837235123_)) - (let ((_e234841235128_ + (gx#stx-pair? _hd236018236304_)) + (let ((_e236022236309_ (let () (declare (not safe)) - (gx#stx-e _hd234837235123_)))) - (let ((_tl234839235133_ + (gx#stx-e _hd236018236304_)))) + (let ((_tl236020236314_ (let () (declare (not safe)) - (##cdr _e234841235128_))) - (_hd234840235131_ + (##cdr _e236022236309_))) + (_hd236021236312_ (let () (declare (not safe)) - (##car _e234841235128_)))) + (##car _e236022236309_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234840235131_)) + (gx#identifier? _hd236021236312_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234840235131_)) + (gx#stx-eq? '%#ref _hd236021236312_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234839235133_)) - (let ((_e234844235136_ + (gx#stx-pair? _tl236020236314_)) + (let ((_e236025236317_ (let () (declare (not safe)) (gx#stx-e - _tl234839235133_)))) - (let ((_tl234842235141_ + _tl236020236314_)))) + (let ((_tl236023236322_ (let () (declare (not safe)) - (##cdr _e234844235136_))) - (_hd234843235139_ + (##cdr _e236025236317_))) + (_hd236024236320_ (let () (declare (not safe)) - (##car _e234844235136_)))) + (##car _e236025236317_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234842235141_)) + _tl236023236322_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234836235125_)) - (let ((_e234847235144_ + _tl236017236306_)) + (let ((_e236028236325_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl234836235125_)))) - (let ((_tl234845235149_ - (let () (declare (not safe)) (##cdr _e234847235144_))) - (_hd234846235147_ - (let () (declare (not safe)) (##car _e234847235144_)))) + (gx#stx-e _tl236017236306_)))) + (let ((_tl236026236330_ + (let () (declare (not safe)) (##cdr _e236028236325_))) + (_hd236027236328_ + (let () (declare (not safe)) (##car _e236028236325_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234846235147_)) - (let ((_e234850235152_ + (gx#stx-pair? _hd236027236328_)) + (let ((_e236031236333_ (let () (declare (not safe)) - (gx#stx-e _hd234846235147_)))) - (let ((_tl234848235157_ + (gx#stx-e _hd236027236328_)))) + (let ((_tl236029236338_ (let () (declare (not safe)) - (##cdr _e234850235152_))) - (_hd234849235155_ + (##cdr _e236031236333_))) + (_hd236030236336_ (let () (declare (not safe)) - (##car _e234850235152_)))) + (##car _e236031236333_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234849235155_)) + (gx#identifier? _hd236030236336_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd234849235155_)) + (gx#stx-eq? '%#quote _hd236030236336_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234848235157_)) - (let ((_e234853235160_ + (gx#stx-pair? _tl236029236338_)) + (let ((_e236034236341_ (let () (declare (not safe)) - (gx#stx-e _tl234848235157_)))) - (let ((_tl234851235165_ + (gx#stx-e _tl236029236338_)))) + (let ((_tl236032236346_ (let () (declare (not safe)) - (##cdr _e234853235160_))) - (_hd234852235163_ + (##cdr _e236034236341_))) + (_hd236033236344_ (let () (declare (not safe)) - (##car _e234853235160_)))) + (##car _e236034236341_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234851235165_)) + _tl236032236346_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234845235149_)) - (let ((_e234856235168_ + _tl236026236330_)) + (let ((_e236037236349_ (let () (declare (not safe)) (gx#stx-e - _tl234845235149_)))) - (let ((_tl234854235173_ + _tl236026236330_)))) + (let ((_tl236035236354_ (let () (declare (not safe)) - (##cdr _e234856235168_))) - (_hd234855235171_ + (##cdr _e236037236349_))) + (_hd236036236352_ (let () (declare (not safe)) - (##car _e234856235168_)))) + (##car _e236037236349_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234855235171_)) - (let ((_e234859235176_ + _hd236036236352_)) + (let ((_e236040236357_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd234855235171_)))) - (let ((_tl234857235181_ + (gx#stx-e _hd236036236352_)))) + (let ((_tl236038236362_ (let () (declare (not safe)) - (##cdr _e234859235176_))) - (_hd234858235179_ + (##cdr _e236040236357_))) + (_hd236039236360_ (let () (declare (not safe)) - (##car _e234859235176_)))) + (##car _e236040236357_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234858235179_)) + (gx#identifier? _hd236039236360_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234858235179_)) + (gx#stx-eq? '%#ref _hd236039236360_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234857235181_)) - (let ((_e234862235184_ + (gx#stx-pair? _tl236038236362_)) + (let ((_e236043236365_ (let () (declare (not safe)) - (gx#stx-e _tl234857235181_)))) - (let ((_tl234860235189_ + (gx#stx-e _tl236038236362_)))) + (let ((_tl236041236370_ (let () (declare (not safe)) - (##cdr _e234862235184_))) - (_hd234861235187_ + (##cdr _e236043236365_))) + (_hd236042236368_ (let () (declare (not safe)) - (##car _e234862235184_)))) + (##car _e236043236365_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234860235189_)) + (gx#stx-null? _tl236041236370_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl234854235173_)) - (let ((__tmp243929 + _tl236035236354_)) + (let ((__tmp245127 (let () (declare (not safe)) - (cons _hd234861235187_ - _-absent-value234807235071_))) - (__tmp243928 + (cons _hd236042236368_ + _-absent-value235988236252_))) + (__tmp245126 (let () (declare (not safe)) - (cons _hd234852235163_ - _key234808235073_))) - (__tmp243927 + (cons _hd236033236344_ + _key235989236254_))) + (__tmp245125 (let () (declare (not safe)) - (cons _hd234843235139_ - _-xkwvar234809235075_))) - (__tmp243926 + (cons _hd236024236320_ + _-xkwvar235990236256_))) + (__tmp245124 (let () (declare (not safe)) - (cons _hd234834235115_ - _-hash-ref234810235077_)))) + (cons _hd236015236296_ + _-hash-ref235991236258_)))) (declare (not safe)) - (_loop234803235066_ - _lp-tl234806235085_ - __tmp243929 - __tmp243928 - __tmp243927 - __tmp243926)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (let ((_-hash-ref234814235198_ - (reverse _-hash-ref234810235077_)) - (_-xkwvar234813235196_ - (reverse _-xkwvar234809235075_)) - (_key234812235194_ - (reverse _key234808235073_)) - (_-absent-value234811235192_ - (reverse _-absent-value234807235071_))) + (_loop235984236247_ + _lp-tl235987236266_ + __tmp245127 + __tmp245126 + __tmp245125 + __tmp245124)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (let ((_-hash-ref235995236379_ + (reverse _-hash-ref235991236258_)) + (_-xkwvar235994236377_ + (reverse _-xkwvar235990236256_)) + (_key235993236375_ + (reverse _key235989236254_)) + (_-absent-value235992236373_ + (reverse _-absent-value235988236252_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234767234954_)) - (let ((_L235201_ _hd234822235061_) - (_L235202_ - _-absent-value234811235192_) - (_L235203_ _key234812235194_) - (_L235204_ - _-xkwvar234813235196_) - (_L235205_ - _-hash-ref234814235198_) - (_L235206_ _hd234798235032_) - (_L235207_ _hd234789235008_) - (_L235208_ _hd234780234984_) - (_L235209_ _tl234764234946_) - (_L235210_ _hd234765234944_)) + (gx#stx-null? _tl235948236135_)) + (let ((_L236382_ _hd236003236242_) + (_L236383_ + _-absent-value235992236373_) + (_L236384_ _key235993236375_) + (_L236385_ + _-xkwvar235994236377_) + (_L236386_ + _-hash-ref235995236379_) + (_L236387_ _hd235979236213_) + (_L236388_ _hd235970236189_) + (_L236389_ _hd235961236165_) + (_L236390_ _tl235945236127_) + (_L236391_ _hd235946236125_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L235210_)) + _L236391_)) (let () (declare (not safe)) (gx#identifier? - _L235209_)) + _L236390_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235208_ + _L236389_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _L235210_ - _L235206_)) - (let ((__tmp243924 - (let ((__tmp243925 + _L236391_ + _L236387_)) + (let ((__tmp245122 + (let ((__tmp245123 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g235263235266_ _g235264235268_) + (lambda (_g236444236447_ _g236445236449_) (let () (declare (not safe)) - (cons _g235263235266_ _g235264235268_))))) + (cons _g236444236447_ _g236445236449_))))) (declare (not safe)) - (foldr1 __tmp243925 '() _L235203_)))) + (foldr1 __tmp245123 '() _L236384_)))) (declare (not safe)) - (andmap1 gx#stx-keyword? __tmp243924)) - (let ((__tmp243923 - (lambda (_g235270235272_) + (andmap1 gx#stx-keyword? __tmp245122)) + (let ((__tmp245121 + (lambda (_g236451236453_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g235270235272_ + _g236451236453_ 'hash-ref)))) - (__tmp243921 - (let ((__tmp243922 - (lambda (_g235274235277_ _g235275235279_) + (__tmp245119 + (let ((__tmp245120 + (lambda (_g236455236458_ _g236456236460_) (let () (declare (not safe)) - (cons _g235274235277_ _g235275235279_))))) + (cons _g236455236458_ _g236456236460_))))) (declare (not safe)) - (foldr1 __tmp243922 '() _L235205_)))) + (foldr1 __tmp245120 '() _L236386_)))) (declare (not safe)) - (andmap1 __tmp243923 __tmp243921)) - (let ((__tmp243920 - (lambda (_g235281235283_) + (andmap1 __tmp245121 __tmp245119)) + (let ((__tmp245118 + (lambda (_g236462236464_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _g235281235283_ + _g236462236464_ 'absent-value)))) - (__tmp243918 - (let ((__tmp243919 - (lambda (_g235285235288_ _g235286235290_) + (__tmp245116 + (let ((__tmp245117 + (lambda (_g236466236469_ _g236467236471_) (let () (declare (not safe)) - (cons _g235285235288_ _g235286235290_))))) + (cons _g236466236469_ _g236467236471_))))) (declare (not safe)) - (foldr1 __tmp243919 '() _L235202_)))) + (foldr1 __tmp245117 '() _L236383_)))) (declare (not safe)) - (andmap1 __tmp243920 __tmp243918)) - (let ((__tmp243917 - (lambda (_g235292235294_) + (andmap1 __tmp245118 __tmp245116)) + (let ((__tmp245115 + (lambda (_g236473236475_) (let () (declare (not safe)) - (gx#free-identifier=? _g235292235294_ _L235210_)))) - (__tmp243915 - (let ((__tmp243916 - (lambda (_g235296235299_ _g235297235301_) + (gx#free-identifier=? _g236473236475_ _L236391_)))) + (__tmp245113 + (let ((__tmp245114 + (lambda (_g236477236480_ _g236478236482_) (let () (declare (not safe)) - (cons _g235296235299_ _g235297235301_))))) + (cons _g236477236480_ _g236478236482_))))) (declare (not safe)) - (foldr1 __tmp243916 '() _L235204_)))) + (foldr1 __tmp245114 '() _L236385_)))) (declare (not safe)) - (andmap1 __tmp243917 __tmp243915))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242196242197_ - _L235201_ - _L235202_ - _L235203_ - _L235204_ - _L235205_ - _L235206_ - _L235207_ - _L235208_ - _L235209_ - _L235210_) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_))))))) + (andmap1 __tmp245115 __tmp245113))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243394243395_ + _L236382_ + _L236383_ + _L236384_ + _L236385_ + _L236386_ + _L236387_ + _L236388_ + _L236389_ + _L236390_ + _L236391_) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_))))))) (let () (declare (not safe)) - (_loop234803235066_ - _target234800235037_ + (_loop235984236247_ + _target235981236218_ '() '() '() '()))))) - (___match242375242376_ - (lambda (_e234760234925_ - _hd234759234928_ - _tl234758234930_ - _e234763234933_ - _hd234762234936_ - _tl234761234938_) + (___match243573243574_ + (lambda (_e235941236106_ + _hd235940236109_ + _tl235939236111_ + _e235944236114_ + _hd235943236117_ + _tl235942236119_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234762234936_)) - (let ((_e234766234941_ + (gx#stx-pair? _hd235943236117_)) + (let ((_e235947236122_ (let () (declare (not safe)) - (gx#stx-e _hd234762234936_)))) - (let ((_tl234764234946_ + (gx#stx-e _hd235943236117_)))) + (let ((_tl235945236127_ (let () (declare (not safe)) - (##cdr _e234766234941_))) - (_hd234765234944_ + (##cdr _e235947236122_))) + (_hd235946236125_ (let () (declare (not safe)) - (##car _e234766234941_)))) + (##car _e235947236122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234761234938_)) - (let ((_e234769234949_ + (gx#stx-pair? _tl235942236119_)) + (let ((_e235950236130_ (let () (declare (not safe)) - (gx#stx-e _tl234761234938_)))) - (let ((_tl234767234954_ + (gx#stx-e _tl235942236119_)))) + (let ((_tl235948236135_ (let () (declare (not safe)) - (##cdr _e234769234949_))) - (_hd234768234952_ + (##cdr _e235950236130_))) + (_hd235949236133_ (let () (declare (not safe)) - (##car _e234769234949_)))) + (##car _e235950236130_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234768234952_)) - (let ((_e234772234957_ + (gx#stx-pair? _hd235949236133_)) + (let ((_e235953236138_ (let () (declare (not safe)) (gx#stx-e - _hd234768234952_)))) - (let ((_tl234770234962_ + _hd235949236133_)))) + (let ((_tl235951236143_ (let () (declare (not safe)) - (##cdr _e234772234957_))) - (_hd234771234960_ + (##cdr _e235953236138_))) + (_hd235952236141_ (let () (declare (not safe)) - (##car _e234772234957_)))) + (##car _e235953236138_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234771234960_)) + _hd235952236141_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd234771234960_)) + _hd235952236141_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234770234962_)) - (let ((_e234775234965_ + _tl235951236143_)) + (let ((_e235956236146_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl234770234962_)))) - (let ((_tl234773234970_ + (gx#stx-e _tl235951236143_)))) + (let ((_tl235954236151_ (let () (declare (not safe)) - (##cdr _e234775234965_))) - (_hd234774234968_ + (##cdr _e235956236146_))) + (_hd235955236149_ (let () (declare (not safe)) - (##car _e234775234965_)))) + (##car _e235956236146_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234774234968_)) - (let ((_e234778234973_ + (gx#stx-pair? _hd235955236149_)) + (let ((_e235959236154_ (let () (declare (not safe)) - (gx#stx-e _hd234774234968_)))) - (let ((_tl234776234978_ + (gx#stx-e _hd235955236149_)))) + (let ((_tl235957236159_ (let () (declare (not safe)) - (##cdr _e234778234973_))) - (_hd234777234976_ + (##cdr _e235959236154_))) + (_hd235958236157_ (let () (declare (not safe)) - (##car _e234778234973_)))) + (##car _e235959236154_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234777234976_)) + (gx#identifier? _hd235958236157_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234777234976_)) + (gx#stx-eq? '%#ref _hd235958236157_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234776234978_)) - (let ((_e234781234981_ + (gx#stx-pair? _tl235957236159_)) + (let ((_e235962236162_ (let () (declare (not safe)) (gx#stx-e - _tl234776234978_)))) - (let ((_tl234779234986_ + _tl235957236159_)))) + (let ((_tl235960236167_ (let () (declare (not safe)) - (##cdr _e234781234981_))) - (_hd234780234984_ + (##cdr _e235962236162_))) + (_hd235961236165_ (let () (declare (not safe)) - (##car _e234781234981_)))) + (##car _e235962236162_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234779234986_)) + _tl235960236167_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234773234970_)) - (let ((_e234784234989_ + _tl235954236151_)) + (let ((_e235965236170_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl234773234970_)))) - (let ((_tl234782234994_ - (let () (declare (not safe)) (##cdr _e234784234989_))) - (_hd234783234992_ - (let () (declare (not safe)) (##car _e234784234989_)))) + (gx#stx-e _tl235954236151_)))) + (let ((_tl235963236175_ + (let () (declare (not safe)) (##cdr _e235965236170_))) + (_hd235964236173_ + (let () (declare (not safe)) (##car _e235965236170_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234783234992_)) - (let ((_e234787234997_ + (gx#stx-pair? _hd235964236173_)) + (let ((_e235968236178_ (let () (declare (not safe)) - (gx#stx-e _hd234783234992_)))) - (let ((_tl234785235002_ + (gx#stx-e _hd235964236173_)))) + (let ((_tl235966236183_ (let () (declare (not safe)) - (##cdr _e234787234997_))) - (_hd234786235000_ + (##cdr _e235968236178_))) + (_hd235967236181_ (let () (declare (not safe)) - (##car _e234787234997_)))) + (##car _e235968236178_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234786235000_)) + (gx#identifier? _hd235967236181_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234786235000_)) + (gx#stx-eq? '%#ref _hd235967236181_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234785235002_)) - (let ((_e234790235005_ + (gx#stx-pair? _tl235966236183_)) + (let ((_e235971236186_ (let () (declare (not safe)) - (gx#stx-e _tl234785235002_)))) - (let ((_tl234788235010_ + (gx#stx-e _tl235966236183_)))) + (let ((_tl235969236191_ (let () (declare (not safe)) - (##cdr _e234790235005_))) - (_hd234789235008_ + (##cdr _e235971236186_))) + (_hd235970236189_ (let () (declare (not safe)) - (##car _e234790235005_)))) + (##car _e235971236186_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234788235010_)) + _tl235969236191_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234782234994_)) - (let ((_e234793235013_ + _tl235963236175_)) + (let ((_e235974236194_ (let () (declare (not safe)) (gx#stx-e - _tl234782234994_)))) - (let ((_tl234791235018_ + _tl235963236175_)))) + (let ((_tl235972236199_ (let () (declare (not safe)) - (##cdr _e234793235013_))) - (_hd234792235016_ + (##cdr _e235974236194_))) + (_hd235973236197_ (let () (declare (not safe)) - (##car _e234793235013_)))) + (##car _e235974236194_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234792235016_)) - (let ((_e234796235021_ + _hd235973236197_)) + (let ((_e235977236202_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd234792235016_)))) - (let ((_tl234794235026_ + (gx#stx-e _hd235973236197_)))) + (let ((_tl235975236207_ (let () (declare (not safe)) - (##cdr _e234796235021_))) - (_hd234795235024_ + (##cdr _e235977236202_))) + (_hd235976236205_ (let () (declare (not safe)) - (##car _e234796235021_)))) + (##car _e235977236202_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234795235024_)) + (gx#identifier? _hd235976236205_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234795235024_)) + (gx#stx-eq? '%#ref _hd235976236205_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234794235026_)) - (let ((_e234799235029_ + (gx#stx-pair? _tl235975236207_)) + (let ((_e235980236210_ (let () (declare (not safe)) - (gx#stx-e _tl234794235026_)))) - (let ((_tl234797235034_ + (gx#stx-e _tl235975236207_)))) + (let ((_tl235978236215_ (let () (declare (not safe)) - (##cdr _e234799235029_))) - (_hd234798235032_ + (##cdr _e235980236210_))) + (_hd235979236213_ (let () (declare (not safe)) - (##car _e234799235029_)))) + (##car _e235980236210_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234797235034_)) + (gx#stx-null? _tl235978236215_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl234791235018_)) + _tl235972236199_)) (if (fx>= (let () (declare (not safe)) (gx#stx-length - _tl234791235018_)) + _tl235972236199_)) '1) - (let ((___splice242198242199_ + (let ((___splice243396243397_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl234791235018_ + _tl235972236199_ '1)))) - (let ((_tl234802235039_ + (let ((_tl235983236220_ (let () (declare (not safe)) (##vector-ref - ___splice242198242199_ + ___splice243396243397_ '1))) - (_target234800235037_ + (_target235981236218_ (let () (declare (not safe)) (##vector-ref - ___splice242198242199_ + ___splice243396243397_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234802235039_)) - (let ((_e234817235042_ + _tl235983236220_)) + (let ((_e235998236223_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl234802235039_)))) - (let ((_tl234815235047_ + (gx#stx-e _tl235983236220_)))) + (let ((_tl235996236228_ (let () (declare (not safe)) - (##cdr _e234817235042_))) - (_hd234816235045_ + (##cdr _e235998236223_))) + (_hd235997236226_ (let () (declare (not safe)) - (##car _e234817235042_)))) + (##car _e235998236223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234816235045_)) - (let ((_e234820235050_ + (gx#stx-pair? _hd235997236226_)) + (let ((_e236001236231_ (let () (declare (not safe)) - (gx#stx-e _hd234816235045_)))) - (let ((_tl234818235055_ + (gx#stx-e _hd235997236226_)))) + (let ((_tl235999236236_ (let () (declare (not safe)) - (##cdr _e234820235050_))) - (_hd234819235053_ + (##cdr _e236001236231_))) + (_hd236000236234_ (let () (declare (not safe)) - (##car _e234820235050_)))) + (##car _e236001236231_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234819235053_)) + (gx#identifier? _hd236000236234_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234819235053_)) + (gx#stx-eq? '%#ref _hd236000236234_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234818235055_)) - (let ((_e234823235058_ + (gx#stx-pair? _tl235999236236_)) + (let ((_e236004236239_ (let () (declare (not safe)) (gx#stx-e - _tl234818235055_)))) - (let ((_tl234821235063_ + _tl235999236236_)))) + (let ((_tl236002236244_ (let () (declare (not safe)) - (##cdr _e234823235058_))) - (_hd234822235061_ + (##cdr _e236004236239_))) + (_hd236003236242_ (let () (declare (not safe)) - (##car _e234823235058_)))) + (##car _e236004236239_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234821235063_)) + _tl236002236244_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl234815235047_)) - (___match242503242504_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_ - _e234763234933_ - _hd234762234936_ - _tl234761234938_ - _e234766234941_ - _hd234765234944_ - _tl234764234946_ - _e234769234949_ - _hd234768234952_ - _tl234767234954_ - _e234772234957_ - _hd234771234960_ - _tl234770234962_ - _e234775234965_ - _hd234774234968_ - _tl234773234970_ - _e234778234973_ - _hd234777234976_ - _tl234776234978_ - _e234781234981_ - _hd234780234984_ - _tl234779234986_ - _e234784234989_ - _hd234783234992_ - _tl234782234994_ - _e234787234997_ - _hd234786235000_ - _tl234785235002_ - _e234790235005_ - _hd234789235008_ - _tl234788235010_ - _e234793235013_ - _hd234792235016_ - _tl234791235018_ - _e234796235021_ - _hd234795235024_ - _tl234794235026_ - _e234799235029_ - _hd234798235032_ - _tl234797235034_ - ___splice242198242199_ - _target234800235037_ - _tl234802235039_ - _e234817235042_ - _hd234816235045_ - _tl234815235047_ - _e234820235050_ - _hd234819235053_ - _tl234818235055_ - _e234823235058_ - _hd234822235061_ - _tl234821235063_) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242509242510_ - _e234760234925_ - _hd234759234928_ - _tl234758234930_)))) - (___match242363242364_ - (lambda (_e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_ - _e234699235332_ - _hd234698235335_ - _tl234697235337_ - _e234702235340_ - _hd234701235343_ - _tl234700235345_ - _e234705235348_ - _hd234704235351_ - _tl234703235353_ - _e234708235356_ - _hd234707235359_ - _tl234706235361_ - _e234711235364_ - _hd234710235367_ - _tl234709235369_ - _e234714235372_ - _hd234713235375_ - _tl234712235377_ - _e234717235380_ - _hd234716235383_ - _tl234715235385_ - _e234720235388_ - _hd234719235391_ - _tl234718235393_ - _e234723235396_ - _hd234722235399_ - _tl234721235401_ - _e234726235404_ - _hd234725235407_ - _tl234724235409_ - _e234729235412_ - _hd234728235415_ - _tl234727235417_ - _e234732235420_ - _hd234731235423_ - _tl234730235425_ - _e234735235428_ - _hd234734235431_ - _tl234733235433_ - _e234738235436_ - _hd234737235439_ - _tl234736235441_ - _e234741235444_ - _hd234740235447_ - _tl234739235449_ - _e234744235452_ - _hd234743235455_ - _tl234742235457_ - _e234747235460_ - _hd234746235463_ - _tl234745235465_) - (let ((_L235468_ _hd234746235463_) - (_L235469_ _hd234737235439_) - (_L235470_ _hd234728235415_) - (_L235471_ _hd234719235391_) - (_L235472_ _hd234710235367_) - (_L235473_ _hd234695235327_)) + _tl235996236228_)) + (___match243701243702_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_ + _e235944236114_ + _hd235943236117_ + _tl235942236119_ + _e235947236122_ + _hd235946236125_ + _tl235945236127_ + _e235950236130_ + _hd235949236133_ + _tl235948236135_ + _e235953236138_ + _hd235952236141_ + _tl235951236143_ + _e235956236146_ + _hd235955236149_ + _tl235954236151_ + _e235959236154_ + _hd235958236157_ + _tl235957236159_ + _e235962236162_ + _hd235961236165_ + _tl235960236167_ + _e235965236170_ + _hd235964236173_ + _tl235963236175_ + _e235968236178_ + _hd235967236181_ + _tl235966236183_ + _e235971236186_ + _hd235970236189_ + _tl235969236191_ + _e235974236194_ + _hd235973236197_ + _tl235972236199_ + _e235977236202_ + _hd235976236205_ + _tl235975236207_ + _e235980236210_ + _hd235979236213_ + _tl235978236215_ + ___splice243396243397_ + _target235981236218_ + _tl235983236220_ + _e235998236223_ + _hd235997236226_ + _tl235996236228_ + _e236001236231_ + _hd236000236234_ + _tl235999236236_ + _e236004236239_ + _hd236003236242_ + _tl236002236244_) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243707243708_ + _e235941236106_ + _hd235940236109_ + _tl235939236111_)))) + (___match243561243562_ + (lambda (_e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_ + _e235880236513_ + _hd235879236516_ + _tl235878236518_ + _e235883236521_ + _hd235882236524_ + _tl235881236526_ + _e235886236529_ + _hd235885236532_ + _tl235884236534_ + _e235889236537_ + _hd235888236540_ + _tl235887236542_ + _e235892236545_ + _hd235891236548_ + _tl235890236550_ + _e235895236553_ + _hd235894236556_ + _tl235893236558_ + _e235898236561_ + _hd235897236564_ + _tl235896236566_ + _e235901236569_ + _hd235900236572_ + _tl235899236574_ + _e235904236577_ + _hd235903236580_ + _tl235902236582_ + _e235907236585_ + _hd235906236588_ + _tl235905236590_ + _e235910236593_ + _hd235909236596_ + _tl235908236598_ + _e235913236601_ + _hd235912236604_ + _tl235911236606_ + _e235916236609_ + _hd235915236612_ + _tl235914236614_ + _e235919236617_ + _hd235918236620_ + _tl235917236622_ + _e235922236625_ + _hd235921236628_ + _tl235920236630_ + _e235925236633_ + _hd235924236636_ + _tl235923236638_ + _e235928236641_ + _hd235927236644_ + _tl235926236646_) + (let ((_L236649_ _hd235927236644_) + (_L236650_ _hd235918236620_) + (_L236651_ _hd235909236596_) + (_L236652_ _hd235900236572_) + (_L236653_ _hd235891236548_) + (_L236654_ _hd235876236508_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L235473_)) + (gx#identifier? _L236654_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L235472_ 'apply)) + (gxc#runtime-identifier=? _L236653_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _L235471_ + _L236652_ 'keyword-dispatch)) (let () (declare (not safe)) - (gx#free-identifier=? _L235473_ _L235468_))) - (___kont242194242195_ - _L235468_ - _L235469_ - _L235470_ - _L235471_ - _L235472_ - _L235473_) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_))))) - (___match242217242218_ - (lambda (_e234693235316_ _hd234692235319_ _tl234691235321_) + (gx#free-identifier=? _L236654_ _L236649_))) + (___kont243392243393_ + _L236649_ + _L236650_ + _L236651_ + _L236652_ + _L236653_ + _L236654_) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_))))) + (___match243415243416_ + (lambda (_e235874236497_ _hd235873236500_ _tl235872236502_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234691235321_)) - (let ((_e234696235324_ + (gx#stx-pair? _tl235872236502_)) + (let ((_e235877236505_ (let () (declare (not safe)) - (gx#stx-e _tl234691235321_)))) - (let ((_tl234694235329_ + (gx#stx-e _tl235872236502_)))) + (let ((_tl235875236510_ (let () (declare (not safe)) - (##cdr _e234696235324_))) - (_hd234695235327_ + (##cdr _e235877236505_))) + (_hd235876236508_ (let () (declare (not safe)) - (##car _e234696235324_)))) + (##car _e235877236505_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234694235329_)) - (let ((_e234699235332_ + (gx#stx-pair? _tl235875236510_)) + (let ((_e235880236513_ (let () (declare (not safe)) - (gx#stx-e _tl234694235329_)))) - (let ((_tl234697235337_ + (gx#stx-e _tl235875236510_)))) + (let ((_tl235878236518_ (let () (declare (not safe)) - (##cdr _e234699235332_))) - (_hd234698235335_ + (##cdr _e235880236513_))) + (_hd235879236516_ (let () (declare (not safe)) - (##car _e234699235332_)))) + (##car _e235880236513_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234698235335_)) - (let ((_e234702235340_ + (gx#stx-pair? _hd235879236516_)) + (let ((_e235883236521_ (let () (declare (not safe)) (gx#stx-e - _hd234698235335_)))) - (let ((_tl234700235345_ + _hd235879236516_)))) + (let ((_tl235881236526_ (let () (declare (not safe)) - (##cdr _e234702235340_))) - (_hd234701235343_ + (##cdr _e235883236521_))) + (_hd235882236524_ (let () (declare (not safe)) - (##car _e234702235340_)))) + (##car _e235883236521_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234701235343_)) + _hd235882236524_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd234701235343_)) + _hd235882236524_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234700235345_)) - (let ((_e234705235348_ + _tl235881236526_)) + (let ((_e235886236529_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl234700235345_)))) - (let ((_tl234703235353_ + (gx#stx-e _tl235881236526_)))) + (let ((_tl235884236534_ (let () (declare (not safe)) - (##cdr _e234705235348_))) - (_hd234704235351_ + (##cdr _e235886236529_))) + (_hd235885236532_ (let () (declare (not safe)) - (##car _e234705235348_)))) + (##car _e235886236529_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234704235351_)) - (let ((_e234708235356_ + (gx#stx-pair? _hd235885236532_)) + (let ((_e235889236537_ (let () (declare (not safe)) - (gx#stx-e _hd234704235351_)))) - (let ((_tl234706235361_ + (gx#stx-e _hd235885236532_)))) + (let ((_tl235887236542_ (let () (declare (not safe)) - (##cdr _e234708235356_))) - (_hd234707235359_ + (##cdr _e235889236537_))) + (_hd235888236540_ (let () (declare (not safe)) - (##car _e234708235356_)))) + (##car _e235889236537_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234707235359_)) + (gx#identifier? _hd235888236540_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234707235359_)) + (gx#stx-eq? '%#ref _hd235888236540_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234706235361_)) - (let ((_e234711235364_ + (gx#stx-pair? _tl235887236542_)) + (let ((_e235892236545_ (let () (declare (not safe)) (gx#stx-e - _tl234706235361_)))) - (let ((_tl234709235369_ + _tl235887236542_)))) + (let ((_tl235890236550_ (let () (declare (not safe)) - (##cdr _e234711235364_))) - (_hd234710235367_ + (##cdr _e235892236545_))) + (_hd235891236548_ (let () (declare (not safe)) - (##car _e234711235364_)))) + (##car _e235892236545_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234709235369_)) + _tl235890236550_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234703235353_)) - (let ((_e234714235372_ + _tl235884236534_)) + (let ((_e235895236553_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl234703235353_)))) - (let ((_tl234712235377_ - (let () (declare (not safe)) (##cdr _e234714235372_))) - (_hd234713235375_ - (let () (declare (not safe)) (##car _e234714235372_)))) + (gx#stx-e _tl235884236534_)))) + (let ((_tl235893236558_ + (let () (declare (not safe)) (##cdr _e235895236553_))) + (_hd235894236556_ + (let () (declare (not safe)) (##car _e235895236553_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234713235375_)) - (let ((_e234717235380_ + (gx#stx-pair? _hd235894236556_)) + (let ((_e235898236561_ (let () (declare (not safe)) - (gx#stx-e _hd234713235375_)))) - (let ((_tl234715235385_ + (gx#stx-e _hd235894236556_)))) + (let ((_tl235896236566_ (let () (declare (not safe)) - (##cdr _e234717235380_))) - (_hd234716235383_ + (##cdr _e235898236561_))) + (_hd235897236564_ (let () (declare (not safe)) - (##car _e234717235380_)))) + (##car _e235898236561_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234716235383_)) + (gx#identifier? _hd235897236564_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234716235383_)) + (gx#stx-eq? '%#ref _hd235897236564_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234715235385_)) - (let ((_e234720235388_ + (gx#stx-pair? _tl235896236566_)) + (let ((_e235901236569_ (let () (declare (not safe)) - (gx#stx-e _tl234715235385_)))) - (let ((_tl234718235393_ + (gx#stx-e _tl235896236566_)))) + (let ((_tl235899236574_ (let () (declare (not safe)) - (##cdr _e234720235388_))) - (_hd234719235391_ + (##cdr _e235901236569_))) + (_hd235900236572_ (let () (declare (not safe)) - (##car _e234720235388_)))) + (##car _e235901236569_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234718235393_)) + _tl235899236574_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234712235377_)) - (let ((_e234723235396_ + _tl235893236558_)) + (let ((_e235904236577_ (let () (declare (not safe)) (gx#stx-e - _tl234712235377_)))) - (let ((_tl234721235401_ + _tl235893236558_)))) + (let ((_tl235902236582_ (let () (declare (not safe)) - (##cdr _e234723235396_))) - (_hd234722235399_ + (##cdr _e235904236577_))) + (_hd235903236580_ (let () (declare (not safe)) - (##car _e234723235396_)))) + (##car _e235904236577_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234722235399_)) - (let ((_e234726235404_ + _hd235903236580_)) + (let ((_e235907236585_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd234722235399_)))) - (let ((_tl234724235409_ + (gx#stx-e _hd235903236580_)))) + (let ((_tl235905236590_ (let () (declare (not safe)) - (##cdr _e234726235404_))) - (_hd234725235407_ + (##cdr _e235907236585_))) + (_hd235906236588_ (let () (declare (not safe)) - (##car _e234726235404_)))) + (##car _e235907236585_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234725235407_)) + (gx#identifier? _hd235906236588_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd234725235407_)) + (gx#stx-eq? '%#quote _hd235906236588_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234724235409_)) - (let ((_e234729235412_ + (gx#stx-pair? _tl235905236590_)) + (let ((_e235910236593_ (let () (declare (not safe)) - (gx#stx-e _tl234724235409_)))) - (let ((_tl234727235417_ + (gx#stx-e _tl235905236590_)))) + (let ((_tl235908236598_ (let () (declare (not safe)) - (##cdr _e234729235412_))) - (_hd234728235415_ + (##cdr _e235910236593_))) + (_hd235909236596_ (let () (declare (not safe)) - (##car _e234729235412_)))) + (##car _e235910236593_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234727235417_)) + (gx#stx-null? _tl235908236598_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234721235401_)) - (let ((_e234732235420_ + _tl235902236582_)) + (let ((_e235913236601_ (let () (declare (not safe)) (gx#stx-e - _tl234721235401_)))) - (let ((_tl234730235425_ + _tl235902236582_)))) + (let ((_tl235911236606_ (let () (declare (not safe)) - (##cdr _e234732235420_))) - (_hd234731235423_ + (##cdr _e235913236601_))) + (_hd235912236604_ (let () (declare (not safe)) - (##car _e234732235420_)))) + (##car _e235913236601_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234731235423_)) - (let ((_e234735235428_ + _hd235912236604_)) + (let ((_e235916236609_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd234731235423_)))) - (let ((_tl234733235433_ - (let () (declare (not safe)) (##cdr _e234735235428_))) - (_hd234734235431_ - (let () (declare (not safe)) (##car _e234735235428_)))) + (gx#stx-e _hd235912236604_)))) + (let ((_tl235914236614_ + (let () (declare (not safe)) (##cdr _e235916236609_))) + (_hd235915236612_ + (let () (declare (not safe)) (##car _e235916236609_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234734235431_)) + (gx#identifier? _hd235915236612_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd234734235431_)) + (gx#stx-eq? '%#ref _hd235915236612_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234733235433_)) - (let ((_e234738235436_ + (gx#stx-pair? _tl235914236614_)) + (let ((_e235919236617_ (let () (declare (not safe)) - (gx#stx-e _tl234733235433_)))) - (let ((_tl234736235441_ + (gx#stx-e _tl235914236614_)))) + (let ((_tl235917236622_ (let () (declare (not safe)) - (##cdr _e234738235436_))) - (_hd234737235439_ + (##cdr _e235919236617_))) + (_hd235918236620_ (let () (declare (not safe)) - (##car _e234738235436_)))) + (##car _e235919236617_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234736235441_)) + (gx#stx-null? _tl235917236622_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234730235425_)) - (let ((_e234741235444_ + (gx#stx-pair? _tl235911236606_)) + (let ((_e235922236625_ (let () (declare (not safe)) (gx#stx-e - _tl234730235425_)))) - (let ((_tl234739235449_ + _tl235911236606_)))) + (let ((_tl235920236630_ (let () (declare (not safe)) - (##cdr _e234741235444_))) - (_hd234740235447_ + (##cdr _e235922236625_))) + (_hd235921236628_ (let () (declare (not safe)) - (##car _e234741235444_)))) + (##car _e235922236625_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd234740235447_)) - (let ((_e234744235452_ + _hd235921236628_)) + (let ((_e235925236633_ (let () (declare (not safe)) (gx#stx-e - _hd234740235447_)))) - (let ((_tl234742235457_ + _hd235921236628_)))) + (let ((_tl235923236638_ (let () (declare (not safe)) - (##cdr _e234744235452_))) - (_hd234743235455_ + (##cdr _e235925236633_))) + (_hd235924236636_ (let () (declare (not safe)) - (##car _e234744235452_)))) + (##car _e235925236633_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd234743235455_)) + _hd235924236636_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _hd234743235455_)) + (gx#stx-eq? '%#ref _hd235924236636_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234742235457_)) - (let ((_e234747235460_ + (gx#stx-pair? _tl235923236638_)) + (let ((_e235928236641_ (let () (declare (not safe)) - (gx#stx-e _tl234742235457_)))) - (let ((_tl234745235465_ + (gx#stx-e _tl235923236638_)))) + (let ((_tl235926236646_ (let () (declare (not safe)) - (##cdr _e234747235460_))) - (_hd234746235463_ + (##cdr _e235928236641_))) + (_hd235927236644_ (let () (declare (not safe)) - (##car _e234747235460_)))) + (##car _e235928236641_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234745235465_)) + (gx#stx-null? _tl235926236646_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl234739235449_)) + (gx#stx-null? _tl235920236630_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl234697235337_)) - (___match242363242364_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_ - _e234699235332_ - _hd234698235335_ - _tl234697235337_ - _e234702235340_ - _hd234701235343_ - _tl234700235345_ - _e234705235348_ - _hd234704235351_ - _tl234703235353_ - _e234708235356_ - _hd234707235359_ - _tl234706235361_ - _e234711235364_ - _hd234710235367_ - _tl234709235369_ - _e234714235372_ - _hd234713235375_ - _tl234712235377_ - _e234717235380_ - _hd234716235383_ - _tl234715235385_ - _e234720235388_ - _hd234719235391_ - _tl234718235393_ - _e234723235396_ - _hd234722235399_ - _tl234721235401_ - _e234726235404_ - _hd234725235407_ - _tl234724235409_ - _e234729235412_ - _hd234728235415_ - _tl234727235417_ - _e234732235420_ - _hd234731235423_ - _tl234730235425_ - _e234735235428_ - _hd234734235431_ - _tl234733235433_ - _e234738235436_ - _hd234737235439_ - _tl234736235441_ - _e234741235444_ - _hd234740235447_ - _tl234739235449_ - _e234744235452_ - _hd234743235455_ - _tl234742235457_ - _e234747235460_ - _hd234746235463_ - _tl234745235465_) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242375242376_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_ - _e234696235324_ - _hd234695235327_ - _tl234694235329_)))) - (___match242509242510_ - _e234693235316_ - _hd234692235319_ - _tl234691235321_))))) + (gx#stx-null? _tl235878236518_)) + (___match243561243562_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_ + _e235880236513_ + _hd235879236516_ + _tl235878236518_ + _e235883236521_ + _hd235882236524_ + _tl235881236526_ + _e235886236529_ + _hd235885236532_ + _tl235884236534_ + _e235889236537_ + _hd235888236540_ + _tl235887236542_ + _e235892236545_ + _hd235891236548_ + _tl235890236550_ + _e235895236553_ + _hd235894236556_ + _tl235893236558_ + _e235898236561_ + _hd235897236564_ + _tl235896236566_ + _e235901236569_ + _hd235900236572_ + _tl235899236574_ + _e235904236577_ + _hd235903236580_ + _tl235902236582_ + _e235907236585_ + _hd235906236588_ + _tl235905236590_ + _e235910236593_ + _hd235909236596_ + _tl235908236598_ + _e235913236601_ + _hd235912236604_ + _tl235911236606_ + _e235916236609_ + _hd235915236612_ + _tl235914236614_ + _e235919236617_ + _hd235918236620_ + _tl235917236622_ + _e235922236625_ + _hd235921236628_ + _tl235920236630_ + _e235925236633_ + _hd235924236636_ + _tl235923236638_ + _e235928236641_ + _hd235927236644_ + _tl235926236646_) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243573243574_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_ + _e235877236505_ + _hd235876236508_ + _tl235875236510_)))) + (___match243707243708_ + _e235874236497_ + _hd235873236500_ + _tl235872236502_))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242190242191_)) - (let ((_e234684235533_ + (gx#stx-pair? ___stx243388243389_)) + (let ((_e235865236714_ (let () (declare (not safe)) - (gx#stx-e ___stx242190242191_)))) - (let ((_tl234682235538_ + (gx#stx-e ___stx243388243389_)))) + (let ((_tl235863236719_ (let () (declare (not safe)) - (##cdr _e234684235533_))) - (_hd234683235536_ + (##cdr _e235865236714_))) + (_hd235864236717_ (let () (declare (not safe)) - (##car _e234684235533_)))) + (##car _e235865236714_)))) (if (gxc#current-compile-type-closure) - (let ((_L235541_ _tl234682235538_)) - (___kont242192242193_ _L235541_)) - (___match242217242218_ - _e234684235533_ - _hd234683235536_ - _tl234682235538_)))) - (let () (declare (not safe)) (_g234679234875_)))))))) + (let ((_L236722_ _tl235863236719_)) + (___kont243390243391_ _L236722_)) + (___match243415243416_ + _e235865236714_ + _hd235864236717_ + _tl235863236719_)))) + (let () (declare (not safe)) (_g235860236056_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_stx234628_) - (letrec ((_clause-e234630_ - (lambda (_form234671_) - (let ((__obj243863 + (lambda (_stx235809_) + (letrec ((_clause-e235811_ + (lambda (_form235852_) + (let ((__obj245061 (let () (declare (not safe)) (##structure @@ -5650,4954 +5698,4954 @@ '#f '#f)))) (gxc#!lambda:::init! - __obj243863 + __obj245061 'case-lambda-clause (let () (declare (not safe)) - (gxc#lambda-form-arity _form234671_)) - (if (let ((__tmp243930 + (gxc#lambda-form-arity _form235852_)) + (if (let ((__tmp245128 (gxc#current-compile-type-closure))) (declare (not safe)) - (not __tmp243930)) + (not __tmp245128)) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _form234671_)) + (gxc#dispatch-lambda-form? _form235852_)) (let () (declare (not safe)) (gxc#dispatch-lambda-form-delegate - _form234671_)) + _form235852_)) '#f) '#f)) - __obj243863)))) - (let* ((_g234632234642_ - (lambda (_g234633234639_) + __obj245061)))) + (let* ((_g235813235823_ + (lambda (_g235814235820_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g234633234639_)))) - (_g234631234668_ - (lambda (_g234633234645_) + _g235814235820_)))) + (_g235812235849_ + (lambda (_g235814235826_) (if (let () (declare (not safe)) - (gx#stx-pair? _g234633234645_)) - (let ((_e234637234647_ + (gx#stx-pair? _g235814235826_)) + (let ((_e235818235828_ (let () (declare (not safe)) - (gx#stx-e _g234633234645_)))) - (let ((_hd234636234650_ + (gx#stx-e _g235814235826_)))) + (let ((_hd235817235831_ (let () (declare (not safe)) - (##car _e234637234647_))) - (_tl234635234652_ + (##car _e235818235828_))) + (_tl235816235833_ (let () (declare (not safe)) - (##cdr _e234637234647_)))) - ((lambda (_L234655_) - (let ((_clauses234666_ - (map _clause-e234630_ _L234655_))) + (##cdr _e235818235828_)))) + ((lambda (_L235836_) + (let ((_clauses235847_ + (map _clause-e235811_ _L235836_))) (declare (not safe)) (##structure gxc#!case-lambda::t 'case-lambda - _clauses234666_))) - _tl234635234652_))) + _clauses235847_))) + _tl235816235833_))) (let () (declare (not safe)) - (_g234632234642_ _g234633234645_)))))) + (_g235813235823_ _g235814235826_)))))) (declare (not safe)) - (_g234631234668_ _stx234628_))))) + (_g235812235849_ _stx235809_))))) (define gxc#basic-expression-type-let-values% - (lambda (_stx234560_) - (let* ((_g234562234579_ - (lambda (_g234563234576_) + (lambda (_stx235741_) + (let* ((_g235743235760_ + (lambda (_g235744235757_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g234563234576_)))) - (_g234561234625_ - (lambda (_g234563234582_) + _g235744235757_)))) + (_g235742235806_ + (lambda (_g235744235763_) (if (let () (declare (not safe)) - (gx#stx-pair? _g234563234582_)) - (let ((_e234568234584_ + (gx#stx-pair? _g235744235763_)) + (let ((_e235749235765_ (let () (declare (not safe)) - (gx#stx-e _g234563234582_)))) - (let ((_hd234567234587_ + (gx#stx-e _g235744235763_)))) + (let ((_hd235748235768_ (let () (declare (not safe)) - (##car _e234568234584_))) - (_tl234566234589_ + (##car _e235749235765_))) + (_tl235747235770_ (let () (declare (not safe)) - (##cdr _e234568234584_)))) + (##cdr _e235749235765_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234566234589_)) - (let ((_e234571234592_ + (gx#stx-pair? _tl235747235770_)) + (let ((_e235752235773_ (let () (declare (not safe)) - (gx#stx-e _tl234566234589_)))) - (let ((_hd234570234595_ + (gx#stx-e _tl235747235770_)))) + (let ((_hd235751235776_ (let () (declare (not safe)) - (##car _e234571234592_))) - (_tl234569234597_ + (##car _e235752235773_))) + (_tl235750235778_ (let () (declare (not safe)) - (##cdr _e234571234592_)))) + (##cdr _e235752235773_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234569234597_)) - (let ((_e234574234600_ + (gx#stx-pair? _tl235750235778_)) + (let ((_e235755235781_ (let () (declare (not safe)) - (gx#stx-e _tl234569234597_)))) - (let ((_hd234573234603_ + (gx#stx-e _tl235750235778_)))) + (let ((_hd235754235784_ (let () (declare (not safe)) - (##car _e234574234600_))) - (_tl234572234605_ + (##car _e235755235781_))) + (_tl235753235786_ (let () (declare (not safe)) - (##cdr _e234574234600_)))) + (##cdr _e235755235781_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234572234605_)) - ((lambda (_L234608_ _L234609_) - (let ((__tmp243931 + _tl235753235786_)) + ((lambda (_L235789_ _L235790_) + (let ((__tmp245129 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _L234608_))))) + _L235789_))))) (declare (not safe)) (call-with-parameters - __tmp243931 + __tmp245129 gxc#current-compile-type-closure '#t))) - _hd234573234603_ - _hd234570234595_) + _hd235754235784_ + _hd235751235776_) (let () (declare (not safe)) - (_g234562234579_ - _g234563234582_))))) + (_g235743235760_ + _g235744235763_))))) (let () (declare (not safe)) - (_g234562234579_ _g234563234582_))))) + (_g235743235760_ _g235744235763_))))) (let () (declare (not safe)) - (_g234562234579_ _g234563234582_))))) + (_g235743235760_ _g235744235763_))))) (let () (declare (not safe)) - (_g234562234579_ _g234563234582_)))))) + (_g235743235760_ _g235744235763_)))))) (declare (not safe)) - (_g234561234625_ _stx234560_)))) + (_g235742235806_ _stx235741_)))) (define gxc#basic-expression-type-builtin (let () (declare (not safe)) (make-table 'test: eq?))) (define gxc#basic-expression-type-call% - (lambda (_stx234465_) - (let* ((___stx242518242519_ _stx234465_) - (_g234468234488_ + (lambda (_stx235646_) + (let* ((___stx243716243717_ _stx235646_) + (_g235649235669_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242518242519_))))) - (let ((___kont242520242521_ - (lambda (_L234532_ _L234533_) - (let ((_type-e234550234552_ - (let ((__tmp243932 + ___stx243716243717_))))) + (let ((___kont243718243719_ + (lambda (_L235713_ _L235714_) + (let ((_type-e235731235733_ + (let ((__tmp245130 (let () (declare (not safe)) - (gxc#identifier-symbol _L234533_)))) + (gxc#identifier-symbol _L235714_)))) (declare (not safe)) (table-ref gxc#basic-expression-type-builtin - __tmp243932 + __tmp245130 '#f)))) - (if _type-e234550234552_ - (let ((_type-e234555_ _type-e234550234552_)) - (_type-e234555_ _stx234465_ _L234532_)) + (if _type-e235731235733_ + (let ((_type-e235736_ _type-e235731235733_)) + (_type-e235736_ _stx235646_ _L235713_)) '#f)))) - (___kont242522242523_ (lambda () '#f))) + (___kont243720243721_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242518242519_)) - (let ((_e234474234500_ + (gx#stx-pair? ___stx243716243717_)) + (let ((_e235655235681_ (let () (declare (not safe)) - (gx#stx-e ___stx242518242519_)))) - (let ((_tl234472234505_ - (let () (declare (not safe)) (##cdr _e234474234500_))) - (_hd234473234503_ + (gx#stx-e ___stx243716243717_)))) + (let ((_tl235653235686_ + (let () (declare (not safe)) (##cdr _e235655235681_))) + (_hd235654235684_ (let () (declare (not safe)) - (##car _e234474234500_)))) + (##car _e235655235681_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234472234505_)) - (let ((_e234477234508_ + (gx#stx-pair? _tl235653235686_)) + (let ((_e235658235689_ (let () (declare (not safe)) - (gx#stx-e _tl234472234505_)))) - (let ((_tl234475234513_ + (gx#stx-e _tl235653235686_)))) + (let ((_tl235656235694_ (let () (declare (not safe)) - (##cdr _e234477234508_))) - (_hd234476234511_ + (##cdr _e235658235689_))) + (_hd235657235692_ (let () (declare (not safe)) - (##car _e234477234508_)))) + (##car _e235658235689_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd234476234511_)) - (let ((_e234480234516_ + (gx#stx-pair? _hd235657235692_)) + (let ((_e235661235697_ (let () (declare (not safe)) - (gx#stx-e _hd234476234511_)))) - (let ((_tl234478234521_ + (gx#stx-e _hd235657235692_)))) + (let ((_tl235659235702_ (let () (declare (not safe)) - (##cdr _e234480234516_))) - (_hd234479234519_ + (##cdr _e235661235697_))) + (_hd235660235700_ (let () (declare (not safe)) - (##car _e234480234516_)))) + (##car _e235661235697_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd234479234519_)) + (gx#identifier? _hd235660235700_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd234479234519_)) + _hd235660235700_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl234478234521_)) - (let ((_e234483234524_ + _tl235659235702_)) + (let ((_e235664235705_ (let () (declare (not safe)) (gx#stx-e - _tl234478234521_)))) - (let ((_tl234481234529_ + _tl235659235702_)))) + (let ((_tl235662235710_ (let () (declare (not safe)) - (##cdr _e234483234524_))) - (_hd234482234527_ + (##cdr _e235664235705_))) + (_hd235663235708_ (let () (declare (not safe)) - (##car _e234483234524_)))) + (##car _e235664235705_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl234481234529_)) - (___kont242520242521_ - _tl234475234513_ - _hd234482234527_) - (___kont242522242523_)))) - (___kont242522242523_)) - (___kont242522242523_)) - (___kont242522242523_)))) - (___kont242522242523_)))) - (___kont242522242523_)))) - (___kont242522242523_)))))) + _tl235662235710_)) + (___kont243718243719_ + _tl235656235694_ + _hd235663235708_) + (___kont243720243721_)))) + (___kont243720243721_)) + (___kont243720243721_)) + (___kont243720243721_)))) + (___kont243720243721_)))) + (___kont243720243721_)))) + (___kont243720243721_)))))) (define gxc#basic-expression-type-ref% - (lambda (_stx234414_) - (let* ((_g234416234429_ - (lambda (_g234417234426_) + (lambda (_stx235595_) + (let* ((_g235597235610_ + (lambda (_g235598235607_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g234417234426_)))) - (_g234415234462_ - (lambda (_g234417234432_) + _g235598235607_)))) + (_g235596235643_ + (lambda (_g235598235613_) (if (let () (declare (not safe)) - (gx#stx-pair? _g234417234432_)) - (let ((_e234421234434_ + (gx#stx-pair? _g235598235613_)) + (let ((_e235602235615_ (let () (declare (not safe)) - (gx#stx-e _g234417234432_)))) - (let ((_hd234420234437_ + (gx#stx-e _g235598235613_)))) + (let ((_hd235601235618_ (let () (declare (not safe)) - (##car _e234421234434_))) - (_tl234419234439_ + (##car _e235602235615_))) + (_tl235600235620_ (let () (declare (not safe)) - (##cdr _e234421234434_)))) + (##cdr _e235602235615_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl234419234439_)) - (let ((_e234424234442_ + (gx#stx-pair? _tl235600235620_)) + (let ((_e235605235623_ (let () (declare (not safe)) - (gx#stx-e _tl234419234439_)))) - (let ((_hd234423234445_ + (gx#stx-e _tl235600235620_)))) + (let ((_hd235604235626_ (let () (declare (not safe)) - (##car _e234424234442_))) - (_tl234422234447_ + (##car _e235605235623_))) + (_tl235603235628_ (let () (declare (not safe)) - (##cdr _e234424234442_)))) + (##cdr _e235605235623_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl234422234447_)) - ((lambda (_L234450_) - (let ((__tmp243933 + (gx#stx-null? _tl235603235628_)) + ((lambda (_L235631_) + (let ((__tmp245131 (let () (declare (not safe)) (gxc#identifier-symbol - _L234450_)))) + _L235631_)))) (declare (not safe)) (gxc#optimizer-lookup-type - __tmp243933))) - _hd234423234445_) + __tmp245131))) + _hd235604235626_) (let () (declare (not safe)) - (_g234416234429_ _g234417234432_))))) + (_g235597235610_ _g235598235613_))))) (let () (declare (not safe)) - (_g234416234429_ _g234417234432_))))) + (_g235597235610_ _g235598235613_))))) (let () (declare (not safe)) - (_g234416234429_ _g234417234432_)))))) + (_g235597235610_ _g235598235613_)))))) (declare (not safe)) - (_g234415234462_ _stx234414_)))) + (_g235596235643_ _stx235595_)))) (define gxc#dispatch-lambda-form? - (lambda (_form233648_) - (let* ((___stx242556242557_ _form233648_) - (_g233653233810_ + (lambda (_form234829_) + (let* ((___stx243754243755_ _form234829_) + (_g234834234991_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242556242557_))))) - (let ((___kont242558242559_ - (lambda (_L234334_ _L234335_ _L234336_) '#t)) - (___kont242564242565_ - (lambda (_L234122_ - _L234123_ - _L234124_ - _L234125_ - _L234126_ - _L234127_) + ___stx243754243755_))))) + (let ((___kont243756243757_ + (lambda (_L235515_ _L235516_ _L235517_) '#t)) + (___kont243762243763_ + (lambda (_L235303_ + _L235304_ + _L235305_ + _L235306_ + _L235307_ + _L235308_) '#t)) - (___kont242570242571_ - (lambda (_L233918_ _L233919_ _L233920_ _L233921_) '#t)) - (___kont242572242573_ (lambda () '#f))) - (let* ((___match242697242698_ - (lambda (_e233772233822_ - _hd233771233825_ - _tl233770233827_ - _e233775233830_ - _hd233774233833_ - _tl233773233835_ - _e233778233838_ - _hd233777233841_ - _tl233776233843_ - _e233781233846_ - _hd233780233849_ - _tl233779233851_ - _e233784233854_ - _hd233783233857_ - _tl233782233859_ - _e233787233862_ - _hd233786233865_ - _tl233785233867_ - _e233790233870_ - _hd233789233873_ - _tl233788233875_ - _e233793233878_ - _hd233792233881_ - _tl233791233883_ - _e233796233886_ - _hd233795233889_ - _tl233794233891_ - _e233799233894_ - _hd233798233897_ - _tl233797233899_ - _e233802233902_ - _hd233801233905_ - _tl233800233907_ - _e233805233910_ - _hd233804233913_ - _tl233803233915_) - (let ((_L233918_ _hd233804233913_) - (_L233919_ _hd233795233889_) - (_L233920_ _hd233786233865_) - (_L233921_ _hd233771233825_)) + (___kont243768243769_ + (lambda (_L235099_ _L235100_ _L235101_ _L235102_) '#t)) + (___kont243770243771_ (lambda () '#f))) + (let* ((___match243895243896_ + (lambda (_e234953235003_ + _hd234952235006_ + _tl234951235008_ + _e234956235011_ + _hd234955235014_ + _tl234954235016_ + _e234959235019_ + _hd234958235022_ + _tl234957235024_ + _e234962235027_ + _hd234961235030_ + _tl234960235032_ + _e234965235035_ + _hd234964235038_ + _tl234963235040_ + _e234968235043_ + _hd234967235046_ + _tl234966235048_ + _e234971235051_ + _hd234970235054_ + _tl234969235056_ + _e234974235059_ + _hd234973235062_ + _tl234972235064_ + _e234977235067_ + _hd234976235070_ + _tl234975235072_ + _e234980235075_ + _hd234979235078_ + _tl234978235080_ + _e234983235083_ + _hd234982235086_ + _tl234981235088_ + _e234986235091_ + _hd234985235094_ + _tl234984235096_) + (let ((_L235099_ _hd234985235094_) + (_L235100_ _hd234976235070_) + (_L235101_ _hd234967235046_) + (_L235102_ _hd234952235006_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L233921_)) + (gx#identifier? _L235102_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L233920_ 'apply)) + (gxc#runtime-identifier=? _L235101_ 'apply)) (let () (declare (not safe)) - (gx#free-identifier=? _L233921_ _L233918_)) - (let ((__tmp243934 + (gx#free-identifier=? _L235102_ _L235099_)) + (let ((__tmp245132 (let () (declare (not safe)) (gx#free-identifier=? - _L233919_ - _L233921_)))) + _L235100_ + _L235102_)))) (declare (not safe)) - (not __tmp243934))) - (___kont242570242571_ - _L233918_ - _L233919_ - _L233920_ - _L233921_) - (___kont242572242573_))))) - (___match242669242670_ - (lambda (_e233772233822_ - _hd233771233825_ - _tl233770233827_ - _e233775233830_ - _hd233774233833_ - _tl233773233835_ - _e233778233838_ - _hd233777233841_ - _tl233776233843_ - _e233781233846_ - _hd233780233849_ - _tl233779233851_ - _e233784233854_ - _hd233783233857_ - _tl233782233859_ - _e233787233862_ - _hd233786233865_ - _tl233785233867_ - _e233790233870_ - _hd233789233873_ - _tl233788233875_ - _e233793233878_ - _hd233792233881_ - _tl233791233883_ - _e233796233886_ - _hd233795233889_ - _tl233794233891_) + (not __tmp245132))) + (___kont243768243769_ + _L235099_ + _L235100_ + _L235101_ + _L235102_) + (___kont243770243771_))))) + (___match243867243868_ + (lambda (_e234953235003_ + _hd234952235006_ + _tl234951235008_ + _e234956235011_ + _hd234955235014_ + _tl234954235016_ + _e234959235019_ + _hd234958235022_ + _tl234957235024_ + _e234962235027_ + _hd234961235030_ + _tl234960235032_ + _e234965235035_ + _hd234964235038_ + _tl234963235040_ + _e234968235043_ + _hd234967235046_ + _tl234966235048_ + _e234971235051_ + _hd234970235054_ + _tl234969235056_ + _e234974235059_ + _hd234973235062_ + _tl234972235064_ + _e234977235067_ + _hd234976235070_ + _tl234975235072_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233788233875_)) - (let ((_e233799233894_ + (gx#stx-pair? _tl234969235056_)) + (let ((_e234980235075_ (let () (declare (not safe)) - (gx#stx-e _tl233788233875_)))) - (let ((_tl233797233899_ + (gx#stx-e _tl234969235056_)))) + (let ((_tl234978235080_ (let () (declare (not safe)) - (##cdr _e233799233894_))) - (_hd233798233897_ + (##cdr _e234980235075_))) + (_hd234979235078_ (let () (declare (not safe)) - (##car _e233799233894_)))) + (##car _e234980235075_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233798233897_)) - (let ((_e233802233902_ + (gx#stx-pair? _hd234979235078_)) + (let ((_e234983235083_ (let () (declare (not safe)) - (gx#stx-e _hd233798233897_)))) - (let ((_tl233800233907_ + (gx#stx-e _hd234979235078_)))) + (let ((_tl234981235088_ (let () (declare (not safe)) - (##cdr _e233802233902_))) - (_hd233801233905_ + (##cdr _e234983235083_))) + (_hd234982235086_ (let () (declare (not safe)) - (##car _e233802233902_)))) + (##car _e234983235083_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233801233905_)) + (gx#identifier? _hd234982235086_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233801233905_)) + _hd234982235086_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233800233907_)) - (let ((_e233805233910_ + _tl234981235088_)) + (let ((_e234986235091_ (let () (declare (not safe)) (gx#stx-e - _tl233800233907_)))) - (let ((_tl233803233915_ + _tl234981235088_)))) + (let ((_tl234984235096_ (let () (declare (not safe)) - (##cdr _e233805233910_))) - (_hd233804233913_ + (##cdr _e234986235091_))) + (_hd234985235094_ (let () (declare (not safe)) - (##car _e233805233910_)))) + (##car _e234986235091_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233803233915_)) + _tl234984235096_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl233797233899_)) + (gx#stx-null? _tl234978235080_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233773233835_)) - (___match242697242698_ - _e233772233822_ - _hd233771233825_ - _tl233770233827_ - _e233775233830_ - _hd233774233833_ - _tl233773233835_ - _e233778233838_ - _hd233777233841_ - _tl233776233843_ - _e233781233846_ - _hd233780233849_ - _tl233779233851_ - _e233784233854_ - _hd233783233857_ - _tl233782233859_ - _e233787233862_ - _hd233786233865_ - _tl233785233867_ - _e233790233870_ - _hd233789233873_ - _tl233788233875_ - _e233793233878_ - _hd233792233881_ - _tl233791233883_ - _e233796233886_ - _hd233795233889_ - _tl233794233891_ - _e233799233894_ - _hd233798233897_ - _tl233797233899_ - _e233802233902_ - _hd233801233905_ - _tl233800233907_ - _e233805233910_ - _hd233804233913_ - _tl233803233915_) - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)))) - (___kont242572242573_)))) - (___match242599242600_ - (lambda (_e233708233962_ - _hd233707233965_ - _tl233706233967_ - ___splice242566242567_ - _target233709233970_ - _tl233711233972_) - (letrec ((_loop233712233975_ - (lambda (_hd233710233978_ _arg233716233980_) + (gx#stx-null? _tl234954235016_)) + (___match243895243896_ + _e234953235003_ + _hd234952235006_ + _tl234951235008_ + _e234956235011_ + _hd234955235014_ + _tl234954235016_ + _e234959235019_ + _hd234958235022_ + _tl234957235024_ + _e234962235027_ + _hd234961235030_ + _tl234960235032_ + _e234965235035_ + _hd234964235038_ + _tl234963235040_ + _e234968235043_ + _hd234967235046_ + _tl234966235048_ + _e234971235051_ + _hd234970235054_ + _tl234969235056_ + _e234974235059_ + _hd234973235062_ + _tl234972235064_ + _e234977235067_ + _hd234976235070_ + _tl234975235072_ + _e234980235075_ + _hd234979235078_ + _tl234978235080_ + _e234983235083_ + _hd234982235086_ + _tl234981235088_ + _e234986235091_ + _hd234985235094_ + _tl234984235096_) + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)))) + (___kont243770243771_)))) + (___match243797243798_ + (lambda (_e234889235143_ + _hd234888235146_ + _tl234887235148_ + ___splice243764243765_ + _target234890235151_ + _tl234892235153_) + (letrec ((_loop234893235156_ + (lambda (_hd234891235159_ _arg234897235161_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233710233978_)) - (let ((_e233713233983_ + (gx#stx-pair? _hd234891235159_)) + (let ((_e234894235164_ (let () (declare (not safe)) - (gx#stx-e _hd233710233978_)))) - (let ((_lp-tl233715233988_ + (gx#stx-e _hd234891235159_)))) + (let ((_lp-tl234896235169_ (let () (declare (not safe)) - (##cdr _e233713233983_))) - (_lp-hd233714233986_ + (##cdr _e234894235164_))) + (_lp-hd234895235167_ (let () (declare (not safe)) - (##car _e233713233983_)))) - (let ((__tmp243949 + (##car _e234894235164_)))) + (let ((__tmp245147 (let () (declare (not safe)) - (cons _lp-hd233714233986_ - _arg233716233980_)))) + (cons _lp-hd234895235167_ + _arg234897235161_)))) (declare (not safe)) - (_loop233712233975_ - _lp-tl233715233988_ - __tmp243949)))) - (let ((_arg233717233991_ - (reverse _arg233716233980_))) + (_loop234893235156_ + _lp-tl234896235169_ + __tmp245147)))) + (let ((_arg234898235172_ + (reverse _arg234897235161_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233706233967_)) - (let ((_e233720233994_ + (gx#stx-pair? _tl234887235148_)) + (let ((_e234901235175_ (let () (declare (not safe)) (gx#stx-e - _tl233706233967_)))) - (let ((_tl233718233999_ + _tl234887235148_)))) + (let ((_tl234899235180_ (let () (declare (not safe)) - (##cdr _e233720233994_))) - (_hd233719233997_ + (##cdr _e234901235175_))) + (_hd234900235178_ (let () (declare (not safe)) - (##car _e233720233994_)))) + (##car _e234901235175_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233719233997_)) - (let ((_e233723234002_ + _hd234900235178_)) + (let ((_e234904235183_ (let () (declare (not safe)) (gx#stx-e - _hd233719233997_)))) - (let ((_tl233721234007_ + _hd234900235178_)))) + (let ((_tl234902235188_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233723234002_))) - (_hd233722234005_ - (let () (declare (not safe)) (##car _e233723234002_)))) + (##cdr _e234904235183_))) + (_hd234903235186_ + (let () (declare (not safe)) (##car _e234904235183_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233722234005_)) + (gx#identifier? _hd234903235186_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd233722234005_)) + (gx#stx-eq? '%#call _hd234903235186_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233721234007_)) - (let ((_e233726234010_ + (gx#stx-pair? _tl234902235188_)) + (let ((_e234907235191_ (let () (declare (not safe)) - (gx#stx-e _tl233721234007_)))) - (let ((_tl233724234015_ + (gx#stx-e _tl234902235188_)))) + (let ((_tl234905235196_ (let () (declare (not safe)) - (##cdr _e233726234010_))) - (_hd233725234013_ + (##cdr _e234907235191_))) + (_hd234906235194_ (let () (declare (not safe)) - (##car _e233726234010_)))) + (##car _e234907235191_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233725234013_)) - (let ((_e233729234018_ + (gx#stx-pair? _hd234906235194_)) + (let ((_e234910235199_ (let () (declare (not safe)) - (gx#stx-e _hd233725234013_)))) - (let ((_tl233727234023_ + (gx#stx-e _hd234906235194_)))) + (let ((_tl234908235204_ (let () (declare (not safe)) - (##cdr _e233729234018_))) - (_hd233728234021_ + (##cdr _e234910235199_))) + (_hd234909235202_ (let () (declare (not safe)) - (##car _e233729234018_)))) + (##car _e234910235199_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233728234021_)) + _hd234909235202_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233728234021_)) + _hd234909235202_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233727234023_)) - (let ((_e233732234026_ + _tl234908235204_)) + (let ((_e234913235207_ (let () (declare (not safe)) (gx#stx-e - _tl233727234023_)))) - (let ((_tl233730234031_ + _tl234908235204_)))) + (let ((_tl234911235212_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233732234026_))) - (_hd233731234029_ - (let () (declare (not safe)) (##car _e233732234026_)))) + (##cdr _e234913235207_))) + (_hd234912235210_ + (let () (declare (not safe)) (##car _e234913235207_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233730234031_)) + (gx#stx-null? _tl234911235212_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233724234015_)) - (let ((_e233735234034_ + (gx#stx-pair? _tl234905235196_)) + (let ((_e234916235215_ (let () (declare (not safe)) - (gx#stx-e _tl233724234015_)))) - (let ((_tl233733234039_ + (gx#stx-e _tl234905235196_)))) + (let ((_tl234914235220_ (let () (declare (not safe)) - (##cdr _e233735234034_))) - (_hd233734234037_ + (##cdr _e234916235215_))) + (_hd234915235218_ (let () (declare (not safe)) - (##car _e233735234034_)))) + (##car _e234916235215_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233734234037_)) - (let ((_e233738234042_ + (gx#stx-pair? _hd234915235218_)) + (let ((_e234919235223_ (let () (declare (not safe)) - (gx#stx-e _hd233734234037_)))) - (let ((_tl233736234047_ + (gx#stx-e _hd234915235218_)))) + (let ((_tl234917235228_ (let () (declare (not safe)) - (##cdr _e233738234042_))) - (_hd233737234045_ + (##cdr _e234919235223_))) + (_hd234918235226_ (let () (declare (not safe)) - (##car _e233738234042_)))) + (##car _e234919235223_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233737234045_)) + (gx#identifier? _hd234918235226_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233737234045_)) + _hd234918235226_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233736234047_)) - (let ((_e233741234050_ + _tl234917235228_)) + (let ((_e234922235231_ (let () (declare (not safe)) (gx#stx-e - _tl233736234047_)))) - (let ((_tl233739234055_ + _tl234917235228_)))) + (let ((_tl234920235236_ (let () (declare (not safe)) - (##cdr _e233741234050_))) - (_hd233740234053_ + (##cdr _e234922235231_))) + (_hd234921235234_ (let () (declare (not safe)) - (##car _e233741234050_)))) + (##car _e234922235231_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233739234055_)) + _tl234920235236_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl233733234039_)) + _tl234914235220_)) (if (fx>= (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-length _tl233733234039_)) + (gx#stx-length _tl234914235220_)) '1) - (let ((___splice242568242569_ + (let ((___splice243766243767_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233733234039_ + _tl234914235220_ '1)))) - (let ((_tl233744234060_ + (let ((_tl234925235241_ (let () (declare (not safe)) - (##vector-ref ___splice242568242569_ '1))) - (_target233742234058_ + (##vector-ref ___splice243766243767_ '1))) + (_target234923235239_ (let () (declare (not safe)) - (##vector-ref ___splice242568242569_ '0)))) + (##vector-ref ___splice243766243767_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233744234060_)) - (let ((_e233753234063_ + (gx#stx-pair? _tl234925235241_)) + (let ((_e234934235244_ (let () (declare (not safe)) - (gx#stx-e _tl233744234060_)))) - (let ((_tl233751234068_ + (gx#stx-e _tl234925235241_)))) + (let ((_tl234932235249_ (let () (declare (not safe)) - (##cdr _e233753234063_))) - (_hd233752234066_ + (##cdr _e234934235244_))) + (_hd234933235247_ (let () (declare (not safe)) - (##car _e233753234063_)))) + (##car _e234934235244_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233752234066_)) - (let ((_e233756234071_ + (gx#stx-pair? _hd234933235247_)) + (let ((_e234937235252_ (let () (declare (not safe)) - (gx#stx-e _hd233752234066_)))) - (let ((_tl233754234076_ + (gx#stx-e _hd234933235247_)))) + (let ((_tl234935235257_ (let () (declare (not safe)) - (##cdr _e233756234071_))) - (_hd233755234074_ + (##cdr _e234937235252_))) + (_hd234936235255_ (let () (declare (not safe)) - (##car _e233756234071_)))) + (##car _e234937235252_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233755234074_)) + _hd234936235255_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233755234074_)) + _hd234936235255_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233754234076_)) - (let ((_e233759234079_ + _tl234935235257_)) + (let ((_e234940235260_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl233754234076_)))) - (let ((_tl233757234084_ - (let () (declare (not safe)) (##cdr _e233759234079_))) - (_hd233758234082_ + (gx#stx-e _tl234935235257_)))) + (let ((_tl234938235265_ + (let () (declare (not safe)) (##cdr _e234940235260_))) + (_hd234939235263_ (let () (declare (not safe)) - (##car _e233759234079_)))) + (##car _e234940235260_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233757234084_)) + (gx#stx-null? _tl234938235265_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233751234068_)) - (letrec ((_loop233745234087_ - (lambda (_hd233743234090_ - _xarg233749234092_) + (gx#stx-null? _tl234932235249_)) + (letrec ((_loop234926235268_ + (lambda (_hd234924235271_ + _xarg234930235273_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233743234090_)) - (let ((_e233746234095_ + (gx#stx-pair? _hd234924235271_)) + (let ((_e234927235276_ (let () (declare (not safe)) (gx#stx-e - _hd233743234090_)))) - (let ((_lp-tl233748234100_ + _hd234924235271_)))) + (let ((_lp-tl234929235281_ (let () (declare (not safe)) - (##cdr _e233746234095_))) - (_lp-hd233747234098_ + (##cdr _e234927235276_))) + (_lp-hd234928235279_ (let () (declare (not safe)) - (##car _e233746234095_)))) + (##car _e234927235276_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd233747234098_)) - (let ((_e233762234103_ + _lp-hd234928235279_)) + (let ((_e234943235284_ (let () (declare (not safe)) (gx#stx-e - _lp-hd233747234098_)))) - (let ((_tl233760234108_ + _lp-hd234928235279_)))) + (let ((_tl234941235289_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233762234103_))) - (_hd233761234106_ - (let () (declare (not safe)) (##car _e233762234103_)))) + (##cdr _e234943235284_))) + (_hd234942235287_ + (let () (declare (not safe)) (##car _e234943235284_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233761234106_)) + (gx#identifier? _hd234942235287_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233761234106_)) + (gx#stx-eq? '%#ref _hd234942235287_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233760234108_)) - (let ((_e233765234111_ + (gx#stx-pair? _tl234941235289_)) + (let ((_e234946235292_ (let () (declare (not safe)) - (gx#stx-e _tl233760234108_)))) - (let ((_tl233763234116_ + (gx#stx-e _tl234941235289_)))) + (let ((_tl234944235297_ (let () (declare (not safe)) - (##cdr _e233765234111_))) - (_hd233764234114_ + (##cdr _e234946235292_))) + (_hd234945235295_ (let () (declare (not safe)) - (##car _e233765234111_)))) + (##car _e234946235292_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233763234116_)) - (let ((__tmp243948 + (gx#stx-null? _tl234944235297_)) + (let ((__tmp245146 (let () (declare (not safe)) - (cons _hd233764234114_ - _xarg233749234092_)))) + (cons _hd234945235295_ + _xarg234930235273_)))) (declare (not safe)) - (_loop233745234087_ - _lp-tl233748234100_ - __tmp243948)) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)))) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)))) - (let ((_xarg233750234119_ - (reverse _xarg233749234092_))) + (_loop234926235268_ + _lp-tl234929235281_ + __tmp245146)) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)))) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)))) + (let ((_xarg234931235300_ + (reverse _xarg234930235273_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233718233999_)) - (let ((_L234122_ - _hd233758234082_) - (_L234123_ - _xarg233750234119_) - (_L234124_ - _hd233740234053_) - (_L234125_ - _hd233731234029_) - (_L234126_ - _tl233711233972_) - (_L234127_ - _arg233717233991_)) - (if (and (let ((__tmp243946 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp243947 - (lambda (_g234170234173_ _g234171234175_) + _tl234899235180_)) + (let ((_L235303_ + _hd234939235263_) + (_L235304_ + _xarg234931235300_) + (_L235305_ + _hd234921235234_) + (_L235306_ + _hd234912235210_) + (_L235307_ + _tl234892235153_) + (_L235308_ + _arg234898235172_)) + (if (and (let ((__tmp245144 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245145 + (lambda (_g235351235354_ _g235352235356_) (let () (declare (not safe)) - (cons _g234170234173_ - _g234171234175_))))) + (cons _g235351235354_ + _g235352235356_))))) (declare (not safe)) - (foldr1 __tmp243947 '() _L234127_)))) + (foldr1 __tmp245145 '() _L235308_)))) (declare (not safe)) - (gx#identifier-list? __tmp243946)) - (let () (declare (not safe)) (gx#identifier? _L234126_)) + (gx#identifier-list? __tmp245144)) + (let () (declare (not safe)) (gx#identifier? _L235307_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _L234125_ 'apply)) - (fx= (length (let ((__tmp243944 - (lambda (_g234177234180_ - _g234178234182_) + (gxc#runtime-identifier=? _L235306_ 'apply)) + (fx= (length (let ((__tmp245142 + (lambda (_g235358235361_ + _g235359235363_) (let () (declare (not safe)) - (cons _g234177234180_ - _g234178234182_))))) + (cons _g235358235361_ + _g235359235363_))))) (declare (not safe)) - (foldr1 __tmp243944 '() _L234127_))) - (length (let ((__tmp243945 - (lambda (_g234184234187_ - _g234185234189_) + (foldr1 __tmp245142 '() _L235308_))) + (length (let ((__tmp245143 + (lambda (_g235365235368_ + _g235366235370_) (let () (declare (not safe)) - (cons _g234184234187_ - _g234185234189_))))) + (cons _g235365235368_ + _g235366235370_))))) (declare (not safe)) - (foldr1 __tmp243945 '() _L234123_)))) - (let ((__tmp243942 - (let ((__tmp243943 - (lambda (_g234191234194_ _g234192234196_) + (foldr1 __tmp245143 '() _L235304_)))) + (let ((__tmp245140 + (let ((__tmp245141 + (lambda (_g235372235375_ _g235373235377_) (let () (declare (not safe)) - (cons _g234191234194_ - _g234192234196_))))) + (cons _g235372235375_ + _g235373235377_))))) (declare (not safe)) - (foldr1 __tmp243943 '() _L234127_))) - (__tmp243940 - (let ((__tmp243941 - (lambda (_g234198234201_ _g234199234203_) + (foldr1 __tmp245141 '() _L235308_))) + (__tmp245138 + (let ((__tmp245139 + (lambda (_g235379235382_ _g235380235384_) (let () (declare (not safe)) - (cons _g234198234201_ - _g234199234203_))))) + (cons _g235379235382_ + _g235380235384_))))) (declare (not safe)) - (foldr1 __tmp243941 '() _L234123_)))) + (foldr1 __tmp245139 '() _L235304_)))) (declare (not safe)) - (andmap2 gx#free-identifier=? __tmp243942 __tmp243940)) + (andmap2 gx#free-identifier=? __tmp245140 __tmp245138)) (let () (declare (not safe)) - (gx#free-identifier=? _L234126_ _L234122_)) - (let ((__tmp243935 - (let ((__tmp243939 - (lambda (_g234205234207_) + (gx#free-identifier=? _L235307_ _L235303_)) + (let ((__tmp245133 + (let ((__tmp245137 + (lambda (_g235386235388_) (let () (declare (not safe)) (gx#free-identifier=? - _g234205234207_ - _L234124_)))) - (__tmp243936 - (let ((__tmp243938 - (lambda (_g234209234212_ - _g234210234214_) + _g235386235388_ + _L235305_)))) + (__tmp245134 + (let ((__tmp245136 + (lambda (_g235390235393_ + _g235391235395_) (let () (declare (not safe)) - (cons _g234209234212_ - _g234210234214_)))) - (__tmp243937 + (cons _g235390235393_ + _g235391235395_)))) + (__tmp245135 (let () (declare (not safe)) - (cons _L234126_ '())))) + (cons _L235307_ '())))) (declare (not safe)) - (foldr1 __tmp243938 - __tmp243937 - _L234127_)))) + (foldr1 __tmp245136 + __tmp245135 + _L235308_)))) (declare (not safe)) - (find __tmp243939 __tmp243936)))) + (find __tmp245137 __tmp245134)))) (declare (not safe)) - (not __tmp243935))) - (___kont242564242565_ - _L234122_ - _L234123_ - _L234124_ - _L234125_ - _L234126_ - _L234127_) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_))))))) + (not __tmp245133))) + (___kont243762243763_ + _L235303_ + _L235304_ + _L235305_ + _L235306_ + _L235307_ + _L235308_) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_))))))) (let () (declare (not safe)) - (_loop233745234087_ _target233742234058_ '()))) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)))) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)))) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)))) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)))) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)) - (___match242669242670_ - _e233708233962_ - _hd233707233965_ - _tl233706233967_ - _e233720233994_ - _hd233719233997_ - _tl233718233999_ - _e233723234002_ - _hd233722234005_ - _tl233721234007_ - _e233726234010_ - _hd233725234013_ - _tl233724234015_ - _e233729234018_ - _hd233728234021_ - _tl233727234023_ - _e233732234026_ - _hd233731234029_ - _tl233730234031_ - _e233735234034_ - _hd233734234037_ - _tl233733234039_ - _e233738234042_ - _hd233737234045_ - _tl233736234047_ - _e233741234050_ - _hd233740234053_ - _tl233739234055_)) - (___kont242572242573_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)))) - (___kont242572242573_)) - (___kont242572242573_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)))) - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242572242573_)))) - (___kont242572242573_))))))) + (_loop234926235268_ _target234923235239_ '()))) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)))) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)))) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)))) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)))) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)) + (___match243867243868_ + _e234889235143_ + _hd234888235146_ + _tl234887235148_ + _e234901235175_ + _hd234900235178_ + _tl234899235180_ + _e234904235183_ + _hd234903235186_ + _tl234902235188_ + _e234907235191_ + _hd234906235194_ + _tl234905235196_ + _e234910235199_ + _hd234909235202_ + _tl234908235204_ + _e234913235207_ + _hd234912235210_ + _tl234911235212_ + _e234916235215_ + _hd234915235218_ + _tl234914235220_ + _e234919235223_ + _hd234918235226_ + _tl234917235228_ + _e234922235231_ + _hd234921235234_ + _tl234920235236_)) + (___kont243770243771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)))) + (___kont243770243771_)) + (___kont243770243771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)))) + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243770243771_)))) + (___kont243770243771_))))))) (let () (declare (not safe)) - (_loop233712233975_ _target233709233970_ '()))))) - (___match242587242588_ - (lambda (_e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_) - (letrec ((_loop233664234235_ - (lambda (_hd233662234238_ _arg233668234240_) + (_loop234893235156_ _target234890235151_ '()))))) + (___match243785243786_ + (lambda (_e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_) + (letrec ((_loop234845235416_ + (lambda (_hd234843235419_ _arg234849235421_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233662234238_)) - (let ((_e233665234243_ + (gx#stx-pair? _hd234843235419_)) + (let ((_e234846235424_ (let () (declare (not safe)) - (gx#stx-e _hd233662234238_)))) - (let ((_lp-tl233667234248_ + (gx#stx-e _hd234843235419_)))) + (let ((_lp-tl234848235429_ (let () (declare (not safe)) - (##cdr _e233665234243_))) - (_lp-hd233666234246_ + (##cdr _e234846235424_))) + (_lp-hd234847235427_ (let () (declare (not safe)) - (##car _e233665234243_)))) - (let ((__tmp243963 + (##car _e234846235424_)))) + (let ((__tmp245161 (let () (declare (not safe)) - (cons _lp-hd233666234246_ - _arg233668234240_)))) + (cons _lp-hd234847235427_ + _arg234849235421_)))) (declare (not safe)) - (_loop233664234235_ - _lp-tl233667234248_ - __tmp243963)))) - (let ((_arg233669234251_ - (reverse _arg233668234240_))) + (_loop234845235416_ + _lp-tl234848235429_ + __tmp245161)))) + (let ((_arg234850235432_ + (reverse _arg234849235421_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233658234227_)) - (let ((_e233672234254_ + (gx#stx-pair? _tl234839235408_)) + (let ((_e234853235435_ (let () (declare (not safe)) (gx#stx-e - _tl233658234227_)))) - (let ((_tl233670234259_ + _tl234839235408_)))) + (let ((_tl234851235440_ (let () (declare (not safe)) - (##cdr _e233672234254_))) - (_hd233671234257_ + (##cdr _e234853235435_))) + (_hd234852235438_ (let () (declare (not safe)) - (##car _e233672234254_)))) + (##car _e234853235435_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233671234257_)) - (let ((_e233675234262_ + _hd234852235438_)) + (let ((_e234856235443_ (let () (declare (not safe)) (gx#stx-e - _hd233671234257_)))) - (let ((_tl233673234267_ + _hd234852235438_)))) + (let ((_tl234854235448_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233675234262_))) - (_hd233674234265_ - (let () (declare (not safe)) (##car _e233675234262_)))) + (##cdr _e234856235443_))) + (_hd234855235446_ + (let () (declare (not safe)) (##car _e234856235443_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233674234265_)) + (gx#identifier? _hd234855235446_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd233674234265_)) + (gx#stx-eq? '%#call _hd234855235446_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233673234267_)) - (let ((_e233678234270_ + (gx#stx-pair? _tl234854235448_)) + (let ((_e234859235451_ (let () (declare (not safe)) - (gx#stx-e _tl233673234267_)))) - (let ((_tl233676234275_ + (gx#stx-e _tl234854235448_)))) + (let ((_tl234857235456_ (let () (declare (not safe)) - (##cdr _e233678234270_))) - (_hd233677234273_ + (##cdr _e234859235451_))) + (_hd234858235454_ (let () (declare (not safe)) - (##car _e233678234270_)))) + (##car _e234859235451_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233677234273_)) - (let ((_e233681234278_ + (gx#stx-pair? _hd234858235454_)) + (let ((_e234862235459_ (let () (declare (not safe)) - (gx#stx-e _hd233677234273_)))) - (let ((_tl233679234283_ + (gx#stx-e _hd234858235454_)))) + (let ((_tl234860235464_ (let () (declare (not safe)) - (##cdr _e233681234278_))) - (_hd233680234281_ + (##cdr _e234862235459_))) + (_hd234861235462_ (let () (declare (not safe)) - (##car _e233681234278_)))) + (##car _e234862235459_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233680234281_)) + _hd234861235462_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233680234281_)) + _hd234861235462_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233679234283_)) - (let ((_e233684234286_ + _tl234860235464_)) + (let ((_e234865235467_ (let () (declare (not safe)) (gx#stx-e - _tl233679234283_)))) - (let ((_tl233682234291_ + _tl234860235464_)))) + (let ((_tl234863235472_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233684234286_))) - (_hd233683234289_ - (let () (declare (not safe)) (##car _e233684234286_)))) + (##cdr _e234865235467_))) + (_hd234864235470_ + (let () (declare (not safe)) (##car _e234865235467_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233682234291_)) + (gx#stx-null? _tl234863235472_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233676234275_)) - (let ((___splice242562242563_ + (gx#stx-pair/null? _tl234857235456_)) + (let ((___splice243760243761_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233676234275_ + _tl234857235456_ '0)))) - (let ((_tl233687234296_ + (let ((_tl234868235477_ (let () (declare (not safe)) - (##vector-ref ___splice242562242563_ '1))) - (_target233685234294_ + (##vector-ref ___splice243760243761_ '1))) + (_target234866235475_ (let () (declare (not safe)) - (##vector-ref ___splice242562242563_ '0)))) + (##vector-ref ___splice243760243761_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233687234296_)) - (letrec ((_loop233688234299_ - (lambda (_hd233686234302_ - _xarg233692234304_) + (gx#stx-null? _tl234868235477_)) + (letrec ((_loop234869235480_ + (lambda (_hd234867235483_ + _xarg234873235485_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233686234302_)) - (let ((_e233689234307_ + _hd234867235483_)) + (let ((_e234870235488_ (let () (declare (not safe)) (gx#stx-e - _hd233686234302_)))) - (let ((_lp-tl233691234312_ + _hd234867235483_)))) + (let ((_lp-tl234872235493_ (let () (declare (not safe)) - (##cdr _e233689234307_))) - (_lp-hd233690234310_ + (##cdr _e234870235488_))) + (_lp-hd234871235491_ (let () (declare (not safe)) - (##car _e233689234307_)))) + (##car _e234870235488_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd233690234310_)) - (let ((_e233696234315_ + _lp-hd234871235491_)) + (let ((_e234877235496_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd233690234310_)))) - (let ((_tl233694234320_ - (let () (declare (not safe)) (##cdr _e233696234315_))) - (_hd233695234318_ + (gx#stx-e _lp-hd234871235491_)))) + (let ((_tl234875235501_ + (let () (declare (not safe)) (##cdr _e234877235496_))) + (_hd234876235499_ (let () (declare (not safe)) - (##car _e233696234315_)))) + (##car _e234877235496_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233695234318_)) + (gx#identifier? _hd234876235499_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233695234318_)) + (gx#stx-eq? '%#ref _hd234876235499_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233694234320_)) - (let ((_e233699234323_ + (gx#stx-pair? _tl234875235501_)) + (let ((_e234880235504_ (let () (declare (not safe)) - (gx#stx-e _tl233694234320_)))) - (let ((_tl233697234328_ + (gx#stx-e _tl234875235501_)))) + (let ((_tl234878235509_ (let () (declare (not safe)) - (##cdr _e233699234323_))) - (_hd233698234326_ + (##cdr _e234880235504_))) + (_hd234879235507_ (let () (declare (not safe)) - (##car _e233699234323_)))) + (##car _e234880235504_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233697234328_)) - (let ((__tmp243962 + (gx#stx-null? _tl234878235509_)) + (let ((__tmp245160 (let () (declare (not safe)) - (cons _hd233698234326_ - _xarg233692234304_)))) + (cons _hd234879235507_ + _xarg234873235485_)))) (declare (not safe)) - (_loop233688234299_ - _lp-tl233691234312_ - __tmp243962)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg233693234331_ - (reverse _xarg233692234304_))) + (_loop234869235480_ + _lp-tl234872235493_ + __tmp245160)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg234874235512_ + (reverse _xarg234873235485_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233670234259_)) - (let ((_L234334_ - _xarg233693234331_) - (_L234335_ - _hd233683234289_) - (_L234336_ - _arg233669234251_)) - (if (and (let ((__tmp243960 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp243961 - (lambda (_g234364234367_ - _g234365234369_) + _tl234851235440_)) + (let ((_L235515_ + _xarg234874235512_) + (_L235516_ + _hd234864235470_) + (_L235517_ + _arg234850235432_)) + (if (and (let ((__tmp245158 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245159 + (lambda (_g235545235548_ + _g235546235550_) (let () (declare (not safe)) - (cons _g234364234367_ - _g234365234369_))))) + (cons _g235545235548_ + _g235546235550_))))) (declare (not safe)) - (foldr1 __tmp243961 '() _L234336_)))) + (foldr1 __tmp245159 '() _L235517_)))) (declare (not safe)) - (gx#identifier-list? __tmp243960)) - (fx= (length (let ((__tmp243958 - (lambda (_g234371234374_ - _g234372234376_) + (gx#identifier-list? __tmp245158)) + (fx= (length (let ((__tmp245156 + (lambda (_g235552235555_ + _g235553235557_) (let () (declare (not safe)) - (cons _g234371234374_ - _g234372234376_))))) + (cons _g235552235555_ + _g235553235557_))))) (declare (not safe)) - (foldr1 __tmp243958 '() _L234336_))) - (length (let ((__tmp243959 - (lambda (_g234378234381_ - _g234379234383_) + (foldr1 __tmp245156 '() _L235517_))) + (length (let ((__tmp245157 + (lambda (_g235559235562_ + _g235560235564_) (let () (declare (not safe)) - (cons _g234378234381_ - _g234379234383_))))) + (cons _g235559235562_ + _g235560235564_))))) (declare (not safe)) - (foldr1 __tmp243959 '() _L234334_)))) - (let ((__tmp243956 - (let ((__tmp243957 - (lambda (_g234385234388_ - _g234386234390_) + (foldr1 __tmp245157 '() _L235515_)))) + (let ((__tmp245154 + (let ((__tmp245155 + (lambda (_g235566235569_ + _g235567235571_) (let () (declare (not safe)) - (cons _g234385234388_ - _g234386234390_))))) + (cons _g235566235569_ + _g235567235571_))))) (declare (not safe)) - (foldr1 __tmp243957 '() _L234336_))) - (__tmp243954 - (let ((__tmp243955 - (lambda (_g234392234395_ - _g234393234397_) + (foldr1 __tmp245155 '() _L235517_))) + (__tmp245152 + (let ((__tmp245153 + (lambda (_g235573235576_ + _g235574235578_) (let () (declare (not safe)) - (cons _g234392234395_ - _g234393234397_))))) + (cons _g235573235576_ + _g235574235578_))))) (declare (not safe)) - (foldr1 __tmp243955 '() _L234334_)))) + (foldr1 __tmp245153 '() _L235515_)))) (declare (not safe)) (andmap2 gx#free-identifier=? - __tmp243956 - __tmp243954)) - (let ((__tmp243950 - (let ((__tmp243953 - (lambda (_g234399234401_) + __tmp245154 + __tmp245152)) + (let ((__tmp245148 + (let ((__tmp245151 + (lambda (_g235580235582_) (let () (declare (not safe)) (gx#free-identifier=? - _g234399234401_ - _L234335_)))) - (__tmp243951 - (let ((__tmp243952 - (lambda (_g234403234406_ - _g234404234408_) + _g235580235582_ + _L235516_)))) + (__tmp245149 + (let ((__tmp245150 + (lambda (_g235584235587_ + _g235585235589_) (let () (declare (not safe)) - (cons _g234403234406_ - _g234404234408_))))) + (cons _g235584235587_ + _g235585235589_))))) (declare (not safe)) - (foldr1 __tmp243952 '() _L234336_)))) + (foldr1 __tmp245150 '() _L235517_)))) (declare (not safe)) - (find __tmp243953 __tmp243951)))) + (find __tmp245151 __tmp245149)))) (declare (not safe)) - (not __tmp243950))) - (___kont242558242559_ _L234334_ _L234335_ _L234336_) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_))))))) + (not __tmp245148))) + (___kont243756243757_ _L235515_ _L235516_ _L235517_) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop233688234299_ - _target233685234294_ + (_loop234869235480_ + _target234866235475_ '()))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_))))))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_))))))) (let () (declare (not safe)) - (_loop233664234235_ _target233661234230_ '())))))) + (_loop234845235416_ _target234842235411_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242556242557_)) - (let ((_e233660234222_ + (gx#stx-pair? ___stx243754243755_)) + (let ((_e234841235403_ (let () (declare (not safe)) - (gx#stx-e ___stx242556242557_)))) - (let ((_tl233658234227_ + (gx#stx-e ___stx243754243755_)))) + (let ((_tl234839235408_ (let () (declare (not safe)) - (##cdr _e233660234222_))) - (_hd233659234225_ + (##cdr _e234841235403_))) + (_hd234840235406_ (let () (declare (not safe)) - (##car _e233660234222_)))) + (##car _e234841235403_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd233659234225_)) - (let ((___splice242560242561_ + (gx#stx-pair/null? _hd234840235406_)) + (let ((___splice243758243759_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd233659234225_ + _hd234840235406_ '0)))) - (let ((_tl233663234232_ + (let ((_tl234844235413_ (let () (declare (not safe)) - (##vector-ref ___splice242560242561_ '1))) - (_target233661234230_ + (##vector-ref ___splice243758243759_ '1))) + (_target234842235411_ (let () (declare (not safe)) (##vector-ref - ___splice242560242561_ + ___splice243758243759_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233663234232_)) - (___match242587242588_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_) - (___match242599242600_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - ___splice242560242561_ - _target233661234230_ - _tl233663234232_)))) + (gx#stx-null? _tl234844235413_)) + (___match243785243786_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_) + (___match243797243798_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + ___splice243758243759_ + _target234842235411_ + _tl234844235413_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233658234227_)) - (let ((_e233775233830_ + (gx#stx-pair? _tl234839235408_)) + (let ((_e234956235011_ (let () (declare (not safe)) - (gx#stx-e _tl233658234227_)))) - (let ((_tl233773233835_ + (gx#stx-e _tl234839235408_)))) + (let ((_tl234954235016_ (let () (declare (not safe)) - (##cdr _e233775233830_))) - (_hd233774233833_ + (##cdr _e234956235011_))) + (_hd234955235014_ (let () (declare (not safe)) - (##car _e233775233830_)))) + (##car _e234956235011_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233774233833_)) - (let ((_e233778233838_ + (gx#stx-pair? _hd234955235014_)) + (let ((_e234959235019_ (let () (declare (not safe)) - (gx#stx-e _hd233774233833_)))) - (let ((_tl233776233843_ + (gx#stx-e _hd234955235014_)))) + (let ((_tl234957235024_ (let () (declare (not safe)) - (##cdr _e233778233838_))) - (_hd233777233841_ + (##cdr _e234959235019_))) + (_hd234958235022_ (let () (declare (not safe)) - (##car _e233778233838_)))) + (##car _e234959235019_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233777233841_)) + _hd234958235022_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd233777233841_)) + _hd234958235022_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233776233843_)) - (let ((_e233781233846_ + _tl234957235024_)) + (let ((_e234962235027_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl233776233843_)))) - (let ((_tl233779233851_ - (let () (declare (not safe)) (##cdr _e233781233846_))) - (_hd233780233849_ - (let () (declare (not safe)) (##car _e233781233846_)))) + (gx#stx-e _tl234957235024_)))) + (let ((_tl234960235032_ + (let () (declare (not safe)) (##cdr _e234962235027_))) + (_hd234961235030_ + (let () (declare (not safe)) (##car _e234962235027_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233780233849_)) - (let ((_e233784233854_ + (gx#stx-pair? _hd234961235030_)) + (let ((_e234965235035_ (let () (declare (not safe)) - (gx#stx-e _hd233780233849_)))) - (let ((_tl233782233859_ + (gx#stx-e _hd234961235030_)))) + (let ((_tl234963235040_ (let () (declare (not safe)) - (##cdr _e233784233854_))) - (_hd233783233857_ + (##cdr _e234965235035_))) + (_hd234964235038_ (let () (declare (not safe)) - (##car _e233784233854_)))) + (##car _e234965235035_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233783233857_)) + (gx#identifier? _hd234964235038_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233783233857_)) + (gx#stx-eq? '%#ref _hd234964235038_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233782233859_)) - (let ((_e233787233862_ + (gx#stx-pair? _tl234963235040_)) + (let ((_e234968235043_ (let () (declare (not safe)) - (gx#stx-e _tl233782233859_)))) - (let ((_tl233785233867_ + (gx#stx-e _tl234963235040_)))) + (let ((_tl234966235048_ (let () (declare (not safe)) - (##cdr _e233787233862_))) - (_hd233786233865_ + (##cdr _e234968235043_))) + (_hd234967235046_ (let () (declare (not safe)) - (##car _e233787233862_)))) + (##car _e234968235043_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233785233867_)) + _tl234966235048_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233779233851_)) - (let ((_e233790233870_ + _tl234960235032_)) + (let ((_e234971235051_ (let () (declare (not safe)) (gx#stx-e - _tl233779233851_)))) - (let ((_tl233788233875_ + _tl234960235032_)))) + (let ((_tl234969235056_ (let () (declare (not safe)) - (##cdr _e233790233870_))) - (_hd233789233873_ + (##cdr _e234971235051_))) + (_hd234970235054_ (let () (declare (not safe)) - (##car _e233790233870_)))) + (##car _e234971235051_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233789233873_)) - (let ((_e233793233878_ + _hd234970235054_)) + (let ((_e234974235059_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd233789233873_)))) - (let ((_tl233791233883_ + (gx#stx-e _hd234970235054_)))) + (let ((_tl234972235064_ (let () (declare (not safe)) - (##cdr _e233793233878_))) - (_hd233792233881_ + (##cdr _e234974235059_))) + (_hd234973235062_ (let () (declare (not safe)) - (##car _e233793233878_)))) + (##car _e234974235059_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233792233881_)) + (gx#identifier? _hd234973235062_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233792233881_)) + (gx#stx-eq? '%#ref _hd234973235062_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233791233883_)) - (let ((_e233796233886_ + (gx#stx-pair? _tl234972235064_)) + (let ((_e234977235067_ (let () (declare (not safe)) - (gx#stx-e _tl233791233883_)))) - (let ((_tl233794233891_ + (gx#stx-e _tl234972235064_)))) + (let ((_tl234975235072_ (let () (declare (not safe)) - (##cdr _e233796233886_))) - (_hd233795233889_ + (##cdr _e234977235067_))) + (_hd234976235070_ (let () (declare (not safe)) - (##car _e233796233886_)))) + (##car _e234977235067_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233794233891_)) + (gx#stx-null? _tl234975235072_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233788233875_)) - (let ((_e233799233894_ + _tl234969235056_)) + (let ((_e234980235075_ (let () (declare (not safe)) (gx#stx-e - _tl233788233875_)))) - (let ((_tl233797233899_ + _tl234969235056_)))) + (let ((_tl234978235080_ (let () (declare (not safe)) - (##cdr _e233799233894_))) - (_hd233798233897_ + (##cdr _e234980235075_))) + (_hd234979235078_ (let () (declare (not safe)) - (##car _e233799233894_)))) + (##car _e234980235075_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233798233897_)) - (let ((_e233802233902_ + _hd234979235078_)) + (let ((_e234983235083_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd233798233897_)))) - (let ((_tl233800233907_ - (let () (declare (not safe)) (##cdr _e233802233902_))) - (_hd233801233905_ - (let () (declare (not safe)) (##car _e233802233902_)))) + (gx#stx-e _hd234979235078_)))) + (let ((_tl234981235088_ + (let () (declare (not safe)) (##cdr _e234983235083_))) + (_hd234982235086_ + (let () (declare (not safe)) (##car _e234983235083_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233801233905_)) + (gx#identifier? _hd234982235086_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233801233905_)) + (gx#stx-eq? '%#ref _hd234982235086_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233800233907_)) - (let ((_e233805233910_ + (gx#stx-pair? _tl234981235088_)) + (let ((_e234986235091_ (let () (declare (not safe)) - (gx#stx-e _tl233800233907_)))) - (let ((_tl233803233915_ + (gx#stx-e _tl234981235088_)))) + (let ((_tl234984235096_ (let () (declare (not safe)) - (##cdr _e233805233910_))) - (_hd233804233913_ + (##cdr _e234986235091_))) + (_hd234985235094_ (let () (declare (not safe)) - (##car _e233805233910_)))) + (##car _e234986235091_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233803233915_)) + (gx#stx-null? _tl234984235096_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233797233899_)) + (gx#stx-null? _tl234978235080_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233773233835_)) - (___match242697242698_ - _e233660234222_ - _hd233659234225_ - _tl233658234227_ - _e233775233830_ - _hd233774233833_ - _tl233773233835_ - _e233778233838_ - _hd233777233841_ - _tl233776233843_ - _e233781233846_ - _hd233780233849_ - _tl233779233851_ - _e233784233854_ - _hd233783233857_ - _tl233782233859_ - _e233787233862_ - _hd233786233865_ - _tl233785233867_ - _e233790233870_ - _hd233789233873_ - _tl233788233875_ - _e233793233878_ - _hd233792233881_ - _tl233791233883_ - _e233796233886_ - _hd233795233889_ - _tl233794233891_ - _e233799233894_ - _hd233798233897_ - _tl233797233899_ - _e233802233902_ - _hd233801233905_ - _tl233800233907_ - _e233805233910_ - _hd233804233913_ - _tl233803233915_) - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)) - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)))) - (___kont242572242573_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242572242573_)) - (___kont242572242573_)))) - (___kont242572242573_)))) - (___kont242572242573_))))) - (___kont242572242573_))))))) + _tl234954235016_)) + (___match243895243896_ + _e234841235403_ + _hd234840235406_ + _tl234839235408_ + _e234956235011_ + _hd234955235014_ + _tl234954235016_ + _e234959235019_ + _hd234958235022_ + _tl234957235024_ + _e234962235027_ + _hd234961235030_ + _tl234960235032_ + _e234965235035_ + _hd234964235038_ + _tl234963235040_ + _e234968235043_ + _hd234967235046_ + _tl234966235048_ + _e234971235051_ + _hd234970235054_ + _tl234969235056_ + _e234974235059_ + _hd234973235062_ + _tl234972235064_ + _e234977235067_ + _hd234976235070_ + _tl234975235072_ + _e234980235075_ + _hd234979235078_ + _tl234978235080_ + _e234983235083_ + _hd234982235086_ + _tl234981235088_ + _e234986235091_ + _hd234985235094_ + _tl234984235096_) + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)) + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)))) + (___kont243770243771_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont243770243771_)) + (___kont243770243771_)))) + (___kont243770243771_)))) + (___kont243770243771_))))) + (___kont243770243771_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_form233116_) - (let* ((___stx242700242701_ _form233116_) - (_g233120233244_ + (lambda (_form234297_) + (let* ((___stx243898243899_ _form234297_) + (_g234301234425_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242700242701_))))) - (let ((___kont242702242703_ - (lambda (_L233614_ _L233615_ _L233616_) + ___stx243898243899_))))) + (let ((___kont243900243901_ + (lambda (_L234795_ _L234796_ _L234797_) (let () (declare (not safe)) - (gxc#identifier-symbol _L233615_)))) - (___kont242708242709_ - (lambda (_L233462_ _L233463_ _L233464_ _L233465_) + (gxc#identifier-symbol _L234796_)))) + (___kont243906243907_ + (lambda (_L234643_ _L234644_ _L234645_ _L234646_) (let () (declare (not safe)) - (gxc#identifier-symbol _L233462_)))) - (___kont242712242713_ - (lambda (_L233329_ _L233330_ _L233331_) + (gxc#identifier-symbol _L234643_)))) + (___kont243910243911_ + (lambda (_L234510_ _L234511_ _L234512_) (let () (declare (not safe)) - (gxc#identifier-symbol _L233329_))))) - (let* ((___match242809242810_ - (lambda (_e233212233249_ - _hd233211233252_ - _tl233210233254_ - _e233215233257_ - _hd233214233260_ - _tl233213233262_ - _e233218233265_ - _hd233217233268_ - _tl233216233270_ - _e233221233273_ - _hd233220233276_ - _tl233219233278_ - _e233224233281_ - _hd233223233284_ - _tl233222233286_ - _e233227233289_ - _hd233226233292_ - _tl233225233294_ - _e233230233297_ - _hd233229233300_ - _tl233228233302_ - _e233233233305_ - _hd233232233308_ - _tl233231233310_ - _e233236233313_ - _hd233235233316_ - _tl233234233318_) + (gxc#identifier-symbol _L234510_))))) + (let* ((___match244007244008_ + (lambda (_e234393234430_ + _hd234392234433_ + _tl234391234435_ + _e234396234438_ + _hd234395234441_ + _tl234394234443_ + _e234399234446_ + _hd234398234449_ + _tl234397234451_ + _e234402234454_ + _hd234401234457_ + _tl234400234459_ + _e234405234462_ + _hd234404234465_ + _tl234403234467_ + _e234408234470_ + _hd234407234473_ + _tl234406234475_ + _e234411234478_ + _hd234410234481_ + _tl234409234483_ + _e234414234486_ + _hd234413234489_ + _tl234412234491_ + _e234417234494_ + _hd234416234497_ + _tl234415234499_) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233228233302_)) - (let ((_e233239233321_ + (gx#stx-pair? _tl234409234483_)) + (let ((_e234420234502_ (let () (declare (not safe)) - (gx#stx-e _tl233228233302_)))) - (let ((_tl233237233326_ + (gx#stx-e _tl234409234483_)))) + (let ((_tl234418234507_ (let () (declare (not safe)) - (##cdr _e233239233321_))) - (_hd233238233324_ + (##cdr _e234420234502_))) + (_hd234419234505_ (let () (declare (not safe)) - (##car _e233239233321_)))) + (##car _e234420234502_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233237233326_)) + (gx#stx-null? _tl234418234507_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl233213233262_)) - (___kont242712242713_ - _hd233235233316_ - _hd233226233292_ - _hd233211233252_) + (gx#stx-null? _tl234394234443_)) + (___kont243910243911_ + _hd234416234497_ + _hd234407234473_ + _hd234392234433_) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) - (let () (declare (not safe)) (_g233120233244_))))) - (___match242739242740_ - (lambda (_e233173233366_ - _hd233172233369_ - _tl233171233371_ - ___splice242710242711_ - _target233174233374_ - _tl233176233376_) - (letrec ((_loop233177233379_ - (lambda (_hd233175233382_ _arg233181233384_) + (_g234301234425_))))) + (let () (declare (not safe)) (_g234301234425_))))) + (___match243937243938_ + (lambda (_e234354234547_ + _hd234353234550_ + _tl234352234552_ + ___splice243908243909_ + _target234355234555_ + _tl234357234557_) + (letrec ((_loop234358234560_ + (lambda (_hd234356234563_ _arg234362234565_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233175233382_)) - (let ((_e233178233387_ + (gx#stx-pair? _hd234356234563_)) + (let ((_e234359234568_ (let () (declare (not safe)) - (gx#stx-e _hd233175233382_)))) - (let ((_lp-tl233180233392_ + (gx#stx-e _hd234356234563_)))) + (let ((_lp-tl234361234573_ (let () (declare (not safe)) - (##cdr _e233178233387_))) - (_lp-hd233179233390_ + (##cdr _e234359234568_))) + (_lp-hd234360234571_ (let () (declare (not safe)) - (##car _e233178233387_)))) - (let ((__tmp243964 + (##car _e234359234568_)))) + (let ((__tmp245162 (let () (declare (not safe)) - (cons _lp-hd233179233390_ - _arg233181233384_)))) + (cons _lp-hd234360234571_ + _arg234362234565_)))) (declare (not safe)) - (_loop233177233379_ - _lp-tl233180233392_ - __tmp243964)))) - (let ((_arg233182233395_ - (reverse _arg233181233384_))) + (_loop234358234560_ + _lp-tl234361234573_ + __tmp245162)))) + (let ((_arg234363234576_ + (reverse _arg234362234565_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233171233371_)) - (let ((_e233185233398_ + (gx#stx-pair? _tl234352234552_)) + (let ((_e234366234579_ (let () (declare (not safe)) (gx#stx-e - _tl233171233371_)))) - (let ((_tl233183233403_ + _tl234352234552_)))) + (let ((_tl234364234584_ (let () (declare (not safe)) - (##cdr _e233185233398_))) - (_hd233184233401_ + (##cdr _e234366234579_))) + (_hd234365234582_ (let () (declare (not safe)) - (##car _e233185233398_)))) + (##car _e234366234579_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233184233401_)) - (let ((_e233188233406_ + _hd234365234582_)) + (let ((_e234369234587_ (let () (declare (not safe)) (gx#stx-e - _hd233184233401_)))) - (let ((_tl233186233411_ + _hd234365234582_)))) + (let ((_tl234367234592_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233188233406_))) - (_hd233187233409_ - (let () (declare (not safe)) (##car _e233188233406_)))) + (##cdr _e234369234587_))) + (_hd234368234590_ + (let () (declare (not safe)) (##car _e234369234587_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233187233409_)) + (gx#identifier? _hd234368234590_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd233187233409_)) + (gx#stx-eq? '%#call _hd234368234590_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233186233411_)) - (let ((_e233191233414_ + (gx#stx-pair? _tl234367234592_)) + (let ((_e234372234595_ (let () (declare (not safe)) - (gx#stx-e _tl233186233411_)))) - (let ((_tl233189233419_ + (gx#stx-e _tl234367234592_)))) + (let ((_tl234370234600_ (let () (declare (not safe)) - (##cdr _e233191233414_))) - (_hd233190233417_ + (##cdr _e234372234595_))) + (_hd234371234598_ (let () (declare (not safe)) - (##car _e233191233414_)))) + (##car _e234372234595_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233190233417_)) - (let ((_e233194233422_ + (gx#stx-pair? _hd234371234598_)) + (let ((_e234375234603_ (let () (declare (not safe)) - (gx#stx-e _hd233190233417_)))) - (let ((_tl233192233427_ + (gx#stx-e _hd234371234598_)))) + (let ((_tl234373234608_ (let () (declare (not safe)) - (##cdr _e233194233422_))) - (_hd233193233425_ + (##cdr _e234375234603_))) + (_hd234374234606_ (let () (declare (not safe)) - (##car _e233194233422_)))) + (##car _e234375234603_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233193233425_)) + _hd234374234606_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233193233425_)) + _hd234374234606_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233192233427_)) - (let ((_e233197233430_ + _tl234373234608_)) + (let ((_e234378234611_ (let () (declare (not safe)) (gx#stx-e - _tl233192233427_)))) - (let ((_tl233195233435_ + _tl234373234608_)))) + (let ((_tl234376234616_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233197233430_))) - (_hd233196233433_ - (let () (declare (not safe)) (##car _e233197233430_)))) + (##cdr _e234378234611_))) + (_hd234377234614_ + (let () (declare (not safe)) (##car _e234378234611_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233195233435_)) + (gx#stx-null? _tl234376234616_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233189233419_)) - (let ((_e233200233438_ + (gx#stx-pair? _tl234370234600_)) + (let ((_e234381234619_ (let () (declare (not safe)) - (gx#stx-e _tl233189233419_)))) - (let ((_tl233198233443_ + (gx#stx-e _tl234370234600_)))) + (let ((_tl234379234624_ (let () (declare (not safe)) - (##cdr _e233200233438_))) - (_hd233199233441_ + (##cdr _e234381234619_))) + (_hd234380234622_ (let () (declare (not safe)) - (##car _e233200233438_)))) + (##car _e234381234619_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233199233441_)) - (let ((_e233203233446_ + (gx#stx-pair? _hd234380234622_)) + (let ((_e234384234627_ (let () (declare (not safe)) - (gx#stx-e _hd233199233441_)))) - (let ((_tl233201233451_ + (gx#stx-e _hd234380234622_)))) + (let ((_tl234382234632_ (let () (declare (not safe)) - (##cdr _e233203233446_))) - (_hd233202233449_ + (##cdr _e234384234627_))) + (_hd234383234630_ (let () (declare (not safe)) - (##car _e233203233446_)))) + (##car _e234384234627_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233202233449_)) + (gx#identifier? _hd234383234630_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233202233449_)) + _hd234383234630_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233201233451_)) - (let ((_e233206233454_ + _tl234382234632_)) + (let ((_e234387234635_ (let () (declare (not safe)) (gx#stx-e - _tl233201233451_)))) - (let ((_tl233204233459_ + _tl234382234632_)))) + (let ((_tl234385234640_ (let () (declare (not safe)) - (##cdr _e233206233454_))) - (_hd233205233457_ + (##cdr _e234387234635_))) + (_hd234386234638_ (let () (declare (not safe)) - (##car _e233206233454_)))) + (##car _e234387234635_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233204233459_)) + _tl234385234640_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233183233403_)) - (___kont242708242709_ - _hd233205233457_ - _hd233196233433_ - _tl233176233376_ - _arg233182233395_) - (___match242809242810_ - _e233173233366_ - _hd233172233369_ - _tl233171233371_ - _e233185233398_ - _hd233184233401_ - _tl233183233403_ - _e233188233406_ - _hd233187233409_ - _tl233186233411_ - _e233191233414_ - _hd233190233417_ - _tl233189233419_ - _e233194233422_ - _hd233193233425_ - _tl233192233427_ - _e233197233430_ - _hd233196233433_ - _tl233195233435_ - _e233200233438_ - _hd233199233441_ - _tl233198233443_ - _e233203233446_ - _hd233202233449_ - _tl233201233451_ - _e233206233454_ - _hd233205233457_ - _tl233204233459_)) + _tl234364234584_)) + (___kont243906243907_ + _hd234386234638_ + _hd234377234614_ + _tl234357234557_ + _arg234363234576_) + (___match244007244008_ + _e234354234547_ + _hd234353234550_ + _tl234352234552_ + _e234366234579_ + _hd234365234582_ + _tl234364234584_ + _e234369234587_ + _hd234368234590_ + _tl234367234592_ + _e234372234595_ + _hd234371234598_ + _tl234370234600_ + _e234375234603_ + _hd234374234606_ + _tl234373234608_ + _e234378234611_ + _hd234377234614_ + _tl234376234616_ + _e234381234619_ + _hd234380234622_ + _tl234379234624_ + _e234384234627_ + _hd234383234630_ + _tl234382234632_ + _e234387234635_ + _hd234386234638_ + _tl234385234640_)) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_))))) - (let () (declare (not safe)) (_g233120233244_))) - (let () (declare (not safe)) (_g233120233244_))))) + (_g234301234425_))))) + (let () (declare (not safe)) (_g234301234425_))) + (let () (declare (not safe)) (_g234301234425_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_))))) - (let () (declare (not safe)) (_g233120233244_))) - (let () (declare (not safe)) (_g233120233244_))) - (let () (declare (not safe)) (_g233120233244_))))) + (_g234301234425_))))) + (let () (declare (not safe)) (_g234301234425_))) + (let () (declare (not safe)) (_g234301234425_))) + (let () (declare (not safe)) (_g234301234425_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_)))))))) + (_g234301234425_)))))))) (let () (declare (not safe)) - (_loop233177233379_ _target233174233374_ '()))))) - (___match242727242728_ - (lambda (_e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_) - (letrec ((_loop233131233515_ - (lambda (_hd233129233518_ _arg233135233520_) + (_loop234358234560_ _target234355234555_ '()))))) + (___match243925243926_ + (lambda (_e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_) + (letrec ((_loop234312234696_ + (lambda (_hd234310234699_ _arg234316234701_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233129233518_)) - (let ((_e233132233523_ + (gx#stx-pair? _hd234310234699_)) + (let ((_e234313234704_ (let () (declare (not safe)) - (gx#stx-e _hd233129233518_)))) - (let ((_lp-tl233134233528_ + (gx#stx-e _hd234310234699_)))) + (let ((_lp-tl234315234709_ (let () (declare (not safe)) - (##cdr _e233132233523_))) - (_lp-hd233133233526_ + (##cdr _e234313234704_))) + (_lp-hd234314234707_ (let () (declare (not safe)) - (##car _e233132233523_)))) - (let ((__tmp243966 + (##car _e234313234704_)))) + (let ((__tmp245164 (let () (declare (not safe)) - (cons _lp-hd233133233526_ - _arg233135233520_)))) + (cons _lp-hd234314234707_ + _arg234316234701_)))) (declare (not safe)) - (_loop233131233515_ - _lp-tl233134233528_ - __tmp243966)))) - (let ((_arg233136233531_ - (reverse _arg233135233520_))) + (_loop234312234696_ + _lp-tl234315234709_ + __tmp245164)))) + (let ((_arg234317234712_ + (reverse _arg234316234701_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233125233507_)) - (let ((_e233139233534_ + (gx#stx-pair? _tl234306234688_)) + (let ((_e234320234715_ (let () (declare (not safe)) (gx#stx-e - _tl233125233507_)))) - (let ((_tl233137233539_ + _tl234306234688_)))) + (let ((_tl234318234720_ (let () (declare (not safe)) - (##cdr _e233139233534_))) - (_hd233138233537_ + (##cdr _e234320234715_))) + (_hd234319234718_ (let () (declare (not safe)) - (##car _e233139233534_)))) + (##car _e234320234715_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233138233537_)) - (let ((_e233142233542_ + _hd234319234718_)) + (let ((_e234323234723_ (let () (declare (not safe)) (gx#stx-e - _hd233138233537_)))) - (let ((_tl233140233547_ + _hd234319234718_)))) + (let ((_tl234321234728_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233142233542_))) - (_hd233141233545_ - (let () (declare (not safe)) (##car _e233142233542_)))) + (##cdr _e234323234723_))) + (_hd234322234726_ + (let () (declare (not safe)) (##car _e234323234723_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233141233545_)) + (gx#identifier? _hd234322234726_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd233141233545_)) + (gx#stx-eq? '%#call _hd234322234726_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233140233547_)) - (let ((_e233145233550_ + (gx#stx-pair? _tl234321234728_)) + (let ((_e234326234731_ (let () (declare (not safe)) - (gx#stx-e _tl233140233547_)))) - (let ((_tl233143233555_ + (gx#stx-e _tl234321234728_)))) + (let ((_tl234324234736_ (let () (declare (not safe)) - (##cdr _e233145233550_))) - (_hd233144233553_ + (##cdr _e234326234731_))) + (_hd234325234734_ (let () (declare (not safe)) - (##car _e233145233550_)))) + (##car _e234326234731_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233144233553_)) - (let ((_e233148233558_ + (gx#stx-pair? _hd234325234734_)) + (let ((_e234329234739_ (let () (declare (not safe)) - (gx#stx-e _hd233144233553_)))) - (let ((_tl233146233563_ + (gx#stx-e _hd234325234734_)))) + (let ((_tl234327234744_ (let () (declare (not safe)) - (##cdr _e233148233558_))) - (_hd233147233561_ + (##cdr _e234329234739_))) + (_hd234328234742_ (let () (declare (not safe)) - (##car _e233148233558_)))) + (##car _e234329234739_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233147233561_)) + _hd234328234742_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd233147233561_)) + _hd234328234742_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233146233563_)) - (let ((_e233151233566_ + _tl234327234744_)) + (let ((_e234332234747_ (let () (declare (not safe)) (gx#stx-e - _tl233146233563_)))) - (let ((_tl233149233571_ + _tl234327234744_)))) + (let ((_tl234330234752_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e233151233566_))) - (_hd233150233569_ - (let () (declare (not safe)) (##car _e233151233566_)))) + (##cdr _e234332234747_))) + (_hd234331234750_ + (let () (declare (not safe)) (##car _e234332234747_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233149233571_)) + (gx#stx-null? _tl234330234752_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl233143233555_)) - (let ((___splice242706242707_ + (gx#stx-pair/null? _tl234324234736_)) + (let ((___splice243904243905_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl233143233555_ + _tl234324234736_ '0)))) - (let ((_tl233154233576_ + (let ((_tl234335234757_ (let () (declare (not safe)) - (##vector-ref ___splice242706242707_ '1))) - (_target233152233574_ + (##vector-ref ___splice243904243905_ '1))) + (_target234333234755_ (let () (declare (not safe)) - (##vector-ref ___splice242706242707_ '0)))) + (##vector-ref ___splice243904243905_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233154233576_)) - (letrec ((_loop233155233579_ - (lambda (_hd233153233582_ - _xarg233159233584_) + (gx#stx-null? _tl234335234757_)) + (letrec ((_loop234336234760_ + (lambda (_hd234334234763_ + _xarg234340234765_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233153233582_)) - (let ((_e233156233587_ + _hd234334234763_)) + (let ((_e234337234768_ (let () (declare (not safe)) (gx#stx-e - _hd233153233582_)))) - (let ((_lp-tl233158233592_ + _hd234334234763_)))) + (let ((_lp-tl234339234773_ (let () (declare (not safe)) - (##cdr _e233156233587_))) - (_lp-hd233157233590_ + (##cdr _e234337234768_))) + (_lp-hd234338234771_ (let () (declare (not safe)) - (##car _e233156233587_)))) + (##car _e234337234768_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd233157233590_)) - (let ((_e233163233595_ + _lp-hd234338234771_)) + (let ((_e234344234776_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _lp-hd233157233590_)))) - (let ((_tl233161233600_ - (let () (declare (not safe)) (##cdr _e233163233595_))) - (_hd233162233598_ + (gx#stx-e _lp-hd234338234771_)))) + (let ((_tl234342234781_ + (let () (declare (not safe)) (##cdr _e234344234776_))) + (_hd234343234779_ (let () (declare (not safe)) - (##car _e233163233595_)))) + (##car _e234344234776_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233162233598_)) + (gx#identifier? _hd234343234779_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233162233598_)) + (gx#stx-eq? '%#ref _hd234343234779_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233161233600_)) - (let ((_e233166233603_ + (gx#stx-pair? _tl234342234781_)) + (let ((_e234347234784_ (let () (declare (not safe)) - (gx#stx-e _tl233161233600_)))) - (let ((_tl233164233608_ + (gx#stx-e _tl234342234781_)))) + (let ((_tl234345234789_ (let () (declare (not safe)) - (##cdr _e233166233603_))) - (_hd233165233606_ + (##cdr _e234347234784_))) + (_hd234346234787_ (let () (declare (not safe)) - (##car _e233166233603_)))) + (##car _e234347234784_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233164233608_)) - (let ((__tmp243965 + (gx#stx-null? _tl234345234789_)) + (let ((__tmp245163 (let () (declare (not safe)) - (cons _hd233165233606_ - _xarg233159233584_)))) + (cons _hd234346234787_ + _xarg234340234765_)))) (declare (not safe)) - (_loop233155233579_ - _lp-tl233158233592_ - __tmp243965)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_xarg233160233611_ - (reverse _xarg233159233584_))) + (_loop234336234760_ + _lp-tl234339234773_ + __tmp245163)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_xarg234341234792_ + (reverse _xarg234340234765_))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233137233539_)) - (___kont242702242703_ - _xarg233160233611_ - _hd233150233569_ - _arg233136233531_) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_))))))) + _tl234318234720_)) + (___kont243900243901_ + _xarg234341234792_ + _hd234331234750_ + _arg234317234712_) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_))))))) (let () (declare (not safe)) - (_loop233155233579_ - _target233152233574_ + (_loop234336234760_ + _target234333234755_ '()))) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_))))))) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_))))))) (let () (declare (not safe)) - (_loop233131233515_ _target233128233510_ '())))))) + (_loop234312234696_ _target234309234691_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242700242701_)) - (let ((_e233127233502_ + (gx#stx-pair? ___stx243898243899_)) + (let ((_e234308234683_ (let () (declare (not safe)) - (gx#stx-e ___stx242700242701_)))) - (let ((_tl233125233507_ + (gx#stx-e ___stx243898243899_)))) + (let ((_tl234306234688_ (let () (declare (not safe)) - (##cdr _e233127233502_))) - (_hd233126233505_ + (##cdr _e234308234683_))) + (_hd234307234686_ (let () (declare (not safe)) - (##car _e233127233502_)))) + (##car _e234308234683_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd233126233505_)) - (let ((___splice242704242705_ + (gx#stx-pair/null? _hd234307234686_)) + (let ((___splice243902243903_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd233126233505_ + _hd234307234686_ '0)))) - (let ((_tl233130233512_ + (let ((_tl234311234693_ (let () (declare (not safe)) - (##vector-ref ___splice242704242705_ '1))) - (_target233128233510_ + (##vector-ref ___splice243902243903_ '1))) + (_target234309234691_ (let () (declare (not safe)) (##vector-ref - ___splice242704242705_ + ___splice243902243903_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233130233512_)) - (___match242727242728_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_) - (___match242739242740_ - _e233127233502_ - _hd233126233505_ - _tl233125233507_ - ___splice242704242705_ - _target233128233510_ - _tl233130233512_)))) + (gx#stx-null? _tl234311234693_)) + (___match243925243926_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_) + (___match243937243938_ + _e234308234683_ + _hd234307234686_ + _tl234306234688_ + ___splice243902243903_ + _target234309234691_ + _tl234311234693_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233125233507_)) - (let ((_e233215233257_ + (gx#stx-pair? _tl234306234688_)) + (let ((_e234396234438_ (let () (declare (not safe)) - (gx#stx-e _tl233125233507_)))) - (let ((_tl233213233262_ + (gx#stx-e _tl234306234688_)))) + (let ((_tl234394234443_ (let () (declare (not safe)) - (##cdr _e233215233257_))) - (_hd233214233260_ + (##cdr _e234396234438_))) + (_hd234395234441_ (let () (declare (not safe)) - (##car _e233215233257_)))) + (##car _e234396234438_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233214233260_)) - (let ((_e233218233265_ + (gx#stx-pair? _hd234395234441_)) + (let ((_e234399234446_ (let () (declare (not safe)) - (gx#stx-e _hd233214233260_)))) - (let ((_tl233216233270_ + (gx#stx-e _hd234395234441_)))) + (let ((_tl234397234451_ (let () (declare (not safe)) - (##cdr _e233218233265_))) - (_hd233217233268_ + (##cdr _e234399234446_))) + (_hd234398234449_ (let () (declare (not safe)) - (##car _e233218233265_)))) + (##car _e234399234446_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd233217233268_)) + _hd234398234449_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd233217233268_)) + _hd234398234449_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233216233270_)) - (let ((_e233221233273_ + _tl234397234451_)) + (let ((_e234402234454_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl233216233270_)))) - (let ((_tl233219233278_ - (let () (declare (not safe)) (##cdr _e233221233273_))) - (_hd233220233276_ - (let () (declare (not safe)) (##car _e233221233273_)))) + (gx#stx-e _tl234397234451_)))) + (let ((_tl234400234459_ + (let () (declare (not safe)) (##cdr _e234402234454_))) + (_hd234401234457_ + (let () (declare (not safe)) (##car _e234402234454_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd233220233276_)) - (let ((_e233224233281_ + (gx#stx-pair? _hd234401234457_)) + (let ((_e234405234462_ (let () (declare (not safe)) - (gx#stx-e _hd233220233276_)))) - (let ((_tl233222233286_ + (gx#stx-e _hd234401234457_)))) + (let ((_tl234403234467_ (let () (declare (not safe)) - (##cdr _e233224233281_))) - (_hd233223233284_ + (##cdr _e234405234462_))) + (_hd234404234465_ (let () (declare (not safe)) - (##car _e233224233281_)))) + (##car _e234405234462_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233223233284_)) + (gx#identifier? _hd234404234465_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233223233284_)) + (gx#stx-eq? '%#ref _hd234404234465_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233222233286_)) - (let ((_e233227233289_ + (gx#stx-pair? _tl234403234467_)) + (let ((_e234408234470_ (let () (declare (not safe)) - (gx#stx-e _tl233222233286_)))) - (let ((_tl233225233294_ + (gx#stx-e _tl234403234467_)))) + (let ((_tl234406234475_ (let () (declare (not safe)) - (##cdr _e233227233289_))) - (_hd233226233292_ + (##cdr _e234408234470_))) + (_hd234407234473_ (let () (declare (not safe)) - (##car _e233227233289_)))) + (##car _e234408234470_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233225233294_)) + _tl234406234475_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233219233278_)) - (let ((_e233230233297_ + _tl234400234459_)) + (let ((_e234411234478_ (let () (declare (not safe)) (gx#stx-e - _tl233219233278_)))) - (let ((_tl233228233302_ + _tl234400234459_)))) + (let ((_tl234409234483_ (let () (declare (not safe)) - (##cdr _e233230233297_))) - (_hd233229233300_ + (##cdr _e234411234478_))) + (_hd234410234481_ (let () (declare (not safe)) - (##car _e233230233297_)))) + (##car _e234411234478_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd233229233300_)) - (let ((_e233233233305_ + _hd234410234481_)) + (let ((_e234414234486_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd233229233300_)))) - (let ((_tl233231233310_ + (gx#stx-e _hd234410234481_)))) + (let ((_tl234412234491_ (let () (declare (not safe)) - (##cdr _e233233233305_))) - (_hd233232233308_ + (##cdr _e234414234486_))) + (_hd234413234489_ (let () (declare (not safe)) - (##car _e233233233305_)))) + (##car _e234414234486_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd233232233308_)) + (gx#identifier? _hd234413234489_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd233232233308_)) + (gx#stx-eq? '%#ref _hd234413234489_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl233231233310_)) - (let ((_e233236233313_ + (gx#stx-pair? _tl234412234491_)) + (let ((_e234417234494_ (let () (declare (not safe)) - (gx#stx-e _tl233231233310_)))) - (let ((_tl233234233318_ + (gx#stx-e _tl234412234491_)))) + (let ((_tl234415234499_ (let () (declare (not safe)) - (##cdr _e233236233313_))) - (_hd233235233316_ + (##cdr _e234417234494_))) + (_hd234416234497_ (let () (declare (not safe)) - (##car _e233236233313_)))) + (##car _e234417234494_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl233234233318_)) + (gx#stx-null? _tl234415234499_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl233228233302_)) - (let ((_e233239233321_ + _tl234409234483_)) + (let ((_e234420234502_ (let () (declare (not safe)) (gx#stx-e - _tl233228233302_)))) - (let ((_tl233237233326_ + _tl234409234483_)))) + (let ((_tl234418234507_ (let () (declare (not safe)) - (##cdr _e233239233321_))) - (_hd233238233324_ + (##cdr _e234420234502_))) + (_hd234419234505_ (let () (declare (not safe)) - (##car _e233239233321_)))) + (##car _e234420234502_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl233237233326_)) + _tl234418234507_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl233213233262_)) - (___kont242712242713_ - _hd233235233316_ - _hd233226233292_ - _hd233126233505_) + _tl234394234443_)) + (___kont243910243911_ + _hd234416234497_ + _hd234407234473_ + _hd234307234686_) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_))) - (let () (declare (not safe)) (_g233120233244_))) - (let () (declare (not safe)) (_g233120233244_))))) - (let () (declare (not safe)) (_g233120233244_))))) + (_g234301234425_))) + (let () (declare (not safe)) (_g234301234425_))) + (let () (declare (not safe)) (_g234301234425_))))) + (let () (declare (not safe)) (_g234301234425_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) - (let () (declare (not safe)) (_g233120233244_))))) - (let () (declare (not safe)) (_g233120233244_))) + (_g234301234425_))))) + (let () (declare (not safe)) (_g234301234425_))))) + (let () (declare (not safe)) (_g234301234425_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g233120233244_))) + (_g234301234425_))) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_))))) + (_g234301234425_))))) (let () (declare (not safe)) - (_g233120233244_)))))) - (let () (declare (not safe)) (_g233120233244_)))))))) + (_g234301234425_)))))) + (let () (declare (not safe)) (_g234301234425_)))))))) (define gxc#lambda-form-arity - (lambda (_form232920_) - (let* ((_g232922232936_ - (lambda (_g232923232933_) + (lambda (_form234101_) + (let* ((_g234103234117_ + (lambda (_g234104234114_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g232923232933_)))) - (_g232921233113_ - (lambda (_g232923232939_) + _g234104234114_)))) + (_g234102234294_ + (lambda (_g234104234120_) (if (let () (declare (not safe)) - (gx#stx-pair? _g232923232939_)) - (let ((_e232928232941_ + (gx#stx-pair? _g234104234120_)) + (let ((_e234109234122_ (let () (declare (not safe)) - (gx#stx-e _g232923232939_)))) - (let ((_hd232927232944_ + (gx#stx-e _g234104234120_)))) + (let ((_hd234108234125_ (let () (declare (not safe)) - (##car _e232928232941_))) - (_tl232926232946_ + (##car _e234109234122_))) + (_tl234107234127_ (let () (declare (not safe)) - (##cdr _e232928232941_)))) + (##cdr _e234109234122_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232926232946_)) - (let ((_e232931232949_ + (gx#stx-pair? _tl234107234127_)) + (let ((_e234112234130_ (let () (declare (not safe)) - (gx#stx-e _tl232926232946_)))) - (let ((_hd232930232952_ + (gx#stx-e _tl234107234127_)))) + (let ((_hd234111234133_ (let () (declare (not safe)) - (##car _e232931232949_))) - (_tl232929232954_ + (##car _e234112234130_))) + (_tl234110234135_ (let () (declare (not safe)) - (##cdr _e232931232949_)))) + (##cdr _e234112234130_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232929232954_)) - ((lambda (_L232957_ _L232958_) - (let* ((___stx242822242823_ _L232958_) - (_g232973233001_ + (gx#stx-null? _tl234110234135_)) + ((lambda (_L234138_ _L234139_) + (let* ((___stx244020244021_ _L234139_) + (_g234154234182_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242822242823_))))) - (let ((___kont242824242825_ - (lambda (_L233092_) - (length (let ((__tmp243967 + ___stx244020244021_))))) + (let ((___kont244022244023_ + (lambda (_L234273_) + (length (let ((__tmp245165 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g233102233105_ _g233103233107_) + (lambda (_g234283234286_ _g234284234288_) (let () (declare (not safe)) - (cons _g233102233105_ _g233103233107_))))) + (cons _g234283234286_ _g234284234288_))))) (declare (not safe)) - (foldr1 __tmp243967 '() _L233092_))))) + (foldr1 __tmp245165 '() _L234273_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242828242829_ - (lambda (_L233043_ _L233044_) - (let ((__tmp243968 - (length (let ((__tmp243969 + (___kont244026244027_ + (lambda (_L234224_ _L234225_) + (let ((__tmp245166 + (length (let ((__tmp245167 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g233055233058_ _g233056233060_) + (lambda (_g234236234239_ _g234237234241_) (let () (declare (not safe)) - (cons _g233055233058_ - _g233056233060_))))) + (cons _g234236234239_ + _g234237234241_))))) (declare (not safe)) - (foldr1 __tmp243969 '() _L233044_))))) + (foldr1 __tmp245167 '() _L234225_))))) (declare (not safe)) - (cons __tmp243968 '())))) + (cons __tmp245166 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242832242833_ - (lambda (_L233006_) + (___kont244030244031_ + (lambda (_L234187_) (let () (declare (not safe)) (cons '0 '()))))) - (let* ((___match242847242848_ - (lambda (___splice242830242831_ - _target232987233019_ - _tl232989233021_) - (letrec ((_loop232990233024_ + (let* ((___match244045244046_ + (lambda (___splice244028244029_ + _target234168234200_ + _tl234170234202_) + (letrec ((_loop234171234205_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd232988233027_ _arg232994233029_) + (lambda (_hd234169234208_ _arg234175234210_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232988233027_)) - (let ((_e232991233032_ + (gx#stx-pair? _hd234169234208_)) + (let ((_e234172234213_ (let () (declare (not safe)) - (gx#stx-e _hd232988233027_)))) - (let ((_lp-tl232993233037_ + (gx#stx-e _hd234169234208_)))) + (let ((_lp-tl234174234218_ (let () (declare (not safe)) - (##cdr _e232991233032_))) - (_lp-hd232992233035_ + (##cdr _e234172234213_))) + (_lp-hd234173234216_ (let () (declare (not safe)) - (##car _e232991233032_)))) - (let ((__tmp243970 + (##car _e234172234213_)))) + (let ((__tmp245168 (let () (declare (not safe)) - (cons _lp-hd232992233035_ - _arg232994233029_)))) + (cons _lp-hd234173234216_ + _arg234175234210_)))) (declare (not safe)) - (_loop232990233024_ - _lp-tl232993233037_ - __tmp243970)))) - (let ((_arg232995233040_ - (reverse _arg232994233029_))) - (___kont242828242829_ - _tl232989233021_ - _arg232995233040_)))))) + (_loop234171234205_ + _lp-tl234174234218_ + __tmp245168)))) + (let ((_arg234176234221_ + (reverse _arg234175234210_))) + (___kont244026244027_ + _tl234170234202_ + _arg234176234221_)))))) (let () (declare (not safe)) - (_loop232990233024_ _target232987233019_ '()))))) + (_loop234171234205_ _target234168234200_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match242841242842_ - (lambda (___splice242826242827_ - _target232976233068_ - _tl232978233070_) - (letrec ((_loop232979233073_ + (___match244039244040_ + (lambda (___splice244024244025_ + _target234157234249_ + _tl234159234251_) + (letrec ((_loop234160234254_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd232977233076_ _arg232983233078_) + (lambda (_hd234158234257_ _arg234164234259_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232977233076_)) - (let ((_e232980233081_ + (gx#stx-pair? _hd234158234257_)) + (let ((_e234161234262_ (let () (declare (not safe)) - (gx#stx-e _hd232977233076_)))) - (let ((_lp-tl232982233086_ + (gx#stx-e _hd234158234257_)))) + (let ((_lp-tl234163234267_ (let () (declare (not safe)) - (##cdr _e232980233081_))) - (_lp-hd232981233084_ + (##cdr _e234161234262_))) + (_lp-hd234162234265_ (let () (declare (not safe)) - (##car _e232980233081_)))) - (let ((__tmp243971 + (##car _e234161234262_)))) + (let ((__tmp245169 (let () (declare (not safe)) - (cons _lp-hd232981233084_ - _arg232983233078_)))) + (cons _lp-hd234162234265_ + _arg234164234259_)))) (declare (not safe)) - (_loop232979233073_ - _lp-tl232982233086_ - __tmp243971)))) - (let ((_arg232984233089_ - (reverse _arg232983233078_))) - (___kont242824242825_ _arg232984233089_)))))) + (_loop234160234254_ + _lp-tl234163234267_ + __tmp245169)))) + (let ((_arg234165234270_ + (reverse _arg234164234259_))) + (___kont244022244023_ _arg234165234270_)))))) (let () (declare (not safe)) - (_loop232979233073_ _target232976233068_ '())))))) + (_loop234160234254_ _target234157234249_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - ___stx242822242823_)) - (let ((___splice242826242827_ + ___stx244020244021_)) + (let ((___splice244024244025_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx242822242823_ + ___stx244020244021_ '0)))) - (let ((_tl232978233070_ + (let ((_tl234159234251_ (let () (declare (not safe)) (##vector-ref - ___splice242826242827_ + ___splice244024244025_ '1))) - (_target232976233068_ + (_target234157234249_ (let () (declare (not safe)) (##vector-ref - ___splice242826242827_ + ___splice244024244025_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232978233070_)) - (___match242841242842_ - ___splice242826242827_ - _target232976233068_ - _tl232978233070_) - (___match242847242848_ - ___splice242826242827_ - _target232976233068_ - _tl232978233070_)))) - (___kont242832242833_ - ___stx242822242823_)))))) - _hd232930232952_ - _hd232927232944_) + _tl234159234251_)) + (___match244039244040_ + ___splice244024244025_ + _target234157234249_ + _tl234159234251_) + (___match244045244046_ + ___splice244024244025_ + _target234157234249_ + _tl234159234251_)))) + (___kont244030244031_ + ___stx244020244021_)))))) + _hd234111234133_ + _hd234108234125_) (let () (declare (not safe)) - (_g232922232936_ _g232923232939_))))) + (_g234103234117_ _g234104234120_))))) (let () (declare (not safe)) - (_g232922232936_ _g232923232939_))))) + (_g234103234117_ _g234104234120_))))) (let () (declare (not safe)) - (_g232922232936_ _g232923232939_)))))) + (_g234103234117_ _g234104234120_)))))) (declare (not safe)) - (_g232921233113_ _form232920_)))) + (_g234102234294_ _form234101_)))) (define gxc#lambda-expr? - (lambda (_expr232873_) - (let* ((___stx242850242851_ _expr232873_) - (_g232876232886_ + (lambda (_expr234054_) + (let* ((___stx244048244049_ _expr234054_) + (_g234057234067_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242850242851_))))) - (let ((___kont242852242853_ (lambda (_L232906_) '#t)) - (___kont242854242855_ (lambda () '#f))) + ___stx244048244049_))))) + (let ((___kont244050244051_ (lambda (_L234087_) '#t)) + (___kont244052244053_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242850242851_)) - (let ((_e232881232898_ + (gx#stx-pair? ___stx244048244049_)) + (let ((_e234062234079_ (let () (declare (not safe)) - (gx#stx-e ___stx242850242851_)))) - (let ((_tl232879232903_ - (let () (declare (not safe)) (##cdr _e232881232898_))) - (_hd232880232901_ + (gx#stx-e ___stx244048244049_)))) + (let ((_tl234060234084_ + (let () (declare (not safe)) (##cdr _e234062234079_))) + (_hd234061234082_ (let () (declare (not safe)) - (##car _e232881232898_)))) + (##car _e234062234079_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232880232901_)) + (gx#identifier? _hd234061234082_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd232880232901_)) - (___kont242852242853_ _tl232879232903_) - (___kont242854242855_)) - (___kont242854242855_)))) - (___kont242854242855_)))))) + (gx#stx-eq? '%#lambda _hd234061234082_)) + (___kont244050244051_ _tl234060234084_) + (___kont244052244053_)) + (___kont244052244053_)))) + (___kont244052244053_)))))) (define gxc#case-lambda-expr? - (lambda (_expr232826_) - (let* ((___stx242868242869_ _expr232826_) - (_g232829232839_ + (lambda (_expr234007_) + (let* ((___stx244066244067_ _expr234007_) + (_g234010234020_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242868242869_))))) - (let ((___kont242870242871_ (lambda (_L232859_) '#t)) - (___kont242872242873_ (lambda () '#f))) + ___stx244066244067_))))) + (let ((___kont244068244069_ (lambda (_L234040_) '#t)) + (___kont244070244071_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242868242869_)) - (let ((_e232834232851_ + (gx#stx-pair? ___stx244066244067_)) + (let ((_e234015234032_ (let () (declare (not safe)) - (gx#stx-e ___stx242868242869_)))) - (let ((_tl232832232856_ - (let () (declare (not safe)) (##cdr _e232834232851_))) - (_hd232833232854_ + (gx#stx-e ___stx244066244067_)))) + (let ((_tl234013234037_ + (let () (declare (not safe)) (##cdr _e234015234032_))) + (_hd234014234035_ (let () (declare (not safe)) - (##car _e232834232851_)))) + (##car _e234015234032_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232833232854_)) + (gx#identifier? _hd234014234035_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _hd232833232854_)) - (___kont242870242871_ _tl232832232856_) - (___kont242872242873_)) - (___kont242872242873_)))) - (___kont242872242873_)))))) + (gx#stx-eq? '%#case-lambda _hd234014234035_)) + (___kont244068244069_ _tl234013234037_) + (___kont244070244071_)) + (___kont244070244071_)))) + (___kont244070244071_)))))) (define gxc#opt-lambda-expr? - (lambda (_expr232695_) - (let* ((___stx242886242887_ _expr232695_) - (_g232698232728_ + (lambda (_expr233876_) + (let* ((___stx244084244085_ _expr233876_) + (_g233879233909_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242886242887_))))) - (let ((___kont242888242889_ - (lambda (_L232796_ _L232797_ _L232798_) - (if (let () (declare (not safe)) (gx#identifier? _L232798_)) + ___stx244084244085_))))) + (let ((___kont244086244087_ + (lambda (_L233977_ _L233978_ _L233979_) + (if (let () (declare (not safe)) (gx#identifier? _L233979_)) (if (let () (declare (not safe)) - (gxc#lambda-expr? _L232797_)) + (gxc#lambda-expr? _L233978_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L232796_)) + (gxc#case-lambda-expr? _L233977_)) '#f) '#f))) - (___kont242890242891_ (lambda () '#f))) + (___kont244088244089_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242886242887_)) - (let ((_e232705232740_ + (gx#stx-pair? ___stx244084244085_)) + (let ((_e233886233921_ (let () (declare (not safe)) - (gx#stx-e ___stx242886242887_)))) - (let ((_tl232703232745_ - (let () (declare (not safe)) (##cdr _e232705232740_))) - (_hd232704232743_ + (gx#stx-e ___stx244084244085_)))) + (let ((_tl233884233926_ + (let () (declare (not safe)) (##cdr _e233886233921_))) + (_hd233885233924_ (let () (declare (not safe)) - (##car _e232705232740_)))) + (##car _e233886233921_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232704232743_)) + (gx#identifier? _hd233885233924_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd232704232743_)) + (gx#stx-eq? '%#let-values _hd233885233924_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232703232745_)) - (let ((_e232708232748_ + (gx#stx-pair? _tl233884233926_)) + (let ((_e233889233929_ (let () (declare (not safe)) - (gx#stx-e _tl232703232745_)))) - (let ((_tl232706232753_ + (gx#stx-e _tl233884233926_)))) + (let ((_tl233887233934_ (let () (declare (not safe)) - (##cdr _e232708232748_))) - (_hd232707232751_ + (##cdr _e233889233929_))) + (_hd233888233932_ (let () (declare (not safe)) - (##car _e232708232748_)))) + (##car _e233889233929_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232707232751_)) - (let ((_e232711232756_ + (gx#stx-pair? _hd233888233932_)) + (let ((_e233892233937_ (let () (declare (not safe)) - (gx#stx-e _hd232707232751_)))) - (let ((_tl232709232761_ + (gx#stx-e _hd233888233932_)))) + (let ((_tl233890233942_ (let () (declare (not safe)) - (##cdr _e232711232756_))) - (_hd232710232759_ + (##cdr _e233892233937_))) + (_hd233891233940_ (let () (declare (not safe)) - (##car _e232711232756_)))) + (##car _e233892233937_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232710232759_)) - (let ((_e232714232764_ + _hd233891233940_)) + (let ((_e233895233945_ (let () (declare (not safe)) (gx#stx-e - _hd232710232759_)))) - (let ((_tl232712232769_ + _hd233891233940_)))) + (let ((_tl233893233950_ (let () (declare (not safe)) - (##cdr _e232714232764_))) - (_hd232713232767_ + (##cdr _e233895233945_))) + (_hd233894233948_ (let () (declare (not safe)) - (##car _e232714232764_)))) + (##car _e233895233945_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232713232767_)) - (let ((_e232717232772_ + _hd233894233948_)) + (let ((_e233898233953_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd232713232767_)))) - (let ((_tl232715232777_ - (let () (declare (not safe)) (##cdr _e232717232772_))) - (_hd232716232775_ + (gx#stx-e _hd233894233948_)))) + (let ((_tl233896233958_ + (let () (declare (not safe)) (##cdr _e233898233953_))) + (_hd233897233956_ (let () (declare (not safe)) - (##car _e232717232772_)))) + (##car _e233898233953_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232715232777_)) + (gx#stx-null? _tl233896233958_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232712232769_)) - (let ((_e232720232780_ + (gx#stx-pair? _tl233893233950_)) + (let ((_e233901233961_ (let () (declare (not safe)) - (gx#stx-e _tl232712232769_)))) - (let ((_tl232718232785_ + (gx#stx-e _tl233893233950_)))) + (let ((_tl233899233966_ (let () (declare (not safe)) - (##cdr _e232720232780_))) - (_hd232719232783_ + (##cdr _e233901233961_))) + (_hd233900233964_ (let () (declare (not safe)) - (##car _e232720232780_)))) + (##car _e233901233961_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232718232785_)) + (gx#stx-null? _tl233899233966_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl232709232761_)) + (gx#stx-null? _tl233890233942_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232706232753_)) - (let ((_e232723232788_ + (gx#stx-pair? _tl233887233934_)) + (let ((_e233904233969_ (let () (declare (not safe)) (gx#stx-e - _tl232706232753_)))) - (let ((_tl232721232793_ + _tl233887233934_)))) + (let ((_tl233902233974_ (let () (declare (not safe)) - (##cdr _e232723232788_))) - (_hd232722232791_ + (##cdr _e233904233969_))) + (_hd233903233972_ (let () (declare (not safe)) - (##car _e232723232788_)))) + (##car _e233904233969_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232721232793_)) - (___kont242888242889_ - _hd232722232791_ - _hd232719232783_ - _hd232716232775_) - (___kont242890242891_)))) - (___kont242890242891_)) - (___kont242890242891_)) - (___kont242890242891_)))) - (___kont242890242891_)) - (___kont242890242891_)))) - (___kont242890242891_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242890242891_)))) - (___kont242890242891_)))) - (___kont242890242891_)) - (___kont242890242891_)) - (___kont242890242891_)))) - (___kont242890242891_)))))) + _tl233902233974_)) + (___kont244086244087_ + _hd233903233972_ + _hd233900233964_ + _hd233897233956_) + (___kont244088244089_)))) + (___kont244088244089_)) + (___kont244088244089_)) + (___kont244088244089_)))) + (___kont244088244089_)) + (___kont244088244089_)))) + (___kont244088244089_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244088244089_)))) + (___kont244088244089_)))) + (___kont244088244089_)) + (___kont244088244089_)) + (___kont244088244089_)))) + (___kont244088244089_)))))) (define gxc#kw-lambda-expr? - (lambda (_expr232020_) - (let* ((___stx242948242949_ _expr232020_) - (_g232023232181_ + (lambda (_expr233201_) + (let* ((___stx244146244147_ _expr233201_) + (_g233204233362_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx242948242949_))))) - (let ((___kont242950242951_ - (lambda (_L232569_ - _L232570_ - _L232571_ - _L232572_ - _L232573_ - _L232574_ - _L232575_ - _L232576_ - _L232577_ - _L232578_ - _L232579_) + ___stx244146244147_))))) + (let ((___kont244148244149_ + (lambda (_L233750_ + _L233751_ + _L233752_ + _L233753_ + _L233754_ + _L233755_ + _L233756_ + _L233757_ + _L233758_ + _L233759_ + _L233760_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L232576_ 'apply)) + (gxc#runtime-identifier=? _L233757_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _L232572_ 'apply)) + (gxc#runtime-identifier=? _L233753_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L232571_ + _L233752_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L232579_ - _L232570_)) + _L233760_ + _L233751_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L232578_ - _L232575_)) + _L233759_ + _L233756_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _L232573_ - _L232569_)) + _L233754_ + _L233750_)) (let () (declare (not safe)) (gx#free-identifier=? - _L232577_ - _L232574_)) + _L233758_ + _L233755_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (___kont242952242953_ (lambda () '#f))) + (___kont244150244151_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx242948242949_)) - (let ((_e232038232193_ + (gx#stx-pair? ___stx244146244147_)) + (let ((_e233219233374_ (let () (declare (not safe)) - (gx#stx-e ___stx242948242949_)))) - (let ((_tl232036232198_ - (let () (declare (not safe)) (##cdr _e232038232193_))) - (_hd232037232196_ + (gx#stx-e ___stx244146244147_)))) + (let ((_tl233217233379_ + (let () (declare (not safe)) (##cdr _e233219233374_))) + (_hd233218233377_ (let () (declare (not safe)) - (##car _e232038232193_)))) + (##car _e233219233374_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232037232196_)) + (gx#identifier? _hd233218233377_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _hd232037232196_)) + (gx#stx-eq? '%#let-values _hd233218233377_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232036232198_)) - (let ((_e232041232201_ + (gx#stx-pair? _tl233217233379_)) + (let ((_e233222233382_ (let () (declare (not safe)) - (gx#stx-e _tl232036232198_)))) - (let ((_tl232039232206_ + (gx#stx-e _tl233217233379_)))) + (let ((_tl233220233387_ (let () (declare (not safe)) - (##cdr _e232041232201_))) - (_hd232040232204_ + (##cdr _e233222233382_))) + (_hd233221233385_ (let () (declare (not safe)) - (##car _e232041232201_)))) + (##car _e233222233382_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232040232204_)) - (let ((_e232044232209_ + (gx#stx-pair? _hd233221233385_)) + (let ((_e233225233390_ (let () (declare (not safe)) - (gx#stx-e _hd232040232204_)))) - (let ((_tl232042232214_ + (gx#stx-e _hd233221233385_)))) + (let ((_tl233223233395_ (let () (declare (not safe)) - (##cdr _e232044232209_))) - (_hd232043232212_ + (##cdr _e233225233390_))) + (_hd233224233393_ (let () (declare (not safe)) - (##car _e232044232209_)))) + (##car _e233225233390_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232043232212_)) - (let ((_e232047232217_ + _hd233224233393_)) + (let ((_e233228233398_ (let () (declare (not safe)) (gx#stx-e - _hd232043232212_)))) - (let ((_tl232045232222_ + _hd233224233393_)))) + (let ((_tl233226233403_ (let () (declare (not safe)) - (##cdr _e232047232217_))) - (_hd232046232220_ + (##cdr _e233228233398_))) + (_hd233227233401_ (let () (declare (not safe)) - (##car _e232047232217_)))) + (##car _e233228233398_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232046232220_)) - (let ((_e232050232225_ + _hd233227233401_)) + (let ((_e233231233406_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd232046232220_)))) - (let ((_tl232048232230_ - (let () (declare (not safe)) (##cdr _e232050232225_))) - (_hd232049232228_ + (gx#stx-e _hd233227233401_)))) + (let ((_tl233229233411_ + (let () (declare (not safe)) (##cdr _e233231233406_))) + (_hd233230233409_ (let () (declare (not safe)) - (##car _e232050232225_)))) + (##car _e233231233406_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232048232230_)) + (gx#stx-null? _tl233229233411_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232045232222_)) - (let ((_e232053232233_ + (gx#stx-pair? _tl233226233403_)) + (let ((_e233234233414_ (let () (declare (not safe)) - (gx#stx-e _tl232045232222_)))) - (let ((_tl232051232238_ + (gx#stx-e _tl233226233403_)))) + (let ((_tl233232233419_ (let () (declare (not safe)) - (##cdr _e232053232233_))) - (_hd232052232236_ + (##cdr _e233234233414_))) + (_hd233233233417_ (let () (declare (not safe)) - (##car _e232053232233_)))) + (##car _e233234233414_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232052232236_)) - (let ((_e232056232241_ + (gx#stx-pair? _hd233233233417_)) + (let ((_e233237233422_ (let () (declare (not safe)) - (gx#stx-e _hd232052232236_)))) - (let ((_tl232054232246_ + (gx#stx-e _hd233233233417_)))) + (let ((_tl233235233427_ (let () (declare (not safe)) - (##cdr _e232056232241_))) - (_hd232055232244_ + (##cdr _e233237233422_))) + (_hd233236233425_ (let () (declare (not safe)) - (##car _e232056232241_)))) + (##car _e233237233422_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd232055232244_)) + _hd233236233425_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _hd232055232244_)) + _hd233236233425_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232054232246_)) - (let ((_e232059232249_ + _tl233235233427_)) + (let ((_e233240233430_ (let () (declare (not safe)) (gx#stx-e - _tl232054232246_)))) - (let ((_tl232057232254_ + _tl233235233427_)))) + (let ((_tl233238233435_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e232059232249_))) - (_hd232058232252_ - (let () (declare (not safe)) (##car _e232059232249_)))) + (##cdr _e233240233430_))) + (_hd233239233433_ + (let () (declare (not safe)) (##car _e233240233430_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232058232252_)) - (let ((_e232062232257_ + (gx#stx-pair? _hd233239233433_)) + (let ((_e233243233438_ (let () (declare (not safe)) - (gx#stx-e _hd232058232252_)))) - (let ((_tl232060232262_ + (gx#stx-e _hd233239233433_)))) + (let ((_tl233241233443_ (let () (declare (not safe)) - (##cdr _e232062232257_))) - (_hd232061232260_ + (##cdr _e233243233438_))) + (_hd233242233441_ (let () (declare (not safe)) - (##car _e232062232257_)))) + (##car _e233243233438_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232061232260_)) - (let ((_e232065232265_ + (gx#stx-pair? _hd233242233441_)) + (let ((_e233246233446_ (let () (declare (not safe)) - (gx#stx-e _hd232061232260_)))) - (let ((_tl232063232270_ + (gx#stx-e _hd233242233441_)))) + (let ((_tl233244233451_ (let () (declare (not safe)) - (##cdr _e232065232265_))) - (_hd232064232268_ + (##cdr _e233246233446_))) + (_hd233245233449_ (let () (declare (not safe)) - (##car _e232065232265_)))) + (##car _e233246233446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232064232268_)) - (let ((_e232068232273_ + (gx#stx-pair? _hd233245233449_)) + (let ((_e233249233454_ (let () (declare (not safe)) - (gx#stx-e _hd232064232268_)))) - (let ((_tl232066232278_ + (gx#stx-e _hd233245233449_)))) + (let ((_tl233247233459_ (let () (declare (not safe)) - (##cdr _e232068232273_))) - (_hd232067232276_ + (##cdr _e233249233454_))) + (_hd233248233457_ (let () (declare (not safe)) - (##car _e232068232273_)))) + (##car _e233249233454_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232066232278_)) + (gx#stx-null? _tl233247233459_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232063232270_)) - (let ((_e232071232281_ + _tl233244233451_)) + (let ((_e233252233462_ (let () (declare (not safe)) (gx#stx-e - _tl232063232270_)))) - (let ((_tl232069232286_ + _tl233244233451_)))) + (let ((_tl233250233467_ (let () (declare (not safe)) - (##cdr _e232071232281_))) - (_hd232070232284_ + (##cdr _e233252233462_))) + (_hd233251233465_ (let () (declare (not safe)) - (##car _e232071232281_)))) + (##car _e233252233462_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232069232286_)) + _tl233250233467_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232060232262_)) + _tl233241233443_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl232057232254_)) - (let ((_e232074232289_ + (gx#stx-pair? _tl233238233435_)) + (let ((_e233255233470_ (let () (declare (not safe)) - (gx#stx-e _tl232057232254_)))) - (let ((_tl232072232294_ + (gx#stx-e _tl233238233435_)))) + (let ((_tl233253233475_ (let () (declare (not safe)) - (##cdr _e232074232289_))) - (_hd232073232292_ + (##cdr _e233255233470_))) + (_hd233254233473_ (let () (declare (not safe)) - (##car _e232074232289_)))) + (##car _e233255233470_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232073232292_)) - (let ((_e232077232297_ + (gx#stx-pair? _hd233254233473_)) + (let ((_e233258233478_ (let () (declare (not safe)) - (gx#stx-e _hd232073232292_)))) - (let ((_tl232075232302_ + (gx#stx-e _hd233254233473_)))) + (let ((_tl233256233483_ (let () (declare (not safe)) - (##cdr _e232077232297_))) - (_hd232076232300_ + (##cdr _e233258233478_))) + (_hd233257233481_ (let () (declare (not safe)) - (##car _e232077232297_)))) + (##car _e233258233478_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232076232300_)) + (gx#identifier? _hd233257233481_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _hd232076232300_)) + _hd233257233481_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232075232302_)) - (let ((_e232080232305_ + _tl233256233483_)) + (let ((_e233261233486_ (let () (declare (not safe)) (gx#stx-e - _tl232075232302_)))) - (let ((_tl232078232310_ + _tl233256233483_)))) + (let ((_tl233259233491_ (let () (declare (not safe)) - (##cdr _e232080232305_))) - (_hd232079232308_ + (##cdr _e233261233486_))) + (_hd233260233489_ (let () (declare (not safe)) - (##car _e232080232305_)))) + (##car _e233261233486_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232079232308_)) - (let ((_e232083232313_ + _hd233260233489_)) + (let ((_e233264233494_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd232079232308_)))) - (let ((_tl232081232318_ - (let () (declare (not safe)) (##cdr _e232083232313_))) - (_hd232082232316_ + (gx#stx-e _hd233260233489_)))) + (let ((_tl233262233499_ + (let () (declare (not safe)) (##cdr _e233264233494_))) + (_hd233263233497_ (let () (declare (not safe)) - (##car _e232083232313_)))) + (##car _e233264233494_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232078232310_)) - (let ((_e232086232321_ + (gx#stx-pair? _tl233259233491_)) + (let ((_e233267233502_ (let () (declare (not safe)) - (gx#stx-e _tl232078232310_)))) - (let ((_tl232084232326_ + (gx#stx-e _tl233259233491_)))) + (let ((_tl233265233507_ (let () (declare (not safe)) - (##cdr _e232086232321_))) - (_hd232085232324_ + (##cdr _e233267233502_))) + (_hd233266233505_ (let () (declare (not safe)) - (##car _e232086232321_)))) + (##car _e233267233502_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232085232324_)) - (let ((_e232089232329_ + (gx#stx-pair? _hd233266233505_)) + (let ((_e233270233510_ (let () (declare (not safe)) - (gx#stx-e _hd232085232324_)))) - (let ((_tl232087232334_ + (gx#stx-e _hd233266233505_)))) + (let ((_tl233268233515_ (let () (declare (not safe)) - (##cdr _e232089232329_))) - (_hd232088232332_ + (##cdr _e233270233510_))) + (_hd233269233513_ (let () (declare (not safe)) - (##car _e232089232329_)))) + (##car _e233270233510_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232088232332_)) + (gx#identifier? _hd233269233513_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _hd232088232332_)) + _hd233269233513_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232087232334_)) - (let ((_e232092232337_ + _tl233268233515_)) + (let ((_e233273233518_ (let () (declare (not safe)) (gx#stx-e - _tl232087232334_)))) - (let ((_tl232090232342_ + _tl233268233515_)))) + (let ((_tl233271233523_ (let () (declare (not safe)) - (##cdr _e232092232337_))) - (_hd232091232340_ + (##cdr _e233273233518_))) + (_hd233272233521_ (let () (declare (not safe)) - (##car _e232092232337_)))) + (##car _e233273233518_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232091232340_)) - (let ((_e232095232345_ + _hd233272233521_)) + (let ((_e233276233526_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd232091232340_)))) - (let ((_tl232093232350_ - (let () (declare (not safe)) (##cdr _e232095232345_))) - (_hd232094232348_ + (gx#stx-e _hd233272233521_)))) + (let ((_tl233274233531_ + (let () (declare (not safe)) (##cdr _e233276233526_))) + (_hd233275233529_ (let () (declare (not safe)) - (##car _e232095232345_)))) + (##car _e233276233526_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232094232348_)) + (gx#identifier? _hd233275233529_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232094232348_)) + (gx#stx-eq? '%#ref _hd233275233529_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232093232350_)) - (let ((_e232098232353_ + (gx#stx-pair? _tl233274233531_)) + (let ((_e233279233534_ (let () (declare (not safe)) - (gx#stx-e _tl232093232350_)))) - (let ((_tl232096232358_ + (gx#stx-e _tl233274233531_)))) + (let ((_tl233277233539_ (let () (declare (not safe)) - (##cdr _e232098232353_))) - (_hd232097232356_ + (##cdr _e233279233534_))) + (_hd233278233537_ (let () (declare (not safe)) - (##car _e232098232353_)))) + (##car _e233279233534_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232096232358_)) + (gx#stx-null? _tl233277233539_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232090232342_)) - (let ((_e232101232361_ + (gx#stx-pair? _tl233271233523_)) + (let ((_e233282233542_ (let () (declare (not safe)) (gx#stx-e - _tl232090232342_)))) - (let ((_tl232099232366_ + _tl233271233523_)))) + (let ((_tl233280233547_ (let () (declare (not safe)) - (##cdr _e232101232361_))) - (_hd232100232364_ + (##cdr _e233282233542_))) + (_hd233281233545_ (let () (declare (not safe)) - (##car _e232101232361_)))) + (##car _e233282233542_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232100232364_)) - (let ((_e232104232369_ + _hd233281233545_)) + (let ((_e233285233550_ (let () (declare (not safe)) (gx#stx-e - _hd232100232364_)))) - (let ((_tl232102232374_ + _hd233281233545_)))) + (let ((_tl233283233555_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e232104232369_))) - (_hd232103232372_ - (let () (declare (not safe)) (##car _e232104232369_)))) + (##cdr _e233285233550_))) + (_hd233284233553_ + (let () (declare (not safe)) (##car _e233285233550_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232103232372_)) + (gx#identifier? _hd233284233553_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232103232372_)) + (gx#stx-eq? '%#ref _hd233284233553_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232102232374_)) - (let ((_e232107232377_ + (gx#stx-pair? _tl233283233555_)) + (let ((_e233288233558_ (let () (declare (not safe)) - (gx#stx-e _tl232102232374_)))) - (let ((_tl232105232382_ + (gx#stx-e _tl233283233555_)))) + (let ((_tl233286233563_ (let () (declare (not safe)) - (##cdr _e232107232377_))) - (_hd232106232380_ + (##cdr _e233288233558_))) + (_hd233287233561_ (let () (declare (not safe)) - (##car _e232107232377_)))) + (##car _e233288233558_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232105232382_)) + (gx#stx-null? _tl233286233563_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232099232366_)) - (let ((_e232110232385_ + (gx#stx-pair? _tl233280233547_)) + (let ((_e233291233566_ (let () (declare (not safe)) - (gx#stx-e _tl232099232366_)))) - (let ((_tl232108232390_ + (gx#stx-e _tl233280233547_)))) + (let ((_tl233289233571_ (let () (declare (not safe)) - (##cdr _e232110232385_))) - (_hd232109232388_ + (##cdr _e233291233566_))) + (_hd233290233569_ (let () (declare (not safe)) - (##car _e232110232385_)))) + (##car _e233291233566_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232109232388_)) - (let ((_e232113232393_ + _hd233290233569_)) + (let ((_e233294233574_ (let () (declare (not safe)) (gx#stx-e - _hd232109232388_)))) - (let ((_tl232111232398_ + _hd233290233569_)))) + (let ((_tl233292233579_ (let () (declare (not safe)) - (##cdr _e232113232393_))) - (_hd232112232396_ + (##cdr _e233294233574_))) + (_hd233293233577_ (let () (declare (not safe)) - (##car _e232113232393_)))) + (##car _e233294233574_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd232112232396_)) + _hd233293233577_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd232112232396_)) + _hd233293233577_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl232111232398_)) - (let ((_e232116232401_ + (gx#stx-pair? _tl233292233579_)) + (let ((_e233297233582_ (let () (declare (not safe)) - (gx#stx-e _tl232111232398_)))) - (let ((_tl232114232406_ + (gx#stx-e _tl233292233579_)))) + (let ((_tl233295233587_ (let () (declare (not safe)) - (##cdr _e232116232401_))) - (_hd232115232404_ + (##cdr _e233297233582_))) + (_hd233296233585_ (let () (declare (not safe)) - (##car _e232116232401_)))) + (##car _e233297233582_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232114232406_)) + (gx#stx-null? _tl233295233587_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl232084232326_)) + (gx#stx-null? _tl233265233507_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl232072232294_)) + (gx#stx-null? _tl233253233475_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl232051232238_)) + (gx#stx-null? _tl233232233419_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232042232214_)) + _tl233223233395_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232039232206_)) - (let ((_e232119232409_ + _tl233220233387_)) + (let ((_e233300233590_ (let () (declare (not safe)) (gx#stx-e - _tl232039232206_)))) - (let ((_tl232117232414_ + _tl233220233387_)))) + (let ((_tl233298233595_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e232119232409_))) - (_hd232118232412_ - (let () (declare (not safe)) (##car _e232119232409_)))) + (##cdr _e233300233590_))) + (_hd233299233593_ + (let () (declare (not safe)) (##car _e233300233590_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232118232412_)) - (let ((_e232122232417_ + (gx#stx-pair? _hd233299233593_)) + (let ((_e233303233598_ (let () (declare (not safe)) - (gx#stx-e _hd232118232412_)))) - (let ((_tl232120232422_ + (gx#stx-e _hd233299233593_)))) + (let ((_tl233301233603_ (let () (declare (not safe)) - (##cdr _e232122232417_))) - (_hd232121232420_ + (##cdr _e233303233598_))) + (_hd233302233601_ (let () (declare (not safe)) - (##car _e232122232417_)))) + (##car _e233303233598_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232121232420_)) + (gx#identifier? _hd233302233601_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _hd232121232420_)) + (gx#stx-eq? '%#lambda _hd233302233601_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232120232422_)) - (let ((_e232125232425_ + (gx#stx-pair? _tl233301233603_)) + (let ((_e233306233606_ (let () (declare (not safe)) - (gx#stx-e _tl232120232422_)))) - (let ((_tl232123232430_ + (gx#stx-e _tl233301233603_)))) + (let ((_tl233304233611_ (let () (declare (not safe)) - (##cdr _e232125232425_))) - (_hd232124232428_ + (##cdr _e233306233606_))) + (_hd233305233609_ (let () (declare (not safe)) - (##car _e232125232425_)))) + (##car _e233306233606_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232123232430_)) - (let ((_e232128232433_ + (gx#stx-pair? _tl233304233611_)) + (let ((_e233309233614_ (let () (declare (not safe)) (gx#stx-e - _tl232123232430_)))) - (let ((_tl232126232438_ + _tl233304233611_)))) + (let ((_tl233307233619_ (let () (declare (not safe)) - (##cdr _e232128232433_))) - (_hd232127232436_ + (##cdr _e233309233614_))) + (_hd233308233617_ (let () (declare (not safe)) - (##car _e232128232433_)))) + (##car _e233309233614_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd232127232436_)) - (let ((_e232131232441_ + _hd233308233617_)) + (let ((_e233312233622_ (let () (declare (not safe)) (gx#stx-e - _hd232127232436_)))) - (let ((_tl232129232446_ + _hd233308233617_)))) + (let ((_tl233310233627_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e232131232441_))) - (_hd232130232444_ - (let () (declare (not safe)) (##car _e232131232441_)))) + (##cdr _e233312233622_))) + (_hd233311233625_ + (let () (declare (not safe)) (##car _e233312233622_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232130232444_)) + (gx#identifier? _hd233311233625_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _hd232130232444_)) + (gx#stx-eq? '%#call _hd233311233625_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232129232446_)) - (let ((_e232134232449_ + (gx#stx-pair? _tl233310233627_)) + (let ((_e233315233630_ (let () (declare (not safe)) - (gx#stx-e _tl232129232446_)))) - (let ((_tl232132232454_ + (gx#stx-e _tl233310233627_)))) + (let ((_tl233313233635_ (let () (declare (not safe)) - (##cdr _e232134232449_))) - (_hd232133232452_ + (##cdr _e233315233630_))) + (_hd233314233633_ (let () (declare (not safe)) - (##car _e232134232449_)))) + (##car _e233315233630_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232133232452_)) - (let ((_e232137232457_ + (gx#stx-pair? _hd233314233633_)) + (let ((_e233318233638_ (let () (declare (not safe)) - (gx#stx-e _hd232133232452_)))) - (let ((_tl232135232462_ + (gx#stx-e _hd233314233633_)))) + (let ((_tl233316233643_ (let () (declare (not safe)) - (##cdr _e232137232457_))) - (_hd232136232460_ + (##cdr _e233318233638_))) + (_hd233317233641_ (let () (declare (not safe)) - (##car _e232137232457_)))) + (##car _e233318233638_)))) (if (let () (declare (not safe)) (gx#identifier? - _hd232136232460_)) + _hd233317233641_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd232136232460_)) + _hd233317233641_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232135232462_)) - (let ((_e232140232465_ + _tl233316233643_)) + (let ((_e233321233646_ (let () (declare (not safe)) (gx#stx-e - _tl232135232462_)))) - (let ((_tl232138232470_ + _tl233316233643_)))) + (let ((_tl233319233651_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e232140232465_))) - (_hd232139232468_ - (let () (declare (not safe)) (##car _e232140232465_)))) + (##cdr _e233321233646_))) + (_hd233320233649_ + (let () (declare (not safe)) (##car _e233321233646_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232138232470_)) + (gx#stx-null? _tl233319233651_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232132232454_)) - (let ((_e232143232473_ + (gx#stx-pair? _tl233313233635_)) + (let ((_e233324233654_ (let () (declare (not safe)) - (gx#stx-e _tl232132232454_)))) - (let ((_tl232141232478_ + (gx#stx-e _tl233313233635_)))) + (let ((_tl233322233659_ (let () (declare (not safe)) - (##cdr _e232143232473_))) - (_hd232142232476_ + (##cdr _e233324233654_))) + (_hd233323233657_ (let () (declare (not safe)) - (##car _e232143232473_)))) + (##car _e233324233654_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232142232476_)) - (let ((_e232146232481_ + (gx#stx-pair? _hd233323233657_)) + (let ((_e233327233662_ (let () (declare (not safe)) - (gx#stx-e _hd232142232476_)))) - (let ((_tl232144232486_ + (gx#stx-e _hd233323233657_)))) + (let ((_tl233325233667_ (let () (declare (not safe)) - (##cdr _e232146232481_))) - (_hd232145232484_ + (##cdr _e233327233662_))) + (_hd233326233665_ (let () (declare (not safe)) - (##car _e232146232481_)))) + (##car _e233327233662_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232145232484_)) + (gx#identifier? _hd233326233665_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd232145232484_)) + _hd233326233665_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232144232486_)) - (let ((_e232149232489_ + _tl233325233667_)) + (let ((_e233330233670_ (let () (declare (not safe)) (gx#stx-e - _tl232144232486_)))) - (let ((_tl232147232494_ + _tl233325233667_)))) + (let ((_tl233328233675_ (let () (declare (not safe)) - (##cdr _e232149232489_))) - (_hd232148232492_ + (##cdr _e233330233670_))) + (_hd233329233673_ (let () (declare (not safe)) - (##car _e232149232489_)))) + (##car _e233330233670_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232147232494_)) + _tl233328233675_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232141232478_)) - (let ((_e232152232497_ + _tl233322233659_)) + (let ((_e233333233678_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl232141232478_)))) - (let ((_tl232150232502_ + (gx#stx-e _tl233322233659_)))) + (let ((_tl233331233683_ (let () (declare (not safe)) - (##cdr _e232152232497_))) - (_hd232151232500_ + (##cdr _e233333233678_))) + (_hd233332233681_ (let () (declare (not safe)) - (##car _e232152232497_)))) + (##car _e233333233678_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232151232500_)) - (let ((_e232155232505_ + (gx#stx-pair? _hd233332233681_)) + (let ((_e233336233686_ (let () (declare (not safe)) - (gx#stx-e _hd232151232500_)))) - (let ((_tl232153232510_ + (gx#stx-e _hd233332233681_)))) + (let ((_tl233334233691_ (let () (declare (not safe)) - (##cdr _e232155232505_))) - (_hd232154232508_ + (##cdr _e233336233686_))) + (_hd233335233689_ (let () (declare (not safe)) - (##car _e232155232505_)))) + (##car _e233336233686_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232154232508_)) + (gx#identifier? _hd233335233689_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _hd232154232508_)) + _hd233335233689_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232153232510_)) - (let ((_e232158232513_ + (gx#stx-pair? _tl233334233691_)) + (let ((_e233339233694_ (let () (declare (not safe)) (gx#stx-e - _tl232153232510_)))) - (let ((_tl232156232518_ + _tl233334233691_)))) + (let ((_tl233337233699_ (let () (declare (not safe)) - (##cdr _e232158232513_))) - (_hd232157232516_ + (##cdr _e233339233694_))) + (_hd233338233697_ (let () (declare (not safe)) - (##car _e232158232513_)))) + (##car _e233339233694_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232156232518_)) + _tl233337233699_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232150232502_)) - (let ((_e232161232521_ + _tl233331233683_)) + (let ((_e233342233702_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _tl232150232502_)))) - (let ((_tl232159232526_ - (let () (declare (not safe)) (##cdr _e232161232521_))) - (_hd232160232524_ + (gx#stx-e _tl233331233683_)))) + (let ((_tl233340233707_ + (let () (declare (not safe)) (##cdr _e233342233702_))) + (_hd233341233705_ (let () (declare (not safe)) - (##car _e232161232521_)))) + (##car _e233342233702_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232160232524_)) - (let ((_e232164232529_ + (gx#stx-pair? _hd233341233705_)) + (let ((_e233345233710_ (let () (declare (not safe)) - (gx#stx-e _hd232160232524_)))) - (let ((_tl232162232534_ + (gx#stx-e _hd233341233705_)))) + (let ((_tl233343233715_ (let () (declare (not safe)) - (##cdr _e232164232529_))) - (_hd232163232532_ + (##cdr _e233345233710_))) + (_hd233344233713_ (let () (declare (not safe)) - (##car _e232164232529_)))) + (##car _e233345233710_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232163232532_)) + (gx#identifier? _hd233344233713_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232163232532_)) + (gx#stx-eq? '%#ref _hd233344233713_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232162232534_)) - (let ((_e232167232537_ + (gx#stx-pair? _tl233343233715_)) + (let ((_e233348233718_ (let () (declare (not safe)) - (gx#stx-e _tl232162232534_)))) - (let ((_tl232165232542_ + (gx#stx-e _tl233343233715_)))) + (let ((_tl233346233723_ (let () (declare (not safe)) - (##cdr _e232167232537_))) - (_hd232166232540_ + (##cdr _e233348233718_))) + (_hd233347233721_ (let () (declare (not safe)) - (##car _e232167232537_)))) + (##car _e233348233718_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl232165232542_)) + _tl233346233723_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl232159232526_)) - (let ((_e232170232545_ + _tl233340233707_)) + (let ((_e233351233726_ (let () (declare (not safe)) (gx#stx-e - _tl232159232526_)))) - (let ((_tl232168232550_ + _tl233340233707_)))) + (let ((_tl233349233731_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e232170232545_))) - (_hd232169232548_ - (let () (declare (not safe)) (##car _e232170232545_)))) + (##cdr _e233351233726_))) + (_hd233350233729_ + (let () (declare (not safe)) (##car _e233351233726_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd232169232548_)) - (let ((_e232173232553_ + (gx#stx-pair? _hd233350233729_)) + (let ((_e233354233734_ (let () (declare (not safe)) - (gx#stx-e _hd232169232548_)))) - (let ((_tl232171232558_ + (gx#stx-e _hd233350233729_)))) + (let ((_tl233352233739_ (let () (declare (not safe)) - (##cdr _e232173232553_))) - (_hd232172232556_ + (##cdr _e233354233734_))) + (_hd233353233737_ (let () (declare (not safe)) - (##car _e232173232553_)))) + (##car _e233354233734_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd232172232556_)) + (gx#identifier? _hd233353233737_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd232172232556_)) + (gx#stx-eq? '%#ref _hd233353233737_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl232171232558_)) - (let ((_e232176232561_ + (gx#stx-pair? _tl233352233739_)) + (let ((_e233357233742_ (let () (declare (not safe)) - (gx#stx-e _tl232171232558_)))) - (let ((_tl232174232566_ + (gx#stx-e _tl233352233739_)))) + (let ((_tl233355233747_ (let () (declare (not safe)) - (##cdr _e232176232561_))) - (_hd232175232564_ + (##cdr _e233357233742_))) + (_hd233356233745_ (let () (declare (not safe)) - (##car _e232176232561_)))) + (##car _e233357233742_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl232174232566_)) + (gx#stx-null? _tl233355233747_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232168232550_)) + _tl233349233731_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232126232438_)) + _tl233307233619_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl232117232414_)) - (___kont242950242951_ - _hd232175232564_ - _hd232166232540_ - _hd232148232492_ - _hd232139232468_ - _hd232124232428_ - _hd232115232404_ - _hd232106232380_ - _hd232097232356_ - _hd232082232316_ - _hd232067232276_ - _hd232049232228_) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont242952242953_)))) - (___kont242952242953_)))) - (___kont242952242953_)) - (___kont242952242953_)) - (___kont242952242953_)))) - (___kont242952242953_)))))) + _tl233298233595_)) + (___kont244148244149_ + _hd233356233745_ + _hd233347233721_ + _hd233329233673_ + _hd233320233649_ + _hd233305233609_ + _hd233296233585_ + _hd233287233561_ + _hd233278233537_ + _hd233263233497_ + _hd233248233457_ + _hd233230233409_) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244150244151_)))) + (___kont244150244151_)))) + (___kont244150244151_)) + (___kont244150244151_)) + (___kont244150244151_)))) + (___kont244150244151_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_stx231762_ _id231763_ _clauses231764_ _gensym?231765_) - (let _lp231767_ ((_rest231769_ _clauses231764_) - (_ids231770_ '()) - (_impls231771_ '()) - (_clauses231772_ '())) - (let* ((_rest231773231781_ _rest231769_) - (_else231775231789_ + (lambda (_stx232943_ _id232944_ _clauses232945_ _gensym?232946_) + (let _lp232948_ ((_rest232950_ _clauses232945_) + (_ids232951_ '()) + (_impls232952_ '()) + (_clauses232953_ '())) + (let* ((_rest232954232962_ _rest232950_) + (_else232956232970_ (lambda () - (values (reverse _ids231770_) - (reverse _impls231771_) - (reverse _clauses231772_)))) - (_K231777231994_ - (lambda (_rest231792_ _clause231793_) + (values (reverse _ids232951_) + (reverse _impls232952_) + (reverse _clauses232953_)))) + (_K232958233175_ + (lambda (_rest232973_ _clause232974_) (if (let () (declare (not safe)) - (gxc#dispatch-lambda-form? _clause231793_)) - (let ((__tmp244027 + (gxc#dispatch-lambda-form? _clause232974_)) + (let ((__tmp245225 (let () (declare (not safe)) - (cons _clause231793_ _clauses231772_)))) + (cons _clause232974_ _clauses232953_)))) (declare (not safe)) - (_lp231767_ - _rest231792_ - _ids231770_ - _impls231771_ - __tmp244027)) - (let* ((_g231795231806_ - (lambda (_g231796231803_) + (_lp232948_ + _rest232973_ + _ids232951_ + _impls232952_ + __tmp245225)) + (let* ((_g232976232987_ + (lambda (_g232977232984_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231796231803_)))) - (_g231794231991_ - (lambda (_g231796231809_) + _g232977232984_)))) + (_g232975233172_ + (lambda (_g232977232990_) (if (let () (declare (not safe)) - (gx#stx-pair? _g231796231809_)) - (let ((_e231801231811_ + (gx#stx-pair? _g232977232990_)) + (let ((_e232982232992_ (let () (declare (not safe)) - (gx#stx-e _g231796231809_)))) - (let ((_hd231800231814_ + (gx#stx-e _g232977232990_)))) + (let ((_hd232981232995_ (let () (declare (not safe)) - (##car _e231801231811_))) - (_tl231799231816_ + (##car _e232982232992_))) + (_tl232980232997_ (let () (declare (not safe)) - (##cdr _e231801231811_)))) - ((lambda (_L231819_ _L231820_) - (let* ((_id231837_ - (let ((__tmp243974 + (##cdr _e232982232992_)))) + ((lambda (_L233000_ _L233001_) + (let* ((_id233018_ + (let ((__tmp245172 (let () (declare (not safe)) (gx#stx-e - _id231763_))) - (__tmp243973 - (length _clauses231772_)) - (__tmp243972 - (if _gensym?231765_ + _id232944_))) + (__tmp245171 + (length _clauses232953_)) + (__tmp245170 + (if _gensym?232946_ (gensym '__) '""))) (declare (not safe)) (make-symbol__1 - __tmp243974 + __tmp245172 '"__" - __tmp243973 - __tmp243972))) - (_id231839_ - (let ((__tmp243975 + __tmp245171 + __tmp245170))) + (_id233020_ + (let ((__tmp245173 (let () (declare (not safe)) (gx#stx-source - _stx231762_)))) + _stx232943_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _id231837_ - __tmp243975))) - (_impl231841_ - (let ((__tmp243976 - (let ((__tmp243978 + _id233018_ + __tmp245173))) + (_impl233022_ + (let ((__tmp245174 + (let ((__tmp245176 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda))) - (__tmp243977 + (__tmp245175 (let () (declare (not safe)) - (cons _L231820_ _L231819_)))) + (cons _L233001_ _L233000_)))) (declare (not safe)) - (cons __tmp243978 __tmp243977)))) + (cons __tmp245176 __tmp245175)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp243976 _stx231762_))) + (gxc#xform-wrap-source __tmp245174 _stx232943_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_clause231988_ - (let* ((___stx243332243333_ - _L231820_) - (_g231845231873_ + (_clause233169_ + (let* ((___stx244530244531_ + _L233001_) + (_g233026233054_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -10605,1813 +10653,1813 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243332243333_))))) - (let ((___kont243334243335_ - (lambda (_L231967_) - (let ((__tmp243979 - (let ((__tmp243980 - (let ((__tmp243981 - (let ((__tmp243982 - (let ((__tmp243988 - (let ((__tmp243989 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _id231839_ '())))) + ___stx244530244531_))))) + (let ((___kont244532244533_ + (lambda (_L233148_) + (let ((__tmp245177 + (let ((__tmp245178 + (let ((__tmp245179 + (let ((__tmp245180 + (let ((__tmp245186 + (let ((__tmp245187 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _id233020_ '())))) (declare (not safe)) - (cons '%#ref __tmp243989))) - (__tmp243983 - (let ((__tmp243984 - (lambda (_g231977231980_ _g231978231982_) - (let ((__tmp243985 - (let ((__tmp243987 + (cons '%#ref __tmp245187))) + (__tmp245181 + (let ((__tmp245182 + (lambda (_g233158233161_ _g233159233163_) + (let ((__tmp245183 + (let ((__tmp245185 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp243986 + (__tmp245184 (let () (declare (not safe)) - (cons _g231977231980_ '())))) + (cons _g233158233161_ '())))) (declare (not safe)) - (cons __tmp243987 __tmp243986)))) + (cons __tmp245185 __tmp245184)))) (declare (not safe)) - (cons __tmp243985 _g231978231982_))))) + (cons __tmp245183 _g233159233163_))))) (declare (not safe)) - (foldr1 __tmp243984 '() _L231967_)))) + (foldr1 __tmp245182 '() _L233148_)))) (declare (not safe)) - (cons __tmp243988 __tmp243983)))) + (cons __tmp245186 __tmp245181)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp243982)))) + (cons '%#call __tmp245180)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp243981 - _stx231762_)))) + __tmp245179 + _stx232943_)))) (declare (not safe)) - (cons __tmp243980 '())))) + (cons __tmp245178 '())))) (declare (not safe)) - (cons _L231820_ __tmp243979)))) - (___kont243338243339_ - (lambda (_L231918_ _L231919_) - (let ((__tmp243990 - (let ((__tmp243991 - (let ((__tmp243992 - (let ((__tmp243993 - (let ((__tmp244007 - (let ((__tmp244008 + (cons _L233001_ __tmp245177)))) + (___kont244536244537_ + (lambda (_L233099_ _L233100_) + (let ((__tmp245188 + (let ((__tmp245189 + (let ((__tmp245190 + (let ((__tmp245191 + (let ((__tmp245205 + (let ((__tmp245206 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp244008))) - (__tmp243994 - (let ((__tmp244005 - (let ((__tmp244006 + (cons '%#ref __tmp245206))) + (__tmp245192 + (let ((__tmp245203 + (let ((__tmp245204 (let () (declare (not safe)) - (cons _id231839_ '())))) + (cons _id233020_ '())))) (declare (not safe)) - (cons '%#ref __tmp244006))) - (__tmp243995 - (let ((__tmp244001 - (let ((__tmp244002 - (let ((__tmp244004 + (cons '%#ref __tmp245204))) + (__tmp245193 + (let ((__tmp245199 + (let ((__tmp245200 + (let ((__tmp245202 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp244003 + (__tmp245201 (let () (declare (not safe)) - (cons _L231918_ '())))) + (cons _L233099_ '())))) (declare (not safe)) - (cons __tmp244004 __tmp244003)))) + (cons __tmp245202 __tmp245201)))) (declare (not safe)) - (cons __tmp244002 '()))) - (__tmp243996 - (let ((__tmp243997 - (lambda (_g231930231933_ - _g231931231935_) - (let ((__tmp243998 - (let ((__tmp244000 + (cons __tmp245200 '()))) + (__tmp245194 + (let ((__tmp245195 + (lambda (_g233111233114_ + _g233112233116_) + (let ((__tmp245196 + (let ((__tmp245198 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp243999 + (__tmp245197 (let () (declare (not safe)) - (cons _g231930231933_ + (cons _g233111233114_ '())))) (declare (not safe)) - (cons __tmp244000 - __tmp243999)))) + (cons __tmp245198 + __tmp245197)))) (declare (not safe)) - (cons __tmp243998 - _g231931231935_))))) + (cons __tmp245196 + _g233112233116_))))) (declare (not safe)) - (foldr1 __tmp243997 '() _L231919_)))) + (foldr1 __tmp245195 '() _L233100_)))) (declare (not safe)) - (foldr1 cons __tmp244001 __tmp243996)))) + (foldr1 cons __tmp245199 __tmp245194)))) (declare (not safe)) - (cons __tmp244005 __tmp243995)))) + (cons __tmp245203 __tmp245193)))) (declare (not safe)) - (cons __tmp244007 __tmp243994)))) + (cons __tmp245205 __tmp245192)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp243993)))) + (cons '%#call __tmp245191)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp243992 - _stx231762_)))) + __tmp245190 + _stx232943_)))) (declare (not safe)) - (cons __tmp243991 '())))) + (cons __tmp245189 '())))) (declare (not safe)) - (cons _L231820_ __tmp243990)))) - (___kont243342243343_ - (lambda (_L231878_) - (let ((__tmp244009 - (let ((__tmp244010 - (let ((__tmp244011 - (let ((__tmp244012 - (let ((__tmp244020 - (let ((__tmp244021 + (cons _L233001_ __tmp245188)))) + (___kont244540244541_ + (lambda (_L233059_) + (let ((__tmp245207 + (let ((__tmp245208 + (let ((__tmp245209 + (let ((__tmp245210 + (let ((__tmp245218 + (let ((__tmp245219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons 'apply '())))) (declare (not safe)) - (cons '%#ref __tmp244021))) - (__tmp244013 - (let ((__tmp244018 - (let ((__tmp244019 + (cons '%#ref __tmp245219))) + (__tmp245211 + (let ((__tmp245216 + (let ((__tmp245217 (let () (declare (not safe)) - (cons _id231839_ '())))) + (cons _id233020_ '())))) (declare (not safe)) - (cons '%#ref __tmp244019))) - (__tmp244014 - (let ((__tmp244015 - (let ((__tmp244017 + (cons '%#ref __tmp245217))) + (__tmp245212 + (let ((__tmp245213 + (let ((__tmp245215 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref))) - (__tmp244016 + (__tmp245214 (let () (declare (not safe)) - (cons _L231878_ '())))) + (cons _L233059_ '())))) (declare (not safe)) - (cons __tmp244017 __tmp244016)))) + (cons __tmp245215 __tmp245214)))) (declare (not safe)) - (cons __tmp244015 '())))) + (cons __tmp245213 '())))) (declare (not safe)) - (cons __tmp244018 __tmp244014)))) + (cons __tmp245216 __tmp245212)))) (declare (not safe)) - (cons __tmp244020 __tmp244013)))) + (cons __tmp245218 __tmp245211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#call __tmp244012)))) + (cons '%#call __tmp245210)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244011 - _stx231762_)))) + __tmp245209 + _stx232943_)))) (declare (not safe)) - (cons __tmp244010 '())))) + (cons __tmp245208 '())))) (declare (not safe)) - (cons _L231820_ __tmp244009))))) - (let* ((___match243357243358_ - (lambda (___splice243340243341_ - _target231859231894_ - _tl231861231896_) - (letrec ((_loop231862231899_ - (lambda (_hd231860231902_ - _arg231866231904_) + (cons _L233001_ __tmp245207))))) + (let* ((___match244555244556_ + (lambda (___splice244538244539_ + _target233040233075_ + _tl233042233077_) + (letrec ((_loop233043233080_ + (lambda (_hd233041233083_ + _arg233047233085_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231860231902_)) - (let ((_e231863231907_ + (gx#stx-pair? _hd233041233083_)) + (let ((_e233044233088_ (let () (declare (not safe)) (gx#stx-e - _hd231860231902_)))) - (let ((_lp-tl231865231912_ + _hd233041233083_)))) + (let ((_lp-tl233046233093_ (let () (declare (not safe)) - (##cdr _e231863231907_))) - (_lp-hd231864231910_ + (##cdr _e233044233088_))) + (_lp-hd233045233091_ (let () (declare (not safe)) - (##car _e231863231907_)))) - (let ((__tmp244022 + (##car _e233044233088_)))) + (let ((__tmp245220 (let () (declare (not safe)) - (cons _lp-hd231864231910_ - _arg231866231904_)))) + (cons _lp-hd233045233091_ + _arg233047233085_)))) (declare (not safe)) - (_loop231862231899_ - _lp-tl231865231912_ - __tmp244022)))) - (let ((_arg231867231915_ - (reverse _arg231866231904_))) - (___kont243338243339_ - _tl231861231896_ - _arg231867231915_)))))) + (_loop233043233080_ + _lp-tl233046233093_ + __tmp245220)))) + (let ((_arg233048233096_ + (reverse _arg233047233085_))) + (___kont244536244537_ + _tl233042233077_ + _arg233048233096_)))))) (let () (declare (not safe)) - (_loop231862231899_ - _target231859231894_ + (_loop233043233080_ + _target233040233075_ '()))))) - (___match243351243352_ - (lambda (___splice243336243337_ - _target231848231943_ - _tl231850231945_) - (letrec ((_loop231851231948_ - (lambda (_hd231849231951_ - _arg231855231953_) + (___match244549244550_ + (lambda (___splice244534244535_ + _target233029233124_ + _tl233031233126_) + (letrec ((_loop233032233129_ + (lambda (_hd233030233132_ + _arg233036233134_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231849231951_)) - (let ((_e231852231956_ + (gx#stx-pair? _hd233030233132_)) + (let ((_e233033233137_ (let () (declare (not safe)) (gx#stx-e - _hd231849231951_)))) - (let ((_lp-tl231854231961_ + _hd233030233132_)))) + (let ((_lp-tl233035233142_ (let () (declare (not safe)) - (##cdr _e231852231956_))) - (_lp-hd231853231959_ + (##cdr _e233033233137_))) + (_lp-hd233034233140_ (let () (declare (not safe)) - (##car _e231852231956_)))) - (let ((__tmp244023 + (##car _e233033233137_)))) + (let ((__tmp245221 (let () (declare (not safe)) - (cons _lp-hd231853231959_ - _arg231855231953_)))) + (cons _lp-hd233034233140_ + _arg233036233134_)))) (declare (not safe)) - (_loop231851231948_ - _lp-tl231854231961_ - __tmp244023)))) - (let ((_arg231856231964_ - (reverse _arg231855231953_))) - (___kont243334243335_ - _arg231856231964_)))))) + (_loop233032233129_ + _lp-tl233035233142_ + __tmp245221)))) + (let ((_arg233037233145_ + (reverse _arg233036233134_))) + (___kont244532244533_ + _arg233037233145_)))))) (let () (declare (not safe)) - (_loop231851231948_ - _target231848231943_ + (_loop233032233129_ + _target233029233124_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? ___stx243332243333_)) - (let ((___splice243336243337_ + (gx#stx-pair/null? ___stx244530244531_)) + (let ((___splice244534244535_ (let () (declare (not safe)) (gx#syntax-split-splice - ___stx243332243333_ + ___stx244530244531_ '0)))) - (let ((_tl231850231945_ + (let ((_tl233031233126_ (let () (declare (not safe)) - (##vector-ref ___splice243336243337_ '1))) - (_target231848231943_ + (##vector-ref ___splice244534244535_ '1))) + (_target233029233124_ (let () (declare (not safe)) - (##vector-ref ___splice243336243337_ '0)))) + (##vector-ref ___splice244534244535_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231850231945_)) - (___match243351243352_ - ___splice243336243337_ - _target231848231943_ - _tl231850231945_) - (___match243357243358_ - ___splice243336243337_ - _target231848231943_ - _tl231850231945_)))) - (___kont243342243343_ ___stx243332243333_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp244026 + (gx#stx-null? _tl233031233126_)) + (___match244549244550_ + ___splice244534244535_ + _target233029233124_ + _tl233031233126_) + (___match244555244556_ + ___splice244534244535_ + _target233029233124_ + _tl233031233126_)))) + (___kont244540244541_ ___stx244530244531_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp245224 (let () (declare (not safe)) - (cons _id231839_ - _ids231770_))) - (__tmp244025 + (cons _id233020_ + _ids232951_))) + (__tmp245223 (let () (declare (not safe)) - (cons _impl231841_ - _impls231771_))) - (__tmp244024 + (cons _impl233022_ + _impls232952_))) + (__tmp245222 (let () (declare (not safe)) - (cons _clause231988_ - _clauses231772_)))) + (cons _clause233169_ + _clauses232953_)))) (declare (not safe)) - (_lp231767_ - _rest231792_ - __tmp244026 - __tmp244025 - __tmp244024)))) - _tl231799231816_ - _hd231800231814_))) + (_lp232948_ + _rest232973_ + __tmp245224 + __tmp245223 + __tmp245222)))) + _tl232980232997_ + _hd232981232995_))) (let () (declare (not safe)) - (_g231795231806_ _g231796231809_)))))) + (_g232976232987_ _g232977232990_)))))) (declare (not safe)) - (_g231794231991_ _clause231793_)))))) - (if (let () (declare (not safe)) (##pair? _rest231773231781_)) - (let ((_hd231778231997_ + (_g232975233172_ _clause232974_)))))) + (if (let () (declare (not safe)) (##pair? _rest232954232962_)) + (let ((_hd232959233178_ (let () (declare (not safe)) - (##car _rest231773231781_))) - (_tl231779231999_ + (##car _rest232954232962_))) + (_tl232960233180_ (let () (declare (not safe)) - (##cdr _rest231773231781_)))) - (let* ((_clause232002_ _hd231778231997_) - (_rest232004_ _tl231779231999_)) + (##cdr _rest232954232962_)))) + (let* ((_clause233183_ _hd232959233178_) + (_rest233185_ _tl232960233180_)) (declare (not safe)) - (_K231777231994_ _rest232004_ _clause232002_))) - (let () (declare (not safe)) (_else231775231789_))))))) + (_K232958233175_ _rest233185_ _clause233183_))) + (let () (declare (not safe)) (_else232956232970_))))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_stx232009_ _id232010_ _clauses232011_) - (let ((_gensym?232013_ '#f)) + (lambda (_stx233190_ _id233191_ _clauses233192_) + (let ((_gensym?233194_ '#f)) (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx232009_ - _id232010_ - _clauses232011_ - _gensym?232013_)))) + _stx233190_ + _id233191_ + _clauses233192_ + _gensym?233194_)))) (define gxc#lift-case-lambda-clauses - (lambda _g244029_ - (let ((_g244028_ (let () (declare (not safe)) (##length _g244029_)))) - (cond ((let () (declare (not safe)) (##fx= _g244028_ 3)) - (apply (lambda (_stx232009_ _id232010_ _clauses232011_) + (lambda _g245227_ + (let ((_g245226_ (let () (declare (not safe)) (##length _g245227_)))) + (cond ((let () (declare (not safe)) (##fx= _g245226_ 3)) + (apply (lambda (_stx233190_ _id233191_ _clauses233192_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx232009_ - _id232010_ - _clauses232011_))) - _g244029_)) - ((let () (declare (not safe)) (##fx= _g244028_ 4)) - (apply (lambda (_stx232015_ - _id232016_ - _clauses232017_ - _gensym?232018_) + _stx233190_ + _id233191_ + _clauses233192_))) + _g245227_)) + ((let () (declare (not safe)) (##fx= _g245226_ 4)) + (apply (lambda (_stx233196_ + _id233197_ + _clauses233198_ + _gensym?233199_) (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__% - _stx232015_ - _id232016_ - _clauses232017_ - _gensym?232018_))) - _g244029_)) + _stx233196_ + _id233197_ + _clauses233198_ + _gensym?233199_))) + _g245227_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g244029_)))))) + _g245227_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_stx231039_) - (letrec ((_case-lambda-clause-def231041_ - (lambda (_id231758_ _impl231759_) - (let ((__tmp244030 - (let ((__tmp244031 - (let ((__tmp244034 + (lambda (_stx232220_) + (letrec ((_case-lambda-clause-def232222_ + (lambda (_id232939_ _impl232940_) + (let ((__tmp245228 + (let ((__tmp245229 + (let ((__tmp245232 (let () (declare (not safe)) - (cons _id231758_ '()))) - (__tmp244032 - (let ((__tmp244033 + (cons _id232939_ '()))) + (__tmp245230 + (let ((__tmp245231 (let () (declare (not safe)) (gxc#compile-e__0 - _impl231759_)))) + _impl232940_)))) (declare (not safe)) - (cons __tmp244033 '())))) + (cons __tmp245231 '())))) (declare (not safe)) - (cons __tmp244034 __tmp244032)))) + (cons __tmp245232 __tmp245230)))) (declare (not safe)) - (cons '%#define-values __tmp244031)))) + (cons '%#define-values __tmp245229)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244030 _stx231039_)))) - (_opt-lambda-dispatch-name231042_ - (lambda (_id231754_) - (if (uninterned-symbol? _id231754_) - (let ((_str231756_ (symbol->string _id231754_))) + (gxc#xform-wrap-source __tmp245228 _stx232220_)))) + (_opt-lambda-dispatch-name232223_ + (lambda (_id232935_) + (if (uninterned-symbol? _id232935_) + (let ((_str232937_ (symbol->string _id232935_))) (if (let () (declare (not safe)) - (string-prefix? '"opt-lambda" _str231756_)) + (string-prefix? '"opt-lambda" _str232937_)) '"%" - _id231754_)) - _id231754_))) - (_kw-lambda-dispatch-name231043_ - (lambda (_id231749_ _name231750_) - (if (uninterned-symbol? _id231749_) - (let ((_str231752_ (symbol->string _id231749_))) + _id232935_)) + _id232935_))) + (_kw-lambda-dispatch-name232224_ + (lambda (_id232930_ _name232931_) + (if (uninterned-symbol? _id232930_) + (let ((_str232933_ (symbol->string _id232930_))) (if (let () (declare (not safe)) - (string-prefix? '"kw-lambda" _str231752_)) - _name231750_ - _id231749_)) - _id231749_)))) - (let* ((___stx243380243381_ _stx231039_) - (_g231048231107_ + (string-prefix? '"kw-lambda" _str232933_)) + _name232931_ + _id232930_)) + _id232930_)))) + (let* ((___stx244578244579_ _stx232220_) + (_g232229232288_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243380243381_))))) - (let ((___kont243382243383_ - (lambda (_L231658_ _L231659_) - (let* ((___stx243360243361_ _L231658_) - (_g231676231690_ + ___stx244578244579_))))) + (let ((___kont244580244581_ + (lambda (_L232839_ _L232840_) + (let* ((___stx244558244559_ _L232839_) + (_g232857232871_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243360243361_))))) - (let ((___kont243362243363_ - (lambda (_L231734_) _stx231039_)) - (___kont243364243365_ - (lambda (_L231703_) - (let ((_g244035_ + ___stx244558244559_))))) + (let ((___kont244560244561_ + (lambda (_L232915_) _stx232220_)) + (___kont244562244563_ + (lambda (_L232884_) + (let ((_g245233_ (let () (declare (not safe)) (gxc#lift-case-lambda-clauses__0 - _stx231039_ - _L231659_ - _L231703_)))) + _stx232220_ + _L232840_ + _L232884_)))) (begin - (let ((_g244036_ + (let ((_g245234_ (let () (declare (not safe)) - (if (##values? _g244035_) - (##vector-length _g244035_) + (if (##values? _g245233_) + (##vector-length _g245233_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244036_ 3))) + (##fx= _g245234_ 3))) (error "Context expects 3 values" - _g244036_))) - (let ((_ids231713_ + _g245234_))) + (let ((_ids232894_ (let () (declare (not safe)) - (##vector-ref _g244035_ 0))) - (_impls231714_ + (##vector-ref _g245233_ 0))) + (_impls232895_ (let () (declare (not safe)) - (##vector-ref _g244035_ 1))) - (_clauses231715_ + (##vector-ref _g245233_ 1))) + (_clauses232896_ (let () (declare (not safe)) - (##vector-ref _g244035_ 2)))) - (let* ((_g244037_ + (##vector-ref _g245233_ 2)))) + (let* ((_g245235_ (for-each gx#core-bind-runtime! - _ids231713_)) - (_defs231718_ - (map _case-lambda-clause-def231041_ - _ids231713_ - _impls231714_))) - (let ((__tmp244039 + _ids232894_)) + (_defs232899_ + (map _case-lambda-clause-def232222_ + _ids232894_ + _impls232895_))) + (let ((__tmp245237 (let () (declare (not safe)) (gxc#identifier-symbol - _L231659_))) - (__tmp244038 + _L232840_))) + (__tmp245236 (map gxc#identifier-symbol - _ids231713_))) + _ids232894_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp244039 + __tmp245237 '" => " - __tmp244038)) - (let ((__tmp244040 - (let ((__tmp244041 - (let ((__tmp244042 - (let ((__tmp244043 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244044 - (let ((__tmp244045 - (let ((__tmp244050 + __tmp245236)) + (let ((__tmp245238 + (let ((__tmp245239 + (let ((__tmp245240 + (let ((__tmp245241 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245242 + (let ((__tmp245243 + (let ((__tmp245248 (let () (declare (not safe)) - (cons _L231659_ '()))) - (__tmp244046 - (let ((__tmp244047 - (let ((__tmp244049 + (cons _L232840_ '()))) + (__tmp245244 + (let ((__tmp245245 + (let ((__tmp245247 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons '%#case-lambda _clauses231715_))) - (__tmp244048 + (cons '%#case-lambda _clauses232896_))) + (__tmp245246 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda-expr)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244049 __tmp244048)))) + (gxc#xform-wrap-source __tmp245247 __tmp245246)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244047 '())))) + (cons __tmp245245 '())))) (declare (not safe)) - (cons __tmp244050 __tmp244046)))) + (cons __tmp245248 __tmp245244)))) (declare (not safe)) - (cons '%#define-values __tmp244045)))) + (cons '%#define-values __tmp245243)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244044 - _stx231039_)))) + __tmp245242 + _stx232220_)))) (declare (not safe)) - (cons __tmp244043 '())))) + (cons __tmp245241 '())))) (declare (not safe)) - (foldr1 cons __tmp244042 _defs231718_)))) + (foldr1 cons __tmp245240 _defs232899_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#begin __tmp244041)))) + (cons '%#begin __tmp245239)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244040 - _stx231039_))))))))) - (let ((___match243371243372_ - (lambda (_e231681231726_ - _hd231680231729_ - _tl231679231731_) - (let ((_L231734_ _tl231679231731_)) + __tmp245238 + _stx232220_))))))))) + (let ((___match244569244570_ + (lambda (_e232862232907_ + _hd232861232910_ + _tl232860232912_) + (let ((_L232915_ _tl232860232912_)) (if (let () (declare (not safe)) (andmap1 gxc#dispatch-lambda-form? - _L231734_)) - (___kont243362243363_ _L231734_) - (___kont243364243365_ - _tl231679231731_)))))) + _L232915_)) + (___kont244560244561_ _L232915_) + (___kont244562244563_ + _tl232860232912_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243360243361_)) - (let ((_e231681231726_ + (gx#stx-pair? ___stx244558244559_)) + (let ((_e232862232907_ (let () (declare (not safe)) - (gx#stx-e ___stx243360243361_)))) - (let ((_tl231679231731_ + (gx#stx-e ___stx244558244559_)))) + (let ((_tl232860232912_ (let () (declare (not safe)) - (##cdr _e231681231726_))) - (_hd231680231729_ + (##cdr _e232862232907_))) + (_hd232861232910_ (let () (declare (not safe)) - (##car _e231681231726_)))) - (___match243371243372_ - _e231681231726_ - _hd231680231729_ - _tl231679231731_))) + (##car _e232862232907_)))) + (___match244569244570_ + _e232862232907_ + _hd232861232910_ + _tl232860232912_))) (let () (declare (not safe)) - (_g231676231690_)))))))) - (___kont243384243385_ - (lambda (_L231476_ _L231477_) - (let* ((_g231493231523_ - (lambda (_g231494231520_) + (_g232857232871_)))))))) + (___kont244582244583_ + (lambda (_L232657_ _L232658_) + (let* ((_g232674232704_ + (lambda (_g232675232701_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231494231520_)))) - (_g231492231618_ - (lambda (_g231494231526_) + _g232675232701_)))) + (_g232673232799_ + (lambda (_g232675232707_) (if (let () (declare (not safe)) - (gx#stx-pair? _g231494231526_)) - (let ((_e231500231528_ + (gx#stx-pair? _g232675232707_)) + (let ((_e232681232709_ (let () (declare (not safe)) - (gx#stx-e _g231494231526_)))) - (let ((_hd231499231531_ + (gx#stx-e _g232675232707_)))) + (let ((_hd232680232712_ (let () (declare (not safe)) - (##car _e231500231528_))) - (_tl231498231533_ + (##car _e232681232709_))) + (_tl232679232714_ (let () (declare (not safe)) - (##cdr _e231500231528_)))) + (##cdr _e232681232709_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231498231533_)) - (let ((_e231503231536_ + (gx#stx-pair? _tl232679232714_)) + (let ((_e232684232717_ (let () (declare (not safe)) (gx#stx-e - _tl231498231533_)))) - (let ((_hd231502231539_ + _tl232679232714_)))) + (let ((_hd232683232720_ (let () (declare (not safe)) - (##car _e231503231536_))) - (_tl231501231541_ + (##car _e232684232717_))) + (_tl232682232722_ (let () (declare (not safe)) - (##cdr _e231503231536_)))) + (##cdr _e232684232717_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231502231539_)) - (let ((_e231506231544_ + _hd232683232720_)) + (let ((_e232687232725_ (let () (declare (not safe)) (gx#stx-e - _hd231502231539_)))) - (let ((_hd231505231547_ + _hd232683232720_)))) + (let ((_hd232686232728_ (let () (declare (not safe)) - (##car _e231506231544_))) - (_tl231504231549_ + (##car _e232687232725_))) + (_tl232685232730_ (let () (declare (not safe)) - (##cdr _e231506231544_)))) + (##cdr _e232687232725_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231505231547_)) - (let ((_e231509231552_ + _hd232686232728_)) + (let ((_e232690232733_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd231505231547_)))) - (let ((_hd231508231555_ + (gx#stx-e _hd232686232728_)))) + (let ((_hd232689232736_ (let () (declare (not safe)) - (##car _e231509231552_))) - (_tl231507231557_ + (##car _e232690232733_))) + (_tl232688232738_ (let () (declare (not safe)) - (##cdr _e231509231552_)))) + (##cdr _e232690232733_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231508231555_)) - (let ((_e231512231560_ + (gx#stx-pair? _hd232689232736_)) + (let ((_e232693232741_ (let () (declare (not safe)) - (gx#stx-e _hd231508231555_)))) - (let ((_hd231511231563_ + (gx#stx-e _hd232689232736_)))) + (let ((_hd232692232744_ (let () (declare (not safe)) - (##car _e231512231560_))) - (_tl231510231565_ + (##car _e232693232741_))) + (_tl232691232746_ (let () (declare (not safe)) - (##cdr _e231512231560_)))) + (##cdr _e232693232741_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231510231565_)) + (gx#stx-null? _tl232691232746_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231507231557_)) - (let ((_e231515231568_ + (gx#stx-pair? _tl232688232738_)) + (let ((_e232696232749_ (let () (declare (not safe)) - (gx#stx-e _tl231507231557_)))) - (let ((_hd231514231571_ + (gx#stx-e _tl232688232738_)))) + (let ((_hd232695232752_ (let () (declare (not safe)) - (##car _e231515231568_))) - (_tl231513231573_ + (##car _e232696232749_))) + (_tl232694232754_ (let () (declare (not safe)) - (##cdr _e231515231568_)))) + (##cdr _e232696232749_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231513231573_)) + _tl232694232754_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl231504231549_)) + _tl232685232730_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231501231541_)) - (let ((_e231518231576_ + _tl232682232722_)) + (let ((_e232699232757_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl231501231541_)))) - (let ((_hd231517231579_ - (let () (declare (not safe)) (##car _e231518231576_))) - (_tl231516231581_ - (let () (declare (not safe)) (##cdr _e231518231576_)))) + (gx#stx-e _tl232682232722_)))) + (let ((_hd232698232760_ + (let () (declare (not safe)) (##car _e232699232757_))) + (_tl232697232762_ + (let () (declare (not safe)) (##cdr _e232699232757_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231516231581_)) - ((lambda (_L231584_ _L231585_ _L231586_) - (let* ((_lambda-id231610_ - (let ((__tmp244053 + (gx#stx-null? _tl232697232762_)) + ((lambda (_L232765_ _L232766_ _L232767_) + (let* ((_lambda-id232791_ + (let ((__tmp245251 (let () (declare (not safe)) - (gx#stx-e _L231477_))) - (__tmp244051 - (let ((__tmp244052 + (gx#stx-e _L232658_))) + (__tmp245249 + (let ((__tmp245250 (let () (declare (not safe)) - (gx#stx-e _L231586_)))) + (gx#stx-e _L232767_)))) (declare (not safe)) - (_opt-lambda-dispatch-name231042_ - __tmp244052)))) + (_opt-lambda-dispatch-name232223_ + __tmp245250)))) (declare (not safe)) (make-symbol__1 - __tmp244053 + __tmp245251 '"__" - __tmp244051))) - (_lambda-id231612_ - (let ((__tmp244054 + __tmp245249))) + (_lambda-id232793_ + (let ((__tmp245252 (let () (declare (not safe)) - (gx#stx-source _stx231039_)))) + (gx#stx-source _stx232220_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _lambda-id231610_ - __tmp244054))) - (_g244055_ + _lambda-id232791_ + __tmp245252))) + (_g245253_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _lambda-id231612_))) - (_new-case-lambda-expr231615_ + _lambda-id232793_))) + (_new-case-lambda-expr232796_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L231584_ - _L231586_ - _lambda-id231612_)))) - (let ((__tmp244057 + _L232765_ + _L232767_ + _lambda-id232793_)))) + (let ((__tmp245255 (let () (declare (not safe)) - (gxc#identifier-symbol _L231477_))) - (__tmp244056 + (gxc#identifier-symbol _L232658_))) + (__tmp245254 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id231612_)))) + _lambda-id232793_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp244057 + __tmp245255 '" => " - __tmp244056)) - (let ((__tmp244058 - (let ((__tmp244059 - (let ((__tmp244067 - (let ((__tmp244068 - (let ((__tmp244069 - (let ((__tmp244072 + __tmp245254)) + (let ((__tmp245256 + (let ((__tmp245257 + (let ((__tmp245265 + (let ((__tmp245266 + (let ((__tmp245267 + (let ((__tmp245270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _lambda-id231612_ '()))) - (__tmp244070 - (let ((__tmp244071 + (cons _lambda-id232793_ '()))) + (__tmp245268 + (let ((__tmp245269 (let () (declare (not safe)) - (gxc#compile-e__0 _L231585_)))) + (gxc#compile-e__0 _L232766_)))) (declare (not safe)) - (cons __tmp244071 '())))) + (cons __tmp245269 '())))) (declare (not safe)) - (cons __tmp244072 __tmp244070)))) + (cons __tmp245270 __tmp245268)))) (declare (not safe)) - (cons '%#define-values __tmp244069)))) + (cons '%#define-values __tmp245267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244068 - _stx231039_))) - (__tmp244060 - (let ((__tmp244061 - (let ((__tmp244062 - (let ((__tmp244063 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244064 - (let ((__tmp244066 + __tmp245266 + _stx232220_))) + (__tmp245258 + (let ((__tmp245259 + (let ((__tmp245260 + (let ((__tmp245261 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245262 + (let ((__tmp245264 (let () (declare (not safe)) - (cons _L231477_ '()))) - (__tmp244065 + (cons _L232658_ '()))) + (__tmp245263 (let () (declare (not safe)) - (cons _new-case-lambda-expr231615_ + (cons _new-case-lambda-expr232796_ '())))) (declare (not safe)) - (cons __tmp244066 __tmp244065)))) + (cons __tmp245264 __tmp245263)))) (declare (not safe)) - (cons '%#define-values __tmp244064)))) + (cons '%#define-values __tmp245262)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244063 _stx231039_)))) + (gxc#xform-wrap-source __tmp245261 _stx232220_)))) (declare (not safe)) - (gxc#lift-top-lambda-define-values% __tmp244062)))) + (gxc#lift-top-lambda-define-values% __tmp245260)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244061 '())))) + (cons __tmp245259 '())))) (declare (not safe)) - (cons __tmp244067 __tmp244060)))) + (cons __tmp245265 __tmp245258)))) (declare (not safe)) - (cons '%#begin __tmp244059)))) + (cons '%#begin __tmp245257)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244058 - _stx231039_)))) - _hd231517231579_ - _hd231514231571_ - _hd231511231563_) + __tmp245256 + _stx232220_)))) + _hd232698232760_ + _hd232695232752_ + _hd232692232744_) (let () (declare (not safe)) - (_g231493231523_ _g231494231526_))))) - (let () (declare (not safe)) (_g231493231523_ _g231494231526_))) + (_g232674232704_ _g232675232707_))))) + (let () (declare (not safe)) (_g232674232704_ _g232675232707_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231493231523_ - _g231494231526_))) + (_g232674232704_ + _g232675232707_))) (let () (declare (not safe)) - (_g231493231523_ - _g231494231526_))))) + (_g232674232704_ + _g232675232707_))))) (let () (declare (not safe)) - (_g231493231523_ _g231494231526_))) + (_g232674232704_ _g232675232707_))) (let () (declare (not safe)) - (_g231493231523_ _g231494231526_))))) + (_g232674232704_ _g232675232707_))))) (let () (declare (not safe)) - (_g231493231523_ _g231494231526_))))) + (_g232674232704_ _g232675232707_))))) (let () (declare (not safe)) - (_g231493231523_ _g231494231526_))))) + (_g232674232704_ _g232675232707_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231493231523_ - _g231494231526_))))) + (_g232674232704_ + _g232675232707_))))) (let () (declare (not safe)) - (_g231493231523_ - _g231494231526_))))) + (_g232674232704_ + _g232675232707_))))) (let () (declare (not safe)) - (_g231493231523_ _g231494231526_)))))) + (_g232674232704_ _g232675232707_)))))) (declare (not safe)) - (_g231492231618_ _L231476_)))) - (___kont243386243387_ - (lambda (_L231190_ _L231191_) - (let* ((_g231207231260_ - (lambda (_g231208231257_) + (_g232673232799_ _L232657_)))) + (___kont244584244585_ + (lambda (_L232371_ _L232372_) + (let* ((_g232388232441_ + (lambda (_g232389232438_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g231208231257_)))) - (_g231206231436_ - (lambda (_g231208231263_) + _g232389232438_)))) + (_g232387232617_ + (lambda (_g232389232444_) (if (let () (declare (not safe)) - (gx#stx-pair? _g231208231263_)) - (let ((_e231216231265_ + (gx#stx-pair? _g232389232444_)) + (let ((_e232397232446_ (let () (declare (not safe)) - (gx#stx-e _g231208231263_)))) - (let ((_hd231215231268_ + (gx#stx-e _g232389232444_)))) + (let ((_hd232396232449_ (let () (declare (not safe)) - (##car _e231216231265_))) - (_tl231214231270_ + (##car _e232397232446_))) + (_tl232395232451_ (let () (declare (not safe)) - (##cdr _e231216231265_)))) + (##cdr _e232397232446_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231214231270_)) - (let ((_e231219231273_ + (gx#stx-pair? _tl232395232451_)) + (let ((_e232400232454_ (let () (declare (not safe)) (gx#stx-e - _tl231214231270_)))) - (let ((_hd231218231276_ + _tl232395232451_)))) + (let ((_hd232399232457_ (let () (declare (not safe)) - (##car _e231219231273_))) - (_tl231217231278_ + (##car _e232400232454_))) + (_tl232398232459_ (let () (declare (not safe)) - (##cdr _e231219231273_)))) + (##cdr _e232400232454_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231218231276_)) - (let ((_e231222231281_ + _hd232399232457_)) + (let ((_e232403232462_ (let () (declare (not safe)) (gx#stx-e - _hd231218231276_)))) - (let ((_hd231221231284_ + _hd232399232457_)))) + (let ((_hd232402232465_ (let () (declare (not safe)) - (##car _e231222231281_))) - (_tl231220231286_ + (##car _e232403232462_))) + (_tl232401232467_ (let () (declare (not safe)) - (##cdr _e231222231281_)))) + (##cdr _e232403232462_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231221231284_)) - (let ((_e231225231289_ + _hd232402232465_)) + (let ((_e232406232470_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd231221231284_)))) - (let ((_hd231224231292_ + (gx#stx-e _hd232402232465_)))) + (let ((_hd232405232473_ (let () (declare (not safe)) - (##car _e231225231289_))) - (_tl231223231294_ + (##car _e232406232470_))) + (_tl232404232475_ (let () (declare (not safe)) - (##cdr _e231225231289_)))) + (##cdr _e232406232470_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231224231292_)) - (let ((_e231228231297_ + (gx#stx-pair? _hd232405232473_)) + (let ((_e232409232478_ (let () (declare (not safe)) - (gx#stx-e _hd231224231292_)))) - (let ((_hd231227231300_ + (gx#stx-e _hd232405232473_)))) + (let ((_hd232408232481_ (let () (declare (not safe)) - (##car _e231228231297_))) - (_tl231226231302_ + (##car _e232409232478_))) + (_tl232407232483_ (let () (declare (not safe)) - (##cdr _e231228231297_)))) + (##cdr _e232409232478_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231226231302_)) + (gx#stx-null? _tl232407232483_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231223231294_)) - (let ((_e231231231305_ + (gx#stx-pair? _tl232404232475_)) + (let ((_e232412232486_ (let () (declare (not safe)) - (gx#stx-e _tl231223231294_)))) - (let ((_hd231230231308_ + (gx#stx-e _tl232404232475_)))) + (let ((_hd232411232489_ (let () (declare (not safe)) - (##car _e231231231305_))) - (_tl231229231310_ + (##car _e232412232486_))) + (_tl232410232491_ (let () (declare (not safe)) - (##cdr _e231231231305_)))) + (##cdr _e232412232486_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd231230231308_)) - (let ((_e231234231313_ + _hd232411232489_)) + (let ((_e232415232494_ (let () (declare (not safe)) (gx#stx-e - _hd231230231308_)))) - (let ((_hd231233231316_ + _hd232411232489_)))) + (let ((_hd232414232497_ (let () (declare (not safe)) - (##car _e231234231313_))) - (_tl231232231318_ + (##car _e232415232494_))) + (_tl232413232499_ (let () (declare (not safe)) - (##cdr _e231234231313_)))) + (##cdr _e232415232494_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231232231318_)) - (let ((_e231237231321_ + _tl232413232499_)) + (let ((_e232418232502_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl231232231318_)))) - (let ((_hd231236231324_ - (let () (declare (not safe)) (##car _e231237231321_))) - (_tl231235231326_ - (let () (declare (not safe)) (##cdr _e231237231321_)))) + (gx#stx-e _tl232413232499_)))) + (let ((_hd232417232505_ + (let () (declare (not safe)) (##car _e232418232502_))) + (_tl232416232507_ + (let () (declare (not safe)) (##cdr _e232418232502_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231236231324_)) - (let ((_e231240231329_ + (gx#stx-pair? _hd232417232505_)) + (let ((_e232421232510_ (let () (declare (not safe)) - (gx#stx-e _hd231236231324_)))) - (let ((_hd231239231332_ + (gx#stx-e _hd232417232505_)))) + (let ((_hd232420232513_ (let () (declare (not safe)) - (##car _e231240231329_))) - (_tl231238231334_ + (##car _e232421232510_))) + (_tl232419232515_ (let () (declare (not safe)) - (##cdr _e231240231329_)))) + (##cdr _e232421232510_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231239231332_)) - (let ((_e231243231337_ + (gx#stx-pair? _hd232420232513_)) + (let ((_e232424232518_ (let () (declare (not safe)) - (gx#stx-e _hd231239231332_)))) - (let ((_hd231242231340_ + (gx#stx-e _hd232420232513_)))) + (let ((_hd232423232521_ (let () (declare (not safe)) - (##car _e231243231337_))) - (_tl231241231342_ + (##car _e232424232518_))) + (_tl232422232523_ (let () (declare (not safe)) - (##cdr _e231243231337_)))) + (##cdr _e232424232518_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231242231340_)) - (let ((_e231246231345_ + (gx#stx-pair? _hd232423232521_)) + (let ((_e232427232526_ (let () (declare (not safe)) - (gx#stx-e _hd231242231340_)))) - (let ((_hd231245231348_ + (gx#stx-e _hd232423232521_)))) + (let ((_hd232426232529_ (let () (declare (not safe)) - (##car _e231246231345_))) - (_tl231244231350_ + (##car _e232427232526_))) + (_tl232425232531_ (let () (declare (not safe)) - (##cdr _e231246231345_)))) + (##cdr _e232427232526_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231244231350_)) + _tl232425232531_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231241231342_)) - (let ((_e231249231353_ + _tl232422232523_)) + (let ((_e232430232534_ (let () (declare (not safe)) (gx#stx-e - _tl231241231342_)))) - (let ((_hd231248231356_ + _tl232422232523_)))) + (let ((_hd232429232537_ (let () (declare (not safe)) - (##car _e231249231353_))) - (_tl231247231358_ + (##car _e232430232534_))) + (_tl232428232539_ (let () (declare (not safe)) - (##cdr _e231249231353_)))) + (##cdr _e232430232534_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231247231358_)) + _tl232428232539_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _tl231238231334_)) + (gx#stx-null? _tl232419232515_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231235231326_)) - (let ((_e231252231361_ + (gx#stx-pair? _tl232416232507_)) + (let ((_e232433232542_ (let () (declare (not safe)) - (gx#stx-e _tl231235231326_)))) - (let ((_hd231251231364_ + (gx#stx-e _tl232416232507_)))) + (let ((_hd232432232545_ (let () (declare (not safe)) - (##car _e231252231361_))) - (_tl231250231366_ + (##car _e232433232542_))) + (_tl232431232547_ (let () (declare (not safe)) - (##cdr _e231252231361_)))) + (##cdr _e232433232542_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231250231366_)) + (gx#stx-null? _tl232431232547_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231229231310_)) + (gx#stx-null? _tl232410232491_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl231220231286_)) + (gx#stx-null? _tl232401232467_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231217231278_)) - (let ((_e231255231369_ + _tl232398232459_)) + (let ((_e232436232550_ (let () (declare (not safe)) (gx#stx-e - _tl231217231278_)))) - (let ((_hd231254231372_ + _tl232398232459_)))) + (let ((_hd232435232553_ (let () (declare (not safe)) - (##car _e231255231369_))) - (_tl231253231374_ + (##car _e232436232550_))) + (_tl232434232555_ (let () (declare (not safe)) - (##cdr _e231255231369_)))) + (##cdr _e232436232550_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231253231374_)) - ((lambda (_L231377_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L231378_ - _L231379_ - _L231380_ - _L231381_) - (let* ((_get-kws-id231421_ - (let ((__tmp244075 + _tl232434232555_)) + ((lambda (_L232558_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _L232559_ + _L232560_ + _L232561_ + _L232562_) + (let* ((_get-kws-id232602_ + (let ((__tmp245273 (let () (declare (not safe)) - (gx#stx-e _L231191_))) - (__tmp244073 - (let ((__tmp244074 + (gx#stx-e _L232372_))) + (__tmp245271 + (let ((__tmp245272 (let () (declare (not safe)) - (gx#stx-e _L231381_)))) + (gx#stx-e _L232562_)))) (declare (not safe)) - (_kw-lambda-dispatch-name231043_ - __tmp244074 + (_kw-lambda-dispatch-name232224_ + __tmp245272 '"@")))) (declare (not safe)) - (make-symbol__1 __tmp244075 '"__" __tmp244073))) - (_get-kws-id231423_ - (let ((__tmp244076 + (make-symbol__1 __tmp245273 '"__" __tmp245271))) + (_get-kws-id232604_ + (let ((__tmp245274 (let () (declare (not safe)) - (gx#stx-source _stx231039_)))) + (gx#stx-source _stx232220_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id231421_ - __tmp244076))) - (_main-id231425_ - (let ((__tmp244079 + _get-kws-id232602_ + __tmp245274))) + (_main-id232606_ + (let ((__tmp245277 (let () (declare (not safe)) - (gx#stx-e _L231191_))) - (__tmp244077 - (let ((__tmp244078 + (gx#stx-e _L232372_))) + (__tmp245275 + (let ((__tmp245276 (let () (declare (not safe)) - (gx#stx-e _L231380_)))) + (gx#stx-e _L232561_)))) (declare (not safe)) - (_kw-lambda-dispatch-name231043_ - __tmp244078 + (_kw-lambda-dispatch-name232224_ + __tmp245276 '"%")))) (declare (not safe)) - (make-symbol__1 __tmp244079 '"__" __tmp244077))) - (_main-id231427_ - (let ((__tmp244080 + (make-symbol__1 __tmp245277 '"__" __tmp245275))) + (_main-id232608_ + (let ((__tmp245278 (let () (declare (not safe)) - (gx#stx-source _stx231039_)))) + (gx#stx-source _stx232220_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id231425_ - __tmp244080))) - (_g244081_ + _main-id232606_ + __tmp245278))) + (_g245279_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _get-kws-id231423_))) - (_g244082_ + (gx#core-bind-runtime!__0 _get-kws-id232604_))) + (_g245280_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _main-id231427_))) - (_new-kw-dispatch231431_ + (gx#core-bind-runtime!__0 _main-id232608_))) + (_new-kw-dispatch232612_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L231377_ - _L231381_ - _get-kws-id231423_))) - (_new-get-kws231433_ + _L232558_ + _L232562_ + _get-kws-id232604_))) + (_new-get-kws232614_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L231378_ - _L231380_ - _main-id231427_)))) - (let ((__tmp244085 + _L232559_ + _L232561_ + _main-id232608_)))) + (let ((__tmp245283 (let () (declare (not safe)) - (gxc#identifier-symbol _L231191_))) - (__tmp244084 + (gxc#identifier-symbol _L232372_))) + (__tmp245282 (let () (declare (not safe)) - (gxc#identifier-symbol _get-kws-id231423_))) - (__tmp244083 + (gxc#identifier-symbol _get-kws-id232604_))) + (__tmp245281 (let () (declare (not safe)) - (gxc#identifier-symbol _main-id231427_)))) + (gxc#identifier-symbol _main-id232608_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp244085 + __tmp245283 '" => " - __tmp244084 + __tmp245282 '" => " - __tmp244083)) - (let ((__tmp244086 - (let ((__tmp244087 - (let ((__tmp244100 - (let ((__tmp244101 - (let ((__tmp244102 - (let ((__tmp244103 - (let ((__tmp244105 + __tmp245281)) + (let ((__tmp245284 + (let ((__tmp245285 + (let ((__tmp245298 + (let ((__tmp245299 + (let ((__tmp245300 + (let ((__tmp245301 + (let ((__tmp245303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _main-id231427_ '()))) - (__tmp244104 + (cons _main-id232608_ '()))) + (__tmp245302 (let () (declare (not safe)) - (cons _L231379_ '())))) + (cons _L232560_ '())))) (declare (not safe)) - (cons __tmp244105 __tmp244104)))) + (cons __tmp245303 __tmp245302)))) (declare (not safe)) - (cons '%#define-values __tmp244103)))) + (cons '%#define-values __tmp245301)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244102 - _stx231039_)))) + __tmp245300 + _stx232220_)))) (declare (not safe)) (gxc#lift-top-lambda-define-values% - __tmp244101))) - (__tmp244088 - (let ((__tmp244095 - (let ((__tmp244096 - (let ((__tmp244097 - (let ((__tmp244099 + __tmp245299))) + (__tmp245286 + (let ((__tmp245293 + (let ((__tmp245294 + (let ((__tmp245295 + (let ((__tmp245297 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _get-kws-id231423_ '()))) - (__tmp244098 + (cons _get-kws-id232604_ '()))) + (__tmp245296 (let () (declare (not safe)) - (cons _new-get-kws231433_ '())))) + (cons _new-get-kws232614_ '())))) (declare (not safe)) - (cons __tmp244099 __tmp244098)))) + (cons __tmp245297 __tmp245296)))) (declare (not safe)) - (cons '%#define-values __tmp244097)))) + (cons '%#define-values __tmp245295)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244096 - _stx231039_))) - (__tmp244089 - (let ((__tmp244090 - (let ((__tmp244091 - (let ((__tmp244092 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244094 + __tmp245294 + _stx232220_))) + (__tmp245287 + (let ((__tmp245288 + (let ((__tmp245289 + (let ((__tmp245290 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245292 (let () (declare (not safe)) - (cons _L231191_ '()))) - (__tmp244093 + (cons _L232372_ '()))) + (__tmp245291 (let () (declare (not safe)) - (cons _new-kw-dispatch231431_ '())))) + (cons _new-kw-dispatch232612_ '())))) (declare (not safe)) - (cons __tmp244094 __tmp244093)))) + (cons __tmp245292 __tmp245291)))) (declare (not safe)) - (cons '%#define-values __tmp244092)))) + (cons '%#define-values __tmp245290)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244091 _stx231039_)))) + (gxc#xform-wrap-source __tmp245289 _stx232220_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244090 '())))) + (cons __tmp245288 '())))) (declare (not safe)) - (cons __tmp244095 __tmp244089)))) + (cons __tmp245293 __tmp245287)))) (declare (not safe)) - (cons __tmp244100 __tmp244088)))) + (cons __tmp245298 __tmp245286)))) (declare (not safe)) - (cons '%#begin __tmp244087)))) + (cons '%#begin __tmp245285)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244086 _stx231039_)))) - _hd231254231372_ - _hd231251231364_ - _hd231248231356_ - _hd231245231348_ - _hd231227231300_) + (gxc#xform-wrap-source __tmp245284 _stx232220_)))) + _hd232435232553_ + _hd232432232545_ + _hd232429232537_ + _hd232426232529_ + _hd232408232481_) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231207231260_ - _g231208231263_))) + (_g232388232441_ + _g232389232444_))) (let () (declare (not safe)) - (_g231207231260_ - _g231208231263_))) + (_g232388232441_ + _g232389232444_))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))) + (_g232388232441_ _g232389232444_))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))) + (_g232388232441_ _g232389232444_))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))) + (_g232388232441_ _g232389232444_))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231207231260_ - _g231208231263_))) + (_g232388232441_ + _g232389232444_))) (let () (declare (not safe)) - (_g231207231260_ - _g231208231263_))))) + (_g232388232441_ + _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231207231260_ - _g231208231263_))))) + (_g232388232441_ + _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))) + (_g232388232441_ _g232389232444_))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_))))) + (_g232388232441_ _g232389232444_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g231207231260_ - _g231208231263_))))) + (_g232388232441_ + _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ - _g231208231263_))))) + (_g232388232441_ + _g232389232444_))))) (let () (declare (not safe)) - (_g231207231260_ _g231208231263_)))))) + (_g232388232441_ _g232389232444_)))))) (declare (not safe)) - (_g231206231436_ _L231190_)))) - (___kont243388243389_ - (lambda (_L231136_ _L231137_) - (let ((__tmp244106 - (let ((__tmp244107 - (let ((__tmp244108 - (let ((__tmp244109 + (_g232387232617_ _L232371_)))) + (___kont244586244587_ + (lambda (_L232317_ _L232318_) + (let ((__tmp245304 + (let ((__tmp245305 + (let ((__tmp245306 + (let ((__tmp245307 (let () (declare (not safe)) (gxc#compile-e__0 - _L231136_)))) + _L232317_)))) (declare (not safe)) - (cons __tmp244109 '())))) + (cons __tmp245307 '())))) (declare (not safe)) - (cons _L231137_ __tmp244108)))) + (cons _L232318_ __tmp245306)))) (declare (not safe)) - (cons '%#define-values __tmp244107)))) + (cons '%#define-values __tmp245305)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244106 _stx231039_))))) - (let* ((___match243473243474_ - (lambda (_e231082231158_ - _hd231081231161_ - _tl231080231163_ - _e231085231166_ - _hd231084231169_ - _tl231083231171_ - _e231088231174_ - _hd231087231177_ - _tl231086231179_ - _e231091231182_ - _hd231090231185_ - _tl231089231187_) - (let ((_L231190_ _hd231090231185_) - (_L231191_ _hd231087231177_)) + (gxc#xform-wrap-source __tmp245304 _stx232220_))))) + (let* ((___match244671244672_ + (lambda (_e232263232339_ + _hd232262232342_ + _tl232261232344_ + _e232266232347_ + _hd232265232350_ + _tl232264232352_ + _e232269232355_ + _hd232268232358_ + _tl232267232360_ + _e232272232363_ + _hd232271232366_ + _tl232270232368_) + (let ((_L232371_ _hd232271232366_) + (_L232372_ _hd232268232358_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L231191_)) + (gx#identifier? _L232372_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L231190_))) - (___kont243386243387_ _L231190_ _L231191_) - (___kont243388243389_ - _hd231090231185_ - _hd231084231169_))))) - (___match243445243446_ - (lambda (_e231068231444_ - _hd231067231447_ - _tl231066231449_ - _e231071231452_ - _hd231070231455_ - _tl231069231457_ - _e231074231460_ - _hd231073231463_ - _tl231072231465_ - _e231077231468_ - _hd231076231471_ - _tl231075231473_) - (let ((_L231476_ _hd231076231471_) - (_L231477_ _hd231073231463_)) + (gxc#kw-lambda-expr? _L232371_))) + (___kont244584244585_ _L232371_ _L232372_) + (___kont244586244587_ + _hd232271232366_ + _hd232265232350_))))) + (___match244643244644_ + (lambda (_e232249232625_ + _hd232248232628_ + _tl232247232630_ + _e232252232633_ + _hd232251232636_ + _tl232250232638_ + _e232255232641_ + _hd232254232644_ + _tl232253232646_ + _e232258232649_ + _hd232257232652_ + _tl232256232654_) + (let ((_L232657_ _hd232257232652_) + (_L232658_ _hd232254232644_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L231477_)) + (gx#identifier? _L232658_)) (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L231476_))) - (___kont243384243385_ _L231476_ _L231477_) - (___match243473243474_ - _e231068231444_ - _hd231067231447_ - _tl231066231449_ - _e231071231452_ - _hd231070231455_ - _tl231069231457_ - _e231074231460_ - _hd231073231463_ - _tl231072231465_ - _e231077231468_ - _hd231076231471_ - _tl231075231473_))))) - (___match243417243418_ - (lambda (_e231054231626_ - _hd231053231629_ - _tl231052231631_ - _e231057231634_ - _hd231056231637_ - _tl231055231639_ - _e231060231642_ - _hd231059231645_ - _tl231058231647_ - _e231063231650_ - _hd231062231653_ - _tl231061231655_) - (let ((_L231658_ _hd231062231653_) - (_L231659_ _hd231059231645_)) + (gxc#opt-lambda-expr? _L232657_))) + (___kont244582244583_ _L232657_ _L232658_) + (___match244671244672_ + _e232249232625_ + _hd232248232628_ + _tl232247232630_ + _e232252232633_ + _hd232251232636_ + _tl232250232638_ + _e232255232641_ + _hd232254232644_ + _tl232253232646_ + _e232258232649_ + _hd232257232652_ + _tl232256232654_))))) + (___match244615244616_ + (lambda (_e232235232807_ + _hd232234232810_ + _tl232233232812_ + _e232238232815_ + _hd232237232818_ + _tl232236232820_ + _e232241232823_ + _hd232240232826_ + _tl232239232828_ + _e232244232831_ + _hd232243232834_ + _tl232242232836_) + (let ((_L232839_ _hd232243232834_) + (_L232840_ _hd232240232826_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L231659_)) + (gx#identifier? _L232840_)) (let () (declare (not safe)) - (gxc#case-lambda-expr? _L231658_))) - (___kont243382243383_ _L231658_ _L231659_) - (___match243445243446_ - _e231054231626_ - _hd231053231629_ - _tl231052231631_ - _e231057231634_ - _hd231056231637_ - _tl231055231639_ - _e231060231642_ - _hd231059231645_ - _tl231058231647_ - _e231063231650_ - _hd231062231653_ - _tl231061231655_)))))) + (gxc#case-lambda-expr? _L232839_))) + (___kont244580244581_ _L232839_ _L232840_) + (___match244643244644_ + _e232235232807_ + _hd232234232810_ + _tl232233232812_ + _e232238232815_ + _hd232237232818_ + _tl232236232820_ + _e232241232823_ + _hd232240232826_ + _tl232239232828_ + _e232244232831_ + _hd232243232834_ + _tl232242232836_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243380243381_)) - (let ((_e231054231626_ + (gx#stx-pair? ___stx244578244579_)) + (let ((_e232235232807_ (let () (declare (not safe)) - (gx#stx-e ___stx243380243381_)))) - (let ((_tl231052231631_ + (gx#stx-e ___stx244578244579_)))) + (let ((_tl232233232812_ (let () (declare (not safe)) - (##cdr _e231054231626_))) - (_hd231053231629_ + (##cdr _e232235232807_))) + (_hd232234232810_ (let () (declare (not safe)) - (##car _e231054231626_)))) + (##car _e232235232807_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231052231631_)) - (let ((_e231057231634_ + (gx#stx-pair? _tl232233232812_)) + (let ((_e232238232815_ (let () (declare (not safe)) - (gx#stx-e _tl231052231631_)))) - (let ((_tl231055231639_ + (gx#stx-e _tl232233232812_)))) + (let ((_tl232236232820_ (let () (declare (not safe)) - (##cdr _e231057231634_))) - (_hd231056231637_ + (##cdr _e232238232815_))) + (_hd232237232818_ (let () (declare (not safe)) - (##car _e231057231634_)))) + (##car _e232238232815_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd231056231637_)) - (let ((_e231060231642_ + (gx#stx-pair? _hd232237232818_)) + (let ((_e232241232823_ (let () (declare (not safe)) - (gx#stx-e _hd231056231637_)))) - (let ((_tl231058231647_ + (gx#stx-e _hd232237232818_)))) + (let ((_tl232239232828_ (let () (declare (not safe)) - (##cdr _e231060231642_))) - (_hd231059231645_ + (##cdr _e232241232823_))) + (_hd232240232826_ (let () (declare (not safe)) - (##car _e231060231642_)))) + (##car _e232241232823_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl231058231647_)) + (gx#stx-null? _tl232239232828_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231055231639_)) - (let ((_e231063231650_ + _tl232236232820_)) + (let ((_e232244232831_ (let () (declare (not safe)) (gx#stx-e - _tl231055231639_)))) - (let ((_tl231061231655_ + _tl232236232820_)))) + (let ((_tl232242232836_ (let () (declare (not safe)) - (##cdr _e231063231650_))) - (_hd231062231653_ + (##cdr _e232244232831_))) + (_hd232243232834_ (let () (declare (not safe)) - (##car _e231063231650_)))) + (##car _e232244232831_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231061231655_)) - (___match243417243418_ - _e231054231626_ - _hd231053231629_ - _tl231052231631_ - _e231057231634_ - _hd231056231637_ - _tl231055231639_ - _e231060231642_ - _hd231059231645_ - _tl231058231647_ - _e231063231650_ - _hd231062231653_ - _tl231061231655_) + _tl232242232836_)) + (___match244615244616_ + _e232235232807_ + _hd232234232810_ + _tl232233232812_ + _e232238232815_ + _hd232237232818_ + _tl232236232820_ + _e232241232823_ + _hd232240232826_ + _tl232239232828_ + _e232244232831_ + _hd232243232834_ + _tl232242232836_) (let () (declare (not safe)) - (_g231048231107_))))) + (_g232229232288_))))) (let () (declare (not safe)) - (_g231048231107_))) + (_g232229232288_))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl231055231639_)) - (let ((_e231102231128_ + _tl232236232820_)) + (let ((_e232283232309_ (let () (declare (not safe)) (gx#stx-e - _tl231055231639_)))) - (let ((_tl231100231133_ + _tl232236232820_)))) + (let ((_tl232281232314_ (let () (declare (not safe)) - (##cdr _e231102231128_))) - (_hd231101231131_ + (##cdr _e232283232309_))) + (_hd232282232312_ (let () (declare (not safe)) - (##car _e231102231128_)))) + (##car _e232283232309_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231100231133_)) - (___kont243388243389_ - _hd231101231131_ - _hd231056231637_) + _tl232281232314_)) + (___kont244586244587_ + _hd232282232312_ + _hd232237232818_) (let () (declare (not safe)) - (_g231048231107_))))) + (_g232229232288_))))) (let () (declare (not safe)) - (_g231048231107_)))))) + (_g232229232288_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl231055231639_)) - (let ((_e231102231128_ + (gx#stx-pair? _tl232236232820_)) + (let ((_e232283232309_ (let () (declare (not safe)) - (gx#stx-e _tl231055231639_)))) - (let ((_tl231100231133_ + (gx#stx-e _tl232236232820_)))) + (let ((_tl232281232314_ (let () (declare (not safe)) - (##cdr _e231102231128_))) - (_hd231101231131_ + (##cdr _e232283232309_))) + (_hd232282232312_ (let () (declare (not safe)) - (##car _e231102231128_)))) + (##car _e232283232309_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl231100231133_)) - (___kont243388243389_ - _hd231101231131_ - _hd231056231637_) + _tl232281232314_)) + (___kont244586244587_ + _hd232282232312_ + _hd232237232818_) (let () (declare (not safe)) - (_g231048231107_))))) + (_g232229232288_))))) (let () (declare (not safe)) - (_g231048231107_)))))) - (let () (declare (not safe)) (_g231048231107_))))) - (let () (declare (not safe)) (_g231048231107_))))))))) + (_g232229232288_)))))) + (let () (declare (not safe)) (_g232229232288_))))) + (let () (declare (not safe)) (_g232229232288_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_stx229971_) - (letrec* ((_bind-e__241776241777_ - (lambda (_id231023_ _expr231024_ _compile?231025_) - (let ((__tmp244112 + (lambda (_stx231152_) + (letrec* ((_bind-e__242974242975_ + (lambda (_id232204_ _expr232205_ _compile?232206_) + (let ((__tmp245310 (let () (declare (not safe)) - (cons _id231023_ '()))) - (__tmp244110 - (let ((__tmp244111 - (if _compile?231025_ + (cons _id232204_ '()))) + (__tmp245308 + (let ((__tmp245309 + (if _compile?232206_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr231024_)) - _expr231024_))) + (gxc#compile-e__0 _expr232205_)) + _expr232205_))) (declare (not safe)) - (cons __tmp244111 '())))) + (cons __tmp245309 '())))) (declare (not safe)) - (cons __tmp244112 __tmp244110)))) - (_bind-e__0__241778241779_ - (lambda (_id231030_ _expr231031_) - (let ((_compile?231033_ '#t)) + (cons __tmp245310 __tmp245308)))) + (_bind-e__0__242976242977_ + (lambda (_id232211_ _expr232212_) + (let ((_compile?232214_ '#t)) (declare (not safe)) - (_bind-e__241776241777_ - _id231030_ - _expr231031_ - _compile?231033_)))) - (_bind-e229973_ - (lambda _g244114_ - (let ((_g244113_ + (_bind-e__242974242975_ + _id232211_ + _expr232212_ + _compile?232214_)))) + (_bind-e231154_ + (lambda _g245312_ + (let ((_g245311_ (let () (declare (not safe)) - (##length _g244114_)))) - (cond ((let () (declare (not safe)) (##fx= _g244113_ 2)) - (apply (lambda (_id231030_ _expr231031_) + (##length _g245312_)))) + (cond ((let () (declare (not safe)) (##fx= _g245311_ 2)) + (apply (lambda (_id232211_ _expr232212_) (let () (declare (not safe)) - (_bind-e__0__241778241779_ - _id231030_ - _expr231031_))) - _g244114_)) - ((let () (declare (not safe)) (##fx= _g244113_ 3)) - (apply (lambda (_id231035_ - _expr231036_ - _compile?231037_) + (_bind-e__0__242976242977_ + _id232211_ + _expr232212_))) + _g245312_)) + ((let () (declare (not safe)) (##fx= _g245311_ 3)) + (apply (lambda (_id232216_ + _expr232217_ + _compile?232218_) (let () (declare (not safe)) - (_bind-e__241776241777_ - _id231035_ - _expr231036_ - _compile?231037_))) - _g244114_)) + (_bind-e__242974242975_ + _id232216_ + _expr232217_ + _compile?232218_))) + _g245312_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g244114_)))))) - (_compile-bindings229974_ - (lambda (_bindings230607_) - (let _lp230609_ ((_rest230611_ _bindings230607_) - (_lift1230612_ '()) - (_lift2230613_ '()) - (_bind230614_ '())) - (let* ((_rest230615230623_ _rest230611_) - (_else230617230631_ + _g245312_)))))) + (_compile-bindings231155_ + (lambda (_bindings231788_) + (let _lp231790_ ((_rest231792_ _bindings231788_) + (_lift1231793_ '()) + (_lift2231794_ '()) + (_bind231795_ '())) + (let* ((_rest231796231804_ _rest231792_) + (_else231798231812_ (lambda () - (values (reverse _lift1230612_) - (reverse _lift2230613_) - (reverse _bind230614_)))) - (_K230619231010_ - (lambda (_rest230634_ _hd230635_) - (let* ((___stx243516243517_ _hd230635_) - (_g230639230675_ + (values (reverse _lift1231793_) + (reverse _lift2231794_) + (reverse _bind231795_)))) + (_K231800232191_ + (lambda (_rest231815_ _hd231816_) + (let* ((___stx244714244715_ _hd231816_) + (_g231820231856_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243516243517_))))) - (let ((___kont243518243519_ - (lambda (_L230917_ _L230918_) - (let* ((___stx243496243497_ - _L230917_) - (_g230933230947_ + ___stx244714244715_))))) + (let ((___kont244716244717_ + (lambda (_L232098_ _L232099_) + (let* ((___stx244694244695_ + _L232098_) + (_g232114232128_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243496243497_))))) - (let ((___kont243498243499_ - (lambda (_L230995_) - (let ((__tmp244115 - (let ((__tmp244116 + ___stx244694244695_))))) + (let ((___kont244696244697_ + (lambda (_L232176_) + (let ((__tmp245313 + (let ((__tmp245314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__241776241777_ - _L230918_ - _L230917_ + (_bind-e__242974242975_ + _L232099_ + _L232098_ '#f)))) (declare (not safe)) - (cons __tmp244116 _bind230614_)))) + (cons __tmp245314 _bind231795_)))) (declare (not safe)) - (_lp230609_ - _rest230634_ - _lift1230612_ - _lift2230613_ - __tmp244115)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243500243501_ - (lambda (_L230960_) - (let ((_g244117_ + (_lp231790_ + _rest231815_ + _lift1231793_ + _lift2231794_ + __tmp245313)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244698244699_ + (lambda (_L232141_) + (let ((_g245315_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx229971_ - _L230918_ - _L230960_ + _stx231152_ + _L232099_ + _L232141_ '#t)))) (begin - (let ((_g244118_ + (let ((_g245316_ (let () (declare (not safe)) - (if (##values? _g244117_) - (##vector-length _g244117_) + (if (##values? _g245315_) + (##vector-length _g245315_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244118_ 3))) - (error "Context expects 3 values" _g244118_))) - (let ((_ids230970_ + (##fx= _g245316_ 3))) + (error "Context expects 3 values" _g245316_))) + (let ((_ids232151_ (let () (declare (not safe)) - (##vector-ref _g244117_ 0))) - (_impls230971_ + (##vector-ref _g245315_ 0))) + (_impls232152_ (let () (declare (not safe)) - (##vector-ref _g244117_ 1))) - (_clauses230972_ + (##vector-ref _g245315_ 1))) + (_clauses232153_ (let () (declare (not safe)) - (##vector-ref _g244117_ 2)))) - (let* ((_g244119_ - (for-each gx#core-bind-runtime! _ids230970_)) - (_xbind230975_ - (map _bind-e229973_ _ids230970_ _impls230971_)) - (_expr*230977_ - (let ((__tmp244121 + (##vector-ref _g245315_ 2)))) + (let* ((_g245317_ + (for-each gx#core-bind-runtime! _ids232151_)) + (_xbind232156_ + (map _bind-e231154_ _ids232151_ _impls232152_)) + (_expr*232158_ + (let ((__tmp245319 (let () (declare (not safe)) - (cons '%#case-lambda _clauses230972_))) - (__tmp244120 + (cons '%#case-lambda _clauses232153_))) + (__tmp245318 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -12419,1584 +12467,1584 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244121 - __tmp244120))) - (_bind*230979_ + __tmp245319 + __tmp245318))) + (_bind*232160_ (let () (declare (not safe)) - (_bind-e__241776241777_ - _L230918_ - _expr*230977_ + (_bind-e__242974242975_ + _L232099_ + _expr*232158_ '#f)))) - (let ((__tmp244123 + (let ((__tmp245321 (let () (declare (not safe)) - (gxc#identifier-symbol _L230918_))) - (__tmp244122 - (map gxc#identifier-symbol _ids230970_))) + (gxc#identifier-symbol _L232099_))) + (__tmp245320 + (map gxc#identifier-symbol _ids232151_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp244123 + __tmp245321 '" => " - __tmp244122)) - (let ((__tmp244125 + __tmp245320)) + (let ((__tmp245323 (let () (declare (not safe)) - (foldl1 cons _lift2230613_ _xbind230975_))) - (__tmp244124 + (foldl1 cons _lift2231794_ _xbind232156_))) + (__tmp245322 (let () (declare (not safe)) - (cons _bind*230979_ _bind230614_)))) + (cons _bind*232160_ _bind231795_)))) (declare (not safe)) - (_lp230609_ - _rest230634_ - _lift1230612_ - __tmp244125 - __tmp244124))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match243507243508_ - (lambda (_e230938230987_ - _hd230937230990_ - _tl230936230992_) - (let ((_L230995_ - _tl230936230992_)) + (_lp231790_ + _rest231815_ + _lift1231793_ + __tmp245323 + __tmp245322))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match244705244706_ + (lambda (_e232119232168_ + _hd232118232171_ + _tl232117232173_) + (let ((_L232176_ + _tl232117232173_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L230995_)) - (___kont243498243499_ _L230995_) - (___kont243500243501_ _tl230936230992_)))))) + (andmap1 gxc#dispatch-lambda-form? _L232176_)) + (___kont244696244697_ _L232176_) + (___kont244698244699_ _tl232117232173_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243496243497_)) - (let ((_e230938230987_ + ___stx244694244695_)) + (let ((_e232119232168_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx243496243497_)))) - (let ((_tl230936230992_ - (let () (declare (not safe)) (##cdr _e230938230987_))) - (_hd230937230990_ - (let () (declare (not safe)) (##car _e230938230987_)))) - (___match243507243508_ - _e230938230987_ - _hd230937230990_ - _tl230936230992_))) - (let () (declare (not safe)) (_g230933230947_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243520243521_ - (lambda (_L230745_ _L230746_) - (let* ((_g230760230790_ - (lambda (_g230761230787_) + (gx#stx-e ___stx244694244695_)))) + (let ((_tl232117232173_ + (let () (declare (not safe)) (##cdr _e232119232168_))) + (_hd232118232171_ + (let () (declare (not safe)) (##car _e232119232168_)))) + (___match244705244706_ + _e232119232168_ + _hd232118232171_ + _tl232117232173_))) + (let () (declare (not safe)) (_g232114232128_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244718244719_ + (lambda (_L231926_ _L231927_) + (let* ((_g231941231971_ + (lambda (_g231942231968_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g230761230787_)))) - (_g230759230885_ - (lambda (_g230761230793_) + _g231942231968_)))) + (_g231940232066_ + (lambda (_g231942231974_) (if (let () (declare (not safe)) (gx#stx-pair? - _g230761230793_)) - (let ((_e230767230795_ + _g231942231974_)) + (let ((_e231948231976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g230761230793_)))) - (let ((_hd230766230798_ + (gx#stx-e _g231942231974_)))) + (let ((_hd231947231979_ (let () (declare (not safe)) - (##car _e230767230795_))) - (_tl230765230800_ + (##car _e231948231976_))) + (_tl231946231981_ (let () (declare (not safe)) - (##cdr _e230767230795_)))) + (##cdr _e231948231976_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230765230800_)) - (let ((_e230770230803_ + (gx#stx-pair? _tl231946231981_)) + (let ((_e231951231984_ (let () (declare (not safe)) - (gx#stx-e _tl230765230800_)))) - (let ((_hd230769230806_ + (gx#stx-e _tl231946231981_)))) + (let ((_hd231950231987_ (let () (declare (not safe)) - (##car _e230770230803_))) - (_tl230768230808_ + (##car _e231951231984_))) + (_tl231949231989_ (let () (declare (not safe)) - (##cdr _e230770230803_)))) + (##cdr _e231951231984_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230769230806_)) - (let ((_e230773230811_ + (gx#stx-pair? _hd231950231987_)) + (let ((_e231954231992_ (let () (declare (not safe)) - (gx#stx-e _hd230769230806_)))) - (let ((_hd230772230814_ + (gx#stx-e _hd231950231987_)))) + (let ((_hd231953231995_ (let () (declare (not safe)) - (##car _e230773230811_))) - (_tl230771230816_ + (##car _e231954231992_))) + (_tl231952231997_ (let () (declare (not safe)) - (##cdr _e230773230811_)))) + (##cdr _e231954231992_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230772230814_)) - (let ((_e230776230819_ + (gx#stx-pair? _hd231953231995_)) + (let ((_e231957232000_ (let () (declare (not safe)) (gx#stx-e - _hd230772230814_)))) - (let ((_hd230775230822_ + _hd231953231995_)))) + (let ((_hd231956232003_ (let () (declare (not safe)) - (##car _e230776230819_))) - (_tl230774230824_ + (##car _e231957232000_))) + (_tl231955232005_ (let () (declare (not safe)) - (##cdr _e230776230819_)))) + (##cdr _e231957232000_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230775230822_)) - (let ((_e230779230827_ + _hd231956232003_)) + (let ((_e231960232008_ (let () (declare (not safe)) (gx#stx-e - _hd230775230822_)))) - (let ((_hd230778230830_ + _hd231956232003_)))) + (let ((_hd231959232011_ (let () (declare (not safe)) - (##car _e230779230827_))) - (_tl230777230832_ + (##car _e231960232008_))) + (_tl231958232013_ (let () (declare (not safe)) - (##cdr _e230779230827_)))) + (##cdr _e231960232008_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230777230832_)) + _tl231958232013_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl230774230824_)) - (let ((_e230782230835_ + (gx#stx-pair? _tl231955232005_)) + (let ((_e231963232016_ (let () (declare (not safe)) - (gx#stx-e _tl230774230824_)))) - (let ((_hd230781230838_ + (gx#stx-e _tl231955232005_)))) + (let ((_hd231962232019_ (let () (declare (not safe)) - (##car _e230782230835_))) - (_tl230780230840_ + (##car _e231963232016_))) + (_tl231961232021_ (let () (declare (not safe)) - (##cdr _e230782230835_)))) + (##cdr _e231963232016_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230780230840_)) + (gx#stx-null? _tl231961232021_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl230771230816_)) + (gx#stx-null? _tl231952231997_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230768230808_)) - (let ((_e230785230843_ + (gx#stx-pair? _tl231949231989_)) + (let ((_e231966232024_ (let () (declare (not safe)) - (gx#stx-e _tl230768230808_)))) - (let ((_hd230784230846_ + (gx#stx-e _tl231949231989_)))) + (let ((_hd231965232027_ (let () (declare (not safe)) - (##car _e230785230843_))) - (_tl230783230848_ + (##car _e231966232024_))) + (_tl231964232029_ (let () (declare (not safe)) - (##cdr _e230785230843_)))) + (##cdr _e231966232024_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230783230848_)) - ((lambda (_L230851_ - _L230852_ - _L230853_) - (let* ((_lambda-id230877_ - (let ((__tmp244127 + _tl231964232029_)) + ((lambda (_L232032_ + _L232033_ + _L232034_) + (let* ((_lambda-id232058_ + (let ((__tmp245325 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L230746_))) - (__tmp244126 (gensym '__))) + (gx#stx-e _L231927_))) + (__tmp245324 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp244127 __tmp244126))) - (_lambda-id230879_ - (let ((__tmp244128 + (make-symbol__1 __tmp245325 __tmp245324))) + (_lambda-id232060_ + (let ((__tmp245326 (let () (declare (not safe)) - (gx#stx-source _stx229971_)))) + (gx#stx-source _stx231152_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id230877_ __tmp244128))) - (_g244129_ + (gx#core-quote-syntax__1 _lambda-id232058_ __tmp245326))) + (_g245327_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id230879_))) - (_new-case-lambda-expr230882_ + (gx#core-bind-runtime!__0 _lambda-id232060_))) + (_new-case-lambda-expr232063_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L230851_ - _L230853_ - _lambda-id230879_)))) + _L232032_ + _L232034_ + _lambda-id232060_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp244131 + (let ((__tmp245329 (let () (declare (not safe)) (gxc#identifier-symbol - _L230746_))) - (__tmp244130 + _L231927_))) + (__tmp245328 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id230879_)))) + _lambda-id232060_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp244131 + __tmp245329 '" => " - __tmp244130)) - (let ((__tmp244134 - (let ((__tmp244135 + __tmp245328)) + (let ((__tmp245332 + (let ((__tmp245333 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__241776241777_ - _L230746_ - _new-case-lambda-expr230882_ + (_bind-e__242974242975_ + _L231927_ + _new-case-lambda-expr232063_ '#f)))) (declare (not safe)) - (cons __tmp244135 _rest230634_))) - (__tmp244132 - (let ((__tmp244133 + (cons __tmp245333 _rest231815_))) + (__tmp245330 + (let ((__tmp245331 (let () (declare (not safe)) - (_bind-e__0__241778241779_ - _lambda-id230879_ - _L230852_)))) + (_bind-e__0__242976242977_ + _lambda-id232060_ + _L232033_)))) (declare (not safe)) - (cons __tmp244133 _lift1230612_)))) + (cons __tmp245331 _lift1231793_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp230609_ - __tmp244134 - __tmp244132 - _lift2230613_ - _bind230614_)))) - _hd230784230846_ - _hd230781230838_ - _hd230778230830_) + (_lp231790_ + __tmp245332 + __tmp245330 + _lift2231794_ + _bind231795_)))) + _hd231965232027_ + _hd231962232019_ + _hd231959232011_) (let () (declare (not safe)) - (_g230760230790_ - _g230761230793_))))) + (_g231941231971_ + _g231942231974_))))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_))) + (_g231941231971_ _g231942231974_))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_))) + (_g231941231971_ _g231942231974_))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_))))) + (_g231941231971_ _g231942231974_))))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_))) + (_g231941231971_ _g231942231974_))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_))))) + (_g231941231971_ _g231942231974_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230760230790_ - _g230761230793_))))) + (_g231941231971_ + _g231942231974_))))) (let () (declare (not safe)) - (_g230760230790_ - _g230761230793_))))) + (_g231941231971_ + _g231942231974_))))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_))))) + (_g231941231971_ _g231942231974_))))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_))))) + (_g231941231971_ _g231942231974_))))) (let () (declare (not safe)) - (_g230760230790_ _g230761230793_)))))) + (_g231941231971_ _g231942231974_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g230759230885_ _L230745_)))) - (___kont243522243523_ - (lambda (_L230696_ _L230697_) - (let ((__tmp244136 - (let ((__tmp244137 - (let ((__tmp244138 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244139 + (_g231940232066_ _L231926_)))) + (___kont244720244721_ + (lambda (_L231877_ _L231878_) + (let ((__tmp245334 + (let ((__tmp245335 + (let ((__tmp245336 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245337 (let () (declare (not safe)) - (gxc#compile-e__0 _L230696_)))) + (gxc#compile-e__0 _L231877_)))) (declare (not safe)) - (cons __tmp244139 '())))) + (cons __tmp245337 '())))) (declare (not safe)) - (cons _L230697_ __tmp244138)))) + (cons _L231878_ __tmp245336)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244137 - _bind230614_)))) + (cons __tmp245335 + _bind231795_)))) (declare (not safe)) - (_lp230609_ - _rest230634_ - _lift1230612_ - _lift2230613_ - __tmp244136))))) - (let* ((___match243567243568_ - (lambda (_e230656230721_ - _hd230655230724_ - _tl230654230726_ - _e230659230729_ - _hd230658230732_ - _tl230657230734_ - _e230662230737_ - _hd230661230740_ - _tl230660230742_) - (let ((_L230745_ - _hd230661230740_) - (_L230746_ - _hd230658230732_)) + (_lp231790_ + _rest231815_ + _lift1231793_ + _lift2231794_ + __tmp245334))))) + (let* ((___match244765244766_ + (lambda (_e231837231902_ + _hd231836231905_ + _tl231835231907_ + _e231840231910_ + _hd231839231913_ + _tl231838231915_ + _e231843231918_ + _hd231842231921_ + _tl231841231923_) + (let ((_L231926_ + _hd231842231921_) + (_L231927_ + _hd231839231913_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L230746_)) + _L231927_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L230745_))) - (___kont243520243521_ - _L230745_ - _L230746_) - (___kont243522243523_ - _hd230661230740_ - _hd230655230724_))))) - (___match243545243546_ - (lambda (_e230645230893_ - _hd230644230896_ - _tl230643230898_ - _e230648230901_ - _hd230647230904_ - _tl230646230906_ - _e230651230909_ - _hd230650230912_ - _tl230649230914_) - (let ((_L230917_ - _hd230650230912_) - (_L230918_ - _hd230647230904_)) + _L231926_))) + (___kont244718244719_ + _L231926_ + _L231927_) + (___kont244720244721_ + _hd231842231921_ + _hd231836231905_))))) + (___match244743244744_ + (lambda (_e231826232074_ + _hd231825232077_ + _tl231824232079_ + _e231829232082_ + _hd231828232085_ + _tl231827232087_ + _e231832232090_ + _hd231831232093_ + _tl231830232095_) + (let ((_L232098_ + _hd231831232093_) + (_L232099_ + _hd231828232085_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L230918_)) + _L232099_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L230917_))) - (___kont243518243519_ - _L230917_ - _L230918_) - (___match243567243568_ - _e230645230893_ - _hd230644230896_ - _tl230643230898_ - _e230648230901_ - _hd230647230904_ - _tl230646230906_ - _e230651230909_ - _hd230650230912_ - _tl230649230914_)))))) + _L232098_))) + (___kont244716244717_ + _L232098_ + _L232099_) + (___match244765244766_ + _e231826232074_ + _hd231825232077_ + _tl231824232079_ + _e231829232082_ + _hd231828232085_ + _tl231827232087_ + _e231832232090_ + _hd231831232093_ + _tl231830232095_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243516243517_)) - (let ((_e230645230893_ + ___stx244714244715_)) + (let ((_e231826232074_ (let () (declare (not safe)) (gx#stx-e - ___stx243516243517_)))) - (let ((_tl230643230898_ + ___stx244714244715_)))) + (let ((_tl231824232079_ (let () (declare (not safe)) - (##cdr _e230645230893_))) - (_hd230644230896_ + (##cdr _e231826232074_))) + (_hd231825232077_ (let () (declare (not safe)) - (##car _e230645230893_)))) + (##car _e231826232074_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230644230896_)) - (let ((_e230648230901_ + _hd231825232077_)) + (let ((_e231829232082_ (let () (declare (not safe)) (gx#stx-e - _hd230644230896_)))) - (let ((_tl230646230906_ + _hd231825232077_)))) + (let ((_tl231827232087_ (let () (declare (not safe)) - (##cdr _e230648230901_))) - (_hd230647230904_ + (##cdr _e231829232082_))) + (_hd231828232085_ (let () (declare (not safe)) - (##car _e230648230901_)))) + (##car _e231829232082_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230646230906_)) + _tl231827232087_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl230643230898_)) - (let ((_e230651230909_ + (gx#stx-pair? _tl231824232079_)) + (let ((_e231832232090_ (let () (declare (not safe)) - (gx#stx-e _tl230643230898_)))) - (let ((_tl230649230914_ + (gx#stx-e _tl231824232079_)))) + (let ((_tl231830232095_ (let () (declare (not safe)) - (##cdr _e230651230909_))) - (_hd230650230912_ + (##cdr _e231832232090_))) + (_hd231831232093_ (let () (declare (not safe)) - (##car _e230651230909_)))) + (##car _e231832232090_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230649230914_)) - (___match243545243546_ - _e230645230893_ - _hd230644230896_ - _tl230643230898_ - _e230648230901_ - _hd230647230904_ - _tl230646230906_ - _e230651230909_ - _hd230650230912_ - _tl230649230914_) + (gx#stx-null? _tl231830232095_)) + (___match244743244744_ + _e231826232074_ + _hd231825232077_ + _tl231824232079_ + _e231829232082_ + _hd231828232085_ + _tl231827232087_ + _e231832232090_ + _hd231831232093_ + _tl231830232095_) (let () (declare (not safe)) - (_g230639230675_))))) - (let () (declare (not safe)) (_g230639230675_))) + (_g231820231856_))))) + (let () (declare (not safe)) (_g231820231856_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230643230898_)) - (let ((_e230670230688_ + (gx#stx-pair? _tl231824232079_)) + (let ((_e231851231869_ (let () (declare (not safe)) - (gx#stx-e _tl230643230898_)))) - (let ((_tl230668230693_ + (gx#stx-e _tl231824232079_)))) + (let ((_tl231849231874_ (let () (declare (not safe)) - (##cdr _e230670230688_))) - (_hd230669230691_ + (##cdr _e231851231869_))) + (_hd231850231872_ (let () (declare (not safe)) - (##car _e230670230688_)))) + (##car _e231851231869_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230668230693_)) - (___kont243522243523_ - _hd230669230691_ - _hd230644230896_) + (gx#stx-null? _tl231849231874_)) + (___kont244720244721_ + _hd231850231872_ + _hd231825232077_) (let () (declare (not safe)) - (_g230639230675_))))) - (let () (declare (not safe)) (_g230639230675_)))))) + (_g231820231856_))))) + (let () (declare (not safe)) (_g231820231856_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl230643230898_)) - (let ((_e230670230688_ + _tl231824232079_)) + (let ((_e231851231869_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl230643230898_)))) - (let ((_tl230668230693_ - (let () (declare (not safe)) (##cdr _e230670230688_))) - (_hd230669230691_ - (let () (declare (not safe)) (##car _e230670230688_)))) + (gx#stx-e _tl231824232079_)))) + (let ((_tl231849231874_ + (let () (declare (not safe)) (##cdr _e231851231869_))) + (_hd231850231872_ + (let () (declare (not safe)) (##car _e231851231869_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230668230693_)) - (___kont243522243523_ _hd230669230691_ _hd230644230896_) - (let () (declare (not safe)) (_g230639230675_))))) - (let () (declare (not safe)) (_g230639230675_)))))) + (gx#stx-null? _tl231849231874_)) + (___kont244720244721_ _hd231850231872_ _hd231825232077_) + (let () (declare (not safe)) (_g231820231856_))))) + (let () (declare (not safe)) (_g231820231856_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230639230675_))))))))) + (_g231820231856_))))))))) (if (let () (declare (not safe)) - (##pair? _rest230615230623_)) - (let ((_hd230620231013_ + (##pair? _rest231796231804_)) + (let ((_hd231801232194_ (let () (declare (not safe)) - (##car _rest230615230623_))) - (_tl230621231015_ + (##car _rest231796231804_))) + (_tl231802232196_ (let () (declare (not safe)) - (##cdr _rest230615230623_)))) - (let* ((_hd231018_ _hd230620231013_) - (_rest231020_ _tl230621231015_)) + (##cdr _rest231796231804_)))) + (let* ((_hd232199_ _hd231801232194_) + (_rest232201_ _tl231802232196_)) (declare (not safe)) - (_K230619231010_ _rest231020_ _hd231018_))) + (_K231800232191_ _rest232201_ _hd232199_))) (let () (declare (not safe)) - (_else230617230631_))))))) - (_lift-kw-lambda?229975_ - (lambda (_bind230531_) - (let* ((___stx243584243585_ _bind230531_) - (_g230534230551_ + (_else231798231812_))))))) + (_lift-kw-lambda?231156_ + (lambda (_bind231712_) + (let* ((___stx244782244783_ _bind231712_) + (_g231715231732_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243584243585_))))) - (let ((___kont243586243587_ - (lambda (_L230587_ _L230588_) + ___stx244782244783_))))) + (let ((___kont244784244785_ + (lambda (_L231768_ _L231769_) (if (let () (declare (not safe)) - (gx#identifier? _L230588_)) + (gx#identifier? _L231769_)) (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L230587_)) + (gxc#kw-lambda-expr? _L231768_)) '#f))) - (___kont243588243589_ (lambda () '#f))) + (___kont244786244787_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243584243585_)) - (let ((_e230540230563_ + (gx#stx-pair? ___stx244782244783_)) + (let ((_e231721231744_ (let () (declare (not safe)) - (gx#stx-e ___stx243584243585_)))) - (let ((_tl230538230568_ + (gx#stx-e ___stx244782244783_)))) + (let ((_tl231719231749_ (let () (declare (not safe)) - (##cdr _e230540230563_))) - (_hd230539230566_ + (##cdr _e231721231744_))) + (_hd231720231747_ (let () (declare (not safe)) - (##car _e230540230563_)))) + (##car _e231721231744_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230539230566_)) - (let ((_e230543230571_ + (gx#stx-pair? _hd231720231747_)) + (let ((_e231724231752_ (let () (declare (not safe)) - (gx#stx-e _hd230539230566_)))) - (let ((_tl230541230576_ + (gx#stx-e _hd231720231747_)))) + (let ((_tl231722231757_ (let () (declare (not safe)) - (##cdr _e230543230571_))) - (_hd230542230574_ + (##cdr _e231724231752_))) + (_hd231723231755_ (let () (declare (not safe)) - (##car _e230543230571_)))) + (##car _e231724231752_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230541230576_)) + (gx#stx-null? _tl231722231757_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230538230568_)) - (let ((_e230546230579_ + _tl231719231749_)) + (let ((_e231727231760_ (let () (declare (not safe)) (gx#stx-e - _tl230538230568_)))) - (let ((_tl230544230584_ + _tl231719231749_)))) + (let ((_tl231725231765_ (let () (declare (not safe)) - (##cdr _e230546230579_))) - (_hd230545230582_ + (##cdr _e231727231760_))) + (_hd231726231763_ (let () (declare (not safe)) - (##car _e230546230579_)))) + (##car _e231727231760_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230544230584_)) - (___kont243586243587_ - _hd230545230582_ - _hd230542230574_) - (___kont243588243589_)))) - (___kont243588243589_)) - (___kont243588243589_)))) - (___kont243588243589_)))) - (___kont243588243589_)))))) - (_lift-kw-lambda-bindings229976_ - (lambda (_bindings230143_) - (let _lp230145_ ((_rest230147_ _bindings230143_) - (_lift1230148_ '()) - (_lift2230149_ '()) - (_bind230150_ '())) - (let* ((_rest230151230159_ _rest230147_) - (_else230153230167_ + _tl231725231765_)) + (___kont244784244785_ + _hd231726231763_ + _hd231723231755_) + (___kont244786244787_)))) + (___kont244786244787_)) + (___kont244786244787_)))) + (___kont244786244787_)))) + (___kont244786244787_)))))) + (_lift-kw-lambda-bindings231157_ + (lambda (_bindings231324_) + (let _lp231326_ ((_rest231328_ _bindings231324_) + (_lift1231329_ '()) + (_lift2231330_ '()) + (_bind231331_ '())) + (let* ((_rest231332231340_ _rest231328_) + (_else231334231348_ (lambda () - (values (reverse _lift1230148_) - (reverse _lift2230149_) - (reverse _bind230150_)))) - (_K230155230519_ - (lambda (_rest230170_ _hd230171_) - (let* ((___stx243614243615_ _hd230171_) - (_g230174230199_ + (values (reverse _lift1231329_) + (reverse _lift2231330_) + (reverse _bind231331_)))) + (_K231336231700_ + (lambda (_rest231351_ _hd231352_) + (let* ((___stx244812244813_ _hd231352_) + (_g231355231380_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243614243615_))))) - (let ((___kont243616243617_ - (lambda (_L230269_ _L230270_) - (let* ((_g230284230337_ - (lambda (_g230285230334_) + ___stx244812244813_))))) + (let ((___kont244814244815_ + (lambda (_L231450_ _L231451_) + (let* ((_g231465231518_ + (lambda (_g231466231515_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g230285230334_)))) - (_g230283230513_ - (lambda (_g230285230340_) + _g231466231515_)))) + (_g231464231694_ + (lambda (_g231466231521_) (if (let () (declare (not safe)) (gx#stx-pair? - _g230285230340_)) - (let ((_e230293230342_ + _g231466231521_)) + (let ((_e231474231523_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g230285230340_)))) - (let ((_hd230292230345_ + (gx#stx-e _g231466231521_)))) + (let ((_hd231473231526_ (let () (declare (not safe)) - (##car _e230293230342_))) - (_tl230291230347_ + (##car _e231474231523_))) + (_tl231472231528_ (let () (declare (not safe)) - (##cdr _e230293230342_)))) + (##cdr _e231474231523_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230291230347_)) - (let ((_e230296230350_ + (gx#stx-pair? _tl231472231528_)) + (let ((_e231477231531_ (let () (declare (not safe)) - (gx#stx-e _tl230291230347_)))) - (let ((_hd230295230353_ + (gx#stx-e _tl231472231528_)))) + (let ((_hd231476231534_ (let () (declare (not safe)) - (##car _e230296230350_))) - (_tl230294230355_ + (##car _e231477231531_))) + (_tl231475231536_ (let () (declare (not safe)) - (##cdr _e230296230350_)))) + (##cdr _e231477231531_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230295230353_)) - (let ((_e230299230358_ + (gx#stx-pair? _hd231476231534_)) + (let ((_e231480231539_ (let () (declare (not safe)) - (gx#stx-e _hd230295230353_)))) - (let ((_hd230298230361_ + (gx#stx-e _hd231476231534_)))) + (let ((_hd231479231542_ (let () (declare (not safe)) - (##car _e230299230358_))) - (_tl230297230363_ + (##car _e231480231539_))) + (_tl231478231544_ (let () (declare (not safe)) - (##cdr _e230299230358_)))) + (##cdr _e231480231539_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230298230361_)) - (let ((_e230302230366_ + (gx#stx-pair? _hd231479231542_)) + (let ((_e231483231547_ (let () (declare (not safe)) (gx#stx-e - _hd230298230361_)))) - (let ((_hd230301230369_ + _hd231479231542_)))) + (let ((_hd231482231550_ (let () (declare (not safe)) - (##car _e230302230366_))) - (_tl230300230371_ + (##car _e231483231547_))) + (_tl231481231552_ (let () (declare (not safe)) - (##cdr _e230302230366_)))) + (##cdr _e231483231547_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230301230369_)) - (let ((_e230305230374_ + _hd231482231550_)) + (let ((_e231486231555_ (let () (declare (not safe)) (gx#stx-e - _hd230301230369_)))) - (let ((_hd230304230377_ + _hd231482231550_)))) + (let ((_hd231485231558_ (let () (declare (not safe)) - (##car _e230305230374_))) - (_tl230303230379_ + (##car _e231486231555_))) + (_tl231484231560_ (let () (declare (not safe)) - (##cdr _e230305230374_)))) + (##cdr _e231486231555_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230303230379_)) + _tl231484231560_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl230300230371_)) - (let ((_e230308230382_ + (gx#stx-pair? _tl231481231552_)) + (let ((_e231489231563_ (let () (declare (not safe)) - (gx#stx-e _tl230300230371_)))) - (let ((_hd230307230385_ + (gx#stx-e _tl231481231552_)))) + (let ((_hd231488231566_ (let () (declare (not safe)) - (##car _e230308230382_))) - (_tl230306230387_ + (##car _e231489231563_))) + (_tl231487231568_ (let () (declare (not safe)) - (##cdr _e230308230382_)))) + (##cdr _e231489231563_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230307230385_)) - (let ((_e230311230390_ + (gx#stx-pair? _hd231488231566_)) + (let ((_e231492231571_ (let () (declare (not safe)) - (gx#stx-e _hd230307230385_)))) - (let ((_hd230310230393_ + (gx#stx-e _hd231488231566_)))) + (let ((_hd231491231574_ (let () (declare (not safe)) - (##car _e230311230390_))) - (_tl230309230395_ + (##car _e231492231571_))) + (_tl231490231576_ (let () (declare (not safe)) - (##cdr _e230311230390_)))) + (##cdr _e231492231571_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230309230395_)) - (let ((_e230314230398_ + (gx#stx-pair? _tl231490231576_)) + (let ((_e231495231579_ (let () (declare (not safe)) - (gx#stx-e _tl230309230395_)))) - (let ((_hd230313230401_ + (gx#stx-e _tl231490231576_)))) + (let ((_hd231494231582_ (let () (declare (not safe)) - (##car _e230314230398_))) - (_tl230312230403_ + (##car _e231495231579_))) + (_tl231493231584_ (let () (declare (not safe)) - (##cdr _e230314230398_)))) + (##cdr _e231495231579_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230313230401_)) - (let ((_e230317230406_ + _hd231494231582_)) + (let ((_e231498231587_ (let () (declare (not safe)) (gx#stx-e - _hd230313230401_)))) - (let ((_hd230316230409_ + _hd231494231582_)))) + (let ((_hd231497231590_ (let () (declare (not safe)) - (##car _e230317230406_))) - (_tl230315230411_ + (##car _e231498231587_))) + (_tl231496231592_ (let () (declare (not safe)) - (##cdr _e230317230406_)))) + (##cdr _e231498231587_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230316230409_)) - (let ((_e230320230414_ + _hd231497231590_)) + (let ((_e231501231595_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd230316230409_)))) - (let ((_hd230319230417_ - (let () (declare (not safe)) (##car _e230320230414_))) - (_tl230318230419_ - (let () (declare (not safe)) (##cdr _e230320230414_)))) + (gx#stx-e _hd231497231590_)))) + (let ((_hd231500231598_ + (let () (declare (not safe)) (##car _e231501231595_))) + (_tl231499231600_ + (let () (declare (not safe)) (##cdr _e231501231595_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd230319230417_)) - (let ((_e230323230422_ + (gx#stx-pair? _hd231500231598_)) + (let ((_e231504231603_ (let () (declare (not safe)) - (gx#stx-e _hd230319230417_)))) - (let ((_hd230322230425_ + (gx#stx-e _hd231500231598_)))) + (let ((_hd231503231606_ (let () (declare (not safe)) - (##car _e230323230422_))) - (_tl230321230427_ + (##car _e231504231603_))) + (_tl231502231608_ (let () (declare (not safe)) - (##cdr _e230323230422_)))) + (##cdr _e231504231603_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230321230427_)) + (gx#stx-null? _tl231502231608_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230318230419_)) - (let ((_e230326230430_ + (gx#stx-pair? _tl231499231600_)) + (let ((_e231507231611_ (let () (declare (not safe)) - (gx#stx-e _tl230318230419_)))) - (let ((_hd230325230433_ + (gx#stx-e _tl231499231600_)))) + (let ((_hd231506231614_ (let () (declare (not safe)) - (##car _e230326230430_))) - (_tl230324230435_ + (##car _e231507231611_))) + (_tl231505231616_ (let () (declare (not safe)) - (##cdr _e230326230430_)))) + (##cdr _e231507231611_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230324230435_)) + (gx#stx-null? _tl231505231616_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl230315230411_)) + _tl231496231592_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl230312230403_)) - (let ((_e230329230438_ + _tl231493231584_)) + (let ((_e231510231619_ (let () (declare (not safe)) (gx#stx-e - _tl230312230403_)))) - (let ((_hd230328230441_ + _tl231493231584_)))) + (let ((_hd231509231622_ (let () (declare (not safe)) - (##car _e230329230438_))) - (_tl230327230443_ + (##car _e231510231619_))) + (_tl231508231624_ (let () (declare (not safe)) - (##cdr _e230329230438_)))) + (##cdr _e231510231619_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230327230443_)) + _tl231508231624_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl230306230387_)) + (gx#stx-null? _tl231487231568_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl230297230363_)) + (gx#stx-null? _tl231478231544_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230294230355_)) - (let ((_e230332230446_ + (gx#stx-pair? _tl231475231536_)) + (let ((_e231513231627_ (let () (declare (not safe)) - (gx#stx-e _tl230294230355_)))) - (let ((_hd230331230449_ + (gx#stx-e _tl231475231536_)))) + (let ((_hd231512231630_ (let () (declare (not safe)) - (##car _e230332230446_))) - (_tl230330230451_ + (##car _e231513231627_))) + (_tl231511231632_ (let () (declare (not safe)) - (##cdr _e230332230446_)))) + (##cdr _e231513231627_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230330230451_)) - ((lambda (_L230454_ - _L230455_ - _L230456_ - _L230457_ - _L230458_) - (let* ((_get-kws-id230498_ - (let ((__tmp244141 + (gx#stx-null? _tl231511231632_)) + ((lambda (_L231635_ + _L231636_ + _L231637_ + _L231638_ + _L231639_) + (let* ((_get-kws-id231679_ + (let ((__tmp245339 (let () (declare (not safe)) (gx#stx-e - _L230270_))) - (__tmp244140 + _L231451_))) + (__tmp245338 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp244141 - __tmp244140))) - (_get-kws-id230500_ - (let ((__tmp244142 + __tmp245339 + __tmp245338))) + (_get-kws-id231681_ + (let ((__tmp245340 (let () (declare (not safe)) (gx#stx-source - _stx229971_)))) + _stx231152_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id230498_ - __tmp244142))) - (_main-id230502_ - (let ((__tmp244144 + _get-kws-id231679_ + __tmp245340))) + (_main-id231683_ + (let ((__tmp245342 (let () (declare (not safe)) (gx#stx-e - _L230270_))) - (__tmp244143 + _L231451_))) + (__tmp245341 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp244144 - __tmp244143))) - (_main-id230504_ - (let ((__tmp244145 + __tmp245342 + __tmp245341))) + (_main-id231685_ + (let ((__tmp245343 (let () (declare (not safe)) (gx#stx-source - _stx229971_)))) + _stx231152_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id230502_ - __tmp244145))) - (_g244146_ + _main-id231683_ + __tmp245343))) + (_g245344_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id230500_))) - (_g244147_ + _get-kws-id231681_))) + (_g245345_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id230504_))) - (_new-kw-dispatch230508_ + _main-id231685_))) + (_new-kw-dispatch231689_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L230454_ - _L230458_ - _get-kws-id230500_))) - (_new-get-kws230510_ + _L231635_ + _L231639_ + _get-kws-id231681_))) + (_new-get-kws231691_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L230455_ - _L230457_ - _main-id230504_)))) - (let ((__tmp244150 + _L231636_ + _L231638_ + _main-id231685_)))) + (let ((__tmp245348 (let () (declare (not safe)) (gxc#identifier-symbol - _L230270_))) - (__tmp244149 + _L231451_))) + (__tmp245347 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id230500_))) - (__tmp244148 + _get-kws-id231681_))) + (__tmp245346 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id230504_)))) + _main-id231685_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp244150 + __tmp245348 '" => " - __tmp244149 + __tmp245347 '" => " - __tmp244148)) - (let ((__tmp244155 - (let ((__tmp244156 + __tmp245346)) + (let ((__tmp245353 + (let ((__tmp245354 (let () (declare (not safe)) - (_bind-e__241776241777_ - _main-id230504_ - _L230456_ + (_bind-e__242974242975_ + _main-id231685_ + _L231637_ '#f)))) (declare (not safe)) - (cons __tmp244156 - _lift1230148_))) - (__tmp244153 - (let ((__tmp244154 + (cons __tmp245354 + _lift1231329_))) + (__tmp245351 + (let ((__tmp245352 (let () (declare (not safe)) - (_bind-e__241776241777_ - _get-kws-id230500_ - _new-get-kws230510_ + (_bind-e__242974242975_ + _get-kws-id231681_ + _new-get-kws231691_ '#f)))) (declare (not safe)) - (cons __tmp244154 - _lift2230149_))) - (__tmp244151 - (let ((__tmp244152 + (cons __tmp245352 + _lift2231330_))) + (__tmp245349 + (let ((__tmp245350 (let () (declare (not safe)) - (_bind-e__241776241777_ - _L230270_ - _new-kw-dispatch230508_ + (_bind-e__242974242975_ + _L231451_ + _new-kw-dispatch231689_ '#f)))) (declare (not safe)) - (cons __tmp244152 - _bind230150_)))) + (cons __tmp245350 + _bind231331_)))) (declare (not safe)) - (_lp230145_ - _rest230170_ - __tmp244155 - __tmp244153 - __tmp244151)))) - _hd230331230449_ - _hd230328230441_ - _hd230325230433_ - _hd230322230425_ - _hd230304230377_) + (_lp231326_ + _rest231351_ + __tmp245353 + __tmp245351 + __tmp245349)))) + _hd231512231630_ + _hd231509231622_ + _hd231506231614_ + _hd231503231606_ + _hd231485231558_) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))) + (_g231465231518_ _g231466231521_))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))) + (_g231465231518_ _g231466231521_))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))) + (_g231465231518_ _g231466231521_))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230284230337_ - _g230285230340_))) + (_g231465231518_ + _g231466231521_))) (let () (declare (not safe)) - (_g230284230337_ - _g230285230340_))) + (_g231465231518_ + _g231466231521_))) (let () (declare (not safe)) - (_g230284230337_ - _g230285230340_))))) + (_g231465231518_ + _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))) + (_g231465231518_ _g231466231521_))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230284230337_ - _g230285230340_))))) + (_g231465231518_ + _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))) + (_g231465231518_ _g231466231521_))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230284230337_ - _g230285230340_))))) + (_g231465231518_ + _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ - _g230285230340_))))) + (_g231465231518_ + _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_))))) + (_g231465231518_ _g231466231521_))))) (let () (declare (not safe)) - (_g230284230337_ _g230285230340_)))))) + (_g231465231518_ _g231466231521_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g230283230513_ _L230269_)))) - (___kont243618243619_ - (lambda (_L230220_ _L230221_) - (let ((__tmp244157 - (let ((__tmp244158 - (let ((__tmp244159 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L230220_ '())))) + (_g231464231694_ _L231450_)))) + (___kont244816244817_ + (lambda (_L231401_ _L231402_) + (let ((__tmp245355 + (let ((__tmp245356 + (let ((__tmp245357 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L231401_ '())))) (declare (not safe)) - (cons _L230221_ __tmp244159)))) + (cons _L231402_ __tmp245357)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244158 - _bind230150_)))) + (cons __tmp245356 + _bind231331_)))) (declare (not safe)) - (_lp230145_ - _rest230170_ - _lift1230148_ - _lift2230149_ - __tmp244157))))) - (let ((___match243641243642_ - (lambda (_e230180230245_ - _hd230179230248_ - _tl230178230250_ - _e230183230253_ - _hd230182230256_ - _tl230181230258_ - _e230186230261_ - _hd230185230264_ - _tl230184230266_) - (let ((_L230269_ - _hd230185230264_) - (_L230270_ - _hd230182230256_)) + (_lp231326_ + _rest231351_ + _lift1231329_ + _lift2231330_ + __tmp245355))))) + (let ((___match244839244840_ + (lambda (_e231361231426_ + _hd231360231429_ + _tl231359231431_ + _e231364231434_ + _hd231363231437_ + _tl231362231439_ + _e231367231442_ + _hd231366231445_ + _tl231365231447_) + (let ((_L231450_ + _hd231366231445_) + (_L231451_ + _hd231363231437_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L230270_)) + _L231451_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L230269_))) - (___kont243616243617_ - _L230269_ - _L230270_) - (___kont243618243619_ - _hd230185230264_ - _hd230179230248_)))))) + _L231450_))) + (___kont244814244815_ + _L231450_ + _L231451_) + (___kont244816244817_ + _hd231366231445_ + _hd231360231429_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243614243615_)) - (let ((_e230180230245_ + ___stx244812244813_)) + (let ((_e231361231426_ (let () (declare (not safe)) (gx#stx-e - ___stx243614243615_)))) - (let ((_tl230178230250_ + ___stx244812244813_)))) + (let ((_tl231359231431_ (let () (declare (not safe)) - (##cdr _e230180230245_))) - (_hd230179230248_ + (##cdr _e231361231426_))) + (_hd231360231429_ (let () (declare (not safe)) - (##car _e230180230245_)))) + (##car _e231361231426_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd230179230248_)) - (let ((_e230183230253_ + _hd231360231429_)) + (let ((_e231364231434_ (let () (declare (not safe)) (gx#stx-e - _hd230179230248_)))) - (let ((_tl230181230258_ + _hd231360231429_)))) + (let ((_tl231362231439_ (let () (declare (not safe)) - (##cdr _e230183230253_))) - (_hd230182230256_ + (##cdr _e231364231434_))) + (_hd231363231437_ (let () (declare (not safe)) - (##car _e230183230253_)))) + (##car _e231364231434_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl230181230258_)) + _tl231362231439_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl230178230250_)) - (let ((_e230186230261_ + (gx#stx-pair? _tl231359231431_)) + (let ((_e231367231442_ (let () (declare (not safe)) - (gx#stx-e _tl230178230250_)))) - (let ((_tl230184230266_ + (gx#stx-e _tl231359231431_)))) + (let ((_tl231365231447_ (let () (declare (not safe)) - (##cdr _e230186230261_))) - (_hd230185230264_ + (##cdr _e231367231442_))) + (_hd231366231445_ (let () (declare (not safe)) - (##car _e230186230261_)))) + (##car _e231367231442_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230184230266_)) - (___match243641243642_ - _e230180230245_ - _hd230179230248_ - _tl230178230250_ - _e230183230253_ - _hd230182230256_ - _tl230181230258_ - _e230186230261_ - _hd230185230264_ - _tl230184230266_) + (gx#stx-null? _tl231365231447_)) + (___match244839244840_ + _e231361231426_ + _hd231360231429_ + _tl231359231431_ + _e231364231434_ + _hd231363231437_ + _tl231362231439_ + _e231367231442_ + _hd231366231445_ + _tl231365231447_) (let () (declare (not safe)) - (_g230174230199_))))) - (let () (declare (not safe)) (_g230174230199_))) + (_g231355231380_))))) + (let () (declare (not safe)) (_g231355231380_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl230178230250_)) - (let ((_e230194230212_ + (gx#stx-pair? _tl231359231431_)) + (let ((_e231375231393_ (let () (declare (not safe)) - (gx#stx-e _tl230178230250_)))) - (let ((_tl230192230217_ + (gx#stx-e _tl231359231431_)))) + (let ((_tl231373231398_ (let () (declare (not safe)) - (##cdr _e230194230212_))) - (_hd230193230215_ + (##cdr _e231375231393_))) + (_hd231374231396_ (let () (declare (not safe)) - (##car _e230194230212_)))) + (##car _e231375231393_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230192230217_)) - (___kont243618243619_ - _hd230193230215_ - _hd230179230248_) + (gx#stx-null? _tl231373231398_)) + (___kont244816244817_ + _hd231374231396_ + _hd231360231429_) (let () (declare (not safe)) - (_g230174230199_))))) - (let () (declare (not safe)) (_g230174230199_)))))) + (_g231355231380_))))) + (let () (declare (not safe)) (_g231355231380_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl230178230250_)) - (let ((_e230194230212_ + _tl231359231431_)) + (let ((_e231375231393_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl230178230250_)))) - (let ((_tl230192230217_ - (let () (declare (not safe)) (##cdr _e230194230212_))) - (_hd230193230215_ - (let () (declare (not safe)) (##car _e230194230212_)))) + (gx#stx-e _tl231359231431_)))) + (let ((_tl231373231398_ + (let () (declare (not safe)) (##cdr _e231375231393_))) + (_hd231374231396_ + (let () (declare (not safe)) (##car _e231375231393_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl230192230217_)) - (___kont243618243619_ _hd230193230215_ _hd230179230248_) - (let () (declare (not safe)) (_g230174230199_))))) - (let () (declare (not safe)) (_g230174230199_)))))) + (gx#stx-null? _tl231373231398_)) + (___kont244816244817_ _hd231374231396_ _hd231360231429_) + (let () (declare (not safe)) (_g231355231380_))))) + (let () (declare (not safe)) (_g231355231380_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g230174230199_))))))))) + (_g231355231380_))))))))) (if (let () (declare (not safe)) - (##pair? _rest230151230159_)) - (let ((_hd230156230522_ + (##pair? _rest231332231340_)) + (let ((_hd231337231703_ (let () (declare (not safe)) - (##car _rest230151230159_))) - (_tl230157230524_ + (##car _rest231332231340_))) + (_tl231338231705_ (let () (declare (not safe)) - (##cdr _rest230151230159_)))) - (let* ((_hd230527_ _hd230156230522_) - (_rest230529_ _tl230157230524_)) + (##cdr _rest231332231340_)))) + (let* ((_hd231708_ _hd231337231703_) + (_rest231710_ _tl231338231705_)) (declare (not safe)) - (_K230155230519_ _rest230529_ _hd230527_))) + (_K231336231700_ _rest231710_ _hd231708_))) (let () (declare (not safe)) - (_else230153230167_)))))))) - (let* ((___stx243658243659_ _stx229971_) - (_g229979230005_ + (_else231334231348_)))))))) + (let* ((___stx244856244857_ _stx231152_) + (_g231160231186_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243658243659_))))) - (let ((___kont243660243661_ - (lambda (_L230065_ _L230066_) - (let ((__tmp244161 + ___stx244856244857_))))) + (let ((___kont244858244859_ + (lambda (_L231246_ _L231247_) + (let ((__tmp245359 (lambda () - (if (let ((__tmp244188 - (let ((__tmp244189 - (lambda (_g230094230097_ - _g230095230099_) + (if (let ((__tmp245386 + (let ((__tmp245387 + (lambda (_g231275231278_ + _g231276231280_) (let () (declare (not safe)) - (cons _g230094230097_ - _g230095230099_))))) + (cons _g231275231278_ + _g231276231280_))))) (declare (not safe)) - (foldr1 __tmp244189 + (foldr1 __tmp245387 '() - _L230066_)))) + _L231247_)))) (declare (not safe)) - (ormap1 _lift-kw-lambda?229975_ - __tmp244188)) - (let ((_g244175_ - (let ((__tmp244177 - (let ((__tmp244178 - (lambda (_g230101230104_ - _g230102230106_) + (ormap1 _lift-kw-lambda?231156_ + __tmp245386)) + (let ((_g245373_ + (let ((__tmp245375 + (let ((__tmp245376 + (lambda (_g231282231285_ + _g231283231287_) (let () (declare (not safe)) - (cons _g230101230104_ + (cons _g231282231285_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g230102230106_))))) + _g231283231287_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp244178 + (foldr1 __tmp245376 '() - _L230066_)))) + _L231247_)))) (declare (not safe)) - (_lift-kw-lambda-bindings229976_ - __tmp244177)))) + (_lift-kw-lambda-bindings231157_ + __tmp245375)))) (begin - (let ((_g244176_ + (let ((_g245374_ (let () (declare (not safe)) - (if (##values? _g244175_) - (##vector-length _g244175_) + (if (##values? _g245373_) + (##vector-length _g245373_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244176_ 3))) + (##fx= _g245374_ 3))) (error "Context expects 3 values" - _g244176_))) - (let ((_lift1230109_ + _g245374_))) + (let ((_lift1231290_ (let () (declare (not safe)) - (##vector-ref _g244175_ 0))) - (_lift2230110_ + (##vector-ref _g245373_ 0))) + (_lift2231291_ (let () (declare (not safe)) - (##vector-ref _g244175_ 1))) - (_hd230111_ + (##vector-ref _g245373_ 1))) + (_hd231292_ (let () (declare (not safe)) - (##vector-ref _g244175_ 2)))) - (let* ((_expr230113_ - (let ((__tmp244179 - (let ((__tmp244180 - (let ((__tmp244181 + (##vector-ref _g245373_ 2)))) + (let* ((_expr231294_ + (let ((__tmp245377 + (let ((__tmp245378 + (let ((__tmp245379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L230065_ '())))) + (cons _L231246_ '())))) (declare (not safe)) - (cons _hd230111_ __tmp244181)))) + (cons _hd231292_ __tmp245379)))) (declare (not safe)) - (cons '%#let-values __tmp244180)))) + (cons '%#let-values __tmp245378)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244179 - _stx229971_))) - (_expr230115_ - (let ((__tmp244182 - (let ((__tmp244183 - (let ((__tmp244184 + __tmp245377 + _stx231152_))) + (_expr231296_ + (let ((__tmp245380 + (let ((__tmp245381 + (let ((__tmp245382 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr230113_ '())))) + (cons _expr231294_ '())))) (declare (not safe)) - (cons _lift2230110_ __tmp244184)))) + (cons _lift2231291_ __tmp245382)))) (declare (not safe)) - (cons '%#let-values __tmp244183)))) + (cons '%#let-values __tmp245381)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244182 - _stx229971_))) - (_expr230117_ - (let ((__tmp244185 - (let ((__tmp244186 - (let ((__tmp244187 + __tmp245380 + _stx231152_))) + (_expr231298_ + (let ((__tmp245383 + (let ((__tmp245384 + (let ((__tmp245385 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _expr230115_ '())))) + (cons _expr231296_ '())))) (declare (not safe)) - (cons _lift1230109_ __tmp244187)))) + (cons _lift1231290_ __tmp245385)))) (declare (not safe)) - (cons '%#let-values __tmp244186)))) + (cons '%#let-values __tmp245384)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244185 - _stx229971_)))) + __tmp245383 + _stx231152_)))) (let () (declare (not safe)) (gxc#lift-top-lambda-let-values% - _expr230117_)))))) - (let ((_g244162_ - (let ((__tmp244164 - (let ((__tmp244165 - (lambda (_g230119230122_ - _g230120230124_) + _expr231298_)))))) + (let ((_g245360_ + (let ((__tmp245362 + (let ((__tmp245363 + (lambda (_g231300231303_ + _g231301231305_) (let () (declare (not safe)) - (cons _g230119230122_ + (cons _g231300231303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g230120230124_))))) + _g231301231305_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp244165 + (foldr1 __tmp245363 '() - _L230066_)))) + _L231247_)))) (declare (not safe)) - (_compile-bindings229974_ - __tmp244164)))) + (_compile-bindings231155_ + __tmp245362)))) (begin - (let ((_g244163_ + (let ((_g245361_ (let () (declare (not safe)) - (if (##values? _g244162_) - (##vector-length _g244162_) + (if (##values? _g245360_) + (##vector-length _g245360_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244163_ 3))) + (##fx= _g245361_ 3))) (error "Context expects 3 values" - _g244163_))) - (let ((_lift1230127_ + _g245361_))) + (let ((_lift1231308_ (let () (declare (not safe)) - (##vector-ref _g244162_ 0))) - (_lift2230128_ + (##vector-ref _g245360_ 0))) + (_lift2231309_ (let () (declare (not safe)) - (##vector-ref _g244162_ 1))) - (_hd230129_ + (##vector-ref _g245360_ 1))) + (_hd231310_ (let () (declare (not safe)) - (##vector-ref _g244162_ 2)))) - (let* ((_body230131_ + (##vector-ref _g245360_ 2)))) + (let* ((_body231312_ (let () (declare (not safe)) (gxc#compile-e__0 - _L230065_))) - (_expr230133_ - (let ((__tmp244166 - (let ((__tmp244167 - (let ((__tmp244168 + _L231246_))) + (_expr231314_ + (let ((__tmp245364 + (let ((__tmp245365 + (let ((__tmp245366 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _body230131_ '())))) + (cons _body231312_ '())))) (declare (not safe)) - (cons _hd230129_ __tmp244168)))) + (cons _hd231310_ __tmp245366)))) (declare (not safe)) - (cons '%#let-values __tmp244167)))) + (cons '%#let-values __tmp245365)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp244166 - _stx229971_))) - (_expr230135_ + __tmp245364 + _stx231152_))) + (_expr231316_ (if (let () (declare (not safe)) - (null? _lift2230128_)) - _expr230133_ - (let ((__tmp244169 - (let ((__tmp244170 + (null? _lift2231309_)) + _expr231314_ + (let ((__tmp245367 + (let ((__tmp245368 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244171 + (let ((__tmp245369 (let () (declare (not safe)) - (cons _expr230133_ '())))) + (cons _expr231314_ '())))) (declare (not safe)) - (cons _lift2230128_ __tmp244171)))) + (cons _lift2231309_ __tmp245369)))) (declare (not safe)) - (cons '%#let-values __tmp244170)))) + (cons '%#let-values __tmp245368)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244169 _stx229971_)))) + (gxc#xform-wrap-source __tmp245367 _stx231152_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_expr230137_ + (_expr231318_ (if (let () (declare (not safe)) - (null? _lift1230127_)) - _expr230135_ - (let ((__tmp244172 - (let ((__tmp244173 + (null? _lift1231308_)) + _expr231316_ + (let ((__tmp245370 + (let ((__tmp245371 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244174 + (let ((__tmp245372 (let () (declare (not safe)) - (cons _expr230135_ '())))) + (cons _expr231316_ '())))) (declare (not safe)) - (cons _lift1230127_ __tmp244174)))) + (cons _lift1231308_ __tmp245372)))) (declare (not safe)) - (cons '%#let-values __tmp244173)))) + (cons '%#let-values __tmp245371)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp244172 _stx229971_))))) + (gxc#xform-wrap-source __tmp245370 _stx231152_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _expr230137_))))))) - (__tmp244160 - (let ((__obj243864 + _expr231318_))))))) + (__tmp245358 + (let ((__obj245062 (let () (declare (not safe)) (##structure @@ -14006,314 +14054,314 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj243864) - __obj243864))) + (gx#local-context:::init! __obj245062) + __obj245062))) (declare (not safe)) (call-with-parameters - __tmp244161 + __tmp245359 gx#current-expander-context - __tmp244160)))) - (___kont243664243665_ + __tmp245358)))) + (___kont244862244863_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx229971_))))) - (let ((___match243685243686_ - (lambda (_e229985230017_ - _hd229984230020_ - _tl229983230022_ - _e229988230025_ - _hd229987230028_ - _tl229986230030_ - ___splice243662243663_ - _target229989230033_ - _tl229991230035_) - (letrec ((_loop229992230038_ - (lambda (_hd229990230041_ _bind229996230043_) + (gxc#xform-let-values% _stx231152_))))) + (let ((___match244883244884_ + (lambda (_e231166231198_ + _hd231165231201_ + _tl231164231203_ + _e231169231206_ + _hd231168231209_ + _tl231167231211_ + ___splice244860244861_ + _target231170231214_ + _tl231172231216_) + (letrec ((_loop231173231219_ + (lambda (_hd231171231222_ _bind231177231224_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229990230041_)) - (let ((_e229993230046_ + (gx#stx-pair? _hd231171231222_)) + (let ((_e231174231227_ (let () (declare (not safe)) - (gx#stx-e _hd229990230041_)))) - (let ((_lp-tl229995230051_ + (gx#stx-e _hd231171231222_)))) + (let ((_lp-tl231176231232_ (let () (declare (not safe)) - (##cdr _e229993230046_))) - (_lp-hd229994230049_ + (##cdr _e231174231227_))) + (_lp-hd231175231230_ (let () (declare (not safe)) - (##car _e229993230046_)))) - (let ((__tmp244192 + (##car _e231174231227_)))) + (let ((__tmp245390 (let () (declare (not safe)) - (cons _lp-hd229994230049_ - _bind229996230043_)))) + (cons _lp-hd231175231230_ + _bind231177231224_)))) (declare (not safe)) - (_loop229992230038_ - _lp-tl229995230051_ - __tmp244192)))) - (let ((_bind229997230054_ - (reverse _bind229996230043_))) + (_loop231173231219_ + _lp-tl231176231232_ + __tmp245390)))) + (let ((_bind231178231235_ + (reverse _bind231177231224_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229986230030_)) - (let ((_e230000230057_ + (gx#stx-pair? _tl231167231211_)) + (let ((_e231181231238_ (let () (declare (not safe)) (gx#stx-e - _tl229986230030_)))) - (let ((_tl229998230062_ + _tl231167231211_)))) + (let ((_tl231179231243_ (let () (declare (not safe)) - (##cdr _e230000230057_))) - (_hd229999230060_ + (##cdr _e231181231238_))) + (_hd231180231241_ (let () (declare (not safe)) - (##car _e230000230057_)))) + (##car _e231181231238_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229998230062_)) - (let ((_L230065_ - _hd229999230060_) - (_L230066_ - _bind229997230054_)) - (if (let ((__tmp244190 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244191 - (lambda (_g230086230089_ _g230087230091_) + _tl231179231243_)) + (let ((_L231246_ + _hd231180231241_) + (_L231247_ + _bind231178231235_)) + (if (let ((__tmp245388 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245389 + (lambda (_g231267231270_ _g231268231272_) (let () (declare (not safe)) - (cons _g230086230089_ _g230087230091_))))) + (cons _g231267231270_ _g231268231272_))))) (declare (not safe)) - (foldr1 __tmp244191 '() _L230066_)))) + (foldr1 __tmp245389 '() _L231247_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp244190)) - (___kont243660243661_ _L230065_ _L230066_) - (___kont243664243665_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp245388)) + (___kont244858244859_ _L231246_ _L231247_) + (___kont244862244863_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243664243665_)))) - (___kont243664243665_))))))) + (___kont244862244863_)))) + (___kont244862244863_))))))) (let () (declare (not safe)) - (_loop229992230038_ _target229989230033_ '())))))) + (_loop231173231219_ _target231170231214_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243658243659_)) - (let ((_e229985230017_ + (gx#stx-pair? ___stx244856244857_)) + (let ((_e231166231198_ (let () (declare (not safe)) - (gx#stx-e ___stx243658243659_)))) - (let ((_tl229983230022_ + (gx#stx-e ___stx244856244857_)))) + (let ((_tl231164231203_ (let () (declare (not safe)) - (##cdr _e229985230017_))) - (_hd229984230020_ + (##cdr _e231166231198_))) + (_hd231165231201_ (let () (declare (not safe)) - (##car _e229985230017_)))) + (##car _e231166231198_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229983230022_)) - (let ((_e229988230025_ + (gx#stx-pair? _tl231164231203_)) + (let ((_e231169231206_ (let () (declare (not safe)) - (gx#stx-e _tl229983230022_)))) - (let ((_tl229986230030_ + (gx#stx-e _tl231164231203_)))) + (let ((_tl231167231211_ (let () (declare (not safe)) - (##cdr _e229988230025_))) - (_hd229987230028_ + (##cdr _e231169231206_))) + (_hd231168231209_ (let () (declare (not safe)) - (##car _e229988230025_)))) + (##car _e231169231206_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd229987230028_)) - (let ((___splice243662243663_ + (gx#stx-pair/null? _hd231168231209_)) + (let ((___splice244860244861_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd229987230028_ + _hd231168231209_ '0)))) - (let ((_tl229991230035_ + (let ((_tl231172231216_ (let () (declare (not safe)) (##vector-ref - ___splice243662243663_ + ___splice244860244861_ '1))) - (_target229989230033_ + (_target231170231214_ (let () (declare (not safe)) (##vector-ref - ___splice243662243663_ + ___splice244860244861_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229991230035_)) - (___match243685243686_ - _e229985230017_ - _hd229984230020_ - _tl229983230022_ - _e229988230025_ - _hd229987230028_ - _tl229986230030_ - ___splice243662243663_ - _target229989230033_ - _tl229991230035_) - (___kont243664243665_)))) - (___kont243664243665_)))) - (___kont243664243665_)))) - (___kont243664243665_)))))))) + (gx#stx-null? _tl231172231216_)) + (___match244883244884_ + _e231166231198_ + _hd231165231201_ + _tl231164231203_ + _e231169231206_ + _hd231168231209_ + _tl231167231211_ + ___splice244860244861_ + _target231170231214_ + _tl231172231216_) + (___kont244862244863_)))) + (___kont244862244863_)))) + (___kont244862244863_)))) + (___kont244862244863_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_stx229115_) - (letrec* ((_bind-e__241781241782_ - (lambda (_id229955_ _expr229956_ _compile?229957_) - (let ((__tmp244195 + (lambda (_stx230296_) + (letrec* ((_bind-e__242979242980_ + (lambda (_id231136_ _expr231137_ _compile?231138_) + (let ((__tmp245393 (let () (declare (not safe)) - (cons _id229955_ '()))) - (__tmp244193 - (let ((__tmp244194 - (if _compile?229957_ + (cons _id231136_ '()))) + (__tmp245391 + (let ((__tmp245392 + (if _compile?231138_ (let () (declare (not safe)) - (gxc#compile-e__0 _expr229956_)) - _expr229956_))) + (gxc#compile-e__0 _expr231137_)) + _expr231137_))) (declare (not safe)) - (cons __tmp244194 '())))) + (cons __tmp245392 '())))) (declare (not safe)) - (cons __tmp244195 __tmp244193)))) - (_bind-e__0__241783241784_ - (lambda (_id229962_ _expr229963_) - (let ((_compile?229965_ '#t)) + (cons __tmp245393 __tmp245391)))) + (_bind-e__0__242981242982_ + (lambda (_id231143_ _expr231144_) + (let ((_compile?231146_ '#t)) (declare (not safe)) - (_bind-e__241781241782_ - _id229962_ - _expr229963_ - _compile?229965_)))) - (_bind-e229117_ - (lambda _g244197_ - (let ((_g244196_ + (_bind-e__242979242980_ + _id231143_ + _expr231144_ + _compile?231146_)))) + (_bind-e230298_ + (lambda _g245395_ + (let ((_g245394_ (let () (declare (not safe)) - (##length _g244197_)))) - (cond ((let () (declare (not safe)) (##fx= _g244196_ 2)) - (apply (lambda (_id229962_ _expr229963_) + (##length _g245395_)))) + (cond ((let () (declare (not safe)) (##fx= _g245394_ 2)) + (apply (lambda (_id231143_ _expr231144_) (let () (declare (not safe)) - (_bind-e__0__241783241784_ - _id229962_ - _expr229963_))) - _g244197_)) - ((let () (declare (not safe)) (##fx= _g244196_ 3)) - (apply (lambda (_id229967_ - _expr229968_ - _compile?229969_) + (_bind-e__0__242981242982_ + _id231143_ + _expr231144_))) + _g245395_)) + ((let () (declare (not safe)) (##fx= _g245394_ 3)) + (apply (lambda (_id231148_ + _expr231149_ + _compile?231150_) (let () (declare (not safe)) - (_bind-e__241781241782_ - _id229967_ - _expr229968_ - _compile?229969_))) - _g244197_)) + (_bind-e__242979242980_ + _id231148_ + _expr231149_ + _compile?231150_))) + _g245395_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g244197_)))))) - (_compile-bindings229118_ - (lambda (_rest229253_) - (let _lp229255_ ((_rest229257_ _rest229253_) - (_bind229258_ '())) - (let* ((_rest229259229267_ _rest229257_) - (_else229261229275_ - (lambda () (reverse _bind229258_))) - (_K229263229942_ - (lambda (_rest229278_ _hd229279_) - (let* ((___stx243708243709_ _hd229279_) - (_g229284229331_ + _g245395_)))))) + (_compile-bindings230299_ + (lambda (_rest230434_) + (let _lp230436_ ((_rest230438_ _rest230434_) + (_bind230439_ '())) + (let* ((_rest230440230448_ _rest230438_) + (_else230442230456_ + (lambda () (reverse _bind230439_))) + (_K230444231123_ + (lambda (_rest230459_ _hd230460_) + (let* ((___stx244906244907_ _hd230460_) + (_g230465230512_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243708243709_))))) - (let ((___kont243710243711_ - (lambda (_L229849_ _L229850_) - (let* ((___stx243688243689_ - _L229849_) - (_g229865229879_ + ___stx244906244907_))))) + (let ((___kont244908244909_ + (lambda (_L231030_ _L231031_) + (let* ((___stx244886244887_ + _L231030_) + (_g231046231060_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243688243689_))))) - (let ((___kont243690243691_ - (lambda (_L229927_) - (let ((__tmp244198 - (let ((__tmp244199 + ___stx244886244887_))))) + (let ((___kont244888244889_ + (lambda (_L231108_) + (let ((__tmp245396 + (let ((__tmp245397 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__241781241782_ - _L229850_ - _L229849_ + (_bind-e__242979242980_ + _L231031_ + _L231030_ '#f)))) (declare (not safe)) - (cons __tmp244199 _bind229258_)))) + (cons __tmp245397 _bind230439_)))) (declare (not safe)) - (_lp229255_ _rest229278_ __tmp244198)))) + (_lp230436_ _rest230459_ __tmp245396)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243692243693_ - (lambda (_L229892_) - (let ((_g244200_ + (___kont244890244891_ + (lambda (_L231073_) + (let ((_g245398_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#lift-case-lambda-clauses__% - _stx229115_ - _L229850_ - _L229892_ + _stx230296_ + _L231031_ + _L231073_ '#t)))) (begin - (let ((_g244201_ + (let ((_g245399_ (let () (declare (not safe)) - (if (##values? _g244200_) - (##vector-length _g244200_) + (if (##values? _g245398_) + (##vector-length _g245398_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244201_ 3))) - (error "Context expects 3 values" _g244201_))) - (let ((_ids229902_ + (##fx= _g245399_ 3))) + (error "Context expects 3 values" _g245399_))) + (let ((_ids231083_ (let () (declare (not safe)) - (##vector-ref _g244200_ 0))) - (_impls229903_ + (##vector-ref _g245398_ 0))) + (_impls231084_ (let () (declare (not safe)) - (##vector-ref _g244200_ 1))) - (_clauses229904_ + (##vector-ref _g245398_ 1))) + (_clauses231085_ (let () (declare (not safe)) - (##vector-ref _g244200_ 2)))) - (let* ((_g244202_ - (for-each gx#core-bind-runtime! _ids229902_)) - (_xbind229907_ - (map _bind-e229117_ _ids229902_ _impls229903_)) - (_expr*229909_ - (let ((__tmp244204 + (##vector-ref _g245398_ 2)))) + (let* ((_g245400_ + (for-each gx#core-bind-runtime! _ids231083_)) + (_xbind231088_ + (map _bind-e230298_ _ids231083_ _impls231084_)) + (_expr*231090_ + (let ((__tmp245402 (let () (declare (not safe)) - (cons '%#case-lambda _clauses229904_))) - (__tmp244203 + (cons '%#case-lambda _clauses231085_))) + (__tmp245401 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -14321,1134 +14369,1134 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244204 - __tmp244203))) - (_bind*229911_ + __tmp245402 + __tmp245401))) + (_bind*231092_ (let () (declare (not safe)) - (_bind-e__241781241782_ - _L229850_ - _expr*229909_ + (_bind-e__242979242980_ + _L231031_ + _expr*231090_ '#f)))) - (let ((__tmp244206 + (let ((__tmp245404 (let () (declare (not safe)) - (gxc#identifier-symbol _L229850_))) - (__tmp244205 - (map gxc#identifier-symbol _ids229902_))) + (gxc#identifier-symbol _L231031_))) + (__tmp245403 + (map gxc#identifier-symbol _ids231083_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp244206 + __tmp245404 '" => " - __tmp244205)) - (let ((__tmp244207 - (let ((__tmp244208 + __tmp245403)) + (let ((__tmp245405 + (let ((__tmp245406 (let () (declare (not safe)) (foldl1 cons - _bind229258_ - _xbind229907_)))) + _bind230439_ + _xbind231088_)))) (declare (not safe)) - (cons _bind*229911_ __tmp244208)))) + (cons _bind*231092_ __tmp245406)))) (declare (not safe)) - (_lp229255_ _rest229278_ __tmp244207))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___match243699243700_ - (lambda (_e229870229919_ - _hd229869229922_ - _tl229868229924_) - (let ((_L229927_ - _tl229868229924_)) + (_lp230436_ _rest230459_ __tmp245405))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((___match244897244898_ + (lambda (_e231051231100_ + _hd231050231103_ + _tl231049231105_) + (let ((_L231108_ + _tl231049231105_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (andmap1 gxc#dispatch-lambda-form? _L229927_)) - (___kont243690243691_ _L229927_) - (___kont243692243693_ _tl229868229924_)))))) + (andmap1 gxc#dispatch-lambda-form? _L231108_)) + (___kont244888244889_ _L231108_) + (___kont244890244891_ _tl231049231105_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243688243689_)) - (let ((_e229870229919_ + ___stx244886244887_)) + (let ((_e231051231100_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e ___stx243688243689_)))) - (let ((_tl229868229924_ - (let () (declare (not safe)) (##cdr _e229870229919_))) - (_hd229869229922_ - (let () (declare (not safe)) (##car _e229870229919_)))) - (___match243699243700_ - _e229870229919_ - _hd229869229922_ - _tl229868229924_))) - (let () (declare (not safe)) (_g229865229879_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243712243713_ - (lambda (_L229677_ _L229678_) - (let* ((_g229692229722_ - (lambda (_g229693229719_) + (gx#stx-e ___stx244886244887_)))) + (let ((_tl231049231105_ + (let () (declare (not safe)) (##cdr _e231051231100_))) + (_hd231050231103_ + (let () (declare (not safe)) (##car _e231051231100_)))) + (___match244897244898_ + _e231051231100_ + _hd231050231103_ + _tl231049231105_))) + (let () (declare (not safe)) (_g231046231060_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont244910244911_ + (lambda (_L230858_ _L230859_) + (let* ((_g230873230903_ + (lambda (_g230874230900_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g229693229719_)))) - (_g229691229817_ - (lambda (_g229693229725_) + _g230874230900_)))) + (_g230872230998_ + (lambda (_g230874230906_) (if (let () (declare (not safe)) (gx#stx-pair? - _g229693229725_)) - (let ((_e229699229727_ + _g230874230906_)) + (let ((_e230880230908_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g229693229725_)))) - (let ((_hd229698229730_ + (gx#stx-e _g230874230906_)))) + (let ((_hd230879230911_ (let () (declare (not safe)) - (##car _e229699229727_))) - (_tl229697229732_ + (##car _e230880230908_))) + (_tl230878230913_ (let () (declare (not safe)) - (##cdr _e229699229727_)))) + (##cdr _e230880230908_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229697229732_)) - (let ((_e229702229735_ + (gx#stx-pair? _tl230878230913_)) + (let ((_e230883230916_ (let () (declare (not safe)) - (gx#stx-e _tl229697229732_)))) - (let ((_hd229701229738_ + (gx#stx-e _tl230878230913_)))) + (let ((_hd230882230919_ (let () (declare (not safe)) - (##car _e229702229735_))) - (_tl229700229740_ + (##car _e230883230916_))) + (_tl230881230921_ (let () (declare (not safe)) - (##cdr _e229702229735_)))) + (##cdr _e230883230916_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229701229738_)) - (let ((_e229705229743_ + (gx#stx-pair? _hd230882230919_)) + (let ((_e230886230924_ (let () (declare (not safe)) - (gx#stx-e _hd229701229738_)))) - (let ((_hd229704229746_ + (gx#stx-e _hd230882230919_)))) + (let ((_hd230885230927_ (let () (declare (not safe)) - (##car _e229705229743_))) - (_tl229703229748_ + (##car _e230886230924_))) + (_tl230884230929_ (let () (declare (not safe)) - (##cdr _e229705229743_)))) + (##cdr _e230886230924_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229704229746_)) - (let ((_e229708229751_ + (gx#stx-pair? _hd230885230927_)) + (let ((_e230889230932_ (let () (declare (not safe)) (gx#stx-e - _hd229704229746_)))) - (let ((_hd229707229754_ + _hd230885230927_)))) + (let ((_hd230888230935_ (let () (declare (not safe)) - (##car _e229708229751_))) - (_tl229706229756_ + (##car _e230889230932_))) + (_tl230887230937_ (let () (declare (not safe)) - (##cdr _e229708229751_)))) + (##cdr _e230889230932_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229707229754_)) - (let ((_e229711229759_ + _hd230888230935_)) + (let ((_e230892230940_ (let () (declare (not safe)) (gx#stx-e - _hd229707229754_)))) - (let ((_hd229710229762_ + _hd230888230935_)))) + (let ((_hd230891230943_ (let () (declare (not safe)) - (##car _e229711229759_))) - (_tl229709229764_ + (##car _e230892230940_))) + (_tl230890230945_ (let () (declare (not safe)) - (##cdr _e229711229759_)))) + (##cdr _e230892230940_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229709229764_)) + _tl230890230945_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl229706229756_)) - (let ((_e229714229767_ + (gx#stx-pair? _tl230887230937_)) + (let ((_e230895230948_ (let () (declare (not safe)) - (gx#stx-e _tl229706229756_)))) - (let ((_hd229713229770_ + (gx#stx-e _tl230887230937_)))) + (let ((_hd230894230951_ (let () (declare (not safe)) - (##car _e229714229767_))) - (_tl229712229772_ + (##car _e230895230948_))) + (_tl230893230953_ (let () (declare (not safe)) - (##cdr _e229714229767_)))) + (##cdr _e230895230948_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229712229772_)) + (gx#stx-null? _tl230893230953_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl229703229748_)) + (gx#stx-null? _tl230884230929_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229700229740_)) - (let ((_e229717229775_ + (gx#stx-pair? _tl230881230921_)) + (let ((_e230898230956_ (let () (declare (not safe)) - (gx#stx-e _tl229700229740_)))) - (let ((_hd229716229778_ + (gx#stx-e _tl230881230921_)))) + (let ((_hd230897230959_ (let () (declare (not safe)) - (##car _e229717229775_))) - (_tl229715229780_ + (##car _e230898230956_))) + (_tl230896230961_ (let () (declare (not safe)) - (##cdr _e229717229775_)))) + (##cdr _e230898230956_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229715229780_)) - ((lambda (_L229783_ - _L229784_ - _L229785_) - (let* ((_lambda-id229809_ - (let ((__tmp244210 + _tl230896230961_)) + ((lambda (_L230964_ + _L230965_ + _L230966_) + (let* ((_lambda-id230990_ + (let ((__tmp245408 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _L229678_))) - (__tmp244209 (gensym '__))) + (gx#stx-e _L230859_))) + (__tmp245407 (gensym '__))) (declare (not safe)) - (make-symbol__1 __tmp244210 __tmp244209))) - (_lambda-id229811_ - (let ((__tmp244211 + (make-symbol__1 __tmp245408 __tmp245407))) + (_lambda-id230992_ + (let ((__tmp245409 (let () (declare (not safe)) - (gx#stx-source _stx229115_)))) + (gx#stx-source _stx230296_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _lambda-id229809_ __tmp244211))) - (_g244212_ + (gx#core-quote-syntax__1 _lambda-id230990_ __tmp245409))) + (_g245410_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _lambda-id229811_))) - (_new-case-lambda-expr229814_ + (gx#core-bind-runtime!__0 _lambda-id230992_))) + (_new-case-lambda-expr230995_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L229783_ - _L229785_ - _lambda-id229811_)))) + _L230964_ + _L230966_ + _lambda-id230992_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp244214 + (let ((__tmp245412 (let () (declare (not safe)) (gxc#identifier-symbol - _L229678_))) - (__tmp244213 + _L230859_))) + (__tmp245411 (let () (declare (not safe)) (gxc#identifier-symbol - _lambda-id229811_)))) + _lambda-id230992_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp244214 + __tmp245412 '" => " - __tmp244213)) - (let ((__tmp244217 - (let ((__tmp244218 + __tmp245411)) + (let ((__tmp245415 + (let ((__tmp245416 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_bind-e__241781241782_ - _L229678_ - _new-case-lambda-expr229814_ + (_bind-e__242979242980_ + _L230859_ + _new-case-lambda-expr230995_ '#f)))) (declare (not safe)) - (cons __tmp244218 _rest229278_))) - (__tmp244215 - (let ((__tmp244216 + (cons __tmp245416 _rest230459_))) + (__tmp245413 + (let ((__tmp245414 (let () (declare (not safe)) - (_bind-e__0__241783241784_ - _lambda-id229811_ - _L229784_)))) + (_bind-e__0__242981242982_ + _lambda-id230992_ + _L230965_)))) (declare (not safe)) - (cons __tmp244216 _bind229258_)))) + (cons __tmp245414 _bind230439_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp229255_ - __tmp244217 - __tmp244215)))) - _hd229716229778_ - _hd229713229770_ - _hd229710229762_) + (_lp230436_ + __tmp245415 + __tmp245413)))) + _hd230897230959_ + _hd230894230951_ + _hd230891230943_) (let () (declare (not safe)) - (_g229692229722_ - _g229693229725_))))) + (_g230873230903_ + _g230874230906_))))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_))) + (_g230873230903_ _g230874230906_))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_))) + (_g230873230903_ _g230874230906_))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_))))) + (_g230873230903_ _g230874230906_))))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_))) + (_g230873230903_ _g230874230906_))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_))))) + (_g230873230903_ _g230874230906_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g229692229722_ - _g229693229725_))))) + (_g230873230903_ + _g230874230906_))))) (let () (declare (not safe)) - (_g229692229722_ - _g229693229725_))))) + (_g230873230903_ + _g230874230906_))))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_))))) + (_g230873230903_ _g230874230906_))))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_))))) + (_g230873230903_ _g230874230906_))))) (let () (declare (not safe)) - (_g229692229722_ _g229693229725_)))))) + (_g230873230903_ _g230874230906_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g229691229817_ _L229677_)))) - (___kont243714243715_ - (lambda (_L229401_ _L229402_) - (let* ((_g229416229469_ - (lambda (_g229417229466_) + (_g230872230998_ _L230858_)))) + (___kont244912244913_ + (lambda (_L230582_ _L230583_) + (let* ((_g230597230650_ + (lambda (_g230598230647_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g229417229466_)))) - (_g229415229645_ - (lambda (_g229417229472_) + _g230598230647_)))) + (_g230596230826_ + (lambda (_g230598230653_) (if (let () (declare (not safe)) (gx#stx-pair? - _g229417229472_)) - (let ((_e229425229474_ + _g230598230653_)) + (let ((_e230606230655_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _g229417229472_)))) - (let ((_hd229424229477_ + (gx#stx-e _g230598230653_)))) + (let ((_hd230605230658_ (let () (declare (not safe)) - (##car _e229425229474_))) - (_tl229423229479_ + (##car _e230606230655_))) + (_tl230604230660_ (let () (declare (not safe)) - (##cdr _e229425229474_)))) + (##cdr _e230606230655_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229423229479_)) - (let ((_e229428229482_ + (gx#stx-pair? _tl230604230660_)) + (let ((_e230609230663_ (let () (declare (not safe)) - (gx#stx-e _tl229423229479_)))) - (let ((_hd229427229485_ + (gx#stx-e _tl230604230660_)))) + (let ((_hd230608230666_ (let () (declare (not safe)) - (##car _e229428229482_))) - (_tl229426229487_ + (##car _e230609230663_))) + (_tl230607230668_ (let () (declare (not safe)) - (##cdr _e229428229482_)))) + (##cdr _e230609230663_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229427229485_)) - (let ((_e229431229490_ + (gx#stx-pair? _hd230608230666_)) + (let ((_e230612230671_ (let () (declare (not safe)) - (gx#stx-e _hd229427229485_)))) - (let ((_hd229430229493_ + (gx#stx-e _hd230608230666_)))) + (let ((_hd230611230674_ (let () (declare (not safe)) - (##car _e229431229490_))) - (_tl229429229495_ + (##car _e230612230671_))) + (_tl230610230676_ (let () (declare (not safe)) - (##cdr _e229431229490_)))) + (##cdr _e230612230671_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229430229493_)) - (let ((_e229434229498_ + (gx#stx-pair? _hd230611230674_)) + (let ((_e230615230679_ (let () (declare (not safe)) (gx#stx-e - _hd229430229493_)))) - (let ((_hd229433229501_ + _hd230611230674_)))) + (let ((_hd230614230682_ (let () (declare (not safe)) - (##car _e229434229498_))) - (_tl229432229503_ + (##car _e230615230679_))) + (_tl230613230684_ (let () (declare (not safe)) - (##cdr _e229434229498_)))) + (##cdr _e230615230679_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229433229501_)) - (let ((_e229437229506_ + _hd230614230682_)) + (let ((_e230618230687_ (let () (declare (not safe)) (gx#stx-e - _hd229433229501_)))) - (let ((_hd229436229509_ + _hd230614230682_)))) + (let ((_hd230617230690_ (let () (declare (not safe)) - (##car _e229437229506_))) - (_tl229435229511_ + (##car _e230618230687_))) + (_tl230616230692_ (let () (declare (not safe)) - (##cdr _e229437229506_)))) + (##cdr _e230618230687_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229435229511_)) + _tl230616230692_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl229432229503_)) - (let ((_e229440229514_ + (gx#stx-pair? _tl230613230684_)) + (let ((_e230621230695_ (let () (declare (not safe)) - (gx#stx-e _tl229432229503_)))) - (let ((_hd229439229517_ + (gx#stx-e _tl230613230684_)))) + (let ((_hd230620230698_ (let () (declare (not safe)) - (##car _e229440229514_))) - (_tl229438229519_ + (##car _e230621230695_))) + (_tl230619230700_ (let () (declare (not safe)) - (##cdr _e229440229514_)))) + (##cdr _e230621230695_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229439229517_)) - (let ((_e229443229522_ + (gx#stx-pair? _hd230620230698_)) + (let ((_e230624230703_ (let () (declare (not safe)) - (gx#stx-e _hd229439229517_)))) - (let ((_hd229442229525_ + (gx#stx-e _hd230620230698_)))) + (let ((_hd230623230706_ (let () (declare (not safe)) - (##car _e229443229522_))) - (_tl229441229527_ + (##car _e230624230703_))) + (_tl230622230708_ (let () (declare (not safe)) - (##cdr _e229443229522_)))) + (##cdr _e230624230703_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229441229527_)) - (let ((_e229446229530_ + (gx#stx-pair? _tl230622230708_)) + (let ((_e230627230711_ (let () (declare (not safe)) - (gx#stx-e _tl229441229527_)))) - (let ((_hd229445229533_ + (gx#stx-e _tl230622230708_)))) + (let ((_hd230626230714_ (let () (declare (not safe)) - (##car _e229446229530_))) - (_tl229444229535_ + (##car _e230627230711_))) + (_tl230625230716_ (let () (declare (not safe)) - (##cdr _e229446229530_)))) + (##cdr _e230627230711_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229445229533_)) - (let ((_e229449229538_ + _hd230626230714_)) + (let ((_e230630230719_ (let () (declare (not safe)) (gx#stx-e - _hd229445229533_)))) - (let ((_hd229448229541_ + _hd230626230714_)))) + (let ((_hd230629230722_ (let () (declare (not safe)) - (##car _e229449229538_))) - (_tl229447229543_ + (##car _e230630230719_))) + (_tl230628230724_ (let () (declare (not safe)) - (##cdr _e229449229538_)))) + (##cdr _e230630230719_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229448229541_)) - (let ((_e229452229546_ + _hd230629230722_)) + (let ((_e230633230727_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _hd229448229541_)))) - (let ((_hd229451229549_ - (let () (declare (not safe)) (##car _e229452229546_))) - (_tl229450229551_ - (let () (declare (not safe)) (##cdr _e229452229546_)))) + (gx#stx-e _hd230629230722_)))) + (let ((_hd230632230730_ + (let () (declare (not safe)) (##car _e230633230727_))) + (_tl230631230732_ + (let () (declare (not safe)) (##cdr _e230633230727_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229451229549_)) - (let ((_e229455229554_ + (gx#stx-pair? _hd230632230730_)) + (let ((_e230636230735_ (let () (declare (not safe)) - (gx#stx-e _hd229451229549_)))) - (let ((_hd229454229557_ + (gx#stx-e _hd230632230730_)))) + (let ((_hd230635230738_ (let () (declare (not safe)) - (##car _e229455229554_))) - (_tl229453229559_ + (##car _e230636230735_))) + (_tl230634230740_ (let () (declare (not safe)) - (##cdr _e229455229554_)))) + (##cdr _e230636230735_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229453229559_)) + (gx#stx-null? _tl230634230740_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229450229551_)) - (let ((_e229458229562_ + (gx#stx-pair? _tl230631230732_)) + (let ((_e230639230743_ (let () (declare (not safe)) - (gx#stx-e _tl229450229551_)))) - (let ((_hd229457229565_ + (gx#stx-e _tl230631230732_)))) + (let ((_hd230638230746_ (let () (declare (not safe)) - (##car _e229458229562_))) - (_tl229456229567_ + (##car _e230639230743_))) + (_tl230637230748_ (let () (declare (not safe)) - (##cdr _e229458229562_)))) + (##cdr _e230639230743_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229456229567_)) + (gx#stx-null? _tl230637230748_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl229447229543_)) + _tl230628230724_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl229444229535_)) - (let ((_e229461229570_ + _tl230625230716_)) + (let ((_e230642230751_ (let () (declare (not safe)) (gx#stx-e - _tl229444229535_)))) - (let ((_hd229460229573_ + _tl230625230716_)))) + (let ((_hd230641230754_ (let () (declare (not safe)) - (##car _e229461229570_))) - (_tl229459229575_ + (##car _e230642230751_))) + (_tl230640230756_ (let () (declare (not safe)) - (##cdr _e229461229570_)))) + (##cdr _e230642230751_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229459229575_)) + _tl230640230756_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _tl229438229519_)) + (gx#stx-null? _tl230619230700_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl229429229495_)) + (gx#stx-null? _tl230610230676_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229426229487_)) - (let ((_e229464229578_ + (gx#stx-pair? _tl230607230668_)) + (let ((_e230645230759_ (let () (declare (not safe)) - (gx#stx-e _tl229426229487_)))) - (let ((_hd229463229581_ + (gx#stx-e _tl230607230668_)))) + (let ((_hd230644230762_ (let () (declare (not safe)) - (##car _e229464229578_))) - (_tl229462229583_ + (##car _e230645230759_))) + (_tl230643230764_ (let () (declare (not safe)) - (##cdr _e229464229578_)))) + (##cdr _e230645230759_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229462229583_)) - ((lambda (_L229586_ - _L229587_ - _L229588_ - _L229589_ - _L229590_) - (let* ((_get-kws-id229630_ - (let ((__tmp244220 + (gx#stx-null? _tl230643230764_)) + ((lambda (_L230767_ + _L230768_ + _L230769_ + _L230770_ + _L230771_) + (let* ((_get-kws-id230811_ + (let ((__tmp245418 (let () (declare (not safe)) (gx#stx-e - _L229402_))) - (__tmp244219 + _L230583_))) + (__tmp245417 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp244220 - __tmp244219))) - (_get-kws-id229632_ - (let ((__tmp244221 + __tmp245418 + __tmp245417))) + (_get-kws-id230813_ + (let ((__tmp245419 (let () (declare (not safe)) (gx#stx-source - _stx229115_)))) + _stx230296_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _get-kws-id229630_ - __tmp244221))) - (_main-id229634_ - (let ((__tmp244223 + _get-kws-id230811_ + __tmp245419))) + (_main-id230815_ + (let ((__tmp245421 (let () (declare (not safe)) (gx#stx-e - _L229402_))) - (__tmp244222 + _L230583_))) + (__tmp245420 (gensym '__))) (declare (not safe)) (make-symbol__1 - __tmp244223 - __tmp244222))) - (_main-id229636_ - (let ((__tmp244224 + __tmp245421 + __tmp245420))) + (_main-id230817_ + (let ((__tmp245422 (let () (declare (not safe)) (gx#stx-source - _stx229115_)))) + _stx230296_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _main-id229634_ - __tmp244224))) - (_g244225_ + _main-id230815_ + __tmp245422))) + (_g245423_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _get-kws-id229632_))) - (_g244226_ + _get-kws-id230813_))) + (_g245424_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _main-id229636_))) - (_new-kw-dispatch229640_ + _main-id230817_))) + (_new-kw-dispatch230821_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L229586_ - _L229590_ - _get-kws-id229632_))) - (_new-get-kws229642_ + _L230767_ + _L230771_ + _get-kws-id230813_))) + (_new-get-kws230823_ (let () (declare (not safe)) (gxc#apply-expression-subst - _L229587_ - _L229589_ - _main-id229636_)))) - (let ((__tmp244229 + _L230768_ + _L230770_ + _main-id230817_)))) + (let ((__tmp245427 (let () (declare (not safe)) (gxc#identifier-symbol - _L229402_))) - (__tmp244228 + _L230583_))) + (__tmp245426 (let () (declare (not safe)) (gxc#identifier-symbol - _get-kws-id229632_))) - (__tmp244227 + _get-kws-id230813_))) + (__tmp245425 (let () (declare (not safe)) (gxc#identifier-symbol - _main-id229636_)))) + _main-id230817_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp244229 + __tmp245427 '" => " - __tmp244228 + __tmp245426 '" => " - __tmp244227)) - (let ((__tmp244230 - (let ((__tmp244235 + __tmp245425)) + (let ((__tmp245428 + (let ((__tmp245433 (let () (declare (not safe)) - (_bind-e__241781241782_ - _main-id229636_ - _L229588_ + (_bind-e__242979242980_ + _main-id230817_ + _L230769_ '#f))) - (__tmp244231 - (let ((__tmp244234 + (__tmp245429 + (let ((__tmp245432 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_bind-e__241781241782_ - _get-kws-id229632_ - _new-get-kws229642_ + (_bind-e__242979242980_ + _get-kws-id230813_ + _new-get-kws230823_ '#f))) - (__tmp244232 - (let ((__tmp244233 + (__tmp245430 + (let ((__tmp245431 (let () (declare (not safe)) - (_bind-e__241781241782_ - _L229402_ - _new-kw-dispatch229640_ + (_bind-e__242979242980_ + _L230583_ + _new-kw-dispatch230821_ '#f)))) (declare (not safe)) - (cons __tmp244233 _rest229278_)))) + (cons __tmp245431 _rest230459_)))) (declare (not safe)) - (cons __tmp244234 __tmp244232)))) + (cons __tmp245432 __tmp245430)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244235 - __tmp244231)))) + (cons __tmp245433 + __tmp245429)))) (declare (not safe)) - (_lp229255_ - __tmp244230 - _bind229258_)))) - _hd229463229581_ - _hd229460229573_ - _hd229457229565_ - _hd229454229557_ - _hd229436229509_) + (_lp230436_ + __tmp245428 + _bind230439_)))) + _hd230644230762_ + _hd230641230754_ + _hd230638230746_ + _hd230635230738_ + _hd230617230690_) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))) + (_g230597230650_ _g230598230653_))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))) + (_g230597230650_ _g230598230653_))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))) + (_g230597230650_ _g230598230653_))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g229416229469_ - _g229417229472_))) + (_g230597230650_ + _g230598230653_))) (let () (declare (not safe)) - (_g229416229469_ - _g229417229472_))) + (_g230597230650_ + _g230598230653_))) (let () (declare (not safe)) - (_g229416229469_ - _g229417229472_))))) + (_g230597230650_ + _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))) + (_g230597230650_ _g230598230653_))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g229416229469_ - _g229417229472_))))) + (_g230597230650_ + _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))) + (_g230597230650_ _g230598230653_))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g229416229469_ - _g229417229472_))))) + (_g230597230650_ + _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ - _g229417229472_))))) + (_g230597230650_ + _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_))))) + (_g230597230650_ _g230598230653_))))) (let () (declare (not safe)) - (_g229416229469_ _g229417229472_)))))) + (_g230597230650_ _g230598230653_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g229415229645_ _L229401_)))) - (___kont243716243717_ - (lambda (_L229352_ _L229353_) - (let ((__tmp244236 - (let ((__tmp244237 - (let ((__tmp244238 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244239 + (_g230596230826_ _L230582_)))) + (___kont244914244915_ + (lambda (_L230533_ _L230534_) + (let ((__tmp245434 + (let ((__tmp245435 + (let ((__tmp245436 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245437 (let () (declare (not safe)) - (gxc#compile-e__0 _L229352_)))) + (gxc#compile-e__0 _L230533_)))) (declare (not safe)) - (cons __tmp244239 '())))) + (cons __tmp245437 '())))) (declare (not safe)) - (cons _L229353_ __tmp244238)))) + (cons _L230534_ __tmp245436)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244237 - _bind229258_)))) + (cons __tmp245435 + _bind230439_)))) (declare (not safe)) - (_lp229255_ - _rest229278_ - __tmp244236))))) - (let* ((___match243783243784_ - (lambda (_e229312229377_ - _hd229311229380_ - _tl229310229382_ - _e229315229385_ - _hd229314229388_ - _tl229313229390_ - _e229318229393_ - _hd229317229396_ - _tl229316229398_) - (let ((_L229401_ - _hd229317229396_) - (_L229402_ - _hd229314229388_)) + (_lp230436_ + _rest230459_ + __tmp245434))))) + (let* ((___match244981244982_ + (lambda (_e230493230558_ + _hd230492230561_ + _tl230491230563_ + _e230496230566_ + _hd230495230569_ + _tl230494230571_ + _e230499230574_ + _hd230498230577_ + _tl230497230579_) + (let ((_L230582_ + _hd230498230577_) + (_L230583_ + _hd230495230569_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L229402_)) + _L230583_)) (let () (declare (not safe)) (gxc#kw-lambda-expr? - _L229401_))) - (___kont243714243715_ - _L229401_ - _L229402_) - (___kont243716243717_ - _hd229317229396_ - _hd229311229380_))))) - (___match243761243762_ - (lambda (_e229301229653_ - _hd229300229656_ - _tl229299229658_ - _e229304229661_ - _hd229303229664_ - _tl229302229666_ - _e229307229669_ - _hd229306229672_ - _tl229305229674_) - (let ((_L229677_ - _hd229306229672_) - (_L229678_ - _hd229303229664_)) + _L230582_))) + (___kont244912244913_ + _L230582_ + _L230583_) + (___kont244914244915_ + _hd230498230577_ + _hd230492230561_))))) + (___match244959244960_ + (lambda (_e230482230834_ + _hd230481230837_ + _tl230480230839_ + _e230485230842_ + _hd230484230845_ + _tl230483230847_ + _e230488230850_ + _hd230487230853_ + _tl230486230855_) + (let ((_L230858_ + _hd230487230853_) + (_L230859_ + _hd230484230845_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L229678_)) + _L230859_)) (let () (declare (not safe)) (gxc#opt-lambda-expr? - _L229677_))) - (___kont243712243713_ - _L229677_ - _L229678_) - (___match243783243784_ - _e229301229653_ - _hd229300229656_ - _tl229299229658_ - _e229304229661_ - _hd229303229664_ - _tl229302229666_ - _e229307229669_ - _hd229306229672_ - _tl229305229674_))))) - (___match243739243740_ - (lambda (_e229290229825_ - _hd229289229828_ - _tl229288229830_ - _e229293229833_ - _hd229292229836_ - _tl229291229838_ - _e229296229841_ - _hd229295229844_ - _tl229294229846_) - (let ((_L229849_ - _hd229295229844_) - (_L229850_ - _hd229292229836_)) + _L230858_))) + (___kont244910244911_ + _L230858_ + _L230859_) + (___match244981244982_ + _e230482230834_ + _hd230481230837_ + _tl230480230839_ + _e230485230842_ + _hd230484230845_ + _tl230483230847_ + _e230488230850_ + _hd230487230853_ + _tl230486230855_))))) + (___match244937244938_ + (lambda (_e230471231006_ + _hd230470231009_ + _tl230469231011_ + _e230474231014_ + _hd230473231017_ + _tl230472231019_ + _e230477231022_ + _hd230476231025_ + _tl230475231027_) + (let ((_L231030_ + _hd230476231025_) + (_L231031_ + _hd230473231017_)) (if (and (let () (declare (not safe)) (gx#identifier? - _L229850_)) + _L231031_)) (let () (declare (not safe)) (gxc#case-lambda-expr? - _L229849_))) - (___kont243710243711_ - _L229849_ - _L229850_) - (___match243761243762_ - _e229290229825_ - _hd229289229828_ - _tl229288229830_ - _e229293229833_ - _hd229292229836_ - _tl229291229838_ - _e229296229841_ - _hd229295229844_ - _tl229294229846_)))))) + _L231030_))) + (___kont244908244909_ + _L231030_ + _L231031_) + (___match244959244960_ + _e230471231006_ + _hd230470231009_ + _tl230469231011_ + _e230474231014_ + _hd230473231017_ + _tl230472231019_ + _e230477231022_ + _hd230476231025_ + _tl230475231027_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - ___stx243708243709_)) - (let ((_e229290229825_ + ___stx244906244907_)) + (let ((_e230471231006_ (let () (declare (not safe)) (gx#stx-e - ___stx243708243709_)))) - (let ((_tl229288229830_ + ___stx244906244907_)))) + (let ((_tl230469231011_ (let () (declare (not safe)) - (##cdr _e229290229825_))) - (_hd229289229828_ + (##cdr _e230471231006_))) + (_hd230470231009_ (let () (declare (not safe)) - (##car _e229290229825_)))) + (##car _e230471231006_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd229289229828_)) - (let ((_e229293229833_ + _hd230470231009_)) + (let ((_e230474231014_ (let () (declare (not safe)) (gx#stx-e - _hd229289229828_)))) - (let ((_tl229291229838_ + _hd230470231009_)))) + (let ((_tl230472231019_ (let () (declare (not safe)) - (##cdr _e229293229833_))) - (_hd229292229836_ + (##cdr _e230474231014_))) + (_hd230473231017_ (let () (declare (not safe)) - (##car _e229293229833_)))) + (##car _e230474231014_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229291229838_)) + _tl230472231019_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _tl229288229830_)) - (let ((_e229296229841_ + (gx#stx-pair? _tl230469231011_)) + (let ((_e230477231022_ (let () (declare (not safe)) - (gx#stx-e _tl229288229830_)))) - (let ((_tl229294229846_ + (gx#stx-e _tl230469231011_)))) + (let ((_tl230475231027_ (let () (declare (not safe)) - (##cdr _e229296229841_))) - (_hd229295229844_ + (##cdr _e230477231022_))) + (_hd230476231025_ (let () (declare (not safe)) - (##car _e229296229841_)))) + (##car _e230477231022_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229294229846_)) - (___match243739243740_ - _e229290229825_ - _hd229289229828_ - _tl229288229830_ - _e229293229833_ - _hd229292229836_ - _tl229291229838_ - _e229296229841_ - _hd229295229844_ - _tl229294229846_) + (gx#stx-null? _tl230475231027_)) + (___match244937244938_ + _e230471231006_ + _hd230470231009_ + _tl230469231011_ + _e230474231014_ + _hd230473231017_ + _tl230472231019_ + _e230477231022_ + _hd230476231025_ + _tl230475231027_) (let () (declare (not safe)) - (_g229284229331_))))) - (let () (declare (not safe)) (_g229284229331_))) + (_g230465230512_))))) + (let () (declare (not safe)) (_g230465230512_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229288229830_)) - (let ((_e229326229344_ + (gx#stx-pair? _tl230469231011_)) + (let ((_e230507230525_ (let () (declare (not safe)) - (gx#stx-e _tl229288229830_)))) - (let ((_tl229324229349_ + (gx#stx-e _tl230469231011_)))) + (let ((_tl230505230530_ (let () (declare (not safe)) - (##cdr _e229326229344_))) - (_hd229325229347_ + (##cdr _e230507230525_))) + (_hd230506230528_ (let () (declare (not safe)) - (##car _e229326229344_)))) + (##car _e230507230525_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229324229349_)) - (___kont243716243717_ - _hd229325229347_ - _hd229289229828_) + (gx#stx-null? _tl230505230530_)) + (___kont244914244915_ + _hd230506230528_ + _hd230470231009_) (let () (declare (not safe)) - (_g229284229331_))))) - (let () (declare (not safe)) (_g229284229331_)))))) + (_g230465230512_))))) + (let () (declare (not safe)) (_g230465230512_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _tl229288229830_)) - (let ((_e229326229344_ + _tl230469231011_)) + (let ((_e230507230525_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl229288229830_)))) - (let ((_tl229324229349_ - (let () (declare (not safe)) (##cdr _e229326229344_))) - (_hd229325229347_ - (let () (declare (not safe)) (##car _e229326229344_)))) + (gx#stx-e _tl230469231011_)))) + (let ((_tl230505230530_ + (let () (declare (not safe)) (##cdr _e230507230525_))) + (_hd230506230528_ + (let () (declare (not safe)) (##car _e230507230525_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229324229349_)) - (___kont243716243717_ _hd229325229347_ _hd229289229828_) - (let () (declare (not safe)) (_g229284229331_))))) - (let () (declare (not safe)) (_g229284229331_)))))) + (gx#stx-null? _tl230505230530_)) + (___kont244914244915_ _hd230506230528_ _hd230470231009_) + (let () (declare (not safe)) (_g230465230512_))))) + (let () (declare (not safe)) (_g230465230512_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g229284229331_))))))))) + (_g230465230512_))))))))) (if (let () (declare (not safe)) - (##pair? _rest229259229267_)) - (let ((_hd229264229945_ + (##pair? _rest230440230448_)) + (let ((_hd230445231126_ (let () (declare (not safe)) - (##car _rest229259229267_))) - (_tl229265229947_ + (##car _rest230440230448_))) + (_tl230446231128_ (let () (declare (not safe)) - (##cdr _rest229259229267_)))) - (let* ((_hd229950_ _hd229264229945_) - (_rest229952_ _tl229265229947_)) + (##cdr _rest230440230448_)))) + (let* ((_hd231131_ _hd230445231126_) + (_rest231133_ _tl230446231128_)) (declare (not safe)) - (_K229263229942_ _rest229952_ _hd229950_))) + (_K230444231123_ _rest231133_ _hd231131_))) (let () (declare (not safe)) - (_else229261229275_)))))))) - (let* ((___stx243800243801_ _stx229115_) - (_g229121229148_ + (_else230442230456_)))))))) + (let* ((___stx244998244999_ _stx230296_) + (_g230302230329_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243800243801_))))) - (let ((___kont243802243803_ - (lambda (_L229208_ _L229209_ _L229210_) - (let ((__tmp244241 + ___stx244998244999_))))) + (let ((___kont245000245001_ + (lambda (_L230389_ _L230390_ _L230391_) + (let ((__tmp245439 (lambda () - (let ((_hd229247_ - (let ((__tmp244242 - (let ((__tmp244243 - (lambda (_g229239229242_ - _g229240229244_) + (let ((_hd230428_ + (let ((__tmp245440 + (let ((__tmp245441 + (lambda (_g230420230423_ + _g230421230425_) (let () (declare (not safe)) - (cons _g229239229242_ - _g229240229244_))))) + (cons _g230420230423_ + _g230421230425_))))) (declare (not safe)) - (foldr1 __tmp244243 + (foldr1 __tmp245441 '() - _L229209_)))) + _L230390_)))) (declare (not safe)) - (_compile-bindings229118_ __tmp244242))) - (_body229248_ + (_compile-bindings230299_ __tmp245440))) + (_body230429_ (let () (declare (not safe)) - (gxc#compile-e__0 _L229208_)))) - (let ((__tmp244244 - (let ((__tmp244245 - (let ((__tmp244246 + (gxc#compile-e__0 _L230389_)))) + (let ((__tmp245442 + (let ((__tmp245443 + (let ((__tmp245444 (let () (declare (not safe)) - (cons _body229248_ + (cons _body230429_ '())))) (declare (not safe)) - (cons _hd229247_ - __tmp244246)))) + (cons _hd230428_ + __tmp245444)))) (declare (not safe)) - (cons _L229210_ __tmp244245)))) + (cons _L230391_ __tmp245443)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp244244 - _stx229115_))))) - (__tmp244240 - (let ((__obj243865 + __tmp245442 + _stx230296_))))) + (__tmp245438 + (let ((__obj245063 (let () (declare (not safe)) (##structure @@ -15458,254 +15506,254 @@ '#f '#f '#f)))) - (gx#local-context:::init! __obj243865) - __obj243865))) + (gx#local-context:::init! __obj245063) + __obj245063))) (declare (not safe)) (call-with-parameters - __tmp244241 + __tmp245439 gx#current-expander-context - __tmp244240)))) - (___kont243806243807_ + __tmp245438)))) + (___kont245004245005_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _stx229115_))))) - (let ((___match243827243828_ - (lambda (_e229128229160_ - _hd229127229163_ - _tl229126229165_ - _e229131229168_ - _hd229130229171_ - _tl229129229173_ - ___splice243804243805_ - _target229132229176_ - _tl229134229178_) - (letrec ((_loop229135229181_ - (lambda (_hd229133229184_ _bind229139229186_) + (gxc#xform-let-values% _stx230296_))))) + (let ((___match245025245026_ + (lambda (_e230309230341_ + _hd230308230344_ + _tl230307230346_ + _e230312230349_ + _hd230311230352_ + _tl230310230354_ + ___splice245002245003_ + _target230313230357_ + _tl230315230359_) + (letrec ((_loop230316230362_ + (lambda (_hd230314230365_ _bind230320230367_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229133229184_)) - (let ((_e229136229189_ + (gx#stx-pair? _hd230314230365_)) + (let ((_e230317230370_ (let () (declare (not safe)) - (gx#stx-e _hd229133229184_)))) - (let ((_lp-tl229138229194_ + (gx#stx-e _hd230314230365_)))) + (let ((_lp-tl230319230375_ (let () (declare (not safe)) - (##cdr _e229136229189_))) - (_lp-hd229137229192_ + (##cdr _e230317230370_))) + (_lp-hd230318230373_ (let () (declare (not safe)) - (##car _e229136229189_)))) - (let ((__tmp244249 + (##car _e230317230370_)))) + (let ((__tmp245447 (let () (declare (not safe)) - (cons _lp-hd229137229192_ - _bind229139229186_)))) + (cons _lp-hd230318230373_ + _bind230320230367_)))) (declare (not safe)) - (_loop229135229181_ - _lp-tl229138229194_ - __tmp244249)))) - (let ((_bind229140229197_ - (reverse _bind229139229186_))) + (_loop230316230362_ + _lp-tl230319230375_ + __tmp245447)))) + (let ((_bind230321230378_ + (reverse _bind230320230367_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229129229173_)) - (let ((_e229143229200_ + (gx#stx-pair? _tl230310230354_)) + (let ((_e230324230381_ (let () (declare (not safe)) (gx#stx-e - _tl229129229173_)))) - (let ((_tl229141229205_ + _tl230310230354_)))) + (let ((_tl230322230386_ (let () (declare (not safe)) - (##cdr _e229143229200_))) - (_hd229142229203_ + (##cdr _e230324230381_))) + (_hd230323230384_ (let () (declare (not safe)) - (##car _e229143229200_)))) + (##car _e230324230381_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl229141229205_)) - (let ((_L229208_ - _hd229142229203_) - (_L229209_ - _bind229140229197_) - (_L229210_ - _hd229127229163_)) - (if (let ((__tmp244247 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244248 - (lambda (_g229231229234_ _g229232229236_) + _tl230322230386_)) + (let ((_L230389_ + _hd230323230384_) + (_L230390_ + _bind230321230378_) + (_L230391_ + _hd230308230344_)) + (if (let ((__tmp245445 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp245446 + (lambda (_g230412230415_ _g230413230417_) (let () (declare (not safe)) - (cons _g229231229234_ _g229232229236_))))) + (cons _g230412230415_ _g230413230417_))))) (declare (not safe)) - (foldr1 __tmp244248 '() _L229209_)))) + (foldr1 __tmp245446 '() _L230390_)))) (declare (not safe)) - (ormap1 gxc#lift-top-lambda-binding? __tmp244247)) - (___kont243802243803_ _L229208_ _L229209_ _L229210_) - (___kont243806243807_))) + (ormap1 gxc#lift-top-lambda-binding? __tmp245445)) + (___kont245000245001_ _L230389_ _L230390_ _L230391_) + (___kont245004245005_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont243806243807_)))) - (___kont243806243807_))))))) + (___kont245004245005_)))) + (___kont245004245005_))))))) (let () (declare (not safe)) - (_loop229135229181_ _target229132229176_ '())))))) + (_loop230316230362_ _target230313230357_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243800243801_)) - (let ((_e229128229160_ + (gx#stx-pair? ___stx244998244999_)) + (let ((_e230309230341_ (let () (declare (not safe)) - (gx#stx-e ___stx243800243801_)))) - (let ((_tl229126229165_ + (gx#stx-e ___stx244998244999_)))) + (let ((_tl230307230346_ (let () (declare (not safe)) - (##cdr _e229128229160_))) - (_hd229127229163_ + (##cdr _e230309230341_))) + (_hd230308230344_ (let () (declare (not safe)) - (##car _e229128229160_)))) + (##car _e230309230341_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229126229165_)) - (let ((_e229131229168_ + (gx#stx-pair? _tl230307230346_)) + (let ((_e230312230349_ (let () (declare (not safe)) - (gx#stx-e _tl229126229165_)))) - (let ((_tl229129229173_ + (gx#stx-e _tl230307230346_)))) + (let ((_tl230310230354_ (let () (declare (not safe)) - (##cdr _e229131229168_))) - (_hd229130229171_ + (##cdr _e230312230349_))) + (_hd230311230352_ (let () (declare (not safe)) - (##car _e229131229168_)))) + (##car _e230312230349_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd229130229171_)) - (let ((___splice243804243805_ + (gx#stx-pair/null? _hd230311230352_)) + (let ((___splice245002245003_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd229130229171_ + _hd230311230352_ '0)))) - (let ((_tl229134229178_ + (let ((_tl230315230359_ (let () (declare (not safe)) (##vector-ref - ___splice243804243805_ + ___splice245002245003_ '1))) - (_target229132229176_ + (_target230313230357_ (let () (declare (not safe)) (##vector-ref - ___splice243804243805_ + ___splice245002245003_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229134229178_)) - (___match243827243828_ - _e229128229160_ - _hd229127229163_ - _tl229126229165_ - _e229131229168_ - _hd229130229171_ - _tl229129229173_ - ___splice243804243805_ - _target229132229176_ - _tl229134229178_) - (___kont243806243807_)))) - (___kont243806243807_)))) - (___kont243806243807_)))) - (___kont243806243807_)))))))) + (gx#stx-null? _tl230315230359_)) + (___match245025245026_ + _e230309230341_ + _hd230308230344_ + _tl230307230346_ + _e230312230349_ + _hd230311230352_ + _tl230310230354_ + ___splice245002245003_ + _target230313230357_ + _tl230315230359_) + (___kont245004245005_)))) + (___kont245004245005_)))) + (___kont245004245005_)))) + (___kont245004245005_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_bind229033_) - (let* ((___stx243830243831_ _bind229033_) - (_g229036229053_ + (lambda (_bind230214_) + (let* ((___stx245028245029_ _bind230214_) + (_g230217230234_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx243830243831_))))) - (let ((___kont243832243833_ - (lambda (_L229089_ _L229090_) - (if (let () (declare (not safe)) (gx#identifier? _L229090_)) - (let ((_$e229106_ + ___stx245028245029_))))) + (let ((___kont245030245031_ + (lambda (_L230270_ _L230271_) + (if (let () (declare (not safe)) (gx#identifier? _L230271_)) + (let ((_$e230287_ (let () (declare (not safe)) - (gxc#case-lambda-expr? _L229089_)))) - (if _$e229106_ - _$e229106_ - (let ((_$e229109_ + (gxc#case-lambda-expr? _L230270_)))) + (if _$e230287_ + _$e230287_ + (let ((_$e230290_ (let () (declare (not safe)) - (gxc#opt-lambda-expr? _L229089_)))) - (if _$e229109_ - _$e229109_ + (gxc#opt-lambda-expr? _L230270_)))) + (if _$e230290_ + _$e230290_ (let () (declare (not safe)) - (gxc#kw-lambda-expr? _L229089_)))))) + (gxc#kw-lambda-expr? _L230270_)))))) '#f))) - (___kont243834243835_ (lambda () '#f))) + (___kont245032245033_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx243830243831_)) - (let ((_e229042229065_ + (gx#stx-pair? ___stx245028245029_)) + (let ((_e230223230246_ (let () (declare (not safe)) - (gx#stx-e ___stx243830243831_)))) - (let ((_tl229040229070_ - (let () (declare (not safe)) (##cdr _e229042229065_))) - (_hd229041229068_ + (gx#stx-e ___stx245028245029_)))) + (let ((_tl230221230251_ + (let () (declare (not safe)) (##cdr _e230223230246_))) + (_hd230222230249_ (let () (declare (not safe)) - (##car _e229042229065_)))) + (##car _e230223230246_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd229041229068_)) - (let ((_e229045229073_ + (gx#stx-pair? _hd230222230249_)) + (let ((_e230226230254_ (let () (declare (not safe)) - (gx#stx-e _hd229041229068_)))) - (let ((_tl229043229078_ + (gx#stx-e _hd230222230249_)))) + (let ((_tl230224230259_ (let () (declare (not safe)) - (##cdr _e229045229073_))) - (_hd229044229076_ + (##cdr _e230226230254_))) + (_hd230225230257_ (let () (declare (not safe)) - (##car _e229045229073_)))) + (##car _e230226230254_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229043229078_)) + (gx#stx-null? _tl230224230259_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl229040229070_)) - (let ((_e229048229081_ + (gx#stx-pair? _tl230221230251_)) + (let ((_e230229230262_ (let () (declare (not safe)) - (gx#stx-e _tl229040229070_)))) - (let ((_tl229046229086_ + (gx#stx-e _tl230221230251_)))) + (let ((_tl230227230267_ (let () (declare (not safe)) - (##cdr _e229048229081_))) - (_hd229047229084_ + (##cdr _e230229230262_))) + (_hd230228230265_ (let () (declare (not safe)) - (##car _e229048229081_)))) + (##car _e230229230262_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl229046229086_)) - (___kont243832243833_ - _hd229047229084_ - _hd229044229076_) - (___kont243834243835_)))) - (___kont243834243835_)) - (___kont243834243835_)))) - (___kont243834243835_)))) - (___kont243834243835_)))))))) + (gx#stx-null? _tl230227230267_)) + (___kont245030245031_ + _hd230228230265_ + _hd230225230257_) + (___kont245032245033_)))) + (___kont245032245033_)) + (___kont245032245033_)))) + (___kont245032245033_)))) + (___kont245032245033_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top__1.scm b/src/bootstrap/gerbil/compiler/optimize-top__1.scm index 197ba6014..2babdd6c7 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top__1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top__1.scm @@ -1,398 +1,398 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_$stx228756_) - (let* ((_g228760228789_ - (lambda (_g228761228785_) + (lambda (_$stx229937_) + (let* ((_g229941229970_ + (lambda (_g229942229966_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g228761228785_)))) - (_g228759228890_ - (lambda (_g228761228793_) + _g229942229966_)))) + (_g229940230071_ + (lambda (_g229942229974_) (if (let () (declare (not safe)) - (gx#stx-pair? _g228761228793_)) - (let ((_e228766228796_ + (gx#stx-pair? _g229942229974_)) + (let ((_e229947229977_ (let () (declare (not safe)) - (gx#syntax-e _g228761228793_)))) - (let ((_hd228765228800_ + (gx#syntax-e _g229942229974_)))) + (let ((_hd229946229981_ (let () (declare (not safe)) - (##car _e228766228796_))) - (_tl228764228803_ + (##car _e229947229977_))) + (_tl229945229984_ (let () (declare (not safe)) - (##cdr _e228766228796_)))) + (##cdr _e229947229977_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl228764228803_)) - (let ((_g244250_ + (gx#stx-pair/null? _tl229945229984_)) + (let ((_g245448_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl228764228803_ + _tl229945229984_ '0)))) (begin - (let ((_g244251_ + (let ((_g245449_ (let () (declare (not safe)) - (if (##values? _g244250_) - (##vector-length _g244250_) + (if (##values? _g245448_) + (##vector-length _g245448_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244251_ 2))) + (##fx= _g245449_ 2))) (error "Context expects 2 values" - _g244251_))) - (let ((_target228767228806_ + _g245449_))) + (let ((_target229948229987_ (let () (declare (not safe)) - (##vector-ref _g244250_ 0))) - (_tl228769228809_ + (##vector-ref _g245448_ 0))) + (_tl229950229990_ (let () (declare (not safe)) - (##vector-ref _g244250_ 1)))) + (##vector-ref _g245448_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228769228809_)) - (letrec ((_loop228770228812_ - (lambda (_hd228768228816_ - _type-e228774228819_ - _id228775228821_) + (gx#stx-null? _tl229950229990_)) + (letrec ((_loop229951229993_ + (lambda (_hd229949229997_ + _type-e229955230000_ + _id229956230002_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228768228816_)) - (let ((_e228771228824_ + _hd229949229997_)) + (let ((_e229952230005_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd228768228816_)))) - (let ((_lp-hd228772228828_ - (let () (declare (not safe)) (##car _e228771228824_))) - (_lp-tl228773228831_ - (let () (declare (not safe)) (##cdr _e228771228824_)))) + (gx#syntax-e _hd229949229997_)))) + (let ((_lp-hd229953230009_ + (let () (declare (not safe)) (##car _e229952230005_))) + (_lp-tl229954230012_ + (let () (declare (not safe)) (##cdr _e229952230005_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd228772228828_)) - (let ((_e228780228834_ + (gx#stx-pair? _lp-hd229953230009_)) + (let ((_e229961230015_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd228772228828_)))) - (let ((_hd228779228838_ + (gx#syntax-e _lp-hd229953230009_)))) + (let ((_hd229960230019_ (let () (declare (not safe)) - (##car _e228780228834_))) - (_tl228778228841_ + (##car _e229961230015_))) + (_tl229959230022_ (let () (declare (not safe)) - (##cdr _e228780228834_)))) + (##cdr _e229961230015_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228778228841_)) - (let ((_e228783228844_ + (gx#stx-pair? _tl229959230022_)) + (let ((_e229964230025_ (let () (declare (not safe)) - (gx#syntax-e _tl228778228841_)))) - (let ((_hd228782228848_ + (gx#syntax-e _tl229959230022_)))) + (let ((_hd229963230029_ (let () (declare (not safe)) - (##car _e228783228844_))) - (_tl228781228851_ + (##car _e229964230025_))) + (_tl229962230032_ (let () (declare (not safe)) - (##cdr _e228783228844_)))) + (##cdr _e229964230025_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228781228851_)) - (_loop228770228812_ - _lp-tl228773228831_ + (gx#stx-null? _tl229962230032_)) + (_loop229951229993_ + _lp-tl229954230012_ (let () (declare (not safe)) - (cons _hd228782228848_ - _type-e228774228819_)) + (cons _hd229963230029_ + _type-e229955230000_)) (let () (declare (not safe)) - (cons _hd228779228838_ - _id228775228821_))) - (_g228760228789_ _g228761228793_)))) - (_g228760228789_ _g228761228793_)))) - (_g228760228789_ _g228761228793_)))) - (let ((_type-e228776228854_ (reverse _type-e228774228819_)) - (_id228777228857_ (reverse _id228775228821_))) - ((lambda (_L228860_ _L228862_) - (let ((__tmp244263 + (cons _hd229960230019_ + _id229956230002_))) + (_g229941229970_ _g229942229974_)))) + (_g229941229970_ _g229942229974_)))) + (_g229941229970_ _g229942229974_)))) + (let ((_type-e229957230035_ (reverse _type-e229955230000_)) + (_id229958230038_ (reverse _id229956230002_))) + ((lambda (_L230041_ _L230043_) + (let ((__tmp245461 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp244252 + (__tmp245450 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L228860_ - _L228862_)) - (let ((__tmp244253 - (lambda (_g228878228882_ - _g228879228885_ - _g228880228887_) - (let ((__tmp244254 - (let ((__tmp244262 + _L230041_ + _L230043_)) + (let ((__tmp245451 + (lambda (_g230059230063_ + _g230060230066_ + _g230061230068_) + (let ((__tmp245452 + (let ((__tmp245460 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp244255 - (let ((__tmp244261 + (__tmp245453 + (let ((__tmp245459 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-annotations))) - (__tmp244256 - (let ((__tmp244258 + (__tmp245454 + (let ((__tmp245456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244260 + (let ((__tmp245458 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp244259 + (__tmp245457 (let () (declare (not safe)) - (cons _g228879228885_ '())))) + (cons _g230060230066_ '())))) (declare (not safe)) - (cons __tmp244260 __tmp244259))) - (__tmp244257 + (cons __tmp245458 __tmp245457))) + (__tmp245455 (let () (declare (not safe)) - (cons _g228878228882_ '())))) + (cons _g230059230063_ '())))) (declare (not safe)) - (cons __tmp244258 __tmp244257)))) + (cons __tmp245456 __tmp245455)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244261 - __tmp244256)))) + (cons __tmp245459 + __tmp245454)))) (declare (not safe)) - (cons __tmp244262 __tmp244255)))) + (cons __tmp245460 __tmp245453)))) (declare (not safe)) - (cons __tmp244254 _g228880228887_))))) + (cons __tmp245452 _g230061230068_))))) (declare (not safe)) - (foldr2 __tmp244253 '() _L228860_ _L228862_))))) + (foldr2 __tmp245451 '() _L230041_ _L230043_))))) (declare (not safe)) - (cons __tmp244263 __tmp244252))) - _type-e228776228854_ - _id228777228857_)))))) + (cons __tmp245461 __tmp245450))) + _type-e229957230035_ + _id229958230038_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop228770228812_ - _target228767228806_ + (_loop229951229993_ + _target229948229987_ '() '())) - (_g228760228789_ _g228761228793_))))) - (_g228760228789_ _g228761228793_)))) - (_g228760228789_ _g228761228793_))))) - (_g228759228890_ _$stx228756_)))) + (_g229941229970_ _g229942229974_))))) + (_g229941229970_ _g229942229974_)))) + (_g229941229970_ _g229942229974_))))) + (_g229940230071_ _$stx229937_)))) (define |gxc[:0:]#defbasic-expression-type-builtin| - (lambda (_$stx228895_) - (let* ((_g228899228928_ - (lambda (_g228900228924_) + (lambda (_$stx230076_) + (let* ((_g230080230109_ + (lambda (_g230081230105_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g228900228924_)))) - (_g228898229028_ - (lambda (_g228900228932_) + _g230081230105_)))) + (_g230079230209_ + (lambda (_g230081230113_) (if (let () (declare (not safe)) - (gx#stx-pair? _g228900228932_)) - (let ((_e228905228935_ + (gx#stx-pair? _g230081230113_)) + (let ((_e230086230116_ (let () (declare (not safe)) - (gx#syntax-e _g228900228932_)))) - (let ((_hd228904228939_ + (gx#syntax-e _g230081230113_)))) + (let ((_hd230085230120_ (let () (declare (not safe)) - (##car _e228905228935_))) - (_tl228903228942_ + (##car _e230086230116_))) + (_tl230084230123_ (let () (declare (not safe)) - (##cdr _e228905228935_)))) + (##cdr _e230086230116_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl228903228942_)) - (let ((_g244264_ + (gx#stx-pair/null? _tl230084230123_)) + (let ((_g245462_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl228903228942_ + _tl230084230123_ '0)))) (begin - (let ((_g244265_ + (let ((_g245463_ (let () (declare (not safe)) - (if (##values? _g244264_) - (##vector-length _g244264_) + (if (##values? _g245462_) + (##vector-length _g245462_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g244265_ 2))) + (##fx= _g245463_ 2))) (error "Context expects 2 values" - _g244265_))) - (let ((_target228906228945_ + _g245463_))) + (let ((_target230087230126_ (let () (declare (not safe)) - (##vector-ref _g244264_ 0))) - (_tl228908228948_ + (##vector-ref _g245462_ 0))) + (_tl230089230129_ (let () (declare (not safe)) - (##vector-ref _g244264_ 1)))) + (##vector-ref _g245462_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228908228948_)) - (letrec ((_loop228909228951_ - (lambda (_hd228907228955_ - _type-e228913228958_ - _id228914228960_) + (gx#stx-null? _tl230089230129_)) + (letrec ((_loop230090230132_ + (lambda (_hd230088230136_ + _type-e230094230139_ + _id230095230141_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd228907228955_)) - (let ((_e228910228963_ + _hd230088230136_)) + (let ((_e230091230144_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd228907228955_)))) - (let ((_lp-hd228911228967_ - (let () (declare (not safe)) (##car _e228910228963_))) - (_lp-tl228912228970_ - (let () (declare (not safe)) (##cdr _e228910228963_)))) + (gx#syntax-e _hd230088230136_)))) + (let ((_lp-hd230092230148_ + (let () (declare (not safe)) (##car _e230091230144_))) + (_lp-tl230093230151_ + (let () (declare (not safe)) (##cdr _e230091230144_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd228911228967_)) - (let ((_e228919228973_ + (gx#stx-pair? _lp-hd230092230148_)) + (let ((_e230100230154_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd228911228967_)))) - (let ((_hd228918228977_ + (gx#syntax-e _lp-hd230092230148_)))) + (let ((_hd230099230158_ (let () (declare (not safe)) - (##car _e228919228973_))) - (_tl228917228980_ + (##car _e230100230154_))) + (_tl230098230161_ (let () (declare (not safe)) - (##cdr _e228919228973_)))) + (##cdr _e230100230154_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl228917228980_)) - (let ((_e228922228983_ + (gx#stx-pair? _tl230098230161_)) + (let ((_e230103230164_ (let () (declare (not safe)) - (gx#syntax-e _tl228917228980_)))) - (let ((_hd228921228987_ + (gx#syntax-e _tl230098230161_)))) + (let ((_hd230102230168_ (let () (declare (not safe)) - (##car _e228922228983_))) - (_tl228920228990_ + (##car _e230103230164_))) + (_tl230101230171_ (let () (declare (not safe)) - (##cdr _e228922228983_)))) + (##cdr _e230103230164_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl228920228990_)) - (_loop228909228951_ - _lp-tl228912228970_ + (gx#stx-null? _tl230101230171_)) + (_loop230090230132_ + _lp-tl230093230151_ (let () (declare (not safe)) - (cons _hd228921228987_ - _type-e228913228958_)) + (cons _hd230102230168_ + _type-e230094230139_)) (let () (declare (not safe)) - (cons _hd228918228977_ - _id228914228960_))) - (_g228899228928_ _g228900228932_)))) - (_g228899228928_ _g228900228932_)))) - (_g228899228928_ _g228900228932_)))) - (let ((_type-e228915228993_ (reverse _type-e228913228958_)) - (_id228916228996_ (reverse _id228914228960_))) - ((lambda (_L228999_ _L229001_) - (let ((__tmp244277 + (cons _hd230099230158_ + _id230095230141_))) + (_g230080230109_ _g230081230113_)))) + (_g230080230109_ _g230081230113_)))) + (_g230080230109_ _g230081230113_)))) + (let ((_type-e230096230174_ (reverse _type-e230094230139_)) + (_id230097230177_ (reverse _id230095230141_))) + ((lambda (_L230180_ _L230182_) + (let ((__tmp245475 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp244266 + (__tmp245464 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L228999_ - _L229001_)) - (let ((__tmp244267 - (lambda (_g229016229020_ - _g229017229023_ - _g229018229025_) - (let ((__tmp244268 - (let ((__tmp244276 + _L230180_ + _L230182_)) + (let ((__tmp245465 + (lambda (_g230197230201_ + _g230198230204_ + _g230199230206_) + (let ((__tmp245466 + (let ((__tmp245474 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'hash-put!))) - (__tmp244269 - (let ((__tmp244275 + (__tmp245467 + (let ((__tmp245473 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'basic-expression-type-builtin))) - (__tmp244270 - (let ((__tmp244272 + (__tmp245468 + (let ((__tmp245470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp244274 + (let ((__tmp245472 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp244273 + (__tmp245471 (let () (declare (not safe)) - (cons _g229017229023_ '())))) + (cons _g230198230204_ '())))) (declare (not safe)) - (cons __tmp244274 __tmp244273))) - (__tmp244271 + (cons __tmp245472 __tmp245471))) + (__tmp245469 (let () (declare (not safe)) - (cons _g229016229020_ '())))) + (cons _g230197230201_ '())))) (declare (not safe)) - (cons __tmp244272 __tmp244271)))) + (cons __tmp245470 __tmp245469)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp244275 - __tmp244270)))) + (cons __tmp245473 + __tmp245468)))) (declare (not safe)) - (cons __tmp244276 __tmp244269)))) + (cons __tmp245474 __tmp245467)))) (declare (not safe)) - (cons __tmp244268 _g229018229025_))))) + (cons __tmp245466 _g230199230206_))))) (declare (not safe)) - (foldr2 __tmp244267 '() _L228999_ _L229001_))))) + (foldr2 __tmp245465 '() _L230180_ _L230182_))))) (declare (not safe)) - (cons __tmp244277 __tmp244266))) - _type-e228915228993_ - _id228916228996_)))))) + (cons __tmp245475 __tmp245464))) + _type-e230096230174_ + _id230097230177_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop228909228951_ - _target228906228945_ + (_loop230090230132_ + _target230087230126_ '() '())) - (_g228899228928_ _g228900228932_))))) - (_g228899228928_ _g228900228932_)))) - (_g228899228928_ _g228900228932_))))) - (_g228898229028_ _$stx228895_))))) + (_g230080230109_ _g230081230113_))))) + (_g230080230109_ _g230081230113_)))) + (_g230080230109_ _g230081230113_))))) + (_g230079230209_ _$stx230076_))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm index bc34a191c..5302ffcd3 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform__0.scm @@ -1,4166 +1,4166 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1707773929) + (define gerbil/compiler/optimize-xform::timestamp 1708102805) (begin (define gxc#&identity-expression (make-promise (lambda () - (let ((_tbl223832_ + (let ((_tbl225013_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#begin-annotation gxc#xform-identity)) + (table-set! _tbl225013_ '%#begin-annotation gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#lambda gxc#xform-identity)) + (table-set! _tbl225013_ '%#lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#case-lambda gxc#xform-identity)) + (table-set! _tbl225013_ '%#case-lambda gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#let-values gxc#xform-identity)) + (table-set! _tbl225013_ '%#let-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#letrec-values gxc#xform-identity)) + (table-set! _tbl225013_ '%#letrec-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#letrec*-values gxc#xform-identity)) + (table-set! _tbl225013_ '%#letrec*-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#quote gxc#xform-identity)) + (table-set! _tbl225013_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#quote-syntax gxc#xform-identity)) + (table-set! _tbl225013_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#call gxc#xform-identity)) + (table-set! _tbl225013_ '%#call gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#call-unchecked gxc#xform-identity)) + (table-set! _tbl225013_ '%#call-unchecked gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#if gxc#xform-identity)) + (table-set! _tbl225013_ '%#if gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#ref gxc#xform-identity)) + (table-set! _tbl225013_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#set! gxc#xform-identity)) + (table-set! _tbl225013_ '%#set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#struct-instance? gxc#xform-identity)) + (table-set! _tbl225013_ '%#struct-instance? gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl223832_ + _tbl225013_ '%#struct-direct-instance? gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#struct-ref gxc#xform-identity)) + (table-set! _tbl225013_ '%#struct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#struct-set! gxc#xform-identity)) + (table-set! _tbl225013_ '%#struct-set! gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#struct-direct-ref gxc#xform-identity)) + (table-set! _tbl225013_ '%#struct-direct-ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223832_ '%#struct-direct-set! gxc#xform-identity)) + (table-set! _tbl225013_ '%#struct-direct-set! gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl223832_ + _tbl225013_ '%#struct-unchecked-ref gxc#xform-identity)) (let () (declare (not safe)) (table-set! - _tbl223832_ + _tbl225013_ '%#struct-unchecked-set! gxc#xform-identity)) - _tbl223832_)))) + _tbl225013_)))) (define gxc#&identity-special-form (make-promise (lambda () - (let ((_tbl223828_ + (let ((_tbl225009_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#begin gxc#xform-identity)) + (table-set! _tbl225009_ '%#begin gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#begin-syntax gxc#xform-identity)) + (table-set! _tbl225009_ '%#begin-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#begin-foreign gxc#xform-identity)) + (table-set! _tbl225009_ '%#begin-foreign gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#module gxc#xform-identity)) + (table-set! _tbl225009_ '%#module gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#import gxc#xform-identity)) + (table-set! _tbl225009_ '%#import gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#export gxc#xform-identity)) + (table-set! _tbl225009_ '%#export gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#provide gxc#xform-identity)) + (table-set! _tbl225009_ '%#provide gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#extern gxc#xform-identity)) + (table-set! _tbl225009_ '%#extern gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#define-values gxc#xform-identity)) + (table-set! _tbl225009_ '%#define-values gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#define-syntax gxc#xform-identity)) + (table-set! _tbl225009_ '%#define-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#define-alias gxc#xform-identity)) + (table-set! _tbl225009_ '%#define-alias gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223828_ '%#declare gxc#xform-identity)) - _tbl223828_)))) + (table-set! _tbl225009_ '%#declare gxc#xform-identity)) + _tbl225009_)))) (define gxc#&identity (make-promise (lambda () - (let ((_tbl223824_ + (let ((_tbl225005_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228646 (force gxc#&identity-special-form))) + (let ((__tmp229827 (force gxc#&identity-special-form))) (declare (not safe)) - (hash-copy! _tbl223824_ __tmp228646)) - (let ((__tmp228647 (force gxc#&identity-expression))) + (hash-copy! _tbl225005_ __tmp229827)) + (let ((__tmp229828 (force gxc#&identity-expression))) (declare (not safe)) - (hash-copy! _tbl223824_ __tmp228647)) - _tbl223824_)))) + (hash-copy! _tbl225005_ __tmp229828)) + _tbl225005_)))) (define gxc#&basic-xform-expression (make-promise (lambda () - (let ((_tbl223820_ + (let ((_tbl225001_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) (table-set! - _tbl223820_ + _tbl225001_ '%#begin-annotation gxc#xform-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#lambda gxc#xform-lambda%)) + (table-set! _tbl225001_ '%#lambda gxc#xform-lambda%)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#case-lambda gxc#xform-case-lambda%)) + (table-set! _tbl225001_ '%#case-lambda gxc#xform-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#let-values gxc#xform-let-values%)) + (table-set! _tbl225001_ '%#let-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#letrec-values gxc#xform-let-values%)) + (table-set! _tbl225001_ '%#letrec-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#letrec*-values gxc#xform-let-values%)) + (table-set! _tbl225001_ '%#letrec*-values gxc#xform-let-values%)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#quote gxc#xform-identity)) + (table-set! _tbl225001_ '%#quote gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#quote-syntax gxc#xform-identity)) + (table-set! _tbl225001_ '%#quote-syntax gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#call gxc#xform-operands)) + (table-set! _tbl225001_ '%#call gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#call-unchecked gxc#xform-operands)) + (table-set! _tbl225001_ '%#call-unchecked gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#if gxc#xform-operands)) + (table-set! _tbl225001_ '%#if gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#ref gxc#xform-identity)) + (table-set! _tbl225001_ '%#ref gxc#xform-identity)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#set! gxc#xform-setq%)) + (table-set! _tbl225001_ '%#set! gxc#xform-setq%)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#struct-instance? gxc#xform-operands)) + (table-set! _tbl225001_ '%#struct-instance? gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl223820_ + _tbl225001_ '%#struct-direct-instance? gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#struct-ref gxc#xform-operands)) + (table-set! _tbl225001_ '%#struct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#struct-set! gxc#xform-operands)) + (table-set! _tbl225001_ '%#struct-set! gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#struct-direct-ref gxc#xform-operands)) + (table-set! _tbl225001_ '%#struct-direct-ref gxc#xform-operands)) (let () (declare (not safe)) - (table-set! _tbl223820_ '%#struct-direct-set! gxc#xform-operands)) + (table-set! _tbl225001_ '%#struct-direct-set! gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl223820_ + _tbl225001_ '%#struct-unchecked-ref gxc#xform-operands)) (let () (declare (not safe)) (table-set! - _tbl223820_ + _tbl225001_ '%#struct-unchecked-set! gxc#xform-operands)) - _tbl223820_)))) + _tbl225001_)))) (define gxc#&basic-xform (make-promise (lambda () - (let ((_tbl223816_ + (let ((_tbl224997_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228648 (force gxc#&basic-xform-expression))) + (let ((__tmp229829 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl223816_ __tmp228648)) - (let ((__tmp228649 (force gxc#&identity))) + (hash-copy! _tbl224997_ __tmp229829)) + (let ((__tmp229830 (force gxc#&identity))) (declare (not safe)) - (hash-copy! _tbl223816_ __tmp228649)) + (hash-copy! _tbl224997_ __tmp229830)) (let () (declare (not safe)) - (table-set! _tbl223816_ '%#begin gxc#xform-begin%)) + (table-set! _tbl224997_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl223816_ '%#begin-syntax gxc#xform-begin-syntax%)) + (table-set! _tbl224997_ '%#begin-syntax gxc#xform-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl223816_ '%#module gxc#xform-module%)) + (table-set! _tbl224997_ '%#module gxc#xform-module%)) (let () (declare (not safe)) (table-set! - _tbl223816_ + _tbl224997_ '%#define-values gxc#xform-define-values%)) (let () (declare (not safe)) (table-set! - _tbl223816_ + _tbl224997_ '%#define-syntax gxc#xform-define-syntax%)) - _tbl223816_)))) + _tbl224997_)))) (define gxc#&collect-mutators (make-promise (lambda () - (let ((_tbl223812_ + (let ((_tbl224993_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228650 (force gxc#&void))) + (let ((__tmp229831 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl223812_ __tmp228650)) + (hash-copy! _tbl224993_ __tmp229831)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#begin gxc#collect-begin%)) + (table-set! _tbl224993_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#begin-annotation gxc#collect-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#module gxc#collect-module%)) + (table-set! _tbl224993_ '%#module gxc#collect-module%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#define-values gxc#collect-define-values%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#define-syntax gxc#collect-define-syntax%)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#lambda gxc#collect-body-lambda%)) + (table-set! _tbl224993_ '%#lambda gxc#collect-body-lambda%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#case-lambda gxc#collect-body-case-lambda%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#let-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#letrec-values gxc#collect-body-let-values%)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#letrec*-values gxc#collect-body-let-values%)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#call gxc#collect-operands)) + (table-set! _tbl224993_ '%#call gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#call-unchecked gxc#collect-operands)) + (table-set! _tbl224993_ '%#call-unchecked gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#if gxc#collect-operands)) + (table-set! _tbl224993_ '%#if gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#set! gxc#collect-mutators-setq%)) + (table-set! _tbl224993_ '%#set! gxc#collect-mutators-setq%)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#struct-instance? gxc#collect-operands)) + (table-set! _tbl224993_ '%#struct-instance? gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#struct-direct-instance? gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#struct-ref gxc#collect-operands)) + (table-set! _tbl224993_ '%#struct-ref gxc#collect-operands)) (let () (declare (not safe)) - (table-set! _tbl223812_ '%#struct-set! gxc#collect-operands)) + (table-set! _tbl224993_ '%#struct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#struct-direct-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#struct-direct-set! gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#struct-unchecked-ref gxc#collect-operands)) (let () (declare (not safe)) (table-set! - _tbl223812_ + _tbl224993_ '%#struct-unchecked-set! gxc#collect-operands)) - _tbl223812_)))) + _tbl224993_)))) (define gxc#apply-collect-mutators - (lambda (_stx223795_ . _args223797_) - (let ((__tmp228652 + (lambda (_stx224976_ . _args224978_) + (let ((__tmp229833 (lambda () (declare (not safe)) - (if (null? _args223797_) - (gxc#compile-e__0 _stx223795_) - (let ((_arg1223802_ (car _args223797_)) - (_rest223804_ (cdr _args223797_))) - (if (null? _rest223804_) - (gxc#compile-e__1 _stx223795_ _arg1223802_) - (let ((_arg2223807_ (car _rest223804_)) - (_rest223809_ (cdr _rest223804_))) - (if (null? _rest223809_) + (if (null? _args224978_) + (gxc#compile-e__0 _stx224976_) + (let ((_arg1224983_ (car _args224978_)) + (_rest224985_ (cdr _args224978_))) + (if (null? _rest224985_) + (gxc#compile-e__1 _stx224976_ _arg1224983_) + (let ((_arg2224988_ (car _rest224985_)) + (_rest224990_ (cdr _rest224985_))) + (if (null? _rest224990_) (gxc#compile-e__2 - _stx223795_ - _arg1223802_ - _arg2223807_) + _stx224976_ + _arg1224983_ + _arg2224988_) (apply gxc#compile-e - _stx223795_ - _arg1223802_ - _arg2223807_ - _rest223809_)))))))) - (__tmp228651 (force gxc#&collect-mutators))) + _stx224976_ + _arg1224983_ + _arg2224988_ + _rest224990_)))))))) + (__tmp229832 (force gxc#&collect-mutators))) (declare (not safe)) (call-with-parameters - __tmp228652 + __tmp229833 gxc#current-compile-methods - __tmp228651)))) + __tmp229832)))) (define gxc#&collect-methods (make-promise (lambda () - (let ((_tbl223792_ + (let ((_tbl224973_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228653 (force gxc#&void))) + (let ((__tmp229834 (force gxc#&void))) (declare (not safe)) - (hash-copy! _tbl223792_ __tmp228653)) + (hash-copy! _tbl224973_ __tmp229834)) (let () (declare (not safe)) - (table-set! _tbl223792_ '%#begin gxc#collect-begin%)) + (table-set! _tbl224973_ '%#begin gxc#collect-begin%)) (let () (declare (not safe)) (table-set! - _tbl223792_ + _tbl224973_ '%#begin-syntax gxc#collect-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl223792_ '%#module gxc#collect-module%)) + (table-set! _tbl224973_ '%#module gxc#collect-module%)) (let () (declare (not safe)) - (table-set! _tbl223792_ '%#call gxc#collect-methods-call%)) + (table-set! _tbl224973_ '%#call gxc#collect-methods-call%)) (let () (declare (not safe)) (table-set! - _tbl223792_ + _tbl224973_ '%#call-unchecked gxc#collect-methods-call%)) - _tbl223792_)))) + _tbl224973_)))) (define gxc#apply-collect-methods - (lambda (_stx223775_ . _args223777_) - (let ((__tmp228655 + (lambda (_stx224956_ . _args224958_) + (let ((__tmp229836 (lambda () (declare (not safe)) - (if (null? _args223777_) - (gxc#compile-e__0 _stx223775_) - (let ((_arg1223782_ (car _args223777_)) - (_rest223784_ (cdr _args223777_))) - (if (null? _rest223784_) - (gxc#compile-e__1 _stx223775_ _arg1223782_) - (let ((_arg2223787_ (car _rest223784_)) - (_rest223789_ (cdr _rest223784_))) - (if (null? _rest223789_) + (if (null? _args224958_) + (gxc#compile-e__0 _stx224956_) + (let ((_arg1224963_ (car _args224958_)) + (_rest224965_ (cdr _args224958_))) + (if (null? _rest224965_) + (gxc#compile-e__1 _stx224956_ _arg1224963_) + (let ((_arg2224968_ (car _rest224965_)) + (_rest224970_ (cdr _rest224965_))) + (if (null? _rest224970_) (gxc#compile-e__2 - _stx223775_ - _arg1223782_ - _arg2223787_) + _stx224956_ + _arg1224963_ + _arg2224968_) (apply gxc#compile-e - _stx223775_ - _arg1223782_ - _arg2223787_ - _rest223789_)))))))) - (__tmp228654 (force gxc#&collect-methods))) + _stx224956_ + _arg1224963_ + _arg2224968_ + _rest224970_)))))))) + (__tmp229835 (force gxc#&collect-methods))) (declare (not safe)) (call-with-parameters - __tmp228655 + __tmp229836 gxc#current-compile-methods - __tmp228654)))) + __tmp229835)))) (define gxc#&expression-subst (make-promise (lambda () - (let ((_tbl223772_ + (let ((_tbl224953_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228656 (force gxc#&basic-xform-expression))) + (let ((__tmp229837 (force gxc#&basic-xform-expression))) (declare (not safe)) - (hash-copy! _tbl223772_ __tmp228656)) + (hash-copy! _tbl224953_ __tmp229837)) (let () (declare (not safe)) - (table-set! _tbl223772_ '%#begin gxc#xform-begin%)) + (table-set! _tbl224953_ '%#begin gxc#xform-begin%)) (let () (declare (not safe)) - (table-set! _tbl223772_ '%#ref gxc#expression-subst-ref%)) + (table-set! _tbl224953_ '%#ref gxc#expression-subst-ref%)) (let () (declare (not safe)) - (table-set! _tbl223772_ '%#set! gxc#expression-subst-setq%)) - _tbl223772_)))) + (table-set! _tbl224953_ '%#set! gxc#expression-subst-setq%)) + _tbl224953_)))) (define gxc#apply-expression-subst - (lambda (_stx223755_ . _args223757_) - (let ((__tmp228658 + (lambda (_stx224936_ . _args224938_) + (let ((__tmp229839 (lambda () (declare (not safe)) - (if (null? _args223757_) - (gxc#compile-e__0 _stx223755_) - (let ((_arg1223762_ (car _args223757_)) - (_rest223764_ (cdr _args223757_))) - (if (null? _rest223764_) - (gxc#compile-e__1 _stx223755_ _arg1223762_) - (let ((_arg2223767_ (car _rest223764_)) - (_rest223769_ (cdr _rest223764_))) - (if (null? _rest223769_) + (if (null? _args224938_) + (gxc#compile-e__0 _stx224936_) + (let ((_arg1224943_ (car _args224938_)) + (_rest224945_ (cdr _args224938_))) + (if (null? _rest224945_) + (gxc#compile-e__1 _stx224936_ _arg1224943_) + (let ((_arg2224948_ (car _rest224945_)) + (_rest224950_ (cdr _rest224945_))) + (if (null? _rest224950_) (gxc#compile-e__2 - _stx223755_ - _arg1223762_ - _arg2223767_) + _stx224936_ + _arg1224943_ + _arg2224948_) (apply gxc#compile-e - _stx223755_ - _arg1223762_ - _arg2223767_ - _rest223769_)))))))) - (__tmp228657 (force gxc#&expression-subst))) + _stx224936_ + _arg1224943_ + _arg2224948_ + _rest224950_)))))))) + (__tmp229838 (force gxc#&expression-subst))) (declare (not safe)) (call-with-parameters - __tmp228658 + __tmp229839 gxc#current-compile-methods - __tmp228657)))) + __tmp229838)))) (define gxc#&expression-subst* (make-promise (lambda () - (let ((_tbl223752_ + (let ((_tbl224933_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228659 (force gxc#&expression-subst))) + (let ((__tmp229840 (force gxc#&expression-subst))) (declare (not safe)) - (hash-copy! _tbl223752_ __tmp228659)) + (hash-copy! _tbl224933_ __tmp229840)) (let () (declare (not safe)) - (table-set! _tbl223752_ '%#ref gxc#expression-subst*-ref%)) + (table-set! _tbl224933_ '%#ref gxc#expression-subst*-ref%)) (let () (declare (not safe)) - (table-set! _tbl223752_ '%#set! gxc#expression-subst*-setq%)) - _tbl223752_)))) + (table-set! _tbl224933_ '%#set! gxc#expression-subst*-setq%)) + _tbl224933_)))) (define gxc#apply-expression-subst* - (lambda (_stx223735_ . _args223737_) - (let ((__tmp228661 + (lambda (_stx224916_ . _args224918_) + (let ((__tmp229842 (lambda () (declare (not safe)) - (if (null? _args223737_) - (gxc#compile-e__0 _stx223735_) - (let ((_arg1223742_ (car _args223737_)) - (_rest223744_ (cdr _args223737_))) - (if (null? _rest223744_) - (gxc#compile-e__1 _stx223735_ _arg1223742_) - (let ((_arg2223747_ (car _rest223744_)) - (_rest223749_ (cdr _rest223744_))) - (if (null? _rest223749_) + (if (null? _args224918_) + (gxc#compile-e__0 _stx224916_) + (let ((_arg1224923_ (car _args224918_)) + (_rest224925_ (cdr _args224918_))) + (if (null? _rest224925_) + (gxc#compile-e__1 _stx224916_ _arg1224923_) + (let ((_arg2224928_ (car _rest224925_)) + (_rest224930_ (cdr _rest224925_))) + (if (null? _rest224930_) (gxc#compile-e__2 - _stx223735_ - _arg1223742_ - _arg2223747_) + _stx224916_ + _arg1224923_ + _arg2224928_) (apply gxc#compile-e - _stx223735_ - _arg1223742_ - _arg2223747_ - _rest223749_)))))))) - (__tmp228660 (force gxc#&expression-subst*))) + _stx224916_ + _arg1224923_ + _arg2224928_ + _rest224930_)))))))) + (__tmp229841 (force gxc#&expression-subst*))) (declare (not safe)) (call-with-parameters - __tmp228661 + __tmp229842 gxc#current-compile-methods - __tmp228660)))) + __tmp229841)))) (define gxc#&find-expression (make-promise (lambda () - (let ((_tbl223732_ + (let ((_tbl224913_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228662 (force gxc#&false-expression))) + (let ((__tmp229843 (force gxc#&false-expression))) (declare (not safe)) - (hash-copy! _tbl223732_ __tmp228662)) + (hash-copy! _tbl224913_ __tmp229843)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#begin gxc#find-body%)) + (table-set! _tbl224913_ '%#begin gxc#find-body%)) (let () (declare (not safe)) (table-set! - _tbl223732_ + _tbl224913_ '%#begin-annotation gxc#find-begin-annotation%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#lambda gxc#find-lambda%)) + (table-set! _tbl224913_ '%#lambda gxc#find-lambda%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#case-lambda gxc#find-case-lambda%)) + (table-set! _tbl224913_ '%#case-lambda gxc#find-case-lambda%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#let-values gxc#find-let-values%)) + (table-set! _tbl224913_ '%#let-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#letrec-values gxc#find-let-values%)) + (table-set! _tbl224913_ '%#letrec-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#letrec*-values gxc#find-let-values%)) + (table-set! _tbl224913_ '%#letrec*-values gxc#find-let-values%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#call gxc#find-body%)) + (table-set! _tbl224913_ '%#call gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#call-unchecked gxc#find-body%)) + (table-set! _tbl224913_ '%#call-unchecked gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#if gxc#find-body%)) + (table-set! _tbl224913_ '%#if gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#set! gxc#find-setq%)) + (table-set! _tbl224913_ '%#set! gxc#find-setq%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#struct-instance? gxc#find-body%)) + (table-set! _tbl224913_ '%#struct-instance? gxc#find-body%)) (let () (declare (not safe)) (table-set! - _tbl223732_ + _tbl224913_ '%#struct-direct-instance? gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#struct-ref gxc#find-body%)) + (table-set! _tbl224913_ '%#struct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#struct-set! gxc#find-body%)) + (table-set! _tbl224913_ '%#struct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#struct-direct-ref gxc#find-body%)) + (table-set! _tbl224913_ '%#struct-direct-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#struct-direct-set! gxc#find-body%)) + (table-set! _tbl224913_ '%#struct-direct-set! gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#struct-unchecked-ref gxc#find-body%)) + (table-set! _tbl224913_ '%#struct-unchecked-ref gxc#find-body%)) (let () (declare (not safe)) - (table-set! _tbl223732_ '%#struct-unchecked-set! gxc#find-body%)) - _tbl223732_)))) + (table-set! _tbl224913_ '%#struct-unchecked-set! gxc#find-body%)) + _tbl224913_)))) (define gxc#&find-var-refs (make-promise (lambda () - (let ((_tbl223728_ + (let ((_tbl224909_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228663 (force gxc#&find-expression))) + (let ((__tmp229844 (force gxc#&find-expression))) (declare (not safe)) - (hash-copy! _tbl223728_ __tmp228663)) + (hash-copy! _tbl224909_ __tmp229844)) (let () (declare (not safe)) - (table-set! _tbl223728_ '%#ref gxc#find-var-refs-ref%)) + (table-set! _tbl224909_ '%#ref gxc#find-var-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl223728_ '%#set! gxc#find-var-refs-setq%)) - _tbl223728_)))) + (table-set! _tbl224909_ '%#set! gxc#find-var-refs-setq%)) + _tbl224909_)))) (define gxc#apply-find-var-refs - (lambda (_stx223711_ . _args223713_) - (let ((__tmp228665 + (lambda (_stx224892_ . _args224894_) + (let ((__tmp229846 (lambda () (declare (not safe)) - (if (null? _args223713_) - (gxc#compile-e__0 _stx223711_) - (let ((_arg1223718_ (car _args223713_)) - (_rest223720_ (cdr _args223713_))) - (if (null? _rest223720_) - (gxc#compile-e__1 _stx223711_ _arg1223718_) - (let ((_arg2223723_ (car _rest223720_)) - (_rest223725_ (cdr _rest223720_))) - (if (null? _rest223725_) + (if (null? _args224894_) + (gxc#compile-e__0 _stx224892_) + (let ((_arg1224899_ (car _args224894_)) + (_rest224901_ (cdr _args224894_))) + (if (null? _rest224901_) + (gxc#compile-e__1 _stx224892_ _arg1224899_) + (let ((_arg2224904_ (car _rest224901_)) + (_rest224906_ (cdr _rest224901_))) + (if (null? _rest224906_) (gxc#compile-e__2 - _stx223711_ - _arg1223718_ - _arg2223723_) + _stx224892_ + _arg1224899_ + _arg2224904_) (apply gxc#compile-e - _stx223711_ - _arg1223718_ - _arg2223723_ - _rest223725_)))))))) - (__tmp228664 (force gxc#&find-var-refs))) + _stx224892_ + _arg1224899_ + _arg2224904_ + _rest224906_)))))))) + (__tmp229845 (force gxc#&find-var-refs))) (declare (not safe)) (call-with-parameters - __tmp228665 + __tmp229846 gxc#current-compile-methods - __tmp228664)))) + __tmp229845)))) (define gxc#&collect-runtime-refs (make-promise (lambda () - (let ((_tbl223708_ + (let ((_tbl224889_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp228666 (force gxc#&collect-expression-refs))) + (let ((__tmp229847 (force gxc#&collect-expression-refs))) (declare (not safe)) - (hash-copy! _tbl223708_ __tmp228666)) + (hash-copy! _tbl224889_ __tmp229847)) (let () (declare (not safe)) - (table-set! _tbl223708_ '%#ref gxc#collect-runtime-refs-ref%)) + (table-set! _tbl224889_ '%#ref gxc#collect-runtime-refs-ref%)) (let () (declare (not safe)) - (table-set! _tbl223708_ '%#set! gxc#collect-runtime-refs-setq%)) - _tbl223708_)))) + (table-set! _tbl224889_ '%#set! gxc#collect-runtime-refs-setq%)) + _tbl224889_)))) (define gxc#apply-collect-runtime-refs - (lambda (_stx223691_ . _args223693_) - (let ((__tmp228668 + (lambda (_stx224872_ . _args224874_) + (let ((__tmp229849 (lambda () (declare (not safe)) - (if (null? _args223693_) - (gxc#compile-e__0 _stx223691_) - (let ((_arg1223698_ (car _args223693_)) - (_rest223700_ (cdr _args223693_))) - (if (null? _rest223700_) - (gxc#compile-e__1 _stx223691_ _arg1223698_) - (let ((_arg2223703_ (car _rest223700_)) - (_rest223705_ (cdr _rest223700_))) - (if (null? _rest223705_) + (if (null? _args224874_) + (gxc#compile-e__0 _stx224872_) + (let ((_arg1224879_ (car _args224874_)) + (_rest224881_ (cdr _args224874_))) + (if (null? _rest224881_) + (gxc#compile-e__1 _stx224872_ _arg1224879_) + (let ((_arg2224884_ (car _rest224881_)) + (_rest224886_ (cdr _rest224881_))) + (if (null? _rest224886_) (gxc#compile-e__2 - _stx223691_ - _arg1223698_ - _arg2223703_) + _stx224872_ + _arg1224879_ + _arg2224884_) (apply gxc#compile-e - _stx223691_ - _arg1223698_ - _arg2223703_ - _rest223705_)))))))) - (__tmp228667 (force gxc#&collect-runtime-refs))) + _stx224872_ + _arg1224879_ + _arg2224884_ + _rest224886_)))))))) + (__tmp229848 (force gxc#&collect-runtime-refs))) (declare (not safe)) (call-with-parameters - __tmp228668 + __tmp229849 gxc#current-compile-methods - __tmp228667)))) + __tmp229848)))) (define gxc#xform-identity - (lambda (_stx223688_ . _args223689_) _stx223688_)) + (lambda (_stx224869_ . _args224870_) _stx224869_)) (define gxc#xform-wrap-source - (lambda (_stx223685_ _src-stx223686_) - (let ((__tmp228669 - (let () (declare (not safe)) (gx#stx-source _src-stx223686_)))) + (lambda (_stx224866_ _src-stx224867_) + (let ((__tmp229850 + (let () (declare (not safe)) (gx#stx-source _src-stx224867_)))) (declare (not safe)) - (gx#stx-wrap-source _stx223685_ __tmp228669)))) + (gx#stx-wrap-source _stx224866_ __tmp229850)))) (define gxc#xform-apply-compile-e - (lambda (_args223672_) - (lambda (_stx223674_) - (if (let () (declare (not safe)) (null? _args223672_)) - (let () (declare (not safe)) (gxc#compile-e__0 _stx223674_)) - (let ((_arg1223676_ (car _args223672_)) - (_rest223678_ (cdr _args223672_))) - (if (let () (declare (not safe)) (null? _rest223678_)) + (lambda (_args224853_) + (lambda (_stx224855_) + (if (let () (declare (not safe)) (null? _args224853_)) + (let () (declare (not safe)) (gxc#compile-e__0 _stx224855_)) + (let ((_arg1224857_ (car _args224853_)) + (_rest224859_ (cdr _args224853_))) + (if (let () (declare (not safe)) (null? _rest224859_)) (let () (declare (not safe)) - (gxc#compile-e__1 _stx223674_ _arg1223676_)) - (let ((_arg2223681_ (car _rest223678_)) - (_rest223683_ (cdr _rest223678_))) - (if (let () (declare (not safe)) (null? _rest223683_)) + (gxc#compile-e__1 _stx224855_ _arg1224857_)) + (let ((_arg2224862_ (car _rest224859_)) + (_rest224864_ (cdr _rest224859_))) + (if (let () (declare (not safe)) (null? _rest224864_)) (let () (declare (not safe)) (gxc#compile-e__2 - _stx223674_ - _arg1223676_ - _arg2223681_)) + _stx224855_ + _arg1224857_ + _arg2224862_)) (apply gxc#compile-e - _stx223674_ - _arg1223676_ - _arg2223681_ - _rest223683_))))))))) + _stx224855_ + _arg1224857_ + _arg2224862_ + _rest224864_))))))))) (define gxc#xform-begin% - (lambda (_stx223631_ . _args223632_) - (let* ((_g223634223644_ - (lambda (_g223635223641_) + (lambda (_stx224812_ . _args224813_) + (let* ((_g224815224825_ + (lambda (_g224816224822_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223635223641_)))) - (_g223633223669_ - (lambda (_g223635223647_) + _g224816224822_)))) + (_g224814224850_ + (lambda (_g224816224828_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223635223647_)) - (let ((_e223639223649_ + (gx#stx-pair? _g224816224828_)) + (let ((_e224820224830_ (let () (declare (not safe)) - (gx#stx-e _g223635223647_)))) - (let ((_hd223638223652_ + (gx#stx-e _g224816224828_)))) + (let ((_hd224819224833_ (let () (declare (not safe)) - (##car _e223639223649_))) - (_tl223637223654_ + (##car _e224820224830_))) + (_tl224818224835_ (let () (declare (not safe)) - (##cdr _e223639223649_)))) - ((lambda (_L223657_) - (let* ((_forms223667_ + (##cdr _e224820224830_)))) + ((lambda (_L224838_) + (let* ((_forms224848_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args223632_)) - _L223657_)) - (__tmp228670 + _args224813_)) + _L224838_)) + (__tmp229851 (let () (declare (not safe)) - (cons '%#begin _forms223667_)))) + (cons '%#begin _forms224848_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp228670 - _stx223631_))) - _tl223637223654_))) + __tmp229851 + _stx224812_))) + _tl224818224835_))) (let () (declare (not safe)) - (_g223634223644_ _g223635223647_)))))) + (_g224815224825_ _g224816224828_)))))) (declare (not safe)) - (_g223633223669_ _stx223631_)))) + (_g224814224850_ _stx224812_)))) (define gxc#xform-begin-syntax% - (lambda (_stx223589_ . _args223590_) - (let* ((_g223592223602_ - (lambda (_g223593223599_) + (lambda (_stx224770_ . _args224771_) + (let* ((_g224773224783_ + (lambda (_g224774224780_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223593223599_)))) - (_g223591223628_ - (lambda (_g223593223605_) + _g224774224780_)))) + (_g224772224809_ + (lambda (_g224774224786_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223593223605_)) - (let ((_e223597223607_ + (gx#stx-pair? _g224774224786_)) + (let ((_e224778224788_ (let () (declare (not safe)) - (gx#stx-e _g223593223605_)))) - (let ((_hd223596223610_ + (gx#stx-e _g224774224786_)))) + (let ((_hd224777224791_ (let () (declare (not safe)) - (##car _e223597223607_))) - (_tl223595223612_ + (##car _e224778224788_))) + (_tl224776224793_ (let () (declare (not safe)) - (##cdr _e223597223607_)))) - ((lambda (_L223615_) - (let ((__tmp228673 + (##cdr _e224778224788_)))) + ((lambda (_L224796_) + (let ((__tmp229854 (lambda () - (let* ((_forms223626_ + (let* ((_forms224807_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args223590_)) - _L223615_)) - (__tmp228674 + _args224771_)) + _L224796_)) + (__tmp229855 (let () (declare (not safe)) (cons '%#begin-syntax - _forms223626_)))) + _forms224807_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp228674 - _stx223589_)))) - (__tmp228671 - (let ((__tmp228672 + __tmp229855 + _stx224770_)))) + (__tmp229852 + (let ((__tmp229853 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp228672 '1)))) + (fx+ __tmp229853 '1)))) (declare (not safe)) (call-with-parameters - __tmp228673 + __tmp229854 gx#current-expander-phi - __tmp228671))) - _tl223595223612_))) + __tmp229852))) + _tl224776224793_))) (let () (declare (not safe)) - (_g223592223602_ _g223593223605_)))))) + (_g224773224783_ _g224774224786_)))))) (declare (not safe)) - (_g223591223628_ _stx223589_)))) + (_g224772224809_ _stx224770_)))) (define gxc#xform-module% - (lambda (_stx223517_ . _args223518_) - (let* ((_g223520223534_ - (lambda (_g223521223531_) + (lambda (_stx224698_ . _args224699_) + (let* ((_g224701224715_ + (lambda (_g224702224712_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223521223531_)))) - (_g223519223586_ - (lambda (_g223521223537_) + _g224702224712_)))) + (_g224700224767_ + (lambda (_g224702224718_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223521223537_)) - (let ((_e223526223539_ + (gx#stx-pair? _g224702224718_)) + (let ((_e224707224720_ (let () (declare (not safe)) - (gx#stx-e _g223521223537_)))) - (let ((_hd223525223542_ + (gx#stx-e _g224702224718_)))) + (let ((_hd224706224723_ (let () (declare (not safe)) - (##car _e223526223539_))) - (_tl223524223544_ + (##car _e224707224720_))) + (_tl224705224725_ (let () (declare (not safe)) - (##cdr _e223526223539_)))) + (##cdr _e224707224720_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223524223544_)) - (let ((_e223529223547_ + (gx#stx-pair? _tl224705224725_)) + (let ((_e224710224728_ (let () (declare (not safe)) - (gx#stx-e _tl223524223544_)))) - (let ((_hd223528223550_ + (gx#stx-e _tl224705224725_)))) + (let ((_hd224709224731_ (let () (declare (not safe)) - (##car _e223529223547_))) - (_tl223527223552_ + (##car _e224710224728_))) + (_tl224708224733_ (let () (declare (not safe)) - (##cdr _e223529223547_)))) - ((lambda (_L223555_ _L223556_) - (let* ((_ctx223569_ + (##cdr _e224710224728_)))) + ((lambda (_L224736_ _L224737_) + (let* ((_ctx224750_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L223556_))) - (_code223571_ + _L224737_))) + (_code224752_ (##structure-ref - _ctx223569_ + _ctx224750_ '11 gx#module-context::t '#f)) - (_code223583_ - (let ((__tmp228675 + (_code224764_ + (let ((__tmp229856 (lambda () (if (let () (declare (not safe)) - (null? _args223518_)) + (null? _args224699_)) (let () (declare (not safe)) (gxc#compile-e__0 - _code223571_)) - (let ((_arg1223574_ + _code224752_)) + (let ((_arg1224755_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _args223518_)) - (_rest223576_ (cdr _args223518_))) - (if (let () (declare (not safe)) (null? _rest223576_)) + (car _args224699_)) + (_rest224757_ (cdr _args224699_))) + (if (let () (declare (not safe)) (null? _rest224757_)) (let () (declare (not safe)) - (gxc#compile-e__1 _code223571_ _arg1223574_)) - (let ((_arg2223579_ (car _rest223576_)) - (_rest223581_ (cdr _rest223576_))) + (gxc#compile-e__1 _code224752_ _arg1224755_)) + (let ((_arg2224760_ (car _rest224757_)) + (_rest224762_ (cdr _rest224757_))) (if (let () (declare (not safe)) - (null? _rest223581_)) + (null? _rest224762_)) (let () (declare (not safe)) (gxc#compile-e__2 - _code223571_ - _arg1223574_ - _arg2223579_)) + _code224752_ + _arg1224755_ + _arg2224760_)) (apply gxc#compile-e - _code223571_ - _arg1223574_ - _arg2223579_ - _rest223581_))))))))) + _code224752_ + _arg1224755_ + _arg2224760_ + _rest224762_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp228675 + __tmp229856 gx#current-expander-context - _ctx223569_)))) + _ctx224750_)))) (##structure-set! - _ctx223569_ - _code223583_ + _ctx224750_ + _code224764_ '11 gx#module-context::t '#f) - (let ((__tmp228676 - (let ((__tmp228677 - (let ((__tmp228678 + (let ((__tmp229857 + (let ((__tmp229858 + (let ((__tmp229859 (let () (declare (not safe)) - (cons _code223583_ + (cons _code224764_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L223556_ __tmp228678)))) + (cons _L224737_ __tmp229859)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '%#module __tmp228677)))) + (cons '%#module __tmp229858)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp228676 - _stx223517_)))) - _tl223527223552_ - _hd223528223550_))) + __tmp229857 + _stx224698_)))) + _tl224708224733_ + _hd224709224731_))) (let () (declare (not safe)) - (_g223520223534_ _g223521223537_))))) + (_g224701224715_ _g224702224718_))))) (let () (declare (not safe)) - (_g223520223534_ _g223521223537_)))))) + (_g224701224715_ _g224702224718_)))))) (declare (not safe)) - (_g223519223586_ _stx223517_)))) + (_g224700224767_ _stx224698_)))) (define gxc#xform-define-values% - (lambda (_stx223438_ . _args223439_) - (let* ((_g223441223458_ - (lambda (_g223442223455_) + (lambda (_stx224619_ . _args224620_) + (let* ((_g224622224639_ + (lambda (_g224623224636_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223442223455_)))) - (_g223440223514_ - (lambda (_g223442223461_) + _g224623224636_)))) + (_g224621224695_ + (lambda (_g224623224642_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223442223461_)) - (let ((_e223447223463_ + (gx#stx-pair? _g224623224642_)) + (let ((_e224628224644_ (let () (declare (not safe)) - (gx#stx-e _g223442223461_)))) - (let ((_hd223446223466_ + (gx#stx-e _g224623224642_)))) + (let ((_hd224627224647_ (let () (declare (not safe)) - (##car _e223447223463_))) - (_tl223445223468_ + (##car _e224628224644_))) + (_tl224626224649_ (let () (declare (not safe)) - (##cdr _e223447223463_)))) + (##cdr _e224628224644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223445223468_)) - (let ((_e223450223471_ + (gx#stx-pair? _tl224626224649_)) + (let ((_e224631224652_ (let () (declare (not safe)) - (gx#stx-e _tl223445223468_)))) - (let ((_hd223449223474_ + (gx#stx-e _tl224626224649_)))) + (let ((_hd224630224655_ (let () (declare (not safe)) - (##car _e223450223471_))) - (_tl223448223476_ + (##car _e224631224652_))) + (_tl224629224657_ (let () (declare (not safe)) - (##cdr _e223450223471_)))) + (##cdr _e224631224652_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223448223476_)) - (let ((_e223453223479_ + (gx#stx-pair? _tl224629224657_)) + (let ((_e224634224660_ (let () (declare (not safe)) - (gx#stx-e _tl223448223476_)))) - (let ((_hd223452223482_ + (gx#stx-e _tl224629224657_)))) + (let ((_hd224633224663_ (let () (declare (not safe)) - (##car _e223453223479_))) - (_tl223451223484_ + (##car _e224634224660_))) + (_tl224632224665_ (let () (declare (not safe)) - (##cdr _e223453223479_)))) + (##cdr _e224634224660_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223451223484_)) - ((lambda (_L223487_ _L223488_) - (let* ((_expr223512_ + _tl224632224665_)) + ((lambda (_L224668_ _L224669_) + (let* ((_expr224693_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args223439_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L223487_)) - (let ((_arg1223503_ (car _args223439_)) - (_rest223505_ (cdr _args223439_))) - (if (let () (declare (not safe)) (null? _rest223505_)) + (null? _args224620_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L224668_)) + (let ((_arg1224684_ (car _args224620_)) + (_rest224686_ (cdr _args224620_))) + (if (let () (declare (not safe)) (null? _rest224686_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L223487_ _arg1223503_)) - (let ((_arg2223508_ (car _rest223505_)) - (_rest223510_ (cdr _rest223505_))) + (gxc#compile-e__1 _L224668_ _arg1224684_)) + (let ((_arg2224689_ (car _rest224686_)) + (_rest224691_ (cdr _rest224686_))) (if (let () (declare (not safe)) - (null? _rest223510_)) + (null? _rest224691_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L223487_ - _arg1223503_ - _arg2223508_)) + _L224668_ + _arg1224684_ + _arg2224689_)) (apply gxc#compile-e - _L223487_ - _arg1223503_ - _arg2223508_ - _rest223510_))))))) - (__tmp228679 - (let ((__tmp228680 - (let ((__tmp228681 + _L224668_ + _arg1224684_ + _arg2224689_ + _rest224691_))))))) + (__tmp229860 + (let ((__tmp229861 + (let ((__tmp229862 (let () (declare (not safe)) - (cons _expr223512_ '())))) + (cons _expr224693_ '())))) (declare (not safe)) - (cons _L223488_ __tmp228681)))) + (cons _L224669_ __tmp229862)))) (declare (not safe)) - (cons '%#define-values __tmp228680)))) + (cons '%#define-values __tmp229861)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp228679 - _stx223438_))) - _hd223452223482_ - _hd223449223474_) + __tmp229860 + _stx224619_))) + _hd224633224663_ + _hd224630224655_) (let () (declare (not safe)) - (_g223441223458_ - _g223442223461_))))) + (_g224622224639_ + _g224623224642_))))) (let () (declare (not safe)) - (_g223441223458_ _g223442223461_))))) + (_g224622224639_ _g224623224642_))))) (let () (declare (not safe)) - (_g223441223458_ _g223442223461_))))) + (_g224622224639_ _g224623224642_))))) (let () (declare (not safe)) - (_g223441223458_ _g223442223461_)))))) + (_g224622224639_ _g224623224642_)))))) (declare (not safe)) - (_g223440223514_ _stx223438_)))) + (_g224621224695_ _stx224619_)))) (define gxc#xform-define-syntax% - (lambda (_stx223358_ . _args223359_) - (let* ((_g223361223378_ - (lambda (_g223362223375_) + (lambda (_stx224539_ . _args224540_) + (let* ((_g224542224559_ + (lambda (_g224543224556_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223362223375_)))) - (_g223360223435_ - (lambda (_g223362223381_) + _g224543224556_)))) + (_g224541224616_ + (lambda (_g224543224562_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223362223381_)) - (let ((_e223367223383_ + (gx#stx-pair? _g224543224562_)) + (let ((_e224548224564_ (let () (declare (not safe)) - (gx#stx-e _g223362223381_)))) - (let ((_hd223366223386_ + (gx#stx-e _g224543224562_)))) + (let ((_hd224547224567_ (let () (declare (not safe)) - (##car _e223367223383_))) - (_tl223365223388_ + (##car _e224548224564_))) + (_tl224546224569_ (let () (declare (not safe)) - (##cdr _e223367223383_)))) + (##cdr _e224548224564_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223365223388_)) - (let ((_e223370223391_ + (gx#stx-pair? _tl224546224569_)) + (let ((_e224551224572_ (let () (declare (not safe)) - (gx#stx-e _tl223365223388_)))) - (let ((_hd223369223394_ + (gx#stx-e _tl224546224569_)))) + (let ((_hd224550224575_ (let () (declare (not safe)) - (##car _e223370223391_))) - (_tl223368223396_ + (##car _e224551224572_))) + (_tl224549224577_ (let () (declare (not safe)) - (##cdr _e223370223391_)))) + (##cdr _e224551224572_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223368223396_)) - (let ((_e223373223399_ + (gx#stx-pair? _tl224549224577_)) + (let ((_e224554224580_ (let () (declare (not safe)) - (gx#stx-e _tl223368223396_)))) - (let ((_hd223372223402_ + (gx#stx-e _tl224549224577_)))) + (let ((_hd224553224583_ (let () (declare (not safe)) - (##car _e223373223399_))) - (_tl223371223404_ + (##car _e224554224580_))) + (_tl224552224585_ (let () (declare (not safe)) - (##cdr _e223373223399_)))) + (##cdr _e224554224580_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223371223404_)) - ((lambda (_L223407_ _L223408_) - (let ((__tmp228684 + _tl224552224585_)) + ((lambda (_L224588_ _L224589_) + (let ((__tmp229865 (lambda () - (let* ((_expr223433_ + (let* ((_expr224614_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (null? _args223359_)) + (null? _args224540_)) (let () (declare (not safe)) - (gxc#compile-e__0 _L223407_)) - (let ((_arg1223424_ (car _args223359_)) - (_rest223426_ (cdr _args223359_))) + (gxc#compile-e__0 _L224588_)) + (let ((_arg1224605_ (car _args224540_)) + (_rest224607_ (cdr _args224540_))) (if (let () (declare (not safe)) - (null? _rest223426_)) + (null? _rest224607_)) (let () (declare (not safe)) (gxc#compile-e__1 - _L223407_ - _arg1223424_)) - (let ((_arg2223429_ (car _rest223426_)) - (_rest223431_ (cdr _rest223426_))) + _L224588_ + _arg1224605_)) + (let ((_arg2224610_ (car _rest224607_)) + (_rest224612_ (cdr _rest224607_))) (if (let () (declare (not safe)) - (null? _rest223431_)) + (null? _rest224612_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L223407_ - _arg1223424_ - _arg2223429_)) + _L224588_ + _arg1224605_ + _arg2224610_)) (apply gxc#compile-e - _L223407_ - _arg1223424_ - _arg2223429_ - _rest223431_))))))) - (__tmp228685 - (let ((__tmp228686 - (let ((__tmp228687 + _L224588_ + _arg1224605_ + _arg2224610_ + _rest224612_))))))) + (__tmp229866 + (let ((__tmp229867 + (let ((__tmp229868 (let () (declare (not safe)) - (cons _expr223433_ '())))) + (cons _expr224614_ '())))) (declare (not safe)) - (cons _L223408_ __tmp228687)))) + (cons _L224589_ __tmp229868)))) (declare (not safe)) - (cons '%#define-syntax __tmp228686)))) + (cons '%#define-syntax __tmp229867)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp228685 _stx223358_)))) - (__tmp228682 - (let ((__tmp228683 (gx#current-expander-phi))) + (gxc#xform-wrap-source __tmp229866 _stx224539_)))) + (__tmp229863 + (let ((__tmp229864 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp228683 '1)))) + (fx+ __tmp229864 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (call-with-parameters - __tmp228684 + __tmp229865 gx#current-expander-phi - __tmp228682))) - _hd223372223402_ - _hd223369223394_) + __tmp229863))) + _hd224553224583_ + _hd224550224575_) (let () (declare (not safe)) - (_g223361223378_ - _g223362223381_))))) + (_g224542224559_ + _g224543224562_))))) (let () (declare (not safe)) - (_g223361223378_ _g223362223381_))))) + (_g224542224559_ _g224543224562_))))) (let () (declare (not safe)) - (_g223361223378_ _g223362223381_))))) + (_g224542224559_ _g224543224562_))))) (let () (declare (not safe)) - (_g223361223378_ _g223362223381_)))))) + (_g224542224559_ _g224543224562_)))))) (declare (not safe)) - (_g223360223435_ _stx223358_)))) + (_g224541224616_ _stx224539_)))) (define gxc#xform-begin-annotation% - (lambda (_stx223279_ . _args223280_) - (let* ((_g223282223299_ - (lambda (_g223283223296_) + (lambda (_stx224460_ . _args224461_) + (let* ((_g224463224480_ + (lambda (_g224464224477_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223283223296_)))) - (_g223281223355_ - (lambda (_g223283223302_) + _g224464224477_)))) + (_g224462224536_ + (lambda (_g224464224483_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223283223302_)) - (let ((_e223288223304_ + (gx#stx-pair? _g224464224483_)) + (let ((_e224469224485_ (let () (declare (not safe)) - (gx#stx-e _g223283223302_)))) - (let ((_hd223287223307_ + (gx#stx-e _g224464224483_)))) + (let ((_hd224468224488_ (let () (declare (not safe)) - (##car _e223288223304_))) - (_tl223286223309_ + (##car _e224469224485_))) + (_tl224467224490_ (let () (declare (not safe)) - (##cdr _e223288223304_)))) + (##cdr _e224469224485_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223286223309_)) - (let ((_e223291223312_ + (gx#stx-pair? _tl224467224490_)) + (let ((_e224472224493_ (let () (declare (not safe)) - (gx#stx-e _tl223286223309_)))) - (let ((_hd223290223315_ + (gx#stx-e _tl224467224490_)))) + (let ((_hd224471224496_ (let () (declare (not safe)) - (##car _e223291223312_))) - (_tl223289223317_ + (##car _e224472224493_))) + (_tl224470224498_ (let () (declare (not safe)) - (##cdr _e223291223312_)))) + (##cdr _e224472224493_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223289223317_)) - (let ((_e223294223320_ + (gx#stx-pair? _tl224470224498_)) + (let ((_e224475224501_ (let () (declare (not safe)) - (gx#stx-e _tl223289223317_)))) - (let ((_hd223293223323_ + (gx#stx-e _tl224470224498_)))) + (let ((_hd224474224504_ (let () (declare (not safe)) - (##car _e223294223320_))) - (_tl223292223325_ + (##car _e224475224501_))) + (_tl224473224506_ (let () (declare (not safe)) - (##cdr _e223294223320_)))) + (##cdr _e224475224501_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223292223325_)) - ((lambda (_L223328_ _L223329_) - (let* ((_expr223353_ + _tl224473224506_)) + ((lambda (_L224509_ _L224510_) + (let* ((_expr224534_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args223280_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L223328_)) - (let ((_arg1223344_ (car _args223280_)) - (_rest223346_ (cdr _args223280_))) - (if (let () (declare (not safe)) (null? _rest223346_)) + (null? _args224461_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L224509_)) + (let ((_arg1224525_ (car _args224461_)) + (_rest224527_ (cdr _args224461_))) + (if (let () (declare (not safe)) (null? _rest224527_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L223328_ _arg1223344_)) - (let ((_arg2223349_ (car _rest223346_)) - (_rest223351_ (cdr _rest223346_))) + (gxc#compile-e__1 _L224509_ _arg1224525_)) + (let ((_arg2224530_ (car _rest224527_)) + (_rest224532_ (cdr _rest224527_))) (if (let () (declare (not safe)) - (null? _rest223351_)) + (null? _rest224532_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L223328_ - _arg1223344_ - _arg2223349_)) + _L224509_ + _arg1224525_ + _arg2224530_)) (apply gxc#compile-e - _L223328_ - _arg1223344_ - _arg2223349_ - _rest223351_))))))) - (__tmp228688 - (let ((__tmp228689 - (let ((__tmp228690 + _L224509_ + _arg1224525_ + _arg2224530_ + _rest224532_))))))) + (__tmp229869 + (let ((__tmp229870 + (let ((__tmp229871 (let () (declare (not safe)) - (cons _expr223353_ '())))) + (cons _expr224534_ '())))) (declare (not safe)) - (cons _L223329_ __tmp228690)))) + (cons _L224510_ __tmp229871)))) (declare (not safe)) - (cons '%#begin-annotation __tmp228689)))) + (cons '%#begin-annotation __tmp229870)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp228688 - _stx223279_))) - _hd223293223323_ - _hd223290223315_) + __tmp229869 + _stx224460_))) + _hd224474224504_ + _hd224471224496_) (let () (declare (not safe)) - (_g223282223299_ - _g223283223302_))))) + (_g224463224480_ + _g224464224483_))))) (let () (declare (not safe)) - (_g223282223299_ _g223283223302_))))) + (_g224463224480_ _g224464224483_))))) (let () (declare (not safe)) - (_g223282223299_ _g223283223302_))))) + (_g224463224480_ _g224464224483_))))) (let () (declare (not safe)) - (_g223282223299_ _g223283223302_)))))) + (_g224463224480_ _g224464224483_)))))) (declare (not safe)) - (_g223281223355_ _stx223279_)))) + (_g224462224536_ _stx224460_)))) (define gxc#xform-lambda% - (lambda (_stx223222_ . _args223223_) - (let* ((_g223225223239_ - (lambda (_g223226223236_) + (lambda (_stx224403_ . _args224404_) + (let* ((_g224406224420_ + (lambda (_g224407224417_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223226223236_)))) - (_g223224223276_ - (lambda (_g223226223242_) + _g224407224417_)))) + (_g224405224457_ + (lambda (_g224407224423_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223226223242_)) - (let ((_e223231223244_ + (gx#stx-pair? _g224407224423_)) + (let ((_e224412224425_ (let () (declare (not safe)) - (gx#stx-e _g223226223242_)))) - (let ((_hd223230223247_ + (gx#stx-e _g224407224423_)))) + (let ((_hd224411224428_ (let () (declare (not safe)) - (##car _e223231223244_))) - (_tl223229223249_ + (##car _e224412224425_))) + (_tl224410224430_ (let () (declare (not safe)) - (##cdr _e223231223244_)))) + (##cdr _e224412224425_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl223229223249_)) - (let ((_e223234223252_ + (gx#stx-pair? _tl224410224430_)) + (let ((_e224415224433_ (let () (declare (not safe)) - (gx#stx-e _tl223229223249_)))) - (let ((_hd223233223255_ + (gx#stx-e _tl224410224430_)))) + (let ((_hd224414224436_ (let () (declare (not safe)) - (##car _e223234223252_))) - (_tl223232223257_ + (##car _e224415224433_))) + (_tl224413224438_ (let () (declare (not safe)) - (##cdr _e223234223252_)))) - ((lambda (_L223260_ _L223261_) - (let* ((_body223274_ + (##cdr _e224415224433_)))) + ((lambda (_L224441_ _L224442_) + (let* ((_body224455_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args223223_)) - _L223260_)) - (__tmp228691 - (let ((__tmp228692 + _args224404_)) + _L224441_)) + (__tmp229872 + (let ((__tmp229873 (let () (declare (not safe)) - (cons _L223261_ - _body223274_)))) + (cons _L224442_ + _body224455_)))) (declare (not safe)) - (cons '%#lambda __tmp228692)))) + (cons '%#lambda __tmp229873)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp228691 - _stx223222_))) - _tl223232223257_ - _hd223233223255_))) + __tmp229872 + _stx224403_))) + _tl224413224438_ + _hd224414224436_))) (let () (declare (not safe)) - (_g223225223239_ _g223226223242_))))) + (_g224406224420_ _g224407224423_))))) (let () (declare (not safe)) - (_g223225223239_ _g223226223242_)))))) + (_g224406224420_ _g224407224423_)))))) (declare (not safe)) - (_g223224223276_ _stx223222_)))) + (_g224405224457_ _stx224403_)))) (define gxc#xform-case-lambda% - (lambda (_stx223135_ . _args223136_) - (letrec ((_clause-e223138_ - (lambda (_clause223179_) - (let* ((_g223181223192_ - (lambda (_g223182223189_) + (lambda (_stx224316_ . _args224317_) + (letrec ((_clause-e224319_ + (lambda (_clause224360_) + (let* ((_g224362224373_ + (lambda (_g224363224370_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223182223189_)))) - (_g223180223219_ - (lambda (_g223182223195_) + _g224363224370_)))) + (_g224361224400_ + (lambda (_g224363224376_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223182223195_)) - (let ((_e223187223197_ + (gx#stx-pair? _g224363224376_)) + (let ((_e224368224378_ (let () (declare (not safe)) - (gx#stx-e _g223182223195_)))) - (let ((_hd223186223200_ + (gx#stx-e _g224363224376_)))) + (let ((_hd224367224381_ (let () (declare (not safe)) - (##car _e223187223197_))) - (_tl223185223202_ + (##car _e224368224378_))) + (_tl224366224383_ (let () (declare (not safe)) - (##cdr _e223187223197_)))) - ((lambda (_L223205_ _L223206_) - (let ((_body223217_ + (##cdr _e224368224378_)))) + ((lambda (_L224386_ _L224387_) + (let ((_body224398_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args223136_)) - _L223205_))) + _args224317_)) + _L224386_))) (declare (not safe)) - (cons _L223206_ _body223217_))) - _tl223185223202_ - _hd223186223200_))) + (cons _L224387_ _body224398_))) + _tl224366224383_ + _hd224367224381_))) (let () (declare (not safe)) - (_g223181223192_ _g223182223195_)))))) + (_g224362224373_ _g224363224376_)))))) (declare (not safe)) - (_g223180223219_ _clause223179_))))) - (let* ((_g223140223150_ - (lambda (_g223141223147_) + (_g224361224400_ _clause224360_))))) + (let* ((_g224321224331_ + (lambda (_g224322224328_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223141223147_)))) - (_g223139223176_ - (lambda (_g223141223153_) + _g224322224328_)))) + (_g224320224357_ + (lambda (_g224322224334_) (if (let () (declare (not safe)) - (gx#stx-pair? _g223141223153_)) - (let ((_e223145223155_ + (gx#stx-pair? _g224322224334_)) + (let ((_e224326224336_ (let () (declare (not safe)) - (gx#stx-e _g223141223153_)))) - (let ((_hd223144223158_ + (gx#stx-e _g224322224334_)))) + (let ((_hd224325224339_ (let () (declare (not safe)) - (##car _e223145223155_))) - (_tl223143223160_ + (##car _e224326224336_))) + (_tl224324224341_ (let () (declare (not safe)) - (##cdr _e223145223155_)))) - ((lambda (_L223163_) - (let* ((_clauses223174_ - (map _clause-e223138_ _L223163_)) - (__tmp228693 + (##cdr _e224326224336_)))) + ((lambda (_L224344_) + (let* ((_clauses224355_ + (map _clause-e224319_ _L224344_)) + (__tmp229874 (let () (declare (not safe)) (cons '%#case-lambda - _clauses223174_)))) + _clauses224355_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp228693 - _stx223135_))) - _tl223143223160_))) + __tmp229874 + _stx224316_))) + _tl224324224341_))) (let () (declare (not safe)) - (_g223140223150_ _g223141223153_)))))) + (_g224321224331_ _g224322224334_)))))) (declare (not safe)) - (_g223139223176_ _stx223135_))))) + (_g224320224357_ _stx224316_))))) (define gxc#xform-let-values% - (lambda (_stx222929_ . _args222930_) - (let* ((_g222932222965_ - (lambda (_g222933222962_) + (lambda (_stx224110_ . _args224111_) + (let* ((_g224113224146_ + (lambda (_g224114224143_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222933222962_)))) - (_g222931223132_ - (lambda (_g222933222968_) + _g224114224143_)))) + (_g224112224313_ + (lambda (_g224114224149_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222933222968_)) - (let ((_e222940222970_ + (gx#stx-pair? _g224114224149_)) + (let ((_e224121224151_ (let () (declare (not safe)) - (gx#stx-e _g222933222968_)))) - (let ((_hd222939222973_ + (gx#stx-e _g224114224149_)))) + (let ((_hd224120224154_ (let () (declare (not safe)) - (##car _e222940222970_))) - (_tl222938222975_ + (##car _e224121224151_))) + (_tl224119224156_ (let () (declare (not safe)) - (##cdr _e222940222970_)))) + (##cdr _e224121224151_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222938222975_)) - (let ((_e222943222978_ + (gx#stx-pair? _tl224119224156_)) + (let ((_e224124224159_ (let () (declare (not safe)) - (gx#stx-e _tl222938222975_)))) - (let ((_hd222942222981_ + (gx#stx-e _tl224119224156_)))) + (let ((_hd224123224162_ (let () (declare (not safe)) - (##car _e222943222978_))) - (_tl222941222983_ + (##car _e224124224159_))) + (_tl224122224164_ (let () (declare (not safe)) - (##cdr _e222943222978_)))) + (##cdr _e224124224159_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd222942222981_)) - (let ((_g228694_ + (gx#stx-pair/null? _hd224123224162_)) + (let ((_g229875_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd222942222981_ + _hd224123224162_ '0)))) (begin - (let ((_g228695_ + (let ((_g229876_ (let () (declare (not safe)) - (if (##values? _g228694_) + (if (##values? _g229875_) (##vector-length - _g228694_) + _g229875_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g228695_ 2))) + (##fx= _g229876_ 2))) (error "Context expects 2 values" - _g228695_))) - (let ((_target222944222986_ + _g229876_))) + (let ((_target224125224167_ (let () (declare (not safe)) - (##vector-ref _g228694_ 0))) - (_tl222946222988_ + (##vector-ref _g229875_ 0))) + (_tl224127224169_ (let () (declare (not safe)) (##vector-ref - _g228694_ + _g229875_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222946222988_)) - (letrec ((_loop222947222991_ - (lambda (_hd222945222994_ + _tl224127224169_)) + (letrec ((_loop224128224172_ + (lambda (_hd224126224175_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr222951222996_ - _hd222952222998_) + _expr224132224177_ + _hd224133224179_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222945222994_)) - (let ((_e222948223001_ + (gx#stx-pair? _hd224126224175_)) + (let ((_e224129224182_ (let () (declare (not safe)) - (gx#stx-e _hd222945222994_)))) - (let ((_lp-hd222949223004_ + (gx#stx-e _hd224126224175_)))) + (let ((_lp-hd224130224185_ (let () (declare (not safe)) - (##car _e222948223001_))) - (_lp-tl222950223006_ + (##car _e224129224182_))) + (_lp-tl224131224187_ (let () (declare (not safe)) - (##cdr _e222948223001_)))) + (##cdr _e224129224182_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd222949223004_)) - (let ((_e222957223009_ + (gx#stx-pair? _lp-hd224130224185_)) + (let ((_e224138224190_ (let () (declare (not safe)) - (gx#stx-e _lp-hd222949223004_)))) - (let ((_hd222956223012_ + (gx#stx-e _lp-hd224130224185_)))) + (let ((_hd224137224193_ (let () (declare (not safe)) - (##car _e222957223009_))) - (_tl222955223014_ + (##car _e224138224190_))) + (_tl224136224195_ (let () (declare (not safe)) - (##cdr _e222957223009_)))) + (##cdr _e224138224190_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222955223014_)) - (let ((_e222960223017_ + (gx#stx-pair? _tl224136224195_)) + (let ((_e224141224198_ (let () (declare (not safe)) - (gx#stx-e _tl222955223014_)))) - (let ((_hd222959223020_ + (gx#stx-e _tl224136224195_)))) + (let ((_hd224140224201_ (let () (declare (not safe)) - (##car _e222960223017_))) - (_tl222958223022_ + (##car _e224141224198_))) + (_tl224139224203_ (let () (declare (not safe)) - (##cdr _e222960223017_)))) + (##cdr _e224141224198_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222958223022_)) - (let ((__tmp228708 + _tl224139224203_)) + (let ((__tmp229889 (let () (declare (not safe)) - (cons _hd222959223020_ - _expr222951222996_))) - (__tmp228707 + (cons _hd224140224201_ + _expr224132224177_))) + (__tmp229888 (let () (declare (not safe)) - (cons _hd222956223012_ - _hd222952222998_)))) + (cons _hd224137224193_ + _hd224133224179_)))) (declare (not safe)) - (_loop222947222991_ - _lp-tl222950223006_ - __tmp228708 - __tmp228707)) + (_loop224128224172_ + _lp-tl224131224187_ + __tmp229889 + __tmp229888)) (let () (declare (not safe)) - (_g222932222965_ - _g222933222968_))))) + (_g224113224146_ + _g224114224149_))))) (let () (declare (not safe)) - (_g222932222965_ _g222933222968_))))) + (_g224113224146_ _g224114224149_))))) (let () (declare (not safe)) - (_g222932222965_ _g222933222968_))))) - (let ((_expr222953223025_ (reverse _expr222951222996_)) - (_hd222954223027_ (reverse _hd222952222998_))) - ((lambda (_L223030_ _L223031_ _L223032_ _L223033_) - (let* ((_g223052223068_ - (lambda (_g223053223065_) + (_g224113224146_ _g224114224149_))))) + (let ((_expr224134224206_ (reverse _expr224132224177_)) + (_hd224135224208_ (reverse _hd224133224179_))) + ((lambda (_L224211_ _L224212_ _L224213_ _L224214_) + (let* ((_g224233224249_ + (lambda (_g224234224246_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g223053223065_)))) - (_g223051223122_ - (lambda (_g223053223071_) + _g224234224246_)))) + (_g224232224303_ + (lambda (_g224234224252_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _g223053223071_)) - (let ((_g228696_ + _g224234224252_)) + (let ((_g229877_ (let () (declare (not safe)) (gx#syntax-split-splice - _g223053223071_ + _g224234224252_ '0)))) (begin - (let ((_g228697_ + (let ((_g229878_ (let () (declare (not safe)) (if (##values? - _g228696_) + _g229877_) (##vector-length - _g228696_) + _g229877_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g228697_ + (##fx= _g229878_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g228697_))) - (let ((_target223055223073_ + _g229878_))) + (let ((_target224236224254_ (let () (declare (not safe)) (##vector-ref - _g228696_ + _g229877_ 0))) - (_tl223057223075_ + (_tl224238224256_ (let () (declare (not safe)) (##vector-ref - _g228696_ + _g229877_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl223057223075_)) - (letrec ((_loop223058223078_ - (lambda (_hd223056223081_ + _tl224238224256_)) + (letrec ((_loop224239224259_ + (lambda (_hd224237224262_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr223062223083_) + _expr224243224264_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd223056223081_)) - (let ((_e223059223086_ + (gx#stx-pair? _hd224237224262_)) + (let ((_e224240224267_ (let () (declare (not safe)) - (gx#syntax-e _hd223056223081_)))) - (let ((_lp-hd223060223089_ + (gx#syntax-e _hd224237224262_)))) + (let ((_lp-hd224241224270_ (let () (declare (not safe)) - (##car _e223059223086_))) - (_lp-tl223061223091_ + (##car _e224240224267_))) + (_lp-tl224242224272_ (let () (declare (not safe)) - (##cdr _e223059223086_)))) - (let ((__tmp228704 + (##cdr _e224240224267_)))) + (let ((__tmp229885 (let () (declare (not safe)) - (cons _lp-hd223060223089_ - _expr223062223083_)))) + (cons _lp-hd224241224270_ + _expr224243224264_)))) (declare (not safe)) - (_loop223058223078_ - _lp-tl223061223091_ - __tmp228704)))) - (let ((_expr223063223094_ - (reverse _expr223062223083_))) - ((lambda (_L223097_) + (_loop224239224259_ + _lp-tl224242224272_ + __tmp229885)))) + (let ((_expr224244224275_ + (reverse _expr224243224264_))) + ((lambda (_L224278_) (let () - (let* ((_body223110_ + (let* ((_body224291_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args222930_)) - _L223030_)) - (__tmp228698 - (let ((__tmp228699 - (let ((__tmp228700 + _args224111_)) + _L224211_)) + (__tmp229879 + (let ((__tmp229880 + (let ((__tmp229881 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L223097_ - _L223032_)) - (let ((__tmp228701 + _L224278_ + _L224213_)) + (let ((__tmp229882 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g223111223115_ - _g223112223117_ - _g223113223119_) - (let ((__tmp228702 - (let ((__tmp228703 + (lambda (_g224292224296_ + _g224293224298_ + _g224294224300_) + (let ((__tmp229883 + (let ((__tmp229884 (let () (declare (not safe)) - (cons _g223111223115_ '())))) + (cons _g224292224296_ '())))) (declare (not safe)) - (cons _g223112223117_ __tmp228703)))) + (cons _g224293224298_ __tmp229884)))) (declare (not safe)) - (cons __tmp228702 _g223113223119_))))) + (cons __tmp229883 _g224294224300_))))) (declare (not safe)) - (foldr2 __tmp228701 '() _L223097_ _L223032_))))) + (foldr2 __tmp229882 '() _L224278_ _L224213_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp228700 - _body223110_)))) + (cons __tmp229881 + _body224291_)))) (declare (not safe)) - (cons _L223033_ __tmp228699)))) + (cons _L224214_ __tmp229880)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp228698 - _stx222929_)))) - _expr223063223094_)))))) + __tmp229879 + _stx224110_)))) + _expr224244224275_)))))) (let () (declare (not safe)) - (_loop223058223078_ _target223055223073_ '()))) + (_loop224239224259_ _target224236224254_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g223052223068_ - _g223053223071_)))))) + (_g224233224249_ + _g224234224252_)))))) (let () (declare (not safe)) - (_g223052223068_ - _g223053223071_))))) - (__tmp228705 + (_g224233224249_ + _g224234224252_))))) + (__tmp229886 (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args222930_)) - (let ((__tmp228706 - (lambda (_g223124223127_ - _g223125223129_) + _args224111_)) + (let ((__tmp229887 + (lambda (_g224305224308_ + _g224306224310_) (let () (declare (not safe)) - (cons _g223124223127_ - _g223125223129_))))) + (cons _g224305224308_ + _g224306224310_))))) (declare (not safe)) - (foldr1 __tmp228706 + (foldr1 __tmp229887 '() - _L223031_))))) + _L224212_))))) (declare (not safe)) - (_g223051223122_ __tmp228705))) - _tl222941222983_ - _expr222953223025_ - _hd222954223027_ - _hd222939222973_)))))) + (_g224232224303_ __tmp229886))) + _tl224122224164_ + _expr224134224206_ + _hd224135224208_ + _hd224120224154_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop222947222991_ - _target222944222986_ + (_loop224128224172_ + _target224125224167_ '() '()))) (let () (declare (not safe)) - (_g222932222965_ - _g222933222968_)))))) + (_g224113224146_ + _g224114224149_)))))) (let () (declare (not safe)) - (_g222932222965_ _g222933222968_))))) + (_g224113224146_ _g224114224149_))))) (let () (declare (not safe)) - (_g222932222965_ _g222933222968_))))) + (_g224113224146_ _g224114224149_))))) (let () (declare (not safe)) - (_g222932222965_ _g222933222968_)))))) + (_g224113224146_ _g224114224149_)))))) (declare (not safe)) - (_g222931223132_ _stx222929_)))) + (_g224112224313_ _stx224110_)))) (define gxc#xform-operands - (lambda (_stx222885_ . _args222886_) - (let* ((_g222888222899_ - (lambda (_g222889222896_) + (lambda (_stx224066_ . _args224067_) + (let* ((_g224069224080_ + (lambda (_g224070224077_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222889222896_)))) - (_g222887222926_ - (lambda (_g222889222902_) + _g224070224077_)))) + (_g224068224107_ + (lambda (_g224070224083_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222889222902_)) - (let ((_e222894222904_ + (gx#stx-pair? _g224070224083_)) + (let ((_e224075224085_ (let () (declare (not safe)) - (gx#stx-e _g222889222902_)))) - (let ((_hd222893222907_ + (gx#stx-e _g224070224083_)))) + (let ((_hd224074224088_ (let () (declare (not safe)) - (##car _e222894222904_))) - (_tl222892222909_ + (##car _e224075224085_))) + (_tl224073224090_ (let () (declare (not safe)) - (##cdr _e222894222904_)))) - ((lambda (_L222912_ _L222913_) - (let* ((_rands222924_ + (##cdr _e224075224085_)))) + ((lambda (_L224093_ _L224094_) + (let* ((_rands224105_ (map (let () (declare (not safe)) (gxc#xform-apply-compile-e - _args222886_)) - _L222912_)) - (__tmp228709 + _args224067_)) + _L224093_)) + (__tmp229890 (let () (declare (not safe)) - (cons _L222913_ _rands222924_)))) + (cons _L224094_ _rands224105_)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp228709 - _stx222885_))) - _tl222892222909_ - _hd222893222907_))) + __tmp229890 + _stx224066_))) + _tl224073224090_ + _hd224074224088_))) (let () (declare (not safe)) - (_g222888222899_ _g222889222902_)))))) + (_g224069224080_ _g224070224083_)))))) (declare (not safe)) - (_g222887222926_ _stx222885_)))) + (_g224068224107_ _stx224066_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_stx222806_ . _args222807_) - (let* ((_g222809222826_ - (lambda (_g222810222823_) + (lambda (_stx223987_ . _args223988_) + (let* ((_g223990224007_ + (lambda (_g223991224004_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222810222823_)))) - (_g222808222882_ - (lambda (_g222810222829_) + _g223991224004_)))) + (_g223989224063_ + (lambda (_g223991224010_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222810222829_)) - (let ((_e222815222831_ + (gx#stx-pair? _g223991224010_)) + (let ((_e223996224012_ (let () (declare (not safe)) - (gx#stx-e _g222810222829_)))) - (let ((_hd222814222834_ + (gx#stx-e _g223991224010_)))) + (let ((_hd223995224015_ (let () (declare (not safe)) - (##car _e222815222831_))) - (_tl222813222836_ + (##car _e223996224012_))) + (_tl223994224017_ (let () (declare (not safe)) - (##cdr _e222815222831_)))) + (##cdr _e223996224012_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222813222836_)) - (let ((_e222818222839_ + (gx#stx-pair? _tl223994224017_)) + (let ((_e223999224020_ (let () (declare (not safe)) - (gx#stx-e _tl222813222836_)))) - (let ((_hd222817222842_ + (gx#stx-e _tl223994224017_)))) + (let ((_hd223998224023_ (let () (declare (not safe)) - (##car _e222818222839_))) - (_tl222816222844_ + (##car _e223999224020_))) + (_tl223997224025_ (let () (declare (not safe)) - (##cdr _e222818222839_)))) + (##cdr _e223999224020_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222816222844_)) - (let ((_e222821222847_ + (gx#stx-pair? _tl223997224025_)) + (let ((_e224002224028_ (let () (declare (not safe)) - (gx#stx-e _tl222816222844_)))) - (let ((_hd222820222850_ + (gx#stx-e _tl223997224025_)))) + (let ((_hd224001224031_ (let () (declare (not safe)) - (##car _e222821222847_))) - (_tl222819222852_ + (##car _e224002224028_))) + (_tl224000224033_ (let () (declare (not safe)) - (##cdr _e222821222847_)))) + (##cdr _e224002224028_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222819222852_)) - ((lambda (_L222855_ _L222856_) - (let* ((_expr222880_ + _tl224000224033_)) + ((lambda (_L224036_ _L224037_) + (let* ((_expr224061_ (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (null? _args222807_)) - (let () (declare (not safe)) (gxc#compile-e__0 _L222855_)) - (let ((_arg1222871_ (car _args222807_)) - (_rest222873_ (cdr _args222807_))) - (if (let () (declare (not safe)) (null? _rest222873_)) + (null? _args223988_)) + (let () (declare (not safe)) (gxc#compile-e__0 _L224036_)) + (let ((_arg1224052_ (car _args223988_)) + (_rest224054_ (cdr _args223988_))) + (if (let () (declare (not safe)) (null? _rest224054_)) (let () (declare (not safe)) - (gxc#compile-e__1 _L222855_ _arg1222871_)) - (let ((_arg2222876_ (car _rest222873_)) - (_rest222878_ (cdr _rest222873_))) + (gxc#compile-e__1 _L224036_ _arg1224052_)) + (let ((_arg2224057_ (car _rest224054_)) + (_rest224059_ (cdr _rest224054_))) (if (let () (declare (not safe)) - (null? _rest222878_)) + (null? _rest224059_)) (let () (declare (not safe)) (gxc#compile-e__2 - _L222855_ - _arg1222871_ - _arg2222876_)) + _L224036_ + _arg1224052_ + _arg2224057_)) (apply gxc#compile-e - _L222855_ - _arg1222871_ - _arg2222876_ - _rest222878_))))))) - (__tmp228710 - (let ((__tmp228711 - (let ((__tmp228712 + _L224036_ + _arg1224052_ + _arg2224057_ + _rest224059_))))))) + (__tmp229891 + (let ((__tmp229892 + (let ((__tmp229893 (let () (declare (not safe)) - (cons _expr222880_ '())))) + (cons _expr224061_ '())))) (declare (not safe)) - (cons _L222856_ __tmp228712)))) + (cons _L224037_ __tmp229893)))) (declare (not safe)) - (cons '%#set! __tmp228711)))) + (cons '%#set! __tmp229892)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp228710 - _stx222806_))) - _hd222820222850_ - _hd222817222842_) + __tmp229891 + _stx223987_))) + _hd224001224031_ + _hd223998224023_) (let () (declare (not safe)) - (_g222809222826_ - _g222810222829_))))) + (_g223990224007_ + _g223991224010_))))) (let () (declare (not safe)) - (_g222809222826_ _g222810222829_))))) + (_g223990224007_ _g223991224010_))))) (let () (declare (not safe)) - (_g222809222826_ _g222810222829_))))) + (_g223990224007_ _g223991224010_))))) (let () (declare (not safe)) - (_g222809222826_ _g222810222829_)))))) + (_g223990224007_ _g223991224010_)))))) (declare (not safe)) - (_g222808222882_ _stx222806_)))) + (_g223989224063_ _stx223987_)))) (define gxc#collect-mutators-setq% - (lambda (_stx222737_) - (let* ((_g222739222756_ - (lambda (_g222740222753_) + (lambda (_stx223918_) + (let* ((_g223920223937_ + (lambda (_g223921223934_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222740222753_)))) - (_g222738222803_ - (lambda (_g222740222759_) + _g223921223934_)))) + (_g223919223984_ + (lambda (_g223921223940_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222740222759_)) - (let ((_e222745222761_ + (gx#stx-pair? _g223921223940_)) + (let ((_e223926223942_ (let () (declare (not safe)) - (gx#stx-e _g222740222759_)))) - (let ((_hd222744222764_ + (gx#stx-e _g223921223940_)))) + (let ((_hd223925223945_ (let () (declare (not safe)) - (##car _e222745222761_))) - (_tl222743222766_ + (##car _e223926223942_))) + (_tl223924223947_ (let () (declare (not safe)) - (##cdr _e222745222761_)))) + (##cdr _e223926223942_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222743222766_)) - (let ((_e222748222769_ + (gx#stx-pair? _tl223924223947_)) + (let ((_e223929223950_ (let () (declare (not safe)) - (gx#stx-e _tl222743222766_)))) - (let ((_hd222747222772_ + (gx#stx-e _tl223924223947_)))) + (let ((_hd223928223953_ (let () (declare (not safe)) - (##car _e222748222769_))) - (_tl222746222774_ + (##car _e223929223950_))) + (_tl223927223955_ (let () (declare (not safe)) - (##cdr _e222748222769_)))) + (##cdr _e223929223950_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222746222774_)) - (let ((_e222751222777_ + (gx#stx-pair? _tl223927223955_)) + (let ((_e223932223958_ (let () (declare (not safe)) - (gx#stx-e _tl222746222774_)))) - (let ((_hd222750222780_ + (gx#stx-e _tl223927223955_)))) + (let ((_hd223931223961_ (let () (declare (not safe)) - (##car _e222751222777_))) - (_tl222749222782_ + (##car _e223932223958_))) + (_tl223930223963_ (let () (declare (not safe)) - (##cdr _e222751222777_)))) + (##cdr _e223932223958_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222749222782_)) - ((lambda (_L222785_ _L222786_) - (let ((_sym222801_ + _tl223930223963_)) + ((lambda (_L223966_ _L223967_) + (let ((_sym223982_ (let () (declare (not safe)) (gxc#identifier-symbol - _L222786_)))) + _L223967_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _sym222801_)) - (let ((__tmp228713 + _sym223982_)) + (let ((__tmp229894 (gxc#current-compile-mutators))) (declare (not safe)) (table-set! - __tmp228713 - _sym222801_ + __tmp229894 + _sym223982_ '#t)) (let () (declare (not safe)) (gxc#compile-e__0 - _L222785_)))) - _hd222750222780_ - _hd222747222772_) + _L223966_)))) + _hd223931223961_ + _hd223928223953_) (let () (declare (not safe)) - (_g222739222756_ - _g222740222759_))))) + (_g223920223937_ + _g223921223940_))))) (let () (declare (not safe)) - (_g222739222756_ _g222740222759_))))) + (_g223920223937_ _g223921223940_))))) (let () (declare (not safe)) - (_g222739222756_ _g222740222759_))))) + (_g223920223937_ _g223921223940_))))) (let () (declare (not safe)) - (_g222739222756_ _g222740222759_)))))) + (_g223920223937_ _g223921223940_)))))) (declare (not safe)) - (_g222738222803_ _stx222737_)))) + (_g223919223984_ _stx223918_)))) (define gxc#collect-methods-call% - (lambda (_stx222291_) - (let* ((___stx228403228404_ _stx222291_) - (_g222295222397_ + (lambda (_stx223472_) + (let* ((___stx229584229585_ _stx223472_) + (_g223476223578_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx228403228404_))))) - (let ((___kont228405228406_ - (lambda (_L222687_ _L222688_ _L222689_ _L222690_ _L222691_) - (let ((__tmp228714 + ___stx229584229585_))))) + (let ((___kont229586229587_ + (lambda (_L223868_ _L223869_ _L223870_ _L223871_ _L223872_) + (let ((__tmp229895 (let () (declare (not safe)) - (gxc#identifier-symbol _L222688_)))) + (gxc#identifier-symbol _L223869_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp228714)))) - (___kont228407228408_ - (lambda (_L222513_ _L222514_ _L222515_ _L222516_) - (let ((__tmp228715 + (gxc#optimizer-top-level-method! __tmp229895)))) + (___kont229588229589_ + (lambda (_L223694_ _L223695_ _L223696_ _L223697_) + (let ((__tmp229896 (let () (declare (not safe)) - (gxc#identifier-symbol _L222513_)))) + (gxc#identifier-symbol _L223694_)))) (declare (not safe)) - (gxc#optimizer-top-level-method! __tmp228715)))) - (___kont228409228410_ (lambda () '#!void))) - (let ((___match228538228539_ - (lambda (_e222304222559_ - _hd222303222562_ - _tl222302222564_ - _e222307222567_ - _hd222306222570_ - _tl222305222572_ - _e222310222575_ - _hd222309222578_ - _tl222308222580_ - _e222313222583_ - _hd222312222586_ - _tl222311222588_ - _e222316222591_ - _hd222315222594_ - _tl222314222596_ - _e222319222599_ - _hd222318222602_ - _tl222317222604_ - _e222322222607_ - _hd222321222610_ - _tl222320222612_ - _e222325222615_ - _hd222324222618_ - _tl222323222620_ - _e222328222623_ - _hd222327222626_ - _tl222326222628_ - _e222331222631_ - _hd222330222634_ - _tl222329222636_ - _e222334222639_ - _hd222333222642_ - _tl222332222644_ - _e222337222647_ - _hd222336222650_ - _tl222335222652_ - _e222340222655_ - _hd222339222658_ - _tl222338222660_ - _e222343222663_ - _hd222342222666_ - _tl222341222668_ - _e222346222671_ - _hd222345222674_ - _tl222344222676_ - _e222349222679_ - _hd222348222682_ - _tl222347222684_) - (let ((_L222687_ _hd222348222682_) - (_L222688_ _hd222339222658_) - (_L222689_ _hd222330222634_) - (_L222690_ _hd222321222610_) - (_L222691_ _hd222312222586_)) + (gxc#optimizer-top-level-method! __tmp229896)))) + (___kont229590229591_ (lambda () '#!void))) + (let ((___match229719229720_ + (lambda (_e223485223740_ + _hd223484223743_ + _tl223483223745_ + _e223488223748_ + _hd223487223751_ + _tl223486223753_ + _e223491223756_ + _hd223490223759_ + _tl223489223761_ + _e223494223764_ + _hd223493223767_ + _tl223492223769_ + _e223497223772_ + _hd223496223775_ + _tl223495223777_ + _e223500223780_ + _hd223499223783_ + _tl223498223785_ + _e223503223788_ + _hd223502223791_ + _tl223501223793_ + _e223506223796_ + _hd223505223799_ + _tl223504223801_ + _e223509223804_ + _hd223508223807_ + _tl223507223809_ + _e223512223812_ + _hd223511223815_ + _tl223510223817_ + _e223515223820_ + _hd223514223823_ + _tl223513223825_ + _e223518223828_ + _hd223517223831_ + _tl223516223833_ + _e223521223836_ + _hd223520223839_ + _tl223519223841_ + _e223524223844_ + _hd223523223847_ + _tl223522223849_ + _e223527223852_ + _hd223526223855_ + _tl223525223857_ + _e223530223860_ + _hd223529223863_ + _tl223528223865_) + (let ((_L223868_ _hd223529223863_) + (_L223869_ _hd223520223839_) + (_L223870_ _hd223511223815_) + (_L223871_ _hd223502223791_) + (_L223872_ _hd223493223767_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L222691_ + _L223872_ 'bind-method!)) - (___kont228405228406_ - _L222687_ - _L222688_ - _L222689_ - _L222690_ - _L222691_) - (___kont228409228410_)))))) + (___kont229586229587_ + _L223868_ + _L223869_ + _L223870_ + _L223871_ + _L223872_) + (___kont229590229591_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx228403228404_)) - (let ((_e222304222559_ + (gx#stx-pair? ___stx229584229585_)) + (let ((_e223485223740_ (let () (declare (not safe)) - (gx#stx-e ___stx228403228404_)))) - (let ((_tl222302222564_ + (gx#stx-e ___stx229584229585_)))) + (let ((_tl223483223745_ (let () (declare (not safe)) - (##cdr _e222304222559_))) - (_hd222303222562_ + (##cdr _e223485223740_))) + (_hd223484223743_ (let () (declare (not safe)) - (##car _e222304222559_)))) + (##car _e223485223740_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222302222564_)) - (let ((_e222307222567_ + (gx#stx-pair? _tl223483223745_)) + (let ((_e223488223748_ (let () (declare (not safe)) - (gx#stx-e _tl222302222564_)))) - (let ((_tl222305222572_ + (gx#stx-e _tl223483223745_)))) + (let ((_tl223486223753_ (let () (declare (not safe)) - (##cdr _e222307222567_))) - (_hd222306222570_ + (##cdr _e223488223748_))) + (_hd223487223751_ (let () (declare (not safe)) - (##car _e222307222567_)))) + (##car _e223488223748_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222306222570_)) - (let ((_e222310222575_ + (gx#stx-pair? _hd223487223751_)) + (let ((_e223491223756_ (let () (declare (not safe)) - (gx#stx-e _hd222306222570_)))) - (let ((_tl222308222580_ + (gx#stx-e _hd223487223751_)))) + (let ((_tl223489223761_ (let () (declare (not safe)) - (##cdr _e222310222575_))) - (_hd222309222578_ + (##cdr _e223491223756_))) + (_hd223490223759_ (let () (declare (not safe)) - (##car _e222310222575_)))) + (##car _e223491223756_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222309222578_)) + (gx#identifier? _hd223490223759_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd222309222578_)) + _hd223490223759_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222308222580_)) - (let ((_e222313222583_ + _tl223489223761_)) + (let ((_e223494223764_ (let () (declare (not safe)) (gx#stx-e - _tl222308222580_)))) - (let ((_tl222311222588_ + _tl223489223761_)))) + (let ((_tl223492223769_ (let () (declare (not safe)) - (##cdr _e222313222583_))) - (_hd222312222586_ + (##cdr _e223494223764_))) + (_hd223493223767_ (let () (declare (not safe)) - (##car _e222313222583_)))) + (##car _e223494223764_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222311222588_)) + _tl223492223769_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl222305222572_)) - (let ((_e222316222591_ + (gx#stx-pair? _tl223486223753_)) + (let ((_e223497223772_ (let () (declare (not safe)) - (gx#stx-e _tl222305222572_)))) - (let ((_tl222314222596_ + (gx#stx-e _tl223486223753_)))) + (let ((_tl223495223777_ (let () (declare (not safe)) - (##cdr _e222316222591_))) - (_hd222315222594_ + (##cdr _e223497223772_))) + (_hd223496223775_ (let () (declare (not safe)) - (##car _e222316222591_)))) + (##car _e223497223772_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222315222594_)) - (let ((_e222319222599_ + (gx#stx-pair? _hd223496223775_)) + (let ((_e223500223780_ (let () (declare (not safe)) - (gx#stx-e _hd222315222594_)))) - (let ((_tl222317222604_ + (gx#stx-e _hd223496223775_)))) + (let ((_tl223498223785_ (let () (declare (not safe)) - (##cdr _e222319222599_))) - (_hd222318222602_ + (##cdr _e223500223780_))) + (_hd223499223783_ (let () (declare (not safe)) - (##car _e222319222599_)))) + (##car _e223500223780_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222318222602_)) + (gx#identifier? _hd223499223783_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd222318222602_)) + _hd223499223783_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222317222604_)) - (let ((_e222322222607_ + _tl223498223785_)) + (let ((_e223503223788_ (let () (declare (not safe)) (gx#stx-e - _tl222317222604_)))) - (let ((_tl222320222612_ + _tl223498223785_)))) + (let ((_tl223501223793_ (let () (declare (not safe)) - (##cdr _e222322222607_))) - (_hd222321222610_ + (##cdr _e223503223788_))) + (_hd223502223791_ (let () (declare (not safe)) - (##car _e222322222607_)))) + (##car _e223503223788_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222320222612_)) + _tl223501223793_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222314222596_)) - (let ((_e222325222615_ + _tl223495223777_)) + (let ((_e223506223796_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl222314222596_)))) - (let ((_tl222323222620_ + (gx#stx-e _tl223495223777_)))) + (let ((_tl223504223801_ (let () (declare (not safe)) - (##cdr _e222325222615_))) - (_hd222324222618_ + (##cdr _e223506223796_))) + (_hd223505223799_ (let () (declare (not safe)) - (##car _e222325222615_)))) + (##car _e223506223796_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222324222618_)) - (let ((_e222328222623_ + (gx#stx-pair? _hd223505223799_)) + (let ((_e223509223804_ (let () (declare (not safe)) - (gx#stx-e _hd222324222618_)))) - (let ((_tl222326222628_ + (gx#stx-e _hd223505223799_)))) + (let ((_tl223507223809_ (let () (declare (not safe)) - (##cdr _e222328222623_))) - (_hd222327222626_ + (##cdr _e223509223804_))) + (_hd223508223807_ (let () (declare (not safe)) - (##car _e222328222623_)))) + (##car _e223509223804_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222327222626_)) + (gx#identifier? _hd223508223807_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd222327222626_)) + (gx#stx-eq? '%#quote _hd223508223807_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222326222628_)) - (let ((_e222331222631_ + (gx#stx-pair? _tl223507223809_)) + (let ((_e223512223812_ (let () (declare (not safe)) (gx#stx-e - _tl222326222628_)))) - (let ((_tl222329222636_ + _tl223507223809_)))) + (let ((_tl223510223817_ (let () (declare (not safe)) - (##cdr _e222331222631_))) - (_hd222330222634_ + (##cdr _e223512223812_))) + (_hd223511223815_ (let () (declare (not safe)) - (##car _e222331222631_)))) + (##car _e223512223812_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222329222636_)) + _tl223510223817_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222323222620_)) - (let ((_e222334222639_ + _tl223504223801_)) + (let ((_e223515223820_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl222323222620_)))) - (let ((_tl222332222644_ - (let () (declare (not safe)) (##cdr _e222334222639_))) - (_hd222333222642_ - (let () (declare (not safe)) (##car _e222334222639_)))) + (gx#stx-e _tl223504223801_)))) + (let ((_tl223513223825_ + (let () (declare (not safe)) (##cdr _e223515223820_))) + (_hd223514223823_ + (let () (declare (not safe)) (##car _e223515223820_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd222333222642_)) - (let ((_e222337222647_ + (gx#stx-pair? _hd223514223823_)) + (let ((_e223518223828_ (let () (declare (not safe)) - (gx#stx-e _hd222333222642_)))) - (let ((_tl222335222652_ + (gx#stx-e _hd223514223823_)))) + (let ((_tl223516223833_ (let () (declare (not safe)) - (##cdr _e222337222647_))) - (_hd222336222650_ + (##cdr _e223518223828_))) + (_hd223517223831_ (let () (declare (not safe)) - (##car _e222337222647_)))) + (##car _e223518223828_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222336222650_)) + (gx#identifier? _hd223517223831_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd222336222650_)) + (gx#stx-eq? '%#ref _hd223517223831_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222335222652_)) - (let ((_e222340222655_ + (gx#stx-pair? _tl223516223833_)) + (let ((_e223521223836_ (let () (declare (not safe)) - (gx#stx-e _tl222335222652_)))) - (let ((_tl222338222660_ + (gx#stx-e _tl223516223833_)))) + (let ((_tl223519223841_ (let () (declare (not safe)) - (##cdr _e222340222655_))) - (_hd222339222658_ + (##cdr _e223521223836_))) + (_hd223520223839_ (let () (declare (not safe)) - (##car _e222340222655_)))) + (##car _e223521223836_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222338222660_)) + _tl223519223841_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl222332222644_)) - (let ((_e222343222663_ + _tl223513223825_)) + (let ((_e223524223844_ (let () (declare (not safe)) (gx#stx-e - _tl222332222644_)))) - (let ((_tl222341222668_ + _tl223513223825_)))) + (let ((_tl223522223849_ (let () (declare (not safe)) - (##cdr _e222343222663_))) - (_hd222342222666_ + (##cdr _e223524223844_))) + (_hd223523223847_ (let () (declare (not safe)) - (##car _e222343222663_)))) + (##car _e223524223844_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd222342222666_)) - (let ((_e222346222671_ + _hd223523223847_)) + (let ((_e223527223852_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd222342222666_)))) - (let ((_tl222344222676_ + (gx#stx-e _hd223523223847_)))) + (let ((_tl223525223857_ (let () (declare (not safe)) - (##cdr _e222346222671_))) - (_hd222345222674_ + (##cdr _e223527223852_))) + (_hd223526223855_ (let () (declare (not safe)) - (##car _e222346222671_)))) + (##car _e223527223852_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd222345222674_)) + (gx#identifier? _hd223526223855_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd222345222674_)) + (gx#stx-eq? '%#quote _hd223526223855_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222344222676_)) - (let ((_e222349222679_ + (gx#stx-pair? _tl223525223857_)) + (let ((_e223530223860_ (let () (declare (not safe)) - (gx#stx-e _tl222344222676_)))) - (let ((_tl222347222684_ + (gx#stx-e _tl223525223857_)))) + (let ((_tl223528223865_ (let () (declare (not safe)) - (##cdr _e222349222679_))) - (_hd222348222682_ + (##cdr _e223530223860_))) + (_hd223529223863_ (let () (declare (not safe)) - (##car _e222349222679_)))) + (##car _e223530223860_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222347222684_)) + (gx#stx-null? _tl223528223865_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl222341222668_)) - (___match228538228539_ - _e222304222559_ - _hd222303222562_ - _tl222302222564_ - _e222307222567_ - _hd222306222570_ - _tl222305222572_ - _e222310222575_ - _hd222309222578_ - _tl222308222580_ - _e222313222583_ - _hd222312222586_ - _tl222311222588_ - _e222316222591_ - _hd222315222594_ - _tl222314222596_ - _e222319222599_ - _hd222318222602_ - _tl222317222604_ - _e222322222607_ - _hd222321222610_ - _tl222320222612_ - _e222325222615_ - _hd222324222618_ - _tl222323222620_ - _e222328222623_ - _hd222327222626_ - _tl222326222628_ - _e222331222631_ - _hd222330222634_ - _tl222329222636_ - _e222334222639_ - _hd222333222642_ - _tl222332222644_ - _e222337222647_ - _hd222336222650_ - _tl222335222652_ - _e222340222655_ - _hd222339222658_ - _tl222338222660_ - _e222343222663_ - _hd222342222666_ - _tl222341222668_ - _e222346222671_ - _hd222345222674_ - _tl222344222676_ - _e222349222679_ - _hd222348222682_ - _tl222347222684_) - (___kont228409228410_)) - (___kont228409228410_)))) - (___kont228409228410_)) - (___kont228409228410_)) - (___kont228409228410_)))) - (___kont228409228410_)))) + _tl223522223849_)) + (___match229719229720_ + _e223485223740_ + _hd223484223743_ + _tl223483223745_ + _e223488223748_ + _hd223487223751_ + _tl223486223753_ + _e223491223756_ + _hd223490223759_ + _tl223489223761_ + _e223494223764_ + _hd223493223767_ + _tl223492223769_ + _e223497223772_ + _hd223496223775_ + _tl223495223777_ + _e223500223780_ + _hd223499223783_ + _tl223498223785_ + _e223503223788_ + _hd223502223791_ + _tl223501223793_ + _e223506223796_ + _hd223505223799_ + _tl223504223801_ + _e223509223804_ + _hd223508223807_ + _tl223507223809_ + _e223512223812_ + _hd223511223815_ + _tl223510223817_ + _e223515223820_ + _hd223514223823_ + _tl223513223825_ + _e223518223828_ + _hd223517223831_ + _tl223516223833_ + _e223521223836_ + _hd223520223839_ + _tl223519223841_ + _e223524223844_ + _hd223523223847_ + _tl223522223849_ + _e223527223852_ + _hd223526223855_ + _tl223525223857_ + _e223530223860_ + _hd223529223863_ + _tl223528223865_) + (___kont229590229591_)) + (___kont229590229591_)))) + (___kont229590229591_)) + (___kont229590229591_)) + (___kont229590229591_)))) + (___kont229590229591_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl222332222644_)) - (if (let ((__tmp228716 + _tl223513223825_)) + (if (let ((__tmp229897 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp228716 'bind-method!)) - (let ((_L222513_ _hd222339222658_) - (_L222514_ _hd222330222634_) - (_L222515_ _hd222321222610_) - (_L222516_ _hd222312222586_)) - (___kont228407228408_ - _L222513_ - _L222514_ - _L222515_ - _L222516_)) - (___kont228409228410_)) - (___kont228409228410_))) + (gxc#runtime-identifier=? __tmp229897 'bind-method!)) + (let ((_L223694_ _hd223520223839_) + (_L223695_ _hd223511223815_) + (_L223696_ _hd223502223791_) + (_L223697_ _hd223493223767_)) + (___kont229588229589_ + _L223694_ + _L223695_ + _L223696_ + _L223697_)) + (___kont229590229591_)) + (___kont229590229591_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont228409228410_)))) - (___kont228409228410_)) - (___kont228409228410_)) - (___kont228409228410_)))) - (___kont228409228410_)))) - (___kont228409228410_)) + (___kont229590229591_)))) + (___kont229590229591_)) + (___kont229590229591_)) + (___kont229590229591_)))) + (___kont229590229591_)))) + (___kont229590229591_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont228409228410_)))) - (___kont228409228410_)) - (___kont228409228410_)) - (___kont228409228410_)))) - (___kont228409228410_)))) - (___kont228409228410_)) - (___kont228409228410_)))) + (___kont229590229591_)))) + (___kont229590229591_)) + (___kont229590229591_)) + (___kont229590229591_)))) + (___kont229590229591_)))) + (___kont229590229591_)) + (___kont229590229591_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont228409228410_)) - (___kont228409228410_)) - (___kont228409228410_)))) - (___kont228409228410_)))) - (___kont228409228410_)) - (___kont228409228410_)))) + (___kont229590229591_)) + (___kont229590229591_)) + (___kont229590229591_)))) + (___kont229590229591_)))) + (___kont229590229591_)) + (___kont229590229591_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont228409228410_)) - (___kont228409228410_)) - (___kont228409228410_)))) - (___kont228409228410_)))) - (___kont228409228410_)))) - (___kont228409228410_))))))) + (___kont229590229591_)) + (___kont229590229591_)) + (___kont229590229591_)))) + (___kont229590229591_)))) + (___kont229590229591_)))) + (___kont229590229591_))))))) (define gxc#expression-subst-ref% - (lambda (_stx222238_ _id222239_ _new-id222240_) - (let* ((_g222242222255_ - (lambda (_g222243222252_) + (lambda (_stx223419_ _id223420_ _new-id223421_) + (let* ((_g223423223436_ + (lambda (_g223424223433_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222243222252_)))) - (_g222241222288_ - (lambda (_g222243222258_) + _g223424223433_)))) + (_g223422223469_ + (lambda (_g223424223439_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222243222258_)) - (let ((_e222247222260_ + (gx#stx-pair? _g223424223439_)) + (let ((_e223428223441_ (let () (declare (not safe)) - (gx#stx-e _g222243222258_)))) - (let ((_hd222246222263_ + (gx#stx-e _g223424223439_)))) + (let ((_hd223427223444_ (let () (declare (not safe)) - (##car _e222247222260_))) - (_tl222245222265_ + (##car _e223428223441_))) + (_tl223426223446_ (let () (declare (not safe)) - (##cdr _e222247222260_)))) + (##cdr _e223428223441_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222245222265_)) - (let ((_e222250222268_ + (gx#stx-pair? _tl223426223446_)) + (let ((_e223431223449_ (let () (declare (not safe)) - (gx#stx-e _tl222245222265_)))) - (let ((_hd222249222271_ + (gx#stx-e _tl223426223446_)))) + (let ((_hd223430223452_ (let () (declare (not safe)) - (##car _e222250222268_))) - (_tl222248222273_ + (##car _e223431223449_))) + (_tl223429223454_ (let () (declare (not safe)) - (##cdr _e222250222268_)))) + (##cdr _e223431223449_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222248222273_)) - ((lambda (_L222276_) + (gx#stx-null? _tl223429223454_)) + ((lambda (_L223457_) (if (let () (declare (not safe)) (gx#free-identifier=? - _L222276_ - _id222239_)) - (let ((__tmp228717 - (let ((__tmp228718 + _L223457_ + _id223420_)) + (let ((__tmp229898 + (let ((__tmp229899 (let () (declare (not safe)) - (cons _new-id222240_ + (cons _new-id223421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons '%#ref __tmp228718)))) + (cons '%#ref __tmp229899)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp228717 - _stx222238_)) - _stx222238_)) - _hd222249222271_) + __tmp229898 + _stx223419_)) + _stx223419_)) + _hd223430223452_) (let () (declare (not safe)) - (_g222242222255_ _g222243222258_))))) + (_g223423223436_ _g223424223439_))))) (let () (declare (not safe)) - (_g222242222255_ _g222243222258_))))) + (_g223423223436_ _g223424223439_))))) (let () (declare (not safe)) - (_g222242222255_ _g222243222258_)))))) + (_g223423223436_ _g223424223439_)))))) (declare (not safe)) - (_g222241222288_ _stx222238_)))) + (_g223422223469_ _stx223419_)))) (define gxc#expression-subst*-ref% - (lambda (_stx222179_ _subst222180_) - (let* ((_g222182222195_ - (lambda (_g222183222192_) + (lambda (_stx223360_ _subst223361_) + (let* ((_g223363223376_ + (lambda (_g223364223373_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222183222192_)))) - (_g222181222235_ - (lambda (_g222183222198_) + _g223364223373_)))) + (_g223362223416_ + (lambda (_g223364223379_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222183222198_)) - (let ((_e222187222200_ + (gx#stx-pair? _g223364223379_)) + (let ((_e223368223381_ (let () (declare (not safe)) - (gx#stx-e _g222183222198_)))) - (let ((_hd222186222203_ + (gx#stx-e _g223364223379_)))) + (let ((_hd223367223384_ (let () (declare (not safe)) - (##car _e222187222200_))) - (_tl222185222205_ + (##car _e223368223381_))) + (_tl223366223386_ (let () (declare (not safe)) - (##cdr _e222187222200_)))) + (##cdr _e223368223381_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222185222205_)) - (let ((_e222190222208_ + (gx#stx-pair? _tl223366223386_)) + (let ((_e223371223389_ (let () (declare (not safe)) - (gx#stx-e _tl222185222205_)))) - (let ((_hd222189222211_ + (gx#stx-e _tl223366223386_)))) + (let ((_hd223370223392_ (let () (declare (not safe)) - (##car _e222190222208_))) - (_tl222188222213_ + (##car _e223371223389_))) + (_tl223369223394_ (let () (declare (not safe)) - (##cdr _e222190222208_)))) + (##cdr _e223371223389_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl222188222213_)) - ((lambda (_L222216_) - (let ((_$e222230_ - (let ((__tmp228719 - (lambda (_sub222228_) - (let ((__tmp228720 - (car _sub222228_))) + (gx#stx-null? _tl223369223394_)) + ((lambda (_L223397_) + (let ((_$e223411_ + (let ((__tmp229900 + (lambda (_sub223409_) + (let ((__tmp229901 + (car _sub223409_))) (declare (not safe)) (gx#free-identifier=? - _L222216_ - __tmp228720))))) + _L223397_ + __tmp229901))))) (declare (not safe)) - (find __tmp228719 - _subst222180_)))) - (if _$e222230_ - ((lambda (_sub222233_) - (let ((__tmp228721 - (let ((__tmp228722 - (let ((__tmp228723 + (find __tmp229900 + _subst223361_)))) + (if _$e223411_ + ((lambda (_sub223414_) + (let ((__tmp229902 + (let ((__tmp229903 + (let ((__tmp229904 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _sub222233_))) + (cdr _sub223414_))) (declare (not safe)) - (cons __tmp228723 '())))) + (cons __tmp229904 '())))) (declare (not safe)) - (cons '%#ref __tmp228722)))) + (cons '%#ref __tmp229903)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp228721 - _stx222179_))) - _$e222230_) - _stx222179_))) - _hd222189222211_) + __tmp229902 + _stx223360_))) + _$e223411_) + _stx223360_))) + _hd223370223392_) (let () (declare (not safe)) - (_g222182222195_ _g222183222198_))))) + (_g223363223376_ _g223364223379_))))) (let () (declare (not safe)) - (_g222182222195_ _g222183222198_))))) + (_g223363223376_ _g223364223379_))))) (let () (declare (not safe)) - (_g222182222195_ _g222183222198_)))))) + (_g223363223376_ _g223364223379_)))))) (declare (not safe)) - (_g222181222235_ _stx222179_)))) + (_g223362223416_ _stx223360_)))) (define gxc#expression-subst-setq% - (lambda (_stx222107_ _id222108_ _new-id222109_) - (let* ((_g222111222128_ - (lambda (_g222112222125_) + (lambda (_stx223288_ _id223289_ _new-id223290_) + (let* ((_g223292223309_ + (lambda (_g223293223306_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222112222125_)))) - (_g222110222176_ - (lambda (_g222112222131_) + _g223293223306_)))) + (_g223291223357_ + (lambda (_g223293223312_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222112222131_)) - (let ((_e222117222133_ + (gx#stx-pair? _g223293223312_)) + (let ((_e223298223314_ (let () (declare (not safe)) - (gx#stx-e _g222112222131_)))) - (let ((_hd222116222136_ + (gx#stx-e _g223293223312_)))) + (let ((_hd223297223317_ (let () (declare (not safe)) - (##car _e222117222133_))) - (_tl222115222138_ + (##car _e223298223314_))) + (_tl223296223319_ (let () (declare (not safe)) - (##cdr _e222117222133_)))) + (##cdr _e223298223314_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222115222138_)) - (let ((_e222120222141_ + (gx#stx-pair? _tl223296223319_)) + (let ((_e223301223322_ (let () (declare (not safe)) - (gx#stx-e _tl222115222138_)))) - (let ((_hd222119222144_ + (gx#stx-e _tl223296223319_)))) + (let ((_hd223300223325_ (let () (declare (not safe)) - (##car _e222120222141_))) - (_tl222118222146_ + (##car _e223301223322_))) + (_tl223299223327_ (let () (declare (not safe)) - (##cdr _e222120222141_)))) + (##cdr _e223301223322_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222118222146_)) - (let ((_e222123222149_ + (gx#stx-pair? _tl223299223327_)) + (let ((_e223304223330_ (let () (declare (not safe)) - (gx#stx-e _tl222118222146_)))) - (let ((_hd222122222152_ + (gx#stx-e _tl223299223327_)))) + (let ((_hd223303223333_ (let () (declare (not safe)) - (##car _e222123222149_))) - (_tl222121222154_ + (##car _e223304223330_))) + (_tl223302223335_ (let () (declare (not safe)) - (##cdr _e222123222149_)))) + (##cdr _e223304223330_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222121222154_)) - ((lambda (_L222157_ _L222158_) - (let ((_new-expr222173_ + _tl223302223335_)) + ((lambda (_L223338_ _L223339_) + (let ((_new-expr223354_ (let () (declare (not safe)) (gxc#compile-e__2 - _L222157_ - _id222108_ - _new-id222109_))) - (_new-xid222174_ + _L223338_ + _id223289_ + _new-id223290_))) + (_new-xid223355_ (if (let () (declare (not safe)) (gx#free-identifier=? - _L222158_ - _id222108_)) - _new-id222109_ - _L222158_))) - (let ((__tmp228724 - (let ((__tmp228725 + _L223339_ + _id223289_)) + _new-id223290_ + _L223339_))) + (let ((__tmp229905 + (let ((__tmp229906 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp228726 + (let ((__tmp229907 (let () (declare (not safe)) - (cons _new-expr222173_ '())))) + (cons _new-expr223354_ '())))) (declare (not safe)) - (cons _new-xid222174_ __tmp228726)))) + (cons _new-xid223355_ __tmp229907)))) (declare (not safe)) - (cons '%#set! __tmp228725)))) + (cons '%#set! __tmp229906)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp228724 - _stx222107_)))) - _hd222122222152_ - _hd222119222144_) + __tmp229905 + _stx223288_)))) + _hd223303223333_ + _hd223300223325_) (let () (declare (not safe)) - (_g222111222128_ - _g222112222131_))))) + (_g223292223309_ + _g223293223312_))))) (let () (declare (not safe)) - (_g222111222128_ _g222112222131_))))) + (_g223292223309_ _g223293223312_))))) (let () (declare (not safe)) - (_g222111222128_ _g222112222131_))))) + (_g223292223309_ _g223293223312_))))) (let () (declare (not safe)) - (_g222111222128_ _g222112222131_)))))) + (_g223292223309_ _g223293223312_)))))) (declare (not safe)) - (_g222110222176_ _stx222107_)))) + (_g223291223357_ _stx223288_)))) (define gxc#expression-subst*-setq% - (lambda (_stx222031_ _subst222032_) - (let* ((_g222034222051_ - (lambda (_g222035222048_) + (lambda (_stx223212_ _subst223213_) + (let* ((_g223215223232_ + (lambda (_g223216223229_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g222035222048_)))) - (_g222033222104_ - (lambda (_g222035222054_) + _g223216223229_)))) + (_g223214223285_ + (lambda (_g223216223235_) (if (let () (declare (not safe)) - (gx#stx-pair? _g222035222054_)) - (let ((_e222040222056_ + (gx#stx-pair? _g223216223235_)) + (let ((_e223221223237_ (let () (declare (not safe)) - (gx#stx-e _g222035222054_)))) - (let ((_hd222039222059_ + (gx#stx-e _g223216223235_)))) + (let ((_hd223220223240_ (let () (declare (not safe)) - (##car _e222040222056_))) - (_tl222038222061_ + (##car _e223221223237_))) + (_tl223219223242_ (let () (declare (not safe)) - (##cdr _e222040222056_)))) + (##cdr _e223221223237_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222038222061_)) - (let ((_e222043222064_ + (gx#stx-pair? _tl223219223242_)) + (let ((_e223224223245_ (let () (declare (not safe)) - (gx#stx-e _tl222038222061_)))) - (let ((_hd222042222067_ + (gx#stx-e _tl223219223242_)))) + (let ((_hd223223223248_ (let () (declare (not safe)) - (##car _e222043222064_))) - (_tl222041222069_ + (##car _e223224223245_))) + (_tl223222223250_ (let () (declare (not safe)) - (##cdr _e222043222064_)))) + (##cdr _e223224223245_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl222041222069_)) - (let ((_e222046222072_ + (gx#stx-pair? _tl223222223250_)) + (let ((_e223227223253_ (let () (declare (not safe)) - (gx#stx-e _tl222041222069_)))) - (let ((_hd222045222075_ + (gx#stx-e _tl223222223250_)))) + (let ((_hd223226223256_ (let () (declare (not safe)) - (##car _e222046222072_))) - (_tl222044222077_ + (##car _e223227223253_))) + (_tl223225223258_ (let () (declare (not safe)) - (##cdr _e222046222072_)))) + (##cdr _e223227223253_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl222044222077_)) - ((lambda (_L222080_ _L222081_) - (let ((_new-expr222101_ + _tl223225223258_)) + ((lambda (_L223261_ _L223262_) + (let ((_new-expr223282_ (let () (declare (not safe)) (gxc#compile-e__1 - _L222080_ - _subst222032_))) - (_new-xid222102_ - (let ((_$e222098_ - (let ((__tmp228727 + _L223261_ + _subst223213_))) + (_new-xid223283_ + (let ((_$e223279_ + (let ((__tmp229908 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_sub222096_) - (let ((__tmp228728 (car _sub222096_))) + (lambda (_sub223277_) + (let ((__tmp229909 (car _sub223277_))) (declare (not safe)) (gx#free-identifier=? - _L222081_ - __tmp228728))))) + _L223262_ + __tmp229909))))) (declare (not safe)) - (find __tmp228727 _subst222032_)))) - (if _$e222098_ (cdr _$e222098_) _L222081_)))) + (find __tmp229908 _subst223213_)))) + (if _$e223279_ (cdr _$e223279_) _L223262_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp228729 - (let ((__tmp228730 + (let ((__tmp229910 + (let ((__tmp229911 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp228731 + (let ((__tmp229912 (let () (declare (not safe)) - (cons _new-expr222101_ '())))) + (cons _new-expr223282_ '())))) (declare (not safe)) - (cons _new-xid222102_ __tmp228731)))) + (cons _new-xid223283_ __tmp229912)))) (declare (not safe)) - (cons '%#set! __tmp228730)))) + (cons '%#set! __tmp229911)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp228729 - _stx222031_)))) - _hd222045222075_ - _hd222042222067_) + __tmp229910 + _stx223212_)))) + _hd223226223256_ + _hd223223223248_) (let () (declare (not safe)) - (_g222034222051_ - _g222035222054_))))) + (_g223215223232_ + _g223216223235_))))) (let () (declare (not safe)) - (_g222034222051_ _g222035222054_))))) + (_g223215223232_ _g223216223235_))))) (let () (declare (not safe)) - (_g222034222051_ _g222035222054_))))) + (_g223215223232_ _g223216223235_))))) (let () (declare (not safe)) - (_g222034222051_ _g222035222054_)))))) + (_g223215223232_ _g223216223235_)))))) (declare (not safe)) - (_g222033222104_ _stx222031_)))) + (_g223214223285_ _stx223212_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_stx221977_ _ht221978_) - (let* ((_g221980221993_ - (lambda (_g221981221990_) + (lambda (_stx223158_ _ht223159_) + (let* ((_g223161223174_ + (lambda (_g223162223171_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221981221990_)))) - (_g221979222028_ - (lambda (_g221981221996_) + _g223162223171_)))) + (_g223160223209_ + (lambda (_g223162223177_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221981221996_)) - (let ((_e221985221998_ + (gx#stx-pair? _g223162223177_)) + (let ((_e223166223179_ (let () (declare (not safe)) - (gx#stx-e _g221981221996_)))) - (let ((_hd221984222001_ + (gx#stx-e _g223162223177_)))) + (let ((_hd223165223182_ (let () (declare (not safe)) - (##car _e221985221998_))) - (_tl221983222003_ + (##car _e223166223179_))) + (_tl223164223184_ (let () (declare (not safe)) - (##cdr _e221985221998_)))) + (##cdr _e223166223179_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221983222003_)) - (let ((_e221988222006_ + (gx#stx-pair? _tl223164223184_)) + (let ((_e223169223187_ (let () (declare (not safe)) - (gx#stx-e _tl221983222003_)))) - (let ((_hd221987222009_ + (gx#stx-e _tl223164223184_)))) + (let ((_hd223168223190_ (let () (declare (not safe)) - (##car _e221988222006_))) - (_tl221986222011_ + (##car _e223169223187_))) + (_tl223167223192_ (let () (declare (not safe)) - (##cdr _e221988222006_)))) + (##cdr _e223169223187_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221986222011_)) - ((lambda (_L222014_) - (let ((_eid222026_ + (gx#stx-null? _tl223167223192_)) + ((lambda (_L223195_) + (let ((_eid223207_ (let () (declare (not safe)) (gxc#identifier-symbol - _L222014_)))) + _L223195_)))) (declare (not safe)) (hash-update! - _ht221978_ - _eid222026_ + _ht223159_ + _eid223207_ 1+ '0))) - _hd221987222009_) + _hd223168223190_) (let () (declare (not safe)) - (_g221980221993_ _g221981221996_))))) + (_g223161223174_ _g223162223177_))))) (let () (declare (not safe)) - (_g221980221993_ _g221981221996_))))) + (_g223161223174_ _g223162223177_))))) (let () (declare (not safe)) - (_g221980221993_ _g221981221996_)))))) + (_g223161223174_ _g223162223177_)))))) (declare (not safe)) - (_g221979222028_ _stx221977_)))) + (_g223160223209_ _stx223158_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_stx221907_ _ht221908_) - (let* ((_g221910221927_ - (lambda (_g221911221924_) + (lambda (_stx223088_ _ht223089_) + (let* ((_g223091223108_ + (lambda (_g223092223105_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221911221924_)))) - (_g221909221974_ - (lambda (_g221911221930_) + _g223092223105_)))) + (_g223090223155_ + (lambda (_g223092223111_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221911221930_)) - (let ((_e221916221932_ + (gx#stx-pair? _g223092223111_)) + (let ((_e223097223113_ (let () (declare (not safe)) - (gx#stx-e _g221911221930_)))) - (let ((_hd221915221935_ + (gx#stx-e _g223092223111_)))) + (let ((_hd223096223116_ (let () (declare (not safe)) - (##car _e221916221932_))) - (_tl221914221937_ + (##car _e223097223113_))) + (_tl223095223118_ (let () (declare (not safe)) - (##cdr _e221916221932_)))) + (##cdr _e223097223113_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221914221937_)) - (let ((_e221919221940_ + (gx#stx-pair? _tl223095223118_)) + (let ((_e223100223121_ (let () (declare (not safe)) - (gx#stx-e _tl221914221937_)))) - (let ((_hd221918221943_ + (gx#stx-e _tl223095223118_)))) + (let ((_hd223099223124_ (let () (declare (not safe)) - (##car _e221919221940_))) - (_tl221917221945_ + (##car _e223100223121_))) + (_tl223098223126_ (let () (declare (not safe)) - (##cdr _e221919221940_)))) + (##cdr _e223100223121_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221917221945_)) - (let ((_e221922221948_ + (gx#stx-pair? _tl223098223126_)) + (let ((_e223103223129_ (let () (declare (not safe)) - (gx#stx-e _tl221917221945_)))) - (let ((_hd221921221951_ + (gx#stx-e _tl223098223126_)))) + (let ((_hd223102223132_ (let () (declare (not safe)) - (##car _e221922221948_))) - (_tl221920221953_ + (##car _e223103223129_))) + (_tl223101223134_ (let () (declare (not safe)) - (##cdr _e221922221948_)))) + (##cdr _e223103223129_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221920221953_)) - ((lambda (_L221956_ _L221957_) - (let ((_eid221972_ + _tl223101223134_)) + ((lambda (_L223137_ _L223138_) + (let ((_eid223153_ (let () (declare (not safe)) (gxc#identifier-symbol - _L221957_)))) + _L223138_)))) (let () (declare (not safe)) (hash-update! - _ht221908_ - _eid221972_ + _ht223089_ + _eid223153_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _L221956_ - _ht221908_)))) - _hd221921221951_ - _hd221918221943_) + _L223137_ + _ht223089_)))) + _hd223102223132_ + _hd223099223124_) (let () (declare (not safe)) - (_g221910221927_ - _g221911221930_))))) + (_g223091223108_ + _g223092223111_))))) (let () (declare (not safe)) - (_g221910221927_ _g221911221930_))))) + (_g223091223108_ _g223092223111_))))) (let () (declare (not safe)) - (_g221910221927_ _g221911221930_))))) + (_g223091223108_ _g223092223111_))))) (let () (declare (not safe)) - (_g221910221927_ _g221911221930_)))))) + (_g223091223108_ _g223092223111_)))))) (declare (not safe)) - (_g221909221974_ _stx221907_)))) + (_g223090223155_ _stx223088_)))) (define gxc#find-body% - (lambda (_stx221820_ _arg221821_) - (let* ((_g221823221842_ - (lambda (_g221824221839_) + (lambda (_stx223001_ _arg223002_) + (let* ((_g223004223023_ + (lambda (_g223005223020_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221824221839_)))) - (_g221822221904_ - (lambda (_g221824221845_) + _g223005223020_)))) + (_g223003223085_ + (lambda (_g223005223026_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221824221845_)) - (let ((_e221828221847_ + (gx#stx-pair? _g223005223026_)) + (let ((_e223009223028_ (let () (declare (not safe)) - (gx#stx-e _g221824221845_)))) - (let ((_hd221827221850_ + (gx#stx-e _g223005223026_)))) + (let ((_hd223008223031_ (let () (declare (not safe)) - (##car _e221828221847_))) - (_tl221826221852_ + (##car _e223009223028_))) + (_tl223007223033_ (let () (declare (not safe)) - (##cdr _e221828221847_)))) + (##cdr _e223009223028_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl221826221852_)) - (let ((_g228732_ + (gx#stx-pair/null? _tl223007223033_)) + (let ((_g229913_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl221826221852_ + _tl223007223033_ '0)))) (begin - (let ((_g228733_ + (let ((_g229914_ (let () (declare (not safe)) - (if (##values? _g228732_) - (##vector-length _g228732_) + (if (##values? _g229913_) + (##vector-length _g229913_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g228733_ 2))) + (##fx= _g229914_ 2))) (error "Context expects 2 values" - _g228733_))) - (let ((_target221829221855_ + _g229914_))) + (let ((_target223010223036_ (let () (declare (not safe)) - (##vector-ref _g228732_ 0))) - (_tl221831221857_ + (##vector-ref _g229913_ 0))) + (_tl223012223038_ (let () (declare (not safe)) - (##vector-ref _g228732_ 1)))) + (##vector-ref _g229913_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221831221857_)) - (letrec ((_loop221832221860_ - (lambda (_hd221830221863_ - _expr221836221865_) + (gx#stx-null? _tl223012223038_)) + (letrec ((_loop223013223041_ + (lambda (_hd223011223044_ + _expr223017223046_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221830221863_)) - (let ((_e221833221868_ + _hd223011223044_)) + (let ((_e223014223049_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd221830221863_)))) - (let ((_lp-hd221834221871_ - (let () (declare (not safe)) (##car _e221833221868_))) - (_lp-tl221835221873_ + (gx#stx-e _hd223011223044_)))) + (let ((_lp-hd223015223052_ + (let () (declare (not safe)) (##car _e223014223049_))) + (_lp-tl223016223054_ (let () (declare (not safe)) - (##cdr _e221833221868_)))) - (let ((__tmp228737 + (##cdr _e223014223049_)))) + (let ((__tmp229918 (let () (declare (not safe)) - (cons _lp-hd221834221871_ _expr221836221865_)))) + (cons _lp-hd223015223052_ _expr223017223046_)))) (declare (not safe)) - (_loop221832221860_ _lp-tl221835221873_ __tmp228737)))) - (let ((_expr221837221876_ (reverse _expr221836221865_))) - ((lambda (_L221879_) - (let ((__tmp228736 - (lambda (_g221892221894_) + (_loop223013223041_ _lp-tl223016223054_ __tmp229918)))) + (let ((_expr223018223057_ (reverse _expr223017223046_))) + ((lambda (_L223060_) + (let ((__tmp229917 + (lambda (_g223073223075_) (let () (declare (not safe)) (gxc#compile-e__1 - _g221892221894_ - _arg221821_)))) - (__tmp228734 - (let ((__tmp228735 - (lambda (_g221896221899_ _g221897221901_) + _g223073223075_ + _arg223002_)))) + (__tmp229915 + (let ((__tmp229916 + (lambda (_g223077223080_ _g223078223082_) (let () (declare (not safe)) - (cons _g221896221899_ - _g221897221901_))))) + (cons _g223077223080_ + _g223078223082_))))) (declare (not safe)) - (foldr1 __tmp228735 '() _L221879_)))) + (foldr1 __tmp229916 '() _L223060_)))) (declare (not safe)) - (ormap1 __tmp228736 __tmp228734))) - _expr221837221876_)))))) + (ormap1 __tmp229917 __tmp229915))) + _expr223018223057_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop221832221860_ - _target221829221855_ + (_loop223013223041_ + _target223010223036_ '()))) (let () (declare (not safe)) - (_g221823221842_ - _g221824221845_)))))) + (_g223004223023_ + _g223005223026_)))))) (let () (declare (not safe)) - (_g221823221842_ _g221824221845_))))) + (_g223004223023_ _g223005223026_))))) (let () (declare (not safe)) - (_g221823221842_ _g221824221845_)))))) + (_g223004223023_ _g223005223026_)))))) (declare (not safe)) - (_g221822221904_ _stx221820_)))) + (_g223003223085_ _stx223001_)))) (define gxc#find-begin-annotation% - (lambda (_stx221752_ _arg221753_) - (let* ((_g221755221772_ - (lambda (_g221756221769_) + (lambda (_stx222933_ _arg222934_) + (let* ((_g222936222953_ + (lambda (_g222937222950_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221756221769_)))) - (_g221754221817_ - (lambda (_g221756221775_) + _g222937222950_)))) + (_g222935222998_ + (lambda (_g222937222956_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221756221775_)) - (let ((_e221761221777_ + (gx#stx-pair? _g222937222956_)) + (let ((_e222942222958_ (let () (declare (not safe)) - (gx#stx-e _g221756221775_)))) - (let ((_hd221760221780_ + (gx#stx-e _g222937222956_)))) + (let ((_hd222941222961_ (let () (declare (not safe)) - (##car _e221761221777_))) - (_tl221759221782_ + (##car _e222942222958_))) + (_tl222940222963_ (let () (declare (not safe)) - (##cdr _e221761221777_)))) + (##cdr _e222942222958_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221759221782_)) - (let ((_e221764221785_ + (gx#stx-pair? _tl222940222963_)) + (let ((_e222945222966_ (let () (declare (not safe)) - (gx#stx-e _tl221759221782_)))) - (let ((_hd221763221788_ + (gx#stx-e _tl222940222963_)))) + (let ((_hd222944222969_ (let () (declare (not safe)) - (##car _e221764221785_))) - (_tl221762221790_ + (##car _e222945222966_))) + (_tl222943222971_ (let () (declare (not safe)) - (##cdr _e221764221785_)))) + (##cdr _e222945222966_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221762221790_)) - (let ((_e221767221793_ + (gx#stx-pair? _tl222943222971_)) + (let ((_e222948222974_ (let () (declare (not safe)) - (gx#stx-e _tl221762221790_)))) - (let ((_hd221766221796_ + (gx#stx-e _tl222943222971_)))) + (let ((_hd222947222977_ (let () (declare (not safe)) - (##car _e221767221793_))) - (_tl221765221798_ + (##car _e222948222974_))) + (_tl222946222979_ (let () (declare (not safe)) - (##cdr _e221767221793_)))) + (##cdr _e222948222974_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221765221798_)) - ((lambda (_L221801_ _L221802_) + _tl222946222979_)) + ((lambda (_L222982_ _L222983_) (let () (declare (not safe)) (gxc#compile-e__1 - _L221801_ - _arg221753_))) - _hd221766221796_ - _hd221763221788_) + _L222982_ + _arg222934_))) + _hd222947222977_ + _hd222944222969_) (let () (declare (not safe)) - (_g221755221772_ - _g221756221775_))))) + (_g222936222953_ + _g222937222956_))))) (let () (declare (not safe)) - (_g221755221772_ _g221756221775_))))) + (_g222936222953_ _g222937222956_))))) (let () (declare (not safe)) - (_g221755221772_ _g221756221775_))))) + (_g222936222953_ _g222937222956_))))) (let () (declare (not safe)) - (_g221755221772_ _g221756221775_)))))) + (_g222936222953_ _g222937222956_)))))) (declare (not safe)) - (_g221754221817_ _stx221752_)))) + (_g222935222998_ _stx222933_)))) (define gxc#find-lambda% - (lambda (_stx221684_ _arg221685_) - (let* ((_g221687221704_ - (lambda (_g221688221701_) + (lambda (_stx222865_ _arg222866_) + (let* ((_g222868222885_ + (lambda (_g222869222882_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221688221701_)))) - (_g221686221749_ - (lambda (_g221688221707_) + _g222869222882_)))) + (_g222867222930_ + (lambda (_g222869222888_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221688221707_)) - (let ((_e221693221709_ + (gx#stx-pair? _g222869222888_)) + (let ((_e222874222890_ (let () (declare (not safe)) - (gx#stx-e _g221688221707_)))) - (let ((_hd221692221712_ + (gx#stx-e _g222869222888_)))) + (let ((_hd222873222893_ (let () (declare (not safe)) - (##car _e221693221709_))) - (_tl221691221714_ + (##car _e222874222890_))) + (_tl222872222895_ (let () (declare (not safe)) - (##cdr _e221693221709_)))) + (##cdr _e222874222890_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221691221714_)) - (let ((_e221696221717_ + (gx#stx-pair? _tl222872222895_)) + (let ((_e222877222898_ (let () (declare (not safe)) - (gx#stx-e _tl221691221714_)))) - (let ((_hd221695221720_ + (gx#stx-e _tl222872222895_)))) + (let ((_hd222876222901_ (let () (declare (not safe)) - (##car _e221696221717_))) - (_tl221694221722_ + (##car _e222877222898_))) + (_tl222875222903_ (let () (declare (not safe)) - (##cdr _e221696221717_)))) + (##cdr _e222877222898_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221694221722_)) - (let ((_e221699221725_ + (gx#stx-pair? _tl222875222903_)) + (let ((_e222880222906_ (let () (declare (not safe)) - (gx#stx-e _tl221694221722_)))) - (let ((_hd221698221728_ + (gx#stx-e _tl222875222903_)))) + (let ((_hd222879222909_ (let () (declare (not safe)) - (##car _e221699221725_))) - (_tl221697221730_ + (##car _e222880222906_))) + (_tl222878222911_ (let () (declare (not safe)) - (##cdr _e221699221725_)))) + (##cdr _e222880222906_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221697221730_)) - ((lambda (_L221733_ _L221734_) + _tl222878222911_)) + ((lambda (_L222914_ _L222915_) (let () (declare (not safe)) (gxc#compile-e__1 - _L221733_ - _arg221685_))) - _hd221698221728_ - _hd221695221720_) + _L222914_ + _arg222866_))) + _hd222879222909_ + _hd222876222901_) (let () (declare (not safe)) - (_g221687221704_ - _g221688221707_))))) + (_g222868222885_ + _g222869222888_))))) (let () (declare (not safe)) - (_g221687221704_ _g221688221707_))))) + (_g222868222885_ _g222869222888_))))) (let () (declare (not safe)) - (_g221687221704_ _g221688221707_))))) + (_g222868222885_ _g222869222888_))))) (let () (declare (not safe)) - (_g221687221704_ _g221688221707_)))))) + (_g222868222885_ _g222869222888_)))))) (declare (not safe)) - (_g221686221749_ _stx221684_)))) + (_g222867222930_ _stx222865_)))) (define gxc#find-case-lambda% - (lambda (_stx221566_ _arg221567_) - (let* ((_g221569221597_ - (lambda (_g221570221594_) + (lambda (_stx222747_ _arg222748_) + (let* ((_g222750222778_ + (lambda (_g222751222775_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221570221594_)))) - (_g221568221681_ - (lambda (_g221570221600_) + _g222751222775_)))) + (_g222749222862_ + (lambda (_g222751222781_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221570221600_)) - (let ((_e221575221602_ + (gx#stx-pair? _g222751222781_)) + (let ((_e222756222783_ (let () (declare (not safe)) - (gx#stx-e _g221570221600_)))) - (let ((_hd221574221605_ + (gx#stx-e _g222751222781_)))) + (let ((_hd222755222786_ (let () (declare (not safe)) - (##car _e221575221602_))) - (_tl221573221607_ + (##car _e222756222783_))) + (_tl222754222788_ (let () (declare (not safe)) - (##cdr _e221575221602_)))) + (##cdr _e222756222783_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl221573221607_)) - (let ((_g228738_ + (gx#stx-pair/null? _tl222754222788_)) + (let ((_g229919_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl221573221607_ + _tl222754222788_ '0)))) (begin - (let ((_g228739_ + (let ((_g229920_ (let () (declare (not safe)) - (if (##values? _g228738_) - (##vector-length _g228738_) + (if (##values? _g229919_) + (##vector-length _g229919_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g228739_ 2))) + (##fx= _g229920_ 2))) (error "Context expects 2 values" - _g228739_))) - (let ((_target221576221610_ + _g229920_))) + (let ((_target222757222791_ (let () (declare (not safe)) - (##vector-ref _g228738_ 0))) - (_tl221578221612_ + (##vector-ref _g229919_ 0))) + (_tl222759222793_ (let () (declare (not safe)) - (##vector-ref _g228738_ 1)))) + (##vector-ref _g229919_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221578221612_)) - (letrec ((_loop221579221615_ - (lambda (_hd221577221618_ - _body221583221620_ - _hd221584221622_) + (gx#stx-null? _tl222759222793_)) + (letrec ((_loop222760222796_ + (lambda (_hd222758222799_ + _body222764222801_ + _hd222765222803_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd221577221618_)) - (let ((_e221580221625_ + _hd222758222799_)) + (let ((_e222761222806_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _hd221577221618_)))) - (let ((_lp-hd221581221628_ - (let () (declare (not safe)) (##car _e221580221625_))) - (_lp-tl221582221630_ + (gx#stx-e _hd222758222799_)))) + (let ((_lp-hd222762222809_ + (let () (declare (not safe)) (##car _e222761222806_))) + (_lp-tl222763222811_ (let () (declare (not safe)) - (##cdr _e221580221625_)))) + (##cdr _e222761222806_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd221581221628_)) - (let ((_e221589221633_ + (gx#stx-pair? _lp-hd222762222809_)) + (let ((_e222770222814_ (let () (declare (not safe)) - (gx#stx-e _lp-hd221581221628_)))) - (let ((_hd221588221636_ + (gx#stx-e _lp-hd222762222809_)))) + (let ((_hd222769222817_ (let () (declare (not safe)) - (##car _e221589221633_))) - (_tl221587221638_ + (##car _e222770222814_))) + (_tl222768222819_ (let () (declare (not safe)) - (##cdr _e221589221633_)))) + (##cdr _e222770222814_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221587221638_)) - (let ((_e221592221641_ + (gx#stx-pair? _tl222768222819_)) + (let ((_e222773222822_ (let () (declare (not safe)) - (gx#stx-e _tl221587221638_)))) - (let ((_hd221591221644_ + (gx#stx-e _tl222768222819_)))) + (let ((_hd222772222825_ (let () (declare (not safe)) - (##car _e221592221641_))) - (_tl221590221646_ + (##car _e222773222822_))) + (_tl222771222827_ (let () (declare (not safe)) - (##cdr _e221592221641_)))) + (##cdr _e222773222822_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221590221646_)) - (let ((__tmp228744 + (gx#stx-null? _tl222771222827_)) + (let ((__tmp229925 (let () (declare (not safe)) - (cons _hd221591221644_ - _body221583221620_))) - (__tmp228743 + (cons _hd222772222825_ + _body222764222801_))) + (__tmp229924 (let () (declare (not safe)) - (cons _hd221588221636_ - _hd221584221622_)))) + (cons _hd222769222817_ + _hd222765222803_)))) (declare (not safe)) - (_loop221579221615_ - _lp-tl221582221630_ - __tmp228744 - __tmp228743)) + (_loop222760222796_ + _lp-tl222763222811_ + __tmp229925 + __tmp229924)) (let () (declare (not safe)) - (_g221569221597_ _g221570221600_))))) + (_g222750222778_ _g222751222781_))))) (let () (declare (not safe)) - (_g221569221597_ _g221570221600_))))) + (_g222750222778_ _g222751222781_))))) (let () (declare (not safe)) - (_g221569221597_ _g221570221600_))))) - (let ((_body221585221649_ (reverse _body221583221620_)) - (_hd221586221651_ (reverse _hd221584221622_))) - ((lambda (_L221654_ _L221655_) - (let ((__tmp228742 - (lambda (_g221669221671_) + (_g222750222778_ _g222751222781_))))) + (let ((_body222766222830_ (reverse _body222764222801_)) + (_hd222767222832_ (reverse _hd222765222803_))) + ((lambda (_L222835_ _L222836_) + (let ((__tmp229923 + (lambda (_g222850222852_) (let () (declare (not safe)) (gxc#compile-e__1 - _g221669221671_ - _arg221567_)))) - (__tmp228740 - (let ((__tmp228741 - (lambda (_g221673221676_ _g221674221678_) + _g222850222852_ + _arg222748_)))) + (__tmp229921 + (let ((__tmp229922 + (lambda (_g222854222857_ _g222855222859_) (let () (declare (not safe)) - (cons _g221673221676_ - _g221674221678_))))) + (cons _g222854222857_ + _g222855222859_))))) (declare (not safe)) - (foldr1 __tmp228741 '() _L221654_)))) + (foldr1 __tmp229922 '() _L222835_)))) (declare (not safe)) - (ormap1 __tmp228742 __tmp228740))) - _body221585221649_ - _hd221586221651_)))))) + (ormap1 __tmp229923 __tmp229921))) + _body222766222830_ + _hd222767222832_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop221579221615_ - _target221576221610_ + (_loop222760222796_ + _target222757222791_ '() '()))) (let () (declare (not safe)) - (_g221569221597_ - _g221570221600_)))))) + (_g222750222778_ + _g222751222781_)))))) (let () (declare (not safe)) - (_g221569221597_ _g221570221600_))))) + (_g222750222778_ _g222751222781_))))) (let () (declare (not safe)) - (_g221569221597_ _g221570221600_)))))) + (_g222750222778_ _g222751222781_)))))) (declare (not safe)) - (_g221568221681_ _stx221566_)))) + (_g222749222862_ _stx222747_)))) (define gxc#find-let-values% - (lambda (_stx221416_ _arg221417_) - (let* ((_g221419221454_ - (lambda (_g221420221451_) + (lambda (_stx222597_ _arg222598_) + (let* ((_g222600222635_ + (lambda (_g222601222632_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221420221451_)))) - (_g221418221563_ - (lambda (_g221420221457_) + _g222601222632_)))) + (_g222599222744_ + (lambda (_g222601222638_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221420221457_)) - (let ((_e221426221459_ + (gx#stx-pair? _g222601222638_)) + (let ((_e222607222640_ (let () (declare (not safe)) - (gx#stx-e _g221420221457_)))) - (let ((_hd221425221462_ + (gx#stx-e _g222601222638_)))) + (let ((_hd222606222643_ (let () (declare (not safe)) - (##car _e221426221459_))) - (_tl221424221464_ + (##car _e222607222640_))) + (_tl222605222645_ (let () (declare (not safe)) - (##cdr _e221426221459_)))) + (##cdr _e222607222640_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221424221464_)) - (let ((_e221429221467_ + (gx#stx-pair? _tl222605222645_)) + (let ((_e222610222648_ (let () (declare (not safe)) - (gx#stx-e _tl221424221464_)))) - (let ((_hd221428221470_ + (gx#stx-e _tl222605222645_)))) + (let ((_hd222609222651_ (let () (declare (not safe)) - (##car _e221429221467_))) - (_tl221427221472_ + (##car _e222610222648_))) + (_tl222608222653_ (let () (declare (not safe)) - (##cdr _e221429221467_)))) + (##cdr _e222610222648_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd221428221470_)) - (let ((_g228745_ + (gx#stx-pair/null? _hd222609222651_)) + (let ((_g229926_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd221428221470_ + _hd222609222651_ '0)))) (begin - (let ((_g228746_ + (let ((_g229927_ (let () (declare (not safe)) - (if (##values? _g228745_) + (if (##values? _g229926_) (##vector-length - _g228745_) + _g229926_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g228746_ 2))) + (##fx= _g229927_ 2))) (error "Context expects 2 values" - _g228746_))) - (let ((_target221430221475_ + _g229927_))) + (let ((_target222611222656_ (let () (declare (not safe)) - (##vector-ref _g228745_ 0))) - (_tl221432221477_ + (##vector-ref _g229926_ 0))) + (_tl222613222658_ (let () (declare (not safe)) (##vector-ref - _g228745_ + _g229926_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221432221477_)) - (letrec ((_loop221433221480_ - (lambda (_hd221431221483_ + _tl222613222658_)) + (letrec ((_loop222614222661_ + (lambda (_hd222612222664_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr221437221485_ - _bind221438221487_) + _expr222618222666_ + _bind222619222668_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd221431221483_)) - (let ((_e221434221490_ + (gx#stx-pair? _hd222612222664_)) + (let ((_e222615222671_ (let () (declare (not safe)) - (gx#stx-e _hd221431221483_)))) - (let ((_lp-hd221435221493_ + (gx#stx-e _hd222612222664_)))) + (let ((_lp-hd222616222674_ (let () (declare (not safe)) - (##car _e221434221490_))) - (_lp-tl221436221495_ + (##car _e222615222671_))) + (_lp-tl222617222676_ (let () (declare (not safe)) - (##cdr _e221434221490_)))) + (##cdr _e222615222671_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd221435221493_)) - (let ((_e221443221498_ + (gx#stx-pair? _lp-hd222616222674_)) + (let ((_e222624222679_ (let () (declare (not safe)) - (gx#stx-e _lp-hd221435221493_)))) - (let ((_hd221442221501_ + (gx#stx-e _lp-hd222616222674_)))) + (let ((_hd222623222682_ (let () (declare (not safe)) - (##car _e221443221498_))) - (_tl221441221503_ + (##car _e222624222679_))) + (_tl222622222684_ (let () (declare (not safe)) - (##cdr _e221443221498_)))) + (##cdr _e222624222679_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221441221503_)) - (let ((_e221446221506_ + (gx#stx-pair? _tl222622222684_)) + (let ((_e222627222687_ (let () (declare (not safe)) - (gx#stx-e _tl221441221503_)))) - (let ((_hd221445221509_ + (gx#stx-e _tl222622222684_)))) + (let ((_hd222626222690_ (let () (declare (not safe)) - (##car _e221446221506_))) - (_tl221444221511_ + (##car _e222627222687_))) + (_tl222625222692_ (let () (declare (not safe)) - (##cdr _e221446221506_)))) + (##cdr _e222627222687_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221444221511_)) - (let ((__tmp228751 + _tl222625222692_)) + (let ((__tmp229932 (let () (declare (not safe)) - (cons _hd221445221509_ - _expr221437221485_))) - (__tmp228750 + (cons _hd222626222690_ + _expr222618222666_))) + (__tmp229931 (let () (declare (not safe)) - (cons _hd221442221501_ - _bind221438221487_)))) + (cons _hd222623222682_ + _bind222619222668_)))) (declare (not safe)) - (_loop221433221480_ - _lp-tl221436221495_ - __tmp228751 - __tmp228750)) + (_loop222614222661_ + _lp-tl222617222676_ + __tmp229932 + __tmp229931)) (let () (declare (not safe)) - (_g221419221454_ - _g221420221457_))))) + (_g222600222635_ + _g222601222638_))))) (let () (declare (not safe)) - (_g221419221454_ _g221420221457_))))) + (_g222600222635_ _g222601222638_))))) (let () (declare (not safe)) - (_g221419221454_ _g221420221457_))))) - (let ((_expr221439221514_ (reverse _expr221437221485_)) - (_bind221440221516_ - (reverse _bind221438221487_))) + (_g222600222635_ _g222601222638_))))) + (let ((_expr222620222695_ (reverse _expr222618222666_)) + (_bind222621222697_ + (reverse _bind222619222668_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221427221472_)) - (let ((_e221449221519_ + (gx#stx-pair? _tl222608222653_)) + (let ((_e222630222700_ (let () (declare (not safe)) - (gx#stx-e _tl221427221472_)))) - (let ((_hd221448221522_ + (gx#stx-e _tl222608222653_)))) + (let ((_hd222629222703_ (let () (declare (not safe)) - (##car _e221449221519_))) - (_tl221447221524_ + (##car _e222630222700_))) + (_tl222628222705_ (let () (declare (not safe)) - (##cdr _e221449221519_)))) + (##cdr _e222630222700_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221447221524_)) - ((lambda (_L221527_ _L221528_ _L221529_) - (let ((_$e221560_ - (let ((__tmp228749 - (lambda (_g221548221550_) + (gx#stx-null? _tl222628222705_)) + ((lambda (_L222708_ _L222709_ _L222710_) + (let ((_$e222741_ + (let ((__tmp229930 + (lambda (_g222729222731_) (let () (declare (not safe)) (gxc#compile-e__1 - _g221548221550_ - _arg221417_)))) - (__tmp228747 - (let ((__tmp228748 - (lambda (_g221552221555_ + _g222729222731_ + _arg222598_)))) + (__tmp229928 + (let ((__tmp229929 + (lambda (_g222733222736_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g221553221557_) + _g222734222738_) (let () (declare (not safe)) - (cons _g221552221555_ _g221553221557_))))) + (cons _g222733222736_ _g222734222738_))))) (declare (not safe)) - (foldr1 __tmp228748 '() _L221528_)))) + (foldr1 __tmp229929 '() _L222709_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (ormap1 __tmp228749 - __tmp228747)))) - (if _$e221560_ - _$e221560_ + (ormap1 __tmp229930 + __tmp229928)))) + (if _$e222741_ + _$e222741_ (let () (declare (not safe)) (gxc#compile-e__1 - _L221527_ - _arg221417_))))) - _hd221448221522_ - _expr221439221514_ - _bind221440221516_) + _L222708_ + _arg222598_))))) + _hd222629222703_ + _expr222620222695_ + _bind222621222697_) (let () (declare (not safe)) - (_g221419221454_ _g221420221457_))))) + (_g222600222635_ _g222601222638_))))) (let () (declare (not safe)) - (_g221419221454_ _g221420221457_)))))))) + (_g222600222635_ _g222601222638_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop221433221480_ - _target221430221475_ + (_loop222614222661_ + _target222611222656_ '() '()))) (let () (declare (not safe)) - (_g221419221454_ - _g221420221457_)))))) + (_g222600222635_ + _g222601222638_)))))) (let () (declare (not safe)) - (_g221419221454_ _g221420221457_))))) + (_g222600222635_ _g222601222638_))))) (let () (declare (not safe)) - (_g221419221454_ _g221420221457_))))) + (_g222600222635_ _g222601222638_))))) (let () (declare (not safe)) - (_g221419221454_ _g221420221457_)))))) + (_g222600222635_ _g222601222638_)))))) (declare (not safe)) - (_g221418221563_ _stx221416_)))) + (_g222599222744_ _stx222597_)))) (define gxc#find-setq% - (lambda (_stx221348_ _arg221349_) - (let* ((_g221351221368_ - (lambda (_g221352221365_) + (lambda (_stx222529_ _arg222530_) + (let* ((_g222532222549_ + (lambda (_g222533222546_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221352221365_)))) - (_g221350221413_ - (lambda (_g221352221371_) + _g222533222546_)))) + (_g222531222594_ + (lambda (_g222533222552_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221352221371_)) - (let ((_e221357221373_ + (gx#stx-pair? _g222533222552_)) + (let ((_e222538222554_ (let () (declare (not safe)) - (gx#stx-e _g221352221371_)))) - (let ((_hd221356221376_ + (gx#stx-e _g222533222552_)))) + (let ((_hd222537222557_ (let () (declare (not safe)) - (##car _e221357221373_))) - (_tl221355221378_ + (##car _e222538222554_))) + (_tl222536222559_ (let () (declare (not safe)) - (##cdr _e221357221373_)))) + (##cdr _e222538222554_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221355221378_)) - (let ((_e221360221381_ + (gx#stx-pair? _tl222536222559_)) + (let ((_e222541222562_ (let () (declare (not safe)) - (gx#stx-e _tl221355221378_)))) - (let ((_hd221359221384_ + (gx#stx-e _tl222536222559_)))) + (let ((_hd222540222565_ (let () (declare (not safe)) - (##car _e221360221381_))) - (_tl221358221386_ + (##car _e222541222562_))) + (_tl222539222567_ (let () (declare (not safe)) - (##cdr _e221360221381_)))) + (##cdr _e222541222562_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221358221386_)) - (let ((_e221363221389_ + (gx#stx-pair? _tl222539222567_)) + (let ((_e222544222570_ (let () (declare (not safe)) - (gx#stx-e _tl221358221386_)))) - (let ((_hd221362221392_ + (gx#stx-e _tl222539222567_)))) + (let ((_hd222543222573_ (let () (declare (not safe)) - (##car _e221363221389_))) - (_tl221361221394_ + (##car _e222544222570_))) + (_tl222542222575_ (let () (declare (not safe)) - (##cdr _e221363221389_)))) + (##cdr _e222544222570_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221361221394_)) - ((lambda (_L221397_ _L221398_) + _tl222542222575_)) + ((lambda (_L222578_ _L222579_) (let () (declare (not safe)) (gxc#compile-e__1 - _L221397_ - _arg221349_))) - _hd221362221392_ - _hd221359221384_) + _L222578_ + _arg222530_))) + _hd222543222573_ + _hd222540222565_) (let () (declare (not safe)) - (_g221351221368_ - _g221352221371_))))) + (_g222532222549_ + _g222533222552_))))) (let () (declare (not safe)) - (_g221351221368_ _g221352221371_))))) + (_g222532222549_ _g222533222552_))))) (let () (declare (not safe)) - (_g221351221368_ _g221352221371_))))) + (_g222532222549_ _g222533222552_))))) (let () (declare (not safe)) - (_g221351221368_ _g221352221371_)))))) + (_g222532222549_ _g222533222552_)))))) (declare (not safe)) - (_g221350221413_ _stx221348_)))) + (_g222531222594_ _stx222529_)))) (define gxc#find-var-refs-ref% - (lambda (_stx221292_ _ids221293_) - (let* ((_g221295221308_ - (lambda (_g221296221305_) + (lambda (_stx222473_ _ids222474_) + (let* ((_g222476222489_ + (lambda (_g222477222486_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221296221305_)))) - (_g221294221345_ - (lambda (_g221296221311_) + _g222477222486_)))) + (_g222475222526_ + (lambda (_g222477222492_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221296221311_)) - (let ((_e221300221313_ + (gx#stx-pair? _g222477222492_)) + (let ((_e222481222494_ (let () (declare (not safe)) - (gx#stx-e _g221296221311_)))) - (let ((_hd221299221316_ + (gx#stx-e _g222477222492_)))) + (let ((_hd222480222497_ (let () (declare (not safe)) - (##car _e221300221313_))) - (_tl221298221318_ + (##car _e222481222494_))) + (_tl222479222499_ (let () (declare (not safe)) - (##cdr _e221300221313_)))) + (##cdr _e222481222494_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221298221318_)) - (let ((_e221303221321_ + (gx#stx-pair? _tl222479222499_)) + (let ((_e222484222502_ (let () (declare (not safe)) - (gx#stx-e _tl221298221318_)))) - (let ((_hd221302221324_ + (gx#stx-e _tl222479222499_)))) + (let ((_hd222483222505_ (let () (declare (not safe)) - (##car _e221303221321_))) - (_tl221301221326_ + (##car _e222484222502_))) + (_tl222482222507_ (let () (declare (not safe)) - (##cdr _e221303221321_)))) + (##cdr _e222484222502_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl221301221326_)) - ((lambda (_L221329_) - (let ((__tmp228752 - (lambda (_g221340221342_) + (gx#stx-null? _tl222482222507_)) + ((lambda (_L222510_) + (let ((__tmp229933 + (lambda (_g222521222523_) (let () (declare (not safe)) (gx#free-identifier=? - _L221329_ - _g221340221342_))))) + _L222510_ + _g222521222523_))))) (declare (not safe)) - (find __tmp228752 _ids221293_))) - _hd221302221324_) + (find __tmp229933 _ids222474_))) + _hd222483222505_) (let () (declare (not safe)) - (_g221295221308_ _g221296221311_))))) + (_g222476222489_ _g222477222492_))))) (let () (declare (not safe)) - (_g221295221308_ _g221296221311_))))) + (_g222476222489_ _g222477222492_))))) (let () (declare (not safe)) - (_g221295221308_ _g221296221311_)))))) + (_g222476222489_ _g222477222492_)))))) (declare (not safe)) - (_g221294221345_ _stx221292_)))) + (_g222475222526_ _stx222473_)))) (define gxc#find-var-refs-setq% - (lambda (_stx221216_ _ids221217_) - (let* ((_g221219221236_ - (lambda (_g221220221233_) + (lambda (_stx222397_ _ids222398_) + (let* ((_g222400222417_ + (lambda (_g222401222414_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g221220221233_)))) - (_g221218221289_ - (lambda (_g221220221239_) + _g222401222414_)))) + (_g222399222470_ + (lambda (_g222401222420_) (if (let () (declare (not safe)) - (gx#stx-pair? _g221220221239_)) - (let ((_e221225221241_ + (gx#stx-pair? _g222401222420_)) + (let ((_e222406222422_ (let () (declare (not safe)) - (gx#stx-e _g221220221239_)))) - (let ((_hd221224221244_ + (gx#stx-e _g222401222420_)))) + (let ((_hd222405222425_ (let () (declare (not safe)) - (##car _e221225221241_))) - (_tl221223221246_ + (##car _e222406222422_))) + (_tl222404222427_ (let () (declare (not safe)) - (##cdr _e221225221241_)))) + (##cdr _e222406222422_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221223221246_)) - (let ((_e221228221249_ + (gx#stx-pair? _tl222404222427_)) + (let ((_e222409222430_ (let () (declare (not safe)) - (gx#stx-e _tl221223221246_)))) - (let ((_hd221227221252_ + (gx#stx-e _tl222404222427_)))) + (let ((_hd222408222433_ (let () (declare (not safe)) - (##car _e221228221249_))) - (_tl221226221254_ + (##car _e222409222430_))) + (_tl222407222435_ (let () (declare (not safe)) - (##cdr _e221228221249_)))) + (##cdr _e222409222430_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl221226221254_)) - (let ((_e221231221257_ + (gx#stx-pair? _tl222407222435_)) + (let ((_e222412222438_ (let () (declare (not safe)) - (gx#stx-e _tl221226221254_)))) - (let ((_hd221230221260_ + (gx#stx-e _tl222407222435_)))) + (let ((_hd222411222441_ (let () (declare (not safe)) - (##car _e221231221257_))) - (_tl221229221262_ + (##car _e222412222438_))) + (_tl222410222443_ (let () (declare (not safe)) - (##cdr _e221231221257_)))) + (##cdr _e222412222438_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl221229221262_)) - ((lambda (_L221265_ _L221266_) - (let ((_$e221286_ - (let ((__tmp228753 - (lambda (_g221281221283_) + _tl222410222443_)) + ((lambda (_L222446_ _L222447_) + (let ((_$e222467_ + (let ((__tmp229934 + (lambda (_g222462222464_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#free-identifier=? _L221266_ _g221281221283_))))) + (gx#free-identifier=? _L222447_ _g222462222464_))))) (declare (not safe)) - (find __tmp228753 _ids221217_)))) + (find __tmp229934 _ids222398_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e221286_ - _$e221286_ + (if _$e222467_ + _$e222467_ (let () (declare (not safe)) (gxc#compile-e__1 - _L221265_ - _ids221217_))))) - _hd221230221260_ - _hd221227221252_) + _L222446_ + _ids222398_))))) + _hd222411222441_ + _hd222408222433_) (let () (declare (not safe)) - (_g221219221236_ - _g221220221239_))))) + (_g222400222417_ + _g222401222420_))))) (let () (declare (not safe)) - (_g221219221236_ _g221220221239_))))) + (_g222400222417_ _g222401222420_))))) (let () (declare (not safe)) - (_g221219221236_ _g221220221239_))))) + (_g222400222417_ _g222401222420_))))) (let () (declare (not safe)) - (_g221219221236_ _g221220221239_)))))) + (_g222400222417_ _g222401222420_)))))) (declare (not safe)) - (_g221218221289_ _stx221216_)))))) + (_g222399222470_ _stx222397_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize__0.scm b/src/bootstrap/gerbil/compiler/optimize__0.scm index f694b21d3..d61d5db58 100644 --- a/src/bootstrap/gerbil/compiler/optimize__0.scm +++ b/src/bootstrap/gerbil/compiler/optimize__0.scm @@ -1,1768 +1,1784 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1707773933) + (define gerbil/compiler/optimize::timestamp 1708102809) (begin (define gxc#optimizer-info-init! (lambda () (if (gxc#current-compile-optimizer-info) '#!void (gxc#current-compile-optimizer-info - (let ((__obj290362 + (let ((__obj291663 (let () (declare (not safe)) (##structure gxc#optimizer-info::t '#f '#f '#f)))) - (gxc#optimizer-info:::init! __obj290362) - __obj290362))))) + (gxc#optimizer-info:::init! __obj291663) + __obj291663))))) (define gxc#optimize! - (lambda (_ctx285487_) - (let ((__tmp290366 + (lambda (_ctx286788_) + (let ((__tmp291667 (lambda () (let () (declare (not safe)) - (gxc#optimizer-load-ssxi-deps _ctx285487_)) + (gxc#optimizer-load-ssxi-deps _ctx286788_)) (let () (declare (not safe)) (gxc#optimizer-load-builtin-ssxi)) - (let ((__tmp290368 + (let ((__tmp291669 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp290367 + (__tmp291668 (##structure-ref - _ctx285487_ + _ctx286788_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-set! __tmp290368 __tmp290367 '#t)) - (let ((_code285490_ - (let ((__tmp290369 + (table-set! __tmp291669 __tmp291668 '#t)) + (let ((_code286791_ + (let ((__tmp291670 (##structure-ref - _ctx285487_ + _ctx286788_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#optimize-source __tmp290369)))) + (gxc#optimize-source __tmp291670)))) (##structure-set! - _ctx285487_ - _code285490_ + _ctx286788_ + _code286791_ '11 gx#module-context::t '#f)))) - (__tmp290365 + (__tmp291666 (let () (declare (not safe)) (make-table 'test: eq?))) - (__tmp290364 + (__tmp291665 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (call-with-parameters - __tmp290366 + __tmp291667 gxc#current-compile-mutators - __tmp290365 + __tmp291666 gxc#current-compile-local-type - __tmp290364)))) + __tmp291665)))) (define gxc#optimizer-load-builtin-ssxi (lambda () (let () (declare (not safe)) (gxc#optimizer-import-ssxi-by-id 'gerbil/builtin)) - (let ((__tmp290370 + (let ((__tmp291671 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f))) (declare (not safe)) - (table-set! __tmp290370 'gerbil/builtin '#t)))) + (table-set! __tmp291671 'gerbil/builtin '#t)))) (define gxc#optimizer-load-ssxi-deps - (lambda (_ctx285431_) - (letrec* ((_deps285433_ - (let* ((_imports285477_ + (lambda (_ctx286732_) + (letrec* ((_deps286734_ + (let* ((_imports286778_ (##structure-ref - _ctx285431_ + _ctx286732_ '8 gx#module-context::t '#f)) - (_$e285479_ + (_$e286780_ (let () (declare (not safe)) - (gx#core-context-prelude__% _ctx285431_)))) - (if _$e285479_ - ((lambda (_g285481285483_) + (gx#core-context-prelude__% _ctx286732_)))) + (if _$e286780_ + ((lambda (_g286782286784_) (let () (declare (not safe)) - (cons _g285481285483_ _imports285477_))) - _$e285479_) - _imports285477_)))) - (let _lp285435_ ((_rest285437_ _deps285433_)) - (let* ((_rest285438285446_ _rest285437_) - (_else285440285454_ (lambda () '#!void)) - (_K285442285465_ - (lambda (_rest285457_ _hd285458_) + (cons _g286782286784_ _imports286778_))) + _$e286780_) + _imports286778_)))) + (let _lp286736_ ((_rest286738_ _deps286734_)) + (let* ((_rest286739286747_ _rest286738_) + (_else286741286755_ (lambda () '#!void)) + (_K286743286766_ + (lambda (_rest286758_ _hd286759_) (if (let () (declare (not safe)) (##structure-instance-of? - _hd285458_ + _hd286759_ 'gx#module-context::t)) (begin - (if (let ((__tmp290384 + (if (let ((__tmp291685 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp290383 + (__tmp291684 (##structure-ref - _hd285458_ + _hd286759_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp290384 __tmp290383 '#f)) + (table-ref __tmp291685 __tmp291684 '#f)) '#!void (begin - (let ((_$e285460_ + (let ((_$e286761_ (let () (declare (not safe)) (gx#core-context-prelude__% - _hd285458_)))) - (if _$e285460_ - ((lambda (_pre285463_) - (let ((__tmp290381 - (let ((__tmp290382 + _hd286759_)))) + (if _$e286761_ + ((lambda (_pre286764_) + (let ((__tmp291682 + (let ((__tmp291683 (##structure-ref - _hd285458_ + _hd286759_ '8 gx#module-context::t '#f))) (declare (not safe)) - (cons _pre285463_ - __tmp290382)))) + (cons _pre286764_ + __tmp291683)))) (declare (not safe)) - (_lp285435_ __tmp290381))) - _$e285460_) - (let ((__tmp290380 + (_lp286736_ __tmp291682))) + _$e286761_) + (let ((__tmp291681 (##structure-ref - _hd285458_ + _hd286759_ '8 gx#module-context::t '#f))) (declare (not safe)) - (_lp285435_ __tmp290380)))) + (_lp286736_ __tmp291681)))) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd285458_)))) + (gxc#optimizer-load-ssxi _hd286759_)))) (let () (declare (not safe)) - (_lp285435_ _rest285457_))) + (_lp286736_ _rest286758_))) (if (let () (declare (not safe)) (##structure-instance-of? - _hd285458_ + _hd286759_ 'gx#prelude-context::t)) (begin - (if (let ((__tmp290379 + (if (let ((__tmp291680 (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (__tmp290378 + (__tmp291679 (##structure-ref - _hd285458_ + _hd286759_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (table-ref __tmp290379 __tmp290378 '#f)) + (table-ref __tmp291680 __tmp291679 '#f)) '#!void (begin - (let ((__tmp290377 + (let ((__tmp291678 (##structure-ref - _hd285458_ + _hd286759_ '7 gx#prelude-context::t '#f))) (declare (not safe)) - (_lp285435_ __tmp290377)) + (_lp286736_ __tmp291678)) (let () (declare (not safe)) - (gxc#optimizer-load-ssxi _hd285458_)))) + (gxc#optimizer-load-ssxi _hd286759_)))) (let () (declare (not safe)) - (_lp285435_ _rest285457_))) + (_lp286736_ _rest286758_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd285458_ + _hd286759_ 'gx#module-import::t)) - (let ((__tmp290375 - (let ((__tmp290376 + (let ((__tmp291676 + (let ((__tmp291677 (##direct-structure-ref - _hd285458_ + _hd286759_ '1 gx#module-import::t '#f))) (declare (not safe)) - (cons __tmp290376 _rest285457_)))) + (cons __tmp291677 _rest286758_)))) (declare (not safe)) - (_lp285435_ __tmp290375)) + (_lp286736_ __tmp291676)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd285458_ + _hd286759_ 'gx#module-export::t)) - (let ((__tmp290373 - (let ((__tmp290374 + (let ((__tmp291674 + (let ((__tmp291675 (##direct-structure-ref - _hd285458_ + _hd286759_ '1 gx#module-export::t '#f))) (declare (not safe)) - (cons __tmp290374 - _rest285457_)))) + (cons __tmp291675 + _rest286758_)))) (declare (not safe)) - (_lp285435_ __tmp290373)) + (_lp286736_ __tmp291674)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _hd285458_ + _hd286759_ 'gx#import-set::t)) - (let ((__tmp290371 - (let ((__tmp290372 + (let ((__tmp291672 + (let ((__tmp291673 (##direct-structure-ref - _hd285458_ + _hd286759_ '1 gx#import-set::t '#f))) (declare (not safe)) - (cons __tmp290372 - _rest285457_)))) + (cons __tmp291673 + _rest286758_)))) (declare (not safe)) - (_lp285435_ __tmp290371)) + (_lp286736_ __tmp291672)) (error '"Unexpected module import" - _hd285458_))))))))) - (if (let () (declare (not safe)) (##pair? _rest285438285446_)) - (let ((_hd285443285468_ + _hd286759_))))))))) + (if (let () (declare (not safe)) (##pair? _rest286739286747_)) + (let ((_hd286744286769_ (let () (declare (not safe)) - (##car _rest285438285446_))) - (_tl285444285470_ + (##car _rest286739286747_))) + (_tl286745286771_ (let () (declare (not safe)) - (##cdr _rest285438285446_)))) - (let* ((_hd285473_ _hd285443285468_) - (_rest285475_ _tl285444285470_)) + (##cdr _rest286739286747_)))) + (let* ((_hd286774_ _hd286744286769_) + (_rest286776_ _tl286745286771_)) (declare (not safe)) - (_K285442285465_ _rest285475_ _hd285473_))) + (_K286743286766_ _rest286776_ _hd286774_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_ctx285411_) + (lambda (_ctx286712_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _ctx285411_ + _ctx286712_ 'gx#module-context::t)) - (let ((__tmp290385 + (let ((__tmp291686 (##structure-ref - _ctx285411_ + _ctx286712_ '7 gx#module-context::t '#f))) (declare (not safe)) - (list? __tmp290385))) + (list? __tmp291686))) '#!void - (let* ((_ht285413_ + (let* ((_ht286714_ (##structure-ref (gxc#current-compile-optimizer-info) '2 gxc#optimizer-info::t '#f)) - (_id285415_ + (_id286716_ (##structure-ref - _ctx285411_ + _ctx286712_ '1 gx#expander-context::t '#f)) - (_mod285417_ + (_mod286718_ (let () (declare (not safe)) - (table-ref _ht285413_ _id285415_ '#f)))) - (let ((_$e285420_ _mod285417_)) - (if _$e285420_ - _$e285420_ - (let* ((_mod285423_ + (table-ref _ht286714_ _id286716_ '#f)))) + (let ((_$e286721_ _mod286718_)) + (if _$e286721_ + _$e286721_ + (let* ((_mod286724_ (let () (declare (not safe)) - (gxc#optimizer-import-ssxi _ctx285411_))) - (_val285428_ - (let ((_$e285425_ _mod285423_)) - (if _$e285425_ _$e285425_ '#!void)))) + (gxc#optimizer-import-ssxi _ctx286712_))) + (_val286729_ + (let ((_$e286726_ _mod286724_)) + (if _$e286726_ _$e286726_ '#!void)))) (let () (declare (not safe)) - (table-set! _ht285413_ _id285415_ _val285428_)) - _val285428_))))))) + (table-set! _ht286714_ _id286716_ _val286729_)) + _val286729_))))))) (define gxc#optimizer-import-ssxi - (lambda (_ctx285409_) - (if (##structure-ref _ctx285409_ '1 gx#expander-context::t '#f) - (let ((__tmp290386 + (lambda (_ctx286710_) + (if (##structure-ref _ctx286710_ '1 gx#expander-context::t '#f) + (let ((__tmp291687 (##structure-ref - _ctx285409_ + _ctx286710_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#optimizer-import-ssxi-by-id __tmp290386)) + (gxc#optimizer-import-ssxi-by-id __tmp291687)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_id285386_) - (letrec ((_catch-e285388_ - (lambda (_exn285407_) + (lambda (_id286687_) + (letrec ((_catch-e286689_ + (lambda (_exn286708_) (if (gxc#current-compile-verbose) (begin (let () (declare (not safe)) (displayln '"Failed to load ssxi module for " - _id285386_)) - (display-exception _exn285407_)) + _id286687_)) + (display-exception _exn286708_)) '#!void) '#f)) - (_import-e285389_ + (_import-e286690_ (lambda () - (let* ((_str-id285392_ + (let* ((_str-id286693_ (string-append (let () (declare (not safe)) - (gxc#module-id->path-string _id285386_)) + (gxc#module-id->path-string _id286687_)) '".ssxi")) - (_artefact-path285400_ - (let ((_odir285393285395_ + (_artefact-path286701_ + (let ((_odir286694286696_ (gxc#current-compile-output-dir))) - (if _odir285393285395_ - (let ((_odir285398_ _odir285393285395_)) + (if _odir286694286696_ + (let ((_odir286699_ _odir286694286696_)) (path-expand - (string-append _str-id285392_ '".ss") - _odir285398_)) + (string-append _str-id286693_ '".ss") + _odir286699_)) '#f))) - (_library-path285402_ + (_library-path286703_ (string->symbol - (string-append '":" _str-id285392_ '".ss"))) - (_ssxi-path285404_ - (if (and _artefact-path285400_ - (file-exists? _artefact-path285400_)) - _artefact-path285400_ - _library-path285402_))) + (string-append '":" _str-id286693_ '".ss"))) + (_ssxi-path286705_ + (if (and _artefact-path286701_ + (file-exists? _artefact-path286701_)) + _artefact-path286701_ + _library-path286703_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _ssxi-path285404_)) + _ssxi-path286705_)) (let () (declare (not safe)) - (gx#import-module__% _ssxi-path285404_ '#t '#t)))))) + (gx#import-module__% _ssxi-path286705_ '#t '#t)))))) (let () (declare (not safe)) - (with-catch _catch-e285388_ _import-e285389_))))) + (with-catch _catch-e286689_ _import-e286690_))))) (define gxc#optimize-source - (lambda (_stx285377_) - (let () (declare (not safe)) (gxc#apply-collect-mutators _stx285377_)) - (let () (declare (not safe)) (gxc#apply-collect-methods _stx285377_)) + (lambda (_stx286678_) + (let () (declare (not safe)) (gxc#apply-collect-mutators _stx286678_)) + (let () (declare (not safe)) (gxc#apply-collect-methods _stx286678_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _stx285377_)) - (let* ((_stx285379_ + (gxc#apply-collect-top-level-type-info _stx286678_)) + (let* ((_stx286680_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _stx285377_))) - (_stx285381_ + (gxc#apply-generate-method-specializers _stx286678_))) + (_stx286682_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _stx285379_)))) + (gxc#apply-lift-top-lambdas _stx286680_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _stx285381_)) - (let ((_stx285384_ + (gxc#apply-collect-type-info _stx286682_)) + (let ((_stx286685_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _stx285381_)))) + (gxc#apply-optimize-annotated _stx286682_)))) (declare (not safe)) - (gxc#apply-optimize-call _stx285384_))))) + (gxc#apply-optimize-call _stx286685_))))) (define gxc#&generate-ssxi (make-promise (lambda () - (let ((_tbl285374_ + (let ((_tbl286675_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp290387 (force gxc#&generate-runtime-empty))) + (let ((__tmp291688 (force gxc#&generate-runtime-empty))) (declare (not safe)) - (hash-copy! _tbl285374_ __tmp290387)) + (hash-copy! _tbl286675_ __tmp291688)) (let () (declare (not safe)) - (table-set! _tbl285374_ '%#begin gxc#generate-runtime-begin%)) + (table-set! _tbl286675_ '%#begin gxc#generate-runtime-begin%)) (let () (declare (not safe)) (table-set! - _tbl285374_ + _tbl286675_ '%#begin-syntax gxc#generate-ssxi-begin-syntax%)) (let () (declare (not safe)) - (table-set! _tbl285374_ '%#module gxc#generate-ssxi-module%)) + (table-set! _tbl286675_ '%#module gxc#generate-ssxi-module%)) (let () (declare (not safe)) (table-set! - _tbl285374_ + _tbl286675_ '%#define-values gxc#generate-ssxi-define-values%)) (let () (declare (not safe)) - (table-set! _tbl285374_ '%#call gxc#generate-ssxi-call%)) - _tbl285374_)))) + (table-set! _tbl286675_ '%#call gxc#generate-ssxi-call%)) + _tbl286675_)))) (define gxc#apply-generate-ssxi - (lambda (_stx285357_ . _args285359_) - (let ((__tmp290389 + (lambda (_stx286658_ . _args286660_) + (let ((__tmp291690 (lambda () (declare (not safe)) - (if (null? _args285359_) - (gxc#compile-e__0 _stx285357_) - (let ((_arg1285364_ (car _args285359_)) - (_rest285366_ (cdr _args285359_))) - (if (null? _rest285366_) - (gxc#compile-e__1 _stx285357_ _arg1285364_) - (let ((_arg2285369_ (car _rest285366_)) - (_rest285371_ (cdr _rest285366_))) - (if (null? _rest285371_) + (if (null? _args286660_) + (gxc#compile-e__0 _stx286658_) + (let ((_arg1286665_ (car _args286660_)) + (_rest286667_ (cdr _args286660_))) + (if (null? _rest286667_) + (gxc#compile-e__1 _stx286658_ _arg1286665_) + (let ((_arg2286670_ (car _rest286667_)) + (_rest286672_ (cdr _rest286667_))) + (if (null? _rest286672_) (gxc#compile-e__2 - _stx285357_ - _arg1285364_ - _arg2285369_) + _stx286658_ + _arg1286665_ + _arg2286670_) (apply gxc#compile-e - _stx285357_ - _arg1285364_ - _arg2285369_ - _rest285371_)))))))) - (__tmp290388 (force gxc#&generate-ssxi))) + _stx286658_ + _arg1286665_ + _arg2286670_ + _rest286672_)))))))) + (__tmp291689 (force gxc#&generate-ssxi))) (declare (not safe)) (call-with-parameters - __tmp290389 + __tmp291690 gxc#current-compile-methods - __tmp290388)))) + __tmp291689)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_stx285318_) - (let* ((_g285320285330_ - (lambda (_g285321285327_) + (lambda (_stx286619_) + (let* ((_g286621286631_ + (lambda (_g286622286628_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285321285327_)))) - (_g285319285354_ - (lambda (_g285321285333_) + _g286622286628_)))) + (_g286620286655_ + (lambda (_g286622286634_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285321285333_)) - (let ((_e285325285335_ + (gx#stx-pair? _g286622286634_)) + (let ((_e286626286636_ (let () (declare (not safe)) - (gx#stx-e _g285321285333_)))) - (let ((_hd285324285338_ + (gx#stx-e _g286622286634_)))) + (let ((_hd286625286639_ (let () (declare (not safe)) - (##car _e285325285335_))) - (_tl285323285340_ + (##car _e286626286636_))) + (_tl286624286641_ (let () (declare (not safe)) - (##cdr _e285325285335_)))) - ((lambda (_L285343_) - (let ((__tmp290392 + (##cdr _e286626286636_)))) + ((lambda (_L286644_) + (let ((__tmp291693 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _stx285318_)))) - (__tmp290390 - (let ((__tmp290391 + _stx286619_)))) + (__tmp291691 + (let ((__tmp291692 (gx#current-expander-phi))) (declare (not safe)) - (fx+ __tmp290391 '1)))) + (fx+ __tmp291692 '1)))) (declare (not safe)) (call-with-parameters - __tmp290392 + __tmp291693 gx#current-expander-phi - __tmp290390))) - _tl285323285340_))) + __tmp291691))) + _tl286624286641_))) (let () (declare (not safe)) - (_g285320285330_ _g285321285333_)))))) + (_g286621286631_ _g286622286634_)))))) (declare (not safe)) - (_g285319285354_ _stx285318_)))) + (_g286620286655_ _stx286619_)))) (define gxc#generate-ssxi-module% - (lambda (_stx285258_) - (let* ((_g285260285274_ - (lambda (_g285261285271_) + (lambda (_stx286559_) + (let* ((_g286561286575_ + (lambda (_g286562286572_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g285261285271_)))) - (_g285259285315_ - (lambda (_g285261285277_) + _g286562286572_)))) + (_g286560286616_ + (lambda (_g286562286578_) (if (let () (declare (not safe)) - (gx#stx-pair? _g285261285277_)) - (let ((_e285266285279_ + (gx#stx-pair? _g286562286578_)) + (let ((_e286567286580_ (let () (declare (not safe)) - (gx#stx-e _g285261285277_)))) - (let ((_hd285265285282_ + (gx#stx-e _g286562286578_)))) + (let ((_hd286566286583_ (let () (declare (not safe)) - (##car _e285266285279_))) - (_tl285264285284_ + (##car _e286567286580_))) + (_tl286565286585_ (let () (declare (not safe)) - (##cdr _e285266285279_)))) + (##cdr _e286567286580_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285264285284_)) - (let ((_e285269285287_ + (gx#stx-pair? _tl286565286585_)) + (let ((_e286570286588_ (let () (declare (not safe)) - (gx#stx-e _tl285264285284_)))) - (let ((_hd285268285290_ + (gx#stx-e _tl286565286585_)))) + (let ((_hd286569286591_ (let () (declare (not safe)) - (##car _e285269285287_))) - (_tl285267285292_ + (##car _e286570286588_))) + (_tl286568286593_ (let () (declare (not safe)) - (##cdr _e285269285287_)))) - ((lambda (_L285295_ _L285296_) - (let* ((_ctx285309_ + (##cdr _e286570286588_)))) + ((lambda (_L286596_ _L286597_) + (let* ((_ctx286610_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _L285296_))) - (_code285311_ + _L286597_))) + (_code286612_ (##structure-ref - _ctx285309_ + _ctx286610_ '11 gx#module-context::t '#f))) - (let ((__tmp290393 + (let ((__tmp291694 (lambda () (let () (declare (not safe)) (gxc#compile-e__0 - _code285311_))))) + _code286612_))))) (declare (not safe)) (call-with-parameters - __tmp290393 + __tmp291694 gx#current-expander-context - _ctx285309_)))) - _tl285267285292_ - _hd285268285290_))) + _ctx286610_)))) + _tl286568286593_ + _hd286569286591_))) (let () (declare (not safe)) - (_g285260285274_ _g285261285277_))))) + (_g286561286575_ _g286562286578_))))) (let () (declare (not safe)) - (_g285260285274_ _g285261285277_)))))) + (_g286561286575_ _g286562286578_)))))) (declare (not safe)) - (_g285259285315_ _stx285258_)))) + (_g286560286616_ _stx286559_)))) (define gxc#generate-ssxi-define-values% - (lambda (_stx285068_) - (letrec ((_generate-e285070_ - (lambda (_id285247_) - (let* ((_sym285249_ - (if (let ((__tmp290394 + (lambda (_stx286369_) + (letrec ((_generate-e286371_ + (lambda (_id286548_) + (let* ((_sym286550_ + (if (let ((__tmp291695 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp290394)) + (gx#identifier? __tmp291695)) (let () (declare (not safe)) - (gxc#identifier-symbol _id285247_)) + (gxc#identifier-symbol _id286548_)) '#f)) - (_$e285251_ - (if _sym285249_ + (_$e286552_ + (if _sym286550_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _sym285249_)) + (gxc#optimizer-lookup-type _sym286550_)) '#f))) - (if _$e285251_ - ((lambda (_type285254_) + (if _$e286552_ + ((lambda (_type286555_) (let () (declare (not safe)) - (gxc#verbose '"generate typedecl " _sym285249_)) - (let* ((_typedecl285256_ - (let ((__method290363 + (gxc#verbose '"generate typedecl " _sym286550_)) + (let* ((_typedecl286557_ + (let ((__method291664 (let () (declare (not safe)) (method-ref - _type285254_ + _type286555_ 'typedecl)))) - (if __method290363 - (__method290363 _type285254_) + (if __method291664 + (__method291664 _type286555_) (error '"Missing method" - _type285254_ + _type286555_ 'typedecl)))) - (__tmp290395 - (let ((__tmp290396 + (__tmp291696 + (let ((__tmp291697 (let () (declare (not safe)) - (cons _typedecl285256_ '())))) + (cons _typedecl286557_ '())))) (declare (not safe)) - (cons _sym285249_ __tmp290396)))) + (cons _sym286550_ __tmp291697)))) (declare (not safe)) - (cons 'declare-type __tmp290395))) - _$e285251_) + (cons 'declare-type __tmp291696))) + _$e286552_) '(begin)))))) - (let* ((___stx290061290062_ _stx285068_) - (_g285073285111_ + (let* ((___stx291362291363_ _stx286369_) + (_g286374286412_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx290061290062_))))) - (let ((___kont290063290064_ - (lambda (_L285229_) + ___stx291362291363_))))) + (let ((___kont291364291365_ + (lambda (_L286530_) (let () (declare (not safe)) - (_generate-e285070_ _L285229_)))) - (___kont290065290066_ - (lambda (_L285164_) - (let ((_types285190_ - (map _generate-e285070_ - (let ((__tmp290397 - (lambda (_g285182285185_ - _g285183285187_) + (_generate-e286371_ _L286530_)))) + (___kont291366291367_ + (lambda (_L286465_) + (let ((_types286491_ + (map _generate-e286371_ + (let ((__tmp291698 + (lambda (_g286483286486_ + _g286484286488_) (let () (declare (not safe)) - (cons _g285182285185_ - _g285183285187_))))) + (cons _g286483286486_ + _g286484286488_))))) (declare (not safe)) - (foldr1 __tmp290397 '() _L285164_))))) + (foldr1 __tmp291698 '() _L286465_))))) (declare (not safe)) - (cons 'begin _types285190_))))) - (let ((___match290116290117_ - (lambda (_e285091285116_ - _hd285090285119_ - _tl285089285121_ - _e285094285124_ - _hd285093285127_ - _tl285092285129_ - ___splice290067290068_ - _target285095285132_ - _tl285097285134_) - (letrec ((_loop285098285137_ - (lambda (_hd285096285140_ _id285102285142_) + (cons 'begin _types286491_))))) + (let ((___match291417291418_ + (lambda (_e286392286417_ + _hd286391286420_ + _tl286390286422_ + _e286395286425_ + _hd286394286428_ + _tl286393286430_ + ___splice291368291369_ + _target286396286433_ + _tl286398286435_) + (letrec ((_loop286399286438_ + (lambda (_hd286397286441_ _id286403286443_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd285096285140_)) - (let ((_e285099285145_ + (gx#stx-pair? _hd286397286441_)) + (let ((_e286400286446_ (let () (declare (not safe)) - (gx#stx-e _hd285096285140_)))) - (let ((_lp-tl285101285150_ + (gx#stx-e _hd286397286441_)))) + (let ((_lp-tl286402286451_ (let () (declare (not safe)) - (##cdr _e285099285145_))) - (_lp-hd285100285148_ + (##cdr _e286400286446_))) + (_lp-hd286401286449_ (let () (declare (not safe)) - (##car _e285099285145_)))) - (let ((__tmp290398 + (##car _e286400286446_)))) + (let ((__tmp291699 (let () (declare (not safe)) - (cons _lp-hd285100285148_ - _id285102285142_)))) + (cons _lp-hd286401286449_ + _id286403286443_)))) (declare (not safe)) - (_loop285098285137_ - _lp-tl285101285150_ - __tmp290398)))) - (let ((_id285103285153_ - (reverse _id285102285142_))) + (_loop286399286438_ + _lp-tl286402286451_ + __tmp291699)))) + (let ((_id286404286454_ + (reverse _id286403286443_))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285092285129_)) - (let ((_e285106285156_ + (gx#stx-pair? _tl286393286430_)) + (let ((_e286407286457_ (let () (declare (not safe)) (gx#stx-e - _tl285092285129_)))) - (let ((_tl285104285161_ + _tl286393286430_)))) + (let ((_tl286405286462_ (let () (declare (not safe)) - (##cdr _e285106285156_))) - (_hd285105285159_ + (##cdr _e286407286457_))) + (_hd286406286460_ (let () (declare (not safe)) - (##car _e285106285156_)))) + (##car _e286407286457_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285104285161_)) - (___kont290065290066_ - _id285103285153_) + _tl286405286462_)) + (___kont291366291367_ + _id286404286454_) (let () (declare (not safe)) - (_g285073285111_))))) + (_g286374286412_))))) (let () (declare (not safe)) - (_g285073285111_)))))))) + (_g286374286412_)))))))) (let () (declare (not safe)) - (_loop285098285137_ _target285095285132_ '())))))) + (_loop286399286438_ _target286396286433_ '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx290061290062_)) - (let ((_e285078285197_ + (gx#stx-pair? ___stx291362291363_)) + (let ((_e286379286498_ (let () (declare (not safe)) - (gx#stx-e ___stx290061290062_)))) - (let ((_tl285076285202_ + (gx#stx-e ___stx291362291363_)))) + (let ((_tl286377286503_ (let () (declare (not safe)) - (##cdr _e285078285197_))) - (_hd285077285200_ + (##cdr _e286379286498_))) + (_hd286378286501_ (let () (declare (not safe)) - (##car _e285078285197_)))) + (##car _e286379286498_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl285076285202_)) - (let ((_e285081285205_ + (gx#stx-pair? _tl286377286503_)) + (let ((_e286382286506_ (let () (declare (not safe)) - (gx#stx-e _tl285076285202_)))) - (let ((_tl285079285210_ + (gx#stx-e _tl286377286503_)))) + (let ((_tl286380286511_ (let () (declare (not safe)) - (##cdr _e285081285205_))) - (_hd285080285208_ + (##cdr _e286382286506_))) + (_hd286381286509_ (let () (declare (not safe)) - (##car _e285081285205_)))) + (##car _e286382286506_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd285080285208_)) - (let ((_e285084285213_ + (gx#stx-pair? _hd286381286509_)) + (let ((_e286385286514_ (let () (declare (not safe)) - (gx#stx-e _hd285080285208_)))) - (let ((_tl285082285218_ + (gx#stx-e _hd286381286509_)))) + (let ((_tl286383286519_ (let () (declare (not safe)) - (##cdr _e285084285213_))) - (_hd285083285216_ + (##cdr _e286385286514_))) + (_hd286384286517_ (let () (declare (not safe)) - (##car _e285084285213_)))) + (##car _e286385286514_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285082285218_)) + (gx#stx-null? _tl286383286519_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl285079285210_)) - (let ((_e285087285221_ + _tl286380286511_)) + (let ((_e286388286522_ (let () (declare (not safe)) (gx#stx-e - _tl285079285210_)))) - (let ((_tl285085285226_ + _tl286380286511_)))) + (let ((_tl286386286527_ (let () (declare (not safe)) - (##cdr _e285087285221_))) - (_hd285086285224_ + (##cdr _e286388286522_))) + (_hd286387286525_ (let () (declare (not safe)) - (##car _e285087285221_)))) + (##car _e286388286522_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285085285226_)) - (___kont290063290064_ - _hd285083285216_) + _tl286386286527_)) + (___kont291364291365_ + _hd286384286517_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd285080285208_)) - (let ((___splice290067290068_ + _hd286381286509_)) + (let ((___splice291368291369_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _hd285080285208_ '0)))) - (let ((_tl285097285134_ + (gx#syntax-split-splice _hd286381286509_ '0)))) + (let ((_tl286398286435_ (let () (declare (not safe)) - (##vector-ref ___splice290067290068_ '1))) - (_target285095285132_ + (##vector-ref ___splice291368291369_ '1))) + (_target286396286433_ (let () (declare (not safe)) - (##vector-ref ___splice290067290068_ '0)))) + (##vector-ref ___splice291368291369_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285097285134_)) - (___match290116290117_ - _e285078285197_ - _hd285077285200_ - _tl285076285202_ - _e285081285205_ - _hd285080285208_ - _tl285079285210_ - ___splice290067290068_ - _target285095285132_ - _tl285097285134_) - (let () (declare (not safe)) (_g285073285111_))))) - (let () (declare (not safe)) (_g285073285111_)))))) + (gx#stx-null? _tl286398286435_)) + (___match291417291418_ + _e286379286498_ + _hd286378286501_ + _tl286377286503_ + _e286382286506_ + _hd286381286509_ + _tl286380286511_ + ___splice291368291369_ + _target286396286433_ + _tl286398286435_) + (let () (declare (not safe)) (_g286374286412_))))) + (let () (declare (not safe)) (_g286374286412_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd285080285208_)) - (let ((___splice290067290068_ + _hd286381286509_)) + (let ((___splice291368291369_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd285080285208_ + _hd286381286509_ '0)))) - (let ((_tl285097285134_ + (let ((_tl286398286435_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice290067290068_ '1))) - (_target285095285132_ + (##vector-ref ___splice291368291369_ '1))) + (_target286396286433_ (let () (declare (not safe)) - (##vector-ref ___splice290067290068_ '0)))) + (##vector-ref ___splice291368291369_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl285097285134_)) - (___match290116290117_ - _e285078285197_ - _hd285077285200_ - _tl285076285202_ - _e285081285205_ - _hd285080285208_ - _tl285079285210_ - ___splice290067290068_ - _target285095285132_ - _tl285097285134_) - (let () (declare (not safe)) (_g285073285111_))))) + (gx#stx-null? _tl286398286435_)) + (___match291417291418_ + _e286379286498_ + _hd286378286501_ + _tl286377286503_ + _e286382286506_ + _hd286381286509_ + _tl286380286511_ + ___splice291368291369_ + _target286396286433_ + _tl286398286435_) + (let () (declare (not safe)) (_g286374286412_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g285073285111_)))) + (_g286374286412_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _hd285080285208_)) - (let ((___splice290067290068_ + _hd286381286509_)) + (let ((___splice291368291369_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd285080285208_ + _hd286381286509_ '0)))) - (let ((_tl285097285134_ + (let ((_tl286398286435_ (let () (declare (not safe)) (##vector-ref - ___splice290067290068_ + ___splice291368291369_ '1))) - (_target285095285132_ + (_target286396286433_ (let () (declare (not safe)) (##vector-ref - ___splice290067290068_ + ___splice291368291369_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285097285134_)) - (___match290116290117_ - _e285078285197_ - _hd285077285200_ - _tl285076285202_ - _e285081285205_ - _hd285080285208_ - _tl285079285210_ - ___splice290067290068_ - _target285095285132_ - _tl285097285134_) + _tl286398286435_)) + (___match291417291418_ + _e286379286498_ + _hd286378286501_ + _tl286377286503_ + _e286382286506_ + _hd286381286509_ + _tl286380286511_ + ___splice291368291369_ + _target286396286433_ + _tl286398286435_) (let () (declare (not safe)) - (_g285073285111_))))) + (_g286374286412_))))) (let () (declare (not safe)) - (_g285073285111_)))))) + (_g286374286412_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _hd285080285208_)) - (let ((___splice290067290068_ + (gx#stx-pair/null? _hd286381286509_)) + (let ((___splice291368291369_ (let () (declare (not safe)) (gx#syntax-split-splice - _hd285080285208_ + _hd286381286509_ '0)))) - (let ((_tl285097285134_ + (let ((_tl286398286435_ (let () (declare (not safe)) (##vector-ref - ___splice290067290068_ + ___splice291368291369_ '1))) - (_target285095285132_ + (_target286396286433_ (let () (declare (not safe)) (##vector-ref - ___splice290067290068_ + ___splice291368291369_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl285097285134_)) - (___match290116290117_ - _e285078285197_ - _hd285077285200_ - _tl285076285202_ - _e285081285205_ - _hd285080285208_ - _tl285079285210_ - ___splice290067290068_ - _target285095285132_ - _tl285097285134_) + _tl286398286435_)) + (___match291417291418_ + _e286379286498_ + _hd286378286501_ + _tl286377286503_ + _e286382286506_ + _hd286381286509_ + _tl286380286511_ + ___splice291368291369_ + _target286396286433_ + _tl286398286435_) (let () (declare (not safe)) - (_g285073285111_))))) + (_g286374286412_))))) (let () (declare (not safe)) - (_g285073285111_)))))) - (let () (declare (not safe)) (_g285073285111_))))) - (let () (declare (not safe)) (_g285073285111_))))))))) + (_g286374286412_)))))) + (let () (declare (not safe)) (_g286374286412_))))) + (let () (declare (not safe)) (_g286374286412_))))))))) (define gxc#generate-ssxi-call% - (lambda (_stx284622_) - (let* ((___stx290119290120_ _stx284622_) - (_g284626284728_ + (lambda (_stx285923_) + (let* ((___stx291420291421_ _stx285923_) + (_g285927286029_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx290119290120_))))) - (let ((___kont290121290122_ - (lambda (_L285018_ _L285019_ _L285020_ _L285021_ _L285022_) - (let ((__tmp290399 - (let ((__tmp290406 + ___stx291420291421_))))) + (let ((___kont291422291423_ + (lambda (_L286319_ _L286320_ _L286321_ _L286322_ _L286323_) + (let ((__tmp291700 + (let ((__tmp291707 (let () (declare (not safe)) - (gxc#identifier-symbol _L285021_))) - (__tmp290400 - (let ((__tmp290405 + (gxc#identifier-symbol _L286322_))) + (__tmp291701 + (let ((__tmp291706 (let () (declare (not safe)) - (gx#stx-e _L285020_))) - (__tmp290401 - (let ((__tmp290404 + (gx#stx-e _L286321_))) + (__tmp291702 + (let ((__tmp291705 (let () (declare (not safe)) (gxc#identifier-symbol - _L285019_))) - (__tmp290402 - (let ((__tmp290403 + _L286320_))) + (__tmp291703 + (let ((__tmp291704 (let () (declare (not safe)) - (gx#stx-e _L285018_)))) + (gx#stx-e _L286319_)))) (declare (not safe)) - (cons __tmp290403 '())))) + (cons __tmp291704 '())))) (declare (not safe)) - (cons __tmp290404 __tmp290402)))) + (cons __tmp291705 __tmp291703)))) (declare (not safe)) - (cons __tmp290405 __tmp290401)))) + (cons __tmp291706 __tmp291702)))) (declare (not safe)) - (cons __tmp290406 __tmp290400)))) + (cons __tmp291707 __tmp291701)))) (declare (not safe)) - (cons 'declare-method __tmp290399)))) - (___kont290123290124_ - (lambda (_L284844_ _L284845_ _L284846_ _L284847_) - (let ((__tmp290407 - (let ((__tmp290413 + (cons 'declare-method __tmp291700)))) + (___kont291424291425_ + (lambda (_L286145_ _L286146_ _L286147_ _L286148_) + (let ((__tmp291708 + (let ((__tmp291714 (let () (declare (not safe)) - (gxc#identifier-symbol _L284846_))) - (__tmp290408 - (let ((__tmp290412 + (gxc#identifier-symbol _L286147_))) + (__tmp291709 + (let ((__tmp291713 (let () (declare (not safe)) - (gx#stx-e _L284845_))) - (__tmp290409 - (let ((__tmp290411 + (gx#stx-e _L286146_))) + (__tmp291710 + (let ((__tmp291712 (let () (declare (not safe)) (gxc#identifier-symbol - _L284844_))) - (__tmp290410 + _L286145_))) + (__tmp291711 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp290411 __tmp290410)))) + (cons __tmp291712 __tmp291711)))) (declare (not safe)) - (cons __tmp290412 __tmp290409)))) + (cons __tmp291713 __tmp291710)))) (declare (not safe)) - (cons __tmp290413 __tmp290408)))) + (cons __tmp291714 __tmp291709)))) (declare (not safe)) - (cons 'declare-method __tmp290407)))) - (___kont290125290126_ (lambda () '(begin)))) - (let ((___match290254290255_ - (lambda (_e284635284890_ - _hd284634284893_ - _tl284633284895_ - _e284638284898_ - _hd284637284901_ - _tl284636284903_ - _e284641284906_ - _hd284640284909_ - _tl284639284911_ - _e284644284914_ - _hd284643284917_ - _tl284642284919_ - _e284647284922_ - _hd284646284925_ - _tl284645284927_ - _e284650284930_ - _hd284649284933_ - _tl284648284935_ - _e284653284938_ - _hd284652284941_ - _tl284651284943_ - _e284656284946_ - _hd284655284949_ - _tl284654284951_ - _e284659284954_ - _hd284658284957_ - _tl284657284959_ - _e284662284962_ - _hd284661284965_ - _tl284660284967_ - _e284665284970_ - _hd284664284973_ - _tl284663284975_ - _e284668284978_ - _hd284667284981_ - _tl284666284983_ - _e284671284986_ - _hd284670284989_ - _tl284669284991_ - _e284674284994_ - _hd284673284997_ - _tl284672284999_ - _e284677285002_ - _hd284676285005_ - _tl284675285007_ - _e284680285010_ - _hd284679285013_ - _tl284678285015_) - (let ((_L285018_ _hd284679285013_) - (_L285019_ _hd284670284989_) - (_L285020_ _hd284661284965_) - (_L285021_ _hd284652284941_) - (_L285022_ _hd284643284917_)) + (cons 'declare-method __tmp291708)))) + (___kont291426291427_ (lambda () '(begin)))) + (let ((___match291555291556_ + (lambda (_e285936286191_ + _hd285935286194_ + _tl285934286196_ + _e285939286199_ + _hd285938286202_ + _tl285937286204_ + _e285942286207_ + _hd285941286210_ + _tl285940286212_ + _e285945286215_ + _hd285944286218_ + _tl285943286220_ + _e285948286223_ + _hd285947286226_ + _tl285946286228_ + _e285951286231_ + _hd285950286234_ + _tl285949286236_ + _e285954286239_ + _hd285953286242_ + _tl285952286244_ + _e285957286247_ + _hd285956286250_ + _tl285955286252_ + _e285960286255_ + _hd285959286258_ + _tl285958286260_ + _e285963286263_ + _hd285962286266_ + _tl285961286268_ + _e285966286271_ + _hd285965286274_ + _tl285964286276_ + _e285969286279_ + _hd285968286282_ + _tl285967286284_ + _e285972286287_ + _hd285971286290_ + _tl285970286292_ + _e285975286295_ + _hd285974286298_ + _tl285973286300_ + _e285978286303_ + _hd285977286306_ + _tl285976286308_ + _e285981286311_ + _hd285980286314_ + _tl285979286316_) + (let ((_L286319_ _hd285980286314_) + (_L286320_ _hd285971286290_) + (_L286321_ _hd285962286266_) + (_L286322_ _hd285953286242_) + (_L286323_ _hd285944286218_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _L285022_ + _L286323_ 'bind-method!)) - (___kont290121290122_ - _L285018_ - _L285019_ - _L285020_ - _L285021_ - _L285022_) - (___kont290125290126_)))))) + (___kont291422291423_ + _L286319_ + _L286320_ + _L286321_ + _L286322_ + _L286323_) + (___kont291426291427_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx290119290120_)) - (let ((_e284635284890_ + (gx#stx-pair? ___stx291420291421_)) + (let ((_e285936286191_ (let () (declare (not safe)) - (gx#stx-e ___stx290119290120_)))) - (let ((_tl284633284895_ + (gx#stx-e ___stx291420291421_)))) + (let ((_tl285934286196_ (let () (declare (not safe)) - (##cdr _e284635284890_))) - (_hd284634284893_ + (##cdr _e285936286191_))) + (_hd285935286194_ (let () (declare (not safe)) - (##car _e284635284890_)))) + (##car _e285936286191_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284633284895_)) - (let ((_e284638284898_ + (gx#stx-pair? _tl285934286196_)) + (let ((_e285939286199_ (let () (declare (not safe)) - (gx#stx-e _tl284633284895_)))) - (let ((_tl284636284903_ + (gx#stx-e _tl285934286196_)))) + (let ((_tl285937286204_ (let () (declare (not safe)) - (##cdr _e284638284898_))) - (_hd284637284901_ + (##cdr _e285939286199_))) + (_hd285938286202_ (let () (declare (not safe)) - (##car _e284638284898_)))) + (##car _e285939286199_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd284637284901_)) - (let ((_e284641284906_ + (gx#stx-pair? _hd285938286202_)) + (let ((_e285942286207_ (let () (declare (not safe)) - (gx#stx-e _hd284637284901_)))) - (let ((_tl284639284911_ + (gx#stx-e _hd285938286202_)))) + (let ((_tl285940286212_ (let () (declare (not safe)) - (##cdr _e284641284906_))) - (_hd284640284909_ + (##cdr _e285942286207_))) + (_hd285941286210_ (let () (declare (not safe)) - (##car _e284641284906_)))) + (##car _e285942286207_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd284640284909_)) + (gx#identifier? _hd285941286210_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd284640284909_)) + _hd285941286210_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl284639284911_)) - (let ((_e284644284914_ + _tl285940286212_)) + (let ((_e285945286215_ (let () (declare (not safe)) (gx#stx-e - _tl284639284911_)))) - (let ((_tl284642284919_ + _tl285940286212_)))) + (let ((_tl285943286220_ (let () (declare (not safe)) - (##cdr _e284644284914_))) - (_hd284643284917_ + (##cdr _e285945286215_))) + (_hd285944286218_ (let () (declare (not safe)) - (##car _e284644284914_)))) + (##car _e285945286215_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284642284919_)) + _tl285943286220_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl284636284903_)) - (let ((_e284647284922_ + (gx#stx-pair? _tl285937286204_)) + (let ((_e285948286223_ (let () (declare (not safe)) - (gx#stx-e _tl284636284903_)))) - (let ((_tl284645284927_ + (gx#stx-e _tl285937286204_)))) + (let ((_tl285946286228_ (let () (declare (not safe)) - (##cdr _e284647284922_))) - (_hd284646284925_ + (##cdr _e285948286223_))) + (_hd285947286226_ (let () (declare (not safe)) - (##car _e284647284922_)))) + (##car _e285948286223_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd284646284925_)) - (let ((_e284650284930_ + (gx#stx-pair? _hd285947286226_)) + (let ((_e285951286231_ (let () (declare (not safe)) - (gx#stx-e _hd284646284925_)))) - (let ((_tl284648284935_ + (gx#stx-e _hd285947286226_)))) + (let ((_tl285949286236_ (let () (declare (not safe)) - (##cdr _e284650284930_))) - (_hd284649284933_ + (##cdr _e285951286231_))) + (_hd285950286234_ (let () (declare (not safe)) - (##car _e284650284930_)))) + (##car _e285951286231_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd284649284933_)) + (gx#identifier? _hd285950286234_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _hd284649284933_)) + _hd285950286234_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl284648284935_)) - (let ((_e284653284938_ + _tl285949286236_)) + (let ((_e285954286239_ (let () (declare (not safe)) (gx#stx-e - _tl284648284935_)))) - (let ((_tl284651284943_ + _tl285949286236_)))) + (let ((_tl285952286244_ (let () (declare (not safe)) - (##cdr _e284653284938_))) - (_hd284652284941_ + (##cdr _e285954286239_))) + (_hd285953286242_ (let () (declare (not safe)) - (##car _e284653284938_)))) + (##car _e285954286239_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284651284943_)) + _tl285952286244_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl284645284927_)) - (let ((_e284656284946_ + _tl285946286228_)) + (let ((_e285957286247_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _tl284645284927_)))) - (let ((_tl284654284951_ + (gx#stx-e _tl285946286228_)))) + (let ((_tl285955286252_ (let () (declare (not safe)) - (##cdr _e284656284946_))) - (_hd284655284949_ + (##cdr _e285957286247_))) + (_hd285956286250_ (let () (declare (not safe)) - (##car _e284656284946_)))) + (##car _e285957286247_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd284655284949_)) - (let ((_e284659284954_ + (gx#stx-pair? _hd285956286250_)) + (let ((_e285960286255_ (let () (declare (not safe)) - (gx#stx-e _hd284655284949_)))) - (let ((_tl284657284959_ + (gx#stx-e _hd285956286250_)))) + (let ((_tl285958286260_ (let () (declare (not safe)) - (##cdr _e284659284954_))) - (_hd284658284957_ + (##cdr _e285960286255_))) + (_hd285959286258_ (let () (declare (not safe)) - (##car _e284659284954_)))) + (##car _e285960286255_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd284658284957_)) + (gx#identifier? _hd285959286258_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd284658284957_)) + (gx#stx-eq? '%#quote _hd285959286258_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284657284959_)) - (let ((_e284662284962_ + (gx#stx-pair? _tl285958286260_)) + (let ((_e285963286263_ (let () (declare (not safe)) (gx#stx-e - _tl284657284959_)))) - (let ((_tl284660284967_ + _tl285958286260_)))) + (let ((_tl285961286268_ (let () (declare (not safe)) - (##cdr _e284662284962_))) - (_hd284661284965_ + (##cdr _e285963286263_))) + (_hd285962286266_ (let () (declare (not safe)) - (##car _e284662284962_)))) + (##car _e285963286263_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284660284967_)) + _tl285961286268_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl284654284951_)) - (let ((_e284665284970_ + _tl285955286252_)) + (let ((_e285966286271_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _tl284654284951_)))) - (let ((_tl284663284975_ - (let () (declare (not safe)) (##cdr _e284665284970_))) - (_hd284664284973_ - (let () (declare (not safe)) (##car _e284665284970_)))) + (gx#stx-e _tl285955286252_)))) + (let ((_tl285964286276_ + (let () (declare (not safe)) (##cdr _e285966286271_))) + (_hd285965286274_ + (let () (declare (not safe)) (##car _e285966286271_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _hd284664284973_)) - (let ((_e284668284978_ + (gx#stx-pair? _hd285965286274_)) + (let ((_e285969286279_ (let () (declare (not safe)) - (gx#stx-e _hd284664284973_)))) - (let ((_tl284666284983_ + (gx#stx-e _hd285965286274_)))) + (let ((_tl285967286284_ (let () (declare (not safe)) - (##cdr _e284668284978_))) - (_hd284667284981_ + (##cdr _e285969286279_))) + (_hd285968286282_ (let () (declare (not safe)) - (##car _e284668284978_)))) + (##car _e285969286279_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd284667284981_)) + (gx#identifier? _hd285968286282_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _hd284667284981_)) + (gx#stx-eq? '%#ref _hd285968286282_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284666284983_)) - (let ((_e284671284986_ + (gx#stx-pair? _tl285967286284_)) + (let ((_e285972286287_ (let () (declare (not safe)) - (gx#stx-e _tl284666284983_)))) - (let ((_tl284669284991_ + (gx#stx-e _tl285967286284_)))) + (let ((_tl285970286292_ (let () (declare (not safe)) - (##cdr _e284671284986_))) - (_hd284670284989_ + (##cdr _e285972286287_))) + (_hd285971286290_ (let () (declare (not safe)) - (##car _e284671284986_)))) + (##car _e285972286287_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl284669284991_)) + _tl285970286292_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl284663284975_)) - (let ((_e284674284994_ + _tl285964286276_)) + (let ((_e285975286295_ (let () (declare (not safe)) (gx#stx-e - _tl284663284975_)))) - (let ((_tl284672284999_ + _tl285964286276_)))) + (let ((_tl285973286300_ (let () (declare (not safe)) - (##cdr _e284674284994_))) - (_hd284673284997_ + (##cdr _e285975286295_))) + (_hd285974286298_ (let () (declare (not safe)) - (##car _e284674284994_)))) + (##car _e285975286295_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _hd284673284997_)) - (let ((_e284677285002_ + _hd285974286298_)) + (let ((_e285978286303_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd284673284997_)))) - (let ((_tl284675285007_ + (gx#stx-e _hd285974286298_)))) + (let ((_tl285976286308_ (let () (declare (not safe)) - (##cdr _e284677285002_))) - (_hd284676285005_ + (##cdr _e285978286303_))) + (_hd285977286306_ (let () (declare (not safe)) - (##car _e284677285002_)))) + (##car _e285978286303_)))) (if (let () (declare (not safe)) - (gx#identifier? _hd284676285005_)) + (gx#identifier? _hd285977286306_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _hd284676285005_)) + (gx#stx-eq? '%#quote _hd285977286306_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl284675285007_)) - (let ((_e284680285010_ + (gx#stx-pair? _tl285976286308_)) + (let ((_e285981286311_ (let () (declare (not safe)) - (gx#stx-e _tl284675285007_)))) - (let ((_tl284678285015_ + (gx#stx-e _tl285976286308_)))) + (let ((_tl285979286316_ (let () (declare (not safe)) - (##cdr _e284680285010_))) - (_hd284679285013_ + (##cdr _e285981286311_))) + (_hd285980286314_ (let () (declare (not safe)) - (##car _e284680285010_)))) + (##car _e285981286311_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl284678285015_)) + (gx#stx-null? _tl285979286316_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl284672284999_)) - (___match290254290255_ - _e284635284890_ - _hd284634284893_ - _tl284633284895_ - _e284638284898_ - _hd284637284901_ - _tl284636284903_ - _e284641284906_ - _hd284640284909_ - _tl284639284911_ - _e284644284914_ - _hd284643284917_ - _tl284642284919_ - _e284647284922_ - _hd284646284925_ - _tl284645284927_ - _e284650284930_ - _hd284649284933_ - _tl284648284935_ - _e284653284938_ - _hd284652284941_ - _tl284651284943_ - _e284656284946_ - _hd284655284949_ - _tl284654284951_ - _e284659284954_ - _hd284658284957_ - _tl284657284959_ - _e284662284962_ - _hd284661284965_ - _tl284660284967_ - _e284665284970_ - _hd284664284973_ - _tl284663284975_ - _e284668284978_ - _hd284667284981_ - _tl284666284983_ - _e284671284986_ - _hd284670284989_ - _tl284669284991_ - _e284674284994_ - _hd284673284997_ - _tl284672284999_ - _e284677285002_ - _hd284676285005_ - _tl284675285007_ - _e284680285010_ - _hd284679285013_ - _tl284678285015_) - (___kont290125290126_)) - (___kont290125290126_)))) - (___kont290125290126_)) - (___kont290125290126_)) - (___kont290125290126_)))) - (___kont290125290126_)))) + _tl285973286300_)) + (___match291555291556_ + _e285936286191_ + _hd285935286194_ + _tl285934286196_ + _e285939286199_ + _hd285938286202_ + _tl285937286204_ + _e285942286207_ + _hd285941286210_ + _tl285940286212_ + _e285945286215_ + _hd285944286218_ + _tl285943286220_ + _e285948286223_ + _hd285947286226_ + _tl285946286228_ + _e285951286231_ + _hd285950286234_ + _tl285949286236_ + _e285954286239_ + _hd285953286242_ + _tl285952286244_ + _e285957286247_ + _hd285956286250_ + _tl285955286252_ + _e285960286255_ + _hd285959286258_ + _tl285958286260_ + _e285963286263_ + _hd285962286266_ + _tl285961286268_ + _e285966286271_ + _hd285965286274_ + _tl285964286276_ + _e285969286279_ + _hd285968286282_ + _tl285967286284_ + _e285972286287_ + _hd285971286290_ + _tl285970286292_ + _e285975286295_ + _hd285974286298_ + _tl285973286300_ + _e285978286303_ + _hd285977286306_ + _tl285976286308_ + _e285981286311_ + _hd285980286314_ + _tl285979286316_) + (___kont291426291427_)) + (___kont291426291427_)))) + (___kont291426291427_)) + (___kont291426291427_)) + (___kont291426291427_)))) + (___kont291426291427_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl284663284975_)) - (if (let ((__tmp290414 + _tl285964286276_)) + (if (let ((__tmp291715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp290414 'bind-method!)) - (let ((_L284844_ _hd284670284989_) - (_L284845_ _hd284661284965_) - (_L284846_ _hd284652284941_) - (_L284847_ _hd284643284917_)) - (___kont290123290124_ - _L284844_ - _L284845_ - _L284846_ - _L284847_)) - (___kont290125290126_)) - (___kont290125290126_))) + (gxc#runtime-identifier=? __tmp291715 'bind-method!)) + (let ((_L286145_ _hd285971286290_) + (_L286146_ _hd285962286266_) + (_L286147_ _hd285953286242_) + (_L286148_ _hd285944286218_)) + (___kont291424291425_ + _L286145_ + _L286146_ + _L286147_ + _L286148_)) + (___kont291426291427_)) + (___kont291426291427_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont290125290126_)))) - (___kont290125290126_)) - (___kont290125290126_)) - (___kont290125290126_)))) - (___kont290125290126_)))) - (___kont290125290126_)) + (___kont291426291427_)))) + (___kont291426291427_)) + (___kont291426291427_)) + (___kont291426291427_)))) + (___kont291426291427_)))) + (___kont291426291427_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont290125290126_)))) - (___kont290125290126_)) - (___kont290125290126_)) - (___kont290125290126_)))) - (___kont290125290126_)))) - (___kont290125290126_)) - (___kont290125290126_)))) + (___kont291426291427_)))) + (___kont291426291427_)) + (___kont291426291427_)) + (___kont291426291427_)))) + (___kont291426291427_)))) + (___kont291426291427_)) + (___kont291426291427_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont290125290126_)) - (___kont290125290126_)) - (___kont290125290126_)))) - (___kont290125290126_)))) - (___kont290125290126_)) - (___kont290125290126_)))) + (___kont291426291427_)) + (___kont291426291427_)) + (___kont291426291427_)))) + (___kont291426291427_)))) + (___kont291426291427_)) + (___kont291426291427_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont290125290126_)) - (___kont290125290126_)) - (___kont290125290126_)))) - (___kont290125290126_)))) - (___kont290125290126_)))) - (___kont290125290126_))))))) + (___kont291426291427_)) + (___kont291426291427_)) + (___kont291426291427_)))) + (___kont291426291427_)))) + (___kont291426291427_)))) + (___kont291426291427_))))))) (define gxc#!alias::typedecl - (lambda (_self284598_) - (let* ((_self284599284605_ _self284598_) - (_E284601284609_ - (lambda () (error '"No clause matching" _self284599284605_))) - (_K284602284614_ - (lambda (_alias-id284612_) - (let ((__tmp290415 + (lambda (_self285899_) + (let* ((_self285900285906_ _self285899_) + (_E285902285910_ + (lambda () (error '"No clause matching" _self285900285906_))) + (_K285903285915_ + (lambda (_alias-id285913_) + (let ((__tmp291716 (let () (declare (not safe)) - (cons _alias-id284612_ '())))) + (cons _alias-id285913_ '())))) (declare (not safe)) - (cons '@alias __tmp290415))))) + (cons '@alias __tmp291716))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self284599284605_ 'gxc#!alias::t)) - (let* ((_e284603284617_ + (##structure-instance-of? _self285900285906_ 'gxc#!alias::t)) + (let* ((_e285904285918_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284599284605_ + _self285900285906_ '1 gxc#!type::t '#f))) - (_alias-id284620_ _e284603284617_)) + (_alias-id285921_ _e285904285918_)) (declare (not safe)) - (_K284602284614_ _alias-id284620_)) - (let () (declare (not safe)) (_E284601284609_)))))) + (_K285903285915_ _alias-id285921_)) + (let () (declare (not safe)) (_E285902285910_)))))) (let () (declare (not safe)) (bind-method! gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_self284396_) - (let* ((_self284397284411_ _self284396_) - (_E284399284415_ - (lambda () (error '"No clause matching" _self284397284411_))) - (_K284400284428_ - (lambda (_methods284418_ - _final?284419_ - _struct?284420_ - _constructor284421_ - _fields284422_ - _slots284423_ - _precendence-list284424_ - _super284425_ - _id284426_) - (let ((__tmp290416 - (let ((__tmp290417 - (let ((__tmp290418 - (let ((__tmp290419 - (let ((__tmp290420 - (let ((__tmp290421 - (let ((__tmp290422 + (lambda (_self285690_) + (let* ((_self285691285706_ _self285690_) + (_E285693285710_ + (lambda () (error '"No clause matching" _self285691285706_))) + (_K285694285724_ + (lambda (_methods285713_ + _metaclass285714_ + _final?285715_ + _struct?285716_ + _constructor285717_ + _fields285718_ + _slots285719_ + _precendence-list285720_ + _super285721_ + _id285722_) + (let ((__tmp291717 + (let ((__tmp291718 + (let ((__tmp291719 + (let ((__tmp291720 + (let ((__tmp291721 + (let ((__tmp291722 + (let ((__tmp291723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp290423 - (let ((__tmp290424 - (let ((__tmp290425 - (if _methods284418_ - (let () - (declare (not safe)) - (table->list - _methods284418_)) - '#f))) + (let ((__tmp291724 + (let ((__tmp291725 + (let ((__tmp291726 + (let ((__tmp291727 + (if _methods285713_ + (let () + (declare + (not safe)) + (table->list + _methods285713_)) + '#f))) + (declare (not safe)) + (cons __tmp291727 '())))) (declare (not safe)) - (cons __tmp290425 '())))) + (cons _metaclass285714_ + __tmp291726)))) (declare (not safe)) - (cons _final?284419_ __tmp290424)))) + (cons _final?285715_ __tmp291725)))) (declare (not safe)) - (cons _struct?284420_ __tmp290423)))) + (cons _struct?285716_ __tmp291724)))) (declare (not safe)) - (cons _constructor284421_ __tmp290422)))) + (cons _constructor285717_ __tmp291723)))) (declare (not safe)) - (cons _fields284422_ __tmp290421)))) + (cons _fields285718_ __tmp291722)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _slots284423_ - __tmp290420)))) + (cons _slots285719_ + __tmp291721)))) (declare (not safe)) - (cons _precendence-list284424_ - __tmp290419)))) + (cons _precendence-list285720_ + __tmp291720)))) (declare (not safe)) - (cons _super284425_ __tmp290418)))) + (cons _super285721_ __tmp291719)))) (declare (not safe)) - (cons _id284426_ __tmp290417)))) + (cons _id285722_ __tmp291718)))) (declare (not safe)) - (cons '@class __tmp290416))))) + (cons '@class __tmp291717))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self284397284411_ 'gxc#!class::t)) - (let* ((_e284401284431_ + (##structure-instance-of? _self285691285706_ 'gxc#!class::t)) + (let* ((_e285695285727_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '1 gxc#!type::t '#f))) - (_id284434_ _e284401284431_) - (_e284402284436_ + (_id285730_ _e285695285727_) + (_e285696285732_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '2 gxc#!class::t '#f))) - (_super284439_ _e284402284436_) - (_e284403284441_ + (_super285735_ _e285696285732_) + (_e285697285737_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '3 gxc#!class::t '#f))) - (_precendence-list284444_ _e284403284441_) - (_e284404284446_ + (_precendence-list285740_ _e285697285737_) + (_e285698285742_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '4 gxc#!class::t '#f))) - (_slots284449_ _e284404284446_) - (_e284405284451_ + (_slots285745_ _e285698285742_) + (_e285699285747_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '5 gxc#!class::t '#f))) - (_fields284454_ _e284405284451_) - (_e284406284456_ + (_fields285750_ _e285699285747_) + (_e285700285752_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '6 gxc#!class::t '#f))) - (_constructor284459_ _e284406284456_) - (_e284407284461_ + (_constructor285755_ _e285700285752_) + (_e285701285757_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '7 gxc#!class::t '#f))) - (_struct?284464_ _e284407284461_) - (_e284408284466_ + (_struct?285760_ _e285701285757_) + (_e285702285762_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '8 gxc#!class::t '#f))) - (_final?284469_ _e284408284466_) - (_e284409284471_ + (_final?285765_ _e285702285762_) + (_e285703285767_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284397284411_ + _self285691285706_ '9 gxc#!class::t '#f))) - (_methods284474_ _e284409284471_)) + (_metaclass285770_ _e285703285767_) + (_e285704285772_ + (let () + (declare (not safe)) + (##unchecked-structure-ref + _self285691285706_ + '10 + gxc#!class::t + '#f))) + (_methods285775_ _e285704285772_)) (declare (not safe)) - (_K284400284428_ - _methods284474_ - _final?284469_ - _struct?284464_ - _constructor284459_ - _fields284454_ - _slots284449_ - _precendence-list284444_ - _super284439_ - _id284434_)) - (let () (declare (not safe)) (_E284399284415_)))))) + (_K285694285724_ + _methods285775_ + _metaclass285770_ + _final?285765_ + _struct?285760_ + _constructor285755_ + _fields285750_ + _slots285745_ + _precendence-list285740_ + _super285735_ + _id285730_)) + (let () (declare (not safe)) (_E285693285710_)))))) (let () (declare (not safe)) (bind-method! gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_self284250_) - (let* ((_self284251284257_ _self284250_) - (_E284253284261_ - (lambda () (error '"No clause matching" _self284251284257_))) - (_K284254284266_ - (lambda (_klass-id284264_) - (let ((__tmp290426 + (lambda (_self285544_) + (let* ((_self285545285551_ _self285544_) + (_E285547285555_ + (lambda () (error '"No clause matching" _self285545285551_))) + (_K285548285560_ + (lambda (_klass-id285558_) + (let ((__tmp291728 (let () (declare (not safe)) - (cons _klass-id284264_ '())))) + (cons _klass-id285558_ '())))) (declare (not safe)) - (cons '@predicate __tmp290426))))) + (cons '@predicate __tmp291728))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self284251284257_ + _self285545285551_ 'gxc#!predicate::t)) - (let* ((_e284255284269_ + (let* ((_e285549285563_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284251284257_ + _self285545285551_ '1 gxc#!type::t '#f))) - (_klass-id284272_ _e284255284269_)) + (_klass-id285566_ _e285549285563_)) (declare (not safe)) - (_K284254284266_ _klass-id284272_)) - (let () (declare (not safe)) (_E284253284261_)))))) + (_K285548285560_ _klass-id285566_)) + (let () (declare (not safe)) (_E285547285555_)))))) (let () (declare (not safe)) (bind-method! gxc#!predicate::t 'typedecl gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_self284104_) - (let* ((_self284105284111_ _self284104_) - (_E284107284115_ - (lambda () (error '"No clause matching" _self284105284111_))) - (_K284108284120_ - (lambda (_klass-id284118_) - (let ((__tmp290427 + (lambda (_self285398_) + (let* ((_self285399285405_ _self285398_) + (_E285401285409_ + (lambda () (error '"No clause matching" _self285399285405_))) + (_K285402285414_ + (lambda (_klass-id285412_) + (let ((__tmp291729 (let () (declare (not safe)) - (cons _klass-id284118_ '())))) + (cons _klass-id285412_ '())))) (declare (not safe)) - (cons '@constructor __tmp290427))))) + (cons '@constructor __tmp291729))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self284105284111_ + _self285399285405_ 'gxc#!constructor::t)) - (let* ((_e284109284123_ + (let* ((_e285403285417_ (let () (declare (not safe)) (##unchecked-structure-ref - _self284105284111_ + _self285399285405_ '1 gxc#!type::t '#f))) - (_klass-id284126_ _e284109284123_)) + (_klass-id285420_ _e285403285417_)) (declare (not safe)) - (_K284108284120_ _klass-id284126_)) - (let () (declare (not safe)) (_E284107284115_)))))) + (_K285402285414_ _klass-id285420_)) + (let () (declare (not safe)) (_E285401285409_)))))) (let () (declare (not safe)) (bind-method! @@ -1771,289 +1787,289 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_self283944_) - (let* ((_self283945283953_ _self283944_) - (_E283947283957_ - (lambda () (error '"No clause matching" _self283945283953_))) - (_K283948283964_ - (lambda (_checked?283960_ _slot283961_ _klass-id283962_) - (let ((__tmp290428 - (let ((__tmp290429 - (let ((__tmp290430 + (lambda (_self285238_) + (let* ((_self285239285247_ _self285238_) + (_E285241285251_ + (lambda () (error '"No clause matching" _self285239285247_))) + (_K285242285258_ + (lambda (_checked?285254_ _slot285255_ _klass-id285256_) + (let ((__tmp291730 + (let ((__tmp291731 + (let ((__tmp291732 (let () (declare (not safe)) - (cons _checked?283960_ '())))) + (cons _checked?285254_ '())))) (declare (not safe)) - (cons _slot283961_ __tmp290430)))) + (cons _slot285255_ __tmp291732)))) (declare (not safe)) - (cons _klass-id283962_ __tmp290429)))) + (cons _klass-id285256_ __tmp291731)))) (declare (not safe)) - (cons '@accessor __tmp290428))))) + (cons '@accessor __tmp291730))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self283945283953_ + _self285239285247_ 'gxc#!accessor::t)) - (let* ((_e283949283967_ + (let* ((_e285243285261_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283945283953_ + _self285239285247_ '1 gxc#!type::t '#f))) - (_klass-id283970_ _e283949283967_) - (_e283950283972_ + (_klass-id285264_ _e285243285261_) + (_e285244285266_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283945283953_ + _self285239285247_ '2 gxc#!accessor::t '#f))) - (_slot283975_ _e283950283972_) - (_e283951283977_ + (_slot285269_ _e285244285266_) + (_e285245285271_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283945283953_ + _self285239285247_ '3 gxc#!accessor::t '#f))) - (_checked?283980_ _e283951283977_)) + (_checked?285274_ _e285245285271_)) (declare (not safe)) - (_K283948283964_ - _checked?283980_ - _slot283975_ - _klass-id283970_)) - (let () (declare (not safe)) (_E283947283957_)))))) + (_K285242285258_ + _checked?285274_ + _slot285269_ + _klass-id285264_)) + (let () (declare (not safe)) (_E285241285251_)))))) (let () (declare (not safe)) (bind-method! gxc#!accessor::t 'typedecl gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_self283784_) - (let* ((_self283785283793_ _self283784_) - (_E283787283797_ - (lambda () (error '"No clause matching" _self283785283793_))) - (_K283788283804_ - (lambda (_checked?283800_ _slot283801_ _klass-id283802_) - (let ((__tmp290431 - (let ((__tmp290432 - (let ((__tmp290433 + (lambda (_self285078_) + (let* ((_self285079285087_ _self285078_) + (_E285081285091_ + (lambda () (error '"No clause matching" _self285079285087_))) + (_K285082285098_ + (lambda (_checked?285094_ _slot285095_ _klass-id285096_) + (let ((__tmp291733 + (let ((__tmp291734 + (let ((__tmp291735 (let () (declare (not safe)) - (cons _checked?283800_ '())))) + (cons _checked?285094_ '())))) (declare (not safe)) - (cons _slot283801_ __tmp290433)))) + (cons _slot285095_ __tmp291735)))) (declare (not safe)) - (cons _klass-id283802_ __tmp290432)))) + (cons _klass-id285096_ __tmp291734)))) (declare (not safe)) - (cons '@mutator __tmp290431))))) + (cons '@mutator __tmp291733))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self283785283793_ 'gxc#!mutator::t)) - (let* ((_e283789283807_ + (##structure-instance-of? _self285079285087_ 'gxc#!mutator::t)) + (let* ((_e285083285101_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283785283793_ + _self285079285087_ '1 gxc#!type::t '#f))) - (_klass-id283810_ _e283789283807_) - (_e283790283812_ + (_klass-id285104_ _e285083285101_) + (_e285084285106_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283785283793_ + _self285079285087_ '2 gxc#!mutator::t '#f))) - (_slot283815_ _e283790283812_) - (_e283791283817_ + (_slot285109_ _e285084285106_) + (_e285085285111_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283785283793_ + _self285079285087_ '3 gxc#!mutator::t '#f))) - (_checked?283820_ _e283791283817_)) + (_checked?285114_ _e285085285111_)) (declare (not safe)) - (_K283788283804_ - _checked?283820_ - _slot283815_ - _klass-id283810_)) - (let () (declare (not safe)) (_E283787283797_)))))) + (_K285082285098_ + _checked?285114_ + _slot285109_ + _klass-id285104_)) + (let () (declare (not safe)) (_E285081285091_)))))) (let () (declare (not safe)) (bind-method! gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_self283610_) - (let* ((_self283611283621_ _self283610_) - (_E283613283625_ - (lambda () (error '"No clause matching" _self283611283621_))) - (_K283614283636_ - (lambda (_typedecl283628_ - _inline283629_ - _dispatch283630_ - _arity283631_) - (if _inline283629_ - (let ((_$e283633_ _typedecl283628_)) - (if _$e283633_ - _$e283633_ + (lambda (_self284904_) + (let* ((_self284905284915_ _self284904_) + (_E284907284919_ + (lambda () (error '"No clause matching" _self284905284915_))) + (_K284908284930_ + (lambda (_typedecl284922_ + _inline284923_ + _dispatch284924_ + _arity284925_) + (if _inline284923_ + (let ((_$e284927_ _typedecl284922_)) + (if _$e284927_ + _$e284927_ (error '"Cannot generate typedecl for inline rules"))) - (let ((__tmp290434 - (let ((__tmp290435 + (let ((__tmp291736 + (let ((__tmp291737 (let () (declare (not safe)) - (cons _dispatch283630_ '())))) + (cons _dispatch284924_ '())))) (declare (not safe)) - (cons _arity283631_ __tmp290435)))) + (cons _arity284925_ __tmp291737)))) (declare (not safe)) - (cons '@lambda __tmp290434)))))) + (cons '@lambda __tmp291736)))))) (if (let () (declare (not safe)) - (##structure-instance-of? _self283611283621_ 'gxc#!lambda::t)) - (let* ((_e283615283639_ + (##structure-instance-of? _self284905284915_ 'gxc#!lambda::t)) + (let* ((_e284909284933_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283611283621_ + _self284905284915_ '1 gxc#!type::t '#f))) - (_e283616283642_ + (_e284910284936_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283611283621_ + _self284905284915_ '2 gxc#!lambda::t '#f))) - (_arity283645_ _e283616283642_) - (_e283617283647_ + (_arity284939_ _e284910284936_) + (_e284911284941_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283611283621_ + _self284905284915_ '3 gxc#!lambda::t '#f))) - (_dispatch283650_ _e283617283647_) - (_e283618283652_ + (_dispatch284944_ _e284911284941_) + (_e284912284946_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283611283621_ + _self284905284915_ '4 gxc#!lambda::t '#f))) - (_inline283655_ _e283618283652_) - (_e283619283657_ + (_inline284949_ _e284912284946_) + (_e284913284951_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283611283621_ + _self284905284915_ '5 gxc#!lambda::t '#f))) - (_typedecl283660_ _e283619283657_)) + (_typedecl284954_ _e284913284951_)) (declare (not safe)) - (_K283614283636_ - _typedecl283660_ - _inline283655_ - _dispatch283650_ - _arity283645_)) - (let () (declare (not safe)) (_E283613283625_)))))) + (_K284908284930_ + _typedecl284954_ + _inline284949_ + _dispatch284944_ + _arity284939_)) + (let () (declare (not safe)) (_E284907284919_)))))) (let () (declare (not safe)) (bind-method! gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_self283421_) - (letrec ((_clause-e283423_ - (lambda (_clause283453_) - (let* ((_clause283454283462_ _clause283453_) - (_E283456283466_ + (lambda (_self284715_) + (letrec ((_clause-e284717_ + (lambda (_clause284747_) + (let* ((_clause284748284756_ _clause284747_) + (_E284750284760_ (lambda () (error '"No clause matching" - _clause283454283462_))) - (_K283457283472_ - (lambda (_dispatch283469_ _arity283470_) - (let ((__tmp290436 + _clause284748284756_))) + (_K284751284766_ + (lambda (_dispatch284763_ _arity284764_) + (let ((__tmp291738 (let () (declare (not safe)) - (cons _dispatch283469_ '())))) + (cons _dispatch284763_ '())))) (declare (not safe)) - (cons _arity283470_ __tmp290436))))) + (cons _arity284764_ __tmp291738))))) (if (let () (declare (not safe)) (##structure-instance-of? - _clause283454283462_ + _clause284748284756_ 'gxc#!lambda::t)) - (let* ((_e283458283475_ + (let* ((_e284752284769_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause283454283462_ + _clause284748284756_ '1 gxc#!type::t '#f))) - (_e283459283478_ + (_e284753284772_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause283454283462_ + _clause284748284756_ '2 gxc#!lambda::t '#f))) - (_arity283481_ _e283459283478_) - (_e283460283483_ + (_arity284775_ _e284753284772_) + (_e284754284777_ (let () (declare (not safe)) (##unchecked-structure-ref - _clause283454283462_ + _clause284748284756_ '3 gxc#!lambda::t '#f))) - (_dispatch283486_ _e283460283483_)) + (_dispatch284780_ _e284754284777_)) (declare (not safe)) - (_K283457283472_ _dispatch283486_ _arity283481_)) - (let () (declare (not safe)) (_E283456283466_))))))) - (let* ((_self283424283431_ _self283421_) - (_E283426283435_ - (lambda () (error '"No clause matching" _self283424283431_))) - (_K283427283442_ - (lambda (_clauses283438_) - (let ((_clauses283440_ - (map _clause-e283423_ _clauses283438_))) + (_K284751284766_ _dispatch284780_ _arity284775_)) + (let () (declare (not safe)) (_E284750284760_))))))) + (let* ((_self284718284725_ _self284715_) + (_E284720284729_ + (lambda () (error '"No clause matching" _self284718284725_))) + (_K284721284736_ + (lambda (_clauses284732_) + (let ((_clauses284734_ + (map _clause-e284717_ _clauses284732_))) (declare (not safe)) - (cons '@case-lambda _clauses283440_))))) + (cons '@case-lambda _clauses284734_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self283424283431_ + _self284718284725_ 'gxc#!case-lambda::t)) - (let* ((_e283428283445_ + (let* ((_e284722284739_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283424283431_ + _self284718284725_ '1 gxc#!type::t '#f))) - (_e283429283448_ + (_e284723284742_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283424283431_ + _self284718284725_ '2 gxc#!case-lambda::t '#f))) - (_clauses283451_ _e283429283448_)) + (_clauses284745_ _e284723284742_)) (declare (not safe)) - (_K283427283442_ _clauses283451_)) - (let () (declare (not safe)) (_E283426283435_))))))) + (_K284721284736_ _clauses284745_)) + (let () (declare (not safe)) (_E284720284729_))))))) (let () (declare (not safe)) (bind-method! @@ -2062,108 +2078,108 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_self283264_) - (let* ((_self283265283273_ _self283264_) - (_E283267283277_ - (lambda () (error '"No clause matching" _self283265283273_))) - (_K283268283283_ - (lambda (_dispatch283280_ _table283281_) - (let ((__tmp290437 - (let ((__tmp290438 + (lambda (_self284558_) + (let* ((_self284559284567_ _self284558_) + (_E284561284571_ + (lambda () (error '"No clause matching" _self284559284567_))) + (_K284562284577_ + (lambda (_dispatch284574_ _table284575_) + (let ((__tmp291739 + (let ((__tmp291740 (let () (declare (not safe)) - (cons _dispatch283280_ '())))) + (cons _dispatch284574_ '())))) (declare (not safe)) - (cons _table283281_ __tmp290438)))) + (cons _table284575_ __tmp291740)))) (declare (not safe)) - (cons '@kw-lambda __tmp290437))))) + (cons '@kw-lambda __tmp291739))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self283265283273_ + _self284559284567_ 'gxc#!kw-lambda::t)) - (let* ((_e283269283286_ + (let* ((_e284563284580_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283265283273_ + _self284559284567_ '1 gxc#!type::t '#f))) - (_e283270283289_ + (_e284564284583_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283265283273_ + _self284559284567_ '2 gxc#!kw-lambda::t '#f))) - (_table283292_ _e283270283289_) - (_e283271283294_ + (_table284586_ _e284564284583_) + (_e284565284588_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283265283273_ + _self284559284567_ '3 gxc#!kw-lambda::t '#f))) - (_dispatch283297_ _e283271283294_)) + (_dispatch284591_ _e284565284588_)) (declare (not safe)) - (_K283268283283_ _dispatch283297_ _table283292_)) - (let () (declare (not safe)) (_E283267283277_)))))) + (_K284562284577_ _dispatch284591_ _table284586_)) + (let () (declare (not safe)) (_E284561284571_)))))) (let () (declare (not safe)) (bind-method! gxc#!kw-lambda::t 'typedecl gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_self283107_) - (let* ((_self283108283116_ _self283107_) - (_E283110283120_ - (lambda () (error '"No clause matching" _self283108283116_))) - (_K283111283126_ - (lambda (_main283123_ _keys283124_) - (let ((__tmp290439 - (let ((__tmp290440 + (lambda (_self284401_) + (let* ((_self284402284410_ _self284401_) + (_E284404284414_ + (lambda () (error '"No clause matching" _self284402284410_))) + (_K284405284420_ + (lambda (_main284417_ _keys284418_) + (let ((__tmp291741 + (let ((__tmp291742 (let () (declare (not safe)) - (cons _main283123_ '())))) + (cons _main284417_ '())))) (declare (not safe)) - (cons _keys283124_ __tmp290440)))) + (cons _keys284418_ __tmp291742)))) (declare (not safe)) - (cons '@kw-lambda-dispatch __tmp290439))))) + (cons '@kw-lambda-dispatch __tmp291741))))) (if (let () (declare (not safe)) (##structure-instance-of? - _self283108283116_ + _self284402284410_ 'gxc#!kw-lambda-primary::t)) - (let* ((_e283112283129_ + (let* ((_e284406284423_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283108283116_ + _self284402284410_ '1 gxc#!type::t '#f))) - (_e283113283132_ + (_e284407284426_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283108283116_ + _self284402284410_ '2 gxc#!kw-lambda-primary::t '#f))) - (_keys283135_ _e283113283132_) - (_e283114283137_ + (_keys284429_ _e284407284426_) + (_e284408284431_ (let () (declare (not safe)) (##unchecked-structure-ref - _self283108283116_ + _self284402284410_ '3 gxc#!kw-lambda-primary::t '#f))) - (_main283140_ _e283114283137_)) + (_main284434_ _e284408284431_)) (declare (not safe)) - (_K283111283126_ _main283140_ _keys283135_)) - (let () (declare (not safe)) (_E283110283120_)))))) + (_K284405284420_ _main284434_ _keys284429_)) + (let () (declare (not safe)) (_E284404284414_)))))) (let () (declare (not safe)) (bind-method! diff --git a/src/bootstrap/gerbil/compiler/ssxi__1.scm b/src/bootstrap/gerbil/compiler/ssxi__1.scm index e02e6d5fd..16f57af1c 100644 --- a/src/bootstrap/gerbil/compiler/ssxi__1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi__1.scm @@ -1,4574 +1,4576 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gxc[:0:]#declare-type| - (lambda (_$stx296819_) - (let* ((_g296823296841_ - (lambda (_g296824296837_) + (lambda (_$stx298125_) + (let* ((_g298129298147_ + (lambda (_g298130298143_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g296824296837_)))) - (_g296822296896_ - (lambda (_g296824296845_) + _g298130298143_)))) + (_g298128298202_ + (lambda (_g298130298151_) (if (let () (declare (not safe)) - (gx#stx-pair? _g296824296845_)) - (let ((_e296829296848_ + (gx#stx-pair? _g298130298151_)) + (let ((_e298135298154_ (let () (declare (not safe)) - (gx#syntax-e _g296824296845_)))) - (let ((_hd296828296852_ + (gx#syntax-e _g298130298151_)))) + (let ((_hd298134298158_ (let () (declare (not safe)) - (##car _e296829296848_))) - (_tl296827296855_ + (##car _e298135298154_))) + (_tl298133298161_ (let () (declare (not safe)) - (##cdr _e296829296848_)))) + (##cdr _e298135298154_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl296827296855_)) - (let ((_e296832296858_ + (gx#stx-pair? _tl298133298161_)) + (let ((_e298138298164_ (let () (declare (not safe)) - (gx#syntax-e _tl296827296855_)))) - (let ((_hd296831296862_ + (gx#syntax-e _tl298133298161_)))) + (let ((_hd298137298168_ (let () (declare (not safe)) - (##car _e296832296858_))) - (_tl296830296865_ + (##car _e298138298164_))) + (_tl298136298171_ (let () (declare (not safe)) - (##cdr _e296832296858_)))) + (##cdr _e298138298164_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl296830296865_)) - (let ((_e296835296868_ + (gx#stx-pair? _tl298136298171_)) + (let ((_e298141298174_ (let () (declare (not safe)) - (gx#syntax-e _tl296830296865_)))) - (let ((_hd296834296872_ + (gx#syntax-e _tl298136298171_)))) + (let ((_hd298140298178_ (let () (declare (not safe)) - (##car _e296835296868_))) - (_tl296833296875_ + (##car _e298141298174_))) + (_tl298139298181_ (let () (declare (not safe)) - (##cdr _e296835296868_)))) + (##cdr _e298141298174_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296833296875_)) - ((lambda (_L296878_ _L296880_) + (gx#stx-null? _tl298139298181_)) + ((lambda (_L298184_ _L298186_) (if (let () (declare (not safe)) (gx#identifier? - _L296880_)) - (let ((__tmp304910 + _L298186_)) + (let ((__tmp306234 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-type!))) - (__tmp304905 - (let ((__tmp304907 + (__tmp306229 + (let ((__tmp306231 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp304909 + (let ((__tmp306233 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp304908 + (__tmp306232 (let () (declare (not safe)) - (cons _L296880_ '())))) + (cons _L298186_ '())))) (declare (not safe)) - (cons __tmp304909 __tmp304908))) - (__tmp304906 - (let () (declare (not safe)) (cons _L296878_ '())))) + (cons __tmp306233 __tmp306232))) + (__tmp306230 + (let () (declare (not safe)) (cons _L298184_ '())))) (declare (not safe)) - (cons __tmp304907 __tmp304906)))) + (cons __tmp306231 __tmp306230)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp304910 - __tmp304905)) - (_g296823296841_ - _g296824296845_))) - _hd296834296872_ - _hd296831296862_) - (_g296823296841_ - _g296824296845_)))) - (_g296823296841_ _g296824296845_)))) - (_g296823296841_ _g296824296845_)))) - (_g296823296841_ _g296824296845_))))) - (_g296822296896_ _$stx296819_)))) + (cons __tmp306234 + __tmp306229)) + (_g298129298147_ + _g298130298151_))) + _hd298140298178_ + _hd298137298168_) + (_g298129298147_ + _g298130298151_)))) + (_g298129298147_ _g298130298151_)))) + (_g298129298147_ _g298130298151_)))) + (_g298129298147_ _g298130298151_))))) + (_g298128298202_ _$stx298125_)))) (define |gxc[:0:]#declare-type*| - (lambda (_$stx296900_) - (let* ((_g296904296933_ - (lambda (_g296905296929_) + (lambda (_$stx298206_) + (let* ((_g298210298239_ + (lambda (_g298211298235_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g296905296929_)))) - (_g296903297033_ - (lambda (_g296905296937_) + _g298211298235_)))) + (_g298209298339_ + (lambda (_g298211298243_) (if (let () (declare (not safe)) - (gx#stx-pair? _g296905296937_)) - (let ((_e296910296940_ + (gx#stx-pair? _g298211298243_)) + (let ((_e298216298246_ (let () (declare (not safe)) - (gx#syntax-e _g296905296937_)))) - (let ((_hd296909296944_ + (gx#syntax-e _g298211298243_)))) + (let ((_hd298215298250_ (let () (declare (not safe)) - (##car _e296910296940_))) - (_tl296908296947_ + (##car _e298216298246_))) + (_tl298214298253_ (let () (declare (not safe)) - (##cdr _e296910296940_)))) + (##cdr _e298216298246_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl296908296947_)) - (let ((_g304911_ + (gx#stx-pair/null? _tl298214298253_)) + (let ((_g306235_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl296908296947_ + _tl298214298253_ '0)))) (begin - (let ((_g304912_ + (let ((_g306236_ (let () (declare (not safe)) - (if (##values? _g304911_) - (##vector-length _g304911_) + (if (##values? _g306235_) + (##vector-length _g306235_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g304912_ 2))) + (##fx= _g306236_ 2))) (error "Context expects 2 values" - _g304912_))) - (let ((_target296911296950_ + _g306236_))) + (let ((_target298217298256_ (let () (declare (not safe)) - (##vector-ref _g304911_ 0))) - (_tl296913296953_ + (##vector-ref _g306235_ 0))) + (_tl298219298259_ (let () (declare (not safe)) - (##vector-ref _g304911_ 1)))) + (##vector-ref _g306235_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296913296953_)) - (letrec ((_loop296914296956_ - (lambda (_hd296912296960_ - _type296918296963_ - _symbol296919296965_) + (gx#stx-null? _tl298219298259_)) + (letrec ((_loop298220298262_ + (lambda (_hd298218298266_ + _type298224298269_ + _symbol298225298271_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd296912296960_)) - (let ((_e296915296968_ + _hd298218298266_)) + (let ((_e298221298274_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd296912296960_)))) - (let ((_lp-hd296916296972_ - (let () (declare (not safe)) (##car _e296915296968_))) - (_lp-tl296917296975_ - (let () (declare (not safe)) (##cdr _e296915296968_)))) + (gx#syntax-e _hd298218298266_)))) + (let ((_lp-hd298222298278_ + (let () (declare (not safe)) (##car _e298221298274_))) + (_lp-tl298223298281_ + (let () (declare (not safe)) (##cdr _e298221298274_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd296916296972_)) - (let ((_e296924296978_ + (gx#stx-pair? _lp-hd298222298278_)) + (let ((_e298230298284_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd296916296972_)))) - (let ((_hd296923296982_ + (gx#syntax-e _lp-hd298222298278_)))) + (let ((_hd298229298288_ (let () (declare (not safe)) - (##car _e296924296978_))) - (_tl296922296985_ + (##car _e298230298284_))) + (_tl298228298291_ (let () (declare (not safe)) - (##cdr _e296924296978_)))) + (##cdr _e298230298284_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl296922296985_)) - (let ((_e296927296988_ + (gx#stx-pair? _tl298228298291_)) + (let ((_e298233298294_ (let () (declare (not safe)) - (gx#syntax-e _tl296922296985_)))) - (let ((_hd296926296992_ + (gx#syntax-e _tl298228298291_)))) + (let ((_hd298232298298_ (let () (declare (not safe)) - (##car _e296927296988_))) - (_tl296925296995_ + (##car _e298233298294_))) + (_tl298231298301_ (let () (declare (not safe)) - (##cdr _e296927296988_)))) + (##cdr _e298233298294_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl296925296995_)) - (_loop296914296956_ - _lp-tl296917296975_ + (gx#stx-null? _tl298231298301_)) + (_loop298220298262_ + _lp-tl298223298281_ (let () (declare (not safe)) - (cons _hd296926296992_ - _type296918296963_)) + (cons _hd298232298298_ + _type298224298269_)) (let () (declare (not safe)) - (cons _hd296923296982_ - _symbol296919296965_))) - (_g296904296933_ _g296905296937_)))) - (_g296904296933_ _g296905296937_)))) - (_g296904296933_ _g296905296937_)))) - (let ((_type296920296998_ (reverse _type296918296963_)) - (_symbol296921297001_ (reverse _symbol296919296965_))) - ((lambda (_L297004_ _L297006_) - (let ((__tmp304919 + (cons _hd298229298288_ + _symbol298225298271_))) + (_g298210298239_ _g298211298243_)))) + (_g298210298239_ _g298211298243_)))) + (_g298210298239_ _g298211298243_)))) + (let ((_type298226298304_ (reverse _type298224298269_)) + (_symbol298227298307_ (reverse _symbol298225298271_))) + ((lambda (_L298310_ _L298312_) + (let ((__tmp306243 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp304913 + (__tmp306237 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L297004_ - _L297006_)) - (let ((__tmp304914 - (lambda (_g297021297025_ - _g297022297028_ - _g297023297030_) - (let ((__tmp304915 - (let ((__tmp304918 + _L298310_ + _L298312_)) + (let ((__tmp306238 + (lambda (_g298327298331_ + _g298328298334_ + _g298329298336_) + (let ((__tmp306239 + (let ((__tmp306242 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp304916 - (let ((__tmp304917 + (__tmp306240 + (let ((__tmp306241 (let () (declare (not safe)) - (cons _g297021297025_ + (cons _g298327298331_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g297022297028_ - __tmp304917)))) + (cons _g298328298334_ + __tmp306241)))) (declare (not safe)) - (cons __tmp304918 __tmp304916)))) + (cons __tmp306242 __tmp306240)))) (declare (not safe)) - (cons __tmp304915 _g297023297030_))))) + (cons __tmp306239 _g298329298336_))))) (declare (not safe)) - (foldr2 __tmp304914 '() _L297004_ _L297006_))))) + (foldr2 __tmp306238 '() _L298310_ _L298312_))))) (declare (not safe)) - (cons __tmp304919 __tmp304913))) - _type296920296998_ - _symbol296921297001_)))))) + (cons __tmp306243 __tmp306237))) + _type298226298304_ + _symbol298227298307_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop296914296956_ - _target296911296950_ + (_loop298220298262_ + _target298217298256_ '() '())) - (_g296904296933_ _g296905296937_))))) - (_g296904296933_ _g296905296937_)))) - (_g296904296933_ _g296905296937_))))) - (_g296903297033_ _$stx296900_)))) + (_g298210298239_ _g298211298243_))))) + (_g298210298239_ _g298211298243_)))) + (_g298210298239_ _g298211298243_))))) + (_g298209298339_ _$stx298206_)))) (define |gxc[:0:]#declare-method| - (lambda (_$stx297038_) - (let* ((___stx304470304471_ _$stx297038_) - (_g297043297085_ + (lambda (_$stx298344_) + (let* ((___stx305794305795_ _$stx298344_) + (_g298349298391_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx304470304471_))))) - (let ((___kont304473304474_ - (lambda (_L297213_ _L297215_ _L297216_ _L297217_) - (let ((__tmp304933 + ___stx305794305795_))))) + (let ((___kont305797305798_ + (lambda (_L298519_ _L298521_ _L298522_ _L298523_) + (let ((__tmp306257 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'optimizer-declare-method!))) - (__tmp304920 - (let ((__tmp304930 - (let ((__tmp304932 + (__tmp306244 + (let ((__tmp306254 + (let ((__tmp306256 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp304931 + (__tmp306255 (let () (declare (not safe)) - (cons _L297217_ '())))) + (cons _L298523_ '())))) (declare (not safe)) - (cons __tmp304932 __tmp304931))) - (__tmp304921 - (let ((__tmp304927 - (let ((__tmp304929 + (cons __tmp306256 __tmp306255))) + (__tmp306245 + (let ((__tmp306251 + (let ((__tmp306253 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp304928 + (__tmp306252 (let () (declare (not safe)) - (cons _L297216_ '())))) + (cons _L298522_ '())))) (declare (not safe)) - (cons __tmp304929 __tmp304928))) - (__tmp304922 - (let ((__tmp304924 - (let ((__tmp304926 + (cons __tmp306253 __tmp306252))) + (__tmp306246 + (let ((__tmp306248 + (let ((__tmp306250 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp304925 + (__tmp306249 (let () (declare (not safe)) - (cons _L297215_ '())))) + (cons _L298521_ '())))) (declare (not safe)) - (cons __tmp304926 __tmp304925))) - (__tmp304923 + (cons __tmp306250 __tmp306249))) + (__tmp306247 (let () (declare (not safe)) - (cons _L297213_ '())))) + (cons _L298519_ '())))) (declare (not safe)) - (cons __tmp304924 __tmp304923)))) + (cons __tmp306248 __tmp306247)))) (declare (not safe)) - (cons __tmp304927 __tmp304922)))) + (cons __tmp306251 __tmp306246)))) (declare (not safe)) - (cons __tmp304930 __tmp304921)))) + (cons __tmp306254 __tmp306245)))) (declare (not safe)) - (cons __tmp304933 __tmp304920)))) - (___kont304475304476_ - (lambda (_L297132_ _L297134_ _L297135_ _L297136_) - (let ((__tmp304934 - (let ((__tmp304935 - (let ((__tmp304936 - (let ((__tmp304937 - (let ((__tmp304938 + (cons __tmp306257 __tmp306244)))) + (___kont305799305800_ + (lambda (_L298438_ _L298440_ _L298441_ _L298442_) + (let ((__tmp306258 + (let ((__tmp306259 + (let ((__tmp306260 + (let ((__tmp306261 + (let ((__tmp306262 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)))) (declare (not safe)) - (cons __tmp304938 '())))) + (cons __tmp306262 '())))) (declare (not safe)) - (cons _L297132_ __tmp304937)))) + (cons _L298438_ __tmp306261)))) (declare (not safe)) - (cons _L297134_ __tmp304936)))) + (cons _L298440_ __tmp306260)))) (declare (not safe)) - (cons _L297135_ __tmp304935)))) + (cons _L298441_ __tmp306259)))) (declare (not safe)) - (cons _L297136_ __tmp304934))))) - (let ((___match304509304510_ - (lambda (_e297051297163_ - _hd297050297167_ - _tl297049297170_ - _e297054297173_ - _hd297053297177_ - _tl297052297180_ - _e297057297183_ - _hd297056297187_ - _tl297055297190_ - _e297060297193_ - _hd297059297197_ - _tl297058297200_ - _e297063297203_ - _hd297062297207_ - _tl297061297210_) - (let ((_L297213_ _hd297062297207_) - (_L297215_ _hd297059297197_) - (_L297216_ _hd297056297187_) - (_L297217_ _hd297053297177_)) + (cons _L298442_ __tmp306258))))) + (let ((___match305833305834_ + (lambda (_e298357298469_ + _hd298356298473_ + _tl298355298476_ + _e298360298479_ + _hd298359298483_ + _tl298358298486_ + _e298363298489_ + _hd298362298493_ + _tl298361298496_ + _e298366298499_ + _hd298365298503_ + _tl298364298506_ + _e298369298509_ + _hd298368298513_ + _tl298367298516_) + (let ((_L298519_ _hd298368298513_) + (_L298521_ _hd298365298503_) + (_L298522_ _hd298362298493_) + (_L298523_ _hd298359298483_)) (if (and (let () (declare (not safe)) - (gx#identifier? _L297217_)) + (gx#identifier? _L298523_)) (let () (declare (not safe)) - (gx#identifier? _L297216_)) + (gx#identifier? _L298522_)) (let () (declare (not safe)) - (gx#identifier? _L297215_))) - (___kont304473304474_ - _L297213_ - _L297215_ - _L297216_ - _L297217_) - (let () (declare (not safe)) (_g297043297085_))))))) + (gx#identifier? _L298521_))) + (___kont305797305798_ + _L298519_ + _L298521_ + _L298522_ + _L298523_) + (let () (declare (not safe)) (_g298349298391_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx304470304471_)) - (let ((_e297051297163_ + (gx#stx-pair? ___stx305794305795_)) + (let ((_e298357298469_ (let () (declare (not safe)) - (gx#syntax-e ___stx304470304471_)))) - (let ((_tl297049297170_ - (let () (declare (not safe)) (##cdr _e297051297163_))) - (_hd297050297167_ + (gx#syntax-e ___stx305794305795_)))) + (let ((_tl298355298476_ + (let () (declare (not safe)) (##cdr _e298357298469_))) + (_hd298356298473_ (let () (declare (not safe)) - (##car _e297051297163_)))) + (##car _e298357298469_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297049297170_)) - (let ((_e297054297173_ + (gx#stx-pair? _tl298355298476_)) + (let ((_e298360298479_ (let () (declare (not safe)) - (gx#syntax-e _tl297049297170_)))) - (let ((_tl297052297180_ + (gx#syntax-e _tl298355298476_)))) + (let ((_tl298358298486_ (let () (declare (not safe)) - (##cdr _e297054297173_))) - (_hd297053297177_ + (##cdr _e298360298479_))) + (_hd298359298483_ (let () (declare (not safe)) - (##car _e297054297173_)))) + (##car _e298360298479_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297052297180_)) - (let ((_e297057297183_ + (gx#stx-pair? _tl298358298486_)) + (let ((_e298363298489_ (let () (declare (not safe)) - (gx#syntax-e _tl297052297180_)))) - (let ((_tl297055297190_ + (gx#syntax-e _tl298358298486_)))) + (let ((_tl298361298496_ (let () (declare (not safe)) - (##cdr _e297057297183_))) - (_hd297056297187_ + (##cdr _e298363298489_))) + (_hd298362298493_ (let () (declare (not safe)) - (##car _e297057297183_)))) + (##car _e298363298489_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297055297190_)) - (let ((_e297060297193_ + (gx#stx-pair? _tl298361298496_)) + (let ((_e298366298499_ (let () (declare (not safe)) (gx#syntax-e - _tl297055297190_)))) - (let ((_tl297058297200_ + _tl298361298496_)))) + (let ((_tl298364298506_ (let () (declare (not safe)) - (##cdr _e297060297193_))) - (_hd297059297197_ + (##cdr _e298366298499_))) + (_hd298365298503_ (let () (declare (not safe)) - (##car _e297060297193_)))) + (##car _e298366298499_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl297058297200_)) - (let ((_e297063297203_ + _tl298364298506_)) + (let ((_e298369298509_ (let () (declare (not safe)) (gx#syntax-e - _tl297058297200_)))) - (let ((_tl297061297210_ + _tl298364298506_)))) + (let ((_tl298367298516_ (let () (declare (not safe)) - (##cdr _e297063297203_))) - (_hd297062297207_ + (##cdr _e298369298509_))) + (_hd298368298513_ (let () (declare (not safe)) - (##car _e297063297203_)))) + (##car _e298369298509_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl297061297210_)) - (___match304509304510_ - _e297051297163_ - _hd297050297167_ - _tl297049297170_ - _e297054297173_ - _hd297053297177_ - _tl297052297180_ - _e297057297183_ - _hd297056297187_ - _tl297055297190_ - _e297060297193_ - _hd297059297197_ - _tl297058297200_ - _e297063297203_ - _hd297062297207_ - _tl297061297210_) + _tl298367298516_)) + (___match305833305834_ + _e298357298469_ + _hd298356298473_ + _tl298355298476_ + _e298360298479_ + _hd298359298483_ + _tl298358298486_ + _e298363298489_ + _hd298362298493_ + _tl298361298496_ + _e298366298499_ + _hd298365298503_ + _tl298364298506_ + _e298369298509_ + _hd298368298513_ + _tl298367298516_) (let () (declare (not safe)) - (_g297043297085_))))) + (_g298349298391_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl297058297200_)) - (___kont304475304476_ - _hd297059297197_ - _hd297056297187_ - _hd297053297177_ - _hd297050297167_) + _tl298364298506_)) + (___kont305799305800_ + _hd298365298503_ + _hd298362298493_ + _hd298359298483_ + _hd298356298473_) (let () (declare (not safe)) - (_g297043297085_)))))) + (_g298349298391_)))))) (let () (declare (not safe)) - (_g297043297085_))))) + (_g298349298391_))))) (let () (declare (not safe)) - (_g297043297085_))))) - (let () (declare (not safe)) (_g297043297085_))))) - (let () (declare (not safe)) (_g297043297085_)))))))) + (_g298349298391_))))) + (let () (declare (not safe)) (_g298349298391_))))) + (let () (declare (not safe)) (_g298349298391_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_$stx297242_) - (let* ((_g297246297281_ - (lambda (_g297247297277_) + (lambda (_$stx298548_) + (let* ((_g298552298587_ + (lambda (_g298553298583_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g297247297277_)))) - (_g297245297400_ - (lambda (_g297247297285_) + _g298553298583_)))) + (_g298551298706_ + (lambda (_g298553298591_) (if (let () (declare (not safe)) - (gx#stx-pair? _g297247297285_)) - (let ((_e297253297288_ + (gx#stx-pair? _g298553298591_)) + (let ((_e298559298594_ (let () (declare (not safe)) - (gx#syntax-e _g297247297285_)))) - (let ((_hd297252297292_ + (gx#syntax-e _g298553298591_)))) + (let ((_hd298558298598_ (let () (declare (not safe)) - (##car _e297253297288_))) - (_tl297251297295_ + (##car _e298559298594_))) + (_tl298557298601_ (let () (declare (not safe)) - (##cdr _e297253297288_)))) + (##cdr _e298559298594_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl297251297295_)) - (let ((_g304939_ + (gx#stx-pair/null? _tl298557298601_)) + (let ((_g306263_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl297251297295_ + _tl298557298601_ '0)))) (begin - (let ((_g304940_ + (let ((_g306264_ (let () (declare (not safe)) - (if (##values? _g304939_) - (##vector-length _g304939_) + (if (##values? _g306263_) + (##vector-length _g306263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g304940_ 2))) + (##fx= _g306264_ 2))) (error "Context expects 2 values" - _g304940_))) - (let ((_target297254297298_ + _g306264_))) + (let ((_target298560298604_ (let () (declare (not safe)) - (##vector-ref _g304939_ 0))) - (_tl297256297301_ + (##vector-ref _g306263_ 0))) + (_tl298562298607_ (let () (declare (not safe)) - (##vector-ref _g304939_ 1)))) + (##vector-ref _g306263_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl297256297301_)) - (letrec ((_loop297257297304_ - (lambda (_hd297255297308_ - _symbol297261297311_ - _method297262297313_ - _type-t297263297315_) + (gx#stx-null? _tl298562298607_)) + (letrec ((_loop298563298610_ + (lambda (_hd298561298614_ + _symbol298567298617_ + _method298568298619_ + _type-t298569298621_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd297255297308_)) - (let ((_e297258297318_ + _hd298561298614_)) + (let ((_e298564298624_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd297255297308_)))) - (let ((_lp-hd297259297322_ - (let () (declare (not safe)) (##car _e297258297318_))) - (_lp-tl297260297325_ - (let () (declare (not safe)) (##cdr _e297258297318_)))) + (gx#syntax-e _hd298561298614_)))) + (let ((_lp-hd298565298628_ + (let () (declare (not safe)) (##car _e298564298624_))) + (_lp-tl298566298631_ + (let () (declare (not safe)) (##cdr _e298564298624_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd297259297322_)) - (let ((_e297269297328_ + (gx#stx-pair? _lp-hd298565298628_)) + (let ((_e298575298634_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd297259297322_)))) - (let ((_hd297268297332_ + (gx#syntax-e _lp-hd298565298628_)))) + (let ((_hd298574298638_ (let () (declare (not safe)) - (##car _e297269297328_))) - (_tl297267297335_ + (##car _e298575298634_))) + (_tl298573298641_ (let () (declare (not safe)) - (##cdr _e297269297328_)))) + (##cdr _e298575298634_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297267297335_)) - (let ((_e297272297338_ + (gx#stx-pair? _tl298573298641_)) + (let ((_e298578298644_ (let () (declare (not safe)) - (gx#syntax-e _tl297267297335_)))) - (let ((_hd297271297342_ + (gx#syntax-e _tl298573298641_)))) + (let ((_hd298577298648_ (let () (declare (not safe)) - (##car _e297272297338_))) - (_tl297270297345_ + (##car _e298578298644_))) + (_tl298576298651_ (let () (declare (not safe)) - (##cdr _e297272297338_)))) + (##cdr _e298578298644_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297270297345_)) - (let ((_e297275297348_ + (gx#stx-pair? _tl298576298651_)) + (let ((_e298581298654_ (let () (declare (not safe)) (gx#syntax-e - _tl297270297345_)))) - (let ((_hd297274297352_ + _tl298576298651_)))) + (let ((_hd298580298658_ (let () (declare (not safe)) - (##car _e297275297348_))) - (_tl297273297355_ + (##car _e298581298654_))) + (_tl298579298661_ (let () (declare (not safe)) - (##cdr _e297275297348_)))) + (##cdr _e298581298654_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl297273297355_)) - (_loop297257297304_ - _lp-tl297260297325_ + _tl298579298661_)) + (_loop298563298610_ + _lp-tl298566298631_ (let () (declare (not safe)) - (cons _hd297274297352_ - _symbol297261297311_)) + (cons _hd298580298658_ + _symbol298567298617_)) (let () (declare (not safe)) - (cons _hd297271297342_ - _method297262297313_)) + (cons _hd298577298648_ + _method298568298619_)) (let () (declare (not safe)) - (cons _hd297268297332_ - _type-t297263297315_))) - (_g297246297281_ - _g297247297285_)))) - (_g297246297281_ _g297247297285_)))) - (_g297246297281_ _g297247297285_)))) - (_g297246297281_ _g297247297285_)))) - (let ((_symbol297264297358_ (reverse _symbol297261297311_)) - (_method297265297361_ (reverse _method297262297313_)) - (_type-t297266297363_ (reverse _type-t297263297315_))) - ((lambda (_L297366_ _L297368_ _L297369_) - (let ((__tmp304948 + (cons _hd298574298638_ + _type-t298569298621_))) + (_g298552298587_ + _g298553298591_)))) + (_g298552298587_ _g298553298591_)))) + (_g298552298587_ _g298553298591_)))) + (_g298552298587_ _g298553298591_)))) + (let ((_symbol298570298664_ (reverse _symbol298567298617_)) + (_method298571298667_ (reverse _method298568298619_)) + (_type-t298572298669_ (reverse _type-t298569298621_))) + ((lambda (_L298672_ _L298674_ _L298675_) + (let ((__tmp306272 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp304941 + (__tmp306265 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L297366_ - _L297368_ - _L297369_)) - (let ((__tmp304942 - (lambda (_g297385297390_ - _g297386297393_ - _g297387297395_ - _g297388297397_) - (let ((__tmp304943 - (let ((__tmp304947 + _L298672_ + _L298674_ + _L298675_)) + (let ((__tmp306266 + (lambda (_g298691298696_ + _g298692298699_ + _g298693298701_ + _g298694298703_) + (let ((__tmp306267 + (let ((__tmp306271 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp304944 - (let ((__tmp304945 - (let ((__tmp304946 + (__tmp306268 + (let ((__tmp306269 + (let ((__tmp306270 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _g297385297390_ '())))) + (cons _g298691298696_ '())))) (declare (not safe)) - (cons _g297386297393_ __tmp304946)))) + (cons _g298692298699_ __tmp306270)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g297387297395_ - __tmp304945)))) + (cons _g298693298701_ + __tmp306269)))) (declare (not safe)) - (cons __tmp304947 __tmp304944)))) + (cons __tmp306271 __tmp306268)))) (declare (not safe)) - (cons __tmp304943 _g297388297397_))))) + (cons __tmp306267 _g298694298703_))))) (declare (not safe)) - (foldr* __tmp304942 + (foldr* __tmp306266 '() - _L297366_ - _L297368_ - _L297369_))))) + _L298672_ + _L298674_ + _L298675_))))) (declare (not safe)) - (cons __tmp304948 __tmp304941))) - _symbol297264297358_ - _method297265297361_ - _type-t297266297363_)))))) + (cons __tmp306272 __tmp306265))) + _symbol298570298664_ + _method298571298667_ + _type-t298572298669_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop297257297304_ - _target297254297298_ + (_loop298563298610_ + _target298560298604_ '() '() '())) - (_g297246297281_ _g297247297285_))))) - (_g297246297281_ _g297247297285_)))) - (_g297246297281_ _g297247297285_))))) - (_g297245297400_ _$stx297242_)))) + (_g298552298587_ _g298553298591_))))) + (_g298552298587_ _g298553298591_)))) + (_g298552298587_ _g298553298591_))))) + (_g298551298706_ _$stx298548_)))) (define |gxc[:0:]#declare-methods| - (lambda (_$stx297405_) - (let* ((_g297409297442_ - (lambda (_g297410297438_) + (lambda (_$stx298711_) + (let* ((_g298715298748_ + (lambda (_g298716298744_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g297410297438_)))) - (_g297408297556_ - (lambda (_g297410297446_) + _g298716298744_)))) + (_g298714298862_ + (lambda (_g298716298752_) (if (let () (declare (not safe)) - (gx#stx-pair? _g297410297446_)) - (let ((_e297416297449_ + (gx#stx-pair? _g298716298752_)) + (let ((_e298722298755_ (let () (declare (not safe)) - (gx#syntax-e _g297410297446_)))) - (let ((_hd297415297453_ + (gx#syntax-e _g298716298752_)))) + (let ((_hd298721298759_ (let () (declare (not safe)) - (##car _e297416297449_))) - (_tl297414297456_ + (##car _e298722298755_))) + (_tl298720298762_ (let () (declare (not safe)) - (##cdr _e297416297449_)))) + (##cdr _e298722298755_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297414297456_)) - (let ((_e297419297459_ + (gx#stx-pair? _tl298720298762_)) + (let ((_e298725298765_ (let () (declare (not safe)) - (gx#syntax-e _tl297414297456_)))) - (let ((_hd297418297463_ + (gx#syntax-e _tl298720298762_)))) + (let ((_hd298724298769_ (let () (declare (not safe)) - (##car _e297419297459_))) - (_tl297417297466_ + (##car _e298725298765_))) + (_tl298723298772_ (let () (declare (not safe)) - (##cdr _e297419297459_)))) + (##cdr _e298725298765_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl297417297466_)) - (let ((_g304949_ + (gx#stx-pair/null? _tl298723298772_)) + (let ((_g306273_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl297417297466_ + _tl298723298772_ '0)))) (begin - (let ((_g304950_ + (let ((_g306274_ (let () (declare (not safe)) - (if (##values? _g304949_) + (if (##values? _g306273_) (##vector-length - _g304949_) + _g306273_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g304950_ 2))) + (##fx= _g306274_ 2))) (error "Context expects 2 values" - _g304950_))) - (let ((_target297420297469_ + _g306274_))) + (let ((_target298726298775_ (let () (declare (not safe)) - (##vector-ref _g304949_ 0))) - (_tl297422297472_ + (##vector-ref _g306273_ 0))) + (_tl298728298778_ (let () (declare (not safe)) - (##vector-ref _g304949_ 1)))) + (##vector-ref _g306273_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl297422297472_)) - (letrec ((_loop297423297475_ - (lambda (_hd297421297479_ + _tl298728298778_)) + (letrec ((_loop298729298781_ + (lambda (_hd298727298785_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _symbol297427297482_ - _method297428297484_) + _symbol298733298788_ + _method298734298790_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd297421297479_)) - (let ((_e297424297487_ + (gx#stx-pair? _hd298727298785_)) + (let ((_e298730298793_ (let () (declare (not safe)) - (gx#syntax-e _hd297421297479_)))) - (let ((_lp-hd297425297491_ + (gx#syntax-e _hd298727298785_)))) + (let ((_lp-hd298731298797_ (let () (declare (not safe)) - (##car _e297424297487_))) - (_lp-tl297426297494_ + (##car _e298730298793_))) + (_lp-tl298732298800_ (let () (declare (not safe)) - (##cdr _e297424297487_)))) + (##cdr _e298730298793_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd297425297491_)) - (let ((_e297433297497_ + (gx#stx-pair? _lp-hd298731298797_)) + (let ((_e298739298803_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd297425297491_)))) - (let ((_hd297432297501_ + (gx#syntax-e _lp-hd298731298797_)))) + (let ((_hd298738298807_ (let () (declare (not safe)) - (##car _e297433297497_))) - (_tl297431297504_ + (##car _e298739298803_))) + (_tl298737298810_ (let () (declare (not safe)) - (##cdr _e297433297497_)))) + (##cdr _e298739298803_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297431297504_)) - (let ((_e297436297507_ + (gx#stx-pair? _tl298737298810_)) + (let ((_e298742298813_ (let () (declare (not safe)) (gx#syntax-e - _tl297431297504_)))) - (let ((_hd297435297511_ + _tl298737298810_)))) + (let ((_hd298741298817_ (let () (declare (not safe)) - (##car _e297436297507_))) - (_tl297434297514_ + (##car _e298742298813_))) + (_tl298740298820_ (let () (declare (not safe)) - (##cdr _e297436297507_)))) + (##cdr _e298742298813_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl297434297514_)) - (_loop297423297475_ - _lp-tl297426297494_ + _tl298740298820_)) + (_loop298729298781_ + _lp-tl298732298800_ (let () (declare (not safe)) - (cons _hd297435297511_ - _symbol297427297482_)) + (cons _hd298741298817_ + _symbol298733298788_)) (let () (declare (not safe)) - (cons _hd297432297501_ - _method297428297484_))) - (_g297409297442_ - _g297410297446_)))) - (_g297409297442_ _g297410297446_)))) - (_g297409297442_ _g297410297446_)))) - (let ((_symbol297429297517_ - (reverse _symbol297427297482_)) - (_method297430297520_ - (reverse _method297428297484_))) - ((lambda (_L297523_ _L297525_ _L297526_) - (let ((__tmp304958 + (cons _hd298738298807_ + _method298734298790_))) + (_g298715298748_ + _g298716298752_)))) + (_g298715298748_ _g298716298752_)))) + (_g298715298748_ _g298716298752_)))) + (let ((_symbol298735298823_ + (reverse _symbol298733298788_)) + (_method298736298826_ + (reverse _method298734298790_))) + ((lambda (_L298829_ _L298831_ _L298832_) + (let ((__tmp306282 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp304951 + (__tmp306275 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L297523_ - _L297525_)) - (let ((__tmp304952 - (lambda (_g297544297548_ - _g297545297551_ - _g297546297553_) - (let ((__tmp304953 - (let ((__tmp304957 + _L298829_ + _L298831_)) + (let ((__tmp306276 + (lambda (_g298850298854_ + _g298851298857_ + _g298852298859_) + (let ((__tmp306277 + (let ((__tmp306281 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method))) - (__tmp304954 - (let ((__tmp304955 + (__tmp306278 + (let ((__tmp306279 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp304956 + (let ((__tmp306280 (let () (declare (not safe)) - (cons _g297544297548_ '())))) + (cons _g298850298854_ '())))) (declare (not safe)) - (cons _g297545297551_ __tmp304956)))) + (cons _g298851298857_ __tmp306280)))) (declare (not safe)) - (cons _L297526_ __tmp304955)))) + (cons _L298832_ __tmp306279)))) (declare (not safe)) - (cons __tmp304957 __tmp304954)))) + (cons __tmp306281 __tmp306278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp304953 - _g297546297553_))))) + (cons __tmp306277 + _g298852298859_))))) (declare (not safe)) - (foldr2 __tmp304952 + (foldr2 __tmp306276 '() - _L297523_ - _L297525_))))) + _L298829_ + _L298831_))))) (declare (not safe)) - (cons __tmp304958 __tmp304951))) - _symbol297429297517_ - _method297430297520_ - _hd297418297463_)))))) + (cons __tmp306282 __tmp306275))) + _symbol298735298823_ + _method298736298826_ + _hd298724298769_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop297423297475_ - _target297420297469_ + (_loop298729298781_ + _target298726298775_ '() '())) - (_g297409297442_ - _g297410297446_))))) - (_g297409297442_ _g297410297446_)))) - (_g297409297442_ _g297410297446_)))) - (_g297409297442_ _g297410297446_))))) - (_g297408297556_ _$stx297405_)))) + (_g298715298748_ + _g298716298752_))))) + (_g298715298748_ _g298716298752_)))) + (_g298715298748_ _g298716298752_)))) + (_g298715298748_ _g298716298752_))))) + (_g298714298862_ _$stx298711_)))) (define |gxc[:0:]#@alias| - (lambda (_$stx297561_) - (let* ((_g297565297579_ - (lambda (_g297566297575_) + (lambda (_$stx298867_) + (let* ((_g298871298885_ + (lambda (_g298872298881_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g297566297575_)))) - (_g297564297620_ - (lambda (_g297566297583_) + _g298872298881_)))) + (_g298870298926_ + (lambda (_g298872298889_) (if (let () (declare (not safe)) - (gx#stx-pair? _g297566297583_)) - (let ((_e297570297586_ + (gx#stx-pair? _g298872298889_)) + (let ((_e298876298892_ (let () (declare (not safe)) - (gx#syntax-e _g297566297583_)))) - (let ((_hd297569297590_ + (gx#syntax-e _g298872298889_)))) + (let ((_hd298875298896_ (let () (declare (not safe)) - (##car _e297570297586_))) - (_tl297568297593_ + (##car _e298876298892_))) + (_tl298874298899_ (let () (declare (not safe)) - (##cdr _e297570297586_)))) + (##cdr _e298876298892_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297568297593_)) - (let ((_e297573297596_ + (gx#stx-pair? _tl298874298899_)) + (let ((_e298879298902_ (let () (declare (not safe)) - (gx#syntax-e _tl297568297593_)))) - (let ((_hd297572297600_ + (gx#syntax-e _tl298874298899_)))) + (let ((_hd298878298906_ (let () (declare (not safe)) - (##car _e297573297596_))) - (_tl297571297603_ + (##car _e298879298902_))) + (_tl298877298909_ (let () (declare (not safe)) - (##cdr _e297573297596_)))) + (##cdr _e298879298902_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl297571297603_)) - ((lambda (_L297606_) - (let ((__tmp304963 + (gx#stx-null? _tl298877298909_)) + ((lambda (_L298912_) + (let ((__tmp306287 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!alias))) - (__tmp304959 - (let ((__tmp304960 - (let ((__tmp304962 + (__tmp306283 + (let ((__tmp306284 + (let ((__tmp306286 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp304961 + (__tmp306285 (let () (declare (not safe)) - (cons _L297606_ + (cons _L298912_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp304962 __tmp304961)))) + (cons __tmp306286 __tmp306285)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp304960 '())))) + (cons __tmp306284 '())))) (declare (not safe)) - (cons __tmp304963 __tmp304959))) - _hd297572297600_) - (_g297565297579_ _g297566297583_)))) - (_g297565297579_ _g297566297583_)))) - (_g297565297579_ _g297566297583_))))) - (_g297564297620_ _$stx297561_)))) + (cons __tmp306287 __tmp306283))) + _hd298878298906_) + (_g298871298885_ _g298872298889_)))) + (_g298871298885_ _g298872298889_)))) + (_g298871298885_ _g298872298889_))))) + (_g298870298926_ _$stx298867_)))) (define |gxc[:0:]#@class| - (lambda (_$stx297624_) - (let* ((_g297628297674_ - (lambda (_g297629297670_) + (lambda (_$stx298930_) + (let* ((_g298934298984_ + (lambda (_g298935298980_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g297629297670_)))) - (_g297627297827_ - (lambda (_g297629297678_) + _g298935298980_)))) + (_g298933299151_ + (lambda (_g298935298988_) (if (let () (declare (not safe)) - (gx#stx-pair? _g297629297678_)) - (let ((_e297641297681_ + (gx#stx-pair? _g298935298988_)) + (let ((_e298948298991_ (let () (declare (not safe)) - (gx#syntax-e _g297629297678_)))) - (let ((_hd297640297685_ + (gx#syntax-e _g298935298988_)))) + (let ((_hd298947298995_ (let () (declare (not safe)) - (##car _e297641297681_))) - (_tl297639297688_ + (##car _e298948298991_))) + (_tl298946298998_ (let () (declare (not safe)) - (##cdr _e297641297681_)))) + (##cdr _e298948298991_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297639297688_)) - (let ((_e297644297691_ + (gx#stx-pair? _tl298946298998_)) + (let ((_e298951299001_ (let () (declare (not safe)) - (gx#syntax-e _tl297639297688_)))) - (let ((_hd297643297695_ + (gx#syntax-e _tl298946298998_)))) + (let ((_hd298950299005_ (let () (declare (not safe)) - (##car _e297644297691_))) - (_tl297642297698_ + (##car _e298951299001_))) + (_tl298949299008_ (let () (declare (not safe)) - (##cdr _e297644297691_)))) + (##cdr _e298951299001_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297642297698_)) - (let ((_e297647297701_ + (gx#stx-pair? _tl298949299008_)) + (let ((_e298954299011_ (let () (declare (not safe)) - (gx#syntax-e _tl297642297698_)))) - (let ((_hd297646297705_ + (gx#syntax-e _tl298949299008_)))) + (let ((_hd298953299015_ (let () (declare (not safe)) - (##car _e297647297701_))) - (_tl297645297708_ + (##car _e298954299011_))) + (_tl298952299018_ (let () (declare (not safe)) - (##cdr _e297647297701_)))) + (##cdr _e298954299011_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297645297708_)) - (let ((_e297650297711_ + (gx#stx-pair? _tl298952299018_)) + (let ((_e298957299021_ (let () (declare (not safe)) (gx#syntax-e - _tl297645297708_)))) - (let ((_hd297649297715_ + _tl298952299018_)))) + (let ((_hd298956299025_ (let () (declare (not safe)) - (##car _e297650297711_))) - (_tl297648297718_ + (##car _e298957299021_))) + (_tl298955299028_ (let () (declare (not safe)) - (##cdr _e297650297711_)))) + (##cdr _e298957299021_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl297648297718_)) - (let ((_e297653297721_ + _tl298955299028_)) + (let ((_e298960299031_ (let () (declare (not safe)) (gx#syntax-e - _tl297648297718_)))) - (let ((_hd297652297725_ + _tl298955299028_)))) + (let ((_hd298959299035_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e297653297721_))) - (_tl297651297728_ - (let () (declare (not safe)) (##cdr _e297653297721_)))) + (##car _e298960299031_))) + (_tl298958299038_ + (let () (declare (not safe)) (##cdr _e298960299031_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297651297728_)) - (let ((_e297656297731_ + (gx#stx-pair? _tl298958299038_)) + (let ((_e298963299041_ (let () (declare (not safe)) - (gx#syntax-e _tl297651297728_)))) - (let ((_hd297655297735_ + (gx#syntax-e _tl298958299038_)))) + (let ((_hd298962299045_ (let () (declare (not safe)) - (##car _e297656297731_))) - (_tl297654297738_ + (##car _e298963299041_))) + (_tl298961299048_ (let () (declare (not safe)) - (##cdr _e297656297731_)))) + (##cdr _e298963299041_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297654297738_)) - (let ((_e297659297741_ + (gx#stx-pair? _tl298961299048_)) + (let ((_e298966299051_ (let () (declare (not safe)) - (gx#syntax-e _tl297654297738_)))) - (let ((_hd297658297745_ + (gx#syntax-e _tl298961299048_)))) + (let ((_hd298965299055_ (let () (declare (not safe)) - (##car _e297659297741_))) - (_tl297657297748_ + (##car _e298966299051_))) + (_tl298964299058_ (let () (declare (not safe)) - (##cdr _e297659297741_)))) + (##cdr _e298966299051_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297657297748_)) - (let ((_e297662297751_ + (gx#stx-pair? _tl298964299058_)) + (let ((_e298969299061_ (let () (declare (not safe)) - (gx#syntax-e _tl297657297748_)))) - (let ((_hd297661297755_ + (gx#syntax-e _tl298964299058_)))) + (let ((_hd298968299065_ (let () (declare (not safe)) - (##car _e297662297751_))) - (_tl297660297758_ + (##car _e298969299061_))) + (_tl298967299068_ (let () (declare (not safe)) - (##cdr _e297662297751_)))) + (##cdr _e298969299061_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297660297758_)) - (let ((_e297665297761_ + (gx#stx-pair? _tl298967299068_)) + (let ((_e298972299071_ (let () (declare (not safe)) (gx#syntax-e - _tl297660297758_)))) - (let ((_hd297664297765_ + _tl298967299068_)))) + (let ((_hd298971299075_ (let () (declare (not safe)) - (##car _e297665297761_))) - (_tl297663297768_ + (##car _e298972299071_))) + (_tl298970299078_ (let () (declare (not safe)) - (##cdr _e297665297761_)))) + (##cdr _e298972299071_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl297663297768_)) - (let ((_e297668297771_ + _tl298970299078_)) + (let ((_e298975299081_ (let () (declare (not safe)) (gx#syntax-e - _tl297663297768_)))) - (let ((_hd297667297775_ + _tl298970299078_)))) + (let ((_hd298974299085_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e297668297771_))) - (_tl297666297778_ - (let () (declare (not safe)) (##cdr _e297668297771_)))) + (##car _e298975299081_))) + (_tl298973299088_ + (let () (declare (not safe)) (##cdr _e298975299081_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl297666297778_)) - ((lambda (_L297781_ - _L297783_ - _L297784_ - _L297785_ - _L297786_ - _L297787_ - _L297788_ - _L297789_ - _L297790_) - (let ((__tmp305000 - (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'make-!class))) - (__tmp304964 - (let ((__tmp304997 - (let ((__tmp304999 - (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'quote))) - (__tmp304998 - (let () - (declare (not safe)) - (cons _L297790_ '())))) - (declare (not safe)) - (cons __tmp304999 __tmp304998))) - (__tmp304965 - (let ((__tmp304994 - (let ((__tmp304996 - (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'quote))) - (__tmp304995 - (let () - (declare (not safe)) - (cons _L297789_ '())))) - (declare (not safe)) - (cons __tmp304996 __tmp304995))) - (__tmp304966 - (let ((__tmp304991 - (let ((__tmp304993 - (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - 'quote))) - (__tmp304992 - (let () - (declare - (not safe)) - (cons _L297788_ + (gx#stx-pair? _tl298973299088_)) + (let ((_e298978299091_ + (let () + (declare (not safe)) + (gx#syntax-e _tl298973299088_)))) + (let ((_hd298977299095_ + (let () + (declare (not safe)) + (##car _e298978299091_))) + (_tl298976299098_ + (let () + (declare (not safe)) + (##cdr _e298978299091_)))) + (if (let () + (declare (not safe)) + (gx#stx-null? _tl298976299098_)) + ((lambda (_L299101_ + _L299103_ + _L299104_ + _L299105_ + _L299106_ + _L299107_ + _L299108_ + _L299109_ + _L299110_ + _L299111_) + (let ((__tmp306322 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'make-!class))) + (__tmp306288 + (let ((__tmp306319 + (let ((__tmp306321 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp306320 + (let () + (declare (not safe)) + (cons _L299111_ '())))) + (declare (not safe)) + (cons __tmp306321 __tmp306320))) + (__tmp306289 + (let ((__tmp306316 + (let ((__tmp306318 + (let () + (declare + (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp306317 + (let () + (declare + (not safe)) + (cons _L299110_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + '())))) + (declare (not safe)) + (cons __tmp306318 __tmp306317))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp304993 - __tmp304992))) - (__tmp304967 - (let ((__tmp304988 - (let ((__tmp304990 + (__tmp306290 + (let ((__tmp306313 + (let ((__tmp306315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote))) - (__tmp304989 - (let () (declare (not safe)) (cons _L297787_ '())))) - (declare (not safe)) - (cons __tmp304990 __tmp304989))) - (__tmp304968 - (let ((__tmp304985 - (let ((__tmp304987 - (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote))) - (__tmp304986 - (let () - (declare (not safe)) - (cons _L297786_ '())))) - (declare (not safe)) - (cons __tmp304987 __tmp304986))) - (__tmp304969 - (let ((__tmp304982 - (let ((__tmp304984 - (let () - (declare (not safe)) - (gx#datum->syntax__0 '#f 'quote))) - (__tmp304983 - (let () - (declare (not safe)) - (cons _L297785_ '())))) - (declare (not safe)) - (cons __tmp304984 __tmp304983))) - (__tmp304970 - (let ((__tmp304979 - (let ((__tmp304981 - (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'quote))) - (__tmp304980 - (let () - (declare (not safe)) - (cons _L297784_ '())))) - (declare (not safe)) - (cons __tmp304981 __tmp304980))) - (__tmp304971 - (let ((__tmp304976 - (let ((__tmp304978 - (let () - (declare (not safe)) - (gx#datum->syntax__0 - '#f - 'quote))) - (__tmp304977 - (let () - (declare (not safe)) - (cons _L297783_ '())))) - (declare (not safe)) - (cons __tmp304978 - __tmp304977))) - (__tmp304972 - (let ((__tmp304973 - (let ((__tmp304975 - (let () - (declare - (not safe)) - (gx#datum->syntax__0 - '#f - 'quote))) - (__tmp304974 - (let () - (declare - (not safe)) - (cons _L297781_ + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp306314 + (let () (declare (not safe)) (cons _L299109_ '())))) + (declare (not safe)) + (cons __tmp306315 __tmp306314))) + (__tmp306291 + (let ((__tmp306310 + (let ((__tmp306312 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp306311 + (let () + (declare (not safe)) + (cons _L299108_ '())))) + (declare (not safe)) + (cons __tmp306312 __tmp306311))) + (__tmp306292 + (let ((__tmp306307 + (let ((__tmp306309 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp306308 + (let () + (declare (not safe)) + (cons _L299107_ '())))) + (declare (not safe)) + (cons __tmp306309 __tmp306308))) + (__tmp306293 + (let ((__tmp306304 + (let ((__tmp306306 + (let () + (declare (not safe)) + (gx#datum->syntax__0 + '#f + 'quote))) + (__tmp306305 + (let () + (declare (not safe)) + (cons _L299106_ '())))) + (declare (not safe)) + (cons __tmp306306 __tmp306305))) + (__tmp306294 + (let ((__tmp306295 + (let ((__tmp306296 + (let ((__tmp306301 + (let ((__tmp306303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) - (declare (not safe)) - (cons __tmp304975 __tmp304974)))) + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp306302 + (let () + (declare (not safe)) + (cons _L299103_ '())))) + (declare (not safe)) + (cons __tmp306303 __tmp306302))) + (__tmp306297 + (let ((__tmp306298 + (let ((__tmp306300 + (let () + (declare (not safe)) + (gx#datum->syntax__0 '#f 'quote))) + (__tmp306299 + (let () + (declare (not safe)) + (cons _L299101_ '())))) + (declare (not safe)) + (cons __tmp306300 __tmp306299)))) + (declare (not safe)) + (cons __tmp306298 '())))) + (declare (not safe)) + (cons __tmp306301 __tmp306297)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp304973 '())))) - (declare (not safe)) - (cons __tmp304976 __tmp304972)))) - (declare (not safe)) - (cons __tmp304979 __tmp304971)))) - (declare (not safe)) - (cons __tmp304982 __tmp304970)))) - (declare (not safe)) - (cons __tmp304985 __tmp304969)))) + (declare (not safe)) + (cons _L299104_ + __tmp306296)))) + (declare (not safe)) + (cons _L299105_ __tmp306295)))) + (declare (not safe)) + (cons __tmp306304 __tmp306294)))) + (declare (not safe)) + (cons __tmp306307 __tmp306293)))) + (declare (not safe)) + (cons __tmp306310 __tmp306292)))) + (declare (not safe)) + (cons __tmp306313 __tmp306291)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp304988 - __tmp304968)))) - (declare (not safe)) - (cons __tmp304991 __tmp304967)))) - (declare (not safe)) - (cons __tmp304994 __tmp304966)))) - (declare (not safe)) - (cons __tmp304997 __tmp304965)))) - (declare (not safe)) - (cons __tmp305000 __tmp304964))) - _hd297667297775_ - _hd297664297765_ - _hd297661297755_ - _hd297658297745_ - _hd297655297735_ - _hd297652297725_ - _hd297649297715_ - _hd297646297705_ - _hd297643297695_) - (_g297628297674_ _g297629297678_)))) + (declare (not safe)) + (cons __tmp306316 + __tmp306290)))) + (declare (not safe)) + (cons __tmp306319 __tmp306289)))) + (declare (not safe)) + (cons __tmp306322 __tmp306288))) + _hd298977299095_ + _hd298974299085_ + _hd298971299075_ + _hd298968299065_ + _hd298965299055_ + _hd298962299045_ + _hd298959299035_ + _hd298956299025_ + _hd298953299015_ + _hd298950299005_) + (_g298934298984_ _g298935298988_)))) + (_g298934298984_ _g298935298988_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g297628297674_ - _g297629297678_)))) - (_g297628297674_ - _g297629297678_)))) - (_g297628297674_ _g297629297678_)))) - (_g297628297674_ _g297629297678_)))) - (_g297628297674_ _g297629297678_)))) + (_g298934298984_ + _g298935298988_)))) + (_g298934298984_ + _g298935298988_)))) + (_g298934298984_ _g298935298988_)))) + (_g298934298984_ _g298935298988_)))) + (_g298934298984_ _g298935298988_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g297628297674_ - _g297629297678_)))) - (_g297628297674_ - _g297629297678_)))) - (_g297628297674_ _g297629297678_)))) - (_g297628297674_ _g297629297678_)))) - (_g297628297674_ _g297629297678_))))) - (_g297627297827_ _$stx297624_)))) + (_g298934298984_ + _g298935298988_)))) + (_g298934298984_ + _g298935298988_)))) + (_g298934298984_ _g298935298988_)))) + (_g298934298984_ _g298935298988_)))) + (_g298934298984_ _g298935298988_))))) + (_g298933299151_ _$stx298930_)))) (define |gxc[:0:]#@predicate| - (lambda (_$stx297831_) - (let* ((_g297835297849_ - (lambda (_g297836297845_) + (lambda (_$stx299155_) + (let* ((_g299159299173_ + (lambda (_g299160299169_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g297836297845_)))) - (_g297834297890_ - (lambda (_g297836297853_) + _g299160299169_)))) + (_g299158299214_ + (lambda (_g299160299177_) (if (let () (declare (not safe)) - (gx#stx-pair? _g297836297853_)) - (let ((_e297840297856_ + (gx#stx-pair? _g299160299177_)) + (let ((_e299164299180_ (let () (declare (not safe)) - (gx#syntax-e _g297836297853_)))) - (let ((_hd297839297860_ + (gx#syntax-e _g299160299177_)))) + (let ((_hd299163299184_ (let () (declare (not safe)) - (##car _e297840297856_))) - (_tl297838297863_ + (##car _e299164299180_))) + (_tl299162299187_ (let () (declare (not safe)) - (##cdr _e297840297856_)))) + (##cdr _e299164299180_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297838297863_)) - (let ((_e297843297866_ + (gx#stx-pair? _tl299162299187_)) + (let ((_e299167299190_ (let () (declare (not safe)) - (gx#syntax-e _tl297838297863_)))) - (let ((_hd297842297870_ + (gx#syntax-e _tl299162299187_)))) + (let ((_hd299166299194_ (let () (declare (not safe)) - (##car _e297843297866_))) - (_tl297841297873_ + (##car _e299167299190_))) + (_tl299165299197_ (let () (declare (not safe)) - (##cdr _e297843297866_)))) + (##cdr _e299167299190_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl297841297873_)) - ((lambda (_L297876_) - (let ((__tmp305005 + (gx#stx-null? _tl299165299197_)) + ((lambda (_L299200_) + (let ((__tmp306327 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!predicate))) - (__tmp305001 - (let ((__tmp305002 - (let ((__tmp305004 + (__tmp306323 + (let ((__tmp306324 + (let ((__tmp306326 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305003 + (__tmp306325 (let () (declare (not safe)) - (cons _L297876_ + (cons _L299200_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp305004 __tmp305003)))) + (cons __tmp306326 __tmp306325)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp305002 '())))) + (cons __tmp306324 '())))) (declare (not safe)) - (cons __tmp305005 __tmp305001))) - _hd297842297870_) - (_g297835297849_ _g297836297853_)))) - (_g297835297849_ _g297836297853_)))) - (_g297835297849_ _g297836297853_))))) - (_g297834297890_ _$stx297831_)))) + (cons __tmp306327 __tmp306323))) + _hd299166299194_) + (_g299159299173_ _g299160299177_)))) + (_g299159299173_ _g299160299177_)))) + (_g299159299173_ _g299160299177_))))) + (_g299158299214_ _$stx299155_)))) (define |gxc[:0:]#@constructor| - (lambda (_$stx297894_) - (let* ((_g297898297912_ - (lambda (_g297899297908_) + (lambda (_$stx299218_) + (let* ((_g299222299236_ + (lambda (_g299223299232_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g297899297908_)))) - (_g297897297953_ - (lambda (_g297899297916_) + _g299223299232_)))) + (_g299221299277_ + (lambda (_g299223299240_) (if (let () (declare (not safe)) - (gx#stx-pair? _g297899297916_)) - (let ((_e297903297919_ + (gx#stx-pair? _g299223299240_)) + (let ((_e299227299243_ (let () (declare (not safe)) - (gx#syntax-e _g297899297916_)))) - (let ((_hd297902297923_ + (gx#syntax-e _g299223299240_)))) + (let ((_hd299226299247_ (let () (declare (not safe)) - (##car _e297903297919_))) - (_tl297901297926_ + (##car _e299227299243_))) + (_tl299225299250_ (let () (declare (not safe)) - (##cdr _e297903297919_)))) + (##cdr _e299227299243_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297901297926_)) - (let ((_e297906297929_ + (gx#stx-pair? _tl299225299250_)) + (let ((_e299230299253_ (let () (declare (not safe)) - (gx#syntax-e _tl297901297926_)))) - (let ((_hd297905297933_ + (gx#syntax-e _tl299225299250_)))) + (let ((_hd299229299257_ (let () (declare (not safe)) - (##car _e297906297929_))) - (_tl297904297936_ + (##car _e299230299253_))) + (_tl299228299260_ (let () (declare (not safe)) - (##cdr _e297906297929_)))) + (##cdr _e299230299253_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl297904297936_)) - ((lambda (_L297939_) - (let ((__tmp305010 + (gx#stx-null? _tl299228299260_)) + ((lambda (_L299263_) + (let ((__tmp306332 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!constructor))) - (__tmp305006 - (let ((__tmp305007 - (let ((__tmp305009 + (__tmp306328 + (let ((__tmp306329 + (let ((__tmp306331 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305008 + (__tmp306330 (let () (declare (not safe)) - (cons _L297939_ + (cons _L299263_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp305009 __tmp305008)))) + (cons __tmp306331 __tmp306330)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp305007 '())))) + (cons __tmp306329 '())))) (declare (not safe)) - (cons __tmp305010 __tmp305006))) - _hd297905297933_) - (_g297898297912_ _g297899297916_)))) - (_g297898297912_ _g297899297916_)))) - (_g297898297912_ _g297899297916_))))) - (_g297897297953_ _$stx297894_)))) + (cons __tmp306332 __tmp306328))) + _hd299229299257_) + (_g299222299236_ _g299223299240_)))) + (_g299222299236_ _g299223299240_)))) + (_g299222299236_ _g299223299240_))))) + (_g299221299277_ _$stx299218_)))) (define |gxc[:0:]#@accessor| - (lambda (_$stx297957_) - (let* ((_g297961297983_ - (lambda (_g297962297979_) + (lambda (_$stx299281_) + (let* ((_g299285299307_ + (lambda (_g299286299303_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g297962297979_)))) - (_g297960298052_ - (lambda (_g297962297987_) + _g299286299303_)))) + (_g299284299376_ + (lambda (_g299286299311_) (if (let () (declare (not safe)) - (gx#stx-pair? _g297962297987_)) - (let ((_e297968297990_ + (gx#stx-pair? _g299286299311_)) + (let ((_e299292299314_ (let () (declare (not safe)) - (gx#syntax-e _g297962297987_)))) - (let ((_hd297967297994_ + (gx#syntax-e _g299286299311_)))) + (let ((_hd299291299318_ (let () (declare (not safe)) - (##car _e297968297990_))) - (_tl297966297997_ + (##car _e299292299314_))) + (_tl299290299321_ (let () (declare (not safe)) - (##cdr _e297968297990_)))) + (##cdr _e299292299314_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297966297997_)) - (let ((_e297971298000_ + (gx#stx-pair? _tl299290299321_)) + (let ((_e299295299324_ (let () (declare (not safe)) - (gx#syntax-e _tl297966297997_)))) - (let ((_hd297970298004_ + (gx#syntax-e _tl299290299321_)))) + (let ((_hd299294299328_ (let () (declare (not safe)) - (##car _e297971298000_))) - (_tl297969298007_ + (##car _e299295299324_))) + (_tl299293299331_ (let () (declare (not safe)) - (##cdr _e297971298000_)))) + (##cdr _e299295299324_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297969298007_)) - (let ((_e297974298010_ + (gx#stx-pair? _tl299293299331_)) + (let ((_e299298299334_ (let () (declare (not safe)) - (gx#syntax-e _tl297969298007_)))) - (let ((_hd297973298014_ + (gx#syntax-e _tl299293299331_)))) + (let ((_hd299297299338_ (let () (declare (not safe)) - (##car _e297974298010_))) - (_tl297972298017_ + (##car _e299298299334_))) + (_tl299296299341_ (let () (declare (not safe)) - (##cdr _e297974298010_)))) + (##cdr _e299298299334_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl297972298017_)) - (let ((_e297977298020_ + (gx#stx-pair? _tl299296299341_)) + (let ((_e299301299344_ (let () (declare (not safe)) (gx#syntax-e - _tl297972298017_)))) - (let ((_hd297976298024_ + _tl299296299341_)))) + (let ((_hd299300299348_ (let () (declare (not safe)) - (##car _e297977298020_))) - (_tl297975298027_ + (##car _e299301299344_))) + (_tl299299299351_ (let () (declare (not safe)) - (##cdr _e297977298020_)))) + (##cdr _e299301299344_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl297975298027_)) - ((lambda (_L298030_ - _L298032_ - _L298033_) - (let ((__tmp305020 + _tl299299299351_)) + ((lambda (_L299354_ + _L299356_ + _L299357_) + (let ((__tmp306342 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!accessor))) - (__tmp305011 - (let ((__tmp305017 - (let ((__tmp305019 + (__tmp306333 + (let ((__tmp306339 + (let ((__tmp306341 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305018 + (__tmp306340 (let () (declare (not safe)) - (cons _L298033_ '())))) + (cons _L299357_ '())))) (declare (not safe)) - (cons __tmp305019 __tmp305018))) - (__tmp305012 - (let ((__tmp305014 - (let ((__tmp305016 + (cons __tmp306341 __tmp306340))) + (__tmp306334 + (let ((__tmp306336 + (let ((__tmp306338 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305015 + (__tmp306337 (let () (declare (not safe)) - (cons _L298032_ '())))) + (cons _L299356_ '())))) (declare (not safe)) - (cons __tmp305016 __tmp305015))) - (__tmp305013 + (cons __tmp306338 __tmp306337))) + (__tmp306335 (let () (declare (not safe)) - (cons _L298030_ '())))) + (cons _L299354_ '())))) (declare (not safe)) - (cons __tmp305014 __tmp305013)))) + (cons __tmp306336 __tmp306335)))) (declare (not safe)) - (cons __tmp305017 __tmp305012)))) + (cons __tmp306339 __tmp306334)))) (declare (not safe)) - (cons __tmp305020 __tmp305011))) + (cons __tmp306342 __tmp306333))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd297976298024_ - _hd297973298014_ - _hd297970298004_) - (_g297961297983_ - _g297962297987_)))) - (_g297961297983_ - _g297962297987_)))) - (_g297961297983_ _g297962297987_)))) - (_g297961297983_ _g297962297987_)))) - (_g297961297983_ _g297962297987_))))) - (_g297960298052_ _$stx297957_)))) + _hd299300299348_ + _hd299297299338_ + _hd299294299328_) + (_g299285299307_ + _g299286299311_)))) + (_g299285299307_ + _g299286299311_)))) + (_g299285299307_ _g299286299311_)))) + (_g299285299307_ _g299286299311_)))) + (_g299285299307_ _g299286299311_))))) + (_g299284299376_ _$stx299281_)))) (define |gxc[:0:]#@mutator| - (lambda (_$stx298056_) - (let* ((_g298060298082_ - (lambda (_g298061298078_) + (lambda (_$stx299380_) + (let* ((_g299384299406_ + (lambda (_g299385299402_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298061298078_)))) - (_g298059298151_ - (lambda (_g298061298086_) + _g299385299402_)))) + (_g299383299475_ + (lambda (_g299385299410_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298061298086_)) - (let ((_e298067298089_ + (gx#stx-pair? _g299385299410_)) + (let ((_e299391299413_ (let () (declare (not safe)) - (gx#syntax-e _g298061298086_)))) - (let ((_hd298066298093_ + (gx#syntax-e _g299385299410_)))) + (let ((_hd299390299417_ (let () (declare (not safe)) - (##car _e298067298089_))) - (_tl298065298096_ + (##car _e299391299413_))) + (_tl299389299420_ (let () (declare (not safe)) - (##cdr _e298067298089_)))) + (##cdr _e299391299413_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298065298096_)) - (let ((_e298070298099_ + (gx#stx-pair? _tl299389299420_)) + (let ((_e299394299423_ (let () (declare (not safe)) - (gx#syntax-e _tl298065298096_)))) - (let ((_hd298069298103_ + (gx#syntax-e _tl299389299420_)))) + (let ((_hd299393299427_ (let () (declare (not safe)) - (##car _e298070298099_))) - (_tl298068298106_ + (##car _e299394299423_))) + (_tl299392299430_ (let () (declare (not safe)) - (##cdr _e298070298099_)))) + (##cdr _e299394299423_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298068298106_)) - (let ((_e298073298109_ + (gx#stx-pair? _tl299392299430_)) + (let ((_e299397299433_ (let () (declare (not safe)) - (gx#syntax-e _tl298068298106_)))) - (let ((_hd298072298113_ + (gx#syntax-e _tl299392299430_)))) + (let ((_hd299396299437_ (let () (declare (not safe)) - (##car _e298073298109_))) - (_tl298071298116_ + (##car _e299397299433_))) + (_tl299395299440_ (let () (declare (not safe)) - (##cdr _e298073298109_)))) + (##cdr _e299397299433_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298071298116_)) - (let ((_e298076298119_ + (gx#stx-pair? _tl299395299440_)) + (let ((_e299400299443_ (let () (declare (not safe)) (gx#syntax-e - _tl298071298116_)))) - (let ((_hd298075298123_ + _tl299395299440_)))) + (let ((_hd299399299447_ (let () (declare (not safe)) - (##car _e298076298119_))) - (_tl298074298126_ + (##car _e299400299443_))) + (_tl299398299450_ (let () (declare (not safe)) - (##cdr _e298076298119_)))) + (##cdr _e299400299443_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298074298126_)) - ((lambda (_L298129_ - _L298131_ - _L298132_) - (let ((__tmp305030 + _tl299398299450_)) + ((lambda (_L299453_ + _L299455_ + _L299456_) + (let ((__tmp306352 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'make-!mutator))) - (__tmp305021 - (let ((__tmp305027 - (let ((__tmp305029 + (__tmp306343 + (let ((__tmp306349 + (let ((__tmp306351 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305028 + (__tmp306350 (let () (declare (not safe)) - (cons _L298132_ '())))) + (cons _L299456_ '())))) (declare (not safe)) - (cons __tmp305029 __tmp305028))) - (__tmp305022 - (let ((__tmp305024 - (let ((__tmp305026 + (cons __tmp306351 __tmp306350))) + (__tmp306344 + (let ((__tmp306346 + (let ((__tmp306348 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305025 + (__tmp306347 (let () (declare (not safe)) - (cons _L298131_ '())))) + (cons _L299455_ '())))) (declare (not safe)) - (cons __tmp305026 __tmp305025))) - (__tmp305023 + (cons __tmp306348 __tmp306347))) + (__tmp306345 (let () (declare (not safe)) - (cons _L298129_ '())))) + (cons _L299453_ '())))) (declare (not safe)) - (cons __tmp305024 __tmp305023)))) + (cons __tmp306346 __tmp306345)))) (declare (not safe)) - (cons __tmp305027 __tmp305022)))) + (cons __tmp306349 __tmp306344)))) (declare (not safe)) - (cons __tmp305030 __tmp305021))) + (cons __tmp306352 __tmp306343))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd298075298123_ - _hd298072298113_ - _hd298069298103_) - (_g298060298082_ - _g298061298086_)))) - (_g298060298082_ - _g298061298086_)))) - (_g298060298082_ _g298061298086_)))) - (_g298060298082_ _g298061298086_)))) - (_g298060298082_ _g298061298086_))))) - (_g298059298151_ _$stx298056_)))) + _hd299399299447_ + _hd299396299437_ + _hd299393299427_) + (_g299384299406_ + _g299385299410_)))) + (_g299384299406_ + _g299385299410_)))) + (_g299384299406_ _g299385299410_)))) + (_g299384299406_ _g299385299410_)))) + (_g299384299406_ _g299385299410_))))) + (_g299383299475_ _$stx299380_)))) (define |gxc[:0:]#@lambda| - (lambda (_$stx298155_) - (let* ((___stx304538304539_ _$stx298155_) - (_g298163298231_ + (lambda (_$stx299479_) + (let* ((___stx305862305863_ _$stx299479_) + (_g299487299555_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx304538304539_))))) - (let ((___kont304541304542_ - (lambda (_L298509_ _L298511_) - (let ((__tmp305046 + ___stx305862305863_))))) + (let ((___kont305865305866_ + (lambda (_L299833_ _L299835_) + (let ((__tmp306368 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp305031 - (let ((__tmp305042 - (let ((__tmp305045 + (__tmp306353 + (let ((__tmp306364 + (let ((__tmp306367 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305043 - (let ((__tmp305044 + (__tmp306365 + (let ((__tmp306366 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp305044 '())))) + (cons __tmp306366 '())))) (declare (not safe)) - (cons __tmp305045 __tmp305043))) - (__tmp305032 - (let ((__tmp305039 - (let ((__tmp305041 + (cons __tmp306367 __tmp306365))) + (__tmp306354 + (let ((__tmp306361 + (let ((__tmp306363 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305040 + (__tmp306362 (let () (declare (not safe)) - (cons _L298511_ '())))) + (cons _L299835_ '())))) (declare (not safe)) - (cons __tmp305041 __tmp305040))) - (__tmp305033 - (let ((__tmp305034 - (let ((__tmp305035 - (let ((__tmp305036 - (let ((__tmp305038 + (cons __tmp306363 __tmp306362))) + (__tmp306355 + (let ((__tmp306356 + (let ((__tmp306357 + (let ((__tmp306358 + (let ((__tmp306360 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305037 - (let () (declare (not safe)) (cons _L298509_ '())))) + (__tmp306359 + (let () (declare (not safe)) (cons _L299833_ '())))) (declare (not safe)) - (cons __tmp305038 __tmp305037)))) + (cons __tmp306360 __tmp306359)))) (declare (not safe)) - (cons __tmp305036 '())))) + (cons __tmp306358 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L298509_ __tmp305035)))) + (cons _L299833_ __tmp306357)))) (declare (not safe)) - (cons '#f __tmp305034)))) + (cons '#f __tmp306356)))) (declare (not safe)) - (cons __tmp305039 __tmp305033)))) + (cons __tmp306361 __tmp306355)))) (declare (not safe)) - (cons __tmp305042 __tmp305032)))) + (cons __tmp306364 __tmp306354)))) (declare (not safe)) - (cons __tmp305046 __tmp305031)))) - (___kont304543304544_ - (lambda (_L298440_ _L298442_) - (let ((__tmp305047 - (let ((__tmp305048 - (let ((__tmp305049 + (cons __tmp306368 __tmp306353)))) + (___kont305867305868_ + (lambda (_L299764_ _L299766_) + (let ((__tmp306369 + (let ((__tmp306370 + (let ((__tmp306371 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L298440_ __tmp305049)))) + (cons _L299764_ __tmp306371)))) (declare (not safe)) - (cons 'primitive: __tmp305048)))) + (cons 'primitive: __tmp306370)))) (declare (not safe)) - (cons _L298442_ __tmp305047)))) - (___kont304545304546_ - (lambda (_L298379_ _L298381_) - (let ((__tmp305063 + (cons _L299766_ __tmp306369)))) + (___kont305869305870_ + (lambda (_L299703_ _L299705_) + (let ((__tmp306385 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-lambda))) - (__tmp305050 - (let ((__tmp305059 - (let ((__tmp305062 + (__tmp306372 + (let ((__tmp306381 + (let ((__tmp306384 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305060 - (let ((__tmp305061 + (__tmp306382 + (let ((__tmp306383 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp305061 '())))) + (cons __tmp306383 '())))) (declare (not safe)) - (cons __tmp305062 __tmp305060))) - (__tmp305051 - (let ((__tmp305056 - (let ((__tmp305058 + (cons __tmp306384 __tmp306382))) + (__tmp306373 + (let ((__tmp306378 + (let ((__tmp306380 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305057 + (__tmp306379 (let () (declare (not safe)) - (cons _L298381_ '())))) + (cons _L299705_ '())))) (declare (not safe)) - (cons __tmp305058 __tmp305057))) - (__tmp305052 - (let ((__tmp305053 - (let ((__tmp305055 + (cons __tmp306380 __tmp306379))) + (__tmp306374 + (let ((__tmp306375 + (let ((__tmp306377 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305054 + (__tmp306376 (let () (declare (not safe)) - (cons _L298379_ '())))) + (cons _L299703_ '())))) (declare (not safe)) - (cons __tmp305055 - __tmp305054)))) + (cons __tmp306377 + __tmp306376)))) (declare (not safe)) - (cons __tmp305053 '())))) + (cons __tmp306375 '())))) (declare (not safe)) - (cons __tmp305056 __tmp305052)))) + (cons __tmp306378 __tmp306374)))) (declare (not safe)) - (cons __tmp305059 __tmp305051)))) + (cons __tmp306381 __tmp306373)))) (declare (not safe)) - (cons __tmp305063 __tmp305050)))) - (___kont304547304548_ - (lambda (_L298311_ _L298313_) - (let ((__tmp305077 + (cons __tmp306385 __tmp306372)))) + (___kont305871305872_ + (lambda (_L299635_ _L299637_) + (let ((__tmp306399 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda))) - (__tmp305064 - (let ((__tmp305073 - (let ((__tmp305076 + (__tmp306386 + (let ((__tmp306395 + (let ((__tmp306398 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305074 - (let ((__tmp305075 + (__tmp306396 + (let ((__tmp306397 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)))) (declare (not safe)) - (cons __tmp305075 '())))) + (cons __tmp306397 '())))) (declare (not safe)) - (cons __tmp305076 __tmp305074))) - (__tmp305065 - (let ((__tmp305070 - (let ((__tmp305072 + (cons __tmp306398 __tmp306396))) + (__tmp306387 + (let ((__tmp306392 + (let ((__tmp306394 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305071 + (__tmp306393 (let () (declare (not safe)) - (cons _L298313_ '())))) + (cons _L299637_ '())))) (declare (not safe)) - (cons __tmp305072 __tmp305071))) - (__tmp305066 - (let ((__tmp305067 - (let ((__tmp305069 + (cons __tmp306394 __tmp306393))) + (__tmp306388 + (let ((__tmp306389 + (let ((__tmp306391 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305068 + (__tmp306390 (let () (declare (not safe)) - (cons _L298311_ '())))) + (cons _L299635_ '())))) (declare (not safe)) - (cons __tmp305069 - __tmp305068)))) + (cons __tmp306391 + __tmp306390)))) (declare (not safe)) - (cons __tmp305067 '())))) + (cons __tmp306389 '())))) (declare (not safe)) - (cons __tmp305070 __tmp305066)))) + (cons __tmp306392 __tmp306388)))) (declare (not safe)) - (cons __tmp305073 __tmp305065)))) + (cons __tmp306395 __tmp306387)))) (declare (not safe)) - (cons __tmp305077 __tmp305064)))) - (___kont304549304550_ - (lambda (_L298258_ _L298260_) - (let ((__tmp305078 - (let ((__tmp305079 + (cons __tmp306399 __tmp306386)))) + (___kont305873305874_ + (lambda (_L299582_ _L299584_) + (let ((__tmp306400 + (let ((__tmp306401 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _L298258_ __tmp305079)))) + (cons _L299582_ __tmp306401)))) (declare (not safe)) - (cons _L298260_ __tmp305078))))) - (if (let () (declare (not safe)) (gx#stx-pair? ___stx304538304539_)) - (let ((_e298169298465_ + (cons _L299584_ __tmp306400))))) + (if (let () (declare (not safe)) (gx#stx-pair? ___stx305862305863_)) + (let ((_e299493299789_ (let () (declare (not safe)) - (gx#syntax-e ___stx304538304539_)))) - (let ((_tl298167298472_ - (let () (declare (not safe)) (##cdr _e298169298465_))) - (_hd298168298469_ - (let () (declare (not safe)) (##car _e298169298465_)))) + (gx#syntax-e ___stx305862305863_)))) + (let ((_tl299491299796_ + (let () (declare (not safe)) (##cdr _e299493299789_))) + (_hd299492299793_ + (let () (declare (not safe)) (##car _e299493299789_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298167298472_)) - (let ((_e298172298475_ + (gx#stx-pair? _tl299491299796_)) + (let ((_e299496299799_ (let () (declare (not safe)) - (gx#syntax-e _tl298167298472_)))) - (let ((_tl298170298482_ + (gx#syntax-e _tl299491299796_)))) + (let ((_tl299494299806_ (let () (declare (not safe)) - (##cdr _e298172298475_))) - (_hd298171298479_ + (##cdr _e299496299799_))) + (_hd299495299803_ (let () (declare (not safe)) - (##car _e298172298475_)))) + (##car _e299496299799_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298170298482_)) - (let ((_e298175298485_ + (gx#stx-pair? _tl299494299806_)) + (let ((_e299499299809_ (let () (declare (not safe)) - (gx#syntax-e _tl298170298482_)))) - (let ((_tl298173298492_ + (gx#syntax-e _tl299494299806_)))) + (let ((_tl299497299816_ (let () (declare (not safe)) - (##cdr _e298175298485_))) - (_hd298174298489_ + (##cdr _e299499299809_))) + (_hd299498299813_ (let () (declare (not safe)) - (##car _e298175298485_)))) + (##car _e299499299809_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd298174298489_)) - (let ((_e298176298495_ + (gx#stx-datum? _hd299498299813_)) + (let ((_e299500299819_ (let () (declare (not safe)) - (gx#stx-e _hd298174298489_)))) + (gx#stx-e _hd299498299813_)))) (if (let () (declare (not safe)) - (equal? _e298176298495_ + (equal? _e299500299819_ 'inline:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298173298492_)) - (let ((_e298179298499_ + _tl299497299816_)) + (let ((_e299503299823_ (let () (declare (not safe)) (gx#syntax-e - _tl298173298492_)))) - (let ((_tl298177298506_ + _tl299497299816_)))) + (let ((_tl299501299830_ (let () (declare (not safe)) - (##cdr _e298179298499_))) - (_hd298178298503_ + (##cdr _e299503299823_))) + (_hd299502299827_ (let () (declare (not safe)) - (##car _e298179298499_)))) + (##car _e299503299823_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298177298506_)) - (___kont304541304542_ - _hd298178298503_ - _hd298171298479_) + _tl299501299830_)) + (___kont305865305866_ + _hd299502299827_ + _hd299495299803_) (if (let () (declare (not safe)) (gx#stx-datum? - _hd298171298479_)) - (let ((_e298188298426_ + _hd299495299803_)) + (let ((_e299512299750_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _hd298171298479_)))) + (gx#stx-e _hd299495299803_)))) (declare (not safe)) - (_g298163298231_)) - (let () (declare (not safe)) (_g298163298231_)))))) + (_g299487299555_)) + (let () (declare (not safe)) (_g299487299555_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _hd298171298479_)) - (let ((_e298188298426_ + _hd299495299803_)) + (let ((_e299512299750_ (let () (declare (not safe)) (gx#stx-e - _hd298171298479_)))) + _hd299495299803_)))) (if (let () (declare (not safe)) - (equal? _e298188298426_ + (equal? _e299512299750_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'primitive:)) (if (let () (declare (not safe)) - (gx#stx-null? _tl298173298492_)) - (___kont304543304544_ _hd298174298489_ _hd298168298469_) - (let () (declare (not safe)) (_g298163298231_))) + (gx#stx-null? _tl299497299816_)) + (___kont305867305868_ _hd299498299813_ _hd299492299793_) + (let () (declare (not safe)) (_g299487299555_))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298173298492_)) - (___kont304547304548_ _hd298174298489_ _hd298171298479_) - (let () (declare (not safe)) (_g298163298231_))))) + (gx#stx-null? _tl299497299816_)) + (___kont305871305872_ _hd299498299813_ _hd299495299803_) + (let () (declare (not safe)) (_g299487299555_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl298173298492_)) - (___kont304547304548_ - _hd298174298489_ - _hd298171298479_) + _tl299497299816_)) + (___kont305871305872_ + _hd299498299813_ + _hd299495299803_) (let () (declare (not safe)) - (_g298163298231_))))) + (_g299487299555_))))) (if (let () (declare (not safe)) (gx#stx-datum? - _hd298171298479_)) - (let ((_e298188298426_ + _hd299495299803_)) + (let ((_e299512299750_ (let () (declare (not safe)) (gx#stx-e - _hd298171298479_)))) + _hd299495299803_)))) (if (let () (declare (not safe)) - (equal? _e298188298426_ + (equal? _e299512299750_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl298173298492_)) - (___kont304543304544_ - _hd298174298489_ - _hd298168298469_) + _tl299497299816_)) + (___kont305867305868_ + _hd299498299813_ + _hd299492299793_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _tl298173298492_)) - (let ((_e298206298369_ + (gx#stx-pair? _tl299497299816_)) + (let ((_e299530299693_ (let () (declare (not safe)) - (gx#syntax-e _tl298173298492_)))) - (let ((_tl298204298376_ + (gx#syntax-e _tl299497299816_)))) + (let ((_tl299528299700_ (let () (declare (not safe)) - (##cdr _e298206298369_))) - (_hd298205298373_ + (##cdr _e299530299693_))) + (_hd299529299697_ (let () (declare (not safe)) - (##car _e298206298369_)))) + (##car _e299530299693_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298204298376_)) - (___kont304545304546_ - _hd298205298373_ - _hd298174298489_) + (gx#stx-null? _tl299528299700_)) + (___kont305869305870_ + _hd299529299697_ + _hd299498299813_) (let () (declare (not safe)) - (_g298163298231_))))) - (let () (declare (not safe)) (_g298163298231_)))) - (if (let () (declare (not safe)) (gx#stx-null? _tl298173298492_)) - (___kont304547304548_ _hd298174298489_ _hd298171298479_) - (let () (declare (not safe)) (_g298163298231_))))) + (_g299487299555_))))) + (let () (declare (not safe)) (_g299487299555_)))) + (if (let () (declare (not safe)) (gx#stx-null? _tl299497299816_)) + (___kont305871305872_ _hd299498299813_ _hd299495299803_) + (let () (declare (not safe)) (_g299487299555_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl298173298492_)) - (___kont304547304548_ - _hd298174298489_ - _hd298171298479_) + _tl299497299816_)) + (___kont305871305872_ + _hd299498299813_ + _hd299495299803_) (let () (declare (not safe)) - (_g298163298231_)))))) + (_g299487299555_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd298171298479_)) - (let ((_e298188298426_ + (gx#stx-datum? _hd299495299803_)) + (let ((_e299512299750_ (let () (declare (not safe)) (gx#stx-e - _hd298171298479_)))) + _hd299495299803_)))) (if (let () (declare (not safe)) - (equal? _e298188298426_ + (equal? _e299512299750_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-null? - _tl298173298492_)) - (___kont304543304544_ - _hd298174298489_ - _hd298168298469_) + _tl299497299816_)) + (___kont305867305868_ + _hd299498299813_ + _hd299492299793_) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298173298492_)) - (let ((_e298206298369_ + _tl299497299816_)) + (let ((_e299530299693_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl298173298492_)))) - (let ((_tl298204298376_ - (let () (declare (not safe)) (##cdr _e298206298369_))) - (_hd298205298373_ + (gx#syntax-e _tl299497299816_)))) + (let ((_tl299528299700_ + (let () (declare (not safe)) (##cdr _e299530299693_))) + (_hd299529299697_ (let () (declare (not safe)) - (##car _e298206298369_)))) + (##car _e299530299693_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298204298376_)) - (___kont304545304546_ - _hd298205298373_ - _hd298174298489_) - (let () (declare (not safe)) (_g298163298231_))))) - (let () (declare (not safe)) (_g298163298231_)))) + (gx#stx-null? _tl299528299700_)) + (___kont305869305870_ + _hd299529299697_ + _hd299498299813_) + (let () (declare (not safe)) (_g299487299555_))))) + (let () (declare (not safe)) (_g299487299555_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl298173298492_)) - (___kont304547304548_ - _hd298174298489_ - _hd298171298479_) + _tl299497299816_)) + (___kont305871305872_ + _hd299498299813_ + _hd299495299803_) (let () (declare (not safe)) - (_g298163298231_))))) + (_g299487299555_))))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298173298492_)) - (___kont304547304548_ - _hd298174298489_ - _hd298171298479_) + _tl299497299816_)) + (___kont305871305872_ + _hd299498299813_ + _hd299495299803_) (let () (declare (not safe)) - (_g298163298231_))))))) + (_g299487299555_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd298171298479_)) - (let ((_e298188298426_ + (gx#stx-datum? _hd299495299803_)) + (let ((_e299512299750_ (let () (declare (not safe)) - (gx#stx-e _hd298171298479_)))) + (gx#stx-e _hd299495299803_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298170298482_)) - (___kont304549304550_ - _hd298171298479_ - _hd298168298469_) + (gx#stx-null? _tl299494299806_)) + (___kont305873305874_ + _hd299495299803_ + _hd299492299793_) (let () (declare (not safe)) - (_g298163298231_)))) + (_g299487299555_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298170298482_)) - (___kont304549304550_ - _hd298171298479_ - _hd298168298469_) + (gx#stx-null? _tl299494299806_)) + (___kont305873305874_ + _hd299495299803_ + _hd299492299793_) (let () (declare (not safe)) - (_g298163298231_))))))) - (let () (declare (not safe)) (_g298163298231_))))) - (let () (declare (not safe)) (_g298163298231_))))))) + (_g299487299555_))))))) + (let () (declare (not safe)) (_g299487299555_))))) + (let () (declare (not safe)) (_g299487299555_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_$stx298533_) - (let* ((___stx304678304679_ _$stx298533_) - (_g298538298593_ + (lambda (_$stx299857_) + (let* ((___stx306002306003_ _$stx299857_) + (_g299862299917_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx304678304679_))))) - (let ((___kont304681304682_ - (lambda (_L298778_ _L298780_) - (let ((__tmp305095 + ___stx306002306003_))))) + (let ((___kont306005306006_ + (lambda (_L300102_ _L300104_) + (let ((__tmp306417 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!primitive-case-lambda))) - (__tmp305080 - (let ((__tmp305091 - (let ((__tmp305094 + (__tmp306402 + (let ((__tmp306413 + (let ((__tmp306416 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305092 - (let ((__tmp305093 + (__tmp306414 + (let ((__tmp306415 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp305093 '())))) + (cons __tmp306415 '())))) (declare (not safe)) - (cons __tmp305094 __tmp305092))) - (__tmp305081 - (let ((__tmp305082 - (let ((__tmp305090 + (cons __tmp306416 __tmp306414))) + (__tmp306403 + (let ((__tmp306404 + (let ((__tmp306412 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp305083 + (__tmp306405 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L298778_ - _L298780_)) - (let ((__tmp305084 - (lambda (_g298797298801_ - _g298798298804_ - _g298799298806_) - (let ((__tmp305085 - (let ((__tmp305089 + _L300102_ + _L300104_)) + (let ((__tmp306406 + (lambda (_g300121300125_ + _g300122300128_ + _g300123300130_) + (let ((__tmp306407 + (let ((__tmp306411 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp305086 - (let ((__tmp305087 - (let ((__tmp305088 + (__tmp306408 + (let ((__tmp306409 + (let ((__tmp306410 (let () (declare (not safe)) - (cons _g298797298801_ '())))) + (cons _g300121300125_ '())))) (declare (not safe)) - (cons _g298798298804_ __tmp305088)))) + (cons _g300122300128_ __tmp306410)))) (declare (not safe)) - (cons 'primitive: __tmp305087)))) + (cons 'primitive: __tmp306409)))) (declare (not safe)) - (cons __tmp305089 __tmp305086)))) + (cons __tmp306411 __tmp306408)))) (declare (not safe)) - (cons __tmp305085 _g298799298806_))))) + (cons __tmp306407 _g300123300130_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp305084 + (foldr2 __tmp306406 '() - _L298778_ - _L298780_))))) + _L300102_ + _L300104_))))) (declare (not safe)) - (cons __tmp305090 __tmp305083)))) + (cons __tmp306412 __tmp306405)))) (declare (not safe)) - (cons __tmp305082 '())))) + (cons __tmp306404 '())))) (declare (not safe)) - (cons __tmp305091 __tmp305081)))) + (cons __tmp306413 __tmp306403)))) (declare (not safe)) - (cons __tmp305095 __tmp305080)))) - (___kont304685304686_ - (lambda (_L298664_ _L298666_) - (let ((__tmp305110 + (cons __tmp306417 __tmp306402)))) + (___kont306009306010_ + (lambda (_L299988_ _L299990_) + (let ((__tmp306432 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda))) - (__tmp305096 - (let ((__tmp305106 - (let ((__tmp305109 + (__tmp306418 + (let ((__tmp306428 + (let ((__tmp306431 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305107 - (let ((__tmp305108 + (__tmp306429 + (let ((__tmp306430 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'case-lambda)))) (declare (not safe)) - (cons __tmp305108 '())))) + (cons __tmp306430 '())))) (declare (not safe)) - (cons __tmp305109 __tmp305107))) - (__tmp305097 - (let ((__tmp305098 - (let ((__tmp305105 + (cons __tmp306431 __tmp306429))) + (__tmp306419 + (let ((__tmp306420 + (let ((__tmp306427 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list))) - (__tmp305099 + (__tmp306421 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L298664_ - _L298666_)) - (let ((__tmp305100 - (lambda (_g298681298685_ - _g298682298688_ - _g298683298690_) - (let ((__tmp305101 - (let ((__tmp305104 + _L299988_ + _L299990_)) + (let ((__tmp306422 + (lambda (_g300005300009_ + _g300006300012_ + _g300007300014_) + (let ((__tmp306423 + (let ((__tmp306426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp305102 - (let ((__tmp305103 + (__tmp306424 + (let ((__tmp306425 (let () (declare (not safe)) - (cons _g298681298685_ '())))) + (cons _g300005300009_ '())))) (declare (not safe)) - (cons _g298682298688_ __tmp305103)))) + (cons _g300006300012_ __tmp306425)))) (declare (not safe)) - (cons __tmp305104 __tmp305102)))) + (cons __tmp306426 __tmp306424)))) (declare (not safe)) - (cons __tmp305101 _g298683298690_))))) + (cons __tmp306423 _g300007300014_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp305100 + (foldr2 __tmp306422 '() - _L298664_ - _L298666_))))) + _L299988_ + _L299990_))))) (declare (not safe)) - (cons __tmp305105 __tmp305099)))) + (cons __tmp306427 __tmp306421)))) (declare (not safe)) - (cons __tmp305098 '())))) + (cons __tmp306420 '())))) (declare (not safe)) - (cons __tmp305106 __tmp305097)))) + (cons __tmp306428 __tmp306419)))) (declare (not safe)) - (cons __tmp305110 __tmp305096))))) - (let* ((___match304729304730_ - (lambda (_e298570298600_ - _hd298569298604_ - _tl298568298607_ - ___splice304687304688_ - _target298571298610_ - _tl298573298613_) - (letrec ((_loop298574298616_ - (lambda (_hd298572298620_ - _dispatch298578298623_ - _arity298579298625_) + (cons __tmp306432 __tmp306418))))) + (let* ((___match306053306054_ + (lambda (_e299894299924_ + _hd299893299928_ + _tl299892299931_ + ___splice306011306012_ + _target299895299934_ + _tl299897299937_) + (letrec ((_loop299898299940_ + (lambda (_hd299896299944_ + _dispatch299902299947_ + _arity299903299949_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd298572298620_)) - (let ((_e298575298628_ + (gx#stx-pair? _hd299896299944_)) + (let ((_e299899299952_ (let () (declare (not safe)) - (gx#syntax-e _hd298572298620_)))) - (let ((_lp-tl298577298635_ + (gx#syntax-e _hd299896299944_)))) + (let ((_lp-tl299901299959_ (let () (declare (not safe)) - (##cdr _e298575298628_))) - (_lp-hd298576298632_ + (##cdr _e299899299952_))) + (_lp-hd299900299956_ (let () (declare (not safe)) - (##car _e298575298628_)))) + (##car _e299899299952_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd298576298632_)) - (let ((_e298584298638_ + _lp-hd299900299956_)) + (let ((_e299908299962_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd298576298632_)))) - (let ((_tl298582298645_ + _lp-hd299900299956_)))) + (let ((_tl299906299969_ (let () (declare (not safe)) - (##cdr _e298584298638_))) - (_hd298583298642_ + (##cdr _e299908299962_))) + (_hd299907299966_ (let () (declare (not safe)) - (##car _e298584298638_)))) + (##car _e299908299962_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298582298645_)) - (let ((_e298587298648_ + _tl299906299969_)) + (let ((_e299911299972_ (let () (declare (not safe)) (gx#syntax-e - _tl298582298645_)))) - (let ((_tl298585298655_ + _tl299906299969_)))) + (let ((_tl299909299979_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e298587298648_))) - (_hd298586298652_ - (let () (declare (not safe)) (##car _e298587298648_)))) + (##cdr _e299911299972_))) + (_hd299910299976_ + (let () (declare (not safe)) (##car _e299911299972_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298585298655_)) - (_loop298574298616_ - _lp-tl298577298635_ + (gx#stx-null? _tl299909299979_)) + (_loop299898299940_ + _lp-tl299901299959_ (let () (declare (not safe)) - (cons _hd298586298652_ _dispatch298578298623_)) + (cons _hd299910299976_ _dispatch299902299947_)) (let () (declare (not safe)) - (cons _hd298583298642_ _arity298579298625_))) - (let () (declare (not safe)) (_g298538298593_))))) + (cons _hd299907299966_ _arity299903299949_))) + (let () (declare (not safe)) (_g299862299917_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g298538298593_))))) + (_g299862299917_))))) (let () (declare (not safe)) - (_g298538298593_))))) - (let ((_arity298581298661_ - (reverse _arity298579298625_)) - (_dispatch298580298658_ - (reverse _dispatch298578298623_))) - (___kont304685304686_ - _dispatch298580298658_ - _arity298581298661_)))))) - (_loop298574298616_ _target298571298610_ '() '())))) - (___match304721304722_ - (lambda (_e298570298600_ _hd298569298604_ _tl298568298607_) + (_g299862299917_))))) + (let ((_arity299905299985_ + (reverse _arity299903299949_)) + (_dispatch299904299982_ + (reverse _dispatch299902299947_))) + (___kont306009306010_ + _dispatch299904299982_ + _arity299905299985_)))))) + (_loop299898299940_ _target299895299934_ '() '())))) + (___match306045306046_ + (lambda (_e299894299924_ _hd299893299928_ _tl299892299931_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298568298607_)) - (let ((___splice304687304688_ + (gx#stx-pair/null? _tl299892299931_)) + (let ((___splice306011306012_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298568298607_ + _tl299892299931_ '0)))) - (let ((_tl298573298613_ + (let ((_tl299897299937_ (let () (declare (not safe)) - (##vector-ref ___splice304687304688_ '1))) - (_target298571298610_ + (##vector-ref ___splice306011306012_ '1))) + (_target299895299934_ (let () (declare (not safe)) - (##vector-ref ___splice304687304688_ '0)))) + (##vector-ref ___splice306011306012_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298573298613_)) - (___match304729304730_ - _e298570298600_ - _hd298569298604_ - _tl298568298607_ - ___splice304687304688_ - _target298571298610_ - _tl298573298613_) + (gx#stx-null? _tl299897299937_)) + (___match306053306054_ + _e299894299924_ + _hd299893299928_ + _tl299892299931_ + ___splice306011306012_ + _target299895299934_ + _tl299897299937_) (let () (declare (not safe)) - (_g298538298593_))))) - (let () (declare (not safe)) (_g298538298593_))))) - (___match304715304716_ - (lambda (_e298544298700_ - _hd298543298704_ - _tl298542298707_ - _e298547298710_ - _hd298546298714_ - _tl298545298717_ - _e298548298720_ - ___splice304683304684_ - _target298549298724_ - _tl298551298727_) - (letrec ((_loop298552298730_ - (lambda (_hd298550298734_ - _dispatch298556298737_ - _arity298557298739_) + (_g299862299917_))))) + (let () (declare (not safe)) (_g299862299917_))))) + (___match306039306040_ + (lambda (_e299868300024_ + _hd299867300028_ + _tl299866300031_ + _e299871300034_ + _hd299870300038_ + _tl299869300041_ + _e299872300044_ + ___splice306007306008_ + _target299873300048_ + _tl299875300051_) + (letrec ((_loop299876300054_ + (lambda (_hd299874300058_ + _dispatch299880300061_ + _arity299881300063_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd298550298734_)) - (let ((_e298553298742_ + (gx#stx-pair? _hd299874300058_)) + (let ((_e299877300066_ (let () (declare (not safe)) - (gx#syntax-e _hd298550298734_)))) - (let ((_lp-tl298555298749_ + (gx#syntax-e _hd299874300058_)))) + (let ((_lp-tl299879300073_ (let () (declare (not safe)) - (##cdr _e298553298742_))) - (_lp-hd298554298746_ + (##cdr _e299877300066_))) + (_lp-hd299878300070_ (let () (declare (not safe)) - (##car _e298553298742_)))) + (##car _e299877300066_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _lp-hd298554298746_)) - (let ((_e298562298752_ + _lp-hd299878300070_)) + (let ((_e299886300076_ (let () (declare (not safe)) (gx#syntax-e - _lp-hd298554298746_)))) - (let ((_tl298560298759_ + _lp-hd299878300070_)))) + (let ((_tl299884300083_ (let () (declare (not safe)) - (##cdr _e298562298752_))) - (_hd298561298756_ + (##cdr _e299886300076_))) + (_hd299885300080_ (let () (declare (not safe)) - (##car _e298562298752_)))) + (##car _e299886300076_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298560298759_)) - (let ((_e298565298762_ + _tl299884300083_)) + (let ((_e299889300086_ (let () (declare (not safe)) (gx#syntax-e - _tl298560298759_)))) - (let ((_tl298563298769_ + _tl299884300083_)))) + (let ((_tl299887300093_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e298565298762_))) - (_hd298564298766_ - (let () (declare (not safe)) (##car _e298565298762_)))) + (##cdr _e299889300086_))) + (_hd299888300090_ + (let () (declare (not safe)) (##car _e299889300086_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298563298769_)) - (_loop298552298730_ - _lp-tl298555298749_ + (gx#stx-null? _tl299887300093_)) + (_loop299876300054_ + _lp-tl299879300073_ (let () (declare (not safe)) - (cons _hd298564298766_ _dispatch298556298737_)) + (cons _hd299888300090_ _dispatch299880300061_)) (let () (declare (not safe)) - (cons _hd298561298756_ _arity298557298739_))) - (___match304721304722_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_)))) + (cons _hd299885300080_ _arity299881300063_))) + (___match306045306046_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match304721304722_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_)))) - (___match304721304722_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_)))) - (let ((_arity298559298775_ - (reverse _arity298557298739_)) - (_dispatch298558298772_ - (reverse _dispatch298556298737_))) - (___kont304681304682_ - _dispatch298558298772_ - _arity298559298775_)))))) - (_loop298552298730_ _target298549298724_ '() '()))))) + (___match306045306046_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_)))) + (___match306045306046_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_)))) + (let ((_arity299883300099_ + (reverse _arity299881300063_)) + (_dispatch299882300096_ + (reverse _dispatch299880300061_))) + (___kont306005306006_ + _dispatch299882300096_ + _arity299883300099_)))))) + (_loop299876300054_ _target299873300048_ '() '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx304678304679_)) - (let ((_e298544298700_ + (gx#stx-pair? ___stx306002306003_)) + (let ((_e299868300024_ (let () (declare (not safe)) - (gx#syntax-e ___stx304678304679_)))) - (let ((_tl298542298707_ - (let () (declare (not safe)) (##cdr _e298544298700_))) - (_hd298543298704_ + (gx#syntax-e ___stx306002306003_)))) + (let ((_tl299866300031_ + (let () (declare (not safe)) (##cdr _e299868300024_))) + (_hd299867300028_ (let () (declare (not safe)) - (##car _e298544298700_)))) + (##car _e299868300024_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298542298707_)) - (let ((_e298547298710_ + (gx#stx-pair? _tl299866300031_)) + (let ((_e299871300034_ (let () (declare (not safe)) - (gx#syntax-e _tl298542298707_)))) - (let ((_tl298545298717_ + (gx#syntax-e _tl299866300031_)))) + (let ((_tl299869300041_ (let () (declare (not safe)) - (##cdr _e298547298710_))) - (_hd298546298714_ + (##cdr _e299871300034_))) + (_hd299870300038_ (let () (declare (not safe)) - (##car _e298547298710_)))) + (##car _e299871300034_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd298546298714_)) - (let ((_e298548298720_ + (gx#stx-datum? _hd299870300038_)) + (let ((_e299872300044_ (let () (declare (not safe)) - (gx#stx-e _hd298546298714_)))) + (gx#stx-e _hd299870300038_)))) (if (let () (declare (not safe)) - (equal? _e298548298720_ 'primitive:)) + (equal? _e299872300044_ 'primitive:)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl298545298717_)) - (let ((___splice304683304684_ + _tl299869300041_)) + (let ((___splice306007306008_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298545298717_ + _tl299869300041_ '0)))) - (let ((_tl298551298727_ + (let ((_tl299875300051_ (let () (declare (not safe)) (##vector-ref - ___splice304683304684_ + ___splice306007306008_ '1))) - (_target298549298724_ + (_target299873300048_ (let () (declare (not safe)) (##vector-ref - ___splice304683304684_ + ___splice306007306008_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298551298727_)) - (___match304715304716_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_ - _e298547298710_ - _hd298546298714_ - _tl298545298717_ - _e298548298720_ - ___splice304683304684_ - _target298549298724_ - _tl298551298727_) + _tl299875300051_)) + (___match306039306040_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_ + _e299871300034_ + _hd299870300038_ + _tl299869300041_ + _e299872300044_ + ___splice306007306008_ + _target299873300048_ + _tl299875300051_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl298542298707_)) - (let ((___splice304687304688_ + _tl299866300031_)) + (let ((___splice306011306012_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl298542298707_ '0)))) - (let ((_tl298573298613_ + (gx#syntax-split-splice _tl299866300031_ '0)))) + (let ((_tl299897299937_ (let () (declare (not safe)) - (##vector-ref ___splice304687304688_ '1))) - (_target298571298610_ + (##vector-ref ___splice306011306012_ '1))) + (_target299895299934_ (let () (declare (not safe)) - (##vector-ref ___splice304687304688_ '0)))) + (##vector-ref ___splice306011306012_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298573298613_)) - (___match304729304730_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_ - ___splice304687304688_ - _target298571298610_ - _tl298573298613_) - (let () (declare (not safe)) (_g298538298593_))))) - (let () (declare (not safe)) (_g298538298593_)))))) + (gx#stx-null? _tl299897299937_)) + (___match306053306054_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_ + ___splice306011306012_ + _target299895299934_ + _tl299897299937_) + (let () (declare (not safe)) (_g299862299917_))))) + (let () (declare (not safe)) (_g299862299917_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl298542298707_)) - (let ((___splice304687304688_ + _tl299866300031_)) + (let ((___splice306011306012_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298542298707_ + _tl299866300031_ '0)))) - (let ((_tl298573298613_ + (let ((_tl299897299937_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '1))) - (_target298571298610_ + (_target299895299934_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298573298613_)) - (___match304729304730_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_ - ___splice304687304688_ - _target298571298610_ - _tl298573298613_) + _tl299897299937_)) + (___match306053306054_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_ + ___splice306011306012_ + _target299895299934_ + _tl299897299937_) (let () (declare (not safe)) - (_g298538298593_))))) + (_g299862299917_))))) (let () (declare (not safe)) - (_g298538298593_)))) + (_g299862299917_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl298542298707_)) - (let ((___splice304687304688_ + _tl299866300031_)) + (let ((___splice306011306012_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298542298707_ + _tl299866300031_ '0)))) - (let ((_tl298573298613_ + (let ((_tl299897299937_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '1))) - (_target298571298610_ + (_target299895299934_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298573298613_)) - (___match304729304730_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_ - ___splice304687304688_ - _target298571298610_ - _tl298573298613_) + _tl299897299937_)) + (___match306053306054_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_ + ___splice306011306012_ + _target299895299934_ + _tl299897299937_) (let () (declare (not safe)) - (_g298538298593_))))) + (_g299862299917_))))) (let () (declare (not safe)) - (_g298538298593_))))) + (_g299862299917_))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298542298707_)) - (let ((___splice304687304688_ + (gx#stx-pair/null? _tl299866300031_)) + (let ((___splice306011306012_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298542298707_ + _tl299866300031_ '0)))) - (let ((_tl298573298613_ + (let ((_tl299897299937_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '1))) - (_target298571298610_ + (_target299895299934_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298573298613_)) - (___match304729304730_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_ - ___splice304687304688_ - _target298571298610_ - _tl298573298613_) + (gx#stx-null? _tl299897299937_)) + (___match306053306054_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_ + ___splice306011306012_ + _target299895299934_ + _tl299897299937_) (let () (declare (not safe)) - (_g298538298593_))))) + (_g299862299917_))))) (let () (declare (not safe)) - (_g298538298593_)))))) + (_g299862299917_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298542298707_)) - (let ((___splice304687304688_ + (gx#stx-pair/null? _tl299866300031_)) + (let ((___splice306011306012_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298542298707_ + _tl299866300031_ '0)))) - (let ((_tl298573298613_ + (let ((_tl299897299937_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '1))) - (_target298571298610_ + (_target299895299934_ (let () (declare (not safe)) (##vector-ref - ___splice304687304688_ + ___splice306011306012_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298573298613_)) - (___match304729304730_ - _e298544298700_ - _hd298543298704_ - _tl298542298707_ - ___splice304687304688_ - _target298571298610_ - _tl298573298613_) + (gx#stx-null? _tl299897299937_)) + (___match306053306054_ + _e299868300024_ + _hd299867300028_ + _tl299866300031_ + ___splice306011306012_ + _target299895299934_ + _tl299897299937_) (let () (declare (not safe)) - (_g298538298593_))))) - (let () (declare (not safe)) (_g298538298593_)))))) - (let () (declare (not safe)) (_g298538298593_)))))))) + (_g299862299917_))))) + (let () (declare (not safe)) (_g299862299917_)))))) + (let () (declare (not safe)) (_g299862299917_)))))))) (define |gxc[:0:]#@kw-lambda| - (lambda (_$stx298815_) - (let* ((_g298819298837_ - (lambda (_g298820298833_) + (lambda (_$stx300139_) + (let* ((_g300143300161_ + (lambda (_g300144300157_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298820298833_)))) - (_g298818298892_ - (lambda (_g298820298841_) + _g300144300157_)))) + (_g300142300216_ + (lambda (_g300144300165_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298820298841_)) - (let ((_e298825298844_ + (gx#stx-pair? _g300144300165_)) + (let ((_e300149300168_ (let () (declare (not safe)) - (gx#syntax-e _g298820298841_)))) - (let ((_hd298824298848_ + (gx#syntax-e _g300144300165_)))) + (let ((_hd300148300172_ (let () (declare (not safe)) - (##car _e298825298844_))) - (_tl298823298851_ + (##car _e300149300168_))) + (_tl300147300175_ (let () (declare (not safe)) - (##cdr _e298825298844_)))) + (##cdr _e300149300168_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298823298851_)) - (let ((_e298828298854_ + (gx#stx-pair? _tl300147300175_)) + (let ((_e300152300178_ (let () (declare (not safe)) - (gx#syntax-e _tl298823298851_)))) - (let ((_hd298827298858_ + (gx#syntax-e _tl300147300175_)))) + (let ((_hd300151300182_ (let () (declare (not safe)) - (##car _e298828298854_))) - (_tl298826298861_ + (##car _e300152300178_))) + (_tl300150300185_ (let () (declare (not safe)) - (##cdr _e298828298854_)))) + (##cdr _e300152300178_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298826298861_)) - (let ((_e298831298864_ + (gx#stx-pair? _tl300150300185_)) + (let ((_e300155300188_ (let () (declare (not safe)) - (gx#syntax-e _tl298826298861_)))) - (let ((_hd298830298868_ + (gx#syntax-e _tl300150300185_)))) + (let ((_hd300154300192_ (let () (declare (not safe)) - (##car _e298831298864_))) - (_tl298829298871_ + (##car _e300155300188_))) + (_tl300153300195_ (let () (declare (not safe)) - (##cdr _e298831298864_)))) + (##cdr _e300155300188_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298829298871_)) - ((lambda (_L298874_ _L298876_) - (let ((__tmp305124 + (gx#stx-null? _tl300153300195_)) + ((lambda (_L300198_ _L300200_) + (let ((__tmp306446 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda))) - (__tmp305111 - (let ((__tmp305120 - (let ((__tmp305123 + (__tmp306433 + (let ((__tmp306442 + (let ((__tmp306445 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305121 - (let ((__tmp305122 + (__tmp306443 + (let ((__tmp306444 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda)))) (declare (not safe)) - (cons __tmp305122 '())))) + (cons __tmp306444 '())))) (declare (not safe)) - (cons __tmp305123 __tmp305121))) - (__tmp305112 - (let ((__tmp305117 - (let ((__tmp305119 + (cons __tmp306445 __tmp306443))) + (__tmp306434 + (let ((__tmp306439 + (let ((__tmp306441 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305118 + (__tmp306440 (let () (declare (not safe)) - (cons _L298876_ '())))) + (cons _L300200_ '())))) (declare (not safe)) - (cons __tmp305119 __tmp305118))) - (__tmp305113 - (let ((__tmp305114 - (let ((__tmp305116 + (cons __tmp306441 __tmp306440))) + (__tmp306435 + (let ((__tmp306436 + (let ((__tmp306438 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305115 + (__tmp306437 (let () (declare (not safe)) - (cons _L298874_ '())))) + (cons _L300198_ '())))) (declare (not safe)) - (cons __tmp305116 __tmp305115)))) + (cons __tmp306438 __tmp306437)))) (declare (not safe)) - (cons __tmp305114 '())))) + (cons __tmp306436 '())))) (declare (not safe)) - (cons __tmp305117 __tmp305113)))) + (cons __tmp306439 __tmp306435)))) (declare (not safe)) - (cons __tmp305120 __tmp305112)))) + (cons __tmp306442 __tmp306434)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp305124 - __tmp305111))) - _hd298830298868_ - _hd298827298858_) - (_g298819298837_ - _g298820298841_)))) - (_g298819298837_ _g298820298841_)))) - (_g298819298837_ _g298820298841_)))) - (_g298819298837_ _g298820298841_))))) - (_g298818298892_ _$stx298815_)))) + (cons __tmp306446 + __tmp306433))) + _hd300154300192_ + _hd300151300182_) + (_g300143300161_ + _g300144300165_)))) + (_g300143300161_ _g300144300165_)))) + (_g300143300161_ _g300144300165_)))) + (_g300143300161_ _g300144300165_))))) + (_g300142300216_ _$stx300139_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_$stx298896_) - (let* ((_g298900298918_ - (lambda (_g298901298914_) + (lambda (_$stx300220_) + (let* ((_g300224300242_ + (lambda (_g300225300238_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g298901298914_)))) - (_g298899298973_ - (lambda (_g298901298922_) + _g300225300238_)))) + (_g300223300297_ + (lambda (_g300225300246_) (if (let () (declare (not safe)) - (gx#stx-pair? _g298901298922_)) - (let ((_e298906298925_ + (gx#stx-pair? _g300225300246_)) + (let ((_e300230300249_ (let () (declare (not safe)) - (gx#syntax-e _g298901298922_)))) - (let ((_hd298905298929_ + (gx#syntax-e _g300225300246_)))) + (let ((_hd300229300253_ (let () (declare (not safe)) - (##car _e298906298925_))) - (_tl298904298932_ + (##car _e300230300249_))) + (_tl300228300256_ (let () (declare (not safe)) - (##cdr _e298906298925_)))) + (##cdr _e300230300249_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298904298932_)) - (let ((_e298909298935_ + (gx#stx-pair? _tl300228300256_)) + (let ((_e300233300259_ (let () (declare (not safe)) - (gx#syntax-e _tl298904298932_)))) - (let ((_hd298908298939_ + (gx#syntax-e _tl300228300256_)))) + (let ((_hd300232300263_ (let () (declare (not safe)) - (##car _e298909298935_))) - (_tl298907298942_ + (##car _e300233300259_))) + (_tl300231300266_ (let () (declare (not safe)) - (##cdr _e298909298935_)))) + (##cdr _e300233300259_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298907298942_)) - (let ((_e298912298945_ + (gx#stx-pair? _tl300231300266_)) + (let ((_e300236300269_ (let () (declare (not safe)) - (gx#syntax-e _tl298907298942_)))) - (let ((_hd298911298949_ + (gx#syntax-e _tl300231300266_)))) + (let ((_hd300235300273_ (let () (declare (not safe)) - (##car _e298912298945_))) - (_tl298910298952_ + (##car _e300236300269_))) + (_tl300234300276_ (let () (declare (not safe)) - (##cdr _e298912298945_)))) + (##cdr _e300236300269_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl298910298952_)) - ((lambda (_L298955_ _L298957_) - (let ((__tmp305138 + (gx#stx-null? _tl300234300276_)) + ((lambda (_L300279_ _L300281_) + (let ((__tmp306460 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!kw-lambda-primary))) - (__tmp305125 - (let ((__tmp305134 - (let ((__tmp305137 + (__tmp306447 + (let ((__tmp306456 + (let ((__tmp306459 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305135 - (let ((__tmp305136 + (__tmp306457 + (let ((__tmp306458 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'kw-lambda-dispatch)))) (declare (not safe)) - (cons __tmp305136 '())))) + (cons __tmp306458 '())))) (declare (not safe)) - (cons __tmp305137 __tmp305135))) - (__tmp305126 - (let ((__tmp305131 - (let ((__tmp305133 + (cons __tmp306459 __tmp306457))) + (__tmp306448 + (let ((__tmp306453 + (let ((__tmp306455 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305132 + (__tmp306454 (let () (declare (not safe)) - (cons _L298957_ '())))) + (cons _L300281_ '())))) (declare (not safe)) - (cons __tmp305133 __tmp305132))) - (__tmp305127 - (let ((__tmp305128 - (let ((__tmp305130 + (cons __tmp306455 __tmp306454))) + (__tmp306449 + (let ((__tmp306450 + (let ((__tmp306452 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote))) - (__tmp305129 + (__tmp306451 (let () (declare (not safe)) - (cons _L298955_ '())))) + (cons _L300279_ '())))) (declare (not safe)) - (cons __tmp305130 __tmp305129)))) + (cons __tmp306452 __tmp306451)))) (declare (not safe)) - (cons __tmp305128 '())))) + (cons __tmp306450 '())))) (declare (not safe)) - (cons __tmp305131 __tmp305127)))) + (cons __tmp306453 __tmp306449)))) (declare (not safe)) - (cons __tmp305134 __tmp305126)))) + (cons __tmp306456 __tmp306448)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp305138 - __tmp305125))) - _hd298911298949_ - _hd298908298939_) - (_g298900298918_ - _g298901298922_)))) - (_g298900298918_ _g298901298922_)))) - (_g298900298918_ _g298901298922_)))) - (_g298900298918_ _g298901298922_))))) - (_g298899298973_ _$stx298896_)))) + (cons __tmp306460 + __tmp306447))) + _hd300235300273_ + _hd300232300263_) + (_g300224300242_ + _g300225300246_)))) + (_g300224300242_ _g300225300246_)))) + (_g300224300242_ _g300225300246_)))) + (_g300224300242_ _g300225300246_))))) + (_g300223300297_ _$stx300220_)))) (define |gxc[:0:]#declare-primitive| - (lambda (_$stx298977_) - (let* ((___stx304732304733_ _$stx298977_) - (_g298984299055_ + (lambda (_$stx300301_) + (let* ((___stx306056306057_ _$stx300301_) + (_g300308300379_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx304732304733_))))) - (let ((___kont304735304736_ - (lambda (_L299346_ _L299348_) - (let ((__tmp305144 + ___stx306056306057_))))) + (let ((___kont306059306060_ + (lambda (_L300670_ _L300672_) + (let ((__tmp306466 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp305139 - (let ((__tmp305140 - (let ((__tmp305141 - (let ((__tmp305143 + (__tmp306461 + (let ((__tmp306462 + (let ((__tmp306463 + (let ((__tmp306465 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp305142 + (__tmp306464 (let () (declare (not safe)) - (cons _L299346_ '())))) + (cons _L300670_ '())))) (declare (not safe)) - (cons __tmp305143 __tmp305142)))) + (cons __tmp306465 __tmp306464)))) (declare (not safe)) - (cons __tmp305141 '())))) + (cons __tmp306463 '())))) (declare (not safe)) - (cons _L299348_ __tmp305140)))) + (cons _L300672_ __tmp306462)))) (declare (not safe)) - (cons __tmp305144 __tmp305139)))) - (___kont304737304738_ - (lambda (_L299265_ _L299267_) - (let ((__tmp305153 + (cons __tmp306466 __tmp306461)))) + (___kont306061306062_ + (lambda (_L300589_ _L300591_) + (let ((__tmp306475 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp305145 - (let ((__tmp305146 - (let ((__tmp305147 - (let ((__tmp305152 + (__tmp306467 + (let ((__tmp306468 + (let ((__tmp306469 + (let ((__tmp306474 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp305148 - (let ((__tmp305149 - (lambda (_g299286299289_ - _g299287299292_) - (let ((__tmp305150 - (let ((__tmp305151 + (__tmp306470 + (let ((__tmp306471 + (lambda (_g300610300613_ + _g300611300616_) + (let ((__tmp306472 + (let ((__tmp306473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g299286299289_ __tmp305151)))) + (cons _g300610300613_ __tmp306473)))) (declare (not safe)) - (cons __tmp305150 _g299287299292_))))) + (cons __tmp306472 _g300611300616_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp305149 + (foldr1 __tmp306471 '() - _L299265_)))) + _L300589_)))) (declare (not safe)) - (cons __tmp305152 __tmp305148)))) + (cons __tmp306474 __tmp306470)))) (declare (not safe)) - (cons __tmp305147 '())))) + (cons __tmp306469 '())))) (declare (not safe)) - (cons _L299267_ __tmp305146)))) + (cons _L300591_ __tmp306468)))) (declare (not safe)) - (cons __tmp305153 __tmp305145)))) - (___kont304741304742_ - (lambda (_L299177_ _L299179_) - (let ((__tmp305160 + (cons __tmp306475 __tmp306467)))) + (___kont306065306066_ + (lambda (_L300501_ _L300503_) + (let ((__tmp306482 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp305154 - (let ((__tmp305155 - (let ((__tmp305156 - (let ((__tmp305159 + (__tmp306476 + (let ((__tmp306477 + (let ((__tmp306478 + (let ((__tmp306481 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp305157 - (let ((__tmp305158 + (__tmp306479 + (let ((__tmp306480 (let () (declare (not safe)) - (cons _L299177_ '())))) + (cons _L300501_ '())))) (declare (not safe)) (cons 'primitive: - __tmp305158)))) + __tmp306480)))) (declare (not safe)) - (cons __tmp305159 __tmp305157)))) + (cons __tmp306481 __tmp306479)))) (declare (not safe)) - (cons __tmp305156 '())))) + (cons __tmp306478 '())))) (declare (not safe)) - (cons _L299179_ __tmp305155)))) + (cons _L300503_ __tmp306477)))) (declare (not safe)) - (cons __tmp305160 __tmp305154)))) - (___kont304743304744_ - (lambda (_L299112_ _L299114_) - (let ((__tmp305170 + (cons __tmp306482 __tmp306476)))) + (___kont306067306068_ + (lambda (_L300436_ _L300438_) + (let ((__tmp306492 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp305161 - (let ((__tmp305162 - (let ((__tmp305163 - (let ((__tmp305169 + (__tmp306483 + (let ((__tmp306484 + (let ((__tmp306485 + (let ((__tmp306491 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp305164 - (let ((__tmp305165 - (let ((__tmp305166 - (lambda (_g299131299134_ + (__tmp306486 + (let ((__tmp306487 + (let ((__tmp306488 + (lambda (_g300455300458_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g299132299137_) - (let ((__tmp305167 - (let ((__tmp305168 + _g300456300461_) + (let ((__tmp306489 + (let ((__tmp306490 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g299131299134_ __tmp305168)))) + (cons _g300455300458_ __tmp306490)))) (declare (not safe)) - (cons __tmp305167 _g299132299137_))))) + (cons __tmp306489 _g300456300461_))))) (declare (not safe)) - (foldr1 __tmp305166 '() _L299112_)))) + (foldr1 __tmp306488 '() _L300436_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons 'primitive: - __tmp305165)))) + __tmp306487)))) (declare (not safe)) - (cons __tmp305169 __tmp305164)))) + (cons __tmp306491 __tmp306486)))) (declare (not safe)) - (cons __tmp305163 '())))) + (cons __tmp306485 '())))) (declare (not safe)) - (cons _L299114_ __tmp305162)))) + (cons _L300438_ __tmp306484)))) (declare (not safe)) - (cons __tmp305170 __tmp305161))))) - (let* ((___match304851304852_ - (lambda (_e299037299062_ - _hd299036299066_ - _tl299035299069_ - _e299040299072_ - _hd299039299076_ - _tl299038299079_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) - (letrec ((_loop299044299088_ - (lambda (_hd299042299092_ _arity299048299095_) + (cons __tmp306492 __tmp306483))))) + (let* ((___match306175306176_ + (lambda (_e300361300386_ + _hd300360300390_ + _tl300359300393_ + _e300364300396_ + _hd300363300400_ + _tl300362300403_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) + (letrec ((_loop300368300412_ + (lambda (_hd300366300416_ _arity300372300419_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd299042299092_)) - (let ((_e299045299098_ + (gx#stx-pair? _hd300366300416_)) + (let ((_e300369300422_ (let () (declare (not safe)) - (gx#syntax-e _hd299042299092_)))) - (let ((_lp-tl299047299105_ + (gx#syntax-e _hd300366300416_)))) + (let ((_lp-tl300371300429_ (let () (declare (not safe)) - (##cdr _e299045299098_))) - (_lp-hd299046299102_ + (##cdr _e300369300422_))) + (_lp-hd300370300426_ (let () (declare (not safe)) - (##car _e299045299098_)))) - (_loop299044299088_ - _lp-tl299047299105_ + (##car _e300369300422_)))) + (_loop300368300412_ + _lp-tl300371300429_ (let () (declare (not safe)) - (cons _lp-hd299046299102_ - _arity299048299095_))))) - (let ((_arity299049299108_ - (reverse _arity299048299095_))) - (___kont304743304744_ - _arity299049299108_ - _hd299039299076_)))))) - (_loop299044299088_ _target299041299082_ '())))) - (___match304811304812_ - (lambda (_e299005299201_ - _hd299004299205_ - _tl299003299208_ - _e299008299211_ - _hd299007299215_ - _tl299006299218_ - _e299011299221_ - _hd299010299225_ - _tl299009299228_ - _e299012299231_ - ___splice304739304740_ - _target299013299235_ - _tl299015299238_) - (letrec ((_loop299016299241_ - (lambda (_hd299014299245_ _arity299020299248_) + (cons _lp-hd300370300426_ + _arity300372300419_))))) + (let ((_arity300373300432_ + (reverse _arity300372300419_))) + (___kont306067306068_ + _arity300373300432_ + _hd300363300400_)))))) + (_loop300368300412_ _target300365300406_ '())))) + (___match306135306136_ + (lambda (_e300329300525_ + _hd300328300529_ + _tl300327300532_ + _e300332300535_ + _hd300331300539_ + _tl300330300542_ + _e300335300545_ + _hd300334300549_ + _tl300333300552_ + _e300336300555_ + ___splice306063306064_ + _target300337300559_ + _tl300339300562_) + (letrec ((_loop300340300565_ + (lambda (_hd300338300569_ _arity300344300572_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd299014299245_)) - (let ((_e299017299251_ + (gx#stx-pair? _hd300338300569_)) + (let ((_e300341300575_ (let () (declare (not safe)) - (gx#syntax-e _hd299014299245_)))) - (let ((_lp-tl299019299258_ + (gx#syntax-e _hd300338300569_)))) + (let ((_lp-tl300343300582_ (let () (declare (not safe)) - (##cdr _e299017299251_))) - (_lp-hd299018299255_ + (##cdr _e300341300575_))) + (_lp-hd300342300579_ (let () (declare (not safe)) - (##car _e299017299251_)))) - (_loop299016299241_ - _lp-tl299019299258_ + (##car _e300341300575_)))) + (_loop300340300565_ + _lp-tl300343300582_ (let () (declare (not safe)) - (cons _lp-hd299018299255_ - _arity299020299248_))))) - (let ((_arity299021299261_ - (reverse _arity299020299248_))) - (___kont304737304738_ - _arity299021299261_ - _hd299007299215_)))))) - (_loop299016299241_ _target299013299235_ '()))))) + (cons _lp-hd300342300579_ + _arity300344300572_))))) + (let ((_arity300345300585_ + (reverse _arity300344300572_))) + (___kont306061306062_ + _arity300345300585_ + _hd300331300539_)))))) + (_loop300340300565_ _target300337300559_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx304732304733_)) - (let ((_e298990299302_ + (gx#stx-pair? ___stx306056306057_)) + (let ((_e300314300626_ (let () (declare (not safe)) - (gx#syntax-e ___stx304732304733_)))) - (let ((_tl298988299309_ - (let () (declare (not safe)) (##cdr _e298990299302_))) - (_hd298989299306_ + (gx#syntax-e ___stx306056306057_)))) + (let ((_tl300312300633_ + (let () (declare (not safe)) (##cdr _e300314300626_))) + (_hd300313300630_ (let () (declare (not safe)) - (##car _e298990299302_)))) + (##car _e300314300626_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298988299309_)) - (let ((_e298993299312_ + (gx#stx-pair? _tl300312300633_)) + (let ((_e300317300636_ (let () (declare (not safe)) - (gx#syntax-e _tl298988299309_)))) - (let ((_tl298991299319_ + (gx#syntax-e _tl300312300633_)))) + (let ((_tl300315300643_ (let () (declare (not safe)) - (##cdr _e298993299312_))) - (_hd298992299316_ + (##cdr _e300317300636_))) + (_hd300316300640_ (let () (declare (not safe)) - (##car _e298993299312_)))) + (##car _e300317300636_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl298991299319_)) - (let ((_e298996299322_ + (gx#stx-pair? _tl300315300643_)) + (let ((_e300320300646_ (let () (declare (not safe)) - (gx#syntax-e _tl298991299319_)))) - (let ((_tl298994299329_ + (gx#syntax-e _tl300315300643_)))) + (let ((_tl300318300653_ (let () (declare (not safe)) - (##cdr _e298996299322_))) - (_hd298995299326_ + (##cdr _e300320300646_))) + (_hd300319300650_ (let () (declare (not safe)) - (##car _e298996299322_)))) + (##car _e300320300646_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _hd298995299326_)) - (let ((_e298997299332_ + (gx#stx-datum? _hd300319300650_)) + (let ((_e300321300656_ (let () (declare (not safe)) - (gx#stx-e _hd298995299326_)))) + (gx#stx-e _hd300319300650_)))) (if (let () (declare (not safe)) - (equal? _e298997299332_ + (equal? _e300321300656_ 'unchecked:)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl298994299329_)) - (let ((_e299000299336_ + _tl300318300653_)) + (let ((_e300324300660_ (let () (declare (not safe)) (gx#syntax-e - _tl298994299329_)))) - (let ((_tl298998299343_ + _tl300318300653_)))) + (let ((_tl300322300667_ (let () (declare (not safe)) - (##cdr _e299000299336_))) - (_hd298999299340_ + (##cdr _e300324300660_))) + (_hd300323300664_ (let () (declare (not safe)) - (##car _e299000299336_)))) + (##car _e300324300660_)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl298998299343_)) - (___kont304735304736_ - _hd298999299340_ - _hd298992299316_) + _tl300322300667_)) + (___kont306059306060_ + _hd300323300664_ + _hd300316300640_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _tl298994299329_)) - (let ((___splice304739304740_ + (gx#stx-pair/null? _tl300318300653_)) + (let ((___splice306063306064_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl298994299329_ '0)))) - (let ((_tl299015299238_ + (gx#syntax-split-splice _tl300318300653_ '0)))) + (let ((_tl300339300562_ (let () (declare (not safe)) - (##vector-ref ___splice304739304740_ '1))) - (_target299013299235_ + (##vector-ref ___splice306063306064_ '1))) + (_target300337300559_ (let () (declare (not safe)) - (##vector-ref ___splice304739304740_ '0)))) + (##vector-ref ___splice306063306064_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299015299238_)) - (___match304811304812_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - _e298996299322_ - _hd298995299326_ - _tl298994299329_ - _e298997299332_ - ___splice304739304740_ - _target299013299235_ - _tl299015299238_) + (gx#stx-null? _tl300339300562_)) + (___match306135306136_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + _e300320300646_ + _hd300319300650_ + _tl300318300653_ + _e300321300656_ + ___splice306063306064_ + _target300337300559_ + _tl300339300562_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298991299319_)) - (let ((___splice304745304746_ + (gx#stx-pair/null? _tl300315300643_)) + (let ((___splice306069306070_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298991299319_ + _tl300315300643_ '0)))) - (let ((_tl299043299085_ + (let ((_tl300367300409_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '1))) - (_target299041299082_ + (_target300365300406_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299043299085_)) - (___match304851304852_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) + (gx#stx-null? _tl300367300409_)) + (___match306175306176_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) (let () (declare (not safe)) - (_g298984299055_))))) + (_g300308300379_))))) (let () (declare (not safe)) - (_g298984299055_)))))) + (_g300308300379_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298991299319_)) - (let ((___splice304745304746_ + (gx#stx-pair/null? _tl300315300643_)) + (let ((___splice306069306070_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298991299319_ + _tl300315300643_ '0)))) - (let ((_tl299043299085_ + (let ((_tl300367300409_ (let () (declare (not safe)) - (##vector-ref ___splice304745304746_ '1))) - (_target299041299082_ + (##vector-ref ___splice306069306070_ '1))) + (_target300365300406_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299043299085_)) - (___match304851304852_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) + (gx#stx-null? _tl300367300409_)) + (___match306175306176_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) (let () (declare (not safe)) - (_g298984299055_))))) - (let () (declare (not safe)) (_g298984299055_))))))) + (_g300308300379_))))) + (let () (declare (not safe)) (_g300308300379_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl298994299329_)) - (let ((___splice304739304740_ + _tl300318300653_)) + (let ((___splice306063306064_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl298994299329_ '0)))) - (let ((_tl299015299238_ + (gx#syntax-split-splice _tl300318300653_ '0)))) + (let ((_tl300339300562_ (let () (declare (not safe)) - (##vector-ref ___splice304739304740_ '1))) - (_target299013299235_ + (##vector-ref ___splice306063306064_ '1))) + (_target300337300559_ (let () (declare (not safe)) - (##vector-ref ___splice304739304740_ '0)))) + (##vector-ref ___splice306063306064_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299015299238_)) - (___match304811304812_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - _e298996299322_ - _hd298995299326_ - _tl298994299329_ - _e298997299332_ - ___splice304739304740_ - _target299013299235_ - _tl299015299238_) + (gx#stx-null? _tl300339300562_)) + (___match306135306136_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + _e300320300646_ + _hd300319300650_ + _tl300318300653_ + _e300321300656_ + ___splice306063306064_ + _target300337300559_ + _tl300339300562_) (if (let () (declare (not safe)) - (gx#stx-null? _tl298994299329_)) - (___kont304741304742_ - _hd298995299326_ - _hd298992299316_) + (gx#stx-null? _tl300318300653_)) + (___kont306065306066_ + _hd300319300650_ + _hd300316300640_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298991299319_)) - (let ((___splice304745304746_ + (gx#stx-pair/null? _tl300315300643_)) + (let ((___splice306069306070_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298991299319_ + _tl300315300643_ '0)))) - (let ((_tl299043299085_ + (let ((_tl300367300409_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '1))) - (_target299041299082_ + (_target300365300406_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299043299085_)) - (___match304851304852_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) + (gx#stx-null? _tl300367300409_)) + (___match306175306176_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) (let () (declare (not safe)) - (_g298984299055_))))) + (_g300308300379_))))) (let () (declare (not safe)) - (_g298984299055_))))))) - (if (let () (declare (not safe)) (gx#stx-null? _tl298994299329_)) - (___kont304741304742_ _hd298995299326_ _hd298992299316_) + (_g300308300379_))))))) + (if (let () (declare (not safe)) (gx#stx-null? _tl300318300653_)) + (___kont306065306066_ _hd300319300650_ _hd300316300640_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298991299319_)) - (let ((___splice304745304746_ + (gx#stx-pair/null? _tl300315300643_)) + (let ((___splice306069306070_ (let () (declare (not safe)) - (gx#syntax-split-splice _tl298991299319_ '0)))) - (let ((_tl299043299085_ + (gx#syntax-split-splice _tl300315300643_ '0)))) + (let ((_tl300367300409_ (let () (declare (not safe)) - (##vector-ref ___splice304745304746_ '1))) - (_target299041299082_ + (##vector-ref ___splice306069306070_ '1))) + (_target300365300406_ (let () (declare (not safe)) - (##vector-ref ___splice304745304746_ '0)))) + (##vector-ref ___splice306069306070_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299043299085_)) - (___match304851304852_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) + (gx#stx-null? _tl300367300409_)) + (___match306175306176_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) (let () (declare (not safe)) - (_g298984299055_))))) - (let () (declare (not safe)) (_g298984299055_)))))) + (_g300308300379_))))) + (let () (declare (not safe)) (_g300308300379_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _tl298994299329_)) - (___kont304741304742_ - _hd298995299326_ - _hd298992299316_) + _tl300318300653_)) + (___kont306065306066_ + _hd300319300650_ + _hd300316300640_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl298991299319_)) - (let ((___splice304745304746_ + _tl300315300643_)) + (let ((___splice306069306070_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _tl298991299319_ '0)))) - (let ((_tl299043299085_ + (gx#syntax-split-splice _tl300315300643_ '0)))) + (let ((_tl300367300409_ (let () (declare (not safe)) - (##vector-ref ___splice304745304746_ '1))) - (_target299041299082_ + (##vector-ref ___splice306069306070_ '1))) + (_target300365300406_ (let () (declare (not safe)) - (##vector-ref ___splice304745304746_ '0)))) + (##vector-ref ___splice306069306070_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299043299085_)) - (___match304851304852_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) - (let () (declare (not safe)) (_g298984299055_))))) - (let () (declare (not safe)) (_g298984299055_)))))) + (gx#stx-null? _tl300367300409_)) + (___match306175306176_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) + (let () (declare (not safe)) (_g300308300379_))))) + (let () (declare (not safe)) (_g300308300379_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (gx#stx-null? _tl298994299329_)) - (___kont304741304742_ - _hd298995299326_ - _hd298992299316_) + (gx#stx-null? _tl300318300653_)) + (___kont306065306066_ + _hd300319300650_ + _hd300316300640_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl298991299319_)) - (let ((___splice304745304746_ + _tl300315300643_)) + (let ((___splice306069306070_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298991299319_ + _tl300315300643_ '0)))) - (let ((_tl299043299085_ + (let ((_tl300367300409_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '1))) - (_target299041299082_ + (_target300365300406_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299043299085_)) - (___match304851304852_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) + _tl300367300409_)) + (___match306175306176_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) (let () (declare (not safe)) - (_g298984299055_))))) + (_g300308300379_))))) (let () (declare (not safe)) - (_g298984299055_))))))) + (_g300308300379_))))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl298991299319_)) - (let ((___splice304745304746_ + (gx#stx-pair/null? _tl300315300643_)) + (let ((___splice306069306070_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl298991299319_ + _tl300315300643_ '0)))) - (let ((_tl299043299085_ + (let ((_tl300367300409_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '1))) - (_target299041299082_ + (_target300365300406_ (let () (declare (not safe)) (##vector-ref - ___splice304745304746_ + ___splice306069306070_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299043299085_)) - (___match304851304852_ - _e298990299302_ - _hd298989299306_ - _tl298988299309_ - _e298993299312_ - _hd298992299316_ - _tl298991299319_ - ___splice304745304746_ - _target299041299082_ - _tl299043299085_) + (gx#stx-null? _tl300367300409_)) + (___match306175306176_ + _e300314300626_ + _hd300313300630_ + _tl300312300633_ + _e300317300636_ + _hd300316300640_ + _tl300315300643_ + ___splice306069306070_ + _target300365300406_ + _tl300367300409_) (let () (declare (not safe)) - (_g298984299055_))))) + (_g300308300379_))))) (let () (declare (not safe)) - (_g298984299055_)))))) - (let () (declare (not safe)) (_g298984299055_))))) - (let () (declare (not safe)) (_g298984299055_)))))))) + (_g300308300379_)))))) + (let () (declare (not safe)) (_g300308300379_))))) + (let () (declare (not safe)) (_g300308300379_)))))))) (define |gxc[:0:]#declare-primitive/unchecked| - (lambda (_$stx299372_) - (let* ((___stx304854304855_ _$stx299372_) - (_g299377299412_ + (lambda (_$stx300696_) + (let* ((___stx306178306179_ _$stx300696_) + (_g300701300736_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx304854304855_))))) - (let ((___kont304857304858_ - (lambda (_L299534_ _L299536_) - (let ((__tmp305176 + ___stx306178306179_))))) + (let ((___kont306181306182_ + (lambda (_L300858_ _L300860_) + (let ((__tmp306498 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp305171 - (let ((__tmp305172 - (let ((__tmp305173 - (let ((__tmp305175 + (__tmp306493 + (let ((__tmp306494 + (let ((__tmp306495 + (let ((__tmp306497 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda))) - (__tmp305174 + (__tmp306496 (let () (declare (not safe)) - (cons _L299534_ '())))) + (cons _L300858_ '())))) (declare (not safe)) - (cons __tmp305175 __tmp305174)))) + (cons __tmp306497 __tmp306496)))) (declare (not safe)) - (cons __tmp305173 '())))) + (cons __tmp306495 '())))) (declare (not safe)) - (cons _L299536_ __tmp305172)))) + (cons _L300860_ __tmp306494)))) (declare (not safe)) - (cons __tmp305176 __tmp305171)))) - (___kont304859304860_ - (lambda (_L299469_ _L299471_) - (let ((__tmp305185 + (cons __tmp306498 __tmp306493)))) + (___kont306183306184_ + (lambda (_L300793_ _L300795_) + (let ((__tmp306507 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type))) - (__tmp305177 - (let ((__tmp305178 - (let ((__tmp305179 - (let ((__tmp305184 + (__tmp306499 + (let ((__tmp306500 + (let ((__tmp306501 + (let ((__tmp306506 (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@case-lambda))) - (__tmp305180 - (let ((__tmp305181 - (lambda (_g299488299491_ - _g299489299494_) - (let ((__tmp305182 - (let ((__tmp305183 + (__tmp306502 + (let ((__tmp306503 + (lambda (_g300812300815_ + _g300813300818_) + (let ((__tmp306504 + (let ((__tmp306505 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons _g299488299491_ __tmp305183)))) + (cons _g300812300815_ __tmp306505)))) (declare (not safe)) - (cons __tmp305182 _g299489299494_))))) + (cons __tmp306504 _g300813300818_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp305181 + (foldr1 __tmp306503 '() - _L299469_)))) + _L300793_)))) (declare (not safe)) - (cons __tmp305184 __tmp305180)))) + (cons __tmp306506 __tmp306502)))) (declare (not safe)) - (cons __tmp305179 '())))) + (cons __tmp306501 '())))) (declare (not safe)) - (cons _L299471_ __tmp305178)))) + (cons _L300795_ __tmp306500)))) (declare (not safe)) - (cons __tmp305185 __tmp305177))))) - (let ((___match304903304904_ - (lambda (_e299394299419_ - _hd299393299423_ - _tl299392299426_ - _e299397299429_ - _hd299396299433_ - _tl299395299436_ - ___splice304861304862_ - _target299398299439_ - _tl299400299442_) - (letrec ((_loop299401299445_ - (lambda (_hd299399299449_ _arity299405299452_) + (cons __tmp306507 __tmp306499))))) + (let ((___match306227306228_ + (lambda (_e300718300743_ + _hd300717300747_ + _tl300716300750_ + _e300721300753_ + _hd300720300757_ + _tl300719300760_ + ___splice306185306186_ + _target300722300763_ + _tl300724300766_) + (letrec ((_loop300725300769_ + (lambda (_hd300723300773_ _arity300729300776_) (if (let () (declare (not safe)) - (gx#stx-pair? _hd299399299449_)) - (let ((_e299402299455_ + (gx#stx-pair? _hd300723300773_)) + (let ((_e300726300779_ (let () (declare (not safe)) - (gx#syntax-e _hd299399299449_)))) - (let ((_lp-tl299404299462_ + (gx#syntax-e _hd300723300773_)))) + (let ((_lp-tl300728300786_ (let () (declare (not safe)) - (##cdr _e299402299455_))) - (_lp-hd299403299459_ + (##cdr _e300726300779_))) + (_lp-hd300727300783_ (let () (declare (not safe)) - (##car _e299402299455_)))) - (_loop299401299445_ - _lp-tl299404299462_ + (##car _e300726300779_)))) + (_loop300725300769_ + _lp-tl300728300786_ (let () (declare (not safe)) - (cons _lp-hd299403299459_ - _arity299405299452_))))) - (let ((_arity299406299465_ - (reverse _arity299405299452_))) - (___kont304859304860_ - _arity299406299465_ - _hd299396299433_)))))) - (_loop299401299445_ _target299398299439_ '()))))) + (cons _lp-hd300727300783_ + _arity300729300776_))))) + (let ((_arity300730300789_ + (reverse _arity300729300776_))) + (___kont306183306184_ + _arity300730300789_ + _hd300720300757_)))))) + (_loop300725300769_ _target300722300763_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? ___stx304854304855_)) - (let ((_e299383299504_ + (gx#stx-pair? ___stx306178306179_)) + (let ((_e300707300828_ (let () (declare (not safe)) - (gx#syntax-e ___stx304854304855_)))) - (let ((_tl299381299511_ - (let () (declare (not safe)) (##cdr _e299383299504_))) - (_hd299382299508_ + (gx#syntax-e ___stx306178306179_)))) + (let ((_tl300705300835_ + (let () (declare (not safe)) (##cdr _e300707300828_))) + (_hd300706300832_ (let () (declare (not safe)) - (##car _e299383299504_)))) + (##car _e300707300828_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299381299511_)) - (let ((_e299386299514_ + (gx#stx-pair? _tl300705300835_)) + (let ((_e300710300838_ (let () (declare (not safe)) - (gx#syntax-e _tl299381299511_)))) - (let ((_tl299384299521_ + (gx#syntax-e _tl300705300835_)))) + (let ((_tl300708300845_ (let () (declare (not safe)) - (##cdr _e299386299514_))) - (_hd299385299518_ + (##cdr _e300710300838_))) + (_hd300709300842_ (let () (declare (not safe)) - (##car _e299386299514_)))) + (##car _e300710300838_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl299384299521_)) - (let ((_e299389299524_ + (gx#stx-pair? _tl300708300845_)) + (let ((_e300713300848_ (let () (declare (not safe)) - (gx#syntax-e _tl299384299521_)))) - (let ((_tl299387299531_ + (gx#syntax-e _tl300708300845_)))) + (let ((_tl300711300855_ (let () (declare (not safe)) - (##cdr _e299389299524_))) - (_hd299388299528_ + (##cdr _e300713300848_))) + (_hd300712300852_ (let () (declare (not safe)) - (##car _e299389299524_)))) + (##car _e300713300848_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299387299531_)) - (___kont304857304858_ - _hd299388299528_ - _hd299385299518_) + (gx#stx-null? _tl300711300855_)) + (___kont306181306182_ + _hd300712300852_ + _hd300709300842_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _tl299384299521_)) - (let ((___splice304861304862_ + _tl300708300845_)) + (let ((___splice306185306186_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299384299521_ + _tl300708300845_ '0)))) - (let ((_tl299400299442_ + (let ((_tl300724300766_ (let () (declare (not safe)) (##vector-ref - ___splice304861304862_ + ___splice306185306186_ '1))) - (_target299398299439_ + (_target300722300763_ (let () (declare (not safe)) (##vector-ref - ___splice304861304862_ + ___splice306185306186_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _tl299400299442_)) - (___match304903304904_ - _e299383299504_ - _hd299382299508_ - _tl299381299511_ - _e299386299514_ - _hd299385299518_ - _tl299384299521_ - ___splice304861304862_ - _target299398299439_ - _tl299400299442_) + _tl300724300766_)) + (___match306227306228_ + _e300707300828_ + _hd300706300832_ + _tl300705300835_ + _e300710300838_ + _hd300709300842_ + _tl300708300845_ + ___splice306185306186_ + _target300722300763_ + _tl300724300766_) (let () (declare (not safe)) - (_g299377299412_))))) + (_g300701300736_))))) (let () (declare (not safe)) - (_g299377299412_)))))) + (_g300701300736_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299384299521_)) - (let ((___splice304861304862_ + (gx#stx-pair/null? _tl300708300845_)) + (let ((___splice306185306186_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299384299521_ + _tl300708300845_ '0)))) - (let ((_tl299400299442_ + (let ((_tl300724300766_ (let () (declare (not safe)) (##vector-ref - ___splice304861304862_ + ___splice306185306186_ '1))) - (_target299398299439_ + (_target300722300763_ (let () (declare (not safe)) (##vector-ref - ___splice304861304862_ + ___splice306185306186_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299400299442_)) - (___match304903304904_ - _e299383299504_ - _hd299382299508_ - _tl299381299511_ - _e299386299514_ - _hd299385299518_ - _tl299384299521_ - ___splice304861304862_ - _target299398299439_ - _tl299400299442_) + (gx#stx-null? _tl300724300766_)) + (___match306227306228_ + _e300707300828_ + _hd300706300832_ + _tl300705300835_ + _e300710300838_ + _hd300709300842_ + _tl300708300845_ + ___splice306185306186_ + _target300722300763_ + _tl300724300766_) (let () (declare (not safe)) - (_g299377299412_))))) + (_g300701300736_))))) (let () (declare (not safe)) - (_g299377299412_)))))) - (let () (declare (not safe)) (_g299377299412_))))) - (let () (declare (not safe)) (_g299377299412_)))))))) + (_g300701300736_)))))) + (let () (declare (not safe)) (_g300701300736_))))) + (let () (declare (not safe)) (_g300701300736_)))))))) (define |gxc[:0:]#declare-primitive*| - (lambda (_$stx299556_) - (let* ((_g299560299595_ - (lambda (_g299561299591_) + (lambda (_$stx300880_) + (let* ((_g300884300919_ + (lambda (_g300885300915_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g299561299591_)))) - (_g299559299723_ - (lambda (_g299561299599_) + _g300885300915_)))) + (_g300883301047_ + (lambda (_g300885300923_) (if (let () (declare (not safe)) - (gx#stx-pair? _g299561299599_)) - (let ((_e299566299602_ + (gx#stx-pair? _g300885300923_)) + (let ((_e300890300926_ (let () (declare (not safe)) - (gx#syntax-e _g299561299599_)))) - (let ((_hd299565299606_ + (gx#syntax-e _g300885300923_)))) + (let ((_hd300889300930_ (let () (declare (not safe)) - (##car _e299566299602_))) - (_tl299564299609_ + (##car _e300890300926_))) + (_tl300888300933_ (let () (declare (not safe)) - (##cdr _e299566299602_)))) + (##cdr _e300890300926_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299564299609_)) - (let ((_g305186_ + (gx#stx-pair/null? _tl300888300933_)) + (let ((_g306508_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299564299609_ + _tl300888300933_ '0)))) (begin - (let ((_g305187_ + (let ((_g306509_ (let () (declare (not safe)) - (if (##values? _g305186_) - (##vector-length _g305186_) + (if (##values? _g306508_) + (##vector-length _g306508_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g305187_ 2))) + (##fx= _g306509_ 2))) (error "Context expects 2 values" - _g305187_))) - (let ((_target299567299612_ + _g306509_))) + (let ((_target300891300936_ (let () (declare (not safe)) - (##vector-ref _g305186_ 0))) - (_tl299569299615_ + (##vector-ref _g306508_ 0))) + (_tl300893300939_ (let () (declare (not safe)) - (##vector-ref _g305186_ 1)))) + (##vector-ref _g306508_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299569299615_)) - (letrec ((_loop299570299618_ - (lambda (_hd299568299622_ - _arity299574299625_ - _prim299575299627_) + (gx#stx-null? _tl300893300939_)) + (letrec ((_loop300894300942_ + (lambda (_hd300892300946_ + _arity300898300949_ + _prim300899300951_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd299568299622_)) - (let ((_e299571299630_ + _hd300892300946_)) + (let ((_e300895300954_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd299568299622_)))) - (let ((_lp-hd299572299634_ - (let () (declare (not safe)) (##car _e299571299630_))) - (_lp-tl299573299637_ - (let () (declare (not safe)) (##cdr _e299571299630_)))) + (gx#syntax-e _hd300892300946_)))) + (let ((_lp-hd300896300958_ + (let () (declare (not safe)) (##car _e300895300954_))) + (_lp-tl300897300961_ + (let () (declare (not safe)) (##cdr _e300895300954_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd299572299634_)) - (let ((_e299580299640_ + (gx#stx-pair? _lp-hd300896300958_)) + (let ((_e300904300964_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd299572299634_)))) - (let ((_hd299579299644_ + (gx#syntax-e _lp-hd300896300958_)))) + (let ((_hd300903300968_ (let () (declare (not safe)) - (##car _e299580299640_))) - (_tl299578299647_ + (##car _e300904300964_))) + (_tl300902300971_ (let () (declare (not safe)) - (##cdr _e299580299640_)))) + (##cdr _e300904300964_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299578299647_)) - (let ((_g305196_ + (gx#stx-pair/null? _tl300902300971_)) + (let ((_g306518_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299578299647_ + _tl300902300971_ '0)))) (begin - (let ((_g305197_ + (let ((_g306519_ (let () (declare (not safe)) - (if (##values? _g305196_) - (##vector-length _g305196_) + (if (##values? _g306518_) + (##vector-length _g306518_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g305197_ 2))) + (##fx= _g306519_ 2))) (error "Context expects 2 values" - _g305197_))) - (let ((_target299581299650_ + _g306519_))) + (let ((_target300905300974_ (let () (declare (not safe)) - (##vector-ref _g305196_ 0))) - (_tl299583299653_ + (##vector-ref _g306518_ 0))) + (_tl300907300977_ (let () (declare (not safe)) - (##vector-ref _g305196_ 1)))) + (##vector-ref _g306518_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299583299653_)) - (letrec ((_loop299584299656_ - (lambda (_hd299582299660_ - _arity299588299663_) + (gx#stx-null? _tl300907300977_)) + (letrec ((_loop300908300980_ + (lambda (_hd300906300984_ + _arity300912300987_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd299582299660_)) - (let ((_e299585299666_ + _hd300906300984_)) + (let ((_e300909300990_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd299582299660_)))) - (let ((_lp-hd299586299670_ - (let () (declare (not safe)) (##car _e299585299666_))) - (_lp-tl299587299673_ + (gx#syntax-e _hd300906300984_)))) + (let ((_lp-hd300910300994_ + (let () (declare (not safe)) (##car _e300909300990_))) + (_lp-tl300911300997_ (let () (declare (not safe)) - (##cdr _e299585299666_)))) - (_loop299584299656_ - _lp-tl299587299673_ + (##cdr _e300909300990_)))) + (_loop300908300980_ + _lp-tl300911300997_ (let () (declare (not safe)) - (cons _lp-hd299586299670_ _arity299588299663_))))) - (let ((_arity299589299676_ (reverse _arity299588299663_))) - (_loop299570299618_ - _lp-tl299573299637_ + (cons _lp-hd300910300994_ _arity300912300987_))))) + (let ((_arity300913301000_ (reverse _arity300912300987_))) + (_loop300894300942_ + _lp-tl300897300961_ (let () (declare (not safe)) - (cons _arity299589299676_ _arity299574299625_)) + (cons _arity300913301000_ _arity300898300949_)) (let () (declare (not safe)) - (cons _hd299579299644_ _prim299575299627_)))))))) + (cons _hd300903300968_ _prim300899300951_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop299584299656_ - _target299581299650_ + (_loop300908300980_ + _target300905300974_ '())) - (_g299560299595_ _g299561299599_))))) - (_g299560299595_ _g299561299599_)))) - (_g299560299595_ _g299561299599_)))) - (let ((_arity299576299680_ (reverse _arity299574299625_)) - (_prim299577299683_ (reverse _prim299575299627_))) - ((lambda (_L299686_ _L299688_) - (let ((__tmp305195 + (_g300884300919_ _g300885300923_))))) + (_g300884300919_ _g300885300923_)))) + (_g300884300919_ _g300885300923_)))) + (let ((_arity300900301004_ (reverse _arity300898300949_)) + (_prim300901301007_ (reverse _prim300899300951_))) + ((lambda (_L301010_ _L301012_) + (let ((__tmp306517 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp305188 + (__tmp306510 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L299686_ - _L299688_)) - (let ((__tmp305189 - (lambda (_g299703299709_ - _g299704299712_ - _g299705299714_) - (let ((__tmp305190 - (let ((__tmp305194 + _L301010_ + _L301012_)) + (let ((__tmp306511 + (lambda (_g301027301033_ + _g301028301036_ + _g301029301038_) + (let ((__tmp306512 + (let ((__tmp306516 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive))) - (__tmp305191 - (let ((__tmp305192 - (let ((__tmp305193 + (__tmp306513 + (let ((__tmp306514 + (let ((__tmp306515 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g299706299717_ _g299707299720_) + (lambda (_g301030301041_ _g301031301044_) (let () (declare (not safe)) - (cons _g299706299717_ _g299707299720_))))) + (cons _g301030301041_ _g301031301044_))))) (declare (not safe)) - (foldr1 __tmp305193 '() _g299703299709_)))) + (foldr1 __tmp306515 '() _g301027301033_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g299704299712_ - __tmp305192)))) + (cons _g301028301036_ + __tmp306514)))) (declare (not safe)) - (cons __tmp305194 __tmp305191)))) + (cons __tmp306516 __tmp306513)))) (declare (not safe)) - (cons __tmp305190 _g299705299714_))))) + (cons __tmp306512 _g301029301038_))))) (declare (not safe)) - (foldr2 __tmp305189 '() _L299686_ _L299688_))))) + (foldr2 __tmp306511 '() _L301010_ _L301012_))))) (declare (not safe)) - (cons __tmp305195 __tmp305188))) - _arity299576299680_ - _prim299577299683_)))))) + (cons __tmp306517 __tmp306510))) + _arity300900301004_ + _prim300901301007_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop299570299618_ - _target299567299612_ + (_loop300894300942_ + _target300891300936_ '() '())) - (_g299560299595_ _g299561299599_))))) - (_g299560299595_ _g299561299599_)))) - (_g299560299595_ _g299561299599_))))) - (_g299559299723_ _$stx299556_)))) + (_g300884300919_ _g300885300923_))))) + (_g300884300919_ _g300885300923_)))) + (_g300884300919_ _g300885300923_))))) + (_g300883301047_ _$stx300880_)))) (define |gxc[:0:]#declare-primitive/unchecked*| - (lambda (_$stx299729_) - (let* ((_g299733299768_ - (lambda (_g299734299764_) + (lambda (_$stx301053_) + (let* ((_g301057301092_ + (lambda (_g301058301088_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g299734299764_)))) - (_g299732299896_ - (lambda (_g299734299772_) + _g301058301088_)))) + (_g301056301220_ + (lambda (_g301058301096_) (if (let () (declare (not safe)) - (gx#stx-pair? _g299734299772_)) - (let ((_e299739299775_ + (gx#stx-pair? _g301058301096_)) + (let ((_e301063301099_ (let () (declare (not safe)) - (gx#syntax-e _g299734299772_)))) - (let ((_hd299738299779_ + (gx#syntax-e _g301058301096_)))) + (let ((_hd301062301103_ (let () (declare (not safe)) - (##car _e299739299775_))) - (_tl299737299782_ + (##car _e301063301099_))) + (_tl301061301106_ (let () (declare (not safe)) - (##cdr _e299739299775_)))) + (##cdr _e301063301099_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299737299782_)) - (let ((_g305198_ + (gx#stx-pair/null? _tl301061301106_)) + (let ((_g306520_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299737299782_ + _tl301061301106_ '0)))) (begin - (let ((_g305199_ + (let ((_g306521_ (let () (declare (not safe)) - (if (##values? _g305198_) - (##vector-length _g305198_) + (if (##values? _g306520_) + (##vector-length _g306520_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g305199_ 2))) + (##fx= _g306521_ 2))) (error "Context expects 2 values" - _g305199_))) - (let ((_target299740299785_ + _g306521_))) + (let ((_target301064301109_ (let () (declare (not safe)) - (##vector-ref _g305198_ 0))) - (_tl299742299788_ + (##vector-ref _g306520_ 0))) + (_tl301066301112_ (let () (declare (not safe)) - (##vector-ref _g305198_ 1)))) + (##vector-ref _g306520_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299742299788_)) - (letrec ((_loop299743299791_ - (lambda (_hd299741299795_ - _arity299747299798_ - _prim299748299800_) + (gx#stx-null? _tl301066301112_)) + (letrec ((_loop301067301115_ + (lambda (_hd301065301119_ + _arity301071301122_ + _prim301072301124_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd299741299795_)) - (let ((_e299744299803_ + _hd301065301119_)) + (let ((_e301068301127_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _hd299741299795_)))) - (let ((_lp-hd299745299807_ - (let () (declare (not safe)) (##car _e299744299803_))) - (_lp-tl299746299810_ - (let () (declare (not safe)) (##cdr _e299744299803_)))) + (gx#syntax-e _hd301065301119_)))) + (let ((_lp-hd301069301131_ + (let () (declare (not safe)) (##car _e301068301127_))) + (_lp-tl301070301134_ + (let () (declare (not safe)) (##cdr _e301068301127_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _lp-hd299745299807_)) - (let ((_e299753299813_ + (gx#stx-pair? _lp-hd301069301131_)) + (let ((_e301077301137_ (let () (declare (not safe)) - (gx#syntax-e _lp-hd299745299807_)))) - (let ((_hd299752299817_ + (gx#syntax-e _lp-hd301069301131_)))) + (let ((_hd301076301141_ (let () (declare (not safe)) - (##car _e299753299813_))) - (_tl299751299820_ + (##car _e301077301137_))) + (_tl301075301144_ (let () (declare (not safe)) - (##cdr _e299753299813_)))) + (##cdr _e301077301137_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _tl299751299820_)) - (let ((_g305208_ + (gx#stx-pair/null? _tl301075301144_)) + (let ((_g306530_ (let () (declare (not safe)) (gx#syntax-split-splice - _tl299751299820_ + _tl301075301144_ '0)))) (begin - (let ((_g305209_ + (let ((_g306531_ (let () (declare (not safe)) - (if (##values? _g305208_) - (##vector-length _g305208_) + (if (##values? _g306530_) + (##vector-length _g306530_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g305209_ 2))) + (##fx= _g306531_ 2))) (error "Context expects 2 values" - _g305209_))) - (let ((_target299754299823_ + _g306531_))) + (let ((_target301078301147_ (let () (declare (not safe)) - (##vector-ref _g305208_ 0))) - (_tl299756299826_ + (##vector-ref _g306530_ 0))) + (_tl301080301150_ (let () (declare (not safe)) - (##vector-ref _g305208_ 1)))) + (##vector-ref _g306530_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl299756299826_)) - (letrec ((_loop299757299829_ - (lambda (_hd299755299833_ - _arity299761299836_) + (gx#stx-null? _tl301080301150_)) + (letrec ((_loop301081301153_ + (lambda (_hd301079301157_ + _arity301085301160_) (if (let () (declare (not safe)) (gx#stx-pair? - _hd299755299833_)) - (let ((_e299758299839_ + _hd301079301157_)) + (let ((_e301082301163_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _hd299755299833_)))) - (let ((_lp-hd299759299843_ - (let () (declare (not safe)) (##car _e299758299839_))) - (_lp-tl299760299846_ + (gx#syntax-e _hd301079301157_)))) + (let ((_lp-hd301083301167_ + (let () (declare (not safe)) (##car _e301082301163_))) + (_lp-tl301084301170_ (let () (declare (not safe)) - (##cdr _e299758299839_)))) - (_loop299757299829_ - _lp-tl299760299846_ + (##cdr _e301082301163_)))) + (_loop301081301153_ + _lp-tl301084301170_ (let () (declare (not safe)) - (cons _lp-hd299759299843_ _arity299761299836_))))) - (let ((_arity299762299849_ (reverse _arity299761299836_))) - (_loop299743299791_ - _lp-tl299746299810_ + (cons _lp-hd301083301167_ _arity301085301160_))))) + (let ((_arity301086301173_ (reverse _arity301085301160_))) + (_loop301067301115_ + _lp-tl301070301134_ (let () (declare (not safe)) - (cons _arity299762299849_ _arity299747299798_)) + (cons _arity301086301173_ _arity301071301122_)) (let () (declare (not safe)) - (cons _hd299752299817_ _prim299748299800_)))))))) + (cons _hd301076301141_ _prim301072301124_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop299757299829_ - _target299754299823_ + (_loop301081301153_ + _target301078301147_ '())) - (_g299733299768_ _g299734299772_))))) - (_g299733299768_ _g299734299772_)))) - (_g299733299768_ _g299734299772_)))) - (let ((_arity299749299853_ (reverse _arity299747299798_)) - (_prim299750299856_ (reverse _prim299748299800_))) - ((lambda (_L299859_ _L299861_) - (let ((__tmp305207 + (_g301057301092_ _g301058301096_))))) + (_g301057301092_ _g301058301096_)))) + (_g301057301092_ _g301058301096_)))) + (let ((_arity301073301177_ (reverse _arity301071301122_)) + (_prim301074301180_ (reverse _prim301072301124_))) + ((lambda (_L301183_ _L301185_) + (let ((__tmp306529 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin))) - (__tmp305200 + (__tmp306522 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _L299859_ - _L299861_)) - (let ((__tmp305201 - (lambda (_g299876299882_ - _g299877299885_ - _g299878299887_) - (let ((__tmp305202 - (let ((__tmp305206 + _L301183_ + _L301185_)) + (let ((__tmp306523 + (lambda (_g301200301206_ + _g301201301209_ + _g301202301211_) + (let ((__tmp306524 + (let ((__tmp306528 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive/unchecked))) - (__tmp305203 - (let ((__tmp305204 - (let ((__tmp305205 + (__tmp306525 + (let ((__tmp306526 + (let ((__tmp306527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g299879299890_ _g299880299893_) + (lambda (_g301203301214_ _g301204301217_) (let () (declare (not safe)) - (cons _g299879299890_ _g299880299893_))))) + (cons _g301203301214_ _g301204301217_))))) (declare (not safe)) - (foldr1 __tmp305205 '() _g299876299882_)))) + (foldr1 __tmp306527 '() _g301200301206_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _g299877299885_ - __tmp305204)))) + (cons _g301201301209_ + __tmp306526)))) (declare (not safe)) - (cons __tmp305206 __tmp305203)))) + (cons __tmp306528 __tmp306525)))) (declare (not safe)) - (cons __tmp305202 _g299878299887_))))) + (cons __tmp306524 _g301202301211_))))) (declare (not safe)) - (foldr2 __tmp305201 '() _L299859_ _L299861_))))) + (foldr2 __tmp306523 '() _L301183_ _L301185_))))) (declare (not safe)) - (cons __tmp305207 __tmp305200))) - _arity299749299853_ - _prim299750299856_)))))) + (cons __tmp306529 __tmp306522))) + _arity301073301177_ + _prim301074301180_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop299743299791_ - _target299740299785_ + (_loop301067301115_ + _target301064301109_ '() '())) - (_g299733299768_ _g299734299772_))))) - (_g299733299768_ _g299734299772_)))) - (_g299733299768_ _g299734299772_))))) - (_g299732299896_ _$stx299729_))))) + (_g301057301092_ _g301058301096_))))) + (_g301057301092_ _g301058301096_)))) + (_g301057301092_ _g301058301096_))))) + (_g301056301220_ _$stx301053_))))) diff --git a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm index 4b24a3efa..827f907c8 100644 --- a/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm +++ b/src/bootstrap/gerbil/core$_MOP_$_MOP_2___0.scm @@ -1,19 +1,20 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$$::timestamp 1707773923) + (define gerbil/core$$::timestamp 1708102798) (begin (define gerbil/core$$#class-type-info::t - (let ((__tmp47370 (list))) + (let ((__tmp47547 (list))) (declare (not safe)) (make-class-type 'gerbil.core#class-type-info::t 'class-type-info - __tmp47370 + __tmp47547 '(id name super slots struct? final? + metaclass constructor-method type-descriptor constructor @@ -29,10 +30,10 @@ (declare (not safe)) (make-class-predicate gerbil/core$$#class-type-info::t))) (define gerbil/core$$#make-class-type-info - (lambda _$args19251_ + (lambda _$args19350_ (apply make-instance gerbil/core$$#class-type-info::t - _$args19251_))) + _$args19350_))) (define gerbil/core$$#!class-type-id (let () (declare (not safe)) @@ -69,6 +70,12 @@ (make-class-slot-accessor gerbil/core$$#class-type-info::t 'final?))) + (define gerbil/core$$#!class-type-metaclass + (let () + (declare (not safe)) + (make-class-slot-accessor + gerbil/core$$#class-type-info::t + 'metaclass))) (define gerbil/core$$#!class-type-constructor-method (let () (declare (not safe)) @@ -153,6 +160,12 @@ (make-class-slot-mutator gerbil/core$$#class-type-info::t 'final?))) + (define gerbil/core$$#!class-type-metaclass-set! + (let () + (declare (not safe)) + (make-class-slot-mutator + gerbil/core$$#class-type-info::t + 'metaclass))) (define gerbil/core$$#!class-type-constructor-method-set! (let () (declare (not safe)) @@ -237,6 +250,12 @@ (make-class-slot-unchecked-accessor gerbil/core$$#class-type-info::t 'final?))) + (define gerbil/core$$#&!class-type-metaclass + (let () + (declare (not safe)) + (make-class-slot-unchecked-accessor + gerbil/core$$#class-type-info::t + 'metaclass))) (define gerbil/core$$#&!class-type-constructor-method (let () (declare (not safe)) @@ -321,6 +340,12 @@ (make-class-slot-unchecked-mutator gerbil/core$$#class-type-info::t 'final?))) + (define gerbil/core$$#&!class-type-metaclass-set! + (let () + (declare (not safe)) + (make-class-slot-unchecked-mutator + gerbil/core$$#class-type-info::t + 'metaclass))) (define gerbil/core$$#&!class-type-constructor-method-set! (let () (declare (not safe)) @@ -370,128 +395,128 @@ gerbil/core$$#class-type-info::t 'unchecked-mutators))) (define gerbil/core$$#class-type-info::apply-macro-expander - (lambda (_self19163_ _stx19164_) - (let* ((_g1916619185_ - (lambda (_g1916719182_) + (lambda (_self19262_ _stx19263_) + (let* ((_g1926519284_ + (lambda (_g1926619281_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1916719182_))) - (_g1916519248_ - (lambda (_g1916719188_) - (if (gx#stx-pair? _g1916719188_) - (let ((_e1917119190_ (gx#syntax-e _g1916719188_))) - (let ((_hd1917019193_ + _g1926619281_))) + (_g1926419347_ + (lambda (_g1926619287_) + (if (gx#stx-pair? _g1926619287_) + (let ((_e1927019289_ (gx#syntax-e _g1926619287_))) + (let ((_hd1926919292_ (let () (declare (not safe)) - (##car _e1917119190_))) - (_tl1916919195_ + (##car _e1927019289_))) + (_tl1926819294_ (let () (declare (not safe)) - (##cdr _e1917119190_)))) - (if (gx#stx-pair/null? _tl1916919195_) - (let ((_g47371_ + (##cdr _e1927019289_)))) + (if (gx#stx-pair/null? _tl1926819294_) + (let ((_g47548_ (gx#syntax-split-splice - _tl1916919195_ + _tl1926819294_ '0))) (begin - (let ((_g47372_ + (let ((_g47549_ (let () (declare (not safe)) - (if (##values? _g47371_) - (##vector-length _g47371_) + (if (##values? _g47548_) + (##vector-length _g47548_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47372_ 2))) + (##fx= _g47549_ 2))) (error "Context expects 2 values" - _g47372_))) - (let ((_target1917219198_ + _g47549_))) + (let ((_target1927119297_ (let () (declare (not safe)) - (##vector-ref _g47371_ 0))) - (_tl1917419200_ + (##vector-ref _g47548_ 0))) + (_tl1927319299_ (let () (declare (not safe)) - (##vector-ref _g47371_ 1)))) - (if (gx#stx-null? _tl1917419200_) - (letrec ((_loop1917519203_ - (lambda (_hd1917319206_ - _arg1917919208_) + (##vector-ref _g47548_ 1)))) + (if (gx#stx-null? _tl1927319299_) + (letrec ((_loop1927419302_ + (lambda (_hd1927219305_ + _arg1927819307_) (if (gx#stx-pair? - _hd1917319206_) - (let ((_e1917619211_ + _hd1927219305_) + (let ((_e1927519310_ (gx#syntax-e - _hd1917319206_))) - (let ((_lp-hd1917719214_ + _hd1927219305_))) + (let ((_lp-hd1927619313_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e1917619211_))) - (_lp-tl1917819216_ - (let () (declare (not safe)) (##cdr _e1917619211_)))) - (let ((__tmp47375 + (let () (declare (not safe)) (##car _e1927519310_))) + (_lp-tl1927719315_ + (let () (declare (not safe)) (##cdr _e1927519310_)))) + (let ((__tmp47552 (let () (declare (not safe)) - (cons _lp-hd1917719214_ _arg1917919208_)))) + (cons _lp-hd1927619313_ _arg1927819307_)))) (declare (not safe)) - (_loop1917519203_ _lp-tl1917819216_ __tmp47375)))) - (let ((_arg1918019219_ (reverse _arg1917919208_))) - ((lambda (_L19222_) - (let ((_$e19236_ - (let ((__obj47345 _self19163_)) + (_loop1927419302_ _lp-tl1927719315_ __tmp47552)))) + (let ((_arg1927919318_ (reverse _arg1927819307_))) + ((lambda (_L19321_) + (let ((_$e19335_ + (let ((__obj47522 _self19262_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47345 + __obj47522 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47345 - '9 + __obj47522 + '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47345 + __obj47522 'constructor))))) - (if _$e19236_ - ((lambda (_make19239_) - (let ((__tmp47373 - (let ((__tmp47374 - (lambda (_g1924019243_ - _g1924119245_) + (if _$e19335_ + ((lambda (_make19338_) + (let ((__tmp47550 + (let ((__tmp47551 + (lambda (_g1933919342_ + _g1934019344_) (let () (declare (not safe)) - (cons _g1924019243_ - _g1924119245_))))) + (cons _g1933919342_ + _g1934019344_))))) (declare (not safe)) - (foldr1 __tmp47374 '() _L19222_)))) + (foldr1 __tmp47551 '() _L19321_)))) (declare (not safe)) - (cons _make19239_ __tmp47373))) - _$e19236_) + (cons _make19338_ __tmp47550))) + _$e19335_) (gx#raise-syntax-error '#f '"no constructor defined for class" - _stx19164_ - _self19163_)))) - _arg1918019219_)))))) + _stx19263_ + _self19262_)))) + _arg1927919318_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1917519203_ - _target1917219198_ + (_loop1927419302_ + _target1927119297_ '()))) (let () (declare (not safe)) - (_g1916619185_ _g1916719188_)))))) + (_g1926519284_ _g1926619287_)))))) (let () (declare (not safe)) - (_g1916619185_ _g1916719188_))))) + (_g1926519284_ _g1926619287_))))) (let () (declare (not safe)) - (_g1916619185_ _g1916719188_)))))) + (_g1926519284_ _g1926619287_)))))) (declare (not safe)) - (_g1916519248_ _stx19164_)))) + (_g1926419347_ _stx19263_)))) (let () (declare (not safe)) (bind-method! @@ -499,46 +524,46 @@ 'apply-macro-expander gerbil/core$$#class-type-info::apply-macro-expander)) (define gerbil/core$$#syntax-local-class-type-info?__% - (lambda (_stx19144_ _is?19145_) - (if (gx#identifier? _stx19144_) - (let ((_e1914619148_ (gx#syntax-local-value _stx19144_ false))) - (if _e1914619148_ - (let ((_e19151_ _e1914619148_)) + (lambda (_stx19243_ _is?19244_) + (if (gx#identifier? _stx19243_) + (let ((_e1924519247_ (gx#syntax-local-value _stx19243_ false))) + (if _e1924519247_ + (let ((_e19250_ _e1924519247_)) (if (let () (declare (not safe)) (class-instance? gerbil/core$$#class-type-info::t - _e19151_)) - (_is?19145_ _e19151_) + _e19250_)) + (_is?19244_ _e19250_) '#f)) '#f)) '#f))) (define gerbil/core$$#syntax-local-class-type-info?__0 - (lambda (_stx19156_) - (let ((_is?19158_ true)) + (lambda (_stx19255_) + (let ((_is?19257_ true)) (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% - _stx19156_ - _is?19158_)))) + _stx19255_ + _is?19257_)))) (define gerbil/core$$#syntax-local-class-type-info? - (lambda _g47377_ - (let ((_g47376_ (let () (declare (not safe)) (##length _g47377_)))) - (cond ((let () (declare (not safe)) (##fx= _g47376_ 1)) - (apply (lambda (_stx19156_) + (lambda _g47554_ + (let ((_g47553_ (let () (declare (not safe)) (##length _g47554_)))) + (cond ((let () (declare (not safe)) (##fx= _g47553_ 1)) + (apply (lambda (_stx19255_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _stx19156_))) - _g47377_)) - ((let () (declare (not safe)) (##fx= _g47376_ 2)) - (apply (lambda (_stx19160_ _is?19161_) + _stx19255_))) + _g47554_)) + ((let () (declare (not safe)) (##fx= _g47553_ 2)) + (apply (lambda (_stx19259_ _is?19260_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% - _stx19160_ - _is?19161_))) - _g47377_)) + _stx19259_ + _is?19260_))) + _g47554_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core$$#syntax-local-class-type-info? - _g47377_)))))))) + _g47554_)))))))) diff --git a/src/bootstrap/gerbil/core$_macro-object___0.scm b/src/bootstrap/gerbil/core$_macro-object___0.scm index df9e2fe95..a2f5319d4 100644 --- a/src/bootstrap/gerbil/core$_macro-object___0.scm +++ b/src/bootstrap/gerbil/core$_macro-object___0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core$::timestamp 1707773923) + (define gerbil/core$::timestamp 1708102798) (begin (define gerbil/core$#macro-object::t - (let ((__tmp47378 (list))) + (let ((__tmp47555 (list))) (declare (not safe)) (make-class-type 'gerbil.core#macro-object::t 'macro-object - __tmp47378 + __tmp47555 '(macro) '() '#f))) @@ -17,10 +17,10 @@ (declare (not safe)) (make-class-predicate gerbil/core$#macro-object::t))) (define gerbil/core$#make-macro-object - (lambda _$args23240_ + (lambda _$args23417_ (apply make-instance gerbil/core$#macro-object::t - _$args23240_))) + _$args23417_))) (define gerbil/core$#macro-object-macro (let () (declare (not safe)) @@ -46,44 +46,44 @@ gerbil/core$#macro-object::t 'macro))) (define gerbil/core$#macro-object::apply-macro-expander - (lambda (_self23237_ _stx23238_) + (lambda (_self23414_ _stx23415_) (gx#core-apply-expander - (let ((__obj47351 _self23237_)) + (let ((__obj47528 _self23414_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47351 + __obj47528 'gerbil.core#macro-object::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47351 + __obj47528 '1 gerbil/core$#macro-object::t '#f)) (class-slot-ref gerbil/core$#macro-object::t - __obj47351 + __obj47528 'macro))) - _stx23238_))) + _stx23415_))) (define gerbil/core$#macro-object::apply-macro-expander::specialize - (lambda (__t41690) - (let ((__macro41691 - (let ((__tmp41692 + (lambda (__t41867) + (let ((__macro41868 + (let ((__tmp41869 (let () (declare (not safe)) - (class-slot-offset __t41690 'macro)))) - (if __tmp41692 __tmp41692 (error '"Unknown slot" 'macro))))) - (lambda (_self23237_ _stx23238_) + (class-slot-offset __t41867 'macro)))) + (if __tmp41869 __tmp41869 (error '"Unknown slot" 'macro))))) + (lambda (_self23414_ _stx23415_) (gx#core-apply-expander (let () (declare (not safe)) (##unchecked-structure-ref - _self23237_ - __macro41691 - __t41690 + _self23414_ + __macro41868 + __t41867 '#f)) - _stx23238_))))) + _stx23415_))))) (bind-specializer! gerbil/core$#macro-object::apply-macro-expander gerbil/core$#macro-object::apply-macro-expander::specialize) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index 61de8b125..e396b6e5a 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -425,6 +425,10 @@ namespace: gerbil/core (c4-linearize c4-linearize) (class-type? class-type?) (class-type-id class-type-id) + (class-type-name class-type-name) + (class-type-super class-type-super) + (class-type-flags class-type-flags) + (class-type-fields class-type-fields) (class-type-precedence-list class-type-precedence-list) (class-type-slot-vector class-type-slot-vector) (class-type-slot-table class-type-slot-table) @@ -432,10 +436,11 @@ namespace: gerbil/core (class-type-constructor class-type-constructor) (class-type-methods class-type-methods) (class-type-slot-list class-type-slot-list) - (class-type-fields class-type-fields) + (class-type-field-count class-type-field-count) (class-type-struct? class-type-struct?) (class-type-final? class-type-final?) (class-type-sealed? class-type-sealed?) + (class-type-metaclass? class-type-metaclass?) (make-struct-slot-accessor make-struct-slot-accessor) (make-struct-slot-mutator make-struct-slot-mutator) (make-struct-slot-unchecked-accessor @@ -1128,6 +1133,9 @@ namespace: gerbil/core (%#define-runtime !class-type-final? gerbil/core$$#!class-type-final?) + (%#define-runtime + !class-type-metaclass + gerbil/core$$#!class-type-metaclass) (%#define-runtime !class-type-constructor-method gerbil/core$$#!class-type-constructor-method) @@ -1170,6 +1178,9 @@ namespace: gerbil/core (%#define-runtime !class-type-final?-set! gerbil/core$$#!class-type-final?-set!) + (%#define-runtime + !class-type-metaclass-set! + gerbil/core$$#!class-type-metaclass-set!) (%#define-runtime !class-type-constructor-method-set! gerbil/core$$#!class-type-constructor-method-set!) @@ -1212,6 +1223,9 @@ namespace: gerbil/core (%#define-runtime &!class-type-final? gerbil/core$$#&!class-type-final?) + (%#define-runtime + &!class-type-metaclass + gerbil/core$$#&!class-type-metaclass) (%#define-runtime &!class-type-constructor-method gerbil/core$$#&!class-type-constructor-method) @@ -1254,6 +1268,9 @@ namespace: gerbil/core (%#define-runtime &!class-type-final?-set! gerbil/core$$#&!class-type-final?-set!) + (%#define-runtime + &!class-type-metaclass-set! + gerbil/core$$#&!class-type-metaclass-set!) (%#define-runtime &!class-type-constructor-method-set! gerbil/core$$#&!class-type-constructor-method-set!) diff --git a/src/bootstrap/gerbil/core.ssxi.ss b/src/bootstrap/gerbil/core.ssxi.ss index 4169a4adc..dae1ce85f 100644 --- a/src/bootstrap/gerbil/core.ssxi.ss +++ b/src/bootstrap/gerbil/core.ssxi.ss @@ -17,6 +17,7 @@ package: gerbil slots struct? final? + metaclass constructor-method type-descriptor constructor @@ -30,6 +31,7 @@ package: gerbil slots struct? final? + metaclass constructor-method type-descriptor constructor @@ -41,6 +43,7 @@ package: gerbil #f #f #f + #f #f)) (declare-type gerbil/core$$#class-type-info? @@ -66,6 +69,9 @@ package: gerbil (declare-type gerbil/core$$#!class-type-final? (@accessor gerbil/core$$#class-type-info::t final? #t)) + (declare-type + gerbil/core$$#!class-type-metaclass + (@accessor gerbil/core$$#class-type-info::t metaclass #t)) (declare-type gerbil/core$$#!class-type-constructor-method (@accessor @@ -117,6 +123,9 @@ package: gerbil (declare-type gerbil/core$$#!class-type-final?-set! (@mutator gerbil/core$$#class-type-info::t final? #t)) + (declare-type + gerbil/core$$#!class-type-metaclass-set! + (@mutator gerbil/core$$#class-type-info::t metaclass #t)) (declare-type gerbil/core$$#!class-type-constructor-method-set! (@mutator @@ -168,6 +177,9 @@ package: gerbil (declare-type gerbil/core$$#&!class-type-final? (@accessor gerbil/core$$#class-type-info::t final? #f)) + (declare-type + gerbil/core$$#&!class-type-metaclass + (@accessor gerbil/core$$#class-type-info::t metaclass #f)) (declare-type gerbil/core$$#&!class-type-constructor-method (@accessor @@ -219,6 +231,9 @@ package: gerbil (declare-type gerbil/core$$#&!class-type-final?-set! (@mutator gerbil/core$$#class-type-info::t final? #f)) + (declare-type + gerbil/core$$#&!class-type-metaclass-set! + (@mutator gerbil/core$$#class-type-info::t metaclass #f)) (declare-type gerbil/core$$#&!class-type-constructor-method-set! (@mutator @@ -280,6 +295,7 @@ package: gerbil #f #f #f + #f ((apply-macro-expander . gerbil/core$#macro-object::apply-macro-expander)))) @@ -317,6 +333,7 @@ package: gerbil #f #f #f + #f #f)) (declare-type |gerbil/core$[1]#match-macro?| @@ -361,6 +378,7 @@ package: gerbil #f #f #f + #f #f)) (declare-type |gerbil/core$[1]#setq-macro?| @@ -390,6 +408,7 @@ package: gerbil #f #f #f + #f #f)) (declare-type |gerbil/core$[1]#setf-macro?| diff --git a/src/bootstrap/gerbil/core__10.scm b/src/bootstrap/gerbil/core__10.scm index 42bb13fdd..0284ad0e7 100644 --- a/src/bootstrap/gerbil/core__10.scm +++ b/src/bootstrap/gerbil/core__10.scm @@ -1,116 +1,116 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g49887_| + (define |gerbil/core$[1]#_g50098_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49888_| + (define |gerbil/core$[1]#_g50099_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49945_| + (define |gerbil/core$[1]#_g50156_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49946_| + (define |gerbil/core$[1]#_g50157_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49947_| + (define |gerbil/core$[1]#_g50158_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49949_| + (define |gerbil/core$[1]#_g50160_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49950_| + (define |gerbil/core$[1]#_g50161_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49951_| + (define |gerbil/core$[1]#_g50162_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49952_| + (define |gerbil/core$[1]#_g50163_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49953_| + (define |gerbil/core$[1]#_g50164_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49954_| + (define |gerbil/core$[1]#_g50165_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49955_| + (define |gerbil/core$[1]#_g50166_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49956_| + (define |gerbil/core$[1]#_g50167_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49957_| + (define |gerbil/core$[1]#_g50168_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49958_| + (define |gerbil/core$[1]#_g50169_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50351_| + (define |gerbil/core$[1]#_g50562_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50435_| + (define |gerbil/core$[1]#_g50646_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50455_| + (define |gerbil/core$[1]#_g50666_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50456_| + (define |gerbil/core$[1]#_g50667_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50585_| + (define |gerbil/core$[1]#_g50796_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50586_| + (define |gerbil/core$[1]#_g50797_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50587_| + (define |gerbil/core$[1]#_g50798_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50588_| + (define |gerbil/core$[1]#_g50799_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g50589_| + (define |gerbil/core$[1]#_g50800_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) (begin (define |gerbil/core$[1]#match-macro::t| - (let ((__tmp49871 (list gerbil/core$#macro-object::t))) + (let ((__tmp50082 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#match-macro::t 'match-macro - __tmp49871 + __tmp50082 '() '() '#f))) @@ -119,10 +119,10 @@ (declare (not safe)) (make-class-predicate |gerbil/core$[1]#match-macro::t|))) (define |gerbil/core$[1]#make-match-macro| - (lambda _$args30464_ + (lambda _$args30641_ (apply make-instance |gerbil/core$[1]#match-macro::t| - _$args30464_))) + _$args30641_))) (define |gerbil/core$[1]#match-macro-macro| (let () (declare (not safe)) @@ -148,10515 +148,10515 @@ |gerbil/core$[1]#match-macro::t| 'macro))) (define |gerbil/core$[1]#syntax-local-match-macro?| - (lambda (_stx30461_) - (if (gx#identifier? _stx30461_) - (let ((__tmp49872 (gx#syntax-local-value _stx30461_ false))) + (lambda (_stx30638_) + (if (gx#identifier? _stx30638_) + (let ((__tmp50083 (gx#syntax-local-value _stx30638_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#match-macro::t| - __tmp49872)) + __tmp50083)) '#f))) (define |gerbil/core$[1]#parse-match-pattern__%| - (lambda (_stx28767_ _match-stx28769_) - (letrec ((_parse128771_ - (lambda (_hd29124_) - (let* ((___stx4470044701_ _hd29124_) - (_g2915029292_ + (lambda (_stx28944_ _match-stx28946_) + (letrec ((_parse128948_ + (lambda (_hd29301_) + (let* ((___stx4487744878_ _hd29301_) + (_g2932729469_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4470044701_)))) - (let ((___kont4470344704_ - (lambda (_L30224_ _L30226_) - (let* ((___stx4462044621_ _L30224_) - (_g3024330276_ + ___stx4487744878_)))) + (let ((___kont4488044881_ + (lambda (_L30401_ _L30403_) + (let* ((___stx4479744798_ _L30401_) + (_g3042030453_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4462044621_)))) - (let ((___kont4462344624_ + ___stx4479744798_)))) + (let ((___kont4480044801_ (lambda () - (let ((__tmp49873 + (let ((__tmp50084 (let () (declare (not safe)) - (cons _L30226_ '())))) + (cons _L30403_ '())))) (declare (not safe)) - (cons '?: __tmp49873)))) - (___kont4462544626_ - (lambda (_L30417_) - (let ((__tmp49874 - (let ((__tmp49875 - (let ((__tmp49876 + (cons '?: __tmp50084)))) + (___kont4480244803_ + (lambda (_L30594_) + (let ((__tmp50085 + (let ((__tmp50086 + (let ((__tmp50087 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_parse128771_ _L30417_)))) + (_parse128948_ _L30594_)))) (declare (not safe)) - (cons __tmp49876 '())))) + (cons __tmp50087 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L30226_ - __tmp49875)))) + (cons _L30403_ + __tmp50086)))) (declare (not safe)) - (cons '?: __tmp49874)))) - (___kont4462744628_ - (lambda (_L30387_) - (let ((__tmp49877 - (let ((__tmp49878 - (let ((__tmp49879 - (let ((__tmp49880 + (cons '?: __tmp50085)))) + (___kont4480444805_ + (lambda (_L30564_) + (let ((__tmp50088 + (let ((__tmp50089 + (let ((__tmp50090 + (let ((__tmp50091 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_parse128771_ _L30387_)))) + (_parse128948_ _L30564_)))) (declare (not safe)) - (cons __tmp49880 '())))) + (cons __tmp50091 '())))) (declare (not safe)) - (cons '=>: __tmp49879)))) + (cons '=>: __tmp50090)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L30226_ - __tmp49878)))) + (cons _L30403_ + __tmp50089)))) (declare (not safe)) - (cons '?: __tmp49877)))) - (___kont4462944630_ - (lambda (_L30338_ _L30340_) - (let ((__tmp49881 - (let ((__tmp49882 - (let ((__tmp49883 - (let ((__tmp49884 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49885 - (let ((__tmp49886 + (cons '?: __tmp50088)))) + (___kont4480644807_ + (lambda (_L30515_ _L30517_) + (let ((__tmp50092 + (let ((__tmp50093 + (let ((__tmp50094 + (let ((__tmp50095 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50096 + (let ((__tmp50097 (let () (declare (not safe)) - (_parse128771_ _L30338_)))) + (_parse128948_ _L30515_)))) (declare (not safe)) - (cons __tmp49886 '())))) + (cons __tmp50097 '())))) (declare (not safe)) - (cons '=>: __tmp49885)))) + (cons '=>: __tmp50096)))) (declare (not safe)) - (cons _L30340_ __tmp49884)))) + (cons _L30517_ __tmp50095)))) (declare (not safe)) - (cons ':: __tmp49883)))) + (cons ':: __tmp50094)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L30226_ - __tmp49882)))) + (cons _L30403_ + __tmp50093)))) (declare (not safe)) - (cons '?: __tmp49881)))) - (___kont4463144632_ + (cons '?: __tmp50092)))) + (___kont4480844809_ (lambda () (let () (declare (not safe)) - (_parse-error28778_ _hd29124_))))) - (let ((_g3023930428_ + (_parse-error28955_ _hd29301_))))) + (let ((_g3041630605_ (lambda () (if (gx#stx-pair? - ___stx4462044621_) - (let ((_e3024830407_ + ___stx4479744798_) + (let ((_e3042530584_ (gx#syntax-e - ___stx4462044621_))) - (let ((_tl3024630414_ + ___stx4479744798_))) + (let ((_tl3042330591_ (let () (declare (not safe)) - (##cdr _e3024830407_))) - (_hd3024730411_ + (##cdr _e3042530584_))) + (_hd3042430588_ (let () (declare (not safe)) - (##car _e3024830407_)))) + (##car _e3042530584_)))) (if (gx#stx-null? - _tl3024630414_) - (___kont4462544626_ - _hd3024730411_) + _tl3042330591_) + (___kont4480244803_ + _hd3042430588_) (if (gx#identifier? - _hd3024730411_) + _hd3042430588_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g49888_| - _hd3024730411_) - (if (gx#stx-pair? _tl3024630414_) - (let ((_e3025530377_ (gx#syntax-e _tl3024630414_))) - (let ((_tl3025330384_ + |gerbil/core$[1]#_g50099_| + _hd3042430588_) + (if (gx#stx-pair? _tl3042330591_) + (let ((_e3043230554_ (gx#syntax-e _tl3042330591_))) + (let ((_tl3043030561_ (let () (declare (not safe)) - (##cdr _e3025530377_))) - (_hd3025430381_ + (##cdr _e3043230554_))) + (_hd3043130558_ (let () (declare (not safe)) - (##car _e3025530377_)))) - (if (gx#stx-null? _tl3025330384_) - (___kont4462744628_ _hd3025430381_) - (___kont4463144632_)))) - (___kont4463144632_)) - (___kont4463144632_)) - (if (gx#stx-datum? _hd3024730411_) - (let ((_e3026130304_ (gx#stx-e _hd3024730411_))) + (##car _e3043230554_)))) + (if (gx#stx-null? _tl3043030561_) + (___kont4480444805_ _hd3043130558_) + (___kont4480844809_)))) + (___kont4480844809_)) + (___kont4480844809_)) + (if (gx#stx-datum? _hd3042430588_) + (let ((_e3043830481_ (gx#stx-e _hd3042430588_))) (if (let () (declare (not safe)) - (equal? _e3026130304_ '::)) - (if (gx#stx-pair? _tl3024630414_) - (let ((_e3026430308_ - (gx#syntax-e _tl3024630414_))) - (let ((_tl3026230315_ + (equal? _e3043830481_ '::)) + (if (gx#stx-pair? _tl3042330591_) + (let ((_e3044130485_ + (gx#syntax-e _tl3042330591_))) + (let ((_tl3043930492_ (let () (declare (not safe)) - (##cdr _e3026430308_))) - (_hd3026330312_ + (##cdr _e3044130485_))) + (_hd3044030489_ (let () (declare (not safe)) - (##car _e3026430308_)))) - (if (gx#stx-pair? _tl3026230315_) - (let ((_e3026730318_ - (gx#syntax-e _tl3026230315_))) - (let ((_tl3026530325_ + (##car _e3044130485_)))) + (if (gx#stx-pair? _tl3043930492_) + (let ((_e3044430495_ + (gx#syntax-e _tl3043930492_))) + (let ((_tl3044230502_ (let () (declare (not safe)) - (##cdr _e3026730318_))) - (_hd3026630322_ + (##cdr _e3044430495_))) + (_hd3044330499_ (let () (declare (not safe)) - (##car _e3026730318_)))) + (##car _e3044430495_)))) (if (gx#identifier? - _hd3026630322_) + _hd3044330499_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49887_| - _hd3026630322_) + |gerbil/core$[1]#_g50098_| + _hd3044330499_) (if (gx#stx-pair? - _tl3026530325_) - (let ((_e3027030328_ + _tl3044230502_) + (let ((_e3044730505_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3026530325_))) - (let ((_tl3026830335_ - (let () (declare (not safe)) (##cdr _e3027030328_))) - (_hd3026930332_ + (gx#syntax-e _tl3044230502_))) + (let ((_tl3044530512_ + (let () (declare (not safe)) (##cdr _e3044730505_))) + (_hd3044630509_ (let () (declare (not safe)) - (##car _e3027030328_)))) - (if (gx#stx-null? _tl3026830335_) - (___kont4462944630_ _hd3026930332_ _hd3026330312_) - (___kont4463144632_)))) - (___kont4463144632_)) - (___kont4463144632_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4463144632_)))) - (___kont4463144632_)))) - (___kont4463144632_)) - (___kont4463144632_))) - (___kont4463144632_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4463144632_))))) - (if (gx#stx-null? ___stx4462044621_) - (___kont4462344624_) + (##car _e3044730505_)))) + (if (gx#stx-null? _tl3044530512_) + (___kont4480644807_ _hd3044630509_ _hd3044030489_) + (___kont4480844809_)))) + (___kont4480844809_)) + (___kont4480844809_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4480844809_)))) + (___kont4480844809_)))) + (___kont4480844809_)) + (___kont4480844809_))) + (___kont4480844809_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4480844809_))))) + (if (gx#stx-null? ___stx4479744798_) + (___kont4480044801_) (let () (declare (not safe)) - (_g3023930428_)))))))) - (___kont4470544706_ - (lambda (_L30129_) - (let* ((___stx4460244603_ _L30129_) - (_g3014130152_ + (_g3041630605_)))))))) + (___kont4488244883_ + (lambda (_L30306_) + (let* ((___stx4477944780_ _L30306_) + (_g3031830329_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4460244603_)))) - (let ((___kont4460544606_ - (lambda (_L30180_) + ___stx4477944780_)))) + (let ((___kont4478244783_ + (lambda (_L30357_) (let () (declare (not safe)) - (_parse128771_ _L30180_)))) - (___kont4460744608_ + (_parse128948_ _L30357_)))) + (___kont4478444785_ (lambda () - (let ((__tmp49889 + (let ((__tmp50100 (gx#stx-map - _parse128771_ - _L30129_))) + _parse128948_ + _L30306_))) (declare (not safe)) - (cons 'and: __tmp49889))))) - (if (gx#stx-pair? ___stx4460244603_) - (let ((_e3014630170_ - (gx#syntax-e ___stx4460244603_))) - (let ((_tl3014430177_ + (cons 'and: __tmp50100))))) + (if (gx#stx-pair? ___stx4477944780_) + (let ((_e3032330347_ + (gx#syntax-e ___stx4477944780_))) + (let ((_tl3032130354_ (let () (declare (not safe)) - (##cdr _e3014630170_))) - (_hd3014530174_ + (##cdr _e3032330347_))) + (_hd3032230351_ (let () (declare (not safe)) - (##car _e3014630170_)))) - (if (gx#stx-null? _tl3014430177_) - (___kont4460544606_ - _hd3014530174_) - (___kont4460744608_)))) - (___kont4460744608_)))))) - (___kont4470744708_ - (lambda (_L30044_) - (let* ((___stx4458444585_ _L30044_) - (_g3005630067_ + (##car _e3032330347_)))) + (if (gx#stx-null? _tl3032130354_) + (___kont4478244783_ + _hd3032230351_) + (___kont4478444785_)))) + (___kont4478444785_)))))) + (___kont4488444885_ + (lambda (_L30221_) + (let* ((___stx4476144762_ _L30221_) + (_g3023330244_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4458444585_)))) - (let ((___kont4458744588_ - (lambda (_L30095_) + ___stx4476144762_)))) + (let ((___kont4476444765_ + (lambda (_L30272_) (let () (declare (not safe)) - (_parse128771_ _L30095_)))) - (___kont4458944590_ + (_parse128948_ _L30272_)))) + (___kont4476644767_ (lambda () - (let ((__tmp49890 + (let ((__tmp50101 (gx#stx-map - _parse128771_ - _L30044_))) + _parse128948_ + _L30221_))) (declare (not safe)) - (cons 'or: __tmp49890))))) - (if (gx#stx-pair? ___stx4458444585_) - (let ((_e3006130085_ - (gx#syntax-e ___stx4458444585_))) - (let ((_tl3005930092_ + (cons 'or: __tmp50101))))) + (if (gx#stx-pair? ___stx4476144762_) + (let ((_e3023830262_ + (gx#syntax-e ___stx4476144762_))) + (let ((_tl3023630269_ (let () (declare (not safe)) - (##cdr _e3006130085_))) - (_hd3006030089_ + (##cdr _e3023830262_))) + (_hd3023730266_ (let () (declare (not safe)) - (##car _e3006130085_)))) - (if (gx#stx-null? _tl3005930092_) - (___kont4458744588_ - _hd3006030089_) - (___kont4458944590_)))) - (___kont4458944590_)))))) - (___kont4470944710_ - (lambda (_L30014_) - (let ((__tmp49891 - (let ((__tmp49892 + (##car _e3023830262_)))) + (if (gx#stx-null? _tl3023630269_) + (___kont4476444765_ + _hd3023730266_) + (___kont4476644767_)))) + (___kont4476644767_)))))) + (___kont4488644887_ + (lambda (_L30191_) + (let ((__tmp50102 + (let ((__tmp50103 (let () (declare (not safe)) - (_parse128771_ _L30014_)))) + (_parse128948_ _L30191_)))) (declare (not safe)) - (cons __tmp49892 '())))) + (cons __tmp50103 '())))) (declare (not safe)) - (cons 'not: __tmp49891)))) - (___kont4471144712_ - (lambda (_L29970_ _L29972_) - (let ((__tmp49893 - (let ((__tmp49896 + (cons 'not: __tmp50102)))) + (___kont4488844889_ + (lambda (_L30147_ _L30149_) + (let ((__tmp50104 + (let ((__tmp50107 (let () (declare (not safe)) - (_parse128771_ _L29972_))) - (__tmp49894 - (let ((__tmp49895 + (_parse128948_ _L30149_))) + (__tmp50105 + (let ((__tmp50106 (let () (declare (not safe)) - (_parse128771_ - _L29970_)))) + (_parse128948_ + _L30147_)))) (declare (not safe)) - (cons __tmp49895 '())))) + (cons __tmp50106 '())))) (declare (not safe)) - (cons __tmp49896 __tmp49894)))) + (cons __tmp50107 __tmp50105)))) (declare (not safe)) - (cons 'cons: __tmp49893)))) - (___kont4471344714_ - (lambda (_L29914_ _L29916_ _L29917_) - (if (gx#stx-null? _L29914_) - (let ((__tmp49904 - (let ((__tmp49907 + (cons 'cons: __tmp50104)))) + (___kont4489044891_ + (lambda (_L30091_ _L30093_ _L30094_) + (if (gx#stx-null? _L30091_) + (let ((__tmp50115 + (let ((__tmp50118 (let () (declare (not safe)) - (_parse128771_ _L29917_))) - (__tmp49905 - (let ((__tmp49906 + (_parse128948_ _L30094_))) + (__tmp50116 + (let ((__tmp50117 (let () (declare (not safe)) - (_parse128771_ - _L29916_)))) + (_parse128948_ + _L30093_)))) (declare (not safe)) - (cons __tmp49906 '())))) + (cons __tmp50117 '())))) (declare (not safe)) - (cons __tmp49907 __tmp49905)))) + (cons __tmp50118 __tmp50116)))) (declare (not safe)) - (cons 'cons: __tmp49904)) - (let ((__tmp49897 - (let ((__tmp49903 + (cons 'cons: __tmp50115)) + (let ((__tmp50108 + (let ((__tmp50114 (let () (declare (not safe)) - (_parse128771_ _L29917_))) - (__tmp49898 - (let ((__tmp49899 - (let ((__tmp49900 - (let ((__tmp49902 + (_parse128948_ _L30094_))) + (__tmp50109 + (let ((__tmp50110 + (let ((__tmp50111 + (let ((__tmp50113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons*)) - (__tmp49901 + (__tmp50112 (let () (declare (not safe)) - (cons _L29916_ _L29914_)))) + (cons _L30093_ _L30091_)))) (declare (not safe)) - (cons __tmp49902 __tmp49901)))) + (cons __tmp50113 __tmp50112)))) (declare (not safe)) - (_parse128771_ __tmp49900)))) + (_parse128948_ __tmp50111)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49899 '())))) + (cons __tmp50110 '())))) (declare (not safe)) - (cons __tmp49903 __tmp49898)))) + (cons __tmp50114 __tmp50109)))) (declare (not safe)) - (cons 'cons: __tmp49897))))) - (___kont4471544716_ - (lambda (_L29866_) + (cons 'cons: __tmp50108))))) + (___kont4489244893_ + (lambda (_L30043_) (let () (declare (not safe)) - (_parse-list28773_ _L29866_)))) - (___kont4471744718_ - (lambda (_L29836_) - (let ((__tmp49908 - (let ((__tmp49909 + (_parse-list28950_ _L30043_)))) + (___kont4489444895_ + (lambda (_L30013_) + (let ((__tmp50119 + (let ((__tmp50120 (let () (declare (not safe)) - (_parse128771_ _L29836_)))) + (_parse128948_ _L30013_)))) (declare (not safe)) - (cons __tmp49909 '())))) + (cons __tmp50120 '())))) (declare (not safe)) - (cons 'box: __tmp49908)))) - (___kont4471944720_ - (lambda (_L29799_) - (let ((__tmp49910 - (let ((__tmp49911 + (cons 'box: __tmp50119)))) + (___kont4489644897_ + (lambda (_L29976_) + (let ((__tmp50121 + (let ((__tmp50122 (let () (declare (not safe)) - (_parse128771_ _L29799_)))) + (_parse128948_ _L29976_)))) (declare (not safe)) - (cons __tmp49911 '())))) + (cons __tmp50122 '())))) (declare (not safe)) - (cons 'box: __tmp49910)))) - (___kont4472144722_ - (lambda (_L29775_) + (cons 'box: __tmp50121)))) + (___kont4489844899_ + (lambda (_L29952_) (let () (declare (not safe)) - (_parse128771_ _L29775_)))) - (___kont4472344724_ - (lambda (_L29737_) - (let ((__tmp49912 - (let ((__tmp49913 + (_parse128948_ _L29952_)))) + (___kont4490044901_ + (lambda (_L29914_) + (let ((__tmp50123 + (let ((__tmp50124 (let () (declare (not safe)) - (_parse-vector28774_ - _L29737_)))) + (_parse-vector28951_ + _L29914_)))) (declare (not safe)) - (cons __tmp49913 '())))) + (cons __tmp50124 '())))) (declare (not safe)) - (cons 'values: __tmp49912)))) - (___kont4472544726_ - (lambda (_L29709_) - (let ((__tmp49914 - (let ((__tmp49915 + (cons 'values: __tmp50123)))) + (___kont4490244903_ + (lambda (_L29886_) + (let ((__tmp50125 + (let ((__tmp50126 (let () (declare (not safe)) - (_parse-vector28774_ - _L29709_)))) + (_parse-vector28951_ + _L29886_)))) (declare (not safe)) - (cons __tmp49915 '())))) + (cons __tmp50126 '())))) (declare (not safe)) - (cons 'vector: __tmp49914)))) - (___kont4472744728_ - (lambda (_L29670_) - (let ((__tmp49916 - (let ((__tmp49917 - (let ((__tmp49918 - (let ((__tmp49919 - (lambda (_g2968329686_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2968429689_) + (cons 'vector: __tmp50125)))) + (___kont4490444905_ + (lambda (_L29847_) + (let ((__tmp50127 + (let ((__tmp50128 + (let ((__tmp50129 + (let ((__tmp50130 + (lambda (_g2986029863_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2986129866_) (let () (declare (not safe)) - (cons _g2968329686_ _g2968429689_))))) + (cons _g2986029863_ _g2986129866_))))) (declare (not safe)) - (foldr1 __tmp49919 '() _L29670_)))) + (foldr1 __tmp50130 '() _L29847_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_parse-vector28774_ - __tmp49918)))) + (_parse-vector28951_ + __tmp50129)))) (declare (not safe)) - (cons __tmp49917 '())))) + (cons __tmp50128 '())))) (declare (not safe)) - (cons 'vector: __tmp49916)))) - (___kont4473144732_ - (lambda (_L29616_ _L29618_) - (let ((__tmp49920 - (let ((__tmp49923 - (gx#syntax-local-value _L29618_)) - (__tmp49921 - (let ((__tmp49922 + (cons 'vector: __tmp50127)))) + (___kont4490844909_ + (lambda (_L29793_ _L29795_) + (let ((__tmp50131 + (let ((__tmp50134 + (gx#syntax-local-value _L29795_)) + (__tmp50132 + (let ((__tmp50133 (let () (declare (not safe)) - (_parse-vector28774_ - _L29616_)))) + (_parse-vector28951_ + _L29793_)))) (declare (not safe)) - (cons __tmp49922 '())))) + (cons __tmp50133 '())))) (declare (not safe)) - (cons __tmp49923 __tmp49921)))) + (cons __tmp50134 __tmp50132)))) (declare (not safe)) - (cons 'struct: __tmp49920)))) - (___kont4473344734_ - (lambda (_L29586_ _L29588_) - (let ((__tmp49924 - (let ((__tmp49927 - (gx#syntax-local-value _L29588_)) - (__tmp49925 - (let ((__tmp49926 + (cons 'struct: __tmp50131)))) + (___kont4491044911_ + (lambda (_L29763_ _L29765_) + (let ((__tmp50135 + (let ((__tmp50138 + (gx#syntax-local-value _L29765_)) + (__tmp50136 + (let ((__tmp50137 (let () (declare (not safe)) - (_parse-class-body28776_ - _L29586_)))) + (_parse-class-body28953_ + _L29763_)))) (declare (not safe)) - (cons __tmp49926 '())))) + (cons __tmp50137 '())))) (declare (not safe)) - (cons __tmp49927 __tmp49925)))) + (cons __tmp50138 __tmp50136)))) (declare (not safe)) - (cons 'class: __tmp49924)))) - (___kont4473544736_ - (lambda (_L29546_ _L29548_) - (let ((__tmp49928 - (let ((__tmp49929 - (let ((__tmp49934 + (cons 'class: __tmp50135)))) + (___kont4491244913_ + (lambda (_L29723_ _L29725_) + (let ((__tmp50139 + (let ((__tmp50140 + (let ((__tmp50145 (gx#datum->syntax '#f 'cut)) - (__tmp49930 - (let ((__tmp49931 - (let ((__tmp49933 + (__tmp50141 + (let ((__tmp50142 + (let ((__tmp50144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '<>)) - (__tmp49932 - (let () (declare (not safe)) (cons _L29546_ '())))) + (__tmp50143 + (let () (declare (not safe)) (cons _L29723_ '())))) (declare (not safe)) - (cons __tmp49933 __tmp49932)))) + (cons __tmp50144 __tmp50143)))) (declare (not safe)) - (cons _L29548_ __tmp49931)))) + (cons _L29725_ __tmp50142)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49934 __tmp49930)))) + (cons __tmp50145 __tmp50141)))) (declare (not safe)) - (cons __tmp49929 '())))) + (cons __tmp50140 '())))) (declare (not safe)) - (cons '?: __tmp49928)))) - (___kont4473744738_ - (lambda (_L29506_) - (let ((__tmp49935 - (let ((__tmp49936 (gx#stx-e _L29506_))) + (cons '?: __tmp50139)))) + (___kont4491444915_ + (lambda (_L29683_) + (let ((__tmp50146 + (let ((__tmp50147 (gx#stx-e _L29683_))) (declare (not safe)) - (cons __tmp49936 '())))) + (cons __tmp50147 '())))) (declare (not safe)) - (cons 'datum: __tmp49935)))) - (___kont4473944740_ - (lambda (_L29466_) + (cons 'datum: __tmp50146)))) + (___kont4491644917_ + (lambda (_L29643_) (let () (declare (not safe)) - (_parse-qq28777_ _L29466_)))) - (___kont4474144742_ - (lambda (_L29422_ _L29424_) - (let ((__tmp49937 - (let ((__tmp49938 - (let ((__tmp49939 + (_parse-qq28954_ _L29643_)))) + (___kont4491844919_ + (lambda (_L29599_ _L29601_) + (let ((__tmp50148 + (let ((__tmp50149 + (let ((__tmp50150 (let () (declare (not safe)) - (_parse128771_ - _L29422_)))) + (_parse128948_ + _L29599_)))) (declare (not safe)) - (cons __tmp49939 '())))) + (cons __tmp50150 '())))) (declare (not safe)) - (cons _L29424_ __tmp49938)))) + (cons _L29601_ __tmp50149)))) (declare (not safe)) - (cons 'apply: __tmp49937)))) - (___kont4474344744_ - (lambda (_L29370_) - (let ((__tmp49940 + (cons 'apply: __tmp50148)))) + (___kont4492044921_ + (lambda (_L29547_) + (let ((__tmp50151 (gx#core-apply-expander - (gx#syntax-local-e _L29370_) + (gx#syntax-local-e _L29547_) (gx#stx-wrap-source (let () (declare (not safe)) - (cons 'match: _hd29124_)) - (let ((_$e29381_ - (gx#stx-source _hd29124_))) - (if _$e29381_ - _$e29381_ - (gx#stx-source _stx28767_))))))) + (cons 'match: _hd29301_)) + (let ((_$e29558_ + (gx#stx-source _hd29301_))) + (if _$e29558_ + _$e29558_ + (gx#stx-source _stx28944_))))))) (declare (not safe)) - (_parse128771_ __tmp49940)))) - (___kont4474544746_ - (lambda (_L29344_) + (_parse128948_ __tmp50151)))) + (___kont4492244923_ + (lambda (_L29521_) (let () (declare (not safe)) (cons 'any: '())))) - (___kont4474744748_ - (lambda (_L29328_) - (let ((__tmp49941 + (___kont4492444925_ + (lambda (_L29505_) + (let ((__tmp50152 (let () (declare (not safe)) - (cons _L29328_ '())))) + (cons _L29505_ '())))) (declare (not safe)) - (cons 'var: __tmp49941)))) - (___kont4474944750_ - (lambda (_L29310_) - (let ((__tmp49942 - (let ((__tmp49943 (gx#stx-e _L29310_))) + (cons 'var: __tmp50152)))) + (___kont4492644927_ + (lambda (_L29487_) + (let ((__tmp50153 + (let ((__tmp50154 (gx#stx-e _L29487_))) (declare (not safe)) - (cons __tmp49943 '())))) + (cons __tmp50154 '())))) (declare (not safe)) - (cons 'datum: __tmp49942)))) - (___kont4475144752_ + (cons 'datum: __tmp50153)))) + (___kont4492844929_ (lambda () (let () (declare (not safe)) - (_parse-error28778_ _hd29124_))))) - (let* ((_g2914829321_ + (_parse-error28955_ _hd29301_))))) + (let* ((_g2932529498_ (lambda () - (let ((_L29310_ ___stx4470044701_)) - (if (gx#stx-datum? _L29310_) - (___kont4474944750_ _L29310_) - (___kont4475144752_))))) - (_g2914729337_ + (let ((_L29487_ ___stx4487744878_)) + (if (gx#stx-datum? _L29487_) + (___kont4492644927_ _L29487_) + (___kont4492844929_))))) + (_g2932429514_ (lambda () - (let ((_L29328_ ___stx4470044701_)) - (if (and (gx#identifier? _L29328_) - (let ((__tmp49944 - (gx#ellipsis? _L29328_))) + (let ((_L29505_ ___stx4487744878_)) + (if (and (gx#identifier? _L29505_) + (let ((__tmp50155 + (gx#ellipsis? _L29505_))) (declare (not safe)) - (not __tmp49944))) - (___kont4474744748_ _L29328_) + (not __tmp50155))) + (___kont4492444925_ _L29505_) (let () (declare (not safe)) - (_g2914829321_)))))) - (_g2914629353_ + (_g2932529498_)))))) + (_g2932329530_ (lambda () - (let ((_L29344_ ___stx4470044701_)) - (if (gx#underscore? _L29344_) - (___kont4474544746_ _L29344_) + (let ((_L29521_ ___stx4487744878_)) + (if (gx#underscore? _L29521_) + (___kont4492244923_ _L29521_) (let () (declare (not safe)) - (_g2914729337_)))))) - (___match4502745028_ - (lambda (_e2928329360_ - _hd2928229364_ - _tl2928129367_) - (let ((_L29370_ _hd2928229364_)) + (_g2932429514_)))))) + (___match4520445205_ + (lambda (_e2946029537_ + _hd2945929541_ + _tl2945829544_) + (let ((_L29547_ _hd2945929541_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#syntax-local-match-macro?| - _L29370_)) - (___kont4474344744_ _L29370_) + _L29547_)) + (___kont4492044921_ _L29547_) (let () (declare (not safe)) - (_g2914629353_)))))) - (___match4496144962_ - (lambda (_e2925129526_ - _hd2925029530_ - _tl2924929533_ - _e2925429536_ - _hd2925329540_ - _tl2925229543_) - (let ((_L29546_ _hd2925329540_) - (_L29548_ _hd2925029530_)) - (if (and (gx#identifier? _L29548_) + (_g2932329530_)))))) + (___match4513845139_ + (lambda (_e2942829703_ + _hd2942729707_ + _tl2942629710_ + _e2943129713_ + _hd2943029717_ + _tl2942929720_) + (let ((_L29723_ _hd2943029717_) + (_L29725_ _hd2942729707_)) + (if (and (gx#identifier? _L29725_) (or (gx#free-identifier=? - _L29548_ + _L29725_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _L29548_ + _L29725_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _L29548_ + _L29725_ (gx#datum->syntax '#f 'equal?)))) - (___kont4473544736_ _L29546_ _L29548_) - (if (gx#identifier? _hd2925029530_) + (___kont4491244913_ _L29723_ _L29725_) + (if (gx#identifier? _hd2942729707_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49946_| - _hd2925029530_) - (___kont4473744738_ - _hd2925329540_) + |gerbil/core$[1]#_g50157_| + _hd2942729707_) + (___kont4491444915_ + _hd2943029717_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49945_| - _hd2925029530_) - (___kont4473944740_ - _hd2925329540_) - (___match4502745028_ - _e2925129526_ - _hd2925029530_ - _tl2924929533_))) - (___match4502745028_ - _e2925129526_ - _hd2925029530_ - _tl2924929533_)))))) - (___match4494744948_ - (lambda (_e2924629576_ - _hd2924529580_ - _tl2924429583_) - (let ((_L29586_ _tl2924429583_) - (_L29588_ _hd2924529580_)) + |gerbil/core$[1]#_g50156_| + _hd2942729707_) + (___kont4491644917_ + _hd2943029717_) + (___match4520445205_ + _e2942829703_ + _hd2942729707_ + _tl2942629710_))) + (___match4520445205_ + _e2942829703_ + _hd2942729707_ + _tl2942629710_)))))) + (___match4512445125_ + (lambda (_e2942329753_ + _hd2942229757_ + _tl2942129760_) + (let ((_L29763_ _tl2942129760_) + (_L29765_ _hd2942229757_)) (if (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _L29588_)) - (___kont4473344734_ _L29586_ _L29588_) - (if (gx#stx-pair? _tl2924429583_) - (let ((_e2925429536_ + _L29765_)) + (___kont4491044911_ _L29763_ _L29765_) + (if (gx#stx-pair? _tl2942129760_) + (let ((_e2943129713_ (gx#syntax-e - _tl2924429583_))) - (let ((_tl2925229543_ + _tl2942129760_))) + (let ((_tl2942929720_ (let () (declare (not safe)) - (##cdr _e2925429536_))) - (_hd2925329540_ + (##cdr _e2943129713_))) + (_hd2943029717_ (let () (declare (not safe)) - (##car _e2925429536_)))) + (##car _e2943129713_)))) (if (gx#stx-null? - _tl2925229543_) - (___match4496144962_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_ - _e2925429536_ - _hd2925329540_ - _tl2925229543_) + _tl2942929720_) + (___match4513845139_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_ + _e2943129713_ + _hd2943029717_ + _tl2942929720_) (if (gx#identifier? - _hd2924529580_) + _hd2942229757_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49946_| - _hd2924529580_) - (___match4502745028_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_) + |gerbil/core$[1]#_g50157_| + _hd2942229757_) + (___match4520445205_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$[1]#_g49945_| - _hd2924529580_) - (___match4502745028_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_) + |gerbil/core$[1]#_g50156_| + _hd2942229757_) + (___match4520445205_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49947_| - _hd2924529580_) - (if (gx#stx-pair? _tl2925229543_) - (let ((_e2927929412_ - (gx#syntax-e _tl2925229543_))) - (let ((_tl2927729419_ + |gerbil/core$[1]#_g50158_| + _hd2942229757_) + (if (gx#stx-pair? _tl2942929720_) + (let ((_e2945629589_ + (gx#syntax-e _tl2942929720_))) + (let ((_tl2945429596_ (let () (declare (not safe)) - (##cdr _e2927929412_))) - (_hd2927829416_ + (##cdr _e2945629589_))) + (_hd2945529593_ (let () (declare (not safe)) - (##car _e2927929412_)))) - (if (gx#stx-null? _tl2927729419_) - (___kont4474144742_ - _hd2927829416_ - _hd2925329540_) - (___match4502745028_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_)))) - (___match4502745028_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_)) - (___match4502745028_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_)))) - (___match4502745028_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4502745028_ - _e2924629576_ - _hd2924529580_ - _tl2924429583_)))))) - (___match4494144942_ - (lambda (_e2924129606_ - _hd2924029610_ - _tl2923929613_) - (let ((_L29616_ _tl2923929613_) - (_L29618_ _hd2924029610_)) + (##car _e2945629589_)))) + (if (gx#stx-null? _tl2945429596_) + (___kont4491844919_ + _hd2945529593_ + _hd2943029717_) + (___match4520445205_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_)))) + (___match4520445205_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_)) + (___match4520445205_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_)))) + (___match4520445205_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4520445205_ + _e2942329753_ + _hd2942229757_ + _tl2942129760_)))))) + (___match4511845119_ + (lambda (_e2941829783_ + _hd2941729787_ + _tl2941629790_) + (let ((_L29793_ _tl2941629790_) + (_L29795_ _hd2941729787_)) (if (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__% - _L29618_ + _L29795_ gerbil/core$$#!class-type-struct?)) - (___kont4473144732_ _L29616_ _L29618_) - (___match4494744948_ - _e2924129606_ - _hd2924029610_ - _tl2923929613_))))) - (___match4493544936_ - (lambda (_e2922729636_ - ___splice4472944730_ - _target2922829640_ - _tl2923029643_) - (letrec ((_loop2923129646_ - (lambda (_hd2922929650_ - _body2923529653_) - (if (gx#stx-pair? _hd2922929650_) - (let ((_e2923229656_ + (___kont4490844909_ _L29793_ _L29795_) + (___match4512445125_ + _e2941829783_ + _hd2941729787_ + _tl2941629790_))))) + (___match4511245113_ + (lambda (_e2940429813_ + ___splice4490644907_ + _target2940529817_ + _tl2940729820_) + (letrec ((_loop2940829823_ + (lambda (_hd2940629827_ + _body2941229830_) + (if (gx#stx-pair? _hd2940629827_) + (let ((_e2940929833_ (gx#syntax-e - _hd2922929650_))) - (let ((_lp-tl2923429663_ + _hd2940629827_))) + (let ((_lp-tl2941129840_ (let () (declare (not safe)) - (##cdr _e2923229656_))) - (_lp-hd2923329660_ + (##cdr _e2940929833_))) + (_lp-hd2941029837_ (let () (declare (not safe)) - (##car _e2923229656_)))) - (let ((__tmp49948 + (##car _e2940929833_)))) + (let ((__tmp50159 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _lp-hd2923329660_ _body2923529653_)))) + (cons _lp-hd2941029837_ _body2941229830_)))) (declare (not safe)) - (_loop2923129646_ _lp-tl2923429663_ __tmp49948)))) + (_loop2940829823_ _lp-tl2941129840_ __tmp50159)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_body2923629666_ - (reverse _body2923529653_))) - (___kont4472744728_ - _body2923629666_)))))) + (let ((_body2941329843_ + (reverse _body2941229830_))) + (___kont4490444905_ + _body2941329843_)))))) (let () (declare (not safe)) - (_loop2923129646_ - _target2922829640_ + (_loop2940829823_ + _target2940529817_ '()))))) - (_g2913829692_ + (_g2931529869_ (lambda () - (if (gx#stx-vector? ___stx4470044701_) - (let ((_e2922729636_ + (if (gx#stx-vector? ___stx4487744878_) + (let ((_e2940429813_ (vector->list (gx#syntax-e - ___stx4470044701_)))) - (if (gx#stx-pair/null? _e2922729636_) - (let ((___splice4472944730_ + ___stx4487744878_)))) + (if (gx#stx-pair/null? _e2940429813_) + (let ((___splice4490644907_ (gx#syntax-split-splice - _e2922729636_ + _e2940429813_ '0))) - (let ((_tl2923029643_ + (let ((_tl2940729820_ (let () (declare (not safe)) (##vector-ref - ___splice4472944730_ + ___splice4490644907_ '1))) - (_target2922829640_ + (_target2940529817_ (let () (declare (not safe)) (##vector-ref - ___splice4472944730_ + ___splice4490644907_ '0)))) (if (gx#stx-null? - _tl2923029643_) - (___match4493544936_ - _e2922729636_ - ___splice4472944730_ - _target2922829640_ - _tl2923029643_) + _tl2940729820_) + (___match4511245113_ + _e2940429813_ + ___splice4490644907_ + _target2940529817_ + _tl2940729820_) (let () (declare (not safe)) - (_g2914629353_))))) + (_g2932329530_))))) (let () (declare (not safe)) - (_g2914629353_)))) + (_g2932329530_)))) (let () (declare (not safe)) - (_g2914629353_))))) - (_g2913429809_ + (_g2932329530_))))) + (_g2931129986_ (lambda () - (if (gx#stx-box? ___stx4470044701_) - (let ((_e2921029795_ + (if (gx#stx-box? ___stx4487744878_) + (let ((_e2938729972_ (unbox (gx#syntax-e - ___stx4470044701_)))) - (___kont4471944720_ _e2921029795_)) + ___stx4487744878_)))) + (___kont4489644897_ _e2938729972_)) (let () (declare (not safe)) - (_g2913829692_))))) - (___match4478944790_ - (lambda (_e2916730034_ - _hd2916630038_ - _tl2916530041_) - (let ((_L30044_ _tl2916530041_)) - (if (gx#stx-list? _L30044_) - (___kont4470744708_ _L30044_) - (___match4494144942_ - _e2916730034_ - _hd2916630038_ - _tl2916530041_))))) - (___match4477944780_ - (lambda (_e2916330119_ - _hd2916230123_ - _tl2916130126_) - (let ((_L30129_ _tl2916130126_)) - (if (gx#stx-list? _L30129_) - (___kont4470544706_ _L30129_) - (___match4494144942_ - _e2916330119_ - _hd2916230123_ - _tl2916130126_)))))) - (if (gx#stx-pair? ___stx4470044701_) - (let ((_e2915630204_ - (gx#syntax-e ___stx4470044701_))) - (let ((_tl2915430211_ + (_g2931529869_))))) + (___match4496644967_ + (lambda (_e2934430211_ + _hd2934330215_ + _tl2934230218_) + (let ((_L30221_ _tl2934230218_)) + (if (gx#stx-list? _L30221_) + (___kont4488444885_ _L30221_) + (___match4511845119_ + _e2934430211_ + _hd2934330215_ + _tl2934230218_))))) + (___match4495644957_ + (lambda (_e2934030296_ + _hd2933930300_ + _tl2933830303_) + (let ((_L30306_ _tl2933830303_)) + (if (gx#stx-list? _L30306_) + (___kont4488244883_ _L30306_) + (___match4511845119_ + _e2934030296_ + _hd2933930300_ + _tl2933830303_)))))) + (if (gx#stx-pair? ___stx4487744878_) + (let ((_e2933330381_ + (gx#syntax-e ___stx4487744878_))) + (let ((_tl2933130388_ (let () (declare (not safe)) - (##cdr _e2915630204_))) - (_hd2915530208_ + (##cdr _e2933330381_))) + (_hd2933230385_ (let () (declare (not safe)) - (##car _e2915630204_)))) - (if (gx#identifier? _hd2915530208_) + (##car _e2933330381_)))) + (if (gx#identifier? _hd2933230385_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49958_| - _hd2915530208_) - (if (gx#stx-pair? _tl2915430211_) - (let ((_e2915930214_ + |gerbil/core$[1]#_g50169_| + _hd2933230385_) + (if (gx#stx-pair? _tl2933130388_) + (let ((_e2933630391_ (gx#syntax-e - _tl2915430211_))) - (let ((_tl2915730221_ + _tl2933130388_))) + (let ((_tl2933430398_ (let () (declare (not safe)) - (##cdr _e2915930214_))) - (_hd2915830218_ + (##cdr _e2933630391_))) + (_hd2933530395_ (let () (declare (not safe)) - (##car _e2915930214_)))) - (___kont4470344704_ - _tl2915730221_ - _hd2915830218_))) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)) + (##car _e2933630391_)))) + (___kont4488044881_ + _tl2933430398_ + _hd2933530395_))) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49957_| - _hd2915530208_) - (___match4477944780_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_) + |gerbil/core$[1]#_g50168_| + _hd2933230385_) + (___match4495644957_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49956_| - _hd2915530208_) - (___match4478944790_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_) + |gerbil/core$[1]#_g50167_| + _hd2933230385_) + (___match4496644967_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49955_| - _hd2915530208_) + |gerbil/core$[1]#_g50166_| + _hd2933230385_) (if (gx#stx-pair? - _tl2915430211_) - (let ((_e2917430004_ + _tl2933130388_) + (let ((_e2935130181_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2915430211_))) - (let ((_tl2917230011_ - (let () (declare (not safe)) (##cdr _e2917430004_))) - (_hd2917330008_ + (gx#syntax-e _tl2933130388_))) + (let ((_tl2934930188_ + (let () (declare (not safe)) (##cdr _e2935130181_))) + (_hd2935030185_ (let () (declare (not safe)) - (##car _e2917430004_)))) - (if (gx#stx-null? _tl2917230011_) - (___kont4470944710_ _hd2917330008_) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)))) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)) + (##car _e2935130181_)))) + (if (gx#stx-null? _tl2934930188_) + (___kont4488644887_ _hd2935030185_) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)))) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49954_| - _hd2915530208_) - (if (gx#stx-pair? _tl2915430211_) - (let ((_e2918229950_ (gx#syntax-e _tl2915430211_))) - (let ((_tl2918029957_ + |gerbil/core$[1]#_g50165_| + _hd2933230385_) + (if (gx#stx-pair? _tl2933130388_) + (let ((_e2935930127_ (gx#syntax-e _tl2933130388_))) + (let ((_tl2935730134_ (let () (declare (not safe)) - (##cdr _e2918229950_))) - (_hd2918129954_ + (##cdr _e2935930127_))) + (_hd2935830131_ (let () (declare (not safe)) - (##car _e2918229950_)))) - (if (gx#stx-pair? _tl2918029957_) - (let ((_e2918529960_ - (gx#syntax-e _tl2918029957_))) - (let ((_tl2918329967_ + (##car _e2935930127_)))) + (if (gx#stx-pair? _tl2935730134_) + (let ((_e2936230137_ + (gx#syntax-e _tl2935730134_))) + (let ((_tl2936030144_ (let () (declare (not safe)) - (##cdr _e2918529960_))) - (_hd2918429964_ + (##cdr _e2936230137_))) + (_hd2936130141_ (let () (declare (not safe)) - (##car _e2918529960_)))) - (if (gx#stx-null? _tl2918329967_) - (___kont4471144712_ - _hd2918429964_ - _hd2918129954_) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)))) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)))) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)) + (##car _e2936230137_)))) + (if (gx#stx-null? _tl2936030144_) + (___kont4488844889_ + _hd2936130141_ + _hd2935830131_) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)))) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)))) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49953_| - _hd2915530208_) - (if (gx#stx-pair? _tl2915430211_) - (let ((_e2919429894_ (gx#syntax-e _tl2915430211_))) - (let ((_tl2919229901_ + |gerbil/core$[1]#_g50164_| + _hd2933230385_) + (if (gx#stx-pair? _tl2933130388_) + (let ((_e2937130071_ (gx#syntax-e _tl2933130388_))) + (let ((_tl2936930078_ (let () (declare (not safe)) - (##cdr _e2919429894_))) - (_hd2919329898_ + (##cdr _e2937130071_))) + (_hd2937030075_ (let () (declare (not safe)) - (##car _e2919429894_)))) - (if (gx#stx-pair? _tl2919229901_) - (let ((_e2919729904_ - (gx#syntax-e _tl2919229901_))) - (let ((_tl2919529911_ + (##car _e2937130071_)))) + (if (gx#stx-pair? _tl2936930078_) + (let ((_e2937430081_ + (gx#syntax-e _tl2936930078_))) + (let ((_tl2937230088_ (let () (declare (not safe)) - (##cdr _e2919729904_))) - (_hd2919629908_ + (##cdr _e2937430081_))) + (_hd2937330085_ (let () (declare (not safe)) - (##car _e2919729904_)))) - (___kont4471344714_ - _tl2919529911_ - _hd2919629908_ - _hd2919329898_))) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)))) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)) + (##car _e2937430081_)))) + (___kont4489044891_ + _tl2937230088_ + _hd2937330085_ + _hd2937030075_))) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)))) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49952_| - _hd2915530208_) - (___kont4471544716_ _tl2915430211_) + |gerbil/core$[1]#_g50163_| + _hd2933230385_) + (___kont4489244893_ _tl2933130388_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49951_| - _hd2915530208_) - (if (gx#stx-pair? _tl2915430211_) - (let ((_e2920829826_ - (gx#syntax-e _tl2915430211_))) - (let ((_tl2920629833_ + |gerbil/core$[1]#_g50162_| + _hd2933230385_) + (if (gx#stx-pair? _tl2933130388_) + (let ((_e2938530003_ + (gx#syntax-e _tl2933130388_))) + (let ((_tl2938330010_ (let () (declare (not safe)) - (##cdr _e2920829826_))) - (_hd2920729830_ + (##cdr _e2938530003_))) + (_hd2938430007_ (let () (declare (not safe)) - (##car _e2920829826_)))) - (if (gx#stx-null? _tl2920629833_) - (___kont4471744718_ _hd2920729830_) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)))) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)) + (##car _e2938530003_)))) + (if (gx#stx-null? _tl2938330010_) + (___kont4489444895_ _hd2938430007_) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)))) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49950_| - _hd2915530208_) - (if (gx#stx-pair? _tl2915430211_) - (let ((_e2921729765_ - (gx#syntax-e _tl2915430211_))) - (let ((_tl2921529772_ + |gerbil/core$[1]#_g50161_| + _hd2933230385_) + (if (gx#stx-pair? _tl2933130388_) + (let ((_e2939429942_ + (gx#syntax-e _tl2933130388_))) + (let ((_tl2939229949_ (let () (declare (not safe)) - (##cdr _e2921729765_))) - (_hd2921629769_ + (##cdr _e2939429942_))) + (_hd2939329946_ (let () (declare (not safe)) - (##car _e2921729765_)))) - (if (gx#stx-null? _tl2921529772_) - (___kont4472144722_ - _hd2921629769_) - (___kont4472344724_ - _tl2915430211_)))) - (___kont4472344724_ _tl2915430211_)) + (##car _e2939429942_)))) + (if (gx#stx-null? _tl2939229949_) + (___kont4489844899_ + _hd2939329946_) + (___kont4490044901_ + _tl2933130388_)))) + (___kont4490044901_ _tl2933130388_)) (if (gx#free-identifier=? - |gerbil/core$[1]#_g49949_| - _hd2915530208_) - (___kont4472544726_ _tl2915430211_) - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_))))))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4494144942_ - _e2915630204_ - _hd2915530208_ - _tl2915430211_)))) + |gerbil/core$[1]#_g50160_| + _hd2933230385_) + (___kont4490244903_ _tl2933130388_) + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_))))))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___match4511845119_ + _e2933330381_ + _hd2933230385_ + _tl2933130388_)))) (let () (declare (not safe)) - (_g2913429809_)))))))) - (_parse-list28773_ - (lambda (_body28953_) - (let* ((___stx4503045031_ _body28953_) - (_g2895928988_ + (_g2931129986_)))))))) + (_parse-list28950_ + (lambda (_body29130_) + (let* ((___stx4520745208_ _body29130_) + (_g2913629165_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4503045031_)))) - (let ((___kont4503345034_ - (lambda (_L29106_) + ___stx4520745208_)))) + (let ((___kont4521045211_ + (lambda (_L29283_) (let () (declare (not safe)) - (_parse128771_ _L29106_)))) - (___kont4503545036_ - (lambda (_L29058_ _L29060_ _L29061_) - (let ((__tmp49959 - (let ((__tmp49962 + (_parse128948_ _L29283_)))) + (___kont4521245213_ + (lambda (_L29235_ _L29237_ _L29238_) + (let ((__tmp50170 + (let ((__tmp50173 (let () (declare (not safe)) - (_parse128771_ _L29061_))) - (__tmp49960 - (let ((__tmp49961 + (_parse128948_ _L29238_))) + (__tmp50171 + (let ((__tmp50172 (let () (declare (not safe)) - (_parse-list28773_ - _L29058_)))) + (_parse-list28950_ + _L29235_)))) (declare (not safe)) - (cons __tmp49961 '())))) + (cons __tmp50172 '())))) (declare (not safe)) - (cons __tmp49962 __tmp49960)))) + (cons __tmp50173 __tmp50171)))) (declare (not safe)) - (cons 'splice: __tmp49959)))) - (___kont4503745038_ - (lambda (_L29016_ _L29018_) - (let ((__tmp49963 - (let ((__tmp49966 + (cons 'splice: __tmp50170)))) + (___kont4521445215_ + (lambda (_L29193_ _L29195_) + (let ((__tmp50174 + (let ((__tmp50177 (let () (declare (not safe)) - (_parse128771_ _L29018_))) - (__tmp49964 - (let ((__tmp49965 + (_parse128948_ _L29195_))) + (__tmp50175 + (let ((__tmp50176 (let () (declare (not safe)) - (_parse-list28773_ - _L29016_)))) + (_parse-list28950_ + _L29193_)))) (declare (not safe)) - (cons __tmp49965 '())))) + (cons __tmp50176 '())))) (declare (not safe)) - (cons __tmp49966 __tmp49964)))) + (cons __tmp50177 __tmp50175)))) (declare (not safe)) - (cons 'cons: __tmp49963)))) - (___kont4503945040_ + (cons 'cons: __tmp50174)))) + (___kont4521645217_ (lambda () - (if (gx#stx-null? _body28953_) + (if (gx#stx-null? _body29130_) (let () (declare (not safe)) (cons 'null: '())) - (if (let ((__tmp49967 - (gx#stx-pair? _body28953_))) + (if (let ((__tmp50178 + (gx#stx-pair? _body29130_))) (declare (not safe)) - (not __tmp49967)) + (not __tmp50178)) (let () (declare (not safe)) - (_parse128771_ _body28953_)) + (_parse128948_ _body29130_)) (let () (declare (not safe)) - (_parse-error28778_ _body28953_))))))) - (let* ((___match4507945080_ - (lambda (_e2898229006_ - _hd2898129010_ - _tl2898029013_) - (let ((_L29016_ _tl2898029013_) - (_L29018_ _hd2898129010_)) - (if (let ((__tmp49968 - (gx#ellipsis? _L29018_))) + (_parse-error28955_ _body29130_))))))) + (let* ((___match4525645257_ + (lambda (_e2915929183_ + _hd2915829187_ + _tl2915729190_) + (let ((_L29193_ _tl2915729190_) + (_L29195_ _hd2915829187_)) + (if (let ((__tmp50179 + (gx#ellipsis? _L29195_))) (declare (not safe)) - (not __tmp49968)) - (___kont4503745038_ _L29016_ _L29018_) - (___kont4503945040_))))) - (___match4507345074_ - (lambda (_e2897429038_ - _hd2897329042_ - _tl2897229045_ - _e2897729048_ - _hd2897629052_ - _tl2897529055_) - (let ((_L29058_ _tl2897529055_) - (_L29060_ _hd2897629052_) - (_L29061_ _hd2897329042_)) - (if (gx#ellipsis? _L29060_) - (___kont4503545036_ - _L29058_ - _L29060_ - _L29061_) - (___match4507945080_ - _e2897429038_ - _hd2897329042_ - _tl2897229045_)))))) - (if (gx#stx-pair? ___stx4503045031_) - (let ((_e2896429082_ - (gx#syntax-e ___stx4503045031_))) - (let ((_tl2896229089_ + (not __tmp50179)) + (___kont4521445215_ _L29193_ _L29195_) + (___kont4521645217_))))) + (___match4525045251_ + (lambda (_e2915129215_ + _hd2915029219_ + _tl2914929222_ + _e2915429225_ + _hd2915329229_ + _tl2915229232_) + (let ((_L29235_ _tl2915229232_) + (_L29237_ _hd2915329229_) + (_L29238_ _hd2915029219_)) + (if (gx#ellipsis? _L29237_) + (___kont4521245213_ + _L29235_ + _L29237_ + _L29238_) + (___match4525645257_ + _e2915129215_ + _hd2915029219_ + _tl2914929222_)))))) + (if (gx#stx-pair? ___stx4520745208_) + (let ((_e2914129259_ + (gx#syntax-e ___stx4520745208_))) + (let ((_tl2913929266_ (let () (declare (not safe)) - (##cdr _e2896429082_))) - (_hd2896329086_ + (##cdr _e2914129259_))) + (_hd2914029263_ (let () (declare (not safe)) - (##car _e2896429082_)))) - (if (gx#stx-datum? _hd2896329086_) - (let ((_e2896529092_ - (gx#stx-e _hd2896329086_))) + (##car _e2914129259_)))) + (if (gx#stx-datum? _hd2914029263_) + (let ((_e2914229269_ + (gx#stx-e _hd2914029263_))) (if (let () (declare (not safe)) - (equal? _e2896529092_ '::)) - (if (gx#stx-pair? _tl2896229089_) - (let ((_e2896829096_ + (equal? _e2914229269_ '::)) + (if (gx#stx-pair? _tl2913929266_) + (let ((_e2914529273_ (gx#syntax-e - _tl2896229089_))) - (let ((_tl2896629103_ + _tl2913929266_))) + (let ((_tl2914329280_ (let () (declare (not safe)) - (##cdr _e2896829096_))) - (_hd2896729100_ + (##cdr _e2914529273_))) + (_hd2914429277_ (let () (declare (not safe)) - (##car _e2896829096_)))) + (##car _e2914529273_)))) (if (gx#stx-null? - _tl2896629103_) - (___kont4503345034_ - _hd2896729100_) - (___match4507345074_ - _e2896429082_ - _hd2896329086_ - _tl2896229089_ - _e2896829096_ - _hd2896729100_ - _tl2896629103_)))) - (___match4507945080_ - _e2896429082_ - _hd2896329086_ - _tl2896229089_)) - (if (gx#stx-pair? _tl2896229089_) - (let ((_e2897729048_ + _tl2914329280_) + (___kont4521045211_ + _hd2914429277_) + (___match4525045251_ + _e2914129259_ + _hd2914029263_ + _tl2913929266_ + _e2914529273_ + _hd2914429277_ + _tl2914329280_)))) + (___match4525645257_ + _e2914129259_ + _hd2914029263_ + _tl2913929266_)) + (if (gx#stx-pair? _tl2913929266_) + (let ((_e2915429225_ (gx#syntax-e - _tl2896229089_))) - (let ((_tl2897529055_ + _tl2913929266_))) + (let ((_tl2915229232_ (let () (declare (not safe)) - (##cdr _e2897729048_))) - (_hd2897629052_ + (##cdr _e2915429225_))) + (_hd2915329229_ (let () (declare (not safe)) - (##car _e2897729048_)))) - (___match4507345074_ - _e2896429082_ - _hd2896329086_ - _tl2896229089_ - _e2897729048_ - _hd2897629052_ - _tl2897529055_))) - (___match4507945080_ - _e2896429082_ - _hd2896329086_ - _tl2896229089_)))) - (if (gx#stx-pair? _tl2896229089_) - (let ((_e2897729048_ - (gx#syntax-e _tl2896229089_))) - (let ((_tl2897529055_ + (##car _e2915429225_)))) + (___match4525045251_ + _e2914129259_ + _hd2914029263_ + _tl2913929266_ + _e2915429225_ + _hd2915329229_ + _tl2915229232_))) + (___match4525645257_ + _e2914129259_ + _hd2914029263_ + _tl2913929266_)))) + (if (gx#stx-pair? _tl2913929266_) + (let ((_e2915429225_ + (gx#syntax-e _tl2913929266_))) + (let ((_tl2915229232_ (let () (declare (not safe)) - (##cdr _e2897729048_))) - (_hd2897629052_ + (##cdr _e2915429225_))) + (_hd2915329229_ (let () (declare (not safe)) - (##car _e2897729048_)))) - (___match4507345074_ - _e2896429082_ - _hd2896329086_ - _tl2896229089_ - _e2897729048_ - _hd2897629052_ - _tl2897529055_))) - (___match4507945080_ - _e2896429082_ - _hd2896329086_ - _tl2896229089_))))) - (___kont4503945040_))))))) - (_parse-vector28774_ - (lambda (_body28950_) + (##car _e2915429225_)))) + (___match4525045251_ + _e2914129259_ + _hd2914029263_ + _tl2913929266_ + _e2915429225_ + _hd2915329229_ + _tl2915229232_))) + (___match4525645257_ + _e2914129259_ + _hd2914029263_ + _tl2913929266_))))) + (___kont4521645217_))))))) + (_parse-vector28951_ + (lambda (_body29127_) (if (let () (declare (not safe)) - (_simple-vector?28775_ _body28950_)) - (let ((__tmp49971 - (let ((__tmp49972 - (gx#stx-map _parse128771_ _body28950_))) + (_simple-vector?28952_ _body29127_)) + (let ((__tmp50182 + (let ((__tmp50183 + (gx#stx-map _parse128948_ _body29127_))) (declare (not safe)) - (cons __tmp49972 '())))) + (cons __tmp50183 '())))) (declare (not safe)) - (cons 'simple: __tmp49971)) - (let ((__tmp49969 - (let ((__tmp49970 + (cons 'simple: __tmp50182)) + (let ((__tmp50180 + (let ((__tmp50181 (let () (declare (not safe)) - (_parse-list28773_ _body28950_)))) + (_parse-list28950_ _body29127_)))) (declare (not safe)) - (cons __tmp49970 '())))) + (cons __tmp50181 '())))) (declare (not safe)) - (cons 'list: __tmp49969))))) - (_simple-vector?28775_ - (lambda (_body28887_) - (let* ((___stx4508245083_ _body28887_) - (_g2889128903_ + (cons 'list: __tmp50180))))) + (_simple-vector?28952_ + (lambda (_body29064_) + (let* ((___stx4525945260_ _body29064_) + (_g2906829080_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4508245083_)))) - (let ((___kont4508545086_ - (lambda (_L28931_ _L28933_) - (if (let ((__tmp49973 (gx#ellipsis? _L28933_))) + ___stx4525945260_)))) + (let ((___kont4526245263_ + (lambda (_L29108_ _L29110_) + (if (let ((__tmp50184 (gx#ellipsis? _L29110_))) (declare (not safe)) - (not __tmp49973)) + (not __tmp50184)) (let () (declare (not safe)) - (_simple-vector?28775_ _L28931_)) + (_simple-vector?28952_ _L29108_)) '#f))) - (___kont4508745088_ - (lambda () (gx#stx-null? _body28887_)))) - (if (gx#stx-pair? ___stx4508245083_) - (let ((_e2889728921_ - (gx#syntax-e ___stx4508245083_))) - (let ((_tl2889528928_ + (___kont4526445265_ + (lambda () (gx#stx-null? _body29064_)))) + (if (gx#stx-pair? ___stx4525945260_) + (let ((_e2907429098_ + (gx#syntax-e ___stx4525945260_))) + (let ((_tl2907229105_ (let () (declare (not safe)) - (##cdr _e2889728921_))) - (_hd2889628925_ + (##cdr _e2907429098_))) + (_hd2907329102_ (let () (declare (not safe)) - (##car _e2889728921_)))) - (___kont4508545086_ - _tl2889528928_ - _hd2889628925_))) - (___kont4508745088_)))))) - (_parse-class-body28776_ - (lambda (_body28796_) - (let _recur28799_ ((_rest28802_ _body28796_)) - (let* ((___stx4509845099_ _rest28802_) - (_g2880628822_ + (##car _e2907429098_)))) + (___kont4526245263_ + _tl2907229105_ + _hd2907329102_))) + (___kont4526445265_)))))) + (_parse-class-body28953_ + (lambda (_body28973_) + (let _recur28976_ ((_rest28979_ _body28973_)) + (let* ((___stx4527545276_ _rest28979_) + (_g2898328999_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4509845099_)))) - (let ((___kont4510145102_ - (lambda (_L28860_ _L28862_ _L28863_) - (let ((__tmp49974 - (let ((__tmp49976 + ___stx4527545276_)))) + (let ((___kont4527845279_ + (lambda (_L29037_ _L29039_ _L29040_) + (let ((__tmp50185 + (let ((__tmp50187 (let () (declare (not safe)) - (_parse128771_ _L28862_))) - (__tmp49975 + (_parse128948_ _L29039_))) + (__tmp50186 (let () (declare (not safe)) - (_recur28799_ _L28860_)))) + (_recur28976_ _L29037_)))) (declare (not safe)) - (cons __tmp49976 __tmp49975)))) + (cons __tmp50187 __tmp50186)))) (declare (not safe)) - (cons _L28863_ __tmp49974)))) - (___kont4510345104_ + (cons _L29040_ __tmp50185)))) + (___kont4528045281_ (lambda () - (if (gx#stx-null? _rest28802_) + (if (gx#stx-null? _rest28979_) '() (let () (declare (not safe)) - (_parse-error28778_ _rest28802_)))))) - (let ((___match4511745118_ - (lambda (_e2881328840_ - _hd2881228844_ - _tl2881128847_ - _e2881628850_ - _hd2881528854_ - _tl2881428857_) - (let ((_L28860_ _tl2881428857_) - (_L28862_ _hd2881528854_) - (_L28863_ _hd2881228844_)) - (if (gx#stx-keyword? _L28863_) - (___kont4510145102_ - _L28860_ - _L28862_ - _L28863_) - (___kont4510345104_)))))) - (if (gx#stx-pair? ___stx4509845099_) - (let ((_e2881328840_ - (gx#syntax-e ___stx4509845099_))) - (let ((_tl2881128847_ + (_parse-error28955_ _rest28979_)))))) + (let ((___match4529445295_ + (lambda (_e2899029017_ + _hd2898929021_ + _tl2898829024_ + _e2899329027_ + _hd2899229031_ + _tl2899129034_) + (let ((_L29037_ _tl2899129034_) + (_L29039_ _hd2899229031_) + (_L29040_ _hd2898929021_)) + (if (gx#stx-keyword? _L29040_) + (___kont4527845279_ + _L29037_ + _L29039_ + _L29040_) + (___kont4528045281_)))))) + (if (gx#stx-pair? ___stx4527545276_) + (let ((_e2899029017_ + (gx#syntax-e ___stx4527545276_))) + (let ((_tl2898829024_ (let () (declare (not safe)) - (##cdr _e2881328840_))) - (_hd2881228844_ + (##cdr _e2899029017_))) + (_hd2898929021_ (let () (declare (not safe)) - (##car _e2881328840_)))) - (if (gx#stx-pair? _tl2881128847_) - (let ((_e2881628850_ - (gx#syntax-e _tl2881128847_))) - (let ((_tl2881428857_ + (##car _e2899029017_)))) + (if (gx#stx-pair? _tl2898829024_) + (let ((_e2899329027_ + (gx#syntax-e _tl2898829024_))) + (let ((_tl2899129034_ (let () (declare (not safe)) - (##cdr _e2881628850_))) - (_hd2881528854_ + (##cdr _e2899329027_))) + (_hd2899229031_ (let () (declare (not safe)) - (##car _e2881628850_)))) - (___match4511745118_ - _e2881328840_ - _hd2881228844_ - _tl2881128847_ - _e2881628850_ - _hd2881528854_ - _tl2881428857_))) - (___kont4510345104_)))) - (___kont4510345104_)))))))) - (_parse-qq28777_ - (lambda (_hd28783_) - (let ((_g2878528792_ - (lambda (_g2878628788_) + (##car _e2899329027_)))) + (___match4529445295_ + _e2899029017_ + _hd2898929021_ + _tl2898829024_ + _e2899329027_ + _hd2899229031_ + _tl2899129034_))) + (___kont4528045281_)))) + (___kont4528045281_)))))))) + (_parse-qq28954_ + (lambda (_hd28960_) + (let ((_g2896228969_ + (lambda (_g2896328965_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2878628788_)))) + _g2896328965_)))) (declare (not safe)) - (_g2878528792_ _hd28783_)))) - (_parse-error28778_ - (lambda (_hd28780_) + (_g2896228969_ _hd28960_)))) + (_parse-error28955_ + (lambda (_hd28957_) (apply gx#raise-syntax-error '#f '"bad syntax; illegal pattern" - (if _match-stx28769_ - (let ((__tmp49978 - (let ((__tmp49979 + (if _match-stx28946_ + (let ((__tmp50189 + (let ((__tmp50190 (let () (declare (not safe)) - (cons _hd28780_ '())))) + (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28767_ __tmp49979)))) + (cons _stx28944_ __tmp50190)))) (declare (not safe)) - (cons _match-stx28769_ __tmp49978)) - (let ((__tmp49977 + (cons _match-stx28946_ __tmp50189)) + (let ((__tmp50188 (let () (declare (not safe)) - (cons _hd28780_ '())))) + (cons _hd28957_ '())))) (declare (not safe)) - (cons _stx28767_ __tmp49977))))))) - (let () (declare (not safe)) (_parse128771_ _stx28767_))))) + (cons _stx28944_ __tmp50188))))))) + (let () (declare (not safe)) (_parse128948_ _stx28944_))))) (define |gerbil/core$[1]#parse-match-pattern__0| - (lambda (_stx30451_) - (let ((_match-stx30454_ '#f)) + (lambda (_stx30628_) + (let ((_match-stx30631_ '#f)) (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30451_ - _match-stx30454_)))) + _stx30628_ + _match-stx30631_)))) (define |gerbil/core$[1]#parse-match-pattern| - (lambda _g49981_ - (let ((_g49980_ (let () (declare (not safe)) (##length _g49981_)))) - (cond ((let () (declare (not safe)) (##fx= _g49980_ 1)) - (apply (lambda (_stx30451_) + (lambda _g50192_ + (let ((_g50191_ (let () (declare (not safe)) (##length _g50192_)))) + (cond ((let () (declare (not safe)) (##fx= _g50191_ 1)) + (apply (lambda (_stx30628_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__0| - _stx30451_))) - _g49981_)) - ((let () (declare (not safe)) (##fx= _g49980_ 2)) - (apply (lambda (_stx30457_ _match-stx30459_) + _stx30628_))) + _g50192_)) + ((let () (declare (not safe)) (##fx= _g50191_ 2)) + (apply (lambda (_stx30634_ _match-stx30636_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _stx30457_ - _match-stx30459_))) - _g49981_)) + _stx30634_ + _match-stx30636_))) + _g50192_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core$[1]#parse-match-pattern| - _g49981_)))))) + _g50192_)))))) (define |gerbil/core$[1]#match-pattern?| - (lambda (_stx28751_) + (lambda (_stx28928_) (call-with-current-continuation - (lambda (_E28755_) + (lambda (_E28932_) (with-exception-handler - (let ((_E!28758_ (current-exception-handler))) - (lambda (_e28761_) - (if (syntax-error? _e28761_) - (_E28755_ '#f) - (_E!28758_ _e28761_)))) + (let ((_E!28935_ (current-exception-handler))) + (lambda (_e28938_) + (if (syntax-error? _e28938_) + (_E28932_ '#f) + (_E!28935_ _e28938_)))) (lambda () (let () (declare (not safe)) - (|gerbil/core$[1]#parse-match-pattern__0| _stx28751_)) + (|gerbil/core$[1]#parse-match-pattern__0| _stx28928_)) '#t)))))) (define |gerbil/core$[1]#match-pattern-vars| - (lambda (_ptree27486_) - (letrec ((_loop27489_ - (lambda (_ptree27776_ _vars27778_ _K27779_) - (let* ((___stx4521645217_ _ptree27776_) - (_g2779227902_ + (lambda (_ptree27663_) + (letrec ((_loop27666_ + (lambda (_ptree27953_ _vars27955_ _K27956_) + (let* ((___stx4539345394_ _ptree27953_) + (_g2796928079_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4521645217_)))) - (let ((___kont4521945220_ - (lambda (_L28532_) - (let* ((___stx4513645137_ _L28532_) - (_g2854928583_ + ___stx4539345394_)))) + (let ((___kont4539645397_ + (lambda (_L28709_) + (let* ((___stx4531345314_ _L28709_) + (_g2872628760_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4513645137_)))) - (let ((___kont4513945140_ - (lambda (_L28732_) + ___stx4531345314_)))) + (let ((___kont4531645317_ + (lambda (_L28909_) (let () (declare (not safe)) - (_loop27489_ - _L28732_ - _vars27778_ - _K27779_)))) - (___kont4514145142_ - (lambda (_L28701_) + (_loop27666_ + _L28909_ + _vars27955_ + _K27956_)))) + (___kont4531845319_ + (lambda (_L28878_) (let () (declare (not safe)) - (_loop27489_ - _L28701_ - _vars27778_ - _K27779_)))) - (___kont4514345144_ - (lambda (_L28649_) + (_loop27666_ + _L28878_ + _vars27955_ + _K27956_)))) + (___kont4532045321_ + (lambda (_L28826_) (let () (declare (not safe)) - (_loop27489_ - _L28649_ - _vars27778_ - _K27779_)))) - (___kont4514545146_ - (lambda () (_K27779_ _vars27778_)))) - (if (gx#stx-pair? ___stx4513645137_) - (let ((_e2855428722_ - (gx#syntax-e ___stx4513645137_))) - (let ((_tl2855228729_ + (_loop27666_ + _L28826_ + _vars27955_ + _K27956_)))) + (___kont4532245323_ + (lambda () (_K27956_ _vars27955_)))) + (if (gx#stx-pair? ___stx4531345314_) + (let ((_e2873128899_ + (gx#syntax-e ___stx4531345314_))) + (let ((_tl2872928906_ (let () (declare (not safe)) - (##cdr _e2855428722_))) - (_hd2855328726_ + (##cdr _e2873128899_))) + (_hd2873028903_ (let () (declare (not safe)) - (##car _e2855428722_)))) - (if (gx#stx-null? _tl2855228729_) - (___kont4513945140_ - _hd2855328726_) + (##car _e2873128899_)))) + (if (gx#stx-null? _tl2872928906_) + (___kont4531645317_ + _hd2873028903_) (if (gx#stx-datum? - _hd2855328726_) - (let ((_e2855928687_ + _hd2873028903_) + (let ((_e2873628864_ (gx#stx-e - _hd2855328726_))) + _hd2873028903_))) (if (let () (declare (not safe)) - (equal? _e2855928687_ + (equal? _e2873628864_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:)) - (if (gx#stx-pair? _tl2855228729_) - (let ((_e2856228691_ (gx#syntax-e _tl2855228729_))) - (let ((_tl2856028698_ + (if (gx#stx-pair? _tl2872928906_) + (let ((_e2873928868_ (gx#syntax-e _tl2872928906_))) + (let ((_tl2873728875_ (let () (declare (not safe)) - (##cdr _e2856228691_))) - (_hd2856128695_ + (##cdr _e2873928868_))) + (_hd2873828872_ (let () (declare (not safe)) - (##car _e2856228691_)))) - (if (gx#stx-null? _tl2856028698_) - (___kont4514145142_ _hd2856128695_) - (___kont4514545146_)))) - (___kont4514545146_)) - (if (let () (declare (not safe)) (equal? _e2855928687_ '::)) - (if (gx#stx-pair? _tl2855228729_) - (let ((_e2857028615_ (gx#syntax-e _tl2855228729_))) - (let ((_tl2856828622_ + (##car _e2873928868_)))) + (if (gx#stx-null? _tl2873728875_) + (___kont4531845319_ _hd2873828872_) + (___kont4532245323_)))) + (___kont4532245323_)) + (if (let () (declare (not safe)) (equal? _e2873628864_ '::)) + (if (gx#stx-pair? _tl2872928906_) + (let ((_e2874728792_ (gx#syntax-e _tl2872928906_))) + (let ((_tl2874528799_ (let () (declare (not safe)) - (##cdr _e2857028615_))) - (_hd2856928619_ + (##cdr _e2874728792_))) + (_hd2874628796_ (let () (declare (not safe)) - (##car _e2857028615_)))) - (if (gx#stx-pair? _tl2856828622_) - (let ((_e2857328625_ - (gx#syntax-e _tl2856828622_))) - (let ((_tl2857128632_ + (##car _e2874728792_)))) + (if (gx#stx-pair? _tl2874528799_) + (let ((_e2875028802_ + (gx#syntax-e _tl2874528799_))) + (let ((_tl2874828809_ (let () (declare (not safe)) - (##cdr _e2857328625_))) - (_hd2857228629_ + (##cdr _e2875028802_))) + (_hd2874928806_ (let () (declare (not safe)) - (##car _e2857328625_)))) - (if (gx#stx-datum? _hd2857228629_) - (let ((_e2857428635_ - (gx#stx-e _hd2857228629_))) + (##car _e2875028802_)))) + (if (gx#stx-datum? _hd2874928806_) + (let ((_e2875128812_ + (gx#stx-e _hd2874928806_))) (if (let () (declare (not safe)) - (equal? _e2857428635_ '=>:)) + (equal? _e2875128812_ '=>:)) (if (gx#stx-pair? - _tl2857128632_) - (let ((_e2857728639_ + _tl2874828809_) + (let ((_e2875428816_ (gx#syntax-e - _tl2857128632_))) - (let ((_tl2857528646_ + _tl2874828809_))) + (let ((_tl2875228823_ (let () (declare (not safe)) - (##cdr _e2857728639_))) - (_hd2857628643_ + (##cdr _e2875428816_))) + (_hd2875328820_ (let () (declare (not safe)) - (##car _e2857728639_)))) + (##car _e2875428816_)))) (if (gx#stx-null? - _tl2857528646_) - (___kont4514345144_ - _hd2857628643_) - (___kont4514545146_)))) - (___kont4514545146_)) - (___kont4514545146_))) - (___kont4514545146_)))) - (___kont4514545146_)))) - (___kont4514545146_)) - (___kont4514545146_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4514545146_))))) - (___kont4514545146_)))))) - (___kont4522145222_ - (lambda (_L28419_ _L28421_) - (let* ((___stx4512045121_ _L28419_) - (_g2843728449_ + _tl2875228823_) + (___kont4532045321_ + _hd2875328820_) + (___kont4532245323_)))) + (___kont4532245323_)) + (___kont4532245323_))) + (___kont4532245323_)))) + (___kont4532245323_)))) + (___kont4532245323_)) + (___kont4532245323_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4532245323_))))) + (___kont4532245323_)))))) + (___kont4539845399_ + (lambda (_L28596_ _L28598_) + (let* ((___stx4529745298_ _L28596_) + (_g2861428626_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4512045121_)))) - (let ((___kont4512345124_ - (lambda (_L28477_ _L28479_) - (let ((__tmp49982 - (lambda (_g2849128493_) - (let ((__tmp49983 + ___stx4529745298_)))) + (let ((___kont4530045301_ + (lambda (_L28654_ _L28656_) + (let ((__tmp50193 + (lambda (_g2866828670_) + (let ((__tmp50194 (let () (declare (not safe)) - (cons _L28421_ + (cons _L28598_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L28477_)))) + _L28654_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop27489_ - __tmp49983 - _g2849128493_ - _K27779_))))) + (_loop27666_ + __tmp50194 + _g2866828670_ + _K27956_))))) (declare (not safe)) - (_loop27489_ - _L28479_ - _vars27778_ - __tmp49982)))) - (___kont4512545126_ - (lambda () (_K27779_ _vars27778_)))) - (if (gx#stx-pair? ___stx4512045121_) - (let ((_e2844328467_ - (gx#syntax-e ___stx4512045121_))) - (let ((_tl2844128474_ + (_loop27666_ + _L28656_ + _vars27955_ + __tmp50193)))) + (___kont4530245303_ + (lambda () (_K27956_ _vars27955_)))) + (if (gx#stx-pair? ___stx4529745298_) + (let ((_e2862028644_ + (gx#syntax-e ___stx4529745298_))) + (let ((_tl2861828651_ (let () (declare (not safe)) - (##cdr _e2844328467_))) - (_hd2844228471_ + (##cdr _e2862028644_))) + (_hd2861928648_ (let () (declare (not safe)) - (##car _e2844328467_)))) - (___kont4512345124_ - _tl2844128474_ - _hd2844228471_))) - (___kont4512545126_)))))) - (___kont4522345224_ - (lambda (_L28388_) + (##car _e2862028644_)))) + (___kont4530045301_ + _tl2861828651_ + _hd2861928648_))) + (___kont4530245303_)))))) + (___kont4540045401_ + (lambda (_L28565_) (let () (declare (not safe)) - (_loop27489_ _L28388_ _vars27778_ _K27779_)))) - (___kont4522545226_ - (lambda (_L28334_ _L28336_) - (let ((__tmp49984 - (lambda (_g2835128353_) + (_loop27666_ _L28565_ _vars27955_ _K27956_)))) + (___kont4540245403_ + (lambda (_L28511_ _L28513_) + (let ((__tmp50195 + (lambda (_g2852828530_) (let () (declare (not safe)) - (_loop27489_ - _L28334_ - _g2835128353_ - _K27779_))))) + (_loop27666_ + _L28511_ + _g2852828530_ + _K27956_))))) (declare (not safe)) - (_loop27489_ - _L28336_ - _vars27778_ - __tmp49984)))) - (___kont4522745228_ - (lambda (_L28270_ _L28272_) - (let ((__tmp49985 - (lambda (_g2828728289_) + (_loop27666_ + _L28513_ + _vars27955_ + __tmp50195)))) + (___kont4540445405_ + (lambda (_L28447_ _L28449_) + (let ((__tmp50196 + (lambda (_g2846428466_) (let () (declare (not safe)) - (_loop27489_ - _L28270_ - _g2828728289_ - _K27779_))))) + (_loop27666_ + _L28447_ + _g2846428466_ + _K27956_))))) (declare (not safe)) - (_loop27489_ - _L28272_ - _vars27778_ - __tmp49985)))) - (___kont4522945230_ - (lambda (_L28215_) + (_loop27666_ + _L28449_ + _vars27955_ + __tmp50196)))) + (___kont4540645407_ + (lambda (_L28392_) (let () (declare (not safe)) - (_loop27489_ _L28215_ _vars27778_ _K27779_)))) - (___kont4523145232_ - (lambda (_L28165_ _L28167_) + (_loop27666_ _L28392_ _vars27955_ _K27956_)))) + (___kont4540845409_ + (lambda (_L28342_ _L28344_) (let () (declare (not safe)) - (_loop-vector27491_ - _L28165_ - _vars27778_ - _K27779_)))) - (___kont4523345234_ - (lambda (_L28122_) + (_loop-vector27668_ + _L28342_ + _vars27955_ + _K27956_)))) + (___kont4541045411_ + (lambda (_L28299_) (let () (declare (not safe)) - (_loop-vector27491_ - _L28122_ - _vars27778_ - _K27779_)))) - (___kont4523545236_ - (lambda (_L28065_) + (_loop-vector27668_ + _L28299_ + _vars27955_ + _K27956_)))) + (___kont4541245413_ + (lambda (_L28242_) (let () (declare (not safe)) - (_loop-class-list27493_ - _L28065_ - _vars27778_ - _K27779_)))) - (___kont4523745238_ - (lambda (_L28006_ _L28008_) + (_loop-class-list27670_ + _L28242_ + _vars27955_ + _K27956_)))) + (___kont4541445415_ + (lambda (_L28183_ _L28185_) (let () (declare (not safe)) - (_loop27489_ _L28006_ _vars27778_ _K27779_)))) - (___kont4523945240_ - (lambda (_L27944_) - (if (let ((__tmp49986 - (lambda (_g2795927961_) + (_loop27666_ _L28183_ _vars27955_ _K27956_)))) + (___kont4541645417_ + (lambda (_L28121_) + (if (let ((__tmp50197 + (lambda (_g2813628138_) (gx#bound-identifier=? - _g2795927961_ - _L27944_)))) + _g2813628138_ + _L28121_)))) (declare (not safe)) - (find __tmp49986 _vars27778_)) - (_K27779_ _vars27778_) - (_K27779_ + (find __tmp50197 _vars27955_)) + (_K27956_ _vars27955_) + (_K27956_ (let () (declare (not safe)) - (cons _L27944_ _vars27778_)))))) - (___kont4524145242_ - (lambda () (_K27779_ _vars27778_)))) - (let* ((___match4537345374_ - (lambda (_e2785128145_ - _hd2785028149_ - _tl2784928152_ - _e2785428155_ - _hd2785328159_ - _tl2785228162_) - (let ((_L28165_ _hd2785328159_) - (_L28167_ _hd2785028149_)) - (if (or (gx#stx-eq? 'values: _L28167_) - (gx#stx-eq? 'vector: _L28167_)) - (___kont4523145232_ _L28165_ _L28167_) - (if (gx#stx-datum? _hd2785028149_) - (let ((_e2785928098_ - (gx#stx-e _hd2785028149_))) + (cons _L28121_ _vars27955_)))))) + (___kont4541845419_ + (lambda () (_K27956_ _vars27955_)))) + (let* ((___match4555045551_ + (lambda (_e2802828322_ + _hd2802728326_ + _tl2802628329_ + _e2803128332_ + _hd2803028336_ + _tl2802928339_) + (let ((_L28342_ _hd2803028336_) + (_L28344_ _hd2802728326_)) + (if (or (gx#stx-eq? 'values: _L28344_) + (gx#stx-eq? 'vector: _L28344_)) + (___kont4540845409_ _L28342_ _L28344_) + (if (gx#stx-datum? _hd2802728326_) + (let ((_e2803628275_ + (gx#stx-e _hd2802728326_))) (if (let () (declare (not safe)) - (equal? _e2785928098_ + (equal? _e2803628275_ 'struct:)) - (___kont4524145242_) + (___kont4541845419_) (if (let () (declare (not safe)) - (equal? _e2785928098_ + (equal? _e2803628275_ 'class:)) - (___kont4524145242_) + (___kont4541845419_) (if (let () (declare (not safe)) - (equal? _e2785928098_ + (equal? _e2803628275_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:)) - (___kont4524145242_) + (___kont4541845419_) (if (let () (declare (not safe)) - (equal? _e2785928098_ 'var:)) - (___kont4523945240_ _hd2785328159_) - (___kont4524145242_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4524145242_)))))) - (___match4526745268_ - (lambda (_e2780628409_ - _hd2780528413_ - _tl2780428416_) - (let ((_L28419_ _tl2780428416_) - (_L28421_ _hd2780528413_)) - (if (or (gx#stx-eq? 'and: _L28421_) - (gx#stx-eq? 'or: _L28421_)) - (___kont4522145222_ _L28419_ _L28421_) - (if (gx#stx-datum? _hd2780528413_) - (let ((_e2781128374_ - (gx#stx-e _hd2780528413_))) + (equal? _e2803628275_ 'var:)) + (___kont4541645417_ _hd2803028336_) + (___kont4541845419_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4541845419_)))))) + (___match4544445445_ + (lambda (_e2798328586_ + _hd2798228590_ + _tl2798128593_) + (let ((_L28596_ _tl2798128593_) + (_L28598_ _hd2798228590_)) + (if (or (gx#stx-eq? 'and: _L28598_) + (gx#stx-eq? 'or: _L28598_)) + (___kont4539845399_ _L28596_ _L28598_) + (if (gx#stx-datum? _hd2798228590_) + (let ((_e2798828551_ + (gx#stx-e _hd2798228590_))) (if (let () (declare (not safe)) - (equal? _e2781128374_ + (equal? _e2798828551_ 'not:)) (if (gx#stx-pair? - _tl2780428416_) - (let ((_e2781428378_ + _tl2798128593_) + (let ((_e2799128555_ (gx#syntax-e - _tl2780428416_))) - (let ((_tl2781228385_ + _tl2798128593_))) + (let ((_tl2798928562_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2781428378_))) - (_hd2781328382_ - (let () (declare (not safe)) (##car _e2781428378_)))) - (if (gx#stx-null? _tl2781228385_) - (___kont4522345224_ _hd2781328382_) - (___kont4524145242_)))) - (___kont4524145242_)) + (##cdr _e2799128555_))) + (_hd2799028559_ + (let () (declare (not safe)) (##car _e2799128555_)))) + (if (gx#stx-null? _tl2798928562_) + (___kont4540045401_ _hd2799028559_) + (___kont4541845419_)))) + (___kont4541845419_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (equal? _e2781128374_ + (equal? _e2798828551_ 'cons:)) (if (gx#stx-pair? - _tl2780428416_) - (let ((_e2782328314_ + _tl2798128593_) + (let ((_e2800028491_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2780428416_))) - (let ((_tl2782128321_ - (let () (declare (not safe)) (##cdr _e2782328314_))) - (_hd2782228318_ + (gx#syntax-e _tl2798128593_))) + (let ((_tl2799828498_ + (let () (declare (not safe)) (##cdr _e2800028491_))) + (_hd2799928495_ (let () (declare (not safe)) - (##car _e2782328314_)))) - (if (gx#stx-pair? _tl2782128321_) - (let ((_e2782628324_ (gx#syntax-e _tl2782128321_))) - (let ((_tl2782428331_ + (##car _e2800028491_)))) + (if (gx#stx-pair? _tl2799828498_) + (let ((_e2800328501_ (gx#syntax-e _tl2799828498_))) + (let ((_tl2800128508_ (let () (declare (not safe)) - (##cdr _e2782628324_))) - (_hd2782528328_ + (##cdr _e2800328501_))) + (_hd2800228505_ (let () (declare (not safe)) - (##car _e2782628324_)))) - (if (gx#stx-null? _tl2782428331_) - (___kont4522545226_ - _hd2782528328_ - _hd2782228318_) - (___kont4524145242_)))) - (if (gx#stx-null? _tl2782128321_) - (___match4537345374_ - _e2780628409_ - _hd2780528413_ - _tl2780428416_ - _e2782328314_ - _hd2782228318_ - _tl2782128321_) - (___kont4524145242_))))) - (___kont4524145242_)) - (if (let () (declare (not safe)) (equal? _e2781128374_ 'splice:)) - (if (gx#stx-pair? _tl2780428416_) - (let ((_e2783528250_ (gx#syntax-e _tl2780428416_))) - (let ((_tl2783328257_ + (##car _e2800328501_)))) + (if (gx#stx-null? _tl2800128508_) + (___kont4540245403_ + _hd2800228505_ + _hd2799928495_) + (___kont4541845419_)))) + (if (gx#stx-null? _tl2799828498_) + (___match4555045551_ + _e2798328586_ + _hd2798228590_ + _tl2798128593_ + _e2800028491_ + _hd2799928495_ + _tl2799828498_) + (___kont4541845419_))))) + (___kont4541845419_)) + (if (let () (declare (not safe)) (equal? _e2798828551_ 'splice:)) + (if (gx#stx-pair? _tl2798128593_) + (let ((_e2801228427_ (gx#syntax-e _tl2798128593_))) + (let ((_tl2801028434_ (let () (declare (not safe)) - (##cdr _e2783528250_))) - (_hd2783428254_ + (##cdr _e2801228427_))) + (_hd2801128431_ (let () (declare (not safe)) - (##car _e2783528250_)))) - (if (gx#stx-pair? _tl2783328257_) - (let ((_e2783828260_ - (gx#syntax-e _tl2783328257_))) - (let ((_tl2783628267_ + (##car _e2801228427_)))) + (if (gx#stx-pair? _tl2801028434_) + (let ((_e2801528437_ + (gx#syntax-e _tl2801028434_))) + (let ((_tl2801328444_ (let () (declare (not safe)) - (##cdr _e2783828260_))) - (_hd2783728264_ + (##cdr _e2801528437_))) + (_hd2801428441_ (let () (declare (not safe)) - (##car _e2783828260_)))) - (if (gx#stx-null? _tl2783628267_) - (___kont4522745228_ - _hd2783728264_ - _hd2783428254_) - (___kont4524145242_)))) - (if (gx#stx-null? _tl2783328257_) - (___match4537345374_ - _e2780628409_ - _hd2780528413_ - _tl2780428416_ - _e2783528250_ - _hd2783428254_ - _tl2783328257_) - (___kont4524145242_))))) - (___kont4524145242_)) + (##car _e2801528437_)))) + (if (gx#stx-null? _tl2801328444_) + (___kont4540445405_ + _hd2801428441_ + _hd2801128431_) + (___kont4541845419_)))) + (if (gx#stx-null? _tl2801028434_) + (___match4555045551_ + _e2798328586_ + _hd2798228590_ + _tl2798128593_ + _e2801228427_ + _hd2801128431_ + _tl2801028434_) + (___kont4541845419_))))) + (___kont4541845419_)) (if (let () (declare (not safe)) - (equal? _e2781128374_ 'box:)) - (if (gx#stx-pair? _tl2780428416_) - (let ((_e2784628205_ (gx#syntax-e _tl2780428416_))) - (let ((_tl2784428212_ + (equal? _e2798828551_ 'box:)) + (if (gx#stx-pair? _tl2798128593_) + (let ((_e2802328382_ (gx#syntax-e _tl2798128593_))) + (let ((_tl2802128389_ (let () (declare (not safe)) - (##cdr _e2784628205_))) - (_hd2784528209_ + (##cdr _e2802328382_))) + (_hd2802228386_ (let () (declare (not safe)) - (##car _e2784628205_)))) - (if (gx#stx-null? _tl2784428212_) - (___kont4522945230_ _hd2784528209_) - (___kont4524145242_)))) - (___kont4524145242_)) - (if (gx#stx-pair? _tl2780428416_) - (let ((_e2785428155_ (gx#syntax-e _tl2780428416_))) - (let ((_tl2785228162_ + (##car _e2802328382_)))) + (if (gx#stx-null? _tl2802128389_) + (___kont4540645407_ _hd2802228386_) + (___kont4541845419_)))) + (___kont4541845419_)) + (if (gx#stx-pair? _tl2798128593_) + (let ((_e2803128332_ (gx#syntax-e _tl2798128593_))) + (let ((_tl2802928339_ (let () (declare (not safe)) - (##cdr _e2785428155_))) - (_hd2785328159_ + (##cdr _e2803128332_))) + (_hd2803028336_ (let () (declare (not safe)) - (##car _e2785428155_)))) - (if (gx#stx-null? _tl2785228162_) - (___match4537345374_ - _e2780628409_ - _hd2780528413_ - _tl2780428416_ - _e2785428155_ - _hd2785328159_ - _tl2785228162_) + (##car _e2803128332_)))) + (if (gx#stx-null? _tl2802928339_) + (___match4555045551_ + _e2798328586_ + _hd2798228590_ + _tl2798128593_ + _e2803128332_ + _hd2803028336_ + _tl2802928339_) (if (let () (declare (not safe)) - (equal? _e2781128374_ 'struct:)) - (if (gx#stx-pair? _tl2785228162_) - (let ((_e2786528112_ - (gx#syntax-e _tl2785228162_))) - (let ((_tl2786328119_ + (equal? _e2798828551_ 'struct:)) + (if (gx#stx-pair? _tl2802928339_) + (let ((_e2804228289_ + (gx#syntax-e _tl2802928339_))) + (let ((_tl2804028296_ (let () (declare (not safe)) - (##cdr _e2786528112_))) - (_hd2786428116_ + (##cdr _e2804228289_))) + (_hd2804128293_ (let () (declare (not safe)) - (##car _e2786528112_)))) - (if (gx#stx-null? _tl2786328119_) - (___kont4523345234_ - _hd2786428116_) - (___kont4524145242_)))) - (___kont4524145242_)) + (##car _e2804228289_)))) + (if (gx#stx-null? _tl2804028296_) + (___kont4541045411_ + _hd2804128293_) + (___kont4541845419_)))) + (___kont4541845419_)) (if (let () (declare (not safe)) - (equal? _e2781128374_ 'class:)) - (if (gx#stx-pair? _tl2785228162_) - (let ((_e2787628055_ + (equal? _e2798828551_ 'class:)) + (if (gx#stx-pair? _tl2802928339_) + (let ((_e2805328232_ (gx#syntax-e - _tl2785228162_))) - (let ((_tl2787428062_ + _tl2802928339_))) + (let ((_tl2805128239_ (let () (declare (not safe)) - (##cdr _e2787628055_))) - (_hd2787528059_ + (##cdr _e2805328232_))) + (_hd2805228236_ (let () (declare (not safe)) - (##car _e2787628055_)))) + (##car _e2805328232_)))) (if (gx#stx-null? - _tl2787428062_) - (___kont4523545236_ - _hd2787528059_) - (___kont4524145242_)))) - (___kont4524145242_)) + _tl2805128239_) + (___kont4541245413_ + _hd2805228236_) + (___kont4541845419_)))) + (___kont4541845419_)) (if (let () (declare (not safe)) - (equal? _e2781128374_ 'apply:)) - (if (gx#stx-pair? _tl2785228162_) - (let ((_e2788827996_ + (equal? _e2798828551_ 'apply:)) + (if (gx#stx-pair? _tl2802928339_) + (let ((_e2806528173_ (gx#syntax-e - _tl2785228162_))) - (let ((_tl2788628003_ + _tl2802928339_))) + (let ((_tl2806328180_ (let () (declare (not safe)) - (##cdr _e2788827996_))) - (_hd2788728000_ + (##cdr _e2806528173_))) + (_hd2806428177_ (let () (declare (not safe)) - (##car _e2788827996_)))) + (##car _e2806528173_)))) (if (gx#stx-null? - _tl2788628003_) - (___kont4523745238_ - _hd2788728000_ - _hd2785328159_) - (___kont4524145242_)))) - (___kont4524145242_)) - (___kont4524145242_))))))) - (___kont4524145242_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl2780428416_) - (let ((_e2785428155_ + _tl2806328180_) + (___kont4541445415_ + _hd2806428177_ + _hd2803028336_) + (___kont4541845419_)))) + (___kont4541845419_)) + (___kont4541845419_))))))) + (___kont4541845419_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _tl2798128593_) + (let ((_e2803128332_ (gx#syntax-e - _tl2780428416_))) - (let ((_tl2785228162_ + _tl2798128593_))) + (let ((_tl2802928339_ (let () (declare (not safe)) - (##cdr _e2785428155_))) - (_hd2785328159_ + (##cdr _e2803128332_))) + (_hd2803028336_ (let () (declare (not safe)) - (##car _e2785428155_)))) + (##car _e2803128332_)))) (if (gx#stx-null? - _tl2785228162_) - (___match4537345374_ - _e2780628409_ - _hd2780528413_ - _tl2780428416_ - _e2785428155_ - _hd2785328159_ - _tl2785228162_) - (___kont4524145242_)))) - (___kont4524145242_)))))))) - (if (gx#stx-pair? ___stx4521645217_) - (let ((_e2779728508_ - (gx#syntax-e ___stx4521645217_))) - (let ((_tl2779528515_ + _tl2802928339_) + (___match4555045551_ + _e2798328586_ + _hd2798228590_ + _tl2798128593_ + _e2803128332_ + _hd2803028336_ + _tl2802928339_) + (___kont4541845419_)))) + (___kont4541845419_)))))))) + (if (gx#stx-pair? ___stx4539345394_) + (let ((_e2797428685_ + (gx#syntax-e ___stx4539345394_))) + (let ((_tl2797228692_ (let () (declare (not safe)) - (##cdr _e2779728508_))) - (_hd2779628512_ + (##cdr _e2797428685_))) + (_hd2797328689_ (let () (declare (not safe)) - (##car _e2779728508_)))) - (if (gx#stx-datum? _hd2779628512_) - (let ((_e2779828518_ - (gx#stx-e _hd2779628512_))) + (##car _e2797428685_)))) + (if (gx#stx-datum? _hd2797328689_) + (let ((_e2797528695_ + (gx#stx-e _hd2797328689_))) (if (let () (declare (not safe)) - (equal? _e2779828518_ '?:)) - (if (gx#stx-pair? _tl2779528515_) - (let ((_e2780128522_ + (equal? _e2797528695_ '?:)) + (if (gx#stx-pair? _tl2797228692_) + (let ((_e2797828699_ (gx#syntax-e - _tl2779528515_))) - (let ((_tl2779928529_ + _tl2797228692_))) + (let ((_tl2797628706_ (let () (declare (not safe)) - (##cdr _e2780128522_))) - (_hd2780028526_ + (##cdr _e2797828699_))) + (_hd2797728703_ (let () (declare (not safe)) - (##car _e2780128522_)))) - (___kont4521945220_ - _tl2779928529_))) - (___match4526745268_ - _e2779728508_ - _hd2779628512_ - _tl2779528515_)) - (___match4526745268_ - _e2779728508_ - _hd2779628512_ - _tl2779528515_))) - (___match4526745268_ - _e2779728508_ - _hd2779628512_ - _tl2779528515_)))) - (___kont4524145242_))))))) - (_loop-vector27491_ - (lambda (_body27652_ _vars27654_ _K27655_) - (let* ((___stx4547445475_ _body27652_) - (_g2765827681_ + (##car _e2797828699_)))) + (___kont4539645397_ + _tl2797628706_))) + (___match4544445445_ + _e2797428685_ + _hd2797328689_ + _tl2797228692_)) + (___match4544445445_ + _e2797428685_ + _hd2797328689_ + _tl2797228692_))) + (___match4544445445_ + _e2797428685_ + _hd2797328689_ + _tl2797228692_)))) + (___kont4541845419_))))))) + (_loop-vector27668_ + (lambda (_body27829_ _vars27831_ _K27832_) + (let* ((___stx4565145652_ _body27829_) + (_g2783527858_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4547445475_)))) - (let ((___kont4547745478_ - (lambda (_L27758_) + ___stx4565145652_)))) + (let ((___kont4565445655_ + (lambda (_L27935_) (let () (declare (not safe)) - (_loop-list27492_ - _L27758_ - _vars27654_ - _K27655_)))) - (___kont4547945480_ - (lambda (_L27712_) + (_loop-list27669_ + _L27935_ + _vars27831_ + _K27832_)))) + (___kont4565645657_ + (lambda (_L27889_) (let () (declare (not safe)) - (_loop27489_ - _L27712_ - _vars27654_ - _K27655_))))) - (if (gx#stx-pair? ___stx4547445475_) - (let ((_e2766327734_ - (gx#syntax-e ___stx4547445475_))) - (let ((_tl2766127741_ + (_loop27666_ + _L27889_ + _vars27831_ + _K27832_))))) + (if (gx#stx-pair? ___stx4565145652_) + (let ((_e2784027911_ + (gx#syntax-e ___stx4565145652_))) + (let ((_tl2783827918_ (let () (declare (not safe)) - (##cdr _e2766327734_))) - (_hd2766227738_ + (##cdr _e2784027911_))) + (_hd2783927915_ (let () (declare (not safe)) - (##car _e2766327734_)))) - (if (gx#stx-datum? _hd2766227738_) - (let ((_e2766427744_ - (gx#stx-e _hd2766227738_))) + (##car _e2784027911_)))) + (if (gx#stx-datum? _hd2783927915_) + (let ((_e2784127921_ + (gx#stx-e _hd2783927915_))) (if (let () (declare (not safe)) - (equal? _e2766427744_ 'simple:)) - (if (gx#stx-pair? _tl2766127741_) - (let ((_e2766727748_ + (equal? _e2784127921_ 'simple:)) + (if (gx#stx-pair? _tl2783827918_) + (let ((_e2784427925_ (gx#syntax-e - _tl2766127741_))) - (let ((_tl2766527755_ + _tl2783827918_))) + (let ((_tl2784227932_ (let () (declare (not safe)) - (##cdr _e2766727748_))) - (_hd2766627752_ + (##cdr _e2784427925_))) + (_hd2784327929_ (let () (declare (not safe)) - (##car _e2766727748_)))) + (##car _e2784427925_)))) (if (gx#stx-null? - _tl2766527755_) - (___kont4547745478_ - _hd2766627752_) + _tl2784227932_) + (___kont4565445655_ + _hd2784327929_) (let () (declare (not safe)) - (_g2765827681_))))) + (_g2783527858_))))) (let () (declare (not safe)) - (_g2765827681_))) + (_g2783527858_))) (if (let () (declare (not safe)) - (equal? _e2766427744_ 'list:)) - (if (gx#stx-pair? _tl2766127741_) - (let ((_e2767527702_ + (equal? _e2784127921_ 'list:)) + (if (gx#stx-pair? _tl2783827918_) + (let ((_e2785227879_ (gx#syntax-e - _tl2766127741_))) - (let ((_tl2767327709_ + _tl2783827918_))) + (let ((_tl2785027886_ (let () (declare (not safe)) - (##cdr _e2767527702_))) - (_hd2767427706_ + (##cdr _e2785227879_))) + (_hd2785127883_ (let () (declare (not safe)) - (##car _e2767527702_)))) + (##car _e2785227879_)))) (if (gx#stx-null? - _tl2767327709_) - (___kont4547945480_ - _hd2767427706_) + _tl2785027886_) + (___kont4565645657_ + _hd2785127883_) (let () (declare (not safe)) - (_g2765827681_))))) + (_g2783527858_))))) (let () (declare (not safe)) - (_g2765827681_))) + (_g2783527858_))) (let () (declare (not safe)) - (_g2765827681_))))) + (_g2783527858_))))) (let () (declare (not safe)) - (_g2765827681_))))) - (let () (declare (not safe)) (_g2765827681_))))))) - (_loop-list27492_ - (lambda (_rest27582_ _vars27584_ _K27585_) - (let* ((___stx4552445525_ _rest27582_) - (_g2758827600_ + (_g2783527858_))))) + (let () (declare (not safe)) (_g2783527858_))))))) + (_loop-list27669_ + (lambda (_rest27759_ _vars27761_ _K27762_) + (let* ((___stx4570145702_ _rest27759_) + (_g2776527777_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4552445525_)))) - (let ((___kont4552745528_ - (lambda (_L27628_ _L27630_) - (let ((__tmp49987 - (lambda (_g2764227644_) + ___stx4570145702_)))) + (let ((___kont4570445705_ + (lambda (_L27805_ _L27807_) + (let ((__tmp50198 + (lambda (_g2781927821_) (let () (declare (not safe)) - (_loop-list27492_ - _L27628_ - _g2764227644_ - _K27585_))))) + (_loop-list27669_ + _L27805_ + _g2781927821_ + _K27762_))))) (declare (not safe)) - (_loop27489_ - _L27630_ - _vars27584_ - __tmp49987)))) - (___kont4552945530_ - (lambda () (_K27585_ _vars27584_)))) - (if (gx#stx-pair? ___stx4552445525_) - (let ((_e2759427618_ - (gx#syntax-e ___stx4552445525_))) - (let ((_tl2759227625_ + (_loop27666_ + _L27807_ + _vars27761_ + __tmp50198)))) + (___kont4570645707_ + (lambda () (_K27762_ _vars27761_)))) + (if (gx#stx-pair? ___stx4570145702_) + (let ((_e2777127795_ + (gx#syntax-e ___stx4570145702_))) + (let ((_tl2776927802_ (let () (declare (not safe)) - (##cdr _e2759427618_))) - (_hd2759327622_ + (##cdr _e2777127795_))) + (_hd2777027799_ (let () (declare (not safe)) - (##car _e2759427618_)))) - (___kont4552745528_ - _tl2759227625_ - _hd2759327622_))) - (___kont4552945530_)))))) - (_loop-class-list27493_ - (lambda (_rest27495_ _vars27497_ _K27498_) - (let* ((___stx4554045541_ _rest27495_) - (_g2750127516_ + (##car _e2777127795_)))) + (___kont4570445705_ + _tl2776927802_ + _hd2777027799_))) + (___kont4570645707_)))))) + (_loop-class-list27670_ + (lambda (_rest27672_ _vars27674_ _K27675_) + (let* ((___stx4571745718_ _rest27672_) + (_g2767827693_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4554045541_)))) - (let ((___kont4554345544_ - (lambda (_L27554_ _L27556_) - (let ((__tmp49988 - (lambda (_g2757227574_) + ___stx4571745718_)))) + (let ((___kont4572045721_ + (lambda (_L27731_ _L27733_) + (let ((__tmp50199 + (lambda (_g2774927751_) (let () (declare (not safe)) - (_loop-class-list27493_ - _L27554_ - _g2757227574_ - _K27498_))))) + (_loop-class-list27670_ + _L27731_ + _g2774927751_ + _K27675_))))) (declare (not safe)) - (_loop27489_ - _L27556_ - _vars27497_ - __tmp49988)))) - (___kont4554545546_ - (lambda () (_K27498_ _vars27497_)))) - (if (gx#stx-pair? ___stx4554045541_) - (let ((_e2750727534_ - (gx#syntax-e ___stx4554045541_))) - (let ((_tl2750527541_ + (_loop27666_ + _L27733_ + _vars27674_ + __tmp50199)))) + (___kont4572245723_ + (lambda () (_K27675_ _vars27674_)))) + (if (gx#stx-pair? ___stx4571745718_) + (let ((_e2768427711_ + (gx#syntax-e ___stx4571745718_))) + (let ((_tl2768227718_ (let () (declare (not safe)) - (##cdr _e2750727534_))) - (_hd2750627538_ + (##cdr _e2768427711_))) + (_hd2768327715_ (let () (declare (not safe)) - (##car _e2750727534_)))) - (if (gx#stx-pair? _tl2750527541_) - (let ((_e2751027544_ - (gx#syntax-e _tl2750527541_))) - (let ((_tl2750827551_ + (##car _e2768427711_)))) + (if (gx#stx-pair? _tl2768227718_) + (let ((_e2768727721_ + (gx#syntax-e _tl2768227718_))) + (let ((_tl2768527728_ (let () (declare (not safe)) - (##cdr _e2751027544_))) - (_hd2750927548_ + (##cdr _e2768727721_))) + (_hd2768627725_ (let () (declare (not safe)) - (##car _e2751027544_)))) - (___kont4554345544_ - _tl2750827551_ - _hd2750927548_))) - (___kont4554545546_)))) - (___kont4554545546_))))))) + (##car _e2768727721_)))) + (___kont4572045721_ + _tl2768527728_ + _hd2768627725_))) + (___kont4572245723_)))) + (___kont4572245723_))))))) (let () (declare (not safe)) - (_loop27489_ _ptree27486_ '() values))))) + (_loop27666_ _ptree27663_ '() values))))) (define |gerbil/core$[1]#generate-match1| - (lambda (_stx24447_ _tgt24449_ _ptree24450_ _K24451_ _E24452_) - (letrec ((_generate124454_ - (lambda (_tgt25699_ _ptree25701_ _K25702_ _E25703_) - (let* ((_g2570525713_ - (lambda (_g2570625709_) + (lambda (_stx24624_ _tgt24626_ _ptree24627_ _K24628_ _E24629_) + (letrec ((_generate124631_ + (lambda (_tgt25876_ _ptree25878_ _K25879_ _E25880_) + (let* ((_g2588225890_ + (lambda (_g2588325886_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2570625709_))) - (_g2570427482_ - (lambda (_g2570625717_) - ((lambda (_L25720_) + _g2588325886_))) + (_g2588127659_ + (lambda (_g2588325894_) + ((lambda (_L25897_) (let () - (let* ((___stx4577645777_ _ptree25701_) - (_g2574725889_ + (let* ((___stx4595345954_ _ptree25878_) + (_g2592426066_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4577645777_)))) - (let ((___kont4577945780_ - (lambda (_L27197_ _L27199_) - (let* ((___stx4569445695_ - _L27197_) - (_g2721627251_ + ___stx4595345954_)))) + (let ((___kont4595645957_ + (lambda (_L27374_ _L27376_) + (let* ((___stx4587145872_ + _L27374_) + (_g2739327428_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4569445695_)))) - (let ((___kont4569745698_ + ___stx4587145872_)))) + (let ((___kont4587445875_ (lambda () - (let ((__tmp49989 - (let ((__tmp49992 + (let ((__tmp50200 + (let ((__tmp50203 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49995 (gx#datum->syntax '#f '?)) - (__tmp49993 - (let ((__tmp49994 + (let ((__tmp50206 (gx#datum->syntax '#f '?)) + (__tmp50204 + (let ((__tmp50205 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons _L27199_ __tmp49994)))) + (cons _L27376_ __tmp50205)))) (declare (not safe)) - (cons __tmp49995 __tmp49993))) - (__tmp49990 - (let ((__tmp49991 + (cons __tmp50206 __tmp50204))) + (__tmp50201 + (let ((__tmp50202 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons _K25702_ __tmp49991)))) + (cons _K25879_ __tmp50202)))) (declare (not safe)) - (cons __tmp49992 __tmp49990)))) + (cons __tmp50203 __tmp50201)))) (declare (not safe)) - (cons 'if __tmp49989)))) - (___kont4569945700_ - (lambda (_L27452_) - (let ((__tmp49996 - (let ((__tmp50000 - (let ((__tmp50003 (gx#datum->syntax '#f '?)) - (__tmp50001 - (let ((__tmp50002 + (cons 'if __tmp50200)))) + (___kont4587645877_ + (lambda (_L27629_) + (let ((__tmp50207 + (let ((__tmp50211 + (let ((__tmp50214 (gx#datum->syntax '#f '?)) + (__tmp50212 + (let ((__tmp50213 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons _L27199_ __tmp50002)))) + (cons _L27376_ __tmp50213)))) (declare (not safe)) - (cons __tmp50003 __tmp50001))) - (__tmp49997 - (let ((__tmp49999 + (cons __tmp50214 __tmp50212))) + (__tmp50208 + (let ((__tmp50210 (let () (declare (not safe)) - (_generate124454_ - _tgt25699_ - _L27452_ - _K25702_ - _E25703_))) - (__tmp49998 + (_generate124631_ + _tgt25876_ + _L27629_ + _K25879_ + _E25880_))) + (__tmp50209 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp49999 __tmp49998)))) + (cons __tmp50210 __tmp50209)))) (declare (not safe)) - (cons __tmp50000 __tmp49997)))) + (cons __tmp50211 __tmp50208)))) (declare (not safe)) - (cons 'if __tmp49996)))) - (___kont4570145702_ - (lambda (_L27390_) - (let* ((_g2740427412_ - (lambda (_g2740527408_) + (cons 'if __tmp50207)))) + (___kont4587845879_ + (lambda (_L27567_) + (let* ((_g2758127589_ + (lambda (_g2758227585_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2740527408_))) - (_g2740327431_ - (lambda (_g2740527416_) - ((lambda (_L27419_) + _g2758227585_))) + (_g2758027608_ + (lambda (_g2758227593_) + ((lambda (_L27596_) (let () - (let ((__tmp50004 - (let ((__tmp50011 - (let ((__tmp50012 - (let ((__tmp50013 - (let ((__tmp50014 + (let ((__tmp50215 + (let ((__tmp50222 + (let ((__tmp50223 + (let ((__tmp50224 + (let ((__tmp50225 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50015 + (let ((__tmp50226 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons _L27199_ __tmp50015)))) + (cons _L27376_ __tmp50226)))) (declare (not safe)) - (cons __tmp50014 '())))) + (cons __tmp50225 '())))) (declare (not safe)) - (cons _L27419_ __tmp50013)))) + (cons _L27596_ __tmp50224)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50012 '()))) - (__tmp50005 - (let ((__tmp50006 - (let ((__tmp50007 - (let ((__tmp50008 + (cons __tmp50223 '()))) + (__tmp50216 + (let ((__tmp50217 + (let ((__tmp50218 + (let ((__tmp50219 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50010 + (let ((__tmp50221 (let () (declare (not safe)) - (_generate124454_ - _L27419_ - _L27390_ - _K25702_ - _E25703_))) - (__tmp50009 + (_generate124631_ + _L27596_ + _L27567_ + _K25879_ + _E25880_))) + (__tmp50220 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50010 __tmp50009)))) + (cons __tmp50221 __tmp50220)))) (declare (not safe)) - (cons _L27419_ __tmp50008)))) + (cons _L27596_ __tmp50219)))) (declare (not safe)) - (cons 'if __tmp50007)))) + (cons 'if __tmp50218)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50006 '())))) + (cons __tmp50217 '())))) (declare (not safe)) - (cons __tmp50011 __tmp50005)))) + (cons __tmp50222 __tmp50216)))) (declare (not safe)) - (cons 'let __tmp50004)))) - _g2740527416_))) - (__tmp50016 (gx#genident 'e))) + (cons 'let __tmp50215)))) + _g2758227593_))) + (__tmp50227 (gx#genident 'e))) (declare (not safe)) - (_g2740327431_ __tmp50016)))) - (___kont4570345704_ - (lambda (_L27306_ _L27308_) - (let* ((_g2732827336_ - (lambda (_g2732927332_) + (_g2758027608_ __tmp50227)))) + (___kont4588045881_ + (lambda (_L27483_ _L27485_) + (let* ((_g2750527513_ + (lambda (_g2750627509_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2732927332_))) - (_g2732727355_ - (lambda (_g2732927340_) - ((lambda (_L27343_) + _g2750627509_))) + (_g2750427532_ + (lambda (_g2750627517_) + ((lambda (_L27520_) (let () - (let ((__tmp50017 - (let ((__tmp50029 - (let ((__tmp50032 + (let ((__tmp50228 + (let ((__tmp50240 + (let ((__tmp50243 (gx#datum->syntax '#f '?)) - (__tmp50030 - (let ((__tmp50031 + (__tmp50241 + (let ((__tmp50242 (let () (declare (not safe)) - (cons _L25720_ + (cons _L25897_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L27199_ __tmp50031)))) + (cons _L27376_ __tmp50242)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50032 __tmp50030))) - (__tmp50018 - (let ((__tmp50020 - (let ((__tmp50021 - (let ((__tmp50024 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50025 - (let ((__tmp50026 - (let ((__tmp50027 - (let ((__tmp50028 + (cons __tmp50243 __tmp50241))) + (__tmp50229 + (let ((__tmp50231 + (let ((__tmp50232 + (let ((__tmp50235 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50236 + (let ((__tmp50237 + (let ((__tmp50238 + (let ((__tmp50239 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons _L27308_ __tmp50028)))) + (cons _L27485_ __tmp50239)))) (declare (not safe)) - (cons __tmp50027 '())))) + (cons __tmp50238 '())))) (declare (not safe)) - (cons _L27343_ __tmp50026)))) + (cons _L27520_ __tmp50237)))) (declare (not safe)) - (cons __tmp50025 '()))) - (__tmp50022 - (let ((__tmp50023 + (cons __tmp50236 '()))) + (__tmp50233 + (let ((__tmp50234 (let () (declare (not safe)) - (_generate124454_ - _L27343_ - _L27306_ - _K25702_ - _E25703_)))) + (_generate124631_ + _L27520_ + _L27483_ + _K25879_ + _E25880_)))) (declare (not safe)) - (cons __tmp50023 '())))) + (cons __tmp50234 '())))) (declare (not safe)) - (cons __tmp50024 __tmp50022)))) + (cons __tmp50235 __tmp50233)))) (declare (not safe)) - (cons 'let __tmp50021))) + (cons 'let __tmp50232))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50019 + (__tmp50230 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50020 __tmp50019)))) + (cons __tmp50231 __tmp50230)))) (declare (not safe)) - (cons __tmp50029 __tmp50018)))) + (cons __tmp50240 __tmp50229)))) (declare (not safe)) - (cons 'if __tmp50017)))) - _g2732927340_))) - (__tmp50033 (gx#genident 'e))) + (cons 'if __tmp50228)))) + _g2750627517_))) + (__tmp50244 (gx#genident 'e))) (declare (not safe)) - (_g2732727355_ __tmp50033))))) + (_g2750427532_ __tmp50244))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g2721327463_ + (let ((_g2739027640_ (lambda () (if (gx#stx-pair? - ___stx4569445695_) - (let ((_e2722127442_ + ___stx4587145872_) + (let ((_e2739827619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e ___stx4569445695_))) - (let ((_tl2721927449_ + (gx#syntax-e ___stx4587145872_))) + (let ((_tl2739627626_ (let () (declare (not safe)) - (##cdr _e2722127442_))) - (_hd2722027446_ + (##cdr _e2739827619_))) + (_hd2739727623_ (let () (declare (not safe)) - (##car _e2722127442_)))) - (if (gx#stx-null? _tl2721927449_) - (___kont4569945700_ _hd2722027446_) - (if (gx#stx-datum? _hd2722027446_) - (let ((_e2722627376_ - (gx#stx-e _hd2722027446_))) + (##car _e2739827619_)))) + (if (gx#stx-null? _tl2739627626_) + (___kont4587645877_ _hd2739727623_) + (if (gx#stx-datum? _hd2739727623_) + (let ((_e2740327553_ + (gx#stx-e _hd2739727623_))) (if (let () (declare (not safe)) - (equal? _e2722627376_ '=>:)) - (if (gx#stx-pair? _tl2721927449_) - (let ((_e2722927380_ + (equal? _e2740327553_ '=>:)) + (if (gx#stx-pair? _tl2739627626_) + (let ((_e2740627557_ (gx#syntax-e - _tl2721927449_))) - (let ((_tl2722727387_ + _tl2739627626_))) + (let ((_tl2740427564_ (let () (declare (not safe)) - (##cdr _e2722927380_))) - (_hd2722827384_ + (##cdr _e2740627557_))) + (_hd2740527561_ (let () (declare (not safe)) - (##car _e2722927380_)))) + (##car _e2740627557_)))) (if (gx#stx-null? - _tl2722727387_) - (___kont4570145702_ - _hd2722827384_) + _tl2740427564_) + (___kont4587845879_ + _hd2740527561_) (let () (declare (not safe)) - (_g2721627251_))))) + (_g2739327428_))))) (let () (declare (not safe)) - (_g2721627251_))) + (_g2739327428_))) (if (let () (declare (not safe)) - (equal? _e2722627376_ '::)) - (if (gx#stx-pair? _tl2721927449_) - (let ((_e2723827272_ + (equal? _e2740327553_ '::)) + (if (gx#stx-pair? _tl2739627626_) + (let ((_e2741527449_ (gx#syntax-e - _tl2721927449_))) - (let ((_tl2723627279_ + _tl2739627626_))) + (let ((_tl2741327456_ (let () (declare (not safe)) - (##cdr _e2723827272_))) - (_hd2723727276_ + (##cdr _e2741527449_))) + (_hd2741427453_ (let () (declare (not safe)) - (##car _e2723827272_)))) + (##car _e2741527449_)))) (if (gx#stx-pair? - _tl2723627279_) - (let ((_e2724127282_ + _tl2741327456_) + (let ((_e2741827459_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2723627279_))) - (let ((_tl2723927289_ - (let () (declare (not safe)) (##cdr _e2724127282_))) - (_hd2724027286_ - (let () (declare (not safe)) (##car _e2724127282_)))) - (if (gx#stx-datum? _hd2724027286_) - (let ((_e2724227292_ (gx#stx-e _hd2724027286_))) + _tl2741327456_))) + (let ((_tl2741627466_ + (let () (declare (not safe)) (##cdr _e2741827459_))) + (_hd2741727463_ + (let () (declare (not safe)) (##car _e2741827459_)))) + (if (gx#stx-datum? _hd2741727463_) + (let ((_e2741927469_ (gx#stx-e _hd2741727463_))) (if (let () (declare (not safe)) - (equal? _e2724227292_ '=>:)) - (if (gx#stx-pair? _tl2723927289_) - (let ((_e2724527296_ - (gx#syntax-e _tl2723927289_))) - (let ((_tl2724327303_ + (equal? _e2741927469_ '=>:)) + (if (gx#stx-pair? _tl2741627466_) + (let ((_e2742227473_ + (gx#syntax-e _tl2741627466_))) + (let ((_tl2742027480_ (let () (declare (not safe)) - (##cdr _e2724527296_))) - (_hd2724427300_ + (##cdr _e2742227473_))) + (_hd2742127477_ (let () (declare (not safe)) - (##car _e2724527296_)))) - (if (gx#stx-null? _tl2724327303_) - (___kont4570345704_ - _hd2724427300_ - _hd2723727276_) + (##car _e2742227473_)))) + (if (gx#stx-null? _tl2742027480_) + (___kont4588045881_ + _hd2742127477_ + _hd2741427453_) (let () (declare (not safe)) - (_g2721627251_))))) + (_g2739327428_))))) (let () (declare (not safe)) - (_g2721627251_))) - (let () (declare (not safe)) (_g2721627251_)))) - (let () (declare (not safe)) (_g2721627251_))))) - (let () (declare (not safe)) (_g2721627251_))))) + (_g2739327428_))) + (let () (declare (not safe)) (_g2739327428_)))) + (let () (declare (not safe)) (_g2739327428_))))) + (let () (declare (not safe)) (_g2739327428_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2721627251_))) + (_g2739327428_))) (let () (declare (not safe)) - (_g2721627251_))))) + (_g2739327428_))))) (let () (declare (not safe)) - (_g2721627251_)))))) - (let () (declare (not safe)) (_g2721627251_)))))) + (_g2739327428_)))))) + (let () (declare (not safe)) (_g2739327428_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - ___stx4569445695_) - (___kont4569745698_) + ___stx4587145872_) + (___kont4587445875_) (let () (declare (not safe)) - (_g2721327463_)))))))) - (___kont4578145782_ - (lambda (_L27094_) - (let* ((___stx4567845679_ - _L27094_) - (_g2710727119_ + (_g2739027640_)))))))) + (___kont4595845959_ + (lambda (_L27271_) + (let* ((___stx4585545856_ + _L27271_) + (_g2728427296_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4567845679_)))) - (let ((___kont4568145682_ - (lambda (_L27147_ - _L27149_) - (let ((__tmp50034 - (let ((__tmp50035 + ___stx4585545856_)))) + (let ((___kont4585845859_ + (lambda (_L27324_ + _L27326_) + (let ((__tmp50245 + (let ((__tmp50246 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons 'and: _L27147_)))) + (cons 'and: _L27324_)))) (declare (not safe)) - (_generate124454_ - _tgt25699_ - __tmp50035 - _K25702_ - _E25703_)))) + (_generate124631_ + _tgt25876_ + __tmp50246 + _K25879_ + _E25880_)))) (declare (not safe)) - (_generate124454_ - _tgt25699_ - _L27149_ - __tmp50034 - _E25703_)))) - (___kont4568345684_ (lambda () _K25702_))) + (_generate124631_ + _tgt25876_ + _L27326_ + __tmp50245 + _E25880_)))) + (___kont4586045861_ (lambda () _K25879_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4567845679_) - (let ((_e2711327137_ + ___stx4585545856_) + (let ((_e2729027314_ (gx#syntax-e - ___stx4567845679_))) - (let ((_tl2711127144_ + ___stx4585545856_))) + (let ((_tl2728827321_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2711327137_))) - (_hd2711227141_ - (let () (declare (not safe)) (##car _e2711327137_)))) - (___kont4568145682_ _tl2711127144_ _hd2711227141_))) - (___kont4568345684_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4578345784_ - (lambda (_L27001_) - (let* ((___stx4566245663_ - _L27001_) - (_g2701427026_ + (##cdr _e2729027314_))) + (_hd2728927318_ + (let () (declare (not safe)) (##car _e2729027314_)))) + (___kont4585845859_ _tl2728827321_ _hd2728927318_))) + (___kont4586045861_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4596045961_ + (lambda (_L27178_) + (let* ((___stx4583945840_ + _L27178_) + (_g2719127203_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4566245663_)))) - (let ((___kont4566545666_ - (lambda (_L27054_ - _L27056_) - (let ((__tmp50036 - (let ((__tmp50037 + ___stx4583945840_)))) + (let ((___kont4584245843_ + (lambda (_L27231_ + _L27233_) + (let ((__tmp50247 + (let ((__tmp50248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons 'or: _L27054_)))) + (cons 'or: _L27231_)))) (declare (not safe)) - (_generate124454_ - _tgt25699_ - __tmp50037 - _K25702_ - _E25703_)))) + (_generate124631_ + _tgt25876_ + __tmp50248 + _K25879_ + _E25880_)))) (declare (not safe)) - (_generate124454_ - _tgt25699_ - _L27056_ - _K25702_ - __tmp50036)))) - (___kont4566745668_ (lambda () _E25703_))) + (_generate124631_ + _tgt25876_ + _L27233_ + _K25879_ + __tmp50247)))) + (___kont4584445845_ (lambda () _E25880_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4566245663_) - (let ((_e2702027044_ + ___stx4583945840_) + (let ((_e2719727221_ (gx#syntax-e - ___stx4566245663_))) - (let ((_tl2701827051_ + ___stx4583945840_))) + (let ((_tl2719527228_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2702027044_))) - (_hd2701927048_ - (let () (declare (not safe)) (##car _e2702027044_)))) - (___kont4566545666_ _tl2701827051_ _hd2701927048_))) - (___kont4566745668_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4578545786_ - (lambda (_L26966_) + (##cdr _e2719727221_))) + (_hd2719627225_ + (let () (declare (not safe)) (##car _e2719727221_)))) + (___kont4584245843_ _tl2719527228_ _hd2719627225_))) + (___kont4584445845_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4596245963_ + (lambda (_L27143_) (let () (declare (not safe)) - (_generate124454_ - _tgt25699_ - _L26966_ - _E25703_ - _K25702_)))) - (___kont4578745788_ - (lambda (_L26848_ _L26850_) - (let* ((_g2686726882_ - (lambda (_g2686826878_) + (_generate124631_ + _tgt25876_ + _L27143_ + _E25880_ + _K25879_)))) + (___kont4596445965_ + (lambda (_L27025_ _L27027_) + (let* ((_g2704427059_ + (lambda (_g2704527055_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2686826878_))) - (_g2686626931_ - (lambda (_g2686826886_) + _g2704527055_))) + (_g2704327108_ + (lambda (_g2704527063_) (if (gx#stx-pair? - _g2686826886_) - (let ((_e2687326889_ + _g2704527063_) + (let ((_e2705027066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g2686826886_))) - (let ((_hd2687226893_ + (gx#syntax-e _g2704527063_))) + (let ((_hd2704927070_ (let () (declare (not safe)) - (##car _e2687326889_))) - (_tl2687126896_ + (##car _e2705027066_))) + (_tl2704827073_ (let () (declare (not safe)) - (##cdr _e2687326889_)))) - (if (gx#stx-pair? _tl2687126896_) - (let ((_e2687626899_ (gx#syntax-e _tl2687126896_))) - (let ((_hd2687526903_ + (##cdr _e2705027066_)))) + (if (gx#stx-pair? _tl2704827073_) + (let ((_e2705327076_ (gx#syntax-e _tl2704827073_))) + (let ((_hd2705227080_ (let () (declare (not safe)) - (##car _e2687626899_))) - (_tl2687426906_ + (##car _e2705327076_))) + (_tl2705127083_ (let () (declare (not safe)) - (##cdr _e2687626899_)))) - (if (gx#stx-null? _tl2687426906_) - ((lambda (_L26909_ _L26911_) + (##cdr _e2705327076_)))) + (if (gx#stx-null? _tl2705127083_) + ((lambda (_L27086_ _L27088_) (let () - (let ((__tmp50038 - (let ((__tmp50076 - (let ((__tmp50078 + (let ((__tmp50249 + (let ((__tmp50287 + (let ((__tmp50289 (gx#datum->syntax '#f '##pair?)) - (__tmp50077 + (__tmp50288 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50078 __tmp50077))) - (__tmp50039 - (let ((__tmp50041 - (let ((_hd-pat26927_ (gx#stx-e _L26850_)) - (_tl-pat26929_ (gx#stx-e _L26848_))) + (cons __tmp50289 __tmp50288))) + (__tmp50250 + (let ((__tmp50252 + (let ((_hd-pat27104_ (gx#stx-e _L27027_)) + (_tl-pat27106_ (gx#stx-e _L27025_))) (if (and (let () (declare (not safe)) - (equal? _hd-pat26927_ '(any:))) + (equal? _hd-pat27104_ '(any:))) (let () (declare (not safe)) - (equal? _tl-pat26929_ '(any:)))) - _K25702_ + (equal? _tl-pat27106_ '(any:)))) + _K25879_ (if (let () (declare (not safe)) - (equal? _tl-pat26929_ '(any:))) - (let ((__tmp50067 - (let ((__tmp50070 - (let ((__tmp50071 - (let ((__tmp50072 - (let ((__tmp50073 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50075 (gx#datum->syntax '#f '##car)) - (__tmp50074 + (equal? _tl-pat27106_ '(any:))) + (let ((__tmp50278 + (let ((__tmp50281 + (let ((__tmp50282 + (let ((__tmp50283 + (let ((__tmp50284 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50286 (gx#datum->syntax '#f '##car)) + (__tmp50285 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50075 __tmp50074)))) + (cons __tmp50286 __tmp50285)))) (declare (not safe)) - (cons __tmp50073 '())))) + (cons __tmp50284 '())))) (declare (not safe)) - (cons _L26911_ __tmp50072)))) + (cons _L27088_ __tmp50283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50071 '()))) - (__tmp50068 - (let ((__tmp50069 + (cons __tmp50282 '()))) + (__tmp50279 + (let ((__tmp50280 (let () (declare (not safe)) - (_generate124454_ - _L26911_ - _L26850_ - _K25702_ - _E25703_)))) + (_generate124631_ + _L27088_ + _L27027_ + _K25879_ + _E25880_)))) (declare (not safe)) - (cons __tmp50069 '())))) + (cons __tmp50280 '())))) (declare (not safe)) - (cons __tmp50070 __tmp50068)))) + (cons __tmp50281 __tmp50279)))) (declare (not safe)) - (cons 'let __tmp50067)) + (cons 'let __tmp50278)) (if (let () (declare (not safe)) - (equal? _hd-pat26927_ '(any:))) - (let ((__tmp50058 - (let ((__tmp50061 - (let ((__tmp50062 - (let ((__tmp50063 - (let ((__tmp50064 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50066 (gx#datum->syntax '#f '##cdr)) - (__tmp50065 + (equal? _hd-pat27104_ '(any:))) + (let ((__tmp50269 + (let ((__tmp50272 + (let ((__tmp50273 + (let ((__tmp50274 + (let ((__tmp50275 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50277 (gx#datum->syntax '#f '##cdr)) + (__tmp50276 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50066 __tmp50065)))) + (cons __tmp50277 __tmp50276)))) (declare (not safe)) - (cons __tmp50064 '())))) + (cons __tmp50275 '())))) (declare (not safe)) - (cons _L26909_ __tmp50063)))) + (cons _L27086_ __tmp50274)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50062 '()))) - (__tmp50059 - (let ((__tmp50060 + (cons __tmp50273 '()))) + (__tmp50270 + (let ((__tmp50271 (let () (declare (not safe)) - (_generate124454_ - _L26909_ - _L26848_ - _K25702_ - _E25703_)))) + (_generate124631_ + _L27086_ + _L27025_ + _K25879_ + _E25880_)))) (declare (not safe)) - (cons __tmp50060 '())))) + (cons __tmp50271 '())))) (declare (not safe)) - (cons __tmp50061 __tmp50059)))) + (cons __tmp50272 __tmp50270)))) (declare (not safe)) - (cons 'let __tmp50058)) - (let ((__tmp50042 - (let ((__tmp50046 - (let ((__tmp50053 - (let ((__tmp50054 - (let ((__tmp50055 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50057 (gx#datum->syntax '#f '##car)) - (__tmp50056 + (cons 'let __tmp50269)) + (let ((__tmp50253 + (let ((__tmp50257 + (let ((__tmp50264 + (let ((__tmp50265 + (let ((__tmp50266 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50268 (gx#datum->syntax '#f '##car)) + (__tmp50267 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50057 __tmp50056)))) + (cons __tmp50268 __tmp50267)))) (declare (not safe)) - (cons __tmp50055 '())))) + (cons __tmp50266 '())))) (declare (not safe)) - (cons _L26911_ __tmp50054))) - (__tmp50047 - (let ((__tmp50048 - (let ((__tmp50049 - (let ((__tmp50050 - (let ((__tmp50052 + (cons _L27088_ __tmp50265))) + (__tmp50258 + (let ((__tmp50259 + (let ((__tmp50260 + (let ((__tmp50261 + (let ((__tmp50263 (gx#datum->syntax '#f '##cdr)) - (__tmp50051 + (__tmp50262 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50052 __tmp50051)))) + (cons __tmp50263 __tmp50262)))) (declare (not safe)) - (cons __tmp50050 '())))) + (cons __tmp50261 '())))) (declare (not safe)) - (cons _L26909_ __tmp50049)))) + (cons _L27086_ __tmp50260)))) (declare (not safe)) - (cons __tmp50048 '())))) + (cons __tmp50259 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50053 - __tmp50047))) - (__tmp50043 - (let ((__tmp50044 - (let ((__tmp50045 + (cons __tmp50264 + __tmp50258))) + (__tmp50254 + (let ((__tmp50255 + (let ((__tmp50256 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_generate124454_ - _L26909_ - _L26848_ - _K25702_ - _E25703_)))) + (_generate124631_ + _L27086_ + _L27025_ + _K25879_ + _E25880_)))) (declare (not safe)) - (_generate124454_ _L26911_ _L26850_ __tmp50045 _E25703_)))) + (_generate124631_ _L27088_ _L27027_ __tmp50256 _E25880_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50044 '())))) + (cons __tmp50255 '())))) (declare (not safe)) - (cons __tmp50046 __tmp50043)))) + (cons __tmp50257 __tmp50254)))) (declare (not safe)) - (cons 'let __tmp50042))))))) - (__tmp50040 - (let () (declare (not safe)) (cons _E25703_ '())))) + (cons 'let __tmp50253))))))) + (__tmp50251 + (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50041 __tmp50040)))) + (cons __tmp50252 __tmp50251)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50076 - __tmp50039)))) + (cons __tmp50287 + __tmp50250)))) (declare (not safe)) - (cons 'if __tmp50038)))) - _hd2687526903_ - _hd2687226893_) + (cons 'if __tmp50249)))) + _hd2705227080_ + _hd2704927070_) (let () (declare (not safe)) - (_g2686726882_ _g2686826886_))))) + (_g2704427059_ _g2704527063_))))) (let () (declare (not safe)) - (_g2686726882_ _g2686826886_))))) + (_g2704427059_ _g2704527063_))))) (let () (declare (not safe)) - (_g2686726882_ _g2686826886_))))) + (_g2704427059_ _g2704527063_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50079 + (__tmp50290 (list (gx#genident 'hd) (gx#genident 'tl)))) (declare (not safe)) - (_g2686626931_ __tmp50079)))) - (___kont4578945790_ + (_g2704327108_ __tmp50290)))) + (___kont4596645967_ (lambda () - (let ((__tmp50080 - (let ((__tmp50083 - (let ((__tmp50085 + (let ((__tmp50291 + (let ((__tmp50294 + (let ((__tmp50296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##null?)) - (__tmp50084 - (let () (declare (not safe)) (cons _L25720_ '())))) + (__tmp50295 + (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50085 __tmp50084))) - (__tmp50081 - (let ((__tmp50082 - (let () (declare (not safe)) (cons _E25703_ '())))) + (cons __tmp50296 __tmp50295))) + (__tmp50292 + (let ((__tmp50293 + (let () (declare (not safe)) (cons _E25880_ '())))) (declare (not safe)) - (cons _K25702_ __tmp50082)))) + (cons _K25879_ __tmp50293)))) (declare (not safe)) - (cons __tmp50083 __tmp50081)))) + (cons __tmp50294 __tmp50292)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp50080)))) - (___kont4579145792_ - (lambda (_L26764_ _L26766_) + (cons 'if __tmp50291)))) + (___kont4596845969_ + (lambda (_L26941_ _L26943_) (let () (declare (not safe)) - (_generate-splice24456_ - _tgt25699_ - _L26766_ - _L26764_ - _K25702_ - _E25703_)))) - (___kont4579345794_ - (lambda (_L26678_) - (let* ((_g2669226700_ - (lambda (_g2669326696_) + (_generate-splice24633_ + _tgt25876_ + _L26943_ + _L26941_ + _K25879_ + _E25880_)))) + (___kont4597045971_ + (lambda (_L26855_) + (let* ((_g2686926877_ + (lambda (_g2687026873_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2669326696_))) - (_g2669126719_ - (lambda (_g2669326704_) - ((lambda (_L26707_) + _g2687026873_))) + (_g2686826896_ + (lambda (_g2687026881_) + ((lambda (_L26884_) (let () - (let ((__tmp50086 + (let ((__tmp50297 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50099 - (let ((__tmp50101 + (let ((__tmp50310 + (let ((__tmp50312 (gx#datum->syntax '#f '##box?)) - (__tmp50100 + (__tmp50311 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50101 __tmp50100))) - (__tmp50087 - (let ((__tmp50089 - (let ((__tmp50090 - (let ((__tmp50093 - (let ((__tmp50094 - (let ((__tmp50095 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50096 - (let ((__tmp50098 + (cons __tmp50312 __tmp50311))) + (__tmp50298 + (let ((__tmp50300 + (let ((__tmp50301 + (let ((__tmp50304 + (let ((__tmp50305 + (let ((__tmp50306 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50307 + (let ((__tmp50309 (gx#datum->syntax '#f '##unbox)) - (__tmp50097 + (__tmp50308 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50098 __tmp50097)))) + (cons __tmp50309 __tmp50308)))) (declare (not safe)) - (cons __tmp50096 '())))) + (cons __tmp50307 '())))) (declare (not safe)) - (cons _L26707_ __tmp50095)))) + (cons _L26884_ __tmp50306)))) (declare (not safe)) - (cons __tmp50094 '()))) - (__tmp50091 - (let ((__tmp50092 + (cons __tmp50305 '()))) + (__tmp50302 + (let ((__tmp50303 (let () (declare (not safe)) - (_generate124454_ - _L26707_ - _L26678_ - _K25702_ - _E25703_)))) + (_generate124631_ + _L26884_ + _L26855_ + _K25879_ + _E25880_)))) (declare (not safe)) - (cons __tmp50092 '())))) + (cons __tmp50303 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50093 - __tmp50091)))) + (cons __tmp50304 + __tmp50302)))) (declare (not safe)) - (cons 'let __tmp50090))) - (__tmp50088 + (cons 'let __tmp50301))) + (__tmp50299 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50089 __tmp50088)))) + (cons __tmp50300 __tmp50299)))) (declare (not safe)) - (cons __tmp50099 __tmp50087)))) + (cons __tmp50310 __tmp50298)))) (declare (not safe)) - (cons 'if __tmp50086)))) - _g2669326704_))) + (cons 'if __tmp50297)))) + _g2687026881_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50102 + (__tmp50313 (gx#genident 'e))) (declare (not safe)) - (_g2669126719_ __tmp50102)))) - (___kont4579545796_ - (lambda (_L26483_) - (let* ((___stx4561245613_ - _L26483_) - (_g2649826521_ + (_g2686826896_ __tmp50313)))) + (___kont4597245973_ + (lambda (_L26660_) + (let* ((___stx4578945790_ + _L26660_) + (_g2667526698_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4561245613_)))) - (let ((___kont4561545616_ - (lambda (_L26598_) - (let* ((_g2661226620_ + ___stx4578945790_)))) + (let ((___kont4579245793_ + (lambda (_L26775_) + (let* ((_g2678926797_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2661326616_) + (lambda (_g2679026793_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2661326616_))) - (_g2661126639_ - (lambda (_g2661326624_) - ((lambda (_L26627_) + _g2679026793_))) + (_g2678826816_ + (lambda (_g2679026801_) + ((lambda (_L26804_) (let () - (let ((__tmp50103 - (let ((__tmp50107 - (let ((__tmp50113 + (let ((__tmp50314 + (let ((__tmp50318 + (let ((__tmp50324 (gx#datum->syntax '#f '##fx=)) - (__tmp50108 - (let ((__tmp50110 - (let ((__tmp50112 + (__tmp50319 + (let ((__tmp50321 + (let ((__tmp50323 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'values-count)) - (__tmp50111 - (let () (declare (not safe)) (cons _L25720_ '())))) + (__tmp50322 + (let () (declare (not safe)) (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50112 __tmp50111))) - (__tmp50109 - (let () (declare (not safe)) (cons _L26627_ '())))) + (cons __tmp50323 __tmp50322))) + (__tmp50320 + (let () (declare (not safe)) (cons _L26804_ '())))) (declare (not safe)) - (cons __tmp50110 __tmp50109)))) + (cons __tmp50321 __tmp50320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50113 __tmp50108))) - (__tmp50104 - (let ((__tmp50106 + (cons __tmp50324 __tmp50319))) + (__tmp50315 + (let ((__tmp50317 (let () (declare (not safe)) - (_generate-simple-vector24457_ - _tgt25699_ - _L26598_ + (_generate-simple-vector24634_ + _tgt25876_ + _L26775_ '0 - _K25702_ - _E25703_))) - (__tmp50105 + _K25879_ + _E25880_))) + (__tmp50316 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50106 __tmp50105)))) + (cons __tmp50317 __tmp50316)))) (declare (not safe)) - (cons __tmp50107 __tmp50104)))) + (cons __tmp50318 __tmp50315)))) (declare (not safe)) - (cons 'if __tmp50103)))) - _g2661326624_))) - (__tmp50114 (gx#stx-length _L26598_))) + (cons 'if __tmp50314)))) + _g2679026801_))) + (__tmp50325 (gx#stx-length _L26775_))) (declare (not safe)) - (_g2661126639_ __tmp50114)))) - (___kont4561745618_ - (lambda (_L26552_) + (_g2678826816_ __tmp50325)))) + (___kont4579445795_ + (lambda (_L26729_) (let () (declare (not safe)) - (_generate-list-vector24458_ - _tgt25699_ - _L26552_ + (_generate-list-vector24635_ + _tgt25876_ + _L26729_ 'values->list - _K25702_ - _E25703_))))) + _K25879_ + _E25880_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4561245613_) - (let ((_e2650326574_ + ___stx4578945790_) + (let ((_e2668026751_ (gx#syntax-e - ___stx4561245613_))) - (let ((_tl2650126581_ + ___stx4578945790_))) + (let ((_tl2667826758_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2650326574_))) - (_hd2650226578_ - (let () (declare (not safe)) (##car _e2650326574_)))) - (if (gx#stx-datum? _hd2650226578_) - (let ((_e2650426584_ (gx#stx-e _hd2650226578_))) + (##cdr _e2668026751_))) + (_hd2667926755_ + (let () (declare (not safe)) (##car _e2668026751_)))) + (if (gx#stx-datum? _hd2667926755_) + (let ((_e2668126761_ (gx#stx-e _hd2667926755_))) (if (let () (declare (not safe)) - (equal? _e2650426584_ 'simple:)) - (if (gx#stx-pair? _tl2650126581_) - (let ((_e2650726588_ - (gx#syntax-e _tl2650126581_))) - (let ((_tl2650526595_ + (equal? _e2668126761_ 'simple:)) + (if (gx#stx-pair? _tl2667826758_) + (let ((_e2668426765_ + (gx#syntax-e _tl2667826758_))) + (let ((_tl2668226772_ (let () (declare (not safe)) - (##cdr _e2650726588_))) - (_hd2650626592_ + (##cdr _e2668426765_))) + (_hd2668326769_ (let () (declare (not safe)) - (##car _e2650726588_)))) - (if (gx#stx-null? _tl2650526595_) - (___kont4561545616_ _hd2650626592_) + (##car _e2668426765_)))) + (if (gx#stx-null? _tl2668226772_) + (___kont4579245793_ _hd2668326769_) (let () (declare (not safe)) - (_g2649826521_))))) - (let () (declare (not safe)) (_g2649826521_))) + (_g2667526698_))))) + (let () (declare (not safe)) (_g2667526698_))) (if (let () (declare (not safe)) - (equal? _e2650426584_ 'list:)) - (if (gx#stx-pair? _tl2650126581_) - (let ((_e2651526542_ - (gx#syntax-e _tl2650126581_))) - (let ((_tl2651326549_ + (equal? _e2668126761_ 'list:)) + (if (gx#stx-pair? _tl2667826758_) + (let ((_e2669226719_ + (gx#syntax-e _tl2667826758_))) + (let ((_tl2669026726_ (let () (declare (not safe)) - (##cdr _e2651526542_))) - (_hd2651426546_ + (##cdr _e2669226719_))) + (_hd2669126723_ (let () (declare (not safe)) - (##car _e2651526542_)))) - (if (gx#stx-null? _tl2651326549_) - (___kont4561745618_ _hd2651426546_) + (##car _e2669226719_)))) + (if (gx#stx-null? _tl2669026726_) + (___kont4579445795_ _hd2669126723_) (let () (declare (not safe)) - (_g2649826521_))))) + (_g2667526698_))))) (let () (declare (not safe)) - (_g2649826521_))) + (_g2667526698_))) (let () (declare (not safe)) - (_g2649826521_))))) - (let () (declare (not safe)) (_g2649826521_))))) - (let () (declare (not safe)) (_g2649826521_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4579745798_ - (lambda (_L26288_) - (let* ((___stx4556245563_ - _L26288_) - (_g2630326326_ + (_g2667526698_))))) + (let () (declare (not safe)) (_g2667526698_))))) + (let () (declare (not safe)) (_g2667526698_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4597445975_ + (lambda (_L26465_) + (let* ((___stx4573945740_ + _L26465_) + (_g2648026503_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4556245563_)))) - (let ((___kont4556545566_ - (lambda (_L26403_) - (let* ((_g2641726425_ + ___stx4573945740_)))) + (let ((___kont4574245743_ + (lambda (_L26580_) + (let* ((_g2659426602_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2641826421_) + (lambda (_g2659526598_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2641826421_))) - (_g2641626444_ - (lambda (_g2641826429_) - ((lambda (_L26432_) + _g2659526598_))) + (_g2659326621_ + (lambda (_g2659526606_) + ((lambda (_L26609_) (let () - (let ((__tmp50115 - (let ((__tmp50130 - (let ((__tmp50132 + (let ((__tmp50326 + (let ((__tmp50341 + (let ((__tmp50343 (gx#datum->syntax '#f '##vector?)) - (__tmp50131 + (__tmp50342 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50132 __tmp50131))) - (__tmp50116 - (let ((__tmp50118 - (let ((__tmp50119 - (let ((__tmp50123 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50129 (gx#datum->syntax '#f '##fx=)) - (__tmp50124 - (let ((__tmp50126 - (let ((__tmp50128 + (cons __tmp50343 __tmp50342))) + (__tmp50327 + (let ((__tmp50329 + (let ((__tmp50330 + (let ((__tmp50334 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50340 (gx#datum->syntax '#f '##fx=)) + (__tmp50335 + (let ((__tmp50337 + (let ((__tmp50339 (gx#datum->syntax '#f '##vector-length)) - (__tmp50127 + (__tmp50338 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50128 __tmp50127))) - (__tmp50125 + (cons __tmp50339 __tmp50338))) + (__tmp50336 (let () (declare (not safe)) - (cons _L26432_ '())))) + (cons _L26609_ '())))) (declare (not safe)) - (cons __tmp50126 __tmp50125)))) + (cons __tmp50337 __tmp50336)))) (declare (not safe)) - (cons __tmp50129 __tmp50124))) - (__tmp50120 - (let ((__tmp50122 + (cons __tmp50340 __tmp50335))) + (__tmp50331 + (let ((__tmp50333 (let () (declare (not safe)) - (_generate-simple-vector24457_ - _tgt25699_ - _L26403_ + (_generate-simple-vector24634_ + _tgt25876_ + _L26580_ '0 - _K25702_ - _E25703_))) - (__tmp50121 + _K25879_ + _E25880_))) + (__tmp50332 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50122 __tmp50121)))) + (cons __tmp50333 __tmp50332)))) (declare (not safe)) - (cons __tmp50123 __tmp50120)))) + (cons __tmp50334 __tmp50331)))) (declare (not safe)) - (cons 'if __tmp50119))) + (cons 'if __tmp50330))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50117 + (__tmp50328 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50118 __tmp50117)))) + (cons __tmp50329 __tmp50328)))) (declare (not safe)) - (cons __tmp50130 __tmp50116)))) + (cons __tmp50341 __tmp50327)))) (declare (not safe)) - (cons 'if __tmp50115)))) - _g2641826429_))) - (__tmp50133 (gx#stx-length _L26403_))) + (cons 'if __tmp50326)))) + _g2659526606_))) + (__tmp50344 (gx#stx-length _L26580_))) (declare (not safe)) - (_g2641626444_ __tmp50133)))) - (___kont4556745568_ - (lambda (_L26357_) - (let ((__tmp50134 - (let ((__tmp50138 - (let ((__tmp50140 + (_g2659326621_ __tmp50344)))) + (___kont4574445745_ + (lambda (_L26534_) + (let ((__tmp50345 + (let ((__tmp50349 + (let ((__tmp50351 (gx#datum->syntax '#f '##vector?)) - (__tmp50139 + (__tmp50350 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons __tmp50140 __tmp50139))) - (__tmp50135 - (let ((__tmp50137 + (cons __tmp50351 __tmp50350))) + (__tmp50346 + (let ((__tmp50348 (let () (declare (not safe)) - (_generate-list-vector24458_ - _tgt25699_ - _L26357_ + (_generate-list-vector24635_ + _tgt25876_ + _L26534_ 'vector->list - _K25702_ - _E25703_))) - (__tmp50136 + _K25879_ + _E25880_))) + (__tmp50347 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons __tmp50137 __tmp50136)))) + (cons __tmp50348 __tmp50347)))) (declare (not safe)) - (cons __tmp50138 __tmp50135)))) + (cons __tmp50349 __tmp50346)))) (declare (not safe)) - (cons 'if __tmp50134))))) + (cons 'if __tmp50345))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4556245563_) - (let ((_e2630826379_ + ___stx4573945740_) + (let ((_e2648526556_ (gx#syntax-e - ___stx4556245563_))) - (let ((_tl2630626386_ + ___stx4573945740_))) + (let ((_tl2648326563_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e2630826379_))) - (_hd2630726383_ - (let () (declare (not safe)) (##car _e2630826379_)))) - (if (gx#stx-datum? _hd2630726383_) - (let ((_e2630926389_ (gx#stx-e _hd2630726383_))) + (##cdr _e2648526556_))) + (_hd2648426560_ + (let () (declare (not safe)) (##car _e2648526556_)))) + (if (gx#stx-datum? _hd2648426560_) + (let ((_e2648626566_ (gx#stx-e _hd2648426560_))) (if (let () (declare (not safe)) - (equal? _e2630926389_ 'simple:)) - (if (gx#stx-pair? _tl2630626386_) - (let ((_e2631226393_ - (gx#syntax-e _tl2630626386_))) - (let ((_tl2631026400_ + (equal? _e2648626566_ 'simple:)) + (if (gx#stx-pair? _tl2648326563_) + (let ((_e2648926570_ + (gx#syntax-e _tl2648326563_))) + (let ((_tl2648726577_ (let () (declare (not safe)) - (##cdr _e2631226393_))) - (_hd2631126397_ + (##cdr _e2648926570_))) + (_hd2648826574_ (let () (declare (not safe)) - (##car _e2631226393_)))) - (if (gx#stx-null? _tl2631026400_) - (___kont4556545566_ _hd2631126397_) + (##car _e2648926570_)))) + (if (gx#stx-null? _tl2648726577_) + (___kont4574245743_ _hd2648826574_) (let () (declare (not safe)) - (_g2630326326_))))) - (let () (declare (not safe)) (_g2630326326_))) + (_g2648026503_))))) + (let () (declare (not safe)) (_g2648026503_))) (if (let () (declare (not safe)) - (equal? _e2630926389_ 'list:)) - (if (gx#stx-pair? _tl2630626386_) - (let ((_e2632026347_ - (gx#syntax-e _tl2630626386_))) - (let ((_tl2631826354_ + (equal? _e2648626566_ 'list:)) + (if (gx#stx-pair? _tl2648326563_) + (let ((_e2649726524_ + (gx#syntax-e _tl2648326563_))) + (let ((_tl2649526531_ (let () (declare (not safe)) - (##cdr _e2632026347_))) - (_hd2631926351_ + (##cdr _e2649726524_))) + (_hd2649626528_ (let () (declare (not safe)) - (##car _e2632026347_)))) - (if (gx#stx-null? _tl2631826354_) - (___kont4556745568_ _hd2631926351_) + (##car _e2649726524_)))) + (if (gx#stx-null? _tl2649526531_) + (___kont4574445745_ _hd2649626528_) (let () (declare (not safe)) - (_g2630326326_))))) + (_g2648026503_))))) (let () (declare (not safe)) - (_g2630326326_))) + (_g2648026503_))) (let () (declare (not safe)) - (_g2630326326_))))) - (let () (declare (not safe)) (_g2630326326_))))) - (let () (declare (not safe)) (_g2630326326_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4579945800_ - (lambda (_L26239_ _L26241_) - (let ((__tmp50141 - (gx#stx-e _L26241_))) + (_g2648026503_))))) + (let () (declare (not safe)) (_g2648026503_))))) + (let () (declare (not safe)) (_g2648026503_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4597645977_ + (lambda (_L26416_ _L26418_) + (let ((__tmp50352 + (gx#stx-e _L26418_))) (declare (not safe)) - (_generate-struct24459_ - __tmp50141 - _tgt25699_ - _L26239_ - _K25702_ - _E25703_)))) - (___kont4580145802_ - (lambda (_L26180_ _L26182_) - (let ((__tmp50142 - (gx#stx-e _L26182_))) + (_generate-struct24636_ + __tmp50352 + _tgt25876_ + _L26416_ + _K25879_ + _E25880_)))) + (___kont4597845979_ + (lambda (_L26357_ _L26359_) + (let ((__tmp50353 + (gx#stx-e _L26359_))) (declare (not safe)) - (_generate-class24462_ - __tmp50142 - _tgt25699_ - _L26180_ - _K25702_ - _E25703_)))) - (___kont4580345804_ - (lambda (_L26083_) - (let* ((_g2609726105_ - (lambda (_g2609826101_) + (_generate-class24639_ + __tmp50353 + _tgt25876_ + _L26357_ + _K25879_ + _E25880_)))) + (___kont4598045981_ + (lambda (_L26260_) + (let* ((_g2627426282_ + (lambda (_g2627526278_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2609826101_))) - (_g2609626124_ - (lambda (_g2609826109_) - ((lambda (_L26112_) + _g2627526278_))) + (_g2627326301_ + (lambda (_g2627526286_) + ((lambda (_L26289_) (let () - (let ((__tmp50143 + (let ((__tmp50354 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50146 - (let ((__tmp50147 - (let ((__tmp50148 - (let ((__tmp50149 - (let ((__tmp50151 + (let ((__tmp50357 + (let ((__tmp50358 + (let ((__tmp50359 + (let ((__tmp50360 + (let ((__tmp50362 (gx#datum->syntax '#f 'quote)) - (__tmp50150 + (__tmp50361 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L26083_ '())))) + (cons _L26260_ '())))) (declare (not safe)) - (cons __tmp50151 __tmp50150)))) + (cons __tmp50362 __tmp50361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50149 '())))) + (cons __tmp50360 '())))) (declare (not safe)) - (cons _L25720_ __tmp50148)))) + (cons _L25897_ __tmp50359)))) (declare (not safe)) - (cons _L26112_ __tmp50147))) - (__tmp50144 - (let ((__tmp50145 + (cons _L26289_ __tmp50358))) + (__tmp50355 + (let ((__tmp50356 (let () (declare (not safe)) - (cons _E25703_ '())))) + (cons _E25880_ '())))) (declare (not safe)) - (cons _K25702_ __tmp50145)))) + (cons _K25879_ __tmp50356)))) (declare (not safe)) - (cons __tmp50146 __tmp50144)))) + (cons __tmp50357 __tmp50355)))) (declare (not safe)) - (cons 'if __tmp50143)))) - _g2609826109_))) + (cons 'if __tmp50354)))) + _g2627526286_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50152 - (let ((_e26128_ + (__tmp50363 + (let ((_e26305_ (gx#stx-e - _L26083_))) + _L26260_))) (if (or (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (symbol? _e26128_)) - (keyword? _e26128_) - (let () (declare (not safe)) (immediate? _e26128_))) + (symbol? _e26305_)) + (keyword? _e26305_) + (let () (declare (not safe)) (immediate? _e26305_))) '##eq? - (if (let () (declare (not safe)) (number? _e26128_)) + (if (let () (declare (not safe)) (number? _e26305_)) 'eqv? 'equal?))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2609626124_ __tmp50152)))) - (___kont4580545806_ - (lambda (_L26003_ _L26005_) - (let* ((_g2602126029_ - (lambda (_g2602226025_) + (_g2627326301_ __tmp50363)))) + (___kont4598245983_ + (lambda (_L26180_ _L26182_) + (let* ((_g2619826206_ + (lambda (_g2619926202_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2602226025_))) - (_g2602026048_ - (lambda (_g2602226033_) - ((lambda (_L26036_) + _g2619926202_))) + (_g2619726225_ + (lambda (_g2619926210_) + ((lambda (_L26213_) (let () - (let ((__tmp50153 + (let ((__tmp50364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50156 - (let ((__tmp50157 - (let ((__tmp50158 - (let ((__tmp50159 - (let ((__tmp50160 + (let ((__tmp50367 + (let ((__tmp50368 + (let ((__tmp50369 + (let ((__tmp50370 + (let ((__tmp50371 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons _L26005_ __tmp50160)))) + (cons _L26182_ __tmp50371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50159 '())))) + (cons __tmp50370 '())))) (declare (not safe)) - (cons _L26036_ __tmp50158)))) + (cons _L26213_ __tmp50369)))) (declare (not safe)) - (cons __tmp50157 '()))) - (__tmp50154 - (let ((__tmp50155 + (cons __tmp50368 '()))) + (__tmp50365 + (let ((__tmp50366 (let () (declare (not safe)) - (_generate124454_ - _L26036_ - _L26003_ - _K25702_ - _E25703_)))) + (_generate124631_ + _L26213_ + _L26180_ + _K25879_ + _E25880_)))) (declare (not safe)) - (cons __tmp50155 '())))) + (cons __tmp50366 '())))) (declare (not safe)) - (cons __tmp50156 __tmp50154)))) + (cons __tmp50367 __tmp50365)))) (declare (not safe)) - (cons 'let __tmp50153)))) - _g2602226033_))) + (cons 'let __tmp50364)))) + _g2619926210_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50161 + (__tmp50372 (gx#genident 'e))) (declare (not safe)) - (_g2602026048_ __tmp50161)))) - (___kont4580745808_ - (lambda (_L25945_) - (let ((__tmp50162 - (let ((__tmp50164 - (let ((__tmp50165 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50166 + (_g2619726225_ __tmp50372)))) + (___kont4598445985_ + (lambda (_L26122_) + (let ((__tmp50373 + (let ((__tmp50375 + (let ((__tmp50376 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50377 (let () (declare (not safe)) - (cons _L25720_ '())))) + (cons _L25897_ '())))) (declare (not safe)) - (cons _L25945_ __tmp50166)))) + (cons _L26122_ __tmp50377)))) (declare (not safe)) - (cons __tmp50165 '()))) - (__tmp50163 - (let () (declare (not safe)) (cons _K25702_ '())))) + (cons __tmp50376 '()))) + (__tmp50374 + (let () (declare (not safe)) (cons _K25879_ '())))) (declare (not safe)) - (cons __tmp50164 __tmp50163)))) + (cons __tmp50375 __tmp50374)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'let __tmp50162)))) - (___kont4580945810_ - (lambda () _K25702_))) - (if (gx#stx-pair? ___stx4577645777_) - (let ((_e2575327173_ + (cons 'let __tmp50373)))) + (___kont4598645987_ + (lambda () _K25879_))) + (if (gx#stx-pair? ___stx4595345954_) + (let ((_e2593027350_ (gx#syntax-e - ___stx4577645777_))) - (let ((_tl2575127180_ + ___stx4595345954_))) + (let ((_tl2592827357_ (let () (declare (not safe)) - (##cdr _e2575327173_))) - (_hd2575227177_ + (##cdr _e2593027350_))) + (_hd2592927354_ (let () (declare (not safe)) - (##car _e2575327173_)))) + (##car _e2593027350_)))) (if (gx#stx-datum? - _hd2575227177_) - (let ((_e2575427183_ + _hd2592927354_) + (let ((_e2593127360_ (gx#stx-e - _hd2575227177_))) + _hd2592927354_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ + (equal? _e2593127360_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '?:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2575727187_ (gx#syntax-e _tl2575127180_))) - (let ((_tl2575527194_ + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2593427364_ (gx#syntax-e _tl2592827357_))) + (let ((_tl2593227371_ (let () (declare (not safe)) - (##cdr _e2575727187_))) - (_hd2575627191_ + (##cdr _e2593427364_))) + (_hd2593327368_ (let () (declare (not safe)) - (##car _e2575727187_)))) - (___kont4577945780_ _tl2575527194_ _hd2575627191_))) - (let () (declare (not safe)) (_g2574725889_))) - (if (let () (declare (not safe)) (equal? _e2575427183_ 'and:)) - (___kont4578145782_ _tl2575127180_) + (##car _e2593427364_)))) + (___kont4595645957_ _tl2593227371_ _hd2593327368_))) + (let () (declare (not safe)) (_g2592426066_))) + (if (let () (declare (not safe)) (equal? _e2593127360_ 'and:)) + (___kont4595845959_ _tl2592827357_) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'or:)) - (___kont4578345784_ _tl2575127180_) + (equal? _e2593127360_ 'or:)) + (___kont4596045961_ _tl2592827357_) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'not:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2577526956_ - (gx#syntax-e _tl2575127180_))) - (let ((_tl2577326963_ + (equal? _e2593127360_ 'not:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2595227133_ + (gx#syntax-e _tl2592827357_))) + (let ((_tl2595027140_ (let () (declare (not safe)) - (##cdr _e2577526956_))) - (_hd2577426960_ + (##cdr _e2595227133_))) + (_hd2595127137_ (let () (declare (not safe)) - (##car _e2577526956_)))) - (if (gx#stx-null? _tl2577326963_) - (___kont4578545786_ _hd2577426960_) + (##car _e2595227133_)))) + (if (gx#stx-null? _tl2595027140_) + (___kont4596245963_ _hd2595127137_) (let () (declare (not safe)) - (_g2574725889_))))) - (let () (declare (not safe)) (_g2574725889_))) + (_g2592426066_))))) + (let () (declare (not safe)) (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'cons:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2578426828_ - (gx#syntax-e _tl2575127180_))) - (let ((_tl2578226835_ + (equal? _e2593127360_ 'cons:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2596127005_ + (gx#syntax-e _tl2592827357_))) + (let ((_tl2595927012_ (let () (declare (not safe)) - (##cdr _e2578426828_))) - (_hd2578326832_ + (##cdr _e2596127005_))) + (_hd2596027009_ (let () (declare (not safe)) - (##car _e2578426828_)))) - (if (gx#stx-pair? _tl2578226835_) - (let ((_e2578726838_ + (##car _e2596127005_)))) + (if (gx#stx-pair? _tl2595927012_) + (let ((_e2596427015_ (gx#syntax-e - _tl2578226835_))) - (let ((_tl2578526845_ + _tl2595927012_))) + (let ((_tl2596227022_ (let () (declare (not safe)) - (##cdr _e2578726838_))) - (_hd2578626842_ + (##cdr _e2596427015_))) + (_hd2596327019_ (let () (declare (not safe)) - (##car _e2578726838_)))) + (##car _e2596427015_)))) (if (gx#stx-null? - _tl2578526845_) - (___kont4578745788_ - _hd2578626842_ - _hd2578326832_) + _tl2596227022_) + (___kont4596445965_ + _hd2596327019_ + _hd2596027009_) (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))) + (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'null:)) - (if (gx#stx-null? _tl2575127180_) - (___kont4578945790_) + (equal? _e2593127360_ 'null:)) + (if (gx#stx-null? _tl2592827357_) + (___kont4596645967_) (let () (declare (not safe)) - (_g2574725889_))) + (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'splice:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2580026744_ + (equal? _e2593127360_ 'splice:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2597726921_ (gx#syntax-e - _tl2575127180_))) - (let ((_tl2579826751_ + _tl2592827357_))) + (let ((_tl2597526928_ (let () (declare (not safe)) - (##cdr _e2580026744_))) - (_hd2579926748_ + (##cdr _e2597726921_))) + (_hd2597626925_ (let () (declare (not safe)) - (##car _e2580026744_)))) + (##car _e2597726921_)))) (if (gx#stx-pair? - _tl2579826751_) - (let ((_e2580326754_ + _tl2597526928_) + (let ((_e2598026931_ (gx#syntax-e - _tl2579826751_))) - (let ((_tl2580126761_ + _tl2597526928_))) + (let ((_tl2597826938_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2580326754_))) - (_hd2580226758_ - (let () (declare (not safe)) (##car _e2580326754_)))) - (if (gx#stx-null? _tl2580126761_) - (___kont4579145792_ _hd2580226758_ _hd2579926748_) - (let () (declare (not safe)) (_g2574725889_))))) + (##cdr _e2598026931_))) + (_hd2597926935_ + (let () (declare (not safe)) (##car _e2598026931_)))) + (if (gx#stx-null? _tl2597826938_) + (___kont4596845969_ _hd2597926935_ _hd2597626925_) + (let () (declare (not safe)) (_g2592426066_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))) + (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'box:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2581126668_ + (equal? _e2593127360_ 'box:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2598826845_ (gx#syntax-e - _tl2575127180_))) - (let ((_tl2580926675_ + _tl2592827357_))) + (let ((_tl2598626852_ (let () (declare (not safe)) - (##cdr _e2581126668_))) - (_hd2581026672_ + (##cdr _e2598826845_))) + (_hd2598726849_ (let () (declare (not safe)) - (##car _e2581126668_)))) + (##car _e2598826845_)))) (if (gx#stx-null? - _tl2580926675_) - (___kont4579345794_ - _hd2581026672_) + _tl2598626852_) + (___kont4597045971_ + _hd2598726849_) (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))) + (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ + (equal? _e2593127360_ 'values:)) (if (gx#stx-pair? - _tl2575127180_) - (let ((_e2581926473_ + _tl2592827357_) + (let ((_e2599626650_ (gx#syntax-e - _tl2575127180_))) - (let ((_tl2581726480_ + _tl2592827357_))) + (let ((_tl2599426657_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2581926473_))) - (_hd2581826477_ - (let () (declare (not safe)) (##car _e2581926473_)))) - (if (gx#stx-null? _tl2581726480_) - (___kont4579545796_ _hd2581826477_) - (let () (declare (not safe)) (_g2574725889_))))) + (##cdr _e2599626650_))) + (_hd2599526654_ + (let () (declare (not safe)) (##car _e2599626650_)))) + (if (gx#stx-null? _tl2599426657_) + (___kont4597245973_ _hd2599526654_) + (let () (declare (not safe)) (_g2592426066_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2574725889_))) + (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ + (equal? _e2593127360_ 'vector:)) (if (gx#stx-pair? - _tl2575127180_) - (let ((_e2582726278_ + _tl2592827357_) + (let ((_e2600426455_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2575127180_))) - (let ((_tl2582526285_ - (let () (declare (not safe)) (##cdr _e2582726278_))) - (_hd2582626282_ - (let () (declare (not safe)) (##car _e2582726278_)))) - (if (gx#stx-null? _tl2582526285_) - (___kont4579745798_ _hd2582626282_) - (let () (declare (not safe)) (_g2574725889_))))) - (let () (declare (not safe)) (_g2574725889_))) + _tl2592827357_))) + (let ((_tl2600226462_ + (let () (declare (not safe)) (##cdr _e2600426455_))) + (_hd2600326459_ + (let () (declare (not safe)) (##car _e2600426455_)))) + (if (gx#stx-null? _tl2600226462_) + (___kont4597445975_ _hd2600326459_) + (let () (declare (not safe)) (_g2592426066_))))) + (let () (declare (not safe)) (_g2592426066_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (equal? _e2575427183_ + (equal? _e2593127360_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'struct:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2583626219_ (gx#syntax-e _tl2575127180_))) - (let ((_tl2583426226_ + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2601326396_ (gx#syntax-e _tl2592827357_))) + (let ((_tl2601126403_ (let () (declare (not safe)) - (##cdr _e2583626219_))) - (_hd2583526223_ + (##cdr _e2601326396_))) + (_hd2601226400_ (let () (declare (not safe)) - (##car _e2583626219_)))) - (if (gx#stx-pair? _tl2583426226_) - (let ((_e2583926229_ - (gx#syntax-e _tl2583426226_))) - (let ((_tl2583726236_ + (##car _e2601326396_)))) + (if (gx#stx-pair? _tl2601126403_) + (let ((_e2601626406_ + (gx#syntax-e _tl2601126403_))) + (let ((_tl2601426413_ (let () (declare (not safe)) - (##cdr _e2583926229_))) - (_hd2583826233_ + (##cdr _e2601626406_))) + (_hd2601526410_ (let () (declare (not safe)) - (##car _e2583926229_)))) - (if (gx#stx-null? _tl2583726236_) - (___kont4579945800_ - _hd2583826233_ - _hd2583526223_) + (##car _e2601626406_)))) + (if (gx#stx-null? _tl2601426413_) + (___kont4597645977_ + _hd2601526410_ + _hd2601226400_) (let () (declare (not safe)) - (_g2574725889_))))) - (let () (declare (not safe)) (_g2574725889_))))) - (let () (declare (not safe)) (_g2574725889_))) + (_g2592426066_))))) + (let () (declare (not safe)) (_g2592426066_))))) + (let () (declare (not safe)) (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'class:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2584826160_ (gx#syntax-e _tl2575127180_))) - (let ((_tl2584626167_ + (equal? _e2593127360_ 'class:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2602526337_ (gx#syntax-e _tl2592827357_))) + (let ((_tl2602326344_ (let () (declare (not safe)) - (##cdr _e2584826160_))) - (_hd2584726164_ + (##cdr _e2602526337_))) + (_hd2602426341_ (let () (declare (not safe)) - (##car _e2584826160_)))) - (if (gx#stx-pair? _tl2584626167_) - (let ((_e2585126170_ - (gx#syntax-e _tl2584626167_))) - (let ((_tl2584926177_ + (##car _e2602526337_)))) + (if (gx#stx-pair? _tl2602326344_) + (let ((_e2602826347_ + (gx#syntax-e _tl2602326344_))) + (let ((_tl2602626354_ (let () (declare (not safe)) - (##cdr _e2585126170_))) - (_hd2585026174_ + (##cdr _e2602826347_))) + (_hd2602726351_ (let () (declare (not safe)) - (##car _e2585126170_)))) - (if (gx#stx-null? _tl2584926177_) - (___kont4580145802_ - _hd2585026174_ - _hd2584726164_) + (##car _e2602826347_)))) + (if (gx#stx-null? _tl2602626354_) + (___kont4597845979_ + _hd2602726351_ + _hd2602426341_) (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))))) - (let () (declare (not safe)) (_g2574725889_))) + (_g2592426066_))))) + (let () (declare (not safe)) (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'datum:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2585926073_ - (gx#syntax-e _tl2575127180_))) - (let ((_tl2585726080_ + (equal? _e2593127360_ 'datum:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2603626250_ + (gx#syntax-e _tl2592827357_))) + (let ((_tl2603426257_ (let () (declare (not safe)) - (##cdr _e2585926073_))) - (_hd2585826077_ + (##cdr _e2603626250_))) + (_hd2603526254_ (let () (declare (not safe)) - (##car _e2585926073_)))) - (if (gx#stx-null? _tl2585726080_) - (___kont4580345804_ _hd2585826077_) + (##car _e2603626250_)))) + (if (gx#stx-null? _tl2603426257_) + (___kont4598045981_ _hd2603526254_) (let () (declare (not safe)) - (_g2574725889_))))) - (let () (declare (not safe)) (_g2574725889_))) + (_g2592426066_))))) + (let () (declare (not safe)) (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'apply:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2586825983_ - (gx#syntax-e _tl2575127180_))) - (let ((_tl2586625990_ + (equal? _e2593127360_ 'apply:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2604526160_ + (gx#syntax-e _tl2592827357_))) + (let ((_tl2604326167_ (let () (declare (not safe)) - (##cdr _e2586825983_))) - (_hd2586725987_ + (##cdr _e2604526160_))) + (_hd2604426164_ (let () (declare (not safe)) - (##car _e2586825983_)))) - (if (gx#stx-pair? _tl2586625990_) - (let ((_e2587125993_ - (gx#syntax-e _tl2586625990_))) - (let ((_tl2586926000_ + (##car _e2604526160_)))) + (if (gx#stx-pair? _tl2604326167_) + (let ((_e2604826170_ + (gx#syntax-e _tl2604326167_))) + (let ((_tl2604626177_ (let () (declare (not safe)) - (##cdr _e2587125993_))) - (_hd2587025997_ + (##cdr _e2604826170_))) + (_hd2604726174_ (let () (declare (not safe)) - (##car _e2587125993_)))) - (if (gx#stx-null? _tl2586926000_) - (___kont4580545806_ - _hd2587025997_ - _hd2586725987_) + (##car _e2604826170_)))) + (if (gx#stx-null? _tl2604626177_) + (___kont4598245983_ + _hd2604726174_ + _hd2604426164_) (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))))) - (let () (declare (not safe)) (_g2574725889_))) + (_g2592426066_))))) + (let () (declare (not safe)) (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'var:)) - (if (gx#stx-pair? _tl2575127180_) - (let ((_e2587925935_ - (gx#syntax-e _tl2575127180_))) - (let ((_tl2587725942_ + (equal? _e2593127360_ 'var:)) + (if (gx#stx-pair? _tl2592827357_) + (let ((_e2605626112_ + (gx#syntax-e _tl2592827357_))) + (let ((_tl2605426119_ (let () (declare (not safe)) - (##cdr _e2587925935_))) - (_hd2587825939_ + (##cdr _e2605626112_))) + (_hd2605526116_ (let () (declare (not safe)) - (##car _e2587925935_)))) - (if (gx#stx-null? _tl2587725942_) - (___kont4580745808_ - _hd2587825939_) + (##car _e2605626112_)))) + (if (gx#stx-null? _tl2605426119_) + (___kont4598445985_ + _hd2605526116_) (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))) + (_g2592426066_))) (if (let () (declare (not safe)) - (equal? _e2575427183_ 'any:)) - (if (gx#stx-null? _tl2575127180_) - (___kont4580945810_) + (equal? _e2593127360_ 'any:)) + (if (gx#stx-null? _tl2592827357_) + (___kont4598645987_) (let () (declare (not safe)) - (_g2574725889_))) + (_g2592426066_))) (let () (declare (not safe)) - (_g2574725889_))))))))))))))))))) + (_g2592426066_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2574725889_))))) + (_g2592426066_))))) (let () (declare (not safe)) - (_g2574725889_))))))) - _g2570625717_)))) + (_g2592426066_))))))) + _g2588325894_)))) (declare (not safe)) - (_g2570427482_ _tgt25699_)))) - (_generate-splice24456_ - (lambda (_tgt25071_ _hd25073_ _rest25074_ _K25075_ _E25076_) - (let* ((_g2507825095_ - (lambda (_g2507925091_) + (_g2588127659_ _tgt25876_)))) + (_generate-splice24633_ + (lambda (_tgt25248_ _hd25250_ _rest25251_ _K25252_ _E25253_) + (let* ((_g2525525272_ + (lambda (_g2525625268_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2507925091_))) - (_g2507725695_ - (lambda (_g2507925099_) - (if (gx#stx-pair/null? _g2507925099_) - (let ((_g50167_ + _g2525625268_))) + (_g2525425872_ + (lambda (_g2525625276_) + (if (gx#stx-pair/null? _g2525625276_) + (let ((_g50378_ (gx#syntax-split-splice - _g2507925099_ + _g2525625276_ '0))) (begin - (let ((_g50168_ + (let ((_g50379_ (let () (declare (not safe)) - (if (##values? _g50167_) - (##vector-length _g50167_) + (if (##values? _g50378_) + (##vector-length _g50378_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50168_ 2))) + (##fx= _g50379_ 2))) (error "Context expects 2 values" - _g50168_))) - (let ((_target2508125102_ + _g50379_))) + (let ((_target2525825279_ (let () (declare (not safe)) - (##vector-ref _g50167_ 0))) - (_tl2508325105_ + (##vector-ref _g50378_ 0))) + (_tl2526025282_ (let () (declare (not safe)) - (##vector-ref _g50167_ 1)))) - (if (gx#stx-null? _tl2508325105_) - (letrec ((_loop2508425108_ - (lambda (_hd2508225112_ - _var2508825115_) + (##vector-ref _g50378_ 1)))) + (if (gx#stx-null? _tl2526025282_) + (letrec ((_loop2526125285_ + (lambda (_hd2525925289_ + _var2526525292_) (if (gx#stx-pair? - _hd2508225112_) - (let ((_e2508525118_ + _hd2525925289_) + (let ((_e2526225295_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2508225112_))) - (let ((_lp-hd2508625122_ + (gx#syntax-e _hd2525925289_))) + (let ((_lp-hd2526325299_ (let () (declare (not safe)) - (##car _e2508525118_))) - (_lp-tl2508725125_ + (##car _e2526225295_))) + (_lp-tl2526425302_ (let () (declare (not safe)) - (##cdr _e2508525118_)))) - (let ((__tmp50259 + (##cdr _e2526225295_)))) + (let ((__tmp50470 (let () (declare (not safe)) - (cons _lp-hd2508625122_ _var2508825115_)))) + (cons _lp-hd2526325299_ _var2526525292_)))) (declare (not safe)) - (_loop2508425108_ _lp-tl2508725125_ __tmp50259)))) - (let ((_var2508925128_ (reverse _var2508825115_))) - ((lambda (_L25132_) + (_loop2526125285_ _lp-tl2526425302_ __tmp50470)))) + (let ((_var2526625305_ (reverse _var2526525292_))) + ((lambda (_L25309_) (let () - (let* ((_g2514825165_ - (lambda (_g2514925161_) + (let* ((_g2532525342_ + (lambda (_g2532625338_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2514925161_))) - (_g2514725683_ - (lambda (_g2514925169_) - (if (gx#stx-pair/null? _g2514925169_) - (let ((_g50169_ + _g2532625338_))) + (_g2532425860_ + (lambda (_g2532625346_) + (if (gx#stx-pair/null? _g2532625346_) + (let ((_g50380_ (gx#syntax-split-splice - _g2514925169_ + _g2532625346_ '0))) (begin - (let ((_g50170_ + (let ((_g50381_ (let () (declare (not safe)) - (if (##values? _g50169_) + (if (##values? _g50380_) (##vector-length - _g50169_) + _g50380_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50170_ 2))) + (##fx= _g50381_ 2))) (error "Context expects 2 values" - _g50170_))) - (let ((_target2515125172_ + _g50381_))) + (let ((_target2532825349_ (let () (declare (not safe)) (##vector-ref - _g50169_ + _g50380_ 0))) - (_tl2515325175_ + (_tl2533025352_ (let () (declare (not safe)) (##vector-ref - _g50169_ + _g50380_ 1)))) (if (gx#stx-null? - _tl2515325175_) - (letrec ((_loop2515425178_ - (lambda (_hd2515225182_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _var-r2515825185_) - (if (gx#stx-pair? _hd2515225182_) - (let ((_e2515525188_ (gx#syntax-e _hd2515225182_))) - (let ((_lp-hd2515625192_ + _tl2533025352_) + (letrec ((_loop2533125355_ + (lambda (_hd2532925359_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _var-r2533525362_) + (if (gx#stx-pair? _hd2532925359_) + (let ((_e2533225365_ (gx#syntax-e _hd2532925359_))) + (let ((_lp-hd2533325369_ (let () (declare (not safe)) - (##car _e2515525188_))) - (_lp-tl2515725195_ + (##car _e2533225365_))) + (_lp-tl2533425372_ (let () (declare (not safe)) - (##cdr _e2515525188_)))) - (let ((__tmp50256 + (##cdr _e2533225365_)))) + (let ((__tmp50467 (let () (declare (not safe)) - (cons _lp-hd2515625192_ - _var-r2515825185_)))) + (cons _lp-hd2533325369_ + _var-r2533525362_)))) (declare (not safe)) - (_loop2515425178_ - _lp-tl2515725195_ - __tmp50256)))) - (let ((_var-r2515925198_ - (reverse _var-r2515825185_))) - ((lambda (_L25202_) + (_loop2533125355_ + _lp-tl2533425372_ + __tmp50467)))) + (let ((_var-r2533625375_ + (reverse _var-r2533525362_))) + ((lambda (_L25379_) (let () - (let* ((_g2521925236_ - (lambda (_g2522025232_) + (let* ((_g2539625413_ + (lambda (_g2539725409_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2522025232_))) - (_g2521825671_ - (lambda (_g2522025240_) + _g2539725409_))) + (_g2539525848_ + (lambda (_g2539725417_) (if (gx#stx-pair/null? - _g2522025240_) - (let ((_g50171_ + _g2539725417_) + (let ((_g50382_ (gx#syntax-split-splice - _g2522025240_ + _g2539725417_ '0))) (begin - (let ((_g50172_ + (let ((_g50383_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50171_) - (##vector-length _g50171_) + _g50382_) + (##vector-length _g50382_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50172_ 2))) - (error "Context expects 2 values" _g50172_))) + (if (not (let () (declare (not safe)) (##fx= _g50383_ 2))) + (error "Context expects 2 values" _g50383_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2522225243_ + (let ((_target2539925420_ (let () (declare (not safe)) (##vector-ref - _g50171_ + _g50382_ 0))) - (_tl2522425246_ + (_tl2540125423_ (let () (declare (not safe)) (##vector-ref - _g50171_ + _g50382_ 1)))) (if (gx#stx-null? - _tl2522425246_) - (letrec ((_loop2522525249_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2522325253_ _init2522925256_) - (if (gx#stx-pair? _hd2522325253_) - (let ((_e2522625259_ - (gx#syntax-e _hd2522325253_))) - (let ((_lp-hd2522725263_ + _tl2540125423_) + (letrec ((_loop2540225426_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2540025430_ _init2540625433_) + (if (gx#stx-pair? _hd2540025430_) + (let ((_e2540325436_ + (gx#syntax-e _hd2540025430_))) + (let ((_lp-hd2540425440_ (let () (declare (not safe)) - (##car _e2522625259_))) - (_lp-tl2522825266_ + (##car _e2540325436_))) + (_lp-tl2540525443_ (let () (declare (not safe)) - (##cdr _e2522625259_)))) - (let ((__tmp50252 + (##cdr _e2540325436_)))) + (let ((__tmp50463 (let () (declare (not safe)) - (cons _lp-hd2522725263_ - _init2522925256_)))) + (cons _lp-hd2540425440_ + _init2540625433_)))) (declare (not safe)) - (_loop2522525249_ - _lp-tl2522825266_ - __tmp50252)))) - (let ((_init2523025269_ - (reverse _init2522925256_))) - ((lambda (_L25273_) + (_loop2540225426_ + _lp-tl2540525443_ + __tmp50463)))) + (let ((_init2540725446_ + (reverse _init2540625433_))) + ((lambda (_L25450_) (let () - (let* ((_g2529025298_ - (lambda (_g2529125294_) + (let* ((_g2546725475_ + (lambda (_g2546825471_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2529125294_))) - (_g2528925667_ - (lambda (_g2529125302_) - ((lambda (_L25305_) + _g2546825471_))) + (_g2546625844_ + (lambda (_g2546825479_) + ((lambda (_L25482_) (let () - (let* ((_g2531825326_ - (lambda (_g2531925322_) + (let* ((_g2549525503_ + (lambda (_g2549625499_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2531925322_))) - (_g2531725663_ - (lambda (_g2531925330_) - ((lambda (_L25333_) + _g2549625499_))) + (_g2549425840_ + (lambda (_g2549625507_) + ((lambda (_L25510_) (let () - (let* ((_g2534625354_ - (lambda (_g2534725350_) + (let* ((_g2552325531_ + (lambda (_g2552425527_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2534725350_))) - (_g2534525659_ - (lambda (_g2534725358_) - ((lambda (_L25361_) + _g2552425527_))) + (_g2552225836_ + (lambda (_g2552425535_) + ((lambda (_L25538_) (let () - (let* ((_g2537425382_ - (lambda (_g2537525378_) + (let* ((_g2555125559_ + (lambda (_g2555225555_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2537525378_))) - (_g2537325655_ - (lambda (_g2537525386_) - ((lambda (_L25389_) + _g2555225555_))) + (_g2555025832_ + (lambda (_g2555225563_) + ((lambda (_L25566_) (let () - (let* ((_g2540225410_ + (let* ((_g2557925587_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2540325406_) + (lambda (_g2558025583_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2540325406_))) - (_g2540125651_ - (lambda (_g2540325414_) - ((lambda (_L25417_) + _g2558025583_))) + (_g2557825828_ + (lambda (_g2558025591_) + ((lambda (_L25594_) (let () - (let* ((_g2543025438_ - (lambda (_g2543125434_) + (let* ((_g2560725615_ + (lambda (_g2560825611_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2543125434_))) - (_g2542925647_ - (lambda (_g2543125442_) - ((lambda (_L25445_) + _g2560825611_))) + (_g2560625824_ + (lambda (_g2560825619_) + ((lambda (_L25622_) (let () - (let* ((_g2545825466_ - (lambda (_g2545925462_) + (let* ((_g2563525643_ + (lambda (_g2563625639_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2545925462_))) - (_g2545725643_ - (lambda (_g2545925470_) - ((lambda (_L25473_) + _g2563625639_))) + (_g2563425820_ + (lambda (_g2563625647_) + ((lambda (_L25650_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g2548625494_ - (lambda (_g2548725490_) + (let* ((_g2566325671_ + (lambda (_g2566425667_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2548725490_))) - (_g2548525628_ - (lambda (_g2548725498_) - ((lambda (_L25501_) + _g2566425667_))) + (_g2566225805_ + (lambda (_g2566425675_) + ((lambda (_L25678_) (let () - (let* ((_g2551425522_ - (lambda (_g2551525518_) + (let* ((_g2569125699_ + (lambda (_g2569225695_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2551525518_))) - (_g2551325616_ - (lambda (_g2551525526_) - ((lambda (_L25529_) + _g2569225695_))) + (_g2569025793_ + (lambda (_g2569225703_) + ((lambda (_L25706_) (let () - (let* ((_g2554225550_ - (lambda (_g2554325546_) + (let* ((_g2571925727_ + (lambda (_g2572025723_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2554325546_))) - (_g2554125612_ - (lambda (_g2554325554_) - ((lambda (_L25557_) + _g2572025723_))) + (_g2571825789_ + (lambda (_g2572025731_) + ((lambda (_L25734_) (let () (let () - (let ((__tmp50226 + (let ((__tmp50437 (gx#datum->syntax '#f 'letrec)) - (__tmp50173 - (let ((__tmp50179 - (let ((__tmp50217 - (let ((__tmp50218 - (let ((__tmp50219 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50225 (gx#datum->syntax '#f 'lambda)) - (__tmp50220 - (let ((__tmp50222 - (let ((__tmp50223 - (let ((__tmp50224 - (lambda (_g2557925582_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2558025585_) + (__tmp50384 + (let ((__tmp50390 + (let ((__tmp50428 + (let ((__tmp50429 + (let ((__tmp50430 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50436 (gx#datum->syntax '#f 'lambda)) + (__tmp50431 + (let ((__tmp50433 + (let ((__tmp50434 + (let ((__tmp50435 + (lambda (_g2575625759_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2575725762_) (let () (declare (not safe)) - (cons _g2557925582_ _g2558025585_))))) + (cons _g2575625759_ _g2575725762_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50224 + (foldr1 __tmp50435 '() - _L25132_)))) + _L25309_)))) (declare (not safe)) - (cons _L25445_ __tmp50223))) - (__tmp50221 + (cons _L25622_ __tmp50434))) + (__tmp50432 (let () (declare (not safe)) - (cons _L25473_ '())))) + (cons _L25650_ '())))) (declare (not safe)) - (cons __tmp50222 __tmp50221)))) + (cons __tmp50433 __tmp50432)))) (declare (not safe)) - (cons __tmp50225 __tmp50220)))) + (cons __tmp50436 __tmp50431)))) (declare (not safe)) - (cons __tmp50219 '())))) + (cons __tmp50430 '())))) (declare (not safe)) - (cons _L25333_ __tmp50218))) + (cons _L25510_ __tmp50429))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50180 - (let ((__tmp50207 - (let ((__tmp50208 + (__tmp50391 + (let ((__tmp50418 + (let ((__tmp50419 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50209 - (let ((__tmp50216 + (let ((__tmp50420 + (let ((__tmp50427 (gx#datum->syntax '#f 'lambda)) - (__tmp50210 - (let ((__tmp50212 - (let ((__tmp50213 - (let ((__tmp50214 - (let ((__tmp50215 + (__tmp50421 + (let ((__tmp50423 + (let ((__tmp50424 + (let ((__tmp50425 + (let ((__tmp50426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2557725588_ _g2557825591_) + (lambda (_g2575425765_ _g2575525768_) (let () (declare (not safe)) - (cons _g2557725588_ _g2557825591_))))) + (cons _g2575425765_ _g2575525768_))))) (declare (not safe)) - (foldr1 __tmp50215 '() _L25202_)))) + (foldr1 __tmp50426 '() _L25379_)))) (declare (not safe)) - (cons _L25445_ __tmp50214)))) + (cons _L25622_ __tmp50425)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25417_ __tmp50213))) - (__tmp50211 + (cons _L25594_ __tmp50424))) + (__tmp50422 (let () (declare (not safe)) - (cons _L25557_ '())))) + (cons _L25734_ '())))) (declare (not safe)) - (cons __tmp50212 __tmp50211)))) + (cons __tmp50423 __tmp50422)))) (declare (not safe)) - (cons __tmp50216 __tmp50210)))) + (cons __tmp50427 __tmp50421)))) (declare (not safe)) - (cons __tmp50209 '())))) + (cons __tmp50420 '())))) (declare (not safe)) - (cons _L25389_ __tmp50208))) - (__tmp50181 - (let ((__tmp50182 - (let ((__tmp50183 - (let ((__tmp50184 - (let ((__tmp50206 + (cons _L25566_ __tmp50419))) + (__tmp50392 + (let ((__tmp50393 + (let ((__tmp50394 + (let ((__tmp50395 + (let ((__tmp50417 (gx#datum->syntax '#f 'lambda)) - (__tmp50185 - (let ((__tmp50203 - (let ((__tmp50204 - (let ((__tmp50205 + (__tmp50396 + (let ((__tmp50414 + (let ((__tmp50415 + (let ((__tmp50416 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2557525594_ _g2557625597_) + (lambda (_g2575225771_ _g2575325774_) (let () (declare (not safe)) - (cons _g2557525594_ _g2557625597_))))) + (cons _g2575225771_ _g2575325774_))))) (declare (not safe)) - (foldr1 __tmp50205 '() _L25202_)))) + (foldr1 __tmp50416 '() _L25379_)))) (declare (not safe)) - (cons _L25445_ __tmp50204))) - (__tmp50186 - (let ((__tmp50187 - (let ((__tmp50202 (gx#datum->syntax '#f 'if)) - (__tmp50188 - (let ((__tmp50199 - (let ((__tmp50201 + (cons _L25622_ __tmp50415))) + (__tmp50397 + (let ((__tmp50398 + (let ((__tmp50413 (gx#datum->syntax '#f 'if)) + (__tmp50399 + (let ((__tmp50410 + (let ((__tmp50412 (gx#datum->syntax '#f 'pair?)) - (__tmp50200 + (__tmp50411 (let () (declare (not safe)) - (cons _L25445_ '())))) + (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp50201 __tmp50200))) - (__tmp50189 - (let ((__tmp50191 - (let ((__tmp50192 - (let ((__tmp50196 - (let ((__tmp50198 + (cons __tmp50412 __tmp50411))) + (__tmp50400 + (let ((__tmp50402 + (let ((__tmp50403 + (let ((__tmp50407 + (let ((__tmp50409 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp50197 - (let () (declare (not safe)) (cons _L25445_ '())))) + (__tmp50408 + (let () (declare (not safe)) (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp50198 __tmp50197))) - (__tmp50193 - (let ((__tmp50194 - (let ((__tmp50195 - (lambda (_g2557325600_ _g2557425603_) + (cons __tmp50409 __tmp50408))) + (__tmp50404 + (let ((__tmp50405 + (let ((__tmp50406 + (lambda (_g2575025777_ _g2575125780_) (let () (declare (not safe)) - (cons _g2557325600_ _g2557425603_))))) + (cons _g2575025777_ _g2575125780_))))) (declare (not safe)) - (foldr1 __tmp50195 '() _L25202_)))) + (foldr1 __tmp50406 '() _L25379_)))) (declare (not safe)) - (cons _L25445_ __tmp50194)))) + (cons _L25622_ __tmp50405)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50196 - __tmp50193)))) + (cons __tmp50407 + __tmp50404)))) (declare (not safe)) - (cons _L25389_ __tmp50192))) - (__tmp50190 + (cons _L25566_ __tmp50403))) + (__tmp50401 (let () (declare (not safe)) - (cons _L25529_ '())))) + (cons _L25706_ '())))) (declare (not safe)) - (cons __tmp50191 __tmp50190)))) + (cons __tmp50402 __tmp50401)))) (declare (not safe)) - (cons __tmp50199 __tmp50189)))) + (cons __tmp50410 __tmp50400)))) (declare (not safe)) - (cons __tmp50202 __tmp50188)))) + (cons __tmp50413 __tmp50399)))) (declare (not safe)) - (cons __tmp50187 '())))) + (cons __tmp50398 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50203 - __tmp50186)))) + (cons __tmp50414 + __tmp50397)))) (declare (not safe)) - (cons __tmp50206 __tmp50185)))) + (cons __tmp50417 __tmp50396)))) (declare (not safe)) - (cons __tmp50184 '())))) + (cons __tmp50395 '())))) (declare (not safe)) - (cons _L25361_ __tmp50183)))) + (cons _L25538_ __tmp50394)))) (declare (not safe)) - (cons __tmp50182 '())))) + (cons __tmp50393 '())))) (declare (not safe)) - (cons __tmp50207 __tmp50181)))) + (cons __tmp50418 __tmp50392)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50217 __tmp50180))) - (__tmp50174 - (let ((__tmp50175 - (let ((__tmp50176 - (let ((__tmp50177 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50178 - (lambda (_g2557125606_ _g2557225609_) + (cons __tmp50428 __tmp50391))) + (__tmp50385 + (let ((__tmp50386 + (let ((__tmp50387 + (let ((__tmp50388 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50389 + (lambda (_g2574825783_ _g2574925786_) (let () (declare (not safe)) - (cons _g2557125606_ _g2557225609_))))) + (cons _g2574825783_ _g2574925786_))))) (declare (not safe)) - (foldr1 __tmp50178 '() _L25273_)))) + (foldr1 __tmp50389 '() _L25450_)))) (declare (not safe)) - (cons _L25305_ __tmp50177)))) + (cons _L25482_ __tmp50388)))) (declare (not safe)) - (cons _L25361_ __tmp50176)))) + (cons _L25538_ __tmp50387)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50175 '())))) + (cons __tmp50386 '())))) (declare (not safe)) - (cons __tmp50179 __tmp50174)))) + (cons __tmp50390 __tmp50385)))) (declare (not safe)) - (cons __tmp50226 __tmp50173))))) - _g2554325554_))) - (__tmp50227 + (cons __tmp50437 __tmp50384))))) + _g2572025731_))) + (__tmp50438 (let () (declare (not safe)) - (_generate124454_ - _L25417_ - _hd25073_ - _L25501_ - _L25529_)))) + (_generate124631_ + _L25594_ + _hd25250_ + _L25678_ + _L25706_)))) (declare (not safe)) - (_g2554125612_ __tmp50227)))) + (_g2571825789_ __tmp50438)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2551525526_))) - (__tmp50228 - (let ((__tmp50229 - (let ((__tmp50230 - (let ((__tmp50231 + _g2569225703_))) + (__tmp50439 + (let ((__tmp50440 + (let ((__tmp50441 + (let ((__tmp50442 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2561925622_ _g2562025625_) - (let ((__tmp50232 - (let ((__tmp50234 + (lambda (_g2579625799_ _g2579725802_) + (let ((__tmp50443 + (let ((__tmp50445 (gx#datum->syntax '#f 'reverse)) - (__tmp50233 + (__tmp50444 (let () (declare (not safe)) - (cons _g2561925622_ '())))) + (cons _g2579625799_ '())))) (declare (not safe)) - (cons __tmp50234 __tmp50233)))) + (cons __tmp50445 __tmp50444)))) (declare (not safe)) - (cons __tmp50232 _g2562025625_))))) + (cons __tmp50443 _g2579725802_))))) (declare (not safe)) - (foldr1 __tmp50231 '() _L25202_)))) + (foldr1 __tmp50442 '() _L25379_)))) (declare (not safe)) - (cons _L25445_ __tmp50230)))) + (cons _L25622_ __tmp50441)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L25333_ - __tmp50229)))) + (cons _L25510_ + __tmp50440)))) (declare (not safe)) - (_g2551325616_ __tmp50228)))) - _g2548725498_))) - (__tmp50235 - (let ((__tmp50236 - (let ((__tmp50243 - (let ((__tmp50245 + (_g2569025793_ __tmp50439)))) + _g2566425675_))) + (__tmp50446 + (let ((__tmp50447 + (let ((__tmp50454 + (let ((__tmp50456 (gx#datum->syntax '#f '##cdr)) - (__tmp50244 + (__tmp50455 (let () (declare (not safe)) - (cons _L25445_ '())))) + (cons _L25622_ '())))) (declare (not safe)) - (cons __tmp50245 - __tmp50244))) - (__tmp50237 + (cons __tmp50456 + __tmp50455))) + (__tmp50448 (begin (gx#syntax-check-splice-targets - _L25202_ - _L25132_) - (let ((__tmp50238 - (lambda (_g2563125635_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2563225638_ - _g2563325640_) - (let ((__tmp50239 - (let ((__tmp50242 (gx#datum->syntax '#f 'cons)) - (__tmp50240 - (let ((__tmp50241 + _L25379_ + _L25309_) + (let ((__tmp50449 + (lambda (_g2580825812_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2580925815_ + _g2581025817_) + (let ((__tmp50450 + (let ((__tmp50453 (gx#datum->syntax '#f 'cons)) + (__tmp50451 + (let ((__tmp50452 (let () (declare (not safe)) - (cons _g2563125635_ '())))) + (cons _g2580825812_ '())))) (declare (not safe)) - (cons _g2563225638_ __tmp50241)))) + (cons _g2580925815_ __tmp50452)))) (declare (not safe)) - (cons __tmp50242 __tmp50240)))) + (cons __tmp50453 __tmp50451)))) (declare (not safe)) - (cons __tmp50239 _g2563325640_))))) + (cons __tmp50450 _g2581025817_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp50238 + (foldr2 __tmp50449 '() - _L25202_ - _L25132_))))) + _L25379_ + _L25309_))))) (declare (not safe)) - (cons __tmp50243 __tmp50237)))) + (cons __tmp50454 __tmp50448)))) (declare (not safe)) - (cons _L25361_ __tmp50236)))) + (cons _L25538_ __tmp50447)))) (declare (not safe)) - (_g2548525628_ __tmp50235)))) - _g2545925470_))) - (__tmp50246 + (_g2566225805_ __tmp50446)))) + _g2563625647_))) + (__tmp50457 (let () (declare (not safe)) - (_generate124454_ - _L25445_ - _rest25074_ - _K25075_ - _E25076_)))) + (_generate124631_ + _L25622_ + _rest25251_ + _K25252_ + _E25253_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2545725643_ - __tmp50246)))) - _g2543125442_))) - (__tmp50247 (gx#genident 'rest))) + (_g2563425820_ + __tmp50457)))) + _g2560825619_))) + (__tmp50458 (gx#genident 'rest))) (declare (not safe)) - (_g2542925647_ __tmp50247)))) - _g2540325414_))) - (__tmp50248 (gx#genident 'hd))) + (_g2560625824_ __tmp50458)))) + _g2558025591_))) + (__tmp50459 (gx#genident 'hd))) (declare (not safe)) - (_g2540125651_ __tmp50248)))) - _g2537525386_))) + (_g2557825828_ __tmp50459)))) + _g2555225563_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50249 + (__tmp50460 (gx#genident 'splice-try))) (declare (not safe)) - (_g2537325655_ __tmp50249)))) - _g2534725358_))) - (__tmp50250 (gx#genident 'splice-loop))) + (_g2555025832_ __tmp50460)))) + _g2552425535_))) + (__tmp50461 (gx#genident 'splice-loop))) (declare (not safe)) - (_g2534525659_ __tmp50250)))) - _g2531925330_))) - (__tmp50251 (gx#genident 'splice-rest))) + (_g2552225836_ __tmp50461)))) + _g2549625507_))) + (__tmp50462 (gx#genident 'splice-rest))) (declare (not safe)) - (_g2531725663_ __tmp50251)))) + (_g2549425840_ __tmp50462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2529125302_)))) + _g2546825479_)))) (declare (not safe)) - (_g2528925667_ _tgt25071_)))) - _init2523025269_)))))) + (_g2546625844_ _tgt25248_)))) + _init2540725446_)))))) (let () (declare (not safe)) - (_loop2522525249_ _target2522225243_ '()))) + (_loop2540225426_ _target2539925420_ '()))) (let () (declare (not safe)) - (_g2521925236_ _g2522025240_)))))) + (_g2539625413_ _g2539725417_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2521925236_ - _g2522025240_))))) - (__tmp50253 + (_g2539625413_ + _g2539725417_))))) + (__tmp50464 (make-list (gx#stx-length - (let ((__tmp50254 - (lambda (_g2567425677_ - _g2567525680_) + (let ((__tmp50465 + (lambda (_g2585125854_ + _g2585225857_) (let () (declare (not safe)) - (cons _g2567425677_ - _g2567525680_))))) + (cons _g2585125854_ + _g2585225857_))))) (declare (not safe)) - (foldr1 __tmp50254 + (foldr1 __tmp50465 '() - _L25132_))) - (let ((__tmp50255 + _L25309_))) + (let ((__tmp50466 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp50255 '()))))) + (cons __tmp50466 '()))))) (declare (not safe)) - (_g2521825671_ __tmp50253)))) - _var-r2515925198_)))))) + (_g2539525848_ __tmp50464)))) + _var-r2533625375_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2515425178_ - _target2515125172_ + (_loop2533125355_ + _target2532825349_ '()))) (let () (declare (not safe)) - (_g2514825165_ - _g2514925169_)))))) + (_g2532525342_ + _g2532625346_)))))) (let () (declare (not safe)) - (_g2514825165_ _g2514925169_))))) - (__tmp50257 + (_g2532525342_ _g2532625346_))))) + (__tmp50468 (gx#gentemps - (let ((__tmp50258 - (lambda (_g2568625689_ - _g2568725692_) + (let ((__tmp50469 + (lambda (_g2586325866_ + _g2586425869_) (let () (declare (not safe)) - (cons _g2568625689_ - _g2568725692_))))) + (cons _g2586325866_ + _g2586425869_))))) (declare (not safe)) - (foldr1 __tmp50258 '() _L25132_))))) + (foldr1 __tmp50469 '() _L25309_))))) (declare (not safe)) - (_g2514725683_ __tmp50257)))) - _var2508925128_)))))) + (_g2532425860_ __tmp50468)))) + _var2526625305_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2508425108_ - _target2508125102_ + (_loop2526125285_ + _target2525825279_ '()))) (let () (declare (not safe)) - (_g2507825095_ - _g2507925099_)))))) + (_g2525525272_ + _g2525625276_)))))) (let () (declare (not safe)) - (_g2507825095_ _g2507925099_))))) - (__tmp50260 + (_g2525525272_ _g2525625276_))))) + (__tmp50471 (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern-vars| - _hd25073_)))) + _hd25250_)))) (declare (not safe)) - (_g2507725695_ __tmp50260)))) - (_generate-simple-vector24457_ - (lambda (_tgt24913_ - _body24915_ - _start24916_ - _K24917_ - _E24918_) - (let _recur24920_ ((_rest24923_ _body24915_) - (_off24925_ _start24916_)) - (let* ((___stx4613446135_ _rest24923_) - (_g2492824940_ + (_g2525425872_ __tmp50471)))) + (_generate-simple-vector24634_ + (lambda (_tgt25090_ + _body25092_ + _start25093_ + _K25094_ + _E25095_) + (let _recur25097_ ((_rest25100_ _body25092_) + (_off25102_ _start25093_)) + (let* ((___stx4631146312_ _rest25100_) + (_g2510525117_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4613446135_)))) - (let ((___kont4613746138_ - (lambda (_L24968_ _L24970_) - (let* ((_g2498525004_ - (lambda (_g2498625000_) + ___stx4631146312_)))) + (let ((___kont4631446315_ + (lambda (_L25145_ _L25147_) + (let* ((_g2516225181_ + (lambda (_g2516325177_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2498625000_))) - (_g2498425063_ - (lambda (_g2498625008_) - (if (gx#stx-pair? _g2498625008_) - (let ((_e2499225011_ + _g2516325177_))) + (_g2516125240_ + (lambda (_g2516325185_) + (if (gx#stx-pair? _g2516325185_) + (let ((_e2516925188_ (gx#syntax-e - _g2498625008_))) - (let ((_hd2499125015_ + _g2516325185_))) + (let ((_hd2516825192_ (let () (declare (not safe)) - (##car _e2499225011_))) - (_tl2499025018_ + (##car _e2516925188_))) + (_tl2516725195_ (let () (declare (not safe)) - (##cdr _e2499225011_)))) + (##cdr _e2516925188_)))) (if (gx#stx-pair? - _tl2499025018_) - (let ((_e2499525021_ + _tl2516725195_) + (let ((_e2517225198_ (gx#syntax-e - _tl2499025018_))) - (let ((_hd2499425025_ + _tl2516725195_))) + (let ((_hd2517125202_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e2499525021_))) - (_tl2499325028_ - (let () (declare (not safe)) (##cdr _e2499525021_)))) - (if (gx#stx-pair? _tl2499325028_) - (let ((_e2499825031_ (gx#syntax-e _tl2499325028_))) - (let ((_hd2499725035_ + (##car _e2517225198_))) + (_tl2517025205_ + (let () (declare (not safe)) (##cdr _e2517225198_)))) + (if (gx#stx-pair? _tl2517025205_) + (let ((_e2517525208_ (gx#syntax-e _tl2517025205_))) + (let ((_hd2517425212_ (let () (declare (not safe)) - (##car _e2499825031_))) - (_tl2499625038_ + (##car _e2517525208_))) + (_tl2517325215_ (let () (declare (not safe)) - (##cdr _e2499825031_)))) - (if (gx#stx-null? _tl2499625038_) - ((lambda (_L25041_ _L25043_ _L25044_) + (##cdr _e2517525208_)))) + (if (gx#stx-null? _tl2517325215_) + ((lambda (_L25218_ _L25220_ _L25221_) (let () - (let ((__tmp50261 - (let ((__tmp50266 - (let ((__tmp50267 - (let ((__tmp50268 - (let ((__tmp50269 + (let ((__tmp50472 + (let ((__tmp50477 + (let ((__tmp50478 + (let ((__tmp50479 + (let ((__tmp50480 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50272 + (let ((__tmp50483 (gx#datum->syntax '#f '##vector-ref)) - (__tmp50270 - (let ((__tmp50271 + (__tmp50481 + (let ((__tmp50482 (let () (declare (not safe)) - (cons _L25041_ '())))) + (cons _L25218_ '())))) (declare (not safe)) - (cons _L25043_ __tmp50271)))) + (cons _L25220_ __tmp50482)))) (declare (not safe)) - (cons __tmp50272 __tmp50270)))) + (cons __tmp50483 __tmp50481)))) (declare (not safe)) - (cons __tmp50269 '())))) + (cons __tmp50480 '())))) (declare (not safe)) - (cons _L25044_ __tmp50268)))) + (cons _L25221_ __tmp50479)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50267 '()))) - (__tmp50262 - (let ((__tmp50263 - (let ((__tmp50264 - (let ((__tmp50265 + (cons __tmp50478 '()))) + (__tmp50473 + (let ((__tmp50474 + (let ((__tmp50475 + (let ((__tmp50476 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (fx+ _off24925_ '1)))) + (fx+ _off25102_ '1)))) (declare (not safe)) - (_recur24920_ _L24968_ __tmp50265)))) + (_recur25097_ _L25145_ __tmp50476)))) (declare (not safe)) - (_generate124454_ _L25044_ _L24970_ __tmp50264 _E24918_)))) + (_generate124631_ _L25221_ _L25147_ __tmp50475 _E25095_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50263 '())))) + (cons __tmp50474 '())))) (declare (not safe)) - (cons __tmp50266 __tmp50262)))) + (cons __tmp50477 __tmp50473)))) (declare (not safe)) - (cons 'let __tmp50261)))) - _hd2499725035_ - _hd2499425025_ - _hd2499125015_) + (cons 'let __tmp50472)))) + _hd2517425212_ + _hd2517125202_ + _hd2516825192_) (let () (declare (not safe)) - (_g2498525004_ _g2498625008_))))) + (_g2516225181_ _g2516325185_))))) (let () (declare (not safe)) - (_g2498525004_ _g2498625008_))))) - (let () (declare (not safe)) (_g2498525004_ _g2498625008_))))) + (_g2516225181_ _g2516325185_))))) + (let () (declare (not safe)) (_g2516225181_ _g2516325185_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2498525004_ - _g2498625008_))))) - (__tmp50273 + (_g2516225181_ + _g2516325185_))))) + (__tmp50484 (list (gx#genident 'e) - _tgt24913_ - _off24925_))) + _tgt25090_ + _off25102_))) (declare (not safe)) - (_g2498425063_ __tmp50273)))) - (___kont4613946140_ (lambda () _K24917_))) - (if (gx#stx-pair? ___stx4613446135_) - (let ((_e2493424958_ - (gx#syntax-e ___stx4613446135_))) - (let ((_tl2493224965_ + (_g2516125240_ __tmp50484)))) + (___kont4631646317_ (lambda () _K25094_))) + (if (gx#stx-pair? ___stx4631146312_) + (let ((_e2511125135_ + (gx#syntax-e ___stx4631146312_))) + (let ((_tl2510925142_ (let () (declare (not safe)) - (##cdr _e2493424958_))) - (_hd2493324962_ + (##cdr _e2511125135_))) + (_hd2511025139_ (let () (declare (not safe)) - (##car _e2493424958_)))) - (___kont4613746138_ - _tl2493224965_ - _hd2493324962_))) - (___kont4613946140_))))))) - (_generate-list-vector24458_ - (lambda (_tgt24805_ - _body24807_ - _->list24808_ - _K24809_ - _E24810_) - (let* ((_g2481224820_ - (lambda (_g2481324816_) + (##car _e2511125135_)))) + (___kont4631446315_ + _tl2510925142_ + _hd2511025139_))) + (___kont4631646317_))))))) + (_generate-list-vector24635_ + (lambda (_tgt24982_ + _body24984_ + _->list24985_ + _K24986_ + _E24987_) + (let* ((_g2498924997_ + (lambda (_g2499024993_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2481324816_))) - (_g2481124909_ - (lambda (_g2481324824_) - ((lambda (_L24827_) + _g2499024993_))) + (_g2498825086_ + (lambda (_g2499025001_) + ((lambda (_L25004_) (let () - (let* ((_g2483924847_ - (lambda (_g2484024843_) + (let* ((_g2501625024_ + (lambda (_g2501725020_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2484024843_))) - (_g2483824905_ - (lambda (_g2484024851_) - ((lambda (_L24854_) + _g2501725020_))) + (_g2501525082_ + (lambda (_g2501725028_) + ((lambda (_L25031_) (let () - (let* ((_g2486724875_ - (lambda (_g2486824871_) + (let* ((_g2504425052_ + (lambda (_g2504525048_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2486824871_))) - (_g2486624897_ - (lambda (_g2486824879_) - ((lambda (_L24882_) + _g2504525048_))) + (_g2504325074_ + (lambda (_g2504525056_) + ((lambda (_L25059_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp50274 - (let ((__tmp50277 - (let ((__tmp50278 - (let ((__tmp50279 + (let ((__tmp50485 + (let ((__tmp50488 + (let ((__tmp50489 + (let ((__tmp50490 (let () (declare (not safe)) - (cons _L24882_ '())))) + (cons _L25059_ '())))) (declare (not safe)) - (cons _L24827_ __tmp50279)))) + (cons _L25004_ __tmp50490)))) (declare (not safe)) - (cons __tmp50278 '()))) - (__tmp50275 - (let ((__tmp50276 + (cons __tmp50489 '()))) + (__tmp50486 + (let ((__tmp50487 (let () (declare (not safe)) - (_generate124454_ - _L24827_ - _body24807_ - _K24809_ - _E24810_)))) + (_generate124631_ + _L25004_ + _body24984_ + _K24986_ + _E24987_)))) (declare (not safe)) - (cons __tmp50276 '())))) + (cons __tmp50487 '())))) (declare (not safe)) - (cons __tmp50277 __tmp50275)))) + (cons __tmp50488 __tmp50486)))) (declare (not safe)) - (cons 'let __tmp50274))))) - _g2486824879_))) - (__tmp50280 - (let ((_$e24901_ _->list24808_)) + (cons 'let __tmp50485))))) + _g2504525056_))) + (__tmp50491 + (let ((_$e25078_ _->list24985_)) (if (let () (declare (not safe)) - (eq? 'values->list _$e24901_)) - (let ((__tmp50289 (gx#datum->syntax '#f 'values->list)) - (__tmp50288 + (eq? 'values->list _$e25078_)) + (let ((__tmp50500 (gx#datum->syntax '#f 'values->list)) + (__tmp50499 (let () (declare (not safe)) - (cons _L24854_ '())))) + (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp50289 __tmp50288)) + (cons __tmp50500 __tmp50499)) (if (let () (declare (not safe)) - (eq? 'vector->list _$e24901_)) - (let ((__tmp50287 + (eq? 'vector->list _$e25078_)) + (let ((__tmp50498 (gx#datum->syntax '#f '##vector->list)) - (__tmp50286 + (__tmp50497 (let () (declare (not safe)) - (cons _L24854_ '())))) + (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp50287 __tmp50286)) + (cons __tmp50498 __tmp50497)) (if (let () (declare (not safe)) - (eq? 'struct->list _$e24901_)) - (let ((__tmp50285 + (eq? 'struct->list _$e25078_)) + (let ((__tmp50496 (gx#datum->syntax '#f '##cdr)) - (__tmp50281 - (let ((__tmp50282 - (let ((__tmp50284 + (__tmp50492 + (let ((__tmp50493 + (let ((__tmp50495 (gx#datum->syntax '#f '##structure->list)) - (__tmp50283 + (__tmp50494 (let () (declare (not safe)) - (cons _L24854_ '())))) + (cons _L25031_ '())))) (declare (not safe)) - (cons __tmp50284 __tmp50283)))) + (cons __tmp50495 __tmp50494)))) (declare (not safe)) - (cons __tmp50282 '())))) + (cons __tmp50493 '())))) (declare (not safe)) - (cons __tmp50285 __tmp50281)) + (cons __tmp50496 __tmp50492)) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _stx24447_ - _->list24808_))))))) + _stx24624_ + _->list24985_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2486624897_ - __tmp50280)))) - _g2484024851_)))) + (_g2504325074_ + __tmp50491)))) + _g2501725028_)))) (declare (not safe)) - (_g2483824905_ _tgt24805_)))) - _g2481324824_))) - (__tmp50290 (gx#genident 'e))) + (_g2501525082_ _tgt24982_)))) + _g2499025001_))) + (__tmp50501 (gx#genident 'e))) (declare (not safe)) - (_g2481124909_ __tmp50290)))) - (_generate-struct24459_ - (lambda (_info24676_ - _tgt24678_ - _body24679_ - _K24680_ - _E24681_) - (let* ((___stx4615046151_ _body24679_) - (_g2468424707_ + (_g2498825086_ __tmp50501)))) + (_generate-struct24636_ + (lambda (_info24853_ + _tgt24855_ + _body24856_ + _K24857_ + _E24858_) + (let* ((___stx4632746328_ _body24856_) + (_g2486124884_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4615046151_)))) - (let ((___kont4615346154_ - (lambda (_L24784_) - (let* ((_fields24798_ + ___stx4632746328_)))) + (let ((___kont4633046331_ + (lambda (_L24961_) + (let* ((_fields24975_ (let () (declare (not safe)) - (_struct-field-accessors24461_ - _info24676_))) - (__tmp50291 - (let ((__tmp50295 - (let ((__tmp50297 - (let ((__obj47353 - _info24676_)) + (_struct-field-accessors24638_ + _info24853_))) + (__tmp50502 + (let ((__tmp50506 + (let ((__tmp50508 + (let ((__obj47530 + _info24853_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47353 + __obj47530 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47353 - '10 + __obj47530 + '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47353 + __obj47530 'predicate)))) - (__tmp50296 + (__tmp50507 (let () (declare (not safe)) - (cons _tgt24678_ '())))) + (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp50297 __tmp50296))) - (__tmp50292 - (let ((__tmp50294 + (cons __tmp50508 __tmp50507))) + (__tmp50503 + (let ((__tmp50505 (let () (declare (not safe)) - (_generate-simple-struct-body24460_ - _info24676_ - _tgt24678_ - _L24784_ - _K24680_ - _E24681_))) - (__tmp50293 + (_generate-simple-struct-body24637_ + _info24853_ + _tgt24855_ + _L24961_ + _K24857_ + _E24858_))) + (__tmp50504 (let () (declare (not safe)) - (cons _E24681_ '())))) + (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp50294 __tmp50293)))) + (cons __tmp50505 __tmp50504)))) (declare (not safe)) - (cons __tmp50295 __tmp50292)))) + (cons __tmp50506 __tmp50503)))) (declare (not safe)) - (cons 'if __tmp50291)))) - (___kont4615546156_ - (lambda (_L24738_) - (let ((__tmp50298 - (let ((__tmp50302 - (let ((__tmp50304 - (let ((__obj47354 - _info24676_)) + (cons 'if __tmp50502)))) + (___kont4633246333_ + (lambda (_L24915_) + (let ((__tmp50509 + (let ((__tmp50513 + (let ((__tmp50515 + (let ((__obj47531 + _info24853_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47354 + __obj47531 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47354 - '10 + __obj47531 + '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47354 + __obj47531 'predicate)))) - (__tmp50303 + (__tmp50514 (let () (declare (not safe)) - (cons _tgt24678_ '())))) + (cons _tgt24855_ '())))) (declare (not safe)) - (cons __tmp50304 __tmp50303))) - (__tmp50299 - (let ((__tmp50301 + (cons __tmp50515 __tmp50514))) + (__tmp50510 + (let ((__tmp50512 (let () (declare (not safe)) - (_generate-list-vector24458_ - _tgt24678_ - _L24738_ + (_generate-list-vector24635_ + _tgt24855_ + _L24915_ 'struct->list - _K24680_ - _E24681_))) - (__tmp50300 + _K24857_ + _E24858_))) + (__tmp50511 (let () (declare (not safe)) - (cons _E24681_ '())))) + (cons _E24858_ '())))) (declare (not safe)) - (cons __tmp50301 __tmp50300)))) + (cons __tmp50512 __tmp50511)))) (declare (not safe)) - (cons __tmp50302 __tmp50299)))) + (cons __tmp50513 __tmp50510)))) (declare (not safe)) - (cons 'if __tmp50298))))) - (if (gx#stx-pair? ___stx4615046151_) - (let ((_e2468924760_ - (gx#syntax-e ___stx4615046151_))) - (let ((_tl2468724767_ + (cons 'if __tmp50509))))) + (if (gx#stx-pair? ___stx4632746328_) + (let ((_e2486624937_ + (gx#syntax-e ___stx4632746328_))) + (let ((_tl2486424944_ (let () (declare (not safe)) - (##cdr _e2468924760_))) - (_hd2468824764_ + (##cdr _e2486624937_))) + (_hd2486524941_ (let () (declare (not safe)) - (##car _e2468924760_)))) - (if (gx#stx-datum? _hd2468824764_) - (let ((_e2469024770_ - (gx#stx-e _hd2468824764_))) + (##car _e2486624937_)))) + (if (gx#stx-datum? _hd2486524941_) + (let ((_e2486724947_ + (gx#stx-e _hd2486524941_))) (if (let () (declare (not safe)) - (equal? _e2469024770_ 'simple:)) - (if (gx#stx-pair? _tl2468724767_) - (let ((_e2469324774_ + (equal? _e2486724947_ 'simple:)) + (if (gx#stx-pair? _tl2486424944_) + (let ((_e2487024951_ (gx#syntax-e - _tl2468724767_))) - (let ((_tl2469124781_ + _tl2486424944_))) + (let ((_tl2486824958_ (let () (declare (not safe)) - (##cdr _e2469324774_))) - (_hd2469224778_ + (##cdr _e2487024951_))) + (_hd2486924955_ (let () (declare (not safe)) - (##car _e2469324774_)))) + (##car _e2487024951_)))) (if (gx#stx-null? - _tl2469124781_) - (___kont4615346154_ - _hd2469224778_) + _tl2486824958_) + (___kont4633046331_ + _hd2486924955_) (let () (declare (not safe)) - (_g2468424707_))))) + (_g2486124884_))))) (let () (declare (not safe)) - (_g2468424707_))) + (_g2486124884_))) (if (let () (declare (not safe)) - (equal? _e2469024770_ 'list:)) - (if (gx#stx-pair? _tl2468724767_) - (let ((_e2470124728_ + (equal? _e2486724947_ 'list:)) + (if (gx#stx-pair? _tl2486424944_) + (let ((_e2487824905_ (gx#syntax-e - _tl2468724767_))) - (let ((_tl2469924735_ + _tl2486424944_))) + (let ((_tl2487624912_ (let () (declare (not safe)) - (##cdr _e2470124728_))) - (_hd2470024732_ + (##cdr _e2487824905_))) + (_hd2487724909_ (let () (declare (not safe)) - (##car _e2470124728_)))) + (##car _e2487824905_)))) (if (gx#stx-null? - _tl2469924735_) - (___kont4615546156_ - _hd2470024732_) + _tl2487624912_) + (___kont4633246333_ + _hd2487724909_) (let () (declare (not safe)) - (_g2468424707_))))) + (_g2486124884_))))) (let () (declare (not safe)) - (_g2468424707_))) + (_g2486124884_))) (let () (declare (not safe)) - (_g2468424707_))))) + (_g2486124884_))))) (let () (declare (not safe)) - (_g2468424707_))))) - (let () (declare (not safe)) (_g2468424707_))))))) - (_generate-simple-struct-body24460_ - (lambda (_info24596_ - _tgt24598_ - _body24599_ - _K24600_ - _E24601_) - (let _recur24603_ ((_rest24606_ _body24599_) - (_fields24608_ + (_g2486124884_))))) + (let () (declare (not safe)) (_g2486124884_))))))) + (_generate-simple-struct-body24637_ + (lambda (_info24773_ + _tgt24775_ + _body24776_ + _K24777_ + _E24778_) + (let _recur24780_ ((_rest24783_ _body24776_) + (_fields24785_ (let () (declare (not safe)) - (_struct-field-accessors24461_ - _info24596_)))) - (let* ((___stx4620046201_ _rest24606_) - (_g2461124623_ + (_struct-field-accessors24638_ + _info24773_)))) + (let* ((___stx4637746378_ _rest24783_) + (_g2478824800_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4620046201_)))) - (let ((___kont4620346204_ - (lambda (_L24651_ _L24653_) + ___stx4637746378_)))) + (let ((___kont4638046381_ + (lambda (_L24828_ _L24830_) (if (let () (declare (not safe)) - (null? _fields24608_)) + (null? _fields24785_)) (gx#raise-syntax-error '#f '"too many parts for struct" - _stx24447_ - _info24596_ - (let ((__obj47355 _info24596_)) + _stx24624_ + _info24773_ + (let ((__obj47532 _info24773_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47355 + __obj47532 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47355 + __obj47532 '2 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47355 + __obj47532 'name)))) - (let ((_$tgt24668_ (gx#genident 'e)) - (_getf24670_ (car _fields24608_))) - (let ((__tmp50305 - (let ((__tmp50310 - (let ((__tmp50311 - (let ((__tmp50312 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50313 - (let ((__tmp50314 + (let ((_$tgt24845_ (gx#genident 'e)) + (_getf24847_ (car _fields24785_))) + (let ((__tmp50516 + (let ((__tmp50521 + (let ((__tmp50522 + (let ((__tmp50523 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50524 + (let ((__tmp50525 (let () (declare (not safe)) - (cons _tgt24598_ '())))) + (cons _tgt24775_ '())))) (declare (not safe)) - (cons _getf24670_ __tmp50314)))) + (cons _getf24847_ __tmp50525)))) (declare (not safe)) - (cons __tmp50313 '())))) + (cons __tmp50524 '())))) (declare (not safe)) - (cons _$tgt24668_ __tmp50312)))) + (cons _$tgt24845_ __tmp50523)))) (declare (not safe)) - (cons __tmp50311 '()))) + (cons __tmp50522 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50306 - (let ((__tmp50307 - (let ((__tmp50308 + (__tmp50517 + (let ((__tmp50518 + (let ((__tmp50519 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50309 (cdr _fields24608_))) + (let ((__tmp50520 (cdr _fields24785_))) (declare (not safe)) - (_recur24603_ _L24651_ __tmp50309)))) + (_recur24780_ _L24828_ __tmp50520)))) (declare (not safe)) - (_generate124454_ - _$tgt24668_ - _L24653_ - __tmp50308 - _E24601_)))) + (_generate124631_ + _$tgt24845_ + _L24830_ + __tmp50519 + _E24778_)))) (declare (not safe)) - (cons __tmp50307 '())))) + (cons __tmp50518 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50310 __tmp50306)))) + (cons __tmp50521 __tmp50517)))) (declare (not safe)) - (cons 'let __tmp50305)))))) - (___kont4620546206_ (lambda () _K24600_))) - (if (gx#stx-pair? ___stx4620046201_) - (let ((_e2461724641_ - (gx#syntax-e ___stx4620046201_))) - (let ((_tl2461524648_ + (cons 'let __tmp50516)))))) + (___kont4638246383_ (lambda () _K24777_))) + (if (gx#stx-pair? ___stx4637746378_) + (let ((_e2479424818_ + (gx#syntax-e ___stx4637746378_))) + (let ((_tl2479224825_ (let () (declare (not safe)) - (##cdr _e2461724641_))) - (_hd2461624645_ + (##cdr _e2479424818_))) + (_hd2479324822_ (let () (declare (not safe)) - (##car _e2461724641_)))) - (___kont4620346204_ - _tl2461524648_ - _hd2461624645_))) - (___kont4620546206_))))))) - (_struct-field-accessors24461_ - (lambda (_info24577_) - (let _recur24580_ ((_next24583_ + (##car _e2479424818_)))) + (___kont4638046381_ + _tl2479224825_ + _hd2479324822_))) + (___kont4638246383_))))))) + (_struct-field-accessors24638_ + (lambda (_info24754_) + (let _recur24757_ ((_next24760_ (let () (declare (not safe)) - (cons _info24577_ '())))) - (if (let () (declare (not safe)) (null? _next24583_)) + (cons _info24754_ '())))) + (if (let () (declare (not safe)) (null? _next24760_)) '() - (let ((_ti24586_ (car _next24583_))) - (append (let ((__tmp50315 + (let ((_ti24763_ (car _next24760_))) + (append (let ((__tmp50526 (map gx#syntax-local-value - (let ((__obj47356 _ti24586_)) + (let ((__obj47533 _ti24763_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47356 + __obj47533 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47356 + __obj47533 '3 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47356 + __obj47533 'super)))))) (declare (not safe)) - (_recur24580_ __tmp50315)) - (map (lambda (_slot24589_) - (let ((_$e24592_ - (let ((__tmp50316 - (let ((__obj47357 - _ti24586_)) + (_recur24757_ __tmp50526)) + (map (lambda (_slot24766_) + (let ((_$e24769_ + (let ((__tmp50527 + (let ((__obj47534 + _ti24763_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-direct-instance-of? - __obj47357 + __obj47534 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47357 - '13 + __obj47534 + '14 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47357 + __obj47534 'unchecked-accessors))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (assgetq _slot24589_ - __tmp50316)))) - (if _$e24592_ - _$e24592_ + (assgetq _slot24766_ + __tmp50527)))) + (if _$e24769_ + _$e24769_ (gx#raise-syntax-error '#f '"no accessor for struct slot" - _stx24447_ - _info24577_ - _slot24589_)))) - (let ((__obj47358 _ti24586_)) + _stx24624_ + _info24754_ + _slot24766_)))) + (let ((__obj47535 _ti24763_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47358 + __obj47535 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47358 + __obj47535 '4 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47358 + __obj47535 'slots)))))))))) - (_generate-class24462_ - (lambda (_info24570_ - _tgt24572_ - _body24573_ - _K24574_ - _E24575_) - (let ((__tmp50317 - (let ((__tmp50321 - (let ((__tmp50323 - (let ((__obj47359 _info24570_)) + (_generate-class24639_ + (lambda (_info24747_ + _tgt24749_ + _body24750_ + _K24751_ + _E24752_) + (let ((__tmp50528 + (let ((__tmp50532 + (let ((__tmp50534 + (let ((__obj47536 _info24747_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47359 + __obj47536 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47359 - '10 + __obj47536 + '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47359 + __obj47536 'predicate)))) - (__tmp50322 + (__tmp50533 (let () (declare (not safe)) - (cons _tgt24572_ '())))) + (cons _tgt24749_ '())))) (declare (not safe)) - (cons __tmp50323 __tmp50322))) - (__tmp50318 - (let ((__tmp50320 + (cons __tmp50534 __tmp50533))) + (__tmp50529 + (let ((__tmp50531 (let () (declare (not safe)) - (_generate-class-body24463_ - _info24570_ - _tgt24572_ - _body24573_ - _K24574_ - _E24575_))) - (__tmp50319 + (_generate-class-body24640_ + _info24747_ + _tgt24749_ + _body24750_ + _K24751_ + _E24752_))) + (__tmp50530 (let () (declare (not safe)) - (cons _E24575_ '())))) + (cons _E24752_ '())))) (declare (not safe)) - (cons __tmp50320 __tmp50319)))) + (cons __tmp50531 __tmp50530)))) (declare (not safe)) - (cons __tmp50321 __tmp50318)))) + (cons __tmp50532 __tmp50529)))) (declare (not safe)) - (cons 'if __tmp50317)))) - (_generate-class-body24463_ - (lambda (_info24465_ - _tgt24467_ - _body24468_ - _K24469_ - _E24470_) - (let _recur24472_ ((_rest24475_ _body24468_)) - (let* ((___stx4621646217_ _rest24475_) - (_g2447924495_ + (cons 'if __tmp50528)))) + (_generate-class-body24640_ + (lambda (_info24642_ + _tgt24644_ + _body24645_ + _K24646_ + _E24647_) + (let _recur24649_ ((_rest24652_ _body24645_)) + (let* ((___stx4639346394_ _rest24652_) + (_g2465624672_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4621646217_)))) - (let ((___kont4621946220_ - (lambda (_L24533_ _L24535_ _L24536_) - (let ((_$e24556_ - (let ((__tmp50325 + ___stx4639346394_)))) + (let ((___kont4639646397_ + (lambda (_L24710_ _L24712_ _L24713_) + (let ((_$e24733_ + (let ((__tmp50536 (string->symbol (keyword->string - (gx#stx-e _L24536_)))) - (__tmp50324 - (let ((__obj47360 _info24465_)) + (gx#stx-e _L24713_)))) + (__tmp50535 + (let ((__obj47537 _info24642_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47360 + __obj47537 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47360 - '13 + __obj47537 + '14 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47360 + __obj47537 'unchecked-accessors))))) (declare (not safe)) - (assgetq __tmp50325 __tmp50324)))) - (if _$e24556_ - ((lambda (_getf24560_) - (let* ((_$tgt24563_ (gx#genident 'e)) - (__tmp50326 - (let ((__tmp50330 - (let ((__tmp50331 - (let ((__tmp50332 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50333 - (let ((__tmp50334 + (assgetq __tmp50536 __tmp50535)))) + (if _$e24733_ + ((lambda (_getf24737_) + (let* ((_$tgt24740_ (gx#genident 'e)) + (__tmp50537 + (let ((__tmp50541 + (let ((__tmp50542 + (let ((__tmp50543 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50544 + (let ((__tmp50545 (let () (declare (not safe)) - (cons _tgt24467_ '())))) + (cons _tgt24644_ '())))) (declare (not safe)) - (cons _getf24560_ __tmp50334)))) + (cons _getf24737_ __tmp50545)))) (declare (not safe)) - (cons __tmp50333 '())))) + (cons __tmp50544 '())))) (declare (not safe)) - (cons _$tgt24563_ __tmp50332)))) + (cons _$tgt24740_ __tmp50543)))) (declare (not safe)) - (cons __tmp50331 '()))) - (__tmp50327 - (let ((__tmp50328 - (let ((__tmp50329 + (cons __tmp50542 '()))) + (__tmp50538 + (let ((__tmp50539 + (let ((__tmp50540 (let () (declare (not safe)) - (_recur24472_ _L24533_)))) + (_recur24649_ _L24710_)))) (declare (not safe)) - (_generate124454_ - _$tgt24563_ - _L24535_ - __tmp50329 - _E24470_)))) + (_generate124631_ + _$tgt24740_ + _L24712_ + __tmp50540 + _E24647_)))) (declare (not safe)) - (cons __tmp50328 '())))) + (cons __tmp50539 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50330 - __tmp50327)))) + (cons __tmp50541 + __tmp50538)))) (declare (not safe)) - (cons 'let __tmp50326))) - _$e24556_) + (cons 'let __tmp50537))) + _$e24733_) (gx#raise-syntax-error '#f '"no slot accessor" - _stx24447_ - _info24465_ - _L24536_))))) - (___kont4622146222_ (lambda () _K24469_))) - (if (gx#stx-pair? ___stx4621646217_) - (let ((_e2448624513_ - (gx#syntax-e ___stx4621646217_))) - (let ((_tl2448424520_ + _stx24624_ + _info24642_ + _L24713_))))) + (___kont4639846399_ (lambda () _K24646_))) + (if (gx#stx-pair? ___stx4639346394_) + (let ((_e2466324690_ + (gx#syntax-e ___stx4639346394_))) + (let ((_tl2466124697_ (let () (declare (not safe)) - (##cdr _e2448624513_))) - (_hd2448524517_ + (##cdr _e2466324690_))) + (_hd2466224694_ (let () (declare (not safe)) - (##car _e2448624513_)))) - (if (gx#stx-pair? _tl2448424520_) - (let ((_e2448924523_ - (gx#syntax-e _tl2448424520_))) - (let ((_tl2448724530_ + (##car _e2466324690_)))) + (if (gx#stx-pair? _tl2466124697_) + (let ((_e2466624700_ + (gx#syntax-e _tl2466124697_))) + (let ((_tl2466424707_ (let () (declare (not safe)) - (##cdr _e2448924523_))) - (_hd2448824527_ + (##cdr _e2466624700_))) + (_hd2466524704_ (let () (declare (not safe)) - (##car _e2448924523_)))) - (___kont4621946220_ - _tl2448724530_ - _hd2448824527_ - _hd2448524517_))) - (___kont4622146222_)))) - (___kont4622146222_)))))))) + (##car _e2466624700_)))) + (___kont4639646397_ + _tl2466424707_ + _hd2466524704_ + _hd2466224694_))) + (___kont4639846399_)))) + (___kont4639846399_)))))))) (let () (declare (not safe)) - (_generate124454_ _tgt24449_ _ptree24450_ _K24451_ _E24452_))))) + (_generate124631_ _tgt24626_ _ptree24627_ _K24628_ _E24629_))))) (define |gerbil/core$[1]#generate-match*| - (lambda (_stx23343_ _tgt-lst23345_ _clauses23346_) - (letrec ((_parse-body23348_ - (lambda (_hd-len24269_) - (let _lp24272_ ((_rest24275_ _clauses23346_) - (_r24277_ '())) - (let* ((___stx4626646267_ _rest24275_) - (_g2428024292_ + (lambda (_stx23520_ _tgt-lst23522_ _clauses23523_) + (letrec ((_parse-body23525_ + (lambda (_hd-len24446_) + (let _lp24449_ ((_rest24452_ _clauses23523_) + (_r24454_ '())) + (let* ((___stx4644346444_ _rest24452_) + (_g2445724469_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4626646267_)))) - (let ((___kont4626946270_ - (lambda (_L24320_ _L24322_) - (let* ((___stx4623846239_ _L24322_) - (_g2433924355_ + ___stx4644346444_)))) + (let ((___kont4644646447_ + (lambda (_L24497_ _L24499_) + (let* ((___stx4641546416_ _L24499_) + (_g2451624532_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4623846239_)))) - (let ((___kont4624146242_ - (lambda (_L24424_) - (if (gx#stx-null? _L24320_) - (let ((__tmp50335 - (let ((__tmp50340 + ___stx4641546416_)))) + (let ((___kont4641846419_ + (lambda (_L24601_) + (if (gx#stx-null? _L24497_) + (let ((__tmp50546 + (let ((__tmp50551 (gx#genident 'else)) - (__tmp50336 - (let ((__tmp50337 + (__tmp50547 + (let ((__tmp50548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50338 + (let ((__tmp50549 (gx#stx-wrap-source - (let ((__tmp50339 + (let ((__tmp50550 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50339 _L24424_)) - (let ((_$e24435_ - (gx#stx-source _L24322_))) - (if _$e24435_ - _$e24435_ - (gx#stx-source _stx23343_)))))) + (cons __tmp50550 _L24601_)) + (let ((_$e24612_ + (gx#stx-source _L24499_))) + (if _$e24612_ + _$e24612_ + (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp50338 '())))) + (cons __tmp50549 '())))) (declare (not safe)) - (cons '#f __tmp50337)))) + (cons '#f __tmp50548)))) (declare (not safe)) - (cons __tmp50340 __tmp50336)))) + (cons __tmp50551 __tmp50547)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50335 _r24277_)) + (cons __tmp50546 _r24454_)) (gx#raise-syntax-error '#f '"bad syntax; misplaced else" - _stx23343_ - _L24322_)))) - (___kont4624346244_ - (lambda (_L24383_ _L24385_) - (let ((__tmp50341 - (let ((__tmp50342 - (let ((__tmp50348 + _stx23520_ + _L24499_)))) + (___kont4642046421_ + (lambda (_L24560_ _L24562_) + (let ((__tmp50552 + (let ((__tmp50553 + (let ((__tmp50559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#genident 'try-match)) - (__tmp50343 - (let ((__tmp50347 + (__tmp50554 + (let ((__tmp50558 (gx#stx-map - (lambda (_g2439724399_) + (lambda (_g2457424576_) (let () (declare (not safe)) (|gerbil/core$[1]#parse-match-pattern__%| - _g2439724399_ - _stx23343_))) - _L24385_)) - (__tmp50344 - (let ((__tmp50345 + _g2457424576_ + _stx23520_))) + _L24562_)) + (__tmp50555 + (let ((__tmp50556 (gx#stx-wrap-source - (let ((__tmp50346 + (let ((__tmp50557 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50346 _L24383_)) - (let ((_$e24403_ - (gx#stx-source _L24322_))) - (if _$e24403_ - _$e24403_ - (gx#stx-source _stx23343_)))))) + (cons __tmp50557 _L24560_)) + (let ((_$e24580_ + (gx#stx-source _L24499_))) + (if _$e24580_ + _$e24580_ + (gx#stx-source _stx23520_)))))) (declare (not safe)) - (cons __tmp50345 '())))) + (cons __tmp50556 '())))) (declare (not safe)) - (cons __tmp50347 __tmp50344)))) + (cons __tmp50558 __tmp50555)))) (declare (not safe)) - (cons __tmp50348 __tmp50343)))) + (cons __tmp50559 __tmp50554)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50342 - _r24277_)))) + (cons __tmp50553 + _r24454_)))) (declare (not safe)) - (_lp24272_ - _L24320_ - __tmp50341)))) - (___kont4624546246_ + (_lp24449_ + _L24497_ + __tmp50552)))) + (___kont4642246423_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _stx23343_ - _L24322_)))) - (let* ((___match4626346264_ - (lambda (_e2434924373_ - _hd2434824377_ - _tl2434724380_) - (let ((_L24383_ _tl2434724380_) - (_L24385_ _hd2434824377_)) + _stx23520_ + _L24499_)))) + (let* ((___match4644046441_ + (lambda (_e2452624550_ + _hd2452524554_ + _tl2452424557_) + (let ((_L24560_ _tl2452424557_) + (_L24562_ _hd2452524554_)) (if (and (gx#stx-list? - _L24385_) + _L24562_) (fx= (gx#stx-length - _L24385_) - _hd-len24269_) + _L24562_) + _hd-len24446_) (gx#stx-list? - _L24383_) - (let ((__tmp50349 + _L24560_) + (let ((__tmp50560 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-null? _L24383_))) + (gx#stx-null? _L24560_))) (declare (not safe)) - (not __tmp50349))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4624346244_ - _L24383_ - _L24385_) - (___kont4624546246_))))) - (___match4625746258_ - (lambda (_e2434424414_ - _hd2434324418_ - _tl2434224421_) - (let ((_L24424_ _tl2434224421_)) + (not __tmp50560))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4642046421_ + _L24560_ + _L24562_) + (___kont4642246423_))))) + (___match4643446435_ + (lambda (_e2452124591_ + _hd2452024595_ + _tl2451924598_) + (let ((_L24601_ _tl2451924598_)) (if (and (gx#stx-list? - _L24424_) - (let ((__tmp50350 + _L24601_) + (let ((__tmp50561 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-null? _L24424_))) + (gx#stx-null? _L24601_))) (declare (not safe)) - (not __tmp50350))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4624146242_ - _L24424_) - (___match4626346264_ - _e2434424414_ - _hd2434324418_ - _tl2434224421_)))))) - (if (gx#stx-pair? ___stx4623846239_) - (let ((_e2434424414_ + (not __tmp50561))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (___kont4641846419_ + _L24601_) + (___match4644046441_ + _e2452124591_ + _hd2452024595_ + _tl2451924598_)))))) + (if (gx#stx-pair? ___stx4641546416_) + (let ((_e2452124591_ (gx#syntax-e - ___stx4623846239_))) - (let ((_tl2434224421_ + ___stx4641546416_))) + (let ((_tl2451924598_ (let () (declare (not safe)) - (##cdr _e2434424414_))) - (_hd2434324418_ + (##cdr _e2452124591_))) + (_hd2452024595_ (let () (declare (not safe)) - (##car _e2434424414_)))) + (##car _e2452124591_)))) (if (gx#identifier? - _hd2434324418_) + _hd2452024595_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50351_| - _hd2434324418_) - (___match4625746258_ - _e2434424414_ - _hd2434324418_ - _tl2434224421_) - (___match4626346264_ - _e2434424414_ - _hd2434324418_ - _tl2434224421_)) - (___match4626346264_ - _e2434424414_ - _hd2434324418_ - _tl2434224421_)))) - (___kont4624546246_))))))) - (___kont4627146272_ (lambda () _r24277_))) - (if (gx#stx-pair? ___stx4626646267_) - (let ((_e2428624310_ - (gx#syntax-e ___stx4626646267_))) - (let ((_tl2428424317_ + |gerbil/core$[1]#_g50562_| + _hd2452024595_) + (___match4643446435_ + _e2452124591_ + _hd2452024595_ + _tl2451924598_) + (___match4644046441_ + _e2452124591_ + _hd2452024595_ + _tl2451924598_)) + (___match4644046441_ + _e2452124591_ + _hd2452024595_ + _tl2451924598_)))) + (___kont4642246423_))))))) + (___kont4644846449_ (lambda () _r24454_))) + (if (gx#stx-pair? ___stx4644346444_) + (let ((_e2446324487_ + (gx#syntax-e ___stx4644346444_))) + (let ((_tl2446124494_ (let () (declare (not safe)) - (##cdr _e2428624310_))) - (_hd2428524314_ + (##cdr _e2446324487_))) + (_hd2446224491_ (let () (declare (not safe)) - (##car _e2428624310_)))) - (___kont4626946270_ - _tl2428424317_ - _hd2428524314_))) - (___kont4627146272_))))))) - (_generate-body23350_ - (lambda (_body24054_) - (let* ((_g2405724065_ - (lambda (_g2405824061_) + (##car _e2446324487_)))) + (___kont4644646447_ + _tl2446124494_ + _hd2446224491_))) + (___kont4644846449_))))))) + (_generate-body23527_ + (lambda (_body24231_) + (let* ((_g2423424242_ + (lambda (_g2423524238_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2405824061_))) - (_g2405624265_ - (lambda (_g2405824069_) - ((lambda (_L24072_) + _g2423524238_))) + (_g2423324442_ + (lambda (_g2423524246_) + ((lambda (_L24249_) (let () - (let* ((_g2408424101_ - (lambda (_g2408524097_) + (let* ((_g2426124278_ + (lambda (_g2426224274_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2408524097_))) - (_g2408324261_ - (lambda (_g2408524105_) + _g2426224274_))) + (_g2426024438_ + (lambda (_g2426224282_) (if (gx#stx-pair/null? - _g2408524105_) - (let ((_g50352_ + _g2426224282_) + (let ((_g50563_ (gx#syntax-split-splice - _g2408524105_ + _g2426224282_ '0))) (begin - (let ((_g50353_ + (let ((_g50564_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50352_) - (##vector-length _g50352_) + _g50563_) + (##vector-length _g50563_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50353_ 2))) - (error "Context expects 2 values" _g50353_))) + (if (not (let () (declare (not safe)) (##fx= _g50564_ 2))) + (error "Context expects 2 values" _g50564_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2408724108_ + (let ((_target2426424285_ (let () (declare (not safe)) (##vector-ref - _g50352_ + _g50563_ 0))) - (_tl2408924111_ + (_tl2426624288_ (let () (declare (not safe)) (##vector-ref - _g50352_ + _g50563_ 1)))) (if (gx#stx-null? - _tl2408924111_) - (letrec ((_loop2409024114_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2408824118_ _target2409424121_) - (if (gx#stx-pair? _hd2408824118_) - (let ((_e2409124124_ - (gx#syntax-e _hd2408824118_))) - (let ((_lp-hd2409224128_ + _tl2426624288_) + (letrec ((_loop2426724291_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd2426524295_ _target2427124298_) + (if (gx#stx-pair? _hd2426524295_) + (let ((_e2426824301_ + (gx#syntax-e _hd2426524295_))) + (let ((_lp-hd2426924305_ (let () (declare (not safe)) - (##car _e2409124124_))) - (_lp-tl2409324131_ + (##car _e2426824301_))) + (_lp-tl2427024308_ (let () (declare (not safe)) - (##cdr _e2409124124_)))) - (let ((__tmp50376 + (##cdr _e2426824301_)))) + (let ((__tmp50587 (let () (declare (not safe)) - (cons _lp-hd2409224128_ - _target2409424121_)))) + (cons _lp-hd2426924305_ + _target2427124298_)))) (declare (not safe)) - (_loop2409024114_ - _lp-tl2409324131_ - __tmp50376)))) - (let ((_target2409524134_ - (reverse _target2409424121_))) - ((lambda (_L24138_) + (_loop2426724291_ + _lp-tl2427024308_ + __tmp50587)))) + (let ((_target2427224311_ + (reverse _target2427124298_))) + ((lambda (_L24315_) (let () - (let* ((_g2415524163_ - (lambda (_g2415624159_) + (let* ((_g2433224340_ + (lambda (_g2433324336_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2415624159_))) - (_g2415424249_ - (lambda (_g2415624167_) - ((lambda (_L24170_) + _g2433324336_))) + (_g2433124426_ + (lambda (_g2433324344_) + ((lambda (_L24347_) (let () - (let* ((_g2418324191_ + (let* ((_g2436024368_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2418424187_) + (lambda (_g2436124364_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2418424187_))) - (_g2418224245_ - (lambda (_g2418424195_) - ((lambda (_L24198_) + _g2436124364_))) + (_g2435924422_ + (lambda (_g2436124372_) + ((lambda (_L24375_) (let () - (let* ((_g2421124219_ - (lambda (_g2421224215_) + (let* ((_g2438824396_ + (lambda (_g2438924392_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2421224215_))) - (_g2421024241_ - (lambda (_g2421224223_) - ((lambda (_L24226_) + _g2438924392_))) + (_g2438724418_ + (lambda (_g2438924400_) + ((lambda (_L24403_) (let () (let () - (let ((__tmp50357 + (let ((__tmp50568 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50354 - (let ((__tmp50356 + (__tmp50565 + (let ((__tmp50567 (gx#datum->syntax '#f '@match)) - (__tmp50355 + (__tmp50566 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L24226_ '())))) + (cons _L24403_ '())))) (declare (not safe)) - (cons __tmp50356 __tmp50355)))) + (cons __tmp50567 __tmp50566)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50357 - __tmp50354))))) - _g2421224223_))) - (__tmp50358 + (cons __tmp50568 + __tmp50565))))) + _g2438924400_))) + (__tmp50569 (gx#stx-wrap-source - (let ((__tmp50364 + (let ((__tmp50575 (gx#datum->syntax '#f 'let)) - (__tmp50359 - (let ((__tmp50361 - (let ((__tmp50362 - (let ((__tmp50363 + (__tmp50570 + (let ((__tmp50572 + (let ((__tmp50573 + (let ((__tmp50574 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L24170_ '())))) + (cons _L24347_ '())))) (declare (not safe)) - (cons _L24072_ __tmp50363)))) + (cons _L24249_ __tmp50574)))) (declare (not safe)) - (cons __tmp50362 '()))) - (__tmp50360 (let () (declare (not safe)) (cons _L24198_ '())))) + (cons __tmp50573 '()))) + (__tmp50571 (let () (declare (not safe)) (cons _L24375_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50361 - __tmp50360)))) + (cons __tmp50572 + __tmp50571)))) (declare (not safe)) - (cons __tmp50364 __tmp50359)) - (gx#stx-source _stx23343_)))) + (cons __tmp50575 __tmp50570)) + (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2421024241_ __tmp50358)))) - _g2418424195_))) - (__tmp50365 - (let ((__tmp50366 + (_g2438724418_ __tmp50569)))) + _g2436124372_))) + (__tmp50576 + (let ((__tmp50577 (let () (declare (not safe)) - (cons _L24072_ '())))) + (cons _L24249_ '())))) (declare (not safe)) - (_generate-clauses23351_ _body24054_ __tmp50366)))) + (_generate-clauses23528_ _body24231_ __tmp50577)))) (declare (not safe)) - (_g2418224245_ __tmp50365)))) + (_g2435924422_ __tmp50576)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2415624167_))) - (__tmp50367 + _g2433324344_))) + (__tmp50578 (gx#stx-wrap-source - (let ((__tmp50375 + (let ((__tmp50586 (gx#datum->syntax '#f 'lambda)) - (__tmp50368 - (let ((__tmp50369 + (__tmp50579 + (let ((__tmp50580 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50370 - (let ((__tmp50374 + (let ((__tmp50581 + (let ((__tmp50585 (gx#datum->syntax '#f 'error)) - (__tmp50371 - (let ((__tmp50372 - (let ((__tmp50373 - (lambda (_g2425224255_ - _g2425324258_) + (__tmp50582 + (let ((__tmp50583 + (let ((__tmp50584 + (lambda (_g2442924432_ + _g2443024435_) (let () (declare (not safe)) - (cons _g2425224255_ - _g2425324258_))))) + (cons _g2442924432_ + _g2443024435_))))) (declare (not safe)) - (foldr1 __tmp50373 + (foldr1 __tmp50584 '() - _L24138_)))) + _L24315_)))) (declare (not safe)) (cons '"No clause matching" - __tmp50372)))) + __tmp50583)))) (declare (not safe)) - (cons __tmp50374 __tmp50371)))) + (cons __tmp50585 __tmp50582)))) (declare (not safe)) - (cons __tmp50370 '())))) + (cons __tmp50581 '())))) (declare (not safe)) - (cons '() __tmp50369)))) + (cons '() __tmp50580)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50375 - __tmp50368)) + (cons __tmp50586 + __tmp50579)) (gx#stx-source - _stx23343_)))) + _stx23520_)))) (declare (not safe)) - (_g2415424249_ __tmp50367)))) - _target2409524134_)))))) + (_g2433124426_ __tmp50578)))) + _target2427224311_)))))) (let () (declare (not safe)) - (_loop2409024114_ _target2408724108_ '()))) + (_loop2426724291_ _target2426424285_ '()))) (let () (declare (not safe)) - (_g2408424101_ _g2408524105_)))))) + (_g2426124278_ _g2426224282_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2408424101_ - _g2408524105_)))))) + (_g2426124278_ + _g2426224282_)))))) (declare (not safe)) - (_g2408324261_ _tgt-lst23345_)))) - _g2405824069_))) - (__tmp50377 (gx#genident 'E))) + (_g2426024438_ _tgt-lst23522_)))) + _g2423524246_))) + (__tmp50588 (gx#genident 'E))) (declare (not safe)) - (_g2405624265_ __tmp50377)))) - (_generate-clauses23351_ - (lambda (_rest23706_ _E23708_) - (let* ((___stx4628246283_ _rest23706_) - (_g2371223728_ + (_g2423324442_ __tmp50588)))) + (_generate-clauses23528_ + (lambda (_rest23883_ _E23885_) + (let* ((___stx4645946460_ _rest23883_) + (_g2388923905_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4628246283_)))) - (let ((___kont4628546286_ - (lambda (_L23962_) - (let* ((_g2397323991_ - (lambda (_g2397423987_) + ___stx4645946460_)))) + (let ((___kont4646246463_ + (lambda (_L24139_) + (let* ((_g2415024168_ + (lambda (_g2415124164_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2397423987_))) - (_g2397224046_ - (lambda (_g2397423995_) - (if (gx#stx-pair? _g2397423995_) - (let ((_e2397923998_ + _g2415124164_))) + (_g2414924223_ + (lambda (_g2415124172_) + (if (gx#stx-pair? _g2415124172_) + (let ((_e2415624175_ (gx#syntax-e - _g2397423995_))) - (let ((_hd2397824002_ + _g2415124172_))) + (let ((_hd2415524179_ (let () (declare (not safe)) - (##car _e2397923998_))) - (_tl2397724005_ + (##car _e2415624175_))) + (_tl2415424182_ (let () (declare (not safe)) - (##cdr _e2397923998_)))) + (##cdr _e2415624175_)))) (if (gx#stx-pair? - _tl2397724005_) - (let ((_e2398224008_ + _tl2415424182_) + (let ((_e2415924185_ (gx#syntax-e - _tl2397724005_))) - (let ((_hd2398124012_ + _tl2415424182_))) + (let ((_hd2415824189_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2398224008_))) - (_tl2398024015_ - (let () (declare (not safe)) (##cdr _e2398224008_)))) - (if (gx#stx-pair? _tl2398024015_) - (let ((_e2398524018_ (gx#syntax-e _tl2398024015_))) - (let ((_hd2398424022_ + (##car _e2415924185_))) + (_tl2415724192_ + (let () (declare (not safe)) (##cdr _e2415924185_)))) + (if (gx#stx-pair? _tl2415724192_) + (let ((_e2416224195_ (gx#syntax-e _tl2415724192_))) + (let ((_hd2416124199_ (let () (declare (not safe)) - (##car _e2398524018_))) - (_tl2398324025_ + (##car _e2416224195_))) + (_tl2416024202_ (let () (declare (not safe)) - (##cdr _e2398524018_)))) - (if (gx#stx-null? _tl2398324025_) - ((lambda (_L24028_ _L24030_) - (let ((__tmp50378 - (let ((__tmp50379 - (let ((__tmp50380 - (if (gx#stx-e _L24030_) + (##cdr _e2416224195_)))) + (if (gx#stx-null? _tl2416024202_) + ((lambda (_L24205_ _L24207_) + (let ((__tmp50589 + (let ((__tmp50590 + (let ((__tmp50591 + (if (gx#stx-e _L24207_) (let () (declare (not safe)) - (_generate123352_ - _L24030_ - _L24028_ - _E23708_)) - _L24028_))) + (_generate123529_ + _L24207_ + _L24205_ + _E23885_)) + _L24205_))) (declare (not safe)) - (cons __tmp50380 '())))) + (cons __tmp50591 '())))) (declare (not safe)) - (cons '@match-body __tmp50379)))) + (cons '@match-body __tmp50590)))) (declare (not safe)) - (cons 'begin-annotation __tmp50378))) - _hd2398424022_ - _hd2398124012_) + (cons 'begin-annotation __tmp50589))) + _hd2416124199_ + _hd2415824189_) (let () (declare (not safe)) - (_g2397323991_ _g2397423995_))))) + (_g2415024168_ _g2415124172_))))) (let () (declare (not safe)) - (_g2397323991_ _g2397423995_))))) + (_g2415024168_ _g2415124172_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2397323991_ - _g2397423995_))))) + (_g2415024168_ + _g2415124172_))))) (let () (declare (not safe)) - (_g2397323991_ - _g2397423995_)))))) + (_g2415024168_ + _g2415124172_)))))) (declare (not safe)) - (_g2397224046_ _L23962_)))) - (___kont4628746288_ - (lambda (_L23756_ _L23758_) - (let* ((_g2377123790_ - (lambda (_g2377223786_) + (_g2414924223_ _L24139_)))) + (___kont4646446465_ + (lambda (_L23933_ _L23935_) + (let* ((_g2394823967_ + (lambda (_g2394923963_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2377223786_))) - (_g2377023941_ - (lambda (_g2377223794_) - (if (gx#stx-pair? _g2377223794_) - (let ((_e2377823797_ + _g2394923963_))) + (_g2394724118_ + (lambda (_g2394923971_) + (if (gx#stx-pair? _g2394923971_) + (let ((_e2395523974_ (gx#syntax-e - _g2377223794_))) - (let ((_hd2377723801_ + _g2394923971_))) + (let ((_hd2395423978_ (let () (declare (not safe)) - (##car _e2377823797_))) - (_tl2377623804_ + (##car _e2395523974_))) + (_tl2395323981_ (let () (declare (not safe)) - (##cdr _e2377823797_)))) + (##cdr _e2395523974_)))) (if (gx#stx-pair? - _tl2377623804_) - (let ((_e2378123807_ + _tl2395323981_) + (let ((_e2395823984_ (gx#syntax-e - _tl2377623804_))) - (let ((_hd2378023811_ + _tl2395323981_))) + (let ((_hd2395723988_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e2378123807_))) - (_tl2377923814_ - (let () (declare (not safe)) (##cdr _e2378123807_)))) - (if (gx#stx-pair? _tl2377923814_) - (let ((_e2378423817_ (gx#syntax-e _tl2377923814_))) - (let ((_hd2378323821_ + (##car _e2395823984_))) + (_tl2395623991_ + (let () (declare (not safe)) (##cdr _e2395823984_)))) + (if (gx#stx-pair? _tl2395623991_) + (let ((_e2396123994_ (gx#syntax-e _tl2395623991_))) + (let ((_hd2396023998_ (let () (declare (not safe)) - (##car _e2378423817_))) - (_tl2378223824_ + (##car _e2396123994_))) + (_tl2395924001_ (let () (declare (not safe)) - (##cdr _e2378423817_)))) - (if (gx#stx-null? _tl2378223824_) - ((lambda (_L23827_ _L23829_ _L23830_) - (if (gx#stx-e _L23829_) - (let* ((_g2384723862_ - (lambda (_g2384823858_) + (##cdr _e2396123994_)))) + (if (gx#stx-null? _tl2395924001_) + ((lambda (_L24004_ _L24006_ _L24007_) + (if (gx#stx-e _L24006_) + (let* ((_g2402424039_ + (lambda (_g2402524035_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2384823858_))) - (_g2384623907_ - (lambda (_g2384823866_) - (if (gx#stx-pair? _g2384823866_) - (let ((_e2385323869_ + _g2402524035_))) + (_g2402324084_ + (lambda (_g2402524043_) + (if (gx#stx-pair? _g2402524043_) + (let ((_e2403024046_ (gx#syntax-e - _g2384823866_))) - (let ((_hd2385223873_ + _g2402524043_))) + (let ((_hd2402924050_ (let () (declare (not safe)) - (##car _e2385323869_))) - (_tl2385123876_ + (##car _e2403024046_))) + (_tl2402824053_ (let () (declare (not safe)) - (##cdr _e2385323869_)))) + (##cdr _e2403024046_)))) (if (gx#stx-pair? - _tl2385123876_) - (let ((_e2385623879_ + _tl2402824053_) + (let ((_e2403324056_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2385123876_))) - (let ((_hd2385523883_ - (let () (declare (not safe)) (##car _e2385623879_))) - (_tl2385423886_ + (gx#syntax-e _tl2402824053_))) + (let ((_hd2403224060_ + (let () (declare (not safe)) (##car _e2403324056_))) + (_tl2403124063_ (let () (declare (not safe)) - (##cdr _e2385623879_)))) - (if (gx#stx-null? _tl2385423886_) - ((lambda (_L23889_ _L23891_) + (##cdr _e2403324056_)))) + (if (gx#stx-null? _tl2403124063_) + ((lambda (_L24066_ _L24068_) (let () - (let ((__tmp50407 (gx#datum->syntax '#f 'let)) - (__tmp50398 - (let ((__tmp50400 - (let ((__tmp50401 - (let ((__tmp50402 - (let ((__tmp50403 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50406 (gx#datum->syntax '#f 'lambda)) - (__tmp50404 - (let ((__tmp50405 + (let ((__tmp50618 (gx#datum->syntax '#f 'let)) + (__tmp50609 + (let ((__tmp50611 + (let ((__tmp50612 + (let ((__tmp50613 + (let ((__tmp50614 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp50617 (gx#datum->syntax '#f 'lambda)) + (__tmp50615 + (let ((__tmp50616 (let () (declare (not safe)) - (cons _L23891_ '())))) + (cons _L24068_ '())))) (declare (not safe)) - (cons '() __tmp50405)))) + (cons '() __tmp50616)))) (declare (not safe)) - (cons __tmp50406 __tmp50404)))) + (cons __tmp50617 __tmp50615)))) (declare (not safe)) - (cons __tmp50403 '())))) + (cons __tmp50614 '())))) (declare (not safe)) - (cons _L23830_ __tmp50402)))) + (cons _L24007_ __tmp50613)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50401 '()))) - (__tmp50399 + (cons __tmp50612 '()))) + (__tmp50610 (let () (declare (not safe)) - (cons _L23889_ '())))) + (cons _L24066_ '())))) (declare (not safe)) - (cons __tmp50400 __tmp50399)))) + (cons __tmp50611 __tmp50610)))) (declare (not safe)) - (cons __tmp50407 __tmp50398)))) - _hd2385523883_ - _hd2385223873_) + (cons __tmp50618 __tmp50609)))) + _hd2403224060_ + _hd2402924050_) (let () (declare (not safe)) - (_g2384723862_ _g2384823866_))))) + (_g2402424039_ _g2402524043_))))) (let () (declare (not safe)) - (_g2384723862_ _g2384823866_))))) + (_g2402424039_ _g2402524043_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2384723862_ - _g2384823866_))))) - (__tmp50408 + (_g2402424039_ + _g2402524043_))))) + (__tmp50619 (list (let () (declare (not safe)) - (_generate123352_ - _L23829_ - _L23827_ - _E23708_)) - (let ((__tmp50409 + (_generate123529_ + _L24006_ + _L24004_ + _E23885_)) + (let ((__tmp50620 (let () (declare (not safe)) - (cons _L23830_ + (cons _L24007_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-clauses23351_ - _L23756_ - __tmp50409))))) + (_generate-clauses23528_ + _L23933_ + __tmp50620))))) (declare (not safe)) - (_g2384623907_ __tmp50408)) - (let* ((_g2391123919_ - (lambda (_g2391223915_) + (_g2402324084_ __tmp50619)) + (let* ((_g2408824096_ + (lambda (_g2408924092_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2391223915_))) - (_g2391023937_ - (lambda (_g2391223923_) - ((lambda (_L23926_) + _g2408924092_))) + (_g2408724114_ + (lambda (_g2408924100_) + ((lambda (_L24103_) (let () - (let ((__tmp50395 + (let ((__tmp50606 (gx#datum->syntax '#f 'let)) - (__tmp50381 - (let ((__tmp50383 + (__tmp50592 + (let ((__tmp50594 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50384 - (let ((__tmp50385 - (let ((__tmp50386 - (let ((__tmp50394 + (let ((__tmp50595 + (let ((__tmp50596 + (let ((__tmp50597 + (let ((__tmp50605 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp50387 - (let ((__tmp50393 + (__tmp50598 + (let ((__tmp50604 (gx#datum->syntax '#f '@match-else)) - (__tmp50388 - (let ((__tmp50389 + (__tmp50599 + (let ((__tmp50600 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50392 (gx#datum->syntax '#f 'lambda)) - (__tmp50390 - (let ((__tmp50391 + (let ((__tmp50603 (gx#datum->syntax '#f 'lambda)) + (__tmp50601 + (let ((__tmp50602 (let () (declare (not safe)) - (cons _L23827_ '())))) + (cons _L24004_ '())))) (declare (not safe)) - (cons '() __tmp50391)))) + (cons '() __tmp50602)))) (declare (not safe)) - (cons __tmp50392 __tmp50390)))) + (cons __tmp50603 __tmp50601)))) (declare (not safe)) - (cons __tmp50389 '())))) + (cons __tmp50600 '())))) (declare (not safe)) - (cons __tmp50393 __tmp50388)))) + (cons __tmp50604 __tmp50599)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50394 __tmp50387)))) + (cons __tmp50605 __tmp50598)))) (declare (not safe)) - (cons __tmp50386 '())))) + (cons __tmp50597 '())))) (declare (not safe)) - (cons _L23830_ __tmp50385)))) + (cons _L24007_ __tmp50596)))) (declare (not safe)) - (cons __tmp50384 '()))) - (__tmp50382 - (let () (declare (not safe)) (cons _L23926_ '())))) + (cons __tmp50595 '()))) + (__tmp50593 + (let () (declare (not safe)) (cons _L24103_ '())))) (declare (not safe)) - (cons __tmp50383 __tmp50382)))) + (cons __tmp50594 __tmp50593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50395 - __tmp50381)))) - _g2391223923_))) - (__tmp50396 - (let ((__tmp50397 + (cons __tmp50606 + __tmp50592)))) + _g2408924100_))) + (__tmp50607 + (let ((__tmp50608 (let () (declare (not safe)) - (cons _L23830_ '())))) + (cons _L24007_ '())))) (declare (not safe)) - (_generate-clauses23351_ - _L23756_ - __tmp50397)))) + (_generate-clauses23528_ + _L23933_ + __tmp50608)))) (declare (not safe)) - (_g2391023937_ __tmp50396)))) - _hd2378323821_ - _hd2378023811_ - _hd2377723801_) + (_g2408724114_ __tmp50607)))) + _hd2396023998_ + _hd2395723988_ + _hd2395423978_) (let () (declare (not safe)) - (_g2377123790_ _g2377223794_))))) + (_g2394823967_ _g2394923971_))))) (let () (declare (not safe)) - (_g2377123790_ _g2377223794_))))) + (_g2394823967_ _g2394923971_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2377123790_ - _g2377223794_))))) + (_g2394823967_ + _g2394923971_))))) (let () (declare (not safe)) - (_g2377123790_ - _g2377223794_)))))) + (_g2394823967_ + _g2394923971_)))))) (declare (not safe)) - (_g2377023941_ _L23758_)))) - (___kont4628946290_ + (_g2394724118_ _L23935_)))) + (___kont4646646467_ (lambda () - (let ((__tmp50410 - (let ((__tmp50411 + (let ((__tmp50621 + (let ((__tmp50622 (let () (declare (not safe)) - (cons _E23708_ '())))) + (cons _E23885_ '())))) (declare (not safe)) - (cons '@match-body __tmp50411)))) + (cons '@match-body __tmp50622)))) (declare (not safe)) - (cons 'begin-annotation __tmp50410))))) - (if (gx#stx-pair? ___stx4628246283_) - (let ((_e2371723952_ - (gx#syntax-e ___stx4628246283_))) - (let ((_tl2371523959_ + (cons 'begin-annotation __tmp50621))))) + (if (gx#stx-pair? ___stx4645946460_) + (let ((_e2389424129_ + (gx#syntax-e ___stx4645946460_))) + (let ((_tl2389224136_ (let () (declare (not safe)) - (##cdr _e2371723952_))) - (_hd2371623956_ + (##cdr _e2389424129_))) + (_hd2389324133_ (let () (declare (not safe)) - (##car _e2371723952_)))) - (if (gx#stx-null? _tl2371523959_) - (___kont4628546286_ _hd2371623956_) - (___kont4628746288_ - _tl2371523959_ - _hd2371623956_)))) - (___kont4628946290_)))))) - (_generate123352_ - (lambda (_clause23354_ _body23356_ _E23357_) - (let* ((_g2335923383_ - (lambda (_g2336023379_) + (##car _e2389424129_)))) + (if (gx#stx-null? _tl2389224136_) + (___kont4646246463_ _hd2389324133_) + (___kont4646446465_ + _tl2389224136_ + _hd2389324133_)))) + (___kont4646646467_)))))) + (_generate123529_ + (lambda (_clause23531_ _body23533_ _E23534_) + (let* ((_g2353623560_ + (lambda (_g2353723556_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2336023379_))) - (_g2335823702_ - (lambda (_g2336023387_) - (if (gx#stx-pair? _g2336023387_) - (let ((_e2336523390_ - (gx#syntax-e _g2336023387_))) - (let ((_hd2336423394_ + _g2353723556_))) + (_g2353523879_ + (lambda (_g2353723564_) + (if (gx#stx-pair? _g2353723564_) + (let ((_e2354223567_ + (gx#syntax-e _g2353723564_))) + (let ((_hd2354123571_ (let () (declare (not safe)) - (##car _e2336523390_))) - (_tl2336323397_ + (##car _e2354223567_))) + (_tl2354023574_ (let () (declare (not safe)) - (##cdr _e2336523390_)))) - (if (gx#stx-pair? _tl2336323397_) - (let ((_e2336823400_ - (gx#syntax-e _tl2336323397_))) - (let ((_hd2336723404_ + (##cdr _e2354223567_)))) + (if (gx#stx-pair? _tl2354023574_) + (let ((_e2354523577_ + (gx#syntax-e _tl2354023574_))) + (let ((_hd2354423581_ (let () (declare (not safe)) - (##car _e2336823400_))) - (_tl2336623407_ + (##car _e2354523577_))) + (_tl2354323584_ (let () (declare (not safe)) - (##cdr _e2336823400_)))) + (##cdr _e2354523577_)))) (if (gx#stx-pair/null? - _hd2336723404_) - (let ((_g50412_ + _hd2354423581_) + (let ((_g50623_ (gx#syntax-split-splice - _hd2336723404_ + _hd2354423581_ '0))) (begin - (let ((_g50413_ + (let ((_g50624_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g50412_) - (##vector-length _g50412_) + (if (##values? _g50623_) + (##vector-length _g50623_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g50413_ 2))) - (error "Context expects 2 values" _g50413_))) - (let ((_target2336923410_ - (let () (declare (not safe)) (##vector-ref _g50412_ 0))) - (_tl2337123413_ - (let () (declare (not safe)) (##vector-ref _g50412_ 1)))) - (if (gx#stx-null? _tl2337123413_) - (letrec ((_loop2337223416_ - (lambda (_hd2337023420_ _var2337623423_) - (if (gx#stx-pair? _hd2337023420_) - (let ((_e2337323426_ - (gx#syntax-e _hd2337023420_))) - (let ((_lp-hd2337423430_ + (if (not (let () (declare (not safe)) (##fx= _g50624_ 2))) + (error "Context expects 2 values" _g50624_))) + (let ((_target2354623587_ + (let () (declare (not safe)) (##vector-ref _g50623_ 0))) + (_tl2354823590_ + (let () (declare (not safe)) (##vector-ref _g50623_ 1)))) + (if (gx#stx-null? _tl2354823590_) + (letrec ((_loop2354923593_ + (lambda (_hd2354723597_ _var2355323600_) + (if (gx#stx-pair? _hd2354723597_) + (let ((_e2355023603_ + (gx#syntax-e _hd2354723597_))) + (let ((_lp-hd2355123607_ (let () (declare (not safe)) - (##car _e2337323426_))) - (_lp-tl2337523433_ + (##car _e2355023603_))) + (_lp-tl2355223610_ (let () (declare (not safe)) - (##cdr _e2337323426_)))) - (let ((__tmp50430 + (##cdr _e2355023603_)))) + (let ((__tmp50641 (let () (declare (not safe)) - (cons _lp-hd2337423430_ - _var2337623423_)))) + (cons _lp-hd2355123607_ + _var2355323600_)))) (declare (not safe)) - (_loop2337223416_ - _lp-tl2337523433_ - __tmp50430)))) - (let ((_var2337723436_ - (reverse _var2337623423_))) - (if (gx#stx-null? _tl2336623407_) - ((lambda (_L23440_ _L23442_) + (_loop2354923593_ + _lp-tl2355223610_ + __tmp50641)))) + (let ((_var2355423613_ + (reverse _var2355323600_))) + (if (gx#stx-null? _tl2354323584_) + ((lambda (_L23617_ _L23619_) (let () (gx#check-duplicate-identifiers - (let ((__tmp50414 - (lambda (_g2346323466_ - _g2346423469_) + (let ((__tmp50625 + (lambda (_g2364023643_ + _g2364123646_) (let () (declare (not safe)) - (cons _g2346323466_ + (cons _g2364023643_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2346423469_))))) + _g2364123646_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50414 + (foldr1 __tmp50625 '() - _L23440_)) - _stx23343_) - (let* ((_g2347223480_ - (lambda (_g2347323476_) + _L23617_)) + _stx23520_) + (let* ((_g2364923657_ + (lambda (_g2365023653_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2347323476_))) - (_g2347123574_ - (lambda (_g2347323484_) - ((lambda (_L23487_) + _g2365023653_))) + (_g2364823751_ + (lambda (_g2365023661_) + ((lambda (_L23664_) (let () - (let* ((_g2350023508_ + (let* ((_g2367723685_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2350123504_) + (lambda (_g2367823681_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2350123504_))) - (_g2349923570_ - (lambda (_g2350123512_) - ((lambda (_L23515_) + _g2367823681_))) + (_g2367623747_ + (lambda (_g2367823689_) + ((lambda (_L23692_) (let () - (let* ((_g2352823536_ - (lambda (_g2352923532_) + (let* ((_g2370523713_ + (lambda (_g2370623709_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2352923532_))) - (_g2352723558_ - (lambda (_g2352923540_) - ((lambda (_L23543_) + _g2370623709_))) + (_g2370423735_ + (lambda (_g2370623717_) + ((lambda (_L23720_) (let () (let () (gx#stx-wrap-source - (let ((__tmp50419 + (let ((__tmp50630 (gx#datum->syntax '#f 'let)) - (__tmp50415 - (let ((__tmp50417 + (__tmp50626 + (let ((__tmp50628 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50418 + (let ((__tmp50629 (let () (declare (not safe)) - (cons _L23543_ '())))) + (cons _L23720_ '())))) (declare (not safe)) - (cons _L23442_ __tmp50418))) - (__tmp50416 + (cons _L23619_ __tmp50629))) + (__tmp50627 (let () (declare (not safe)) - (cons _L23487_ '())))) + (cons _L23664_ '())))) (declare (not safe)) - (cons __tmp50417 __tmp50416)))) + (cons __tmp50628 __tmp50627)))) (declare (not safe)) - (cons __tmp50419 __tmp50415)) - (gx#stx-source _stx23343_))))) + (cons __tmp50630 __tmp50626)) + (gx#stx-source _stx23520_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2352923540_))) - (__tmp50420 + _g2370623717_))) + (__tmp50631 (gx#stx-wrap-source - (let ((__tmp50425 + (let ((__tmp50636 (gx#datum->syntax '#f 'lambda)) - (__tmp50421 - (let ((__tmp50423 - (let ((__tmp50424 + (__tmp50632 + (let ((__tmp50634 + (let ((__tmp50635 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2356123564_ _g2356223567_) + (lambda (_g2373823741_ _g2373923744_) (let () (declare (not safe)) - (cons _g2356123564_ _g2356223567_))))) + (cons _g2373823741_ _g2373923744_))))) (declare (not safe)) - (foldr1 __tmp50424 '() _L23440_))) - (__tmp50422 - (let () (declare (not safe)) (cons _L23515_ '())))) + (foldr1 __tmp50635 '() _L23617_))) + (__tmp50633 + (let () (declare (not safe)) (cons _L23692_ '())))) (declare (not safe)) - (cons __tmp50423 __tmp50422)))) + (cons __tmp50634 __tmp50633)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50425 __tmp50421)) - (gx#stx-source _stx23343_)))) + (cons __tmp50636 __tmp50632)) + (gx#stx-source _stx23520_)))) (declare (not safe)) - (_g2352723558_ __tmp50420)))) - _g2350123512_)))) + (_g2370423735_ __tmp50631)))) + _g2367823689_)))) (declare (not safe)) - (_g2349923570_ _body23356_)))) - _g2347323484_))) - (__tmp50426 - (let _recur23578_ ((_rest23581_ _clause23354_) - (_rest-targets23583_ _tgt-lst23345_)) - (let* ((___stx4630846309_ _rest23581_) - (_g2358623598_ + (_g2367623747_ _body23533_)))) + _g2365023661_))) + (__tmp50637 + (let _recur23755_ ((_rest23758_ _clause23531_) + (_rest-targets23760_ _tgt-lst23522_)) + (let* ((___stx4648546486_ _rest23758_) + (_g2376323775_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4630846309_)))) - (let ((___kont4631146312_ - (lambda (_L23634_ _L23636_) - (let* ((_g2365123663_ - (lambda (_g2365223659_) + ___stx4648546486_)))) + (let ((___kont4648846489_ + (lambda (_L23811_ _L23813_) + (let* ((_g2382823840_ + (lambda (_g2382923836_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2365223659_))) - (_g2365023694_ - (lambda (_g2365223667_) - (if (gx#stx-pair? _g2365223667_) - (let ((_e2365723670_ - (gx#syntax-e _g2365223667_))) - (let ((_hd2365623674_ + _g2382923836_))) + (_g2382723871_ + (lambda (_g2382923844_) + (if (gx#stx-pair? _g2382923844_) + (let ((_e2383423847_ + (gx#syntax-e _g2382923844_))) + (let ((_hd2383323851_ (let () (declare (not safe)) - (##car _e2365723670_))) - (_tl2365523677_ + (##car _e2383423847_))) + (_tl2383223854_ (let () (declare (not safe)) - (##cdr _e2365723670_)))) - ((lambda (_L23680_ _L23682_) - (let ((__tmp50427 + (##cdr _e2383423847_)))) + ((lambda (_L23857_ _L23859_) + (let ((__tmp50638 (let () (declare (not safe)) - (_recur23578_ - _L23634_ - _L23680_)))) + (_recur23755_ + _L23811_ + _L23857_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match1| - _stx23343_ - _L23682_ - _L23636_ - __tmp50427 - _E23357_))) - _tl2365523677_ - _hd2365623674_))) + _stx23520_ + _L23859_ + _L23813_ + __tmp50638 + _E23534_))) + _tl2383223854_ + _hd2383323851_))) (let () (declare (not safe)) - (_g2365123663_ _g2365223667_)))))) + (_g2382823840_ _g2382923844_)))))) (declare (not safe)) - (_g2365023694_ _rest-targets23583_)))) - (___kont4631346314_ + (_g2382723871_ _rest-targets23760_)))) + (___kont4649046491_ (lambda () - (let ((__tmp50428 - (let ((__tmp50429 - (lambda (_g2360823611_ _g2360923614_) + (let ((__tmp50639 + (let ((__tmp50640 + (lambda (_g2378523788_ _g2378623791_) (let () (declare (not safe)) - (cons _g2360823611_ - _g2360923614_))))) + (cons _g2378523788_ + _g2378623791_))))) (declare (not safe)) - (foldr1 __tmp50429 '() _L23440_)))) + (foldr1 __tmp50640 '() _L23617_)))) (declare (not safe)) - (cons _L23442_ __tmp50428))))) - (if (gx#stx-pair? ___stx4630846309_) - (let ((_e2359223624_ (gx#syntax-e ___stx4630846309_))) - (let ((_tl2359023631_ + (cons _L23619_ __tmp50639))))) + (if (gx#stx-pair? ___stx4648546486_) + (let ((_e2376923801_ (gx#syntax-e ___stx4648546486_))) + (let ((_tl2376723808_ (let () (declare (not safe)) - (##cdr _e2359223624_))) - (_hd2359123628_ + (##cdr _e2376923801_))) + (_hd2376823805_ (let () (declare (not safe)) - (##car _e2359223624_)))) - (___kont4631146312_ - _tl2359023631_ - _hd2359123628_))) - (___kont4631346314_))))))) + (##car _e2376923801_)))) + (___kont4648846489_ + _tl2376723808_ + _hd2376823805_))) + (___kont4649046491_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2347123574_ __tmp50426)))) - _var2337723436_ - _hd2336423394_) + (_g2364823751_ __tmp50637)))) + _var2355423613_ + _hd2354123571_) (let () (declare (not safe)) - (_g2335923383_ - _g2336023387_)))))))) + (_g2353623560_ + _g2353723564_)))))))) (let () (declare (not safe)) - (_loop2337223416_ _target2336923410_ '()))) + (_loop2354923593_ _target2354623587_ '()))) (let () (declare (not safe)) - (_g2335923383_ _g2336023387_)))))) + (_g2353623560_ _g2353723564_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2335923383_ - _g2336023387_))))) + (_g2353623560_ + _g2353723564_))))) (let () (declare (not safe)) - (_g2335923383_ _g2336023387_))))) + (_g2353623560_ _g2353723564_))))) (let () (declare (not safe)) - (_g2335923383_ _g2336023387_))))) - (__tmp50431 + (_g2353623560_ _g2353723564_))))) + (__tmp50642 (list (gx#genident 'K) (apply append (map |gerbil/core$[1]#match-pattern-vars| - _clause23354_))))) + _clause23531_))))) (declare (not safe)) - (_g2335823702_ __tmp50431))))) - (let ((__tmp50432 - (let ((__tmp50433 (gx#stx-length _tgt-lst23345_))) + (_g2353523879_ __tmp50642))))) + (let ((__tmp50643 + (let ((__tmp50644 (gx#stx-length _tgt-lst23522_))) (declare (not safe)) - (_parse-body23348_ __tmp50433)))) + (_parse-body23525_ __tmp50644)))) (declare (not safe)) - (_generate-body23350_ __tmp50432))))) + (_generate-body23527_ __tmp50643))))) (define |gerbil/core$[1]#generate-match| - (lambda (_stx23245_ _tgt23247_ _clauses23248_) - (letrec ((_reclause23250_ - (lambda (_clause23253_) - (let* ((___stx4632446325_ _clause23253_) - (_g2325823273_ + (lambda (_stx23422_ _tgt23424_ _clauses23425_) + (letrec ((_reclause23427_ + (lambda (_clause23430_) + (let* ((___stx4650146502_ _clause23430_) + (_g2343523450_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4632446325_)))) - (let ((___kont4632746328_ (lambda () _clause23253_)) - (___kont4632946330_ - (lambda (_L23301_ _L23303_) + ___stx4650146502_)))) + (let ((___kont4650446505_ (lambda () _clause23430_)) + (___kont4650646507_ + (lambda (_L23478_ _L23480_) (gx#stx-wrap-source - (let ((__tmp50434 + (let ((__tmp50645 (let () (declare (not safe)) - (cons _L23303_ '())))) + (cons _L23480_ '())))) (declare (not safe)) - (cons __tmp50434 _L23301_)) + (cons __tmp50645 _L23478_)) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (___kont4633146332_ + (___kont4650846509_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _stx23245_ - _clause23253_)))) - (if (gx#stx-pair? ___stx4632446325_) - (let ((_e2326223325_ - (gx#syntax-e ___stx4632446325_))) - (let ((_tl2326023332_ + _stx23422_ + _clause23430_)))) + (if (gx#stx-pair? ___stx4650146502_) + (let ((_e2343923502_ + (gx#syntax-e ___stx4650146502_))) + (let ((_tl2343723509_ (let () (declare (not safe)) - (##cdr _e2326223325_))) - (_hd2326123329_ + (##cdr _e2343923502_))) + (_hd2343823506_ (let () (declare (not safe)) - (##car _e2326223325_)))) - (if (gx#identifier? _hd2326123329_) + (##car _e2343923502_)))) + (if (gx#identifier? _hd2343823506_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50435_| - _hd2326123329_) - (___kont4632746328_) - (___kont4632946330_ - _tl2326023332_ - _hd2326123329_)) - (___kont4632946330_ - _tl2326023332_ - _hd2326123329_)))) - (___kont4633146332_))))))) - (let ((__tmp50437 - (let () (declare (not safe)) (cons _tgt23247_ '()))) - (__tmp50436 (gx#stx-map _reclause23250_ _clauses23248_))) + |gerbil/core$[1]#_g50646_| + _hd2343823506_) + (___kont4650446505_) + (___kont4650646507_ + _tl2343723509_ + _hd2343823506_)) + (___kont4650646507_ + _tl2343723509_ + _hd2343823506_)))) + (___kont4650846509_))))))) + (let ((__tmp50648 + (let () (declare (not safe)) (cons _tgt23424_ '()))) + (__tmp50647 (gx#stx-map _reclause23427_ _clauses23425_))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx23245_ - __tmp50437 - __tmp50436))))) + _stx23422_ + __tmp50648 + __tmp50647))))) (define |gerbil/core$[:0:]#match| - (lambda (_stx30476_) - (let* ((___stx4635246353_ _stx30476_) - (_g3048130510_ + (lambda (_stx30653_) + (let* ((___stx4652946530_ _stx30653_) + (_g3065830687_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4635246353_)))) - (let ((___kont4635546356_ - (lambda (_L30750_) - (let* ((_g3076330771_ - (lambda (_g3076430767_) + ___stx4652946530_)))) + (let ((___kont4653246533_ + (lambda (_L30927_) + (let* ((_g3094030948_ + (lambda (_g3094130944_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3076430767_))) - (_g3076230824_ - (lambda (_g3076430775_) - ((lambda (_L30778_) + _g3094130944_))) + (_g3093931001_ + (lambda (_g3094130952_) + ((lambda (_L30955_) (let () - (let* ((_g3079030798_ - (lambda (_g3079130794_) + (let* ((_g3096730975_ + (lambda (_g3096830971_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3079130794_))) - (_g3078930820_ - (lambda (_g3079130802_) - ((lambda (_L30805_) + _g3096830971_))) + (_g3096630997_ + (lambda (_g3096830979_) + ((lambda (_L30982_) (let () (let () - (let ((__tmp50441 + (let ((__tmp50652 (gx#datum->syntax '#f 'lambda)) - (__tmp50438 - (let ((__tmp50440 + (__tmp50649 + (let ((__tmp50651 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L30778_ '()))) - (__tmp50439 - (let () (declare (not safe)) (cons _L30805_ '())))) + (let () (declare (not safe)) (cons _L30955_ '()))) + (__tmp50650 + (let () (declare (not safe)) (cons _L30982_ '())))) (declare (not safe)) - (cons __tmp50440 __tmp50439)))) + (cons __tmp50651 __tmp50650)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50441 - __tmp50438))))) - _g3079130802_)))) - (_g3078930820_ + (cons __tmp50652 + __tmp50649))))) + _g3096830979_)))) + (_g3096630997_ (gx#stx-wrap-source - (let ((__tmp50443 + (let ((__tmp50654 (gx#datum->syntax '#f 'match)) - (__tmp50442 + (__tmp50653 (let () (declare (not safe)) - (cons _L30778_ _L30750_)))) + (cons _L30955_ _L30927_)))) (declare (not safe)) - (cons __tmp50443 __tmp50442)) - (gx#stx-source _stx30476_)))))) - _g3076430775_)))) - (_g3076230824_ (gx#genident 'e))))) - (___kont4635746358_ - (lambda (_L30645_) - (let* ((_g3065830666_ - (lambda (_g3065930662_) + (cons __tmp50654 __tmp50653)) + (gx#stx-source _stx30653_)))))) + _g3094130952_)))) + (_g3093931001_ (gx#genident 'e))))) + (___kont4653446535_ + (lambda (_L30822_) + (let* ((_g3083530843_ + (lambda (_g3083630839_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3065930662_))) - (_g3065730719_ - (lambda (_g3065930670_) - ((lambda (_L30673_) + _g3083630839_))) + (_g3083430896_ + (lambda (_g3083630847_) + ((lambda (_L30850_) (let () - (let* ((_g3068530693_ - (lambda (_g3068630689_) + (let* ((_g3086230870_ + (lambda (_g3086330866_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3068630689_))) - (_g3068430715_ - (lambda (_g3068630697_) - ((lambda (_L30700_) + _g3086330866_))) + (_g3086130892_ + (lambda (_g3086330874_) + ((lambda (_L30877_) (let () (let () - (let ((__tmp50446 + (let ((__tmp50657 (gx#datum->syntax '#f 'lambda)) - (__tmp50444 - (let ((__tmp50445 + (__tmp50655 + (let ((__tmp50656 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L30700_ '())))) + (let () (declare (not safe)) (cons _L30877_ '())))) (declare (not safe)) - (cons _L30673_ __tmp50445)))) + (cons _L30850_ __tmp50656)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50446 - __tmp50444))))) - _g3068630697_)))) - (_g3068430715_ + (cons __tmp50657 + __tmp50655))))) + _g3086330874_)))) + (_g3086130892_ (gx#stx-wrap-source - (let ((__tmp50448 + (let ((__tmp50659 (gx#datum->syntax '#f 'match)) - (__tmp50447 + (__tmp50658 (let () (declare (not safe)) - (cons _L30673_ _L30645_)))) + (cons _L30850_ _L30822_)))) (declare (not safe)) - (cons __tmp50448 __tmp50447)) - (gx#stx-source _stx30476_)))))) - _g3065930670_)))) - (_g3065730719_ (gx#genident 'args))))) - (___kont4635946360_ - (lambda (_L30537_ _L30539_) - (let* ((_g3055330561_ - (lambda (_g3055430557_) + (cons __tmp50659 __tmp50658)) + (gx#stx-source _stx30653_)))))) + _g3083630847_)))) + (_g3083430896_ (gx#genident 'args))))) + (___kont4653646537_ + (lambda (_L30714_ _L30716_) + (let* ((_g3073030738_ + (lambda (_g3073130734_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3055430557_))) - (_g3055230614_ - (lambda (_g3055430565_) - ((lambda (_L30568_) + _g3073130734_))) + (_g3072930791_ + (lambda (_g3073130742_) + ((lambda (_L30745_) (let () - (let* ((_g3058030588_ - (lambda (_g3058130584_) + (let* ((_g3075730765_ + (lambda (_g3075830761_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3058130584_))) - (_g3057930610_ - (lambda (_g3058130592_) - ((lambda (_L30595_) + _g3075830761_))) + (_g3075630787_ + (lambda (_g3075830769_) + ((lambda (_L30772_) (let () (let () - (let ((__tmp50454 + (let ((__tmp50665 (gx#datum->syntax '#f 'let)) - (__tmp50449 - (let ((__tmp50451 + (__tmp50660 + (let ((__tmp50662 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50452 - (let ((__tmp50453 + (let ((__tmp50663 + (let ((__tmp50664 (let () (declare (not safe)) - (cons _L30539_ '())))) + (cons _L30716_ '())))) (declare (not safe)) - (cons _L30568_ __tmp50453)))) + (cons _L30745_ __tmp50664)))) (declare (not safe)) - (cons __tmp50452 '()))) - (__tmp50450 - (let () (declare (not safe)) (cons _L30595_ '())))) + (cons __tmp50663 '()))) + (__tmp50661 + (let () (declare (not safe)) (cons _L30772_ '())))) (declare (not safe)) - (cons __tmp50451 __tmp50450)))) + (cons __tmp50662 __tmp50661)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50454 - __tmp50449))))) - _g3058130592_)))) - (_g3057930610_ + (cons __tmp50665 + __tmp50660))))) + _g3075830769_)))) + (_g3075630787_ (let () (declare (not safe)) (|gerbil/core$[1]#generate-match| - _stx30476_ - _L30568_ - _L30537_)))))) - _g3055430565_)))) - (_g3055230614_ (gx#genident _L30539_)))))) - (let* ((___match4640546406_ - (lambda (_e3050130517_ - _hd3050030521_ - _tl3049930524_ - _e3050430527_ - _hd3050330531_ - _tl3050230534_) - (let ((_L30537_ _tl3050230534_) - (_L30539_ _hd3050330531_)) - (if (gx#stx-list? _L30537_) - (___kont4635946360_ _L30537_ _L30539_) - (let () (declare (not safe)) (_g3048130510_)))))) - (___match4639346394_ - (lambda (_e3049330625_ - _hd3049230629_ - _tl3049130632_ - _e3049630635_ - _hd3049530639_ - _tl3049430642_) - (let ((_L30645_ _tl3049430642_)) - (if (gx#stx-list? _L30645_) - (___kont4635746358_ _L30645_) - (___match4640546406_ - _e3049330625_ - _hd3049230629_ - _tl3049130632_ - _e3049630635_ - _hd3049530639_ - _tl3049430642_))))) - (___match4637746378_ - (lambda (_e3048630730_ - _hd3048530734_ - _tl3048430737_ - _e3048930740_ - _hd3048830744_ - _tl3048730747_) - (let ((_L30750_ _tl3048730747_)) - (if (gx#stx-list? _L30750_) - (___kont4635546356_ _L30750_) - (___match4640546406_ - _e3048630730_ - _hd3048530734_ - _tl3048430737_ - _e3048930740_ - _hd3048830744_ - _tl3048730747_)))))) - (if (gx#stx-pair? ___stx4635246353_) - (let ((_e3048630730_ (gx#syntax-e ___stx4635246353_))) - (let ((_tl3048430737_ - (let () (declare (not safe)) (##cdr _e3048630730_))) - (_hd3048530734_ + _stx30653_ + _L30745_ + _L30714_)))))) + _g3073130742_)))) + (_g3072930791_ (gx#genident _L30716_)))))) + (let* ((___match4658246583_ + (lambda (_e3067830694_ + _hd3067730698_ + _tl3067630701_ + _e3068130704_ + _hd3068030708_ + _tl3067930711_) + (let ((_L30714_ _tl3067930711_) + (_L30716_ _hd3068030708_)) + (if (gx#stx-list? _L30714_) + (___kont4653646537_ _L30714_ _L30716_) + (let () (declare (not safe)) (_g3065830687_)))))) + (___match4657046571_ + (lambda (_e3067030802_ + _hd3066930806_ + _tl3066830809_ + _e3067330812_ + _hd3067230816_ + _tl3067130819_) + (let ((_L30822_ _tl3067130819_)) + (if (gx#stx-list? _L30822_) + (___kont4653446535_ _L30822_) + (___match4658246583_ + _e3067030802_ + _hd3066930806_ + _tl3066830809_ + _e3067330812_ + _hd3067230816_ + _tl3067130819_))))) + (___match4655446555_ + (lambda (_e3066330907_ + _hd3066230911_ + _tl3066130914_ + _e3066630917_ + _hd3066530921_ + _tl3066430924_) + (let ((_L30927_ _tl3066430924_)) + (if (gx#stx-list? _L30927_) + (___kont4653246533_ _L30927_) + (___match4658246583_ + _e3066330907_ + _hd3066230911_ + _tl3066130914_ + _e3066630917_ + _hd3066530921_ + _tl3066430924_)))))) + (if (gx#stx-pair? ___stx4652946530_) + (let ((_e3066330907_ (gx#syntax-e ___stx4652946530_))) + (let ((_tl3066130914_ + (let () (declare (not safe)) (##cdr _e3066330907_))) + (_hd3066230911_ (let () (declare (not safe)) - (##car _e3048630730_)))) - (if (gx#stx-pair? _tl3048430737_) - (let ((_e3048930740_ (gx#syntax-e _tl3048430737_))) - (let ((_tl3048730747_ + (##car _e3066330907_)))) + (if (gx#stx-pair? _tl3066130914_) + (let ((_e3066630917_ (gx#syntax-e _tl3066130914_))) + (let ((_tl3066430924_ (let () (declare (not safe)) - (##cdr _e3048930740_))) - (_hd3048830744_ + (##cdr _e3066630917_))) + (_hd3066530921_ (let () (declare (not safe)) - (##car _e3048930740_)))) - (if (gx#identifier? _hd3048830744_) + (##car _e3066630917_)))) + (if (gx#identifier? _hd3066530921_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50456_| - _hd3048830744_) - (___match4637746378_ - _e3048630730_ - _hd3048530734_ - _tl3048430737_ - _e3048930740_ - _hd3048830744_ - _tl3048730747_) + |gerbil/core$[1]#_g50667_| + _hd3066530921_) + (___match4655446555_ + _e3066330907_ + _hd3066230911_ + _tl3066130914_ + _e3066630917_ + _hd3066530921_ + _tl3066430924_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50455_| - _hd3048830744_) - (___match4639346394_ - _e3048630730_ - _hd3048530734_ - _tl3048430737_ - _e3048930740_ - _hd3048830744_ - _tl3048730747_) - (___match4640546406_ - _e3048630730_ - _hd3048530734_ - _tl3048430737_ - _e3048930740_ - _hd3048830744_ - _tl3048730747_))) - (___match4640546406_ - _e3048630730_ - _hd3048530734_ - _tl3048430737_ - _e3048930740_ - _hd3048830744_ - _tl3048730747_)))) - (let () (declare (not safe)) (_g3048130510_))))) - (let () (declare (not safe)) (_g3048130510_)))))))) + |gerbil/core$[1]#_g50666_| + _hd3066530921_) + (___match4657046571_ + _e3066330907_ + _hd3066230911_ + _tl3066130914_ + _e3066630917_ + _hd3066530921_ + _tl3066430924_) + (___match4658246583_ + _e3066330907_ + _hd3066230911_ + _tl3066130914_ + _e3066630917_ + _hd3066530921_ + _tl3066430924_))) + (___match4658246583_ + _e3066330907_ + _hd3066230911_ + _tl3066130914_ + _e3066630917_ + _hd3066530921_ + _tl3066430924_)))) + (let () (declare (not safe)) (_g3065830687_))))) + (let () (declare (not safe)) (_g3065830687_)))))))) (define |gerbil/core$[:0:]#match*| - (lambda (_stx30832_) - (let* ((_g3083530859_ - (lambda (_g3083630855_) + (lambda (_stx31009_) + (let* ((_g3101231036_ + (lambda (_g3101331032_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3083630855_))) - (_g3083431071_ - (lambda (_g3083630863_) - (if (gx#stx-pair? _g3083630863_) - (let ((_e3084130866_ (gx#syntax-e _g3083630863_))) - (let ((_hd3084030870_ + _g3101331032_))) + (_g3101131248_ + (lambda (_g3101331040_) + (if (gx#stx-pair? _g3101331040_) + (let ((_e3101831043_ (gx#syntax-e _g3101331040_))) + (let ((_hd3101731047_ (let () (declare (not safe)) - (##car _e3084130866_))) - (_tl3083930873_ + (##car _e3101831043_))) + (_tl3101631050_ (let () (declare (not safe)) - (##cdr _e3084130866_)))) - (if (gx#stx-pair? _tl3083930873_) - (let ((_e3084430876_ - (gx#syntax-e _tl3083930873_))) - (let ((_hd3084330880_ + (##cdr _e3101831043_)))) + (if (gx#stx-pair? _tl3101631050_) + (let ((_e3102131053_ + (gx#syntax-e _tl3101631050_))) + (let ((_hd3102031057_ (let () (declare (not safe)) - (##car _e3084430876_))) - (_tl3084230883_ + (##car _e3102131053_))) + (_tl3101931060_ (let () (declare (not safe)) - (##cdr _e3084430876_)))) - (if (gx#stx-pair/null? _hd3084330880_) - (let ((_g50457_ + (##cdr _e3102131053_)))) + (if (gx#stx-pair/null? _hd3102031057_) + (let ((_g50668_ (gx#syntax-split-splice - _hd3084330880_ + _hd3102031057_ '0))) (begin - (let ((_g50458_ + (let ((_g50669_ (let () (declare (not safe)) - (if (##values? _g50457_) + (if (##values? _g50668_) (##vector-length - _g50457_) + _g50668_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50458_ 2))) + (##fx= _g50669_ 2))) (error "Context expects 2 values" - _g50458_))) - (let ((_target3084530886_ + _g50669_))) + (let ((_target3102231063_ (let () (declare (not safe)) - (##vector-ref _g50457_ 0))) - (_tl3084730889_ + (##vector-ref _g50668_ 0))) + (_tl3102431066_ (let () (declare (not safe)) - (##vector-ref _g50457_ 1)))) - (if (gx#stx-null? _tl3084730889_) - (letrec ((_loop3084830892_ - (lambda (_hd3084630896_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e3085230899_) - (if (gx#stx-pair? _hd3084630896_) - (let ((_e3084930902_ (gx#syntax-e _hd3084630896_))) - (let ((_lp-hd3085030906_ + (##vector-ref _g50668_ 1)))) + (if (gx#stx-null? _tl3102431066_) + (letrec ((_loop3102531069_ + (lambda (_hd3102331073_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _e3102931076_) + (if (gx#stx-pair? _hd3102331073_) + (let ((_e3102631079_ (gx#syntax-e _hd3102331073_))) + (let ((_lp-hd3102731083_ (let () (declare (not safe)) - (##car _e3084930902_))) - (_lp-tl3085130909_ + (##car _e3102631079_))) + (_lp-tl3102831086_ (let () (declare (not safe)) - (##cdr _e3084930902_)))) - (_loop3084830892_ - _lp-tl3085130909_ + (##cdr _e3102631079_)))) + (_loop3102531069_ + _lp-tl3102831086_ (let () (declare (not safe)) - (cons _lp-hd3085030906_ _e3085230899_))))) - (let ((_e3085330912_ (reverse _e3085230899_))) - ((lambda (_L30916_ _L30918_) - (if (gx#stx-list? _L30916_) - (let* ((_g3093630953_ - (lambda (_g3093730949_) + (cons _lp-hd3102731083_ _e3102931076_))))) + (let ((_e3103031089_ (reverse _e3102931076_))) + ((lambda (_L31093_ _L31095_) + (if (gx#stx-list? _L31093_) + (let* ((_g3111331130_ + (lambda (_g3111431126_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3093730949_))) - (_g3093531059_ - (lambda (_g3093730957_) + _g3111431126_))) + (_g3111231236_ + (lambda (_g3111431134_) (if (gx#stx-pair/null? - _g3093730957_) - (let ((_g50459_ + _g3111431134_) + (let ((_g50670_ (gx#syntax-split-splice - _g3093730957_ + _g3111431134_ '0))) (begin - (let ((_g50460_ + (let ((_g50671_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g50459_) - (##vector-length _g50459_) + _g50670_) + (##vector-length _g50670_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50460_ 2))) - (error "Context expects 2 values" _g50460_))) + (##fx= _g50671_ 2))) + (error "Context expects 2 values" _g50671_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3093930960_ + (let ((_target3111631137_ (let () (declare (not safe)) (##vector-ref - _g50459_ + _g50670_ 0))) - (_tl3094130963_ + (_tl3111831140_ (let () (declare (not safe)) (##vector-ref - _g50459_ + _g50670_ 1)))) (if (gx#stx-null? - _tl3094130963_) - (letrec ((_loop3094230966_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3094030970_ _$e3094630973_) - (if (gx#stx-pair? _hd3094030970_) - (let ((_e3094330976_ - (gx#syntax-e _hd3094030970_))) - (let ((_lp-hd3094430980_ + _tl3111831140_) + (letrec ((_loop3111931143_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_hd3111731147_ _$e3112331150_) + (if (gx#stx-pair? _hd3111731147_) + (let ((_e3112031153_ + (gx#syntax-e _hd3111731147_))) + (let ((_lp-hd3112131157_ (let () (declare (not safe)) - (##car _e3094330976_))) - (_lp-tl3094530983_ + (##car _e3112031153_))) + (_lp-tl3112231160_ (let () (declare (not safe)) - (##cdr _e3094330976_)))) - (_loop3094230966_ - _lp-tl3094530983_ + (##cdr _e3112031153_)))) + (_loop3111931143_ + _lp-tl3112231160_ (let () (declare (not safe)) - (cons _lp-hd3094430980_ - _$e3094630973_))))) - (let ((_$e3094730986_ - (reverse _$e3094630973_))) - ((lambda (_L30990_) + (cons _lp-hd3112131157_ + _$e3112331150_))))) + (let ((_$e3112431163_ + (reverse _$e3112331150_))) + ((lambda (_L31167_) (let () - (let* ((_g3100631014_ - (lambda (_g3100731010_) + (let* ((_g3118331191_ + (lambda (_g3118431187_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3100731010_))) - (_g3100531047_ - (lambda (_g3100731018_) - ((lambda (_L31021_) + _g3118431187_))) + (_g3118231224_ + (lambda (_g3118431195_) + ((lambda (_L31198_) (let () (let () - (let ((__tmp50467 + (let ((__tmp50678 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp50461 - (let ((__tmp50463 + (__tmp50672 + (let ((__tmp50674 (begin (gx#syntax-check-splice-targets - _L30918_ - _L30990_) - (let ((__tmp50464 - (lambda (_g3103531039_ - _g3103631042_ - _g3103731044_) - (let ((__tmp50465 - (let ((__tmp50466 + _L31095_ + _L31167_) + (let ((__tmp50675 + (lambda (_g3121231216_ + _g3121331219_ + _g3121431221_) + (let ((__tmp50676 + (let ((__tmp50677 (let () (declare (not safe)) - (cons _g3103531039_ + (cons _g3121231216_ '())))) (declare (not safe)) - (cons _g3103631042_ - __tmp50466)))) + (cons _g3121331219_ + __tmp50677)))) (declare (not safe)) - (cons __tmp50465 _g3103731044_))))) + (cons __tmp50676 _g3121431221_))))) (declare (not safe)) - (foldr2 __tmp50464 '() _L30918_ _L30990_)))) - (__tmp50462 + (foldr2 __tmp50675 '() _L31095_ _L31167_)))) + (__tmp50673 (let () (declare (not safe)) - (cons _L31021_ '())))) + (cons _L31198_ '())))) (declare (not safe)) - (cons __tmp50463 __tmp50462)))) + (cons __tmp50674 __tmp50673)))) (declare (not safe)) - (cons __tmp50467 __tmp50461))))) + (cons __tmp50678 __tmp50672))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g3100731018_)))) - (_g3100531047_ - (let ((__tmp50468 - (let ((__tmp50469 - (lambda (_g3105031053_ + _g3118431195_)))) + (_g3118231224_ + (let ((__tmp50679 + (let ((__tmp50680 + (lambda (_g3122731230_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3105131056_) + _g3122831233_) (let () (declare (not safe)) - (cons _g3105031053_ _g3105131056_))))) + (cons _g3122731230_ _g3122831233_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp50469 + (foldr1 __tmp50680 '() - _L30990_)))) + _L31167_)))) (declare (not safe)) (|gerbil/core$[1]#generate-match*| - _stx30832_ - __tmp50468 - _L30916_)))))) - _$e3094730986_)))))) - (_loop3094230966_ _target3093930960_ '())) - (_g3093630953_ _g3093730957_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3093630953_ - _g3093730957_))))) - (_g3093531059_ + _stx31009_ + __tmp50679 + _L31093_)))))) + _$e3112431163_)))))) + (_loop3111931143_ _target3111631137_ '())) + (_g3111331130_ _g3111431134_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g3111331130_ + _g3111431134_))))) + (_g3111231236_ (gx#gentemps - (let ((__tmp50470 - (lambda (_g3106231065_ - _g3106331068_) + (let ((__tmp50681 + (lambda (_g3123931242_ + _g3124031245_) (let () (declare (not safe)) - (cons _g3106231065_ - _g3106331068_))))) + (cons _g3123931242_ + _g3124031245_))))) (declare (not safe)) - (foldr1 __tmp50470 '() _L30918_))))) - (_g3083530859_ _g3083630863_))) - _tl3084230883_ - _e3085330912_)))))) + (foldr1 __tmp50681 '() _L31095_))))) + (_g3101231036_ _g3101331040_))) + _tl3101931060_ + _e3103031089_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3084830892_ - _target3084530886_ + (_loop3102531069_ + _target3102231063_ '())) - (_g3083530859_ - _g3083630863_))))) - (_g3083530859_ _g3083630863_)))) - (_g3083530859_ _g3083630863_)))) - (_g3083530859_ _g3083630863_))))) - (_g3083431071_ _stx30832_)))) + (_g3101231036_ + _g3101331040_))))) + (_g3101231036_ _g3101331040_)))) + (_g3101231036_ _g3101331040_)))) + (_g3101231036_ _g3101331040_))))) + (_g3101131248_ _stx31009_)))) (define |gerbil/core$[:0:]#with| - (lambda (_$stx31077_) - (let* ((___stx4640846409_ _$stx31077_) - (_g3108331166_ + (lambda (_$stx31254_) + (let* ((___stx4658546586_ _$stx31254_) + (_g3126031343_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4640846409_)))) - (let ((___kont4641146412_ - (lambda (_L31496_) - (let ((__tmp50474 (gx#datum->syntax '#f 'let)) - (__tmp50471 - (let ((__tmp50472 - (let ((__tmp50473 - (lambda (_g3151231515_ _g3151331518_) + ___stx4658546586_)))) + (let ((___kont4658846589_ + (lambda (_L31673_) + (let ((__tmp50685 (gx#datum->syntax '#f 'let)) + (__tmp50682 + (let ((__tmp50683 + (let ((__tmp50684 + (lambda (_g3168931692_ _g3169031695_) (let () (declare (not safe)) - (cons _g3151231515_ - _g3151331518_))))) + (cons _g3168931692_ + _g3169031695_))))) (declare (not safe)) - (foldr1 __tmp50473 '() _L31496_)))) + (foldr1 __tmp50684 '() _L31673_)))) (declare (not safe)) - (cons '() __tmp50472)))) + (cons '() __tmp50683)))) (declare (not safe)) - (cons __tmp50474 __tmp50471)))) - (___kont4641546416_ - (lambda (_L31404_ _L31406_ _L31407_ _L31408_) - (let ((__tmp50475 - (let ((__tmp50478 - (let ((__tmp50479 - (let ((__tmp50480 + (cons __tmp50685 __tmp50682)))) + (___kont4659246593_ + (lambda (_L31581_ _L31583_ _L31584_ _L31585_) + (let ((__tmp50686 + (let ((__tmp50689 + (let ((__tmp50690 + (let ((__tmp50691 (let () (declare (not safe)) - (cons _L31406_ '())))) + (cons _L31583_ '())))) (declare (not safe)) - (cons _L31407_ __tmp50480)))) + (cons _L31584_ __tmp50691)))) (declare (not safe)) - (cons __tmp50479 '()))) - (__tmp50476 - (let ((__tmp50477 - (lambda (_g3143031433_ _g3143131436_) + (cons __tmp50690 '()))) + (__tmp50687 + (let ((__tmp50688 + (lambda (_g3160731610_ _g3160831613_) (let () (declare (not safe)) - (cons _g3143031433_ - _g3143131436_))))) + (cons _g3160731610_ + _g3160831613_))))) (declare (not safe)) - (foldr1 __tmp50477 '() _L31404_)))) + (foldr1 __tmp50688 '() _L31581_)))) (declare (not safe)) - (cons __tmp50478 __tmp50476)))) + (cons __tmp50689 __tmp50687)))) (declare (not safe)) - (cons _L31408_ __tmp50475)))) - (___kont4641946420_ - (lambda (_L31277_ _L31279_ _L31280_) - (let ((__tmp50490 (gx#datum->syntax '#f 'match*)) - (__tmp50481 - (let ((__tmp50488 - (let ((__tmp50489 - (lambda (_g3130631309_ _g3130731312_) + (cons _L31585_ __tmp50686)))) + (___kont4659646597_ + (lambda (_L31454_ _L31456_ _L31457_) + (let ((__tmp50701 (gx#datum->syntax '#f 'match*)) + (__tmp50692 + (let ((__tmp50699 + (let ((__tmp50700 + (lambda (_g3148331486_ _g3148431489_) (let () (declare (not safe)) - (cons _g3130631309_ - _g3130731312_))))) + (cons _g3148331486_ + _g3148431489_))))) (declare (not safe)) - (foldr1 __tmp50489 '() _L31279_))) - (__tmp50482 - (let ((__tmp50483 - (let ((__tmp50486 - (let ((__tmp50487 - (lambda (_g3130431315_ - _g3130531318_) + (foldr1 __tmp50700 '() _L31456_))) + (__tmp50693 + (let ((__tmp50694 + (let ((__tmp50697 + (let ((__tmp50698 + (lambda (_g3148131492_ + _g3148231495_) (let () (declare (not safe)) - (cons _g3130431315_ - _g3130531318_))))) + (cons _g3148131492_ + _g3148231495_))))) (declare (not safe)) - (foldr1 __tmp50487 + (foldr1 __tmp50698 '() - _L31280_))) - (__tmp50484 - (let ((__tmp50485 - (lambda (_g3130231321_ - _g3130331324_) + _L31457_))) + (__tmp50695 + (let ((__tmp50696 + (lambda (_g3147931498_ + _g3148031501_) (let () (declare (not safe)) - (cons _g3130231321_ - _g3130331324_))))) + (cons _g3147931498_ + _g3148031501_))))) (declare (not safe)) - (foldr1 __tmp50485 + (foldr1 __tmp50696 '() - _L31277_)))) + _L31454_)))) (declare (not safe)) - (cons __tmp50486 __tmp50484)))) + (cons __tmp50697 __tmp50695)))) (declare (not safe)) - (cons __tmp50483 '())))) + (cons __tmp50694 '())))) (declare (not safe)) - (cons __tmp50488 __tmp50482)))) + (cons __tmp50699 __tmp50693)))) (declare (not safe)) - (cons __tmp50490 __tmp50481))))) - (let* ((___match4650146502_ - (lambda (_e3113131173_ - _hd3113031177_ - _tl3112931180_ - _e3113431183_ - _hd3113331187_ - _tl3113231190_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) - (letrec ((_loop3113831199_ - (lambda (_hd3113631203_ - _expr3114231206_ - _hd3114331208_) - (if (gx#stx-pair? _hd3113631203_) - (let ((_e3113931211_ - (gx#syntax-e _hd3113631203_))) - (let ((_lp-tl3114131218_ + (cons __tmp50701 __tmp50692))))) + (let* ((___match4667846679_ + (lambda (_e3130831350_ + _hd3130731354_ + _tl3130631357_ + _e3131131360_ + _hd3131031364_ + _tl3130931367_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) + (letrec ((_loop3131531376_ + (lambda (_hd3131331380_ + _expr3131931383_ + _hd3132031385_) + (if (gx#stx-pair? _hd3131331380_) + (let ((_e3131631388_ + (gx#syntax-e _hd3131331380_))) + (let ((_lp-tl3131831395_ (let () (declare (not safe)) - (##cdr _e3113931211_))) - (_lp-hd3114031215_ + (##cdr _e3131631388_))) + (_lp-hd3131731392_ (let () (declare (not safe)) - (##car _e3113931211_)))) - (if (gx#stx-pair? _lp-hd3114031215_) - (let ((_e3114831221_ + (##car _e3131631388_)))) + (if (gx#stx-pair? _lp-hd3131731392_) + (let ((_e3132531398_ (gx#syntax-e - _lp-hd3114031215_))) - (let ((_tl3114631228_ + _lp-hd3131731392_))) + (let ((_tl3132331405_ (let () (declare (not safe)) - (##cdr _e3114831221_))) - (_hd3114731225_ + (##cdr _e3132531398_))) + (_hd3132431402_ (let () (declare (not safe)) - (##car _e3114831221_)))) + (##car _e3132531398_)))) (if (gx#stx-pair? - _tl3114631228_) - (let ((_e3115131231_ + _tl3132331405_) + (let ((_e3132831408_ (gx#syntax-e - _tl3114631228_))) - (let ((_tl3114931238_ + _tl3132331405_))) + (let ((_tl3132631415_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3115131231_))) - (_hd3115031235_ - (let () (declare (not safe)) (##car _e3115131231_)))) - (if (gx#stx-null? _tl3114931238_) - (_loop3113831199_ - _lp-tl3114131218_ + (##cdr _e3132831408_))) + (_hd3132731412_ + (let () (declare (not safe)) (##car _e3132831408_)))) + (if (gx#stx-null? _tl3132631415_) + (_loop3131531376_ + _lp-tl3131831395_ (let () (declare (not safe)) - (cons _hd3115031235_ _expr3114231206_)) + (cons _hd3132731412_ _expr3131931383_)) (let () (declare (not safe)) - (cons _hd3114731225_ _hd3114331208_))) - (let () (declare (not safe)) (_g3108331166_))))) - (let () (declare (not safe)) (_g3108331166_))))) + (cons _hd3132431402_ _hd3132031385_))) + (let () (declare (not safe)) (_g3126031343_))))) + (let () (declare (not safe)) (_g3126031343_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3108331166_))))) - (let ((_hd3114531244_ - (reverse _hd3114331208_)) - (_expr3114431241_ - (reverse _expr3114231206_))) - (if (gx#stx-pair/null? _tl3113231190_) - (let ((___splice4642346424_ + (_g3126031343_))))) + (let ((_hd3132231421_ + (reverse _hd3132031385_)) + (_expr3132131418_ + (reverse _expr3131931383_))) + (if (gx#stx-pair/null? _tl3130931367_) + (let ((___splice4660046601_ (gx#syntax-split-splice - _tl3113231190_ + _tl3130931367_ '0))) - (let ((_tl3115431250_ + (let ((_tl3133131427_ (let () (declare (not safe)) (##vector-ref - ___splice4642346424_ + ___splice4660046601_ '1))) - (_target3115231247_ + (_target3132931424_ (let () (declare (not safe)) (##vector-ref - ___splice4642346424_ + ___splice4660046601_ '0)))) (if (gx#stx-null? - _tl3115431250_) - (letrec ((_loop3115531253_ - (lambda (_hd3115331257_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3115931260_) - (if (gx#stx-pair? _hd3115331257_) - (let ((_e3115631263_ (gx#syntax-e _hd3115331257_))) - (let ((_lp-tl3115831270_ + _tl3133131427_) + (letrec ((_loop3133231430_ + (lambda (_hd3133031434_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _body3133631437_) + (if (gx#stx-pair? _hd3133031434_) + (let ((_e3133331440_ (gx#syntax-e _hd3133031434_))) + (let ((_lp-tl3133531447_ (let () (declare (not safe)) - (##cdr _e3115631263_))) - (_lp-hd3115731267_ + (##cdr _e3133331440_))) + (_lp-hd3133431444_ (let () (declare (not safe)) - (##car _e3115631263_)))) - (_loop3115531253_ - _lp-tl3115831270_ + (##car _e3133331440_)))) + (_loop3133231430_ + _lp-tl3133531447_ (let () (declare (not safe)) - (cons _lp-hd3115731267_ - _body3115931260_))))) - (let ((_body3116031273_ - (reverse _body3115931260_))) - (___kont4641946420_ - _body3116031273_ - _expr3114431241_ - _hd3114531244_)))))) - (_loop3115531253_ _target3115231247_ '())) + (cons _lp-hd3133431444_ + _body3133631437_))))) + (let ((_body3133731450_ + (reverse _body3133631437_))) + (___kont4659646597_ + _body3133731450_ + _expr3132131418_ + _hd3132231421_)))))) + (_loop3133231430_ _target3132931424_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3108331166_))))) + (_g3126031343_))))) (let () (declare (not safe)) - (_g3108331166_)))))))) - (_loop3113831199_ _target3113531193_ '() '())))) - (___match4649346494_ - (lambda (_e3113131173_ - _hd3113031177_ - _tl3112931180_ - _e3113431183_ - _hd3113331187_ - _tl3113231190_) - (if (gx#stx-pair/null? _hd3113331187_) - (let ((___splice4642146422_ - (gx#syntax-split-splice _hd3113331187_ '0))) - (let ((_tl3113731196_ + (_g3126031343_)))))))) + (_loop3131531376_ _target3131231370_ '() '())))) + (___match4667046671_ + (lambda (_e3130831350_ + _hd3130731354_ + _tl3130631357_ + _e3131131360_ + _hd3131031364_ + _tl3130931367_) + (if (gx#stx-pair/null? _hd3131031364_) + (let ((___splice4659846599_ + (gx#syntax-split-splice _hd3131031364_ '0))) + (let ((_tl3131431373_ (let () (declare (not safe)) - (##vector-ref ___splice4642146422_ '1))) - (_target3113531193_ + (##vector-ref ___splice4659846599_ '1))) + (_target3131231370_ (let () (declare (not safe)) - (##vector-ref ___splice4642146422_ '0)))) - (if (gx#stx-null? _tl3113731196_) - (___match4650146502_ - _e3113131173_ - _hd3113031177_ - _tl3112931180_ - _e3113431183_ - _hd3113331187_ - _tl3113231190_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) + (##vector-ref ___splice4659846599_ '0)))) + (if (gx#stx-null? _tl3131431373_) + (___match4667846679_ + _e3130831350_ + _hd3130731354_ + _tl3130631357_ + _e3131131360_ + _hd3131031364_ + _tl3130931367_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) (let () (declare (not safe)) - (_g3108331166_))))) - (let () (declare (not safe)) (_g3108331166_))))) - (___match4648146482_ - (lambda (_e3110731334_ - _hd3110631338_ - _tl3110531341_ - _e3111031344_ - _hd3110931348_ - _tl3110831351_ - _e3111331354_ - _hd3111231358_ - _tl3111131361_ - _e3111631364_ - _hd3111531368_ - _tl3111431371_ - ___splice4641746418_ - _target3111731374_ - _tl3111931377_) - (letrec ((_loop3112031380_ - (lambda (_hd3111831384_ _body3112431387_) - (if (gx#stx-pair? _hd3111831384_) - (let ((_e3112131390_ - (gx#syntax-e _hd3111831384_))) - (let ((_lp-tl3112331397_ + (_g3126031343_))))) + (let () (declare (not safe)) (_g3126031343_))))) + (___match4665846659_ + (lambda (_e3128431511_ + _hd3128331515_ + _tl3128231518_ + _e3128731521_ + _hd3128631525_ + _tl3128531528_ + _e3129031531_ + _hd3128931535_ + _tl3128831538_ + _e3129331541_ + _hd3129231545_ + _tl3129131548_ + ___splice4659446595_ + _target3129431551_ + _tl3129631554_) + (letrec ((_loop3129731557_ + (lambda (_hd3129531561_ _body3130131564_) + (if (gx#stx-pair? _hd3129531561_) + (let ((_e3129831567_ + (gx#syntax-e _hd3129531561_))) + (let ((_lp-tl3130031574_ (let () (declare (not safe)) - (##cdr _e3112131390_))) - (_lp-hd3112231394_ + (##cdr _e3129831567_))) + (_lp-hd3129931571_ (let () (declare (not safe)) - (##car _e3112131390_)))) - (_loop3112031380_ - _lp-tl3112331397_ + (##car _e3129831567_)))) + (_loop3129731557_ + _lp-tl3130031574_ (let () (declare (not safe)) - (cons _lp-hd3112231394_ - _body3112431387_))))) - (let ((_body3112531400_ - (reverse _body3112431387_))) - (let ((_L31404_ _body3112531400_) - (_L31406_ _hd3111531368_) - (_L31407_ _hd3111231358_) - (_L31408_ _hd3110631338_)) + (cons _lp-hd3129931571_ + _body3130131564_))))) + (let ((_body3130231577_ + (reverse _body3130131564_))) + (let ((_L31581_ _body3130231577_) + (_L31583_ _hd3129231545_) + (_L31584_ _hd3128931535_) + (_L31585_ _hd3128331515_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#match-pattern?| - _L31407_)) - (___kont4641546416_ - _L31404_ - _L31406_ - _L31407_ - _L31408_) - (___match4649346494_ - _e3110731334_ - _hd3110631338_ - _tl3110531341_ - _e3111031344_ - _hd3110931348_ - _tl3110831351_)))))))) - (_loop3112031380_ _target3111731374_ '())))) - (___match4644746448_ - (lambda (_e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4641346414_ - _target3109231466_ - _tl3109431469_) - (letrec ((_loop3109531472_ - (lambda (_hd3109331476_ _body3109931479_) - (if (gx#stx-pair? _hd3109331476_) - (let ((_e3109631482_ - (gx#syntax-e _hd3109331476_))) - (let ((_lp-tl3109831489_ + _L31584_)) + (___kont4659246593_ + _L31581_ + _L31583_ + _L31584_ + _L31585_) + (___match4667046671_ + _e3128431511_ + _hd3128331515_ + _tl3128231518_ + _e3128731521_ + _hd3128631525_ + _tl3128531528_)))))))) + (_loop3129731557_ _target3129431551_ '())))) + (___match4662446625_ + (lambda (_e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659046591_ + _target3126931643_ + _tl3127131646_) + (letrec ((_loop3127231649_ + (lambda (_hd3127031653_ _body3127631656_) + (if (gx#stx-pair? _hd3127031653_) + (let ((_e3127331659_ + (gx#syntax-e _hd3127031653_))) + (let ((_lp-tl3127531666_ (let () (declare (not safe)) - (##cdr _e3109631482_))) - (_lp-hd3109731486_ + (##cdr _e3127331659_))) + (_lp-hd3127431663_ (let () (declare (not safe)) - (##car _e3109631482_)))) - (_loop3109531472_ - _lp-tl3109831489_ + (##car _e3127331659_)))) + (_loop3127231649_ + _lp-tl3127531666_ (let () (declare (not safe)) - (cons _lp-hd3109731486_ - _body3109931479_))))) - (let ((_body3110031492_ - (reverse _body3109931479_))) - (___kont4641146412_ - _body3110031492_)))))) - (_loop3109531472_ _target3109231466_ '()))))) - (if (gx#stx-pair? ___stx4640846409_) - (let ((_e3108831446_ (gx#syntax-e ___stx4640846409_))) - (let ((_tl3108631453_ - (let () (declare (not safe)) (##cdr _e3108831446_))) - (_hd3108731450_ + (cons _lp-hd3127431663_ + _body3127631656_))))) + (let ((_body3127731669_ + (reverse _body3127631656_))) + (___kont4658846589_ + _body3127731669_)))))) + (_loop3127231649_ _target3126931643_ '()))))) + (if (gx#stx-pair? ___stx4658546586_) + (let ((_e3126531623_ (gx#syntax-e ___stx4658546586_))) + (let ((_tl3126331630_ + (let () (declare (not safe)) (##cdr _e3126531623_))) + (_hd3126431627_ (let () (declare (not safe)) - (##car _e3108831446_)))) - (if (gx#stx-pair? _tl3108631453_) - (let ((_e3109131456_ (gx#syntax-e _tl3108631453_))) - (let ((_tl3108931463_ + (##car _e3126531623_)))) + (if (gx#stx-pair? _tl3126331630_) + (let ((_e3126831633_ (gx#syntax-e _tl3126331630_))) + (let ((_tl3126631640_ (let () (declare (not safe)) - (##cdr _e3109131456_))) - (_hd3109031460_ + (##cdr _e3126831633_))) + (_hd3126731637_ (let () (declare (not safe)) - (##car _e3109131456_)))) - (if (gx#stx-null? _hd3109031460_) - (if (gx#stx-pair/null? _tl3108931463_) - (let ((___splice4641346414_ + (##car _e3126831633_)))) + (if (gx#stx-null? _hd3126731637_) + (if (gx#stx-pair/null? _tl3126631640_) + (let ((___splice4659046591_ (gx#syntax-split-splice - _tl3108931463_ + _tl3126631640_ '0))) - (let ((_tl3109431469_ + (let ((_tl3127131646_ (let () (declare (not safe)) (##vector-ref - ___splice4641346414_ + ___splice4659046591_ '1))) - (_target3109231466_ + (_target3126931643_ (let () (declare (not safe)) (##vector-ref - ___splice4641346414_ + ___splice4659046591_ '0)))) - (if (gx#stx-null? _tl3109431469_) - (___match4644746448_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4641346414_ - _target3109231466_ - _tl3109431469_) + (if (gx#stx-null? _tl3127131646_) + (___match4662446625_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659046591_ + _target3126931643_ + _tl3127131646_) (if (gx#stx-pair/null? - _hd3109031460_) - (let ((___splice4642146422_ + _hd3126731637_) + (let ((___splice4659846599_ (gx#syntax-split-splice - _hd3109031460_ + _hd3126731637_ '0))) - (let ((_tl3113731196_ + (let ((_tl3131431373_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '1))) - (_target3113531193_ + (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '0)))) (if (gx#stx-null? - _tl3113731196_) - (___match4650146502_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) + _tl3131431373_) + (___match4667846679_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) (let () (declare (not safe)) - (_g3108331166_))))) + (_g3126031343_))))) (let () (declare (not safe)) - (_g3108331166_)))))) - (if (gx#stx-pair/null? _hd3109031460_) - (let ((___splice4642146422_ + (_g3126031343_)))))) + (if (gx#stx-pair/null? _hd3126731637_) + (let ((___splice4659846599_ (gx#syntax-split-splice - _hd3109031460_ + _hd3126731637_ '0))) - (let ((_tl3113731196_ + (let ((_tl3131431373_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '1))) - (_target3113531193_ + (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '0)))) - (if (gx#stx-null? _tl3113731196_) - (___match4650146502_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) + (if (gx#stx-null? _tl3131431373_) + (___match4667846679_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) (let () (declare (not safe)) - (_g3108331166_))))) + (_g3126031343_))))) (let () (declare (not safe)) - (_g3108331166_)))) - (if (gx#stx-pair? _hd3109031460_) - (let ((_e3111331354_ - (gx#syntax-e _hd3109031460_))) - (let ((_tl3111131361_ + (_g3126031343_)))) + (if (gx#stx-pair? _hd3126731637_) + (let ((_e3129031531_ + (gx#syntax-e _hd3126731637_))) + (let ((_tl3128831538_ (let () (declare (not safe)) - (##cdr _e3111331354_))) - (_hd3111231358_ + (##cdr _e3129031531_))) + (_hd3128931535_ (let () (declare (not safe)) - (##car _e3111331354_)))) - (if (gx#stx-pair? _tl3111131361_) - (let ((_e3111631364_ + (##car _e3129031531_)))) + (if (gx#stx-pair? _tl3128831538_) + (let ((_e3129331541_ (gx#syntax-e - _tl3111131361_))) - (let ((_tl3111431371_ + _tl3128831538_))) + (let ((_tl3129131548_ (let () (declare (not safe)) - (##cdr _e3111631364_))) - (_hd3111531368_ + (##cdr _e3129331541_))) + (_hd3129231545_ (let () (declare (not safe)) - (##car _e3111631364_)))) + (##car _e3129331541_)))) (if (gx#stx-null? - _tl3111431371_) + _tl3129131548_) (if (gx#stx-pair/null? - _tl3108931463_) - (let ((___splice4641746418_ + _tl3126631640_) + (let ((___splice4659446595_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3108931463_ '0))) - (let ((_tl3111931377_ + (gx#syntax-split-splice _tl3126631640_ '0))) + (let ((_tl3129631554_ (let () (declare (not safe)) - (##vector-ref ___splice4641746418_ '1))) - (_target3111731374_ + (##vector-ref ___splice4659446595_ '1))) + (_target3129431551_ (let () (declare (not safe)) - (##vector-ref ___splice4641746418_ '0)))) - (if (gx#stx-null? _tl3111931377_) - (___match4648146482_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - _e3111331354_ - _hd3111231358_ - _tl3111131361_ - _e3111631364_ - _hd3111531368_ - _tl3111431371_ - ___splice4641746418_ - _target3111731374_ - _tl3111931377_) - (if (gx#stx-pair/null? _hd3109031460_) - (let ((___splice4642146422_ + (##vector-ref ___splice4659446595_ '0)))) + (if (gx#stx-null? _tl3129631554_) + (___match4665846659_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + _e3129031531_ + _hd3128931535_ + _tl3128831538_ + _e3129331541_ + _hd3129231545_ + _tl3129131548_ + ___splice4659446595_ + _target3129431551_ + _tl3129631554_) + (if (gx#stx-pair/null? _hd3126731637_) + (let ((___splice4659846599_ (gx#syntax-split-splice - _hd3109031460_ + _hd3126731637_ '0))) - (let ((_tl3113731196_ + (let ((_tl3131431373_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '1))) - (_target3113531193_ + (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '0)))) - (if (gx#stx-null? _tl3113731196_) - (___match4650146502_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) + (if (gx#stx-null? _tl3131431373_) + (___match4667846679_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) (let () (declare (not safe)) - (_g3108331166_))))) - (let () (declare (not safe)) (_g3108331166_)))))) - (if (gx#stx-pair/null? _hd3109031460_) - (let ((___splice4642146422_ - (gx#syntax-split-splice _hd3109031460_ '0))) - (let ((_tl3113731196_ + (_g3126031343_))))) + (let () (declare (not safe)) (_g3126031343_)))))) + (if (gx#stx-pair/null? _hd3126731637_) + (let ((___splice4659846599_ + (gx#syntax-split-splice _hd3126731637_ '0))) + (let ((_tl3131431373_ (let () (declare (not safe)) - (##vector-ref ___splice4642146422_ '1))) - (_target3113531193_ + (##vector-ref ___splice4659846599_ '1))) + (_target3131231370_ (let () (declare (not safe)) - (##vector-ref ___splice4642146422_ '0)))) - (if (gx#stx-null? _tl3113731196_) - (___match4650146502_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) - (let () (declare (not safe)) (_g3108331166_))))) - (let () (declare (not safe)) (_g3108331166_)))) - (if (gx#stx-pair/null? _hd3109031460_) - (let ((___splice4642146422_ - (gx#syntax-split-splice _hd3109031460_ '0))) - (let ((_tl3113731196_ + (##vector-ref ___splice4659846599_ '0)))) + (if (gx#stx-null? _tl3131431373_) + (___match4667846679_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) + (let () (declare (not safe)) (_g3126031343_))))) + (let () (declare (not safe)) (_g3126031343_)))) + (if (gx#stx-pair/null? _hd3126731637_) + (let ((___splice4659846599_ + (gx#syntax-split-splice _hd3126731637_ '0))) + (let ((_tl3131431373_ (let () (declare (not safe)) - (##vector-ref ___splice4642146422_ '1))) - (_target3113531193_ + (##vector-ref ___splice4659846599_ '1))) + (_target3131231370_ (let () (declare (not safe)) - (##vector-ref ___splice4642146422_ '0)))) - (if (gx#stx-null? _tl3113731196_) - (___match4650146502_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) - (let () (declare (not safe)) (_g3108331166_))))) - (let () (declare (not safe)) (_g3108331166_)))))) + (##vector-ref ___splice4659846599_ '0)))) + (if (gx#stx-null? _tl3131431373_) + (___match4667846679_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) + (let () (declare (not safe)) (_g3126031343_))))) + (let () (declare (not safe)) (_g3126031343_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _hd3109031460_) - (let ((___splice4642146422_ + _hd3126731637_) + (let ((___splice4659846599_ (gx#syntax-split-splice - _hd3109031460_ + _hd3126731637_ '0))) - (let ((_tl3113731196_ + (let ((_tl3131431373_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '1))) - (_target3113531193_ + (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '0)))) (if (gx#stx-null? - _tl3113731196_) - (___match4650146502_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) + _tl3131431373_) + (___match4667846679_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) (let () (declare (not safe)) - (_g3108331166_))))) + (_g3126031343_))))) (let () (declare (not safe)) - (_g3108331166_)))))) - (if (gx#stx-pair/null? _hd3109031460_) - (let ((___splice4642146422_ + (_g3126031343_)))))) + (if (gx#stx-pair/null? _hd3126731637_) + (let ((___splice4659846599_ (gx#syntax-split-splice - _hd3109031460_ + _hd3126731637_ '0))) - (let ((_tl3113731196_ + (let ((_tl3131431373_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '1))) - (_target3113531193_ + (_target3131231370_ (let () (declare (not safe)) (##vector-ref - ___splice4642146422_ + ___splice4659846599_ '0)))) - (if (gx#stx-null? _tl3113731196_) - (___match4650146502_ - _e3108831446_ - _hd3108731450_ - _tl3108631453_ - _e3109131456_ - _hd3109031460_ - _tl3108931463_ - ___splice4642146422_ - _target3113531193_ - _tl3113731196_) + (if (gx#stx-null? _tl3131431373_) + (___match4667846679_ + _e3126531623_ + _hd3126431627_ + _tl3126331630_ + _e3126831633_ + _hd3126731637_ + _tl3126631640_ + ___splice4659846599_ + _target3131231370_ + _tl3131431373_) (let () (declare (not safe)) - (_g3108331166_))))) + (_g3126031343_))))) (let () (declare (not safe)) - (_g3108331166_))))))) - (let () (declare (not safe)) (_g3108331166_))))) - (let () (declare (not safe)) (_g3108331166_)))))))) + (_g3126031343_))))))) + (let () (declare (not safe)) (_g3126031343_))))) + (let () (declare (not safe)) (_g3126031343_)))))))) (define |gerbil/core$[:0:]#with*| - (lambda (_$stx31529_) - (let* ((___stx4650446505_ _$stx31529_) - (_g3153431586_ + (lambda (_$stx31706_) + (let* ((___stx4668146682_ _$stx31706_) + (_g3171131763_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4650446505_)))) - (let ((___kont4650746508_ - (lambda (_L31756_ _L31758_ _L31759_ _L31760_ _L31761_) - (let ((__tmp50500 (gx#datum->syntax '#f 'with)) - (__tmp50491 - (let ((__tmp50497 - (let ((__tmp50498 - (let ((__tmp50499 + ___stx4668146682_)))) + (let ((___kont4668446685_ + (lambda (_L31933_ _L31935_ _L31936_ _L31937_ _L31938_) + (let ((__tmp50711 (gx#datum->syntax '#f 'with)) + (__tmp50702 + (let ((__tmp50708 + (let ((__tmp50709 + (let ((__tmp50710 (let () (declare (not safe)) - (cons _L31759_ '())))) + (cons _L31936_ '())))) (declare (not safe)) - (cons _L31760_ __tmp50499)))) + (cons _L31937_ __tmp50710)))) (declare (not safe)) - (cons __tmp50498 '()))) - (__tmp50492 - (let ((__tmp50493 - (let ((__tmp50494 - (let ((__tmp50495 - (let ((__tmp50496 - (lambda (_g3178631789_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3178731792_) + (cons __tmp50709 '()))) + (__tmp50703 + (let ((__tmp50704 + (let ((__tmp50705 + (let ((__tmp50706 + (let ((__tmp50707 + (lambda (_g3196331966_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g3196431969_) (let () (declare (not safe)) - (cons _g3178631789_ _g3178731792_))))) + (cons _g3196331966_ _g3196431969_))))) (declare (not safe)) - (foldr1 __tmp50496 '() _L31756_)))) + (foldr1 __tmp50707 '() _L31933_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L31758_ __tmp50495)))) + (cons _L31935_ __tmp50706)))) (declare (not safe)) - (cons _L31761_ __tmp50494)))) + (cons _L31938_ __tmp50705)))) (declare (not safe)) - (cons __tmp50493 '())))) + (cons __tmp50704 '())))) (declare (not safe)) - (cons __tmp50497 __tmp50492)))) + (cons __tmp50708 __tmp50703)))) (declare (not safe)) - (cons __tmp50500 __tmp50491)))) - (___kont4651146512_ - (lambda (_L31643_) - (let ((__tmp50504 (gx#datum->syntax '#f 'let)) - (__tmp50501 - (let ((__tmp50502 - (let ((__tmp50503 - (lambda (_g3166031663_ _g3166131666_) + (cons __tmp50711 __tmp50702)))) + (___kont4668846689_ + (lambda (_L31820_) + (let ((__tmp50715 (gx#datum->syntax '#f 'let)) + (__tmp50712 + (let ((__tmp50713 + (let ((__tmp50714 + (lambda (_g3183731840_ _g3183831843_) (let () (declare (not safe)) - (cons _g3166031663_ - _g3166131666_))))) + (cons _g3183731840_ + _g3183831843_))))) (declare (not safe)) - (foldr1 __tmp50503 '() _L31643_)))) + (foldr1 __tmp50714 '() _L31820_)))) (declare (not safe)) - (cons '() __tmp50502)))) + (cons '() __tmp50713)))) (declare (not safe)) - (cons __tmp50504 __tmp50501))))) - (let* ((___match4657746578_ - (lambda (_e3156831593_ - _hd3156731597_ - _tl3156631600_ - _e3157131603_ - _hd3157031607_ - _tl3156931610_ - ___splice4651346514_ - _target3157231613_ - _tl3157431616_) - (letrec ((_loop3157531619_ - (lambda (_hd3157331623_ _body3157931626_) - (if (gx#stx-pair? _hd3157331623_) - (let ((_e3157631629_ - (gx#syntax-e _hd3157331623_))) - (let ((_lp-tl3157831636_ + (cons __tmp50715 __tmp50712))))) + (let* ((___match4675446755_ + (lambda (_e3174531770_ + _hd3174431774_ + _tl3174331777_ + _e3174831780_ + _hd3174731784_ + _tl3174631787_ + ___splice4669046691_ + _target3174931790_ + _tl3175131793_) + (letrec ((_loop3175231796_ + (lambda (_hd3175031800_ _body3175631803_) + (if (gx#stx-pair? _hd3175031800_) + (let ((_e3175331806_ + (gx#syntax-e _hd3175031800_))) + (let ((_lp-tl3175531813_ (let () (declare (not safe)) - (##cdr _e3157631629_))) - (_lp-hd3157731633_ + (##cdr _e3175331806_))) + (_lp-hd3175431810_ (let () (declare (not safe)) - (##car _e3157631629_)))) - (_loop3157531619_ - _lp-tl3157831636_ + (##car _e3175331806_)))) + (_loop3175231796_ + _lp-tl3175531813_ (let () (declare (not safe)) - (cons _lp-hd3157731633_ - _body3157931626_))))) - (let ((_body3158031639_ - (reverse _body3157931626_))) - (___kont4651146512_ - _body3158031639_)))))) - (_loop3157531619_ _target3157231613_ '())))) - (___match4655546556_ - (lambda (_e3154331676_ - _hd3154231680_ - _tl3154131683_ - _e3154631686_ - _hd3154531690_ - _tl3154431693_ - _e3154931696_ - _hd3154831700_ - _tl3154731703_ - _e3155231706_ - _hd3155131710_ - _tl3155031713_ - _e3155531716_ - _hd3155431720_ - _tl3155331723_ - ___splice4650946510_ - _target3155631726_ - _tl3155831729_) - (letrec ((_loop3155931732_ - (lambda (_hd3155731736_ _body3156331739_) - (if (gx#stx-pair? _hd3155731736_) - (let ((_e3156031742_ - (gx#syntax-e _hd3155731736_))) - (let ((_lp-tl3156231749_ + (cons _lp-hd3175431810_ + _body3175631803_))))) + (let ((_body3175731816_ + (reverse _body3175631803_))) + (___kont4668846689_ + _body3175731816_)))))) + (_loop3175231796_ _target3174931790_ '())))) + (___match4673246733_ + (lambda (_e3172031853_ + _hd3171931857_ + _tl3171831860_ + _e3172331863_ + _hd3172231867_ + _tl3172131870_ + _e3172631873_ + _hd3172531877_ + _tl3172431880_ + _e3172931883_ + _hd3172831887_ + _tl3172731890_ + _e3173231893_ + _hd3173131897_ + _tl3173031900_ + ___splice4668646687_ + _target3173331903_ + _tl3173531906_) + (letrec ((_loop3173631909_ + (lambda (_hd3173431913_ _body3174031916_) + (if (gx#stx-pair? _hd3173431913_) + (let ((_e3173731919_ + (gx#syntax-e _hd3173431913_))) + (let ((_lp-tl3173931926_ (let () (declare (not safe)) - (##cdr _e3156031742_))) - (_lp-hd3156131746_ + (##cdr _e3173731919_))) + (_lp-hd3173831923_ (let () (declare (not safe)) - (##car _e3156031742_)))) - (_loop3155931732_ - _lp-tl3156231749_ + (##car _e3173731919_)))) + (_loop3173631909_ + _lp-tl3173931926_ (let () (declare (not safe)) - (cons _lp-hd3156131746_ - _body3156331739_))))) - (let ((_body3156431752_ - (reverse _body3156331739_))) - (___kont4650746508_ - _body3156431752_ - _tl3154731703_ - _hd3155431720_ - _hd3155131710_ - _hd3154231680_)))))) - (_loop3155931732_ _target3155631726_ '()))))) - (if (gx#stx-pair? ___stx4650446505_) - (let ((_e3154331676_ (gx#syntax-e ___stx4650446505_))) - (let ((_tl3154131683_ - (let () (declare (not safe)) (##cdr _e3154331676_))) - (_hd3154231680_ + (cons _lp-hd3173831923_ + _body3174031916_))))) + (let ((_body3174131929_ + (reverse _body3174031916_))) + (___kont4668446685_ + _body3174131929_ + _tl3172431880_ + _hd3173131897_ + _hd3172831887_ + _hd3171931857_)))))) + (_loop3173631909_ _target3173331903_ '()))))) + (if (gx#stx-pair? ___stx4668146682_) + (let ((_e3172031853_ (gx#syntax-e ___stx4668146682_))) + (let ((_tl3171831860_ + (let () (declare (not safe)) (##cdr _e3172031853_))) + (_hd3171931857_ (let () (declare (not safe)) - (##car _e3154331676_)))) - (if (gx#stx-pair? _tl3154131683_) - (let ((_e3154631686_ (gx#syntax-e _tl3154131683_))) - (let ((_tl3154431693_ + (##car _e3172031853_)))) + (if (gx#stx-pair? _tl3171831860_) + (let ((_e3172331863_ (gx#syntax-e _tl3171831860_))) + (let ((_tl3172131870_ (let () (declare (not safe)) - (##cdr _e3154631686_))) - (_hd3154531690_ + (##cdr _e3172331863_))) + (_hd3172231867_ (let () (declare (not safe)) - (##car _e3154631686_)))) - (if (gx#stx-pair? _hd3154531690_) - (let ((_e3154931696_ - (gx#syntax-e _hd3154531690_))) - (let ((_tl3154731703_ + (##car _e3172331863_)))) + (if (gx#stx-pair? _hd3172231867_) + (let ((_e3172631873_ + (gx#syntax-e _hd3172231867_))) + (let ((_tl3172431880_ (let () (declare (not safe)) - (##cdr _e3154931696_))) - (_hd3154831700_ + (##cdr _e3172631873_))) + (_hd3172531877_ (let () (declare (not safe)) - (##car _e3154931696_)))) - (if (gx#stx-pair? _hd3154831700_) - (let ((_e3155231706_ - (gx#syntax-e _hd3154831700_))) - (let ((_tl3155031713_ + (##car _e3172631873_)))) + (if (gx#stx-pair? _hd3172531877_) + (let ((_e3172931883_ + (gx#syntax-e _hd3172531877_))) + (let ((_tl3172731890_ (let () (declare (not safe)) - (##cdr _e3155231706_))) - (_hd3155131710_ + (##cdr _e3172931883_))) + (_hd3172831887_ (let () (declare (not safe)) - (##car _e3155231706_)))) - (if (gx#stx-pair? _tl3155031713_) - (let ((_e3155531716_ + (##car _e3172931883_)))) + (if (gx#stx-pair? _tl3172731890_) + (let ((_e3173231893_ (gx#syntax-e - _tl3155031713_))) - (let ((_tl3155331723_ + _tl3172731890_))) + (let ((_tl3173031900_ (let () (declare (not safe)) - (##cdr _e3155531716_))) - (_hd3155431720_ + (##cdr _e3173231893_))) + (_hd3173131897_ (let () (declare (not safe)) - (##car _e3155531716_)))) + (##car _e3173231893_)))) (if (gx#stx-null? - _tl3155331723_) + _tl3173031900_) (if (gx#stx-pair/null? - _tl3154431693_) - (let ((___splice4650946510_ + _tl3172131870_) + (let ((___splice4668646687_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _tl3154431693_ '0))) - (let ((_tl3155831729_ + (gx#syntax-split-splice _tl3172131870_ '0))) + (let ((_tl3173531906_ (let () (declare (not safe)) - (##vector-ref ___splice4650946510_ '1))) - (_target3155631726_ + (##vector-ref ___splice4668646687_ '1))) + (_target3173331903_ (let () (declare (not safe)) - (##vector-ref ___splice4650946510_ '0)))) - (if (gx#stx-null? _tl3155831729_) - (___match4655546556_ - _e3154331676_ - _hd3154231680_ - _tl3154131683_ - _e3154631686_ - _hd3154531690_ - _tl3154431693_ - _e3154931696_ - _hd3154831700_ - _tl3154731703_ - _e3155231706_ - _hd3155131710_ - _tl3155031713_ - _e3155531716_ - _hd3155431720_ - _tl3155331723_ - ___splice4650946510_ - _target3155631726_ - _tl3155831729_) - (let () (declare (not safe)) (_g3153431586_))))) - (let () (declare (not safe)) (_g3153431586_))) - (let () (declare (not safe)) (_g3153431586_))))) + (##vector-ref ___splice4668646687_ '0)))) + (if (gx#stx-null? _tl3173531906_) + (___match4673246733_ + _e3172031853_ + _hd3171931857_ + _tl3171831860_ + _e3172331863_ + _hd3172231867_ + _tl3172131870_ + _e3172631873_ + _hd3172531877_ + _tl3172431880_ + _e3172931883_ + _hd3172831887_ + _tl3172731890_ + _e3173231893_ + _hd3173131897_ + _tl3173031900_ + ___splice4668646687_ + _target3173331903_ + _tl3173531906_) + (let () (declare (not safe)) (_g3171131763_))))) + (let () (declare (not safe)) (_g3171131763_))) + (let () (declare (not safe)) (_g3171131763_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3153431586_))))) + (_g3171131763_))))) (let () (declare (not safe)) - (_g3153431586_))))) - (if (gx#stx-null? _hd3154531690_) - (if (gx#stx-pair/null? _tl3154431693_) - (let ((___splice4651346514_ + (_g3171131763_))))) + (if (gx#stx-null? _hd3172231867_) + (if (gx#stx-pair/null? _tl3172131870_) + (let ((___splice4669046691_ (gx#syntax-split-splice - _tl3154431693_ + _tl3172131870_ '0))) - (let ((_tl3157431616_ + (let ((_tl3175131793_ (let () (declare (not safe)) (##vector-ref - ___splice4651346514_ + ___splice4669046691_ '1))) - (_target3157231613_ + (_target3174931790_ (let () (declare (not safe)) (##vector-ref - ___splice4651346514_ + ___splice4669046691_ '0)))) - (if (gx#stx-null? _tl3157431616_) - (___match4657746578_ - _e3154331676_ - _hd3154231680_ - _tl3154131683_ - _e3154631686_ - _hd3154531690_ - _tl3154431693_ - ___splice4651346514_ - _target3157231613_ - _tl3157431616_) + (if (gx#stx-null? _tl3175131793_) + (___match4675446755_ + _e3172031853_ + _hd3171931857_ + _tl3171831860_ + _e3172331863_ + _hd3172231867_ + _tl3172131870_ + ___splice4669046691_ + _target3174931790_ + _tl3175131793_) (let () (declare (not safe)) - (_g3153431586_))))) + (_g3171131763_))))) (let () (declare (not safe)) - (_g3153431586_))) + (_g3171131763_))) (let () (declare (not safe)) - (_g3153431586_)))))) - (let () (declare (not safe)) (_g3153431586_))))) - (let () (declare (not safe)) (_g3153431586_)))))))) + (_g3171131763_)))))) + (let () (declare (not safe)) (_g3171131763_))))) + (let () (declare (not safe)) (_g3171131763_)))))))) (define |gerbil/core$[:0:]#?| - (lambda (_$stx31801_) - (let* ((___stx4658046581_ _$stx31801_) - (_g3181231958_ + (lambda (_$stx31978_) + (let* ((___stx4675746758_ _$stx31978_) + (_g3198932135_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4658046581_)))) - (let ((___kont4658346584_ - (lambda (_L32562_ _L32564_ _L32565_) - (let ((__tmp50510 (gx#datum->syntax '#f 'and)) - (__tmp50505 - (let ((__tmp50506 - (lambda (_g3258632589_ _g3258732592_) - (let ((__tmp50507 - (let ((__tmp50508 - (let ((__tmp50509 + ___stx4675746758_)))) + (let ((___kont4676046761_ + (lambda (_L32739_ _L32741_ _L32742_) + (let ((__tmp50721 (gx#datum->syntax '#f 'and)) + (__tmp50716 + (let ((__tmp50717 + (lambda (_g3276332766_ _g3276432769_) + (let ((__tmp50718 + (let ((__tmp50719 + (let ((__tmp50720 (let () (declare (not safe)) - (cons _L32562_ + (cons _L32739_ '())))) (declare (not safe)) - (cons _g3258632589_ - __tmp50509)))) + (cons _g3276332766_ + __tmp50720)))) (declare (not safe)) - (cons _L32565_ __tmp50508)))) + (cons _L32742_ __tmp50719)))) (declare (not safe)) - (cons __tmp50507 _g3258732592_))))) + (cons __tmp50718 _g3276432769_))))) (declare (not safe)) - (foldr1 __tmp50506 '() _L32564_)))) + (foldr1 __tmp50717 '() _L32741_)))) (declare (not safe)) - (cons __tmp50510 __tmp50505)))) - (___kont4658746588_ - (lambda (_L32452_ _L32454_ _L32455_) - (let ((__tmp50516 (gx#datum->syntax '#f 'or)) - (__tmp50511 - (let ((__tmp50512 - (lambda (_g3247632479_ _g3247732482_) - (let ((__tmp50513 - (let ((__tmp50514 - (let ((__tmp50515 + (cons __tmp50721 __tmp50716)))) + (___kont4676446765_ + (lambda (_L32629_ _L32631_ _L32632_) + (let ((__tmp50727 (gx#datum->syntax '#f 'or)) + (__tmp50722 + (let ((__tmp50723 + (lambda (_g3265332656_ _g3265432659_) + (let ((__tmp50724 + (let ((__tmp50725 + (let ((__tmp50726 (let () (declare (not safe)) - (cons _L32452_ + (cons _L32629_ '())))) (declare (not safe)) - (cons _g3247632479_ - __tmp50515)))) + (cons _g3265332656_ + __tmp50726)))) (declare (not safe)) - (cons _L32455_ __tmp50514)))) + (cons _L32632_ __tmp50725)))) (declare (not safe)) - (cons __tmp50513 _g3247732482_))))) + (cons __tmp50724 _g3265432659_))))) (declare (not safe)) - (foldr1 __tmp50512 '() _L32454_)))) + (foldr1 __tmp50723 '() _L32631_)))) (declare (not safe)) - (cons __tmp50516 __tmp50511)))) - (___kont4659146592_ - (lambda (_L32352_ _L32354_ _L32355_) - (let ((__tmp50521 (gx#datum->syntax '#f 'not)) - (__tmp50517 - (let ((__tmp50518 - (let ((__tmp50519 - (let ((__tmp50520 + (cons __tmp50727 __tmp50722)))) + (___kont4676846769_ + (lambda (_L32529_ _L32531_ _L32532_) + (let ((__tmp50732 (gx#datum->syntax '#f 'not)) + (__tmp50728 + (let ((__tmp50729 + (let ((__tmp50730 + (let ((__tmp50731 (let () (declare (not safe)) - (cons _L32352_ '())))) + (cons _L32529_ '())))) (declare (not safe)) - (cons _L32354_ __tmp50520)))) + (cons _L32531_ __tmp50731)))) (declare (not safe)) - (cons _L32355_ __tmp50519)))) + (cons _L32532_ __tmp50730)))) (declare (not safe)) - (cons __tmp50518 '())))) + (cons __tmp50729 '())))) (declare (not safe)) - (cons __tmp50521 __tmp50517)))) - (___kont4659346594_ - (lambda (_L32278_ _L32280_) - (let ((__tmp50522 - (let () (declare (not safe)) (cons _L32278_ '())))) + (cons __tmp50732 __tmp50728)))) + (___kont4677046771_ + (lambda (_L32455_ _L32457_) + (let ((__tmp50733 + (let () (declare (not safe)) (cons _L32455_ '())))) (declare (not safe)) - (cons _L32280_ __tmp50522)))) - (___kont4659546596_ - (lambda (_L32226_ _L32228_) - (let ((__tmp50531 (gx#datum->syntax '#f 'lambda)) - (__tmp50523 - (let ((__tmp50529 - (let ((__tmp50530 + (cons _L32457_ __tmp50733)))) + (___kont4677246773_ + (lambda (_L32403_ _L32405_) + (let ((__tmp50742 (gx#datum->syntax '#f 'lambda)) + (__tmp50734 + (let ((__tmp50740 + (let ((__tmp50741 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50530 '()))) - (__tmp50524 - (let ((__tmp50525 - (let ((__tmp50526 - (let ((__tmp50527 - (let ((__tmp50528 + (cons __tmp50741 '()))) + (__tmp50735 + (let ((__tmp50736 + (let ((__tmp50737 + (let ((__tmp50738 + (let ((__tmp50739 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50528 + (cons __tmp50739 '())))) (declare (not safe)) - (cons _L32226_ __tmp50527)))) + (cons _L32403_ __tmp50738)))) (declare (not safe)) - (cons _L32228_ __tmp50526)))) + (cons _L32405_ __tmp50737)))) (declare (not safe)) - (cons __tmp50525 '())))) + (cons __tmp50736 '())))) (declare (not safe)) - (cons __tmp50529 __tmp50524)))) + (cons __tmp50740 __tmp50735)))) (declare (not safe)) - (cons __tmp50531 __tmp50523)))) - (___kont4659746598_ - (lambda (_L32178_ _L32180_ _L32181_) - (let ((__tmp50550 (gx#datum->syntax '#f 'lambda)) - (__tmp50532 - (let ((__tmp50548 - (let ((__tmp50549 + (cons __tmp50742 __tmp50734)))) + (___kont4677446775_ + (lambda (_L32355_ _L32357_ _L32358_) + (let ((__tmp50761 (gx#datum->syntax '#f 'lambda)) + (__tmp50743 + (let ((__tmp50759 + (let ((__tmp50760 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50549 '()))) - (__tmp50533 - (let ((__tmp50534 - (let ((__tmp50547 + (cons __tmp50760 '()))) + (__tmp50744 + (let ((__tmp50745 + (let ((__tmp50758 (gx#datum->syntax '#f 'alet)) - (__tmp50535 - (let ((__tmp50540 - (let ((__tmp50546 + (__tmp50746 + (let ((__tmp50751 + (let ((__tmp50757 (gx#datum->syntax '#f '$val)) - (__tmp50541 - (let ((__tmp50542 + (__tmp50752 + (let ((__tmp50753 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50543 - (let ((__tmp50544 - (let ((__tmp50545 + (let ((__tmp50754 + (let ((__tmp50755 + (let ((__tmp50756 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50545 '())))) + (cons __tmp50756 '())))) (declare (not safe)) - (cons _L32180_ __tmp50544)))) + (cons _L32357_ __tmp50755)))) (declare (not safe)) - (cons _L32181_ __tmp50543)))) + (cons _L32358_ __tmp50754)))) (declare (not safe)) - (cons __tmp50542 '())))) + (cons __tmp50753 '())))) (declare (not safe)) - (cons __tmp50546 __tmp50541))) + (cons __tmp50757 __tmp50752))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50536 - (let ((__tmp50537 - (let ((__tmp50538 + (__tmp50747 + (let ((__tmp50748 + (let ((__tmp50749 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50539 (gx#datum->syntax '#f '$val))) + (let ((__tmp50750 (gx#datum->syntax '#f '$val))) (declare (not safe)) - (cons __tmp50539 '())))) + (cons __tmp50750 '())))) (declare (not safe)) - (cons _L32178_ __tmp50538)))) + (cons _L32355_ __tmp50749)))) (declare (not safe)) - (cons __tmp50537 '())))) + (cons __tmp50748 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50540 - __tmp50536)))) + (cons __tmp50751 + __tmp50747)))) (declare (not safe)) - (cons __tmp50547 __tmp50535)))) + (cons __tmp50758 __tmp50746)))) (declare (not safe)) - (cons __tmp50534 '())))) + (cons __tmp50745 '())))) (declare (not safe)) - (cons __tmp50548 __tmp50533)))) + (cons __tmp50759 __tmp50744)))) (declare (not safe)) - (cons __tmp50550 __tmp50532)))) - (___kont4659946600_ - (lambda (_L32109_ _L32111_ _L32112_) - (let ((__tmp50566 (gx#datum->syntax '#f 'lambda)) - (__tmp50551 - (let ((__tmp50564 - (let ((__tmp50565 + (cons __tmp50761 __tmp50743)))) + (___kont4677646777_ + (lambda (_L32286_ _L32288_ _L32289_) + (let ((__tmp50777 (gx#datum->syntax '#f 'lambda)) + (__tmp50762 + (let ((__tmp50775 + (let ((__tmp50776 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50565 '()))) - (__tmp50552 - (let ((__tmp50553 - (let ((__tmp50563 + (cons __tmp50776 '()))) + (__tmp50763 + (let ((__tmp50764 + (let ((__tmp50774 (gx#datum->syntax '#f 'and)) - (__tmp50554 - (let ((__tmp50559 - (let ((__tmp50560 - (let ((__tmp50561 + (__tmp50765 + (let ((__tmp50770 + (let ((__tmp50771 + (let ((__tmp50772 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50562 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50773 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50562 '())))) + (cons __tmp50773 '())))) (declare (not safe)) - (cons _L32111_ __tmp50561)))) + (cons _L32288_ __tmp50772)))) (declare (not safe)) - (cons _L32112_ __tmp50560))) + (cons _L32289_ __tmp50771))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50555 - (let ((__tmp50556 - (let ((__tmp50557 + (__tmp50766 + (let ((__tmp50767 + (let ((__tmp50768 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50558 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50769 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50558 '())))) + (cons __tmp50769 '())))) (declare (not safe)) - (cons _L32109_ __tmp50557)))) + (cons _L32286_ __tmp50768)))) (declare (not safe)) - (cons __tmp50556 '())))) + (cons __tmp50767 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50559 - __tmp50555)))) + (cons __tmp50770 + __tmp50766)))) (declare (not safe)) - (cons __tmp50563 __tmp50554)))) + (cons __tmp50774 __tmp50765)))) (declare (not safe)) - (cons __tmp50553 '())))) + (cons __tmp50764 '())))) (declare (not safe)) - (cons __tmp50564 __tmp50552)))) + (cons __tmp50775 __tmp50763)))) (declare (not safe)) - (cons __tmp50566 __tmp50551)))) - (___kont4660146602_ - (lambda (_L32029_ _L32031_ _L32032_ _L32033_) - (let ((__tmp50584 (gx#datum->syntax '#f 'lambda)) - (__tmp50567 - (let ((__tmp50582 - (let ((__tmp50583 + (cons __tmp50777 __tmp50762)))) + (___kont4677846779_ + (lambda (_L32206_ _L32208_ _L32209_ _L32210_) + (let ((__tmp50795 (gx#datum->syntax '#f 'lambda)) + (__tmp50778 + (let ((__tmp50793 + (let ((__tmp50794 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50583 '()))) - (__tmp50568 - (let ((__tmp50569 - (let ((__tmp50581 + (cons __tmp50794 '()))) + (__tmp50779 + (let ((__tmp50780 + (let ((__tmp50792 (gx#datum->syntax '#f 'and)) - (__tmp50570 - (let ((__tmp50577 - (let ((__tmp50578 - (let ((__tmp50579 + (__tmp50781 + (let ((__tmp50788 + (let ((__tmp50789 + (let ((__tmp50790 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50580 (gx#datum->syntax '#f '$obj))) + (let ((__tmp50791 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50580 '())))) + (cons __tmp50791 '())))) (declare (not safe)) - (cons _L32032_ __tmp50579)))) + (cons _L32209_ __tmp50790)))) (declare (not safe)) - (cons _L32033_ __tmp50578))) + (cons _L32210_ __tmp50789))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50571 - (let ((__tmp50572 - (let ((__tmp50573 + (__tmp50782 + (let ((__tmp50783 + (let ((__tmp50784 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50574 - (let ((__tmp50575 - (let ((__tmp50576 + (let ((__tmp50785 + (let ((__tmp50786 + (let ((__tmp50787 (gx#datum->syntax '#f '$obj))) (declare (not safe)) - (cons __tmp50576 '())))) + (cons __tmp50787 '())))) (declare (not safe)) - (cons _L32031_ __tmp50575)))) + (cons _L32208_ __tmp50786)))) (declare (not safe)) - (cons __tmp50574 '())))) + (cons __tmp50785 '())))) (declare (not safe)) - (cons _L32029_ __tmp50573)))) + (cons _L32206_ __tmp50784)))) (declare (not safe)) - (cons __tmp50572 '())))) + (cons __tmp50783 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50577 - __tmp50571)))) + (cons __tmp50788 + __tmp50782)))) (declare (not safe)) - (cons __tmp50581 __tmp50570)))) + (cons __tmp50792 __tmp50781)))) (declare (not safe)) - (cons __tmp50569 '())))) + (cons __tmp50780 '())))) (declare (not safe)) - (cons __tmp50582 __tmp50568)))) + (cons __tmp50793 __tmp50779)))) (declare (not safe)) - (cons __tmp50584 __tmp50567))))) - (let* ((___match4675346754_ - (lambda (_e3190432138_ - _hd3190332142_ - _tl3190232145_ - _e3190732148_ - _hd3190632152_ - _tl3190532155_ - _e3191032158_ - _hd3190932162_ - _tl3190832165_) - (if (gx#identifier? _hd3190932162_) + (cons __tmp50795 __tmp50778))))) + (let* ((___match4693046931_ + (lambda (_e3208132315_ + _hd3208032319_ + _tl3207932322_ + _e3208432325_ + _hd3208332329_ + _tl3208232332_ + _e3208732335_ + _hd3208632339_ + _tl3208532342_) + (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3190932162_) - (if (gx#stx-pair? _tl3190832165_) - (let ((_e3191332168_ - (gx#syntax-e _tl3190832165_))) - (let ((_tl3191132175_ + |gerbil/core$[1]#_g50797_| + _hd3208632339_) + (if (gx#stx-pair? _tl3208532342_) + (let ((_e3209032345_ + (gx#syntax-e _tl3208532342_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3190632152_ - _hd3190332142_) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3208332329_ + _hd3208032319_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (if (gx#stx-datum? _hd3190932162_) - (let ((_e3192632095_ (gx#stx-e _hd3190932162_))) + (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (if (gx#stx-datum? _hd3208632339_) + (let ((_e3210332272_ (gx#stx-e _hd3208632339_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) - (if (gx#stx-pair? _tl3190832165_) - (let ((_e3192932099_ - (gx#syntax-e _tl3190832165_))) - (let ((_tl3192732106_ + (equal? _e3210332272_ '::)) + (if (gx#stx-pair? _tl3208532342_) + (let ((_e3210632276_ + (gx#syntax-e _tl3208532342_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3190632152_ - _hd3190332142_) + (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3208332329_ + _hd3208032319_) (if (gx#stx-pair? - _tl3192732106_) - (let ((_e3194932009_ + _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e - _tl3192732106_))) - (let ((_tl3194732016_ + _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ - (let () (declare (not safe)) (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##cdr _e3212632186_))) + (_hd3212532190_ + (let () (declare (not safe)) (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3190632152_ - _hd3190332142_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3208332329_ + _hd3208032319_) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_)))))) + (_g3198932135_)))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) - (let () (declare (not safe)) (_g3181231958_)))))) - (___match4673346734_ - (lambda (_e3189532206_ - _hd3189432210_ - _tl3189332213_ - _e3189832216_ - _hd3189732220_ - _tl3189632223_) - (if (gx#stx-null? _tl3189632223_) - (___kont4659546596_ _hd3189732220_ _hd3189432210_) - (if (gx#stx-pair? _tl3189632223_) - (let ((_e3191032158_ - (gx#syntax-e _tl3189632223_))) - (let ((_tl3190832165_ + (_g3198932135_)))) + (let () (declare (not safe)) (_g3198932135_)))))) + (___match4691046911_ + (lambda (_e3207232383_ + _hd3207132387_ + _tl3207032390_ + _e3207532393_ + _hd3207432397_ + _tl3207332400_) + (if (gx#stx-null? _tl3207332400_) + (___kont4677246773_ _hd3207432397_ _hd3207132387_) + (if (gx#stx-pair? _tl3207332400_) + (let ((_e3208732335_ + (gx#syntax-e _tl3207332400_))) + (let ((_tl3208532342_ (let () (declare (not safe)) - (##cdr _e3191032158_))) - (_hd3190932162_ + (##cdr _e3208732335_))) + (_hd3208632339_ (let () (declare (not safe)) - (##car _e3191032158_)))) - (if (gx#identifier? _hd3190932162_) + (##car _e3208732335_)))) + (if (gx#identifier? _hd3208632339_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3190932162_) - (if (gx#stx-pair? _tl3190832165_) - (let ((_e3191332168_ + |gerbil/core$[1]#_g50797_| + _hd3208632339_) + (if (gx#stx-pair? _tl3208532342_) + (let ((_e3209032345_ (gx#syntax-e - _tl3190832165_))) - (let ((_tl3191132175_ + _tl3208532342_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) + (##car _e3209032345_)))) (if (gx#stx-null? - _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3189732220_ - _hd3189432210_) + _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3207432397_ + _hd3207132387_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3190932162_) - (let ((_e3192632095_ - (gx#stx-e _hd3190932162_))) + (_g3198932135_))) + (if (gx#stx-datum? _hd3208632339_) + (let ((_e3210332272_ + (gx#stx-e _hd3208632339_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) + (equal? _e3210332272_ '::)) (if (gx#stx-pair? - _tl3190832165_) - (let ((_e3192932099_ + _tl3208532342_) + (let ((_e3210632276_ (gx#syntax-e - _tl3190832165_))) - (let ((_tl3192732106_ + _tl3208532342_))) + (let ((_tl3210432283_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ - (let () (declare (not safe)) (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3189732220_ - _hd3189432210_) - (if (gx#stx-pair? _tl3192732106_) - (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) - (let ((_tl3194732016_ + (##cdr _e3210632276_))) + (_hd3210532280_ + (let () (declare (not safe)) (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3207432397_ + _hd3207132387_) + (if (gx#stx-pair? _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ - (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ + (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3189732220_ - _hd3189432210_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3207432397_ + _hd3207132387_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_)))))) - (let () (declare (not safe)) (_g3181231958_)))))) - (___match4666346664_ - (lambda (_e3184332382_ - _hd3184232386_ - _tl3184132389_ - _e3184632392_ - _hd3184532396_ - _tl3184432399_ - _e3184932402_ - _hd3184832406_ - _tl3184732409_ - ___splice4658946590_ - _target3185032412_ - _tl3185232415_) - (letrec ((_loop3185332418_ - (lambda (_hd3185132422_ _pred3185732425_) - (if (gx#stx-pair? _hd3185132422_) - (let ((_e3185432428_ - (gx#syntax-e _hd3185132422_))) - (let ((_lp-tl3185632435_ + (_g3198932135_)))))) + (let () (declare (not safe)) (_g3198932135_)))))) + (___match4684046841_ + (lambda (_e3202032559_ + _hd3201932563_ + _tl3201832566_ + _e3202332569_ + _hd3202232573_ + _tl3202132576_ + _e3202632579_ + _hd3202532583_ + _tl3202432586_ + ___splice4676646767_ + _target3202732589_ + _tl3202932592_) + (letrec ((_loop3203032595_ + (lambda (_hd3202832599_ _pred3203432602_) + (if (gx#stx-pair? _hd3202832599_) + (let ((_e3203132605_ + (gx#syntax-e _hd3202832599_))) + (let ((_lp-tl3203332612_ (let () (declare (not safe)) - (##cdr _e3185432428_))) - (_lp-hd3185532432_ + (##cdr _e3203132605_))) + (_lp-hd3203232609_ (let () (declare (not safe)) - (##car _e3185432428_)))) - (_loop3185332418_ - _lp-tl3185632435_ + (##car _e3203132605_)))) + (_loop3203032595_ + _lp-tl3203332612_ (let () (declare (not safe)) - (cons _lp-hd3185532432_ - _pred3185732425_))))) - (let ((_pred3185832438_ - (reverse _pred3185732425_))) - (if (gx#stx-pair? _tl3184432399_) - (let ((_e3186132442_ + (cons _lp-hd3203232609_ + _pred3203432602_))))) + (let ((_pred3203532615_ + (reverse _pred3203432602_))) + (if (gx#stx-pair? _tl3202132576_) + (let ((_e3203832619_ (gx#syntax-e - _tl3184432399_))) - (let ((_tl3185932449_ + _tl3202132576_))) + (let ((_tl3203632626_ (let () (declare (not safe)) - (##cdr _e3186132442_))) - (_hd3186032446_ + (##cdr _e3203832619_))) + (_hd3203732623_ (let () (declare (not safe)) - (##car _e3186132442_)))) + (##car _e3203832619_)))) (if (gx#stx-null? - _tl3185932449_) - (___kont4658746588_ - _hd3186032446_ - _pred3185832438_ - _hd3184232386_) - (___match4675346754_ - _e3184332382_ - _hd3184232386_ - _tl3184132389_ - _e3184632392_ - _hd3184532396_ - _tl3184432399_ - _e3186132442_ - _hd3186032446_ - _tl3185932449_)))) - (___match4673346734_ - _e3184332382_ - _hd3184232386_ - _tl3184132389_ - _e3184632392_ - _hd3184532396_ - _tl3184432399_))))))) - (_loop3185332418_ _target3185032412_ '())))) - (___match4663346634_ - (lambda (_e3181932492_ - _hd3181832496_ - _tl3181732499_ - _e3182232502_ - _hd3182132506_ - _tl3182032509_ - _e3182532512_ - _hd3182432516_ - _tl3182332519_ - ___splice4658546586_ - _target3182632522_ - _tl3182832525_) - (letrec ((_loop3182932528_ - (lambda (_hd3182732532_ _pred3183332535_) - (if (gx#stx-pair? _hd3182732532_) - (let ((_e3183032538_ - (gx#syntax-e _hd3182732532_))) - (let ((_lp-tl3183232545_ + _tl3203632626_) + (___kont4676446765_ + _hd3203732623_ + _pred3203532615_ + _hd3201932563_) + (___match4693046931_ + _e3202032559_ + _hd3201932563_ + _tl3201832566_ + _e3202332569_ + _hd3202232573_ + _tl3202132576_ + _e3203832619_ + _hd3203732623_ + _tl3203632626_)))) + (___match4691046911_ + _e3202032559_ + _hd3201932563_ + _tl3201832566_ + _e3202332569_ + _hd3202232573_ + _tl3202132576_))))))) + (_loop3203032595_ _target3202732589_ '())))) + (___match4681046811_ + (lambda (_e3199632669_ + _hd3199532673_ + _tl3199432676_ + _e3199932679_ + _hd3199832683_ + _tl3199732686_ + _e3200232689_ + _hd3200132693_ + _tl3200032696_ + ___splice4676246763_ + _target3200332699_ + _tl3200532702_) + (letrec ((_loop3200632705_ + (lambda (_hd3200432709_ _pred3201032712_) + (if (gx#stx-pair? _hd3200432709_) + (let ((_e3200732715_ + (gx#syntax-e _hd3200432709_))) + (let ((_lp-tl3200932722_ (let () (declare (not safe)) - (##cdr _e3183032538_))) - (_lp-hd3183132542_ + (##cdr _e3200732715_))) + (_lp-hd3200832719_ (let () (declare (not safe)) - (##car _e3183032538_)))) - (_loop3182932528_ - _lp-tl3183232545_ + (##car _e3200732715_)))) + (_loop3200632705_ + _lp-tl3200932722_ (let () (declare (not safe)) - (cons _lp-hd3183132542_ - _pred3183332535_))))) - (let ((_pred3183432548_ - (reverse _pred3183332535_))) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3183732552_ + (cons _lp-hd3200832719_ + _pred3201032712_))))) + (let ((_pred3201132725_ + (reverse _pred3201032712_))) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3201432729_ (gx#syntax-e - _tl3182032509_))) - (let ((_tl3183532559_ + _tl3199732686_))) + (let ((_tl3201232736_ (let () (declare (not safe)) - (##cdr _e3183732552_))) - (_hd3183632556_ + (##cdr _e3201432729_))) + (_hd3201332733_ (let () (declare (not safe)) - (##car _e3183732552_)))) + (##car _e3201432729_)))) (if (gx#stx-null? - _tl3183532559_) - (___kont4658346584_ - _hd3183632556_ - _pred3183432548_ - _hd3181832496_) - (___match4675346754_ - _e3181932492_ - _hd3181832496_ - _tl3181732499_ - _e3182232502_ - _hd3182132506_ - _tl3182032509_ - _e3183732552_ - _hd3183632556_ - _tl3183532559_)))) - (___match4673346734_ - _e3181932492_ - _hd3181832496_ - _tl3181732499_ - _e3182232502_ - _hd3182132506_ - _tl3182032509_))))))) - (_loop3182932528_ _target3182632522_ '()))))) - (if (gx#stx-pair? ___stx4658046581_) - (let ((_e3181932492_ (gx#syntax-e ___stx4658046581_))) - (let ((_tl3181732499_ - (let () (declare (not safe)) (##cdr _e3181932492_))) - (_hd3181832496_ + _tl3201232736_) + (___kont4676046761_ + _hd3201332733_ + _pred3201132725_ + _hd3199532673_) + (___match4693046931_ + _e3199632669_ + _hd3199532673_ + _tl3199432676_ + _e3199932679_ + _hd3199832683_ + _tl3199732686_ + _e3201432729_ + _hd3201332733_ + _tl3201232736_)))) + (___match4691046911_ + _e3199632669_ + _hd3199532673_ + _tl3199432676_ + _e3199932679_ + _hd3199832683_ + _tl3199732686_))))))) + (_loop3200632705_ _target3200332699_ '()))))) + (if (gx#stx-pair? ___stx4675746758_) + (let ((_e3199632669_ (gx#syntax-e ___stx4675746758_))) + (let ((_tl3199432676_ + (let () (declare (not safe)) (##cdr _e3199632669_))) + (_hd3199532673_ (let () (declare (not safe)) - (##car _e3181932492_)))) - (if (gx#stx-pair? _tl3181732499_) - (let ((_e3182232502_ (gx#syntax-e _tl3181732499_))) - (let ((_tl3182032509_ + (##car _e3199632669_)))) + (if (gx#stx-pair? _tl3199432676_) + (let ((_e3199932679_ (gx#syntax-e _tl3199432676_))) + (let ((_tl3199732686_ (let () (declare (not safe)) - (##cdr _e3182232502_))) - (_hd3182132506_ + (##cdr _e3199932679_))) + (_hd3199832683_ (let () (declare (not safe)) - (##car _e3182232502_)))) - (if (gx#stx-pair? _hd3182132506_) - (let ((_e3182532512_ - (gx#syntax-e _hd3182132506_))) - (let ((_tl3182332519_ + (##car _e3199932679_)))) + (if (gx#stx-pair? _hd3199832683_) + (let ((_e3200232689_ + (gx#syntax-e _hd3199832683_))) + (let ((_tl3200032696_ (let () (declare (not safe)) - (##cdr _e3182532512_))) - (_hd3182432516_ + (##cdr _e3200232689_))) + (_hd3200132693_ (let () (declare (not safe)) - (##car _e3182532512_)))) - (if (gx#identifier? _hd3182432516_) + (##car _e3200232689_)))) + (if (gx#identifier? _hd3200132693_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50589_| - _hd3182432516_) + |gerbil/core$[1]#_g50800_| + _hd3200132693_) (if (gx#stx-pair/null? - _tl3182332519_) - (let ((___splice4658546586_ + _tl3200032696_) + (let ((___splice4676246763_ (gx#syntax-split-splice - _tl3182332519_ + _tl3200032696_ '0))) - (let ((_tl3182832525_ + (let ((_tl3200532702_ (let () (declare (not safe)) (##vector-ref - ___splice4658546586_ + ___splice4676246763_ '1))) - (_target3182632522_ + (_target3200332699_ (let () (declare (not safe)) (##vector-ref - ___splice4658546586_ + ___splice4676246763_ '0)))) (if (gx#stx-null? - _tl3182832525_) - (___match4663346634_ - _e3181932492_ - _hd3181832496_ - _tl3181732499_ - _e3182232502_ - _hd3182132506_ - _tl3182032509_ - _e3182532512_ - _hd3182432516_ - _tl3182332519_ - ___splice4658546586_ - _target3182632522_ - _tl3182832525_) + _tl3200532702_) + (___match4681046811_ + _e3199632669_ + _hd3199532673_ + _tl3199432676_ + _e3199932679_ + _hd3199832683_ + _tl3199732686_ + _e3200232689_ + _hd3200132693_ + _tl3200032696_ + ___splice4676246763_ + _target3200332699_ + _tl3200532702_) (if (gx#stx-pair? - _tl3182032509_) - (let ((_e3189032268_ + _tl3199732686_) + (let ((_e3206732445_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3182032509_))) - (let ((_tl3188832275_ + (gx#syntax-e _tl3199732686_))) + (let ((_tl3206532452_ (let () (declare (not safe)) - (##cdr _e3189032268_))) - (_hd3188932272_ + (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ - _hd3188932272_ - _hd3182132506_) - (if (gx#identifier? _hd3188932272_) + (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ + _hd3206632449_ + _hd3199832683_) + (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3191332168_ - (gx#syntax-e _tl3188832275_))) - (let ((_tl3191132175_ + |gerbil/core$[1]#_g50797_| + _hd3206632449_) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3209032345_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ - (gx#stx-e _hd3188932272_))) + (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ + (gx#stx-e _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3192932099_ + (equal? _e3210332272_ '::)) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3210632276_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3192732106_ + _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) + (##car _e3210632276_)))) (if (gx#stx-null? - _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (if (gx#stx-pair? - _tl3192732106_) - (let ((_e3194932009_ + _tl3210432283_) + (let ((_e3212632186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3192732106_))) - (let ((_tl3194732016_ + (gx#syntax-e _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ - (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ + (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) + (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ _hd3182132506_ _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))))) + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl3182032509_) - (let ((_e3189032268_ + _tl3199732686_) + (let ((_e3206732445_ (gx#syntax-e - _tl3182032509_))) - (let ((_tl3188832275_ + _tl3199732686_))) + (let ((_tl3206532452_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e3189032268_))) - (_hd3188932272_ - (let () (declare (not safe)) (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ _hd3188932272_ _hd3182132506_) - (if (gx#identifier? _hd3188932272_) + (##cdr _e3206732445_))) + (_hd3206632449_ + (let () (declare (not safe)) (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ _hd3206632449_ _hd3199832683_) + (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3191332168_ - (gx#syntax-e _tl3188832275_))) - (let ((_tl3191132175_ + |gerbil/core$[1]#_g50797_| + _hd3206632449_) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3209032345_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ (gx#stx-e _hd3188932272_))) + (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ (gx#stx-e _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3192932099_ - (gx#syntax-e _tl3188832275_))) - (let ((_tl3192732106_ + (equal? _e3210332272_ '::)) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3210632276_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (if (gx#stx-pair? - _tl3192732106_) - (let ((_e3194932009_ + _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e - _tl3192732106_))) - (let ((_tl3194732016_ + _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ - (let () (declare (not safe)) (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##cdr _e3212632186_))) + (_hd3212532190_ + (let () (declare (not safe)) (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_)))))) + (_g3198932135_)))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ _hd3182132506_ _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))) + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50588_| - _hd3182432516_) + |gerbil/core$[1]#_g50799_| + _hd3200132693_) (if (gx#stx-pair/null? - _tl3182332519_) - (let ((___splice4658946590_ + _tl3200032696_) + (let ((___splice4676646767_ (gx#syntax-split-splice - _tl3182332519_ + _tl3200032696_ '0))) - (let ((_tl3185232415_ + (let ((_tl3202932592_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4658946590_ '1))) - (_target3185032412_ + (##vector-ref ___splice4676646767_ '1))) + (_target3202732589_ (let () (declare (not safe)) - (##vector-ref ___splice4658946590_ '0)))) - (if (gx#stx-null? _tl3185232415_) - (___match4666346664_ - _e3181932492_ - _hd3181832496_ - _tl3181732499_ - _e3182232502_ - _hd3182132506_ - _tl3182032509_ - _e3182532512_ - _hd3182432516_ - _tl3182332519_ - ___splice4658946590_ - _target3185032412_ - _tl3185232415_) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) - (let ((_tl3188832275_ + (##vector-ref ___splice4676646767_ '0)))) + (if (gx#stx-null? _tl3202932592_) + (___match4684046841_ + _e3199632669_ + _hd3199532673_ + _tl3199432676_ + _e3199932679_ + _hd3199832683_ + _tl3199732686_ + _e3200232689_ + _hd3200132693_ + _tl3200032696_ + ___splice4676646767_ + _target3202732589_ + _tl3202932592_) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3206732445_ (gx#syntax-e _tl3199732686_))) + (let ((_tl3206532452_ (let () (declare (not safe)) - (##cdr _e3189032268_))) - (_hd3188932272_ + (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ - _hd3188932272_ - _hd3182132506_) - (if (gx#identifier? _hd3188932272_) + (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ + _hd3206632449_ + _hd3199832683_) + (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3191332168_ + |gerbil/core$[1]#_g50797_| + _hd3206632449_) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3209032345_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3191132175_ + _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) + (##car _e3209032345_)))) (if (gx#stx-null? - _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ - (gx#stx-e _hd3188932272_))) + (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ + (gx#stx-e _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) + (equal? _e3210332272_ '::)) (if (gx#stx-pair? - _tl3188832275_) - (let ((_e3192932099_ + _tl3206532452_) + (let ((_e3210632276_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3192732106_ + _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ - (let () (declare (not safe)) (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) - (if (gx#stx-pair? _tl3192732106_) - (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) - (let ((_tl3194732016_ + (##cdr _e3210632276_))) + (_hd3210532280_ + (let () (declare (not safe)) (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) + (if (gx#stx-pair? _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ - (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ + (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ - _hd3182132506_ - _hd3181832496_) + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) - (let ((_tl3188832275_ - (let () (declare (not safe)) (##cdr _e3189032268_))) - (_hd3188932272_ + (_g3198932135_))))))) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3206732445_ (gx#syntax-e _tl3199732686_))) + (let ((_tl3206532452_ + (let () (declare (not safe)) (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ _hd3188932272_ _hd3182132506_) - (if (gx#identifier? _hd3188932272_) + (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ _hd3206632449_ _hd3199832683_) + (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3191332168_ - (gx#syntax-e _tl3188832275_))) - (let ((_tl3191132175_ + |gerbil/core$[1]#_g50797_| + _hd3206632449_) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3209032345_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ - (gx#stx-e _hd3188932272_))) + (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ + (gx#stx-e _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3192932099_ + (equal? _e3210332272_ '::)) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3210632276_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3192732106_ + _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) + (##car _e3210632276_)))) (if (gx#stx-null? - _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (if (gx#stx-pair? - _tl3192732106_) - (let ((_e3194932009_ + _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e - _tl3192732106_))) - (let ((_tl3194732016_ + _tl3210432283_))) + (let ((_tl3212432193_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3194932009_))) - (_hd3194832013_ - (let () (declare (not safe)) (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (let () (declare (not safe)) (##cdr _e3212632186_))) + (_hd3212532190_ + (let () (declare (not safe)) (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ - (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ + (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ _hd3182132506_ _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))) + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core$[1]#_g50587_| - _hd3182432516_) + |gerbil/core$[1]#_g50798_| + _hd3200132693_) (if (gx#stx-pair? - _tl3182332519_) - (let ((_e3187632332_ + _tl3200032696_) + (let ((_e3205332509_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3182332519_))) - (let ((_tl3187432339_ - (let () (declare (not safe)) (##cdr _e3187632332_))) - (_hd3187532336_ + (gx#syntax-e _tl3200032696_))) + (let ((_tl3205132516_ + (let () (declare (not safe)) (##cdr _e3205332509_))) + (_hd3205232513_ (let () (declare (not safe)) - (##car _e3187632332_)))) - (if (gx#stx-null? _tl3187432339_) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3187932342_ - (gx#syntax-e _tl3182032509_))) - (let ((_tl3187732349_ + (##car _e3205332509_)))) + (if (gx#stx-null? _tl3205132516_) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3205632519_ + (gx#syntax-e _tl3199732686_))) + (let ((_tl3205432526_ (let () (declare (not safe)) - (##cdr _e3187932342_))) - (_hd3187832346_ + (##cdr _e3205632519_))) + (_hd3205532523_ (let () (declare (not safe)) - (##car _e3187932342_)))) - (if (gx#stx-null? _tl3187732349_) - (___kont4659146592_ - _hd3187832346_ - _hd3187532336_ - _hd3181832496_) - (if (gx#identifier? _hd3187832346_) + (##car _e3205632519_)))) + (if (gx#stx-null? _tl3205432526_) + (___kont4676846769_ + _hd3205532523_ + _hd3205232513_ + _hd3199532673_) + (if (gx#identifier? _hd3205532523_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3187832346_) - (if (gx#stx-pair? _tl3187732349_) - (let ((_e3191332168_ + |gerbil/core$[1]#_g50797_| + _hd3205532523_) + (if (gx#stx-pair? _tl3205432526_) + (let ((_e3209032345_ (gx#syntax-e - _tl3187732349_))) - (let ((_tl3191132175_ + _tl3205432526_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) + (##car _e3209032345_)))) (if (gx#stx-null? - _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3187832346_) - (let ((_e3192632095_ + (_g3198932135_))) + (if (gx#stx-datum? _hd3205532523_) + (let ((_e3210332272_ (gx#stx-e - _hd3187832346_))) + _hd3205532523_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ + (equal? _e3210332272_ '::)) (if (gx#stx-pair? - _tl3187732349_) - (let ((_e3192932099_ + _tl3205432526_) + (let ((_e3210632276_ (gx#syntax-e - _tl3187732349_))) - (let ((_tl3192732106_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3192932099_))) - (_hd3192832103_ - (let () (declare (not safe)) (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) - (if (gx#stx-pair? _tl3192732106_) - (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) - (let ((_tl3194732016_ + _tl3205432526_))) + (let ((_tl3210432283_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3210632276_))) + (_hd3210532280_ + (let () (declare (not safe)) (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) + (if (gx#stx-pair? _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ (gx#syntax-e - _tl3194732016_))) - (let ((_tl3195032026_ + _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) + (##car _e3212932196_)))) (if (gx#stx-null? - _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) - (let () (declare (not safe)) (_g3181231958_))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) + (let () (declare (not safe)) (_g3198932135_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ - _hd3182132506_ - _hd3181832496_) + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_)))) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3189032268_ - (gx#syntax-e _tl3182032509_))) - (let ((_tl3188832275_ + (_g3198932135_)))) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3206732445_ + (gx#syntax-e _tl3199732686_))) + (let ((_tl3206532452_ (let () (declare (not safe)) - (##cdr _e3189032268_))) - (_hd3188932272_ + (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ - _hd3188932272_ - _hd3182132506_) - (if (gx#identifier? _hd3188932272_) + (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ + _hd3206632449_ + _hd3199832683_) + (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3191332168_ + |gerbil/core$[1]#_g50797_| + _hd3206632449_) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3209032345_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3191132175_ + _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) + (##car _e3209032345_)))) (if (gx#stx-null? - _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ + (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ (gx#stx-e - _hd3188932272_))) + _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ + (equal? _e3210332272_ '::)) (if (gx#stx-pair? - _tl3188832275_) - (let ((_e3192932099_ + _tl3206532452_) + (let ((_e3210632276_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3192732106_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3192932099_))) - (_hd3192832103_ - (let () (declare (not safe)) (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) - (if (gx#stx-pair? _tl3192732106_) - (let ((_e3194932009_ (gx#syntax-e _tl3192732106_))) - (let ((_tl3194732016_ + _tl3206532452_))) + (let ((_tl3210432283_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##cdr _e3210632276_))) + (_hd3210532280_ + (let () (declare (not safe)) (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) + (if (gx#stx-pair? _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ (gx#syntax-e - _tl3194732016_))) - (let ((_tl3195032026_ + _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) + (##car _e3212932196_)))) (if (gx#stx-null? - _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) - (let () (declare (not safe)) (_g3181231958_))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) + (let () (declare (not safe)) (_g3198932135_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ - _hd3182132506_ - _hd3181832496_) + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) - (let ((_tl3188832275_ + (_g3198932135_))))))) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3206732445_ (gx#syntax-e _tl3199732686_))) + (let ((_tl3206532452_ (let () (declare (not safe)) - (##cdr _e3189032268_))) - (_hd3188932272_ + (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ - _hd3188932272_ - _hd3182132506_) - (if (gx#identifier? _hd3188932272_) + (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ + _hd3206632449_ + _hd3199832683_) + (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3191332168_ - (gx#syntax-e _tl3188832275_))) - (let ((_tl3191132175_ + |gerbil/core$[1]#_g50797_| + _hd3206632449_) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3209032345_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ - (gx#stx-e _hd3188932272_))) + (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ + (gx#stx-e _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3192932099_ + (equal? _e3210332272_ '::)) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3210632276_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3192732106_ + _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) + (##car _e3210632276_)))) (if (gx#stx-null? - _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (if (gx#stx-pair? - _tl3192732106_) - (let ((_e3194932009_ + _tl3210432283_) + (let ((_e3212632186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3192732106_))) - (let ((_tl3194732016_ + (gx#syntax-e _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ - (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ + (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) + (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ _hd3182132506_ _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3189032268_ (gx#syntax-e _tl3182032509_))) - (let ((_tl3188832275_ - (let () (declare (not safe)) (##cdr _e3189032268_))) - (_hd3188932272_ + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3206732445_ (gx#syntax-e _tl3199732686_))) + (let ((_tl3206532452_ + (let () (declare (not safe)) (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ _hd3188932272_ _hd3182132506_) - (if (gx#identifier? _hd3188932272_) + (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ _hd3206632449_ _hd3199832683_) + (if (gx#identifier? _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3191332168_ - (gx#syntax-e _tl3188832275_))) - (let ((_tl3191132175_ + |gerbil/core$[1]#_g50797_| + _hd3206632449_) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3209032345_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ - (gx#stx-e _hd3188932272_))) + (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ + (gx#stx-e _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3192932099_ + (equal? _e3210332272_ '::)) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3210632276_ (gx#syntax-e - _tl3188832275_))) - (let ((_tl3192732106_ + _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) + (##car _e3210632276_)))) (if (gx#stx-null? - _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (if (gx#stx-pair? - _tl3192732106_) - (let ((_e3194932009_ + _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e - _tl3192732106_))) - (let ((_tl3194732016_ + _tl3210432283_))) + (let ((_tl3212432193_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e3194932009_))) - (_hd3194832013_ - (let () (declare (not safe)) (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (let () (declare (not safe)) (##cdr _e3212632186_))) + (_hd3212532190_ + (let () (declare (not safe)) (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) - (if (gx#stx-pair? _tl3194732016_) - (let ((_e3195232019_ - (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + |gerbil/core$[1]#_g50796_| + _hd3212532190_) + (if (gx#stx-pair? _tl3212432193_) + (let ((_e3212932196_ + (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_)))) + (_g3198932135_)))) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ _hd3182132506_ _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))))) + (_g3198932135_))))))) + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ _hd3199832683_ _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3189032268_ + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3206732445_ (gx#syntax-e - _tl3182032509_))) - (let ((_tl3188832275_ + _tl3199732686_))) + (let ((_tl3206532452_ (let () (declare (not safe)) - (##cdr _e3189032268_))) - (_hd3188932272_ + (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) + (##car _e3206732445_)))) (if (gx#stx-null? - _tl3188832275_) - (___kont4659346594_ - _hd3188932272_ - _hd3182132506_) + _tl3206532452_) + (___kont4677046771_ + _hd3206632449_ + _hd3199832683_) (if (gx#identifier? - _hd3188932272_) + _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) + |gerbil/core$[1]#_g50797_| + _hd3206632449_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3188832275_) - (let ((_e3191332168_ (gx#syntax-e _tl3188832275_))) - (let ((_tl3191132175_ + _tl3206532452_) + (let ((_e3209032345_ (gx#syntax-e _tl3206532452_))) + (let ((_tl3208832352_ (let () (declare (not safe)) - (##cdr _e3191332168_))) - (_hd3191232172_ + (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) - (if (gx#stx-datum? _hd3188932272_) - (let ((_e3192632095_ (gx#stx-e _hd3188932272_))) + (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) + (if (gx#stx-datum? _hd3206632449_) + (let ((_e3210332272_ (gx#stx-e _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ '::)) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3192932099_ - (gx#syntax-e _tl3188832275_))) - (let ((_tl3192732106_ + (equal? _e3210332272_ '::)) + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3210632276_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) - (if (gx#stx-pair? _tl3192732106_) - (let ((_e3194932009_ + (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) + (if (gx#stx-pair? _tl3210432283_) + (let ((_e3212632186_ (gx#syntax-e - _tl3192732106_))) - (let ((_tl3194732016_ + _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) + (##car _e3212632186_)))) (if (gx#identifier? - _hd3194832013_) + _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) + |gerbil/core$[1]#_g50796_| + _hd3212532190_) (if (gx#stx-pair? - _tl3194732016_) - (let ((_e3195232019_ + _tl3212432193_) + (let ((_e3212932196_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3194732016_))) - (let ((_tl3195032026_ + (gx#syntax-e _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ + (##cdr _e3212932196_))) + (_hd3212832200_ (let () (declare (not safe)) - (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) + (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_)))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_)))) - (let () (declare (not safe)) (_g3181231958_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ - _hd3182132506_ - _hd3181832496_) + (_g3198932135_)))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_)))) + (let () (declare (not safe)) (_g3198932135_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))))) - (if (gx#stx-pair? _tl3182032509_) - (let ((_e3189032268_ - (gx#syntax-e _tl3182032509_))) - (let ((_tl3188832275_ + (_g3198932135_))))))) + (if (gx#stx-pair? _tl3199732686_) + (let ((_e3206732445_ + (gx#syntax-e _tl3199732686_))) + (let ((_tl3206532452_ (let () (declare (not safe)) - (##cdr _e3189032268_))) - (_hd3188932272_ + (##cdr _e3206732445_))) + (_hd3206632449_ (let () (declare (not safe)) - (##car _e3189032268_)))) - (if (gx#stx-null? _tl3188832275_) - (___kont4659346594_ - _hd3188932272_ - _hd3182132506_) + (##car _e3206732445_)))) + (if (gx#stx-null? _tl3206532452_) + (___kont4677046771_ + _hd3206632449_ + _hd3199832683_) (if (gx#identifier? - _hd3188932272_) + _hd3206632449_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50586_| - _hd3188932272_) + |gerbil/core$[1]#_g50797_| + _hd3206632449_) (if (gx#stx-pair? - _tl3188832275_) - (let ((_e3191332168_ + _tl3206532452_) + (let ((_e3209032345_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl3188832275_))) - (let ((_tl3191132175_ - (let () (declare (not safe)) (##cdr _e3191332168_))) - (_hd3191232172_ + (gx#syntax-e _tl3206532452_))) + (let ((_tl3208832352_ + (let () (declare (not safe)) (##cdr _e3209032345_))) + (_hd3208932349_ (let () (declare (not safe)) - (##car _e3191332168_)))) - (if (gx#stx-null? _tl3191132175_) - (___kont4659746598_ - _hd3191232172_ - _hd3182132506_ - _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_))) + (##car _e3209032345_)))) + (if (gx#stx-null? _tl3208832352_) + (___kont4677446775_ + _hd3208932349_ + _hd3199832683_ + _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _hd3188932272_) - (let ((_e3192632095_ + _hd3206632449_) + (let ((_e3210332272_ (gx#stx-e - _hd3188932272_))) + _hd3206632449_))) (if (let () (declare (not safe)) - (equal? _e3192632095_ + (equal? _e3210332272_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::)) - (if (gx#stx-pair? _tl3188832275_) - (let ((_e3192932099_ (gx#syntax-e _tl3188832275_))) - (let ((_tl3192732106_ + (if (gx#stx-pair? _tl3206532452_) + (let ((_e3210632276_ (gx#syntax-e _tl3206532452_))) + (let ((_tl3210432283_ (let () (declare (not safe)) - (##cdr _e3192932099_))) - (_hd3192832103_ + (##cdr _e3210632276_))) + (_hd3210532280_ (let () (declare (not safe)) - (##car _e3192932099_)))) - (if (gx#stx-null? _tl3192732106_) - (___kont4659946600_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) - (if (gx#stx-pair? _tl3192732106_) - (let ((_e3194932009_ - (gx#syntax-e _tl3192732106_))) - (let ((_tl3194732016_ + (##car _e3210632276_)))) + (if (gx#stx-null? _tl3210432283_) + (___kont4677646777_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) + (if (gx#stx-pair? _tl3210432283_) + (let ((_e3212632186_ + (gx#syntax-e _tl3210432283_))) + (let ((_tl3212432193_ (let () (declare (not safe)) - (##cdr _e3194932009_))) - (_hd3194832013_ + (##cdr _e3212632186_))) + (_hd3212532190_ (let () (declare (not safe)) - (##car _e3194932009_)))) - (if (gx#identifier? _hd3194832013_) + (##car _e3212632186_)))) + (if (gx#identifier? _hd3212532190_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g50585_| - _hd3194832013_) + |gerbil/core$[1]#_g50796_| + _hd3212532190_) (if (gx#stx-pair? - _tl3194732016_) - (let ((_e3195232019_ + _tl3212432193_) + (let ((_e3212932196_ (gx#syntax-e - _tl3194732016_))) - (let ((_tl3195032026_ + _tl3212432193_))) + (let ((_tl3212732203_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3195232019_))) - (_hd3195132023_ - (let () (declare (not safe)) (##car _e3195232019_)))) - (if (gx#stx-null? _tl3195032026_) - (___kont4660146602_ - _hd3195132023_ - _hd3192832103_ - _hd3182132506_ - _hd3181832496_) - (let () (declare (not safe)) (_g3181231958_))))) + (##cdr _e3212932196_))) + (_hd3212832200_ + (let () (declare (not safe)) (##car _e3212932196_)))) + (if (gx#stx-null? _tl3212732203_) + (___kont4677846779_ + _hd3212832200_ + _hd3210532280_ + _hd3199832683_ + _hd3199532673_) + (let () (declare (not safe)) (_g3198932135_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))) + (_g3198932135_))) (let () (declare (not safe)) - (_g3181231958_))))) + (_g3198932135_))))) (let () (declare (not safe)) - (_g3181231958_)))))) - (let () (declare (not safe)) (_g3181231958_))) - (let () (declare (not safe)) (_g3181231958_)))) - (let () (declare (not safe)) (_g3181231958_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _tl3182032509_) - (___kont4659546596_ - _hd3182132506_ - _hd3181832496_) + (_g3198932135_)))))) + (let () (declare (not safe)) (_g3198932135_))) + (let () (declare (not safe)) (_g3198932135_)))) + (let () (declare (not safe)) (_g3198932135_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-null? _tl3199732686_) + (___kont4677246773_ + _hd3199832683_ + _hd3199532673_) (let () (declare (not safe)) - (_g3181231958_))))))) - (let () (declare (not safe)) (_g3181231958_))))) - (let () (declare (not safe)) (_g3181231958_)))))))) + (_g3198932135_))))))) + (let () (declare (not safe)) (_g3198932135_))))) + (let () (declare (not safe)) (_g3198932135_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-match| - (lambda (_$stx32601_) - (let* ((___stx4684846849_ _$stx32601_) - (_g3260632640_ + (lambda (_$stx32778_) + (let* ((___stx4702547026_ _$stx32778_) + (_g3278332817_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4684846849_)))) - (let ((___kont4685146852_ - (lambda (_L32744_ _L32746_ _L32747_) - (let ((__tmp50651 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50590 - (let ((__tmp50591 - (let ((__tmp50592 - (let ((__tmp50650 + ___stx4702547026_)))) + (let ((___kont4702847029_ + (lambda (_L32921_ _L32923_ _L32924_) + (let ((__tmp50862 (gx#datum->syntax '#f 'defsyntax)) + (__tmp50801 + (let ((__tmp50802 + (let ((__tmp50803 + (let ((__tmp50861 (gx#datum->syntax '#f 'make-match-macro)) - (__tmp50593 - (let ((__tmp50594 - (let ((__tmp50595 - (let ((__tmp50649 + (__tmp50804 + (let ((__tmp50805 + (let ((__tmp50806 + (let ((__tmp50860 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp50596 - (let ((__tmp50641 - (let ((__tmp50646 - (let ((__tmp50648 + (__tmp50807 + (let ((__tmp50852 + (let ((__tmp50857 + (let ((__tmp50859 (gx#datum->syntax '#f '$match-e)) - (__tmp50647 + (__tmp50858 (let () (declare (not safe)) - (cons _L32746_ '())))) + (cons _L32923_ '())))) (declare (not safe)) - (cons __tmp50648 __tmp50647))) - (__tmp50642 - (let ((__tmp50643 - (let ((__tmp50645 + (cons __tmp50859 __tmp50858))) + (__tmp50853 + (let ((__tmp50854 + (let ((__tmp50856 (gx#datum->syntax '#f '$macro-e)) - (__tmp50644 + (__tmp50855 (let () (declare (not safe)) - (cons _L32744_ + (cons _L32921_ '())))) (declare (not safe)) - (cons __tmp50645 - __tmp50644)))) + (cons __tmp50856 + __tmp50855)))) (declare (not safe)) - (cons __tmp50643 '())))) + (cons __tmp50854 '())))) (declare (not safe)) - (cons __tmp50646 __tmp50642))) - (__tmp50597 - (let ((__tmp50598 - (let ((__tmp50640 + (cons __tmp50857 __tmp50853))) + (__tmp50808 + (let ((__tmp50809 + (let ((__tmp50851 (gx#datum->syntax '#f 'lambda)) - (__tmp50599 - (let ((__tmp50638 - (let ((__tmp50639 + (__tmp50810 + (let ((__tmp50849 + (let ((__tmp50850 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50639 + (cons __tmp50850 '()))) - (__tmp50600 - (let ((__tmp50601 - (let ((__tmp50637 + (__tmp50811 + (let ((__tmp50812 + (let ((__tmp50848 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp50602 - (let ((__tmp50636 (gx#datum->syntax '#f '$stx)) - (__tmp50603 - (let ((__tmp50604 - (let ((__tmp50615 - (let ((__tmp50634 - (let ((__tmp50635 + (__tmp50813 + (let ((__tmp50847 (gx#datum->syntax '#f '$stx)) + (__tmp50814 + (let ((__tmp50815 + (let ((__tmp50826 + (let ((__tmp50845 + (let ((__tmp50846 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons 'match: __tmp50635))) - (__tmp50616 - (let ((__tmp50617 - (let ((__tmp50633 + (cons 'match: __tmp50846))) + (__tmp50827 + (let ((__tmp50828 + (let ((__tmp50844 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50618 - (let ((__tmp50632 + (__tmp50829 + (let ((__tmp50843 (gx#datum->syntax '#f '$match-e)) - (__tmp50619 - (let ((__tmp50620 - (let ((__tmp50631 + (__tmp50830 + (let ((__tmp50831 + (let ((__tmp50842 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp50621 - (let ((__tmp50627 - (let ((__tmp50630 + (__tmp50832 + (let ((__tmp50838 + (let ((__tmp50841 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp50628 - (let ((__tmp50629 (gx#datum->syntax '#f 'body))) + (__tmp50839 + (let ((__tmp50840 (gx#datum->syntax '#f 'body))) (declare (not safe)) - (cons __tmp50629 '())))) + (cons __tmp50840 '())))) (declare (not safe)) - (cons __tmp50630 __tmp50628))) - (__tmp50622 - (let ((__tmp50623 - (let ((__tmp50626 + (cons __tmp50841 __tmp50839))) + (__tmp50833 + (let ((__tmp50834 + (let ((__tmp50837 (gx#datum->syntax '#f 'stx-source)) - (__tmp50624 - (let ((__tmp50625 + (__tmp50835 + (let ((__tmp50836 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50625 '())))) + (cons __tmp50836 '())))) (declare (not safe)) - (cons __tmp50626 __tmp50624)))) + (cons __tmp50837 __tmp50835)))) (declare (not safe)) - (cons __tmp50623 '())))) + (cons __tmp50834 '())))) (declare (not safe)) - (cons __tmp50627 __tmp50622)))) + (cons __tmp50838 __tmp50833)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50631 __tmp50621)))) + (cons __tmp50842 __tmp50832)))) (declare (not safe)) - (cons __tmp50620 '())))) + (cons __tmp50831 '())))) (declare (not safe)) - (cons __tmp50632 __tmp50619)))) + (cons __tmp50843 __tmp50830)))) (declare (not safe)) - (cons __tmp50633 __tmp50618)))) + (cons __tmp50844 __tmp50829)))) (declare (not safe)) - (cons __tmp50617 '())))) + (cons __tmp50828 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50634 - __tmp50616))) - (__tmp50605 - (let ((__tmp50606 - (let ((__tmp50614 + (cons __tmp50845 + __tmp50827))) + (__tmp50816 + (let ((__tmp50817 + (let ((__tmp50825 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp50607 - (let ((__tmp50608 - (let ((__tmp50613 + (__tmp50818 + (let ((__tmp50819 + (let ((__tmp50824 (gx#datum->syntax '#f 'core-apply-expander)) - (__tmp50609 - (let ((__tmp50612 + (__tmp50820 + (let ((__tmp50823 (gx#datum->syntax '#f '$macro-e)) - (__tmp50610 - (let ((__tmp50611 + (__tmp50821 + (let ((__tmp50822 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50611 '())))) + (cons __tmp50822 '())))) (declare (not safe)) - (cons __tmp50612 __tmp50610)))) + (cons __tmp50823 __tmp50821)))) (declare (not safe)) - (cons __tmp50613 __tmp50609)))) + (cons __tmp50824 __tmp50820)))) (declare (not safe)) - (cons __tmp50608 '())))) + (cons __tmp50819 '())))) (declare (not safe)) - (cons __tmp50614 __tmp50607)))) + (cons __tmp50825 __tmp50818)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50606 '())))) + (cons __tmp50817 '())))) (declare (not safe)) - (cons __tmp50615 __tmp50605)))) + (cons __tmp50826 __tmp50816)))) (declare (not safe)) - (cons '() __tmp50604)))) + (cons '() __tmp50815)))) (declare (not safe)) - (cons __tmp50636 __tmp50603)))) + (cons __tmp50847 __tmp50814)))) (declare (not safe)) - (cons __tmp50637 __tmp50602)))) + (cons __tmp50848 __tmp50813)))) (declare (not safe)) - (cons __tmp50601 '())))) + (cons __tmp50812 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50638 - __tmp50600)))) + (cons __tmp50849 + __tmp50811)))) (declare (not safe)) - (cons __tmp50640 __tmp50599)))) + (cons __tmp50851 __tmp50810)))) (declare (not safe)) - (cons __tmp50598 '())))) + (cons __tmp50809 '())))) (declare (not safe)) - (cons __tmp50641 __tmp50597)))) + (cons __tmp50852 __tmp50808)))) (declare (not safe)) - (cons __tmp50649 __tmp50596)))) + (cons __tmp50860 __tmp50807)))) (declare (not safe)) - (cons __tmp50595 '())))) + (cons __tmp50806 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'macro: __tmp50594)))) + (cons 'macro: __tmp50805)))) (declare (not safe)) - (cons __tmp50650 __tmp50593)))) + (cons __tmp50861 __tmp50804)))) (declare (not safe)) - (cons __tmp50592 '())))) + (cons __tmp50803 '())))) (declare (not safe)) - (cons _L32747_ __tmp50591)))) + (cons _L32924_ __tmp50802)))) (declare (not safe)) - (cons __tmp50651 __tmp50590)))) - (___kont4685346854_ - (lambda (_L32677_ _L32679_ _L32680_) - (let ((__tmp50652 - (let ((__tmp50653 - (let ((__tmp50654 - (let ((__tmp50655 - (let ((__tmp50666 + (cons __tmp50862 __tmp50801)))) + (___kont4703047031_ + (lambda (_L32854_ _L32856_ _L32857_) + (let ((__tmp50863 + (let ((__tmp50864 + (let ((__tmp50865 + (let ((__tmp50866 + (let ((__tmp50877 (gx#datum->syntax '#f 'lambda)) - (__tmp50656 - (let ((__tmp50664 - (let ((__tmp50665 + (__tmp50867 + (let ((__tmp50875 + (let ((__tmp50876 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50665 '()))) - (__tmp50657 - (let ((__tmp50658 - (let ((__tmp50663 + (cons __tmp50876 '()))) + (__tmp50868 + (let ((__tmp50869 + (let ((__tmp50874 (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp50659 - (let ((__tmp50660 - (let ((__tmp50661 - (let ((__tmp50662 + (__tmp50870 + (let ((__tmp50871 + (let ((__tmp50872 + (let ((__tmp50873 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp50662 '())))) + (cons __tmp50873 '())))) (declare (not safe)) (cons '"bad syntax; no macro definition for defsyntax-for-match" - __tmp50661)))) + __tmp50872)))) (declare (not safe)) - (cons '#f __tmp50660)))) + (cons '#f __tmp50871)))) (declare (not safe)) - (cons __tmp50663 __tmp50659)))) + (cons __tmp50874 __tmp50870)))) (declare (not safe)) - (cons __tmp50658 '())))) + (cons __tmp50869 '())))) (declare (not safe)) - (cons __tmp50664 __tmp50657)))) + (cons __tmp50875 __tmp50868)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50666 - __tmp50656)))) + (cons __tmp50877 + __tmp50867)))) (declare (not safe)) - (cons __tmp50655 '())))) + (cons __tmp50866 '())))) (declare (not safe)) - (cons _L32677_ __tmp50654)))) + (cons _L32854_ __tmp50865)))) (declare (not safe)) - (cons _L32679_ __tmp50653)))) + (cons _L32856_ __tmp50864)))) (declare (not safe)) - (cons _L32680_ __tmp50652))))) - (let ((___match4688146882_ - (lambda (_e3261332704_ - _hd3261232708_ - _tl3261132711_ - _e3261632714_ - _hd3261532718_ - _tl3261432721_ - _e3261932724_ - _hd3261832728_ - _tl3261732731_ - _e3262232734_ - _hd3262132738_ - _tl3262032741_) - (let ((_L32744_ _hd3262132738_) - (_L32746_ _hd3261832728_) - (_L32747_ _hd3261532718_)) - (if (gx#identifier? _L32747_) - (___kont4685146852_ _L32744_ _L32746_ _L32747_) - (let () (declare (not safe)) (_g3260632640_))))))) - (if (gx#stx-pair? ___stx4684846849_) - (let ((_e3261332704_ (gx#syntax-e ___stx4684846849_))) - (let ((_tl3261132711_ - (let () (declare (not safe)) (##cdr _e3261332704_))) - (_hd3261232708_ + (cons _L32857_ __tmp50863))))) + (let ((___match4705847059_ + (lambda (_e3279032881_ + _hd3278932885_ + _tl3278832888_ + _e3279332891_ + _hd3279232895_ + _tl3279132898_ + _e3279632901_ + _hd3279532905_ + _tl3279432908_ + _e3279932911_ + _hd3279832915_ + _tl3279732918_) + (let ((_L32921_ _hd3279832915_) + (_L32923_ _hd3279532905_) + (_L32924_ _hd3279232895_)) + (if (gx#identifier? _L32924_) + (___kont4702847029_ _L32921_ _L32923_ _L32924_) + (let () (declare (not safe)) (_g3278332817_))))))) + (if (gx#stx-pair? ___stx4702547026_) + (let ((_e3279032881_ (gx#syntax-e ___stx4702547026_))) + (let ((_tl3278832888_ + (let () (declare (not safe)) (##cdr _e3279032881_))) + (_hd3278932885_ (let () (declare (not safe)) - (##car _e3261332704_)))) - (if (gx#stx-pair? _tl3261132711_) - (let ((_e3261632714_ (gx#syntax-e _tl3261132711_))) - (let ((_tl3261432721_ + (##car _e3279032881_)))) + (if (gx#stx-pair? _tl3278832888_) + (let ((_e3279332891_ (gx#syntax-e _tl3278832888_))) + (let ((_tl3279132898_ (let () (declare (not safe)) - (##cdr _e3261632714_))) - (_hd3261532718_ + (##cdr _e3279332891_))) + (_hd3279232895_ (let () (declare (not safe)) - (##car _e3261632714_)))) - (if (gx#stx-pair? _tl3261432721_) - (let ((_e3261932724_ - (gx#syntax-e _tl3261432721_))) - (let ((_tl3261732731_ + (##car _e3279332891_)))) + (if (gx#stx-pair? _tl3279132898_) + (let ((_e3279632901_ + (gx#syntax-e _tl3279132898_))) + (let ((_tl3279432908_ (let () (declare (not safe)) - (##cdr _e3261932724_))) - (_hd3261832728_ + (##cdr _e3279632901_))) + (_hd3279532905_ (let () (declare (not safe)) - (##car _e3261932724_)))) - (if (gx#stx-pair? _tl3261732731_) - (let ((_e3262232734_ - (gx#syntax-e _tl3261732731_))) - (let ((_tl3262032741_ + (##car _e3279632901_)))) + (if (gx#stx-pair? _tl3279432908_) + (let ((_e3279932911_ + (gx#syntax-e _tl3279432908_))) + (let ((_tl3279732918_ (let () (declare (not safe)) - (##cdr _e3262232734_))) - (_hd3262132738_ + (##cdr _e3279932911_))) + (_hd3279832915_ (let () (declare (not safe)) - (##car _e3262232734_)))) - (if (gx#stx-null? _tl3262032741_) - (___match4688146882_ - _e3261332704_ - _hd3261232708_ - _tl3261132711_ - _e3261632714_ - _hd3261532718_ - _tl3261432721_ - _e3261932724_ - _hd3261832728_ - _tl3261732731_ - _e3262232734_ - _hd3262132738_ - _tl3262032741_) + (##car _e3279932911_)))) + (if (gx#stx-null? _tl3279732918_) + (___match4705847059_ + _e3279032881_ + _hd3278932885_ + _tl3278832888_ + _e3279332891_ + _hd3279232895_ + _tl3279132898_ + _e3279632901_ + _hd3279532905_ + _tl3279432908_ + _e3279932911_ + _hd3279832915_ + _tl3279732918_) (let () (declare (not safe)) - (_g3260632640_))))) - (if (gx#stx-null? _tl3261732731_) - (___kont4685346854_ - _hd3261832728_ - _hd3261532718_ - _hd3261232708_) + (_g3278332817_))))) + (if (gx#stx-null? _tl3279432908_) + (___kont4703047031_ + _hd3279532905_ + _hd3279232895_ + _hd3278932885_) (let () (declare (not safe)) - (_g3260632640_)))))) + (_g3278332817_)))))) (let () (declare (not safe)) - (_g3260632640_))))) - (let () (declare (not safe)) (_g3260632640_))))) - (let () (declare (not safe)) (_g3260632640_)))))))) + (_g3278332817_))))) + (let () (declare (not safe)) (_g3278332817_))))) + (let () (declare (not safe)) (_g3278332817_)))))))) (define |gerbil/core$[:0:]#defrules-for-match| - (lambda (_$stx32769_) - (let* ((_g3277332788_ - (lambda (_g3277432784_) + (lambda (_$stx32946_) + (let* ((_g3295032965_ + (lambda (_g3295132961_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3277432784_))) - (_g3277232831_ - (lambda (_g3277432792_) - (if (gx#stx-pair? _g3277432792_) - (let ((_e3277932795_ (gx#syntax-e _g3277432792_))) - (let ((_hd3277832799_ + _g3295132961_))) + (_g3294933008_ + (lambda (_g3295132969_) + (if (gx#stx-pair? _g3295132969_) + (let ((_e3295632972_ (gx#syntax-e _g3295132969_))) + (let ((_hd3295532976_ (let () (declare (not safe)) - (##car _e3277932795_))) - (_tl3277732802_ + (##car _e3295632972_))) + (_tl3295432979_ (let () (declare (not safe)) - (##cdr _e3277932795_)))) - (if (gx#stx-pair? _tl3277732802_) - (let ((_e3278232805_ - (gx#syntax-e _tl3277732802_))) - (let ((_hd3278132809_ + (##cdr _e3295632972_)))) + (if (gx#stx-pair? _tl3295432979_) + (let ((_e3295932982_ + (gx#syntax-e _tl3295432979_))) + (let ((_hd3295832986_ (let () (declare (not safe)) - (##car _e3278232805_))) - (_tl3278032812_ + (##car _e3295932982_))) + (_tl3295732989_ (let () (declare (not safe)) - (##cdr _e3278232805_)))) - ((lambda (_L32815_ _L32817_) - (let ((__tmp50671 + (##cdr _e3295932982_)))) + ((lambda (_L32992_ _L32994_) + (let ((__tmp50882 (gx#datum->syntax '#f 'defsyntax-for-match)) - (__tmp50667 - (let ((__tmp50668 - (let ((__tmp50669 - (let ((__tmp50670 + (__tmp50878 + (let ((__tmp50879 + (let ((__tmp50880 + (let ((__tmp50881 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp50670 _L32815_)))) + (cons __tmp50881 _L32992_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50669 '())))) + (cons __tmp50880 '())))) (declare (not safe)) - (cons _L32817_ __tmp50668)))) + (cons _L32994_ __tmp50879)))) (declare (not safe)) - (cons __tmp50671 __tmp50667))) - _tl3278032812_ - _hd3278132809_))) - (_g3277332788_ _g3277432792_)))) - (_g3277332788_ _g3277432792_))))) - (_g3277232831_ _$stx32769_)))))) + (cons __tmp50882 __tmp50878))) + _tl3295732989_ + _hd3295832986_))) + (_g3295032965_ _g3295132969_)))) + (_g3295032965_ _g3295132969_))))) + (_g3294933008_ _$stx32946_)))))) diff --git a/src/bootstrap/gerbil/core__11.scm b/src/bootstrap/gerbil/core__11.scm index 81dddc220..8534cd789 100644 --- a/src/bootstrap/gerbil/core__11.scm +++ b/src/bootstrap/gerbil/core__11.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g50674_| + (define |gerbil/core$[2]#_g50885_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50676_| + (define |gerbil/core$[2]#_g50887_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50678_| + (define |gerbil/core$[2]#_g50889_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50680_| + (define |gerbil/core$[2]#_g50891_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50684_| + (define |gerbil/core$[2]#_g50895_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50688_| + (define |gerbil/core$[2]#_g50899_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50692_| + (define |gerbil/core$[2]#_g50903_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50696_| + (define |gerbil/core$[2]#_g50907_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -57,7 +57,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:1:]#match-macro| - (let ((__obj47352 + (let ((__obj47529 (let () (declare (not safe)) (##structure @@ -75,11 +75,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47352 + __obj47529 'gerbil.core#match-macro::t '1 gerbil/core$$#class-type-info::t @@ -87,7 +88,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47352 + __obj47529 'match-macro '2 gerbil/core$$#class-type-info::t @@ -95,26 +96,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47352 + __obj47529 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50672 - (let ((__tmp50673 |gerbil/core$[2]#_g50674_|)) + (let ((__tmp50883 + (let ((__tmp50884 |gerbil/core$[2]#_g50885_|)) (declare (not safe)) - (cons __tmp50673 '())))) + (cons __tmp50884 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50672 + __obj47529 + __tmp50883 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47352 + __obj47529 '#f '5 gerbil/core$$#class-type-info::t @@ -122,7 +123,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47352 + __obj47529 '#f '6 gerbil/core$$#class-type-info::t @@ -130,89 +131,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47352 + __obj47529 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50675 |gerbil/core$[2]#_g50676_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50675 + __obj47529 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50677 |gerbil/core$[2]#_g50678_|)) + (let ((__tmp50886 |gerbil/core$[2]#_g50887_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50677 + __obj47529 + __tmp50886 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50679 |gerbil/core$[2]#_g50680_|)) + (let ((__tmp50888 |gerbil/core$[2]#_g50889_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50679 + __obj47529 + __tmp50888 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50681 - (let ((__tmp50682 - (let ((__tmp50683 |gerbil/core$[2]#_g50684_|)) - (declare (not safe)) - (cons 'macro __tmp50683)))) - (declare (not safe)) - (cons __tmp50682 '())))) + (let ((__tmp50890 |gerbil/core$[2]#_g50891_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50681 + __obj47529 + __tmp50890 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50685 - (let ((__tmp50686 - (let ((__tmp50687 |gerbil/core$[2]#_g50688_|)) + (let ((__tmp50892 + (let ((__tmp50893 + (let ((__tmp50894 |gerbil/core$[2]#_g50895_|)) (declare (not safe)) - (cons 'macro __tmp50687)))) + (cons 'macro __tmp50894)))) (declare (not safe)) - (cons __tmp50686 '())))) + (cons __tmp50893 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50685 + __obj47529 + __tmp50892 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50689 - (let ((__tmp50690 - (let ((__tmp50691 |gerbil/core$[2]#_g50692_|)) + (let ((__tmp50896 + (let ((__tmp50897 + (let ((__tmp50898 |gerbil/core$[2]#_g50899_|)) (declare (not safe)) - (cons 'macro __tmp50691)))) + (cons 'macro __tmp50898)))) (declare (not safe)) - (cons __tmp50690 '())))) + (cons __tmp50897 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50689 + __obj47529 + __tmp50896 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50693 - (let ((__tmp50694 - (let ((__tmp50695 |gerbil/core$[2]#_g50696_|)) + (let ((__tmp50900 + (let ((__tmp50901 + (let ((__tmp50902 |gerbil/core$[2]#_g50903_|)) (declare (not safe)) - (cons 'macro __tmp50695)))) + (cons 'macro __tmp50902)))) (declare (not safe)) - (cons __tmp50694 '())))) + (cons __tmp50901 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47352 - __tmp50693 + __obj47529 + __tmp50900 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47352))) + (let ((__tmp50904 + (let ((__tmp50905 + (let ((__tmp50906 |gerbil/core$[2]#_g50907_|)) + (declare (not safe)) + (cons 'macro __tmp50906)))) + (declare (not safe)) + (cons __tmp50905 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj47529 + __tmp50904 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj47529))) diff --git a/src/bootstrap/gerbil/core__12.scm b/src/bootstrap/gerbil/core__12.scm index d1d347806..589803e6d 100644 --- a/src/bootstrap/gerbil/core__12.scm +++ b/src/bootstrap/gerbil/core__12.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#:| - (lambda (_$stx32836_) - (let ((_g3283932846_ - (lambda (_g3284032842_) + (lambda (_$stx33013_) + (let ((_g3301633023_ + (lambda (_g3301733019_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3284032842_)))) - (_g3283932846_ _$stx32836_)))) + _g3301733019_)))) + (_g3301633023_ _$stx33013_)))) (define |gerbil/core$[:0:]#:~| - (lambda (_$stx32850_) - (let ((_g3285332860_ - (lambda (_g3285432856_) + (lambda (_$stx33027_) + (let ((_g3303033037_ + (lambda (_g3303133033_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3285432856_)))) - (_g3285332860_ _$stx32850_)))) + _g3303133033_)))) + (_g3303033037_ _$stx33027_)))) (define |gerbil/core$[:0:]#:-| - (lambda (_$stx32864_) - (let ((_g3286732874_ - (lambda (_g3286832870_) + (lambda (_$stx33041_) + (let ((_g3304433051_ + (lambda (_g3304533047_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3286832870_)))) - (_g3286732874_ _$stx32864_)))) + _g3304533047_)))) + (_g3304433051_ _$stx33041_)))) (define |gerbil/core$[:0:]#:=| - (lambda (_$stx32878_) - (let ((_g3288132888_ - (lambda (_g3288232884_) + (lambda (_$stx33055_) + (let ((_g3305833065_ + (lambda (_g3305933061_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3288232884_)))) - (_g3288132888_ _$stx32878_)))) + _g3305933061_)))) + (_g3305833065_ _$stx33055_)))) (define |gerbil/core$[1]#setq-macro::t| - (let ((__tmp50697 (list gerbil/core$#macro-object::t))) + (let ((__tmp50908 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setq-macro::t 'setq-macro - __tmp50697 + __tmp50908 '() '() '#f))) @@ -51,10 +51,10 @@ (declare (not safe)) (make-class-predicate |gerbil/core$[1]#setq-macro::t|))) (define |gerbil/core$[1]#make-setq-macro| - (lambda _$args32903_ + (lambda _$args33080_ (apply make-instance |gerbil/core$[1]#setq-macro::t| - _$args32903_))) + _$args33080_))) (define |gerbil/core$[1]#setq-macro-macro| (let () (declare (not safe)) @@ -80,12 +80,12 @@ |gerbil/core$[1]#setq-macro::t| 'macro))) (define |gerbil/core$[1]#setf-macro::t| - (let ((__tmp50698 (list gerbil/core$#macro-object::t))) + (let ((__tmp50909 (list gerbil/core$#macro-object::t))) (declare (not safe)) (make-class-type 'gerbil.core#setf-macro::t 'setf-macro - __tmp50698 + __tmp50909 '() '() '#f))) @@ -94,10 +94,10 @@ (declare (not safe)) (make-class-predicate |gerbil/core$[1]#setf-macro::t|))) (define |gerbil/core$[1]#make-setf-macro| - (lambda _$args32899_ + (lambda _$args33076_ (apply make-instance |gerbil/core$[1]#setf-macro::t| - _$args32899_))) + _$args33076_))) (define |gerbil/core$[1]#setf-macro-macro| (let () (declare (not safe)) @@ -123,1499 +123,1499 @@ |gerbil/core$[1]#setf-macro::t| 'macro))) (define |gerbil/core$[1]#syntax-local-setf-macro?| - (lambda (_stx32896_) - (if (gx#identifier? _stx32896_) - (let ((__tmp50699 (gx#syntax-local-value _stx32896_ false))) + (lambda (_stx33073_) + (if (gx#identifier? _stx33073_) + (let ((__tmp50910 (gx#syntax-local-value _stx33073_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setf-macro::t| - __tmp50699)) + __tmp50910)) '#f))) (define |gerbil/core$[1]#syntax-local-setq-macro?| - (lambda (_stx32893_) - (if (gx#identifier? _stx32893_) - (let ((__tmp50700 (gx#syntax-local-value _stx32893_ false))) + (lambda (_stx33070_) + (if (gx#identifier? _stx33070_) + (let ((__tmp50911 (gx#syntax-local-value _stx33070_ false))) (declare (not safe)) (class-instance? |gerbil/core$[1]#setq-macro::t| - __tmp50700)) + __tmp50911)) '#f))) (define |gerbil/core$[:0:]#set!| - (lambda (_stx32907_) - (let* ((___stx4690446905_ _stx32907_) - (_g3291332972_ + (lambda (_stx33084_) + (let* ((___stx4708147082_ _stx33084_) + (_g3309033149_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4690446905_)))) - (let ((___kont4690746908_ - (lambda (_L33245_) + ___stx4708147082_)))) + (let ((___kont4708447085_ + (lambda (_L33422_) (gx#core-apply-expander - (gx#syntax-local-e _L33245_) - _stx32907_))) - (___kont4690946910_ - (lambda (_L33144_ _L33146_ _L33147_) - (let* ((_g3316933177_ - (lambda (_g3317033173_) + (gx#syntax-local-e _L33422_) + _stx33084_))) + (___kont4708647087_ + (lambda (_L33321_ _L33323_ _L33324_) + (let* ((_g3334633354_ + (lambda (_g3334733350_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3317033173_))) - (_g3316833204_ - (lambda (_g3317033181_) - ((lambda (_L33184_) + _g3334733350_))) + (_g3334533381_ + (lambda (_g3334733358_) + ((lambda (_L33361_) (let () - (let ((__tmp50701 - (let ((__tmp50703 - (lambda (_g3319533198_ - _g3319633201_) + (let ((__tmp50912 + (let ((__tmp50914 + (lambda (_g3337233375_ + _g3337333378_) (let () (declare (not safe)) - (cons _g3319533198_ - _g3319633201_)))) - (__tmp50702 + (cons _g3337233375_ + _g3337333378_)))) + (__tmp50913 (let () (declare (not safe)) - (cons _L33144_ '())))) + (cons _L33321_ '())))) (declare (not safe)) - (foldr1 __tmp50703 - __tmp50702 - _L33146_)))) + (foldr1 __tmp50914 + __tmp50913 + _L33323_)))) (declare (not safe)) - (cons _L33184_ __tmp50701)))) - _g3317033181_)))) - (_g3316833204_ - (gx#stx-identifier _L33147_ _L33147_ '"-set!"))))) - (___kont4691346914_ - (lambda (_L33054_) + (cons _L33361_ __tmp50912)))) + _g3334733358_)))) + (_g3334533381_ + (gx#stx-identifier _L33324_ _L33324_ '"-set!"))))) + (___kont4709047091_ + (lambda (_L33231_) (gx#core-apply-expander - (gx#syntax-local-e _L33054_) - _stx32907_))) - (___kont4691546916_ - (lambda (_L33009_ _L33011_) - (let ((__tmp50706 (gx#datum->syntax '#f '%#set!)) - (__tmp50704 - (let ((__tmp50705 + (gx#syntax-local-e _L33231_) + _stx33084_))) + (___kont4709247093_ + (lambda (_L33186_ _L33188_) + (let ((__tmp50917 (gx#datum->syntax '#f '%#set!)) + (__tmp50915 + (let ((__tmp50916 (let () (declare (not safe)) - (cons _L33009_ '())))) + (cons _L33186_ '())))) (declare (not safe)) - (cons _L33011_ __tmp50705)))) + (cons _L33188_ __tmp50916)))) (declare (not safe)) - (cons __tmp50706 __tmp50704))))) - (let* ((___match4699546996_ - (lambda (_e3296032979_ - _hd3295932983_ - _tl3295832986_ - _e3296332989_ - _hd3296232993_ - _tl3296132996_ - _e3296632999_ - _hd3296533003_ - _tl3296433006_) - (let ((_L33009_ _hd3296533003_) (_L33011_ _hd3296232993_)) - (if (gx#identifier? _L33011_) - (___kont4691546916_ _L33009_ _L33011_) - (let () (declare (not safe)) (_g3291332972_)))))) - (___match4697546976_ - (lambda (_e3295233034_ - _hd3295133038_ - _tl3295033041_ - _e3295533044_ - _hd3295433048_ - _tl3295333051_) - (let ((_L33054_ _hd3295433048_)) + (cons __tmp50917 __tmp50915))))) + (let* ((___match4717247173_ + (lambda (_e3313733156_ + _hd3313633160_ + _tl3313533163_ + _e3314033166_ + _hd3313933170_ + _tl3313833173_ + _e3314333176_ + _hd3314233180_ + _tl3314133183_) + (let ((_L33186_ _hd3314233180_) (_L33188_ _hd3313933170_)) + (if (gx#identifier? _L33188_) + (___kont4709247093_ _L33186_ _L33188_) + (let () (declare (not safe)) (_g3309033149_)))))) + (___match4715247153_ + (lambda (_e3312933211_ + _hd3312833215_ + _tl3312733218_ + _e3313233221_ + _hd3313133225_ + _tl3313033228_) + (let ((_L33231_ _hd3313133225_)) (if (let () (declare (not safe)) (|gerbil/core$[1]#syntax-local-setq-macro?| - _L33054_)) - (___kont4691346914_ _L33054_) - (if (gx#stx-pair? _tl3295333051_) - (let ((_e3296632999_ - (gx#syntax-e _tl3295333051_))) - (let ((_tl3296433006_ + _L33231_)) + (___kont4709047091_ _L33231_) + (if (gx#stx-pair? _tl3313033228_) + (let ((_e3314333176_ + (gx#syntax-e _tl3313033228_))) + (let ((_tl3314133183_ (let () (declare (not safe)) - (##cdr _e3296632999_))) - (_hd3296533003_ + (##cdr _e3314333176_))) + (_hd3314233180_ (let () (declare (not safe)) - (##car _e3296632999_)))) - (if (gx#stx-null? _tl3296433006_) - (___match4699546996_ - _e3295233034_ - _hd3295133038_ - _tl3295033041_ - _e3295533044_ - _hd3295433048_ - _tl3295333051_ - _e3296632999_ - _hd3296533003_ - _tl3296433006_) + (##car _e3314333176_)))) + (if (gx#stx-null? _tl3314133183_) + (___match4717247173_ + _e3312933211_ + _hd3312833215_ + _tl3312733218_ + _e3313233221_ + _hd3313133225_ + _tl3313033228_ + _e3314333176_ + _hd3314233180_ + _tl3314133183_) (let () (declare (not safe)) - (_g3291332972_))))) + (_g3309033149_))))) (let () (declare (not safe)) - (_g3291332972_))))))) - (___match4696346964_ - (lambda (_e3293033074_ - _hd3292933078_ - _tl3292833081_ - _e3293333084_ - _hd3293233088_ - _tl3293133091_ - _e3293633094_ - _hd3293533098_ - _tl3293433101_ - ___splice4691146912_ - _target3293733104_ - _tl3293933107_) - (letrec ((_loop3294033110_ - (lambda (_hd3293833114_ _arg3294433117_) - (if (gx#stx-pair? _hd3293833114_) - (let ((_e3294133120_ - (gx#syntax-e _hd3293833114_))) - (let ((_lp-tl3294333127_ + (_g3309033149_))))))) + (___match4714047141_ + (lambda (_e3310733251_ + _hd3310633255_ + _tl3310533258_ + _e3311033261_ + _hd3310933265_ + _tl3310833268_ + _e3311333271_ + _hd3311233275_ + _tl3311133278_ + ___splice4708847089_ + _target3311433281_ + _tl3311633284_) + (letrec ((_loop3311733287_ + (lambda (_hd3311533291_ _arg3312133294_) + (if (gx#stx-pair? _hd3311533291_) + (let ((_e3311833297_ + (gx#syntax-e _hd3311533291_))) + (let ((_lp-tl3312033304_ (let () (declare (not safe)) - (##cdr _e3294133120_))) - (_lp-hd3294233124_ + (##cdr _e3311833297_))) + (_lp-hd3311933301_ (let () (declare (not safe)) - (##car _e3294133120_)))) - (_loop3294033110_ - _lp-tl3294333127_ + (##car _e3311833297_)))) + (_loop3311733287_ + _lp-tl3312033304_ (let () (declare (not safe)) - (cons _lp-hd3294233124_ - _arg3294433117_))))) - (let ((_arg3294533130_ - (reverse _arg3294433117_))) - (if (gx#stx-pair? _tl3293133091_) - (let ((_e3294833134_ - (gx#syntax-e _tl3293133091_))) - (let ((_tl3294633141_ + (cons _lp-hd3311933301_ + _arg3312133294_))))) + (let ((_arg3312233307_ + (reverse _arg3312133294_))) + (if (gx#stx-pair? _tl3310833268_) + (let ((_e3312533311_ + (gx#syntax-e _tl3310833268_))) + (let ((_tl3312333318_ (let () (declare (not safe)) - (##cdr _e3294833134_))) - (_hd3294733138_ + (##cdr _e3312533311_))) + (_hd3312433315_ (let () (declare (not safe)) - (##car _e3294833134_)))) - (if (gx#stx-null? _tl3294633141_) - (let ((_L33144_ - _hd3294733138_) - (_L33146_ - _arg3294533130_) - (_L33147_ - _hd3293533098_)) + (##car _e3312533311_)))) + (if (gx#stx-null? _tl3312333318_) + (let ((_L33321_ + _hd3312433315_) + (_L33323_ + _arg3312233307_) + (_L33324_ + _hd3311233275_)) (if (gx#identifier? - _L33147_) - (___kont4690946910_ - _L33144_ - _L33146_ - _L33147_) - (___match4697546976_ - _e3293033074_ - _hd3292933078_ - _tl3292833081_ - _e3293333084_ - _hd3293233088_ - _tl3293133091_))) - (___match4697546976_ - _e3293033074_ - _hd3292933078_ - _tl3292833081_ - _e3293333084_ - _hd3293233088_ - _tl3293133091_)))) - (___match4697546976_ - _e3293033074_ - _hd3292933078_ - _tl3292833081_ - _e3293333084_ - _hd3293233088_ - _tl3293133091_))))))) - (_loop3294033110_ _target3293733104_ '()))))) - (if (gx#stx-pair? ___stx4690446905_) - (let ((_e3291833215_ (gx#syntax-e ___stx4690446905_))) - (let ((_tl3291633222_ - (let () (declare (not safe)) (##cdr _e3291833215_))) - (_hd3291733219_ - (let () (declare (not safe)) (##car _e3291833215_)))) - (if (gx#stx-pair? _tl3291633222_) - (let ((_e3292133225_ (gx#syntax-e _tl3291633222_))) - (let ((_tl3291933232_ + _L33324_) + (___kont4708647087_ + _L33321_ + _L33323_ + _L33324_) + (___match4715247153_ + _e3310733251_ + _hd3310633255_ + _tl3310533258_ + _e3311033261_ + _hd3310933265_ + _tl3310833268_))) + (___match4715247153_ + _e3310733251_ + _hd3310633255_ + _tl3310533258_ + _e3311033261_ + _hd3310933265_ + _tl3310833268_)))) + (___match4715247153_ + _e3310733251_ + _hd3310633255_ + _tl3310533258_ + _e3311033261_ + _hd3310933265_ + _tl3310833268_))))))) + (_loop3311733287_ _target3311433281_ '()))))) + (if (gx#stx-pair? ___stx4708147082_) + (let ((_e3309533392_ (gx#syntax-e ___stx4708147082_))) + (let ((_tl3309333399_ + (let () (declare (not safe)) (##cdr _e3309533392_))) + (_hd3309433396_ + (let () (declare (not safe)) (##car _e3309533392_)))) + (if (gx#stx-pair? _tl3309333399_) + (let ((_e3309833402_ (gx#syntax-e _tl3309333399_))) + (let ((_tl3309633409_ (let () (declare (not safe)) - (##cdr _e3292133225_))) - (_hd3292033229_ + (##cdr _e3309833402_))) + (_hd3309733406_ (let () (declare (not safe)) - (##car _e3292133225_)))) - (if (gx#stx-pair? _hd3292033229_) - (let ((_e3292433235_ - (gx#syntax-e _hd3292033229_))) - (let ((_tl3292233242_ + (##car _e3309833402_)))) + (if (gx#stx-pair? _hd3309733406_) + (let ((_e3310133412_ + (gx#syntax-e _hd3309733406_))) + (let ((_tl3309933419_ (let () (declare (not safe)) - (##cdr _e3292433235_))) - (_hd3292333239_ + (##cdr _e3310133412_))) + (_hd3310033416_ (let () (declare (not safe)) - (##car _e3292433235_)))) - (if (let ((__tmp50707 + (##car _e3310133412_)))) + (if (let ((__tmp50918 (gx#datum->syntax '#f 'setfid))) (declare (not safe)) (|gerbil/core$[1]#syntax-local-setf-macro?| - __tmp50707)) - (let ((_L33245_ _hd3292333239_)) - (___kont4690746908_ _L33245_)) - (if (gx#stx-pair/null? _tl3292233242_) - (let ((___splice4691146912_ + __tmp50918)) + (let ((_L33422_ _hd3310033416_)) + (___kont4708447085_ _L33422_)) + (if (gx#stx-pair/null? _tl3309933419_) + (let ((___splice4708847089_ (gx#syntax-split-splice - _tl3292233242_ + _tl3309933419_ '0))) - (let ((_tl3293933107_ + (let ((_tl3311633284_ (let () (declare (not safe)) (##vector-ref - ___splice4691146912_ + ___splice4708847089_ '1))) - (_target3293733104_ + (_target3311433281_ (let () (declare (not safe)) (##vector-ref - ___splice4691146912_ + ___splice4708847089_ '0)))) (if (gx#stx-null? - _tl3293933107_) - (___match4696346964_ - _e3291833215_ - _hd3291733219_ - _tl3291633222_ - _e3292133225_ - _hd3292033229_ - _tl3291933232_ - _e3292433235_ - _hd3292333239_ - _tl3292233242_ - ___splice4691146912_ - _target3293733104_ - _tl3293933107_) - (___match4697546976_ - _e3291833215_ - _hd3291733219_ - _tl3291633222_ - _e3292133225_ - _hd3292033229_ - _tl3291933232_)))) - (___match4697546976_ - _e3291833215_ - _hd3291733219_ - _tl3291633222_ - _e3292133225_ - _hd3292033229_ - _tl3291933232_))))) - (___match4697546976_ - _e3291833215_ - _hd3291733219_ - _tl3291633222_ - _e3292133225_ - _hd3292033229_ - _tl3291933232_)))) - (let () (declare (not safe)) (_g3291332972_))))) - (let () (declare (not safe)) (_g3291332972_)))))))) + _tl3311633284_) + (___match4714047141_ + _e3309533392_ + _hd3309433396_ + _tl3309333399_ + _e3309833402_ + _hd3309733406_ + _tl3309633409_ + _e3310133412_ + _hd3310033416_ + _tl3309933419_ + ___splice4708847089_ + _target3311433281_ + _tl3311633284_) + (___match4715247153_ + _e3309533392_ + _hd3309433396_ + _tl3309333399_ + _e3309833402_ + _hd3309733406_ + _tl3309633409_)))) + (___match4715247153_ + _e3309533392_ + _hd3309433396_ + _tl3309333399_ + _e3309833402_ + _hd3309733406_ + _tl3309633409_))))) + (___match4715247153_ + _e3309533392_ + _hd3309433396_ + _tl3309333399_ + _e3309833402_ + _hd3309733406_ + _tl3309633409_)))) + (let () (declare (not safe)) (_g3309033149_))))) + (let () (declare (not safe)) (_g3309033149_)))))))) (define |gerbil/core$[:0:]#values-set!| - (lambda (_stx33265_) - (let* ((_g3326833292_ - (lambda (_g3326933288_) + (lambda (_stx33442_) + (let* ((_g3344533469_ + (lambda (_g3344633465_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3326933288_))) - (_g3326733470_ - (lambda (_g3326933296_) - (if (gx#stx-pair? _g3326933296_) - (let ((_e3327433299_ (gx#syntax-e _g3326933296_))) - (let ((_hd3327333303_ + _g3344633465_))) + (_g3344433647_ + (lambda (_g3344633473_) + (if (gx#stx-pair? _g3344633473_) + (let ((_e3345133476_ (gx#syntax-e _g3344633473_))) + (let ((_hd3345033480_ (let () (declare (not safe)) - (##car _e3327433299_))) - (_tl3327233306_ + (##car _e3345133476_))) + (_tl3344933483_ (let () (declare (not safe)) - (##cdr _e3327433299_)))) - (if (gx#stx-pair/null? _tl3327233306_) - (if (fx>= (gx#stx-length _tl3327233306_) '1) - (let ((_g50708_ + (##cdr _e3345133476_)))) + (if (gx#stx-pair/null? _tl3344933483_) + (if (fx>= (gx#stx-length _tl3344933483_) '1) + (let ((_g50919_ (gx#syntax-split-splice - _tl3327233306_ + _tl3344933483_ '1))) (begin - (let ((_g50709_ + (let ((_g50920_ (let () (declare (not safe)) - (if (##values? _g50708_) - (##vector-length _g50708_) + (if (##values? _g50919_) + (##vector-length _g50919_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50709_ 2))) + (##fx= _g50920_ 2))) (error "Context expects 2 values" - _g50709_))) - (let ((_target3327533309_ + _g50920_))) + (let ((_target3345233486_ (let () (declare (not safe)) - (##vector-ref _g50708_ 0))) - (_tl3327733312_ + (##vector-ref _g50919_ 0))) + (_tl3345433489_ (let () (declare (not safe)) - (##vector-ref _g50708_ 1)))) - (if (gx#stx-pair? _tl3327733312_) - (let ((_e3328633315_ - (gx#syntax-e _tl3327733312_))) - (let ((_hd3328533319_ + (##vector-ref _g50919_ 1)))) + (if (gx#stx-pair? _tl3345433489_) + (let ((_e3346333492_ + (gx#syntax-e _tl3345433489_))) + (let ((_hd3346233496_ (let () (declare (not safe)) - (##car _e3328633315_))) - (_tl3328433322_ + (##car _e3346333492_))) + (_tl3346133499_ (let () (declare (not safe)) - (##cdr _e3328633315_)))) - (if (gx#stx-null? _tl3328433322_) - (letrec ((_loop3327833325_ - (lambda (_hd3327633329_ + (##cdr _e3346333492_)))) + (if (gx#stx-null? _tl3346133499_) + (letrec ((_loop3345533502_ + (lambda (_hd3345333506_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tgt3328233332_) - (if (gx#stx-pair? _hd3327633329_) - (let ((_e3327933335_ (gx#syntax-e _hd3327633329_))) - (let ((_lp-hd3328033339_ + _tgt3345933509_) + (if (gx#stx-pair? _hd3345333506_) + (let ((_e3345633512_ (gx#syntax-e _hd3345333506_))) + (let ((_lp-hd3345733516_ (let () (declare (not safe)) - (##car _e3327933335_))) - (_lp-tl3328133342_ + (##car _e3345633512_))) + (_lp-tl3345833519_ (let () (declare (not safe)) - (##cdr _e3327933335_)))) - (_loop3327833325_ - _lp-tl3328133342_ + (##cdr _e3345633512_)))) + (_loop3345533502_ + _lp-tl3345833519_ (let () (declare (not safe)) - (cons _lp-hd3328033339_ _tgt3328233332_))))) - (let ((_tgt3328333345_ (reverse _tgt3328233332_))) - ((lambda (_L33349_ _L33351_) - (let* ((_g3336933386_ - (lambda (_g3337033382_) + (cons _lp-hd3345733516_ _tgt3345933509_))))) + (let ((_tgt3346033522_ (reverse _tgt3345933509_))) + ((lambda (_L33526_ _L33528_) + (let* ((_g3354633563_ + (lambda (_g3354733559_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3337033382_))) - (_g3336833458_ - (lambda (_g3337033390_) - (if (gx#stx-pair/null? _g3337033390_) - (let ((_g50710_ + _g3354733559_))) + (_g3354533635_ + (lambda (_g3354733567_) + (if (gx#stx-pair/null? _g3354733567_) + (let ((_g50921_ (gx#syntax-split-splice - _g3337033390_ + _g3354733567_ '0))) (begin - (let ((_g50711_ + (let ((_g50922_ (let () (declare (not safe)) (if (##values? - _g50710_) + _g50921_) (##vector-length - _g50710_) + _g50921_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50711_ + (##fx= _g50922_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50711_))) + (error "Context expects 2 values" _g50922_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3337233393_ + (let ((_target3354933570_ (let () (declare (not safe)) (##vector-ref - _g50710_ + _g50921_ 0))) - (_tl3337433396_ + (_tl3355133573_ (let () (declare (not safe)) (##vector-ref - _g50710_ + _g50921_ 1)))) (if (gx#stx-null? - _tl3337433396_) - (letrec ((_loop3337533399_ + _tl3355133573_) + (letrec ((_loop3355233576_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3337333403_ _$e3337933406_) - (if (gx#stx-pair? _hd3337333403_) - (let ((_e3337633409_ - (gx#syntax-e _hd3337333403_))) - (let ((_lp-hd3337733413_ + (lambda (_hd3355033580_ _$e3355633583_) + (if (gx#stx-pair? _hd3355033580_) + (let ((_e3355333586_ + (gx#syntax-e _hd3355033580_))) + (let ((_lp-hd3355433590_ (let () (declare (not safe)) - (##car _e3337633409_))) - (_lp-tl3337833416_ + (##car _e3355333586_))) + (_lp-tl3355533593_ (let () (declare (not safe)) - (##cdr _e3337633409_)))) - (_loop3337533399_ - _lp-tl3337833416_ + (##cdr _e3355333586_)))) + (_loop3355233576_ + _lp-tl3355533593_ (let () (declare (not safe)) - (cons _lp-hd3337733413_ - _$e3337933406_))))) - (let ((_$e3338033419_ (reverse _$e3337933406_))) - ((lambda (_L33423_) + (cons _lp-hd3355433590_ + _$e3355633583_))))) + (let ((_$e3355733596_ (reverse _$e3355633583_))) + ((lambda (_L33600_) (let () - (let ((__tmp50724 + (let ((__tmp50935 (gx#datum->syntax '#f 'let-values)) - (__tmp50712 - (let ((__tmp50719 - (let ((__tmp50720 - (let ((__tmp50722 + (__tmp50923 + (let ((__tmp50930 + (let ((__tmp50931 + (let ((__tmp50933 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50723 - (lambda (_g3344133444_ _g3344233447_) + (let ((__tmp50934 + (lambda (_g3361833621_ _g3361933624_) (let () (declare (not safe)) - (cons _g3344133444_ _g3344233447_))))) + (cons _g3361833621_ _g3361933624_))))) (declare (not safe)) - (foldr1 __tmp50723 '() _L33423_))) - (__tmp50721 - (let () (declare (not safe)) (cons _L33349_ '())))) + (foldr1 __tmp50934 '() _L33600_))) + (__tmp50932 + (let () (declare (not safe)) (cons _L33526_ '())))) (declare (not safe)) - (cons __tmp50722 __tmp50721)))) + (cons __tmp50933 __tmp50932)))) (declare (not safe)) - (cons __tmp50720 '()))) + (cons __tmp50931 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp50713 + (__tmp50924 (begin (gx#syntax-check-splice-targets - _L33423_ - _L33351_) - (let ((__tmp50714 - (lambda (_g3343833450_ + _L33600_ + _L33528_) + (let ((__tmp50925 + (lambda (_g3361533627_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3343933453_ - _g3344033455_) - (let ((__tmp50715 - (let ((__tmp50718 (gx#datum->syntax '#f 'set!)) - (__tmp50716 - (let ((__tmp50717 + _g3361633630_ + _g3361733632_) + (let ((__tmp50926 + (let ((__tmp50929 (gx#datum->syntax '#f 'set!)) + (__tmp50927 + (let ((__tmp50928 (let () (declare (not safe)) - (cons _g3343833450_ '())))) + (cons _g3361533627_ '())))) (declare (not safe)) - (cons _g3343933453_ __tmp50717)))) + (cons _g3361633630_ __tmp50928)))) (declare (not safe)) - (cons __tmp50718 __tmp50716)))) + (cons __tmp50929 __tmp50927)))) (declare (not safe)) - (cons __tmp50715 _g3344033455_))))) + (cons __tmp50926 _g3361733632_))))) (declare (not safe)) - (foldr2 __tmp50714 '() _L33423_ _L33351_))))) + (foldr2 __tmp50925 '() _L33600_ _L33528_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50719 __tmp50713)))) + (cons __tmp50930 __tmp50924)))) (declare (not safe)) - (cons __tmp50724 __tmp50712)))) - _$e3338033419_)))))) - (_loop3337533399_ _target3337233393_ '())) - (_g3336933386_ _g3337033390_))))) + (cons __tmp50935 __tmp50923)))) + _$e3355733596_)))))) + (_loop3355233576_ _target3354933570_ '())) + (_g3354633563_ _g3354733567_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3336933386_ _g3337033390_))))) - (_g3336833458_ + (_g3354633563_ _g3354733567_))))) + (_g3354533635_ (gx#gentemps - (let ((__tmp50725 - (lambda (_g3346133464_ _g3346233467_) + (let ((__tmp50936 + (lambda (_g3363833641_ _g3363933644_) (let () (declare (not safe)) - (cons _g3346133464_ - _g3346233467_))))) + (cons _g3363833641_ + _g3363933644_))))) (declare (not safe)) - (foldr1 __tmp50725 '() _L33351_)))))) - _hd3328533319_ - _tgt3328333345_)))))) + (foldr1 __tmp50936 '() _L33528_)))))) + _hd3346233496_ + _tgt3346033522_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3327833325_ - _target3327533309_ + (_loop3345533502_ + _target3345233486_ '())) - (_g3326833292_ - _g3326933296_)))) - (_g3326833292_ _g3326933296_))))) - (_g3326833292_ _g3326933296_)) - (_g3326833292_ _g3326933296_)))) - (_g3326833292_ _g3326933296_))))) - (_g3326733470_ _stx33265_)))) + (_g3344533469_ + _g3344633473_)))) + (_g3344533469_ _g3344633473_))))) + (_g3344533469_ _g3344633473_)) + (_g3344533469_ _g3344633473_)))) + (_g3344533469_ _g3344633473_))))) + (_g3344433647_ _stx33442_)))) (define |gerbil/core$[:0:]#parameterize| - (lambda (_stx33476_) - (let* ((___stx4699846999_ _stx33476_) - (_g3348033538_ + (lambda (_stx33653_) + (let* ((___stx4717547176_ _stx33653_) + (_g3365733715_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4699846999_)))) - (let ((___kont4700147002_ - (lambda (_L33872_) - (let ((__tmp50729 (gx#datum->syntax '#f 'let)) - (__tmp50726 - (let ((__tmp50727 - (let ((__tmp50728 - (lambda (_g3388833891_ _g3388933894_) + ___stx4717547176_)))) + (let ((___kont4717847179_ + (lambda (_L34049_) + (let ((__tmp50940 (gx#datum->syntax '#f 'let)) + (__tmp50937 + (let ((__tmp50938 + (let ((__tmp50939 + (lambda (_g3406534068_ _g3406634071_) (let () (declare (not safe)) - (cons _g3388833891_ - _g3388933894_))))) + (cons _g3406534068_ + _g3406634071_))))) (declare (not safe)) - (foldr1 __tmp50728 '() _L33872_)))) + (foldr1 __tmp50939 '() _L34049_)))) (declare (not safe)) - (cons '() __tmp50727)))) + (cons '() __tmp50938)))) (declare (not safe)) - (cons __tmp50729 __tmp50726)))) - (___kont4700547006_ - (lambda (_L33649_ _L33651_ _L33652_) - (let* ((_g3367533683_ - (lambda (_g3367633679_) + (cons __tmp50940 __tmp50937)))) + (___kont4718247183_ + (lambda (_L33826_ _L33828_ _L33829_) + (let* ((_g3385233860_ + (lambda (_g3385333856_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3367633679_))) - (_g3367433803_ - (lambda (_g3367633687_) - ((lambda (_L33690_) + _g3385333856_))) + (_g3385133980_ + (lambda (_g3385333864_) + ((lambda (_L33867_) (let () - (let* ((_g3370233719_ - (lambda (_g3370333715_) + (let* ((_g3387933896_ + (lambda (_g3388033892_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3370333715_))) - (_g3370133783_ - (lambda (_g3370333723_) - (if (gx#stx-pair/null? _g3370333723_) - (let ((_g50730_ + _g3388033892_))) + (_g3387833960_ + (lambda (_g3388033900_) + (if (gx#stx-pair/null? _g3388033900_) + (let ((_g50941_ (gx#syntax-split-splice - _g3370333723_ + _g3388033900_ '0))) (begin - (let ((_g50731_ + (let ((_g50942_ (let () (declare (not safe)) (if (##values? - _g50730_) + _g50941_) (##vector-length - _g50730_) + _g50941_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g50731_ 2))) - (error "Context expects 2 values" _g50731_))) + (##fx= _g50942_ 2))) + (error "Context expects 2 values" _g50942_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3370533726_ + (let ((_target3388233903_ (let () (declare (not safe)) (##vector-ref - _g50730_ + _g50941_ 0))) - (_tl3370733729_ + (_tl3388433906_ (let () (declare (not safe)) (##vector-ref - _g50730_ + _g50941_ 1)))) (if (gx#stx-null? - _tl3370733729_) - (letrec ((_loop3370833732_ + _tl3388433906_) + (letrec ((_loop3388533909_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd3370633736_ _arg3371233739_) - (if (gx#stx-pair? _hd3370633736_) - (let ((_e3370933742_ - (gx#syntax-e _hd3370633736_))) - (let ((_lp-hd3371033746_ + (lambda (_hd3388333913_ _arg3388933916_) + (if (gx#stx-pair? _hd3388333913_) + (let ((_e3388633919_ + (gx#syntax-e _hd3388333913_))) + (let ((_lp-hd3388733923_ (let () (declare (not safe)) - (##car _e3370933742_))) - (_lp-tl3371133749_ + (##car _e3388633919_))) + (_lp-tl3388833926_ (let () (declare (not safe)) - (##cdr _e3370933742_)))) - (_loop3370833732_ - _lp-tl3371133749_ + (##cdr _e3388633919_)))) + (_loop3388533909_ + _lp-tl3388833926_ (let () (declare (not safe)) - (cons _lp-hd3371033746_ - _arg3371233739_))))) - (let ((_arg3371333752_ - (reverse _arg3371233739_))) - ((lambda (_L33756_) + (cons _lp-hd3388733923_ + _arg3388933916_))))) + (let ((_arg3389033929_ + (reverse _arg3388933916_))) + ((lambda (_L33933_) (let () (let () - (let ((__tmp50735 + (let ((__tmp50946 (gx#datum->syntax '#f 'call-with-parameters)) - (__tmp50732 - (let ((__tmp50733 - (let ((__tmp50734 - (lambda (_g3377433777_ + (__tmp50943 + (let ((__tmp50944 + (let ((__tmp50945 + (lambda (_g3395133954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3377533780_) + _g3395233957_) (let () (declare (not safe)) - (cons _g3377433777_ _g3377533780_))))) + (cons _g3395133954_ _g3395233957_))))) (declare (not safe)) - (foldr1 __tmp50734 '() _L33756_)))) + (foldr1 __tmp50945 '() _L33933_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L33690_ __tmp50733)))) + (cons _L33867_ __tmp50944)))) (declare (not safe)) - (cons __tmp50735 __tmp50732))))) - _arg3371333752_)))))) - (_loop3370833732_ _target3370533726_ '())) - (_g3370233719_ _g3370333723_))))) + (cons __tmp50946 __tmp50943))))) + _arg3389033929_)))))) + (_loop3388533909_ _target3388233903_ '())) + (_g3387933896_ _g3388033900_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3370233719_ _g3370333723_))))) - (_g3370133783_ - (let ((__tmp50738 + (_g3387933896_ _g3388033900_))))) + (_g3387833960_ + (let ((__tmp50949 (gx#syntax->list - (let ((__tmp50739 - (lambda (_g3378633789_ - _g3378733792_) + (let ((__tmp50950 + (lambda (_g3396333966_ + _g3396433969_) (let () (declare (not safe)) - (cons _g3378633789_ - _g3378733792_))))) + (cons _g3396333966_ + _g3396433969_))))) (declare (not safe)) - (foldr1 __tmp50739 + (foldr1 __tmp50950 '() - _L33652_)))) - (__tmp50736 + _L33829_)))) + (__tmp50947 (gx#syntax->list - (let ((__tmp50737 - (lambda (_g3379433797_ - _g3379533800_) + (let ((__tmp50948 + (lambda (_g3397133974_ + _g3397233977_) (let () (declare (not safe)) - (cons _g3379433797_ - _g3379533800_))))) + (cons _g3397133974_ + _g3397233977_))))) (declare (not safe)) - (foldr1 __tmp50737 + (foldr1 __tmp50948 '() - _L33651_))))) + _L33828_))))) (declare (not safe)) (foldr2 cons* '() - __tmp50738 - __tmp50736)))))) - _g3367633687_)))) - (_g3367433803_ + __tmp50949 + __tmp50947)))))) + _g3385333864_)))) + (_g3385133980_ (gx#stx-wrap-source - (let ((__tmp50743 (gx#datum->syntax '#f 'lambda)) - (__tmp50740 - (let ((__tmp50741 - (let ((__tmp50742 - (lambda (_g3380633809_ _g3380733812_) + (let ((__tmp50954 (gx#datum->syntax '#f 'lambda)) + (__tmp50951 + (let ((__tmp50952 + (let ((__tmp50953 + (lambda (_g3398333986_ _g3398433989_) (let () (declare (not safe)) - (cons _g3380633809_ - _g3380733812_))))) + (cons _g3398333986_ + _g3398433989_))))) (declare (not safe)) - (foldr1 __tmp50742 '() _L33649_)))) + (foldr1 __tmp50953 '() _L33826_)))) (declare (not safe)) - (cons '() __tmp50741)))) + (cons '() __tmp50952)))) (declare (not safe)) - (cons __tmp50743 __tmp50740)) - (gx#stx-source _stx33476_))))))) - (let* ((___match4705347054_ - (lambda (_e3350333545_ - _hd3350233549_ - _tl3350133552_ - _e3350633555_ - _hd3350533559_ - _tl3350433562_ - ___splice4700747008_ - _target3350733565_ - _tl3350933568_) - (letrec ((_loop3351033571_ - (lambda (_hd3350833575_ - _expr3351433578_ - _param3351533580_) - (if (gx#stx-pair? _hd3350833575_) - (let ((_e3351133583_ - (gx#syntax-e _hd3350833575_))) - (let ((_lp-tl3351333590_ + (cons __tmp50954 __tmp50951)) + (gx#stx-source _stx33653_))))))) + (let* ((___match4723047231_ + (lambda (_e3368033722_ + _hd3367933726_ + _tl3367833729_ + _e3368333732_ + _hd3368233736_ + _tl3368133739_ + ___splice4718447185_ + _target3368433742_ + _tl3368633745_) + (letrec ((_loop3368733748_ + (lambda (_hd3368533752_ + _expr3369133755_ + _param3369233757_) + (if (gx#stx-pair? _hd3368533752_) + (let ((_e3368833760_ + (gx#syntax-e _hd3368533752_))) + (let ((_lp-tl3369033767_ (let () (declare (not safe)) - (##cdr _e3351133583_))) - (_lp-hd3351233587_ + (##cdr _e3368833760_))) + (_lp-hd3368933764_ (let () (declare (not safe)) - (##car _e3351133583_)))) - (if (gx#stx-pair? _lp-hd3351233587_) - (let ((_e3352033593_ + (##car _e3368833760_)))) + (if (gx#stx-pair? _lp-hd3368933764_) + (let ((_e3369733770_ (gx#syntax-e - _lp-hd3351233587_))) - (let ((_tl3351833600_ + _lp-hd3368933764_))) + (let ((_tl3369533777_ (let () (declare (not safe)) - (##cdr _e3352033593_))) - (_hd3351933597_ + (##cdr _e3369733770_))) + (_hd3369633774_ (let () (declare (not safe)) - (##car _e3352033593_)))) + (##car _e3369733770_)))) (if (gx#stx-pair? - _tl3351833600_) - (let ((_e3352333603_ + _tl3369533777_) + (let ((_e3370033780_ (gx#syntax-e - _tl3351833600_))) - (let ((_tl3352133610_ + _tl3369533777_))) + (let ((_tl3369833787_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e3352333603_))) - (_hd3352233607_ - (let () (declare (not safe)) (##car _e3352333603_)))) - (if (gx#stx-null? _tl3352133610_) - (_loop3351033571_ - _lp-tl3351333590_ + (##cdr _e3370033780_))) + (_hd3369933784_ + (let () (declare (not safe)) (##car _e3370033780_)))) + (if (gx#stx-null? _tl3369833787_) + (_loop3368733748_ + _lp-tl3369033767_ (let () (declare (not safe)) - (cons _hd3352233607_ _expr3351433578_)) + (cons _hd3369933784_ _expr3369133755_)) (let () (declare (not safe)) - (cons _hd3351933597_ _param3351533580_))) - (let () (declare (not safe)) (_g3348033538_))))) + (cons _hd3369633774_ _param3369233757_))) + (let () (declare (not safe)) (_g3365733715_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3348033538_))))) + (_g3365733715_))))) (let () (declare (not safe)) - (_g3348033538_))))) - (let ((_param3351733616_ - (reverse _param3351533580_)) - (_expr3351633613_ - (reverse _expr3351433578_))) - (if (gx#stx-pair/null? _tl3350433562_) - (let ((___splice4700947010_ + (_g3365733715_))))) + (let ((_param3369433793_ + (reverse _param3369233757_)) + (_expr3369333790_ + (reverse _expr3369133755_))) + (if (gx#stx-pair/null? _tl3368133739_) + (let ((___splice4718647187_ (gx#syntax-split-splice - _tl3350433562_ + _tl3368133739_ '0))) - (let ((_tl3352633622_ + (let ((_tl3370333799_ (let () (declare (not safe)) (##vector-ref - ___splice4700947010_ + ___splice4718647187_ '1))) - (_target3352433619_ + (_target3370133796_ (let () (declare (not safe)) (##vector-ref - ___splice4700947010_ + ___splice4718647187_ '0)))) - (if (gx#stx-null? _tl3352633622_) - (letrec ((_loop3352733625_ - (lambda (_hd3352533629_ + (if (gx#stx-null? _tl3370333799_) + (letrec ((_loop3370433802_ + (lambda (_hd3370233806_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3353133632_) - (if (gx#stx-pair? _hd3352533629_) - (let ((_e3352833635_ (gx#syntax-e _hd3352533629_))) - (let ((_lp-tl3353033642_ + _body3370833809_) + (if (gx#stx-pair? _hd3370233806_) + (let ((_e3370533812_ (gx#syntax-e _hd3370233806_))) + (let ((_lp-tl3370733819_ (let () (declare (not safe)) - (##cdr _e3352833635_))) - (_lp-hd3352933639_ + (##cdr _e3370533812_))) + (_lp-hd3370633816_ (let () (declare (not safe)) - (##car _e3352833635_)))) - (_loop3352733625_ - _lp-tl3353033642_ + (##car _e3370533812_)))) + (_loop3370433802_ + _lp-tl3370733819_ (let () (declare (not safe)) - (cons _lp-hd3352933639_ _body3353133632_))))) - (let ((_body3353233645_ (reverse _body3353133632_))) - (___kont4700547006_ - _body3353233645_ - _expr3351633613_ - _param3351733616_)))))) + (cons _lp-hd3370633816_ _body3370833809_))))) + (let ((_body3370933822_ (reverse _body3370833809_))) + (___kont4718247183_ + _body3370933822_ + _expr3369333790_ + _param3369433793_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3352733625_ - _target3352433619_ + (_loop3370433802_ + _target3370133796_ '())) (let () (declare (not safe)) - (_g3348033538_))))) + (_g3365733715_))))) (let () (declare (not safe)) - (_g3348033538_)))))))) - (_loop3351033571_ _target3350733565_ '() '())))) - (___match4703347034_ - (lambda (_e3348533822_ - _hd3348433826_ - _tl3348333829_ - _e3348833832_ - _hd3348733836_ - _tl3348633839_ - ___splice4700347004_ - _target3348933842_ - _tl3349133845_) - (letrec ((_loop3349233848_ - (lambda (_hd3349033852_ _body3349633855_) - (if (gx#stx-pair? _hd3349033852_) - (let ((_e3349333858_ - (gx#syntax-e _hd3349033852_))) - (let ((_lp-tl3349533865_ + (_g3365733715_)))))))) + (_loop3368733748_ _target3368433742_ '() '())))) + (___match4721047211_ + (lambda (_e3366233999_ + _hd3366134003_ + _tl3366034006_ + _e3366534009_ + _hd3366434013_ + _tl3366334016_ + ___splice4718047181_ + _target3366634019_ + _tl3366834022_) + (letrec ((_loop3366934025_ + (lambda (_hd3366734029_ _body3367334032_) + (if (gx#stx-pair? _hd3366734029_) + (let ((_e3367034035_ + (gx#syntax-e _hd3366734029_))) + (let ((_lp-tl3367234042_ (let () (declare (not safe)) - (##cdr _e3349333858_))) - (_lp-hd3349433862_ + (##cdr _e3367034035_))) + (_lp-hd3367134039_ (let () (declare (not safe)) - (##car _e3349333858_)))) - (_loop3349233848_ - _lp-tl3349533865_ + (##car _e3367034035_)))) + (_loop3366934025_ + _lp-tl3367234042_ (let () (declare (not safe)) - (cons _lp-hd3349433862_ - _body3349633855_))))) - (let ((_body3349733868_ - (reverse _body3349633855_))) - (___kont4700147002_ - _body3349733868_)))))) - (_loop3349233848_ _target3348933842_ '()))))) - (if (gx#stx-pair? ___stx4699846999_) - (let ((_e3348533822_ (gx#syntax-e ___stx4699846999_))) - (let ((_tl3348333829_ - (let () (declare (not safe)) (##cdr _e3348533822_))) - (_hd3348433826_ - (let () (declare (not safe)) (##car _e3348533822_)))) - (if (gx#stx-pair? _tl3348333829_) - (let ((_e3348833832_ (gx#syntax-e _tl3348333829_))) - (let ((_tl3348633839_ + (cons _lp-hd3367134039_ + _body3367334032_))))) + (let ((_body3367434045_ + (reverse _body3367334032_))) + (___kont4717847179_ + _body3367434045_)))))) + (_loop3366934025_ _target3366634019_ '()))))) + (if (gx#stx-pair? ___stx4717547176_) + (let ((_e3366233999_ (gx#syntax-e ___stx4717547176_))) + (let ((_tl3366034006_ + (let () (declare (not safe)) (##cdr _e3366233999_))) + (_hd3366134003_ + (let () (declare (not safe)) (##car _e3366233999_)))) + (if (gx#stx-pair? _tl3366034006_) + (let ((_e3366534009_ (gx#syntax-e _tl3366034006_))) + (let ((_tl3366334016_ (let () (declare (not safe)) - (##cdr _e3348833832_))) - (_hd3348733836_ + (##cdr _e3366534009_))) + (_hd3366434013_ (let () (declare (not safe)) - (##car _e3348833832_)))) - (if (gx#stx-null? _hd3348733836_) - (if (gx#stx-pair/null? _tl3348633839_) - (let ((___splice4700347004_ + (##car _e3366534009_)))) + (if (gx#stx-null? _hd3366434013_) + (if (gx#stx-pair/null? _tl3366334016_) + (let ((___splice4718047181_ (gx#syntax-split-splice - _tl3348633839_ + _tl3366334016_ '0))) - (let ((_tl3349133845_ + (let ((_tl3366834022_ (let () (declare (not safe)) (##vector-ref - ___splice4700347004_ + ___splice4718047181_ '1))) - (_target3348933842_ + (_target3366634019_ (let () (declare (not safe)) (##vector-ref - ___splice4700347004_ + ___splice4718047181_ '0)))) - (if (gx#stx-null? _tl3349133845_) - (___match4703347034_ - _e3348533822_ - _hd3348433826_ - _tl3348333829_ - _e3348833832_ - _hd3348733836_ - _tl3348633839_ - ___splice4700347004_ - _target3348933842_ - _tl3349133845_) + (if (gx#stx-null? _tl3366834022_) + (___match4721047211_ + _e3366233999_ + _hd3366134003_ + _tl3366034006_ + _e3366534009_ + _hd3366434013_ + _tl3366334016_ + ___splice4718047181_ + _target3366634019_ + _tl3366834022_) (if (gx#stx-pair/null? - _hd3348733836_) - (let ((___splice4700747008_ + _hd3366434013_) + (let ((___splice4718447185_ (gx#syntax-split-splice - _hd3348733836_ + _hd3366434013_ '0))) - (let ((_tl3350933568_ + (let ((_tl3368633745_ (let () (declare (not safe)) (##vector-ref - ___splice4700747008_ + ___splice4718447185_ '1))) - (_target3350733565_ + (_target3368433742_ (let () (declare (not safe)) (##vector-ref - ___splice4700747008_ + ___splice4718447185_ '0)))) (if (gx#stx-null? - _tl3350933568_) - (___match4705347054_ - _e3348533822_ - _hd3348433826_ - _tl3348333829_ - _e3348833832_ - _hd3348733836_ - _tl3348633839_ - ___splice4700747008_ - _target3350733565_ - _tl3350933568_) + _tl3368633745_) + (___match4723047231_ + _e3366233999_ + _hd3366134003_ + _tl3366034006_ + _e3366534009_ + _hd3366434013_ + _tl3366334016_ + ___splice4718447185_ + _target3368433742_ + _tl3368633745_) (let () (declare (not safe)) - (_g3348033538_))))) + (_g3365733715_))))) (let () (declare (not safe)) - (_g3348033538_)))))) - (if (gx#stx-pair/null? _hd3348733836_) - (let ((___splice4700747008_ + (_g3365733715_)))))) + (if (gx#stx-pair/null? _hd3366434013_) + (let ((___splice4718447185_ (gx#syntax-split-splice - _hd3348733836_ + _hd3366434013_ '0))) - (let ((_tl3350933568_ + (let ((_tl3368633745_ (let () (declare (not safe)) (##vector-ref - ___splice4700747008_ + ___splice4718447185_ '1))) - (_target3350733565_ + (_target3368433742_ (let () (declare (not safe)) (##vector-ref - ___splice4700747008_ + ___splice4718447185_ '0)))) - (if (gx#stx-null? _tl3350933568_) - (___match4705347054_ - _e3348533822_ - _hd3348433826_ - _tl3348333829_ - _e3348833832_ - _hd3348733836_ - _tl3348633839_ - ___splice4700747008_ - _target3350733565_ - _tl3350933568_) + (if (gx#stx-null? _tl3368633745_) + (___match4723047231_ + _e3366233999_ + _hd3366134003_ + _tl3366034006_ + _e3366534009_ + _hd3366434013_ + _tl3366334016_ + ___splice4718447185_ + _target3368433742_ + _tl3368633745_) (let () (declare (not safe)) - (_g3348033538_))))) + (_g3365733715_))))) (let () (declare (not safe)) - (_g3348033538_)))) - (if (gx#stx-pair/null? _hd3348733836_) - (let ((___splice4700747008_ + (_g3365733715_)))) + (if (gx#stx-pair/null? _hd3366434013_) + (let ((___splice4718447185_ (gx#syntax-split-splice - _hd3348733836_ + _hd3366434013_ '0))) - (let ((_tl3350933568_ + (let ((_tl3368633745_ (let () (declare (not safe)) (##vector-ref - ___splice4700747008_ + ___splice4718447185_ '1))) - (_target3350733565_ + (_target3368433742_ (let () (declare (not safe)) (##vector-ref - ___splice4700747008_ + ___splice4718447185_ '0)))) - (if (gx#stx-null? _tl3350933568_) - (___match4705347054_ - _e3348533822_ - _hd3348433826_ - _tl3348333829_ - _e3348833832_ - _hd3348733836_ - _tl3348633839_ - ___splice4700747008_ - _target3350733565_ - _tl3350933568_) + (if (gx#stx-null? _tl3368633745_) + (___match4723047231_ + _e3366233999_ + _hd3366134003_ + _tl3366034006_ + _e3366534009_ + _hd3366434013_ + _tl3366334016_ + ___splice4718447185_ + _target3368433742_ + _tl3368633745_) (let () (declare (not safe)) - (_g3348033538_))))) + (_g3365733715_))))) (let () (declare (not safe)) - (_g3348033538_)))))) - (let () (declare (not safe)) (_g3348033538_))))) - (let () (declare (not safe)) (_g3348033538_)))))))) + (_g3365733715_)))))) + (let () (declare (not safe)) (_g3365733715_))))) + (let () (declare (not safe)) (_g3365733715_)))))))) (define |gerbil/core$[:0:]#let/cc| - (lambda (_$stx33905_) - (let* ((_g3390933933_ - (lambda (_g3391033929_) + (lambda (_$stx34082_) + (let* ((_g3408634110_ + (lambda (_g3408734106_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3391033929_))) - (_g3390834018_ - (lambda (_g3391033937_) - (if (gx#stx-pair? _g3391033937_) - (let ((_e3391533940_ (gx#syntax-e _g3391033937_))) - (let ((_hd3391433944_ + _g3408734106_))) + (_g3408534195_ + (lambda (_g3408734114_) + (if (gx#stx-pair? _g3408734114_) + (let ((_e3409234117_ (gx#syntax-e _g3408734114_))) + (let ((_hd3409134121_ (let () (declare (not safe)) - (##car _e3391533940_))) - (_tl3391333947_ + (##car _e3409234117_))) + (_tl3409034124_ (let () (declare (not safe)) - (##cdr _e3391533940_)))) - (if (gx#stx-pair? _tl3391333947_) - (let ((_e3391833950_ (gx#syntax-e _tl3391333947_))) - (let ((_hd3391733954_ + (##cdr _e3409234117_)))) + (if (gx#stx-pair? _tl3409034124_) + (let ((_e3409534127_ (gx#syntax-e _tl3409034124_))) + (let ((_hd3409434131_ (let () (declare (not safe)) - (##car _e3391833950_))) - (_tl3391633957_ + (##car _e3409534127_))) + (_tl3409334134_ (let () (declare (not safe)) - (##cdr _e3391833950_)))) - (if (gx#stx-pair/null? _tl3391633957_) - (let ((_g50744_ + (##cdr _e3409534127_)))) + (if (gx#stx-pair/null? _tl3409334134_) + (let ((_g50955_ (gx#syntax-split-splice - _tl3391633957_ + _tl3409334134_ '0))) (begin - (let ((_g50745_ + (let ((_g50956_ (let () (declare (not safe)) - (if (##values? _g50744_) - (##vector-length _g50744_) + (if (##values? _g50955_) + (##vector-length _g50955_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50745_ 2))) + (##fx= _g50956_ 2))) (error "Context expects 2 values" - _g50745_))) - (let ((_target3391933960_ + _g50956_))) + (let ((_target3409634137_ (let () (declare (not safe)) - (##vector-ref _g50744_ 0))) - (_tl3392133963_ + (##vector-ref _g50955_ 0))) + (_tl3409834140_ (let () (declare (not safe)) - (##vector-ref _g50744_ 1)))) - (if (gx#stx-null? _tl3392133963_) - (letrec ((_loop3392233966_ - (lambda (_hd3392033970_ + (##vector-ref _g50955_ 1)))) + (if (gx#stx-null? _tl3409834140_) + (letrec ((_loop3409934143_ + (lambda (_hd3409734147_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3392633973_) - (if (gx#stx-pair? _hd3392033970_) - (let ((_e3392333976_ (gx#syntax-e _hd3392033970_))) - (let ((_lp-hd3392433980_ + _body3410334150_) + (if (gx#stx-pair? _hd3409734147_) + (let ((_e3410034153_ (gx#syntax-e _hd3409734147_))) + (let ((_lp-hd3410134157_ (let () (declare (not safe)) - (##car _e3392333976_))) - (_lp-tl3392533983_ + (##car _e3410034153_))) + (_lp-tl3410234160_ (let () (declare (not safe)) - (##cdr _e3392333976_)))) - (_loop3392233966_ - _lp-tl3392533983_ + (##cdr _e3410034153_)))) + (_loop3409934143_ + _lp-tl3410234160_ (let () (declare (not safe)) - (cons _lp-hd3392433980_ _body3392633973_))))) - (let ((_body3392733986_ (reverse _body3392633973_))) - ((lambda (_L33990_ _L33992_) - (if (gx#identifier? _L33992_) - (let ((__tmp50753 + (cons _lp-hd3410134157_ _body3410334150_))))) + (let ((_body3410434163_ (reverse _body3410334150_))) + ((lambda (_L34167_ _L34169_) + (if (gx#identifier? _L34169_) + (let ((__tmp50964 (gx#datum->syntax '#f 'call/cc)) - (__tmp50746 - (let ((__tmp50747 - (let ((__tmp50752 + (__tmp50957 + (let ((__tmp50958 + (let ((__tmp50963 (gx#datum->syntax '#f 'lambda)) - (__tmp50748 - (let ((__tmp50751 + (__tmp50959 + (let ((__tmp50962 (let () (declare (not safe)) - (cons _L33992_ + (cons _L34169_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50749 - (let ((__tmp50750 - (lambda (_g3400934012_ _g3401034015_) + (__tmp50960 + (let ((__tmp50961 + (lambda (_g3418634189_ _g3418734192_) (let () (declare (not safe)) - (cons _g3400934012_ _g3401034015_))))) + (cons _g3418634189_ _g3418734192_))))) (declare (not safe)) - (foldr1 __tmp50750 '() _L33990_)))) + (foldr1 __tmp50961 '() _L34167_)))) (declare (not safe)) - (cons __tmp50751 __tmp50749)))) + (cons __tmp50962 __tmp50960)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50752 __tmp50748)))) + (cons __tmp50963 __tmp50959)))) (declare (not safe)) - (cons __tmp50747 '())))) + (cons __tmp50958 '())))) (declare (not safe)) - (cons __tmp50753 __tmp50746)) - (_g3390933933_ _g3391033937_))) - _body3392733986_ - _hd3391733954_)))))) + (cons __tmp50964 __tmp50957)) + (_g3408634110_ _g3408734114_))) + _body3410434163_ + _hd3409434131_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3392233966_ - _target3391933960_ + (_loop3409934143_ + _target3409634137_ '())) - (_g3390933933_ _g3391033937_))))) - (_g3390933933_ _g3391033937_)))) - (_g3390933933_ _g3391033937_)))) - (_g3390933933_ _g3391033937_))))) - (_g3390834018_ _$stx33905_)))) + (_g3408634110_ _g3408734114_))))) + (_g3408634110_ _g3408734114_)))) + (_g3408634110_ _g3408734114_)))) + (_g3408634110_ _g3408734114_))))) + (_g3408534195_ _$stx34082_)))) (define |gerbil/core$[:0:]#let/esc| - (lambda (_$stx34023_) - (let* ((_g3402734051_ - (lambda (_g3402834047_) + (lambda (_$stx34200_) + (let* ((_g3420434228_ + (lambda (_g3420534224_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3402834047_))) - (_g3402634136_ - (lambda (_g3402834055_) - (if (gx#stx-pair? _g3402834055_) - (let ((_e3403334058_ (gx#syntax-e _g3402834055_))) - (let ((_hd3403234062_ + _g3420534224_))) + (_g3420334313_ + (lambda (_g3420534232_) + (if (gx#stx-pair? _g3420534232_) + (let ((_e3421034235_ (gx#syntax-e _g3420534232_))) + (let ((_hd3420934239_ (let () (declare (not safe)) - (##car _e3403334058_))) - (_tl3403134065_ + (##car _e3421034235_))) + (_tl3420834242_ (let () (declare (not safe)) - (##cdr _e3403334058_)))) - (if (gx#stx-pair? _tl3403134065_) - (let ((_e3403634068_ (gx#syntax-e _tl3403134065_))) - (let ((_hd3403534072_ + (##cdr _e3421034235_)))) + (if (gx#stx-pair? _tl3420834242_) + (let ((_e3421334245_ (gx#syntax-e _tl3420834242_))) + (let ((_hd3421234249_ (let () (declare (not safe)) - (##car _e3403634068_))) - (_tl3403434075_ + (##car _e3421334245_))) + (_tl3421134252_ (let () (declare (not safe)) - (##cdr _e3403634068_)))) - (if (gx#stx-pair/null? _tl3403434075_) - (let ((_g50754_ + (##cdr _e3421334245_)))) + (if (gx#stx-pair/null? _tl3421134252_) + (let ((_g50965_ (gx#syntax-split-splice - _tl3403434075_ + _tl3421134252_ '0))) (begin - (let ((_g50755_ + (let ((_g50966_ (let () (declare (not safe)) - (if (##values? _g50754_) - (##vector-length _g50754_) + (if (##values? _g50965_) + (##vector-length _g50965_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50755_ 2))) + (##fx= _g50966_ 2))) (error "Context expects 2 values" - _g50755_))) - (let ((_target3403734078_ + _g50966_))) + (let ((_target3421434255_ (let () (declare (not safe)) - (##vector-ref _g50754_ 0))) - (_tl3403934081_ + (##vector-ref _g50965_ 0))) + (_tl3421634258_ (let () (declare (not safe)) - (##vector-ref _g50754_ 1)))) - (if (gx#stx-null? _tl3403934081_) - (letrec ((_loop3404034084_ - (lambda (_hd3403834088_ + (##vector-ref _g50965_ 1)))) + (if (gx#stx-null? _tl3421634258_) + (letrec ((_loop3421734261_ + (lambda (_hd3421534265_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body3404434091_) - (if (gx#stx-pair? _hd3403834088_) - (let ((_e3404134094_ (gx#syntax-e _hd3403834088_))) - (let ((_lp-hd3404234098_ + _body3422134268_) + (if (gx#stx-pair? _hd3421534265_) + (let ((_e3421834271_ (gx#syntax-e _hd3421534265_))) + (let ((_lp-hd3421934275_ (let () (declare (not safe)) - (##car _e3404134094_))) - (_lp-tl3404334101_ + (##car _e3421834271_))) + (_lp-tl3422034278_ (let () (declare (not safe)) - (##cdr _e3404134094_)))) - (_loop3404034084_ - _lp-tl3404334101_ + (##cdr _e3421834271_)))) + (_loop3421734261_ + _lp-tl3422034278_ (let () (declare (not safe)) - (cons _lp-hd3404234098_ _body3404434091_))))) - (let ((_body3404534104_ (reverse _body3404434091_))) - ((lambda (_L34108_ _L34110_) - (if (gx#identifier? _L34110_) - (let ((__tmp50763 + (cons _lp-hd3421934275_ _body3422134268_))))) + (let ((_body3422234281_ (reverse _body3422134268_))) + ((lambda (_L34285_ _L34287_) + (if (gx#identifier? _L34287_) + (let ((__tmp50974 (gx#datum->syntax '#f 'call/esc)) - (__tmp50756 - (let ((__tmp50757 - (let ((__tmp50762 + (__tmp50967 + (let ((__tmp50968 + (let ((__tmp50973 (gx#datum->syntax '#f 'lambda)) - (__tmp50758 - (let ((__tmp50761 + (__tmp50969 + (let ((__tmp50972 (let () (declare (not safe)) - (cons _L34110_ + (cons _L34287_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp50759 - (let ((__tmp50760 - (lambda (_g3412734130_ _g3412834133_) + (__tmp50970 + (let ((__tmp50971 + (lambda (_g3430434307_ _g3430534310_) (let () (declare (not safe)) - (cons _g3412734130_ _g3412834133_))))) + (cons _g3430434307_ _g3430534310_))))) (declare (not safe)) - (foldr1 __tmp50760 '() _L34108_)))) + (foldr1 __tmp50971 '() _L34285_)))) (declare (not safe)) - (cons __tmp50761 __tmp50759)))) + (cons __tmp50972 __tmp50970)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50762 __tmp50758)))) + (cons __tmp50973 __tmp50969)))) (declare (not safe)) - (cons __tmp50757 '())))) + (cons __tmp50968 '())))) (declare (not safe)) - (cons __tmp50763 __tmp50756)) - (_g3402734051_ _g3402834055_))) - _body3404534104_ - _hd3403534072_)))))) + (cons __tmp50974 __tmp50967)) + (_g3420434228_ _g3420534232_))) + _body3422234281_ + _hd3421234249_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3404034084_ - _target3403734078_ + (_loop3421734261_ + _target3421434255_ '())) - (_g3402734051_ _g3402834055_))))) - (_g3402734051_ _g3402834055_)))) - (_g3402734051_ _g3402834055_)))) - (_g3402734051_ _g3402834055_))))) - (_g3402634136_ _$stx34023_)))) + (_g3420434228_ _g3420534232_))))) + (_g3420434228_ _g3420534232_)))) + (_g3420434228_ _g3420534232_)))) + (_g3420434228_ _g3420534232_))))) + (_g3420334313_ _$stx34200_)))) (define |gerbil/core$[:0:]#unwind-protect| - (lambda (_$stx34141_) - (let* ((_g3414534173_ - (lambda (_g3414634169_) + (lambda (_$stx34318_) + (let* ((_g3432234350_ + (lambda (_g3432334346_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3414634169_))) - (_g3414434272_ - (lambda (_g3414634177_) - (if (gx#stx-pair? _g3414634177_) - (let ((_e3415234180_ (gx#syntax-e _g3414634177_))) - (let ((_hd3415134184_ + _g3432334346_))) + (_g3432134449_ + (lambda (_g3432334354_) + (if (gx#stx-pair? _g3432334354_) + (let ((_e3432934357_ (gx#syntax-e _g3432334354_))) + (let ((_hd3432834361_ (let () (declare (not safe)) - (##car _e3415234180_))) - (_tl3415034187_ + (##car _e3432934357_))) + (_tl3432734364_ (let () (declare (not safe)) - (##cdr _e3415234180_)))) - (if (gx#stx-pair? _tl3415034187_) - (let ((_e3415534190_ (gx#syntax-e _tl3415034187_))) - (let ((_hd3415434194_ + (##cdr _e3432934357_)))) + (if (gx#stx-pair? _tl3432734364_) + (let ((_e3433234367_ (gx#syntax-e _tl3432734364_))) + (let ((_hd3433134371_ (let () (declare (not safe)) - (##car _e3415534190_))) - (_tl3415334197_ + (##car _e3433234367_))) + (_tl3433034374_ (let () (declare (not safe)) - (##cdr _e3415534190_)))) - (if (gx#stx-pair? _tl3415334197_) - (let ((_e3415834200_ - (gx#syntax-e _tl3415334197_))) - (let ((_hd3415734204_ + (##cdr _e3433234367_)))) + (if (gx#stx-pair? _tl3433034374_) + (let ((_e3433534377_ + (gx#syntax-e _tl3433034374_))) + (let ((_hd3433434381_ (let () (declare (not safe)) - (##car _e3415834200_))) - (_tl3415634207_ + (##car _e3433534377_))) + (_tl3433334384_ (let () (declare (not safe)) - (##cdr _e3415834200_)))) - (if (gx#stx-pair/null? _tl3415634207_) - (let ((_g50764_ + (##cdr _e3433534377_)))) + (if (gx#stx-pair/null? _tl3433334384_) + (let ((_g50975_ (gx#syntax-split-splice - _tl3415634207_ + _tl3433334384_ '0))) (begin - (let ((_g50765_ + (let ((_g50976_ (let () (declare (not safe)) (if (##values? - _g50764_) + _g50975_) (##vector-length - _g50764_) + _g50975_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50765_ + (##fx= _g50976_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g50765_))) + (error "Context expects 2 values" _g50976_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target3415934210_ + (let ((_target3433634387_ (let () (declare (not safe)) (##vector-ref - _g50764_ + _g50975_ 0))) - (_tl3416134213_ + (_tl3433834390_ (let () (declare (not safe)) (##vector-ref - _g50764_ + _g50975_ 1)))) (if (gx#stx-null? - _tl3416134213_) - (letrec ((_loop3416234216_ - (lambda (_hd3416034220_ + _tl3433834390_) + (letrec ((_loop3433934393_ + (lambda (_hd3433734397_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _rest3416634223_) - (if (gx#stx-pair? _hd3416034220_) - (let ((_e3416334226_ - (gx#syntax-e _hd3416034220_))) - (let ((_lp-hd3416434230_ + _rest3434334400_) + (if (gx#stx-pair? _hd3433734397_) + (let ((_e3434034403_ + (gx#syntax-e _hd3433734397_))) + (let ((_lp-hd3434134407_ (let () (declare (not safe)) - (##car _e3416334226_))) - (_lp-tl3416534233_ + (##car _e3434034403_))) + (_lp-tl3434234410_ (let () (declare (not safe)) - (##cdr _e3416334226_)))) - (_loop3416234216_ - _lp-tl3416534233_ + (##cdr _e3434034403_)))) + (_loop3433934393_ + _lp-tl3434234410_ (let () (declare (not safe)) - (cons _lp-hd3416434230_ - _rest3416634223_))))) - (let ((_rest3416734236_ - (reverse _rest3416634223_))) - ((lambda (_L34240_ _L34242_ _L34243_) - (let ((__tmp50778 + (cons _lp-hd3434134407_ + _rest3434334400_))))) + (let ((_rest3434434413_ + (reverse _rest3434334400_))) + ((lambda (_L34417_ _L34419_ _L34420_) + (let ((__tmp50989 (gx#datum->syntax '#f 'with-unwind-protect)) - (__tmp50766 - (let ((__tmp50774 - (let ((__tmp50777 + (__tmp50977 + (let ((__tmp50985 + (let ((__tmp50988 (gx#datum->syntax '#f 'lambda)) - (__tmp50775 - (let ((__tmp50776 + (__tmp50986 + (let ((__tmp50987 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L34243_ '())))) + (cons _L34420_ '())))) (declare (not safe)) - (cons '() __tmp50776)))) + (cons '() __tmp50987)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50777 - __tmp50775))) - (__tmp50767 - (let ((__tmp50768 - (let ((__tmp50773 + (cons __tmp50988 + __tmp50986))) + (__tmp50978 + (let ((__tmp50979 + (let ((__tmp50984 (gx#datum->syntax '#f 'lambda)) - (__tmp50769 - (let ((__tmp50770 + (__tmp50980 + (let ((__tmp50981 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp50771 - (let ((__tmp50772 - (lambda (_g3426334266_ - _g3426434269_) + (let ((__tmp50982 + (let ((__tmp50983 + (lambda (_g3444034443_ + _g3444134446_) (let () (declare (not safe)) - (cons _g3426334266_ - _g3426434269_))))) + (cons _g3444034443_ + _g3444134446_))))) (declare (not safe)) - (foldr1 __tmp50772 '() _L34240_)))) + (foldr1 __tmp50983 '() _L34417_)))) (declare (not safe)) - (cons _L34242_ __tmp50771)))) + (cons _L34419_ __tmp50982)))) (declare (not safe)) - (cons '() __tmp50770)))) + (cons '() __tmp50981)))) (declare (not safe)) - (cons __tmp50773 __tmp50769)))) + (cons __tmp50984 __tmp50980)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50768 '())))) + (cons __tmp50979 '())))) (declare (not safe)) - (cons __tmp50774 __tmp50767)))) + (cons __tmp50985 __tmp50978)))) (declare (not safe)) - (cons __tmp50778 __tmp50766))) - _rest3416734236_ - _hd3415734204_ - _hd3415434194_)))))) - (_loop3416234216_ _target3415934210_ '())) - (_g3414534173_ _g3414634177_))))) + (cons __tmp50989 __tmp50977))) + _rest3434434413_ + _hd3433434381_ + _hd3433134371_)))))) + (_loop3433934393_ _target3433634387_ '())) + (_g3432234350_ _g3432334354_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3414534173_ _g3414634177_)))) - (_g3414534173_ _g3414634177_)))) - (_g3414534173_ _g3414634177_)))) - (_g3414534173_ _g3414634177_))))) - (_g3414434272_ _$stx34141_)))) + (_g3432234350_ _g3432334354_)))) + (_g3432234350_ _g3432334354_)))) + (_g3432234350_ _g3432334354_)))) + (_g3432234350_ _g3432334354_))))) + (_g3432134449_ _$stx34318_)))) (define |gerbil/core$[:0:]#@bytes| - (lambda (_stx34277_) - (let* ((_g3428034294_ - (lambda (_g3428134290_) + (lambda (_stx34454_) + (let* ((_g3445734471_ + (lambda (_g3445834467_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3428134290_))) - (_g3427934366_ - (lambda (_g3428134298_) - (if (gx#stx-pair? _g3428134298_) - (let ((_e3428534301_ (gx#syntax-e _g3428134298_))) - (let ((_hd3428434305_ + _g3445834467_))) + (_g3445634543_ + (lambda (_g3445834475_) + (if (gx#stx-pair? _g3445834475_) + (let ((_e3446234478_ (gx#syntax-e _g3445834475_))) + (let ((_hd3446134482_ (let () (declare (not safe)) - (##car _e3428534301_))) - (_tl3428334308_ + (##car _e3446234478_))) + (_tl3446034485_ (let () (declare (not safe)) - (##cdr _e3428534301_)))) - (if (gx#stx-pair? _tl3428334308_) - (let ((_e3428834311_ (gx#syntax-e _tl3428334308_))) - (let ((_hd3428734315_ + (##cdr _e3446234478_)))) + (if (gx#stx-pair? _tl3446034485_) + (let ((_e3446534488_ (gx#syntax-e _tl3446034485_))) + (let ((_hd3446434492_ (let () (declare (not safe)) - (##car _e3428834311_))) - (_tl3428634318_ + (##car _e3446534488_))) + (_tl3446334495_ (let () (declare (not safe)) - (##cdr _e3428834311_)))) - (if (gx#stx-null? _tl3428634318_) - ((lambda (_L34321_) - (if (gx#stx-string? _L34321_) - (let* ((_g3433534343_ - (lambda (_g3433634339_) + (##cdr _e3446534488_)))) + (if (gx#stx-null? _tl3446334495_) + ((lambda (_L34498_) + (if (gx#stx-string? _L34498_) + (let* ((_g3451234520_ + (lambda (_g3451334516_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3433634339_))) - (_g3433434362_ - (lambda (_g3433634347_) - ((lambda (_L34350_) + _g3451334516_))) + (_g3451134539_ + (lambda (_g3451334524_) + ((lambda (_L34527_) (let () - (let ((__tmp50780 + (let ((__tmp50991 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp50779 - (let () (declare (not safe)) (cons _L34350_ '())))) + (__tmp50990 + (let () (declare (not safe)) (cons _L34527_ '())))) (declare (not safe)) - (cons __tmp50780 __tmp50779)))) - _g3433634347_)))) + (cons __tmp50991 __tmp50990)))) + _g3451334524_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3433434362_ + (_g3451134539_ (string->bytes - (gx#stx-e _L34321_)))) - (_g3428034294_ _g3428134298_))) - _hd3428734315_) - (_g3428034294_ _g3428134298_)))) - (_g3428034294_ _g3428134298_)))) - (_g3428034294_ _g3428134298_))))) - (_g3427934366_ _stx34277_))))) + (gx#stx-e _L34498_)))) + (_g3445734471_ _g3445834475_))) + _hd3446434492_) + (_g3445734471_ _g3445834475_)))) + (_g3445734471_ _g3445834475_)))) + (_g3445734471_ _g3445834475_))))) + (_g3445634543_ _stx34454_))))) diff --git a/src/bootstrap/gerbil/core__13.scm b/src/bootstrap/gerbil/core__13.scm index 6840a0f33..abe98903b 100644 --- a/src/bootstrap/gerbil/core__13.scm +++ b/src/bootstrap/gerbil/core__13.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[2]#_g50783_| + (define |gerbil/core$[2]#_g50994_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50785_| + (define |gerbil/core$[2]#_g50996_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50787_| + (define |gerbil/core$[2]#_g50998_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50789_| + (define |gerbil/core$[2]#_g51000_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50793_| + (define |gerbil/core$[2]#_g51004_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50797_| + (define |gerbil/core$[2]#_g51008_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50801_| + (define |gerbil/core$[2]#_g51012_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50805_| + (define |gerbil/core$[2]#_g51016_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50809_| + (define |gerbil/core$[2]#_g51020_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50811_| + (define |gerbil/core$[2]#_g51022_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50813_| + (define |gerbil/core$[2]#_g51024_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50817_| + (define |gerbil/core$[2]#_g51028_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50821_| + (define |gerbil/core$[2]#_g51032_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50825_| + (define |gerbil/core$[2]#_g51036_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[2]#_g50829_| + (define |gerbil/core$[2]#_g51040_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core$[:1:]#setq-macro| - (let ((__obj47361 + (let ((__obj47538 (let () (declare (not safe)) (##structure @@ -125,11 +125,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47361 + __obj47538 'gerbil.core#setq-macro::t '1 gerbil/core$$#class-type-info::t @@ -137,7 +138,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47361 + __obj47538 'setq-macro '2 gerbil/core$$#class-type-info::t @@ -145,26 +146,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47361 + __obj47538 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50781 - (let ((__tmp50782 |gerbil/core$[2]#_g50783_|)) + (let ((__tmp50992 + (let ((__tmp50993 |gerbil/core$[2]#_g50994_|)) (declare (not safe)) - (cons __tmp50782 '())))) + (cons __tmp50993 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50781 + __obj47538 + __tmp50992 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47361 + __obj47538 '#f '5 gerbil/core$$#class-type-info::t @@ -172,7 +173,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47361 + __obj47538 '#f '6 gerbil/core$$#class-type-info::t @@ -180,98 +181,106 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47361 + __obj47538 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50784 |gerbil/core$[2]#_g50785_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50784 + __obj47538 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50786 |gerbil/core$[2]#_g50787_|)) + (let ((__tmp50995 |gerbil/core$[2]#_g50996_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50786 + __obj47538 + __tmp50995 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50788 |gerbil/core$[2]#_g50789_|)) + (let ((__tmp50997 |gerbil/core$[2]#_g50998_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50788 + __obj47538 + __tmp50997 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50790 - (let ((__tmp50791 - (let ((__tmp50792 - |gerbil/core$[2]#_g50793_|)) - (declare (not safe)) - (cons 'macro __tmp50792)))) - (declare (not safe)) - (cons __tmp50791 '())))) + (let ((__tmp50999 |gerbil/core$[2]#_g51000_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50790 + __obj47538 + __tmp50999 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50794 - (let ((__tmp50795 - (let ((__tmp50796 - |gerbil/core$[2]#_g50797_|)) + (let ((__tmp51001 + (let ((__tmp51002 + (let ((__tmp51003 + |gerbil/core$[2]#_g51004_|)) (declare (not safe)) - (cons 'macro __tmp50796)))) + (cons 'macro __tmp51003)))) (declare (not safe)) - (cons __tmp50795 '())))) + (cons __tmp51002 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50794 + __obj47538 + __tmp51001 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50798 - (let ((__tmp50799 - (let ((__tmp50800 - |gerbil/core$[2]#_g50801_|)) + (let ((__tmp51005 + (let ((__tmp51006 + (let ((__tmp51007 + |gerbil/core$[2]#_g51008_|)) (declare (not safe)) - (cons 'macro __tmp50800)))) + (cons 'macro __tmp51007)))) (declare (not safe)) - (cons __tmp50799 '())))) + (cons __tmp51006 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50798 + __obj47538 + __tmp51005 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50802 - (let ((__tmp50803 - (let ((__tmp50804 - |gerbil/core$[2]#_g50805_|)) + (let ((__tmp51009 + (let ((__tmp51010 + (let ((__tmp51011 + |gerbil/core$[2]#_g51012_|)) (declare (not safe)) - (cons 'macro __tmp50804)))) + (cons 'macro __tmp51011)))) (declare (not safe)) - (cons __tmp50803 '())))) + (cons __tmp51010 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47361 - __tmp50802 + __obj47538 + __tmp51009 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47361)) + (let ((__tmp51013 + (let ((__tmp51014 + (let ((__tmp51015 + |gerbil/core$[2]#_g51016_|)) + (declare (not safe)) + (cons 'macro __tmp51015)))) + (declare (not safe)) + (cons __tmp51014 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj47538 + __tmp51013 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj47538)) (define |gerbil/core$[:1:]#setf-macro| - (let ((__obj47362 + (let ((__obj47539 (let () (declare (not safe)) (##structure @@ -289,11 +298,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47362 + __obj47539 'gerbil.core#setf-macro::t '1 gerbil/core$$#class-type-info::t @@ -301,7 +311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47362 + __obj47539 'setf-macro '2 gerbil/core$$#class-type-info::t @@ -309,26 +319,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47362 + __obj47539 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50806 - (let ((__tmp50807 |gerbil/core$[2]#_g50783_|)) + (let ((__tmp51017 + (let ((__tmp51018 |gerbil/core$[2]#_g50994_|)) (declare (not safe)) - (cons __tmp50807 '())))) + (cons __tmp51018 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50806 + __obj47539 + __tmp51017 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47362 + __obj47539 '#f '5 gerbil/core$$#class-type-info::t @@ -336,7 +346,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47362 + __obj47539 '#f '6 gerbil/core$$#class-type-info::t @@ -344,93 +354,101 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47362 + __obj47539 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50808 |gerbil/core$[2]#_g50809_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50808 + __obj47539 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50810 |gerbil/core$[2]#_g50811_|)) + (let ((__tmp51019 |gerbil/core$[2]#_g51020_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50810 + __obj47539 + __tmp51019 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50812 |gerbil/core$[2]#_g50813_|)) + (let ((__tmp51021 |gerbil/core$[2]#_g51022_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50812 + __obj47539 + __tmp51021 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50814 - (let ((__tmp50815 - (let ((__tmp50816 - |gerbil/core$[2]#_g50817_|)) - (declare (not safe)) - (cons 'macro __tmp50816)))) - (declare (not safe)) - (cons __tmp50815 '())))) + (let ((__tmp51023 |gerbil/core$[2]#_g51024_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50814 + __obj47539 + __tmp51023 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50818 - (let ((__tmp50819 - (let ((__tmp50820 - |gerbil/core$[2]#_g50821_|)) + (let ((__tmp51025 + (let ((__tmp51026 + (let ((__tmp51027 + |gerbil/core$[2]#_g51028_|)) (declare (not safe)) - (cons 'macro __tmp50820)))) + (cons 'macro __tmp51027)))) (declare (not safe)) - (cons __tmp50819 '())))) + (cons __tmp51026 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50818 + __obj47539 + __tmp51025 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50822 - (let ((__tmp50823 - (let ((__tmp50824 - |gerbil/core$[2]#_g50825_|)) + (let ((__tmp51029 + (let ((__tmp51030 + (let ((__tmp51031 + |gerbil/core$[2]#_g51032_|)) (declare (not safe)) - (cons 'macro __tmp50824)))) + (cons 'macro __tmp51031)))) (declare (not safe)) - (cons __tmp50823 '())))) + (cons __tmp51030 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50822 + __obj47539 + __tmp51029 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp50826 - (let ((__tmp50827 - (let ((__tmp50828 - |gerbil/core$[2]#_g50829_|)) + (let ((__tmp51033 + (let ((__tmp51034 + (let ((__tmp51035 + |gerbil/core$[2]#_g51036_|)) (declare (not safe)) - (cons 'macro __tmp50828)))) + (cons 'macro __tmp51035)))) (declare (not safe)) - (cons __tmp50827 '())))) + (cons __tmp51034 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47362 - __tmp50826 + __obj47539 + __tmp51033 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47362)))) + (let ((__tmp51037 + (let ((__tmp51038 + (let ((__tmp51039 + |gerbil/core$[2]#_g51040_|)) + (declare (not safe)) + (cons 'macro __tmp51039)))) + (declare (not safe)) + (cons __tmp51038 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj47539 + __tmp51037 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj47539)))) diff --git a/src/bootstrap/gerbil/core__14.scm b/src/bootstrap/gerbil/core__14.scm index 976217fe7..3a71063f7 100644 --- a/src/bootstrap/gerbil/core__14.scm +++ b/src/bootstrap/gerbil/core__14.scm @@ -1,52 +1,52 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#identifier-rules| - (lambda (_$stx34373_) - (let* ((_g3437734388_ - (lambda (_g3437834384_) + (lambda (_$stx34550_) + (let* ((_g3455434565_ + (lambda (_g3455534561_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3437834384_))) - (_g3437634418_ - (lambda (_g3437834392_) - (if (gx#stx-pair? _g3437834392_) - (let ((_e3438234395_ (gx#syntax-e _g3437834392_))) - (let ((_hd3438134399_ + _g3455534561_))) + (_g3455334595_ + (lambda (_g3455534569_) + (if (gx#stx-pair? _g3455534569_) + (let ((_e3455934572_ (gx#syntax-e _g3455534569_))) + (let ((_hd3455834576_ (let () (declare (not safe)) - (##car _e3438234395_))) - (_tl3438034402_ + (##car _e3455934572_))) + (_tl3455734579_ (let () (declare (not safe)) - (##cdr _e3438234395_)))) - ((lambda (_L34405_) - (let ((__tmp50834 + (##cdr _e3455934572_)))) + ((lambda (_L34582_) + (let ((__tmp51045 (gx#datum->syntax '#f 'make-setq-macro)) - (__tmp50830 - (let ((__tmp50831 - (let ((__tmp50832 - (let ((__tmp50833 + (__tmp51041 + (let ((__tmp51042 + (let ((__tmp51043 + (let ((__tmp51044 (gx#datum->syntax '#f 'syntax-rules))) (declare (not safe)) - (cons __tmp50833 _L34405_)))) + (cons __tmp51044 _L34582_)))) (declare (not safe)) - (cons __tmp50832 '())))) + (cons __tmp51043 '())))) (declare (not safe)) - (cons 'macro: __tmp50831)))) + (cons 'macro: __tmp51042)))) (declare (not safe)) - (cons __tmp50834 __tmp50830))) - _tl3438034402_))) - (_g3437734388_ _g3437834392_))))) - (_g3437634418_ _$stx34373_)))) + (cons __tmp51045 __tmp51041))) + _tl3455734579_))) + (_g3455434565_ _g3455534569_))))) + (_g3455334595_ _$stx34550_)))) (define |gerbil/core$[:0:]#quasisyntax| - (lambda (_$stx34422_) - (let ((_g3442534432_ - (lambda (_g3442634428_) + (lambda (_$stx34599_) + (let ((_g3460234609_ + (lambda (_g3460334605_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3442634428_)))) - (_g3442534432_ _$stx34422_))))) + _g3460334605_)))) + (_g3460234609_ _$stx34599_))))) diff --git a/src/bootstrap/gerbil/core__15.scm b/src/bootstrap/gerbil/core__15.scm index b7cbf95fa..89e69903d 100644 --- a/src/bootstrap/gerbil/core__15.scm +++ b/src/bootstrap/gerbil/core__15.scm @@ -1,3257 +1,3257 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$[:0:]#require| - (lambda (_$stx34437_) - (let* ((___stx4705647057_ _$stx34437_) - (_g3444234461_ + (lambda (_$stx34614_) + (let* ((___stx4723347234_ _$stx34614_) + (_g3461934638_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4705647057_)))) - (let ((___kont4705947060_ + ___stx4723347234_)))) + (let ((___kont4723647237_ (lambda () - (let ((__tmp50835 (gx#datum->syntax '#f 'begin))) + (let ((__tmp51046 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp50835 '())))) - (___kont4706147062_ - (lambda (_L34488_ _L34490_ _L34491_) - (let ((__tmp50848 (gx#datum->syntax '#f 'cond-expand)) - (__tmp50836 - (let ((__tmp50845 - (let ((__tmp50846 - (let ((__tmp50847 + (cons __tmp51046 '())))) + (___kont4723847239_ + (lambda (_L34665_ _L34667_ _L34668_) + (let ((__tmp51059 (gx#datum->syntax '#f 'cond-expand)) + (__tmp51047 + (let ((__tmp51056 + (let ((__tmp51057 + (let ((__tmp51058 (let () (declare (not safe)) - (cons _L34491_ _L34488_)))) + (cons _L34668_ _L34665_)))) (declare (not safe)) - (cons __tmp50847 '())))) + (cons __tmp51058 '())))) (declare (not safe)) - (cons _L34490_ __tmp50846))) - (__tmp50837 - (let ((__tmp50838 - (let ((__tmp50844 + (cons _L34667_ __tmp51057))) + (__tmp51048 + (let ((__tmp51049 + (let ((__tmp51055 (gx#datum->syntax '#f 'else)) - (__tmp50839 - (let ((__tmp50840 - (let ((__tmp50843 + (__tmp51050 + (let ((__tmp51051 + (let ((__tmp51054 (gx#datum->syntax '#f 'syntax-error)) - (__tmp50841 - (let ((__tmp50842 + (__tmp51052 + (let ((__tmp51053 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L34490_ '())))) + (let () (declare (not safe)) (cons _L34667_ '())))) (declare (not safe)) - (cons '"Missing required feature" __tmp50842)))) + (cons '"Missing required feature" __tmp51053)))) (declare (not safe)) - (cons __tmp50843 __tmp50841)))) + (cons __tmp51054 __tmp51052)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50840 '())))) + (cons __tmp51051 '())))) (declare (not safe)) - (cons __tmp50844 __tmp50839)))) + (cons __tmp51055 __tmp51050)))) (declare (not safe)) - (cons __tmp50838 '())))) + (cons __tmp51049 '())))) (declare (not safe)) - (cons __tmp50845 __tmp50837)))) + (cons __tmp51056 __tmp51048)))) (declare (not safe)) - (cons __tmp50848 __tmp50836))))) - (if (gx#stx-pair? ___stx4705647057_) - (let ((_e3444634514_ (gx#syntax-e ___stx4705647057_))) - (let ((_tl3444434521_ - (let () (declare (not safe)) (##cdr _e3444634514_))) - (_hd3444534518_ - (let () (declare (not safe)) (##car _e3444634514_)))) - (if (gx#stx-null? _tl3444434521_) - (___kont4705947060_) - (if (gx#stx-pair? _tl3444434521_) - (let ((_e3445534478_ (gx#syntax-e _tl3444434521_))) - (let ((_tl3445334485_ + (cons __tmp51059 __tmp51047))))) + (if (gx#stx-pair? ___stx4723347234_) + (let ((_e3462334691_ (gx#syntax-e ___stx4723347234_))) + (let ((_tl3462134698_ + (let () (declare (not safe)) (##cdr _e3462334691_))) + (_hd3462234695_ + (let () (declare (not safe)) (##car _e3462334691_)))) + (if (gx#stx-null? _tl3462134698_) + (___kont4723647237_) + (if (gx#stx-pair? _tl3462134698_) + (let ((_e3463234655_ (gx#syntax-e _tl3462134698_))) + (let ((_tl3463034662_ (let () (declare (not safe)) - (##cdr _e3445534478_))) - (_hd3445434482_ + (##cdr _e3463234655_))) + (_hd3463134659_ (let () (declare (not safe)) - (##car _e3445534478_)))) - (___kont4706147062_ - _tl3445334485_ - _hd3445434482_ - _hd3444534518_))) - (let () (declare (not safe)) (_g3444234461_)))))) - (let () (declare (not safe)) (_g3444234461_))))))) + (##car _e3463234655_)))) + (___kont4723847239_ + _tl3463034662_ + _hd3463134659_ + _hd3462234695_))) + (let () (declare (not safe)) (_g3461934638_)))))) + (let () (declare (not safe)) (_g3461934638_))))))) (define |gerbil/core$[:0:]#defsyntax-for-import| - (lambda (_$stx34532_) - (let* ((___stx4708647087_ _$stx34532_) - (_g3453734577_ + (lambda (_$stx34709_) + (let* ((___stx4726347264_ _$stx34709_) + (_g3471434754_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4708647087_)))) - (let ((___kont4708947090_ - (lambda (_L34715_ _L34717_) - (let ((__tmp50854 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50849 - (let ((__tmp50850 - (let ((__tmp50851 - (let ((__tmp50853 + ___stx4726347264_)))) + (let ((___kont4726647267_ + (lambda (_L34892_ _L34894_) + (let ((__tmp51065 (gx#datum->syntax '#f 'defsyntax)) + (__tmp51060 + (let ((__tmp51061 + (let ((__tmp51062 + (let ((__tmp51064 (gx#datum->syntax '#f 'make-import-expander)) - (__tmp50852 + (__tmp51063 (let () (declare (not safe)) - (cons _L34715_ '())))) + (cons _L34892_ '())))) (declare (not safe)) - (cons __tmp50853 __tmp50852)))) + (cons __tmp51064 __tmp51063)))) (declare (not safe)) - (cons __tmp50851 '())))) + (cons __tmp51062 '())))) (declare (not safe)) - (cons _L34717_ __tmp50850)))) + (cons _L34894_ __tmp51061)))) (declare (not safe)) - (cons __tmp50854 __tmp50849)))) - (___kont4709147092_ - (lambda (_L34644_ _L34646_ _L34647_ _L34648_) - (let ((__tmp50855 - (let ((__tmp50856 - (let ((__tmp50857 - (let ((__tmp50861 + (cons __tmp51065 __tmp51060)))) + (___kont4726847269_ + (lambda (_L34821_ _L34823_ _L34824_ _L34825_) + (let ((__tmp51066 + (let ((__tmp51067 + (let ((__tmp51068 + (let ((__tmp51072 (gx#datum->syntax '#f 'lambda)) - (__tmp50858 - (let ((__tmp50859 - (let ((__tmp50860 - (lambda (_g3466934672_ + (__tmp51069 + (let ((__tmp51070 + (let ((__tmp51071 + (lambda (_g3484634849_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3467034675_) + _g3484734852_) (let () (declare (not safe)) - (cons _g3466934672_ _g3467034675_))))) + (cons _g3484634849_ _g3484734852_))))) (declare (not safe)) - (foldr1 __tmp50860 '() _L34644_)))) + (foldr1 __tmp51071 '() _L34821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34646_ __tmp50859)))) + (cons _L34823_ __tmp51070)))) (declare (not safe)) - (cons __tmp50861 __tmp50858)))) + (cons __tmp51072 __tmp51069)))) (declare (not safe)) - (cons __tmp50857 '())))) + (cons __tmp51068 '())))) (declare (not safe)) - (cons _L34647_ __tmp50856)))) + (cons _L34824_ __tmp51067)))) (declare (not safe)) - (cons _L34648_ __tmp50855))))) - (let* ((___match4714147142_ - (lambda (_e3455634584_ - _hd3455534588_ - _tl3455434591_ - _e3455934594_ - _hd3455834598_ - _tl3455734601_ - _e3456234604_ - _hd3456134608_ - _tl3456034611_ - ___splice4709347094_ - _target3456334614_ - _tl3456534617_) - (letrec ((_loop3456634620_ - (lambda (_hd3456434624_ _body3457034627_) - (if (gx#stx-pair? _hd3456434624_) - (let ((_e3456734630_ - (gx#syntax-e _hd3456434624_))) - (let ((_lp-tl3456934637_ + (cons _L34825_ __tmp51066))))) + (let* ((___match4731847319_ + (lambda (_e3473334761_ + _hd3473234765_ + _tl3473134768_ + _e3473634771_ + _hd3473534775_ + _tl3473434778_ + _e3473934781_ + _hd3473834785_ + _tl3473734788_ + ___splice4727047271_ + _target3474034791_ + _tl3474234794_) + (letrec ((_loop3474334797_ + (lambda (_hd3474134801_ _body3474734804_) + (if (gx#stx-pair? _hd3474134801_) + (let ((_e3474434807_ + (gx#syntax-e _hd3474134801_))) + (let ((_lp-tl3474634814_ (let () (declare (not safe)) - (##cdr _e3456734630_))) - (_lp-hd3456834634_ + (##cdr _e3474434807_))) + (_lp-hd3474534811_ (let () (declare (not safe)) - (##car _e3456734630_)))) - (_loop3456634620_ - _lp-tl3456934637_ + (##car _e3474434807_)))) + (_loop3474334797_ + _lp-tl3474634814_ (let () (declare (not safe)) - (cons _lp-hd3456834634_ - _body3457034627_))))) - (let ((_body3457134640_ - (reverse _body3457034627_))) - (let ((_L34644_ _body3457134640_) - (_L34646_ _tl3456034611_) - (_L34647_ _hd3456134608_) - (_L34648_ _hd3455534588_)) - (if (gx#identifier? _L34647_) - (___kont4709147092_ - _L34644_ - _L34646_ - _L34647_ - _L34648_) + (cons _lp-hd3474534811_ + _body3474734804_))))) + (let ((_body3474834817_ + (reverse _body3474734804_))) + (let ((_L34821_ _body3474834817_) + (_L34823_ _tl3473734788_) + (_L34824_ _hd3473834785_) + (_L34825_ _hd3473234765_)) + (if (gx#identifier? _L34824_) + (___kont4726847269_ + _L34821_ + _L34823_ + _L34824_ + _L34825_) (let () (declare (not safe)) - (_g3453734577_))))))))) - (_loop3456634620_ _target3456334614_ '())))) - (___match4711547116_ - (lambda (_e3454334685_ - _hd3454234689_ - _tl3454134692_ - _e3454634695_ - _hd3454534699_ - _tl3454434702_ - _e3454934705_ - _hd3454834709_ - _tl3454734712_) - (let ((_L34715_ _hd3454834709_) (_L34717_ _hd3454534699_)) - (if (gx#identifier? _L34717_) - (___kont4708947090_ _L34715_ _L34717_) - (if (gx#stx-pair? _hd3454534699_) - (let ((_e3456234604_ - (gx#syntax-e _hd3454534699_))) - (let ((_tl3456034611_ + (_g3471434754_))))))))) + (_loop3474334797_ _target3474034791_ '())))) + (___match4729247293_ + (lambda (_e3472034862_ + _hd3471934866_ + _tl3471834869_ + _e3472334872_ + _hd3472234876_ + _tl3472134879_ + _e3472634882_ + _hd3472534886_ + _tl3472434889_) + (let ((_L34892_ _hd3472534886_) (_L34894_ _hd3472234876_)) + (if (gx#identifier? _L34894_) + (___kont4726647267_ _L34892_ _L34894_) + (if (gx#stx-pair? _hd3472234876_) + (let ((_e3473934781_ + (gx#syntax-e _hd3472234876_))) + (let ((_tl3473734788_ (let () (declare (not safe)) - (##cdr _e3456234604_))) - (_hd3456134608_ + (##cdr _e3473934781_))) + (_hd3473834785_ (let () (declare (not safe)) - (##car _e3456234604_)))) - (if (gx#stx-pair/null? _tl3454434702_) - (let ((___splice4709347094_ + (##car _e3473934781_)))) + (if (gx#stx-pair/null? _tl3472134879_) + (let ((___splice4727047271_ (gx#syntax-split-splice - _tl3454434702_ + _tl3472134879_ '0))) - (let ((_tl3456534617_ + (let ((_tl3474234794_ (let () (declare (not safe)) (##vector-ref - ___splice4709347094_ + ___splice4727047271_ '1))) - (_target3456334614_ + (_target3474034791_ (let () (declare (not safe)) (##vector-ref - ___splice4709347094_ + ___splice4727047271_ '0)))) - (if (gx#stx-null? _tl3456534617_) - (___match4714147142_ - _e3454334685_ - _hd3454234689_ - _tl3454134692_ - _e3454634695_ - _hd3454534699_ - _tl3454434702_ - _e3456234604_ - _hd3456134608_ - _tl3456034611_ - ___splice4709347094_ - _target3456334614_ - _tl3456534617_) + (if (gx#stx-null? _tl3474234794_) + (___match4731847319_ + _e3472034862_ + _hd3471934866_ + _tl3471834869_ + _e3472334872_ + _hd3472234876_ + _tl3472134879_ + _e3473934781_ + _hd3473834785_ + _tl3473734788_ + ___splice4727047271_ + _target3474034791_ + _tl3474234794_) (let () (declare (not safe)) - (_g3453734577_))))) + (_g3471434754_))))) (let () (declare (not safe)) - (_g3453734577_))))) + (_g3471434754_))))) (let () (declare (not safe)) - (_g3453734577_)))))))) - (if (gx#stx-pair? ___stx4708647087_) - (let ((_e3454334685_ (gx#syntax-e ___stx4708647087_))) - (let ((_tl3454134692_ - (let () (declare (not safe)) (##cdr _e3454334685_))) - (_hd3454234689_ - (let () (declare (not safe)) (##car _e3454334685_)))) - (if (gx#stx-pair? _tl3454134692_) - (let ((_e3454634695_ (gx#syntax-e _tl3454134692_))) - (let ((_tl3454434702_ + (_g3471434754_)))))))) + (if (gx#stx-pair? ___stx4726347264_) + (let ((_e3472034862_ (gx#syntax-e ___stx4726347264_))) + (let ((_tl3471834869_ + (let () (declare (not safe)) (##cdr _e3472034862_))) + (_hd3471934866_ + (let () (declare (not safe)) (##car _e3472034862_)))) + (if (gx#stx-pair? _tl3471834869_) + (let ((_e3472334872_ (gx#syntax-e _tl3471834869_))) + (let ((_tl3472134879_ (let () (declare (not safe)) - (##cdr _e3454634695_))) - (_hd3454534699_ + (##cdr _e3472334872_))) + (_hd3472234876_ (let () (declare (not safe)) - (##car _e3454634695_)))) - (if (gx#stx-pair? _tl3454434702_) - (let ((_e3454934705_ - (gx#syntax-e _tl3454434702_))) - (let ((_tl3454734712_ + (##car _e3472334872_)))) + (if (gx#stx-pair? _tl3472134879_) + (let ((_e3472634882_ + (gx#syntax-e _tl3472134879_))) + (let ((_tl3472434889_ (let () (declare (not safe)) - (##cdr _e3454934705_))) - (_hd3454834709_ + (##cdr _e3472634882_))) + (_hd3472534886_ (let () (declare (not safe)) - (##car _e3454934705_)))) - (if (gx#stx-null? _tl3454734712_) - (___match4711547116_ - _e3454334685_ - _hd3454234689_ - _tl3454134692_ - _e3454634695_ - _hd3454534699_ - _tl3454434702_ - _e3454934705_ - _hd3454834709_ - _tl3454734712_) - (if (gx#stx-pair? _hd3454534699_) - (let ((_e3456234604_ + (##car _e3472634882_)))) + (if (gx#stx-null? _tl3472434889_) + (___match4729247293_ + _e3472034862_ + _hd3471934866_ + _tl3471834869_ + _e3472334872_ + _hd3472234876_ + _tl3472134879_ + _e3472634882_ + _hd3472534886_ + _tl3472434889_) + (if (gx#stx-pair? _hd3472234876_) + (let ((_e3473934781_ (gx#syntax-e - _hd3454534699_))) - (let ((_tl3456034611_ + _hd3472234876_))) + (let ((_tl3473734788_ (let () (declare (not safe)) - (##cdr _e3456234604_))) - (_hd3456134608_ + (##cdr _e3473934781_))) + (_hd3473834785_ (let () (declare (not safe)) - (##car _e3456234604_)))) + (##car _e3473934781_)))) (if (gx#stx-pair/null? - _tl3454434702_) - (let ((___splice4709347094_ + _tl3472134879_) + (let ((___splice4727047271_ (gx#syntax-split-splice - _tl3454434702_ + _tl3472134879_ '0))) - (let ((_tl3456534617_ + (let ((_tl3474234794_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4709347094_ '1))) - (_target3456334614_ + (##vector-ref ___splice4727047271_ '1))) + (_target3474034791_ (let () (declare (not safe)) - (##vector-ref ___splice4709347094_ '0)))) - (if (gx#stx-null? _tl3456534617_) - (___match4714147142_ - _e3454334685_ - _hd3454234689_ - _tl3454134692_ - _e3454634695_ - _hd3454534699_ - _tl3454434702_ - _e3456234604_ - _hd3456134608_ - _tl3456034611_ - ___splice4709347094_ - _target3456334614_ - _tl3456534617_) - (let () (declare (not safe)) (_g3453734577_))))) + (##vector-ref ___splice4727047271_ '0)))) + (if (gx#stx-null? _tl3474234794_) + (___match4731847319_ + _e3472034862_ + _hd3471934866_ + _tl3471834869_ + _e3472334872_ + _hd3472234876_ + _tl3472134879_ + _e3473934781_ + _hd3473834785_ + _tl3473734788_ + ___splice4727047271_ + _target3474034791_ + _tl3474234794_) + (let () (declare (not safe)) (_g3471434754_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3453734577_))))) + (_g3471434754_))))) (let () (declare (not safe)) - (_g3453734577_)))))) - (if (gx#stx-pair? _hd3454534699_) - (let ((_e3456234604_ - (gx#syntax-e _hd3454534699_))) - (let ((_tl3456034611_ + (_g3471434754_)))))) + (if (gx#stx-pair? _hd3472234876_) + (let ((_e3473934781_ + (gx#syntax-e _hd3472234876_))) + (let ((_tl3473734788_ (let () (declare (not safe)) - (##cdr _e3456234604_))) - (_hd3456134608_ + (##cdr _e3473934781_))) + (_hd3473834785_ (let () (declare (not safe)) - (##car _e3456234604_)))) - (if (gx#stx-pair/null? _tl3454434702_) - (let ((___splice4709347094_ + (##car _e3473934781_)))) + (if (gx#stx-pair/null? _tl3472134879_) + (let ((___splice4727047271_ (gx#syntax-split-splice - _tl3454434702_ + _tl3472134879_ '0))) - (let ((_tl3456534617_ + (let ((_tl3474234794_ (let () (declare (not safe)) (##vector-ref - ___splice4709347094_ + ___splice4727047271_ '1))) - (_target3456334614_ + (_target3474034791_ (let () (declare (not safe)) (##vector-ref - ___splice4709347094_ + ___splice4727047271_ '0)))) (if (gx#stx-null? - _tl3456534617_) - (___match4714147142_ - _e3454334685_ - _hd3454234689_ - _tl3454134692_ - _e3454634695_ - _hd3454534699_ - _tl3454434702_ - _e3456234604_ - _hd3456134608_ - _tl3456034611_ - ___splice4709347094_ - _target3456334614_ - _tl3456534617_) + _tl3474234794_) + (___match4731847319_ + _e3472034862_ + _hd3471934866_ + _tl3471834869_ + _e3472334872_ + _hd3472234876_ + _tl3472134879_ + _e3473934781_ + _hd3473834785_ + _tl3473734788_ + ___splice4727047271_ + _target3474034791_ + _tl3474234794_) (let () (declare (not safe)) - (_g3453734577_))))) + (_g3471434754_))))) (let () (declare (not safe)) - (_g3453734577_))))) + (_g3471434754_))))) (let () (declare (not safe)) - (_g3453734577_)))))) - (let () (declare (not safe)) (_g3453734577_))))) - (let () (declare (not safe)) (_g3453734577_)))))))) + (_g3471434754_)))))) + (let () (declare (not safe)) (_g3471434754_))))) + (let () (declare (not safe)) (_g3471434754_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-export| - (lambda (_$stx34737_) - (let* ((___stx4714447145_ _$stx34737_) - (_g3474234782_ + (lambda (_$stx34914_) + (let* ((___stx4732147322_ _$stx34914_) + (_g3491934959_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4714447145_)))) - (let ((___kont4714747148_ - (lambda (_L34920_ _L34922_) - (let ((__tmp50867 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50862 - (let ((__tmp50863 - (let ((__tmp50864 - (let ((__tmp50866 + ___stx4732147322_)))) + (let ((___kont4732447325_ + (lambda (_L35097_ _L35099_) + (let ((__tmp51078 (gx#datum->syntax '#f 'defsyntax)) + (__tmp51073 + (let ((__tmp51074 + (let ((__tmp51075 + (let ((__tmp51077 (gx#datum->syntax '#f 'make-export-expander)) - (__tmp50865 + (__tmp51076 (let () (declare (not safe)) - (cons _L34920_ '())))) + (cons _L35097_ '())))) (declare (not safe)) - (cons __tmp50866 __tmp50865)))) + (cons __tmp51077 __tmp51076)))) (declare (not safe)) - (cons __tmp50864 '())))) + (cons __tmp51075 '())))) (declare (not safe)) - (cons _L34922_ __tmp50863)))) + (cons _L35099_ __tmp51074)))) (declare (not safe)) - (cons __tmp50867 __tmp50862)))) - (___kont4714947150_ - (lambda (_L34849_ _L34851_ _L34852_ _L34853_) - (let ((__tmp50868 - (let ((__tmp50869 - (let ((__tmp50870 - (let ((__tmp50874 + (cons __tmp51078 __tmp51073)))) + (___kont4732647327_ + (lambda (_L35026_ _L35028_ _L35029_ _L35030_) + (let ((__tmp51079 + (let ((__tmp51080 + (let ((__tmp51081 + (let ((__tmp51085 (gx#datum->syntax '#f 'lambda)) - (__tmp50871 - (let ((__tmp50872 - (let ((__tmp50873 - (lambda (_g3487434877_ + (__tmp51082 + (let ((__tmp51083 + (let ((__tmp51084 + (lambda (_g3505135054_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3487534880_) + _g3505235057_) (let () (declare (not safe)) - (cons _g3487434877_ _g3487534880_))))) + (cons _g3505135054_ _g3505235057_))))) (declare (not safe)) - (foldr1 __tmp50873 '() _L34849_)))) + (foldr1 __tmp51084 '() _L35026_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L34851_ __tmp50872)))) + (cons _L35028_ __tmp51083)))) (declare (not safe)) - (cons __tmp50874 __tmp50871)))) + (cons __tmp51085 __tmp51082)))) (declare (not safe)) - (cons __tmp50870 '())))) + (cons __tmp51081 '())))) (declare (not safe)) - (cons _L34852_ __tmp50869)))) + (cons _L35029_ __tmp51080)))) (declare (not safe)) - (cons _L34853_ __tmp50868))))) - (let* ((___match4719947200_ - (lambda (_e3476134789_ - _hd3476034793_ - _tl3475934796_ - _e3476434799_ - _hd3476334803_ - _tl3476234806_ - _e3476734809_ - _hd3476634813_ - _tl3476534816_ - ___splice4715147152_ - _target3476834819_ - _tl3477034822_) - (letrec ((_loop3477134825_ - (lambda (_hd3476934829_ _body3477534832_) - (if (gx#stx-pair? _hd3476934829_) - (let ((_e3477234835_ - (gx#syntax-e _hd3476934829_))) - (let ((_lp-tl3477434842_ + (cons _L35030_ __tmp51079))))) + (let* ((___match4737647377_ + (lambda (_e3493834966_ + _hd3493734970_ + _tl3493634973_ + _e3494134976_ + _hd3494034980_ + _tl3493934983_ + _e3494434986_ + _hd3494334990_ + _tl3494234993_ + ___splice4732847329_ + _target3494534996_ + _tl3494734999_) + (letrec ((_loop3494835002_ + (lambda (_hd3494635006_ _body3495235009_) + (if (gx#stx-pair? _hd3494635006_) + (let ((_e3494935012_ + (gx#syntax-e _hd3494635006_))) + (let ((_lp-tl3495135019_ (let () (declare (not safe)) - (##cdr _e3477234835_))) - (_lp-hd3477334839_ + (##cdr _e3494935012_))) + (_lp-hd3495035016_ (let () (declare (not safe)) - (##car _e3477234835_)))) - (_loop3477134825_ - _lp-tl3477434842_ + (##car _e3494935012_)))) + (_loop3494835002_ + _lp-tl3495135019_ (let () (declare (not safe)) - (cons _lp-hd3477334839_ - _body3477534832_))))) - (let ((_body3477634845_ - (reverse _body3477534832_))) - (let ((_L34849_ _body3477634845_) - (_L34851_ _tl3476534816_) - (_L34852_ _hd3476634813_) - (_L34853_ _hd3476034793_)) - (if (gx#identifier? _L34852_) - (___kont4714947150_ - _L34849_ - _L34851_ - _L34852_ - _L34853_) + (cons _lp-hd3495035016_ + _body3495235009_))))) + (let ((_body3495335022_ + (reverse _body3495235009_))) + (let ((_L35026_ _body3495335022_) + (_L35028_ _tl3494234993_) + (_L35029_ _hd3494334990_) + (_L35030_ _hd3493734970_)) + (if (gx#identifier? _L35029_) + (___kont4732647327_ + _L35026_ + _L35028_ + _L35029_ + _L35030_) (let () (declare (not safe)) - (_g3474234782_))))))))) - (_loop3477134825_ _target3476834819_ '())))) - (___match4717347174_ - (lambda (_e3474834890_ - _hd3474734894_ - _tl3474634897_ - _e3475134900_ - _hd3475034904_ - _tl3474934907_ - _e3475434910_ - _hd3475334914_ - _tl3475234917_) - (let ((_L34920_ _hd3475334914_) (_L34922_ _hd3475034904_)) - (if (gx#identifier? _L34922_) - (___kont4714747148_ _L34920_ _L34922_) - (if (gx#stx-pair? _hd3475034904_) - (let ((_e3476734809_ - (gx#syntax-e _hd3475034904_))) - (let ((_tl3476534816_ + (_g3491934959_))))))))) + (_loop3494835002_ _target3494534996_ '())))) + (___match4735047351_ + (lambda (_e3492535067_ + _hd3492435071_ + _tl3492335074_ + _e3492835077_ + _hd3492735081_ + _tl3492635084_ + _e3493135087_ + _hd3493035091_ + _tl3492935094_) + (let ((_L35097_ _hd3493035091_) (_L35099_ _hd3492735081_)) + (if (gx#identifier? _L35099_) + (___kont4732447325_ _L35097_ _L35099_) + (if (gx#stx-pair? _hd3492735081_) + (let ((_e3494434986_ + (gx#syntax-e _hd3492735081_))) + (let ((_tl3494234993_ (let () (declare (not safe)) - (##cdr _e3476734809_))) - (_hd3476634813_ + (##cdr _e3494434986_))) + (_hd3494334990_ (let () (declare (not safe)) - (##car _e3476734809_)))) - (if (gx#stx-pair/null? _tl3474934907_) - (let ((___splice4715147152_ + (##car _e3494434986_)))) + (if (gx#stx-pair/null? _tl3492635084_) + (let ((___splice4732847329_ (gx#syntax-split-splice - _tl3474934907_ + _tl3492635084_ '0))) - (let ((_tl3477034822_ + (let ((_tl3494734999_ (let () (declare (not safe)) (##vector-ref - ___splice4715147152_ + ___splice4732847329_ '1))) - (_target3476834819_ + (_target3494534996_ (let () (declare (not safe)) (##vector-ref - ___splice4715147152_ + ___splice4732847329_ '0)))) - (if (gx#stx-null? _tl3477034822_) - (___match4719947200_ - _e3474834890_ - _hd3474734894_ - _tl3474634897_ - _e3475134900_ - _hd3475034904_ - _tl3474934907_ - _e3476734809_ - _hd3476634813_ - _tl3476534816_ - ___splice4715147152_ - _target3476834819_ - _tl3477034822_) + (if (gx#stx-null? _tl3494734999_) + (___match4737647377_ + _e3492535067_ + _hd3492435071_ + _tl3492335074_ + _e3492835077_ + _hd3492735081_ + _tl3492635084_ + _e3494434986_ + _hd3494334990_ + _tl3494234993_ + ___splice4732847329_ + _target3494534996_ + _tl3494734999_) (let () (declare (not safe)) - (_g3474234782_))))) + (_g3491934959_))))) (let () (declare (not safe)) - (_g3474234782_))))) + (_g3491934959_))))) (let () (declare (not safe)) - (_g3474234782_)))))))) - (if (gx#stx-pair? ___stx4714447145_) - (let ((_e3474834890_ (gx#syntax-e ___stx4714447145_))) - (let ((_tl3474634897_ - (let () (declare (not safe)) (##cdr _e3474834890_))) - (_hd3474734894_ - (let () (declare (not safe)) (##car _e3474834890_)))) - (if (gx#stx-pair? _tl3474634897_) - (let ((_e3475134900_ (gx#syntax-e _tl3474634897_))) - (let ((_tl3474934907_ + (_g3491934959_)))))))) + (if (gx#stx-pair? ___stx4732147322_) + (let ((_e3492535067_ (gx#syntax-e ___stx4732147322_))) + (let ((_tl3492335074_ + (let () (declare (not safe)) (##cdr _e3492535067_))) + (_hd3492435071_ + (let () (declare (not safe)) (##car _e3492535067_)))) + (if (gx#stx-pair? _tl3492335074_) + (let ((_e3492835077_ (gx#syntax-e _tl3492335074_))) + (let ((_tl3492635084_ (let () (declare (not safe)) - (##cdr _e3475134900_))) - (_hd3475034904_ + (##cdr _e3492835077_))) + (_hd3492735081_ (let () (declare (not safe)) - (##car _e3475134900_)))) - (if (gx#stx-pair? _tl3474934907_) - (let ((_e3475434910_ - (gx#syntax-e _tl3474934907_))) - (let ((_tl3475234917_ + (##car _e3492835077_)))) + (if (gx#stx-pair? _tl3492635084_) + (let ((_e3493135087_ + (gx#syntax-e _tl3492635084_))) + (let ((_tl3492935094_ (let () (declare (not safe)) - (##cdr _e3475434910_))) - (_hd3475334914_ + (##cdr _e3493135087_))) + (_hd3493035091_ (let () (declare (not safe)) - (##car _e3475434910_)))) - (if (gx#stx-null? _tl3475234917_) - (___match4717347174_ - _e3474834890_ - _hd3474734894_ - _tl3474634897_ - _e3475134900_ - _hd3475034904_ - _tl3474934907_ - _e3475434910_ - _hd3475334914_ - _tl3475234917_) - (if (gx#stx-pair? _hd3475034904_) - (let ((_e3476734809_ + (##car _e3493135087_)))) + (if (gx#stx-null? _tl3492935094_) + (___match4735047351_ + _e3492535067_ + _hd3492435071_ + _tl3492335074_ + _e3492835077_ + _hd3492735081_ + _tl3492635084_ + _e3493135087_ + _hd3493035091_ + _tl3492935094_) + (if (gx#stx-pair? _hd3492735081_) + (let ((_e3494434986_ (gx#syntax-e - _hd3475034904_))) - (let ((_tl3476534816_ + _hd3492735081_))) + (let ((_tl3494234993_ (let () (declare (not safe)) - (##cdr _e3476734809_))) - (_hd3476634813_ + (##cdr _e3494434986_))) + (_hd3494334990_ (let () (declare (not safe)) - (##car _e3476734809_)))) + (##car _e3494434986_)))) (if (gx#stx-pair/null? - _tl3474934907_) - (let ((___splice4715147152_ + _tl3492635084_) + (let ((___splice4732847329_ (gx#syntax-split-splice - _tl3474934907_ + _tl3492635084_ '0))) - (let ((_tl3477034822_ + (let ((_tl3494734999_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4715147152_ '1))) - (_target3476834819_ + (##vector-ref ___splice4732847329_ '1))) + (_target3494534996_ (let () (declare (not safe)) - (##vector-ref ___splice4715147152_ '0)))) - (if (gx#stx-null? _tl3477034822_) - (___match4719947200_ - _e3474834890_ - _hd3474734894_ - _tl3474634897_ - _e3475134900_ - _hd3475034904_ - _tl3474934907_ - _e3476734809_ - _hd3476634813_ - _tl3476534816_ - ___splice4715147152_ - _target3476834819_ - _tl3477034822_) - (let () (declare (not safe)) (_g3474234782_))))) + (##vector-ref ___splice4732847329_ '0)))) + (if (gx#stx-null? _tl3494734999_) + (___match4737647377_ + _e3492535067_ + _hd3492435071_ + _tl3492335074_ + _e3492835077_ + _hd3492735081_ + _tl3492635084_ + _e3494434986_ + _hd3494334990_ + _tl3494234993_ + ___splice4732847329_ + _target3494534996_ + _tl3494734999_) + (let () (declare (not safe)) (_g3491934959_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3474234782_))))) + (_g3491934959_))))) (let () (declare (not safe)) - (_g3474234782_)))))) - (if (gx#stx-pair? _hd3475034904_) - (let ((_e3476734809_ - (gx#syntax-e _hd3475034904_))) - (let ((_tl3476534816_ + (_g3491934959_)))))) + (if (gx#stx-pair? _hd3492735081_) + (let ((_e3494434986_ + (gx#syntax-e _hd3492735081_))) + (let ((_tl3494234993_ (let () (declare (not safe)) - (##cdr _e3476734809_))) - (_hd3476634813_ + (##cdr _e3494434986_))) + (_hd3494334990_ (let () (declare (not safe)) - (##car _e3476734809_)))) - (if (gx#stx-pair/null? _tl3474934907_) - (let ((___splice4715147152_ + (##car _e3494434986_)))) + (if (gx#stx-pair/null? _tl3492635084_) + (let ((___splice4732847329_ (gx#syntax-split-splice - _tl3474934907_ + _tl3492635084_ '0))) - (let ((_tl3477034822_ + (let ((_tl3494734999_ (let () (declare (not safe)) (##vector-ref - ___splice4715147152_ + ___splice4732847329_ '1))) - (_target3476834819_ + (_target3494534996_ (let () (declare (not safe)) (##vector-ref - ___splice4715147152_ + ___splice4732847329_ '0)))) (if (gx#stx-null? - _tl3477034822_) - (___match4719947200_ - _e3474834890_ - _hd3474734894_ - _tl3474634897_ - _e3475134900_ - _hd3475034904_ - _tl3474934907_ - _e3476734809_ - _hd3476634813_ - _tl3476534816_ - ___splice4715147152_ - _target3476834819_ - _tl3477034822_) + _tl3494734999_) + (___match4737647377_ + _e3492535067_ + _hd3492435071_ + _tl3492335074_ + _e3492835077_ + _hd3492735081_ + _tl3492635084_ + _e3494434986_ + _hd3494334990_ + _tl3494234993_ + ___splice4732847329_ + _target3494534996_ + _tl3494734999_) (let () (declare (not safe)) - (_g3474234782_))))) + (_g3491934959_))))) (let () (declare (not safe)) - (_g3474234782_))))) + (_g3491934959_))))) (let () (declare (not safe)) - (_g3474234782_)))))) - (let () (declare (not safe)) (_g3474234782_))))) - (let () (declare (not safe)) (_g3474234782_)))))))) + (_g3491934959_)))))) + (let () (declare (not safe)) (_g3491934959_))))) + (let () (declare (not safe)) (_g3491934959_)))))))) (define |gerbil/core$[:0:]#defsyntax-for-import-export| - (lambda (_$stx34942_) - (let* ((___stx4720247203_ _$stx34942_) - (_g3494734987_ + (lambda (_$stx35119_) + (let* ((___stx4737947380_ _$stx35119_) + (_g3512435164_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4720247203_)))) - (let ((___kont4720547206_ - (lambda (_L35125_ _L35127_) - (let ((__tmp50880 (gx#datum->syntax '#f 'defsyntax)) - (__tmp50875 - (let ((__tmp50876 - (let ((__tmp50877 - (let ((__tmp50879 + ___stx4737947380_)))) + (let ((___kont4738247383_ + (lambda (_L35302_ _L35304_) + (let ((__tmp51091 (gx#datum->syntax '#f 'defsyntax)) + (__tmp51086 + (let ((__tmp51087 + (let ((__tmp51088 + (let ((__tmp51090 (gx#datum->syntax '#f 'make-import-export-expander)) - (__tmp50878 + (__tmp51089 (let () (declare (not safe)) - (cons _L35125_ '())))) + (cons _L35302_ '())))) (declare (not safe)) - (cons __tmp50879 __tmp50878)))) + (cons __tmp51090 __tmp51089)))) (declare (not safe)) - (cons __tmp50877 '())))) + (cons __tmp51088 '())))) (declare (not safe)) - (cons _L35127_ __tmp50876)))) + (cons _L35304_ __tmp51087)))) (declare (not safe)) - (cons __tmp50880 __tmp50875)))) - (___kont4720747208_ - (lambda (_L35054_ _L35056_ _L35057_ _L35058_) - (let ((__tmp50881 - (let ((__tmp50882 - (let ((__tmp50883 - (let ((__tmp50887 + (cons __tmp51091 __tmp51086)))) + (___kont4738447385_ + (lambda (_L35231_ _L35233_ _L35234_ _L35235_) + (let ((__tmp51092 + (let ((__tmp51093 + (let ((__tmp51094 + (let ((__tmp51098 (gx#datum->syntax '#f 'lambda)) - (__tmp50884 - (let ((__tmp50885 - (let ((__tmp50886 - (lambda (_g3507935082_ + (__tmp51095 + (let ((__tmp51096 + (let ((__tmp51097 + (lambda (_g3525635259_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g3508035085_) + _g3525735262_) (let () (declare (not safe)) - (cons _g3507935082_ _g3508035085_))))) + (cons _g3525635259_ _g3525735262_))))) (declare (not safe)) - (foldr1 __tmp50886 '() _L35054_)))) + (foldr1 __tmp51097 '() _L35231_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L35056_ __tmp50885)))) + (cons _L35233_ __tmp51096)))) (declare (not safe)) - (cons __tmp50887 __tmp50884)))) + (cons __tmp51098 __tmp51095)))) (declare (not safe)) - (cons __tmp50883 '())))) + (cons __tmp51094 '())))) (declare (not safe)) - (cons _L35057_ __tmp50882)))) + (cons _L35234_ __tmp51093)))) (declare (not safe)) - (cons _L35058_ __tmp50881))))) - (let* ((___match4725747258_ - (lambda (_e3496634994_ - _hd3496534998_ - _tl3496435001_ - _e3496935004_ - _hd3496835008_ - _tl3496735011_ - _e3497235014_ - _hd3497135018_ - _tl3497035021_ - ___splice4720947210_ - _target3497335024_ - _tl3497535027_) - (letrec ((_loop3497635030_ - (lambda (_hd3497435034_ _body3498035037_) - (if (gx#stx-pair? _hd3497435034_) - (let ((_e3497735040_ - (gx#syntax-e _hd3497435034_))) - (let ((_lp-tl3497935047_ + (cons _L35235_ __tmp51092))))) + (let* ((___match4743447435_ + (lambda (_e3514335171_ + _hd3514235175_ + _tl3514135178_ + _e3514635181_ + _hd3514535185_ + _tl3514435188_ + _e3514935191_ + _hd3514835195_ + _tl3514735198_ + ___splice4738647387_ + _target3515035201_ + _tl3515235204_) + (letrec ((_loop3515335207_ + (lambda (_hd3515135211_ _body3515735214_) + (if (gx#stx-pair? _hd3515135211_) + (let ((_e3515435217_ + (gx#syntax-e _hd3515135211_))) + (let ((_lp-tl3515635224_ (let () (declare (not safe)) - (##cdr _e3497735040_))) - (_lp-hd3497835044_ + (##cdr _e3515435217_))) + (_lp-hd3515535221_ (let () (declare (not safe)) - (##car _e3497735040_)))) - (_loop3497635030_ - _lp-tl3497935047_ + (##car _e3515435217_)))) + (_loop3515335207_ + _lp-tl3515635224_ (let () (declare (not safe)) - (cons _lp-hd3497835044_ - _body3498035037_))))) - (let ((_body3498135050_ - (reverse _body3498035037_))) - (let ((_L35054_ _body3498135050_) - (_L35056_ _tl3497035021_) - (_L35057_ _hd3497135018_) - (_L35058_ _hd3496534998_)) - (if (gx#identifier? _L35057_) - (___kont4720747208_ - _L35054_ - _L35056_ - _L35057_ - _L35058_) + (cons _lp-hd3515535221_ + _body3515735214_))))) + (let ((_body3515835227_ + (reverse _body3515735214_))) + (let ((_L35231_ _body3515835227_) + (_L35233_ _tl3514735198_) + (_L35234_ _hd3514835195_) + (_L35235_ _hd3514235175_)) + (if (gx#identifier? _L35234_) + (___kont4738447385_ + _L35231_ + _L35233_ + _L35234_ + _L35235_) (let () (declare (not safe)) - (_g3494734987_))))))))) - (_loop3497635030_ _target3497335024_ '())))) - (___match4723147232_ - (lambda (_e3495335095_ - _hd3495235099_ - _tl3495135102_ - _e3495635105_ - _hd3495535109_ - _tl3495435112_ - _e3495935115_ - _hd3495835119_ - _tl3495735122_) - (let ((_L35125_ _hd3495835119_) (_L35127_ _hd3495535109_)) - (if (gx#identifier? _L35127_) - (___kont4720547206_ _L35125_ _L35127_) - (if (gx#stx-pair? _hd3495535109_) - (let ((_e3497235014_ - (gx#syntax-e _hd3495535109_))) - (let ((_tl3497035021_ + (_g3512435164_))))))))) + (_loop3515335207_ _target3515035201_ '())))) + (___match4740847409_ + (lambda (_e3513035272_ + _hd3512935276_ + _tl3512835279_ + _e3513335282_ + _hd3513235286_ + _tl3513135289_ + _e3513635292_ + _hd3513535296_ + _tl3513435299_) + (let ((_L35302_ _hd3513535296_) (_L35304_ _hd3513235286_)) + (if (gx#identifier? _L35304_) + (___kont4738247383_ _L35302_ _L35304_) + (if (gx#stx-pair? _hd3513235286_) + (let ((_e3514935191_ + (gx#syntax-e _hd3513235286_))) + (let ((_tl3514735198_ (let () (declare (not safe)) - (##cdr _e3497235014_))) - (_hd3497135018_ + (##cdr _e3514935191_))) + (_hd3514835195_ (let () (declare (not safe)) - (##car _e3497235014_)))) - (if (gx#stx-pair/null? _tl3495435112_) - (let ((___splice4720947210_ + (##car _e3514935191_)))) + (if (gx#stx-pair/null? _tl3513135289_) + (let ((___splice4738647387_ (gx#syntax-split-splice - _tl3495435112_ + _tl3513135289_ '0))) - (let ((_tl3497535027_ + (let ((_tl3515235204_ (let () (declare (not safe)) (##vector-ref - ___splice4720947210_ + ___splice4738647387_ '1))) - (_target3497335024_ + (_target3515035201_ (let () (declare (not safe)) (##vector-ref - ___splice4720947210_ + ___splice4738647387_ '0)))) - (if (gx#stx-null? _tl3497535027_) - (___match4725747258_ - _e3495335095_ - _hd3495235099_ - _tl3495135102_ - _e3495635105_ - _hd3495535109_ - _tl3495435112_ - _e3497235014_ - _hd3497135018_ - _tl3497035021_ - ___splice4720947210_ - _target3497335024_ - _tl3497535027_) + (if (gx#stx-null? _tl3515235204_) + (___match4743447435_ + _e3513035272_ + _hd3512935276_ + _tl3512835279_ + _e3513335282_ + _hd3513235286_ + _tl3513135289_ + _e3514935191_ + _hd3514835195_ + _tl3514735198_ + ___splice4738647387_ + _target3515035201_ + _tl3515235204_) (let () (declare (not safe)) - (_g3494734987_))))) + (_g3512435164_))))) (let () (declare (not safe)) - (_g3494734987_))))) + (_g3512435164_))))) (let () (declare (not safe)) - (_g3494734987_)))))))) - (if (gx#stx-pair? ___stx4720247203_) - (let ((_e3495335095_ (gx#syntax-e ___stx4720247203_))) - (let ((_tl3495135102_ - (let () (declare (not safe)) (##cdr _e3495335095_))) - (_hd3495235099_ - (let () (declare (not safe)) (##car _e3495335095_)))) - (if (gx#stx-pair? _tl3495135102_) - (let ((_e3495635105_ (gx#syntax-e _tl3495135102_))) - (let ((_tl3495435112_ + (_g3512435164_)))))))) + (if (gx#stx-pair? ___stx4737947380_) + (let ((_e3513035272_ (gx#syntax-e ___stx4737947380_))) + (let ((_tl3512835279_ + (let () (declare (not safe)) (##cdr _e3513035272_))) + (_hd3512935276_ + (let () (declare (not safe)) (##car _e3513035272_)))) + (if (gx#stx-pair? _tl3512835279_) + (let ((_e3513335282_ (gx#syntax-e _tl3512835279_))) + (let ((_tl3513135289_ (let () (declare (not safe)) - (##cdr _e3495635105_))) - (_hd3495535109_ + (##cdr _e3513335282_))) + (_hd3513235286_ (let () (declare (not safe)) - (##car _e3495635105_)))) - (if (gx#stx-pair? _tl3495435112_) - (let ((_e3495935115_ - (gx#syntax-e _tl3495435112_))) - (let ((_tl3495735122_ + (##car _e3513335282_)))) + (if (gx#stx-pair? _tl3513135289_) + (let ((_e3513635292_ + (gx#syntax-e _tl3513135289_))) + (let ((_tl3513435299_ (let () (declare (not safe)) - (##cdr _e3495935115_))) - (_hd3495835119_ + (##cdr _e3513635292_))) + (_hd3513535296_ (let () (declare (not safe)) - (##car _e3495935115_)))) - (if (gx#stx-null? _tl3495735122_) - (___match4723147232_ - _e3495335095_ - _hd3495235099_ - _tl3495135102_ - _e3495635105_ - _hd3495535109_ - _tl3495435112_ - _e3495935115_ - _hd3495835119_ - _tl3495735122_) - (if (gx#stx-pair? _hd3495535109_) - (let ((_e3497235014_ + (##car _e3513635292_)))) + (if (gx#stx-null? _tl3513435299_) + (___match4740847409_ + _e3513035272_ + _hd3512935276_ + _tl3512835279_ + _e3513335282_ + _hd3513235286_ + _tl3513135289_ + _e3513635292_ + _hd3513535296_ + _tl3513435299_) + (if (gx#stx-pair? _hd3513235286_) + (let ((_e3514935191_ (gx#syntax-e - _hd3495535109_))) - (let ((_tl3497035021_ + _hd3513235286_))) + (let ((_tl3514735198_ (let () (declare (not safe)) - (##cdr _e3497235014_))) - (_hd3497135018_ + (##cdr _e3514935191_))) + (_hd3514835195_ (let () (declare (not safe)) - (##car _e3497235014_)))) + (##car _e3514935191_)))) (if (gx#stx-pair/null? - _tl3495435112_) - (let ((___splice4720947210_ + _tl3513135289_) + (let ((___splice4738647387_ (gx#syntax-split-splice - _tl3495435112_ + _tl3513135289_ '0))) - (let ((_tl3497535027_ + (let ((_tl3515235204_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4720947210_ '1))) - (_target3497335024_ + (##vector-ref ___splice4738647387_ '1))) + (_target3515035201_ (let () (declare (not safe)) - (##vector-ref ___splice4720947210_ '0)))) - (if (gx#stx-null? _tl3497535027_) - (___match4725747258_ - _e3495335095_ - _hd3495235099_ - _tl3495135102_ - _e3495635105_ - _hd3495535109_ - _tl3495435112_ - _e3497235014_ - _hd3497135018_ - _tl3497035021_ - ___splice4720947210_ - _target3497335024_ - _tl3497535027_) - (let () (declare (not safe)) (_g3494734987_))))) + (##vector-ref ___splice4738647387_ '0)))) + (if (gx#stx-null? _tl3515235204_) + (___match4743447435_ + _e3513035272_ + _hd3512935276_ + _tl3512835279_ + _e3513335282_ + _hd3513235286_ + _tl3513135289_ + _e3514935191_ + _hd3514835195_ + _tl3514735198_ + ___splice4738647387_ + _target3515035201_ + _tl3515235204_) + (let () (declare (not safe)) (_g3512435164_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g3494734987_))))) + (_g3512435164_))))) (let () (declare (not safe)) - (_g3494734987_)))))) - (if (gx#stx-pair? _hd3495535109_) - (let ((_e3497235014_ - (gx#syntax-e _hd3495535109_))) - (let ((_tl3497035021_ + (_g3512435164_)))))) + (if (gx#stx-pair? _hd3513235286_) + (let ((_e3514935191_ + (gx#syntax-e _hd3513235286_))) + (let ((_tl3514735198_ (let () (declare (not safe)) - (##cdr _e3497235014_))) - (_hd3497135018_ + (##cdr _e3514935191_))) + (_hd3514835195_ (let () (declare (not safe)) - (##car _e3497235014_)))) - (if (gx#stx-pair/null? _tl3495435112_) - (let ((___splice4720947210_ + (##car _e3514935191_)))) + (if (gx#stx-pair/null? _tl3513135289_) + (let ((___splice4738647387_ (gx#syntax-split-splice - _tl3495435112_ + _tl3513135289_ '0))) - (let ((_tl3497535027_ + (let ((_tl3515235204_ (let () (declare (not safe)) (##vector-ref - ___splice4720947210_ + ___splice4738647387_ '1))) - (_target3497335024_ + (_target3515035201_ (let () (declare (not safe)) (##vector-ref - ___splice4720947210_ + ___splice4738647387_ '0)))) (if (gx#stx-null? - _tl3497535027_) - (___match4725747258_ - _e3495335095_ - _hd3495235099_ - _tl3495135102_ - _e3495635105_ - _hd3495535109_ - _tl3495435112_ - _e3497235014_ - _hd3497135018_ - _tl3497035021_ - ___splice4720947210_ - _target3497335024_ - _tl3497535027_) + _tl3515235204_) + (___match4743447435_ + _e3513035272_ + _hd3512935276_ + _tl3512835279_ + _e3513335282_ + _hd3513235286_ + _tl3513135289_ + _e3514935191_ + _hd3514835195_ + _tl3514735198_ + ___splice4738647387_ + _target3515035201_ + _tl3515235204_) (let () (declare (not safe)) - (_g3494734987_))))) + (_g3512435164_))))) (let () (declare (not safe)) - (_g3494734987_))))) + (_g3512435164_))))) (let () (declare (not safe)) - (_g3494734987_)))))) - (let () (declare (not safe)) (_g3494734987_))))) - (let () (declare (not safe)) (_g3494734987_)))))))) + (_g3512435164_)))))) + (let () (declare (not safe)) (_g3512435164_))))) + (let () (declare (not safe)) (_g3512435164_)))))))) (define |gerbil/core$[:0:]#for-syntax| (gx#make-import-export-expander - (lambda (_stx35147_) - (let* ((_g3515035170_ - (lambda (_g3515135166_) + (lambda (_stx35324_) + (let* ((_g3532735347_ + (lambda (_g3532835343_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3515135166_))) - (_g3514935241_ - (lambda (_g3515135174_) - (if (gx#stx-pair? _g3515135174_) - (let ((_e3515535177_ (gx#syntax-e _g3515135174_))) - (let ((_hd3515435181_ + _g3532835343_))) + (_g3532635418_ + (lambda (_g3532835351_) + (if (gx#stx-pair? _g3532835351_) + (let ((_e3533235354_ (gx#syntax-e _g3532835351_))) + (let ((_hd3533135358_ (let () (declare (not safe)) - (##car _e3515535177_))) - (_tl3515335184_ + (##car _e3533235354_))) + (_tl3533035361_ (let () (declare (not safe)) - (##cdr _e3515535177_)))) - (if (gx#stx-pair/null? _tl3515335184_) - (let ((_g50888_ + (##cdr _e3533235354_)))) + (if (gx#stx-pair/null? _tl3533035361_) + (let ((_g51099_ (gx#syntax-split-splice - _tl3515335184_ + _tl3533035361_ '0))) (begin - (let ((_g50889_ + (let ((_g51100_ (let () (declare (not safe)) - (if (##values? _g50888_) - (##vector-length _g50888_) + (if (##values? _g51099_) + (##vector-length _g51099_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50889_ 2))) + (##fx= _g51100_ 2))) (error "Context expects 2 values" - _g50889_))) - (let ((_target3515635187_ + _g51100_))) + (let ((_target3533335364_ (let () (declare (not safe)) - (##vector-ref _g50888_ 0))) - (_tl3515835190_ + (##vector-ref _g51099_ 0))) + (_tl3533535367_ (let () (declare (not safe)) - (##vector-ref _g50888_ 1)))) - (if (gx#stx-null? _tl3515835190_) - (letrec ((_loop3515935193_ - (lambda (_hd3515735197_ - _body3516335200_) + (##vector-ref _g51099_ 1)))) + (if (gx#stx-null? _tl3533535367_) + (letrec ((_loop3533635370_ + (lambda (_hd3533435374_ + _body3534035377_) (if (gx#stx-pair? - _hd3515735197_) - (let ((_e3516035203_ + _hd3533435374_) + (let ((_e3533735380_ (gx#syntax-e - _hd3515735197_))) - (let ((_lp-hd3516135207_ + _hd3533435374_))) + (let ((_lp-hd3533835384_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e3516035203_))) - (_lp-tl3516235210_ - (let () (declare (not safe)) (##cdr _e3516035203_)))) - (_loop3515935193_ - _lp-tl3516235210_ + (##car _e3533735380_))) + (_lp-tl3533935387_ + (let () (declare (not safe)) (##cdr _e3533735380_)))) + (_loop3533635370_ + _lp-tl3533935387_ (let () (declare (not safe)) - (cons _lp-hd3516135207_ _body3516335200_))))) - (let ((_body3516435213_ (reverse _body3516335200_))) - ((lambda (_L35217_) - (let ((__tmp50890 - (let ((__tmp50891 - (let ((__tmp50892 - (lambda (_g3523235235_ _g3523335238_) + (cons _lp-hd3533835384_ _body3534035377_))))) + (let ((_body3534135390_ (reverse _body3534035377_))) + ((lambda (_L35394_) + (let ((__tmp51101 + (let ((__tmp51102 + (let ((__tmp51103 + (lambda (_g3540935412_ _g3541035415_) (let () (declare (not safe)) - (cons _g3523235235_ - _g3523335238_))))) + (cons _g3540935412_ + _g3541035415_))))) (declare (not safe)) - (foldr1 __tmp50892 '() _L35217_)))) + (foldr1 __tmp51103 '() _L35394_)))) (declare (not safe)) - (cons '1 __tmp50891)))) + (cons '1 __tmp51102)))) (declare (not safe)) - (cons 'phi: __tmp50890))) - _body3516435213_)))))) + (cons 'phi: __tmp51101))) + _body3534135390_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3515935193_ - _target3515635187_ + (_loop3533635370_ + _target3533335364_ '())) - (_g3515035170_ _g3515135174_))))) - (_g3515035170_ _g3515135174_)))) - (_g3515035170_ _g3515135174_))))) - (_g3514935241_ _stx35147_))))) + (_g3532735347_ _g3532835351_))))) + (_g3532735347_ _g3532835351_)))) + (_g3532735347_ _g3532835351_))))) + (_g3532635418_ _stx35324_))))) (define |gerbil/core$[:0:]#for-template| (gx#make-import-export-expander - (lambda (_stx35246_) - (let* ((_g3524935269_ - (lambda (_g3525035265_) + (lambda (_stx35423_) + (let* ((_g3542635446_ + (lambda (_g3542735442_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3525035265_))) - (_g3524835340_ - (lambda (_g3525035273_) - (if (gx#stx-pair? _g3525035273_) - (let ((_e3525435276_ (gx#syntax-e _g3525035273_))) - (let ((_hd3525335280_ + _g3542735442_))) + (_g3542535517_ + (lambda (_g3542735450_) + (if (gx#stx-pair? _g3542735450_) + (let ((_e3543135453_ (gx#syntax-e _g3542735450_))) + (let ((_hd3543035457_ (let () (declare (not safe)) - (##car _e3525435276_))) - (_tl3525235283_ + (##car _e3543135453_))) + (_tl3542935460_ (let () (declare (not safe)) - (##cdr _e3525435276_)))) - (if (gx#stx-pair/null? _tl3525235283_) - (let ((_g50893_ + (##cdr _e3543135453_)))) + (if (gx#stx-pair/null? _tl3542935460_) + (let ((_g51104_ (gx#syntax-split-splice - _tl3525235283_ + _tl3542935460_ '0))) (begin - (let ((_g50894_ + (let ((_g51105_ (let () (declare (not safe)) - (if (##values? _g50893_) - (##vector-length _g50893_) + (if (##values? _g51104_) + (##vector-length _g51104_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50894_ 2))) + (##fx= _g51105_ 2))) (error "Context expects 2 values" - _g50894_))) - (let ((_target3525535286_ + _g51105_))) + (let ((_target3543235463_ (let () (declare (not safe)) - (##vector-ref _g50893_ 0))) - (_tl3525735289_ + (##vector-ref _g51104_ 0))) + (_tl3543435466_ (let () (declare (not safe)) - (##vector-ref _g50893_ 1)))) - (if (gx#stx-null? _tl3525735289_) - (letrec ((_loop3525835292_ - (lambda (_hd3525635296_ - _body3526235299_) + (##vector-ref _g51104_ 1)))) + (if (gx#stx-null? _tl3543435466_) + (letrec ((_loop3543535469_ + (lambda (_hd3543335473_ + _body3543935476_) (if (gx#stx-pair? - _hd3525635296_) - (let ((_e3525935302_ + _hd3543335473_) + (let ((_e3543635479_ (gx#syntax-e - _hd3525635296_))) - (let ((_lp-hd3526035306_ + _hd3543335473_))) + (let ((_lp-hd3543735483_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e3525935302_))) - (_lp-tl3526135309_ - (let () (declare (not safe)) (##cdr _e3525935302_)))) - (_loop3525835292_ - _lp-tl3526135309_ + (##car _e3543635479_))) + (_lp-tl3543835486_ + (let () (declare (not safe)) (##cdr _e3543635479_)))) + (_loop3543535469_ + _lp-tl3543835486_ (let () (declare (not safe)) - (cons _lp-hd3526035306_ _body3526235299_))))) - (let ((_body3526335312_ (reverse _body3526235299_))) - ((lambda (_L35316_) - (let ((__tmp50895 - (let ((__tmp50896 - (let ((__tmp50897 - (lambda (_g3533135334_ _g3533235337_) + (cons _lp-hd3543735483_ _body3543935476_))))) + (let ((_body3544035489_ (reverse _body3543935476_))) + ((lambda (_L35493_) + (let ((__tmp51106 + (let ((__tmp51107 + (let ((__tmp51108 + (lambda (_g3550835511_ _g3550935514_) (let () (declare (not safe)) - (cons _g3533135334_ - _g3533235337_))))) + (cons _g3550835511_ + _g3550935514_))))) (declare (not safe)) - (foldr1 __tmp50897 '() _L35316_)))) + (foldr1 __tmp51108 '() _L35493_)))) (declare (not safe)) - (cons '-1 __tmp50896)))) + (cons '-1 __tmp51107)))) (declare (not safe)) - (cons 'phi: __tmp50895))) - _body3526335312_)))))) + (cons 'phi: __tmp51106))) + _body3544035489_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3525835292_ - _target3525535286_ + (_loop3543535469_ + _target3543235463_ '())) - (_g3524935269_ _g3525035273_))))) - (_g3524935269_ _g3525035273_)))) - (_g3524935269_ _g3525035273_))))) - (_g3524835340_ _stx35246_))))) + (_g3542635446_ _g3542735450_))))) + (_g3542635446_ _g3542735450_)))) + (_g3542635446_ _g3542735450_))))) + (_g3542535517_ _stx35423_))))) (define |gerbil/core$[:0:]#only-in| (gx#make-import-expander - (lambda (_stx35345_) - (let* ((_g3534835372_ - (lambda (_g3534935368_) + (lambda (_stx35522_) + (let* ((_g3552535549_ + (lambda (_g3552635545_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3534935368_))) - (_g3534735494_ - (lambda (_g3534935376_) - (if (gx#stx-pair? _g3534935376_) - (let ((_e3535435379_ (gx#syntax-e _g3534935376_))) - (let ((_hd3535335383_ + _g3552635545_))) + (_g3552435671_ + (lambda (_g3552635553_) + (if (gx#stx-pair? _g3552635553_) + (let ((_e3553135556_ (gx#syntax-e _g3552635553_))) + (let ((_hd3553035560_ (let () (declare (not safe)) - (##car _e3535435379_))) - (_tl3535235386_ + (##car _e3553135556_))) + (_tl3552935563_ (let () (declare (not safe)) - (##cdr _e3535435379_)))) - (if (gx#stx-pair? _tl3535235386_) - (let ((_e3535735389_ - (gx#syntax-e _tl3535235386_))) - (let ((_hd3535635393_ + (##cdr _e3553135556_)))) + (if (gx#stx-pair? _tl3552935563_) + (let ((_e3553435566_ + (gx#syntax-e _tl3552935563_))) + (let ((_hd3553335570_ (let () (declare (not safe)) - (##car _e3535735389_))) - (_tl3535535396_ + (##car _e3553435566_))) + (_tl3553235573_ (let () (declare (not safe)) - (##cdr _e3535735389_)))) - (if (gx#stx-pair/null? _tl3535535396_) - (let ((_g50898_ + (##cdr _e3553435566_)))) + (if (gx#stx-pair/null? _tl3553235573_) + (let ((_g51109_ (gx#syntax-split-splice - _tl3535535396_ + _tl3553235573_ '0))) (begin - (let ((_g50899_ + (let ((_g51110_ (let () (declare (not safe)) - (if (##values? _g50898_) + (if (##values? _g51109_) (##vector-length - _g50898_) + _g51109_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50899_ 2))) + (##fx= _g51110_ 2))) (error "Context expects 2 values" - _g50899_))) - (let ((_target3535835399_ + _g51110_))) + (let ((_target3553535576_ (let () (declare (not safe)) - (##vector-ref _g50898_ 0))) - (_tl3536035402_ + (##vector-ref _g51109_ 0))) + (_tl3553735579_ (let () (declare (not safe)) - (##vector-ref _g50898_ 1)))) - (if (gx#stx-null? _tl3536035402_) - (letrec ((_loop3536135405_ - (lambda (_hd3535935409_ + (##vector-ref _g51109_ 1)))) + (if (gx#stx-null? _tl3553735579_) + (letrec ((_loop3553835582_ + (lambda (_hd3553635586_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3536535412_) - (if (gx#stx-pair? _hd3535935409_) - (let ((_e3536235415_ (gx#syntax-e _hd3535935409_))) - (let ((_lp-hd3536335419_ + _id3554235589_) + (if (gx#stx-pair? _hd3553635586_) + (let ((_e3553935592_ (gx#syntax-e _hd3553635586_))) + (let ((_lp-hd3554035596_ (let () (declare (not safe)) - (##car _e3536235415_))) - (_lp-tl3536435422_ + (##car _e3553935592_))) + (_lp-tl3554135599_ (let () (declare (not safe)) - (##cdr _e3536235415_)))) - (_loop3536135405_ - _lp-tl3536435422_ + (##cdr _e3553935592_)))) + (_loop3553835582_ + _lp-tl3554135599_ (let () (declare (not safe)) - (cons _lp-hd3536335419_ _id3536535412_))))) - (let ((_id3536635425_ (reverse _id3536535412_))) - ((lambda (_L35429_ _L35431_) + (cons _lp-hd3554035596_ _id3554235589_))))) + (let ((_id3554335602_ (reverse _id3554235589_))) + ((lambda (_L35606_ _L35608_) (if (gx#identifier-list? - (let ((__tmp50904 - (lambda (_g3544835451_ _g3544935454_) + (let ((__tmp51115 + (lambda (_g3562535628_ _g3562635631_) (let () (declare (not safe)) - (cons _g3544835451_ - _g3544935454_))))) + (cons _g3562535628_ + _g3562635631_))))) (declare (not safe)) - (foldr1 __tmp50904 '() _L35429_))) - (let* ((_keys35465_ + (foldr1 __tmp51115 '() _L35606_))) + (let* ((_keys35642_ (gx#stx-map gx#core-identifier-key - (let ((__tmp50900 - (lambda (_g3545635459_ - _g3545735462_) + (let ((__tmp51111 + (lambda (_g3563335636_ + _g3563435639_) (let () (declare (not safe)) - (cons _g3545635459_ - _g3545735462_))))) + (cons _g3563335636_ + _g3563435639_))))) (declare (not safe)) - (foldr1 __tmp50900 '() _L35429_)))) - (_keytab35476_ - (let ((_ht35468_ + (foldr1 __tmp51111 '() _L35606_)))) + (_keytab35653_ + (let ((_ht35645_ (let () (declare (not safe)) (make-table)))) (for-each - (lambda (_g3547035472_) + (lambda (_g3564735649_) (let () (declare (not safe)) (table-set! - _ht35468_ - _g3547035472_ + _ht35645_ + _g3564735649_ '#t))) - _keys35465_) - _ht35468_)) - (_imports35479_ + _keys35642_) + _ht35645_)) + (_imports35656_ (gx#core-expand-import-source - _L35431_)) - (_fold-e35489_ - (letrec ((_fold-e35482_ - (lambda (_in35485_ _r35487_) + _L35608_)) + (_fold-e35666_ + (letrec ((_fold-e35659_ + (lambda (_in35662_ _r35664_) (if (gx#module-import? - _in35485_) - (if (let ((__tmp50902 + _in35662_) + (if (let ((__tmp51113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-import-name _in35485_))) + (gx#module-import-name _in35662_))) (declare (not safe)) - (table-ref _keytab35476_ __tmp50902 '#f)) - (let () (declare (not safe)) (cons _in35485_ _r35487_)) - _r35487_) - (if (gx#import-set? _in35485_) - (let ((__tmp50901 (gx#import-set-imports _in35485_))) + (table-ref _keytab35653_ __tmp51113 '#f)) + (let () (declare (not safe)) (cons _in35662_ _r35664_)) + _r35664_) + (if (gx#import-set? _in35662_) + (let ((__tmp51112 (gx#import-set-imports _in35662_))) (declare (not safe)) - (foldl1 _fold-e35482_ _r35487_ __tmp50901)) - _r35487_))))) + (foldl1 _fold-e35659_ _r35664_ __tmp51112)) + _r35664_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35482_))) - (let ((__tmp50903 + _fold-e35659_))) + (let ((__tmp51114 (let () (declare (not safe)) - (foldl1 _fold-e35489_ + (foldl1 _fold-e35666_ '() - _imports35479_)))) + _imports35656_)))) (declare (not safe)) - (cons 'begin: __tmp50903))) - (_g3534835372_ _g3534935376_))) - _id3536635425_ - _hd3535635393_)))))) + (cons 'begin: __tmp51114))) + (_g3552535549_ _g3552635553_))) + _id3554335602_ + _hd3553335570_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3536135405_ - _target3535835399_ + (_loop3553835582_ + _target3553535576_ '())) - (_g3534835372_ - _g3534935376_))))) - (_g3534835372_ _g3534935376_)))) - (_g3534835372_ _g3534935376_)))) - (_g3534835372_ _g3534935376_))))) - (_g3534735494_ _stx35345_))))) + (_g3552535549_ + _g3552635553_))))) + (_g3552535549_ _g3552635553_)))) + (_g3552535549_ _g3552635553_)))) + (_g3552535549_ _g3552635553_))))) + (_g3552435671_ _stx35522_))))) (define |gerbil/core$[:0:]#except-in| (gx#make-import-expander - (lambda (_stx35499_) - (let* ((_g3550235526_ - (lambda (_g3550335522_) + (lambda (_stx35676_) + (let* ((_g3567935703_ + (lambda (_g3568035699_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3550335522_))) - (_g3550135648_ - (lambda (_g3550335530_) - (if (gx#stx-pair? _g3550335530_) - (let ((_e3550835533_ (gx#syntax-e _g3550335530_))) - (let ((_hd3550735537_ + _g3568035699_))) + (_g3567835825_ + (lambda (_g3568035707_) + (if (gx#stx-pair? _g3568035707_) + (let ((_e3568535710_ (gx#syntax-e _g3568035707_))) + (let ((_hd3568435714_ (let () (declare (not safe)) - (##car _e3550835533_))) - (_tl3550635540_ + (##car _e3568535710_))) + (_tl3568335717_ (let () (declare (not safe)) - (##cdr _e3550835533_)))) - (if (gx#stx-pair? _tl3550635540_) - (let ((_e3551135543_ - (gx#syntax-e _tl3550635540_))) - (let ((_hd3551035547_ + (##cdr _e3568535710_)))) + (if (gx#stx-pair? _tl3568335717_) + (let ((_e3568835720_ + (gx#syntax-e _tl3568335717_))) + (let ((_hd3568735724_ (let () (declare (not safe)) - (##car _e3551135543_))) - (_tl3550935550_ + (##car _e3568835720_))) + (_tl3568635727_ (let () (declare (not safe)) - (##cdr _e3551135543_)))) - (if (gx#stx-pair/null? _tl3550935550_) - (let ((_g50905_ + (##cdr _e3568835720_)))) + (if (gx#stx-pair/null? _tl3568635727_) + (let ((_g51116_ (gx#syntax-split-splice - _tl3550935550_ + _tl3568635727_ '0))) (begin - (let ((_g50906_ + (let ((_g51117_ (let () (declare (not safe)) - (if (##values? _g50905_) + (if (##values? _g51116_) (##vector-length - _g50905_) + _g51116_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50906_ 2))) + (##fx= _g51117_ 2))) (error "Context expects 2 values" - _g50906_))) - (let ((_target3551235553_ + _g51117_))) + (let ((_target3568935730_ (let () (declare (not safe)) - (##vector-ref _g50905_ 0))) - (_tl3551435556_ + (##vector-ref _g51116_ 0))) + (_tl3569135733_ (let () (declare (not safe)) - (##vector-ref _g50905_ 1)))) - (if (gx#stx-null? _tl3551435556_) - (letrec ((_loop3551535559_ - (lambda (_hd3551335563_ + (##vector-ref _g51116_ 1)))) + (if (gx#stx-null? _tl3569135733_) + (letrec ((_loop3569235736_ + (lambda (_hd3569035740_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3551935566_) - (if (gx#stx-pair? _hd3551335563_) - (let ((_e3551635569_ (gx#syntax-e _hd3551335563_))) - (let ((_lp-hd3551735573_ + _id3569635743_) + (if (gx#stx-pair? _hd3569035740_) + (let ((_e3569335746_ (gx#syntax-e _hd3569035740_))) + (let ((_lp-hd3569435750_ (let () (declare (not safe)) - (##car _e3551635569_))) - (_lp-tl3551835576_ + (##car _e3569335746_))) + (_lp-tl3569535753_ (let () (declare (not safe)) - (##cdr _e3551635569_)))) - (_loop3551535559_ - _lp-tl3551835576_ + (##cdr _e3569335746_)))) + (_loop3569235736_ + _lp-tl3569535753_ (let () (declare (not safe)) - (cons _lp-hd3551735573_ _id3551935566_))))) - (let ((_id3552035579_ (reverse _id3551935566_))) - ((lambda (_L35583_ _L35585_) + (cons _lp-hd3569435750_ _id3569635743_))))) + (let ((_id3569735756_ (reverse _id3569635743_))) + ((lambda (_L35760_ _L35762_) (if (gx#identifier-list? - (let ((__tmp50911 - (lambda (_g3560235605_ _g3560335608_) + (let ((__tmp51122 + (lambda (_g3577935782_ _g3578035785_) (let () (declare (not safe)) - (cons _g3560235605_ - _g3560335608_))))) + (cons _g3577935782_ + _g3578035785_))))) (declare (not safe)) - (foldr1 __tmp50911 '() _L35583_))) - (let* ((_keys35619_ + (foldr1 __tmp51122 '() _L35760_))) + (let* ((_keys35796_ (gx#stx-map gx#core-identifier-key - (let ((__tmp50907 - (lambda (_g3561035613_ - _g3561135616_) + (let ((__tmp51118 + (lambda (_g3578735790_ + _g3578835793_) (let () (declare (not safe)) - (cons _g3561035613_ - _g3561135616_))))) + (cons _g3578735790_ + _g3578835793_))))) (declare (not safe)) - (foldr1 __tmp50907 '() _L35583_)))) - (_keytab35630_ - (let ((_ht35622_ + (foldr1 __tmp51118 '() _L35760_)))) + (_keytab35807_ + (let ((_ht35799_ (let () (declare (not safe)) (make-table)))) (for-each - (lambda (_g3562435626_) + (lambda (_g3580135803_) (let () (declare (not safe)) (table-set! - _ht35622_ - _g3562435626_ + _ht35799_ + _g3580135803_ '#t))) - _keys35619_) - _ht35622_)) - (_imports35633_ + _keys35796_) + _ht35799_)) + (_imports35810_ (gx#core-expand-import-source - _L35585_)) - (_fold-e35643_ - (letrec ((_fold-e35636_ - (lambda (_in35639_ _r35641_) + _L35762_)) + (_fold-e35820_ + (letrec ((_fold-e35813_ + (lambda (_in35816_ _r35818_) (if (gx#module-import? - _in35639_) - (if (let ((__tmp50909 + _in35816_) + (if (let ((__tmp51120 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-import-name _in35639_))) + (gx#module-import-name _in35816_))) (declare (not safe)) - (table-ref _keytab35630_ __tmp50909 '#f)) - _r35641_ - (let () (declare (not safe)) (cons _in35639_ _r35641_))) - (if (gx#import-set? _in35639_) - (let ((__tmp50908 (gx#import-set-imports _in35639_))) + (table-ref _keytab35807_ __tmp51120 '#f)) + _r35818_ + (let () (declare (not safe)) (cons _in35816_ _r35818_))) + (if (gx#import-set? _in35816_) + (let ((__tmp51119 (gx#import-set-imports _in35816_))) (declare (not safe)) - (foldl1 _fold-e35636_ _r35641_ __tmp50908)) + (foldl1 _fold-e35813_ _r35818_ __tmp51119)) (let () (declare (not safe)) - (cons _in35639_ _r35641_))))))) + (cons _in35816_ _r35818_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35636_))) - (let ((__tmp50910 + _fold-e35813_))) + (let ((__tmp51121 (let () (declare (not safe)) - (foldl1 _fold-e35643_ + (foldl1 _fold-e35820_ '() - _imports35633_)))) + _imports35810_)))) (declare (not safe)) - (cons 'begin: __tmp50910))) - (_g3550235526_ _g3550335530_))) - _id3552035579_ - _hd3551035547_)))))) + (cons 'begin: __tmp51121))) + (_g3567935703_ _g3568035707_))) + _id3569735756_ + _hd3568735724_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3551535559_ - _target3551235553_ + (_loop3569235736_ + _target3568935730_ '())) - (_g3550235526_ - _g3550335530_))))) - (_g3550235526_ _g3550335530_)))) - (_g3550235526_ _g3550335530_)))) - (_g3550235526_ _g3550335530_))))) - (_g3550135648_ _stx35499_))))) + (_g3567935703_ + _g3568035707_))))) + (_g3567935703_ _g3568035707_)))) + (_g3567935703_ _g3568035707_)))) + (_g3567935703_ _g3568035707_))))) + (_g3567835825_ _stx35676_))))) (define |gerbil/core$[1]#module-import-rename| - (lambda (_in35700_ _rename35702_) + (lambda (_in35877_ _rename35879_) (gx#make-module-import - (gx#module-import-source _in35700_) - _rename35702_ - (gx#module-import-phi _in35700_) - (gx#module-import-weak? _in35700_)))) + (gx#module-import-source _in35877_) + _rename35879_ + (gx#module-import-phi _in35877_) + (gx#module-import-weak? _in35877_)))) (define |gerbil/core$[1]#prefix-identifier-key| - (lambda (_name35653_ _pre35655_) - (let* ((_name3565635664_ _name35653_) - (_else3565835676_ - (lambda () (make-symbol _pre35655_ _name35653_))) - (_K3566035684_ - (lambda (_mark35680_ _id35682_) - (let ((__tmp50912 (make-symbol _pre35655_ _id35682_))) + (lambda (_name35830_ _pre35832_) + (let* ((_name3583335841_ _name35830_) + (_else3583535853_ + (lambda () (make-symbol _pre35832_ _name35830_))) + (_K3583735861_ + (lambda (_mark35857_ _id35859_) + (let ((__tmp51123 (make-symbol _pre35832_ _id35859_))) (declare (not safe)) - (cons __tmp50912 _mark35680_))))) - (if (let () (declare (not safe)) (##pair? _name3565635664_)) - (let ((_hd3566135688_ - (let () (declare (not safe)) (##car _name3565635664_))) - (_tl3566235691_ - (let () (declare (not safe)) (##cdr _name3565635664_)))) - (let* ((_id35694_ _hd3566135688_) (_mark35697_ _tl3566235691_)) + (cons __tmp51123 _mark35857_))))) + (if (let () (declare (not safe)) (##pair? _name3583335841_)) + (let ((_hd3583835865_ + (let () (declare (not safe)) (##car _name3583335841_))) + (_tl3583935868_ + (let () (declare (not safe)) (##cdr _name3583335841_)))) + (let* ((_id35871_ _hd3583835865_) (_mark35874_ _tl3583935868_)) (declare (not safe)) - (_K3566035684_ _mark35697_ _id35694_))) - (let () (declare (not safe)) (_else3565835676_)))))) + (_K3583735861_ _mark35874_ _id35871_))) + (let () (declare (not safe)) (_else3583535853_)))))) (define |gerbil/core$[:0:]#rename-in| (gx#make-import-expander - (lambda (_stx35704_) - (let* ((_g3570735740_ - (lambda (_g3570835736_) + (lambda (_stx35881_) + (let* ((_g3588435917_ + (lambda (_g3588535913_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3570835736_))) - (_g3570635926_ - (lambda (_g3570835744_) - (if (gx#stx-pair? _g3570835744_) - (let ((_e3571435747_ (gx#syntax-e _g3570835744_))) - (let ((_hd3571335751_ + _g3588535913_))) + (_g3588336103_ + (lambda (_g3588535921_) + (if (gx#stx-pair? _g3588535921_) + (let ((_e3589135924_ (gx#syntax-e _g3588535921_))) + (let ((_hd3589035928_ (let () (declare (not safe)) - (##car _e3571435747_))) - (_tl3571235754_ + (##car _e3589135924_))) + (_tl3588935931_ (let () (declare (not safe)) - (##cdr _e3571435747_)))) - (if (gx#stx-pair? _tl3571235754_) - (let ((_e3571735757_ - (gx#syntax-e _tl3571235754_))) - (let ((_hd3571635761_ + (##cdr _e3589135924_)))) + (if (gx#stx-pair? _tl3588935931_) + (let ((_e3589435934_ + (gx#syntax-e _tl3588935931_))) + (let ((_hd3589335938_ (let () (declare (not safe)) - (##car _e3571735757_))) - (_tl3571535764_ + (##car _e3589435934_))) + (_tl3589235941_ (let () (declare (not safe)) - (##cdr _e3571735757_)))) - (if (gx#stx-pair/null? _tl3571535764_) - (let ((_g50913_ + (##cdr _e3589435934_)))) + (if (gx#stx-pair/null? _tl3589235941_) + (let ((_g51124_ (gx#syntax-split-splice - _tl3571535764_ + _tl3589235941_ '0))) (begin - (let ((_g50914_ + (let ((_g51125_ (let () (declare (not safe)) - (if (##values? _g50913_) + (if (##values? _g51124_) (##vector-length - _g50913_) + _g51124_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50914_ 2))) + (##fx= _g51125_ 2))) (error "Context expects 2 values" - _g50914_))) - (let ((_target3571835767_ + _g51125_))) + (let ((_target3589535944_ (let () (declare (not safe)) - (##vector-ref _g50913_ 0))) - (_tl3572035770_ + (##vector-ref _g51124_ 0))) + (_tl3589735947_ (let () (declare (not safe)) - (##vector-ref _g50913_ 1)))) - (if (gx#stx-null? _tl3572035770_) - (letrec ((_loop3572135773_ - (lambda (_hd3571935777_ + (##vector-ref _g51124_ 1)))) + (if (gx#stx-null? _tl3589735947_) + (letrec ((_loop3589835950_ + (lambda (_hd3589635954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3572535780_ - _id3572635782_) - (if (gx#stx-pair? _hd3571935777_) - (let ((_e3572235785_ (gx#syntax-e _hd3571935777_))) - (let ((_lp-hd3572335789_ + _new-id3590235957_ + _id3590335959_) + (if (gx#stx-pair? _hd3589635954_) + (let ((_e3589935962_ (gx#syntax-e _hd3589635954_))) + (let ((_lp-hd3590035966_ (let () (declare (not safe)) - (##car _e3572235785_))) - (_lp-tl3572435792_ + (##car _e3589935962_))) + (_lp-tl3590135969_ (let () (declare (not safe)) - (##cdr _e3572235785_)))) - (if (gx#stx-pair? _lp-hd3572335789_) - (let ((_e3573135795_ - (gx#syntax-e _lp-hd3572335789_))) - (let ((_hd3573035799_ + (##cdr _e3589935962_)))) + (if (gx#stx-pair? _lp-hd3590035966_) + (let ((_e3590835972_ + (gx#syntax-e _lp-hd3590035966_))) + (let ((_hd3590735976_ (let () (declare (not safe)) - (##car _e3573135795_))) - (_tl3572935802_ + (##car _e3590835972_))) + (_tl3590635979_ (let () (declare (not safe)) - (##cdr _e3573135795_)))) - (if (gx#stx-pair? _tl3572935802_) - (let ((_e3573435805_ - (gx#syntax-e _tl3572935802_))) - (let ((_hd3573335809_ + (##cdr _e3590835972_)))) + (if (gx#stx-pair? _tl3590635979_) + (let ((_e3591135982_ + (gx#syntax-e _tl3590635979_))) + (let ((_hd3591035986_ (let () (declare (not safe)) - (##car _e3573435805_))) - (_tl3573235812_ + (##car _e3591135982_))) + (_tl3590935989_ (let () (declare (not safe)) - (##cdr _e3573435805_)))) - (if (gx#stx-null? _tl3573235812_) - (_loop3572135773_ - _lp-tl3572435792_ + (##cdr _e3591135982_)))) + (if (gx#stx-null? _tl3590935989_) + (_loop3589835950_ + _lp-tl3590135969_ (let () (declare (not safe)) - (cons _hd3573335809_ - _new-id3572535780_)) + (cons _hd3591035986_ + _new-id3590235957_)) (let () (declare (not safe)) - (cons _hd3573035799_ - _id3572635782_))) - (_g3570735740_ _g3570835744_)))) - (_g3570735740_ _g3570835744_)))) - (_g3570735740_ _g3570835744_)))) - (let ((_new-id3572735815_ (reverse _new-id3572535780_)) - (_id3572835818_ (reverse _id3572635782_))) - ((lambda (_L35821_ _L35823_ _L35824_) + (cons _hd3590735976_ + _id3590335959_))) + (_g3588435917_ _g3588535921_)))) + (_g3588435917_ _g3588535921_)))) + (_g3588435917_ _g3588535921_)))) + (let ((_new-id3590435992_ (reverse _new-id3590235957_)) + (_id3590535995_ (reverse _id3590335959_))) + ((lambda (_L35998_ _L36000_ _L36001_) (if (and (gx#identifier-list? - (let ((__tmp50925 - (lambda (_g3584235845_ - _g3584335848_) + (let ((__tmp51136 + (lambda (_g3601936022_ + _g3602036025_) (let () (declare (not safe)) - (cons _g3584235845_ - _g3584335848_))))) + (cons _g3601936022_ + _g3602036025_))))) (declare (not safe)) - (foldr1 __tmp50925 '() _L35823_))) + (foldr1 __tmp51136 '() _L36000_))) (gx#identifier-list? - (let ((__tmp50924 - (lambda (_g3585035853_ - _g3585135856_) + (let ((__tmp51135 + (lambda (_g3602736030_ + _g3602836033_) (let () (declare (not safe)) - (cons _g3585035853_ - _g3585135856_))))) + (cons _g3602736030_ + _g3602836033_))))) (declare (not safe)) - (foldr1 __tmp50924 '() _L35821_)))) - (let* ((_keytab35859_ + (foldr1 __tmp51135 '() _L35998_)))) + (let* ((_keytab36036_ (let () (declare (not safe)) (make-table))) - (_found35862_ + (_found36039_ (let () (declare (not safe)) (make-table))) - (_g50919_ + (_g51130_ (for-each - (lambda (_id35865_ _new-id35867_) - (let ((__tmp50916 + (lambda (_id36042_ _new-id36044_) + (let ((__tmp51127 (gx#core-identifier-key - _id35865_)) - (__tmp50915 + _id36042_)) + (__tmp51126 (gx#core-identifier-key - _new-id35867_))) + _new-id36044_))) (declare (not safe)) (table-set! - _keytab35859_ - __tmp50916 - __tmp50915))) - (let ((__tmp50917 - (lambda (_g3586835871_ - _g3586935874_) + _keytab36036_ + __tmp51127 + __tmp51126))) + (let ((__tmp51128 + (lambda (_g3604536048_ + _g3604636051_) (let () (declare (not safe)) - (cons _g3586835871_ - _g3586935874_))))) + (cons _g3604536048_ + _g3604636051_))))) (declare (not safe)) - (foldr1 __tmp50917 '() _L35823_)) - (let ((__tmp50918 - (lambda (_g3587635879_ - _g3587735882_) + (foldr1 __tmp51128 '() _L36000_)) + (let ((__tmp51129 + (lambda (_g3605336056_ + _g3605436059_) (let () (declare (not safe)) - (cons _g3587635879_ - _g3587735882_))))) + (cons _g3605336056_ + _g3605436059_))))) (declare (not safe)) - (foldr1 __tmp50918 '() _L35821_)))) - (_imports35887_ + (foldr1 __tmp51129 '() _L35998_)))) + (_imports36064_ (gx#core-expand-import-source - _L35824_)) - (_fold-e35907_ - (letrec ((_fold-e35890_ - (lambda (_in35893_ _r35895_) + _L36001_)) + (_fold-e36084_ + (letrec ((_fold-e36067_ + (lambda (_in36070_ _r36072_) (if (gx#module-import? - _in35893_) - (let* ((_name35897_ + _in36070_) + (let* ((_name36074_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in35893_)) - (_$e35900_ + _in36070_)) + (_$e36077_ (let () (declare (not safe)) - (table-ref _keytab35859_ _name35897_ '#f)))) - (if _$e35900_ - ((lambda (_rename35904_) + (table-ref _keytab36036_ _name36074_ '#f)))) + (if _$e36077_ + ((lambda (_rename36081_) (let () (declare (not safe)) - (table-set! _found35862_ _name35897_ '#t)) - (let ((__tmp50921 + (table-set! _found36039_ _name36074_ '#t)) + (let ((__tmp51132 (let () (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in35893_ - _rename35904_)))) + _in36070_ + _rename36081_)))) (declare (not safe)) - (cons __tmp50921 _r35895_))) - _$e35900_) - (let () (declare (not safe)) (cons _in35893_ _r35895_)))) - (if (gx#import-set? _in35893_) - (let ((__tmp50920 (gx#import-set-imports _in35893_))) + (cons __tmp51132 _r36072_))) + _$e36077_) + (let () (declare (not safe)) (cons _in36070_ _r36072_)))) + (if (gx#import-set? _in36070_) + (let ((__tmp51131 (gx#import-set-imports _in36070_))) (declare (not safe)) - (foldl1 _fold-e35890_ _r35895_ __tmp50920)) + (foldl1 _fold-e36067_ _r36072_ __tmp51131)) (let () (declare (not safe)) - (cons _in35893_ _r35895_))))))) + (cons _in36070_ _r36072_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e35890_)) - (_new-imports35910_ + _fold-e36067_)) + (_new-imports36087_ (let () (declare (not safe)) - (foldl1 _fold-e35907_ + (foldl1 _fold-e36084_ '() - _imports35887_)))) + _imports36064_)))) (for-each - (lambda (_id35915_) - (if (let ((__tmp50922 + (lambda (_id36092_) + (if (let ((__tmp51133 (gx#core-identifier-key - _id35915_))) + _id36092_))) (declare (not safe)) (table-ref - _found35862_ - __tmp50922 + _found36039_ + __tmp51133 '#f)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" - _stx35704_ - _id35915_))) - (let ((__tmp50923 - (lambda (_g3591735920_ _g3591835923_) + _stx35881_ + _id36092_))) + (let ((__tmp51134 + (lambda (_g3609436097_ _g3609536100_) (let () (declare (not safe)) - (cons _g3591735920_ - _g3591835923_))))) + (cons _g3609436097_ + _g3609536100_))))) (declare (not safe)) - (foldr1 __tmp50923 '() _L35823_))) + (foldr1 __tmp51134 '() _L36000_))) (let () (declare (not safe)) - (cons 'begin: _new-imports35910_))) - (_g3570735740_ _g3570835744_))) - _new-id3572735815_ - _id3572835818_ - _hd3571635761_)))))) + (cons 'begin: _new-imports36087_))) + (_g3588435917_ _g3588535921_))) + _new-id3590435992_ + _id3590535995_ + _hd3589335938_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3572135773_ - _target3571835767_ + (_loop3589835950_ + _target3589535944_ '() '())) - (_g3570735740_ - _g3570835744_))))) - (_g3570735740_ _g3570835744_)))) - (_g3570735740_ _g3570835744_)))) - (_g3570735740_ _g3570835744_))))) - (_g3570635926_ _stx35704_))))) + (_g3588435917_ + _g3588535921_))))) + (_g3588435917_ _g3588535921_)))) + (_g3588435917_ _g3588535921_)))) + (_g3588435917_ _g3588535921_))))) + (_g3588336103_ _stx35881_))))) (define |gerbil/core$[:0:]#prefix-in| (gx#make-import-expander - (lambda (_stx35932_) - (let* ((_g3593535953_ - (lambda (_g3593635949_) + (lambda (_stx36109_) + (let* ((_g3611236130_ + (lambda (_g3611336126_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3593635949_))) - (_g3593436032_ - (lambda (_g3593635957_) - (if (gx#stx-pair? _g3593635957_) - (let ((_e3594135960_ (gx#syntax-e _g3593635957_))) - (let ((_hd3594035964_ + _g3611336126_))) + (_g3611136209_ + (lambda (_g3611336134_) + (if (gx#stx-pair? _g3611336134_) + (let ((_e3611836137_ (gx#syntax-e _g3611336134_))) + (let ((_hd3611736141_ (let () (declare (not safe)) - (##car _e3594135960_))) - (_tl3593935967_ + (##car _e3611836137_))) + (_tl3611636144_ (let () (declare (not safe)) - (##cdr _e3594135960_)))) - (if (gx#stx-pair? _tl3593935967_) - (let ((_e3594435970_ - (gx#syntax-e _tl3593935967_))) - (let ((_hd3594335974_ + (##cdr _e3611836137_)))) + (if (gx#stx-pair? _tl3611636144_) + (let ((_e3612136147_ + (gx#syntax-e _tl3611636144_))) + (let ((_hd3612036151_ (let () (declare (not safe)) - (##car _e3594435970_))) - (_tl3594235977_ + (##car _e3612136147_))) + (_tl3611936154_ (let () (declare (not safe)) - (##cdr _e3594435970_)))) - (if (gx#stx-pair? _tl3594235977_) - (let ((_e3594735980_ - (gx#syntax-e _tl3594235977_))) - (let ((_hd3594635984_ + (##cdr _e3612136147_)))) + (if (gx#stx-pair? _tl3611936154_) + (let ((_e3612436157_ + (gx#syntax-e _tl3611936154_))) + (let ((_hd3612336161_ (let () (declare (not safe)) - (##car _e3594735980_))) - (_tl3594535987_ + (##car _e3612436157_))) + (_tl3612236164_ (let () (declare (not safe)) - (##cdr _e3594735980_)))) - (if (gx#stx-null? _tl3594535987_) - ((lambda (_L35990_ _L35992_) - (if (gx#identifier? _L35990_) - (let* ((_pre36008_ + (##cdr _e3612436157_)))) + (if (gx#stx-null? _tl3612236164_) + ((lambda (_L36167_ _L36169_) + (if (gx#identifier? _L36167_) + (let* ((_pre36185_ (gx#stx-e - _L35990_)) - (_imports36011_ + _L36167_)) + (_imports36188_ (gx#core-expand-import-source - _L35992_)) - (_rename-e36017_ - (lambda (_name36014_) + _L36169_)) + (_rename-e36194_ + (lambda (_name36191_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core$[1]#prefix-identifier-key| - _name36014_ - _pre36008_)))) - (_fold-e36027_ - (letrec ((_fold-e36020_ - (lambda (_in36023_ _r36025_) - (if (gx#module-import? _in36023_) - (let ((__tmp50927 - (let ((__tmp50928 - (_rename-e36017_ + _name36191_ + _pre36185_)))) + (_fold-e36204_ + (letrec ((_fold-e36197_ + (lambda (_in36200_ _r36202_) + (if (gx#module-import? _in36200_) + (let ((__tmp51138 + (let ((__tmp51139 + (_rename-e36194_ (gx#module-import-name - _in36023_)))) + _in36200_)))) (declare (not safe)) (|gerbil/core$[1]#module-import-rename| - _in36023_ - __tmp50928)))) + _in36200_ + __tmp51139)))) (declare (not safe)) - (cons __tmp50927 _r36025_)) - (if (gx#import-set? _in36023_) - (let ((__tmp50926 + (cons __tmp51138 _r36202_)) + (if (gx#import-set? _in36200_) + (let ((__tmp51137 (gx#import-set-imports - _in36023_))) + _in36200_))) (declare (not safe)) - (foldl1 _fold-e36020_ - _r36025_ - __tmp50926)) + (foldl1 _fold-e36197_ + _r36202_ + __tmp51137)) (let () (declare (not safe)) - (cons _in36023_ _r36025_))))))) - _fold-e36020_))) - (let ((__tmp50929 + (cons _in36200_ _r36202_))))))) + _fold-e36197_))) + (let ((__tmp51140 (let () (declare (not safe)) - (foldl1 _fold-e36027_ '() _imports36011_)))) + (foldl1 _fold-e36204_ '() _imports36188_)))) (declare (not safe)) - (cons 'begin: __tmp50929))) + (cons 'begin: __tmp51140))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3593535953_ - _g3593635957_))) - _hd3594635984_ - _hd3594335974_) - (_g3593535953_ _g3593635957_)))) - (_g3593535953_ _g3593635957_)))) - (_g3593535953_ _g3593635957_)))) - (_g3593535953_ _g3593635957_))))) - (_g3593436032_ _stx35932_))))) + (_g3611236130_ + _g3611336134_))) + _hd3612336161_ + _hd3612036151_) + (_g3611236130_ _g3611336134_)))) + (_g3611236130_ _g3611336134_)))) + (_g3611236130_ _g3611336134_)))) + (_g3611236130_ _g3611336134_))))) + (_g3611136209_ _stx36109_))))) (define |gerbil/core$[:0:]#group-in| (gx#make-import-expander - (lambda (_stx36036_) - (letrec ((_flatten36039_ - (lambda (_list-of-lists36294_) - (let ((__tmp50930 - (lambda (_v36297_ _acc36299_) - (if (let () (declare (not safe)) (null? _v36297_)) - _acc36299_ + (lambda (_stx36213_) + (letrec ((_flatten36216_ + (lambda (_list-of-lists36471_) + (let ((__tmp51141 + (lambda (_v36474_ _acc36476_) + (if (let () (declare (not safe)) (null? _v36474_)) + _acc36476_ (if (let () (declare (not safe)) - (pair? _v36297_)) - (append (_flatten36039_ _v36297_) - _acc36299_) + (pair? _v36474_)) + (append (_flatten36216_ _v36474_) + _acc36476_) (let () (declare (not safe)) - (cons _v36297_ _acc36299_))))))) + (cons _v36474_ _acc36476_))))))) (declare (not safe)) - (foldr1 __tmp50930 '() _list-of-lists36294_)))) - (_expand-path36041_ - (lambda (_top36162_ _mod36164_) - (let* ((___stx4726047261_ _mod36164_) - (_g3616736189_ + (foldr1 __tmp51141 '() _list-of-lists36471_)))) + (_expand-path36218_ + (lambda (_top36339_ _mod36341_) + (let* ((___stx4743747438_ _mod36341_) + (_g3634436366_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4726047261_)))) - (let ((___kont4726347264_ - (lambda (_L36257_ _L36259_) - (map (lambda (_mod36274_) + ___stx4743747438_)))) + (let ((___kont4744047441_ + (lambda (_L36434_ _L36436_) + (map (lambda (_mod36451_) (gx#stx-identifier - _top36162_ - _top36162_ + _top36339_ + _top36339_ '"/" - _mod36274_)) - (_flatten36039_ - (map (lambda (_g3627636278_) - (_expand-path36041_ - _L36259_ - _g3627636278_)) - (let ((__tmp50931 - (lambda (_g3628136284_ - _g3628236287_) + _mod36451_)) + (_flatten36216_ + (map (lambda (_g3645336455_) + (_expand-path36218_ + _L36436_ + _g3645336455_)) + (let ((__tmp51142 + (lambda (_g3645836461_ + _g3645936464_) (let () (declare (not safe)) - (cons _g3628136284_ - _g3628236287_))))) + (cons _g3645836461_ + _g3645936464_))))) (declare (not safe)) - (foldr1 __tmp50931 + (foldr1 __tmp51142 '() - _L36257_))))))) - (___kont4726747268_ - (lambda (_L36196_) + _L36434_))))))) + (___kont4744447445_ + (lambda (_L36373_) (gx#stx-identifier - _top36162_ - _top36162_ + _top36339_ + _top36339_ '"/" - _L36196_)))) - (let* ((_g3616636210_ + _L36373_)))) + (let* ((_g3634336387_ (lambda () - (let ((_L36196_ ___stx4726047261_)) - (if (or (gx#identifier? _L36196_) - (gx#stx-fixnum? _L36196_)) - (___kont4726747268_ _L36196_) + (let ((_L36373_ ___stx4743747438_)) + (if (or (gx#identifier? _L36373_) + (gx#stx-fixnum? _L36373_)) + (___kont4744447445_ _L36373_) (let () (declare (not safe)) - (_g3616736189_)))))) - (___match4728347284_ - (lambda (_e3617336217_ - _hd3617236221_ - _tl3617136224_ - ___splice4726547266_ - _target3617436227_ - _tl3617636230_) - (letrec ((_loop3617736233_ - (lambda (_hd3617536237_ - _mod3618136240_) - (if (gx#stx-pair? _hd3617536237_) - (let ((_e3617836243_ + (_g3634436366_)))))) + (___match4746047461_ + (lambda (_e3635036394_ + _hd3634936398_ + _tl3634836401_ + ___splice4744247443_ + _target3635136404_ + _tl3635336407_) + (letrec ((_loop3635436410_ + (lambda (_hd3635236414_ + _mod3635836417_) + (if (gx#stx-pair? _hd3635236414_) + (let ((_e3635536420_ (gx#syntax-e - _hd3617536237_))) - (let ((_lp-tl3618036250_ + _hd3635236414_))) + (let ((_lp-tl3635736427_ (let () (declare (not safe)) - (##cdr _e3617836243_))) - (_lp-hd3617936247_ + (##cdr _e3635536420_))) + (_lp-hd3635636424_ (let () (declare (not safe)) - (##car _e3617836243_)))) - (_loop3617736233_ - _lp-tl3618036250_ + (##car _e3635536420_)))) + (_loop3635436410_ + _lp-tl3635736427_ (let () (declare (not safe)) - (cons _lp-hd3617936247_ - _mod3618136240_))))) - (let ((_mod3618236253_ - (reverse _mod3618136240_))) - (___kont4726347264_ - _mod3618236253_ - _hd3617236221_)))))) - (_loop3617736233_ - _target3617436227_ + (cons _lp-hd3635636424_ + _mod3635836417_))))) + (let ((_mod3635936430_ + (reverse _mod3635836417_))) + (___kont4744047441_ + _mod3635936430_ + _hd3634936398_)))))) + (_loop3635436410_ + _target3635136404_ '()))))) - (if (gx#stx-pair? ___stx4726047261_) - (let ((_e3617336217_ - (gx#syntax-e ___stx4726047261_))) - (let ((_tl3617136224_ + (if (gx#stx-pair? ___stx4743747438_) + (let ((_e3635036394_ + (gx#syntax-e ___stx4743747438_))) + (let ((_tl3634836401_ (let () (declare (not safe)) - (##cdr _e3617336217_))) - (_hd3617236221_ + (##cdr _e3635036394_))) + (_hd3634936398_ (let () (declare (not safe)) - (##car _e3617336217_)))) - (if (gx#stx-pair/null? _tl3617136224_) - (let ((___splice4726547266_ + (##car _e3635036394_)))) + (if (gx#stx-pair/null? _tl3634836401_) + (let ((___splice4744247443_ (gx#syntax-split-splice - _tl3617136224_ + _tl3634836401_ '0))) - (let ((_tl3617636230_ + (let ((_tl3635336407_ (let () (declare (not safe)) (##vector-ref - ___splice4726547266_ + ___splice4744247443_ '1))) - (_target3617436227_ + (_target3635136404_ (let () (declare (not safe)) (##vector-ref - ___splice4726547266_ + ___splice4744247443_ '0)))) - (if (gx#stx-null? _tl3617636230_) - (___match4728347284_ - _e3617336217_ - _hd3617236221_ - _tl3617136224_ - ___splice4726547266_ - _target3617436227_ - _tl3617636230_) + (if (gx#stx-null? _tl3635336407_) + (___match4746047461_ + _e3635036394_ + _hd3634936398_ + _tl3634836401_ + ___splice4744247443_ + _target3635136404_ + _tl3635336407_) (let () (declare (not safe)) - (_g3616636210_))))) + (_g3634336387_))))) (let () (declare (not safe)) - (_g3616636210_))))) + (_g3634336387_))))) (let () (declare (not safe)) - (_g3616636210_))))))))) - (let* ((_g3604336067_ - (lambda (_g3604436063_) + (_g3634336387_))))))))) + (let* ((_g3622036244_ + (lambda (_g3622136240_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3604436063_))) - (_g3604236158_ - (lambda (_g3604436071_) - (if (gx#stx-pair? _g3604436071_) - (let ((_e3604936074_ (gx#syntax-e _g3604436071_))) - (let ((_hd3604836078_ + _g3622136240_))) + (_g3621936335_ + (lambda (_g3622136248_) + (if (gx#stx-pair? _g3622136248_) + (let ((_e3622636251_ (gx#syntax-e _g3622136248_))) + (let ((_hd3622536255_ (let () (declare (not safe)) - (##car _e3604936074_))) - (_tl3604736081_ + (##car _e3622636251_))) + (_tl3622436258_ (let () (declare (not safe)) - (##cdr _e3604936074_)))) - (if (gx#stx-pair? _tl3604736081_) - (let ((_e3605236084_ - (gx#syntax-e _tl3604736081_))) - (let ((_hd3605136088_ + (##cdr _e3622636251_)))) + (if (gx#stx-pair? _tl3622436258_) + (let ((_e3622936261_ + (gx#syntax-e _tl3622436258_))) + (let ((_hd3622836265_ (let () (declare (not safe)) - (##car _e3605236084_))) - (_tl3605036091_ + (##car _e3622936261_))) + (_tl3622736268_ (let () (declare (not safe)) - (##cdr _e3605236084_)))) - (if (gx#stx-pair/null? _tl3605036091_) - (let ((_g50932_ + (##cdr _e3622936261_)))) + (if (gx#stx-pair/null? _tl3622736268_) + (let ((_g51143_ (gx#syntax-split-splice - _tl3605036091_ + _tl3622736268_ '0))) (begin - (let ((_g50933_ + (let ((_g51144_ (let () (declare (not safe)) - (if (##values? _g50932_) + (if (##values? _g51143_) (##vector-length - _g50932_) + _g51143_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50933_ 2))) + (##fx= _g51144_ 2))) (error "Context expects 2 values" - _g50933_))) - (let ((_target3605336094_ + _g51144_))) + (let ((_target3623036271_ (let () (declare (not safe)) - (##vector-ref _g50932_ 0))) - (_tl3605536097_ + (##vector-ref _g51143_ 0))) + (_tl3623236274_ (let () (declare (not safe)) (##vector-ref - _g50932_ + _g51143_ 1)))) - (if (gx#stx-null? _tl3605536097_) - (letrec ((_loop3605636100_ - (lambda (_hd3605436104_ + (if (gx#stx-null? _tl3623236274_) + (letrec ((_loop3623336277_ + (lambda (_hd3623136281_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mod3606036107_) - (if (gx#stx-pair? _hd3605436104_) - (let ((_e3605736110_ (gx#syntax-e _hd3605436104_))) - (let ((_lp-hd3605836114_ + _mod3623736284_) + (if (gx#stx-pair? _hd3623136281_) + (let ((_e3623436287_ (gx#syntax-e _hd3623136281_))) + (let ((_lp-hd3623536291_ (let () (declare (not safe)) - (##car _e3605736110_))) - (_lp-tl3605936117_ + (##car _e3623436287_))) + (_lp-tl3623636294_ (let () (declare (not safe)) - (##cdr _e3605736110_)))) - (_loop3605636100_ - _lp-tl3605936117_ + (##cdr _e3623436287_)))) + (_loop3623336277_ + _lp-tl3623636294_ (let () (declare (not safe)) - (cons _lp-hd3605836114_ _mod3606036107_))))) - (let ((_mod3606136120_ (reverse _mod3606036107_))) - ((lambda (_L36124_ _L36126_) - (let ((__tmp50934 - (_flatten36039_ - (map (lambda (_g3614436146_) - (_expand-path36041_ - _L36126_ - _g3614436146_)) - (let ((__tmp50935 - (lambda (_g3614936152_ - _g3615036155_) + (cons _lp-hd3623536291_ _mod3623736284_))))) + (let ((_mod3623836297_ (reverse _mod3623736284_))) + ((lambda (_L36301_ _L36303_) + (let ((__tmp51145 + (_flatten36216_ + (map (lambda (_g3632136323_) + (_expand-path36218_ + _L36303_ + _g3632136323_)) + (let ((__tmp51146 + (lambda (_g3632636329_ + _g3632736332_) (let () (declare (not safe)) - (cons _g3614936152_ - _g3615036155_))))) + (cons _g3632636329_ + _g3632736332_))))) (declare (not safe)) - (foldr1 __tmp50935 + (foldr1 __tmp51146 '() - _L36124_)))))) + _L36301_)))))) (declare (not safe)) - (cons 'begin: __tmp50934))) - _mod3606136120_ - _hd3605136088_)))))) + (cons 'begin: __tmp51145))) + _mod3623836297_ + _hd3622836265_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3605636100_ - _target3605336094_ + (_loop3623336277_ + _target3623036271_ '())) - (_g3604336067_ - _g3604436071_))))) - (_g3604336067_ _g3604436071_)))) - (_g3604336067_ _g3604436071_)))) - (_g3604336067_ _g3604436071_))))) - (_g3604236158_ _stx36036_)))))) + (_g3622036244_ + _g3622136248_))))) + (_g3622036244_ _g3622136248_)))) + (_g3622036244_ _g3622136248_)))) + (_g3622036244_ _g3622136248_))))) + (_g3621936335_ _stx36213_)))))) (define |gerbil/core$[:0:]#except-out| (gx#make-export-expander - (lambda (_stx36303_) - (let* ((_g3630636330_ - (lambda (_g3630736326_) + (lambda (_stx36480_) + (let* ((_g3648336507_ + (lambda (_g3648436503_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3630736326_))) - (_g3630536452_ - (lambda (_g3630736334_) - (if (gx#stx-pair? _g3630736334_) - (let ((_e3631236337_ (gx#syntax-e _g3630736334_))) - (let ((_hd3631136341_ + _g3648436503_))) + (_g3648236629_ + (lambda (_g3648436511_) + (if (gx#stx-pair? _g3648436511_) + (let ((_e3648936514_ (gx#syntax-e _g3648436511_))) + (let ((_hd3648836518_ (let () (declare (not safe)) - (##car _e3631236337_))) - (_tl3631036344_ + (##car _e3648936514_))) + (_tl3648736521_ (let () (declare (not safe)) - (##cdr _e3631236337_)))) - (if (gx#stx-pair? _tl3631036344_) - (let ((_e3631536347_ - (gx#syntax-e _tl3631036344_))) - (let ((_hd3631436351_ + (##cdr _e3648936514_)))) + (if (gx#stx-pair? _tl3648736521_) + (let ((_e3649236524_ + (gx#syntax-e _tl3648736521_))) + (let ((_hd3649136528_ (let () (declare (not safe)) - (##car _e3631536347_))) - (_tl3631336354_ + (##car _e3649236524_))) + (_tl3649036531_ (let () (declare (not safe)) - (##cdr _e3631536347_)))) - (if (gx#stx-pair/null? _tl3631336354_) - (let ((_g50936_ + (##cdr _e3649236524_)))) + (if (gx#stx-pair/null? _tl3649036531_) + (let ((_g51147_ (gx#syntax-split-splice - _tl3631336354_ + _tl3649036531_ '0))) (begin - (let ((_g50937_ + (let ((_g51148_ (let () (declare (not safe)) - (if (##values? _g50936_) + (if (##values? _g51147_) (##vector-length - _g50936_) + _g51147_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50937_ 2))) + (##fx= _g51148_ 2))) (error "Context expects 2 values" - _g50937_))) - (let ((_target3631636357_ + _g51148_))) + (let ((_target3649336534_ (let () (declare (not safe)) - (##vector-ref _g50936_ 0))) - (_tl3631836360_ + (##vector-ref _g51147_ 0))) + (_tl3649536537_ (let () (declare (not safe)) - (##vector-ref _g50936_ 1)))) - (if (gx#stx-null? _tl3631836360_) - (letrec ((_loop3631936363_ - (lambda (_hd3631736367_ + (##vector-ref _g51147_ 1)))) + (if (gx#stx-null? _tl3649536537_) + (letrec ((_loop3649636540_ + (lambda (_hd3649436544_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id3632336370_) - (if (gx#stx-pair? _hd3631736367_) - (let ((_e3632036373_ (gx#syntax-e _hd3631736367_))) - (let ((_lp-hd3632136377_ + _id3650036547_) + (if (gx#stx-pair? _hd3649436544_) + (let ((_e3649736550_ (gx#syntax-e _hd3649436544_))) + (let ((_lp-hd3649836554_ (let () (declare (not safe)) - (##car _e3632036373_))) - (_lp-tl3632236380_ + (##car _e3649736550_))) + (_lp-tl3649936557_ (let () (declare (not safe)) - (##cdr _e3632036373_)))) - (_loop3631936363_ - _lp-tl3632236380_ + (##cdr _e3649736550_)))) + (_loop3649636540_ + _lp-tl3649936557_ (let () (declare (not safe)) - (cons _lp-hd3632136377_ _id3632336370_))))) - (let ((_id3632436383_ (reverse _id3632336370_))) - ((lambda (_L36387_ _L36389_) + (cons _lp-hd3649836554_ _id3650036547_))))) + (let ((_id3650136560_ (reverse _id3650036547_))) + ((lambda (_L36564_ _L36566_) (if (gx#identifier-list? - (let ((__tmp50942 - (lambda (_g3640636409_ _g3640736412_) + (let ((__tmp51153 + (lambda (_g3658336586_ _g3658436589_) (let () (declare (not safe)) - (cons _g3640636409_ - _g3640736412_))))) + (cons _g3658336586_ + _g3658436589_))))) (declare (not safe)) - (foldr1 __tmp50942 '() _L36387_))) - (let* ((_keys36423_ + (foldr1 __tmp51153 '() _L36564_))) + (let* ((_keys36600_ (gx#stx-map gx#core-identifier-key - (let ((__tmp50938 - (lambda (_g3641436417_ - _g3641536420_) + (let ((__tmp51149 + (lambda (_g3659136594_ + _g3659236597_) (let () (declare (not safe)) - (cons _g3641436417_ - _g3641536420_))))) + (cons _g3659136594_ + _g3659236597_))))) (declare (not safe)) - (foldr1 __tmp50938 '() _L36387_)))) - (_keytab36434_ - (let ((_ht36426_ + (foldr1 __tmp51149 '() _L36564_)))) + (_keytab36611_ + (let ((_ht36603_ (let () (declare (not safe)) (make-table)))) (for-each - (lambda (_g3642836430_) + (lambda (_g3660536607_) (let () (declare (not safe)) (table-set! - _ht36426_ - _g3642836430_ + _ht36603_ + _g3660536607_ '#t))) - _keys36423_) - _ht36426_)) - (_exports36437_ + _keys36600_) + _ht36603_)) + (_exports36614_ (gx#core-expand-export-source - _L36389_)) - (_fold-e36447_ - (letrec ((_fold-e36440_ - (lambda (_out36443_ _r36445_) + _L36566_)) + (_fold-e36624_ + (letrec ((_fold-e36617_ + (lambda (_out36620_ _r36622_) (if (gx#module-export? - _out36443_) - (if (let ((__tmp50940 + _out36620_) + (if (let ((__tmp51151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#module-export-name _out36443_))) + (gx#module-export-name _out36620_))) (declare (not safe)) - (table-ref _keytab36434_ __tmp50940 '#f)) - _r36445_ - (let () (declare (not safe)) (cons _out36443_ _r36445_))) - (if (gx#export-set? _out36443_) - (let ((__tmp50939 (gx#export-set-exports _out36443_))) + (table-ref _keytab36611_ __tmp51151 '#f)) + _r36622_ + (let () (declare (not safe)) (cons _out36620_ _r36622_))) + (if (gx#export-set? _out36620_) + (let ((__tmp51150 (gx#export-set-exports _out36620_))) (declare (not safe)) - (foldl1 _fold-e36440_ _r36445_ __tmp50939)) - _r36445_))))) + (foldl1 _fold-e36617_ _r36622_ __tmp51150)) + _r36622_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36440_))) - (let ((__tmp50941 + _fold-e36617_))) + (let ((__tmp51152 (let () (declare (not safe)) - (foldl1 _fold-e36447_ + (foldl1 _fold-e36624_ '() - _exports36437_)))) + _exports36614_)))) (declare (not safe)) - (cons 'begin: __tmp50941))) - (_g3630636330_ _g3630736334_))) - _id3632436383_ - _hd3631436351_)))))) + (cons 'begin: __tmp51152))) + (_g3648336507_ _g3648436511_))) + _id3650136560_ + _hd3649136528_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3631936363_ - _target3631636357_ + (_loop3649636540_ + _target3649336534_ '())) - (_g3630636330_ - _g3630736334_))))) - (_g3630636330_ _g3630736334_)))) - (_g3630636330_ _g3630736334_)))) - (_g3630636330_ _g3630736334_))))) - (_g3630536452_ _stx36303_))))) + (_g3648336507_ + _g3648436511_))))) + (_g3648336507_ _g3648436511_)))) + (_g3648336507_ _g3648436511_)))) + (_g3648336507_ _g3648436511_))))) + (_g3648236629_ _stx36480_))))) (define |gerbil/core$[1]#module-export-rename| - (lambda (_out36457_ _rename36459_) + (lambda (_out36634_ _rename36636_) (gx#make-module-export - (gx#module-export-context _out36457_) - (gx#module-export-key _out36457_) - (gx#module-export-phi _out36457_) - _rename36459_ - (gx#module-export-weak? _out36457_)))) + (gx#module-export-context _out36634_) + (gx#module-export-key _out36634_) + (gx#module-export-phi _out36634_) + _rename36636_ + (gx#module-export-weak? _out36634_)))) (define |gerbil/core$[:0:]#rename-out| (gx#make-export-expander - (lambda (_stx36461_) - (let* ((_g3646436497_ - (lambda (_g3646536493_) + (lambda (_stx36638_) + (let* ((_g3664136674_ + (lambda (_g3664236670_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3646536493_))) - (_g3646336683_ - (lambda (_g3646536501_) - (if (gx#stx-pair? _g3646536501_) - (let ((_e3647136504_ (gx#syntax-e _g3646536501_))) - (let ((_hd3647036508_ + _g3664236670_))) + (_g3664036860_ + (lambda (_g3664236678_) + (if (gx#stx-pair? _g3664236678_) + (let ((_e3664836681_ (gx#syntax-e _g3664236678_))) + (let ((_hd3664736685_ (let () (declare (not safe)) - (##car _e3647136504_))) - (_tl3646936511_ + (##car _e3664836681_))) + (_tl3664636688_ (let () (declare (not safe)) - (##cdr _e3647136504_)))) - (if (gx#stx-pair? _tl3646936511_) - (let ((_e3647436514_ - (gx#syntax-e _tl3646936511_))) - (let ((_hd3647336518_ + (##cdr _e3664836681_)))) + (if (gx#stx-pair? _tl3664636688_) + (let ((_e3665136691_ + (gx#syntax-e _tl3664636688_))) + (let ((_hd3665036695_ (let () (declare (not safe)) - (##car _e3647436514_))) - (_tl3647236521_ + (##car _e3665136691_))) + (_tl3664936698_ (let () (declare (not safe)) - (##cdr _e3647436514_)))) - (if (gx#stx-pair/null? _tl3647236521_) - (let ((_g50943_ + (##cdr _e3665136691_)))) + (if (gx#stx-pair/null? _tl3664936698_) + (let ((_g51154_ (gx#syntax-split-splice - _tl3647236521_ + _tl3664936698_ '0))) (begin - (let ((_g50944_ + (let ((_g51155_ (let () (declare (not safe)) - (if (##values? _g50943_) + (if (##values? _g51154_) (##vector-length - _g50943_) + _g51154_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g50944_ 2))) + (##fx= _g51155_ 2))) (error "Context expects 2 values" - _g50944_))) - (let ((_target3647536524_ + _g51155_))) + (let ((_target3665236701_ (let () (declare (not safe)) - (##vector-ref _g50943_ 0))) - (_tl3647736527_ + (##vector-ref _g51154_ 0))) + (_tl3665436704_ (let () (declare (not safe)) - (##vector-ref _g50943_ 1)))) - (if (gx#stx-null? _tl3647736527_) - (letrec ((_loop3647836530_ - (lambda (_hd3647636534_ + (##vector-ref _g51154_ 1)))) + (if (gx#stx-null? _tl3665436704_) + (letrec ((_loop3665536707_ + (lambda (_hd3665336711_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _new-id3648236537_ - _id3648336539_) - (if (gx#stx-pair? _hd3647636534_) - (let ((_e3647936542_ (gx#syntax-e _hd3647636534_))) - (let ((_lp-hd3648036546_ + _new-id3665936714_ + _id3666036716_) + (if (gx#stx-pair? _hd3665336711_) + (let ((_e3665636719_ (gx#syntax-e _hd3665336711_))) + (let ((_lp-hd3665736723_ (let () (declare (not safe)) - (##car _e3647936542_))) - (_lp-tl3648136549_ + (##car _e3665636719_))) + (_lp-tl3665836726_ (let () (declare (not safe)) - (##cdr _e3647936542_)))) - (if (gx#stx-pair? _lp-hd3648036546_) - (let ((_e3648836552_ - (gx#syntax-e _lp-hd3648036546_))) - (let ((_hd3648736556_ + (##cdr _e3665636719_)))) + (if (gx#stx-pair? _lp-hd3665736723_) + (let ((_e3666536729_ + (gx#syntax-e _lp-hd3665736723_))) + (let ((_hd3666436733_ (let () (declare (not safe)) - (##car _e3648836552_))) - (_tl3648636559_ + (##car _e3666536729_))) + (_tl3666336736_ (let () (declare (not safe)) - (##cdr _e3648836552_)))) - (if (gx#stx-pair? _tl3648636559_) - (let ((_e3649136562_ - (gx#syntax-e _tl3648636559_))) - (let ((_hd3649036566_ + (##cdr _e3666536729_)))) + (if (gx#stx-pair? _tl3666336736_) + (let ((_e3666836739_ + (gx#syntax-e _tl3666336736_))) + (let ((_hd3666736743_ (let () (declare (not safe)) - (##car _e3649136562_))) - (_tl3648936569_ + (##car _e3666836739_))) + (_tl3666636746_ (let () (declare (not safe)) - (##cdr _e3649136562_)))) - (if (gx#stx-null? _tl3648936569_) - (_loop3647836530_ - _lp-tl3648136549_ + (##cdr _e3666836739_)))) + (if (gx#stx-null? _tl3666636746_) + (_loop3665536707_ + _lp-tl3665836726_ (let () (declare (not safe)) - (cons _hd3649036566_ - _new-id3648236537_)) + (cons _hd3666736743_ + _new-id3665936714_)) (let () (declare (not safe)) - (cons _hd3648736556_ - _id3648336539_))) - (_g3646436497_ _g3646536501_)))) - (_g3646436497_ _g3646536501_)))) - (_g3646436497_ _g3646536501_)))) - (let ((_new-id3648436572_ (reverse _new-id3648236537_)) - (_id3648536575_ (reverse _id3648336539_))) - ((lambda (_L36578_ _L36580_ _L36581_) + (cons _hd3666436733_ + _id3666036716_))) + (_g3664136674_ _g3664236678_)))) + (_g3664136674_ _g3664236678_)))) + (_g3664136674_ _g3664236678_)))) + (let ((_new-id3666136749_ (reverse _new-id3665936714_)) + (_id3666236752_ (reverse _id3666036716_))) + ((lambda (_L36755_ _L36757_ _L36758_) (if (and (gx#identifier-list? - (let ((__tmp50955 - (lambda (_g3659936602_ - _g3660036605_) + (let ((__tmp51166 + (lambda (_g3677636779_ + _g3677736782_) (let () (declare (not safe)) - (cons _g3659936602_ - _g3660036605_))))) + (cons _g3677636779_ + _g3677736782_))))) (declare (not safe)) - (foldr1 __tmp50955 '() _L36580_))) + (foldr1 __tmp51166 '() _L36757_))) (gx#identifier-list? - (let ((__tmp50954 - (lambda (_g3660736610_ - _g3660836613_) + (let ((__tmp51165 + (lambda (_g3678436787_ + _g3678536790_) (let () (declare (not safe)) - (cons _g3660736610_ - _g3660836613_))))) + (cons _g3678436787_ + _g3678536790_))))) (declare (not safe)) - (foldr1 __tmp50954 '() _L36578_)))) - (let* ((_keytab36616_ + (foldr1 __tmp51165 '() _L36755_)))) + (let* ((_keytab36793_ (let () (declare (not safe)) (make-table))) - (_found36619_ + (_found36796_ (let () (declare (not safe)) (make-table))) - (_g50949_ + (_g51160_ (for-each - (lambda (_id36622_ _new-id36624_) - (let ((__tmp50946 + (lambda (_id36799_ _new-id36801_) + (let ((__tmp51157 (gx#core-identifier-key - _id36622_)) - (__tmp50945 + _id36799_)) + (__tmp51156 (gx#core-identifier-key - _new-id36624_))) + _new-id36801_))) (declare (not safe)) (table-set! - _keytab36616_ - __tmp50946 - __tmp50945))) - (let ((__tmp50947 - (lambda (_g3662536628_ - _g3662636631_) + _keytab36793_ + __tmp51157 + __tmp51156))) + (let ((__tmp51158 + (lambda (_g3680236805_ + _g3680336808_) (let () (declare (not safe)) - (cons _g3662536628_ - _g3662636631_))))) + (cons _g3680236805_ + _g3680336808_))))) (declare (not safe)) - (foldr1 __tmp50947 '() _L36580_)) - (let ((__tmp50948 - (lambda (_g3663336636_ - _g3663436639_) + (foldr1 __tmp51158 '() _L36757_)) + (let ((__tmp51159 + (lambda (_g3681036813_ + _g3681136816_) (let () (declare (not safe)) - (cons _g3663336636_ - _g3663436639_))))) + (cons _g3681036813_ + _g3681136816_))))) (declare (not safe)) - (foldr1 __tmp50948 '() _L36578_)))) - (_exports36644_ + (foldr1 __tmp51159 '() _L36755_)))) + (_exports36821_ (gx#core-expand-export-source - _L36581_)) - (_fold-e36664_ - (letrec ((_fold-e36647_ - (lambda (_out36650_ _r36652_) + _L36758_)) + (_fold-e36841_ + (letrec ((_fold-e36824_ + (lambda (_out36827_ _r36829_) (if (gx#module-export? - _out36650_) - (let* ((_name36654_ + _out36827_) + (let* ((_name36831_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out36650_)) - (_$e36657_ + _out36827_)) + (_$e36834_ (let () (declare (not safe)) - (table-ref _keytab36616_ _name36654_ '#f)))) - (if _$e36657_ - ((lambda (_rename36661_) + (table-ref _keytab36793_ _name36831_ '#f)))) + (if _$e36834_ + ((lambda (_rename36838_) (let () (declare (not safe)) - (table-set! _found36619_ _name36654_ '#t)) - (let ((__tmp50951 + (table-set! _found36796_ _name36831_ '#t)) + (let ((__tmp51162 (let () (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out36650_ - _rename36661_)))) + _out36827_ + _rename36838_)))) (declare (not safe)) - (cons __tmp50951 _r36652_))) - _$e36657_) + (cons __tmp51162 _r36829_))) + _$e36834_) (let () (declare (not safe)) - (cons _out36650_ _r36652_)))) - (if (gx#export-set? _out36650_) - (let ((__tmp50950 (gx#export-set-exports _out36650_))) + (cons _out36827_ _r36829_)))) + (if (gx#export-set? _out36827_) + (let ((__tmp51161 (gx#export-set-exports _out36827_))) (declare (not safe)) - (foldl1 _fold-e36647_ _r36652_ __tmp50950)) + (foldl1 _fold-e36824_ _r36829_ __tmp51161)) (let () (declare (not safe)) - (cons _out36650_ _r36652_))))))) + (cons _out36827_ _r36829_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _fold-e36647_)) - (_new-exports36667_ + _fold-e36824_)) + (_new-exports36844_ (let () (declare (not safe)) - (foldl1 _fold-e36664_ + (foldl1 _fold-e36841_ '() - _exports36644_)))) + _exports36821_)))) (for-each - (lambda (_id36672_) - (if (let ((__tmp50952 + (lambda (_id36849_) + (if (let ((__tmp51163 (gx#core-identifier-key - _id36672_))) + _id36849_))) (declare (not safe)) (table-ref - _found36619_ - __tmp50952 + _found36796_ + __tmp51163 '#f)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" - _stx36461_ - _id36672_))) - (let ((__tmp50953 - (lambda (_g3667436677_ _g3667536680_) + _stx36638_ + _id36849_))) + (let ((__tmp51164 + (lambda (_g3685136854_ _g3685236857_) (let () (declare (not safe)) - (cons _g3667436677_ - _g3667536680_))))) + (cons _g3685136854_ + _g3685236857_))))) (declare (not safe)) - (foldr1 __tmp50953 '() _L36580_))) + (foldr1 __tmp51164 '() _L36757_))) (let () (declare (not safe)) - (cons 'begin: _new-exports36667_))) - (_g3646436497_ _g3646536501_))) - _new-id3648436572_ - _id3648536575_ - _hd3647336518_)))))) + (cons 'begin: _new-exports36844_))) + (_g3664136674_ _g3664236678_))) + _new-id3666136749_ + _id3666236752_ + _hd3665036695_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop3647836530_ - _target3647536524_ + (_loop3665536707_ + _target3665236701_ '() '())) - (_g3646436497_ - _g3646536501_))))) - (_g3646436497_ _g3646536501_)))) - (_g3646436497_ _g3646536501_)))) - (_g3646436497_ _g3646536501_))))) - (_g3646336683_ _stx36461_))))) + (_g3664136674_ + _g3664236678_))))) + (_g3664136674_ _g3664236678_)))) + (_g3664136674_ _g3664236678_)))) + (_g3664136674_ _g3664236678_))))) + (_g3664036860_ _stx36638_))))) (define |gerbil/core$[:0:]#prefix-out| (gx#make-export-expander - (lambda (_stx36689_) - (let* ((_g3669236710_ - (lambda (_g3669336706_) + (lambda (_stx36866_) + (let* ((_g3686936887_ + (lambda (_g3687036883_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3669336706_))) - (_g3669136789_ - (lambda (_g3669336714_) - (if (gx#stx-pair? _g3669336714_) - (let ((_e3669836717_ (gx#syntax-e _g3669336714_))) - (let ((_hd3669736721_ + _g3687036883_))) + (_g3686836966_ + (lambda (_g3687036891_) + (if (gx#stx-pair? _g3687036891_) + (let ((_e3687536894_ (gx#syntax-e _g3687036891_))) + (let ((_hd3687436898_ (let () (declare (not safe)) - (##car _e3669836717_))) - (_tl3669636724_ + (##car _e3687536894_))) + (_tl3687336901_ (let () (declare (not safe)) - (##cdr _e3669836717_)))) - (if (gx#stx-pair? _tl3669636724_) - (let ((_e3670136727_ - (gx#syntax-e _tl3669636724_))) - (let ((_hd3670036731_ + (##cdr _e3687536894_)))) + (if (gx#stx-pair? _tl3687336901_) + (let ((_e3687836904_ + (gx#syntax-e _tl3687336901_))) + (let ((_hd3687736908_ (let () (declare (not safe)) - (##car _e3670136727_))) - (_tl3669936734_ + (##car _e3687836904_))) + (_tl3687636911_ (let () (declare (not safe)) - (##cdr _e3670136727_)))) - (if (gx#stx-pair? _tl3669936734_) - (let ((_e3670436737_ - (gx#syntax-e _tl3669936734_))) - (let ((_hd3670336741_ + (##cdr _e3687836904_)))) + (if (gx#stx-pair? _tl3687636911_) + (let ((_e3688136914_ + (gx#syntax-e _tl3687636911_))) + (let ((_hd3688036918_ (let () (declare (not safe)) - (##car _e3670436737_))) - (_tl3670236744_ + (##car _e3688136914_))) + (_tl3687936921_ (let () (declare (not safe)) - (##cdr _e3670436737_)))) - (if (gx#stx-null? _tl3670236744_) - ((lambda (_L36747_ _L36749_) - (if (gx#identifier? _L36747_) - (let* ((_pre36765_ + (##cdr _e3688136914_)))) + (if (gx#stx-null? _tl3687936921_) + ((lambda (_L36924_ _L36926_) + (if (gx#identifier? _L36924_) + (let* ((_pre36942_ (gx#stx-e - _L36747_)) - (_exports36768_ + _L36924_)) + (_exports36945_ (gx#core-expand-export-source - _L36749_)) - (_rename-e36774_ - (lambda (_name36771_) + _L36926_)) + (_rename-e36951_ + (lambda (_name36948_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core$[1]#prefix-identifier-key| - _name36771_ - _pre36765_)))) - (_fold-e36784_ - (letrec ((_fold-e36777_ - (lambda (_out36780_ _r36782_) - (if (gx#module-export? _out36780_) - (let ((__tmp50957 - (let ((__tmp50958 - (_rename-e36774_ + _name36948_ + _pre36942_)))) + (_fold-e36961_ + (letrec ((_fold-e36954_ + (lambda (_out36957_ _r36959_) + (if (gx#module-export? _out36957_) + (let ((__tmp51168 + (let ((__tmp51169 + (_rename-e36951_ (gx#module-export-name - _out36780_)))) + _out36957_)))) (declare (not safe)) (|gerbil/core$[1]#module-export-rename| - _out36780_ - __tmp50958)))) + _out36957_ + __tmp51169)))) (declare (not safe)) - (cons __tmp50957 _r36782_)) - (if (gx#export-set? _out36780_) - (let ((__tmp50956 + (cons __tmp51168 _r36959_)) + (if (gx#export-set? _out36957_) + (let ((__tmp51167 (gx#export-set-exports - _out36780_))) + _out36957_))) (declare (not safe)) - (foldl1 _fold-e36777_ - _r36782_ - __tmp50956)) + (foldl1 _fold-e36954_ + _r36959_ + __tmp51167)) (let () (declare (not safe)) - (cons _out36780_ _r36782_))))))) - _fold-e36777_))) - (let ((__tmp50959 + (cons _out36957_ _r36959_))))))) + _fold-e36954_))) + (let ((__tmp51170 (let () (declare (not safe)) - (foldl1 _fold-e36784_ '() _exports36768_)))) + (foldl1 _fold-e36961_ '() _exports36945_)))) (declare (not safe)) - (cons 'begin: __tmp50959))) + (cons 'begin: __tmp51170))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g3669236710_ - _g3669336714_))) - _hd3670336741_ - _hd3670036731_) - (_g3669236710_ _g3669336714_)))) - (_g3669236710_ _g3669336714_)))) - (_g3669236710_ _g3669336714_)))) - (_g3669236710_ _g3669336714_))))) - (_g3669136789_ _stx36689_))))) + (_g3686936887_ + _g3687036891_))) + _hd3688036918_ + _hd3687736908_) + (_g3686936887_ _g3687036891_)))) + (_g3686936887_ _g3687036891_)))) + (_g3686936887_ _g3687036891_)))) + (_g3686936887_ _g3687036891_))))) + (_g3686836966_ _stx36866_))))) (define |gerbil/core$[:0:]#struct-out| (gx#make-export-expander - (lambda (_stx36793_) - (letrec ((_identifiers36796_ - (lambda (_id37028_ _unchecked?37030_) - (let ((_info37032_ (gx#syntax-local-value _id37028_ false))) + (lambda (_stx36970_) + (letrec ((_identifiers36973_ + (lambda (_id37205_ _unchecked?37207_) + (let ((_info37209_ (gx#syntax-local-value _id37205_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core$$#class-type-info::t - _info37032_)) - (let ((__tmp50960 - (let ((__tmp50972 - (let ((__obj47363 _info37032_)) + _info37209_)) + (let ((__tmp51171 + (let ((__tmp51183 + (let ((__obj47540 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47363 + __obj47540 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47363 - '8 + __obj47540 + '9 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47363 + __obj47540 'type-descriptor)))) - (__tmp50961 - (let ((__tmp50963 - (let ((__tmp50971 - (let ((__obj47364 - _info37032_)) + (__tmp51172 + (let ((__tmp51174 + (let ((__tmp51182 + (let ((__obj47541 + _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47364 + __obj47541 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47364 - '10 + __obj47541 + '11 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47364 + __obj47541 'predicate)))) - (__tmp50964 - (let ((__tmp50966 - (let ((__tmp50968 + (__tmp51175 + (let ((__tmp51177 + (let ((__tmp51179 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if _unchecked?37030_ - (let ((__tmp50970 + (if _unchecked?37207_ + (let ((__tmp51181 (map cdr - (let ((__obj47365 _info37032_)) + (let ((__obj47542 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47365 + __obj47542 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47365 - '14 + __obj47542 + '15 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47365 + __obj47542 'unchecked-mutators))))) - (__tmp50969 + (__tmp51180 (map cdr - (let ((__obj47366 _info37032_)) + (let ((__obj47543 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47366 + __obj47543 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47366 - '13 + __obj47543 + '14 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47366 + __obj47543 'unchecked-accessors)))))) (declare (not safe)) - (foldr1 cons __tmp50970 __tmp50969)) + (foldr1 cons __tmp51181 __tmp51180)) '())) - (__tmp50967 + (__tmp51178 (map cdr - (let ((__obj47367 _info37032_)) + (let ((__obj47544 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47367 + __obj47544 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47367 - '12 + __obj47544 + '13 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47367 + __obj47544 'mutators)))))) (declare (not safe)) - (foldr1 cons __tmp50968 __tmp50967))) - (__tmp50965 + (foldr1 cons __tmp51179 __tmp51178))) + (__tmp51176 (map cdr - (let ((__obj47368 _info37032_)) + (let ((__obj47545 _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47368 + __obj47545 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47368 - '11 + __obj47545 + '12 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47368 + __obj47545 'accessors)))))) (declare (not safe)) - (foldr1 cons __tmp50966 __tmp50965)))) + (foldr1 cons __tmp51177 __tmp51176)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp50971 __tmp50964))) - (__tmp50962 - (let ((_ctor37035_ - (let ((__obj47369 - _info37032_)) + (cons __tmp51182 __tmp51175))) + (__tmp51173 + (let ((_ctor37212_ + (let ((__obj47546 + _info37209_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47369 + __obj47546 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47369 - '9 + __obj47546 + '10 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47369 + __obj47546 'constructor))))) - (if _ctor37035_ + (if _ctor37212_ (let () (declare (not safe)) - (cons _ctor37035_ '())) + (cons _ctor37212_ '())) '())))) (declare (not safe)) - (foldr1 cons __tmp50963 __tmp50962)))) + (foldr1 cons __tmp51174 __tmp51173)))) (declare (not safe)) - (cons __tmp50972 __tmp50961)))) + (cons __tmp51183 __tmp51172)))) (declare (not safe)) - (cons _id37028_ __tmp50960)) + (cons _id37205_ __tmp51171)) (gx#raise-syntax-error '#f '"no class type info" - _stx36793_ - _id37028_)))))) - (let* ((___stx4728647287_ _stx36793_) - (_g3680036841_ + _stx36970_ + _id37205_)))))) + (let* ((___stx4746347464_ _stx36970_) + (_g3697737018_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4728647287_)))) - (let ((___kont4728947290_ - (lambda (_L36989_ _L36991_) - (let ((__tmp50973 + ___stx4746347464_)))) + (let ((___kont4746647467_ + (lambda (_L37166_ _L37168_) + (let ((__tmp51184 (concatenate (gx#stx-map - (lambda (_g3701037012_) - (_identifiers36796_ - _g3701037012_ - (gx#stx-e _L36991_))) - (let ((__tmp50974 - (lambda (_g3701537018_ _g3701637021_) + (lambda (_g3718737189_) + (_identifiers36973_ + _g3718737189_ + (gx#stx-e _L37168_))) + (let ((__tmp51185 + (lambda (_g3719237195_ _g3719337198_) (let () (declare (not safe)) - (cons _g3701537018_ _g3701637021_))))) + (cons _g3719237195_ _g3719337198_))))) (declare (not safe)) - (foldr1 __tmp50974 '() _L36989_)))))) + (foldr1 __tmp51185 '() _L37166_)))))) (declare (not safe)) - (cons 'begin: __tmp50973)))) - (___kont4729347294_ - (lambda (_L36888_) - (let ((__tmp50975 + (cons 'begin: __tmp51184)))) + (___kont4747047471_ + (lambda (_L37065_) + (let ((__tmp51186 (concatenate (gx#stx-map - (lambda (_g3690436906_) - (_identifiers36796_ _g3690436906_ '#f)) - (let ((__tmp50976 - (lambda (_g3690936912_ _g3691036915_) + (lambda (_g3708137083_) + (_identifiers36973_ _g3708137083_ '#f)) + (let ((__tmp51187 + (lambda (_g3708637089_ _g3708737092_) (let () (declare (not safe)) - (cons _g3690936912_ _g3691036915_))))) + (cons _g3708637089_ _g3708737092_))))) (declare (not safe)) - (foldr1 __tmp50976 '() _L36888_)))))) + (foldr1 __tmp51187 '() _L37065_)))))) (declare (not safe)) - (cons 'begin: __tmp50975))))) - (let* ((___match4734347344_ - (lambda (_e3682636848_ - _hd3682536852_ - _tl3682436855_ - ___splice4729547296_ - _target3682736858_ - _tl3682936861_) - (letrec ((_loop3683036864_ - (lambda (_hd3682836868_ _id3683436871_) - (if (gx#stx-pair? _hd3682836868_) - (let ((_e3683136874_ - (gx#syntax-e _hd3682836868_))) - (let ((_lp-tl3683336881_ + (cons 'begin: __tmp51186))))) + (let* ((___match4752047521_ + (lambda (_e3700337025_ + _hd3700237029_ + _tl3700137032_ + ___splice4747247473_ + _target3700437035_ + _tl3700637038_) + (letrec ((_loop3700737041_ + (lambda (_hd3700537045_ _id3701137048_) + (if (gx#stx-pair? _hd3700537045_) + (let ((_e3700837051_ + (gx#syntax-e _hd3700537045_))) + (let ((_lp-tl3701037058_ (let () (declare (not safe)) - (##cdr _e3683136874_))) - (_lp-hd3683236878_ + (##cdr _e3700837051_))) + (_lp-hd3700937055_ (let () (declare (not safe)) - (##car _e3683136874_)))) - (_loop3683036864_ - _lp-tl3683336881_ + (##car _e3700837051_)))) + (_loop3700737041_ + _lp-tl3701037058_ (let () (declare (not safe)) - (cons _lp-hd3683236878_ - _id3683436871_))))) - (let ((_id3683536884_ - (reverse _id3683436871_))) - (___kont4729347294_ - _id3683536884_)))))) - (_loop3683036864_ _target3682736858_ '())))) - (___match4732947330_ - (lambda (_e3680636925_ - _hd3680536929_ - _tl3680436932_ - _e3680936935_ - _hd3680836939_ - _tl3680736942_ - _e3681036945_ - _e3681336949_ - _hd3681236953_ - _tl3681136956_ - ___splice4729147292_ - _target3681436959_ - _tl3681636962_) - (letrec ((_loop3681736965_ - (lambda (_hd3681536969_ _id3682136972_) - (if (gx#stx-pair? _hd3681536969_) - (let ((_e3681836975_ - (gx#syntax-e _hd3681536969_))) - (let ((_lp-tl3682036982_ + (cons _lp-hd3700937055_ + _id3701137048_))))) + (let ((_id3701237061_ + (reverse _id3701137048_))) + (___kont4747047471_ + _id3701237061_)))))) + (_loop3700737041_ _target3700437035_ '())))) + (___match4750647507_ + (lambda (_e3698337102_ + _hd3698237106_ + _tl3698137109_ + _e3698637112_ + _hd3698537116_ + _tl3698437119_ + _e3698737122_ + _e3699037126_ + _hd3698937130_ + _tl3698837133_ + ___splice4746847469_ + _target3699137136_ + _tl3699337139_) + (letrec ((_loop3699437142_ + (lambda (_hd3699237146_ _id3699837149_) + (if (gx#stx-pair? _hd3699237146_) + (let ((_e3699537152_ + (gx#syntax-e _hd3699237146_))) + (let ((_lp-tl3699737159_ (let () (declare (not safe)) - (##cdr _e3681836975_))) - (_lp-hd3681936979_ + (##cdr _e3699537152_))) + (_lp-hd3699637156_ (let () (declare (not safe)) - (##car _e3681836975_)))) - (_loop3681736965_ - _lp-tl3682036982_ + (##car _e3699537152_)))) + (_loop3699437142_ + _lp-tl3699737159_ (let () (declare (not safe)) - (cons _lp-hd3681936979_ - _id3682136972_))))) - (let ((_id3682236985_ - (reverse _id3682136972_))) - (___kont4728947290_ - _id3682236985_ - _hd3681236953_)))))) - (_loop3681736965_ _target3681436959_ '()))))) - (if (gx#stx-pair? ___stx4728647287_) - (let ((_e3680636925_ (gx#syntax-e ___stx4728647287_))) - (let ((_tl3680436932_ + (cons _lp-hd3699637156_ + _id3699837149_))))) + (let ((_id3699937162_ + (reverse _id3699837149_))) + (___kont4746647467_ + _id3699937162_ + _hd3698937130_)))))) + (_loop3699437142_ _target3699137136_ '()))))) + (if (gx#stx-pair? ___stx4746347464_) + (let ((_e3698337102_ (gx#syntax-e ___stx4746347464_))) + (let ((_tl3698137109_ (let () (declare (not safe)) - (##cdr _e3680636925_))) - (_hd3680536929_ + (##cdr _e3698337102_))) + (_hd3698237106_ (let () (declare (not safe)) - (##car _e3680636925_)))) - (if (gx#stx-pair? _tl3680436932_) - (let ((_e3680936935_ (gx#syntax-e _tl3680436932_))) - (let ((_tl3680736942_ + (##car _e3698337102_)))) + (if (gx#stx-pair? _tl3698137109_) + (let ((_e3698637112_ (gx#syntax-e _tl3698137109_))) + (let ((_tl3698437119_ (let () (declare (not safe)) - (##cdr _e3680936935_))) - (_hd3680836939_ + (##cdr _e3698637112_))) + (_hd3698537116_ (let () (declare (not safe)) - (##car _e3680936935_)))) - (if (gx#stx-datum? _hd3680836939_) - (let ((_e3681036945_ - (gx#stx-e _hd3680836939_))) + (##car _e3698637112_)))) + (if (gx#stx-datum? _hd3698537116_) + (let ((_e3698737122_ + (gx#stx-e _hd3698537116_))) (if (let () (declare (not safe)) - (equal? _e3681036945_ 'unchecked:)) - (if (gx#stx-pair? _tl3680736942_) - (let ((_e3681336949_ + (equal? _e3698737122_ 'unchecked:)) + (if (gx#stx-pair? _tl3698437119_) + (let ((_e3699037126_ (gx#syntax-e - _tl3680736942_))) - (let ((_tl3681136956_ + _tl3698437119_))) + (let ((_tl3698837133_ (let () (declare (not safe)) - (##cdr _e3681336949_))) - (_hd3681236953_ + (##cdr _e3699037126_))) + (_hd3698937130_ (let () (declare (not safe)) - (##car _e3681336949_)))) + (##car _e3699037126_)))) (if (gx#stx-pair/null? - _tl3681136956_) - (let ((___splice4729147292_ + _tl3698837133_) + (let ((___splice4746847469_ (gx#syntax-split-splice - _tl3681136956_ + _tl3698837133_ '0))) - (let ((_tl3681636962_ + (let ((_tl3699337139_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4729147292_ '1))) - (_target3681436959_ + (##vector-ref ___splice4746847469_ '1))) + (_target3699137136_ (let () (declare (not safe)) - (##vector-ref ___splice4729147292_ '0)))) - (if (gx#stx-null? _tl3681636962_) - (___match4732947330_ - _e3680636925_ - _hd3680536929_ - _tl3680436932_ - _e3680936935_ - _hd3680836939_ - _tl3680736942_ - _e3681036945_ - _e3681336949_ - _hd3681236953_ - _tl3681136956_ - ___splice4729147292_ - _target3681436959_ - _tl3681636962_) - (if (gx#stx-pair/null? _tl3680436932_) - (let ((___splice4729547296_ - (gx#syntax-split-splice _tl3680436932_ '0))) - (let ((_tl3682936861_ + (##vector-ref ___splice4746847469_ '0)))) + (if (gx#stx-null? _tl3699337139_) + (___match4750647507_ + _e3698337102_ + _hd3698237106_ + _tl3698137109_ + _e3698637112_ + _hd3698537116_ + _tl3698437119_ + _e3698737122_ + _e3699037126_ + _hd3698937130_ + _tl3698837133_ + ___splice4746847469_ + _target3699137136_ + _tl3699337139_) + (if (gx#stx-pair/null? _tl3698137109_) + (let ((___splice4747247473_ + (gx#syntax-split-splice _tl3698137109_ '0))) + (let ((_tl3700637038_ (let () (declare (not safe)) - (##vector-ref ___splice4729547296_ '1))) - (_target3682736858_ + (##vector-ref ___splice4747247473_ '1))) + (_target3700437035_ (let () (declare (not safe)) - (##vector-ref ___splice4729547296_ '0)))) - (if (gx#stx-null? _tl3682936861_) - (___match4734347344_ - _e3680636925_ - _hd3680536929_ - _tl3680436932_ - ___splice4729547296_ - _target3682736858_ - _tl3682936861_) + (##vector-ref ___splice4747247473_ '0)))) + (if (gx#stx-null? _tl3700637038_) + (___match4752047521_ + _e3698337102_ + _hd3698237106_ + _tl3698137109_ + ___splice4747247473_ + _target3700437035_ + _tl3700637038_) (let () (declare (not safe)) - (_g3680036841_))))) - (let () (declare (not safe)) (_g3680036841_)))))) + (_g3697737018_))))) + (let () (declare (not safe)) (_g3697737018_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl3680436932_) - (let ((___splice4729547296_ + _tl3698137109_) + (let ((___splice4747247473_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl3680436932_ + _tl3698137109_ '0))) - (let ((_tl3682936861_ + (let ((_tl3700637038_ (let () (declare (not safe)) - (##vector-ref ___splice4729547296_ '1))) - (_target3682736858_ + (##vector-ref ___splice4747247473_ '1))) + (_target3700437035_ (let () (declare (not safe)) - (##vector-ref ___splice4729547296_ '0)))) - (if (gx#stx-null? _tl3682936861_) - (___match4734347344_ - _e3680636925_ - _hd3680536929_ - _tl3680436932_ - ___splice4729547296_ - _target3682736858_ - _tl3682936861_) - (let () (declare (not safe)) (_g3680036841_))))) - (let () (declare (not safe)) (_g3680036841_)))))) + (##vector-ref ___splice4747247473_ '0)))) + (if (gx#stx-null? _tl3700637038_) + (___match4752047521_ + _e3698337102_ + _hd3698237106_ + _tl3698137109_ + ___splice4747247473_ + _target3700437035_ + _tl3700637038_) + (let () (declare (not safe)) (_g3697737018_))))) + (let () (declare (not safe)) (_g3697737018_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl3680436932_) - (let ((___splice4729547296_ + _tl3698137109_) + (let ((___splice4747247473_ (gx#syntax-split-splice - _tl3680436932_ + _tl3698137109_ '0))) - (let ((_tl3682936861_ + (let ((_tl3700637038_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '1))) - (_target3682736858_ + (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '0)))) (if (gx#stx-null? - _tl3682936861_) - (___match4734347344_ - _e3680636925_ - _hd3680536929_ - _tl3680436932_ - ___splice4729547296_ - _target3682736858_ - _tl3682936861_) + _tl3700637038_) + (___match4752047521_ + _e3698337102_ + _hd3698237106_ + _tl3698137109_ + ___splice4747247473_ + _target3700437035_ + _tl3700637038_) (let () (declare (not safe)) - (_g3680036841_))))) + (_g3697737018_))))) (let () (declare (not safe)) - (_g3680036841_)))) - (if (gx#stx-pair/null? _tl3680436932_) - (let ((___splice4729547296_ + (_g3697737018_)))) + (if (gx#stx-pair/null? _tl3698137109_) + (let ((___splice4747247473_ (gx#syntax-split-splice - _tl3680436932_ + _tl3698137109_ '0))) - (let ((_tl3682936861_ + (let ((_tl3700637038_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '1))) - (_target3682736858_ + (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '0)))) (if (gx#stx-null? - _tl3682936861_) - (___match4734347344_ - _e3680636925_ - _hd3680536929_ - _tl3680436932_ - ___splice4729547296_ - _target3682736858_ - _tl3682936861_) + _tl3700637038_) + (___match4752047521_ + _e3698337102_ + _hd3698237106_ + _tl3698137109_ + ___splice4747247473_ + _target3700437035_ + _tl3700637038_) (let () (declare (not safe)) - (_g3680036841_))))) + (_g3697737018_))))) (let () (declare (not safe)) - (_g3680036841_))))) - (if (gx#stx-pair/null? _tl3680436932_) - (let ((___splice4729547296_ + (_g3697737018_))))) + (if (gx#stx-pair/null? _tl3698137109_) + (let ((___splice4747247473_ (gx#syntax-split-splice - _tl3680436932_ + _tl3698137109_ '0))) - (let ((_tl3682936861_ + (let ((_tl3700637038_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '1))) - (_target3682736858_ + (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '0)))) - (if (gx#stx-null? _tl3682936861_) - (___match4734347344_ - _e3680636925_ - _hd3680536929_ - _tl3680436932_ - ___splice4729547296_ - _target3682736858_ - _tl3682936861_) + (if (gx#stx-null? _tl3700637038_) + (___match4752047521_ + _e3698337102_ + _hd3698237106_ + _tl3698137109_ + ___splice4747247473_ + _target3700437035_ + _tl3700637038_) (let () (declare (not safe)) - (_g3680036841_))))) + (_g3697737018_))))) (let () (declare (not safe)) - (_g3680036841_)))))) - (if (gx#stx-pair/null? _tl3680436932_) - (let ((___splice4729547296_ + (_g3697737018_)))))) + (if (gx#stx-pair/null? _tl3698137109_) + (let ((___splice4747247473_ (gx#syntax-split-splice - _tl3680436932_ + _tl3698137109_ '0))) - (let ((_tl3682936861_ + (let ((_tl3700637038_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '1))) - (_target3682736858_ + (_target3700437035_ (let () (declare (not safe)) (##vector-ref - ___splice4729547296_ + ___splice4747247473_ '0)))) - (if (gx#stx-null? _tl3682936861_) - (___match4734347344_ - _e3680636925_ - _hd3680536929_ - _tl3680436932_ - ___splice4729547296_ - _target3682736858_ - _tl3682936861_) + (if (gx#stx-null? _tl3700637038_) + (___match4752047521_ + _e3698337102_ + _hd3698237106_ + _tl3698137109_ + ___splice4747247473_ + _target3700437035_ + _tl3700637038_) (let () (declare (not safe)) - (_g3680036841_))))) + (_g3697737018_))))) (let () (declare (not safe)) - (_g3680036841_)))))) - (let () (declare (not safe)) (_g3680036841_))))))))))) + (_g3697737018_)))))) + (let () (declare (not safe)) (_g3697737018_))))))))))) diff --git a/src/bootstrap/gerbil/core__16.scm b/src/bootstrap/gerbil/core__16.scm index 6150ea4d4..ca8ed56be 100644 --- a/src/bootstrap/gerbil/core__16.scm +++ b/src/bootstrap/gerbil/core__16.scm @@ -1,43 +1,43 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gerbil/core$[:0:]#eval-when-compile| - (lambda (_stx37041_) - (let* ((_g3704437058_ - (lambda (_g3704537054_) + (lambda (_stx37218_) + (let* ((_g3722137235_ + (lambda (_g3722237231_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g3704537054_))) - (_g3704337100_ - (lambda (_g3704537062_) - (if (gx#stx-pair? _g3704537062_) - (let ((_e3704937065_ (gx#syntax-e _g3704537062_))) - (let ((_hd3704837069_ - (let () (declare (not safe)) (##car _e3704937065_))) - (_tl3704737072_ + _g3722237231_))) + (_g3722037277_ + (lambda (_g3722237239_) + (if (gx#stx-pair? _g3722237239_) + (let ((_e3722637242_ (gx#syntax-e _g3722237239_))) + (let ((_hd3722537246_ + (let () (declare (not safe)) (##car _e3722637242_))) + (_tl3722437249_ (let () (declare (not safe)) - (##cdr _e3704937065_)))) - (if (gx#stx-pair? _tl3704737072_) - (let ((_e3705237075_ (gx#syntax-e _tl3704737072_))) - (let ((_hd3705137079_ + (##cdr _e3722637242_)))) + (if (gx#stx-pair? _tl3722437249_) + (let ((_e3722937252_ (gx#syntax-e _tl3722437249_))) + (let ((_hd3722837256_ (let () (declare (not safe)) - (##car _e3705237075_))) - (_tl3705037082_ + (##car _e3722937252_))) + (_tl3722737259_ (let () (declare (not safe)) - (##cdr _e3705237075_)))) - (if (gx#stx-null? _tl3705037082_) - ((lambda (_L37085_) + (##cdr _e3722937252_)))) + (if (gx#stx-null? _tl3722737259_) + ((lambda (_L37262_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _L37085_) + (gx#eval-syntax _L37262_) '#!void) - (let ((__tmp50977 + (let ((__tmp51188 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp50977 '()))) - _hd3705137079_) - (_g3704437058_ _g3704537062_)))) - (_g3704437058_ _g3704537062_)))) - (_g3704437058_ _g3704537062_))))) - (_g3704337100_ _stx37041_)))) + (cons __tmp51188 '()))) + _hd3722837256_) + (_g3722137235_ _g3722237239_)))) + (_g3722137235_ _g3722237239_)))) + (_g3722137235_ _g3722237239_))))) + (_g3722037277_ _stx37218_)))) diff --git a/src/bootstrap/gerbil/core__2.scm b/src/bootstrap/gerbil/core__2.scm index b1e2d2f1b..456bb628f 100644 --- a/src/bootstrap/gerbil/core__2.scm +++ b/src/bootstrap/gerbil/core__2.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g47459_| + (define |gerbil/core$[1]#_g47636_| (##structure gx#syntax-quote::t 'values @@ -34,31 +34,31 @@ (declare (not safe)) (##cdr _e6092_)))) (if (gx#stx-pair/null? _tl5899_) - (let ((_g47379_ + (let ((_g47556_ (gx#syntax-split-splice _tl5899_ '0))) (begin - (let ((_g47380_ + (let ((_g47557_ (let () (declare (not safe)) - (if (##values? _g47379_) + (if (##values? _g47556_) (##vector-length - _g47379_) + _g47556_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47380_ 2))) + (##fx= _g47557_ 2))) (error "Context expects 2 values" - _g47380_))) + _g47557_))) (let ((_target61102_ (let () (declare (not safe)) - (##vector-ref _g47379_ 0))) + (##vector-ref _g47556_ 0))) (_tl63105_ (let () (declare (not safe)) - (##vector-ref _g47379_ 1)))) + (##vector-ref _g47556_ 1)))) (if (gx#stx-null? _tl63105_) (letrec ((_loop64108_ (lambda (_hd62112_ @@ -85,59 +85,59 @@ (let* ((_body297_ (gx#stx-map (lambda (_clause154_) - (let* ((___stx4169441695_ + (let* ((___stx4187141872_ _clause154_) (_g158185_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4169441695_)))) - (let ((___kont4169741698_ + ___stx4187141872_)))) + (let ((___kont4187441875_ (lambda (_L270_ _L272_) - (let ((__tmp47381 - (let ((__tmp47382 + (let ((__tmp47558 + (let ((__tmp47559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47384 (gx#datum->syntax '#f 'syntax)) - (__tmp47383 + (let ((__tmp47561 (gx#datum->syntax '#f 'syntax)) + (__tmp47560 (let () (declare (not safe)) (cons _L270_ '())))) (declare (not safe)) - (cons __tmp47384 __tmp47383)))) + (cons __tmp47561 __tmp47560)))) (declare (not safe)) - (cons __tmp47382 '())))) + (cons __tmp47559 '())))) (declare (not safe)) - (cons _L272_ __tmp47381)))) + (cons _L272_ __tmp47558)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4169941700_ + (___kont4187641877_ (lambda (_L222_ _L224_ _L225_) - (let ((__tmp47385 - (let ((__tmp47386 + (let ((__tmp47562 + (let ((__tmp47563 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47387 - (let ((__tmp47389 + (let ((__tmp47564 + (let ((__tmp47566 (gx#datum->syntax '#f 'syntax)) - (__tmp47388 + (__tmp47565 (let () (declare (not safe)) (cons _L222_ '())))) (declare (not safe)) - (cons __tmp47389 __tmp47388)))) + (cons __tmp47566 __tmp47565)))) (declare (not safe)) - (cons __tmp47387 '())))) + (cons __tmp47564 '())))) (declare (not safe)) - (cons _L224_ __tmp47386)))) + (cons _L224_ __tmp47563)))) (declare (not safe)) - (cons _L225_ __tmp47385))))) + (cons _L225_ __tmp47562))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx4169441695_) + ___stx4187141872_) (let ((_e164250_ (gx#syntax-e - ___stx4169441695_))) + ___stx4187141872_))) (let ((_tl162257_ (let () (declare @@ -153,7 +153,7 @@ (_hd166264_ (let () (declare (not safe)) (##car _e167260_)))) (if (gx#stx-null? _tl165267_) - (___kont4169741698_ _hd166264_ _hd163254_) + (___kont4187441875_ _hd166264_ _hd163254_) (if (gx#stx-pair? _tl165267_) (let ((_e179212_ (gx#syntax-e _tl165267_))) (let ((_tl177219_ @@ -165,7 +165,7 @@ (declare (not safe)) (##car _e179212_)))) (if (gx#stx-null? _tl177219_) - (___kont4169941700_ + (___kont4187641877_ _hd178216_ _hd166264_ _hd163254_) @@ -178,14 +178,14 @@ (let () (declare (not safe)) (_g158185_)))))) - (let ((__tmp47390 + (let ((__tmp47567 (lambda (_g288291_ _g289294_) (let () (declare (not safe)) (cons _g288291_ _g289294_))))) (declare (not safe)) - (foldr1 __tmp47390 '() _L132_)))) + (foldr1 __tmp47567 '() _L132_)))) (_g300317_ (lambda (_g301313_) (gx#raise-syntax-error @@ -195,41 +195,41 @@ (_g299376_ (lambda (_g301321_) (if (gx#stx-pair/null? _g301321_) - (let ((_g47391_ + (let ((_g47568_ (gx#syntax-split-splice _g301321_ '0))) (begin - (let ((_g47392_ + (let ((_g47569_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47391_) - (##vector-length _g47391_) + _g47568_) + (##vector-length _g47568_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47392_ 2))) - (error "Context expects 2 values" _g47392_))) + (##fx= _g47569_ 2))) + (error "Context expects 2 values" _g47569_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target303324_ (let () (declare (not safe)) (##vector-ref - _g47391_ + _g47568_ 0))) (_tl305327_ (let () (declare (not safe)) (##vector-ref - _g47391_ + _g47568_ 1)))) (if (gx#stx-null? _tl305327_) @@ -254,46 +254,46 @@ (let ((_clause311350_ (reverse _clause310337_))) ((lambda (_L354_) - (let ((__tmp47404 + (let ((__tmp47581 (gx#datum->syntax '#f 'lambda%)) - (__tmp47393 - (let ((__tmp47402 - (let ((__tmp47403 + (__tmp47570 + (let ((__tmp47579 + (let ((__tmp47580 (gx#datum->syntax '#f '$stx))) (declare (not safe)) - (cons __tmp47403 '()))) - (__tmp47394 - (let ((__tmp47395 - (let ((__tmp47401 + (cons __tmp47580 '()))) + (__tmp47571 + (let ((__tmp47572 + (let ((__tmp47578 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-case)) - (__tmp47396 - (let ((__tmp47400 (gx#datum->syntax '#f '$stx)) - (__tmp47397 - (let ((__tmp47398 - (let ((__tmp47399 + (__tmp47573 + (let ((__tmp47577 (gx#datum->syntax '#f '$stx)) + (__tmp47574 + (let ((__tmp47575 + (let ((__tmp47576 (lambda (_g367370_ _g368373_) (let () (declare (not safe)) (cons _g367370_ _g368373_))))) (declare (not safe)) - (foldr1 __tmp47399 '() _L354_)))) + (foldr1 __tmp47576 '() _L354_)))) (declare (not safe)) - (cons _L134_ __tmp47398)))) + (cons _L134_ __tmp47575)))) (declare (not safe)) - (cons __tmp47400 __tmp47397)))) + (cons __tmp47577 __tmp47574)))) (declare (not safe)) - (cons __tmp47401 __tmp47396)))) + (cons __tmp47578 __tmp47573)))) (declare (not safe)) - (cons __tmp47395 '())))) + (cons __tmp47572 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47402 __tmp47394)))) + (cons __tmp47579 __tmp47571)))) (declare (not safe)) - (cons __tmp47404 __tmp47393))) + (cons __tmp47581 __tmp47570))) _clause311350_)))))) (_loop306330_ _target303324_ '())) (_g300317_ _g301321_))))) @@ -314,90 +314,90 @@ (_g50380_ _stx48_)))) (define |gerbil/core$[:0:]#with-syntax| (lambda (_stx386_) - (let* ((___stx4173841739_ _stx386_) + (let* ((___stx4191541916_ _stx386_) (_g391476_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4173841739_)))) - (let ((___kont4174141742_ + ___stx4191541916_)))) + (let ((___kont4191841919_ (lambda (_L816_) - (let ((__tmp47408 (gx#datum->syntax '#f 'let-values)) - (__tmp47405 - (let ((__tmp47406 - (let ((__tmp47407 + (let ((__tmp47585 (gx#datum->syntax '#f 'let-values)) + (__tmp47582 + (let ((__tmp47583 + (let ((__tmp47584 (lambda (_g832835_ _g833838_) (let () (declare (not safe)) (cons _g832835_ _g833838_))))) (declare (not safe)) - (foldr1 __tmp47407 '() _L816_)))) + (foldr1 __tmp47584 '() _L816_)))) (declare (not safe)) - (cons '() __tmp47406)))) + (cons '() __tmp47583)))) (declare (not safe)) - (cons __tmp47408 __tmp47405)))) - (___kont4174541746_ + (cons __tmp47585 __tmp47582)))) + (___kont4192241923_ (lambda (_L724_ _L726_ _L727_) - (let ((__tmp47419 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47409 - (let ((__tmp47410 - (let ((__tmp47411 - (let ((__tmp47412 - (let ((__tmp47413 - (let ((__tmp47414 - (let ((__tmp47418 + (let ((__tmp47596 (gx#datum->syntax '#f 'syntax-case)) + (__tmp47586 + (let ((__tmp47587 + (let ((__tmp47588 + (let ((__tmp47589 + (let ((__tmp47590 + (let ((__tmp47591 + (let ((__tmp47595 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47415 - (let ((__tmp47416 - (let ((__tmp47417 + (__tmp47592 + (let ((__tmp47593 + (let ((__tmp47594 (lambda (_g750753_ _g751756_) (let () (declare (not safe)) (cons _g750753_ _g751756_))))) (declare (not safe)) - (foldr1 __tmp47417 '() _L724_)))) + (foldr1 __tmp47594 '() _L724_)))) (declare (not safe)) - (cons '() __tmp47416)))) + (cons '() __tmp47593)))) (declare (not safe)) - (cons __tmp47418 __tmp47415)))) + (cons __tmp47595 __tmp47592)))) (declare (not safe)) - (cons __tmp47414 '())))) + (cons __tmp47591 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L727_ __tmp47413)))) + (cons _L727_ __tmp47590)))) (declare (not safe)) - (cons __tmp47412 '())))) + (cons __tmp47589 '())))) (declare (not safe)) - (cons '() __tmp47411)))) + (cons '() __tmp47588)))) (declare (not safe)) - (cons _L726_ __tmp47410)))) + (cons _L726_ __tmp47587)))) (declare (not safe)) - (cons __tmp47419 __tmp47409)))) - (___kont4174941750_ + (cons __tmp47596 __tmp47586)))) + (___kont4192641927_ (lambda (_L587_ _L589_ _L590_) - (let ((__tmp47436 (gx#datum->syntax '#f 'syntax-case)) - (__tmp47420 - (let ((__tmp47432 - (let ((__tmp47435 + (let ((__tmp47613 (gx#datum->syntax '#f 'syntax-case)) + (__tmp47597 + (let ((__tmp47609 + (let ((__tmp47612 (gx#datum->syntax '#f 'list)) - (__tmp47433 - (let ((__tmp47434 + (__tmp47610 + (let ((__tmp47611 (lambda (_g616619_ _g617622_) (let () (declare (not safe)) (cons _g616619_ _g617622_))))) (declare (not safe)) - (foldr1 __tmp47434 '() _L589_)))) + (foldr1 __tmp47611 '() _L589_)))) (declare (not safe)) - (cons __tmp47435 __tmp47433))) - (__tmp47421 - (let ((__tmp47422 - (let ((__tmp47423 - (let ((__tmp47430 - (let ((__tmp47431 + (cons __tmp47612 __tmp47610))) + (__tmp47598 + (let ((__tmp47599 + (let ((__tmp47600 + (let ((__tmp47607 + (let ((__tmp47608 (lambda (_g614625_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g615628_) @@ -405,48 +405,48 @@ (declare (not safe)) (cons _g614625_ _g615628_))))) (declare (not safe)) - (foldr1 __tmp47431 '() _L590_))) + (foldr1 __tmp47608 '() _L590_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47424 - (let ((__tmp47425 - (let ((__tmp47429 + (__tmp47601 + (let ((__tmp47602 + (let ((__tmp47606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let-values)) - (__tmp47426 - (let ((__tmp47427 - (let ((__tmp47428 + (__tmp47603 + (let ((__tmp47604 + (let ((__tmp47605 (lambda (_g612631_ _g613634_) (let () (declare (not safe)) (cons _g612631_ _g613634_))))) (declare (not safe)) - (foldr1 __tmp47428 '() _L587_)))) + (foldr1 __tmp47605 '() _L587_)))) (declare (not safe)) - (cons '() __tmp47427)))) + (cons '() __tmp47604)))) (declare (not safe)) - (cons __tmp47429 __tmp47426)))) + (cons __tmp47606 __tmp47603)))) (declare (not safe)) - (cons __tmp47425 '())))) + (cons __tmp47602 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47430 - __tmp47424)))) + (cons __tmp47607 + __tmp47601)))) (declare (not safe)) - (cons __tmp47423 '())))) + (cons __tmp47600 '())))) (declare (not safe)) - (cons '() __tmp47422)))) + (cons '() __tmp47599)))) (declare (not safe)) - (cons __tmp47432 __tmp47421)))) + (cons __tmp47609 __tmp47598)))) (declare (not safe)) - (cons __tmp47436 __tmp47420))))) - (let* ((___match4183941840_ + (cons __tmp47613 __tmp47597))))) + (let* ((___match4201642017_ (lambda (_e441483_ _hd440487_ _tl439490_ _e444493_ _hd443497_ _tl442500_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (letrec ((_loop448509_ @@ -503,7 +503,7 @@ (let ((_pat455554_ (reverse _pat453518_)) (_e454551_ (reverse _e452516_))) (if (gx#stx-pair/null? _tl442500_) - (let ((___splice4175341754_ + (let ((___splice4193041931_ (gx#syntax-split-splice _tl442500_ '0))) @@ -511,13 +511,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4175341754_ + ___splice4193041931_ '1))) (_target462557_ (let () (declare (not safe)) (##vector-ref - ___splice4175341754_ + ___splice4193041931_ '0)))) (if (gx#stx-null? _tl464560_) (letrec ((_loop465563_ @@ -540,7 +540,7 @@ (declare (not safe)) (cons _lp-hd467577_ _body469570_))))) (let ((_body470583_ (reverse _body469570_))) - (___kont4174941750_ + (___kont4192641927_ _body470583_ _e454551_ _pat455554_)))))) @@ -553,7 +553,7 @@ (declare (not safe)) (_g391476_)))))))) (_loop448509_ _target445503_ '() '())))) - (___match4181941820_ + (___match4199641997_ (lambda (_e414644_ _hd413648_ _tl412651_ @@ -569,7 +569,7 @@ _e426684_ _hd425688_ _tl424691_ - ___splice4174741748_ + ___splice4192441925_ _target427694_ _tl429697_) (letrec ((_loop430700_ @@ -593,19 +593,19 @@ _body434707_))))) (let ((_body435720_ (reverse _body434707_))) - (___kont4174541746_ + (___kont4192241923_ _body435720_ _hd425688_ _hd422678_)))))) (_loop430700_ _target427694_ '())))) - (___match4177741778_ + (___match4195441955_ (lambda (_e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4174341744_ + ___splice4192041921_ _target400786_ _tl402789_) (letrec ((_loop403792_ @@ -629,10 +629,10 @@ _body407799_))))) (let ((_body408812_ (reverse _body407799_))) - (___kont4174141742_ _body408812_)))))) + (___kont4191841919_ _body408812_)))))) (_loop403792_ _target400786_ '()))))) - (if (gx#stx-pair? ___stx4173841739_) - (let ((_e396766_ (gx#syntax-e ___stx4173841739_))) + (if (gx#stx-pair? ___stx4191541916_) + (let ((_e396766_ (gx#syntax-e ___stx4191541916_))) (let ((_tl394773_ (let () (declare (not safe)) (##cdr _e396766_))) (_hd395770_ @@ -649,7 +649,7 @@ (##car _e399776_)))) (if (gx#stx-null? _hd398780_) (if (gx#stx-pair/null? _tl397783_) - (let ((___splice4174341744_ + (let ((___splice4192041921_ (gx#syntax-split-splice _tl397783_ '0))) @@ -657,28 +657,28 @@ (let () (declare (not safe)) (##vector-ref - ___splice4174341744_ + ___splice4192041921_ '1))) (_target400786_ (let () (declare (not safe)) (##vector-ref - ___splice4174341744_ + ___splice4192041921_ '0)))) (if (gx#stx-null? _tl402789_) - (___match4177741778_ + (___match4195441955_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4174341744_ + ___splice4192041921_ _target400786_ _tl402789_) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) @@ -687,25 +687,25 @@ (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () @@ -716,7 +716,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) @@ -724,23 +724,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () @@ -785,22 +785,22 @@ (if (gx#stx-null? _tl424691_) (if (gx#stx-null? _tl418671_) (if (gx#stx-pair/null? _tl397783_) - (let ((___splice4174741748_ + (let ((___splice4192441925_ (gx#syntax-split-splice _tl397783_ '0))) (let ((_tl429697_ (let () (declare (not safe)) (##vector-ref - ___splice4174741748_ + ___splice4192441925_ '1))) (_target427694_ (let () (declare (not safe)) (##vector-ref - ___splice4174741748_ + ___splice4192441925_ '0)))) (if (gx#stx-null? _tl429697_) - (___match4181941820_ + (___match4199641997_ _e396766_ _hd395770_ _tl394773_ @@ -816,11 +816,11 @@ _e426684_ _hd425688_ _tl424691_ - ___splice4174741748_ + ___splice4192441925_ _target427694_ _tl429697_) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) @@ -828,23 +828,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () @@ -854,7 +854,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) @@ -862,23 +862,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () @@ -886,29 +886,29 @@ (_g391476_))))) (let () (declare (not safe)) (_g391476_)))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () @@ -916,49 +916,49 @@ (_g391476_))))) (let () (declare (not safe)) (_g391476_)))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) - (##vector-ref ___splice4175141752_ '1))) + (##vector-ref ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) - (##vector-ref ___splice4175141752_ '0)))) + (##vector-ref ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () (declare (not safe)) (_g391476_))))) (let () (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) (let ((_tl447506_ (let () (declare (not safe)) - (##vector-ref ___splice4175141752_ '1))) + (##vector-ref ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) - (##vector-ref ___splice4175141752_ '0)))) + (##vector-ref ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () (declare (not safe)) (_g391476_))))) @@ -966,7 +966,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) @@ -975,25 +975,25 @@ (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () @@ -1004,7 +1004,7 @@ (declare (not safe)) (_g391476_)))))) (if (gx#stx-pair/null? _hd398780_) - (let ((___splice4175141752_ + (let ((___splice4192841929_ (gx#syntax-split-splice _hd398780_ '0))) @@ -1012,23 +1012,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '1))) (_target445503_ (let () (declare (not safe)) (##vector-ref - ___splice4175141752_ + ___splice4192841929_ '0)))) (if (gx#stx-null? _tl447506_) - (___match4183941840_ + (___match4201642017_ _e396766_ _hd395770_ _tl394773_ _e399776_ _hd398780_ _tl397783_ - ___splice4175141752_ + ___splice4192841929_ _target445503_ _tl447506_) (let () @@ -1041,48 +1041,48 @@ (let () (declare (not safe)) (_g391476_)))))))) (define |gerbil/core$[:0:]#with-syntax*| (lambda (_stx849_) - (let* ((___stx4184241843_ _stx849_) + (let* ((___stx4201942020_ _stx849_) (_g854931_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4184241843_)))) - (let ((___kont4184541846_ + ___stx4201942020_)))) + (let ((___kont4202242023_ (lambda (_L1227_) - (let ((__tmp47440 (gx#datum->syntax '#f 'let-values)) - (__tmp47437 - (let ((__tmp47438 - (let ((__tmp47439 + (let ((__tmp47617 (gx#datum->syntax '#f 'let-values)) + (__tmp47614 + (let ((__tmp47615 + (let ((__tmp47616 (lambda (_g12431246_ _g12441249_) (let () (declare (not safe)) (cons _g12431246_ _g12441249_))))) (declare (not safe)) - (foldr1 __tmp47439 '() _L1227_)))) + (foldr1 __tmp47616 '() _L1227_)))) (declare (not safe)) - (cons '() __tmp47438)))) + (cons '() __tmp47615)))) (declare (not safe)) - (cons __tmp47440 __tmp47437)))) - (___kont4184941850_ + (cons __tmp47617 __tmp47614)))) + (___kont4202642027_ (lambda (_L1129_ _L1131_ _L1132_ _L1133_ _L1134_) - (let ((__tmp47450 (gx#datum->syntax '#f 'let-values)) - (__tmp47441 - (let ((__tmp47447 - (let ((__tmp47448 - (let ((__tmp47449 + (let ((__tmp47627 (gx#datum->syntax '#f 'let-values)) + (__tmp47618 + (let ((__tmp47624 + (let ((__tmp47625 + (let ((__tmp47626 (let () (declare (not safe)) (cons _L1132_ '())))) (declare (not safe)) - (cons _L1133_ __tmp47449)))) + (cons _L1133_ __tmp47626)))) (declare (not safe)) - (cons __tmp47448 '()))) - (__tmp47442 - (let ((__tmp47443 - (let ((__tmp47444 - (let ((__tmp47445 - (let ((__tmp47446 + (cons __tmp47625 '()))) + (__tmp47619 + (let ((__tmp47620 + (let ((__tmp47621 + (let ((__tmp47622 + (let ((__tmp47623 (lambda (_g11611164_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g11621167_) @@ -1090,31 +1090,31 @@ (declare (not safe)) (cons _g11611164_ _g11621167_))))) (declare (not safe)) - (foldr1 __tmp47446 '() _L1129_)))) + (foldr1 __tmp47623 '() _L1129_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1131_ __tmp47445)))) + (cons _L1131_ __tmp47622)))) (declare (not safe)) - (cons _L1134_ __tmp47444)))) + (cons _L1134_ __tmp47621)))) (declare (not safe)) - (cons __tmp47443 '())))) + (cons __tmp47620 '())))) (declare (not safe)) - (cons __tmp47447 __tmp47442)))) + (cons __tmp47624 __tmp47619)))) (declare (not safe)) - (cons __tmp47450 __tmp47441)))) - (___kont4185341854_ + (cons __tmp47627 __tmp47618)))) + (___kont4203042031_ (lambda (_L998_ _L1000_ _L1001_ _L1002_) - (let ((__tmp47458 (gx#datum->syntax '#f 'with-syntax)) - (__tmp47451 - (let ((__tmp47457 + (let ((__tmp47635 (gx#datum->syntax '#f 'with-syntax)) + (__tmp47628 + (let ((__tmp47634 (let () (declare (not safe)) (cons _L1001_ '()))) - (__tmp47452 - (let ((__tmp47453 - (let ((__tmp47454 - (let ((__tmp47455 - (let ((__tmp47456 + (__tmp47629 + (let ((__tmp47630 + (let ((__tmp47631 + (let ((__tmp47632 + (let ((__tmp47633 (lambda (_g10231026_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g10241029_) @@ -1122,19 +1122,19 @@ (declare (not safe)) (cons _g10231026_ _g10241029_))))) (declare (not safe)) - (foldr1 __tmp47456 '() _L998_)))) + (foldr1 __tmp47633 '() _L998_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1000_ __tmp47455)))) + (cons _L1000_ __tmp47632)))) (declare (not safe)) - (cons _L1002_ __tmp47454)))) + (cons _L1002_ __tmp47631)))) (declare (not safe)) - (cons __tmp47453 '())))) + (cons __tmp47630 '())))) (declare (not safe)) - (cons __tmp47457 __tmp47452)))) + (cons __tmp47634 __tmp47629)))) (declare (not safe)) - (cons __tmp47458 __tmp47451))))) - (let* ((___match4195541956_ + (cons __tmp47635 __tmp47628))))) + (let* ((___match4213242133_ (lambda (_e910938_ _hd909942_ _tl908945_ @@ -1144,7 +1144,7 @@ _e916958_ _hd915962_ _tl914965_ - ___splice4185541856_ + ___splice4203242033_ _target917968_ _tl919971_) (letrec ((_loop920974_ @@ -1168,13 +1168,13 @@ _body924981_))))) (let ((_body925994_ (reverse _body924981_))) - (___kont4185341854_ + (___kont4203042031_ _body925994_ _tl914965_ _hd915962_ _hd909942_)))))) (_loop920974_ _target917968_ '())))) - (___match4192941930_ + (___match4210642107_ (lambda (_e8791039_ _hd8781043_ _tl8771046_ @@ -1193,7 +1193,7 @@ _e8941089_ _hd8931093_ _tl8921096_ - ___splice4185141852_ + ___splice4202842029_ _target8951099_ _tl8971102_) (letrec ((_loop8981105_ @@ -1217,21 +1217,21 @@ _body9021112_))))) (let ((_body9031125_ (reverse _body9021112_))) - (___kont4184941850_ + (___kont4202642027_ _body9031125_ _tl8831066_ _hd8931093_ _tl8891086_ _hd8781043_)))))) (_loop8981105_ _target8951099_ '())))) - (___match4187941880_ + (___match4205642057_ (lambda (_e8591177_ _hd8581181_ _tl8571184_ _e8621187_ _hd8611191_ _tl8601194_ - ___splice4184741848_ + ___splice4202442025_ _target8631197_ _tl8651200_) (letrec ((_loop8661203_ @@ -1255,10 +1255,10 @@ _body8701210_))))) (let ((_body8711223_ (reverse _body8701210_))) - (___kont4184541846_ _body8711223_)))))) + (___kont4202242023_ _body8711223_)))))) (_loop8661203_ _target8631197_ '()))))) - (if (gx#stx-pair? ___stx4184241843_) - (let ((_e8591177_ (gx#syntax-e ___stx4184241843_))) + (if (gx#stx-pair? ___stx4201942020_) + (let ((_e8591177_ (gx#syntax-e ___stx4201942020_))) (let ((_tl8571184_ (let () (declare (not safe)) (##cdr _e8591177_))) (_hd8581181_ @@ -1275,7 +1275,7 @@ (##car _e8621187_)))) (if (gx#stx-null? _hd8611191_) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4184741848_ + (let ((___splice4202442025_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1283,23 +1283,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4184741848_ + ___splice4202442025_ '1))) (_target8631197_ (let () (declare (not safe)) (##vector-ref - ___splice4184741848_ + ___splice4202442025_ '0)))) (if (gx#stx-null? _tl8651200_) - (___match4187941880_ + (___match4205642057_ _e8591177_ _hd8581181_ _tl8571184_ _e8621187_ _hd8611191_ _tl8601194_ - ___splice4184741848_ + ___splice4202442025_ _target8631197_ _tl8651200_) (let () @@ -1345,7 +1345,7 @@ (let () (declare (not safe)) (##car _e8911079_)))) (if (gx#identifier? _hd8901083_) (if (gx#free-identifier=? - |gerbil/core$[1]#_g47459_| + |gerbil/core$[1]#_g47636_| _hd8901083_) (if (gx#stx-pair? _tl8861076_) (let ((_e8941089_ (gx#syntax-e _tl8861076_))) @@ -1359,7 +1359,7 @@ (##car _e8941089_)))) (if (gx#stx-null? _tl8921096_) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4185141852_ + (let ((___splice4202842029_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1367,16 +1367,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4185141852_ + ___splice4202842029_ '1))) (_target8951099_ (let () (declare (not safe)) (##vector-ref - ___splice4185141852_ + ___splice4202842029_ '0)))) (if (gx#stx-null? _tl8971102_) - (___match4192941930_ + (___match4210642107_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1395,7 +1395,7 @@ _e8941089_ _hd8931093_ _tl8921096_ - ___splice4185141852_ + ___splice4202842029_ _target8951099_ _tl8971102_) (let () @@ -1405,7 +1405,7 @@ (declare (not safe)) (_g854931_))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4185541856_ + (let ((___splice4203242033_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1413,16 +1413,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4195541956_ + (___match4213242133_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1432,7 +1432,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4185541856_ + ___splice4203242033_ _target917968_ _tl919971_) (let () @@ -1442,7 +1442,7 @@ (declare (not safe)) (_g854931_)))))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4185541856_ + (let ((___splice4203242033_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1450,16 +1450,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4195541956_ + (___match4213242133_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1469,7 +1469,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4185541856_ + ___splice4203242033_ _target917968_ _tl919971_) (let () @@ -1477,22 +1477,22 @@ (_g854931_))))) (let () (declare (not safe)) (_g854931_)))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4185541856_ + (let ((___splice4203242033_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4195541956_ + (___match4213242133_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1502,7 +1502,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4185541856_ + ___splice4203242033_ _target917968_ _tl919971_) (let () @@ -1510,18 +1510,18 @@ (_g854931_))))) (let () (declare (not safe)) (_g854931_)))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4185541856_ + (let ((___splice4203242033_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) - (##vector-ref ___splice4185541856_ '1))) + (##vector-ref ___splice4203242033_ '1))) (_target917968_ (let () (declare (not safe)) - (##vector-ref ___splice4185541856_ '0)))) + (##vector-ref ___splice4203242033_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4195541956_ + (___match4213242133_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1531,24 +1531,24 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4185541856_ + ___splice4203242033_ _target917968_ _tl919971_) (let () (declare (not safe)) (_g854931_))))) (let () (declare (not safe)) (_g854931_)))))) (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4185541856_ + (let ((___splice4203242033_ (gx#syntax-split-splice _tl8601194_ '0))) (let ((_tl919971_ (let () (declare (not safe)) - (##vector-ref ___splice4185541856_ '1))) + (##vector-ref ___splice4203242033_ '1))) (_target917968_ (let () (declare (not safe)) - (##vector-ref ___splice4185541856_ '0)))) + (##vector-ref ___splice4203242033_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4195541956_ + (___match4213242133_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1558,7 +1558,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4185541856_ + ___splice4203242033_ _target917968_ _tl919971_) (let () (declare (not safe)) (_g854931_))))) @@ -1566,7 +1566,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl8601194_) - (let ((___splice4185541856_ + (let ((___splice4203242033_ (gx#syntax-split-splice _tl8601194_ '0))) @@ -1575,18 +1575,18 @@ (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '1))) (_target917968_ (let () (declare (not safe)) (##vector-ref - ___splice4185541856_ + ___splice4203242033_ '0)))) (if (gx#stx-null? _tl919971_) - (___match4195541956_ + (___match4213242133_ _e8591177_ _hd8581181_ _tl8571184_ @@ -1596,7 +1596,7 @@ _e8851059_ _hd8841063_ _tl8831066_ - ___splice4185541856_ + ___splice4203242033_ _target917968_ _tl919971_) (let () @@ -1654,39 +1654,39 @@ (##cdr _e12741307_)))) (if (gx#stx-null? _tl12721314_) ((lambda (_L1317_ _L1319_) - (let ((__tmp47468 + (let ((__tmp47645 (gx#datum->syntax '#f 'stx-wrap-source)) - (__tmp47460 - (let ((__tmp47465 - (let ((__tmp47467 + (__tmp47637 + (let ((__tmp47642 + (let ((__tmp47644 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax)) - (__tmp47466 + (__tmp47643 (let () (declare (not safe)) (cons _L1317_ '())))) (declare (not safe)) - (cons __tmp47467 __tmp47466))) - (__tmp47461 - (let ((__tmp47462 - (let ((__tmp47464 + (cons __tmp47644 __tmp47643))) + (__tmp47638 + (let ((__tmp47639 + (let ((__tmp47641 (gx#datum->syntax '#f 'stx-source)) - (__tmp47463 + (__tmp47640 (let () (declare (not safe)) (cons _L1319_ '())))) (declare (not safe)) - (cons __tmp47464 __tmp47463)))) + (cons __tmp47641 __tmp47640)))) (declare (not safe)) - (cons __tmp47462 '())))) + (cons __tmp47639 '())))) (declare (not safe)) - (cons __tmp47465 __tmp47461)))) + (cons __tmp47642 __tmp47638)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47468 - __tmp47460))) + (cons __tmp47645 + __tmp47637))) _hd12731311_ _hd12701301_) (_g12621280_ _g12631284_)))) diff --git a/src/bootstrap/gerbil/core__3.scm b/src/bootstrap/gerbil/core__3.scm index 7b87f7a08..b2326ed45 100644 --- a/src/bootstrap/gerbil/core__3.scm +++ b/src/bootstrap/gerbil/core__3.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g47565_| + (define |gerbil/core$$[1]#_g47742_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47566_| + (define |gerbil/core$$[1]#_g47743_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47649_| + (define |gerbil/core$$[1]#_g47826_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47650_| + (define |gerbil/core$$[1]#_g47827_| (##structure gx#syntax-quote::t 'else @@ -66,37 +66,37 @@ (declare (not safe)) (##cdr _e13581400_)))) (if (gx#stx-pair/null? _tl13561407_) - (let ((_g47469_ + (let ((_g47646_ (gx#syntax-split-splice _tl13561407_ '0))) (begin - (let ((_g47470_ + (let ((_g47647_ (let () (declare (not safe)) (if (##values? - _g47469_) + _g47646_) (##vector-length - _g47469_) + _g47646_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47470_ 2))) - (error "Context expects 2 values" _g47470_))) + (##fx= _g47647_ 2))) + (error "Context expects 2 values" _g47647_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target13591410_ (let () (declare (not safe)) (##vector-ref - _g47469_ + _g47646_ 0))) (_tl13611413_ (let () (declare (not safe)) (##vector-ref - _g47469_ + _g47646_ 1)))) (if (gx#stx-null? _tl13611413_) @@ -123,37 +123,37 @@ (reverse _clauses13661423_))) ((lambda (_L1440_ _L1442_ _L1443_) (if (gx#identifier? _L1443_) - (let ((__tmp47478 + (let ((__tmp47655 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47471 - (let ((__tmp47472 - (let ((__tmp47473 - (let ((__tmp47477 + (__tmp47648 + (let ((__tmp47649 + (let ((__tmp47650 + (let ((__tmp47654 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'syntax-rules)) - (__tmp47474 - (let ((__tmp47475 - (let ((__tmp47476 + (__tmp47651 + (let ((__tmp47652 + (let ((__tmp47653 (lambda (_g14651468_ _g14661471_) (let () (declare (not safe)) (cons _g14651468_ _g14661471_))))) (declare (not safe)) - (foldr1 __tmp47476 '() _L1440_)))) + (foldr1 __tmp47653 '() _L1440_)))) (declare (not safe)) - (cons _L1442_ __tmp47475)))) + (cons _L1442_ __tmp47652)))) (declare (not safe)) - (cons __tmp47477 __tmp47474)))) + (cons __tmp47654 __tmp47651)))) (declare (not safe)) - (cons __tmp47473 '())))) + (cons __tmp47650 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1443_ __tmp47472)))) + (cons _L1443_ __tmp47649)))) (declare (not safe)) - (cons __tmp47478 __tmp47471)) + (cons __tmp47655 __tmp47648)) (_g13451373_ _g13461377_))) _clauses13671436_ _hd13571404_ @@ -168,24 +168,24 @@ (_g13441474_ _$stx1341_)))) (define |gerbil/core$$[:0:]#defsyntax%| (lambda (_$stx1479_) - (let* ((___stx4195841959_ _$stx1479_) + (let* ((___stx4213542136_ _$stx1479_) (_g14841523_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4195841959_)))) - (let ((___kont4196141962_ + ___stx4213542136_)))) + (let ((___kont4213842139_ (lambda (_L1645_ _L1647_ _L1648_) - (let ((__tmp47486 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47479 - (let ((__tmp47480 - (let ((__tmp47481 - (let ((__tmp47485 + (let ((__tmp47663 (gx#datum->syntax '#f 'define-syntax)) + (__tmp47656 + (let ((__tmp47657 + (let ((__tmp47658 + (let ((__tmp47662 (gx#datum->syntax '#f 'lambda%)) - (__tmp47482 - (let ((__tmp47483 - (let ((__tmp47484 + (__tmp47659 + (let ((__tmp47660 + (let ((__tmp47661 (lambda (_g16671670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g16681673_) @@ -193,31 +193,31 @@ (declare (not safe)) (cons _g16671670_ _g16681673_))))) (declare (not safe)) - (foldr1 __tmp47484 '() _L1645_)))) + (foldr1 __tmp47661 '() _L1645_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1647_ __tmp47483)))) + (cons _L1647_ __tmp47660)))) (declare (not safe)) - (cons __tmp47485 __tmp47482)))) + (cons __tmp47662 __tmp47659)))) (declare (not safe)) - (cons __tmp47481 '())))) + (cons __tmp47658 '())))) (declare (not safe)) - (cons _L1648_ __tmp47480)))) + (cons _L1648_ __tmp47657)))) (declare (not safe)) - (cons __tmp47486 __tmp47479)))) - (___kont4196541966_ + (cons __tmp47663 __tmp47656)))) + (___kont4214242143_ (lambda (_L1560_ _L1562_) - (let ((__tmp47489 (gx#datum->syntax '#f 'define-syntax)) - (__tmp47487 - (let ((__tmp47488 + (let ((__tmp47666 (gx#datum->syntax '#f 'define-syntax)) + (__tmp47664 + (let ((__tmp47665 (let () (declare (not safe)) (cons _L1560_ '())))) (declare (not safe)) - (cons _L1562_ __tmp47488)))) + (cons _L1562_ __tmp47665)))) (declare (not safe)) - (cons __tmp47489 __tmp47487))))) - (let* ((___match4201342014_ + (cons __tmp47666 __tmp47664))))) + (let* ((___match4219042191_ (lambda (_e15111530_ _hd15101534_ _tl15091537_ @@ -229,9 +229,9 @@ _tl15151557_) (let ((_L1560_ _hd15161554_) (_L1562_ _hd15131544_)) (if (gx#identifier? _L1562_) - (___kont4196541966_ _L1560_ _L1562_) + (___kont4214242143_ _L1560_ _L1562_) (let () (declare (not safe)) (_g14841523_)))))) - (___match4200542006_ + (___match4218242183_ (lambda (_e15111530_ _hd15101534_ _tl15091537_ @@ -249,7 +249,7 @@ (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4201342014_ + (___match4219042191_ _e15111530_ _hd15101534_ _tl15091537_ @@ -263,7 +263,7 @@ (declare (not safe)) (_g14841523_))))) (let () (declare (not safe)) (_g14841523_))))) - (___match4199341994_ + (___match4217042171_ (lambda (_e14911585_ _hd14901589_ _tl14891592_ @@ -273,7 +273,7 @@ _e14971605_ _hd14961609_ _tl14951612_ - ___splice4196341964_ + ___splice4214042141_ _target14981615_ _tl15001618_) (letrec ((_loop15011621_ @@ -301,11 +301,11 @@ (_L1647_ _tl14951612_) (_L1648_ _hd14961609_)) (if (gx#identifier? _L1648_) - (___kont4196141962_ + (___kont4213842139_ _L1645_ _L1647_ _L1648_) - (___match4200542006_ + (___match4218242183_ _e14911585_ _hd14901589_ _tl14891592_ @@ -313,8 +313,8 @@ _hd14931599_ _tl14921602_)))))))) (_loop15011621_ _target14981615_ '()))))) - (if (gx#stx-pair? ___stx4195841959_) - (let ((_e14911585_ (gx#syntax-e ___stx4195841959_))) + (if (gx#stx-pair? ___stx4213542136_) + (let ((_e14911585_ (gx#syntax-e ___stx4213542136_))) (let ((_tl14891592_ (let () (declare (not safe)) (##cdr _e14911585_))) (_hd14901589_ @@ -341,7 +341,7 @@ (declare (not safe)) (##car _e14971605_)))) (if (gx#stx-pair/null? _tl14921602_) - (let ((___splice4196341964_ + (let ((___splice4214042141_ (gx#syntax-split-splice _tl14921602_ '0))) @@ -349,16 +349,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4196341964_ + ___splice4214042141_ '1))) (_target14981615_ (let () (declare (not safe)) (##vector-ref - ___splice4196341964_ + ___splice4214042141_ '0)))) (if (gx#stx-null? _tl15001618_) - (___match4199341994_ + (___match4217042171_ _e14911585_ _hd14901589_ _tl14891592_ @@ -368,7 +368,7 @@ _e14971605_ _hd14961609_ _tl14951612_ - ___splice4196341964_ + ___splice4214042141_ _target14981615_ _tl15001618_) (if (gx#stx-pair? @@ -384,7 +384,7 @@ (_hd15161554_ (let () (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4201342014_ + (___match4219042191_ _e14911585_ _hd14901589_ _tl14891592_ @@ -411,7 +411,7 @@ (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4201342014_ + (___match4219042191_ _e14911585_ _hd14901589_ _tl14891592_ @@ -439,7 +439,7 @@ (declare (not safe)) (##car _e15171550_)))) (if (gx#stx-null? _tl15151557_) - (___match4201342014_ + (___match4219042191_ _e14911585_ _hd14901589_ _tl14891592_ @@ -500,22 +500,22 @@ (##cdr _e16971730_)))) (if (gx#stx-null? _tl16951737_) ((lambda (_L1740_ _L1742_) - (let ((__tmp47492 + (let ((__tmp47669 (gx#datum->syntax '#f 'define-alias)) - (__tmp47490 - (let ((__tmp47491 + (__tmp47667 + (let ((__tmp47668 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L1740_ '())))) (declare (not safe)) - (cons _L1742_ __tmp47491)))) + (cons _L1742_ __tmp47668)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47492 - __tmp47490))) + (cons __tmp47669 + __tmp47667))) _hd16961734_ _hd16931724_) (_g16851703_ _g16861707_)))) @@ -525,28 +525,28 @@ (_g16841758_ _$stx1681_)))) (define |gerbil/core$$[:0:]#define| (lambda (_$stx1762_) - (let* ((___stx4201642017_ _$stx1762_) + (let* ((___stx4219342194_ _$stx1762_) (_g17671806_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4201642017_)))) - (let ((___kont4201942020_ + ___stx4219342194_)))) + (let ((___kont4219642197_ (lambda (_L1928_ _L1930_ _L1931_) - (let ((__tmp47501 (gx#datum->syntax '#f 'define-values)) - (__tmp47493 - (let ((__tmp47500 + (let ((__tmp47678 (gx#datum->syntax '#f 'define-values)) + (__tmp47670 + (let ((__tmp47677 (let () (declare (not safe)) (cons _L1931_ '()))) - (__tmp47494 - (let ((__tmp47495 - (let ((__tmp47499 + (__tmp47671 + (let ((__tmp47672 + (let ((__tmp47676 (gx#datum->syntax '#f 'lambda%)) - (__tmp47496 - (let ((__tmp47497 - (let ((__tmp47498 + (__tmp47673 + (let ((__tmp47674 + (let ((__tmp47675 (lambda (_g19501953_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g19511956_) @@ -554,35 +554,35 @@ (declare (not safe)) (cons _g19501953_ _g19511956_))))) (declare (not safe)) - (foldr1 __tmp47498 '() _L1928_)))) + (foldr1 __tmp47675 '() _L1928_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L1930_ __tmp47497)))) + (cons _L1930_ __tmp47674)))) (declare (not safe)) - (cons __tmp47499 __tmp47496)))) + (cons __tmp47676 __tmp47673)))) (declare (not safe)) - (cons __tmp47495 '())))) + (cons __tmp47672 '())))) (declare (not safe)) - (cons __tmp47500 __tmp47494)))) + (cons __tmp47677 __tmp47671)))) (declare (not safe)) - (cons __tmp47501 __tmp47493)))) - (___kont4202342024_ + (cons __tmp47678 __tmp47670)))) + (___kont4220042201_ (lambda (_L1843_ _L1845_) - (let ((__tmp47505 (gx#datum->syntax '#f 'define-values)) - (__tmp47502 - (let ((__tmp47504 + (let ((__tmp47682 (gx#datum->syntax '#f 'define-values)) + (__tmp47679 + (let ((__tmp47681 (let () (declare (not safe)) (cons _L1845_ '()))) - (__tmp47503 + (__tmp47680 (let () (declare (not safe)) (cons _L1843_ '())))) (declare (not safe)) - (cons __tmp47504 __tmp47503)))) + (cons __tmp47681 __tmp47680)))) (declare (not safe)) - (cons __tmp47505 __tmp47502))))) - (let* ((___match4207142072_ + (cons __tmp47682 __tmp47679))))) + (let* ((___match4224842249_ (lambda (_e17941813_ _hd17931817_ _tl17921820_ @@ -594,9 +594,9 @@ _tl17981840_) (let ((_L1843_ _hd17991837_) (_L1845_ _hd17961827_)) (if (gx#identifier? _L1845_) - (___kont4202342024_ _L1843_ _L1845_) + (___kont4220042201_ _L1843_ _L1845_) (let () (declare (not safe)) (_g17671806_)))))) - (___match4206342064_ + (___match4224042241_ (lambda (_e17941813_ _hd17931817_ _tl17921820_ @@ -614,7 +614,7 @@ (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4207142072_ + (___match4224842249_ _e17941813_ _hd17931817_ _tl17921820_ @@ -628,7 +628,7 @@ (declare (not safe)) (_g17671806_))))) (let () (declare (not safe)) (_g17671806_))))) - (___match4205142052_ + (___match4222842229_ (lambda (_e17741868_ _hd17731872_ _tl17721875_ @@ -638,7 +638,7 @@ _e17801888_ _hd17791892_ _tl17781895_ - ___splice4202142022_ + ___splice4219842199_ _target17811898_ _tl17831901_) (letrec ((_loop17841904_ @@ -666,11 +666,11 @@ (_L1930_ _tl17781895_) (_L1931_ _hd17791892_)) (if (gx#identifier? _L1931_) - (___kont4201942020_ + (___kont4219642197_ _L1928_ _L1930_ _L1931_) - (___match4206342064_ + (___match4224042241_ _e17741868_ _hd17731872_ _tl17721875_ @@ -678,8 +678,8 @@ _hd17761882_ _tl17751885_)))))))) (_loop17841904_ _target17811898_ '()))))) - (if (gx#stx-pair? ___stx4201642017_) - (let ((_e17741868_ (gx#syntax-e ___stx4201642017_))) + (if (gx#stx-pair? ___stx4219342194_) + (let ((_e17741868_ (gx#syntax-e ___stx4219342194_))) (let ((_tl17721875_ (let () (declare (not safe)) (##cdr _e17741868_))) (_hd17731872_ @@ -706,7 +706,7 @@ (declare (not safe)) (##car _e17801888_)))) (if (gx#stx-pair/null? _tl17751885_) - (let ((___splice4202142022_ + (let ((___splice4219842199_ (gx#syntax-split-splice _tl17751885_ '0))) @@ -714,16 +714,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4202142022_ + ___splice4219842199_ '1))) (_target17811898_ (let () (declare (not safe)) (##vector-ref - ___splice4202142022_ + ___splice4219842199_ '0)))) (if (gx#stx-null? _tl17831901_) - (___match4205142052_ + (___match4222842229_ _e17741868_ _hd17731872_ _tl17721875_ @@ -733,7 +733,7 @@ _e17801888_ _hd17791892_ _tl17781895_ - ___splice4202142022_ + ___splice4219842199_ _target17811898_ _tl17831901_) (if (gx#stx-pair? @@ -749,7 +749,7 @@ (_hd17991837_ (let () (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4207142072_ + (___match4224842249_ _e17741868_ _hd17731872_ _tl17721875_ @@ -776,7 +776,7 @@ (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4207142072_ + (___match4224842249_ _e17741868_ _hd17731872_ _tl17721875_ @@ -804,7 +804,7 @@ (declare (not safe)) (##car _e18001833_)))) (if (gx#stx-null? _tl17981840_) - (___match4207142072_ + (___match4224842249_ _e17741868_ _hd17731872_ _tl17721875_ @@ -824,42 +824,42 @@ (let () (declare (not safe)) (_g17671806_)))))))) (define |gerbil/core$$[:0:]#let*-values| (lambda (_$stx1964_) - (let* ((___stx4207442075_ _$stx1964_) + (let* ((___stx4225142252_ _$stx1964_) (_g19692014_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4207442075_)))) - (let ((___kont4207742078_ + ___stx4225142252_)))) + (let ((___kont4225442255_ (lambda (_L2172_) - (let ((__tmp47509 (gx#datum->syntax '#f 'let-values)) - (__tmp47506 - (let ((__tmp47507 - (let ((__tmp47508 + (let ((__tmp47686 (gx#datum->syntax '#f 'let-values)) + (__tmp47683 + (let ((__tmp47684 + (let ((__tmp47685 (lambda (_g21882191_ _g21892194_) (let () (declare (not safe)) (cons _g21882191_ _g21892194_))))) (declare (not safe)) - (foldr1 __tmp47508 '() _L2172_)))) + (foldr1 __tmp47685 '() _L2172_)))) (declare (not safe)) - (cons '() __tmp47507)))) + (cons '() __tmp47684)))) (declare (not safe)) - (cons __tmp47509 __tmp47506)))) - (___kont4208142082_ + (cons __tmp47686 __tmp47683)))) + (___kont4225842259_ (lambda (_L2081_ _L2083_ _L2084_ _L2085_) - (let ((__tmp47517 (gx#datum->syntax '#f 'let-values)) - (__tmp47510 - (let ((__tmp47516 + (let ((__tmp47694 (gx#datum->syntax '#f 'let-values)) + (__tmp47687 + (let ((__tmp47693 (let () (declare (not safe)) (cons _L2084_ '()))) - (__tmp47511 - (let ((__tmp47512 - (let ((__tmp47513 - (let ((__tmp47514 - (let ((__tmp47515 + (__tmp47688 + (let ((__tmp47689 + (let ((__tmp47690 + (let ((__tmp47691 + (let ((__tmp47692 (lambda (_g21062109_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g21072112_) @@ -867,19 +867,19 @@ (declare (not safe)) (cons _g21062109_ _g21072112_))))) (declare (not safe)) - (foldr1 __tmp47515 '() _L2081_)))) + (foldr1 __tmp47692 '() _L2081_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L2083_ __tmp47514)))) + (cons _L2083_ __tmp47691)))) (declare (not safe)) - (cons _L2085_ __tmp47513)))) + (cons _L2085_ __tmp47690)))) (declare (not safe)) - (cons __tmp47512 '())))) + (cons __tmp47689 '())))) (declare (not safe)) - (cons __tmp47516 __tmp47511)))) + (cons __tmp47693 __tmp47688)))) (declare (not safe)) - (cons __tmp47517 __tmp47510))))) - (let* ((___match4213342134_ + (cons __tmp47694 __tmp47687))))) + (let* ((___match4231042311_ (lambda (_e19932021_ _hd19922025_ _tl19912028_ @@ -889,7 +889,7 @@ _e19992041_ _hd19982045_ _tl19972048_ - ___splice4208342084_ + ___splice4226042261_ _target20002051_ _tl20022054_) (letrec ((_loop20032057_ @@ -913,20 +913,20 @@ _body20072064_))))) (let ((_body20082077_ (reverse _body20072064_))) - (___kont4208142082_ + (___kont4225842259_ _body20082077_ _tl19972048_ _hd19982045_ _hd19922025_)))))) (_loop20032057_ _target20002051_ '())))) - (___match4210742108_ + (___match4228442285_ (lambda (_e19742122_ _hd19732126_ _tl19722129_ _e19772132_ _hd19762136_ _tl19752139_ - ___splice4207942080_ + ___splice4225642257_ _target19782142_ _tl19802145_) (letrec ((_loop19812148_ @@ -950,11 +950,11 @@ _body19852155_))))) (let ((_body19862168_ (reverse _body19852155_))) - (___kont4207742078_ + (___kont4225442255_ _body19862168_)))))) (_loop19812148_ _target19782142_ '()))))) - (if (gx#stx-pair? ___stx4207442075_) - (let ((_e19742122_ (gx#syntax-e ___stx4207442075_))) + (if (gx#stx-pair? ___stx4225142252_) + (let ((_e19742122_ (gx#syntax-e ___stx4225142252_))) (let ((_tl19722129_ (let () (declare (not safe)) (##cdr _e19742122_))) (_hd19732126_ @@ -971,7 +971,7 @@ (##car _e19772132_)))) (if (gx#stx-null? _hd19762136_) (if (gx#stx-pair/null? _tl19752139_) - (let ((___splice4207942080_ + (let ((___splice4225642257_ (gx#syntax-split-splice _tl19752139_ '0))) @@ -979,23 +979,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4207942080_ + ___splice4225642257_ '1))) (_target19782142_ (let () (declare (not safe)) (##vector-ref - ___splice4207942080_ + ___splice4225642257_ '0)))) (if (gx#stx-null? _tl19802145_) - (___match4210742108_ + (___match4228442285_ _e19742122_ _hd19732126_ _tl19722129_ _e19772132_ _hd19762136_ _tl19752139_ - ___splice4207942080_ + ___splice4225642257_ _target19782142_ _tl19802145_) (let () @@ -1016,7 +1016,7 @@ (declare (not safe)) (##car _e19992041_)))) (if (gx#stx-pair/null? _tl19752139_) - (let ((___splice4208342084_ + (let ((___splice4226042261_ (gx#syntax-split-splice _tl19752139_ '0))) @@ -1024,17 +1024,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4208342084_ + ___splice4226042261_ '1))) (_target20002051_ (let () (declare (not safe)) (##vector-ref - ___splice4208342084_ + ___splice4226042261_ '0)))) (if (gx#stx-null? _tl20022054_) - (___match4213342134_ + (___match4231042311_ _e19742122_ _hd19732126_ _tl19722129_ @@ -1044,7 +1044,7 @@ _e19992041_ _hd19982045_ _tl19972048_ - ___splice4208342084_ + ___splice4226042261_ _target20002051_ _tl20022054_) (let () @@ -1060,87 +1060,87 @@ (let () (declare (not safe)) (_g19692014_)))))))) (define |gerbil/core$$[:0:]#let| (lambda (_$stx2203_) - (let* ((___stx4213642137_ _$stx2203_) + (let* ((___stx4231342314_ _$stx2203_) (_g22082272_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4213642137_)))) - (let ((___kont4213942140_ + ___stx4231342314_)))) + (let ((___kont4231642317_ (lambda (_L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (let ((__tmp47520 - (let ((__tmp47534 + (let ((__tmp47697 + (let ((__tmp47711 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47521 - (let ((__tmp47523 - (let ((__tmp47524 - (let ((__tmp47533 + (__tmp47698 + (let ((__tmp47700 + (let ((__tmp47701 + (let ((__tmp47710 (let () (declare (not safe)) (cons _L2483_ '()))) - (__tmp47525 - (let ((__tmp47526 - (let ((__tmp47532 + (__tmp47702 + (let ((__tmp47703 + (let ((__tmp47709 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda%)) - (__tmp47527 - (let ((__tmp47530 - (let ((__tmp47531 + (__tmp47704 + (let ((__tmp47707 + (let ((__tmp47708 (lambda (_g25122515_ _g25132518_) (let () (declare (not safe)) (cons _g25122515_ _g25132518_))))) (declare (not safe)) - (foldr1 __tmp47531 _L2480_ _L2482_))) - (__tmp47528 - (let ((__tmp47529 + (foldr1 __tmp47708 _L2480_ _L2482_))) + (__tmp47705 + (let ((__tmp47706 (lambda (_g25102521_ _g25112524_) (let () (declare (not safe)) (cons _g25102521_ _g25112524_))))) (declare (not safe)) - (foldr1 __tmp47529 '() _L2478_)))) + (foldr1 __tmp47706 '() _L2478_)))) (declare (not safe)) - (cons __tmp47530 __tmp47528)))) + (cons __tmp47707 __tmp47705)))) (declare (not safe)) - (cons __tmp47532 __tmp47527)))) + (cons __tmp47709 __tmp47704)))) (declare (not safe)) - (cons __tmp47526 '())))) + (cons __tmp47703 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47533 - __tmp47525)))) + (cons __tmp47710 + __tmp47702)))) (declare (not safe)) - (cons __tmp47524 '()))) - (__tmp47522 + (cons __tmp47701 '()))) + (__tmp47699 (let () (declare (not safe)) (cons _L2483_ '())))) (declare (not safe)) - (cons __tmp47523 __tmp47522)))) + (cons __tmp47700 __tmp47699)))) (declare (not safe)) - (cons __tmp47534 __tmp47521))) - (__tmp47518 - (let ((__tmp47519 + (cons __tmp47711 __tmp47698))) + (__tmp47695 + (let ((__tmp47696 (lambda (_g25082527_ _g25092530_) (let () (declare (not safe)) (cons _g25082527_ _g25092530_))))) (declare (not safe)) - (foldr1 __tmp47519 '() _L2481_)))) + (foldr1 __tmp47696 '() _L2481_)))) (declare (not safe)) - (cons __tmp47520 __tmp47518)))) - (___kont4214542146_ + (cons __tmp47697 __tmp47695)))) + (___kont4232242323_ (lambda (_L2329_ _L2331_) - (let ((__tmp47540 (gx#datum->syntax '#f '~let)) - (__tmp47535 - (let ((__tmp47539 (gx#datum->syntax '#f 'let-values)) - (__tmp47536 - (let ((__tmp47537 - (let ((__tmp47538 + (let ((__tmp47717 (gx#datum->syntax '#f '~let)) + (__tmp47712 + (let ((__tmp47716 (gx#datum->syntax '#f 'let-values)) + (__tmp47713 + (let ((__tmp47714 + (let ((__tmp47715 (lambda (_g23482351_ _g23492354_) (let () @@ -1148,21 +1148,21 @@ (cons _g23482351_ _g23492354_))))) (declare (not safe)) - (foldr1 __tmp47538 '() _L2329_)))) + (foldr1 __tmp47715 '() _L2329_)))) (declare (not safe)) - (cons _L2331_ __tmp47537)))) + (cons _L2331_ __tmp47714)))) (declare (not safe)) - (cons __tmp47539 __tmp47536)))) + (cons __tmp47716 __tmp47713)))) (declare (not safe)) - (cons __tmp47540 __tmp47535))))) - (let* ((___match4219342194_ + (cons __tmp47717 __tmp47712))))) + (let* ((___match4237042371_ (lambda (_e22542279_ _hd22532283_ _tl22522286_ _e22572289_ _hd22562293_ _tl22552296_ - ___splice4214742148_ + ___splice4232442325_ _target22582299_ _tl22602302_) (letrec ((_loop22612305_ @@ -1186,11 +1186,11 @@ _body22652312_))))) (let ((_body22662325_ (reverse _body22652312_))) - (___kont4214542146_ + (___kont4232242323_ _body22662325_ _hd22562293_)))))) (_loop22612305_ _target22582299_ '())))) - (___match4218542186_ + (___match4236242363_ (lambda (_e22542279_ _hd22532283_ _tl22522286_ @@ -1198,32 +1198,32 @@ _hd22562293_ _tl22552296_) (if (gx#stx-pair/null? _tl22552296_) - (let ((___splice4214742148_ + (let ((___splice4232442325_ (gx#syntax-split-splice _tl22552296_ '0))) (let ((_tl22602302_ (let () (declare (not safe)) - (##vector-ref ___splice4214742148_ '1))) + (##vector-ref ___splice4232442325_ '1))) (_target22582299_ (let () (declare (not safe)) - (##vector-ref ___splice4214742148_ '0)))) + (##vector-ref ___splice4232442325_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4219342194_ + (___match4237042371_ _e22542279_ _hd22532283_ _tl22522286_ _e22572289_ _hd22562293_ _tl22552296_ - ___splice4214742148_ + ___splice4232442325_ _target22582299_ _tl22602302_) (let () (declare (not safe)) (_g22082272_))))) (let () (declare (not safe)) (_g22082272_))))) - (___match4217342174_ + (___match4235042351_ (lambda (_e22172364_ _hd22162368_ _tl22152371_ @@ -1233,7 +1233,7 @@ _e22232384_ _hd22222388_ _tl22212391_ - ___splice4214142142_ + ___splice4231842319_ _target22242394_ _tl22262397_) (letrec ((_loop22272400_ @@ -1284,14 +1284,14 @@ (let () (declare (not safe)) (cons _hd22362426_ _var22322409_))) - (___match4218542186_ + (___match4236242363_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_)))) - (___match4218542186_ + (___match4236242363_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1299,7 +1299,7 @@ _hd22192378_ _tl22182381_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4218542186_ + (___match4236242363_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1311,7 +1311,7 @@ (_arg22332442_ (reverse _arg22312407_))) (if (gx#stx-pair/null? _tl22212391_) - (let ((___splice4214342144_ + (let ((___splice4232042321_ (gx#syntax-split-splice _tl22212391_ '0))) @@ -1319,13 +1319,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4214342144_ + ___splice4232042321_ '1))) (_target22412448_ (let () (declare (not safe)) (##vector-ref - ___splice4214342144_ + ___splice4232042321_ '0)))) (if (gx#stx-null? _tl22432451_) (letrec ((_loop22442454_ @@ -1354,13 +1354,13 @@ (_L2482_ _var22342445_) (_L2483_ _hd22192378_)) (if (gx#identifier? _L2483_) - (___kont4213942140_ + (___kont4231642317_ _L2478_ _L2480_ _L2481_ _L2482_ _L2483_) - (___match4218542186_ + (___match4236242363_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1369,14 +1369,14 @@ _tl22182381_)))))))) (_loop22442454_ _target22412448_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___match4218542186_ + (___match4236242363_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_)))) - (___match4218542186_ + (___match4236242363_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1384,8 +1384,8 @@ _hd22192378_ _tl22182381_))))))) (_loop22272400_ _target22242394_ '() '()))))) - (if (gx#stx-pair? ___stx4213642137_) - (let ((_e22172364_ (gx#syntax-e ___stx4213642137_))) + (if (gx#stx-pair? ___stx4231342314_) + (let ((_e22172364_ (gx#syntax-e ___stx4231342314_))) (let ((_tl22152371_ (let () (declare (not safe)) (##cdr _e22172364_))) (_hd22162368_ @@ -1412,7 +1412,7 @@ (declare (not safe)) (##car _e22232384_)))) (if (gx#stx-pair/null? _hd22222388_) - (let ((___splice4214142142_ + (let ((___splice4231842319_ (gx#syntax-split-splice _hd22222388_ '0))) @@ -1420,15 +1420,15 @@ (let () (declare (not safe)) (##vector-ref - ___splice4214142142_ + ___splice4231842319_ '1))) (_target22242394_ (let () (declare (not safe)) (##vector-ref - ___splice4214142142_ + ___splice4231842319_ '0)))) - (___match4217342174_ + (___match4235042351_ _e22172364_ _hd22162368_ _tl22152371_ @@ -1438,11 +1438,11 @@ _e22232384_ _hd22222388_ _tl22212391_ - ___splice4214142142_ + ___splice4231842319_ _target22242394_ _tl22262397_))) (if (gx#stx-pair/null? _tl22182381_) - (let ((___splice4214742148_ + (let ((___splice4232442325_ (gx#syntax-split-splice _tl22182381_ '0))) @@ -1450,24 +1450,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4214742148_ + ___splice4232442325_ '1))) (_target22582299_ (let () (declare (not safe)) (##vector-ref - ___splice4214742148_ + ___splice4232442325_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4219342194_ + (___match4237042371_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_ - ___splice4214742148_ + ___splice4232442325_ _target22582299_ _tl22602302_) (let () @@ -1477,7 +1477,7 @@ (declare (not safe)) (_g22082272_)))))) (if (gx#stx-pair/null? _tl22182381_) - (let ((___splice4214742148_ + (let ((___splice4232442325_ (gx#syntax-split-splice _tl22182381_ '0))) @@ -1485,23 +1485,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4214742148_ + ___splice4232442325_ '1))) (_target22582299_ (let () (declare (not safe)) (##vector-ref - ___splice4214742148_ + ___splice4232442325_ '0)))) (if (gx#stx-null? _tl22602302_) - (___match4219342194_ + (___match4237042371_ _e22172364_ _hd22162368_ _tl22152371_ _e22202374_ _hd22192378_ _tl22182381_ - ___splice4214742148_ + ___splice4232442325_ _target22582299_ _tl22602302_) (let () @@ -1543,31 +1543,31 @@ (declare (not safe)) (##cdr _e25532585_)))) (if (gx#stx-pair/null? _tl25512592_) - (let ((_g47541_ + (let ((_g47718_ (gx#syntax-split-splice _tl25512592_ '0))) (begin - (let ((_g47542_ + (let ((_g47719_ (let () (declare (not safe)) - (if (##values? _g47541_) + (if (##values? _g47718_) (##vector-length - _g47541_) + _g47718_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47542_ 2))) + (##fx= _g47719_ 2))) (error "Context expects 2 values" - _g47542_))) + _g47719_))) (let ((_target25542595_ (let () (declare (not safe)) - (##vector-ref _g47541_ 0))) + (##vector-ref _g47718_ 0))) (_tl25562598_ (let () (declare (not safe)) - (##vector-ref _g47541_ 1)))) + (##vector-ref _g47718_ 1)))) (if (gx#stx-null? _tl25562598_) (letrec ((_loop25572601_ (lambda (_hd25552605_ @@ -1590,13 +1590,13 @@ (cons _lp-hd25592615_ _body25612608_))))) (let ((_body25622621_ (reverse _body25612608_))) ((lambda (_L2625_ _L2627_) - (let ((__tmp47548 (gx#datum->syntax '#f '~let)) - (__tmp47543 - (let ((__tmp47547 + (let ((__tmp47725 (gx#datum->syntax '#f '~let)) + (__tmp47720 + (let ((__tmp47724 (gx#datum->syntax '#f 'let*-values)) - (__tmp47544 - (let ((__tmp47545 - (let ((__tmp47546 + (__tmp47721 + (let ((__tmp47722 + (let ((__tmp47723 (lambda (_g26442647_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g26452650_) @@ -1605,15 +1605,15 @@ (cons _g26442647_ _g26452650_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47546 + (foldr1 __tmp47723 '() _L2625_)))) (declare (not safe)) - (cons _L2627_ __tmp47545)))) + (cons _L2627_ __tmp47722)))) (declare (not safe)) - (cons __tmp47547 __tmp47544)))) + (cons __tmp47724 __tmp47721)))) (declare (not safe)) - (cons __tmp47548 __tmp47543))) + (cons __tmp47725 __tmp47720))) _body25622621_ _hd25522589_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1656,31 +1656,31 @@ (declare (not safe)) (##cdr _e26712703_)))) (if (gx#stx-pair/null? _tl26692710_) - (let ((_g47549_ + (let ((_g47726_ (gx#syntax-split-splice _tl26692710_ '0))) (begin - (let ((_g47550_ + (let ((_g47727_ (let () (declare (not safe)) - (if (##values? _g47549_) + (if (##values? _g47726_) (##vector-length - _g47549_) + _g47726_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47550_ 2))) + (##fx= _g47727_ 2))) (error "Context expects 2 values" - _g47550_))) + _g47727_))) (let ((_target26722713_ (let () (declare (not safe)) - (##vector-ref _g47549_ 0))) + (##vector-ref _g47726_ 0))) (_tl26742716_ (let () (declare (not safe)) - (##vector-ref _g47549_ 1)))) + (##vector-ref _g47726_ 1)))) (if (gx#stx-null? _tl26742716_) (letrec ((_loop26752719_ (lambda (_hd26732723_ @@ -1703,15 +1703,15 @@ (cons _lp-hd26772733_ _body26792726_))))) (let ((_body26802739_ (reverse _body26792726_))) ((lambda (_L2743_ _L2745_) - (let ((__tmp47556 (gx#datum->syntax '#f '~let)) - (__tmp47551 - (let ((__tmp47555 + (let ((__tmp47733 (gx#datum->syntax '#f '~let)) + (__tmp47728 + (let ((__tmp47732 (gx#datum->syntax '#f 'letrec-values)) - (__tmp47552 - (let ((__tmp47553 - (let ((__tmp47554 + (__tmp47729 + (let ((__tmp47730 + (let ((__tmp47731 (lambda (_g27622765_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g27632768_) @@ -1720,15 +1720,15 @@ (cons _g27622765_ _g27632768_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47554 + (foldr1 __tmp47731 '() _L2743_)))) (declare (not safe)) - (cons _L2745_ __tmp47553)))) + (cons _L2745_ __tmp47730)))) (declare (not safe)) - (cons __tmp47555 __tmp47552)))) + (cons __tmp47732 __tmp47729)))) (declare (not safe)) - (cons __tmp47556 __tmp47551))) + (cons __tmp47733 __tmp47728))) _body26802739_ _hd26702707_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1771,31 +1771,31 @@ (declare (not safe)) (##cdr _e27892821_)))) (if (gx#stx-pair/null? _tl27872828_) - (let ((_g47557_ + (let ((_g47734_ (gx#syntax-split-splice _tl27872828_ '0))) (begin - (let ((_g47558_ + (let ((_g47735_ (let () (declare (not safe)) - (if (##values? _g47557_) + (if (##values? _g47734_) (##vector-length - _g47557_) + _g47734_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47558_ 2))) + (##fx= _g47735_ 2))) (error "Context expects 2 values" - _g47558_))) + _g47735_))) (let ((_target27902831_ (let () (declare (not safe)) - (##vector-ref _g47557_ 0))) + (##vector-ref _g47734_ 0))) (_tl27922834_ (let () (declare (not safe)) - (##vector-ref _g47557_ 1)))) + (##vector-ref _g47734_ 1)))) (if (gx#stx-null? _tl27922834_) (letrec ((_loop27932837_ (lambda (_hd27912841_ @@ -1818,15 +1818,15 @@ (cons _lp-hd27952851_ _body27972844_))))) (let ((_body27982857_ (reverse _body27972844_))) ((lambda (_L2861_ _L2863_) - (let ((__tmp47564 (gx#datum->syntax '#f '~let)) - (__tmp47559 - (let ((__tmp47563 + (let ((__tmp47741 (gx#datum->syntax '#f '~let)) + (__tmp47736 + (let ((__tmp47740 (gx#datum->syntax '#f 'letrec*-values)) - (__tmp47560 - (let ((__tmp47561 - (let ((__tmp47562 + (__tmp47737 + (let ((__tmp47738 + (let ((__tmp47739 (lambda (_g28802883_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g28812886_) @@ -1835,15 +1835,15 @@ (cons _g28802883_ _g28812886_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp47562 + (foldr1 __tmp47739 '() _L2861_)))) (declare (not safe)) - (cons _L2863_ __tmp47561)))) + (cons _L2863_ __tmp47738)))) (declare (not safe)) - (cons __tmp47563 __tmp47560)))) + (cons __tmp47740 __tmp47737)))) (declare (not safe)) - (cons __tmp47564 __tmp47559))) + (cons __tmp47741 __tmp47736))) _body27982857_ _hd27882825_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1859,21 +1859,21 @@ (lambda (_stx2894_) (letrec ((_let-head?2897_ (lambda (_x3377_) - (let* ((___stx4219642197_ _x3377_) + (let* ((___stx4237342374_ _x3377_) (_g33813392_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4219642197_)))) - (let ((___kont4219942200_ + ___stx4237342374_)))) + (let ((___kont4237642377_ (lambda (_L3420_) (gx#stx-andmap gx#identifier? _L3420_))) - (___kont4220142202_ + (___kont4237842379_ (lambda () (gx#identifier? _x3377_)))) - (if (gx#stx-pair? ___stx4219642197_) + (if (gx#stx-pair? ___stx4237342374_) (let ((_e33863410_ - (gx#syntax-e ___stx4219642197_))) + (gx#syntax-e ___stx4237342374_))) (let ((_tl33843417_ (let () (declare (not safe)) @@ -1884,26 +1884,26 @@ (##car _e33863410_)))) (if (gx#identifier? _hd33853414_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47565_| + |gerbil/core$$[1]#_g47742_| _hd33853414_) - (___kont4219942200_ _tl33843417_) - (___kont4220142202_)) - (___kont4220142202_)))) - (___kont4220142202_)))))) + (___kont4237642377_ _tl33843417_) + (___kont4237842379_)) + (___kont4237842379_)))) + (___kont4237842379_)))))) (_let-head2899_ (lambda (_x3317_) - (let* ((___stx4221642217_ _x3317_) + (let* ((___stx4239342394_ _x3317_) (_g33213332_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4221642217_)))) - (let ((___kont4221942220_ (lambda (_L3360_) _L3360_)) - (___kont4222142222_ (lambda () (list _x3317_)))) - (if (gx#stx-pair? ___stx4221642217_) + ___stx4239342394_)))) + (let ((___kont4239642397_ (lambda (_L3360_) _L3360_)) + (___kont4239842399_ (lambda () (list _x3317_)))) + (if (gx#stx-pair? ___stx4239342394_) (let ((_e33263350_ - (gx#syntax-e ___stx4221642217_))) + (gx#syntax-e ___stx4239342394_))) (let ((_tl33243357_ (let () (declare (not safe)) @@ -1914,40 +1914,40 @@ (##car _e33263350_)))) (if (gx#identifier? _hd33253354_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47566_| + |gerbil/core$$[1]#_g47743_| _hd33253354_) - (___kont4221942220_ _tl33243357_) - (___kont4222142222_)) - (___kont4222142222_)))) - (___kont4222142222_))))))) - (let* ((___stx4223642237_ _stx2894_) + (___kont4239642397_ _tl33243357_) + (___kont4239842399_)) + (___kont4239842399_)))) + (___kont4239842399_))))))) + (let* ((___stx4241342414_ _stx2894_) (_g29022968_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4223642237_)))) - (let ((___kont4223942240_ + ___stx4241342414_)))) + (let ((___kont4241642417_ (lambda (_L3286_ _L3288_ _L3289_ _L3290_ _L3291_) - (let ((__tmp47567 - (let ((__tmp47568 - (let ((__tmp47569 - (let ((__tmp47570 - (let ((__tmp47571 + (let ((__tmp47744 + (let ((__tmp47745 + (let ((__tmp47746 + (let ((__tmp47747 + (let ((__tmp47748 (let () (declare (not safe)) (cons _L3288_ '())))) (declare (not safe)) - (cons _L3289_ __tmp47571)))) + (cons _L3289_ __tmp47748)))) (declare (not safe)) - (cons __tmp47570 '())))) + (cons __tmp47747 '())))) (declare (not safe)) - (cons __tmp47569 _L3286_)))) + (cons __tmp47746 _L3286_)))) (declare (not safe)) - (cons _L3290_ __tmp47568)))) + (cons _L3290_ __tmp47745)))) (declare (not safe)) - (cons _L3291_ __tmp47567)))) - (___kont4224142242_ + (cons _L3291_ __tmp47744)))) + (___kont4241842419_ (lambda (_L3089_ _L3091_ _L3092_ _L3093_) (let* ((_g31283145_ (lambda (_g31293141_) @@ -1958,30 +1958,30 @@ (_g31273217_ (lambda (_g31293149_) (if (gx#stx-pair/null? _g31293149_) - (let ((_g47572_ + (let ((_g47749_ (gx#syntax-split-splice _g31293149_ '0))) (begin - (let ((_g47573_ + (let ((_g47750_ (let () (declare (not safe)) - (if (##values? _g47572_) - (##vector-length _g47572_) + (if (##values? _g47749_) + (##vector-length _g47749_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47573_ 2))) + (##fx= _g47750_ 2))) (error "Context expects 2 values" - _g47573_))) + _g47750_))) (let ((_target31313152_ (let () (declare (not safe)) - (##vector-ref _g47572_ 0))) + (##vector-ref _g47749_ 0))) (_tl31333155_ (let () (declare (not safe)) - (##vector-ref _g47572_ 1)))) + (##vector-ref _g47749_ 1)))) (if (gx#stx-null? _tl31333155_) (letrec ((_loop31343158_ (lambda (_hd31323162_ @@ -2007,34 +2007,34 @@ (let ((_hd-bind31393178_ (reverse _hd-bind31383165_))) ((lambda (_L3182_) (let () - (let ((__tmp47574 - (let ((__tmp47577 + (let ((__tmp47751 + (let ((__tmp47754 (begin (gx#syntax-check-splice-targets _L3091_ _L3182_) - (let ((__tmp47578 + (let ((__tmp47755 (lambda (_g31993203_ _g32003206_ _g32013208_) - (let ((__tmp47579 - (let ((__tmp47580 + (let ((__tmp47756 + (let ((__tmp47757 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _g31993203_ '())))) (declare (not safe)) - (cons _g32003206_ __tmp47580)))) + (cons _g32003206_ __tmp47757)))) (declare (not safe)) - (cons __tmp47579 _g32013208_))))) + (cons __tmp47756 _g32013208_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp47578 + (foldr2 __tmp47755 '() _L3091_ _L3182_)))) - (__tmp47575 - (let ((__tmp47576 + (__tmp47752 + (let ((__tmp47753 (lambda (_g31973211_ _g31983214_) (let () @@ -2042,11 +2042,11 @@ (cons _g31973211_ _g31983214_))))) (declare (not safe)) - (foldr1 __tmp47576 '() _L3089_)))) + (foldr1 __tmp47753 '() _L3089_)))) (declare (not safe)) - (cons __tmp47577 __tmp47575)))) + (cons __tmp47754 __tmp47752)))) (declare (not safe)) - (cons _L3093_ __tmp47574)))) + (cons _L3093_ __tmp47751)))) _hd-bind31393178_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop31343158_ @@ -2057,14 +2057,14 @@ (_g31273217_ (gx#stx-map _let-head2899_ - (let ((__tmp47581 + (let ((__tmp47758 (lambda (_g32203223_ _g32213226_) (let () (declare (not safe)) (cons _g32203223_ _g32213226_))))) (declare (not safe)) - (foldr1 __tmp47581 '() _L3092_)))))))) - (let* ((___match4230542306_ + (foldr1 __tmp47758 '() _L3092_)))))))) + (let* ((___match4248242483_ (lambda (_e29302975_ _hd29292979_ _tl29282982_ @@ -2074,7 +2074,7 @@ _e29362995_ _hd29352999_ _tl29343002_ - ___splice4224342244_ + ___splice4242042421_ _target29373005_ _tl29393008_) (letrec ((_loop29403011_ @@ -2134,7 +2134,7 @@ (_e29463053_ (reverse _e29443018_))) (if (gx#stx-pair/null? _tl29343002_) - (let ((___splice4224542246_ + (let ((___splice4242242423_ (gx#syntax-split-splice _tl29343002_ '0))) @@ -2142,13 +2142,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4224542246_ + ___splice4242242423_ '1))) (_target29543059_ (let () (declare (not safe)) (##vector-ref - ___splice4224542246_ + ___splice4242242423_ '0)))) (if (gx#stx-null? _tl29563062_) @@ -2178,15 +2178,15 @@ (_L3093_ _hd29322989_)) (if (gx#stx-andmap _let-head?2897_ - (let ((__tmp47582 + (let ((__tmp47759 (lambda (_g31193122_ _g31203125_) (let () (declare (not safe)) (cons _g31193122_ _g31203125_))))) (declare (not safe)) - (foldr1 __tmp47582 '() _L3092_))) - (___kont4224142242_ + (foldr1 __tmp47759 '() _L3092_))) + (___kont4241842419_ _L3089_ _L3091_ _L3092_ @@ -2201,7 +2201,7 @@ (declare (not safe)) (_g29022968_)))))))) (_loop29403011_ _target29373005_ '() '())))) - (___match4227942280_ + (___match4245642457_ (lambda (_e29113236_ _hd29103240_ _tl29093243_ @@ -2223,14 +2223,14 @@ (_L3290_ _hd29133250_) (_L3291_ _hd29103240_)) (if (_let-head?2897_ _L3289_) - (___kont4223942240_ + (___kont4241642417_ _L3286_ _L3288_ _L3289_ _L3290_ _L3291_) (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4224342244_ + (let ((___splice4242042421_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2238,16 +2238,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4224342244_ + ___splice4242042421_ '1))) (_target29373005_ (let () (declare (not safe)) (##vector-ref - ___splice4224342244_ + ___splice4242042421_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4230542306_ + (___match4248242483_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2257,7 +2257,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4224342244_ + ___splice4242042421_ _target29373005_ _tl29393008_) (let () @@ -2266,8 +2266,8 @@ (let () (declare (not safe)) (_g29022968_)))))))) - (if (gx#stx-pair? ___stx4223642237_) - (let ((_e29113236_ (gx#syntax-e ___stx4223642237_))) + (if (gx#stx-pair? ___stx4241342414_) + (let ((_e29113236_ (gx#syntax-e ___stx4241342414_))) (let ((_tl29093243_ (let () (declare (not safe)) (##cdr _e29113236_))) (_hd29103240_ @@ -2319,7 +2319,7 @@ (_hd29223280_ (let () (declare (not safe)) (##car _e29233276_)))) (if (gx#stx-null? _tl29213283_) - (___match4227942280_ + (___match4245642457_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2336,18 +2336,18 @@ _hd29223280_ _tl29213283_) (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4224342244_ + (let ((___splice4242042421_ (gx#syntax-split-splice _hd29163260_ '0))) (let ((_tl29393008_ (let () (declare (not safe)) - (##vector-ref ___splice4224342244_ '1))) + (##vector-ref ___splice4242042421_ '1))) (_target29373005_ (let () (declare (not safe)) - (##vector-ref ___splice4224342244_ '0)))) + (##vector-ref ___splice4242042421_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4230542306_ + (___match4248242483_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2357,7 +2357,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4224342244_ + ___splice4242042421_ _target29373005_ _tl29393008_) (let () (declare (not safe)) (_g29022968_))))) @@ -2365,7 +2365,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4224342244_ + (let ((___splice4242042421_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2373,13 +2373,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice4224342244_ '1))) + (##vector-ref ___splice4242042421_ '1))) (_target29373005_ (let () (declare (not safe)) - (##vector-ref ___splice4224342244_ '0)))) + (##vector-ref ___splice4242042421_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4230542306_ + (___match4248242483_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2389,7 +2389,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4224342244_ + ___splice4242042421_ _target29373005_ _tl29393008_) (let () (declare (not safe)) (_g29022968_))))) @@ -2397,7 +2397,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd29163260_) - (let ((___splice4224342244_ + (let ((___splice4242042421_ (gx#syntax-split-splice _hd29163260_ '0))) @@ -2405,17 +2405,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4224342244_ + ___splice4242042421_ '1))) (_target29373005_ (let () (declare (not safe)) (##vector-ref - ___splice4224342244_ + ___splice4242042421_ '0)))) (if (gx#stx-null? _tl29393008_) - (___match4230542306_ + (___match4248242483_ _e29113236_ _hd29103240_ _tl29093243_ @@ -2425,7 +2425,7 @@ _e29173256_ _hd29163260_ _tl29153263_ - ___splice4224342244_ + ___splice4242042421_ _target29373005_ _tl29393008_) (let () @@ -2441,42 +2441,42 @@ (let () (declare (not safe)) (_g29022968_))))))))) (define |gerbil/core$$[:0:]#and| (lambda (_$stx3440_) - (let* ((___stx4230842309_ _$stx3440_) + (let* ((___stx4248542486_ _$stx3440_) (_g34463472_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4230842309_)))) - (let ((___kont4231142312_ (lambda () '#t)) - (___kont4231342314_ (lambda (_L3544_) _L3544_)) - (___kont4231542316_ + ___stx4248542486_)))) + (let ((___kont4248842489_ (lambda () '#t)) + (___kont4249042491_ (lambda (_L3544_) _L3544_)) + (___kont4249242493_ (lambda (_L3499_ _L3501_ _L3502_) - (let ((__tmp47587 (gx#datum->syntax '#f 'if)) - (__tmp47583 - (let ((__tmp47584 - (let ((__tmp47586 + (let ((__tmp47764 (gx#datum->syntax '#f 'if)) + (__tmp47760 + (let ((__tmp47761 + (let ((__tmp47763 (let () (declare (not safe)) (cons _L3502_ _L3499_))) - (__tmp47585 + (__tmp47762 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp47586 __tmp47585)))) + (cons __tmp47763 __tmp47762)))) (declare (not safe)) - (cons _L3501_ __tmp47584)))) + (cons _L3501_ __tmp47761)))) (declare (not safe)) - (cons __tmp47587 __tmp47583))))) - (if (gx#stx-pair? ___stx4230842309_) - (let ((_e34503564_ (gx#syntax-e ___stx4230842309_))) + (cons __tmp47764 __tmp47760))))) + (if (gx#stx-pair? ___stx4248542486_) + (let ((_e34503564_ (gx#syntax-e ___stx4248542486_))) (let ((_tl34483571_ (let () (declare (not safe)) (##cdr _e34503564_))) (_hd34493568_ (let () (declare (not safe)) (##car _e34503564_)))) (if (gx#stx-null? _tl34483571_) - (___kont4231142312_) + (___kont4248842489_) (if (gx#stx-pair? _tl34483571_) (let ((_e34573534_ (gx#syntax-e _tl34483571_))) (let ((_tl34553541_ @@ -2488,8 +2488,8 @@ (declare (not safe)) (##car _e34573534_)))) (if (gx#stx-null? _tl34553541_) - (___kont4231342314_ _hd34563538_) - (___kont4231542316_ + (___kont4249042491_ _hd34563538_) + (___kont4249242493_ _tl34553541_ _hd34563538_ _hd34493568_)))) @@ -2497,71 +2497,71 @@ (let () (declare (not safe)) (_g34463472_))))))) (define |gerbil/core$$[:0:]#or| (lambda (_$stx3582_) - (let* ((___stx4235442355_ _$stx3582_) + (let* ((___stx4253142532_ _$stx3582_) (_g35883614_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4235442355_)))) - (let ((___kont4235742358_ (lambda () '#f)) - (___kont4235942360_ (lambda (_L3686_) _L3686_)) - (___kont4236142362_ + ___stx4253142532_)))) + (let ((___kont4253442535_ (lambda () '#f)) + (___kont4253642537_ (lambda (_L3686_) _L3686_)) + (___kont4253842539_ (lambda (_L3641_ _L3643_ _L3644_) - (let ((__tmp47601 (gx#datum->syntax '#f 'let)) - (__tmp47588 - (let ((__tmp47598 - (let ((__tmp47600 (gx#datum->syntax '#f '$e)) - (__tmp47599 + (let ((__tmp47778 (gx#datum->syntax '#f 'let)) + (__tmp47765 + (let ((__tmp47775 + (let ((__tmp47777 (gx#datum->syntax '#f '$e)) + (__tmp47776 (let () (declare (not safe)) (cons _L3643_ '())))) (declare (not safe)) - (cons __tmp47600 __tmp47599))) - (__tmp47589 - (let ((__tmp47590 - (let ((__tmp47597 + (cons __tmp47777 __tmp47776))) + (__tmp47766 + (let ((__tmp47767 + (let ((__tmp47774 (gx#datum->syntax '#f 'if)) - (__tmp47591 - (let ((__tmp47596 + (__tmp47768 + (let ((__tmp47773 (gx#datum->syntax '#f '$e)) - (__tmp47592 - (let ((__tmp47595 + (__tmp47769 + (let ((__tmp47772 (gx#datum->syntax '#f '$e)) - (__tmp47593 - (let ((__tmp47594 + (__tmp47770 + (let ((__tmp47771 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L3644_ _L3641_)))) (declare (not safe)) - (cons __tmp47594 '())))) + (cons __tmp47771 '())))) (declare (not safe)) - (cons __tmp47595 __tmp47593)))) + (cons __tmp47772 __tmp47770)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47596 - __tmp47592)))) + (cons __tmp47773 + __tmp47769)))) (declare (not safe)) - (cons __tmp47597 __tmp47591)))) + (cons __tmp47774 __tmp47768)))) (declare (not safe)) - (cons __tmp47590 '())))) + (cons __tmp47767 '())))) (declare (not safe)) - (cons __tmp47598 __tmp47589)))) + (cons __tmp47775 __tmp47766)))) (declare (not safe)) - (cons __tmp47601 __tmp47588))))) - (if (gx#stx-pair? ___stx4235442355_) - (let ((_e35923706_ (gx#syntax-e ___stx4235442355_))) + (cons __tmp47778 __tmp47765))))) + (if (gx#stx-pair? ___stx4253142532_) + (let ((_e35923706_ (gx#syntax-e ___stx4253142532_))) (let ((_tl35903713_ (let () (declare (not safe)) (##cdr _e35923706_))) (_hd35913710_ (let () (declare (not safe)) (##car _e35923706_)))) (if (gx#stx-null? _tl35903713_) - (___kont4235742358_) + (___kont4253442535_) (if (gx#stx-pair? _tl35903713_) (let ((_e35993676_ (gx#syntax-e _tl35903713_))) (let ((_tl35973683_ @@ -2573,8 +2573,8 @@ (declare (not safe)) (##car _e35993676_)))) (if (gx#stx-null? _tl35973683_) - (___kont4235942360_ _hd35983680_) - (___kont4236142362_ + (___kont4253642537_ _hd35983680_) + (___kont4253842539_ _tl35973683_ _hd35983680_ _hd35913710_)))) @@ -2582,23 +2582,23 @@ (let () (declare (not safe)) (_g35883614_))))))) (define |gerbil/core$$[:0:]#cond| (lambda (_$stx3724_) - (let* ((___stx4240042401_ _$stx3724_) + (let* ((___stx4257742578_ _$stx3724_) (_g37333824_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4240042401_)))) - (let ((___kont4240342404_ (lambda () '#!void)) - (___kont4240542406_ + ___stx4257742578_)))) + (let ((___kont4258042581_ (lambda () '#!void)) + (___kont4258242583_ (lambda (_L4171_) - (let ((__tmp47607 (gx#datum->syntax '#f '%#expression)) - (__tmp47602 - (let ((__tmp47603 - (let ((__tmp47606 + (let ((__tmp47784 (gx#datum->syntax '#f '%#expression)) + (__tmp47779 + (let ((__tmp47780 + (let ((__tmp47783 (gx#datum->syntax '#f 'begin)) - (__tmp47604 - (let ((__tmp47605 + (__tmp47781 + (let ((__tmp47782 (lambda (_g41904193_ _g41914196_) (let () @@ -2606,131 +2606,131 @@ (cons _g41904193_ _g41914196_))))) (declare (not safe)) - (foldr1 __tmp47605 '() _L4171_)))) + (foldr1 __tmp47782 '() _L4171_)))) (declare (not safe)) - (cons __tmp47606 __tmp47604)))) + (cons __tmp47783 __tmp47781)))) (declare (not safe)) - (cons __tmp47603 '())))) + (cons __tmp47780 '())))) (declare (not safe)) - (cons __tmp47607 __tmp47602)))) - (___kont4240942410_ + (cons __tmp47784 __tmp47779)))) + (___kont4258642587_ (lambda () - (let ((__tmp47609 (gx#datum->syntax '#f 'syntax-error)) - (__tmp47608 + (let ((__tmp47786 (gx#datum->syntax '#f 'syntax-error)) + (__tmp47785 (let () (declare (not safe)) (cons '"bad syntax; misplaced else" '())))) (declare (not safe)) - (cons __tmp47609 __tmp47608)))) - (___kont4241142412_ + (cons __tmp47786 __tmp47785)))) + (___kont4258842589_ (lambda (_L4044_ _L4046_ _L4047_) - (let ((__tmp47623 (gx#datum->syntax '#f 'let)) - (__tmp47610 - (let ((__tmp47620 - (let ((__tmp47622 (gx#datum->syntax '#f '$e)) - (__tmp47621 + (let ((__tmp47800 (gx#datum->syntax '#f 'let)) + (__tmp47787 + (let ((__tmp47797 + (let ((__tmp47799 (gx#datum->syntax '#f '$e)) + (__tmp47798 (let () (declare (not safe)) (cons _L4046_ '())))) (declare (not safe)) - (cons __tmp47622 __tmp47621))) - (__tmp47611 - (let ((__tmp47612 - (let ((__tmp47619 + (cons __tmp47799 __tmp47798))) + (__tmp47788 + (let ((__tmp47789 + (let ((__tmp47796 (gx#datum->syntax '#f 'if)) - (__tmp47613 - (let ((__tmp47618 + (__tmp47790 + (let ((__tmp47795 (gx#datum->syntax '#f '$e)) - (__tmp47614 - (let ((__tmp47617 + (__tmp47791 + (let ((__tmp47794 (gx#datum->syntax '#f '$e)) - (__tmp47615 - (let ((__tmp47616 + (__tmp47792 + (let ((__tmp47793 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4047_ _L4044_)))) (declare (not safe)) - (cons __tmp47616 '())))) + (cons __tmp47793 '())))) (declare (not safe)) - (cons __tmp47617 __tmp47615)))) + (cons __tmp47794 __tmp47792)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47618 - __tmp47614)))) + (cons __tmp47795 + __tmp47791)))) (declare (not safe)) - (cons __tmp47619 __tmp47613)))) + (cons __tmp47796 __tmp47790)))) (declare (not safe)) - (cons __tmp47612 '())))) + (cons __tmp47789 '())))) (declare (not safe)) - (cons __tmp47620 __tmp47611)))) + (cons __tmp47797 __tmp47788)))) (declare (not safe)) - (cons __tmp47623 __tmp47610)))) - (___kont4241342414_ + (cons __tmp47800 __tmp47787)))) + (___kont4259042591_ (lambda (_L3982_ _L3984_ _L3985_ _L3986_) - (let ((__tmp47639 (gx#datum->syntax '#f 'let)) - (__tmp47624 - (let ((__tmp47636 - (let ((__tmp47638 (gx#datum->syntax '#f '$e)) - (__tmp47637 + (let ((__tmp47816 (gx#datum->syntax '#f 'let)) + (__tmp47801 + (let ((__tmp47813 + (let ((__tmp47815 (gx#datum->syntax '#f '$e)) + (__tmp47814 (let () (declare (not safe)) (cons _L3985_ '())))) (declare (not safe)) - (cons __tmp47638 __tmp47637))) - (__tmp47625 - (let ((__tmp47626 - (let ((__tmp47635 + (cons __tmp47815 __tmp47814))) + (__tmp47802 + (let ((__tmp47803 + (let ((__tmp47812 (gx#datum->syntax '#f 'if)) - (__tmp47627 - (let ((__tmp47634 + (__tmp47804 + (let ((__tmp47811 (gx#datum->syntax '#f '$e)) - (__tmp47628 - (let ((__tmp47631 - (let ((__tmp47632 + (__tmp47805 + (let ((__tmp47808 + (let ((__tmp47809 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47633 (gx#datum->syntax '#f '$e))) + (let ((__tmp47810 (gx#datum->syntax '#f '$e))) (declare (not safe)) - (cons __tmp47633 '())))) + (cons __tmp47810 '())))) (declare (not safe)) - (cons _L3984_ __tmp47632))) - (__tmp47629 - (let ((__tmp47630 + (cons _L3984_ __tmp47809))) + (__tmp47806 + (let ((__tmp47807 (let () (declare (not safe)) (cons _L3986_ _L3982_)))) (declare (not safe)) - (cons __tmp47630 '())))) + (cons __tmp47807 '())))) (declare (not safe)) - (cons __tmp47631 __tmp47629)))) + (cons __tmp47808 __tmp47806)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47634 - __tmp47628)))) + (cons __tmp47811 + __tmp47805)))) (declare (not safe)) - (cons __tmp47635 __tmp47627)))) + (cons __tmp47812 __tmp47804)))) (declare (not safe)) - (cons __tmp47626 '())))) + (cons __tmp47803 '())))) (declare (not safe)) - (cons __tmp47636 __tmp47625)))) + (cons __tmp47813 __tmp47802)))) (declare (not safe)) - (cons __tmp47639 __tmp47624)))) - (___kont4241542416_ + (cons __tmp47816 __tmp47801)))) + (___kont4259242593_ (lambda (_L3891_ _L3893_ _L3894_ _L3895_) - (let ((__tmp47648 (gx#datum->syntax '#f 'if)) - (__tmp47640 - (let ((__tmp47641 - (let ((__tmp47644 - (let ((__tmp47647 + (let ((__tmp47825 (gx#datum->syntax '#f 'if)) + (__tmp47817 + (let ((__tmp47818 + (let ((__tmp47821 + (let ((__tmp47824 (gx#datum->syntax '#f 'begin)) - (__tmp47645 - (let ((__tmp47646 + (__tmp47822 + (let ((__tmp47823 (lambda (_g39163919_ _g39173922_) (let () @@ -2738,25 +2738,25 @@ (cons _g39163919_ _g39173922_))))) (declare (not safe)) - (foldr1 __tmp47646 + (foldr1 __tmp47823 '() _L3893_)))) (declare (not safe)) - (cons __tmp47647 __tmp47645))) - (__tmp47642 - (let ((__tmp47643 + (cons __tmp47824 __tmp47822))) + (__tmp47819 + (let ((__tmp47820 (let () (declare (not safe)) (cons _L3895_ _L3891_)))) (declare (not safe)) - (cons __tmp47643 '())))) + (cons __tmp47820 '())))) (declare (not safe)) - (cons __tmp47644 __tmp47642)))) + (cons __tmp47821 __tmp47819)))) (declare (not safe)) - (cons _L3894_ __tmp47641)))) + (cons _L3894_ __tmp47818)))) (declare (not safe)) - (cons __tmp47648 __tmp47640))))) - (let* ((___match4256142562_ + (cons __tmp47825 __tmp47817))))) + (let* ((___match4273842739_ (lambda (_e38033831_ _hd38023835_ _tl38013838_ @@ -2766,7 +2766,7 @@ _e38093851_ _hd38083855_ _tl38073858_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (letrec ((_loop38133867_ @@ -2790,13 +2790,13 @@ _body38173874_))))) (let ((_body38183887_ (reverse _body38173874_))) - (___kont4241542416_ + (___kont4259242593_ _tl38043848_ _body38183887_ _hd38083855_ _hd38023835_)))))) (_loop38133867_ _target38103861_ '())))) - (___match4245742458_ + (___match4263442635_ (lambda (_e37414111_ _hd37404115_ _tl37394118_ @@ -2806,7 +2806,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4240742408_ + ___splice4258442585_ _target37484141_ _tl37504144_) (letrec ((_loop37514147_ @@ -2831,17 +2831,17 @@ (let ((_body37564167_ (reverse _body37554154_))) (if (gx#stx-null? _tl37424128_) - (___kont4240542406_ _body37564167_) - (___kont4240942410_))))))) + (___kont4258242583_ _body37564167_) + (___kont4258642587_))))))) (_loop37514147_ _target37484141_ '()))))) - (if (gx#stx-pair? ___stx4240042401_) - (let ((_e37374206_ (gx#syntax-e ___stx4240042401_))) + (if (gx#stx-pair? ___stx4257742578_) + (let ((_e37374206_ (gx#syntax-e ___stx4257742578_))) (let ((_tl37354213_ (let () (declare (not safe)) (##cdr _e37374206_))) (_hd37364210_ (let () (declare (not safe)) (##car _e37374206_)))) (if (gx#stx-null? _tl37354213_) - (___kont4240342404_) + (___kont4258042581_) (if (gx#stx-pair? _tl37354213_) (let ((_e37444121_ (gx#syntax-e _tl37354213_))) (let ((_tl37424128_ @@ -2865,11 +2865,11 @@ (##car _e37474131_)))) (if (gx#identifier? _hd37464135_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47650_| + |gerbil/core$$[1]#_g47827_| _hd37464135_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4240742408_ + (let ((___splice4258442585_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2877,13 +2877,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4240742408_ '1))) + (##vector-ref ___splice4258442585_ '1))) (_target37484141_ (let () (declare (not safe)) - (##vector-ref ___splice4240742408_ '0)))) + (##vector-ref ___splice4258442585_ '0)))) (if (gx#stx-null? _tl37504144_) - (___match4245742458_ + (___match4263442635_ _e37374206_ _hd37364210_ _tl37354213_ @@ -2893,15 +2893,15 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4240742408_ + ___splice4258442585_ _target37484141_ _tl37504144_) - (___kont4240942410_)))) - (___kont4240942410_)) + (___kont4258642587_)))) + (___kont4258642587_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37454138_) - (___kont4241142412_ + (___kont4258842589_ _tl37424128_ _hd37464135_ _hd37364210_) @@ -2916,7 +2916,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47649_| + |gerbil/core$$[1]#_g47826_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ @@ -2930,13 +2930,13 @@ (declare (not safe)) (##car _e37963972_)))) (if (gx#stx-null? _tl37943979_) - (___kont4241342414_ + (___kont4259042591_ _tl37424128_ _hd37953976_ _hd37464135_ _hd37364210_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2944,17 +2944,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -2964,7 +2964,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -2974,7 +2974,7 @@ (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -2982,16 +2982,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3001,7 +3001,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -3011,7 +3011,7 @@ (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3019,16 +3019,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3038,7 +3038,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -3046,22 +3046,22 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3071,7 +3071,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -3079,18 +3079,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4241742418_ '1))) + (##vector-ref ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4241742418_ '0)))) + (##vector-ref ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3100,14 +3100,14 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () (declare (not safe)) (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl37454138_) - (___kont4241142412_ + (___kont4258842589_ _tl37424128_ _hd37464135_ _hd37364210_) @@ -3125,7 +3125,7 @@ (let () (declare (not safe)) (##car _e37933962_)))) (if (gx#identifier? _hd37923966_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47649_| + |gerbil/core$$[1]#_g47826_| _hd37923966_) (if (gx#stx-pair? _tl37913969_) (let ((_e37963972_ (gx#syntax-e _tl37913969_))) @@ -3138,13 +3138,13 @@ (declare (not safe)) (##car _e37963972_)))) (if (gx#stx-null? _tl37943979_) - (___kont4241342414_ + (___kont4259042591_ _tl37424128_ _hd37953976_ _hd37464135_ _hd37364210_) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3152,16 +3152,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3171,7 +3171,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -3181,7 +3181,7 @@ (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) @@ -3189,16 +3189,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3208,7 +3208,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -3216,22 +3216,22 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) (##vector-ref - ___splice4241742418_ + ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3241,7 +3241,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -3249,18 +3249,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4241742418_ '1))) + (##vector-ref ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4241742418_ '0)))) + (##vector-ref ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3270,7 +3270,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () @@ -3278,18 +3278,18 @@ (_g37333824_))))) (let () (declare (not safe)) (_g37333824_)))))) (if (gx#stx-pair/null? _tl37454138_) - (let ((___splice4241742418_ + (let ((___splice4259442595_ (gx#syntax-split-splice _tl37454138_ '0))) (let ((_tl38123864_ (let () (declare (not safe)) - (##vector-ref ___splice4241742418_ '1))) + (##vector-ref ___splice4259442595_ '1))) (_target38103861_ (let () (declare (not safe)) - (##vector-ref ___splice4241742418_ '0)))) + (##vector-ref ___splice4259442595_ '0)))) (if (gx#stx-null? _tl38123864_) - (___match4256142562_ + (___match4273842739_ _e37374206_ _hd37364210_ _tl37354213_ @@ -3299,7 +3299,7 @@ _e37474131_ _hd37464135_ _tl37454138_ - ___splice4241742418_ + ___splice4259442595_ _target38103861_ _tl38123864_) (let () (declare (not safe)) (_g37333824_))))) @@ -3341,31 +3341,31 @@ (declare (not safe)) (##cdr _e42394271_)))) (if (gx#stx-pair/null? _tl42374278_) - (let ((_g47651_ + (let ((_g47828_ (gx#syntax-split-splice _tl42374278_ '0))) (begin - (let ((_g47652_ + (let ((_g47829_ (let () (declare (not safe)) - (if (##values? _g47651_) + (if (##values? _g47828_) (##vector-length - _g47651_) + _g47828_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47652_ 2))) + (##fx= _g47829_ 2))) (error "Context expects 2 values" - _g47652_))) + _g47829_))) (let ((_target42404281_ (let () (declare (not safe)) - (##vector-ref _g47651_ 0))) + (##vector-ref _g47828_ 0))) (_tl42424284_ (let () (declare (not safe)) - (##vector-ref _g47651_ 1)))) + (##vector-ref _g47828_ 1)))) (if (gx#stx-null? _tl42424284_) (letrec ((_loop42434287_ (lambda (_hd42414291_ @@ -3388,16 +3388,16 @@ (cons _lp-hd42454301_ _expr42474294_))))) (let ((_expr42484307_ (reverse _expr42474294_))) ((lambda (_L4311_ _L4313_) - (let ((__tmp47660 (gx#datum->syntax '#f 'if)) - (__tmp47653 - (let ((__tmp47654 - (let ((__tmp47656 - (let ((__tmp47659 + (let ((__tmp47837 (gx#datum->syntax '#f 'if)) + (__tmp47830 + (let ((__tmp47831 + (let ((__tmp47833 + (let ((__tmp47836 (gx#datum->syntax '#f 'begin)) - (__tmp47657 - (let ((__tmp47658 + (__tmp47834 + (let ((__tmp47835 (lambda (_g43304333_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g43314336_) @@ -3405,21 +3405,21 @@ (declare (not safe)) (cons _g43304333_ _g43314336_))))) (declare (not safe)) - (foldr1 __tmp47658 '() _L4311_)))) + (foldr1 __tmp47835 '() _L4311_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47659 - __tmp47657))) - (__tmp47655 + (cons __tmp47836 + __tmp47834))) + (__tmp47832 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp47656 __tmp47655)))) + (cons __tmp47833 __tmp47832)))) (declare (not safe)) - (cons _L4313_ __tmp47654)))) + (cons _L4313_ __tmp47831)))) (declare (not safe)) - (cons __tmp47660 __tmp47653))) + (cons __tmp47837 __tmp47830))) _expr42484307_ _hd42384275_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3462,31 +3462,31 @@ (declare (not safe)) (##cdr _e43574389_)))) (if (gx#stx-pair/null? _tl43554396_) - (let ((_g47661_ + (let ((_g47838_ (gx#syntax-split-splice _tl43554396_ '0))) (begin - (let ((_g47662_ + (let ((_g47839_ (let () (declare (not safe)) - (if (##values? _g47661_) + (if (##values? _g47838_) (##vector-length - _g47661_) + _g47838_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47662_ 2))) + (##fx= _g47839_ 2))) (error "Context expects 2 values" - _g47662_))) + _g47839_))) (let ((_target43584399_ (let () (declare (not safe)) - (##vector-ref _g47661_ 0))) + (##vector-ref _g47838_ 0))) (_tl43604402_ (let () (declare (not safe)) - (##vector-ref _g47661_ 1)))) + (##vector-ref _g47838_ 1)))) (if (gx#stx-null? _tl43604402_) (letrec ((_loop43614405_ (lambda (_hd43594409_ @@ -3509,35 +3509,35 @@ (cons _lp-hd43634419_ _expr43654412_))))) (let ((_expr43664425_ (reverse _expr43654412_))) ((lambda (_L4429_ _L4431_) - (let ((__tmp47670 (gx#datum->syntax '#f 'if)) - (__tmp47663 - (let ((__tmp47664 - (let ((__tmp47665 - (let ((__tmp47666 - (let ((__tmp47669 + (let ((__tmp47847 (gx#datum->syntax '#f 'if)) + (__tmp47840 + (let ((__tmp47841 + (let ((__tmp47842 + (let ((__tmp47843 + (let ((__tmp47846 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin)) - (__tmp47667 - (let ((__tmp47668 + (__tmp47844 + (let ((__tmp47845 (lambda (_g44484451_ _g44494454_) (let () (declare (not safe)) (cons _g44484451_ _g44494454_))))) (declare (not safe)) - (foldr1 __tmp47668 '() _L4429_)))) + (foldr1 __tmp47845 '() _L4429_)))) (declare (not safe)) - (cons __tmp47669 __tmp47667)))) + (cons __tmp47846 __tmp47844)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47666 '())))) + (cons __tmp47843 '())))) (declare (not safe)) - (cons '#!void __tmp47665)))) + (cons '#!void __tmp47842)))) (declare (not safe)) - (cons _L4431_ __tmp47664)))) + (cons _L4431_ __tmp47841)))) (declare (not safe)) - (cons __tmp47670 __tmp47663))) + (cons __tmp47847 __tmp47840))) _expr43664425_ _hd43564393_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3580,31 +3580,31 @@ (declare (not safe)) (##cdr _e44744506_)))) (if (gx#stx-pair/null? _tl44724513_) - (let ((_g47671_ + (let ((_g47848_ (gx#syntax-split-splice _tl44724513_ '0))) (begin - (let ((_g47672_ + (let ((_g47849_ (let () (declare (not safe)) - (if (##values? _g47671_) + (if (##values? _g47848_) (##vector-length - _g47671_) + _g47848_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47672_ 2))) + (##fx= _g47849_ 2))) (error "Context expects 2 values" - _g47672_))) + _g47849_))) (let ((_target44754516_ (let () (declare (not safe)) - (##vector-ref _g47671_ 0))) + (##vector-ref _g47848_ 0))) (_tl44774519_ (let () (declare (not safe)) - (##vector-ref _g47671_ 1)))) + (##vector-ref _g47848_ 1)))) (if (gx#stx-null? _tl44774519_) (letrec ((_loop44784522_ (lambda (_hd44764526_ @@ -3633,7 +3633,7 @@ (gx#stx-e _L4548_) _stx4462_ (gx#syntax->list - (let ((__tmp47673 + (let ((__tmp47850 (lambda (_g45654568_ _g45664571_) (let () @@ -3641,7 +3641,7 @@ (cons _g45654568_ _g45664571_))))) (declare (not safe)) - (foldr1 __tmp47673 '() _L4546_)))) + (foldr1 __tmp47850 '() _L4546_)))) (_g44654489_ _g44664493_))) _detail44834542_ _hd44734510_)))))) @@ -3697,52 +3697,52 @@ (##cdr _e45954628_)))) (if (gx#stx-null? _tl45934635_) ((lambda (_L4638_ _L4640_) - (let ((__tmp47687 + (let ((__tmp47864 (gx#datum->syntax '#f 'begin)) - (__tmp47674 - (let ((__tmp47683 - (let ((__tmp47686 + (__tmp47851 + (let ((__tmp47860 + (let ((__tmp47863 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp47684 - (let ((__tmp47685 + (__tmp47861 + (let ((__tmp47862 (let () (declare (not safe)) (cons _L4638_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47685)))) + (cons _L4640_ __tmp47862)))) (declare (not safe)) - (cons __tmp47686 __tmp47684))) - (__tmp47675 - (let ((__tmp47679 - (let ((__tmp47682 (gx#datum->syntax '#f 'set!)) - (__tmp47680 - (let ((__tmp47681 + (cons __tmp47863 __tmp47861))) + (__tmp47852 + (let ((__tmp47856 + (let ((__tmp47859 (gx#datum->syntax '#f 'set!)) + (__tmp47857 + (let ((__tmp47858 (let () (declare (not safe)) (cons _L4640_ '())))) (declare (not safe)) - (cons _L4640_ __tmp47681)))) + (cons _L4640_ __tmp47858)))) (declare (not safe)) - (cons __tmp47682 __tmp47680))) - (__tmp47676 - (let ((__tmp47677 - (let ((__tmp47678 + (cons __tmp47859 __tmp47857))) + (__tmp47853 + (let ((__tmp47854 + (let ((__tmp47855 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp47678 '())))) + (cons __tmp47855 '())))) (declare (not safe)) - (cons __tmp47677 '())))) + (cons __tmp47854 '())))) (declare (not safe)) - (cons __tmp47679 __tmp47676)))) + (cons __tmp47856 __tmp47853)))) (declare (not safe)) - (cons __tmp47683 __tmp47675)))) + (cons __tmp47860 __tmp47852)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47687 - __tmp47674))) + (cons __tmp47864 + __tmp47851))) _hd45944632_ _hd45914622_) (_g45834601_ _g45844605_)))) diff --git a/src/bootstrap/gerbil/core__4.scm b/src/bootstrap/gerbil/core__4.scm index fa61cd431..426940a9d 100644 --- a/src/bootstrap/gerbil/core__4.scm +++ b/src/bootstrap/gerbil/core__4.scm @@ -1,101 +1,101 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g47912_| + (define |gerbil/core$$[1]#_g48089_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47913_| + (define |gerbil/core$$[1]#_g48090_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g47914_| + (define |gerbil/core$$[1]#_g48091_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48744_| + (define |gerbil/core$$[1]#_g48921_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48747_| + (define |gerbil/core$$[1]#_g48924_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48748_| + (define |gerbil/core$$[1]#_g48925_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48821_| + (define |gerbil/core$$[1]#_g48998_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48822_| + (define |gerbil/core$$[1]#_g48999_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48824_| + (define |gerbil/core$$[1]#_g49001_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48825_| + (define |gerbil/core$$[1]#_g49002_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48870_| + (define |gerbil/core$$[1]#_g49047_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48871_| + (define |gerbil/core$$[1]#_g49048_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48872_| + (define |gerbil/core$$[1]#_g49049_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48873_| + (define |gerbil/core$$[1]#_g49050_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48885_| + (define |gerbil/core$$[1]#_g49062_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g48886_| + (define |gerbil/core$$[1]#_g49063_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) (begin (define |gerbil/core$$[:0:]#lambda| @@ -105,26 +105,26 @@ (_opt-lambda?4666_ (lambda (_hd7913_) (let _lp7916_ ((_rest7919_ _hd7913_) (_opt?7921_ '#f)) - (let* ((___stx4258842589_ _rest7919_) + (let* ((___stx4276542766_ _rest7919_) (_g79247936_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4258842589_)))) - (let ((___kont4259142592_ + ___stx4276542766_)))) + (let ((___kont4276842769_ (lambda (_L7968_ _L7970_) - (let* ((___stx4256442565_ _L7970_) + (let* ((___stx4274142742_ _L7970_) (_g79868000_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4256442565_)))) - (let ((___kont4256742568_ + ___stx4274142742_)))) + (let ((___kont4274442745_ (lambda (_L8038_) (_lp7916_ _L7968_ '#t))) - (___kont4256942570_ + (___kont4274642747_ (lambda () (if (gx#identifier? _L7970_) (if (let () @@ -133,7 +133,7 @@ (_lp7916_ _L7968_ '#f) '#f) '#f)))) - (let ((___match4258542586_ + (let ((___match4276242763_ (lambda (_e79918018_ _hd79908022_ _tl79898025_ @@ -142,13 +142,13 @@ _tl79928035_) (let ((_L8038_ _hd79908022_)) (if (gx#identifier? _L8038_) - (___kont4256742568_ + (___kont4274442745_ _L8038_) - (___kont4256942570_)))))) - (if (gx#stx-pair? ___stx4256442565_) + (___kont4274642747_)))))) + (if (gx#stx-pair? ___stx4274142742_) (let ((_e79918018_ (gx#syntax-e - ___stx4256442565_))) + ___stx4274142742_))) (let ((_tl79898025_ (let () (declare (not safe)) @@ -173,17 +173,17 @@ (##car _e79948028_)))) (if (gx#stx-null? _tl79928035_) - (___match4258542586_ + (___match4276242763_ _e79918018_ _hd79908022_ _tl79898025_ _e79948028_ _hd79938032_ _tl79928035_) - (___kont4256942570_)))) - (___kont4256942570_)))) - (___kont4256942570_))))))) - (___kont4259342594_ + (___kont4274642747_)))) + (___kont4274642747_)))) + (___kont4274642747_))))))) + (___kont4277042771_ (lambda () (if _opt?7921_ (let ((_$e7947_ @@ -192,9 +192,9 @@ _$e7947_ (gx#identifier? _rest7919_))) '#f)))) - (if (gx#stx-pair? ___stx4258842589_) + (if (gx#stx-pair? ___stx4276542766_) (let ((_e79307958_ - (gx#syntax-e ___stx4258842589_))) + (gx#syntax-e ___stx4276542766_))) (let ((_tl79287965_ (let () (declare (not safe)) @@ -203,59 +203,59 @@ (let () (declare (not safe)) (##car _e79307958_)))) - (___kont4259142592_ + (___kont4276842769_ _tl79287965_ _hd79297962_))) - (___kont4259342594_))))))) + (___kont4277042771_))))))) (_opt-lambda-split4667_ (lambda (_hd7765_) (let _lp7768_ ((_rest7771_ _hd7765_) (_pre7773_ '()) (_opt7774_ '())) - (let* ((___stx4262842629_ _rest7771_) + (let* ((___stx4280542806_ _rest7771_) (_g77777789_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4262842629_)))) - (let ((___kont4263142632_ + ___stx4280542806_)))) + (let ((___kont4280842809_ (lambda (_L7817_ _L7819_) - (let* ((___stx4260442605_ _L7819_) + (let* ((___stx4278142782_ _L7819_) (_g78357850_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4260442605_)))) - (let ((___kont4260742608_ + ___stx4278142782_)))) + (let ((___kont4278442785_ (lambda (_L7888_ _L7890_) (_lp7768_ _L7817_ _pre7773_ - (let ((__tmp47688 - (let ((__tmp47689 + (let ((__tmp47865 + (let ((__tmp47866 (_generate-bind4670_ _L7890_))) (declare (not safe)) - (cons __tmp47689 + (cons __tmp47866 _L7888_)))) (declare (not safe)) - (cons __tmp47688 _opt7774_))))) - (___kont4260942610_ + (cons __tmp47865 _opt7774_))))) + (___kont4278642787_ (lambda () (_lp7768_ _L7817_ - (let ((__tmp47690 + (let ((__tmp47867 (_generate-bind4670_ _L7819_))) (declare (not safe)) - (cons __tmp47690 _pre7773_)) + (cons __tmp47867 _pre7773_)) _opt7774_)))) - (if (gx#stx-pair? ___stx4260442605_) + (if (gx#stx-pair? ___stx4278142782_) (let ((_e78417868_ (gx#syntax-e - ___stx4260442605_))) + ___stx4278142782_))) (let ((_tl78397875_ (let () (declare (not safe)) @@ -280,22 +280,22 @@ (##car _e78447878_)))) (if (gx#stx-null? _tl78427885_) - (___kont4260742608_ + (___kont4278442785_ _hd78437882_ _hd78407872_) - (___kont4260942610_)))) - (___kont4260942610_)))) - (___kont4260942610_)))))) - (___kont4263342634_ + (___kont4278642787_)))) + (___kont4278642787_)))) + (___kont4278642787_)))))) + (___kont4281042811_ (lambda () (values (reverse _pre7773_) (reverse _opt7774_) (if (gx#identifier? _rest7771_) (_generate-bind4670_ _rest7771_) _rest7771_))))) - (if (gx#stx-pair? ___stx4262842629_) + (if (gx#stx-pair? ___stx4280542806_) (let ((_e77837807_ - (gx#syntax-e ___stx4262842629_))) + (gx#syntax-e ___stx4280542806_))) (let ((_tl77817814_ (let () (declare (not safe)) @@ -304,32 +304,32 @@ (let () (declare (not safe)) (##car _e77837807_)))) - (___kont4263142632_ + (___kont4280842809_ _tl77817814_ _hd77827811_))) - (___kont4263342634_))))))) + (___kont4281042811_))))))) (_kw-lambda?4668_ (lambda (_hd7433_) (let _lp7436_ ((_rest7439_ _hd7433_) (_opt?7441_ '#f) (_key?7442_ '#f)) - (let* ((___stx4269242693_ _rest7439_) + (let* ((___stx4286942870_ _rest7439_) (_g74477477_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4269242693_)))) - (let ((___kont4269542696_ + ___stx4286942870_)))) + (let ((___kont4287242873_ (lambda (_L7672_ _L7674_ _L7675_) - (let* ((___stx4266842669_ _L7674_) + (let* ((___stx4284542846_ _L7674_) (_g76907704_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4266842669_)))) - (let ((___kont4267142672_ + ___stx4284542846_)))) + (let ((___kont4284842849_ (lambda (_L7742_) (if (gx#identifier? _L7742_) (_lp7436_ @@ -337,7 +337,7 @@ _opt?7441_ '#t) '#f))) - (___kont4267342674_ + (___kont4285042851_ (lambda () (if (gx#identifier? _L7674_) (_lp7436_ @@ -345,10 +345,10 @@ _opt?7441_ '#t) '#f)))) - (if (gx#stx-pair? ___stx4266842669_) + (if (gx#stx-pair? ___stx4284542846_) (let ((_e76957722_ (gx#syntax-e - ___stx4266842669_))) + ___stx4284542846_))) (let ((_tl76937729_ (let () (declare (not safe)) @@ -373,26 +373,26 @@ (##car _e76987732_)))) (if (gx#stx-null? _tl76967739_) - (___kont4267142672_ + (___kont4284842849_ _hd76947726_) - (___kont4267342674_)))) - (___kont4267342674_)))) - (___kont4267342674_)))))) - (___kont4269742698_ + (___kont4285042851_)))) + (___kont4285042851_)))) + (___kont4285042851_)))))) + (___kont4287442875_ (lambda (_L7629_ _L7631_) (if (gx#identifier? _L7631_) (_lp7436_ _L7629_ _opt?7441_ '#t) '#f))) - (___kont4269942700_ + (___kont4287642877_ (lambda (_L7509_ _L7511_) - (let* ((___stx4264442645_ _L7511_) + (let* ((___stx4282142822_ _L7511_) (_g75277541_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4264442645_)))) - (let ((___kont4264742648_ + ___stx4282142822_)))) + (let ((___kont4282442825_ (lambda (_L7579_) (if (gx#identifier? _L7579_) (_lp7436_ @@ -400,7 +400,7 @@ '#t _key?7442_) '#f))) - (___kont4264942650_ + (___kont4282642827_ (lambda () (if (gx#identifier? _L7511_) (if (let () @@ -412,10 +412,10 @@ _key?7442_) '#f) '#f)))) - (if (gx#stx-pair? ___stx4264442645_) + (if (gx#stx-pair? ___stx4282142822_) (let ((_e75327559_ (gx#syntax-e - ___stx4264442645_))) + ___stx4282142822_))) (let ((_tl75307566_ (let () (declare (not safe)) @@ -440,12 +440,12 @@ (##car _e75357569_)))) (if (gx#stx-null? _tl75337576_) - (___kont4264742648_ + (___kont4282442825_ _hd75317563_) - (___kont4264942650_)))) - (___kont4264942650_)))) - (___kont4264942650_)))))) - (___kont4270142702_ + (___kont4282642827_)))) + (___kont4282642827_)))) + (___kont4282642827_)))))) + (___kont4287842879_ (lambda () (if _key?7442_ (let ((_$e7488_ @@ -454,7 +454,7 @@ _$e7488_ (gx#identifier? _rest7439_))) '#f)))) - (let ((___match4271542716_ + (let ((___match4289242893_ (lambda (_e74547652_ _hd74537656_ _tl74527659_ @@ -465,7 +465,7 @@ (_L7674_ _hd74567666_) (_L7675_ _hd74537656_)) (if (gx#stx-keyword? _L7675_) - (___kont4269542696_ + (___kont4287242873_ _L7672_ _L7674_ _L7675_) @@ -476,18 +476,18 @@ (declare (not safe)) (equal? _e74637615_ '#!key)) - (___kont4269742698_ + (___kont4287442875_ _tl74557669_ _hd74567666_) - (___kont4269942700_ + (___kont4287642877_ _tl74527659_ _hd74537656_))) - (___kont4269942700_ + (___kont4287642877_ _tl74527659_ _hd74537656_))))))) - (if (gx#stx-pair? ___stx4269242693_) + (if (gx#stx-pair? ___stx4286942870_) (let ((_e74547652_ - (gx#syntax-e ___stx4269242693_))) + (gx#syntax-e ___stx4286942870_))) (let ((_tl74527659_ (let () (declare (not safe)) @@ -507,7 +507,7 @@ (let () (declare (not safe)) (##car _e74577662_)))) - (___match4271542716_ + (___match4289242893_ _e74547652_ _hd74537656_ _tl74527659_ @@ -517,57 +517,57 @@ (if (gx#stx-datum? _hd74537656_) (let ((_e74637615_ (gx#stx-e _hd74537656_))) - (___kont4269942700_ + (___kont4287642877_ _tl74527659_ _hd74537656_)) - (___kont4269942700_ + (___kont4287642877_ _tl74527659_ _hd74537656_))))) - (___kont4270142702_)))))))) + (___kont4287842879_)))))))) (_kw-lambda-split4669_ (lambda (_hd7166_) (let _lp7169_ ((_rest7172_ _hd7166_) (_kwvar7174_ '#f) (_kwargs7175_ '()) (_args7176_ '())) - (let* ((___stx4276642767_ _rest7172_) + (let* ((___stx4294342944_ _rest7172_) (_g71817211_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4276642767_)))) - (let ((___kont4276942770_ + ___stx4294342944_)))) + (let ((___kont4294642947_ (lambda (_L7330_ _L7332_ _L7333_) (let ((_key7347_ (gx#stx-e _L7333_))) - (if (let ((__tmp47696 + (if (let ((__tmp47873 (lambda (_kwarg7350_) - (let ((__tmp47697 + (let ((__tmp47874 (car _kwarg7350_))) (declare (not safe)) (eq? _key7347_ - __tmp47697))))) + __tmp47874))))) (declare (not safe)) - (find __tmp47696 _kwargs7175_)) + (find __tmp47873 _kwargs7175_)) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" _stx4661_ _hd7166_ _key7347_) - (let* ((___stx4274242743_ _L7332_) + (let* ((___stx4291942920_ _L7332_) (_g73547369_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4274242743_)))) - (let ((___kont4274542746_ + ___stx4291942920_)))) + (let ((___kont4292242923_ (lambda (_L7407_ _L7409_) (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47691 + (let ((__tmp47868 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -575,39 +575,39 @@ _L7407_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47691 + (cons __tmp47868 _kwargs7175_)) _args7176_))) - (___kont4274742748_ + (___kont4292442925_ (lambda () (_lp7169_ _L7330_ _kwvar7174_ - (let ((__tmp47692 + (let ((__tmp47869 (list _key7347_ (_generate-bind4670_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _L7332_) - (let ((__tmp47695 (gx#datum->syntax '#f 'error)) - (__tmp47693 - (let ((__tmp47694 + (let ((__tmp47872 (gx#datum->syntax '#f 'error)) + (__tmp47870 + (let ((__tmp47871 (let () (declare (not safe)) (cons _L7333_ '())))) (declare (not safe)) (cons '"Missing required keyword argument" - __tmp47694)))) + __tmp47871)))) (declare (not safe)) - (cons __tmp47695 __tmp47693))))) + (cons __tmp47872 __tmp47870))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47692 + (cons __tmp47869 _kwargs7175_)) _args7176_)))) - (if (gx#stx-pair? ___stx4274242743_) + (if (gx#stx-pair? ___stx4291942920_) (let ((_e73607387_ (gx#syntax-e - ___stx4274242743_))) + ___stx4291942920_))) (let ((_tl73587394_ (let () (declare (not safe)) @@ -629,12 +629,12 @@ (_hd73627401_ (let () (declare (not safe)) (##car _e73637397_)))) (if (gx#stx-null? _tl73617404_) - (___kont4274542746_ _hd73627401_ _hd73597391_) - (___kont4274742748_)))) - (___kont4274742748_)))) + (___kont4292242923_ _hd73627401_ _hd73597391_) + (___kont4292442925_)))) + (___kont4292442925_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4274742748_)))))))) - (___kont4277142772_ + (___kont4292442925_)))))))) + (___kont4294842949_ (lambda (_L7287_ _L7289_) (if _kwvar7174_ (gx#raise-syntax-error @@ -648,7 +648,7 @@ (_generate-bind4670_ _L7289_) _kwargs7175_ _args7176_)))) - (___kont4277342774_ + (___kont4295042951_ (lambda (_L7239_ _L7241_) (_lp7169_ _L7239_ @@ -657,7 +657,7 @@ (let () (declare (not safe)) (cons _L7241_ _args7176_))))) - (___kont4277542776_ + (___kont4295242953_ (lambda () (values _kwvar7174_ (reverse _kwargs7175_) @@ -666,7 +666,7 @@ (foldl1 cons _rest7172_ _args7176_)))))) - (let ((___match4278942790_ + (let ((___match4296642967_ (lambda (_e71887310_ _hd71877314_ _tl71867317_ @@ -677,7 +677,7 @@ (_L7332_ _hd71907324_) (_L7333_ _hd71877314_)) (if (gx#stx-keyword? _L7333_) - (___kont4276942770_ + (___kont4294642947_ _L7330_ _L7332_ _L7333_) @@ -688,18 +688,18 @@ (declare (not safe)) (equal? _e71977273_ '#!key)) - (___kont4277142772_ + (___kont4294842949_ _tl71897327_ _hd71907324_) - (___kont4277342774_ + (___kont4295042951_ _tl71867317_ _hd71877314_))) - (___kont4277342774_ + (___kont4295042951_ _tl71867317_ _hd71877314_))))))) - (if (gx#stx-pair? ___stx4276642767_) + (if (gx#stx-pair? ___stx4294342944_) (let ((_e71887310_ - (gx#syntax-e ___stx4276642767_))) + (gx#syntax-e ___stx4294342944_))) (let ((_tl71867317_ (let () (declare (not safe)) @@ -719,7 +719,7 @@ (let () (declare (not safe)) (##car _e71917320_)))) - (___match4278942790_ + (___match4296642967_ _e71887310_ _hd71877314_ _tl71867317_ @@ -729,13 +729,13 @@ (if (gx#stx-datum? _hd71877314_) (let ((_e71977273_ (gx#stx-e _hd71877314_))) - (___kont4277342774_ + (___kont4295042951_ _tl71867317_ _hd71877314_)) - (___kont4277342774_ + (___kont4295042951_ _tl71867317_ _hd71877314_))))) - (___kont4277542776_)))))))) + (___kont4295242953_)))))))) (_generate-bind4670_ (lambda (_e7163_) (if (gx#underscore? _e7163_) @@ -751,14 +751,14 @@ (declare (not safe)) (cons _id7159_ _ids7161_)))))) (let _lp6866_ ((_rest6869_ _hd6860_) (_ids6871_ '())) - (let* ((___stx4284042841_ _rest6869_) + (let* ((___stx4301743018_ _rest6869_) (_g68746886_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4284042841_)))) - (let ((___kont4284342844_ + ___stx4301743018_)))) + (let ((___kont4302043021_ (lambda (_L6914_ _L6916_) (if (gx#identifier? _L6916_) (_lp6866_ @@ -827,26 +827,26 @@ (declare (not safe)) (##cdr _e69977010_)))) ((lambda (_L7020_ _L7022_) - (let* ((___stx4281642817_ _L7022_) + (let* ((___stx4299342994_ _L7022_) (_g70347048_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4281642817_)))) - (let ((___kont4281942820_ + ___stx4299342994_)))) + (let ((___kont4299642997_ (lambda (_L7086_) (_lp6866_ _L7020_ (_cons-id6863_ _L7086_ _ids6871_)))) - (___kont4282142822_ + (___kont4299842999_ (lambda () (_lp6866_ _L7020_ (_cons-id6863_ _L7022_ _ids6871_))))) - (if (gx#stx-pair? ___stx4281642817_) + (if (gx#stx-pair? ___stx4299342994_) (let ((_e70397066_ - (gx#syntax-e ___stx4281642817_))) + (gx#syntax-e ___stx4299342994_))) (let ((_tl70377073_ (let () (declare (not safe)) @@ -867,20 +867,20 @@ (declare (not safe)) (##car _e70427076_)))) (if (gx#stx-null? _tl70407083_) - (___kont4281942820_ + (___kont4299642997_ _hd70387070_) - (___kont4282142822_)))) - (___kont4282142822_)))) - (___kont4282142822_))))) + (___kont4299842999_)))) + (___kont4299842999_)))) + (___kont4299842999_))))) _tl69957017_ _hd69967014_))) (_g69917003_ _g69927007_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g69907105_ _L6914_)) - (if (let ((__tmp47698 + (if (let ((__tmp47875 (gx#stx-e _L6916_))) (declare (not safe)) - (eq? __tmp47698 '#!key)) + (eq? __tmp47875 '#!key)) (let* ((_g71097121_ (lambda (_g71107117_) (gx#raise-syntax-error @@ -913,16 +913,16 @@ (error '"BUG: check-duplicate-bindings" _stx4661_ _rest6869_))))))) - (___kont4284542846_ + (___kont4302243023_ (lambda () (gx#check-duplicate-identifiers (if (gx#stx-null? _rest6869_) _ids6871_ (_cons-id6863_ _rest6869_ _ids6871_)) _stx4661_)))) - (if (gx#stx-pair? ___stx4284042841_) + (if (gx#stx-pair? ___stx4301743018_) (let ((_e68806904_ - (gx#syntax-e ___stx4284042841_))) + (gx#syntax-e ___stx4301743018_))) (let ((_tl68786911_ (let () (declare (not safe)) @@ -931,10 +931,10 @@ (let () (declare (not safe)) (##car _e68806904_)))) - (___kont4284342844_ + (___kont4302043021_ _tl68786911_ _hd68796908_))) - (___kont4284542846_)))))))) + (___kont4302243023_)))))))) (_generate-opt-primary4672_ (lambda (_pre6652_ _opt6654_ _tail6655_ _body6656_) (let* ((_g66586699_ @@ -957,34 +957,34 @@ (declare (not safe)) (##cdr _e66666706_)))) (if (gx#stx-pair/null? _hd66656710_) - (let ((_g47699_ + (let ((_g47876_ (gx#syntax-split-splice _hd66656710_ '0))) (begin - (let ((_g47700_ + (let ((_g47877_ (let () (declare (not safe)) - (if (##values? _g47699_) + (if (##values? _g47876_) (##vector-length - _g47699_) + _g47876_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47700_ 2))) + (##fx= _g47877_ 2))) (error "Context expects 2 values" - _g47700_))) + _g47877_))) (let ((_target66676716_ (let () (declare (not safe)) (##vector-ref - _g47699_ + _g47876_ 0))) (_tl66696719_ (let () (declare (not safe)) (##vector-ref - _g47699_ + _g47876_ 1)))) (if (gx#stx-null? _tl66696719_) (letrec ((_loop66706722_ @@ -1019,34 +1019,34 @@ (declare (not safe)) (##cdr _e66786746_)))) (if (gx#stx-pair/null? _hd66776750_) - (let ((_g47701_ + (let ((_g47878_ (gx#syntax-split-splice _hd66776750_ '0))) (begin - (let ((_g47702_ + (let ((_g47879_ (let () (declare (not safe)) - (if (##values? _g47701_) + (if (##values? _g47878_) (##vector-length - _g47701_) + _g47878_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47702_ 2))) + (##fx= _g47879_ 2))) (error "Context expects 2 values" - _g47702_))) + _g47879_))) (let ((_target66796756_ (let () (declare (not safe)) (##vector-ref - _g47701_ + _g47878_ 0))) (_tl66816759_ (let () (declare (not safe)) (##vector-ref - _g47701_ + _g47878_ 1)))) (if (gx#stx-null? _tl66816759_) (letrec ((_loop66826762_ @@ -1097,33 +1097,33 @@ _L6809_ _L6810_) (let () - (let ((__tmp47708 + (let ((__tmp47885 (gx#datum->syntax '#f 'lambda%)) - (__tmp47703 - (let ((__tmp47704 + (__tmp47880 + (let ((__tmp47881 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47707 + (let ((__tmp47884 (lambda (_g68396844_ _g68406847_) (let () (declare (not safe)) (cons _g68396844_ _g68406847_)))) - (__tmp47705 - (let ((__tmp47706 + (__tmp47882 + (let ((__tmp47883 (lambda (_g68416850_ _g68426853_) (let () (declare (not safe)) (cons _g68416850_ _g68426853_))))) (declare (not safe)) - (foldr1 __tmp47706 _L6808_ _L6809_)))) + (foldr1 __tmp47883 _L6808_ _L6809_)))) (declare (not safe)) - (foldr1 __tmp47707 __tmp47705 _L6810_)))) + (foldr1 __tmp47884 __tmp47882 _L6810_)))) (declare (not safe)) - (cons __tmp47704 _L6806_)))) + (cons __tmp47881 _L6806_)))) (declare (not safe)) - (cons __tmp47708 __tmp47703)))) + (cons __tmp47885 __tmp47880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd66926800_ _hd66896790_ @@ -1151,20 +1151,20 @@ _body6656_))))) (_generate-opt-dispatch4673_ (lambda (_primary6646_ _pre6648_ _opt6649_ _tail6650_) - (let ((__tmp47710 + (let ((__tmp47887 (list _pre6648_ (_generate-opt-clause4675_ _primary6646_ _pre6648_ _opt6649_))) - (__tmp47709 + (__tmp47886 (_generate-opt-dispatch*4674_ _primary6646_ _pre6648_ _opt6649_ _tail6650_))) (declare (not safe)) - (cons __tmp47710 __tmp47709)))) + (cons __tmp47887 __tmp47886)))) (_generate-opt-dispatch*4674_ (lambda (_primary6203_ _pre6205_ _opt6206_ _tail6207_) (let _recur6209_ ((_opt-rest6212_ _opt6206_) @@ -1185,34 +1185,34 @@ (_g62246425_ (lambda (_g62266246_) (if (gx#stx-pair/null? _g62266246_) - (let ((_g47725_ + (let ((_g47902_ (gx#syntax-split-splice _g62266246_ '0))) (begin - (let ((_g47726_ + (let ((_g47903_ (let () (declare (not safe)) - (if (##values? _g47725_) + (if (##values? _g47902_) (##vector-length - _g47725_) + _g47902_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47726_ 2))) + (##fx= _g47903_ 2))) (error "Context expects 2 values" - _g47726_))) + _g47903_))) (let ((_target62286249_ (let () (declare (not safe)) (##vector-ref - _g47725_ + _g47902_ 0))) (_tl62306252_ (let () (declare (not safe)) (##vector-ref - _g47725_ + _g47902_ 1)))) (if (gx#stx-null? _tl62306252_) (letrec ((_loop62316255_ @@ -1247,41 +1247,41 @@ (_g62996421_ (lambda (_g63016321_) (if (gx#stx-pair/null? _g63016321_) - (let ((_g47727_ + (let ((_g47904_ (gx#syntax-split-splice _g63016321_ '0))) (begin - (let ((_g47728_ + (let ((_g47905_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47727_) - (##vector-length _g47727_) + _g47904_) + (##vector-length _g47904_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g47728_ 2))) - (error "Context expects 2 values" _g47728_))) + (##fx= _g47905_ 2))) + (error "Context expects 2 values" _g47905_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target63036324_ (let () (declare (not safe)) (##vector-ref - _g47727_ + _g47904_ 0))) (_tl63056327_ (let () (declare (not safe)) (##vector-ref - _g47727_ + _g47904_ 1)))) (if (gx#stx-null? _tl63056327_) @@ -1320,39 +1320,39 @@ ((lambda (_L6386_) (let () (let () - (let ((__tmp47730 - (list (let ((__tmp47734 + (let ((__tmp47907 + (list (let ((__tmp47911 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g64006405_ _g64016408_) (let () (declare (not safe)) (cons _g64006405_ _g64016408_)))) - (__tmp47731 - (let ((__tmp47733 + (__tmp47908 + (let ((__tmp47910 (lambda (_g64026411_ _g64036414_) (let () (declare (not safe)) (cons _g64026411_ _g64036414_)))) - (__tmp47732 + (__tmp47909 (let () (declare (not safe)) (cons _L6386_ '())))) (declare (not safe)) - (foldr1 __tmp47733 - __tmp47732 + (foldr1 __tmp47910 + __tmp47909 _L6354_)))) (declare (not safe)) - (foldr1 __tmp47734 __tmp47731 _L6279_)) + (foldr1 __tmp47911 __tmp47908 _L6279_)) (_generate-opt-clause4675_ _primary6203_ - (let ((__tmp47735 (reverse _right*6222_))) + (let ((__tmp47912 (reverse _right*6222_))) (declare (not safe)) - (foldr1 cons __tmp47735 _pre6205_)) + (foldr1 cons __tmp47912 _pre6205_)) _rest6219_))) - (__tmp47729 (_recur6209_ _rest6219_ _right*6222_))) + (__tmp47906 (_recur6209_ _rest6219_ _right*6222_))) (declare (not safe)) - (cons __tmp47730 __tmp47729))))) + (cons __tmp47907 __tmp47906))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g63726383_)))) (_g63706417_ _hd6216_)))) @@ -1393,26 +1393,26 @@ (##cdr _e64376477_)))) (if (gx#stx-pair/null? _hd64366481_) - (let ((_g47711_ + (let ((_g47888_ (gx#syntax-split-splice _hd64366481_ '0))) (begin - (let ((_g47712_ + (let ((_g47889_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47711_) - (##vector-length _g47711_) + (if (##values? _g47888_) + (##vector-length _g47888_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47712_ 2))) - (error "Context expects 2 values" _g47712_))) + (if (not (let () (declare (not safe)) (##fx= _g47889_ 2))) + (error "Context expects 2 values" _g47889_))) (let ((_target64386487_ - (let () (declare (not safe)) (##vector-ref _g47711_ 0))) + (let () (declare (not safe)) (##vector-ref _g47888_ 0))) (_tl64406490_ (let () (declare (not safe)) - (##vector-ref _g47711_ 1)))) + (##vector-ref _g47888_ 1)))) (if (gx#stx-null? _tl64406490_) (letrec ((_loop64416493_ (lambda (_hd64396497_ _pre64456500_) @@ -1448,26 +1448,26 @@ (##cdr _e64496517_)))) (if (gx#stx-pair/null? _hd64486521_) - (let ((_g47713_ + (let ((_g47890_ (gx#syntax-split-splice _hd64486521_ '0))) (begin - (let ((_g47714_ + (let ((_g47891_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g47713_) - (##vector-length _g47713_) + (if (##values? _g47890_) + (##vector-length _g47890_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47714_ 2))) - (error "Context expects 2 values" _g47714_))) + (if (not (let () (declare (not safe)) (##fx= _g47891_ 2))) + (error "Context expects 2 values" _g47891_))) (let ((_target64506527_ - (let () (declare (not safe)) (##vector-ref _g47713_ 0))) + (let () (declare (not safe)) (##vector-ref _g47890_ 0))) (_tl64526530_ (let () (declare (not safe)) - (##vector-ref _g47713_ 1)))) + (##vector-ref _g47890_ 1)))) (if (gx#stx-null? _tl64526530_) (letrec ((_loop64536533_ (lambda (_hd64516537_ _opt64576540_) @@ -1516,14 +1516,14 @@ (if (gx#stx-null? _tl64626574_) ((lambda (_L6577_ _L6579_ _L6580_ _L6581_) (let () - (list (list (let ((__tmp47717 + (list (list (let ((__tmp47894 (lambda (_g66096614_ _g66106617_) (let () (declare (not safe)) (cons _g66096614_ _g66106617_)))) - (__tmp47715 - (let ((__tmp47716 + (__tmp47892 + (let ((__tmp47893 (lambda (_g66116620_ _g66126623_) (let () @@ -1531,40 +1531,40 @@ (cons _g66116620_ _g66126623_))))) (declare (not safe)) - (foldr1 __tmp47716 + (foldr1 __tmp47893 _L6579_ _L6580_)))) (declare (not safe)) - (foldr1 __tmp47717 __tmp47715 _L6581_)) + (foldr1 __tmp47894 __tmp47892 _L6581_)) (gx#stx-wrap-source - (let ((__tmp47724 + (let ((__tmp47901 (gx#datum->syntax '#f 'apply)) - (__tmp47718 - (let ((__tmp47719 - (let ((__tmp47723 + (__tmp47895 + (let ((__tmp47896 + (let ((__tmp47900 (lambda (_g66256630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g66266633_) (let () (declare (not safe)) (cons _g66256630_ _g66266633_)))) - (__tmp47720 - (let ((__tmp47722 + (__tmp47897 + (let ((__tmp47899 (lambda (_g66276636_ _g66286639_) (let () (declare (not safe)) (cons _g66276636_ _g66286639_)))) - (__tmp47721 + (__tmp47898 (let () (declare (not safe)) (cons _L6579_ '())))) (declare (not safe)) - (foldr1 __tmp47722 __tmp47721 _L6580_)))) + (foldr1 __tmp47899 __tmp47898 _L6580_)))) (declare (not safe)) - (foldr1 __tmp47723 __tmp47720 _L6581_)))) + (foldr1 __tmp47900 __tmp47897 _L6581_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L6577_ __tmp47719)))) + (cons _L6577_ __tmp47896)))) (declare (not safe)) - (cons __tmp47724 __tmp47718)) + (cons __tmp47901 __tmp47895)) (gx#stx-source _stx4661_)))))) _hd64636571_ _hd64606561_ @@ -1631,32 +1631,32 @@ ((lambda (_L5993_) (let () (let () - (let ((__tmp47750 + (let ((__tmp47927 (gx#datum->syntax '#f 'let-values)) - (__tmp47744 - (let ((__tmp47746 - (let ((__tmp47747 - (let ((__tmp47749 + (__tmp47921 + (let ((__tmp47923 + (let ((__tmp47924 + (let ((__tmp47926 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L5934_ '()))) - (__tmp47748 + (__tmp47925 (let () (declare (not safe)) (cons _L5965_ '())))) (declare (not safe)) - (cons __tmp47749 __tmp47748)))) + (cons __tmp47926 __tmp47925)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47747 '()))) - (__tmp47745 + (cons __tmp47924 '()))) + (__tmp47922 (let () (declare (not safe)) (cons _L5993_ '())))) (declare (not safe)) - (cons __tmp47746 __tmp47745)))) + (cons __tmp47923 __tmp47922)))) (declare (not safe)) - (cons __tmp47750 __tmp47744))))) + (cons __tmp47927 __tmp47921))))) _g59795990_)))) (_g59776008_ (_recur5906_ @@ -1690,36 +1690,36 @@ (##cdr _e60276064_)))) (if (gx#stx-pair/null? _hd60266068_) - (let ((_g47736_ + (let ((_g47913_ (gx#syntax-split-splice _hd60266068_ '0))) (begin - (let ((_g47737_ + (let ((_g47914_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47736_) - (##vector-length _g47736_) + _g47913_) + (##vector-length _g47913_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47737_ 2))) - (error "Context expects 2 values" _g47737_))) + (if (not (let () (declare (not safe)) (##fx= _g47914_ 2))) + (error "Context expects 2 values" _g47914_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60286074_ (let () (declare (not safe)) (##vector-ref - _g47736_ + _g47913_ 0))) (_tl60306077_ (let () (declare (not safe)) (##vector-ref - _g47736_ + _g47913_ 1)))) (if (gx#stx-null? _tl60306077_) @@ -1758,36 +1758,36 @@ (##cdr _e60396104_)))) (if (gx#stx-pair/null? _hd60386108_) - (let ((_g47738_ + (let ((_g47915_ (gx#syntax-split-splice _hd60386108_ '0))) (begin - (let ((_g47739_ + (let ((_g47916_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g47738_) - (##vector-length _g47738_) + _g47915_) + (##vector-length _g47915_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g47739_ 2))) - (error "Context expects 2 values" _g47739_))) + (if (not (let () (declare (not safe)) (##fx= _g47916_ 2))) + (error "Context expects 2 values" _g47916_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target60406114_ (let () (declare (not safe)) (##vector-ref - _g47738_ + _g47915_ 0))) (_tl60426117_ (let () (declare (not safe)) (##vector-ref - _g47738_ + _g47915_ 1)))) (if (gx#stx-null? _tl60426117_) @@ -1830,25 +1830,25 @@ _L6157_) (let () (gx#stx-wrap-source - (let ((__tmp47740 - (let ((__tmp47743 + (let ((__tmp47917 + (let ((__tmp47920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g61826187_ _g61836190_) (let () (declare (not safe)) (cons _g61826187_ _g61836190_)))) - (__tmp47741 - (let ((__tmp47742 + (__tmp47918 + (let ((__tmp47919 (lambda (_g61846193_ _g61856196_) (let () (declare (not safe)) (cons _g61846193_ _g61856196_))))) (declare (not safe)) - (foldr1 __tmp47742 '() _L6156_)))) + (foldr1 __tmp47919 '() _L6156_)))) (declare (not safe)) - (foldr1 __tmp47743 __tmp47741 _L6157_)))) + (foldr1 __tmp47920 __tmp47918 _L6157_)))) (declare (not safe)) - (cons _L6154_ __tmp47740)) + (cons _L6154_ __tmp47917)) (gx#stx-source _stx4661_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd60506148_ @@ -1940,62 +1940,62 @@ _L5867_ _L5868_) (let () - (let ((__tmp47767 + (let ((__tmp47944 (gx#datum->syntax '#f 'let-values)) - (__tmp47751 - (let ((__tmp47753 - (let ((__tmp47754 + (__tmp47928 + (let ((__tmp47930 + (let ((__tmp47931 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47766 + (let ((__tmp47943 (let () (declare (not safe)) (cons _L5868_ '()))) - (__tmp47755 - (let ((__tmp47756 - (let ((__tmp47765 + (__tmp47932 + (let ((__tmp47933 + (let ((__tmp47942 (gx#datum->syntax '#f 'if)) - (__tmp47757 - (let ((__tmp47760 - (let ((__tmp47764 + (__tmp47934 + (let ((__tmp47937 + (let ((__tmp47941 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'eq?)) - (__tmp47761 - (let ((__tmp47762 - (let ((__tmp47763 + (__tmp47938 + (let ((__tmp47939 + (let ((__tmp47940 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp47763 '())))) + (cons __tmp47940 '())))) (declare (not safe)) - (cons _L5867_ __tmp47762)))) + (cons _L5867_ __tmp47939)))) (declare (not safe)) - (cons __tmp47764 __tmp47761))) - (__tmp47758 - (let ((__tmp47759 + (cons __tmp47941 __tmp47938))) + (__tmp47935 + (let ((__tmp47936 (let () (declare (not safe)) (cons _L5867_ '())))) (declare (not safe)) - (cons _L5866_ __tmp47759)))) + (cons _L5866_ __tmp47936)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47760 - __tmp47758)))) + (cons __tmp47937 + __tmp47935)))) (declare (not safe)) - (cons __tmp47765 __tmp47757)))) + (cons __tmp47942 __tmp47934)))) (declare (not safe)) - (cons __tmp47756 '())))) + (cons __tmp47933 '())))) (declare (not safe)) - (cons __tmp47766 __tmp47755)))) + (cons __tmp47943 __tmp47932)))) (declare (not safe)) - (cons __tmp47754 '()))) - (__tmp47752 + (cons __tmp47931 '()))) + (__tmp47929 (let () (declare (not safe)) (cons _L5864_ '())))) (declare (not safe)) - (cons __tmp47753 __tmp47752)))) + (cons __tmp47930 __tmp47929)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47767 - __tmp47751)))) + (cons __tmp47944 + __tmp47928)))) _hd58105858_ _hd58075848_ _hd58045838_ @@ -2039,28 +2039,28 @@ (lambda (_g56065626_) (if (gx#stx-pair/null? _g56065626_) - (let ((_g47768_ + (let ((_g47945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g56065626_ '0))) (begin - (let ((_g47769_ + (let ((_g47946_ (let () (declare (not safe)) - (if (##values? _g47768_) - (##vector-length _g47768_) + (if (##values? _g47945_) + (##vector-length _g47945_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47769_ 2))) - (error "Context expects 2 values" _g47769_))) + (##fx= _g47946_ 2))) + (error "Context expects 2 values" _g47946_))) (let ((_target56085629_ (let () (declare (not safe)) - (##vector-ref _g47768_ 0))) + (##vector-ref _g47945_ 0))) (_tl56105632_ (let () (declare (not safe)) - (##vector-ref _g47768_ 1)))) + (##vector-ref _g47945_ 1)))) (if (gx#stx-null? _tl56105632_) (letrec ((_loop56115635_ (lambda (_hd56095639_ _kwval56155642_) @@ -2109,42 +2109,42 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp47775 + (let ((__tmp47952 (gx#datum->syntax '#f 'lambda)) - (__tmp47770 - (let ((__tmp47772 - (let ((__tmp47773 + (__tmp47947 + (let ((__tmp47949 + (let ((__tmp47950 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47774 + (let ((__tmp47951 (lambda (_g57335736_ _g57345739_) (let () (declare (not safe)) (cons _g57335736_ _g57345739_))))) (declare (not safe)) - (foldr1 __tmp47774 _L5691_ _L5659_)))) + (foldr1 __tmp47951 _L5691_ _L5659_)))) (declare (not safe)) - (cons _L5593_ __tmp47773))) - (__tmp47771 + (cons _L5593_ __tmp47950))) + (__tmp47948 (let () (declare (not safe)) (cons _L5719_ '())))) (declare (not safe)) - (cons __tmp47772 __tmp47771)))) + (cons __tmp47949 __tmp47948)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47775 __tmp47770)) + (cons __tmp47952 __tmp47947)) (gx#stx-source _stx4661_))))) _g57055716_)))) (_g57035742_ (_make-body5283_ _kwargs5279_ - (let ((__tmp47776 + (let ((__tmp47953 (lambda (_g57455748_ _g57465751_) (let () (declare (not safe)) (cons _g57455748_ _g57465751_))))) (declare (not safe)) - (foldr1 __tmp47776 '() _L5659_))))))) + (foldr1 __tmp47953 '() _L5659_))))))) _g56775688_)))) (_g56755754_ _args5280_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2182,28 +2182,28 @@ (lambda (_g54175437_) (if (gx#stx-pair/null? _g54175437_) - (let ((_g47777_ + (let ((_g47954_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g54175437_ '0))) (begin - (let ((_g47778_ + (let ((_g47955_ (let () (declare (not safe)) - (if (##values? _g47777_) - (##vector-length _g47777_) + (if (##values? _g47954_) + (##vector-length _g47954_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47778_ 2))) - (error "Context expects 2 values" _g47778_))) + (##fx= _g47955_ 2))) + (error "Context expects 2 values" _g47955_))) (let ((_target54195440_ (let () (declare (not safe)) - (##vector-ref _g47777_ 0))) + (##vector-ref _g47954_ 0))) (_tl54215443_ (let () (declare (not safe)) - (##vector-ref _g47777_ 1)))) + (##vector-ref _g47954_ 1)))) (if (gx#stx-null? _tl54215443_) (letrec ((_loop54225446_ (lambda (_hd54205450_ @@ -2243,51 +2243,51 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp47791 + (let ((__tmp47968 (gx#datum->syntax '#f 'lambda)) - (__tmp47779 - (let ((__tmp47789 - (let ((__tmp47790 + (__tmp47956 + (let ((__tmp47966 + (let ((__tmp47967 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons _L5404_ __tmp47790))) - (__tmp47780 - (let ((__tmp47781 - (let ((__tmp47788 + (cons _L5404_ __tmp47967))) + (__tmp47957 + (let ((__tmp47958 + (let ((__tmp47965 (gx#datum->syntax '#f 'apply)) - (__tmp47782 - (let ((__tmp47783 + (__tmp47959 + (let ((__tmp47960 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47784 - (let ((__tmp47787 + (let ((__tmp47961 + (let ((__tmp47964 (lambda (_g55165519_ _g55175522_) (let () (declare (not safe)) (cons _g55165519_ _g55175522_)))) - (__tmp47785 - (let ((__tmp47786 + (__tmp47962 + (let ((__tmp47963 (gx#datum->syntax '#f 'args))) (declare (not safe)) - (cons __tmp47786 '())))) + (cons __tmp47963 '())))) (declare (not safe)) - (foldr1 __tmp47787 __tmp47785 _L5470_)))) + (foldr1 __tmp47964 __tmp47962 _L5470_)))) (declare (not safe)) - (cons _L5404_ __tmp47784)))) + (cons _L5404_ __tmp47961)))) (declare (not safe)) - (cons _L5502_ __tmp47783)))) + (cons _L5502_ __tmp47960)))) (declare (not safe)) - (cons __tmp47788 __tmp47782)))) + (cons __tmp47965 __tmp47959)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47781 '())))) + (cons __tmp47958 '())))) (declare (not safe)) - (cons __tmp47789 __tmp47780)))) + (cons __tmp47966 __tmp47957)))) (declare (not safe)) - (cons __tmp47791 __tmp47779)) + (cons __tmp47968 __tmp47956)) (gx#stx-source _stx4661_))))) _g54885499_)))) (_g54865525_ _main5386_)))) @@ -2310,16 +2310,16 @@ (lambda (_g55375548_) ((lambda (_L5551_) (let () - (let ((__tmp47799 + (let ((__tmp47976 (gx#datum->syntax '#f 'hash-ref)) - (__tmp47792 - (let ((__tmp47793 - (let ((__tmp47796 - (let ((__tmp47798 + (__tmp47969 + (let ((__tmp47970 + (let ((__tmp47973 + (let ((__tmp47975 (gx#datum->syntax '#f 'quote)) - (__tmp47797 + (__tmp47974 (let () (declare (not safe)) @@ -2327,21 +2327,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp47798 __tmp47797))) + (cons __tmp47975 __tmp47974))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47794 - (let ((__tmp47795 + (__tmp47971 + (let ((__tmp47972 (gx#datum->syntax '#f 'absent-value))) (declare (not safe)) - (cons __tmp47795 '())))) + (cons __tmp47972 '())))) (declare (not safe)) - (cons __tmp47796 __tmp47794)))) + (cons __tmp47973 __tmp47971)))) (declare (not safe)) - (cons _L5404_ __tmp47793)))) + (cons _L5404_ __tmp47970)))) (declare (not safe)) - (cons __tmp47799 __tmp47792)))) + (cons __tmp47976 __tmp47969)))) _g55375548_)))) (_g55355564_ (car _kwarg5533_)))) _kwargs5279_))))) @@ -2384,16 +2384,16 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (let () - (let ((__tmp47806 + (let ((__tmp47983 (gx#datum->syntax '#f 'let-values)) - (__tmp47800 - (let ((__tmp47802 - (let ((__tmp47803 - (let ((__tmp47805 + (__tmp47977 + (let ((__tmp47979 + (let ((__tmp47980 + (let ((__tmp47982 (let () (declare (not safe)) (cons _L5303_ '()))) - (__tmp47804 + (__tmp47981 (let () (declare (not safe)) (cons _L5359_ @@ -2401,18 +2401,18 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47805 - __tmp47804)))) + (cons __tmp47982 + __tmp47981)))) (declare (not safe)) - (cons __tmp47803 '()))) - (__tmp47801 + (cons __tmp47980 '()))) + (__tmp47978 (let () (declare (not safe)) (cons _L5331_ '())))) (declare (not safe)) - (cons __tmp47802 __tmp47801)))) + (cons __tmp47979 __tmp47978)))) (declare (not safe)) - (cons __tmp47806 __tmp47800))))) + (cons __tmp47983 __tmp47977))))) _g53455356_)))) (_g53435374_ (_make-main5285_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2474,50 +2474,50 @@ _L5253_ _L5254_) (let () - (let ((__tmp47819 (gx#datum->syntax '#f 'lambda%)) - (__tmp47807 - (let ((__tmp47808 - (let ((__tmp47809 - (let ((__tmp47818 + (let ((__tmp47996 (gx#datum->syntax '#f 'lambda%)) + (__tmp47984 + (let ((__tmp47985 + (let ((__tmp47986 + (let ((__tmp47995 (gx#datum->syntax '#f 'apply)) - (__tmp47810 - (let ((__tmp47817 + (__tmp47987 + (let ((__tmp47994 (gx#datum->syntax '#f 'keyword-dispatch)) - (__tmp47811 - (let ((__tmp47814 + (__tmp47988 + (let ((__tmp47991 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47816 (gx#datum->syntax '#f 'quote)) - (__tmp47815 + (let ((__tmp47993 (gx#datum->syntax '#f 'quote)) + (__tmp47992 (let () (declare (not safe)) (cons _L5254_ '())))) (declare (not safe)) - (cons __tmp47816 __tmp47815))) - (__tmp47812 - (let ((__tmp47813 + (cons __tmp47993 __tmp47992))) + (__tmp47989 + (let ((__tmp47990 (let () (declare (not safe)) (cons _L5251_ '())))) (declare (not safe)) - (cons _L5253_ __tmp47813)))) + (cons _L5253_ __tmp47990)))) (declare (not safe)) - (cons __tmp47814 __tmp47812)))) + (cons __tmp47991 __tmp47989)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47817 - __tmp47811)))) + (cons __tmp47994 + __tmp47988)))) (declare (not safe)) - (cons __tmp47818 __tmp47810)))) + (cons __tmp47995 __tmp47987)))) (declare (not safe)) - (cons __tmp47809 '())))) + (cons __tmp47986 '())))) (declare (not safe)) - (cons _L5251_ __tmp47808)))) + (cons _L5251_ __tmp47985)))) (declare (not safe)) - (cons __tmp47819 __tmp47807)))) + (cons __tmp47996 __tmp47984)))) _hd52075245_ _hd52045235_ _hd52015225_) @@ -2559,48 +2559,48 @@ (vector-set! _pht5170_ _pos5185_ _key5179_) (_lp5173_ _rest5182_)))) _pht5170_)))))) - (let* ((___stx4285642857_ _stx4661_) + (let* ((___stx4303343034_ _stx4661_) (_g46824713_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4285642857_)))) - (let ((___kont4285942860_ + ___stx4303343034_)))) + (let ((___kont4303643037_ (lambda (_L5145_ _L5147_) - (let ((__tmp47821 (gx#datum->syntax '#f 'lambda%)) - (__tmp47820 + (let ((__tmp47998 (gx#datum->syntax '#f 'lambda%)) + (__tmp47997 (let () (declare (not safe)) (cons _L5147_ _L5145_)))) (declare (not safe)) - (cons __tmp47821 __tmp47820)))) - (___kont4286142862_ + (cons __tmp47998 __tmp47997)))) + (___kont4303843039_ (lambda (_L4917_ _L4919_) - (let ((_g47822_ (_opt-lambda-split4667_ _L4919_))) + (let ((_g47999_ (_opt-lambda-split4667_ _L4919_))) (begin - (let ((_g47823_ + (let ((_g48000_ (let () (declare (not safe)) - (if (##values? _g47822_) - (##vector-length _g47822_) + (if (##values? _g47999_) + (##vector-length _g47999_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47823_ 3))) - (error "Context expects 3 values" _g47823_))) + (##fx= _g48000_ 3))) + (error "Context expects 3 values" _g48000_))) (let ((_pre4932_ (let () (declare (not safe)) - (##vector-ref _g47822_ 0))) + (##vector-ref _g47999_ 0))) (_opt4934_ (let () (declare (not safe)) - (##vector-ref _g47822_ 1))) + (##vector-ref _g47999_ 1))) (_tail4935_ (let () (declare (not safe)) - (##vector-ref _g47822_ 2)))) + (##vector-ref _g47999_ 2)))) (let* ((_g49374945_ (lambda (_g49384941_) (gx#raise-syntax-error @@ -2631,28 +2631,28 @@ (_g49925106_ (lambda (_g49945014_) (if (gx#stx-pair/null? _g49945014_) - (let ((_g47824_ + (let ((_g48001_ (gx#syntax-split-splice _g49945014_ '0))) (begin - (let ((_g47825_ + (let ((_g48002_ (let () (declare (not safe)) - (if (##values? _g47824_) - (##vector-length _g47824_) + (if (##values? _g48001_) + (##vector-length _g48001_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47825_ 2))) + (##fx= _g48002_ 2))) (error "Context expects 2 values" - _g47825_))) + _g48002_))) (let ((_target49965017_ (let () (declare (not safe)) - (##vector-ref _g47824_ 0))) + (##vector-ref _g48001_ 0))) (_tl49985020_ (let () (declare (not safe)) - (##vector-ref _g47824_ 1)))) + (##vector-ref _g48001_ 1)))) (if (gx#stx-null? _tl49985020_) (letrec ((_loop49995023_ (lambda (_hd49975027_ @@ -2686,45 +2686,45 @@ ((lambda (_L5079_) (let () (let () - (let ((__tmp47832 + (let ((__tmp48009 (gx#datum->syntax '#f 'let-values)) - (__tmp47826 - (let ((__tmp47828 - (let ((__tmp47829 - (let ((__tmp47831 + (__tmp48003 + (let ((__tmp48005 + (let ((__tmp48006 + (let ((__tmp48008 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L4952_ '()))) - (__tmp47830 + (__tmp48007 (let () (declare (not safe)) (cons _L4980_ '())))) (declare (not safe)) - (cons __tmp47831 __tmp47830)))) + (cons __tmp48008 __tmp48007)))) (declare (not safe)) - (cons __tmp47829 '()))) - (__tmp47827 (let () (declare (not safe)) (cons _L5079_ '())))) + (cons __tmp48006 '()))) + (__tmp48004 (let () (declare (not safe)) (cons _L5079_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47828 - __tmp47827)))) + (cons __tmp48005 + __tmp48004)))) (declare (not safe)) - (cons __tmp47832 __tmp47826))))) + (cons __tmp48009 __tmp48003))))) _g50655076_)))) (_g50635094_ (gx#stx-wrap-source - (let ((__tmp47835 + (let ((__tmp48012 (gx#datum->syntax '#f 'case-lambda)) - (__tmp47833 - (let ((__tmp47834 + (__tmp48010 + (let ((__tmp48011 (lambda (_g50975100_ _g50985103_) (let () (declare (not safe)) (cons _g50975100_ _g50985103_))))) (declare (not safe)) - (foldr1 __tmp47834 '() _L5047_)))) + (foldr1 __tmp48011 '() _L5047_)))) (declare (not safe)) - (cons __tmp47835 __tmp47833)) + (cons __tmp48012 __tmp48010)) (gx#stx-source _stx4661_)))))) _clause50045043_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2751,7 +2751,7 @@ (gx#stx-source _stx4661_)))))) _g49384949_)))) (_g49365114_ (gx#genident 'opt-lambda)))))))) - (___kont4286342864_ + (___kont4304043041_ (lambda (_L4740_ _L4742_) (let* ((_g47584765_ (lambda (_g47594761_) @@ -2763,32 +2763,32 @@ (lambda (_g47594769_) ((lambda () (let () - (let ((_g47836_ + (let ((_g48013_ (_kw-lambda-split4669_ _L4742_))) (begin - (let ((_g47837_ + (let ((_g48014_ (let () (declare (not safe)) - (if (##values? _g47836_) - (##vector-length _g47836_) + (if (##values? _g48013_) + (##vector-length _g48013_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47837_ 3))) + (##fx= _g48014_ 3))) (error "Context expects 3 values" - _g47837_))) + _g48014_))) (let ((_key4778_ (let () (declare (not safe)) - (##vector-ref _g47836_ 0))) + (##vector-ref _g48013_ 0))) (_kwargs4780_ (let () (declare (not safe)) - (##vector-ref _g47836_ 1))) + (##vector-ref _g48013_ 1))) (_args4781_ (let () (declare (not safe)) - (##vector-ref _g47836_ 2)))) + (##vector-ref _g48013_ 2)))) (let* ((_g47834791_ (lambda (_g47844787_) (gx#raise-syntax-error @@ -2821,34 +2821,34 @@ ((lambda (_L4859_) (let () (let () - (let ((__tmp47844 + (let ((__tmp48021 (gx#datum->syntax '#f 'let-values)) - (__tmp47838 - (let ((__tmp47840 - (let ((__tmp47841 + (__tmp48015 + (let ((__tmp48017 + (let ((__tmp48018 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47843 + (let ((__tmp48020 (let () (declare (not safe)) (cons _L4798_ '()))) - (__tmp47842 + (__tmp48019 (let () (declare (not safe)) (cons _L4831_ '())))) (declare (not safe)) - (cons __tmp47843 __tmp47842)))) + (cons __tmp48020 __tmp48019)))) (declare (not safe)) - (cons __tmp47841 '()))) - (__tmp47839 + (cons __tmp48018 '()))) + (__tmp48016 (let () (declare (not safe)) (cons _L4859_ '())))) (declare (not safe)) - (cons __tmp47840 __tmp47839)))) + (cons __tmp48017 __tmp48016)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47844 - __tmp47838))))) + (cons __tmp48021 + __tmp48015))))) _g48454856_)))) (_g48434874_ (gx#stx-wrap-source @@ -2875,7 +2875,7 @@ 'kw-lambda)))))))))))) (_g47574886_ (_check-duplicate-bindings4671_ _L4742_)))))) - (let* ((___match4290142902_ + (let* ((___match4307843079_ (lambda (_e47044720_ _hd47034724_ _tl47024727_ @@ -2884,9 +2884,9 @@ _tl47054737_) (let ((_L4740_ _tl47054737_) (_L4742_ _hd47064734_)) (if (_kw-lambda?4668_ _L4742_) - (___kont4286342864_ _L4740_ _L4742_) + (___kont4304043041_ _L4740_ _L4742_) (let () (declare (not safe)) (_g46824713_)))))) - (___match4288942890_ + (___match4306643067_ (lambda (_e46964897_ _hd46954901_ _tl46944904_ @@ -2895,15 +2895,15 @@ _tl46974914_) (let ((_L4917_ _tl46974914_) (_L4919_ _hd46984911_)) (if (_opt-lambda?4666_ _L4919_) - (___kont4286142862_ _L4917_ _L4919_) - (___match4290142902_ + (___kont4303843039_ _L4917_ _L4919_) + (___match4307843079_ _e46964897_ _hd46954901_ _tl46944904_ _e46994907_ _hd46984911_ _tl46974914_))))) - (___match4287742878_ + (___match4305443055_ (lambda (_e46885125_ _hd46875129_ _tl46865132_ @@ -2912,16 +2912,16 @@ _tl46895142_) (let ((_L5145_ _tl46895142_) (_L5147_ _hd46905139_)) (if (_simple-lambda?4664_ _L5147_) - (___kont4285942860_ _L5145_ _L5147_) - (___match4288942890_ + (___kont4303643037_ _L5145_ _L5147_) + (___match4306643067_ _e46885125_ _hd46875129_ _tl46865132_ _e46915135_ _hd46905139_ _tl46895142_)))))) - (if (gx#stx-pair? ___stx4285642857_) - (let ((_e46885125_ (gx#syntax-e ___stx4285642857_))) + (if (gx#stx-pair? ___stx4303343034_) + (let ((_e46885125_ (gx#syntax-e ___stx4303343034_))) (let ((_tl46865132_ (let () (declare (not safe)) (##cdr _e46885125_))) (_hd46875129_ @@ -2938,7 +2938,7 @@ (let () (declare (not safe)) (##car _e46915135_)))) - (___match4287742878_ + (___match4305443055_ _e46885125_ _hd46875129_ _tl46865132_ @@ -2949,28 +2949,28 @@ (let () (declare (not safe)) (_g46824713_))))))))) (define |gerbil/core$$[:0:]#def| (lambda (_$stx8077_) - (let* ((___stx4290442905_ _$stx8077_) + (let* ((___stx4308143082_ _$stx8077_) (_g80838147_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4290442905_)))) - (let ((___kont4290742908_ + ___stx4308143082_)))) + (let ((___kont4308443085_ (lambda (_L8377_ _L8379_ _L8380_ _L8381_) - (let ((__tmp47853 (gx#datum->syntax '#f 'def)) - (__tmp47845 - (let ((__tmp47852 + (let ((__tmp48030 (gx#datum->syntax '#f 'def)) + (__tmp48022 + (let ((__tmp48029 (let () (declare (not safe)) (cons _L8381_ _L8380_))) - (__tmp47846 - (let ((__tmp47847 - (let ((__tmp47851 + (__tmp48023 + (let ((__tmp48024 + (let ((__tmp48028 (gx#datum->syntax '#f 'lambda)) - (__tmp47848 - (let ((__tmp47849 - (let ((__tmp47850 + (__tmp48025 + (let ((__tmp48026 + (let ((__tmp48027 (lambda (_g84038406_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g84048409_) @@ -2978,33 +2978,33 @@ (declare (not safe)) (cons _g84038406_ _g84048409_))))) (declare (not safe)) - (foldr1 __tmp47850 '() _L8377_)))) + (foldr1 __tmp48027 '() _L8377_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8379_ __tmp47849)))) + (cons _L8379_ __tmp48026)))) (declare (not safe)) - (cons __tmp47851 __tmp47848)))) + (cons __tmp48028 __tmp48025)))) (declare (not safe)) - (cons __tmp47847 '())))) + (cons __tmp48024 '())))) (declare (not safe)) - (cons __tmp47852 __tmp47846)))) + (cons __tmp48029 __tmp48023)))) (declare (not safe)) - (cons __tmp47853 __tmp47845)))) - (___kont4291142912_ + (cons __tmp48030 __tmp48022)))) + (___kont4308843089_ (lambda (_L8269_ _L8271_ _L8272_) - (let ((__tmp47862 (gx#datum->syntax '#f 'define-values)) - (__tmp47854 - (let ((__tmp47861 + (let ((__tmp48039 (gx#datum->syntax '#f 'define-values)) + (__tmp48031 + (let ((__tmp48038 (let () (declare (not safe)) (cons _L8272_ '()))) - (__tmp47855 - (let ((__tmp47856 - (let ((__tmp47860 + (__tmp48032 + (let ((__tmp48033 + (let ((__tmp48037 (gx#datum->syntax '#f 'lambda)) - (__tmp47857 - (let ((__tmp47858 - (let ((__tmp47859 + (__tmp48034 + (let ((__tmp48035 + (let ((__tmp48036 (lambda (_g82918294_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g82928297_) @@ -3012,35 +3012,35 @@ (declare (not safe)) (cons _g82918294_ _g82928297_))))) (declare (not safe)) - (foldr1 __tmp47859 '() _L8269_)))) + (foldr1 __tmp48036 '() _L8269_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L8271_ __tmp47858)))) + (cons _L8271_ __tmp48035)))) (declare (not safe)) - (cons __tmp47860 __tmp47857)))) + (cons __tmp48037 __tmp48034)))) (declare (not safe)) - (cons __tmp47856 '())))) + (cons __tmp48033 '())))) (declare (not safe)) - (cons __tmp47861 __tmp47855)))) + (cons __tmp48038 __tmp48032)))) (declare (not safe)) - (cons __tmp47862 __tmp47854)))) - (___kont4291542916_ + (cons __tmp48039 __tmp48031)))) + (___kont4309243093_ (lambda (_L8184_ _L8186_) - (let ((__tmp47866 (gx#datum->syntax '#f 'define-values)) - (__tmp47863 - (let ((__tmp47865 + (let ((__tmp48043 (gx#datum->syntax '#f 'define-values)) + (__tmp48040 + (let ((__tmp48042 (let () (declare (not safe)) (cons _L8186_ '()))) - (__tmp47864 + (__tmp48041 (let () (declare (not safe)) (cons _L8184_ '())))) (declare (not safe)) - (cons __tmp47865 __tmp47864)))) + (cons __tmp48042 __tmp48041)))) (declare (not safe)) - (cons __tmp47866 __tmp47863))))) - (let* ((___match4299542996_ + (cons __tmp48043 __tmp48040))))) + (let* ((___match4317243173_ (lambda (_e81358154_ _hd81348158_ _tl81338161_ @@ -3052,9 +3052,9 @@ _tl81398181_) (let ((_L8184_ _hd81408178_) (_L8186_ _hd81378168_)) (if (gx#identifier? _L8186_) - (___kont4291542916_ _L8184_ _L8186_) + (___kont4309243093_ _L8184_ _L8186_) (let () (declare (not safe)) (_g80838147_)))))) - (___match4298742988_ + (___match4316443165_ (lambda (_e81358154_ _hd81348158_ _tl81338161_ @@ -3072,7 +3072,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4299542996_ + (___match4317243173_ _e81358154_ _hd81348158_ _tl81338161_ @@ -3086,7 +3086,7 @@ (declare (not safe)) (_g80838147_))))) (let () (declare (not safe)) (_g80838147_))))) - (___match4297542976_ + (___match4315243153_ (lambda (_e81158209_ _hd81148213_ _tl81138216_ @@ -3096,7 +3096,7 @@ _e81218229_ _hd81208233_ _tl81198236_ - ___splice4291342914_ + ___splice4309043091_ _target81228239_ _tl81248242_) (letrec ((_loop81258245_ @@ -3124,11 +3124,11 @@ (_L8271_ _tl81198236_) (_L8272_ _hd81208233_)) (if (gx#identifier? _L8272_) - (___kont4291142912_ + (___kont4308843089_ _L8269_ _L8271_ _L8272_) - (___match4298742988_ + (___match4316443165_ _e81158209_ _hd81148213_ _tl81138216_ @@ -3136,7 +3136,7 @@ _hd81178223_ _tl81168226_)))))))) (_loop81258245_ _target81228239_ '())))) - (___match4294942950_ + (___match4312643127_ (lambda (_e80918307_ _hd80908311_ _tl80898314_ @@ -3149,7 +3149,7 @@ _e81008337_ _hd80998341_ _tl80988344_ - ___splice4290942910_ + ___splice4308643087_ _target81018347_ _tl81038350_) (letrec ((_loop81048353_ @@ -3173,14 +3173,14 @@ _body81088360_))))) (let ((_body81098373_ (reverse _body81088360_))) - (___kont4290742908_ + (___kont4308443085_ _body81098373_ _tl80958334_ _tl80988344_ _hd80998341_)))))) (_loop81048353_ _target81018347_ '()))))) - (if (gx#stx-pair? ___stx4290442905_) - (let ((_e80918307_ (gx#syntax-e ___stx4290442905_))) + (if (gx#stx-pair? ___stx4308143082_) + (let ((_e80918307_ (gx#syntax-e ___stx4308143082_))) (let ((_tl80898314_ (let () (declare (not safe)) (##cdr _e80918307_))) (_hd80908311_ @@ -3219,7 +3219,7 @@ (##car _e81008337_)))) (if (gx#stx-pair/null? _tl80928324_) - (let ((___splice4290942910_ + (let ((___splice4308643087_ (gx#syntax-split-splice _tl80928324_ '0))) @@ -3228,18 +3228,18 @@ (declare (not safe)) (##vector-ref - ___splice4290942910_ + ___splice4308643087_ '1))) (_target81018347_ (let () (declare (not safe)) (##vector-ref - ___splice4290942910_ + ___splice4308643087_ '0)))) (if (gx#stx-null? _tl81038350_) - (___match4294942950_ + (___match4312643127_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3252,7 +3252,7 @@ _e81008337_ _hd80998341_ _tl80988344_ - ___splice4290942910_ + ___splice4308643087_ _target81018347_ _tl81038350_) (if (gx#stx-pair? @@ -3269,7 +3269,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4299542996_ + (___match4317243173_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3295,7 +3295,7 @@ (_hd81408178_ (let () (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4299542996_ + (___match4317243173_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3309,7 +3309,7 @@ (let () (declare (not safe)) (_g80838147_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl80928324_) - (let ((___splice4291342914_ + (let ((___splice4309043091_ (gx#syntax-split-splice _tl80928324_ '0))) @@ -3317,17 +3317,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4291342914_ + ___splice4309043091_ '1))) (_target81228239_ (let () (declare (not safe)) (##vector-ref - ___splice4291342914_ + ___splice4309043091_ '0)))) (if (gx#stx-null? _tl81248242_) - (___match4297542976_ + (___match4315243153_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3337,7 +3337,7 @@ _e80978327_ _hd80968331_ _tl80958334_ - ___splice4291342914_ + ___splice4309043091_ _target81228239_ _tl81248242_) (if (gx#stx-pair? @@ -3350,7 +3350,7 @@ (_hd81408178_ (let () (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4299542996_ + (___match4317243173_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3379,7 +3379,7 @@ (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4299542996_ + (___match4317243173_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3408,7 +3408,7 @@ (declare (not safe)) (##car _e81418174_)))) (if (gx#stx-null? _tl81398181_) - (___match4299542996_ + (___match4317243173_ _e80918307_ _hd80908311_ _tl80898314_ @@ -3457,31 +3457,31 @@ (declare (not safe)) (##cdr _e84318463_)))) (if (gx#stx-pair/null? _tl84298470_) - (let ((_g47867_ + (let ((_g48044_ (gx#syntax-split-splice _tl84298470_ '0))) (begin - (let ((_g47868_ + (let ((_g48045_ (let () (declare (not safe)) - (if (##values? _g47867_) + (if (##values? _g48044_) (##vector-length - _g47867_) + _g48044_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47868_ 2))) + (##fx= _g48045_ 2))) (error "Context expects 2 values" - _g47868_))) + _g48045_))) (let ((_target84328473_ (let () (declare (not safe)) - (##vector-ref _g47867_ 0))) + (##vector-ref _g48044_ 0))) (_tl84348476_ (let () (declare (not safe)) - (##vector-ref _g47867_ 1)))) + (##vector-ref _g48044_ 1)))) (if (gx#stx-null? _tl84348476_) (letrec ((_loop84358479_ (lambda (_hd84338483_ @@ -3505,37 +3505,37 @@ (let ((_clauses84408499_ (reverse _clauses84398486_))) ((lambda (_L8503_ _L8505_) (if (gx#identifier? _L8505_) - (let ((__tmp47876 + (let ((__tmp48053 (gx#datum->syntax '#f 'define-values)) - (__tmp47869 - (let ((__tmp47875 + (__tmp48046 + (let ((__tmp48052 (let () (declare (not safe)) (cons _L8505_ '()))) - (__tmp47870 - (let ((__tmp47871 - (let ((__tmp47874 + (__tmp48047 + (let ((__tmp48048 + (let ((__tmp48051 (gx#datum->syntax '#f 'case-lambda)) - (__tmp47872 - (let ((__tmp47873 + (__tmp48049 + (let ((__tmp48050 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g85228525_ _g85238528_) (let () (declare (not safe)) (cons _g85228525_ _g85238528_))))) (declare (not safe)) - (foldr1 __tmp47873 '() _L8503_)))) + (foldr1 __tmp48050 '() _L8503_)))) (declare (not safe)) - (cons __tmp47874 __tmp47872)))) + (cons __tmp48051 __tmp48049)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47871 '())))) + (cons __tmp48048 '())))) (declare (not safe)) - (cons __tmp47875 __tmp47870)))) + (cons __tmp48052 __tmp48047)))) (declare (not safe)) - (cons __tmp47876 __tmp47869)) + (cons __tmp48053 __tmp48046)) (_g84228446_ _g84238450_))) _clauses84408499_ _hd84308467_)))))) @@ -3593,18 +3593,18 @@ ((lambda (_L8595_ _L8597_) (if (gx#identifier-list? _L8597_) - (let ((__tmp47879 + (let ((__tmp48056 (gx#datum->syntax '#f 'define-values)) - (__tmp47877 - (let ((__tmp47878 + (__tmp48054 + (let ((__tmp48055 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L8595_ '())))) (declare (not safe)) - (cons _L8597_ __tmp47878)))) + (cons _L8597_ __tmp48055)))) (declare (not safe)) - (cons __tmp47879 __tmp47877)) + (cons __tmp48056 __tmp48054)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g85408558_ _g85418562_))) @@ -3646,31 +3646,31 @@ (declare (not safe)) (##cdr _e86308662_)))) (if (gx#stx-pair/null? _tl86288669_) - (let ((_g47880_ + (let ((_g48057_ (gx#syntax-split-splice _tl86288669_ '0))) (begin - (let ((_g47881_ + (let ((_g48058_ (let () (declare (not safe)) - (if (##values? _g47880_) + (if (##values? _g48057_) (##vector-length - _g47880_) + _g48057_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47881_ 2))) + (##fx= _g48058_ 2))) (error "Context expects 2 values" - _g47881_))) + _g48058_))) (let ((_target86318672_ (let () (declare (not safe)) - (##vector-ref _g47880_ 0))) + (##vector-ref _g48057_ 0))) (_tl86338675_ (let () (declare (not safe)) - (##vector-ref _g47880_ 1)))) + (##vector-ref _g48057_ 1)))) (if (gx#stx-null? _tl86338675_) (letrec ((_loop86348678_ (lambda (_hd86328682_ @@ -3693,49 +3693,49 @@ (cons _lp-hd86368692_ _clause86388685_))))) (let ((_clause86398698_ (reverse _clause86388685_))) ((lambda (_L8702_ _L8704_) - (let ((__tmp47893 (gx#datum->syntax '#f 'let)) - (__tmp47882 - (let ((__tmp47890 - (let ((__tmp47892 + (let ((__tmp48070 (gx#datum->syntax '#f 'let)) + (__tmp48059 + (let ((__tmp48067 + (let ((__tmp48069 (gx#datum->syntax '#f '$e)) - (__tmp47891 + (__tmp48068 (let () (declare (not safe)) (cons _L8704_ '())))) (declare (not safe)) - (cons __tmp47892 __tmp47891))) - (__tmp47883 - (let ((__tmp47884 - (let ((__tmp47889 + (cons __tmp48069 __tmp48068))) + (__tmp48060 + (let ((__tmp48061 + (let ((__tmp48066 (gx#datum->syntax '#f '~case)) - (__tmp47885 - (let ((__tmp47888 + (__tmp48062 + (let ((__tmp48065 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp47886 - (let ((__tmp47887 + (__tmp48063 + (let ((__tmp48064 (lambda (_g87218724_ _g87228727_) (let () (declare (not safe)) (cons _g87218724_ _g87228727_))))) (declare (not safe)) - (foldr1 __tmp47887 '() _L8702_)))) + (foldr1 __tmp48064 '() _L8702_)))) (declare (not safe)) - (cons __tmp47888 __tmp47886)))) + (cons __tmp48065 __tmp48063)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47889 - __tmp47885)))) + (cons __tmp48066 + __tmp48062)))) (declare (not safe)) - (cons __tmp47884 '())))) + (cons __tmp48061 '())))) (declare (not safe)) - (cons __tmp47890 __tmp47883)))) + (cons __tmp48067 __tmp48060)))) (declare (not safe)) - (cons __tmp47893 __tmp47882))) + (cons __tmp48070 __tmp48059))) _clause86398698_ _hd86298666_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3755,23 +3755,23 @@ (_datums11210_ '()) (_dispatch11211_ '()) (_default11212_ '#f)) - (let* ((___stx4309443095_ _rest11208_) + (let* ((___stx4327143272_ _rest11208_) (_g1121511227_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4309443095_)))) - (let ((___kont4309743098_ + ___stx4327143272_)))) + (let ((___kont4327443275_ (lambda (_L11259_ _L11261_) - (let* ((___stx4299842999_ _L11261_) + (let* ((___stx4317543176_ _L11261_) (_g1127911352_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4299842999_)))) - (let ((___kont4300143002_ + ___stx4317543176_)))) + (let ((___kont4317843179_ (lambda (_L11717_) (if (gx#stx-null? _L11259_) (let* ((_g1173211740_ @@ -3788,13 +3788,13 @@ '() _datums11210_ _dispatch11211_ - (let ((__tmp47894 + (let ((__tmp48071 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L11747_ '())))) (declare (not safe)) - (cons _L11717_ __tmp47894))))) + (cons _L11717_ __tmp48071))))) _g1173311744_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1173111759_ _e11201_)) @@ -3803,19 +3803,19 @@ '"Misplaced else clause" _stx8735_ _L11261_)))) - (___kont4300343004_ + (___kont4318043181_ (lambda (_L11657_) (if (gx#stx-null? _L11259_) (_lp11205_ '() _datums11210_ _dispatch11211_ - (let ((__tmp47897 + (let ((__tmp48074 (gx#datum->syntax '#f 'begin)) - (__tmp47895 - (let ((__tmp47896 + (__tmp48072 + (let ((__tmp48073 (lambda (_g1167111674_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1167211677_) @@ -3823,20 +3823,20 @@ (declare (not safe)) (cons _g1167111674_ _g1167211677_))))) (declare (not safe)) - (foldr1 __tmp47896 '() _L11657_)))) + (foldr1 __tmp48073 '() _L11657_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47897 - __tmp47895))) + (cons __tmp48074 + __tmp48072))) (gx#raise-syntax-error '#f '"Misplaced else clause" _stx8735_ _L11261_)))) - (___kont4300743008_ + (___kont4318443185_ (lambda (_L11542_ _L11544_) - (if (let ((__tmp47902 - (let ((__tmp47903 + (if (let ((__tmp48079 + (let ((__tmp48080 (lambda (_g1156211565_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1156311568_) @@ -3844,10 +3844,10 @@ (declare (not safe)) (cons _g1156211565_ _g1156311568_))))) (declare (not safe)) - (foldr1 __tmp47903 '() _L11544_)))) + (foldr1 __tmp48080 '() _L11544_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp47902)) + (null? __tmp48079)) (_lp11205_ _L11259_ _datums11210_ @@ -3865,10 +3865,10 @@ (let () (_lp11205_ _L11259_ - (let ((__tmp47898 + (let ((__tmp48075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map gx#stx-e - (let ((__tmp47899 + (let ((__tmp48076 (lambda (_g1159711600_ _g1159811603_) (let () @@ -3876,26 +3876,26 @@ (cons _g1159711600_ _g1159811603_))))) (declare (not safe)) - (foldr1 __tmp47899 '() _L11544_))))) + (foldr1 __tmp48076 '() _L11544_))))) (declare (not safe)) - (cons __tmp47898 _datums11210_)) - (let ((__tmp47900 - (let ((__tmp47901 + (cons __tmp48075 _datums11210_)) + (let ((__tmp48077 + (let ((__tmp48078 (let () (declare (not safe)) (cons _L11586_ '())))) (declare (not safe)) - (cons _L11542_ __tmp47901)))) + (cons _L11542_ __tmp48078)))) (declare (not safe)) - (cons __tmp47900 _dispatch11211_)) + (cons __tmp48077 _dispatch11211_)) _default11212_))) _g1157211583_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1157011606_ _e11201_))))) - (___kont4301143012_ + (___kont4318843189_ (lambda (_L11429_ _L11431_) - (if (let ((__tmp47910 - (let ((__tmp47911 + (if (let ((__tmp48087 + (let ((__tmp48088 (lambda (_g1145011453_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1145111456_) @@ -3903,10 +3903,10 @@ (declare (not safe)) (cons _g1145011453_ _g1145111456_))))) (declare (not safe)) - (foldr1 __tmp47911 '() _L11431_)))) + (foldr1 __tmp48088 '() _L11431_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (null? __tmp47910)) + (null? __tmp48087)) (_lp11205_ _L11259_ _datums11210_ @@ -3914,46 +3914,46 @@ _default11212_) (_lp11205_ _L11259_ - (let ((__tmp47904 + (let ((__tmp48081 (map gx#stx-e - (let ((__tmp47905 + (let ((__tmp48082 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1145811461_ _g1145911464_) (let () (declare (not safe)) (cons _g1145811461_ _g1145911464_))))) (declare (not safe)) - (foldr1 __tmp47905 '() _L11431_))))) + (foldr1 __tmp48082 '() _L11431_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47904 + (cons __tmp48081 _datums11210_)) - (let ((__tmp47906 - (let ((__tmp47909 + (let ((__tmp48083 + (let ((__tmp48086 (gx#datum->syntax '#f 'begin)) - (__tmp47907 - (let ((__tmp47908 + (__tmp48084 + (let ((__tmp48085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1146611469_ _g1146711472_) (let () (declare (not safe)) (cons _g1146611469_ _g1146711472_))))) (declare (not safe)) - (foldr1 __tmp47908 '() _L11429_)))) + (foldr1 __tmp48085 '() _L11429_)))) (declare (not safe)) - (cons __tmp47909 __tmp47907)))) + (cons __tmp48086 __tmp48084)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47906 + (cons __tmp48083 _dispatch11211_)) _default11212_))))) - (let* ((___match4309143092_ + (let* ((___match4326843269_ (lambda (_e1132811359_ _hd1132711363_ _tl1132611366_ - ___splice4301343014_ + ___splice4319043191_ _target1132911369_ _tl1133111372_) (letrec ((_loop1133211375_ @@ -3977,7 +3977,7 @@ (cons _lp-hd1133411389_ _datum1133611382_))))) (let ((_datum1133711395_ (reverse _datum1133611382_))) (if (gx#stx-pair/null? _tl1132611366_) - (let ((___splice4301543016_ + (let ((___splice4319243193_ (gx#syntax-split-splice _tl1132611366_ '0))) @@ -3985,13 +3985,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4301543016_ + ___splice4319243193_ '1))) (_target1133811399_ (let () (declare (not safe)) (##vector-ref - ___splice4301543016_ + ___splice4319243193_ '0)))) (if (gx#stx-null? _tl1134011402_) (letrec ((_loop1134111405_ @@ -4018,7 +4018,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_body1134611425_ (reverse _body1134511412_))) - (___kont4301143012_ + (___kont4318843189_ _body1134611425_ _datum1133711395_)))))) (_loop1134111405_ @@ -4034,11 +4034,11 @@ (_loop1133211375_ _target1132911369_ '())))) - (___match4307743078_ + (___match4325443255_ (lambda (_e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (letrec ((_loop1131211498_ @@ -4074,7 +4074,7 @@ (##car _e1132011522_)))) (if (gx#identifier? _hd1131911526_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47912_| + |gerbil/core$$[1]#_g48089_| _hd1131911526_) (if (gx#stx-pair? _tl1131811529_) (let ((_e1132311532_ @@ -4090,53 +4090,53 @@ (##car _e1132311532_)))) (if (gx#stx-null? _tl1132111539_) - (___kont4300743008_ + (___kont4318443185_ _hd1132211536_ _datum1131711518_) - (___match4309143092_ + (___match4326843269_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_)))) - (___match4309143092_ + (___match4326843269_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_)) - (___match4309143092_ + (___match4326843269_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_)) - (___match4309143092_ + (___match4326843269_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_)))) - (___match4309143092_ + (___match4326843269_ _e1130811482_ _hd1130711486_ _tl1130611489_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1131211498_ _target1130911492_ '())))) - (___match4306343064_ + (___match4324043241_ (lambda (_e1129411617_ _hd1129311621_ _tl1129211624_ - ___splice4300543006_ + ___splice4318243183_ _target1129511627_ _tl1129711630_) (letrec ((_loop1129811633_ @@ -4159,15 +4159,15 @@ (declare (not safe)) (cons _lp-hd1130011647_ _body1130211640_))))) (let ((_body1130311653_ (reverse _body1130211640_))) - (___kont4300343004_ _body1130311653_)))))) + (___kont4318043181_ _body1130311653_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1129811633_ _target1129511627_ '()))))) - (if (gx#stx-pair? ___stx4299842999_) + (if (gx#stx-pair? ___stx4317543176_) (let ((_e1128411687_ (gx#syntax-e - ___stx4299842999_))) + ___stx4317543176_))) (let ((_tl1128211694_ (let () (declare (not safe)) @@ -4179,7 +4179,7 @@ (if (gx#identifier? _hd1128311691_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47914_| + |gerbil/core$$[1]#_g48091_| _hd1128311691_) (if (gx#stx-pair? _tl1128211694_) @@ -4196,7 +4196,7 @@ (##car _e1128711697_)))) (if (gx#identifier? _hd1128611701_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g47913_| + |gerbil/core$$[1]#_g48090_| _hd1128611701_) (if (gx#stx-pair? _tl1128511704_) (let ((_e1129011707_ @@ -4210,10 +4210,10 @@ (declare (not safe)) (##car _e1129011707_)))) (if (gx#stx-null? _tl1128811714_) - (___kont4300143002_ _hd1128911711_) + (___kont4317843179_ _hd1128911711_) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4300543006_ + (let ((___splice4318243183_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4221,42 +4221,42 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4306343064_ + (___match4324043241_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300543006_ + ___splice4318243183_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4300943010_ '1))) + (##vector-ref ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4300943010_ '0)))) + (##vector-ref ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4264,7 +4264,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4273,22 +4273,22 @@ (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4299,7 +4299,7 @@ (declare (not safe)) (_g1127911352_))))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4300543006_ + (let ((___splice4318243183_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4307,25 +4307,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4306343064_ + (___match4324043241_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300543006_ + ___splice4318243183_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4334,22 +4334,22 @@ (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4360,7 +4360,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4368,21 +4368,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4392,7 +4392,7 @@ (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4300543006_ + (let ((___splice4318243183_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4400,25 +4400,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4306343064_ + (___match4324043241_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300543006_ + ___splice4318243183_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4426,21 +4426,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4450,7 +4450,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4458,20 +4458,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4481,7 +4481,7 @@ (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4300543006_ + (let ((___splice4318243183_ (gx#syntax-split-splice _tl1128211694_ '0))) @@ -4489,24 +4489,24 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '1))) (_target1129511627_ (let () (declare (not safe)) (##vector-ref - ___splice4300543006_ + ___splice4318243183_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4306343064_ + (___match4324043241_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300543006_ + ___splice4318243183_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4514,21 +4514,21 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4538,7 +4538,7 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4546,20 +4546,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4569,26 +4569,26 @@ (declare (not safe)) (_g1127911352_))))))) (if (gx#stx-pair/null? _tl1128211694_) - (let ((___splice4300543006_ + (let ((___splice4318243183_ (gx#syntax-split-splice _tl1128211694_ '0))) (let ((_tl1129711630_ (let () (declare (not safe)) - (##vector-ref ___splice4300543006_ '1))) + (##vector-ref ___splice4318243183_ '1))) (_target1129511627_ (let () (declare (not safe)) - (##vector-ref ___splice4300543006_ '0)))) + (##vector-ref ___splice4318243183_ '0)))) (if (gx#stx-null? _tl1129711630_) - (___match4306343064_ + (___match4324043241_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300543006_ + ___splice4318243183_ _target1129511627_ _tl1129711630_) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4596,20 +4596,20 @@ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) (##vector-ref - ___splice4300943010_ + ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4619,22 +4619,22 @@ (declare (not safe)) (_g1127911352_)))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4300943010_ '1))) + (##vector-ref ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4300943010_ '0)))) + (##vector-ref ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () @@ -4642,22 +4642,22 @@ (_g1127911352_))))) (let () (declare (not safe)) (_g1127911352_))))) (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) (let ((_tl1131111495_ (let () (declare (not safe)) - (##vector-ref ___splice4300943010_ '1))) + (##vector-ref ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4300943010_ '0)))) + (##vector-ref ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4665,7 +4665,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1128311691_) - (let ((___splice4300943010_ + (let ((___splice4318643187_ (gx#syntax-split-splice _hd1128311691_ '0))) @@ -4673,17 +4673,17 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4300943010_ '1))) + (##vector-ref ___splice4318643187_ '1))) (_target1130911492_ (let () (declare (not safe)) - (##vector-ref ___splice4300943010_ '0)))) + (##vector-ref ___splice4318643187_ '0)))) (if (gx#stx-null? _tl1131111495_) - (___match4307743078_ + (___match4325443255_ _e1128411687_ _hd1128311691_ _tl1128211694_ - ___splice4300943010_ + ___splice4318643187_ _target1130911492_ _tl1131111495_) (let () (declare (not safe)) (_g1127911352_))))) @@ -4692,7 +4692,7 @@ (let () (declare (not safe)) (_g1127911352_)))))))) - (___kont4309943100_ + (___kont4327643277_ (lambda () (_check-duplicate-datums8740_ _datums11210_) (values (reverse _datums11210_) @@ -4703,14 +4703,14 @@ '#!void)))))) (let ((_g1121411242_ (lambda () - (if (gx#stx-null? ___stx4309443095_) - (___kont4309943100_) + (if (gx#stx-null? ___stx4327143272_) + (___kont4327643277_) (let () (declare (not safe)) (_g1121511227_)))))) - (if (gx#stx-pair? ___stx4309443095_) + (if (gx#stx-pair? ___stx4327143272_) (let ((_e1122111249_ - (gx#syntax-e ___stx4309443095_))) + (gx#syntax-e ___stx4327143272_))) (let ((_tl1121911256_ (let () (declare (not safe)) @@ -4719,7 +4719,7 @@ (let () (declare (not safe)) (##car _e1122111249_)))) - (___kont4309743098_ + (___kont4327443275_ _tl1121911256_ _hd1122011253_))) (let () @@ -4748,43 +4748,43 @@ _datums11189_)))) (_count-datums8741_ (lambda (_datums11182_) - (let ((__tmp47915 + (let ((__tmp48092 (lambda (_lst11185_ _r11187_) (+ (length _lst11185_) _r11187_)))) (declare (not safe)) - (foldl1 __tmp47915 '0 _datums11182_)))) + (foldl1 __tmp48092 '0 _datums11182_)))) (_symbolic-datums?8742_ (lambda (_datums11176_) - (let ((__tmp47916 + (let ((__tmp48093 (lambda (_lst11179_) (let () (declare (not safe)) (andmap1 symbol? _lst11179_))))) (declare (not safe)) - (andmap1 __tmp47916 _datums11176_)))) + (andmap1 __tmp48093 _datums11176_)))) (_char-datums?8743_ (lambda (_datums11170_) - (let ((__tmp47917 + (let ((__tmp48094 (lambda (_lst11173_) (let () (declare (not safe)) (andmap1 char? _lst11173_))))) (declare (not safe)) - (andmap1 __tmp47917 _datums11170_)))) + (andmap1 __tmp48094 _datums11170_)))) (_fixnum-datums?8744_ (lambda (_datums11164_) - (let ((__tmp47918 + (let ((__tmp48095 (lambda (_lst11167_) (let () (declare (not safe)) (andmap1 fixnum? _lst11167_))))) (declare (not safe)) - (andmap1 __tmp47918 _datums11164_)))) + (andmap1 __tmp48095 _datums11164_)))) (_eq-datums?8745_ (lambda (_datums11147_) - (let ((__tmp47919 + (let ((__tmp48096 (lambda (_lst11150_) - (let ((__tmp47920 + (let ((__tmp48097 (lambda (_x11153_) (let ((_$e11156_ (let () @@ -4801,9 +4801,9 @@ (immediate? _x11153_))))))))) (declare (not safe)) - (andmap1 __tmp47920 _lst11150_))))) + (andmap1 __tmp48097 _lst11150_))))) (declare (not safe)) - (andmap1 __tmp47919 _datums11147_)))) + (andmap1 __tmp48096 _datums11147_)))) (_generate-simple-case8746_ (lambda (_e10911_ _datums10913_ @@ -4823,14 +4823,14 @@ _datums10913_) (_dispatch10949_ _dispatch10914_)) - (let* ((___stx4311243113_ _datums10947_) + (let* ((___stx4328943290_ _datums10947_) (_g1095210973_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4311243113_)))) - (let ((___kont4311543116_ + ___stx4328943290_)))) + (let ((___kont4329243293_ (lambda (_L11031_ _L11033_) (let* ((_g1105311065_ (lambda (_g1105411061_) @@ -4864,48 +4864,48 @@ (lambda (_g1109711108_) ((lambda (_L11111_) (let () - (let ((__tmp47932 + (let ((__tmp48109 (gx#datum->syntax '#f 'if)) - (__tmp47921 - (let ((__tmp47924 - (let ((__tmp47931 + (__tmp48098 + (let ((__tmp48101 + (let ((__tmp48108 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'or)) - (__tmp47925 - (let ((__tmp47926 + (__tmp48102 + (let ((__tmp48103 (lambda (_g1112211125_ _g1112311128_) - (let ((__tmp47927 - (let ((__tmp47930 + (let ((__tmp48104 + (let ((__tmp48107 (gx#datum->syntax '#f '~case-test)) - (__tmp47928 - (let ((__tmp47929 + (__tmp48105 + (let ((__tmp48106 (let () (declare (not safe)) (cons _L10932_ '())))) (declare (not safe)) (cons _g1112211125_ - __tmp47929)))) + __tmp48106)))) (declare (not safe)) - (cons __tmp47930 __tmp47928)))) + (cons __tmp48107 __tmp48105)))) (declare (not safe)) - (cons __tmp47927 _g1112311128_))))) + (cons __tmp48104 _g1112311128_))))) (declare (not safe)) - (foldr1 __tmp47926 '() _L11033_)))) + (foldr1 __tmp48103 '() _L11033_)))) (declare (not safe)) - (cons __tmp47931 __tmp47925))) - (__tmp47922 - (let ((__tmp47923 + (cons __tmp48108 __tmp48102))) + (__tmp48099 + (let ((__tmp48100 (let () (declare (not safe)) (cons _L11111_ '())))) (declare (not safe)) - (cons _L11084_ __tmp47923)))) + (cons _L11084_ __tmp48100)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47924 - __tmp47922)))) + (cons __tmp48101 + __tmp48099)))) (declare (not safe)) - (cons __tmp47932 __tmp47921)))) + (cons __tmp48109 __tmp48098)))) _g1109711108_)))) (_g1109511131_ (_recur10944_ _L11031_ _L11082_)))) @@ -4915,13 +4915,13 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1105211135_ _dispatch10949_)))) - (___kont4311943120_ + (___kont4329643297_ (lambda () _default10915_))) - (let ((___match4313543136_ + (let ((___match4331243313_ (lambda (_e1095810991_ _hd1095710995_ _tl1095610998_ - ___splice4311743118_ + ___splice4329443295_ _target1095911001_ _tl1096111004_) (letrec ((_loop1096211007_ @@ -4945,17 +4945,17 @@ (cons _lp-hd1096411021_ _datum1096611014_))))) (let ((_datum1096711027_ (reverse _datum1096611014_))) - (___kont4311543116_ + (___kont4329243293_ _tl1095610998_ _datum1096711027_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_loop1096211007_ _target1095911001_ '()))))) - (if (gx#stx-pair? ___stx4311243113_) + (if (gx#stx-pair? ___stx4328943290_) (let ((_e1095810991_ (gx#syntax-e - ___stx4311243113_))) + ___stx4328943290_))) (let ((_tl1095610998_ (let () (declare (not safe)) @@ -4966,7 +4966,7 @@ (##car _e1095810991_)))) (if (gx#stx-pair/null? _hd1095710995_) - (let ((___splice4311743118_ + (let ((___splice4329443295_ (gx#syntax-split-splice _hd1095710995_ '0))) @@ -4974,23 +4974,23 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4311743118_ '1))) + (##vector-ref ___splice4329443295_ '1))) (_target1095911001_ (let () (declare (not safe)) - (##vector-ref ___splice4311743118_ '0)))) + (##vector-ref ___splice4329443295_ '0)))) (if (gx#stx-null? _tl1096111004_) - (___match4313543136_ + (___match4331243313_ _e1095810991_ _hd1095710995_ _tl1095610998_ - ___splice4311743118_ + ___splice4329443295_ _target1095911001_ _tl1096111004_) - (___kont4311943120_)))) - (___kont4311943120_)))) + (___kont4329643297_)))) + (___kont4329643297_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4311943120_)))))))) + (___kont4329643297_)))))))) _g1091810929_)))) (_g1091611143_ _e10911_)))) (_datum-dispatch-index8747_ @@ -4998,31 +4998,31 @@ (let _lp10786_ ((_rest10789_ _datums10783_) (_ix10791_ '0) (_r10792_ '())) - (let* ((___stx4313843139_ _rest10789_) + (let* ((___stx4331543316_ _rest10789_) (_g1079510816_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4313843139_)))) - (let ((___kont4314143142_ + ___stx4331543316_)))) + (let ((___kont4331843319_ (lambda (_L10874_ _L10876_) (_lp10786_ _L10874_ (let () (declare (not safe)) (fx+ _ix10791_ '1)) - (let ((__tmp47935 + (let ((__tmp48112 (lambda (_x10895_ _r10897_) - (let ((__tmp47936 + (let ((__tmp48113 (let () (declare (not safe)) (cons _x10895_ _ix10791_)))) (declare (not safe)) - (cons __tmp47936 _r10897_)))) - (__tmp47933 - (let ((__tmp47934 + (cons __tmp48113 _r10897_)))) + (__tmp48110 + (let ((__tmp48111 (lambda (_g1089810901_ _g1089910904_) (let () @@ -5030,15 +5030,15 @@ (cons _g1089810901_ _g1089910904_))))) (declare (not safe)) - (foldr1 __tmp47934 '() _L10876_)))) + (foldr1 __tmp48111 '() _L10876_)))) (declare (not safe)) - (foldl1 __tmp47935 _r10792_ __tmp47933))))) - (___kont4314543146_ (lambda () _r10792_))) - (let ((___match4316143162_ + (foldl1 __tmp48112 _r10792_ __tmp48110))))) + (___kont4332243323_ (lambda () _r10792_))) + (let ((___match4333843339_ (lambda (_e1080110834_ _hd1080010838_ _tl1079910841_ - ___splice4314343144_ + ___splice4332043321_ _target1080210844_ _tl1080410847_) (letrec ((_loop1080510850_ @@ -5067,15 +5067,15 @@ _datum1080910857_))))) (let ((_datum1081010870_ (reverse _datum1080910857_))) - (___kont4314143142_ + (___kont4331843319_ _tl1079910841_ _datum1081010870_)))))) (_loop1080510850_ _target1080210844_ '()))))) - (if (gx#stx-pair? ___stx4313843139_) + (if (gx#stx-pair? ___stx4331543316_) (let ((_e1080110834_ - (gx#syntax-e ___stx4313843139_))) + (gx#syntax-e ___stx4331543316_))) (let ((_tl1079910841_ (let () (declare (not safe)) @@ -5085,7 +5085,7 @@ (declare (not safe)) (##car _e1080110834_)))) (if (gx#stx-pair/null? _hd1080010838_) - (let ((___splice4314343144_ + (let ((___splice4332043321_ (gx#syntax-split-splice _hd1080010838_ '0))) @@ -5093,25 +5093,25 @@ (let () (declare (not safe)) (##vector-ref - ___splice4314343144_ + ___splice4332043321_ '1))) (_target1080210844_ (let () (declare (not safe)) (##vector-ref - ___splice4314343144_ + ___splice4332043321_ '0)))) (if (gx#stx-null? _tl1080410847_) - (___match4316143162_ + (___match4333843339_ _e1080110834_ _hd1080010838_ _tl1079910841_ - ___splice4314343144_ + ___splice4332043321_ _target1080210844_ _tl1080410847_) - (___kont4314543146_)))) - (___kont4314543146_)))) - (___kont4314543146_)))))))) + (___kont4332243323_)))) + (___kont4332243323_)))) + (___kont4332243323_)))))))) (_duplicate-indexes?8748_ (lambda (_xs10764_) (let ((_ht10767_ @@ -5287,210 +5287,210 @@ _L10487_ _L10488_) (let () - (let ((__tmp48095 (gx#datum->syntax '#f 'let)) - (__tmp48031 - (let ((__tmp48082 - (let ((__tmp48089 - (let ((__tmp48090 - (let ((__tmp48091 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48094 (gx#datum->syntax '#f 'lambda)) - (__tmp48092 - (let ((__tmp48093 + (let ((__tmp48272 (gx#datum->syntax '#f 'let)) + (__tmp48208 + (let ((__tmp48259 + (let ((__tmp48266 + (let ((__tmp48267 + (let ((__tmp48268 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48271 (gx#datum->syntax '#f 'lambda)) + (__tmp48269 + (let ((__tmp48270 (let () (declare (not safe)) (cons _L10484_ '())))) (declare (not safe)) - (cons '() __tmp48093)))) + (cons '() __tmp48270)))) (declare (not safe)) - (cons __tmp48094 __tmp48092)))) + (cons __tmp48271 __tmp48269)))) (declare (not safe)) - (cons __tmp48091 '())))) + (cons __tmp48268 '())))) (declare (not safe)) - (cons _L10487_ __tmp48090))) + (cons _L10487_ __tmp48267))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48083 - (let ((__tmp48084 - (let ((__tmp48085 + (__tmp48260 + (let ((__tmp48261 + (let ((__tmp48262 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48086 - (let ((__tmp48088 + (let ((__tmp48263 + (let ((__tmp48265 (gx#datum->syntax '#f 'quote)) - (__tmp48087 + (__tmp48264 (let () (declare (not safe)) (cons _L10483_ '())))) (declare (not safe)) - (cons __tmp48088 __tmp48087)))) + (cons __tmp48265 __tmp48264)))) (declare (not safe)) - (cons __tmp48086 '())))) + (cons __tmp48263 '())))) (declare (not safe)) - (cons _L10486_ __tmp48085)))) + (cons _L10486_ __tmp48262)))) (declare (not safe)) - (cons __tmp48084 '())))) + (cons __tmp48261 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48089 __tmp48083))) - (__tmp48032 - (let ((__tmp48033 - (let ((__tmp48081 + (cons __tmp48266 __tmp48260))) + (__tmp48209 + (let ((__tmp48210 + (let ((__tmp48258 (gx#datum->syntax '#f 'if)) - (__tmp48034 - (let ((__tmp48078 + (__tmp48211 + (let ((__tmp48255 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48080 (gx#datum->syntax '#f 'symbol?)) - (__tmp48079 + (let ((__tmp48257 (gx#datum->syntax '#f 'symbol?)) + (__tmp48256 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48080 __tmp48079))) - (__tmp48035 - (let ((__tmp48038 - (let ((__tmp48077 + (cons __tmp48257 __tmp48256))) + (__tmp48212 + (let ((__tmp48215 + (let ((__tmp48254 (gx#datum->syntax '#f 'let*)) - (__tmp48039 - (let ((__tmp48052 - (let ((__tmp48071 - (let ((__tmp48076 + (__tmp48216 + (let ((__tmp48229 + (let ((__tmp48248 + (let ((__tmp48253 (gx#datum->syntax '#f 'h)) - (__tmp48072 - (let ((__tmp48073 + (__tmp48249 + (let ((__tmp48250 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48075 + (let ((__tmp48252 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp48074 + (__tmp48251 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48075 __tmp48074)))) + (cons __tmp48252 __tmp48251)))) (declare (not safe)) - (cons __tmp48073 '())))) + (cons __tmp48250 '())))) (declare (not safe)) - (cons __tmp48076 __tmp48072))) - (__tmp48053 - (let ((__tmp48063 - (let ((__tmp48070 (gx#datum->syntax '#f 'ix)) - (__tmp48064 - (let ((__tmp48065 - (let ((__tmp48069 + (cons __tmp48253 __tmp48249))) + (__tmp48230 + (let ((__tmp48240 + (let ((__tmp48247 (gx#datum->syntax '#f 'ix)) + (__tmp48241 + (let ((__tmp48242 + (let ((__tmp48246 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48066 - (let ((__tmp48068 + (__tmp48243 + (let ((__tmp48245 (gx#datum->syntax '#f 'h)) - (__tmp48067 + (__tmp48244 (let () (declare (not safe)) (cons _L10481_ '())))) (declare (not safe)) - (cons __tmp48068 __tmp48067)))) + (cons __tmp48245 __tmp48244)))) (declare (not safe)) - (cons __tmp48069 __tmp48066)))) + (cons __tmp48246 __tmp48243)))) (declare (not safe)) - (cons __tmp48065 '())))) + (cons __tmp48242 '())))) (declare (not safe)) - (cons __tmp48070 __tmp48064))) - (__tmp48054 - (let ((__tmp48055 - (let ((__tmp48062 (gx#datum->syntax '#f 'q)) - (__tmp48056 - (let ((__tmp48057 - (let ((__tmp48061 + (cons __tmp48247 __tmp48241))) + (__tmp48231 + (let ((__tmp48232 + (let ((__tmp48239 (gx#datum->syntax '#f 'q)) + (__tmp48233 + (let ((__tmp48234 + (let ((__tmp48238 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48058 - (let ((__tmp48059 - (let ((__tmp48060 + (__tmp48235 + (let ((__tmp48236 + (let ((__tmp48237 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48060 '())))) + (cons __tmp48237 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons _L10486_ - __tmp48059)))) + __tmp48236)))) (declare (not safe)) - (cons __tmp48061 __tmp48058)))) + (cons __tmp48238 __tmp48235)))) (declare (not safe)) - (cons __tmp48057 '())))) + (cons __tmp48234 '())))) (declare (not safe)) - (cons __tmp48062 __tmp48056)))) + (cons __tmp48239 __tmp48233)))) (declare (not safe)) - (cons __tmp48055 '())))) + (cons __tmp48232 '())))) (declare (not safe)) - (cons __tmp48063 __tmp48054)))) + (cons __tmp48240 __tmp48231)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48071 - __tmp48053))) - (__tmp48040 - (let ((__tmp48041 - (let ((__tmp48051 + (cons __tmp48248 + __tmp48230))) + (__tmp48217 + (let ((__tmp48218 + (let ((__tmp48228 (gx#datum->syntax '#f 'if)) - (__tmp48042 - (let ((__tmp48046 + (__tmp48219 + (let ((__tmp48223 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48050 (gx#datum->syntax '#f 'eq?)) - (__tmp48047 - (let ((__tmp48049 + (let ((__tmp48227 (gx#datum->syntax '#f 'eq?)) + (__tmp48224 + (let ((__tmp48226 (gx#datum->syntax '#f 'q)) - (__tmp48048 + (__tmp48225 (let () (declare (not safe)) (cons _L10488_ '())))) (declare (not safe)) - (cons __tmp48049 __tmp48048)))) + (cons __tmp48226 __tmp48225)))) (declare (not safe)) - (cons __tmp48050 __tmp48047))) - (__tmp48043 - (let ((__tmp48044 - (let ((__tmp48045 + (cons __tmp48227 __tmp48224))) + (__tmp48220 + (let ((__tmp48221 + (let ((__tmp48222 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp48045 '())))) + (cons __tmp48222 '())))) (declare (not safe)) - (cons _L10485_ __tmp48044)))) + (cons _L10485_ __tmp48221)))) (declare (not safe)) - (cons __tmp48046 __tmp48043)))) + (cons __tmp48223 __tmp48220)))) (declare (not safe)) - (cons __tmp48051 __tmp48042)))) + (cons __tmp48228 __tmp48219)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48041 '())))) + (cons __tmp48218 '())))) (declare (not safe)) - (cons __tmp48052 __tmp48040)))) + (cons __tmp48229 __tmp48217)))) (declare (not safe)) - (cons __tmp48077 __tmp48039))) - (__tmp48036 - (let ((__tmp48037 + (cons __tmp48254 __tmp48216))) + (__tmp48213 + (let ((__tmp48214 (let () (declare (not safe)) (cons _L10487_ '())))) (declare (not safe)) - (cons __tmp48037 '())))) + (cons __tmp48214 '())))) (declare (not safe)) - (cons __tmp48038 __tmp48036)))) + (cons __tmp48215 __tmp48213)))) (declare (not safe)) - (cons __tmp48078 __tmp48035)))) + (cons __tmp48255 __tmp48212)))) (declare (not safe)) - (cons __tmp48081 __tmp48034)))) + (cons __tmp48258 __tmp48211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48033 '())))) + (cons __tmp48210 '())))) (declare (not safe)) - (cons __tmp48082 __tmp48032)))) + (cons __tmp48259 __tmp48209)))) (declare (not safe)) - (cons __tmp48095 __tmp48031)))) + (cons __tmp48272 __tmp48208)))) _hd1038710475_ _hd1038410465_ _hd1038110455_ @@ -5572,30 +5572,30 @@ (declare (not safe)) (##cdr _e1054910610_)))) (if (gx#stx-pair/null? _hd1054810614_) - (let ((_g47937_ + (let ((_g48114_ (gx#syntax-split-splice _hd1054810614_ '0))) (begin - (let ((_g47938_ + (let ((_g48115_ (let () (declare (not safe)) - (if (##values? _g47937_) - (##vector-length _g47937_) + (if (##values? _g48114_) + (##vector-length _g48114_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g47938_ 2))) + (##fx= _g48115_ 2))) (error "Context expects 2 values" - _g47938_))) + _g48115_))) (let ((_target1055010620_ (let () (declare (not safe)) - (##vector-ref _g47937_ 0))) + (##vector-ref _g48114_ 0))) (_tl1055210623_ (let () (declare (not safe)) - (##vector-ref _g47937_ 1)))) + (##vector-ref _g48114_ 1)))) (if (gx#stx-null? _tl1055210623_) (letrec ((_loop1055310626_ (lambda (_hd1055110630_ @@ -5658,97 +5658,97 @@ _L10686_ _L10687_) (let () - (let ((__tmp48030 + (let ((__tmp48207 (gx#datum->syntax '#f 'let)) - (__tmp47939 - (let ((__tmp48017 + (__tmp48116 + (let ((__tmp48194 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48024 - (let ((__tmp48025 - (let ((__tmp48026 - (let ((__tmp48029 + (let ((__tmp48201 + (let ((__tmp48202 + (let ((__tmp48203 + (let ((__tmp48206 (gx#datum->syntax '#f 'lambda)) - (__tmp48027 - (let ((__tmp48028 + (__tmp48204 + (let ((__tmp48205 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10683_ '())))) (declare (not safe)) - (cons '() __tmp48028)))) + (cons '() __tmp48205)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48029 - __tmp48027)))) + (cons __tmp48206 + __tmp48204)))) (declare (not safe)) - (cons __tmp48026 '())))) + (cons __tmp48203 '())))) (declare (not safe)) - (cons _L10686_ __tmp48025))) - (__tmp48018 - (let ((__tmp48019 - (let ((__tmp48020 - (let ((__tmp48021 - (let ((__tmp48023 + (cons _L10686_ __tmp48202))) + (__tmp48195 + (let ((__tmp48196 + (let ((__tmp48197 + (let ((__tmp48198 + (let ((__tmp48200 (gx#datum->syntax '#f 'quote)) - (__tmp48022 + (__tmp48199 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L10682_ '())))) (declare (not safe)) - (cons __tmp48023 __tmp48022)))) + (cons __tmp48200 __tmp48199)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48021 '())))) + (cons __tmp48198 '())))) (declare (not safe)) - (cons _L10685_ __tmp48020)))) + (cons _L10685_ __tmp48197)))) (declare (not safe)) - (cons __tmp48019 '())))) + (cons __tmp48196 '())))) (declare (not safe)) - (cons __tmp48024 __tmp48018))) - (__tmp47940 - (let ((__tmp47941 - (let ((__tmp48016 (gx#datum->syntax '#f 'if)) - (__tmp47942 - (let ((__tmp48013 - (let ((__tmp48015 + (cons __tmp48201 __tmp48195))) + (__tmp48117 + (let ((__tmp48118 + (let ((__tmp48193 (gx#datum->syntax '#f 'if)) + (__tmp48119 + (let ((__tmp48190 + (let ((__tmp48192 (gx#datum->syntax '#f 'symbol?)) - (__tmp48014 + (__tmp48191 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp48015 - __tmp48014))) - (__tmp47943 - (let ((__tmp47946 - (let ((__tmp48012 + (cons __tmp48192 + __tmp48191))) + (__tmp48120 + (let ((__tmp48123 + (let ((__tmp48189 (gx#datum->syntax '#f 'let*)) - (__tmp47947 - (let ((__tmp47987 + (__tmp48124 + (let ((__tmp48164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48006 - (let ((__tmp48011 + (let ((__tmp48183 + (let ((__tmp48188 (gx#datum->syntax '#f 'h)) - (__tmp48007 - (let ((__tmp48008 - (let ((__tmp48010 + (__tmp48184 + (let ((__tmp48185 + (let ((__tmp48187 (gx#datum->syntax '#f '##symbol-hash)) - (__tmp48009 + (__tmp48186 (let () (declare (not safe)) (cons _L10687_ @@ -5756,214 +5756,214 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48010 - __tmp48009)))) + (cons __tmp48187 + __tmp48186)))) (declare (not safe)) - (cons __tmp48008 '())))) + (cons __tmp48185 '())))) (declare (not safe)) - (cons __tmp48011 __tmp48007))) - (__tmp47988 - (let ((__tmp47998 - (let ((__tmp48005 + (cons __tmp48188 __tmp48184))) + (__tmp48165 + (let ((__tmp48175 + (let ((__tmp48182 (gx#datum->syntax '#f 'ix)) - (__tmp47999 - (let ((__tmp48000 - (let ((__tmp48004 + (__tmp48176 + (let ((__tmp48177 + (let ((__tmp48181 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fxmodulo)) - (__tmp48001 - (let ((__tmp48003 (gx#datum->syntax '#f 'h)) - (__tmp48002 + (__tmp48178 + (let ((__tmp48180 (gx#datum->syntax '#f 'h)) + (__tmp48179 (let () (declare (not safe)) (cons _L10680_ '())))) (declare (not safe)) - (cons __tmp48003 __tmp48002)))) + (cons __tmp48180 __tmp48179)))) (declare (not safe)) - (cons __tmp48004 __tmp48001)))) + (cons __tmp48181 __tmp48178)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48000 '())))) + (cons __tmp48177 '())))) (declare (not safe)) - (cons __tmp48005 __tmp47999))) - (__tmp47989 - (let ((__tmp47990 - (let ((__tmp47997 + (cons __tmp48182 __tmp48176))) + (__tmp48166 + (let ((__tmp48167 + (let ((__tmp48174 (gx#datum->syntax '#f 'q)) - (__tmp47991 - (let ((__tmp47992 - (let ((__tmp47996 + (__tmp48168 + (let ((__tmp48169 + (let ((__tmp48173 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp47993 - (let ((__tmp47994 - (let ((__tmp47995 + (__tmp48170 + (let ((__tmp48171 + (let ((__tmp48172 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp47995 '())))) + (cons __tmp48172 '())))) (declare (not safe)) - (cons _L10685_ __tmp47994)))) + (cons _L10685_ __tmp48171)))) (declare (not safe)) - (cons __tmp47996 __tmp47993)))) + (cons __tmp48173 __tmp48170)))) (declare (not safe)) - (cons __tmp47992 '())))) + (cons __tmp48169 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47997 - __tmp47991)))) + (cons __tmp48174 + __tmp48168)))) (declare (not safe)) - (cons __tmp47990 '())))) + (cons __tmp48167 '())))) (declare (not safe)) - (cons __tmp47998 __tmp47989)))) + (cons __tmp48175 __tmp48166)))) (declare (not safe)) - (cons __tmp48006 __tmp47988))) - (__tmp47948 - (let ((__tmp47949 - (let ((__tmp47986 + (cons __tmp48183 __tmp48165))) + (__tmp48125 + (let ((__tmp48126 + (let ((__tmp48163 (gx#datum->syntax '#f 'if)) - (__tmp47950 - (let ((__tmp47985 + (__tmp48127 + (let ((__tmp48162 (gx#datum->syntax '#f 'q)) - (__tmp47951 - (let ((__tmp47954 - (let ((__tmp47984 + (__tmp48128 + (let ((__tmp48131 + (let ((__tmp48161 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if)) - (__tmp47955 - (let ((__tmp47976 - (let ((__tmp47983 (gx#datum->syntax '#f 'eq?)) - (__tmp47977 - (let ((__tmp47979 - (let ((__tmp47982 + (__tmp48132 + (let ((__tmp48153 + (let ((__tmp48160 (gx#datum->syntax '#f 'eq?)) + (__tmp48154 + (let ((__tmp48156 + (let ((__tmp48159 (gx#datum->syntax '#f '##car)) - (__tmp47980 - (let ((__tmp47981 + (__tmp48157 + (let ((__tmp48158 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp47981 '())))) + (cons __tmp48158 '())))) (declare (not safe)) - (cons __tmp47982 __tmp47980))) - (__tmp47978 + (cons __tmp48159 __tmp48157))) + (__tmp48155 (let () (declare (not safe)) (cons _L10687_ '())))) (declare (not safe)) - (cons __tmp47979 __tmp47978)))) + (cons __tmp48156 __tmp48155)))) (declare (not safe)) - (cons __tmp47983 __tmp47977))) - (__tmp47956 - (let ((__tmp47959 - (let ((__tmp47975 + (cons __tmp48160 __tmp48154))) + (__tmp48133 + (let ((__tmp48136 + (let ((__tmp48152 (gx#datum->syntax '#f 'let)) - (__tmp47960 - (let ((__tmp47968 - (let ((__tmp47974 + (__tmp48137 + (let ((__tmp48145 + (let ((__tmp48151 (gx#datum->syntax '#f 'x)) - (__tmp47969 - (let ((__tmp47970 + (__tmp48146 + (let ((__tmp48147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp47973 (gx#datum->syntax '#f '##cdr)) - (__tmp47971 - (let ((__tmp47972 (gx#datum->syntax '#f 'q))) + (let ((__tmp48150 (gx#datum->syntax '#f '##cdr)) + (__tmp48148 + (let ((__tmp48149 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp47972 '())))) + (cons __tmp48149 '())))) (declare (not safe)) - (cons __tmp47973 __tmp47971)))) + (cons __tmp48150 __tmp48148)))) (declare (not safe)) - (cons __tmp47970 '())))) + (cons __tmp48147 '())))) (declare (not safe)) - (cons __tmp47974 __tmp47969))) + (cons __tmp48151 __tmp48146))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp47961 - (let ((__tmp47962 - (let ((__tmp47967 + (__tmp48138 + (let ((__tmp48139 + (let ((__tmp48144 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp47963 - (let ((__tmp47966 (gx#datum->syntax '#f 'x)) - (__tmp47964 - (let ((__tmp47965 + (__tmp48140 + (let ((__tmp48143 (gx#datum->syntax '#f 'x)) + (__tmp48141 + (let ((__tmp48142 (lambda (_g1072010723_ _g1072110726_) (let () (declare (not safe)) (cons _g1072010723_ _g1072110726_))))) (declare (not safe)) - (foldr1 __tmp47965 '() _L10684_)))) + (foldr1 __tmp48142 '() _L10684_)))) (declare (not safe)) - (cons __tmp47966 __tmp47964)))) + (cons __tmp48143 __tmp48141)))) (declare (not safe)) - (cons __tmp47967 __tmp47963)))) + (cons __tmp48144 __tmp48140)))) (declare (not safe)) - (cons __tmp47962 '())))) + (cons __tmp48139 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47968 __tmp47961)))) + (cons __tmp48145 __tmp48138)))) (declare (not safe)) - (cons __tmp47975 __tmp47960))) - (__tmp47957 - (let ((__tmp47958 + (cons __tmp48152 __tmp48137))) + (__tmp48134 + (let ((__tmp48135 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp47958 '())))) + (cons __tmp48135 '())))) (declare (not safe)) - (cons __tmp47959 __tmp47957)))) + (cons __tmp48136 __tmp48134)))) (declare (not safe)) - (cons __tmp47976 __tmp47956)))) + (cons __tmp48153 __tmp48133)))) (declare (not safe)) - (cons __tmp47984 __tmp47955))) - (__tmp47952 - (let ((__tmp47953 + (cons __tmp48161 __tmp48132))) + (__tmp48129 + (let ((__tmp48130 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp47953 '())))) + (cons __tmp48130 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47954 - __tmp47952)))) + (cons __tmp48131 + __tmp48129)))) (declare (not safe)) - (cons __tmp47985 __tmp47951)))) + (cons __tmp48162 __tmp48128)))) (declare (not safe)) - (cons __tmp47986 __tmp47950)))) + (cons __tmp48163 __tmp48127)))) (declare (not safe)) - (cons __tmp47949 '())))) + (cons __tmp48126 '())))) (declare (not safe)) - (cons __tmp47987 __tmp47948)))) + (cons __tmp48164 __tmp48125)))) (declare (not safe)) - (cons __tmp48012 __tmp47947))) - (__tmp47944 - (let ((__tmp47945 + (cons __tmp48189 __tmp48124))) + (__tmp48121 + (let ((__tmp48122 (let () (declare (not safe)) (cons _L10686_ '())))) (declare (not safe)) - (cons __tmp47945 '())))) + (cons __tmp48122 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp47946 - __tmp47944)))) + (cons __tmp48123 + __tmp48121)))) (declare (not safe)) - (cons __tmp48013 __tmp47943)))) + (cons __tmp48190 __tmp48120)))) (declare (not safe)) - (cons __tmp48016 __tmp47942)))) + (cons __tmp48193 __tmp48119)))) (declare (not safe)) - (cons __tmp47941 '())))) + (cons __tmp48118 '())))) (declare (not safe)) - (cons __tmp48017 __tmp47940)))) + (cons __tmp48194 __tmp48117)))) (declare (not safe)) - (cons __tmp48030 __tmp47939)))) + (cons __tmp48207 __tmp48116)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1056610674_ _hd1056310664_ @@ -5999,16 +5999,16 @@ (vector-length _tab10345_)))))))) (_max-char8751_ (lambda (_datums10325_) - (let ((__tmp48096 + (let ((__tmp48273 (lambda (_lst10328_ _r10330_) - (let ((__tmp48097 + (let ((__tmp48274 (lambda (_char10332_ _r10334_) (max (char->integer _char10332_) _r10334_)))) (declare (not safe)) - (foldl1 __tmp48097 _r10330_ _lst10328_))))) + (foldl1 __tmp48274 _r10330_ _lst10328_))))) (declare (not safe)) - (foldl1 __tmp48096 '0 _datums10325_)))) + (foldl1 __tmp48273 '0 _datums10325_)))) (_generate-char-dispatch-table8752_ (lambda (_indexes10304_) (let* ((_ixs10310_ @@ -6016,12 +6016,12 @@ (char->integer (car _x10307_))) _indexes10304_)) (_len10313_ - (let ((__tmp48098 + (let ((__tmp48275 (let () (declare (not safe)) (foldl1 max '0 _ixs10310_)))) (declare (not safe)) - (fx+ __tmp48098 '1))) + (fx+ __tmp48275 '1))) (_vec10316_ (make-vector _len10313_ '#f))) (for-each (lambda (_entry10321_ _x10323_) @@ -6169,167 +6169,167 @@ _L10028_ _L10029_) (let () - (let ((__tmp48219 (gx#datum->syntax '#f 'let)) - (__tmp48172 - (let ((__tmp48213 - (let ((__tmp48214 - (let ((__tmp48215 - (let ((__tmp48218 + (let ((__tmp48396 (gx#datum->syntax '#f 'let)) + (__tmp48349 + (let ((__tmp48390 + (let ((__tmp48391 + (let ((__tmp48392 + (let ((__tmp48395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48216 - (let ((__tmp48217 + (__tmp48393 + (let ((__tmp48394 (let () (declare (not safe)) (cons _L10026_ '())))) (declare (not safe)) - (cons '() __tmp48217)))) + (cons '() __tmp48394)))) (declare (not safe)) - (cons __tmp48218 __tmp48216)))) + (cons __tmp48395 __tmp48393)))) (declare (not safe)) - (cons __tmp48215 '())))) + (cons __tmp48392 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10028_ __tmp48214))) - (__tmp48173 - (let ((__tmp48174 - (let ((__tmp48212 + (cons _L10028_ __tmp48391))) + (__tmp48350 + (let ((__tmp48351 + (let ((__tmp48389 (gx#datum->syntax '#f 'if)) - (__tmp48175 - (let ((__tmp48209 + (__tmp48352 + (let ((__tmp48386 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48211 (gx#datum->syntax '#f 'char?)) - (__tmp48210 + (let ((__tmp48388 (gx#datum->syntax '#f 'char?)) + (__tmp48387 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48211 __tmp48210))) - (__tmp48176 - (let ((__tmp48179 - (let ((__tmp48208 (gx#datum->syntax '#f 'let)) - (__tmp48180 - (let ((__tmp48202 - (let ((__tmp48207 + (cons __tmp48388 __tmp48387))) + (__tmp48353 + (let ((__tmp48356 + (let ((__tmp48385 (gx#datum->syntax '#f 'let)) + (__tmp48357 + (let ((__tmp48379 + (let ((__tmp48384 (gx#datum->syntax '#f 'ix)) - (__tmp48203 - (let ((__tmp48204 - (let ((__tmp48206 + (__tmp48380 + (let ((__tmp48381 + (let ((__tmp48383 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##char->integer)) - (__tmp48205 + (__tmp48382 (let () (declare (not safe)) (cons _L10029_ '())))) (declare (not safe)) - (cons __tmp48206 __tmp48205)))) + (cons __tmp48383 __tmp48382)))) (declare (not safe)) - (cons __tmp48204 '())))) + (cons __tmp48381 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48207 __tmp48203))) - (__tmp48181 - (let ((__tmp48182 - (let ((__tmp48201 + (cons __tmp48384 __tmp48380))) + (__tmp48358 + (let ((__tmp48359 + (let ((__tmp48378 (gx#datum->syntax '#f 'if)) - (__tmp48183 - (let ((__tmp48187 + (__tmp48360 + (let ((__tmp48364 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48200 (gx#datum->syntax '#f 'and)) - (__tmp48188 - (let ((__tmp48195 - (let ((__tmp48199 + (let ((__tmp48377 (gx#datum->syntax '#f 'and)) + (__tmp48365 + (let ((__tmp48372 + (let ((__tmp48376 (gx#datum->syntax '#f '##fx>=)) - (__tmp48196 - (let ((__tmp48198 + (__tmp48373 + (let ((__tmp48375 (gx#datum->syntax '#f 'ix)) - (__tmp48197 + (__tmp48374 (let () (declare (not safe)) (cons _L10025_ '())))) (declare (not safe)) - (cons __tmp48198 - __tmp48197)))) + (cons __tmp48375 + __tmp48374)))) (declare (not safe)) - (cons __tmp48199 __tmp48196))) - (__tmp48189 - (let ((__tmp48190 - (let ((__tmp48194 + (cons __tmp48376 __tmp48373))) + (__tmp48366 + (let ((__tmp48367 + (let ((__tmp48371 (gx#datum->syntax '#f '##fx<)) - (__tmp48191 - (let ((__tmp48193 + (__tmp48368 + (let ((__tmp48370 (gx#datum->syntax '#f 'ix)) - (__tmp48192 + (__tmp48369 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons _L10023_ '())))) (declare (not safe)) - (cons __tmp48193 __tmp48192)))) + (cons __tmp48370 __tmp48369)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48194 - __tmp48191)))) + (cons __tmp48371 + __tmp48368)))) (declare (not safe)) - (cons __tmp48190 '())))) + (cons __tmp48367 '())))) (declare (not safe)) - (cons __tmp48195 __tmp48189)))) + (cons __tmp48372 __tmp48366)))) (declare (not safe)) - (cons __tmp48200 __tmp48188))) - (__tmp48184 - (let ((__tmp48185 - (let ((__tmp48186 + (cons __tmp48377 __tmp48365))) + (__tmp48361 + (let ((__tmp48362 + (let ((__tmp48363 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48186 '())))) + (cons __tmp48363 '())))) (declare (not safe)) - (cons _L10027_ __tmp48185)))) + (cons _L10027_ __tmp48362)))) (declare (not safe)) - (cons __tmp48187 __tmp48184)))) + (cons __tmp48364 __tmp48361)))) (declare (not safe)) - (cons __tmp48201 __tmp48183)))) + (cons __tmp48378 __tmp48360)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48182 '())))) + (cons __tmp48359 '())))) (declare (not safe)) - (cons __tmp48202 __tmp48181)))) + (cons __tmp48379 __tmp48358)))) (declare (not safe)) - (cons __tmp48208 __tmp48180))) - (__tmp48177 - (let ((__tmp48178 + (cons __tmp48385 __tmp48357))) + (__tmp48354 + (let ((__tmp48355 (let () (declare (not safe)) (cons _L10028_ '())))) (declare (not safe)) - (cons __tmp48178 '())))) + (cons __tmp48355 '())))) (declare (not safe)) - (cons __tmp48179 __tmp48177)))) + (cons __tmp48356 __tmp48354)))) (declare (not safe)) - (cons __tmp48209 __tmp48176)))) + (cons __tmp48386 __tmp48353)))) (declare (not safe)) - (cons __tmp48212 __tmp48175)))) + (cons __tmp48389 __tmp48352)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48174 '())))) + (cons __tmp48351 '())))) (declare (not safe)) - (cons __tmp48213 __tmp48173)))) + (cons __tmp48390 __tmp48350)))) (declare (not safe)) - (cons __tmp48219 __tmp48172)))) + (cons __tmp48396 __tmp48349)))) _hd993910017_ _hd993610007_ _hd99339997_ @@ -6408,30 +6408,30 @@ (declare (not safe)) (##cdr _e1008710148_)))) (if (gx#stx-pair/null? _hd1008610152_) - (let ((_g48099_ + (let ((_g48276_ (gx#syntax-split-splice _hd1008610152_ '0))) (begin - (let ((_g48100_ + (let ((_g48277_ (let () (declare (not safe)) - (if (##values? _g48099_) - (##vector-length _g48099_) + (if (##values? _g48276_) + (##vector-length _g48276_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48100_ 2))) + (##fx= _g48277_ 2))) (error "Context expects 2 values" - _g48100_))) + _g48277_))) (let ((_target1008810158_ (let () (declare (not safe)) - (##vector-ref _g48099_ 0))) + (##vector-ref _g48276_ 0))) (_tl1009010161_ (let () (declare (not safe)) - (##vector-ref _g48099_ 1)))) + (##vector-ref _g48276_ 1)))) (if (gx#stx-null? _tl1009010161_) (letrec ((_loop1009110164_ (lambda (_hd1008910168_ @@ -6497,64 +6497,64 @@ _L10224_ _L10225_) (let () - (let ((__tmp48171 + (let ((__tmp48348 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let)) - (__tmp48101 - (let ((__tmp48158 - (let ((__tmp48165 - (let ((__tmp48166 - (let ((__tmp48167 - (let ((__tmp48170 + (__tmp48278 + (let ((__tmp48335 + (let ((__tmp48342 + (let ((__tmp48343 + (let ((__tmp48344 + (let ((__tmp48347 (gx#datum->syntax '#f 'lambda)) - (__tmp48168 - (let ((__tmp48169 + (__tmp48345 + (let ((__tmp48346 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L10221_ '())))) (declare (not safe)) - (cons '() __tmp48169)))) + (cons '() __tmp48346)))) (declare (not safe)) - (cons __tmp48170 __tmp48168)))) + (cons __tmp48347 __tmp48345)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48167 '())))) + (cons __tmp48344 '())))) (declare (not safe)) - (cons _L10224_ __tmp48166))) - (__tmp48159 - (let ((__tmp48160 - (let ((__tmp48161 - (let ((__tmp48162 - (let ((__tmp48164 + (cons _L10224_ __tmp48343))) + (__tmp48336 + (let ((__tmp48337 + (let ((__tmp48338 + (let ((__tmp48339 + (let ((__tmp48341 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48163 + (__tmp48340 (let () (declare (not safe)) (cons _L10220_ '())))) (declare (not safe)) - (cons __tmp48164 __tmp48163)))) + (cons __tmp48341 __tmp48340)))) (declare (not safe)) - (cons __tmp48162 '())))) + (cons __tmp48339 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L10223_ __tmp48161)))) + (cons _L10223_ __tmp48338)))) (declare (not safe)) - (cons __tmp48160 '())))) + (cons __tmp48337 '())))) (declare (not safe)) - (cons __tmp48165 __tmp48159))) - (__tmp48102 - (let ((__tmp48103 - (let ((__tmp48157 + (cons __tmp48342 __tmp48336))) + (__tmp48279 + (let ((__tmp48280 + (let ((__tmp48334 (gx#datum->syntax '#f 'if)) - (__tmp48104 - (let ((__tmp48154 - (let ((__tmp48156 + (__tmp48281 + (let ((__tmp48331 + (let ((__tmp48333 (gx#datum->syntax '#f 'char?)) - (__tmp48155 + (__tmp48332 (let () (declare (not safe)) @@ -6562,103 +6562,103 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48156 __tmp48155))) + (cons __tmp48333 __tmp48332))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48105 - (let ((__tmp48108 - (let ((__tmp48153 + (__tmp48282 + (let ((__tmp48285 + (let ((__tmp48330 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48109 - (let ((__tmp48147 - (let ((__tmp48152 (gx#datum->syntax '#f 'ix)) - (__tmp48148 - (let ((__tmp48149 - (let ((__tmp48151 + (__tmp48286 + (let ((__tmp48324 + (let ((__tmp48329 (gx#datum->syntax '#f 'ix)) + (__tmp48325 + (let ((__tmp48326 + (let ((__tmp48328 (gx#datum->syntax '#f '##char->integer)) - (__tmp48150 + (__tmp48327 (let () (declare (not safe)) (cons _L10225_ '())))) (declare (not safe)) - (cons __tmp48151 - __tmp48150)))) + (cons __tmp48328 + __tmp48327)))) (declare (not safe)) - (cons __tmp48149 '())))) + (cons __tmp48326 '())))) (declare (not safe)) - (cons __tmp48152 __tmp48148))) - (__tmp48110 - (let ((__tmp48111 - (let ((__tmp48146 + (cons __tmp48329 __tmp48325))) + (__tmp48287 + (let ((__tmp48288 + (let ((__tmp48323 (gx#datum->syntax '#f 'if)) - (__tmp48112 - (let ((__tmp48141 - (let ((__tmp48145 + (__tmp48289 + (let ((__tmp48318 + (let ((__tmp48322 (gx#datum->syntax '#f '##fx<)) - (__tmp48142 - (let ((__tmp48144 + (__tmp48319 + (let ((__tmp48321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix)) - (__tmp48143 + (__tmp48320 (let () (declare (not safe)) (cons _L10218_ '())))) (declare (not safe)) - (cons __tmp48144 __tmp48143)))) + (cons __tmp48321 __tmp48320)))) (declare (not safe)) - (cons __tmp48145 __tmp48142))) + (cons __tmp48322 __tmp48319))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48113 - (let ((__tmp48116 - (let ((__tmp48140 + (__tmp48290 + (let ((__tmp48293 + (let ((__tmp48317 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'let)) - (__tmp48117 - (let ((__tmp48132 - (let ((__tmp48139 (gx#datum->syntax '#f 'x)) - (__tmp48133 - (let ((__tmp48134 - (let ((__tmp48138 + (__tmp48294 + (let ((__tmp48309 + (let ((__tmp48316 (gx#datum->syntax '#f 'x)) + (__tmp48310 + (let ((__tmp48311 + (let ((__tmp48315 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48135 - (let ((__tmp48136 - (let ((__tmp48137 + (__tmp48312 + (let ((__tmp48313 + (let ((__tmp48314 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48137 '())))) + (cons __tmp48314 '())))) (declare (not safe)) - (cons _L10223_ __tmp48136)))) + (cons _L10223_ __tmp48313)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48138 - __tmp48135)))) + (cons __tmp48315 + __tmp48312)))) (declare (not safe)) - (cons __tmp48134 '())))) + (cons __tmp48311 '())))) (declare (not safe)) - (cons __tmp48139 __tmp48133))) - (__tmp48118 - (let ((__tmp48119 - (let ((__tmp48131 + (cons __tmp48316 __tmp48310))) + (__tmp48295 + (let ((__tmp48296 + (let ((__tmp48308 (gx#datum->syntax '#f 'if)) - (__tmp48120 - (let ((__tmp48130 + (__tmp48297 + (let ((__tmp48307 (gx#datum->syntax '#f 'x)) - (__tmp48121 - (let ((__tmp48124 - (let ((__tmp48129 + (__tmp48298 + (let ((__tmp48301 + (let ((__tmp48306 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48125 - (let ((__tmp48128 (gx#datum->syntax '#f 'x)) - (__tmp48126 - (let ((__tmp48127 + (__tmp48302 + (let ((__tmp48305 (gx#datum->syntax '#f 'x)) + (__tmp48303 + (let ((__tmp48304 (lambda (_g1025810261_ _g1025910264_) (let () @@ -6666,69 +6666,69 @@ (cons _g1025810261_ _g1025910264_))))) (declare (not safe)) - (foldr1 __tmp48127 '() _L10222_)))) + (foldr1 __tmp48304 '() _L10222_)))) (declare (not safe)) - (cons __tmp48128 __tmp48126)))) + (cons __tmp48305 __tmp48303)))) (declare (not safe)) - (cons __tmp48129 __tmp48125))) - (__tmp48122 - (let ((__tmp48123 + (cons __tmp48306 __tmp48302))) + (__tmp48299 + (let ((__tmp48300 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48123 '())))) + (cons __tmp48300 '())))) (declare (not safe)) - (cons __tmp48124 __tmp48122)))) + (cons __tmp48301 __tmp48299)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48130 - __tmp48121)))) + (cons __tmp48307 + __tmp48298)))) (declare (not safe)) - (cons __tmp48131 __tmp48120)))) + (cons __tmp48308 __tmp48297)))) (declare (not safe)) - (cons __tmp48119 '())))) + (cons __tmp48296 '())))) (declare (not safe)) - (cons __tmp48132 __tmp48118)))) + (cons __tmp48309 __tmp48295)))) (declare (not safe)) - (cons __tmp48140 __tmp48117))) - (__tmp48114 - (let ((__tmp48115 + (cons __tmp48317 __tmp48294))) + (__tmp48291 + (let ((__tmp48292 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48115 '())))) + (cons __tmp48292 '())))) (declare (not safe)) - (cons __tmp48116 __tmp48114)))) + (cons __tmp48293 __tmp48291)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48141 - __tmp48113)))) + (cons __tmp48318 + __tmp48290)))) (declare (not safe)) - (cons __tmp48146 __tmp48112)))) + (cons __tmp48323 __tmp48289)))) (declare (not safe)) - (cons __tmp48111 '())))) + (cons __tmp48288 '())))) (declare (not safe)) - (cons __tmp48147 __tmp48110)))) + (cons __tmp48324 __tmp48287)))) (declare (not safe)) - (cons __tmp48153 __tmp48109))) - (__tmp48106 - (let ((__tmp48107 + (cons __tmp48330 __tmp48286))) + (__tmp48283 + (let ((__tmp48284 (let () (declare (not safe)) (cons _L10224_ '())))) (declare (not safe)) - (cons __tmp48107 '())))) + (cons __tmp48284 '())))) (declare (not safe)) - (cons __tmp48108 __tmp48106)))) + (cons __tmp48285 __tmp48283)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48154 __tmp48105)))) + (cons __tmp48331 __tmp48282)))) (declare (not safe)) - (cons __tmp48157 __tmp48104)))) + (cons __tmp48334 __tmp48281)))) (declare (not safe)) - (cons __tmp48103 '())))) + (cons __tmp48280 '())))) (declare (not safe)) - (cons __tmp48158 __tmp48102)))) + (cons __tmp48335 __tmp48279)))) (declare (not safe)) - (cons __tmp48171 __tmp48101)))) + (cons __tmp48348 __tmp48278)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1010410212_ _hd1010110202_ @@ -6826,28 +6826,28 @@ (declare (not safe)) (##cdr _e97069767_)))) (if (gx#stx-pair/null? _hd97059771_) - (let ((_g48220_ + (let ((_g48397_ (gx#syntax-split-splice _hd97059771_ '0))) (begin - (let ((_g48221_ + (let ((_g48398_ (let () (declare (not safe)) - (if (##values? _g48220_) - (##vector-length _g48220_) + (if (##values? _g48397_) + (##vector-length _g48397_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48221_ 2))) + (##fx= _g48398_ 2))) (error "Context expects 2 values" - _g48221_))) + _g48398_))) (let ((_target97079777_ (let () (declare (not safe)) - (##vector-ref _g48220_ 0))) + (##vector-ref _g48397_ 0))) (_tl97099780_ (let () (declare (not safe)) - (##vector-ref _g48220_ 1)))) + (##vector-ref _g48397_ 1)))) (if (gx#stx-null? _tl97099780_) (letrec ((_loop97109783_ (lambda (_hd97089787_ @@ -6908,22 +6908,22 @@ _L9843_ _L9844_) (let () - (let ((__tmp48313 + (let ((__tmp48490 (gx#datum->syntax '#f 'let)) - (__tmp48222 - (let ((__tmp48300 - (let ((__tmp48307 + (__tmp48399 + (let ((__tmp48477 + (let ((__tmp48484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48308 - (let ((__tmp48309 - (let ((__tmp48312 + (let ((__tmp48485 + (let ((__tmp48486 + (let ((__tmp48489 (gx#datum->syntax '#f 'lambda)) - (__tmp48310 - (let ((__tmp48311 + (__tmp48487 + (let ((__tmp48488 (let () (declare (not safe)) @@ -6932,22 +6932,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48311)))) + (cons '() __tmp48488)))) (declare (not safe)) - (cons __tmp48312 __tmp48310)))) + (cons __tmp48489 __tmp48487)))) (declare (not safe)) - (cons __tmp48309 '())))) + (cons __tmp48486 '())))) (declare (not safe)) - (cons _L9843_ __tmp48308))) - (__tmp48301 - (let ((__tmp48302 - (let ((__tmp48303 - (let ((__tmp48304 - (let ((__tmp48306 + (cons _L9843_ __tmp48485))) + (__tmp48478 + (let ((__tmp48479 + (let ((__tmp48480 + (let ((__tmp48481 + (let ((__tmp48483 (gx#datum->syntax '#f 'quote)) - (__tmp48305 + (__tmp48482 (let () (declare (not safe)) @@ -6956,222 +6956,222 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48306 - __tmp48305)))) + (cons __tmp48483 + __tmp48482)))) (declare (not safe)) - (cons __tmp48304 '())))) + (cons __tmp48481 '())))) (declare (not safe)) - (cons _L9842_ __tmp48303)))) + (cons _L9842_ __tmp48480)))) (declare (not safe)) - (cons __tmp48302 '())))) + (cons __tmp48479 '())))) (declare (not safe)) - (cons __tmp48307 __tmp48301))) - (__tmp48223 - (let ((__tmp48224 - (let ((__tmp48299 (gx#datum->syntax '#f 'if)) - (__tmp48225 - (let ((__tmp48296 - (let ((__tmp48298 + (cons __tmp48484 __tmp48478))) + (__tmp48400 + (let ((__tmp48401 + (let ((__tmp48476 (gx#datum->syntax '#f 'if)) + (__tmp48402 + (let ((__tmp48473 + (let ((__tmp48475 (gx#datum->syntax '#f 'char?)) - (__tmp48297 + (__tmp48474 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48298 __tmp48297))) - (__tmp48226 - (let ((__tmp48229 - (let ((__tmp48295 + (cons __tmp48475 __tmp48474))) + (__tmp48403 + (let ((__tmp48406 + (let ((__tmp48472 (gx#datum->syntax '#f 'let*)) - (__tmp48230 - (let ((__tmp48270 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48289 - (let ((__tmp48294 (gx#datum->syntax '#f 'h)) - (__tmp48290 - (let ((__tmp48291 - (let ((__tmp48293 + (__tmp48407 + (let ((__tmp48447 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48466 + (let ((__tmp48471 (gx#datum->syntax '#f 'h)) + (__tmp48467 + (let ((__tmp48468 + (let ((__tmp48470 (gx#datum->syntax '#f '##char->integer)) - (__tmp48292 + (__tmp48469 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48293 __tmp48292)))) + (cons __tmp48470 __tmp48469)))) (declare (not safe)) - (cons __tmp48291 '())))) + (cons __tmp48468 '())))) (declare (not safe)) - (cons __tmp48294 __tmp48290))) - (__tmp48271 - (let ((__tmp48281 - (let ((__tmp48288 + (cons __tmp48471 __tmp48467))) + (__tmp48448 + (let ((__tmp48458 + (let ((__tmp48465 (gx#datum->syntax '#f 'ix)) - (__tmp48282 - (let ((__tmp48283 - (let ((__tmp48287 + (__tmp48459 + (let ((__tmp48460 + (let ((__tmp48464 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48284 - (let ((__tmp48286 + (__tmp48461 + (let ((__tmp48463 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48285 + (__tmp48462 (let () (declare (not safe)) (cons _L9837_ '())))) (declare (not safe)) - (cons __tmp48286 __tmp48285)))) + (cons __tmp48463 __tmp48462)))) (declare (not safe)) - (cons __tmp48287 __tmp48284)))) + (cons __tmp48464 __tmp48461)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48283 '())))) + (cons __tmp48460 '())))) (declare (not safe)) - (cons __tmp48288 __tmp48282))) - (__tmp48272 - (let ((__tmp48273 - (let ((__tmp48280 + (cons __tmp48465 __tmp48459))) + (__tmp48449 + (let ((__tmp48450 + (let ((__tmp48457 (gx#datum->syntax '#f 'q)) - (__tmp48274 - (let ((__tmp48275 - (let ((__tmp48279 + (__tmp48451 + (let ((__tmp48452 + (let ((__tmp48456 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48276 - (let ((__tmp48277 - (let ((__tmp48278 + (__tmp48453 + (let ((__tmp48454 + (let ((__tmp48455 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48278 '())))) + (cons __tmp48455 '())))) (declare (not safe)) - (cons _L9842_ __tmp48277)))) + (cons _L9842_ __tmp48454)))) (declare (not safe)) - (cons __tmp48279 __tmp48276)))) + (cons __tmp48456 __tmp48453)))) (declare (not safe)) - (cons __tmp48275 '())))) + (cons __tmp48452 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48280 __tmp48274)))) + (cons __tmp48457 __tmp48451)))) (declare (not safe)) - (cons __tmp48273 '())))) + (cons __tmp48450 '())))) (declare (not safe)) - (cons __tmp48281 __tmp48272)))) + (cons __tmp48458 __tmp48449)))) (declare (not safe)) - (cons __tmp48289 __tmp48271))) - (__tmp48231 - (let ((__tmp48232 - (let ((__tmp48269 (gx#datum->syntax '#f 'if)) - (__tmp48233 - (let ((__tmp48268 + (cons __tmp48466 __tmp48448))) + (__tmp48408 + (let ((__tmp48409 + (let ((__tmp48446 (gx#datum->syntax '#f 'if)) + (__tmp48410 + (let ((__tmp48445 (gx#datum->syntax '#f 'q)) - (__tmp48234 - (let ((__tmp48237 - (let ((__tmp48267 + (__tmp48411 + (let ((__tmp48414 + (let ((__tmp48444 (gx#datum->syntax '#f 'if)) - (__tmp48238 - (let ((__tmp48259 + (__tmp48415 + (let ((__tmp48436 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48266 (gx#datum->syntax '#f 'eq?)) - (__tmp48260 - (let ((__tmp48262 - (let ((__tmp48265 + (let ((__tmp48443 (gx#datum->syntax '#f 'eq?)) + (__tmp48437 + (let ((__tmp48439 + (let ((__tmp48442 (gx#datum->syntax '#f '##car)) - (__tmp48263 - (let ((__tmp48264 + (__tmp48440 + (let ((__tmp48441 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48264 '())))) + (cons __tmp48441 '())))) (declare (not safe)) - (cons __tmp48265 __tmp48263))) - (__tmp48261 + (cons __tmp48442 __tmp48440))) + (__tmp48438 (let () (declare (not safe)) (cons _L9844_ '())))) (declare (not safe)) - (cons __tmp48262 __tmp48261)))) + (cons __tmp48439 __tmp48438)))) (declare (not safe)) - (cons __tmp48266 __tmp48260))) - (__tmp48239 - (let ((__tmp48242 - (let ((__tmp48258 + (cons __tmp48443 __tmp48437))) + (__tmp48416 + (let ((__tmp48419 + (let ((__tmp48435 (gx#datum->syntax '#f 'let)) - (__tmp48243 - (let ((__tmp48251 - (let ((__tmp48257 + (__tmp48420 + (let ((__tmp48428 + (let ((__tmp48434 (gx#datum->syntax '#f 'x)) - (__tmp48252 - (let ((__tmp48253 - (let ((__tmp48256 + (__tmp48429 + (let ((__tmp48430 + (let ((__tmp48433 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48254 - (let ((__tmp48255 (gx#datum->syntax '#f 'q))) + (__tmp48431 + (let ((__tmp48432 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48255 '())))) + (cons __tmp48432 '())))) (declare (not safe)) - (cons __tmp48256 __tmp48254)))) + (cons __tmp48433 __tmp48431)))) (declare (not safe)) - (cons __tmp48253 '())))) + (cons __tmp48430 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48257 - __tmp48252))) - (__tmp48244 - (let ((__tmp48245 - (let ((__tmp48250 + (cons __tmp48434 + __tmp48429))) + (__tmp48421 + (let ((__tmp48422 + (let ((__tmp48427 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48246 - (let ((__tmp48249 + (__tmp48423 + (let ((__tmp48426 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48247 - (let ((__tmp48248 + (__tmp48424 + (let ((__tmp48425 (lambda (_g98819884_ _g98829887_) (let () (declare (not safe)) (cons _g98819884_ _g98829887_))))) (declare (not safe)) - (foldr1 __tmp48248 '() _L9841_)))) + (foldr1 __tmp48425 '() _L9841_)))) (declare (not safe)) - (cons __tmp48249 __tmp48247)))) + (cons __tmp48426 __tmp48424)))) (declare (not safe)) - (cons __tmp48250 __tmp48246)))) + (cons __tmp48427 __tmp48423)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48245 '())))) + (cons __tmp48422 '())))) (declare (not safe)) - (cons __tmp48251 __tmp48244)))) + (cons __tmp48428 __tmp48421)))) (declare (not safe)) - (cons __tmp48258 __tmp48243))) - (__tmp48240 - (let ((__tmp48241 + (cons __tmp48435 __tmp48420))) + (__tmp48417 + (let ((__tmp48418 (let () (declare (not safe)) (cons _L9843_ '())))) (declare (not safe)) - (cons __tmp48241 '())))) + (cons __tmp48418 '())))) (declare (not safe)) - (cons __tmp48242 __tmp48240)))) + (cons __tmp48419 __tmp48417)))) (declare (not safe)) - (cons __tmp48259 __tmp48239)))) + (cons __tmp48436 __tmp48416)))) (declare (not safe)) - (cons __tmp48267 __tmp48238))) + (cons __tmp48444 __tmp48415))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48235 - (let ((__tmp48236 + (__tmp48412 + (let ((__tmp48413 (let () (declare (not safe)) @@ -7179,24 +7179,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48236 '())))) + (cons __tmp48413 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48237 __tmp48235)))) + (cons __tmp48414 __tmp48412)))) (declare (not safe)) - (cons __tmp48268 __tmp48234)))) + (cons __tmp48445 __tmp48411)))) (declare (not safe)) - (cons __tmp48269 __tmp48233)))) + (cons __tmp48446 __tmp48410)))) (declare (not safe)) - (cons __tmp48232 '())))) + (cons __tmp48409 '())))) (declare (not safe)) - (cons __tmp48270 __tmp48231)))) + (cons __tmp48447 __tmp48408)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48295 - __tmp48230))) - (__tmp48227 - (let ((__tmp48228 + (cons __tmp48472 + __tmp48407))) + (__tmp48404 + (let ((__tmp48405 (let () (declare (not safe)) @@ -7205,21 +7205,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48228 '())))) + (cons __tmp48405 '())))) (declare (not safe)) - (cons __tmp48229 __tmp48227)))) + (cons __tmp48406 __tmp48404)))) (declare (not safe)) - (cons __tmp48296 __tmp48226)))) + (cons __tmp48473 __tmp48403)))) (declare (not safe)) - (cons __tmp48299 __tmp48225)))) + (cons __tmp48476 __tmp48402)))) (declare (not safe)) - (cons __tmp48224 '())))) + (cons __tmp48401 '())))) (declare (not safe)) - (cons __tmp48300 __tmp48223)))) + (cons __tmp48477 __tmp48400)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48313 - __tmp48222)))) + (cons __tmp48490 + __tmp48399)))) _hd97239831_ _hd97209821_ _hd97179811_ @@ -7251,32 +7251,32 @@ (vector-length _tab9681_))))))) (_min-fixnum8757_ (lambda (_datums9665_) - (let ((__tmp48314 + (let ((__tmp48491 (lambda (_lst9668_ _r9670_) (let () (declare (not safe)) (foldl1 min _r9670_ _lst9668_))))) (declare (not safe)) - (foldl1 __tmp48314 ##max-fixnum _datums9665_)))) + (foldl1 __tmp48491 ##max-fixnum _datums9665_)))) (_max-fixnum8758_ (lambda (_datums9658_) - (let ((__tmp48315 + (let ((__tmp48492 (lambda (_lst9661_ _r9663_) (let () (declare (not safe)) (foldl1 max _r9663_ _lst9661_))))) (declare (not safe)) - (foldl1 __tmp48315 ##min-fixnum _datums9658_)))) + (foldl1 __tmp48492 ##min-fixnum _datums9658_)))) (_generate-fixnum-dispatch-table8759_ (lambda (_indexes9640_) (let* ((_ixs9643_ (map car _indexes9640_)) (_len9646_ - (let ((__tmp48316 + (let ((__tmp48493 (let () (declare (not safe)) (foldl1 max '0 _ixs9643_)))) (declare (not safe)) - (fx+ __tmp48316 '1))) + (fx+ __tmp48493 '1))) (_vec9649_ (make-vector _len9646_ '#f))) (for-each (lambda (_entry9654_ _x9656_) @@ -7294,9 +7294,9 @@ (_generate-fixnum-dispatch-table8759_ _indexes9380_)) (_dense?9386_ - (let ((__tmp48317 (vector->list _tab9383_))) + (let ((__tmp48494 (vector->list _tab9383_))) (declare (not safe)) - (andmap1 values __tmp48317)))) + (andmap1 values __tmp48494)))) (let* ((_g93919435_ (lambda (_g93929431_) (gx#raise-syntax-error @@ -7349,30 +7349,30 @@ (declare (not safe)) (##cdr _e94119472_)))) (if (gx#stx-pair/null? _hd94109476_) - (let ((_g48318_ + (let ((_g48495_ (gx#syntax-split-splice _hd94109476_ '0))) (begin - (let ((_g48319_ + (let ((_g48496_ (let () (declare (not safe)) - (if (##values? _g48318_) - (##vector-length _g48318_) + (if (##values? _g48495_) + (##vector-length _g48495_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48319_ 2))) + (##fx= _g48496_ 2))) (error "Context expects 2 values" - _g48319_))) + _g48496_))) (let ((_target94129482_ (let () (declare (not safe)) - (##vector-ref _g48318_ 0))) + (##vector-ref _g48495_ 0))) (_tl94149485_ (let () (declare (not safe)) - (##vector-ref _g48318_ 1)))) + (##vector-ref _g48495_ 1)))) (if (gx#stx-null? _tl94149485_) (letrec ((_loop94159488_ (lambda (_hd94139492_ @@ -7443,145 +7443,145 @@ ((lambda (_L9603_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp48373 (gx#datum->syntax '#f 'let)) - (__tmp48320 - (let ((__tmp48360 - (let ((__tmp48367 - (let ((__tmp48368 - (let ((__tmp48369 - (let ((__tmp48372 + (let ((__tmp48550 (gx#datum->syntax '#f 'let)) + (__tmp48497 + (let ((__tmp48537 + (let ((__tmp48544 + (let ((__tmp48545 + (let ((__tmp48546 + (let ((__tmp48549 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp48370 - (let ((__tmp48371 + (__tmp48547 + (let ((__tmp48548 (let () (declare (not safe)) (cons _L9545_ '())))) (declare (not safe)) - (cons '() __tmp48371)))) + (cons '() __tmp48548)))) (declare (not safe)) - (cons __tmp48372 __tmp48370)))) + (cons __tmp48549 __tmp48547)))) (declare (not safe)) - (cons __tmp48369 '())))) + (cons __tmp48546 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L9548_ __tmp48368))) - (__tmp48361 - (let ((__tmp48362 - (let ((__tmp48363 - (let ((__tmp48364 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48366 (gx#datum->syntax '#f 'quote)) - (__tmp48365 + (cons _L9548_ __tmp48545))) + (__tmp48538 + (let ((__tmp48539 + (let ((__tmp48540 + (let ((__tmp48541 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48543 (gx#datum->syntax '#f 'quote)) + (__tmp48542 (let () (declare (not safe)) (cons _L9544_ '())))) (declare (not safe)) - (cons __tmp48366 __tmp48365)))) + (cons __tmp48543 __tmp48542)))) (declare (not safe)) - (cons __tmp48364 '())))) + (cons __tmp48541 '())))) (declare (not safe)) - (cons _L9547_ __tmp48363)))) + (cons _L9547_ __tmp48540)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48362 '())))) + (cons __tmp48539 '())))) (declare (not safe)) - (cons __tmp48367 __tmp48361))) - (__tmp48321 - (let ((__tmp48322 - (let ((__tmp48359 + (cons __tmp48544 __tmp48538))) + (__tmp48498 + (let ((__tmp48499 + (let ((__tmp48536 (gx#datum->syntax '#f 'if)) - (__tmp48323 - (let ((__tmp48356 - (let ((__tmp48358 + (__tmp48500 + (let ((__tmp48533 + (let ((__tmp48535 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'fixnum?)) - (__tmp48357 + (__tmp48534 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons __tmp48358 __tmp48357))) - (__tmp48324 - (let ((__tmp48327 - (let ((__tmp48355 (gx#datum->syntax '#f 'if)) - (__tmp48328 - (let ((__tmp48343 - (let ((__tmp48354 + (cons __tmp48535 __tmp48534))) + (__tmp48501 + (let ((__tmp48504 + (let ((__tmp48532 (gx#datum->syntax '#f 'if)) + (__tmp48505 + (let ((__tmp48520 + (let ((__tmp48531 (gx#datum->syntax '#f 'and)) - (__tmp48344 - (let ((__tmp48350 - (let ((__tmp48353 + (__tmp48521 + (let ((__tmp48527 + (let ((__tmp48530 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##fx>=)) - (__tmp48351 - (let ((__tmp48352 + (__tmp48528 + (let ((__tmp48529 (let () (declare (not safe)) (cons '0 '())))) (declare (not safe)) - (cons _L9549_ __tmp48352)))) + (cons _L9549_ __tmp48529)))) (declare (not safe)) - (cons __tmp48353 __tmp48351))) - (__tmp48345 - (let ((__tmp48346 - (let ((__tmp48349 (gx#datum->syntax '#f '##fx<)) - (__tmp48347 - (let ((__tmp48348 + (cons __tmp48530 __tmp48528))) + (__tmp48522 + (let ((__tmp48523 + (let ((__tmp48526 (gx#datum->syntax '#f '##fx<)) + (__tmp48524 + (let ((__tmp48525 (let () (declare (not safe)) (cons _L9542_ '())))) (declare (not safe)) - (cons _L9549_ __tmp48348)))) + (cons _L9549_ __tmp48525)))) (declare (not safe)) - (cons __tmp48349 __tmp48347)))) + (cons __tmp48526 __tmp48524)))) (declare (not safe)) - (cons __tmp48346 '())))) + (cons __tmp48523 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48350 - __tmp48345)))) + (cons __tmp48527 + __tmp48522)))) (declare (not safe)) - (cons __tmp48354 __tmp48344))) - (__tmp48329 - (let ((__tmp48332 - (let ((__tmp48342 + (cons __tmp48531 __tmp48521))) + (__tmp48506 + (let ((__tmp48509 + (let ((__tmp48519 (gx#datum->syntax '#f 'let)) - (__tmp48333 - (let ((__tmp48335 + (__tmp48510 + (let ((__tmp48512 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48341 (gx#datum->syntax '#f 'x)) - (__tmp48336 - (let ((__tmp48337 - (let ((__tmp48340 + (let ((__tmp48518 (gx#datum->syntax '#f 'x)) + (__tmp48513 + (let ((__tmp48514 + (let ((__tmp48517 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48338 - (let ((__tmp48339 + (__tmp48515 + (let ((__tmp48516 (let () (declare (not safe)) (cons _L9549_ '())))) (declare (not safe)) - (cons _L9547_ __tmp48339)))) + (cons _L9547_ __tmp48516)))) (declare (not safe)) - (cons __tmp48340 __tmp48338)))) + (cons __tmp48517 __tmp48515)))) (declare (not safe)) - (cons __tmp48337 '())))) + (cons __tmp48514 '())))) (declare (not safe)) - (cons __tmp48341 __tmp48336))) - (__tmp48334 + (cons __tmp48518 __tmp48513))) + (__tmp48511 (let () (declare (not safe)) (cons _L9603_ '())))) (declare (not safe)) - (cons __tmp48335 __tmp48334)))) + (cons __tmp48512 __tmp48511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48342 - __tmp48333))) - (__tmp48330 - (let ((__tmp48331 + (cons __tmp48519 + __tmp48510))) + (__tmp48507 + (let ((__tmp48508 (let () (declare (not safe)) @@ -7590,68 +7590,68 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48331 '())))) + (cons __tmp48508 '())))) (declare (not safe)) - (cons __tmp48332 __tmp48330)))) + (cons __tmp48509 __tmp48507)))) (declare (not safe)) - (cons __tmp48343 __tmp48329)))) + (cons __tmp48520 __tmp48506)))) (declare (not safe)) - (cons __tmp48355 __tmp48328))) - (__tmp48325 - (let ((__tmp48326 + (cons __tmp48532 __tmp48505))) + (__tmp48502 + (let ((__tmp48503 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48326 '())))) + (cons __tmp48503 '())))) (declare (not safe)) - (cons __tmp48327 __tmp48325)))) + (cons __tmp48504 __tmp48502)))) (declare (not safe)) - (cons __tmp48356 __tmp48324)))) + (cons __tmp48533 __tmp48501)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48359 - __tmp48323)))) + (cons __tmp48536 + __tmp48500)))) (declare (not safe)) - (cons __tmp48322 '())))) + (cons __tmp48499 '())))) (declare (not safe)) - (cons __tmp48360 __tmp48321)))) + (cons __tmp48537 __tmp48498)))) (declare (not safe)) - (cons __tmp48373 __tmp48320)))) + (cons __tmp48550 __tmp48497)))) _g95899600_)))) (_g95879616_ (if _dense?9386_ - (let ((__tmp48390 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48386 - (let ((__tmp48389 (gx#datum->syntax '#f 'x)) - (__tmp48387 - (let ((__tmp48388 + (let ((__tmp48567 (gx#datum->syntax '#f '~case-dispatch)) + (__tmp48563 + (let ((__tmp48566 (gx#datum->syntax '#f 'x)) + (__tmp48564 + (let ((__tmp48565 (lambda (_g96199622_ _g96209625_) (let () (declare (not safe)) (cons _g96199622_ _g96209625_))))) (declare (not safe)) - (foldr1 __tmp48388 '() _L9546_)))) + (foldr1 __tmp48565 '() _L9546_)))) (declare (not safe)) - (cons __tmp48389 __tmp48387)))) + (cons __tmp48566 __tmp48564)))) (declare (not safe)) - (cons __tmp48390 __tmp48386)) - (let ((__tmp48385 (gx#datum->syntax '#f 'if)) - (__tmp48374 - (let ((__tmp48384 (gx#datum->syntax '#f 'x)) - (__tmp48375 - (let ((__tmp48378 - (let ((__tmp48383 + (cons __tmp48567 __tmp48563)) + (let ((__tmp48562 (gx#datum->syntax '#f 'if)) + (__tmp48551 + (let ((__tmp48561 (gx#datum->syntax '#f 'x)) + (__tmp48552 + (let ((__tmp48555 + (let ((__tmp48560 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48379 - (let ((__tmp48382 + (__tmp48556 + (let ((__tmp48559 (gx#datum->syntax '#f 'x)) - (__tmp48380 - (let ((__tmp48381 + (__tmp48557 + (let ((__tmp48558 (lambda (_g96279630_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g96289633_) @@ -7659,26 +7659,26 @@ (declare (not safe)) (cons _g96279630_ _g96289633_))))) (declare (not safe)) - (foldr1 __tmp48381 '() _L9546_)))) + (foldr1 __tmp48558 '() _L9546_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48382 - __tmp48380)))) + (cons __tmp48559 + __tmp48557)))) (declare (not safe)) - (cons __tmp48383 __tmp48379))) - (__tmp48376 - (let ((__tmp48377 + (cons __tmp48560 __tmp48556))) + (__tmp48553 + (let ((__tmp48554 (let () (declare (not safe)) (cons _L9548_ '())))) (declare (not safe)) - (cons __tmp48377 '())))) + (cons __tmp48554 '())))) (declare (not safe)) - (cons __tmp48378 __tmp48376)))) + (cons __tmp48555 __tmp48553)))) (declare (not safe)) - (cons __tmp48384 __tmp48375)))) + (cons __tmp48561 __tmp48552)))) (declare (not safe)) - (cons __tmp48385 __tmp48374))))))) + (cons __tmp48562 __tmp48551))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd94289536_ _hd94259526_ @@ -7774,28 +7774,28 @@ (declare (not safe)) (##cdr _e91869247_)))) (if (gx#stx-pair/null? _hd91859251_) - (let ((_g48391_ + (let ((_g48568_ (gx#syntax-split-splice _hd91859251_ '0))) (begin - (let ((_g48392_ + (let ((_g48569_ (let () (declare (not safe)) - (if (##values? _g48391_) - (##vector-length _g48391_) + (if (##values? _g48568_) + (##vector-length _g48568_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48392_ 2))) + (##fx= _g48569_ 2))) (error "Context expects 2 values" - _g48392_))) + _g48569_))) (let ((_target91879257_ (let () (declare (not safe)) - (##vector-ref _g48391_ 0))) + (##vector-ref _g48568_ 0))) (_tl91899260_ (let () (declare (not safe)) - (##vector-ref _g48391_ 1)))) + (##vector-ref _g48568_ 1)))) (if (gx#stx-null? _tl91899260_) (letrec ((_loop91909263_ (lambda (_hd91889267_ @@ -7856,22 +7856,22 @@ _L9323_ _L9324_) (let () - (let ((__tmp48476 + (let ((__tmp48653 (gx#datum->syntax '#f 'let)) - (__tmp48393 - (let ((__tmp48463 - (let ((__tmp48470 + (__tmp48570 + (let ((__tmp48640 + (let ((__tmp48647 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48471 - (let ((__tmp48472 - (let ((__tmp48475 + (let ((__tmp48648 + (let ((__tmp48649 + (let ((__tmp48652 (gx#datum->syntax '#f 'lambda)) - (__tmp48473 - (let ((__tmp48474 + (__tmp48650 + (let ((__tmp48651 (let () (declare (not safe)) @@ -7880,22 +7880,22 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48474)))) + (cons '() __tmp48651)))) (declare (not safe)) - (cons __tmp48475 __tmp48473)))) + (cons __tmp48652 __tmp48650)))) (declare (not safe)) - (cons __tmp48472 '())))) + (cons __tmp48649 '())))) (declare (not safe)) - (cons _L9323_ __tmp48471))) - (__tmp48464 - (let ((__tmp48465 - (let ((__tmp48466 - (let ((__tmp48467 - (let ((__tmp48469 + (cons _L9323_ __tmp48648))) + (__tmp48641 + (let ((__tmp48642 + (let ((__tmp48643 + (let ((__tmp48644 + (let ((__tmp48646 (gx#datum->syntax '#f 'quote)) - (__tmp48468 + (__tmp48645 (let () (declare (not safe)) @@ -7904,50 +7904,50 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48469 - __tmp48468)))) + (cons __tmp48646 + __tmp48645)))) (declare (not safe)) - (cons __tmp48467 '())))) + (cons __tmp48644 '())))) (declare (not safe)) - (cons _L9322_ __tmp48466)))) + (cons _L9322_ __tmp48643)))) (declare (not safe)) - (cons __tmp48465 '())))) + (cons __tmp48642 '())))) (declare (not safe)) - (cons __tmp48470 __tmp48464))) - (__tmp48394 - (let ((__tmp48395 - (let ((__tmp48462 (gx#datum->syntax '#f 'if)) - (__tmp48396 - (let ((__tmp48459 - (let ((__tmp48461 + (cons __tmp48647 __tmp48641))) + (__tmp48571 + (let ((__tmp48572 + (let ((__tmp48639 (gx#datum->syntax '#f 'if)) + (__tmp48573 + (let ((__tmp48636 + (let ((__tmp48638 (gx#datum->syntax '#f 'fixnum?)) - (__tmp48460 + (__tmp48637 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48461 __tmp48460))) - (__tmp48397 - (let ((__tmp48400 - (let ((__tmp48458 + (cons __tmp48638 __tmp48637))) + (__tmp48574 + (let ((__tmp48577 + (let ((__tmp48635 (gx#datum->syntax '#f 'let*)) - (__tmp48401 - (let ((__tmp48441 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48451 - (let ((__tmp48457 (gx#datum->syntax '#f 'ix)) - (__tmp48452 - (let ((__tmp48453 - (let ((__tmp48456 + (__tmp48578 + (let ((__tmp48618 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48628 + (let ((__tmp48634 (gx#datum->syntax '#f 'ix)) + (__tmp48629 + (let ((__tmp48630 + (let ((__tmp48633 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48454 - (let ((__tmp48455 + (__tmp48631 + (let ((__tmp48632 (let () (declare (not safe)) @@ -7955,152 +7955,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _L9324_ __tmp48455)))) + (cons _L9324_ __tmp48632)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48456 __tmp48454)))) + (cons __tmp48633 __tmp48631)))) (declare (not safe)) - (cons __tmp48453 '())))) + (cons __tmp48630 '())))) (declare (not safe)) - (cons __tmp48457 __tmp48452))) - (__tmp48442 - (let ((__tmp48443 - (let ((__tmp48450 + (cons __tmp48634 __tmp48629))) + (__tmp48619 + (let ((__tmp48620 + (let ((__tmp48627 (gx#datum->syntax '#f 'q)) - (__tmp48444 - (let ((__tmp48445 - (let ((__tmp48449 + (__tmp48621 + (let ((__tmp48622 + (let ((__tmp48626 (gx#datum->syntax '#f '##vector-ref)) - (__tmp48446 - (let ((__tmp48447 + (__tmp48623 + (let ((__tmp48624 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48448 (gx#datum->syntax '#f 'ix))) + (let ((__tmp48625 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48448 '())))) + (cons __tmp48625 '())))) (declare (not safe)) - (cons _L9322_ __tmp48447)))) + (cons _L9322_ __tmp48624)))) (declare (not safe)) - (cons __tmp48449 __tmp48446)))) + (cons __tmp48626 __tmp48623)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48445 '())))) + (cons __tmp48622 '())))) (declare (not safe)) - (cons __tmp48450 __tmp48444)))) + (cons __tmp48627 __tmp48621)))) (declare (not safe)) - (cons __tmp48443 '())))) + (cons __tmp48620 '())))) (declare (not safe)) - (cons __tmp48451 __tmp48442))) - (__tmp48402 - (let ((__tmp48403 - (let ((__tmp48440 (gx#datum->syntax '#f 'if)) - (__tmp48404 - (let ((__tmp48439 + (cons __tmp48628 __tmp48619))) + (__tmp48579 + (let ((__tmp48580 + (let ((__tmp48617 (gx#datum->syntax '#f 'if)) + (__tmp48581 + (let ((__tmp48616 (gx#datum->syntax '#f 'q)) - (__tmp48405 - (let ((__tmp48408 - (let ((__tmp48438 + (__tmp48582 + (let ((__tmp48585 + (let ((__tmp48615 (gx#datum->syntax '#f 'if)) - (__tmp48409 - (let ((__tmp48430 + (__tmp48586 + (let ((__tmp48607 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48437 (gx#datum->syntax '#f 'eq?)) - (__tmp48431 - (let ((__tmp48433 - (let ((__tmp48436 + (let ((__tmp48614 (gx#datum->syntax '#f 'eq?)) + (__tmp48608 + (let ((__tmp48610 + (let ((__tmp48613 (gx#datum->syntax '#f '##car)) - (__tmp48434 - (let ((__tmp48435 + (__tmp48611 + (let ((__tmp48612 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48435 '())))) + (cons __tmp48612 '())))) (declare (not safe)) - (cons __tmp48436 __tmp48434))) - (__tmp48432 + (cons __tmp48613 __tmp48611))) + (__tmp48609 (let () (declare (not safe)) (cons _L9324_ '())))) (declare (not safe)) - (cons __tmp48433 __tmp48432)))) + (cons __tmp48610 __tmp48609)))) (declare (not safe)) - (cons __tmp48437 __tmp48431))) - (__tmp48410 - (let ((__tmp48413 - (let ((__tmp48429 + (cons __tmp48614 __tmp48608))) + (__tmp48587 + (let ((__tmp48590 + (let ((__tmp48606 (gx#datum->syntax '#f 'let)) - (__tmp48414 - (let ((__tmp48422 - (let ((__tmp48428 + (__tmp48591 + (let ((__tmp48599 + (let ((__tmp48605 (gx#datum->syntax '#f 'x)) - (__tmp48423 - (let ((__tmp48424 - (let ((__tmp48427 + (__tmp48600 + (let ((__tmp48601 + (let ((__tmp48604 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48425 - (let ((__tmp48426 (gx#datum->syntax '#f 'q))) + (__tmp48602 + (let ((__tmp48603 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48426 '())))) + (cons __tmp48603 '())))) (declare (not safe)) - (cons __tmp48427 __tmp48425)))) + (cons __tmp48604 __tmp48602)))) (declare (not safe)) - (cons __tmp48424 '())))) + (cons __tmp48601 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48428 - __tmp48423))) - (__tmp48415 - (let ((__tmp48416 - (let ((__tmp48421 + (cons __tmp48605 + __tmp48600))) + (__tmp48592 + (let ((__tmp48593 + (let ((__tmp48598 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48417 - (let ((__tmp48420 + (__tmp48594 + (let ((__tmp48597 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48418 - (let ((__tmp48419 + (__tmp48595 + (let ((__tmp48596 (lambda (_g93619364_ _g93629367_) (let () (declare (not safe)) (cons _g93619364_ _g93629367_))))) (declare (not safe)) - (foldr1 __tmp48419 '() _L9321_)))) + (foldr1 __tmp48596 '() _L9321_)))) (declare (not safe)) - (cons __tmp48420 __tmp48418)))) + (cons __tmp48597 __tmp48595)))) (declare (not safe)) - (cons __tmp48421 __tmp48417)))) + (cons __tmp48598 __tmp48594)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48416 '())))) + (cons __tmp48593 '())))) (declare (not safe)) - (cons __tmp48422 __tmp48415)))) + (cons __tmp48599 __tmp48592)))) (declare (not safe)) - (cons __tmp48429 __tmp48414))) - (__tmp48411 - (let ((__tmp48412 + (cons __tmp48606 __tmp48591))) + (__tmp48588 + (let ((__tmp48589 (let () (declare (not safe)) (cons _L9323_ '())))) (declare (not safe)) - (cons __tmp48412 '())))) + (cons __tmp48589 '())))) (declare (not safe)) - (cons __tmp48413 __tmp48411)))) + (cons __tmp48590 __tmp48588)))) (declare (not safe)) - (cons __tmp48430 __tmp48410)))) + (cons __tmp48607 __tmp48587)))) (declare (not safe)) - (cons __tmp48438 __tmp48409))) + (cons __tmp48615 __tmp48586))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48406 - (let ((__tmp48407 + (__tmp48583 + (let ((__tmp48584 (let () (declare (not safe)) @@ -8108,24 +8108,24 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp48407 '())))) + (cons __tmp48584 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48408 __tmp48406)))) + (cons __tmp48585 __tmp48583)))) (declare (not safe)) - (cons __tmp48439 __tmp48405)))) + (cons __tmp48616 __tmp48582)))) (declare (not safe)) - (cons __tmp48440 __tmp48404)))) + (cons __tmp48617 __tmp48581)))) (declare (not safe)) - (cons __tmp48403 '())))) + (cons __tmp48580 '())))) (declare (not safe)) - (cons __tmp48441 __tmp48402)))) + (cons __tmp48618 __tmp48579)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48458 - __tmp48401))) - (__tmp48398 - (let ((__tmp48399 + (cons __tmp48635 + __tmp48578))) + (__tmp48575 + (let ((__tmp48576 (let () (declare (not safe)) @@ -8134,21 +8134,21 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48399 '())))) + (cons __tmp48576 '())))) (declare (not safe)) - (cons __tmp48400 __tmp48398)))) + (cons __tmp48577 __tmp48575)))) (declare (not safe)) - (cons __tmp48459 __tmp48397)))) + (cons __tmp48636 __tmp48574)))) (declare (not safe)) - (cons __tmp48462 __tmp48396)))) + (cons __tmp48639 __tmp48573)))) (declare (not safe)) - (cons __tmp48395 '())))) + (cons __tmp48572 '())))) (declare (not safe)) - (cons __tmp48463 __tmp48394)))) + (cons __tmp48640 __tmp48571)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48476 - __tmp48393)))) + (cons __tmp48653 + __tmp48570)))) _hd92039311_ _hd92009301_ _hd91979291_ @@ -8180,7 +8180,7 @@ (vector-length _tab9161_))))))) (_generate-generic-dispatch8762_ (lambda (_e8888_ _datums8890_ _dispatch8891_ _default8892_) - (let ((_g48477_ + (let ((_g48654_ (if (_eq-datums?8745_ _datums8890_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) @@ -8189,15 +8189,15 @@ (let ((_hash-e8894_ (let () (declare (not safe)) - (##vector-ref _g48477_ 0))) + (##vector-ref _g48654_ 0))) (_hashf8896_ (let () (declare (not safe)) - (##vector-ref _g48477_ 1))) + (##vector-ref _g48654_ 1))) (_eqf8897_ (let () (declare (not safe)) - (##vector-ref _g48477_ 2)))) + (##vector-ref _g48654_ 2)))) (let* ((_indexes8899_ (_datum-dispatch-index8747_ _datums8890_)) (_tab8902_ @@ -8257,30 +8257,30 @@ (declare (not safe)) (##cdr _e89298996_)))) (if (gx#stx-pair/null? _hd89289000_) - (let ((_g48478_ + (let ((_g48655_ (gx#syntax-split-splice _hd89289000_ '0))) (begin - (let ((_g48479_ + (let ((_g48656_ (let () (declare (not safe)) - (if (##values? _g48478_) - (##vector-length _g48478_) + (if (##values? _g48655_) + (##vector-length _g48655_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48479_ 2))) + (##fx= _g48656_ 2))) (error "Context expects 2 values" - _g48479_))) + _g48656_))) (let ((_target89309006_ (let () (declare (not safe)) - (##vector-ref _g48478_ 0))) + (##vector-ref _g48655_ 0))) (_tl89329009_ (let () (declare (not safe)) - (##vector-ref _g48478_ 1)))) + (##vector-ref _g48655_ 1)))) (if (gx#stx-null? _tl89329009_) (letrec ((_loop89339012_ (lambda (_hd89319016_ @@ -8368,267 +8368,267 @@ _L9094_ _L9095_) (let () - (let ((__tmp48560 (gx#datum->syntax '#f 'let)) - (__tmp48480 - (let ((__tmp48547 - (let ((__tmp48554 - (let ((__tmp48555 - (let ((__tmp48556 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48559 (gx#datum->syntax '#f 'lambda)) - (__tmp48557 - (let ((__tmp48558 + (let ((__tmp48737 (gx#datum->syntax '#f 'let)) + (__tmp48657 + (let ((__tmp48724 + (let ((__tmp48731 + (let ((__tmp48732 + (let ((__tmp48733 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48736 (gx#datum->syntax '#f 'lambda)) + (__tmp48734 + (let ((__tmp48735 (let () (declare (not safe)) (cons _L9091_ '())))) (declare (not safe)) - (cons '() __tmp48558)))) + (cons '() __tmp48735)))) (declare (not safe)) - (cons __tmp48559 __tmp48557)))) + (cons __tmp48736 __tmp48734)))) (declare (not safe)) - (cons __tmp48556 '())))) + (cons __tmp48733 '())))) (declare (not safe)) - (cons _L9094_ __tmp48555))) + (cons _L9094_ __tmp48732))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48548 - (let ((__tmp48549 - (let ((__tmp48550 + (__tmp48725 + (let ((__tmp48726 + (let ((__tmp48727 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48551 - (let ((__tmp48553 + (let ((__tmp48728 + (let ((__tmp48730 (gx#datum->syntax '#f 'quote)) - (__tmp48552 + (__tmp48729 (let () (declare (not safe)) (cons _L9090_ '())))) (declare (not safe)) - (cons __tmp48553 __tmp48552)))) + (cons __tmp48730 __tmp48729)))) (declare (not safe)) - (cons __tmp48551 '())))) + (cons __tmp48728 '())))) (declare (not safe)) - (cons _L9093_ __tmp48550)))) + (cons _L9093_ __tmp48727)))) (declare (not safe)) - (cons __tmp48549 '())))) + (cons __tmp48726 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48554 __tmp48548))) - (__tmp48481 - (let ((__tmp48482 - (let ((__tmp48546 + (cons __tmp48731 __tmp48725))) + (__tmp48658 + (let ((__tmp48659 + (let ((__tmp48723 (gx#datum->syntax '#f 'let*)) - (__tmp48483 - (let ((__tmp48522 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48541 - (let ((__tmp48545 (gx#datum->syntax '#f 'h)) - (__tmp48542 - (let ((__tmp48543 - (let ((__tmp48544 + (__tmp48660 + (let ((__tmp48699 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp48718 + (let ((__tmp48722 (gx#datum->syntax '#f 'h)) + (__tmp48719 + (let ((__tmp48720 + (let ((__tmp48721 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons _L9088_ __tmp48544)))) + (cons _L9088_ __tmp48721)))) (declare (not safe)) - (cons __tmp48543 '())))) + (cons __tmp48720 '())))) (declare (not safe)) - (cons __tmp48545 __tmp48542))) - (__tmp48523 - (let ((__tmp48533 - (let ((__tmp48540 + (cons __tmp48722 __tmp48719))) + (__tmp48700 + (let ((__tmp48710 + (let ((__tmp48717 (gx#datum->syntax '#f 'ix)) - (__tmp48534 - (let ((__tmp48535 - (let ((__tmp48539 + (__tmp48711 + (let ((__tmp48712 + (let ((__tmp48716 (gx#datum->syntax '#f '##fxmodulo)) - (__tmp48536 - (let ((__tmp48538 + (__tmp48713 + (let ((__tmp48715 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'h)) - (__tmp48537 + (__tmp48714 (let () (declare (not safe)) (cons _L9089_ '())))) (declare (not safe)) - (cons __tmp48538 __tmp48537)))) + (cons __tmp48715 __tmp48714)))) (declare (not safe)) - (cons __tmp48539 __tmp48536)))) + (cons __tmp48716 __tmp48713)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48535 '())))) + (cons __tmp48712 '())))) (declare (not safe)) - (cons __tmp48540 __tmp48534))) - (__tmp48524 - (let ((__tmp48525 - (let ((__tmp48532 + (cons __tmp48717 __tmp48711))) + (__tmp48701 + (let ((__tmp48702 + (let ((__tmp48709 (gx#datum->syntax '#f 'q)) - (__tmp48526 - (let ((__tmp48527 - (let ((__tmp48531 + (__tmp48703 + (let ((__tmp48704 + (let ((__tmp48708 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##vector-ref)) - (__tmp48528 - (let ((__tmp48529 - (let ((__tmp48530 + (__tmp48705 + (let ((__tmp48706 + (let ((__tmp48707 (gx#datum->syntax '#f 'ix))) (declare (not safe)) - (cons __tmp48530 '())))) + (cons __tmp48707 '())))) (declare (not safe)) - (cons _L9093_ __tmp48529)))) + (cons _L9093_ __tmp48706)))) (declare (not safe)) - (cons __tmp48531 __tmp48528)))) + (cons __tmp48708 __tmp48705)))) (declare (not safe)) - (cons __tmp48527 '())))) + (cons __tmp48704 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48532 - __tmp48526)))) + (cons __tmp48709 + __tmp48703)))) (declare (not safe)) - (cons __tmp48525 '())))) + (cons __tmp48702 '())))) (declare (not safe)) - (cons __tmp48533 __tmp48524)))) + (cons __tmp48710 __tmp48701)))) (declare (not safe)) - (cons __tmp48541 __tmp48523))) - (__tmp48484 - (let ((__tmp48485 - (let ((__tmp48521 (gx#datum->syntax '#f 'if)) - (__tmp48486 - (let ((__tmp48520 + (cons __tmp48718 __tmp48700))) + (__tmp48661 + (let ((__tmp48662 + (let ((__tmp48698 (gx#datum->syntax '#f 'if)) + (__tmp48663 + (let ((__tmp48697 (gx#datum->syntax '#f 'q)) - (__tmp48487 - (let ((__tmp48490 - (let ((__tmp48519 + (__tmp48664 + (let ((__tmp48667 + (let ((__tmp48696 (gx#datum->syntax '#f 'if)) - (__tmp48491 - (let ((__tmp48512 + (__tmp48668 + (let ((__tmp48689 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48513 - (let ((__tmp48515 - (let ((__tmp48518 + (let ((__tmp48690 + (let ((__tmp48692 + (let ((__tmp48695 (gx#datum->syntax '#f '##car)) - (__tmp48516 - (let ((__tmp48517 + (__tmp48693 + (let ((__tmp48694 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48517 '())))) + (cons __tmp48694 '())))) (declare (not safe)) - (cons __tmp48518 __tmp48516))) - (__tmp48514 + (cons __tmp48695 __tmp48693))) + (__tmp48691 (let () (declare (not safe)) (cons _L9095_ '())))) (declare (not safe)) - (cons __tmp48515 __tmp48514)))) + (cons __tmp48692 __tmp48691)))) (declare (not safe)) - (cons _L9086_ __tmp48513))) - (__tmp48492 - (let ((__tmp48495 - (let ((__tmp48511 + (cons _L9086_ __tmp48690))) + (__tmp48669 + (let ((__tmp48672 + (let ((__tmp48688 (gx#datum->syntax '#f 'let)) - (__tmp48496 - (let ((__tmp48504 - (let ((__tmp48510 + (__tmp48673 + (let ((__tmp48681 + (let ((__tmp48687 (gx#datum->syntax '#f 'x)) - (__tmp48505 - (let ((__tmp48506 - (let ((__tmp48509 + (__tmp48682 + (let ((__tmp48683 + (let ((__tmp48686 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##cdr)) - (__tmp48507 - (let ((__tmp48508 (gx#datum->syntax '#f 'q))) + (__tmp48684 + (let ((__tmp48685 (gx#datum->syntax '#f 'q))) (declare (not safe)) - (cons __tmp48508 '())))) + (cons __tmp48685 '())))) (declare (not safe)) - (cons __tmp48509 __tmp48507)))) + (cons __tmp48686 __tmp48684)))) (declare (not safe)) - (cons __tmp48506 '())))) + (cons __tmp48683 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48510 - __tmp48505))) - (__tmp48497 - (let ((__tmp48498 - (let ((__tmp48503 + (cons __tmp48687 + __tmp48682))) + (__tmp48674 + (let ((__tmp48675 + (let ((__tmp48680 (gx#datum->syntax '#f '~case-dispatch)) - (__tmp48499 - (let ((__tmp48502 + (__tmp48676 + (let ((__tmp48679 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'x)) - (__tmp48500 - (let ((__tmp48501 + (__tmp48677 + (let ((__tmp48678 (lambda (_g91399142_ _g91409145_) (let () (declare (not safe)) (cons _g91399142_ _g91409145_))))) (declare (not safe)) - (foldr1 __tmp48501 '() _L9092_)))) + (foldr1 __tmp48678 '() _L9092_)))) (declare (not safe)) - (cons __tmp48502 __tmp48500)))) + (cons __tmp48679 __tmp48677)))) (declare (not safe)) - (cons __tmp48503 __tmp48499)))) + (cons __tmp48680 __tmp48676)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48498 '())))) + (cons __tmp48675 '())))) (declare (not safe)) - (cons __tmp48504 __tmp48497)))) + (cons __tmp48681 __tmp48674)))) (declare (not safe)) - (cons __tmp48511 __tmp48496))) - (__tmp48493 - (let ((__tmp48494 + (cons __tmp48688 __tmp48673))) + (__tmp48670 + (let ((__tmp48671 (let () (declare (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48494 '())))) + (cons __tmp48671 '())))) (declare (not safe)) - (cons __tmp48495 __tmp48493)))) + (cons __tmp48672 __tmp48670)))) (declare (not safe)) - (cons __tmp48512 __tmp48492)))) + (cons __tmp48689 __tmp48669)))) (declare (not safe)) - (cons __tmp48519 __tmp48491))) + (cons __tmp48696 __tmp48668))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48488 - (let ((__tmp48489 + (__tmp48665 + (let ((__tmp48666 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L9094_ '())))) (declare (not safe)) - (cons __tmp48489 '())))) + (cons __tmp48666 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48490 - __tmp48488)))) + (cons __tmp48667 + __tmp48665)))) (declare (not safe)) - (cons __tmp48520 __tmp48487)))) + (cons __tmp48697 __tmp48664)))) (declare (not safe)) - (cons __tmp48521 __tmp48486)))) + (cons __tmp48698 __tmp48663)))) (declare (not safe)) - (cons __tmp48485 '())))) + (cons __tmp48662 '())))) (declare (not safe)) - (cons __tmp48522 __tmp48484)))) + (cons __tmp48699 __tmp48661)))) (declare (not safe)) - (cons __tmp48546 __tmp48483)))) + (cons __tmp48723 __tmp48660)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48482 '())))) + (cons __tmp48659 '())))) (declare (not safe)) - (cons __tmp48547 __tmp48481)))) + (cons __tmp48724 __tmp48658)))) (declare (not safe)) - (cons __tmp48560 __tmp48480)))) + (cons __tmp48737 __tmp48657)))) _hd89529080_ _hd89499070_ _hd89469060_ @@ -8695,34 +8695,34 @@ (declare (not safe)) (##cdr _e87738805_)))) (if (gx#stx-pair/null? _tl87718812_) - (let ((_g48561_ + (let ((_g48738_ (gx#syntax-split-splice _tl87718812_ '0))) (begin - (let ((_g48562_ + (let ((_g48739_ (let () (declare (not safe)) - (if (##values? _g48561_) + (if (##values? _g48738_) (##vector-length - _g48561_) + _g48738_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48562_ 2))) + (##fx= _g48739_ 2))) (error "Context expects 2 values" - _g48562_))) + _g48739_))) (let ((_target87748815_ (let () (declare (not safe)) (##vector-ref - _g48561_ + _g48738_ 0))) (_tl87768818_ (let () (declare (not safe)) (##vector-ref - _g48561_ + _g48738_ 1)))) (if (gx#stx-null? _tl87768818_) (letrec ((_loop87778821_ @@ -8746,41 +8746,41 @@ (cons _lp-hd87798835_ _clause87818828_))))) (let ((_clause87828841_ (reverse _clause87818828_))) ((lambda (_L8845_ _L8847_) - (let ((_g48563_ + (let ((_g48740_ (_parse-clauses8738_ _L8847_ - (let ((__tmp48565 + (let ((__tmp48742 (lambda (_g88658868_ _g88668871_) (let () (declare (not safe)) (cons _g88658868_ _g88668871_))))) (declare (not safe)) - (foldr1 __tmp48565 '() _L8845_))))) + (foldr1 __tmp48742 '() _L8845_))))) (begin - (let ((_g48564_ + (let ((_g48741_ (let () (declare (not safe)) - (if (##values? _g48563_) - (##vector-length _g48563_) + (if (##values? _g48740_) + (##vector-length _g48740_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48564_ 3))) + (##fx= _g48741_ 3))) (error "Context expects 3 values" - _g48564_))) + _g48741_))) (let ((_datums8874_ (let () (declare (not safe)) - (##vector-ref _g48563_ 0))) + (##vector-ref _g48740_ 0))) (_dispatch8876_ (let () (declare (not safe)) - (##vector-ref _g48563_ 1))) + (##vector-ref _g48740_ 1))) (_default8877_ (let () (declare (not safe)) - (##vector-ref _g48563_ 2)))) + (##vector-ref _g48740_ 2)))) (let ((_datum-count8879_ (_count-datums8741_ _datums8874_))) (if (< _datum-count8879_ '6) @@ -8890,67 +8890,67 @@ (not safe)) (immediate? _datum-e11862_))) - (let ((__tmp48583 + (let ((__tmp48760 (gx#datum->syntax '#f 'eq?)) - (__tmp48578 - (let ((__tmp48580 + (__tmp48755 + (let ((__tmp48757 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48582 (gx#datum->syntax '#f 'quote)) - (__tmp48581 + (let ((__tmp48759 (gx#datum->syntax '#f 'quote)) + (__tmp48758 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48582 __tmp48581))) - (__tmp48579 + (cons __tmp48759 __tmp48758))) + (__tmp48756 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48580 __tmp48579)))) + (cons __tmp48757 __tmp48756)))) (declare (not safe)) - (cons __tmp48583 __tmp48578)) + (cons __tmp48760 __tmp48755)) (if (let () (declare (not safe)) (number? _datum-e11862_)) - (let ((__tmp48577 (gx#datum->syntax '#f 'eqv?)) - (__tmp48572 - (let ((__tmp48574 - (let ((__tmp48576 + (let ((__tmp48754 (gx#datum->syntax '#f 'eqv?)) + (__tmp48749 + (let ((__tmp48751 + (let ((__tmp48753 (gx#datum->syntax '#f 'quote)) - (__tmp48575 + (__tmp48752 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48576 __tmp48575))) - (__tmp48573 + (cons __tmp48753 __tmp48752))) + (__tmp48750 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48574 __tmp48573)))) + (cons __tmp48751 __tmp48750)))) (declare (not safe)) - (cons __tmp48577 __tmp48572)) - (let ((__tmp48571 (gx#datum->syntax '#f 'equal?)) - (__tmp48566 - (let ((__tmp48568 - (let ((__tmp48570 + (cons __tmp48754 __tmp48749)) + (let ((__tmp48748 (gx#datum->syntax '#f 'equal?)) + (__tmp48743 + (let ((__tmp48745 + (let ((__tmp48747 (gx#datum->syntax '#f 'quote)) - (__tmp48569 + (__tmp48746 (let () (declare (not safe)) (cons _L11846_ '())))) (declare (not safe)) - (cons __tmp48570 __tmp48569))) - (__tmp48567 + (cons __tmp48747 __tmp48746))) + (__tmp48744 (let () (declare (not safe)) (cons _L11844_ '())))) (declare (not safe)) - (cons __tmp48568 __tmp48567)))) + (cons __tmp48745 __tmp48744)))) (declare (not safe)) - (cons __tmp48571 __tmp48566)))))) + (cons __tmp48748 __tmp48743)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1180011838_ _hd1179711828_) @@ -8991,31 +8991,31 @@ (declare (not safe)) (##cdr _e1189011922_)))) (if (gx#stx-pair/null? _tl1188811929_) - (let ((_g48584_ + (let ((_g48761_ (gx#syntax-split-splice _tl1188811929_ '0))) (begin - (let ((_g48585_ + (let ((_g48762_ (let () (declare (not safe)) - (if (##values? _g48584_) + (if (##values? _g48761_) (##vector-length - _g48584_) + _g48761_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48585_ 2))) + (##fx= _g48762_ 2))) (error "Context expects 2 values" - _g48585_))) + _g48762_))) (let ((_target1189111932_ (let () (declare (not safe)) - (##vector-ref _g48584_ 0))) + (##vector-ref _g48761_ 0))) (_tl1189311935_ (let () (declare (not safe)) - (##vector-ref _g48584_ 1)))) + (##vector-ref _g48761_ 1)))) (if (gx#stx-null? _tl1189311935_) (letrec ((_loop1189411938_ (lambda (_hd1189211942_ @@ -9038,12 +9038,12 @@ (cons _lp-hd1189611952_ _K1189811945_))))) (let ((_K1189911958_ (reverse _K1189811945_))) ((lambda (_L11962_ _L11964_) - (let ((__tmp48590 + (let ((__tmp48767 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48586 - (let ((__tmp48587 - (let ((__tmp48588 - (let ((__tmp48589 + (__tmp48763 + (let ((__tmp48764 + (let ((__tmp48765 + (let ((__tmp48766 (lambda (_g1198111984_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1198211987_) @@ -9052,15 +9052,15 @@ (cons _g1198111984_ _g1198211987_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48589 + (foldr1 __tmp48766 '() _L11962_)))) (declare (not safe)) - (cons _L11964_ __tmp48588)))) + (cons _L11964_ __tmp48765)))) (declare (not safe)) - (cons '0 __tmp48587)))) + (cons '0 __tmp48764)))) (declare (not safe)) - (cons __tmp48590 __tmp48586))) + (cons __tmp48767 __tmp48763))) _K1189911958_ _hd1188911926_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -9075,23 +9075,23 @@ (_g1188011990_ _$stx11877_)))) (define |gerbil/core$$[:0:]#~case-dispatch*| (lambda (_stx11995_) - (let* ((___stx4316443165_ _stx11995_) + (let* ((___stx4334143342_ _stx11995_) (_g1200212098_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4316443165_)))) - (let ((___kont4316743168_ + ___stx4334143342_)))) + (let ((___kont4334443345_ (lambda (_L12575_ _L12577_) - (let ((__tmp48592 (gx#datum->syntax '#f 'quote)) - (__tmp48591 + (let ((__tmp48769 (gx#datum->syntax '#f 'quote)) + (__tmp48768 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons __tmp48592 __tmp48591)))) - (___kont4316943170_ + (cons __tmp48769 __tmp48768)))) + (___kont4334643347_ (lambda (_L12517_ _L12519_ _L12520_) _L12517_)) - (___kont4317143172_ + (___kont4334843349_ (lambda (_L12414_ _L12416_ _L12417_ _L12418_) (let* ((_g1243912447_ (lambda (_g1244012443_) @@ -9103,40 +9103,40 @@ (lambda (_g1244012451_) ((lambda (_L12454_) (let () - (let ((__tmp48600 (gx#datum->syntax '#f 'if)) - (__tmp48593 - (let ((__tmp48596 - (let ((__tmp48599 + (let ((__tmp48777 (gx#datum->syntax '#f 'if)) + (__tmp48770 + (let ((__tmp48773 + (let ((__tmp48776 (gx#datum->syntax '#f '##fx=)) - (__tmp48597 - (let ((__tmp48598 + (__tmp48774 + (let ((__tmp48775 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L12454_ '())))) (declare (not safe)) - (cons _L12417_ __tmp48598)))) + (cons _L12417_ __tmp48775)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48599 - __tmp48597))) - (__tmp48594 - (let ((__tmp48595 + (cons __tmp48776 + __tmp48774))) + (__tmp48771 + (let ((__tmp48772 (let () (declare (not safe)) (cons _L12414_ '())))) (declare (not safe)) - (cons _L12416_ __tmp48595)))) + (cons _L12416_ __tmp48772)))) (declare (not safe)) - (cons __tmp48596 __tmp48594)))) + (cons __tmp48773 __tmp48771)))) (declare (not safe)) - (cons __tmp48600 __tmp48593)))) + (cons __tmp48777 __tmp48770)))) _g1244012451_)))) (_g1243812466_ (gx#stx-e _L12418_))))) - (___kont4317343174_ + (___kont4335043351_ (lambda (_L12264_ _L12266_ _L12267_ _L12268_ _L12269_) (let* ((_g1229312308_ (lambda (_g1229412304_) @@ -9171,63 +9171,63 @@ (if (gx#stx-null? _tl1230012332_) ((lambda (_L12335_ _L12337_) (let () - (let ((__tmp48617 + (let ((__tmp48794 (gx#datum->syntax '#f 'if)) - (__tmp48601 - (let ((__tmp48613 + (__tmp48778 + (let ((__tmp48790 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48616 (gx#datum->syntax '#f '##fx=)) - (__tmp48614 - (let ((__tmp48615 + (let ((__tmp48793 (gx#datum->syntax '#f '##fx=)) + (__tmp48791 + (let ((__tmp48792 (let () (declare (not safe)) (cons _L12337_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48615)))) + (cons _L12268_ __tmp48792)))) (declare (not safe)) - (cons __tmp48616 __tmp48614))) - (__tmp48602 - (let ((__tmp48603 - (let ((__tmp48604 - (let ((__tmp48612 + (cons __tmp48793 __tmp48791))) + (__tmp48779 + (let ((__tmp48780 + (let ((__tmp48781 + (let ((__tmp48789 (gx#datum->syntax '#f 'if)) - (__tmp48605 - (let ((__tmp48608 - (let ((__tmp48611 + (__tmp48782 + (let ((__tmp48785 + (let ((__tmp48788 (gx#datum->syntax '#f '##fx=)) - (__tmp48609 - (let ((__tmp48610 + (__tmp48786 + (let ((__tmp48787 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12335_ '())))) (declare (not safe)) - (cons _L12268_ __tmp48610)))) + (cons _L12268_ __tmp48787)))) (declare (not safe)) - (cons __tmp48611 __tmp48609))) - (__tmp48606 - (let ((__tmp48607 + (cons __tmp48788 __tmp48786))) + (__tmp48783 + (let ((__tmp48784 (let () (declare (not safe)) (cons _L12264_ '())))) (declare (not safe)) - (cons _L12266_ __tmp48607)))) + (cons _L12266_ __tmp48784)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48608 - __tmp48606)))) + (cons __tmp48785 + __tmp48783)))) (declare (not safe)) - (cons __tmp48612 __tmp48605)))) + (cons __tmp48789 __tmp48782)))) (declare (not safe)) - (cons __tmp48604 '())))) + (cons __tmp48781 '())))) (declare (not safe)) - (cons _L12267_ __tmp48603)))) + (cons _L12267_ __tmp48780)))) (declare (not safe)) - (cons __tmp48613 __tmp48602)))) + (cons __tmp48790 __tmp48779)))) (declare (not safe)) - (cons __tmp48617 __tmp48601)))) + (cons __tmp48794 __tmp48778)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _hd1230112329_ _hd1229812319_) @@ -9237,17 +9237,17 @@ (_g1229312308_ _g1229412312_))))) (_g1229212353_ (list (gx#stx-e _L12269_) - (let ((__tmp48618 (gx#stx-e _L12269_))) + (let ((__tmp48795 (gx#stx-e _L12269_))) (declare (not safe)) - (fx+ __tmp48618 '1))))))) - (___kont4317543176_ + (fx+ __tmp48795 '1))))))) + (___kont4335243353_ (lambda (_L12165_ _L12167_ _L12168_) - (let ((__tmp48623 + (let ((__tmp48800 (gx#datum->syntax '#f '~case-dispatch-bsearch)) - (__tmp48619 - (let ((__tmp48620 - (let ((__tmp48621 - (let ((__tmp48622 + (__tmp48796 + (let ((__tmp48797 + (let ((__tmp48798 + (let ((__tmp48799 (lambda (_g1218812191_ _g1218912194_) (let () @@ -9255,14 +9255,14 @@ (cons _g1218812191_ _g1218912194_))))) (declare (not safe)) - (foldr1 __tmp48622 '() _L12165_)))) + (foldr1 __tmp48799 '() _L12165_)))) (declare (not safe)) - (cons _L12167_ __tmp48621)))) + (cons _L12167_ __tmp48798)))) (declare (not safe)) - (cons _L12168_ __tmp48620)))) + (cons _L12168_ __tmp48797)))) (declare (not safe)) - (cons __tmp48623 __tmp48619))))) - (let ((___match4332143322_ + (cons __tmp48800 __tmp48796))))) + (let ((___match4349843499_ (lambda (_e1207712105_ _hd1207612109_ _tl1207512112_ @@ -9272,7 +9272,7 @@ _e1208312125_ _hd1208212129_ _tl1208112132_ - ___splice4317743178_ + ___splice4335443355_ _target1208412135_ _tl1208612138_) (letrec ((_loop1208712141_ @@ -9296,13 +9296,13 @@ _K1209112148_))))) (let ((_K1209212161_ (reverse _K1209112148_))) - (___kont4317543176_ + (___kont4335243353_ _K1209212161_ _hd1208212129_ _hd1207912119_)))))) (_loop1208712141_ _target1208412135_ '()))))) - (if (gx#stx-pair? ___stx4316443165_) - (let ((_e1200812545_ (gx#syntax-e ___stx4316443165_))) + (if (gx#stx-pair? ___stx4334143342_) + (let ((_e1200812545_ (gx#syntax-e ___stx4334143342_))) (let ((_tl1200612552_ (let () (declare (not safe)) (##cdr _e1200812545_))) (_hd1200712549_ @@ -9331,7 +9331,7 @@ (declare (not safe)) (##car _e1201412565_)))) (if (gx#stx-null? _tl1201212572_) - (___kont4316743168_ + (___kont4334443345_ _hd1201312569_ _hd1201012559_) (if (gx#stx-pair? _tl1201212572_) @@ -9348,7 +9348,7 @@ (##car _e1202912507_)))) (if (gx#stx-null? _tl1202712514_) - (___kont4316943170_ + (___kont4334643347_ _hd1202812511_ _hd1201312569_ _hd1201012559_) @@ -9364,7 +9364,7 @@ (declare (not safe)) (##car _e1204812404_)))) (if (gx#stx-null? _tl1204612411_) - (___kont4317143172_ + (___kont4334843349_ _hd1204712408_ _hd1202812511_ _hd1201312569_ @@ -9381,14 +9381,14 @@ (declare (not safe)) (##car _e1207112254_)))) (if (gx#stx-null? _tl1206912261_) - (___kont4317343174_ + (___kont4335043351_ _hd1207012258_ _hd1204712408_ _hd1202812511_ _hd1201312569_ _hd1201012559_) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4317743178_ + (let ((___splice4335443355_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9396,16 +9396,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4317743178_ + ___splice4335443355_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4317743178_ + ___splice4335443355_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4332143322_ + (___match4349843499_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9415,7 +9415,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4317743178_ + ___splice4335443355_ _target1208412135_ _tl1208612138_) (let () @@ -9425,7 +9425,7 @@ (declare (not safe)) (_g1200212098_)))))) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4317743178_ + (let ((___splice4335443355_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9433,16 +9433,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4317743178_ + ___splice4335443355_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4317743178_ + ___splice4335443355_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4332143322_ + (___match4349843499_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9452,7 +9452,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4317743178_ + ___splice4335443355_ _target1208412135_ _tl1208612138_) (let () @@ -9462,18 +9462,18 @@ (declare (not safe)) (_g1200212098_))))))) (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4317743178_ + (let ((___splice4335443355_ (gx#syntax-split-splice _tl1201212572_ '0))) (let ((_tl1208612138_ (let () (declare (not safe)) - (##vector-ref ___splice4317743178_ '1))) + (##vector-ref ___splice4335443355_ '1))) (_target1208412135_ (let () (declare (not safe)) - (##vector-ref ___splice4317743178_ '0)))) + (##vector-ref ___splice4335443355_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4332143322_ + (___match4349843499_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9483,7 +9483,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4317743178_ + ___splice4335443355_ _target1208412135_ _tl1208612138_) (let () (declare (not safe)) (_g1200212098_))))) @@ -9491,7 +9491,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _tl1201212572_) - (let ((___splice4317743178_ + (let ((___splice4335443355_ (gx#syntax-split-splice _tl1201212572_ '0))) @@ -9500,18 +9500,18 @@ (declare (not safe)) (##vector-ref - ___splice4317743178_ + ___splice4335443355_ '1))) (_target1208412135_ (let () (declare (not safe)) (##vector-ref - ___splice4317743178_ + ___splice4335443355_ '0)))) (if (gx#stx-null? _tl1208612138_) - (___match4332143322_ + (___match4349843499_ _e1200812545_ _hd1200712549_ _tl1200612552_ @@ -9521,7 +9521,7 @@ _e1201412565_ _hd1201312569_ _tl1201212572_ - ___splice4317743178_ + ___splice4335443355_ _target1208412135_ _tl1208612138_) (let () @@ -9547,9 +9547,9 @@ (_lp12965_ (let () (declare (not safe)) (fx+ _i12968_ '1)) (cdr _rest12970_) - (let ((__tmp48624 (car _rest12970_))) + (let ((__tmp48801 (car _rest12970_))) (declare (not safe)) - (cons __tmp48624 _left12971_))) + (cons __tmp48801 _left12971_))) (values (reverse _left12971_) _rest12970_)))))) (let* ((_g1260312631_ (lambda (_g1260412627_) @@ -9593,36 +9593,36 @@ (##cdr _e1261612658_)))) (if (gx#stx-pair/null? _tl1261412665_) - (let ((_g48625_ + (let ((_g48802_ (gx#syntax-split-splice _tl1261412665_ '0))) (begin - (let ((_g48626_ + (let ((_g48803_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48625_) - (##vector-length _g48625_) + _g48802_) + (##vector-length _g48802_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48626_ 2))) - (error "Context expects 2 values" _g48626_))) + (if (not (let () (declare (not safe)) (##fx= _g48803_ 2))) + (error "Context expects 2 values" _g48803_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1261712668_ (let () (declare (not safe)) (##vector-ref - _g48625_ + _g48802_ 0))) (_tl1261912671_ (let () (declare (not safe)) (##vector-ref - _g48625_ + _g48802_ 1)))) (if (gx#stx-null? _tl1261912671_) @@ -9650,7 +9650,7 @@ (reverse _K1262412681_))) ((lambda (_L12698_ _L12700_ _L12701_) (let* ((_len12731_ - (length (let ((__tmp48627 + (length (let ((__tmp48804 (lambda (_g1272212725_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1272312728_) @@ -9658,13 +9658,13 @@ (declare (not safe)) (cons _g1272212725_ _g1272312728_))))) (declare (not safe)) - (foldr1 __tmp48627 '() _L12698_)))) + (foldr1 __tmp48804 '() _L12698_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_mid12734_ (quotient _len12731_ '2)) - (_g48628_ + (_g48805_ (_split12600_ - (let ((__tmp48630 + (let ((__tmp48807 (lambda (_g1273612739_ _g1273712742_) (let () @@ -9674,32 +9674,32 @@ _g1273712742_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48630 + (foldr1 __tmp48807 '() _L12698_)) _mid12734_))) (begin - (let ((_g48629_ + (let ((_g48806_ (let () (declare (not safe)) - (if (##values? _g48628_) + (if (##values? _g48805_) (##vector-length - _g48628_) + _g48805_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48629_ 2))) + (##fx= _g48806_ 2))) (error "Context expects 2 values" - _g48629_))) + _g48806_))) (let ((_left12745_ (let () (declare (not safe)) - (##vector-ref _g48628_ 0))) + (##vector-ref _g48805_ 0))) (_right12747_ (let () (declare (not safe)) (##vector-ref - _g48628_ + _g48805_ 1)))) (let () (let* ((_g1275112792_ @@ -9735,31 +9735,31 @@ (declare (not safe)) (##cdr _e1276212809_)))) (if (gx#stx-pair/null? _hd1276112813_) - (let ((_g48631_ + (let ((_g48808_ (gx#syntax-split-splice _hd1276112813_ '0))) (begin - (let ((_g48632_ + (let ((_g48809_ (let () (declare (not safe)) - (if (##values? _g48631_) + (if (##values? _g48808_) (##vector-length - _g48631_) + _g48808_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48632_ 2))) + (##fx= _g48809_ 2))) (error "Context expects 2 values" - _g48632_))) + _g48809_))) (let ((_target1276312819_ (let () (declare (not safe)) - (##vector-ref _g48631_ 0))) + (##vector-ref _g48808_ 0))) (_tl1276512822_ (let () (declare (not safe)) - (##vector-ref _g48631_ 1)))) + (##vector-ref _g48808_ 1)))) (if (gx#stx-null? _tl1276512822_) (letrec ((_loop1276612825_ (lambda (_hd1276412829_ @@ -9793,31 +9793,31 @@ (declare (not safe)) (##cdr _e1277412849_)))) (if (gx#stx-pair/null? _hd1277312853_) - (let ((_g48633_ + (let ((_g48810_ (gx#syntax-split-splice _hd1277312853_ '0))) (begin - (let ((_g48634_ + (let ((_g48811_ (let () (declare (not safe)) - (if (##values? _g48633_) + (if (##values? _g48810_) (##vector-length - _g48633_) + _g48810_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48634_ 2))) + (##fx= _g48811_ 2))) (error "Context expects 2 values" - _g48634_))) + _g48811_))) (let ((_target1277512859_ (let () (declare (not safe)) - (##vector-ref _g48633_ 0))) + (##vector-ref _g48810_ 0))) (_tl1277712862_ (let () (declare (not safe)) - (##vector-ref _g48633_ 1)))) + (##vector-ref _g48810_ 1)))) (if (gx#stx-null? _tl1277712862_) (letrec ((_loop1277812865_ (lambda (_hd1277612869_ @@ -9857,32 +9857,32 @@ _L12902_ _L12903_) (let () - (let ((__tmp48654 + (let ((__tmp48831 (gx#datum->syntax '#f 'if)) - (__tmp48635 - (let ((__tmp48650 - (let ((__tmp48653 + (__tmp48812 + (let ((__tmp48827 + (let ((__tmp48830 (gx#datum->syntax '#f '##fx<)) - (__tmp48651 - (let ((__tmp48652 + (__tmp48828 + (let ((__tmp48829 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L12899_ '())))) (declare (not safe)) - (cons _L12700_ __tmp48652)))) + (cons _L12700_ __tmp48829)))) (declare (not safe)) - (cons __tmp48653 __tmp48651))) - (__tmp48636 - (let ((__tmp48644 - (let ((__tmp48649 + (cons __tmp48830 __tmp48828))) + (__tmp48813 + (let ((__tmp48821 + (let ((__tmp48826 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48645 - (let ((__tmp48646 - (let ((__tmp48647 - (let ((__tmp48648 + (__tmp48822 + (let ((__tmp48823 + (let ((__tmp48824 + (let ((__tmp48825 (lambda (_g1293812941_ _g1293912944_) (let () @@ -9890,23 +9890,23 @@ (cons _g1293812941_ _g1293912944_))))) (declare (not safe)) - (foldr1 __tmp48648 + (foldr1 __tmp48825 '() _L12902_)))) (declare (not safe)) - (cons _L12700_ __tmp48647)))) + (cons _L12700_ __tmp48824)))) (declare (not safe)) - (cons _L12701_ __tmp48646)))) + (cons _L12701_ __tmp48823)))) (declare (not safe)) - (cons __tmp48649 __tmp48645))) - (__tmp48637 - (let ((__tmp48638 - (let ((__tmp48643 + (cons __tmp48826 __tmp48822))) + (__tmp48814 + (let ((__tmp48815 + (let ((__tmp48820 (gx#datum->syntax '#f '~case-dispatch*)) - (__tmp48639 - (let ((__tmp48640 - (let ((__tmp48641 - (let ((__tmp48642 + (__tmp48816 + (let ((__tmp48817 + (let ((__tmp48818 + (let ((__tmp48819 (lambda (_g1293612947_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1293712950_) @@ -9915,25 +9915,25 @@ (cons _g1293612947_ _g1293712950_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48642 + (foldr1 __tmp48819 '() _L12901_)))) (declare (not safe)) - (cons _L12700_ __tmp48641)))) + (cons _L12700_ __tmp48818)))) (declare (not safe)) - (cons _L12899_ __tmp48640)))) + (cons _L12899_ __tmp48817)))) (declare (not safe)) - (cons __tmp48643 __tmp48639)))) + (cons __tmp48820 __tmp48816)))) (declare (not safe)) - (cons __tmp48638 '())))) + (cons __tmp48815 '())))) (declare (not safe)) - (cons __tmp48644 __tmp48637)))) + (cons __tmp48821 __tmp48814)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48650 - __tmp48636)))) + (cons __tmp48827 + __tmp48813)))) (declare (not safe)) - (cons __tmp48654 __tmp48635)))) + (cons __tmp48831 __tmp48812)))) _hd1278512893_ _K-right1278312885_ _K-left1277112845_ @@ -10009,31 +10009,31 @@ (declare (not safe)) (##cdr _e1299413069_)))) (if (gx#stx-pair/null? _hd1299313073_) - (let ((_g48655_ + (let ((_g48832_ (gx#syntax-split-splice _hd1299313073_ '0))) (begin - (let ((_g48656_ + (let ((_g48833_ (let () (declare (not safe)) - (if (##values? _g48655_) + (if (##values? _g48832_) (##vector-length - _g48655_) + _g48832_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48656_ 2))) + (##fx= _g48833_ 2))) (error "Context expects 2 values" - _g48656_))) + _g48833_))) (let ((_target1299513079_ (let () (declare (not safe)) - (##vector-ref _g48655_ 0))) + (##vector-ref _g48832_ 0))) (_tl1299713082_ (let () (declare (not safe)) - (##vector-ref _g48655_ 1)))) + (##vector-ref _g48832_ 1)))) (if (gx#stx-null? _tl1299713082_) (letrec ((_loop1299813085_ (lambda (_hd1299613089_ @@ -10075,36 +10075,36 @@ (##cdr _e1301313119_)))) (if (gx#stx-pair/null? _tl1301113126_) - (let ((_g48695_ + (let ((_g48872_ (gx#syntax-split-splice _tl1301113126_ '0))) (begin - (let ((_g48696_ + (let ((_g48873_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48695_) - (##vector-length _g48695_) + _g48872_) + (##vector-length _g48872_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48696_ 2))) - (error "Context expects 2 values" _g48696_))) + (if (not (let () (declare (not safe)) (##fx= _g48873_ 2))) + (error "Context expects 2 values" _g48873_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1301413129_ (let () (declare (not safe)) (##vector-ref - _g48695_ + _g48872_ 0))) (_tl1301613132_ (let () (declare (not safe)) (##vector-ref - _g48695_ + _g48872_ 1)))) (if (gx#stx-null? _tl1301613132_) @@ -10177,37 +10177,37 @@ (##cdr _e1302813177_)))) (if (gx#stx-pair/null? _tl1302613184_) - (let ((_g48657_ + (let ((_g48834_ (gx#syntax-split-splice _tl1302613184_ '0))) (begin - (let ((_g48658_ + (let ((_g48835_ (let () (declare (not safe)) (if (##values? - _g48657_) + _g48834_) (##vector-length - _g48657_) + _g48834_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g48658_ 2))) - (error "Context expects 2 values" _g48658_))) + (##fx= _g48835_ 2))) + (error "Context expects 2 values" _g48835_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1302913187_ (let () (declare (not safe)) (##vector-ref - _g48657_ + _g48834_ 0))) (_tl1303113190_ (let () (declare (not safe)) (##vector-ref - _g48657_ + _g48834_ 1)))) (if (gx#stx-null? _tl1303113190_) @@ -10234,31 +10234,31 @@ (let ((_fini1303713213_ (reverse _fini1303613200_))) (if (gx#stx-pair/null? _tl1302313174_) - (let ((_g48659_ + (let ((_g48836_ (gx#syntax-split-splice _tl1302313174_ '0))) (begin - (let ((_g48660_ + (let ((_g48837_ (let () (declare (not safe)) - (if (##values? _g48659_) + (if (##values? _g48836_) (##vector-length - _g48659_) + _g48836_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48660_ 2))) + (##fx= _g48837_ 2))) (error "Context expects 2 values" - _g48660_))) + _g48837_))) (let ((_target1303813217_ (let () (declare (not safe)) - (##vector-ref _g48659_ 0))) + (##vector-ref _g48836_ 0))) (_tl1304013220_ (let () (declare (not safe)) - (##vector-ref _g48659_ 1)))) + (##vector-ref _g48836_ 1)))) (if (gx#stx-null? _tl1304013220_) (letrec ((_loop1304113223_ (lambda (_hd1303913227_ @@ -10288,54 +10288,54 @@ _L13253_) (if (gx#stx-andmap gx#identifier? - (let ((__tmp48694 + (let ((__tmp48871 (lambda (_g1328613289_ _g1328713292_) (let () (declare (not safe)) (cons _g1328613289_ _g1328713292_))))) (declare (not safe)) - (foldr1 __tmp48694 '() _L13253_))) - (let ((__tmp48693 (gx#datum->syntax '#f 'let)) - (__tmp48661 - (let ((__tmp48692 + (foldr1 __tmp48871 '() _L13253_))) + (let ((__tmp48870 (gx#datum->syntax '#f 'let)) + (__tmp48838 + (let ((__tmp48869 (gx#datum->syntax '#f '$loop)) - (__tmp48662 - (let ((__tmp48688 + (__tmp48839 + (let ((__tmp48865 (begin (gx#syntax-check-splice-targets _L13252_ _L13253_) - (let ((__tmp48689 + (let ((__tmp48866 (lambda (_g1330313307_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330413310_ _g1330513312_) - (let ((__tmp48690 - (let ((__tmp48691 + (let ((__tmp48867 + (let ((__tmp48868 (let () (declare (not safe)) (cons _g1330313307_ '())))) (declare (not safe)) - (cons _g1330413310_ __tmp48691)))) + (cons _g1330413310_ __tmp48868)))) (declare (not safe)) - (cons __tmp48690 _g1330513312_))))) + (cons __tmp48867 _g1330513312_))))) (declare (not safe)) - (foldr2 __tmp48689 '() _L13252_ _L13253_)))) + (foldr2 __tmp48866 '() _L13252_ _L13253_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48663 - (let ((__tmp48664 - (let ((__tmp48687 + (__tmp48840 + (let ((__tmp48841 + (let ((__tmp48864 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp48665 - (let ((__tmp48666 - (let ((__tmp48682 - (let ((__tmp48686 + (__tmp48842 + (let ((__tmp48843 + (let ((__tmp48859 + (let ((__tmp48863 (gx#datum->syntax '#f 'begin)) - (__tmp48683 - (let ((__tmp48684 - (let ((__tmp48685 + (__tmp48860 + (let ((__tmp48861 + (let ((__tmp48862 (lambda (_g1330113315_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1330213318_) @@ -10343,94 +10343,94 @@ (declare (not safe)) (cons _g1330113315_ _g1330213318_))))) (declare (not safe)) - (foldr1 __tmp48685 '() _L13249_)))) + (foldr1 __tmp48862 '() _L13249_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#!void __tmp48684)))) + (cons '#!void __tmp48861)))) (declare (not safe)) - (cons __tmp48686 __tmp48683))) - (__tmp48667 - (let ((__tmp48668 - (let ((__tmp48681 + (cons __tmp48863 __tmp48860))) + (__tmp48844 + (let ((__tmp48845 + (let ((__tmp48858 (gx#datum->syntax '#f 'begin)) - (__tmp48669 - (let ((__tmp48680 + (__tmp48846 + (let ((__tmp48857 (lambda (_g1329413321_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1329513324_) (let () (declare (not safe)) (cons _g1329413321_ _g1329513324_)))) - (__tmp48670 - (let ((__tmp48671 - (let ((__tmp48679 (gx#datum->syntax '#f '$loop)) - (__tmp48672 + (__tmp48847 + (let ((__tmp48848 + (let ((__tmp48856 (gx#datum->syntax '#f '$loop)) + (__tmp48849 (begin (gx#syntax-check-splice-targets _L13251_ _L13253_) - (let ((__tmp48673 + (let ((__tmp48850 (lambda (_g1329613327_ _g1329713330_ _g1329813332_) - (let ((__tmp48674 - (let ((__tmp48678 + (let ((__tmp48851 + (let ((__tmp48855 (gx#datum->syntax '#f 'begin)) - (__tmp48675 - (let ((__tmp48676 + (__tmp48852 + (let ((__tmp48853 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48677 + (let ((__tmp48854 (lambda (_g1329913335_ _g1330013338_) (let () (declare (not safe)) (cons _g1329913335_ _g1330013338_))))) (declare (not safe)) - (foldr1 __tmp48677 '() _g1329613327_)))) + (foldr1 __tmp48854 '() _g1329613327_)))) (declare (not safe)) - (cons _g1329713330_ __tmp48676)))) + (cons _g1329713330_ __tmp48853)))) (declare (not safe)) - (cons __tmp48678 __tmp48675)))) + (cons __tmp48855 __tmp48852)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48674 + (cons __tmp48851 _g1329813332_))))) (declare (not safe)) - (foldr2 __tmp48673 + (foldr2 __tmp48850 '() _L13251_ _L13253_))))) (declare (not safe)) - (cons __tmp48679 __tmp48672)))) + (cons __tmp48856 __tmp48849)))) (declare (not safe)) - (cons __tmp48671 '())))) + (cons __tmp48848 '())))) (declare (not safe)) - (foldr1 __tmp48680 __tmp48670 _L13247_)))) + (foldr1 __tmp48857 __tmp48847 _L13247_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48681 - __tmp48669)))) + (cons __tmp48858 + __tmp48846)))) (declare (not safe)) - (cons __tmp48668 '())))) + (cons __tmp48845 '())))) (declare (not safe)) - (cons __tmp48682 __tmp48667)))) + (cons __tmp48859 __tmp48844)))) (declare (not safe)) - (cons _L13250_ __tmp48666)))) + (cons _L13250_ __tmp48843)))) (declare (not safe)) - (cons __tmp48687 __tmp48665)))) + (cons __tmp48864 __tmp48842)))) (declare (not safe)) - (cons __tmp48664 '())))) + (cons __tmp48841 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48688 - __tmp48663)))) + (cons __tmp48865 + __tmp48840)))) (declare (not safe)) - (cons __tmp48692 __tmp48662)))) + (cons __tmp48869 __tmp48839)))) (declare (not safe)) - (cons __tmp48693 __tmp48661)) + (cons __tmp48870 __tmp48838)) (_g1298113052_ _g1298213056_))) _body1304613243_ _fini1303713213_ @@ -10521,31 +10521,31 @@ _L13425_ _L13426_ _L13427_) - (let ((__tmp48703 + (let ((__tmp48880 (gx#datum->syntax '#f 'do)) - (__tmp48697 - (let ((__tmp48698 + (__tmp48874 + (let ((__tmp48875 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48699 - (let ((__tmp48700 - (let ((__tmp48702 + (let ((__tmp48876 + (let ((__tmp48877 + (let ((__tmp48879 (gx#datum->syntax '#f 'not)) - (__tmp48701 + (__tmp48878 (let () (declare (not safe)) (cons _L13426_ '())))) (declare (not safe)) - (cons __tmp48702 __tmp48701)))) + (cons __tmp48879 __tmp48878)))) (declare (not safe)) - (cons __tmp48700 _L13425_)))) + (cons __tmp48877 _L13425_)))) (declare (not safe)) - (cons __tmp48699 _L13423_)))) + (cons __tmp48876 _L13423_)))) (declare (not safe)) - (cons _L13427_ __tmp48698)))) + (cons _L13427_ __tmp48875)))) (declare (not safe)) - (cons __tmp48703 __tmp48697))) + (cons __tmp48880 __tmp48874))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _tl1336513410_ _tl1336813420_ @@ -10558,73 +10558,73 @@ (_g1335213447_ _$stx13349_)))) (define |gerbil/core$$[:0:]#begin0| (lambda (_$stx13451_) - (let* ((___stx4332443325_ _$stx13451_) + (let* ((___stx4350143502_ _$stx13451_) (_g1345613487_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4332443325_)))) - (let ((___kont4332743328_ (lambda (_L13599_) _L13599_)) - (___kont4332943330_ + ___stx4350143502_)))) + (let ((___kont4350443505_ (lambda (_L13599_) _L13599_)) + (___kont4350643507_ (lambda (_L13544_ _L13546_) - (let ((__tmp48718 (gx#datum->syntax '#f 'let)) - (__tmp48704 - (let ((__tmp48715 - (let ((__tmp48717 (gx#datum->syntax '#f '$r)) - (__tmp48716 + (let ((__tmp48895 (gx#datum->syntax '#f 'let)) + (__tmp48881 + (let ((__tmp48892 + (let ((__tmp48894 (gx#datum->syntax '#f '$r)) + (__tmp48893 (let () (declare (not safe)) (cons _L13546_ '())))) (declare (not safe)) - (cons __tmp48717 __tmp48716))) - (__tmp48705 - (let ((__tmp48708 - (let ((__tmp48714 + (cons __tmp48894 __tmp48893))) + (__tmp48882 + (let ((__tmp48885 + (let ((__tmp48891 (gx#datum->syntax '#f '%#expression)) - (__tmp48709 - (let ((__tmp48710 - (let ((__tmp48713 + (__tmp48886 + (let ((__tmp48887 + (let ((__tmp48890 (gx#datum->syntax '#f 'begin)) - (__tmp48711 - (let ((__tmp48712 + (__tmp48888 + (let ((__tmp48889 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1356313566_ _g1356413569_) (let () (declare (not safe)) (cons _g1356313566_ _g1356413569_))))) (declare (not safe)) - (foldr1 __tmp48712 '() _L13544_)))) + (foldr1 __tmp48889 '() _L13544_)))) (declare (not safe)) - (cons __tmp48713 __tmp48711)))) + (cons __tmp48890 __tmp48888)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48710 '())))) + (cons __tmp48887 '())))) (declare (not safe)) - (cons __tmp48714 __tmp48709))) - (__tmp48706 - (let ((__tmp48707 + (cons __tmp48891 __tmp48886))) + (__tmp48883 + (let ((__tmp48884 (gx#datum->syntax '#f '$r))) (declare (not safe)) - (cons __tmp48707 '())))) + (cons __tmp48884 '())))) (declare (not safe)) - (cons __tmp48708 __tmp48706)))) + (cons __tmp48885 __tmp48883)))) (declare (not safe)) - (cons __tmp48715 __tmp48705)))) + (cons __tmp48892 __tmp48882)))) (declare (not safe)) - (cons __tmp48718 __tmp48704))))) - (let ((___match4336743368_ + (cons __tmp48895 __tmp48881))))) + (let ((___match4354443545_ (lambda (_e1346913494_ _hd1346813498_ _tl1346713501_ _e1347213504_ _hd1347113508_ _tl1347013511_ - ___splice4333143332_ + ___splice4350843509_ _target1347313514_ _tl1347513517_) (letrec ((_loop1347613520_ @@ -10648,12 +10648,12 @@ _rest1348013527_))))) (let ((_rest1348113540_ (reverse _rest1348013527_))) - (___kont4332943330_ + (___kont4350643507_ _rest1348113540_ _hd1347113508_)))))) (_loop1347613520_ _target1347313514_ '()))))) - (if (gx#stx-pair? ___stx4332443325_) - (let ((_e1346113579_ (gx#syntax-e ___stx4332443325_))) + (if (gx#stx-pair? ___stx4350143502_) + (let ((_e1346113579_ (gx#syntax-e ___stx4350143502_))) (let ((_tl1345913586_ (let () (declare (not safe)) (##cdr _e1346113579_))) (_hd1346013583_ @@ -10671,9 +10671,9 @@ (declare (not safe)) (##car _e1346413589_)))) (if (gx#stx-null? _tl1346213596_) - (___kont4332743328_ _hd1346313593_) + (___kont4350443505_ _hd1346313593_) (if (gx#stx-pair/null? _tl1346213596_) - (let ((___splice4333143332_ + (let ((___splice4350843509_ (gx#syntax-split-splice _tl1346213596_ '0))) @@ -10681,23 +10681,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4333143332_ + ___splice4350843509_ '1))) (_target1347313514_ (let () (declare (not safe)) (##vector-ref - ___splice4333143332_ + ___splice4350843509_ '0)))) (if (gx#stx-null? _tl1347513517_) - (___match4336743368_ + (___match4354443545_ _e1346113579_ _hd1346013583_ _tl1345913586_ _e1346413589_ _hd1346313593_ _tl1346213596_ - ___splice4333143332_ + ___splice4350843509_ _target1347313514_ _tl1347513517_) (let () @@ -10710,103 +10710,103 @@ (let () (declare (not safe)) (_g1345613487_)))))))) (define |gerbil/core$$[:0:]#rec| (lambda (_$stx13617_) - (let* ((___stx4337043371_ _$stx13617_) + (let* ((___stx4354743548_ _$stx13617_) (_g1362313676_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4337043371_)))) - (let ((___kont4337343374_ + ___stx4354743548_)))) + (let ((___kont4355043551_ (lambda (_L13878_ _L13880_) - (let ((__tmp48724 (gx#datum->syntax '#f 'letrec)) - (__tmp48719 - (let ((__tmp48721 - (let ((__tmp48722 - (let ((__tmp48723 + (let ((__tmp48901 (gx#datum->syntax '#f 'letrec)) + (__tmp48896 + (let ((__tmp48898 + (let ((__tmp48899 + (let ((__tmp48900 (let () (declare (not safe)) (cons _L13878_ '())))) (declare (not safe)) - (cons _L13880_ __tmp48723)))) + (cons _L13880_ __tmp48900)))) (declare (not safe)) - (cons __tmp48722 '()))) - (__tmp48720 + (cons __tmp48899 '()))) + (__tmp48897 (let () (declare (not safe)) (cons _L13880_ '())))) (declare (not safe)) - (cons __tmp48721 __tmp48720)))) + (cons __tmp48898 __tmp48897)))) (declare (not safe)) - (cons __tmp48724 __tmp48719)))) - (___kont4337543376_ + (cons __tmp48901 __tmp48896)))) + (___kont4355243553_ (lambda (_L13822_ _L13824_) - (let ((__tmp48732 (gx#datum->syntax '#f 'letrec-values)) - (__tmp48725 - (let ((__tmp48729 - (let ((__tmp48730 - (let ((__tmp48731 + (let ((__tmp48909 (gx#datum->syntax '#f 'letrec-values)) + (__tmp48902 + (let ((__tmp48906 + (let ((__tmp48907 + (let ((__tmp48908 (let () (declare (not safe)) (cons _L13822_ '())))) (declare (not safe)) - (cons _L13824_ __tmp48731)))) + (cons _L13824_ __tmp48908)))) (declare (not safe)) - (cons __tmp48730 '()))) - (__tmp48726 - (let ((__tmp48727 - (let ((__tmp48728 + (cons __tmp48907 '()))) + (__tmp48903 + (let ((__tmp48904 + (let ((__tmp48905 (gx#datum->syntax '#f 'values))) (declare (not safe)) - (cons __tmp48728 _L13824_)))) + (cons __tmp48905 _L13824_)))) (declare (not safe)) - (cons __tmp48727 '())))) + (cons __tmp48904 '())))) (declare (not safe)) - (cons __tmp48729 __tmp48726)))) + (cons __tmp48906 __tmp48903)))) (declare (not safe)) - (cons __tmp48732 __tmp48725)))) - (___kont4337743378_ + (cons __tmp48909 __tmp48902)))) + (___kont4355443555_ (lambda (_L13743_ _L13745_ _L13746_) - (let ((__tmp48743 (gx#datum->syntax '#f 'letrec)) - (__tmp48733 - (let ((__tmp48735 - (let ((__tmp48736 - (let ((__tmp48737 - (let ((__tmp48738 - (let ((__tmp48742 + (let ((__tmp48920 (gx#datum->syntax '#f 'letrec)) + (__tmp48910 + (let ((__tmp48912 + (let ((__tmp48913 + (let ((__tmp48914 + (let ((__tmp48915 + (let ((__tmp48919 (gx#datum->syntax '#f 'lambda)) - (__tmp48739 - (let ((__tmp48740 + (__tmp48916 + (let ((__tmp48917 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48741 + (let ((__tmp48918 (lambda (_g1376613769_ _g1376713772_) (let () (declare (not safe)) (cons _g1376613769_ _g1376713772_))))) (declare (not safe)) - (foldr1 __tmp48741 '() _L13743_)))) + (foldr1 __tmp48918 '() _L13743_)))) (declare (not safe)) - (cons _L13745_ __tmp48740)))) + (cons _L13745_ __tmp48917)))) (declare (not safe)) - (cons __tmp48742 __tmp48739)))) + (cons __tmp48919 __tmp48916)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48738 '())))) + (cons __tmp48915 '())))) (declare (not safe)) - (cons _L13746_ __tmp48737)))) + (cons _L13746_ __tmp48914)))) (declare (not safe)) - (cons __tmp48736 '()))) - (__tmp48734 + (cons __tmp48913 '()))) + (__tmp48911 (let () (declare (not safe)) (cons _L13746_ '())))) (declare (not safe)) - (cons __tmp48735 __tmp48734)))) + (cons __tmp48912 __tmp48911)))) (declare (not safe)) - (cons __tmp48743 __tmp48733))))) - (let* ((___match4345743458_ + (cons __tmp48920 __tmp48910))))) + (let* ((___match4363443635_ (lambda (_e1365513683_ _hd1365413687_ _tl1365313690_ @@ -10816,7 +10816,7 @@ _e1366113703_ _hd1366013707_ _tl1365913710_ - ___splice4337943380_ + ___splice4355643557_ _target1366213713_ _tl1366413716_) (letrec ((_loop1366513719_ @@ -10844,7 +10844,7 @@ (_L13745_ _tl1365913710_) (_L13746_ _hd1366013707_)) (if (gx#identifier? _L13746_) - (___kont4337743378_ + (___kont4355443555_ _L13743_ _L13745_ _L13746_) @@ -10852,7 +10852,7 @@ (declare (not safe)) (_g1362313676_))))))))) (_loop1366513719_ _target1366213713_ '())))) - (___match4343143432_ + (___match4360843609_ (lambda (_e1364013782_ _hd1363913786_ _tl1363813789_ @@ -10868,9 +10868,9 @@ (let ((_L13822_ _hd1364813816_) (_L13824_ _tl1364413809_)) (if (gx#identifier-list? _L13824_) - (___kont4337543376_ _L13822_ _L13824_) + (___kont4355243553_ _L13822_ _L13824_) (if (gx#stx-pair/null? _tl1364113799_) - (let ((___splice4337943380_ + (let ((___splice4355643557_ (gx#syntax-split-splice _tl1364113799_ '0))) @@ -10878,16 +10878,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4345743458_ + (___match4363443635_ _e1364013782_ _hd1363913786_ _tl1363813789_ @@ -10897,7 +10897,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4337943380_ + ___splice4355643557_ _target1366213713_ _tl1366413716_) (let () @@ -10906,7 +10906,7 @@ (let () (declare (not safe)) (_g1362313676_))))))) - (___match4340143402_ + (___match4357843579_ (lambda (_e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10919,7 +10919,7 @@ (let ((_L13878_ _hd1363413872_) (_L13880_ _hd1363113862_)) (if (gx#identifier? _L13880_) - (___kont4337343374_ _L13878_ _L13880_) + (___kont4355043551_ _L13878_ _L13880_) (if (gx#stx-pair? _hd1363113862_) (let ((_e1364613802_ (gx#syntax-e _hd1363113862_))) @@ -10933,9 +10933,9 @@ (##car _e1364613802_)))) (if (gx#identifier? _hd1364513806_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48744_| + |gerbil/core$$[1]#_g48921_| _hd1364513806_) - (___match4343143432_ + (___match4360843609_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10950,7 +10950,7 @@ _tl1363313875_) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4337943380_ + (let ((___splice4355643557_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -10958,17 +10958,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4345743458_ + (___match4363443635_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -10978,7 +10978,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4337943380_ + ___splice4355643557_ _target1366213713_ _tl1366413716_) (let () @@ -10988,7 +10988,7 @@ (declare (not safe)) (_g1362313676_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4337943380_ + (let ((___splice4355643557_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -10996,17 +10996,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4345743458_ + (___match4363443635_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11016,7 +11016,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4337943380_ + ___splice4355643557_ _target1366213713_ _tl1366413716_) (let () @@ -11028,8 +11028,8 @@ (let () (declare (not safe)) (_g1362313676_)))))))) - (if (gx#stx-pair? ___stx4337043371_) - (let ((_e1362913848_ (gx#syntax-e ___stx4337043371_))) + (if (gx#stx-pair? ___stx4354743548_) + (let ((_e1362913848_ (gx#syntax-e ___stx4354743548_))) (let ((_tl1362713855_ (let () (declare (not safe)) (##cdr _e1362913848_))) (_hd1362813852_ @@ -11058,7 +11058,7 @@ (declare (not safe)) (##car _e1363513868_)))) (if (gx#stx-null? _tl1363313875_) - (___match4340143402_ + (___match4357843579_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11082,7 +11082,7 @@ (##car _e1364613802_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4337943380_ + (let ((___splice4355643557_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -11090,13 +11090,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref ___splice4337943380_ '1))) + (##vector-ref ___splice4355643557_ '1))) (_target1366213713_ (let () (declare (not safe)) - (##vector-ref ___splice4337943380_ '0)))) + (##vector-ref ___splice4355643557_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4345743458_ + (___match4363443635_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11106,7 +11106,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4337943380_ + ___splice4355643557_ _target1366213713_ _tl1366413716_) (let () (declare (not safe)) (_g1362313676_))))) @@ -11128,7 +11128,7 @@ (##car _e1364613802_)))) (if (gx#stx-pair/null? _tl1363013865_) - (let ((___splice4337943380_ + (let ((___splice4355643557_ (gx#syntax-split-splice _tl1363013865_ '0))) @@ -11136,17 +11136,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '1))) (_target1366213713_ (let () (declare (not safe)) (##vector-ref - ___splice4337943380_ + ___splice4355643557_ '0)))) (if (gx#stx-null? _tl1366413716_) - (___match4345743458_ + (___match4363443635_ _e1362913848_ _hd1362813852_ _tl1362713855_ @@ -11156,7 +11156,7 @@ _e1364613802_ _hd1364513806_ _tl1364413809_ - ___splice4337943380_ + ___splice4355643557_ _target1366213713_ _tl1366413716_) (let () @@ -11174,21 +11174,21 @@ (lambda (_stx13900_) (letrec ((_let-bind?13903_ (lambda (_x14826_) - (let* ((___stx4346043461_ _x14826_) + (let* ((___stx4363743638_ _x14826_) (_g1483114850_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4346043461_)))) - (let ((___kont4346343464_ + ___stx4363743638_)))) + (let ((___kont4364043641_ (lambda (_L14918_ _L14920_) (_let-head?13906_ _L14920_))) - (___kont4346543466_ (lambda (_L14878_) '#t)) - (___kont4346743468_ (lambda () '#f))) - (if (gx#stx-pair? ___stx4346043461_) + (___kont4364243643_ (lambda (_L14878_) '#t)) + (___kont4364443645_ (lambda () '#f))) + (if (gx#stx-pair? ___stx4363743638_) (let ((_e1483714898_ - (gx#syntax-e ___stx4346043461_))) + (gx#syntax-e ___stx4363743638_))) (let ((_tl1483514905_ (let () (declare (not safe)) @@ -11209,37 +11209,37 @@ (declare (not safe)) (##car _e1484014908_)))) (if (gx#stx-null? _tl1483814915_) - (___kont4346343464_ + (___kont4364043641_ _hd1483914912_ _hd1483614902_) - (___kont4346743468_)))) + (___kont4364443645_)))) (if (gx#stx-null? _tl1483514905_) - (___kont4346543466_ _hd1483614902_) - (___kont4346743468_))))) - (___kont4346743468_)))))) + (___kont4364243643_ _hd1483614902_) + (___kont4364443645_))))) + (___kont4364443645_)))))) (_let-bind13905_ (lambda (_x14728_) - (let* ((___stx4349443495_ _x14728_) + (let* ((___stx4367143672_ _x14728_) (_g1473214751_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4349443495_)))) - (let ((___kont4349743498_ + ___stx4367143672_)))) + (let ((___kont4367443675_ (lambda (_L14807_ _L14809_) _x14728_)) - (___kont4349943500_ + (___kont4367643677_ (lambda (_L14768_) - (let ((__tmp48746 (gx#datum->syntax '#f '_)) - (__tmp48745 + (let ((__tmp48923 (gx#datum->syntax '#f '_)) + (__tmp48922 (let () (declare (not safe)) (cons _L14768_ '())))) (declare (not safe)) - (cons __tmp48746 __tmp48745))))) - (if (gx#stx-pair? ___stx4349443495_) + (cons __tmp48923 __tmp48922))))) + (if (gx#stx-pair? ___stx4367143672_) (let ((_e1473814787_ - (gx#syntax-e ___stx4349443495_))) + (gx#syntax-e ___stx4367143672_))) (let ((_tl1473614794_ (let () (declare (not safe)) @@ -11260,35 +11260,35 @@ (declare (not safe)) (##car _e1474114797_)))) (if (gx#stx-null? _tl1473914804_) - (___kont4349743498_ + (___kont4367443675_ _hd1474014801_ _hd1473714791_) (let () (declare (not safe)) (_g1473214751_))))) (if (gx#stx-null? _tl1473614794_) - (___kont4349943500_ _hd1473714791_) + (___kont4367643677_ _hd1473714791_) (let () (declare (not safe)) (_g1473214751_)))))) (let () (declare (not safe)) (_g1473214751_))))))) (_let-head?13906_ (lambda (_x14668_) - (let* ((___stx4352643527_ _x14668_) + (let* ((___stx4370343704_ _x14668_) (_g1467214683_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4352643527_)))) - (let ((___kont4352943530_ + ___stx4370343704_)))) + (let ((___kont4370643707_ (lambda (_L14711_) (gx#stx-andmap gx#identifier? _L14711_))) - (___kont4353143532_ + (___kont4370843709_ (lambda () (gx#identifier? _x14668_)))) - (if (gx#stx-pair? ___stx4352643527_) + (if (gx#stx-pair? ___stx4370343704_) (let ((_e1467714701_ - (gx#syntax-e ___stx4352643527_))) + (gx#syntax-e ___stx4370343704_))) (let ((_tl1467514708_ (let () (declare (not safe)) @@ -11299,26 +11299,26 @@ (##car _e1467714701_)))) (if (gx#identifier? _hd1467614705_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48747_| + |gerbil/core$$[1]#_g48924_| _hd1467614705_) - (___kont4352943530_ _tl1467514708_) - (___kont4353143532_)) - (___kont4353143532_)))) - (___kont4353143532_)))))) + (___kont4370643707_ _tl1467514708_) + (___kont4370843709_)) + (___kont4370843709_)))) + (___kont4370843709_)))))) (_let-head13907_ (lambda (_x14608_) - (let* ((___stx4354643547_ _x14608_) + (let* ((___stx4372343724_ _x14608_) (_g1461214623_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4354643547_)))) - (let ((___kont4354943550_ (lambda (_L14651_) _L14651_)) - (___kont4355143552_ (lambda () (list _x14608_)))) - (if (gx#stx-pair? ___stx4354643547_) + ___stx4372343724_)))) + (let ((___kont4372643727_ (lambda (_L14651_) _L14651_)) + (___kont4372843729_ (lambda () (list _x14608_)))) + (if (gx#stx-pair? ___stx4372343724_) (let ((_e1461714641_ - (gx#syntax-e ___stx4354643547_))) + (gx#syntax-e ___stx4372343724_))) (let ((_tl1461514648_ (let () (declare (not safe)) @@ -11329,47 +11329,47 @@ (##car _e1461714641_)))) (if (gx#identifier? _hd1461614645_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48748_| + |gerbil/core$$[1]#_g48925_| _hd1461614645_) - (___kont4354943550_ _tl1461514648_) - (___kont4355143552_)) - (___kont4355143552_)))) - (___kont4355143552_))))))) - (let* ((___stx4356643567_ _stx13900_) + (___kont4372643727_ _tl1461514648_) + (___kont4372843729_)) + (___kont4372843729_)))) + (___kont4372843729_))))))) + (let* ((___stx4374343744_ _stx13900_) (_g1391113983_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4356643567_)))) - (let ((___kont4356943570_ + ___stx4374343744_)))) + (let ((___kont4374643747_ (lambda (_L14581_ _L14583_ _L14584_ _L14585_) - (let ((__tmp48749 - (let ((__tmp48750 - (let ((__tmp48751 - (let ((__tmp48752 + (let ((__tmp48926 + (let ((__tmp48927 + (let ((__tmp48928 + (let ((__tmp48929 (let () (declare (not safe)) (cons _L14583_ '())))) (declare (not safe)) - (cons _L14584_ __tmp48752)))) + (cons _L14584_ __tmp48929)))) (declare (not safe)) - (cons __tmp48751 '())))) + (cons __tmp48928 '())))) (declare (not safe)) - (cons __tmp48750 _L14581_)))) + (cons __tmp48927 _L14581_)))) (declare (not safe)) - (cons _L14585_ __tmp48749)))) - (___kont4357143572_ + (cons _L14585_ __tmp48926)))) + (___kont4374843749_ (lambda (_L14503_ _L14505_) - (let ((__tmp48760 (gx#datum->syntax '#f 'and)) - (__tmp48753 - (let ((__tmp48754 - (let ((__tmp48755 - (let ((__tmp48759 + (let ((__tmp48937 (gx#datum->syntax '#f 'and)) + (__tmp48930 + (let ((__tmp48931 + (let ((__tmp48932 + (let ((__tmp48936 (gx#datum->syntax '#f 'let)) - (__tmp48756 - (let ((__tmp48757 - (let ((__tmp48758 + (__tmp48933 + (let ((__tmp48934 + (let ((__tmp48935 (lambda (_g1452514528_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1452614531_) @@ -11377,19 +11377,19 @@ (declare (not safe)) (cons _g1452514528_ _g1452614531_))))) (declare (not safe)) - (foldr1 __tmp48758 '() _L14503_)))) + (foldr1 __tmp48935 '() _L14503_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp48757)))) + (cons '() __tmp48934)))) (declare (not safe)) - (cons __tmp48759 __tmp48756)))) + (cons __tmp48936 __tmp48933)))) (declare (not safe)) - (cons __tmp48755 '())))) + (cons __tmp48932 '())))) (declare (not safe)) - (cons _L14505_ __tmp48754)))) + (cons _L14505_ __tmp48931)))) (declare (not safe)) - (cons __tmp48760 __tmp48753)))) - (___kont4357543576_ + (cons __tmp48937 __tmp48930)))) + (___kont4375243753_ (lambda (_L14070_ _L14072_) (let* ((_g1410314129_ (lambda (_g1410414125_) @@ -11400,30 +11400,30 @@ (_g1410214414_ (lambda (_g1410414133_) (if (gx#stx-pair/null? _g1410414133_) - (let ((_g48761_ + (let ((_g48938_ (gx#syntax-split-splice _g1410414133_ '0))) (begin - (let ((_g48762_ + (let ((_g48939_ (let () (declare (not safe)) - (if (##values? _g48761_) - (##vector-length _g48761_) + (if (##values? _g48938_) + (##vector-length _g48938_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48762_ 2))) + (##fx= _g48939_ 2))) (error "Context expects 2 values" - _g48762_))) + _g48939_))) (let ((_target1410714136_ (let () (declare (not safe)) - (##vector-ref _g48761_ 0))) + (##vector-ref _g48938_ 0))) (_tl1410914139_ (let () (declare (not safe)) - (##vector-ref _g48761_ 1)))) + (##vector-ref _g48938_ 1)))) (if (gx#stx-null? _tl1410914139_) (letrec ((_loop1411014142_ (lambda (_hd1410814146_ @@ -11491,34 +11491,34 @@ (_g1420714402_ (lambda (_g1420914229_) (if (gx#stx-pair/null? _g1420914229_) - (let ((_g48763_ + (let ((_g48940_ (gx#syntax-split-splice _g1420914229_ '0))) (begin - (let ((_g48764_ + (let ((_g48941_ (let () (declare (not safe)) - (if (##values? _g48763_) + (if (##values? _g48940_) (##vector-length - _g48763_) + _g48940_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48764_ 2))) + (##fx= _g48941_ 2))) (error "Context expects 2 values" - _g48764_))) + _g48941_))) (let ((_target1421114232_ (let () (declare (not safe)) (##vector-ref - _g48763_ + _g48940_ 0))) (_tl1421314235_ (let () (declare (not safe)) (##vector-ref - _g48763_ + _g48940_ 1)))) (if (gx#stx-null? _tl1421314235_) @@ -11554,36 +11554,36 @@ (lambda (_g1428014300_) (if (gx#stx-pair/null? _g1428014300_) - (let ((_g48765_ + (let ((_g48942_ (gx#syntax-split-splice _g1428014300_ '0))) (begin - (let ((_g48766_ + (let ((_g48943_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g48765_) - (##vector-length _g48765_) + _g48942_) + (##vector-length _g48942_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g48766_ 2))) - (error "Context expects 2 values" _g48766_))) + (if (not (let () (declare (not safe)) (##fx= _g48943_ 2))) + (error "Context expects 2 values" _g48943_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1428214303_ (let () (declare (not safe)) (##vector-ref - _g48765_ + _g48942_ 0))) (_tl1428414306_ (let () (declare (not safe)) (##vector-ref - _g48765_ + _g48942_ 1)))) (if (gx#stx-null? _tl1428414306_) @@ -11612,99 +11612,99 @@ ((lambda (_L14333_) (let () (let () - (let ((__tmp48788 + (let ((__tmp48965 (gx#datum->syntax '#f 'let-values)) - (__tmp48767 - (let ((__tmp48783 + (__tmp48944 + (let ((__tmp48960 (begin (gx#syntax-check-splice-targets _L14190_ _L14262_) - (let ((__tmp48784 + (let ((__tmp48961 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1435814362_ _g1435914365_ _g1436014367_) - (let ((__tmp48785 - (let ((__tmp48787 + (let ((__tmp48962 + (let ((__tmp48964 (let () (declare (not safe)) (cons _g1435914365_ '()))) - (__tmp48786 + (__tmp48963 (let () (declare (not safe)) (cons _g1435814362_ '())))) (declare (not safe)) - (cons __tmp48787 __tmp48786)))) + (cons __tmp48964 __tmp48963)))) (declare (not safe)) - (cons __tmp48785 _g1436014367_))))) + (cons __tmp48962 _g1436014367_))))) (declare (not safe)) - (foldr2 __tmp48784 '() _L14190_ _L14262_)))) - (__tmp48768 - (let ((__tmp48769 - (let ((__tmp48782 (gx#datum->syntax '#f 'and)) - (__tmp48770 - (let ((__tmp48781 + (foldr2 __tmp48961 '() _L14190_ _L14262_)))) + (__tmp48945 + (let ((__tmp48946 + (let ((__tmp48959 (gx#datum->syntax '#f 'and)) + (__tmp48947 + (let ((__tmp48958 (lambda (_g1435114370_ _g1435214373_) (let () (declare (not safe)) (cons _g1435114370_ _g1435214373_)))) - (__tmp48771 - (let ((__tmp48772 - (let ((__tmp48780 + (__tmp48948 + (let ((__tmp48949 + (let ((__tmp48957 (gx#datum->syntax '#f 'let-values)) - (__tmp48773 - (let ((__tmp48776 + (__tmp48950 + (let ((__tmp48953 (begin (gx#syntax-check-splice-targets _L14262_ _L14333_) - (let ((__tmp48777 + (let ((__tmp48954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1435514376_ _g1435614379_ _g1435714381_) - (let ((__tmp48778 - (let ((__tmp48779 + (let ((__tmp48955 + (let ((__tmp48956 (let () (declare (not safe)) (cons _g1435514376_ '())))) (declare (not safe)) - (cons _g1435614379_ __tmp48779)))) + (cons _g1435614379_ __tmp48956)))) (declare (not safe)) - (cons __tmp48778 _g1435714381_))))) + (cons __tmp48955 _g1435714381_))))) (declare (not safe)) - (foldr2 __tmp48777 '() _L14262_ _L14333_)))) - (__tmp48774 - (let ((__tmp48775 + (foldr2 __tmp48954 '() _L14262_ _L14333_)))) + (__tmp48951 + (let ((__tmp48952 (lambda (_g1435314384_ _g1435414387_) (let () (declare (not safe)) (cons _g1435314384_ _g1435414387_))))) (declare (not safe)) - (foldr1 __tmp48775 '() _L14070_)))) + (foldr1 __tmp48952 '() _L14070_)))) (declare (not safe)) - (cons __tmp48776 __tmp48774)))) + (cons __tmp48953 __tmp48951)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48780 __tmp48773)))) + (cons __tmp48957 __tmp48950)))) (declare (not safe)) - (cons __tmp48772 '())))) + (cons __tmp48949 '())))) (declare (not safe)) - (foldr1 __tmp48781 __tmp48771 _L14262_)))) + (foldr1 __tmp48958 __tmp48948 _L14262_)))) (declare (not safe)) - (cons __tmp48782 __tmp48770)))) + (cons __tmp48959 __tmp48947)))) (declare (not safe)) - (cons __tmp48769 '())))) + (cons __tmp48946 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48783 - __tmp48768)))) + (cons __tmp48960 + __tmp48945)))) (declare (not safe)) - (cons __tmp48788 __tmp48767))))) + (cons __tmp48965 __tmp48944))))) _hd-bind1429014329_)))))) (_loop1428514309_ _target1428214303_ '())) (_g1427914296_ _g1428014300_))))) @@ -11714,7 +11714,7 @@ (_g1427814390_ (gx#stx-map _let-head13907_ - (let ((__tmp48789 + (let ((__tmp48966 (lambda (_g1439314396_ _g1439414399_) (let () @@ -11722,7 +11722,7 @@ (cons _g1439314396_ _g1439414399_))))) (declare (not safe)) - (foldr1 __tmp48789 '() _L14192_))))))) + (foldr1 __tmp48966 '() _L14192_))))))) _$e1421914258_)))))) (_loop1421414238_ _target1421114232_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11731,14 +11731,14 @@ (_g1420814225_ _g1420914229_))))) (_g1420714402_ (gx#gentemps - (let ((__tmp48790 + (let ((__tmp48967 (lambda (_g1440514408_ _g1440614411_) (let () (declare (not safe)) (cons _g1440514408_ _g1440614411_))))) (declare (not safe)) - (foldr1 __tmp48790 '() _L14192_))))))) + (foldr1 __tmp48967 '() _L14192_))))))) _e1411614184_ _hd1411714187_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11751,21 +11751,21 @@ (_g1410214414_ (gx#stx-map _let-bind13905_ - (let ((__tmp48791 + (let ((__tmp48968 (lambda (_g1441714420_ _g1441814423_) (let () (declare (not safe)) (cons _g1441714420_ _g1441814423_))))) (declare (not safe)) - (foldr1 __tmp48791 '() _L14072_)))))))) - (let* ((___match4366343664_ + (foldr1 __tmp48968 '() _L14072_)))))))) + (let* ((___match4384043841_ (lambda (_e1395613990_ _hd1395513994_ _tl1395413997_ _e1395914000_ _hd1395814004_ _tl1395714007_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (letrec ((_loop1396314016_ @@ -11791,7 +11791,7 @@ (reverse _bind1396714023_))) (if (gx#stx-pair/null? _tl1395714007_) - (let ((___splice4357943580_ + (let ((___splice4375643757_ (gx#syntax-split-splice _tl1395714007_ '0))) @@ -11799,13 +11799,13 @@ (let () (declare (not safe)) (##vector-ref - ___splice4357943580_ + ___splice4375643757_ '1))) (_target1396914040_ (let () (declare (not safe)) (##vector-ref - ___splice4357943580_ + ___splice4375643757_ '0)))) (if (gx#stx-null? _tl1397114043_) @@ -11836,7 +11836,7 @@ (_L14072_ _bind1396814036_)) (if (gx#stx-andmap _let-bind?13903_ - (let ((__tmp48792 + (let ((__tmp48969 (lambda (_g1409414097_ _g1409514100_) (let () @@ -11844,8 +11844,8 @@ (cons _g1409414097_ _g1409514100_))))) (declare (not safe)) - (foldr1 __tmp48792 '() _L14072_))) - (___kont4357543576_ _L14070_ _L14072_) + (foldr1 __tmp48969 '() _L14072_))) + (___kont4375243753_ _L14070_ _L14072_) (let () (declare (not safe)) (_g1391113983_))))))))) @@ -11856,7 +11856,7 @@ (declare (not safe)) (_g1391113983_)))))))) (_loop1396314016_ _target1396014010_ '())))) - (___match4364343644_ + (___match4382043821_ (lambda (_e1393314433_ _hd1393214437_ _tl1393114440_ @@ -11869,7 +11869,7 @@ _e1394214463_ _hd1394114467_ _tl1394014470_ - ___splice4357343574_ + ___splice4375043751_ _target1394314473_ _tl1394514476_) (letrec ((_loop1394614479_ @@ -11893,11 +11893,11 @@ _body1395014486_))))) (let ((_body1395114499_ (reverse _body1395014486_))) - (___kont4357143572_ + (___kont4374843749_ _body1395114499_ _hd1394114467_)))))) (_loop1394614479_ _target1394314473_ '())))) - (___match4360743608_ + (___match4378443785_ (lambda (_e1391914541_ _hd1391814545_ _tl1391714548_ @@ -11915,7 +11915,7 @@ (_L14584_ _hd1392414565_) (_L14585_ _hd1391814545_)) (if (_let-head?13906_ _L14584_) - (___kont4356943570_ + (___kont4374643747_ _L14581_ _L14583_ _L14584_ @@ -11932,7 +11932,7 @@ (declare (not safe)) (##car _e1394214463_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -11940,23 +11940,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () @@ -11966,7 +11966,7 @@ (declare (not safe)) (_g1391113983_))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -11974,23 +11974,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () @@ -11999,8 +11999,8 @@ (let () (declare (not safe)) (_g1391113983_))))))))) - (if (gx#stx-pair? ___stx4356643567_) - (let ((_e1391914541_ (gx#syntax-e ___stx4356643567_))) + (if (gx#stx-pair? ___stx4374343744_) + (let ((_e1391914541_ (gx#syntax-e ___stx4374343744_))) (let ((_tl1391714548_ (let () (declare (not safe)) @@ -12044,7 +12044,7 @@ (##car _e1392814571_)))) (if (gx#stx-null? _tl1392614578_) - (___match4360743608_ + (___match4378443785_ _e1391914541_ _hd1391814545_ _tl1391714548_ @@ -12068,25 +12068,25 @@ (_hd1394114467_ (let () (declare (not safe)) (##car _e1394214463_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '1))) + (##vector-ref ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '0)))) + (##vector-ref ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () @@ -12094,25 +12094,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '1))) + (##vector-ref ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '0)))) + (##vector-ref ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12137,18 +12137,18 @@ (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tl1392014558_) - (let ((___splice4357343574_ + (let ((___splice4375043751_ (gx#syntax-split-splice _tl1392014558_ '0))) (let ((_tl1394514476_ (let () (declare (not safe)) - (##vector-ref ___splice4357343574_ '1))) + (##vector-ref ___splice4375043751_ '1))) (_target1394314473_ (let () (declare (not safe)) - (##vector-ref ___splice4357343574_ '0)))) + (##vector-ref ___splice4375043751_ '0)))) (if (gx#stx-null? _tl1394514476_) - (___match4364343644_ + (___match4382043821_ _e1391914541_ _hd1391814545_ _tl1391714548_ @@ -12161,11 +12161,11 @@ _e1394214463_ _hd1394114467_ _tl1394014470_ - ___splice4357343574_ + ___splice4375043751_ _target1394314473_ _tl1394514476_) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12173,23 +12173,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () @@ -12199,27 +12199,27 @@ (declare (not safe)) (_g1391113983_)))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '1))) + (##vector-ref ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () @@ -12227,25 +12227,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '1))) + (##vector-ref ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '0)))) + (##vector-ref ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () @@ -12253,25 +12253,25 @@ (_g1391113983_))))) (let () (declare (not safe)) (_g1391113983_)))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) (let ((_tl1396214013_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '1))) + (##vector-ref ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '0)))) + (##vector-ref ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12279,7 +12279,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12288,20 +12288,20 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice4357743578_ '1))) + (##vector-ref ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) - (##vector-ref ___splice4357743578_ '0)))) + (##vector-ref ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () (declare (not safe)) (_g1391113983_))))) @@ -12310,7 +12310,7 @@ (declare (not safe)) (_g1391113983_))))))) (if (gx#stx-pair/null? _hd1392114555_) - (let ((___splice4357743578_ + (let ((___splice4375443755_ (gx#syntax-split-splice _hd1392114555_ '0))) @@ -12318,23 +12318,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '1))) (_target1396014010_ (let () (declare (not safe)) (##vector-ref - ___splice4357743578_ + ___splice4375443755_ '0)))) (if (gx#stx-null? _tl1396214013_) - (___match4366343664_ + (___match4384043841_ _e1391914541_ _hd1391814545_ _tl1391714548_ _e1392214551_ _hd1392114555_ _tl1392014558_ - ___splice4357743578_ + ___splice4375443755_ _target1396014010_ _tl1396214013_) (let () @@ -12347,44 +12347,44 @@ (let () (declare (not safe)) (_g1391113983_))))))))) (define |gerbil/core$$[:0:]#alet*| (lambda (_$stx14943_) - (let* ((___stx4366643667_ _$stx14943_) + (let* ((___stx4384343844_ _$stx14943_) (_g1494915000_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4366643667_)))) - (let ((___kont4366943670_ (lambda () '#t)) - (___kont4367143672_ + ___stx4384343844_)))) + (let ((___kont4384643847_ (lambda () '#t)) + (___kont4384843849_ (lambda (_L15158_) - (let ((__tmp48796 (gx#datum->syntax '#f 'let)) - (__tmp48793 - (let ((__tmp48794 - (let ((__tmp48795 + (let ((__tmp48973 (gx#datum->syntax '#f 'let)) + (__tmp48970 + (let ((__tmp48971 + (let ((__tmp48972 (lambda (_g1517415177_ _g1517515180_) (let () (declare (not safe)) (cons _g1517415177_ _g1517515180_))))) (declare (not safe)) - (foldr1 __tmp48795 '() _L15158_)))) + (foldr1 __tmp48972 '() _L15158_)))) (declare (not safe)) - (cons '() __tmp48794)))) + (cons '() __tmp48971)))) (declare (not safe)) - (cons __tmp48796 __tmp48793)))) - (___kont4367543676_ + (cons __tmp48973 __tmp48970)))) + (___kont4385243853_ (lambda (_L15067_ _L15069_ _L15070_ _L15071_) - (let ((__tmp48804 (gx#datum->syntax '#f 'alet)) - (__tmp48797 - (let ((__tmp48803 + (let ((__tmp48981 (gx#datum->syntax '#f 'alet)) + (__tmp48974 + (let ((__tmp48980 (let () (declare (not safe)) (cons _L15070_ '()))) - (__tmp48798 - (let ((__tmp48799 - (let ((__tmp48800 - (let ((__tmp48801 - (let ((__tmp48802 + (__tmp48975 + (let ((__tmp48976 + (let ((__tmp48977 + (let ((__tmp48978 + (let ((__tmp48979 (lambda (_g1509215095_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1509315098_) @@ -12392,19 +12392,19 @@ (declare (not safe)) (cons _g1509215095_ _g1509315098_))))) (declare (not safe)) - (foldr1 __tmp48802 '() _L15067_)))) + (foldr1 __tmp48979 '() _L15067_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L15069_ __tmp48801)))) + (cons _L15069_ __tmp48978)))) (declare (not safe)) - (cons _L15071_ __tmp48800)))) + (cons _L15071_ __tmp48977)))) (declare (not safe)) - (cons __tmp48799 '())))) + (cons __tmp48976 '())))) (declare (not safe)) - (cons __tmp48803 __tmp48798)))) + (cons __tmp48980 __tmp48975)))) (declare (not safe)) - (cons __tmp48804 __tmp48797))))) - (let* ((___match4374343744_ + (cons __tmp48981 __tmp48974))))) + (let* ((___match4392043921_ (lambda (_e1497915007_ _hd1497815011_ _tl1497715014_ @@ -12414,7 +12414,7 @@ _e1498515027_ _hd1498415031_ _tl1498315034_ - ___splice4367743678_ + ___splice4385443855_ _target1498615037_ _tl1498815040_) (letrec ((_loop1498915043_ @@ -12438,20 +12438,20 @@ _body1499315050_))))) (let ((_body1499415063_ (reverse _body1499315050_))) - (___kont4367543676_ + (___kont4385243853_ _body1499415063_ _tl1498315034_ _hd1498415031_ _hd1497815011_)))))) (_loop1498915043_ _target1498615037_ '())))) - (___match4371743718_ + (___match4389443895_ (lambda (_e1496015108_ _hd1495915112_ _tl1495815115_ _e1496315118_ _hd1496215122_ _tl1496115125_ - ___splice4367343674_ + ___splice4385043851_ _target1496415128_ _tl1496615131_) (letrec ((_loop1496715134_ @@ -12475,11 +12475,11 @@ _body1497115141_))))) (let ((_body1497215154_ (reverse _body1497115141_))) - (___kont4367143672_ + (___kont4384843849_ _body1497215154_)))))) (_loop1496715134_ _target1496415128_ '()))))) - (if (gx#stx-pair? ___stx4366643667_) - (let ((_e1495315190_ (gx#syntax-e ___stx4366643667_))) + (if (gx#stx-pair? ___stx4384343844_) + (let ((_e1495315190_ (gx#syntax-e ___stx4384343844_))) (let ((_tl1495115197_ (let () (declare (not safe)) (##cdr _e1495315190_))) (_hd1495215194_ @@ -12498,9 +12498,9 @@ (##car _e1495615200_)))) (if (gx#stx-null? _hd1495515204_) (if (gx#stx-null? _tl1495415207_) - (___kont4366943670_) + (___kont4384643847_) (if (gx#stx-pair/null? _tl1495415207_) - (let ((___splice4367343674_ + (let ((___splice4385043851_ (gx#syntax-split-splice _tl1495415207_ '0))) @@ -12508,23 +12508,23 @@ (let () (declare (not safe)) (##vector-ref - ___splice4367343674_ + ___splice4385043851_ '1))) (_target1496415128_ (let () (declare (not safe)) (##vector-ref - ___splice4367343674_ + ___splice4385043851_ '0)))) (if (gx#stx-null? _tl1496615131_) - (___match4371743718_ + (___match4389443895_ _e1495315190_ _hd1495215194_ _tl1495115197_ _e1495615200_ _hd1495515204_ _tl1495415207_ - ___splice4367343674_ + ___splice4385043851_ _target1496415128_ _tl1496615131_) (let () @@ -12546,7 +12546,7 @@ (##car _e1498515027_)))) (if (gx#stx-pair/null? _tl1495415207_) - (let ((___splice4367743678_ + (let ((___splice4385443855_ (gx#syntax-split-splice _tl1495415207_ '0))) @@ -12554,17 +12554,17 @@ (let () (declare (not safe)) (##vector-ref - ___splice4367743678_ + ___splice4385443855_ '1))) (_target1498615037_ (let () (declare (not safe)) (##vector-ref - ___splice4367743678_ + ___splice4385443855_ '0)))) (if (gx#stx-null? _tl1498815040_) - (___match4374343744_ + (___match4392043921_ _e1495315190_ _hd1495215194_ _tl1495115197_ @@ -12574,7 +12574,7 @@ _e1498515027_ _hd1498415031_ _tl1498315034_ - ___splice4367743678_ + ___splice4385443855_ _target1498615037_ _tl1498815040_) (let () @@ -12590,73 +12590,73 @@ (let () (declare (not safe)) (_g1494915000_)))))))) (define |gerbil/core$$[:0:]#@list| (lambda (_$stx15220_) - (let* ((___stx4374643747_ _$stx15220_) + (let* ((___stx4392343924_ _$stx15220_) (_g1523115309_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4374643747_)))) - (let ((___kont4374943750_ + ___stx4392343924_)))) + (let ((___kont4392643927_ (lambda () - (let ((__tmp48806 (gx#datum->syntax '#f 'quote)) - (__tmp48805 + (let ((__tmp48983 (gx#datum->syntax '#f 'quote)) + (__tmp48982 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp48806 __tmp48805)))) - (___kont4375143752_ + (cons __tmp48983 __tmp48982)))) + (___kont4392843929_ (lambda (_L15640_) - (let ((__tmp48808 (gx#datum->syntax '#f 'quote)) - (__tmp48807 + (let ((__tmp48985 (gx#datum->syntax '#f 'quote)) + (__tmp48984 (let () (declare (not safe)) (cons _L15640_ '())))) (declare (not safe)) - (cons __tmp48808 __tmp48807)))) - (___kont4375343754_ + (cons __tmp48985 __tmp48984)))) + (___kont4393043931_ (lambda (_L15588_) - (let ((__tmp48810 (gx#datum->syntax '#f 'quasiquote)) - (__tmp48809 + (let ((__tmp48987 (gx#datum->syntax '#f 'quasiquote)) + (__tmp48986 (let () (declare (not safe)) (cons _L15588_ '())))) (declare (not safe)) - (cons __tmp48810 __tmp48809)))) - (___kont4375543756_ (lambda (_L15535_) _L15535_)) - (___kont4375743758_ (lambda (_L15477_ _L15479_) _L15479_)) - (___kont4375943760_ + (cons __tmp48987 __tmp48986)))) + (___kont4393243933_ (lambda (_L15535_) _L15535_)) + (___kont4393443935_ (lambda (_L15477_ _L15479_) _L15479_)) + (___kont4393643937_ (lambda (_L15419_ _L15421_ _L15422_ _L15423_) - (let ((__tmp48816 (gx#datum->syntax '#f 'foldr)) - (__tmp48811 - (let ((__tmp48815 (gx#datum->syntax '#f 'cons)) - (__tmp48812 - (let ((__tmp48814 + (let ((__tmp48993 (gx#datum->syntax '#f 'foldr)) + (__tmp48988 + (let ((__tmp48992 (gx#datum->syntax '#f 'cons)) + (__tmp48989 + (let ((__tmp48991 (let () (declare (not safe)) (cons _L15423_ _L15419_))) - (__tmp48813 + (__tmp48990 (let () (declare (not safe)) (cons _L15422_ '())))) (declare (not safe)) - (cons __tmp48814 __tmp48813)))) + (cons __tmp48991 __tmp48990)))) (declare (not safe)) - (cons __tmp48815 __tmp48812)))) + (cons __tmp48992 __tmp48989)))) (declare (not safe)) - (cons __tmp48816 __tmp48811)))) - (___kont4376143762_ + (cons __tmp48993 __tmp48988)))) + (___kont4393843939_ (lambda (_L15365_ _L15367_ _L15368_) - (let ((__tmp48820 (gx#datum->syntax '#f 'cons)) - (__tmp48817 - (let ((__tmp48818 - (let ((__tmp48819 + (let ((__tmp48997 (gx#datum->syntax '#f 'cons)) + (__tmp48994 + (let ((__tmp48995 + (let ((__tmp48996 (let () (declare (not safe)) (cons _L15368_ _L15365_)))) (declare (not safe)) - (cons __tmp48819 '())))) + (cons __tmp48996 '())))) (declare (not safe)) - (cons _L15367_ __tmp48818)))) + (cons _L15367_ __tmp48995)))) (declare (not safe)) - (cons __tmp48820 __tmp48817)))) - (___kont4376343764_ (lambda (_L15326_) _L15326_))) - (let* ((___match4388543886_ + (cons __tmp48997 __tmp48994)))) + (___kont4394043941_ (lambda (_L15326_) _L15326_))) + (let* ((___match4406244063_ (lambda (_e1528415389_ _hd1528315393_ _tl1528215396_ @@ -12671,16 +12671,16 @@ (_L15422_ _hd1528615403_) (_L15423_ _hd1528315393_)) (if (gx#ellipsis? _L15421_) - (___kont4375943760_ + (___kont4393643937_ _L15419_ _L15421_ _L15422_ _L15423_) - (___kont4376143762_ + (___kont4393843939_ _tl1528515406_ _hd1528615403_ _hd1528315393_))))) - (___match4386743868_ + (___match4404444045_ (lambda (_e1527115447_ _hd1527015451_ _tl1526915454_ @@ -12693,8 +12693,8 @@ (let ((_L15477_ _hd1527615471_) (_L15479_ _hd1527315461_)) (if (gx#ellipsis? _L15477_) - (___kont4375743758_ _L15477_ _L15479_) - (___match4388543886_ + (___kont4393443935_ _L15477_ _L15479_) + (___match4406244063_ _e1527115447_ _hd1527015451_ _tl1526915454_ @@ -12704,8 +12704,8 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))))) - (if (gx#stx-pair? ___stx4374643747_) - (let ((_e1523515662_ (gx#syntax-e ___stx4374643747_))) + (if (gx#stx-pair? ___stx4392343924_) + (let ((_e1523515662_ (gx#syntax-e ___stx4392343924_))) (let ((_tl1523315669_ (let () (declare (not safe)) (##cdr _e1523515662_))) (_hd1523415666_ @@ -12713,7 +12713,7 @@ (declare (not safe)) (##car _e1523515662_)))) (if (gx#stx-null? _tl1523315669_) - (___kont4374943750_) + (___kont4392643927_) (if (gx#stx-pair? _tl1523315669_) (let ((_e1524215620_ (gx#syntax-e _tl1523315669_))) @@ -12727,7 +12727,7 @@ (##car _e1524215620_)))) (if (gx#identifier? _hd1524115624_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48822_| + |gerbil/core$$[1]#_g48999_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1524515630_ @@ -12743,9 +12743,9 @@ (##car _e1524515630_)))) (if (gx#stx-null? _tl1524315637_) - (___kont4375143752_ + (___kont4392843929_ _hd1524415634_) - (___match4388543886_ + (___match4406244063_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12755,12 +12755,12 @@ _e1524515630_ _hd1524415634_ _tl1524315637_)))) - (___kont4376143762_ + (___kont4393843939_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48821_| + |gerbil/core$$[1]#_g48998_| _hd1524115624_) (if (gx#stx-pair? _tl1524015627_) (let ((_e1525515578_ @@ -12778,9 +12778,9 @@ (##car _e1525515578_)))) (if (gx#stx-null? _tl1525315585_) - (___kont4375343754_ + (___kont4393043931_ _hd1525415582_) - (___match4388543886_ + (___match4406244063_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12790,7 +12790,7 @@ _e1525515578_ _hd1525415582_ _tl1525315585_)))) - (___kont4376143762_ + (___kont4393843939_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) @@ -12810,7 +12810,7 @@ (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4386743868_ + (___match4404444045_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12820,7 +12820,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4388543886_ + (___match4406244063_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12830,7 +12830,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))) - (___kont4376143762_ + (___kont4393843939_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))) @@ -12854,8 +12854,8 @@ (_hd1526515529_ (let () (declare (not safe)) (##car _e1526615525_)))) (if (gx#stx-null? _tl1526415532_) - (___kont4375543756_ _hd1526515529_) - (___match4388543886_ + (___kont4393243933_ _hd1526515529_) + (___match4406244063_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12866,7 +12866,7 @@ _hd1526515529_ _tl1526415532_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4376143762_ + (___kont4393843939_ _tl1524015627_ _hd1524115624_ _hd1523415666_)) @@ -12884,7 +12884,7 @@ (_hd1527615471_ (let () (declare (not safe)) (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4386743868_ + (___match4404444045_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12894,7 +12894,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4388543886_ + (___match4406244063_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12905,7 +12905,7 @@ _hd1527615471_ _tl1527515474_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4376143762_ + (___kont4393843939_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))) @@ -12923,7 +12923,7 @@ (##car _e1527715467_)))) (if (gx#stx-null? _tl1527515474_) - (___match4386743868_ + (___match4404444045_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12933,7 +12933,7 @@ _e1527715467_ _hd1527615471_ _tl1527515474_) - (___match4388543886_ + (___match4406244063_ _e1523515662_ _hd1523415666_ _tl1523315669_ @@ -12943,56 +12943,56 @@ _e1527715467_ _hd1527615471_ _tl1527515474_)))) - (___kont4376143762_ + (___kont4393843939_ _tl1524015627_ _hd1524115624_ _hd1523415666_)))))) - (___kont4376343764_ _tl1523315669_))))) + (___kont4394043941_ _tl1523315669_))))) (let () (declare (not safe)) (_g1523115309_)))))))) (define |gerbil/core$$[:0:]#quasiquote| (lambda (_stx15680_) (letrec ((_simple-quote?15683_ (lambda (_e16375_) - (let* ((___stx4390643907_ _e16375_) + (let* ((___stx4408344084_ _e16375_) (_g1638316420_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4390643907_)))) - (let ((___kont4390943910_ (lambda () '#f)) - (___kont4391143912_ (lambda () '#f)) - (___kont4391343914_ + ___stx4408344084_)))) + (let ((___kont4408644087_ (lambda () '#f)) + (___kont4408844089_ (lambda () '#f)) + (___kont4409044091_ (lambda (_L16534_ _L16536_) (if (_simple-quote?15683_ _L16536_) (_simple-quote?15683_ _L16534_) '#f))) - (___kont4391543916_ + (___kont4409244093_ (lambda (_L16495_) (_simple-quote?15683_ - (let ((__tmp48823 + (let ((__tmp49000 (lambda (_g1650816511_ _g1650916514_) (let () (declare (not safe)) (cons _g1650816511_ _g1650916514_))))) (declare (not safe)) - (foldr1 __tmp48823 '() _L16495_))))) - (___kont4391943920_ + (foldr1 __tmp49000 '() _L16495_))))) + (___kont4409644097_ (lambda (_L16442_) (_simple-quote?15683_ _L16442_))) - (___kont4392143922_ (lambda () '#t))) + (___kont4409844099_ (lambda () '#t))) (let* ((_g1638116454_ (lambda () - (if (gx#stx-box? ___stx4390643907_) + (if (gx#stx-box? ___stx4408344084_) (let ((_e1641416438_ (unbox (gx#syntax-e - ___stx4390643907_)))) - (___kont4391943920_ _e1641416438_)) - (___kont4392143922_)))) - (___match4397743978_ + ___stx4408344084_)))) + (___kont4409644097_ _e1641416438_)) + (___kont4409844099_)))) + (___match4415444155_ (lambda (_e1640316461_ - ___splice4391743918_ + ___splice4409444095_ _target1640416465_ _tl1640616468_) (letrec ((_loop1640716471_ @@ -13020,20 +13020,20 @@ _e1641116478_))))) (let ((_e1641216491_ (reverse _e1641116478_))) - (___kont4391543916_ + (___kont4409244093_ _e1641216491_)))))) (_loop1640716471_ _target1640416465_ '())))) (_g1638016517_ (lambda () - (if (gx#stx-vector? ___stx4390643907_) + (if (gx#stx-vector? ___stx4408344084_) (let ((_e1640316461_ (vector->list (gx#syntax-e - ___stx4390643907_)))) + ___stx4408344084_)))) (if (gx#stx-pair/null? _e1640316461_) - (let ((___splice4391743918_ + (let ((___splice4409444095_ (gx#syntax-split-splice _e1640316461_ '0))) @@ -13041,29 +13041,29 @@ (let () (declare (not safe)) (##vector-ref - ___splice4391743918_ + ___splice4409444095_ '1))) (_target1640416465_ (let () (declare (not safe)) (##vector-ref - ___splice4391743918_ + ___splice4409444095_ '0)))) (if (gx#stx-null? _tl1640616468_) - (___match4397743978_ + (___match4415444155_ _e1640316461_ - ___splice4391743918_ + ___splice4409444095_ _target1640416465_ _tl1640616468_) - (___kont4392143922_)))) - (___kont4392143922_))) + (___kont4409844099_)))) + (___kont4409844099_))) (let () (declare (not safe)) (_g1638116454_)))))) - (if (gx#stx-pair? ___stx4390643907_) + (if (gx#stx-pair? ___stx4408344084_) (let ((_e1638716585_ - (gx#syntax-e ___stx4390643907_))) + (gx#syntax-e ___stx4408344084_))) (let ((_tl1638516592_ (let () (declare (not safe)) @@ -13074,7 +13074,7 @@ (##car _e1638716585_)))) (if (gx#identifier? _hd1638616589_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48825_| + |gerbil/core$$[1]#_g49002_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639016595_ @@ -13090,15 +13090,15 @@ (##car _e1639016595_)))) (if (gx#stx-null? _tl1638816602_) - (___kont4390943910_) - (___kont4391343914_ + (___kont4408644087_) + (___kont4409044091_ _tl1638516592_ _hd1638616589_)))) - (___kont4391343914_ + (___kont4409044091_ _tl1638516592_ _hd1638616589_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48824_| + |gerbil/core$$[1]#_g49001_| _hd1638616589_) (if (gx#stx-pair? _tl1638516592_) (let ((_e1639616564_ @@ -13116,17 +13116,17 @@ (##car _e1639616564_)))) (if (gx#stx-null? _tl1639416571_) - (___kont4391143912_) - (___kont4391343914_ + (___kont4408844089_) + (___kont4409044091_ _tl1638516592_ _hd1638616589_)))) - (___kont4391343914_ + (___kont4409044091_ _tl1638516592_ _hd1638616589_)) - (___kont4391343914_ + (___kont4409044091_ _tl1638516592_ _hd1638616589_))) - (___kont4391343914_ + (___kont4409044091_ _tl1638516592_ _hd1638616589_)))) (let () @@ -13134,14 +13134,14 @@ (_g1638016517_)))))))) (_generate15685_ (lambda (_e15747_ _d15749_) - (let* ((___stx4398443985_ _e15747_) + (let* ((___stx4416144162_ _e15747_) (_g1575815816_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4398443985_)))) - (let ((___kont4398743988_ + ___stx4416144162_)))) + (let ((___kont4416444165_ (lambda (_L16327_) (let* ((_g1634016348_ (lambda (_g1634116344_) @@ -13153,29 +13153,29 @@ (lambda (_g1634116352_) ((lambda (_L16355_) (let () - (let ((__tmp48832 + (let ((__tmp49009 (gx#datum->syntax '#f 'list)) - (__tmp48826 - (let ((__tmp48828 - (let ((__tmp48831 + (__tmp49003 + (let ((__tmp49005 + (let ((__tmp49008 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48829 - (let ((__tmp48830 + (__tmp49006 + (let ((__tmp49007 (gx#datum->syntax '#f 'quasiquote))) (declare (not safe)) - (cons __tmp48830 '())))) + (cons __tmp49007 '())))) (declare (not safe)) - (cons __tmp48831 __tmp48829))) - (__tmp48827 + (cons __tmp49008 __tmp49006))) + (__tmp49004 (let () (declare (not safe)) (cons _L16355_ '())))) (declare (not safe)) - (cons __tmp48828 __tmp48827)))) + (cons __tmp49005 __tmp49004)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48832 __tmp48826)))) + (cons __tmp49009 __tmp49003)))) _g1634116352_)))) (_g1633916367_ (_generate15685_ @@ -13183,7 +13183,7 @@ (let () (declare (not safe)) (fx+ _d15749_ '1))))))) - (___kont4398943990_ + (___kont4416644167_ (lambda (_L16256_) (if (let () (declare (not safe)) @@ -13199,30 +13199,30 @@ (lambda (_g1627016281_) ((lambda (_L16284_) (let () - (let ((__tmp48839 + (let ((__tmp49016 (gx#datum->syntax '#f 'list)) - (__tmp48833 - (let ((__tmp48835 - (let ((__tmp48838 + (__tmp49010 + (let ((__tmp49012 + (let ((__tmp49015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48836 - (let ((__tmp48837 + (__tmp49013 + (let ((__tmp49014 (gx#datum->syntax '#f 'unquote))) (declare (not safe)) - (cons __tmp48837 '())))) + (cons __tmp49014 '())))) (declare (not safe)) - (cons __tmp48838 __tmp48836))) - (__tmp48834 + (cons __tmp49015 __tmp49013))) + (__tmp49011 (let () (declare (not safe)) (cons _L16284_ '())))) (declare (not safe)) - (cons __tmp48835 __tmp48834)))) + (cons __tmp49012 __tmp49011)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48839 - __tmp48833)))) + (cons __tmp49016 + __tmp49010)))) _g1627016281_)))) (_g1626816296_ (_generate15685_ @@ -13230,38 +13230,38 @@ (let () (declare (not safe)) (fx- _d15749_ '1)))))))) - (___kont4399143992_ + (___kont4416844169_ (lambda (_L16185_) (if (let () (declare (not safe)) (fxzero? _d15749_)) - (let ((__tmp48854 + (let ((__tmp49031 (gx#datum->syntax '#f 'foldr)) - (__tmp48847 - (let ((__tmp48853 + (__tmp49024 + (let ((__tmp49030 (gx#datum->syntax '#f 'cons)) - (__tmp48848 - (let ((__tmp48850 - (let ((__tmp48852 + (__tmp49025 + (let ((__tmp49027 + (let ((__tmp49029 (gx#datum->syntax '#f 'quote)) - (__tmp48851 + (__tmp49028 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp48852 __tmp48851))) - (__tmp48849 (let () (declare (not safe)) (cons _L16185_ '())))) + (cons __tmp49029 __tmp49028))) + (__tmp49026 (let () (declare (not safe)) (cons _L16185_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48850 - __tmp48849)))) + (cons __tmp49027 + __tmp49026)))) (declare (not safe)) - (cons __tmp48853 __tmp48848)))) + (cons __tmp49030 __tmp49025)))) (declare (not safe)) - (cons __tmp48854 __tmp48847)) + (cons __tmp49031 __tmp49024)) (let* ((_g1619816206_ (lambda (_g1619916202_) (gx#raise-syntax-error @@ -13272,32 +13272,32 @@ (lambda (_g1619916210_) ((lambda (_L16213_) (let () - (let ((__tmp48846 + (let ((__tmp49023 (gx#datum->syntax '#f 'list)) - (__tmp48840 - (let ((__tmp48842 - (let ((__tmp48845 + (__tmp49017 + (let ((__tmp49019 + (let ((__tmp49022 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp48843 - (let ((__tmp48844 + (__tmp49020 + (let ((__tmp49021 (gx#datum->syntax '#f 'unquote-splicing))) (declare (not safe)) - (cons __tmp48844 '())))) + (cons __tmp49021 '())))) (declare (not safe)) - (cons __tmp48845 __tmp48843))) - (__tmp48841 + (cons __tmp49022 __tmp49020))) + (__tmp49018 (let () (declare (not safe)) (cons _L16213_ '())))) (declare (not safe)) - (cons __tmp48842 __tmp48841)))) + (cons __tmp49019 __tmp49018)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48846 - __tmp48840)))) + (cons __tmp49023 + __tmp49017)))) _g1619916210_)))) (_g1619716225_ (_generate15685_ @@ -13305,7 +13305,7 @@ (let () (declare (not safe)) (fx- _d15749_ '1)))))))) - (___kont4399343994_ + (___kont4417044171_ (lambda (_L16110_ _L16112_) (let* ((_g1612716135_ (lambda (_g1612816131_) @@ -13317,30 +13317,30 @@ (lambda (_g1612816139_) ((lambda (_L16142_) (let () - (let ((__tmp48859 + (let ((__tmp49036 (gx#datum->syntax '#f 'foldr)) - (__tmp48855 - (let ((__tmp48858 + (__tmp49032 + (let ((__tmp49035 (gx#datum->syntax '#f 'cons)) - (__tmp48856 - (let ((__tmp48857 + (__tmp49033 + (let ((__tmp49034 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (cons _L16112_ '())))) (declare (not safe)) - (cons _L16142_ __tmp48857)))) + (cons _L16142_ __tmp49034)))) (declare (not safe)) - (cons __tmp48858 __tmp48856)))) + (cons __tmp49035 __tmp49033)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48859 __tmp48855)))) + (cons __tmp49036 __tmp49032)))) _g1612816139_)))) (_g1612616154_ (_generate15685_ _L16110_ _d15749_))))) - (___kont4399543996_ + (___kont4417244173_ (lambda (_L15996_ _L15998_) (let* ((_g1600916024_ (lambda (_g1601016020_) @@ -13378,16 +13378,16 @@ (if (gx#stx-null? _tl1601616048_) ((lambda (_L16051_ _L16053_) (let () - (let ((__tmp48862 (gx#datum->syntax '#f 'cons)) - (__tmp48860 - (let ((__tmp48861 + (let ((__tmp49039 (gx#datum->syntax '#f 'cons)) + (__tmp49037 + (let ((__tmp49038 (let () (declare (not safe)) (cons _L16051_ '())))) (declare (not safe)) - (cons _L16053_ __tmp48861)))) + (cons _L16053_ __tmp49038)))) (declare (not safe)) - (cons __tmp48862 __tmp48860)))) + (cons __tmp49039 __tmp49037)))) _hd1601716045_ _hd1601416035_) (_g1600916024_ _g1601016028_)))) @@ -13400,7 +13400,7 @@ (_generate15685_ _L15996_ _d15749_)))))) - (___kont4399743998_ + (___kont4417444175_ (lambda (_L15926_) (let* ((_g1594015948_ (lambda (_g1594115944_) @@ -13412,29 +13412,29 @@ (lambda (_g1594115952_) ((lambda (_L15955_) (let () - (let ((__tmp48864 + (let ((__tmp49041 (gx#datum->syntax '#f 'list->vector)) - (__tmp48863 + (__tmp49040 (let () (declare (not safe)) (cons _L15955_ '())))) (declare (not safe)) - (cons __tmp48864 __tmp48863)))) + (cons __tmp49041 __tmp49040)))) _g1594115952_)))) (_g1593915967_ (_generate15685_ - (let ((__tmp48865 + (let ((__tmp49042 (lambda (_g1597015973_ _g1597115976_) (let () (declare (not safe)) (cons _g1597015973_ _g1597115976_))))) (declare (not safe)) - (foldr1 __tmp48865 '() _L15926_)) + (foldr1 __tmp49042 '() _L15926_)) _d15749_))))) - (___kont4400144002_ + (___kont4417844179_ (lambda (_L15844_) (let* ((_g1585415862_ (lambda (_g1585515858_) @@ -13446,39 +13446,39 @@ (lambda (_g1585515866_) ((lambda (_L15869_) (let () - (let ((__tmp48867 + (let ((__tmp49044 (gx#datum->syntax '#f 'box)) - (__tmp48866 + (__tmp49043 (let () (declare (not safe)) (cons _L15869_ '())))) (declare (not safe)) - (cons __tmp48867 __tmp48866)))) + (cons __tmp49044 __tmp49043)))) _g1585515866_)))) (_g1585315881_ (_generate15685_ _L15844_ _d15749_))))) - (___kont4400344004_ + (___kont4418044181_ (lambda (_L15823_) - (let ((__tmp48869 (gx#datum->syntax '#f 'quote)) - (__tmp48868 + (let ((__tmp49046 (gx#datum->syntax '#f 'quote)) + (__tmp49045 (let () (declare (not safe)) (cons _L15823_ '())))) (declare (not safe)) - (cons __tmp48869 __tmp48868))))) + (cons __tmp49046 __tmp49045))))) (let* ((_g1575615885_ (lambda () - (if (gx#stx-box? ___stx4398443985_) + (if (gx#stx-box? ___stx4416144162_) (let ((_e1580915840_ (unbox (gx#syntax-e - ___stx4398443985_)))) - (___kont4400144002_ _e1580915840_)) - (___kont4400344004_ ___stx4398443985_)))) - (___match4410344104_ + ___stx4416144162_)))) + (___kont4417844179_ _e1580915840_)) + (___kont4418044181_ ___stx4416144162_)))) + (___match4428044281_ (lambda (_e1579815892_ - ___splice4399944000_ + ___splice4417644177_ _target1579915896_ _tl1580115899_) (letrec ((_loop1580215902_ @@ -13506,20 +13506,20 @@ _e1580615909_))))) (let ((_e1580715922_ (reverse _e1580615909_))) - (___kont4399743998_ + (___kont4417444175_ _e1580715922_)))))) (_loop1580215902_ _target1579915896_ '())))) (_g1575515979_ (lambda () - (if (gx#stx-vector? ___stx4398443985_) + (if (gx#stx-vector? ___stx4416144162_) (let ((_e1579815892_ (vector->list (gx#syntax-e - ___stx4398443985_)))) + ___stx4416144162_)))) (if (gx#stx-pair/null? _e1579815892_) - (let ((___splice4399944000_ + (let ((___splice4417644177_ (gx#syntax-split-splice _e1579815892_ '0))) @@ -13527,31 +13527,31 @@ (let () (declare (not safe)) (##vector-ref - ___splice4399944000_ + ___splice4417644177_ '1))) (_target1579915896_ (let () (declare (not safe)) (##vector-ref - ___splice4399944000_ + ___splice4417644177_ '0)))) (if (gx#stx-null? _tl1580115899_) - (___match4410344104_ + (___match4428044281_ _e1579815892_ - ___splice4399944000_ + ___splice4417644177_ _target1579915896_ _tl1580115899_) - (___kont4400344004_ - ___stx4398443985_)))) - (___kont4400344004_ - ___stx4398443985_))) + (___kont4418044181_ + ___stx4416144162_)))) + (___kont4418044181_ + ___stx4416144162_))) (let () (declare (not safe)) (_g1575615885_)))))) - (if (gx#stx-pair? ___stx4398443985_) + (if (gx#stx-pair? ___stx4416144162_) (let ((_e1576316307_ - (gx#syntax-e ___stx4398443985_))) + (gx#syntax-e ___stx4416144162_))) (let ((_tl1576116314_ (let () (declare (not safe)) @@ -13562,7 +13562,7 @@ (##car _e1576316307_)))) (if (gx#identifier? _hd1576216311_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48873_| + |gerbil/core$$[1]#_g49050_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1576616317_ @@ -13578,16 +13578,16 @@ (##car _e1576616317_)))) (if (gx#stx-null? _tl1576416324_) - (___kont4398743988_ + (___kont4416444165_ _hd1576516321_) - (___kont4399543996_ + (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) - (___kont4399543996_ + (___kont4417244173_ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48872_| + |gerbil/core$$[1]#_g49049_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) (let ((_e1577316246_ @@ -13605,16 +13605,16 @@ (##car _e1577316246_)))) (if (gx#stx-null? _tl1577116253_) - (___kont4398943990_ + (___kont4416644167_ _hd1577216250_) - (___kont4399543996_ + (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) - (___kont4399543996_ + (___kont4417244173_ _tl1576116314_ _hd1576216311_)) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48871_| + |gerbil/core$$[1]#_g49048_| _hd1576216311_) (if (gx#stx-pair? _tl1576116314_) @@ -13629,11 +13629,11 @@ (_hd1577916179_ (let () (declare (not safe)) (##car _e1578016175_)))) (if (gx#stx-null? _tl1577816182_) - (___kont4399143992_ _hd1577916179_) - (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) - (___kont4399543996_ _tl1576116314_ _hd1576216311_)) + (___kont4416844169_ _hd1577916179_) + (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) + (___kont4417244173_ _tl1576116314_ _hd1576216311_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4399543996_ + (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) (if (gx#stx-pair? _hd1576216311_) @@ -13650,7 +13650,7 @@ (if (gx#identifier? _hd1578716094_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48870_| + |gerbil/core$$[1]#_g49047_| _hd1578716094_) (if (gx#stx-pair? _tl1578616097_) @@ -13667,18 +13667,18 @@ (if (let () (declare (not safe)) (fxzero? _d15749_)) (let ((_L16110_ _tl1576116314_) (_L16112_ _hd1579016104_)) - (___kont4399343994_ _L16110_ _L16112_)) - (___kont4399543996_ + (___kont4417044171_ _L16110_ _L16112_)) + (___kont4417244173_ _tl1576116314_ _hd1576216311_)) - (___kont4399543996_ _tl1576116314_ _hd1576216311_)))) - (___kont4399543996_ _tl1576116314_ _hd1576216311_)) - (___kont4399543996_ _tl1576116314_ _hd1576216311_)) + (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) + (___kont4417244173_ _tl1576116314_ _hd1576216311_)) + (___kont4417244173_ _tl1576116314_ _hd1576216311_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4399543996_ + (___kont4417244173_ _tl1576116314_ _hd1576216311_)))) - (___kont4399543996_ + (___kont4417244173_ _tl1576116314_ _hd1576216311_))))) (let () @@ -13716,16 +13716,16 @@ (if (gx#stx-null? _tl1569315725_) ((lambda (_L15728_) (if (_simple-quote?15683_ _L15728_) - (let ((__tmp48875 + (let ((__tmp49052 (gx#datum->syntax '#f 'quote)) - (__tmp48874 + (__tmp49051 (let () (declare (not safe)) (cons _L15728_ '())))) (declare (not safe)) - (cons __tmp48875 __tmp48874)) + (cons __tmp49052 __tmp49051)) (_generate15685_ _L15728_ '0))) _hd1569415722_) (_g1568715701_ _g1568815705_)))) @@ -13734,41 +13734,41 @@ (_g1568615743_ _stx15680_))))) (define |gerbil/core$$[:0:]#delay| (lambda (_$stx16615_) - (let* ((___stx4411044111_ _$stx16615_) + (let* ((___stx4428744288_ _$stx16615_) (_g1662016641_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4411044111_)))) - (let ((___kont4411344114_ + ___stx4428744288_)))) + (let ((___kont4429044291_ (lambda (_L16709_) - (let ((__tmp48877 (gx#datum->syntax '#f 'quote)) - (__tmp48876 + (let ((__tmp49054 (gx#datum->syntax '#f 'quote)) + (__tmp49053 (let () (declare (not safe)) (cons _L16709_ '())))) (declare (not safe)) - (cons __tmp48877 __tmp48876)))) - (___kont4411544116_ + (cons __tmp49054 __tmp49053)))) + (___kont4429244293_ (lambda (_L16668_) - (let ((__tmp48883 (gx#datum->syntax '#f 'make-promise)) - (__tmp48878 - (let ((__tmp48879 - (let ((__tmp48882 + (let ((__tmp49060 (gx#datum->syntax '#f 'make-promise)) + (__tmp49055 + (let ((__tmp49056 + (let ((__tmp49059 (gx#datum->syntax '#f 'lambda%)) - (__tmp48880 - (let ((__tmp48881 + (__tmp49057 + (let ((__tmp49058 (let () (declare (not safe)) (cons _L16668_ '())))) (declare (not safe)) - (cons '() __tmp48881)))) + (cons '() __tmp49058)))) (declare (not safe)) - (cons __tmp48882 __tmp48880)))) + (cons __tmp49059 __tmp49057)))) (declare (not safe)) - (cons __tmp48879 '())))) + (cons __tmp49056 '())))) (declare (not safe)) - (cons __tmp48883 __tmp48878))))) - (let ((___match4413144132_ + (cons __tmp49060 __tmp49055))))) + (let ((___match4430844309_ (lambda (_e1662516689_ _hd1662416693_ _tl1662316696_ @@ -13777,10 +13777,10 @@ _tl1662616706_) (let ((_L16709_ _hd1662716703_)) (if (gx#stx-datum? _L16709_) - (___kont4411344114_ _L16709_) - (___kont4411544116_ _hd1662716703_)))))) - (if (gx#stx-pair? ___stx4411044111_) - (let ((_e1662516689_ (gx#syntax-e ___stx4411044111_))) + (___kont4429044291_ _L16709_) + (___kont4429244293_ _hd1662716703_)))))) + (if (gx#stx-pair? ___stx4428744288_) + (let ((_e1662516689_ (gx#syntax-e ___stx4428744288_))) (let ((_tl1662316696_ (let () (declare (not safe)) (##cdr _e1662516689_))) (_hd1662416693_ @@ -13798,7 +13798,7 @@ (declare (not safe)) (##car _e1662816699_)))) (if (gx#stx-null? _tl1662616706_) - (___match4413144132_ + (___match4430844309_ _e1662516689_ _hd1662416693_ _tl1662316696_ @@ -13817,23 +13817,23 @@ (let _lp16851_ ((_rest16854_ _rest16848_) (_hd16856_ '()) (_body16857_ '())) - (let* ((___stx4416844169_ _rest16854_) + (let* ((___stx4434544346_ _rest16854_) (_g1686016872_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4416844169_)))) - (let ((___kont4417144172_ + ___stx4434544346_)))) + (let ((___kont4434844349_ (lambda (_L16900_ _L16902_) - (let* ((___stx4414844149_ _L16902_) + (let* ((___stx4432544326_ _L16902_) (_g1691916926_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4414844149_)))) - (let ((___kont4415144152_ + ___stx4432544326_)))) + (let ((___kont4432844329_ (lambda () (let ((_arg16962_ (gx#genident))) (_lp16851_ @@ -13845,7 +13845,7 @@ (declare (not safe)) (cons _arg16962_ _body16857_)))))) - (___kont4415344154_ + (___kont4433044331_ (lambda () (if (gx#stx-null? _L16900_) (let ((_tail16948_ @@ -13857,9 +13857,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _tail16948_ _hd16856_)) - (let ((__tmp48884 (list _tail16948_))) + (let ((__tmp49061 (list _tail16948_))) (declare (not safe)) - (foldl1 cons __tmp48884 _body16857_)) + (foldl1 cons __tmp49061 _body16857_)) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error @@ -13867,7 +13867,7 @@ '"bad syntax; cut ellipsis <...> not in tail position" _stx16726_ _L16902_)))) - (___kont4415544156_ + (___kont4433244333_ (lambda () (_lp16851_ _L16900_ @@ -13875,25 +13875,25 @@ (let () (declare (not safe)) (cons _L16902_ _body16857_)))))) - (if (gx#identifier? ___stx4414844149_) + (if (gx#identifier? ___stx4432544326_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48886_| - ___stx4414844149_) - (___kont4415144152_) + |gerbil/core$$[1]#_g49063_| + ___stx4432544326_) + (___kont4432844329_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48885_| - ___stx4414844149_) - (___kont4415344154_) - (___kont4415544156_))) - (___kont4415544156_)))))) - (___kont4417344174_ + |gerbil/core$$[1]#_g49062_| + ___stx4432544326_) + (___kont4433044331_) + (___kont4433244333_))) + (___kont4433244333_)))))) + (___kont4435044351_ (lambda () (values (reverse _hd16856_) (reverse _body16857_) '#f)))) - (if (gx#stx-pair? ___stx4416844169_) + (if (gx#stx-pair? ___stx4434544346_) (let ((_e1686616890_ - (gx#syntax-e ___stx4416844169_))) + (gx#syntax-e ___stx4434544346_))) (let ((_tl1686416897_ (let () (declare (not safe)) @@ -13902,10 +13902,10 @@ (let () (declare (not safe)) (##car _e1686616890_)))) - (___kont4417144172_ + (___kont4434844349_ _tl1686416897_ _hd1686516894_))) - (___kont4417344174_)))))))) + (___kont4435044351_)))))))) (let* ((_g1673216743_ (lambda (_g1673316739_) (gx#raise-syntax-error @@ -13926,35 +13926,35 @@ (##cdr _e1673716750_)))) ((lambda (_L16760_) (if (and (gx#stx-list? _L16760_) - (let ((__tmp48897 + (let ((__tmp49074 (gx#stx-null? _L16760_))) (declare (not safe)) - (not __tmp48897))) - (let ((_g48887_ (_generate16729_ _L16760_))) + (not __tmp49074))) + (let ((_g49064_ (_generate16729_ _L16760_))) (begin - (let ((_g48888_ + (let ((_g49065_ (let () (declare (not safe)) - (if (##values? _g48887_) - (##vector-length _g48887_) + (if (##values? _g49064_) + (##vector-length _g49064_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48888_ 3))) + (##fx= _g49065_ 3))) (error "Context expects 3 values" - _g48888_))) + _g49065_))) (let ((_hd16773_ (let () (declare (not safe)) - (##vector-ref _g48887_ 0))) + (##vector-ref _g49064_ 0))) (_body16775_ (let () (declare (not safe)) - (##vector-ref _g48887_ 1))) + (##vector-ref _g49064_ 1))) (_tail?16776_ (let () (declare (not safe)) - (##vector-ref _g48887_ 2)))) + (##vector-ref _g49064_ 2)))) (let* ((_g1677816786_ (lambda (_g1677916782_) (gx#raise-syntax-error @@ -13978,34 +13978,34 @@ (let () (let () (if _tail?16776_ - (let ((__tmp48896 + (let ((__tmp49073 (gx#datum->syntax '#f 'lambda%)) - (__tmp48892 - (let ((__tmp48893 - (let ((__tmp48894 - (let ((__tmp48895 + (__tmp49069 + (let ((__tmp49070 + (let ((__tmp49071 + (let ((__tmp49072 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'apply))) (declare (not safe)) - (cons __tmp48895 _L16821_)))) + (cons __tmp49072 _L16821_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48894 '())))) + (cons __tmp49071 '())))) (declare (not safe)) - (cons _L16793_ __tmp48893)))) + (cons _L16793_ __tmp49070)))) (declare (not safe)) - (cons __tmp48896 __tmp48892)) - (let ((__tmp48891 + (cons __tmp49073 __tmp49069)) + (let ((__tmp49068 (gx#datum->syntax '#f 'lambda%)) - (__tmp48889 - (let ((__tmp48890 + (__tmp49066 + (let ((__tmp49067 (let () (declare (not safe)) (cons _L16821_ '())))) (declare (not safe)) - (cons _L16793_ __tmp48890)))) + (cons _L16793_ __tmp49067)))) (declare (not safe)) - (cons __tmp48891 __tmp48889)))))) + (cons __tmp49068 __tmp49066)))))) _g1680716818_)))) (_g1680516836_ _body16775_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> diff --git a/src/bootstrap/gerbil/core__5.scm b/src/bootstrap/gerbil/core__5.scm index ffad326c8..70a8827f9 100644 --- a/src/bootstrap/gerbil/core__5.scm +++ b/src/bootstrap/gerbil/core__5.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g48982_| + (define |gerbil/core$$[1]#_g49159_| (##structure gx#syntax-quote::t 'quote @@ -10,24 +10,24 @@ (begin (define |gerbil/core$$[:0:]#defsyntax| (lambda (_$stx17003_) - (let* ((___stx4418444185_ _$stx17003_) + (let* ((___stx4436144362_ _$stx17003_) (_g1700817047_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4418444185_)))) - (let ((___kont4418744188_ + ___stx4436144362_)))) + (let ((___kont4436444365_ (lambda (_L17170_ _L17172_ _L17173_) - (let ((__tmp48905 (gx#datum->syntax '#f 'define-syntax)) - (__tmp48898 - (let ((__tmp48899 - (let ((__tmp48900 - (let ((__tmp48904 + (let ((__tmp49082 (gx#datum->syntax '#f 'define-syntax)) + (__tmp49075 + (let ((__tmp49076 + (let ((__tmp49077 + (let ((__tmp49081 (gx#datum->syntax '#f 'lambda)) - (__tmp48901 - (let ((__tmp48902 - (let ((__tmp48903 + (__tmp49078 + (let ((__tmp49079 + (let ((__tmp49080 (lambda (_g1719217195_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1719317198_) @@ -35,31 +35,31 @@ (declare (not safe)) (cons _g1719217195_ _g1719317198_))))) (declare (not safe)) - (foldr1 __tmp48903 '() _L17170_)))) + (foldr1 __tmp49080 '() _L17170_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17172_ __tmp48902)))) + (cons _L17172_ __tmp49079)))) (declare (not safe)) - (cons __tmp48904 __tmp48901)))) + (cons __tmp49081 __tmp49078)))) (declare (not safe)) - (cons __tmp48900 '())))) + (cons __tmp49077 '())))) (declare (not safe)) - (cons _L17173_ __tmp48899)))) + (cons _L17173_ __tmp49076)))) (declare (not safe)) - (cons __tmp48905 __tmp48898)))) - (___kont4419144192_ + (cons __tmp49082 __tmp49075)))) + (___kont4436844369_ (lambda (_L17084_ _L17086_) - (let ((__tmp48908 (gx#datum->syntax '#f 'define-syntax)) - (__tmp48906 - (let ((__tmp48907 + (let ((__tmp49085 (gx#datum->syntax '#f 'define-syntax)) + (__tmp49083 + (let ((__tmp49084 (let () (declare (not safe)) (cons _L17084_ '())))) (declare (not safe)) - (cons _L17086_ __tmp48907)))) + (cons _L17086_ __tmp49084)))) (declare (not safe)) - (cons __tmp48908 __tmp48906))))) - (let* ((___match4423944240_ + (cons __tmp49085 __tmp49083))))) + (let* ((___match4441644417_ (lambda (_e1703517054_ _hd1703417058_ _tl1703317061_ @@ -72,9 +72,9 @@ (let ((_L17084_ _hd1704017078_) (_L17086_ _hd1703717068_)) (if (gx#identifier? _L17086_) - (___kont4419144192_ _L17084_ _L17086_) + (___kont4436844369_ _L17084_ _L17086_) (let () (declare (not safe)) (_g1700817047_)))))) - (___match4423144232_ + (___match4440844409_ (lambda (_e1703517054_ _hd1703417058_ _tl1703317061_ @@ -92,7 +92,7 @@ (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4423944240_ + (___match4441644417_ _e1703517054_ _hd1703417058_ _tl1703317061_ @@ -106,7 +106,7 @@ (declare (not safe)) (_g1700817047_))))) (let () (declare (not safe)) (_g1700817047_))))) - (___match4421944220_ + (___match4439644397_ (lambda (_e1701517110_ _hd1701417114_ _tl1701317117_ @@ -116,7 +116,7 @@ _e1702117130_ _hd1702017134_ _tl1701917137_ - ___splice4418944190_ + ___splice4436644367_ _target1702217140_ _tl1702417143_) (letrec ((_loop1702517146_ @@ -144,11 +144,11 @@ (_L17172_ _tl1701917137_) (_L17173_ _hd1702017134_)) (if (gx#identifier? _L17173_) - (___kont4418744188_ + (___kont4436444365_ _L17170_ _L17172_ _L17173_) - (___match4423144232_ + (___match4440844409_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -156,8 +156,8 @@ _hd1701717124_ _tl1701617127_)))))))) (_loop1702517146_ _target1702217140_ '()))))) - (if (gx#stx-pair? ___stx4418444185_) - (let ((_e1701517110_ (gx#syntax-e ___stx4418444185_))) + (if (gx#stx-pair? ___stx4436144362_) + (let ((_e1701517110_ (gx#syntax-e ___stx4436144362_))) (let ((_tl1701317117_ (let () (declare (not safe)) (##cdr _e1701517110_))) (_hd1701417114_ @@ -186,7 +186,7 @@ (declare (not safe)) (##car _e1702117130_)))) (if (gx#stx-pair/null? _tl1701617127_) - (let ((___splice4418944190_ + (let ((___splice4436644367_ (gx#syntax-split-splice _tl1701617127_ '0))) @@ -194,16 +194,16 @@ (let () (declare (not safe)) (##vector-ref - ___splice4418944190_ + ___splice4436644367_ '1))) (_target1702217140_ (let () (declare (not safe)) (##vector-ref - ___splice4418944190_ + ___splice4436644367_ '0)))) (if (gx#stx-null? _tl1702417143_) - (___match4421944220_ + (___match4439644397_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -213,7 +213,7 @@ _e1702117130_ _hd1702017134_ _tl1701917137_ - ___splice4418944190_ + ___splice4436644367_ _target1702217140_ _tl1702417143_) (if (gx#stx-pair? @@ -229,7 +229,7 @@ (_hd1704017078_ (let () (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4423944240_ + (___match4441644417_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -256,7 +256,7 @@ (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4423944240_ + (___match4441644417_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -284,7 +284,7 @@ (declare (not safe)) (##car _e1704117074_)))) (if (gx#stx-null? _tl1703917081_) - (___match4423944240_ + (___match4441644417_ _e1701517110_ _hd1701417114_ _tl1701317117_ @@ -346,37 +346,37 @@ (##cdr _e1722217273_)))) (if (gx#stx-pair/null? _tl1722017280_) - (let ((_g48909_ + (let ((_g49086_ (gx#syntax-split-splice _tl1722017280_ '0))) (begin - (let ((_g48910_ + (let ((_g49087_ (let () (declare (not safe)) (if (##values? - _g48909_) + _g49086_) (##vector-length - _g48909_) + _g49086_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g48910_ 2))) - (error "Context expects 2 values" _g48910_))) + (##fx= _g49087_ 2))) + (error "Context expects 2 values" _g49087_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_target1722317283_ (let () (declare (not safe)) (##vector-ref - _g48909_ + _g49086_ 0))) (_tl1722517286_ (let () (declare (not safe)) (##vector-ref - _g48909_ + _g49086_ 1)))) (if (gx#stx-null? _tl1722517286_) @@ -403,31 +403,31 @@ (let ((_arg1723117309_ (reverse _arg1723017296_))) (if (gx#stx-pair/null? _tl1721717270_) - (let ((_g48911_ + (let ((_g49088_ (gx#syntax-split-splice _tl1721717270_ '0))) (begin - (let ((_g48912_ + (let ((_g49089_ (let () (declare (not safe)) - (if (##values? _g48911_) + (if (##values? _g49088_) (##vector-length - _g48911_) + _g49088_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48912_ 2))) + (##fx= _g49089_ 2))) (error "Context expects 2 values" - _g48912_))) + _g49089_))) (let ((_target1723217313_ (let () (declare (not safe)) - (##vector-ref _g48911_ 0))) + (##vector-ref _g49088_ 0))) (_tl1723417316_ (let () (declare (not safe)) - (##vector-ref _g48911_ 1)))) + (##vector-ref _g49088_ 1)))) (if (gx#stx-null? _tl1723417316_) (letrec ((_loop1723517319_ (lambda (_hd1723317323_ @@ -452,7 +452,7 @@ ((lambda (_L17343_ _L17345_ _L17346_) (if (and (gx#identifier? _L17346_) (gx#identifier-list? - (let ((__tmp48958 + (let ((__tmp49135 (lambda (_g1737017373_ _g1737117376_) (let () @@ -460,7 +460,7 @@ (cons _g1737017373_ _g1737117376_))))) (declare (not safe)) - (foldr1 __tmp48958 '() _L17345_)))) + (foldr1 __tmp49135 '() _L17345_)))) (let* ((_g1737917387_ (lambda (_g1738017383_) (gx#raise-syntax-error @@ -481,28 +481,28 @@ (lambda (_g1740717427_) (if (gx#stx-pair/null? _g1740717427_) - (let ((_g48913_ + (let ((_g49090_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-split-splice _g1740717427_ '0))) (begin - (let ((_g48914_ + (let ((_g49091_ (let () (declare (not safe)) - (if (##values? _g48913_) - (##vector-length _g48913_) + (if (##values? _g49090_) + (##vector-length _g49090_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48914_ 2))) - (error "Context expects 2 values" _g48914_))) + (##fx= _g49091_ 2))) + (error "Context expects 2 values" _g49091_))) (let ((_target1740917430_ (let () (declare (not safe)) - (##vector-ref _g48913_ 0))) + (##vector-ref _g49090_ 0))) (_tl1741117433_ (let () (declare (not safe)) - (##vector-ref _g48913_ 1)))) + (##vector-ref _g49090_ 1)))) (if (gx#stx-null? _tl1741117433_) (letrec ((_loop1741217436_ (lambda (_hd1741017440_ @@ -552,32 +552,32 @@ (let () (let () (gx#stx-wrap-source - (let ((__tmp48917 + (let ((__tmp49094 (gx#datum->syntax '#f 'begin)) - (__tmp48915 - (let ((__tmp48916 + (__tmp49092 + (let ((__tmp49093 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons _L17492_ '())))) (declare (not safe)) - (cons _L17520_ __tmp48916)))) + (cons _L17520_ __tmp49093)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48917 __tmp48915)) + (cons __tmp49094 __tmp49092)) (gx#stx-source _stx17206_))))) _g1750617517_)))) (_g1750417535_ (gx#stx-wrap-source - (let ((__tmp48924 + (let ((__tmp49101 (gx#datum->syntax '#f 'def)) - (__tmp48918 - (let ((__tmp48921 - (let ((__tmp48922 - (let ((__tmp48923 + (__tmp49095 + (let ((__tmp49098 + (let ((__tmp49099 + (let ((__tmp49100 (lambda (_g1754017543_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1754117546_) @@ -585,12 +585,12 @@ (declare (not safe)) (cons _g1754017543_ _g1754117546_))))) (declare (not safe)) - (foldr1 __tmp48923 '() _L17345_)))) + (foldr1 __tmp49100 '() _L17345_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L17394_ __tmp48922))) - (__tmp48919 - (let ((__tmp48920 + (cons _L17394_ __tmp49099))) + (__tmp49096 + (let ((__tmp49097 (lambda (_g1753817549_ _g1753917552_) (let () @@ -600,47 +600,47 @@ _g1753917552_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48920 + (foldr1 __tmp49097 '() _L17343_)))) (declare (not safe)) - (cons __tmp48921 __tmp48919)))) + (cons __tmp49098 __tmp49096)))) (declare (not safe)) - (cons __tmp48924 __tmp48918)) + (cons __tmp49101 __tmp49095)) (gx#stx-source _stx17206_)))))) _g1747817489_)))) (_g1747617555_ (gx#stx-wrap-source - (let ((__tmp48956 (gx#datum->syntax '#f 'defrules)) - (__tmp48925 - (let ((__tmp48926 - (let ((__tmp48927 - (let ((__tmp48940 - (let ((__tmp48952 - (let ((__tmp48955 + (let ((__tmp49133 (gx#datum->syntax '#f 'defrules)) + (__tmp49102 + (let ((__tmp49103 + (let ((__tmp49104 + (let ((__tmp49117 + (let ((__tmp49129 + (let ((__tmp49132 (gx#datum->syntax '#f '_)) - (__tmp48953 - (let ((__tmp48954 + (__tmp49130 + (let ((__tmp49131 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda (_g1756417567_ _g1756517570_) (let () (declare (not safe)) (cons _g1756417567_ _g1756517570_))))) (declare (not safe)) - (foldr1 __tmp48954 '() _L17460_)))) + (foldr1 __tmp49131 '() _L17460_)))) (declare (not safe)) - (cons __tmp48955 __tmp48953))) + (cons __tmp49132 __tmp49130))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp48941 - (let ((__tmp48942 - (let ((__tmp48945 + (__tmp49118 + (let ((__tmp49119 + (let ((__tmp49122 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48951 (gx#datum->syntax '#f 'lambda)) - (__tmp48946 - (let ((__tmp48949 - (let ((__tmp48950 + (let ((__tmp49128 (gx#datum->syntax '#f 'lambda)) + (__tmp49123 + (let ((__tmp49126 + (let ((__tmp49127 (lambda (_g1756217573_ _g1756317576_) (let () @@ -648,9 +648,9 @@ (cons _g1756217573_ _g1756317576_))))) (declare (not safe)) - (foldr1 __tmp48950 '() _L17345_))) - (__tmp48947 - (let ((__tmp48948 + (foldr1 __tmp49127 '() _L17345_))) + (__tmp49124 + (let ((__tmp49125 (lambda (_g1756017579_ _g1756117582_) (let () @@ -658,73 +658,73 @@ (cons _g1756017579_ _g1756117582_))))) (declare (not safe)) - (foldr1 __tmp48948 '() _L17343_)))) + (foldr1 __tmp49125 '() _L17343_)))) (declare (not safe)) - (cons __tmp48949 __tmp48947)))) + (cons __tmp49126 __tmp49124)))) (declare (not safe)) - (cons __tmp48951 __tmp48946))) - (__tmp48943 - (let ((__tmp48944 + (cons __tmp49128 __tmp49123))) + (__tmp49120 + (let ((__tmp49121 (lambda (_g1755817585_ _g1755917588_) (let () (declare (not safe)) (cons _g1755817585_ _g1755917588_))))) (declare (not safe)) - (foldr1 __tmp48944 '() _L17460_)))) + (foldr1 __tmp49121 '() _L17460_)))) (declare (not safe)) - (cons __tmp48945 __tmp48943)))) + (cons __tmp49122 __tmp49120)))) (declare (not safe)) - (cons __tmp48942 '())))) + (cons __tmp49119 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48952 __tmp48941))) - (__tmp48928 - (let ((__tmp48929 - (let ((__tmp48939 + (cons __tmp49129 __tmp49118))) + (__tmp49105 + (let ((__tmp49106 + (let ((__tmp49116 (gx#datum->syntax '#f 'ref)) - (__tmp48930 - (let ((__tmp48932 + (__tmp49107 + (let ((__tmp49109 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp48938 + (let ((__tmp49115 (gx#datum->syntax '#f 'identifier?)) - (__tmp48933 - (let ((__tmp48934 - (let ((__tmp48937 + (__tmp49110 + (let ((__tmp49111 + (let ((__tmp49114 (gx#datum->syntax '#f 'syntax)) - (__tmp48935 - (let ((__tmp48936 + (__tmp49112 + (let ((__tmp49113 (gx#datum->syntax '#f 'ref))) (declare (not safe)) - (cons __tmp48936 '())))) + (cons __tmp49113 '())))) (declare (not safe)) - (cons __tmp48937 __tmp48935)))) + (cons __tmp49114 __tmp49112)))) (declare (not safe)) - (cons __tmp48934 '())))) + (cons __tmp49111 '())))) (declare (not safe)) - (cons __tmp48938 __tmp48933))) - (__tmp48931 + (cons __tmp49115 __tmp49110))) + (__tmp49108 (let () (declare (not safe)) (cons _L17394_ '())))) (declare (not safe)) - (cons __tmp48932 __tmp48931)))) + (cons __tmp49109 __tmp49108)))) (declare (not safe)) - (cons __tmp48939 __tmp48930)))) + (cons __tmp49116 __tmp49107)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48929 '())))) + (cons __tmp49106 '())))) (declare (not safe)) - (cons __tmp48940 __tmp48928)))) + (cons __tmp49117 __tmp49105)))) (declare (not safe)) - (cons '() __tmp48927)))) + (cons '() __tmp49104)))) (declare (not safe)) - (cons _L17346_ __tmp48926)))) + (cons _L17346_ __tmp49103)))) (declare (not safe)) - (cons __tmp48956 __tmp48925)) + (cons __tmp49133 __tmp49102)) (gx#stx-source _stx17206_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _xarg1741717456_)))))) @@ -734,7 +734,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (_g1740517591_ (gx#gentemps - (let ((__tmp48957 + (let ((__tmp49134 (lambda (_g1759417597_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _g1759517600_) @@ -742,7 +742,7 @@ (declare (not safe)) (cons _g1759417597_ _g1759517600_))))) (declare (not safe)) - (foldr1 __tmp48957 '() _L17345_))))))) + (foldr1 __tmp49134 '() _L17345_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> _g1738017391_)))) (_g1737817603_ @@ -771,89 +771,89 @@ (_g1720817607_ _stx17206_)))) (define |gerbil/core$$[:0:]#defconst| (lambda (_$stx17614_) - (let* ((___stx4424244243_ _$stx17614_) + (let* ((___stx4441944420_ _$stx17614_) (_g1761917655_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4424244243_)))) - (let ((___kont4424544246_ + ___stx4441944420_)))) + (let ((___kont4442244423_ (lambda (_L17769_ _L17771_) - (let ((__tmp48976 (gx#datum->syntax '#f 'defrules)) - (__tmp48959 - (let ((__tmp48960 - (let ((__tmp48961 - (let ((__tmp48962 - (let ((__tmp48975 + (let ((__tmp49153 (gx#datum->syntax '#f 'defrules)) + (__tmp49136 + (let ((__tmp49137 + (let ((__tmp49138 + (let ((__tmp49139 + (let ((__tmp49152 (gx#datum->syntax '#f 'x)) - (__tmp48963 - (let ((__tmp48968 - (let ((__tmp48974 + (__tmp49140 + (let ((__tmp49145 + (let ((__tmp49151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'identifier?)) - (__tmp48969 - (let ((__tmp48970 - (let ((__tmp48973 + (__tmp49146 + (let ((__tmp49147 + (let ((__tmp49150 (gx#datum->syntax '#f 'syntax)) - (__tmp48971 - (let ((__tmp48972 + (__tmp49148 + (let ((__tmp49149 (gx#datum->syntax '#f 'x))) (declare (not safe)) - (cons __tmp48972 '())))) + (cons __tmp49149 '())))) (declare (not safe)) - (cons __tmp48973 __tmp48971)))) + (cons __tmp49150 __tmp49148)))) (declare (not safe)) - (cons __tmp48970 '())))) + (cons __tmp49147 '())))) (declare (not safe)) - (cons __tmp48974 __tmp48969))) - (__tmp48964 - (let ((__tmp48965 - (let ((__tmp48967 (gx#datum->syntax '#f 'quote)) - (__tmp48966 + (cons __tmp49151 __tmp49146))) + (__tmp49141 + (let ((__tmp49142 + (let ((__tmp49144 (gx#datum->syntax '#f 'quote)) + (__tmp49143 (let () (declare (not safe)) (cons _L17769_ '())))) (declare (not safe)) - (cons __tmp48967 __tmp48966)))) + (cons __tmp49144 __tmp49143)))) (declare (not safe)) - (cons __tmp48965 '())))) + (cons __tmp49142 '())))) (declare (not safe)) - (cons __tmp48968 __tmp48964)))) + (cons __tmp49145 __tmp49141)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp48975 - __tmp48963)))) + (cons __tmp49152 + __tmp49140)))) (declare (not safe)) - (cons __tmp48962 '())))) + (cons __tmp49139 '())))) (declare (not safe)) - (cons '() __tmp48961)))) + (cons '() __tmp49138)))) (declare (not safe)) - (cons _L17771_ __tmp48960)))) + (cons _L17771_ __tmp49137)))) (declare (not safe)) - (cons __tmp48976 __tmp48959)))) - (___kont4424744248_ + (cons __tmp49153 __tmp49136)))) + (___kont4442444425_ (lambda (_L17692_ _L17694_ _L17695_) - (let ((__tmp48977 - (let ((__tmp48978 - (let ((__tmp48979 - (let ((__tmp48981 + (let ((__tmp49154 + (let ((__tmp49155 + (let ((__tmp49156 + (let ((__tmp49158 (gx#datum->syntax '#f 'quote)) - (__tmp48980 + (__tmp49157 (let () (declare (not safe)) (cons _L17692_ '())))) (declare (not safe)) - (cons __tmp48981 __tmp48980)))) + (cons __tmp49158 __tmp49157)))) (declare (not safe)) - (cons __tmp48979 '())))) + (cons __tmp49156 '())))) (declare (not safe)) - (cons _L17694_ __tmp48978)))) + (cons _L17694_ __tmp49155)))) (declare (not safe)) - (cons _L17695_ __tmp48977))))) - (let* ((___match4430744308_ + (cons _L17695_ __tmp49154))))) + (let* ((___match4448444485_ (lambda (_e1764317662_ _hd1764217666_ _tl1764117669_ @@ -868,9 +868,9 @@ (_L17695_ _hd1764217666_)) (if (and (gx#identifier? _L17694_) (gx#stx-datum? _L17692_)) - (___kont4424744248_ _L17692_ _L17694_ _L17695_) + (___kont4442444425_ _L17692_ _L17694_ _L17695_) (let () (declare (not safe)) (_g1761917655_)))))) - (___match4428744288_ + (___match4446444465_ (lambda (_e1762517719_ _hd1762417723_ _tl1762317726_ @@ -889,8 +889,8 @@ (let ((_L17769_ _hd1763617763_) (_L17771_ _hd1762717733_)) (if (gx#identifier? _L17771_) - (___kont4424544246_ _L17769_ _L17771_) - (___match4430744308_ + (___kont4442244423_ _L17769_ _L17771_) + (___match4448444485_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -900,8 +900,8 @@ _e1763117739_ _hd1763017743_ _tl1762917746_)))))) - (if (gx#stx-pair? ___stx4424244243_) - (let ((_e1762517719_ (gx#syntax-e ___stx4424244243_))) + (if (gx#stx-pair? ___stx4441944420_) + (let ((_e1762517719_ (gx#syntax-e ___stx4441944420_))) (let ((_tl1762317726_ (let () (declare (not safe)) (##cdr _e1762517719_))) (_hd1762417723_ @@ -943,7 +943,7 @@ (if (gx#identifier? _hd1763317753_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g48982_| + |gerbil/core$$[1]#_g49159_| _hd1763317753_) (if (gx#stx-pair? _tl1763217756_) @@ -958,7 +958,7 @@ (##car _e1763717759_)))) (if (gx#stx-null? _tl1763517766_) (if (gx#stx-null? _tl1762917746_) - (___match4428744288_ + (___match4446444465_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -976,7 +976,7 @@ _tl1763517766_) (let () (declare (not safe)) (_g1761917655_))) (if (gx#stx-null? _tl1762917746_) - (___match4430744308_ + (___match4448444485_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -988,7 +988,7 @@ _tl1762917746_) (let () (declare (not safe)) (_g1761917655_)))))) (if (gx#stx-null? _tl1762917746_) - (___match4430744308_ + (___match4448444485_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1000,7 +1000,7 @@ _tl1762917746_) (let () (declare (not safe)) (_g1761917655_)))) (if (gx#stx-null? _tl1762917746_) - (___match4430744308_ + (___match4448444485_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1014,7 +1014,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _tl1762917746_) - (___match4430744308_ + (___match4448444485_ _e1762517719_ _hd1762417723_ _tl1762317726_ @@ -1028,7 +1028,7 @@ (declare (not safe)) (_g1761917655_)))))) (if (gx#stx-null? _tl1762917746_) - (___match4430744308_ + (___match4448444485_ _e1762517719_ _hd1762417723_ _tl1762317726_ diff --git a/src/bootstrap/gerbil/core__6.scm b/src/bootstrap/gerbil/core__6.scm index ce68e30c8..15638a6ab 100644 --- a/src/bootstrap/gerbil/core__6.scm +++ b/src/bootstrap/gerbil/core__6.scm @@ -1,110 +1,110 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core$$[1]#module-type-id| - (lambda (_type-t19120_) - (let ((_$e19123_ (gx#module-context-ns (gx#current-expander-context)))) - (if _$e19123_ - ((lambda (_ns19127_) + (lambda (_type-t19219_) + (let ((_$e19222_ (gx#module-context-ns (gx#current-expander-context)))) + (if _$e19222_ + ((lambda (_ns19226_) (gx#stx-identifier - _type-t19120_ - _ns19127_ + _type-t19219_ + _ns19226_ '"#" - _type-t19120_ + _type-t19219_ '"::t")) - _$e19123_) - (let ((_mid19130_ + _$e19222_) + (let ((_mid19229_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _type-t19120_ - _mid19130_ + _type-t19219_ + _mid19229_ '"#" - _type-t19120_ + _type-t19219_ '"::t")))))) (define |gerbil/core$$[1]#make-class-type-id| - (lambda (_type-t19117_) + (lambda (_type-t19216_) (if (gx#module-context? (gx#current-expander-context)) (let () (declare (not safe)) - (|gerbil/core$$[1]#module-type-id| _type-t19117_)) - (make-symbol '"__" (gensym (gx#stx-e _type-t19117_)) '"::t")))) + (|gerbil/core$$[1]#module-type-id| _type-t19216_)) + (make-symbol '"__" (gensym (gx#stx-e _type-t19216_)) '"::t")))) (define |gerbil/core$$[1]#generate-typedef| (lambda (_stx17796_ _struct?17798_) (letrec ((_wrap17800_ - (lambda (_e-stx19114_) + (lambda (_e-stx19213_) (gx#stx-wrap-source - _e-stx19114_ + _e-stx19213_ (gx#stx-source _stx17796_)))) (_slot-name17802_ - (lambda (_slot-spec19031_) - (let* ((_g1903419053_ - (lambda (_g1903519049_) + (lambda (_slot-spec19130_) + (let* ((_g1913319152_ + (lambda (_g1913419148_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1903519049_))) - (_g1903319110_ - (lambda (_g1903519057_) - (if (gx#stx-pair? _g1903519057_) - (let ((_e1904119060_ - (gx#syntax-e _g1903519057_))) - (let ((_hd1904019064_ + _g1913419148_))) + (_g1913219209_ + (lambda (_g1913419156_) + (if (gx#stx-pair? _g1913419156_) + (let ((_e1914019159_ + (gx#syntax-e _g1913419156_))) + (let ((_hd1913919163_ (let () (declare (not safe)) - (##car _e1904119060_))) - (_tl1903919067_ + (##car _e1914019159_))) + (_tl1913819166_ (let () (declare (not safe)) - (##cdr _e1904119060_)))) - (if (gx#stx-pair? _tl1903919067_) - (let ((_e1904419070_ - (gx#syntax-e _tl1903919067_))) - (let ((_hd1904319074_ + (##cdr _e1914019159_)))) + (if (gx#stx-pair? _tl1913819166_) + (let ((_e1914319169_ + (gx#syntax-e _tl1913819166_))) + (let ((_hd1914219173_ (let () (declare (not safe)) - (##car _e1904419070_))) - (_tl1904219077_ + (##car _e1914319169_))) + (_tl1914119176_ (let () (declare (not safe)) - (##cdr _e1904419070_)))) - (if (gx#stx-pair? _tl1904219077_) - (let ((_e1904719080_ + (##cdr _e1914319169_)))) + (if (gx#stx-pair? _tl1914119176_) + (let ((_e1914619179_ (gx#syntax-e - _tl1904219077_))) - (let ((_hd1904619084_ + _tl1914119176_))) + (let ((_hd1914519183_ (let () (declare (not safe)) - (##car _e1904719080_))) - (_tl1904519087_ + (##car _e1914619179_))) + (_tl1914419186_ (let () (declare (not safe)) - (##cdr _e1904719080_)))) + (##cdr _e1914619179_)))) (if (gx#stx-null? - _tl1904519087_) - ((lambda (_L19090_ + _tl1914419186_) + ((lambda (_L19189_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L19092_ - _L19093_) - _L19093_) - _hd1904619084_ - _hd1904319074_ - _hd1904019064_) - (let () (declare (not safe)) (_g1903419053_ _g1903519057_))))) + _L19191_ + _L19192_) + _L19192_) + _hd1914519183_ + _hd1914219173_ + _hd1913919163_) + (let () (declare (not safe)) (_g1913319152_ _g1913419156_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1903419053_ - _g1903519057_))))) + (_g1913319152_ + _g1913419156_))))) (let () (declare (not safe)) - (_g1903419053_ _g1903519057_))))) + (_g1913319152_ _g1913419156_))))) (let () (declare (not safe)) - (_g1903419053_ _g1903519057_)))))) + (_g1913319152_ _g1913419156_)))))) (declare (not safe)) - (_g1903319110_ _slot-spec19031_)))) + (_g1913219209_ _slot-spec19130_)))) (_class-opt?17803_ - (lambda (_key19028_) - (memq (gx#stx-e _key19028_) + (lambda (_key19127_) + (memq (gx#stx-e _key19127_) '(struct: slots: id: @@ -112,14 +112,15 @@ properties: constructor: final: - mixin:))))) + mixin: + metaclass:))))) (let* ((_g1780517832_ (lambda (_g1780617828_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" _g1780617828_))) - (_g1780419024_ + (_g1780419123_ (lambda (_g1780617836_) (if (gx#stx-pair? _g1780617836_) (let ((_e1781417839_ (gx#syntax-e _g1780617836_))) @@ -204,1450 +205,1525 @@ (_accessible-slots17949_ (append (gx#syntax->list _slots17939_) (gx#syntax->list _mixin-slots17946_))) - (_g1795217969_ - (lambda (_g1795317965_) + (_metaclass17952_ + (gx#stx-getq 'metaclass: _L17889_)) + (_g1795517972_ + (lambda (_g1795617968_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1795317965_))) - (_g1795119020_ - (lambda (_g1795317973_) - (if (gx#stx-pair/null? _g1795317973_) - (let ((_g48983_ + _g1795617968_))) + (_g1795419119_ + (lambda (_g1795617976_) + (if (gx#stx-pair/null? _g1795617976_) + (let ((_g49160_ (gx#syntax-split-splice - _g1795317973_ + _g1795617976_ '0))) (begin - (let ((_g48984_ + (let ((_g49161_ (let () (declare (not safe)) - (if (##values? _g48983_) + (if (##values? _g49160_) (##vector-length - _g48983_) + _g49160_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g48984_ 2))) + (##fx= _g49161_ 2))) (error "Context expects 2 values" - _g48984_))) - (let ((_target1795517976_ + _g49161_))) + (let ((_target1795817979_ (let () (declare (not safe)) - (##vector-ref _g48983_ 0))) - (_tl1795717979_ + (##vector-ref _g49160_ 0))) + (_tl1796017982_ (let () (declare (not safe)) (##vector-ref - _g48983_ + _g49160_ 1)))) - (if (gx#stx-null? _tl1795717979_) - (letrec ((_loop1795817982_ - (lambda (_hd1795617986_ + (if (gx#stx-null? _tl1796017982_) + (letrec ((_loop1796117985_ + (lambda (_hd1795917989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _slot1796217989_) - (if (gx#stx-pair? _hd1795617986_) - (let ((_e1795917992_ (gx#syntax-e _hd1795617986_))) - (let ((_lp-hd1796017996_ + _slot1796517992_) + (if (gx#stx-pair? _hd1795917989_) + (let ((_e1796217995_ (gx#syntax-e _hd1795917989_))) + (let ((_lp-hd1796317999_ (let () (declare (not safe)) - (##car _e1795917992_))) - (_lp-tl1796117999_ + (##car _e1796217995_))) + (_lp-tl1796418002_ (let () (declare (not safe)) - (##cdr _e1795917992_)))) - (let ((__tmp49202 + (##cdr _e1796217995_)))) + (let ((__tmp49391 (let () (declare (not safe)) - (cons _lp-hd1796017996_ - _slot1796217989_)))) + (cons _lp-hd1796317999_ + _slot1796517992_)))) (declare (not safe)) - (_loop1795817982_ - _lp-tl1796117999_ - __tmp49202)))) - (let ((_slot1796318002_ (reverse _slot1796217989_))) - ((lambda (_L18006_) + (_loop1796117985_ + _lp-tl1796418002_ + __tmp49391)))) + (let ((_slot1796618005_ (reverse _slot1796517992_))) + ((lambda (_L18009_) (let () - (let* ((_g1802618034_ - (lambda (_g1802718030_) + (let* ((_g1803018038_ + (lambda (_g1803118034_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1802718030_))) - (_g1802519012_ - (lambda (_g1802718038_) - ((lambda (_L18041_) + _g1803118034_))) + (_g1802919111_ + (lambda (_g1803118042_) + ((lambda (_L18045_) (let () - (let* ((_g1805418062_ - (lambda (_g1805518058_) + (let* ((_g1805818066_ + (lambda (_g1805918062_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1805518058_))) - (_g1805319004_ - (lambda (_g1805518066_) - ((lambda (_L18069_) + _g1805918062_))) + (_g1805719103_ + (lambda (_g1805918070_) + ((lambda (_L18073_) (let () - (let* ((_g1808218090_ + (let* ((_g1808618094_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1808318086_) + (lambda (_g1808718090_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1808318086_))) - (_g1808119000_ - (lambda (_g1808318094_) - ((lambda (_L18097_) + _g1808718090_))) + (_g1808519099_ + (lambda (_g1808718098_) + ((lambda (_L18101_) (let () - (let* ((_g1811018118_ - (lambda (_g1811118114_) + (let* ((_g1811418122_ + (lambda (_g1811518118_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1811118114_))) - (_g1810918996_ - (lambda (_g1811118122_) - ((lambda (_L18125_) + _g1811518118_))) + (_g1811319095_ + (lambda (_g1811518126_) + ((lambda (_L18129_) (let () - (let* ((_g1813818146_ - (lambda (_g1813918142_) + (let* ((_g1814218150_ + (lambda (_g1814318146_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1813918142_))) - (_g1813718992_ - (lambda (_g1813918150_) - ((lambda (_L18153_) + _g1814318146_))) + (_g1814119091_ + (lambda (_g1814318154_) + ((lambda (_L18157_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1816618174_ - (lambda (_g1816718170_) + (let* ((_g1817018178_ + (lambda (_g1817118174_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1816718170_))) - (_g1816518988_ - (lambda (_g1816718178_) - ((lambda (_L18181_) + _g1817118174_))) + (_g1816919087_ + (lambda (_g1817118182_) + ((lambda (_L18185_) (let () - (let* ((_g1819418202_ - (lambda (_g1819518198_) + (let* ((_g1819818206_ + (lambda (_g1819918202_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1819518198_))) - (_g1819318984_ - (lambda (_g1819518206_) - ((lambda (_L18209_) + _g1819918202_))) + (_g1819719083_ + (lambda (_g1819918210_) + ((lambda (_L18213_) (let () - (let* ((_g1822218230_ + (let* ((_g1822618234_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1822318226_) + (lambda (_g1822718230_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1822318226_))) - (_g1822118976_ - (lambda (_g1822318234_) - ((lambda (_L18237_) + _g1822718230_))) + (_g1822519079_ + (lambda (_g1822718238_) + ((lambda (_L18241_) (let () - (let* ((_g1825018258_ - (lambda (_g1825118254_) + (let* ((_g1825418262_ + (lambda (_g1825518258_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1825118254_))) - (_g1824918972_ - (lambda (_g1825118262_) - ((lambda (_L18265_) + _g1825518258_))) + (_g1825319071_ + (lambda (_g1825518266_) + ((lambda (_L18269_) (let () - (let* ((_g1827818286_ - (lambda (_g1827918282_) + (let* ((_g1828218290_ + (lambda (_g1828318286_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1827918282_))) - (_g1827718968_ - (lambda (_g1827918290_) - ((lambda (_L18293_) + _g1828318286_))) + (_g1828119067_ + (lambda (_g1828318294_) + ((lambda (_L18297_) (let () - (let* ((_g1830618314_ + (let* ((_g1831018318_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1830718310_) + (lambda (_g1831118314_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1830718310_))) - (_g1830518964_ - (lambda (_g1830718318_) - ((lambda (_L18321_) + _g1831118314_))) + (_g1830919063_ + (lambda (_g1831118322_) + ((lambda (_L18325_) (let () - (let* ((_g1833418342_ - (lambda (_g1833518338_) + (let* ((_g1833818346_ + (lambda (_g1833918342_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1833518338_))) - (_g1833318952_ - (lambda (_g1833518346_) - ((lambda (_L18349_) + _g1833918342_))) + (_g1833719028_ + (lambda (_g1833918350_) + ((lambda (_L18353_) (let () - (let* ((_g1836218370_ - (lambda (_g1836318366_) + (let* ((_g1836618374_ + (lambda (_g1836718370_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1836318366_))) - (_g1836118940_ - (lambda (_g1836318374_) - ((lambda (_L18377_) + _g1836718370_))) + (_g1836519024_ + (lambda (_g1836718378_) + ((lambda (_L18381_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g1839018398_ - (lambda (_g1839118394_) + (let* ((_g1839418402_ + (lambda (_g1839518398_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1839118394_))) - (_g1838918936_ - (lambda (_g1839118402_) - ((lambda (_L18405_) + _g1839518398_))) + (_g1839319012_ + (lambda (_g1839518406_) + ((lambda (_L18409_) (let () - (let* ((_g1841818426_ - (lambda (_g1841918422_) + (let* ((_g1842218430_ + (lambda (_g1842318426_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1841918422_))) - (_g1841718932_ - (lambda (_g1841918430_) - ((lambda (_L18433_) + _g1842318426_))) + (_g1842119000_ + (lambda (_g1842318434_) + ((lambda (_L18437_) (let () - (let* ((_g1844618472_ + (let* ((_g1845018458_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1844718468_) + (lambda (_g1845118454_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1844718468_))) - (_g1844518844_ - (lambda (_g1844718476_) - (if (gx#stx-pair/null? _g1844718476_) - (let ((_g48985_ - (gx#syntax-split-splice - _g1844718476_ - '0))) - (begin - (let ((_g48986_ - (let () - (declare (not safe)) - (if (##values? _g48985_) - (##vector-length _g48985_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g48986_ 2))) - (error "Context expects 2 values" - _g48986_))) - (let ((_target1845018479_ - (let () - (declare (not safe)) - (##vector-ref _g48985_ 0))) - (_tl1845218482_ - (let () - (declare (not safe)) - (##vector-ref _g48985_ 1)))) - (if (gx#stx-null? _tl1845218482_) - (letrec ((_loop1845318485_ - (lambda (_hd1845118489_ - _def-setf1845718492_ - _def-getf1845818494_) - (if (gx#stx-pair? - _hd1845118489_) - (let ((_e1845418497_ - (gx#syntax-e + _g1845118454_))) + (_g1844918996_ + (lambda (_g1845118462_) + ((lambda (_L18465_) + (let () + (let* ((_g1847818486_ + (lambda (_g1847918482_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1847918482_))) + (_g1847718992_ + (lambda (_g1847918490_) + ((lambda (_L18493_) + (let () + (let* ((_g1850618532_ + (lambda (_g1850718528_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1850718528_))) + (_g1850518904_ + (lambda (_g1850718536_) + (if (gx#stx-pair/null? + _g1850718536_) + (let ((_g49162_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd1845118489_))) - (let ((_lp-hd1845518501_ - (let () (declare (not safe)) (##car _e1845418497_))) - (_lp-tl1845618504_ - (let () (declare (not safe)) (##cdr _e1845418497_)))) - (if (gx#stx-pair? _lp-hd1845518501_) - (let ((_e1846318507_ (gx#syntax-e _lp-hd1845518501_))) - (let ((_hd1846218511_ - (let () - (declare (not safe)) - (##car _e1846318507_))) - (_tl1846118514_ + (gx#syntax-split-splice _g1850718536_ '0))) + (begin + (let ((_g49163_ + (let () + (declare (not safe)) + (if (##values? _g49162_) + (##vector-length _g49162_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49163_ 2))) + (error "Context expects 2 values" _g49163_))) + (let ((_target1851018539_ + (let () + (declare (not safe)) + (##vector-ref _g49162_ 0))) + (_tl1851218542_ + (let () + (declare (not safe)) + (##vector-ref _g49162_ 1)))) + (if (gx#stx-null? _tl1851218542_) + (letrec ((_loop1851318545_ + (lambda (_hd1851118549_ + _def-setf1851718552_ + _def-getf1851818554_) + (if (gx#stx-pair? _hd1851118549_) + (let ((_e1851418557_ + (gx#syntax-e + _hd1851118549_))) + (let ((_lp-hd1851518561_ + (let () + (declare (not safe)) + (##car _e1851418557_))) + (_lp-tl1851618564_ + (let () + (declare (not safe)) + (##cdr _e1851418557_)))) + (if (gx#stx-pair? + _lp-hd1851518561_) + (let ((_e1852318567_ + (gx#syntax-e + _lp-hd1851518561_))) + (let ((_hd1852218571_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e1852318567_))) + (_tl1852118574_ + (let () (declare (not safe)) (##cdr _e1852318567_)))) + (if (gx#stx-pair? _tl1852118574_) + (let ((_e1852618577_ (gx#syntax-e _tl1852118574_))) + (let ((_hd1852518581_ + (let () + (declare (not safe)) + (##car _e1852618577_))) + (_tl1852418584_ + (let () + (declare (not safe)) + (##cdr _e1852618577_)))) + (if (gx#stx-null? _tl1852418584_) + (let ((__tmp49227 + (let () + (declare (not safe)) + (cons _hd1852518581_ + _def-setf1851718552_))) + (__tmp49226 + (let () + (declare (not safe)) + (cons _hd1852218571_ + _def-getf1851818554_)))) + (declare (not safe)) + (_loop1851318545_ + _lp-tl1851618564_ + __tmp49227 + __tmp49226)) + (let () + (declare (not safe)) + (_g1850618532_ _g1850718536_))))) + (let () + (declare (not safe)) + (_g1850618532_ _g1850718536_))))) + (let () (declare (not safe)) (_g1850618532_ _g1850718536_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_def-setf1851918587_ + (reverse _def-setf1851718552_)) + (_def-getf1852018590_ + (reverse _def-getf1851818554_))) + ((lambda (_L18593_ _L18595_) + (let () + (let* ((_g1861218638_ + (lambda (_g1861318634_) + (gx#raise-syntax-error +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '"Bad syntax; invalid match target" + _g1861318634_))) + (_g1861118752_ + (lambda (_g1861318642_) + (if (gx#stx-pair/null? _g1861318642_) + (let ((_g49164_ + (gx#syntax-split-splice _g1861318642_ '0))) + (begin + (let ((_g49165_ + (let () + (declare (not safe)) + (if (##values? _g49164_) + (##vector-length _g49164_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g49165_ 2))) + (error "Context expects 2 values" + _g49165_))) + (let ((_target1861618645_ + (let () + (declare (not safe)) + (##vector-ref _g49164_ 0))) + (_tl1861818648_ + (let () + (declare (not safe)) + (##vector-ref _g49164_ 1)))) + (if (gx#stx-null? _tl1861818648_) + (letrec ((_loop1861918651_ + (lambda (_hd1861718655_ + _def-usetf1862318658_ + _def-ugetf1862418660_) + (if (gx#stx-pair? + _hd1861718655_) + (let ((_e1862018663_ + (gx#syntax-e + _hd1861718655_))) + (let ((_lp-hd1862118667_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e1862018663_))) + (_lp-tl1862218670_ + (let () (declare (not safe)) (##cdr _e1862018663_)))) + (if (gx#stx-pair? _lp-hd1862118667_) + (let ((_e1862918673_ (gx#syntax-e _lp-hd1862118667_))) + (let ((_hd1862818677_ + (let () + (declare (not safe)) + (##car _e1862918673_))) + (_tl1862718680_ + (let () + (declare (not safe)) + (##cdr _e1862918673_)))) + (if (gx#stx-pair? _tl1862718680_) + (let ((_e1863218683_ + (gx#syntax-e _tl1862718680_))) + (let ((_hd1863118687_ + (let () + (declare (not safe)) + (##car _e1863218683_))) + (_tl1863018690_ + (let () + (declare (not safe)) + (##cdr _e1863218683_)))) + (if (gx#stx-null? _tl1863018690_) + (let ((__tmp49180 + (let () + (declare (not safe)) + (cons _hd1863118687_ + _def-usetf1862318658_))) + (__tmp49179 + (let () + (declare (not safe)) + (cons _hd1862818677_ + _def-ugetf1862418660_)))) + (declare (not safe)) + (_loop1861918651_ + _lp-tl1862218670_ + __tmp49180 + __tmp49179)) + (let () + (declare (not safe)) + (_g1861218638_ _g1861318642_))))) + (let () + (declare (not safe)) + (_g1861218638_ _g1861318642_))))) + (let () + (declare (not safe)) + (_g1861218638_ _g1861318642_))))) + (let ((_def-usetf1862518693_ (reverse _def-usetf1862318658_)) + (_def-ugetf1862618696_ (reverse _def-ugetf1862418660_))) + ((lambda (_L18699_ _L18701_) + (let () + (let () + (let ((__tmp49166 + (let ((__tmp49178 (gx#datum->syntax '#f 'begin)) + (__tmp49167 + (let ((__tmp49168 + (let ((__tmp49169 + (let ((__tmp49170 + (let ((__tmp49177 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g1871918728_ _g1872018731_) + (let () + (declare (not safe)) + (cons _g1871918728_ _g1872018731_)))) + (__tmp49171 + (let ((__tmp49176 + (lambda (_g1872118734_ _g1872218737_) (let () (declare (not safe)) - (##cdr _e1846318507_)))) - (if (gx#stx-pair? _tl1846118514_) - (let ((_e1846618517_ - (gx#syntax-e _tl1846118514_))) - (let ((_hd1846518521_ - (let () - (declare (not safe)) - (##car _e1846618517_))) - (_tl1846418524_ - (let () - (declare (not safe)) - (##cdr _e1846618517_)))) - (if (gx#stx-null? _tl1846418524_) - (let ((__tmp49050 + (cons _g1872118734_ _g1872218737_)))) + (__tmp49172 + (let ((__tmp49175 + (lambda (_g1872318740_ _g1872418743_) + (let () + (declare (not safe)) + (cons _g1872318740_ + _g1872418743_)))) + (__tmp49173 + (let ((__tmp49174 + (lambda (_g1872518746_ + _g1872618749_) (let () (declare (not safe)) - (cons _hd1846518521_ - _def-setf1845718492_))) - (__tmp49049 + (cons _g1872518746_ + _g1872618749_))))) + (declare (not safe)) + (foldr1 __tmp49174 '() _L18699_)))) + (declare (not safe)) + (foldr1 __tmp49175 __tmp49173 _L18701_)))) + (declare (not safe)) + (foldr1 __tmp49176 __tmp49172 _L18593_)))) + (declare (not safe)) + (foldr1 __tmp49177 __tmp49171 _L18595_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L18465_ + __tmp49170)))) + (declare (not safe)) + (cons _L18493_ __tmp49169)))) + (declare (not safe)) + (cons _L18437_ __tmp49168)))) + (declare (not safe)) + (cons __tmp49178 __tmp49167)))) + (declare (not safe)) + (_wrap17800_ __tmp49166))))) + _def-usetf1862518693_ + _def-ugetf1862618696_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (_loop1861918651_ + _target1861618645_ + '() + '()))) + (let () + (declare (not safe)) + (_g1861218638_ _g1861318642_)))))) + (let () + (declare (not safe)) + (_g1861218638_ _g1861318642_))))) + (__tmp49181 + (gx#stx-map + (lambda (_ref18756_) + (let* ((_g1875918778_ + (lambda (_g1876018774_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1876018774_))) + (_g1875818900_ + (lambda (_g1876018782_) + (if (gx#stx-pair? _g1876018782_) + (let ((_e1876618785_ + (gx#syntax-e _g1876018782_))) + (let ((_hd1876518789_ (let () (declare (not safe)) - (cons _hd1846218511_ - _def-getf1845818494_)))) - (declare (not safe)) - (_loop1845318485_ - _lp-tl1845618504_ - __tmp49050 - __tmp49049)) - (let () - (declare (not safe)) - (_g1844618472_ _g1844718476_))))) - (let () - (declare (not safe)) - (_g1844618472_ _g1844718476_))))) - (let () - (declare (not safe)) - (_g1844618472_ _g1844718476_))))) - (let ((_def-setf1845918527_ (reverse _def-setf1845718492_)) - (_def-getf1846018530_ (reverse _def-getf1845818494_))) - ((lambda (_L18533_ _L18535_) - (let () - (let* ((_g1855218578_ - (lambda (_g1855318574_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1855318574_))) - (_g1855118692_ - (lambda (_g1855318582_) - (if (gx#stx-pair/null? _g1855318582_) - (let ((_g48987_ - (gx#syntax-split-splice - _g1855318582_ - '0))) - (begin - (let ((_g48988_ - (let () - (declare (not safe)) - (if (##values? _g48987_) - (##vector-length - _g48987_) - 1)))) - (if (not (let () - (declare (not safe)) - (##fx= _g48988_ 2))) - (error "Context expects 2 values" - _g48988_))) - (let ((_target1855618585_ - (let () - (declare (not safe)) - (##vector-ref _g48987_ 0))) - (_tl1855818588_ - (let () - (declare (not safe)) - (##vector-ref _g48987_ 1)))) - (if (gx#stx-null? _tl1855818588_) - (letrec ((_loop1855918591_ - (lambda (_hd1855718595_ + (##car _e1876618785_))) + (_tl1876418792_ + (let () + (declare (not safe)) + (##cdr _e1876618785_)))) + (if (gx#stx-pair? _tl1876418792_) + (let ((_e1876918795_ + (gx#syntax-e + _tl1876418792_))) + (let ((_hd1876818799_ + (let () + (declare (not safe)) + (##car _e1876918795_))) + (_tl1876718802_ + (let () + (declare (not safe)) + (##cdr _e1876918795_)))) + (if (gx#stx-pair? + _tl1876718802_) + (let ((_e1877218805_ + (gx#syntax-e + _tl1876718802_))) + (let ((_hd1877118809_ + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _def-usetf1856318598_ - _def-ugetf1856418600_) - (if (gx#stx-pair? _hd1855718595_) - (let ((_e1856018603_ (gx#syntax-e _hd1855718595_))) - (let ((_lp-hd1856118607_ - (let () - (declare (not safe)) - (##car _e1856018603_))) - (_lp-tl1856218610_ - (let () - (declare (not safe)) - (##cdr _e1856018603_)))) - (if (gx#stx-pair? _lp-hd1856118607_) - (let ((_e1856918613_ - (gx#syntax-e _lp-hd1856118607_))) - (let ((_hd1856818617_ - (let () - (declare (not safe)) - (##car _e1856918613_))) - (_tl1856718620_ - (let () - (declare (not safe)) - (##cdr _e1856918613_)))) - (if (gx#stx-pair? _tl1856718620_) - (let ((_e1857218623_ - (gx#syntax-e _tl1856718620_))) - (let ((_hd1857118627_ + (declare (not safe)) + (##car _e1877218805_))) + (_tl1877018812_ + (let () (declare (not safe)) (##cdr _e1877218805_)))) + (if (gx#stx-null? _tl1877018812_) + ((lambda (_L18815_ _L18817_ _L18818_) + (let* ((_g1883618851_ + (lambda (_g1883718847_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1883718847_))) + (_g1883518896_ + (lambda (_g1883718855_) + (if (gx#stx-pair? _g1883718855_) + (let ((_e1884218858_ + (gx#syntax-e _g1883718855_))) + (let ((_hd1884118862_ (let () (declare (not safe)) - (##car _e1857218623_))) - (_tl1857018630_ + (##car _e1884218858_))) + (_tl1884018865_ (let () (declare (not safe)) - (##cdr _e1857218623_)))) - (if (gx#stx-null? _tl1857018630_) - (let ((__tmp49003 - (let () - (declare (not safe)) - (cons _hd1857118627_ - _def-usetf1856318598_))) - (__tmp49002 - (let () - (declare (not safe)) - (cons _hd1856818617_ - _def-ugetf1856418600_)))) - (declare (not safe)) - (_loop1855918591_ - _lp-tl1856218610_ - __tmp49003 - __tmp49002)) - (let () - (declare (not safe)) - (_g1855218578_ - _g1855318582_))))) - (let () - (declare (not safe)) - (_g1855218578_ _g1855318582_))))) - (let () - (declare (not safe)) - (_g1855218578_ _g1855318582_))))) - (let ((_def-usetf1856518633_ - (reverse _def-usetf1856318598_)) - (_def-ugetf1856618636_ - (reverse _def-ugetf1856418600_))) - ((lambda (_L18639_ _L18641_) - (let () - (let () - (let ((__tmp48989 - (let ((__tmp49001 - (gx#datum->syntax '#f 'begin)) - (__tmp48990 - (let ((__tmp48991 - (let ((__tmp48992 - (let ((__tmp48993 + (##cdr _e1884218858_)))) + (if (gx#stx-pair? _tl1884018865_) + (let ((_e1884518868_ + (gx#syntax-e + _tl1884018865_))) + (let ((_hd1884418872_ + (let () + (declare (not safe)) + (##car _e1884518868_))) + (_tl1884318875_ + (let () + (declare (not safe)) + (##cdr _e1884518868_)))) + (if (gx#stx-null? + _tl1884318875_) + ((lambda (_L18878_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49000 - (lambda (_g1865918668_ _g1866018671_) - (let () - (declare (not safe)) - (cons _g1865918668_ _g1866018671_)))) - (__tmp48994 - (let ((__tmp48999 - (lambda (_g1866118674_ _g1866218677_) - (let () - (declare (not safe)) - (cons _g1866118674_ - _g1866218677_)))) - (__tmp48995 - (let ((__tmp48998 - (lambda (_g1866318680_ - _g1866418683_) + _L18880_) + (let () + (let ((__tmp49204 + (let ((__tmp49205 + (let ((__tmp49224 + (gx#datum->syntax '#f 'def)) + (__tmp49206 + (let ((__tmp49207 + (let ((__tmp49208 + (let ((__tmp49223 + (gx#datum->syntax + '#f + 'begin-annotation)) + (__tmp49209 + (let ((__tmp49218 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49222 + (gx#datum->syntax '#f '@mop.accessor)) + (__tmp49219 + (let ((__tmp49220 + (let ((__tmp49221 (let () (declare (not safe)) - (cons _g1866318680_ - _g1866418683_)))) - (__tmp48996 - (let ((__tmp48997 - (lambda (_g1866518686_ + (cons '#f '())))) + (declare (not safe)) + (cons _L18818_ __tmp49221)))) + (declare (not safe)) + (cons _L18129_ __tmp49220)))) + (declare (not safe)) + (cons __tmp49222 __tmp49219))) + (__tmp49210 + (let ((__tmp49211 + (let ((__tmp49217 + (gx#datum->syntax + '#f + 'make-class-slot-unchecked-accessor)) + (__tmp49212 + (let ((__tmp49213 + (let ((__tmp49214 + (let ((__tmp49216 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1866618689_) - (let () + (gx#datum->syntax '#f 'quote)) + (__tmp49215 + (let () (declare (not safe)) (cons _L18818_ '())))) (declare (not safe)) - (cons _g1866518686_ _g1866618689_))))) + (cons __tmp49216 __tmp49215)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49214 '())))) + (declare (not safe)) + (cons _L17894_ __tmp49213)))) + (declare (not safe)) + (cons __tmp49217 __tmp49212)))) + (declare (not safe)) + (cons __tmp49211 '())))) + (declare (not safe)) + (cons __tmp49218 __tmp49210)))) + (declare (not safe)) + (cons __tmp49223 __tmp49209)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp48997 - '() - _L18639_)))) + (cons __tmp49208 '())))) (declare (not safe)) - (foldr1 __tmp48998 - __tmp48996 - _L18641_)))) + (cons _L18880_ __tmp49207)))) (declare (not safe)) - (foldr1 __tmp48999 __tmp48995 _L18533_)))) + (cons __tmp49224 __tmp49206)))) (declare (not safe)) - (foldr1 __tmp49000 __tmp48994 _L18535_)))) - (declare (not safe)) - (cons _L18405_ __tmp48993)))) - (declare (not safe)) - (cons _L18433_ __tmp48992)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18377_ __tmp48991)))) - (declare (not safe)) - (cons __tmp49001 __tmp48990)))) - (declare (not safe)) - (_wrap17800_ __tmp48989))))) - _def-usetf1856518633_ - _def-ugetf1856618636_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1855918591_ - _target1855618585_ - '() - '()))) - (let () - (declare (not safe)) - (_g1855218578_ - _g1855318582_)))))) - (let () - (declare (not safe)) - (_g1855218578_ _g1855318582_))))) - (__tmp49004 - (gx#stx-map - (lambda (_ref18696_) - (let* ((_g1869918718_ - (lambda (_g1870018714_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1870018714_))) - (_g1869818840_ - (lambda (_g1870018722_) - (if (gx#stx-pair? _g1870018722_) - (let ((_e1870618725_ - (gx#syntax-e - _g1870018722_))) - (let ((_hd1870518729_ - (let () - (declare - (not safe)) - (##car _e1870618725_))) - (_tl1870418732_ + (_wrap17800_ __tmp49205))) + (__tmp49182 + (let ((__tmp49183 + (let ((__tmp49184 + (let ((__tmp49203 + (gx#datum->syntax '#f 'def)) + (__tmp49185 + (let ((__tmp49186 + (let ((__tmp49187 + (let ((__tmp49202 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp49188 + (let ((__tmp49197 + (let ((__tmp49201 + (gx#datum->syntax + '#f + '@mop.mutator)) + (__tmp49198 + (let ((__tmp49199 + (let ((__tmp49200 (let () (declare (not safe)) - (##cdr _e1870618725_)))) - (if (gx#stx-pair? - _tl1870418732_) - (let ((_e1870918735_ - (gx#syntax-e -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl1870418732_))) - (let ((_hd1870818739_ - (let () (declare (not safe)) (##car _e1870918735_))) - (_tl1870718742_ - (let () (declare (not safe)) (##cdr _e1870918735_)))) - (if (gx#stx-pair? _tl1870718742_) - (let ((_e1871218745_ (gx#syntax-e _tl1870718742_))) - (let ((_hd1871118749_ - (let () - (declare (not safe)) - (##car _e1871218745_))) - (_tl1871018752_ - (let () - (declare (not safe)) - (##cdr _e1871218745_)))) - (if (gx#stx-null? _tl1871018752_) - ((lambda (_L18755_ _L18757_ _L18758_) - (let* ((_g1877618791_ - (lambda (_g1877718787_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1877718787_))) - (_g1877518836_ - (lambda (_g1877718795_) - (if (gx#stx-pair? _g1877718795_) - (let ((_e1878218798_ - (gx#syntax-e - _g1877718795_))) - (let ((_hd1878118802_ - (let () - (declare - (not safe)) - (##car _e1878218798_))) - (_tl1878018805_ - (let () - (declare - (not safe)) - (##cdr _e1878218798_)))) - (if (gx#stx-pair? - _tl1878018805_) - (let ((_e1878518808_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1878018805_))) - (let ((_hd1878418812_ - (let () (declare (not safe)) (##car _e1878518808_))) - (_tl1878318815_ - (let () - (declare (not safe)) - (##cdr _e1878518808_)))) - (if (gx#stx-null? _tl1878318815_) - ((lambda (_L18818_ _L18820_) - (let () - (let ((__tmp49027 - (let ((__tmp49028 - (let ((__tmp49047 - (gx#datum->syntax - '#f - 'def)) - (__tmp49029 - (let ((__tmp49030 - (let ((__tmp49031 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49046 - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49032 - (let ((__tmp49041 - (let ((__tmp49045 - (gx#datum->syntax - '#f - '@mop.accessor)) - (__tmp49042 - (let ((__tmp49043 - (let ((__tmp49044 - (let () - (declare + (cons '#f '())))) + (declare (not safe)) + (cons _L18818_ + __tmp49200)))) + (declare (not safe)) + (cons _L18129_ __tmp49199)))) + (declare (not safe)) + (cons __tmp49201 __tmp49198))) + (__tmp49189 + (let ((__tmp49190 + (let ((__tmp49196 + (gx#datum->syntax + '#f + 'make-class-slot-unchecked-mutator)) + (__tmp49191 + (let ((__tmp49192 + (let ((__tmp49193 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (cons '#f '())))) - (declare (not safe)) - (cons _L18758_ __tmp49044)))) + (let ((__tmp49195 (gx#datum->syntax '#f 'quote)) + (__tmp49194 + (let () + (declare (not safe)) + (cons _L18818_ '())))) + (declare (not safe)) + (cons __tmp49195 __tmp49194)))) + (declare (not safe)) + (cons __tmp49193 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18125_ __tmp49043)))) - (declare (not safe)) - (cons __tmp49045 __tmp49042))) - (__tmp49033 - (let ((__tmp49034 - (let ((__tmp49040 - (gx#datum->syntax - '#f - 'make-class-slot-unchecked-accessor)) - (__tmp49035 - (let ((__tmp49036 - (let ((__tmp49037 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49039 (gx#datum->syntax '#f 'quote)) - (__tmp49038 - (let () + (declare (not safe)) + (cons _L17894_ + __tmp49192)))) + (declare (not safe)) + (cons __tmp49196 __tmp49191)))) + (declare (not safe)) + (cons __tmp49190 '())))) + (declare (not safe)) + (cons __tmp49197 __tmp49189)))) + (declare (not safe)) + (cons __tmp49202 __tmp49188)))) + (declare (not safe)) + (cons __tmp49187 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L18878_ + __tmp49186)))) + (declare (not safe)) + (cons __tmp49203 __tmp49185)))) (declare (not safe)) - (cons _L18758_ '())))) + (_wrap17800_ __tmp49184)))) (declare (not safe)) - (cons __tmp49039 __tmp49038)))) + (cons __tmp49183 '())))) (declare (not safe)) - (cons __tmp49037 '())))) - (declare (not safe)) - (cons _L17894_ __tmp49036)))) + (cons __tmp49204 __tmp49182)))) + _hd1884418872_ + _hd1884118862_) + (let () (declare (not safe)) (_g1883618851_ _g1883718855_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49040 - __tmp49035)))) + (let () + (declare (not safe)) + (_g1883618851_ + _g1883718855_))))) + (let () (declare (not safe)) - (cons __tmp49034 '())))) - (declare (not safe)) - (cons __tmp49041 __tmp49033)))) + (_g1883618851_ _g1883718855_))))) + (__tmp49225 + (list (gx#stx-identifier + _L18817_ + '"&" + _L18817_) + (gx#stx-identifier + _L18815_ + '"&" + _L18815_)))) (declare (not safe)) - (cons __tmp49046 __tmp49032)))) - (declare (not safe)) - (cons __tmp49031 '())))) - (declare (not safe)) - (cons _L18820_ __tmp49030)))) + (_g1883518896_ __tmp49225))) + _hd1877118809_ + _hd1876818799_ + _hd1876518789_) + (let () + (declare (not safe)) + (_g1875918778_ _g1876018782_))))) + (let () (declare (not safe)) (_g1875918778_ _g1876018782_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49047 __tmp49029)))) - (declare (not safe)) - (_wrap17800_ __tmp49028))) - (__tmp49005 - (let ((__tmp49006 - (let ((__tmp49007 - (let ((__tmp49026 - (gx#datum->syntax - '#f - 'def)) - (__tmp49008 - (let ((__tmp49009 + (let () + (declare (not safe)) + (_g1875918778_ + _g1876018782_))))) + (let () + (declare (not safe)) + (_g1875918778_ _g1876018782_)))))) + (declare (not safe)) + (_g1875818900_ _ref18756_))) + _accessible-slots17949_))) + (declare (not safe)) + (_g1861118752_ __tmp49181)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _def-setf1851918587_ + _def-getf1852018590_)))))) + (let () + (declare (not safe)) + (_loop1851318545_ + _target1851018539_ + '() + '()))) + (let () + (declare (not safe)) + (_g1850618532_ _g1850718536_)))))) + (let () + (declare (not safe)) + (_g1850618532_ _g1850718536_))))) + (__tmp49228 + (gx#stx-map + (lambda (_ref18908_) + (let* ((_g1891118930_ + (lambda (_g1891218926_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1891218926_))) + (_g1891018988_ + (lambda (_g1891218934_) + (if (gx#stx-pair? _g1891218934_) + (let ((_e1891818937_ + (gx#syntax-e _g1891218934_))) + (let ((_hd1891718941_ + (let () + (declare (not safe)) + (##car _e1891818937_))) + (_tl1891618944_ + (let () + (declare (not safe)) + (##cdr _e1891818937_)))) + (if (gx#stx-pair? _tl1891618944_) + (let ((_e1892118947_ + (gx#syntax-e _tl1891618944_))) + (let ((_hd1892018951_ + (let () + (declare (not safe)) + (##car _e1892118947_))) + (_tl1891918954_ + (let () + (declare (not safe)) + (##cdr _e1892118947_)))) + (if (gx#stx-pair? _tl1891918954_) + (let ((_e1892418957_ + (gx#syntax-e + _tl1891918954_))) + (let ((_hd1892318961_ + (let () + (declare (not safe)) + (##car _e1892418957_))) + (_tl1892218964_ + (let () + (declare (not safe)) + (##cdr _e1892418957_)))) + (if (gx#stx-null? + _tl1892218964_) + ((lambda (_L18967_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49010 - (let ((__tmp49025 - (gx#datum->syntax - '#f - 'begin-annotation)) - (__tmp49011 - (let ((__tmp49020 - (let ((__tmp49024 - (gx#datum->syntax - '#f - '@mop.mutator)) - (__tmp49021 - (let ((__tmp49022 - (let ((__tmp49023 + _L18969_ + _L18970_) + (let ((__tmp49251 + (let ((__tmp49252 + (let ((__tmp49271 (gx#datum->syntax '#f 'def)) + (__tmp49253 + (let ((__tmp49254 + (let ((__tmp49255 + (let ((__tmp49270 + (gx#datum->syntax + '#f + 'begin-annotation)) + (__tmp49256 + (let ((__tmp49265 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons '#f '())))) + (let ((__tmp49269 + (gx#datum->syntax '#f '@mop.accessor)) + (__tmp49266 + (let ((__tmp49267 + (let ((__tmp49268 + (let () + (declare (not safe)) + (cons '#t '())))) + (declare (not safe)) + (cons _L18970_ __tmp49268)))) + (declare (not safe)) + (cons _L18129_ __tmp49267)))) + (declare (not safe)) + (cons __tmp49269 __tmp49266))) + (__tmp49257 + (let ((__tmp49258 + (let ((__tmp49264 + (gx#datum->syntax + '#f + 'make-class-slot-accessor)) + (__tmp49259 + (let ((__tmp49260 + (let ((__tmp49261 + (let ((__tmp49263 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49262 + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons _L18970_ '())))) + (declare (not safe)) + (cons __tmp49263 __tmp49262)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49261 '())))) + (declare (not safe)) + (cons _L17894_ __tmp49260)))) + (declare (not safe)) + (cons __tmp49264 __tmp49259)))) + (declare (not safe)) + (cons __tmp49258 '())))) (declare (not safe)) - (cons _L18758_ __tmp49023)))) + (cons __tmp49265 __tmp49257)))) (declare (not safe)) - (cons _L18125_ __tmp49022)))) + (cons __tmp49270 __tmp49256)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49024 __tmp49021))) - (__tmp49012 - (let ((__tmp49013 - (let ((__tmp49019 - (gx#datum->syntax - '#f - 'make-class-slot-unchecked-mutator)) - (__tmp49014 - (let ((__tmp49015 + (cons __tmp49255 '())))) + (declare (not safe)) + (cons _L18969_ __tmp49254)))) + (declare (not safe)) + (cons __tmp49271 __tmp49253)))) + (declare (not safe)) + (_wrap17800_ __tmp49252))) + (__tmp49229 + (let ((__tmp49230 + (let ((__tmp49231 + (let ((__tmp49250 + (gx#datum->syntax '#f 'def)) + (__tmp49232 + (let ((__tmp49233 + (let ((__tmp49234 + (let ((__tmp49249 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp49235 + (let ((__tmp49244 + (let ((__tmp49248 + (gx#datum->syntax '#f '@mop.mutator)) + (__tmp49245 + (let ((__tmp49246 + (let ((__tmp49247 + (let () + (declare (not safe)) + (cons '#t '())))) + (declare (not safe)) + (cons _L18970_ + __tmp49247)))) + (declare (not safe)) + (cons _L18129_ __tmp49246)))) + (declare (not safe)) + (cons __tmp49248 __tmp49245))) + (__tmp49236 + (let ((__tmp49237 + (let ((__tmp49243 + (gx#datum->syntax + '#f + 'make-class-slot-mutator)) + (__tmp49238 + (let ((__tmp49239 + (let ((__tmp49240 + (let ((__tmp49242 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49016 - (let ((__tmp49018 - (gx#datum->syntax '#f 'quote)) - (__tmp49017 - (let () + (gx#datum->syntax '#f 'quote)) + (__tmp49241 + (let () + (declare (not safe)) + (cons _L18970_ '())))) + (declare (not safe)) + (cons __tmp49242 __tmp49241)))) + (declare (not safe)) + (cons __tmp49240 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L17894_ + __tmp49239)))) (declare (not safe)) - (cons _L18758_ '())))) + (cons __tmp49243 __tmp49238)))) (declare (not safe)) - (cons __tmp49018 __tmp49017)))) + (cons __tmp49237 '())))) (declare (not safe)) - (cons __tmp49016 '())))) + (cons __tmp49244 __tmp49236)))) (declare (not safe)) - (cons _L17894_ __tmp49015)))) + (cons __tmp49249 __tmp49235)))) (declare (not safe)) - (cons __tmp49019 __tmp49014)))) + (cons __tmp49234 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49013 '())))) + (cons _L18967_ __tmp49233)))) (declare (not safe)) - (cons __tmp49020 __tmp49012)))) + (cons __tmp49250 __tmp49232)))) (declare (not safe)) - (cons __tmp49025 __tmp49011)))) + (_wrap17800_ __tmp49231)))) (declare (not safe)) - (cons __tmp49010 '())))) + (cons __tmp49230 '())))) (declare (not safe)) - (cons _L18818_ __tmp49009)))) - (declare (not safe)) - (cons __tmp49026 __tmp49008)))) + (cons __tmp49251 __tmp49229))) + _hd1892318961_ + _hd1892018951_ + _hd1891718941_) + (let () (declare (not safe)) (_g1891118930_ _g1891218934_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (_wrap17800_ __tmp49007)))) - (declare (not safe)) - (cons __tmp49006 '())))) - (declare (not safe)) - (cons __tmp49027 __tmp49005)))) - _hd1878418812_ - _hd1878118802_) - (let () - (declare (not safe)) - (_g1877618791_ _g1877718795_))))) - (let () + (let () + (declare (not safe)) + (_g1891118930_ + _g1891218934_))))) + (let () + (declare (not safe)) + (_g1891118930_ _g1891218934_))))) + (let () + (declare (not safe)) + (_g1891118930_ _g1891218934_)))))) (declare (not safe)) - (_g1877618791_ _g1877718795_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1877618791_ - _g1877718795_))))) - (__tmp49048 - (list (gx#stx-identifier - _L18757_ - '"&" - _L18757_) - (gx#stx-identifier - _L18755_ - '"&" - _L18755_)))) - (declare (not safe)) - (_g1877518836_ __tmp49048))) - _hd1871118749_ - _hd1870818739_ - _hd1870518729_) - (let () - (declare (not safe)) - (_g1869918718_ _g1870018722_))))) - (let () - (declare (not safe)) - (_g1869918718_ _g1870018722_))))) - (let () (declare (not safe)) (_g1869918718_ _g1870018722_))))) + (_g1891018988_ _ref18908_))) + _accessible-slots17949_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g1850518904_ __tmp49228)))) + _g1847918490_))) + (__tmp49272 + (let ((__tmp49273 + (let ((__tmp49286 + (gx#datum->syntax + '#f + 'def)) + (__tmp49274 + (let ((__tmp49275 + (let ((__tmp49276 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp49285 + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp49277 + (let ((__tmp49282 + (let ((__tmp49284 + (gx#datum->syntax + '#f + '@mop.predicate)) + (__tmp49283 (let () (declare (not safe)) - (_g1869918718_ - _g1870018722_)))))) + (cons _L18129_ '())))) + (declare (not safe)) + (cons __tmp49284 __tmp49283))) + (__tmp49278 + (let ((__tmp49279 + (let ((__tmp49281 + (gx#datum->syntax + '#f + 'make-class-predicate)) + (__tmp49280 + (let () + (declare (not safe)) + (cons _L17894_ + '())))) + (declare (not safe)) + (cons __tmp49281 + __tmp49280)))) + (declare (not safe)) + (cons __tmp49279 '())))) (declare (not safe)) - (_g1869818840_ _ref18696_))) - _accessible-slots17949_))) - (declare (not safe)) - (_g1855118692_ __tmp49004)))) - _def-setf1845918527_ - _def-getf1846018530_)))))) + (cons __tmp49282 __tmp49278)))) + (declare (not safe)) + (cons __tmp49285 __tmp49277)))) + (declare (not safe)) + (cons __tmp49276 '())))) + (declare (not safe)) + (cons _L17891_ __tmp49275)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_loop1845318485_ - _target1845018479_ - '() - '()))) - (let () - (declare (not safe)) - (_g1844618472_ _g1844718476_)))))) - (let () - (declare (not safe)) - (_g1844618472_ _g1844718476_))))) - (__tmp49051 - (gx#stx-map - (lambda (_ref18848_) - (let* ((_g1885118870_ - (lambda (_g1885218866_) - (gx#raise-syntax-error - '#f - '"Bad syntax; invalid match target" - _g1885218866_))) - (_g1885018928_ - (lambda (_g1885218874_) - (if (gx#stx-pair? _g1885218874_) - (let ((_e1885818877_ - (gx#syntax-e _g1885218874_))) - (let ((_hd1885718881_ - (let () - (declare (not safe)) - (##car _e1885818877_))) - (_tl1885618884_ - (let () - (declare (not safe)) - (##cdr _e1885818877_)))) - (if (gx#stx-pair? _tl1885618884_) - (let ((_e1886118887_ - (gx#syntax-e - _tl1885618884_))) - (let ((_hd1886018891_ - (let () - (declare - (not safe)) - (##car _e1886118887_))) - (_tl1885918894_ - (let () - (declare - (not safe)) - (##cdr _e1886118887_)))) - (if (gx#stx-pair? - _tl1885918894_) - (let ((_e1886418897_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl1885918894_))) - (let ((_hd1886318901_ - (let () (declare (not safe)) (##car _e1886418897_))) - (_tl1886218904_ - (let () - (declare (not safe)) - (##cdr _e1886418897_)))) - (if (gx#stx-null? _tl1886218904_) - ((lambda (_L18907_ _L18909_ _L18910_) - (let ((__tmp49074 - (let ((__tmp49075 - (let ((__tmp49094 - (gx#datum->syntax '#f 'def)) - (__tmp49076 - (let ((__tmp49077 - (let ((__tmp49078 - (let ((__tmp49093 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49079 - (let ((__tmp49088 - (let ((__tmp49092 - (gx#datum->syntax - '#f - '@mop.accessor)) - (__tmp49089 - (let ((__tmp49090 - (let ((__tmp49091 - (let () - (declare - (not safe)) - (cons '#t '())))) - (declare (not safe)) - (cons _L18910_ - __tmp49091)))) - (declare (not safe)) - (cons _L18125_ __tmp49090)))) - (declare (not safe)) - (cons __tmp49092 __tmp49089))) - (__tmp49080 - (let ((__tmp49081 - (let ((__tmp49087 - (gx#datum->syntax - '#f - 'make-class-slot-accessor)) - (__tmp49082 - (let ((__tmp49083 - (let ((__tmp49084 + (declare (not safe)) + (cons __tmp49286 + __tmp49274)))) + (declare (not safe)) + (_wrap17800_ __tmp49273)))) + (declare (not safe)) + (_g1847718992_ __tmp49272)))) + _g1845118462_))) + (__tmp49287 + (if (gx#stx-false? _L17892_) + (let ((__tmp49311 (gx#datum->syntax '#f 'begin))) + (declare (not safe)) + (cons __tmp49311 '())) + (let ((__tmp49288 + (let ((__tmp49310 + (gx#datum->syntax '#f 'def)) + (__tmp49289 + (let ((__tmp49290 + (let ((__tmp49291 + (let ((__tmp49309 + (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49086 (gx#datum->syntax '#f 'quote)) - (__tmp49085 - (let () - (declare (not safe)) - (cons _L18910_ '())))) - (declare (not safe)) - (cons __tmp49086 __tmp49085)))) - (declare (not safe)) - (cons __tmp49084 '())))) - (declare (not safe)) - (cons _L17894_ __tmp49083)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49087 __tmp49082)))) + '#f + 'begin-annotation)) + (__tmp49292 + (let ((__tmp49306 + (let ((__tmp49308 + (gx#datum->syntax '#f '@mop.constructor)) + (__tmp49307 + (let () (declare (not safe)) - (cons __tmp49081 '())))) + (cons _L18129_ '())))) (declare (not safe)) - (cons __tmp49088 __tmp49080)))) - (declare (not safe)) - (cons __tmp49093 __tmp49079)))) - (declare (not safe)) - (cons __tmp49078 '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18909_ - __tmp49077)))) - (declare (not safe)) - (cons __tmp49094 __tmp49076)))) - (declare (not safe)) - (_wrap17800_ __tmp49075))) - (__tmp49052 - (let ((__tmp49053 - (let ((__tmp49054 - (let ((__tmp49073 - (gx#datum->syntax - '#f - 'def)) - (__tmp49055 - (let ((__tmp49056 - (let ((__tmp49057 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49072 - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49058 - (let ((__tmp49067 - (let ((__tmp49071 + (cons __tmp49308 __tmp49307))) + (__tmp49293 + (let ((__tmp49294 + (let ((__tmp49305 + (gx#datum->syntax '#f 'lambda)) + (__tmp49295 + (let ((__tmp49304 (gx#datum->syntax '#f - '@mop.mutator)) - (__tmp49068 - (let ((__tmp49069 - (let ((__tmp49070 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons '#t '())))) - (declare (not safe)) - (cons _L18910_ __tmp49070)))) - (declare (not safe)) - (cons _L18125_ __tmp49069)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49071 __tmp49068))) - (__tmp49059 - (let ((__tmp49060 - (let ((__tmp49066 - (gx#datum->syntax - '#f - 'make-class-slot-mutator)) - (__tmp49061 - (let ((__tmp49062 + '$args)) + (__tmp49296 + (let ((__tmp49297 + (let ((__tmp49303 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49063 - (let ((__tmp49065 - (gx#datum->syntax '#f 'quote)) - (__tmp49064 - (let () + (gx#datum->syntax '#f 'apply)) + (__tmp49298 + (let ((__tmp49302 + (gx#datum->syntax '#f 'make-instance)) + (__tmp49299 + (let ((__tmp49300 + (let ((__tmp49301 + (gx#datum->syntax '#f '$args))) (declare (not safe)) - (cons _L18910_ '())))) + (cons __tmp49301 '())))) (declare (not safe)) - (cons __tmp49065 __tmp49064)))) + (cons _L17894_ __tmp49300)))) (declare (not safe)) - (cons __tmp49063 '())))) + (cons __tmp49302 __tmp49299)))) (declare (not safe)) - (cons _L17894_ __tmp49062)))) + (cons __tmp49303 __tmp49298)))) (declare (not safe)) - (cons __tmp49066 __tmp49061)))) + (cons __tmp49297 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49060 '())))) + (cons __tmp49304 __tmp49296)))) (declare (not safe)) - (cons __tmp49067 __tmp49059)))) + (cons __tmp49305 __tmp49295)))) (declare (not safe)) - (cons __tmp49072 __tmp49058)))) + (cons __tmp49294 '())))) (declare (not safe)) - (cons __tmp49057 '())))) + (cons __tmp49306 __tmp49293)))) (declare (not safe)) - (cons _L18907_ __tmp49056)))) + (cons __tmp49309 __tmp49292)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49073 - __tmp49055)))) + (cons __tmp49291 '())))) (declare (not safe)) - (_wrap17800_ __tmp49054)))) + (cons _L17892_ __tmp49290)))) (declare (not safe)) - (cons __tmp49053 '())))) + (cons __tmp49310 __tmp49289)))) (declare (not safe)) - (cons __tmp49074 __tmp49052))) - _hd1886318901_ - _hd1886018891_ - _hd1885718881_) - (let () - (declare (not safe)) - (_g1885118870_ _g1885218874_))))) - (let () - (declare (not safe)) - (_g1885118870_ _g1885218874_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g1885118870_ - _g1885218874_))))) - (let () - (declare (not safe)) - (_g1885118870_ _g1885218874_)))))) - (declare (not safe)) - (_g1885018928_ _ref18848_))) - _accessible-slots17949_))) + (_wrap17800_ __tmp49288))))) (declare (not safe)) - (_g1844518844_ __tmp49051)))) + (_g1844918996_ __tmp49287)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1841918430_))) - (__tmp49095 - (let ((__tmp49096 - (let ((__tmp49109 + _g1842318434_))) + (__tmp49312 + (let ((__tmp49313 + (let ((__tmp49331 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def)) - (__tmp49097 - (let ((__tmp49098 - (let ((__tmp49099 - (let ((__tmp49108 + (__tmp49314 + (let ((__tmp49315 + (let ((__tmp49316 + (let ((__tmp49330 (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49100 - (let ((__tmp49105 - (let ((__tmp49107 + (__tmp49317 + (let ((__tmp49319 + (let ((__tmp49329 (gx#datum->syntax '#f - '@mop.predicate)) - (__tmp49106 - (let () - (declare - (not safe)) - (cons _L18125_ + '@mop.class)) + (__tmp49320 + (let ((__tmp49321 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) - (declare (not safe)) - (cons __tmp49107 __tmp49106))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49101 - (let ((__tmp49102 - (let ((__tmp49104 + (let ((__tmp49322 + (let ((__tmp49327 + (let ((__tmp49328 + (lambda (_g1900319006_ + _g1900419009_) + (let () + (declare (not safe)) + (cons _g1900319006_ + _g1900419009_))))) + (declare (not safe)) + (foldr1 __tmp49328 '() _L18009_))) + (__tmp49323 + (let ((__tmp49324 + (let ((__tmp49325 + (let ((__tmp49326 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'make-class-predicate)) - (__tmp49103 - (let () (declare (not safe)) (cons _L17894_ '())))) + (not safe)) + (cons _L18241_ '())))) + (declare (not safe)) + (cons _L18213_ __tmp49326)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L18185_ __tmp49325)))) + (declare (not safe)) + (cons _L18101_ __tmp49324)))) + (declare (not safe)) + (cons __tmp49327 __tmp49323)))) + (declare (not safe)) + (cons _L18157_ __tmp49322)))) (declare (not safe)) - (cons __tmp49104 __tmp49103)))) + (cons _L18045_ __tmp49321)))) (declare (not safe)) - (cons __tmp49102 '())))) + (cons __tmp49329 __tmp49320))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp49318 + (let () + (declare (not safe)) + (cons _L18409_ '())))) (declare (not safe)) - (cons __tmp49105 __tmp49101)))) + (cons __tmp49319 __tmp49318)))) (declare (not safe)) - (cons __tmp49108 __tmp49100)))) + (cons __tmp49330 __tmp49317)))) (declare (not safe)) - (cons __tmp49099 '())))) + (cons __tmp49316 '())))) (declare (not safe)) - (cons _L17891_ __tmp49098)))) + (cons _L17894_ __tmp49315)))) (declare (not safe)) - (cons __tmp49109 __tmp49097)))) + (cons __tmp49331 __tmp49314)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap17800_ __tmp49096)))) + (_wrap17800_ __tmp49313)))) (declare (not safe)) - (_g1841718932_ __tmp49095)))) - _g1839118402_))) - (__tmp49110 - (if (gx#stx-false? _L17892_) - (let ((__tmp49134 - (gx#datum->syntax '#f 'begin))) - (declare (not safe)) - (cons __tmp49134 '())) - (let ((__tmp49111 - (let ((__tmp49133 - (gx#datum->syntax - '#f - 'def)) - (__tmp49112 - (let ((__tmp49113 - (let ((__tmp49114 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49132 - (gx#datum->syntax '#f 'begin-annotation)) - (__tmp49115 - (let ((__tmp49129 - (let ((__tmp49131 - (gx#datum->syntax - '#f - '@mop.constructor)) - (__tmp49130 - (let () - (declare (not safe)) - (cons _L18125_ '())))) - (declare (not safe)) - (cons __tmp49131 __tmp49130))) - (__tmp49116 - (let ((__tmp49117 - (let ((__tmp49128 - (gx#datum->syntax - '#f - 'lambda)) - (__tmp49118 - (let ((__tmp49127 - (gx#datum->syntax - '#f - '$args)) - (__tmp49119 - (let ((__tmp49120 + (_g1842119000_ __tmp49312)))) + _g1839518406_))) + (__tmp49332 + (let ((__tmp49353 + (gx#datum->syntax + '#f + 'make-class-type)) + (__tmp49333 + (let ((__tmp49350 + (let ((__tmp49352 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49351 + (let () + (declare (not safe)) + (cons _L18045_ + '())))) + (declare (not safe)) + (cons __tmp49352 + __tmp49351))) + (__tmp49334 + (let ((__tmp49347 + (let ((__tmp49349 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49348 + (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49126 (gx#datum->syntax '#f 'apply)) - (__tmp49121 - (let ((__tmp49125 - (gx#datum->syntax - '#f - 'make-instance)) - (__tmp49122 - (let ((__tmp49123 - (let ((__tmp49124 - (gx#datum->syntax - '#f - '$args))) - (declare (not safe)) - (cons __tmp49124 '())))) - (declare (not safe)) - (cons _L17894_ __tmp49123)))) - (declare (not safe)) - (cons __tmp49125 __tmp49122)))) - (declare (not safe)) - (cons __tmp49126 __tmp49121)))) - (declare (not safe)) - (cons __tmp49120 '())))) - (declare (not safe)) - (cons __tmp49127 __tmp49119)))) + (declare (not safe)) + (cons _L18073_ '())))) + (declare (not safe)) + (cons __tmp49349 __tmp49348))) + (__tmp49335 + (let ((__tmp49336 + (let ((__tmp49342 + (let ((__tmp49346 (gx#datum->syntax '#f 'quote)) + (__tmp49343 + (let ((__tmp49344 + (let ((__tmp49345 + (lambda (_g1901519018_ + _g1901619021_) + (let () + (declare (not safe)) + (cons _g1901519018_ + _g1901619021_))))) + (declare (not safe)) + (foldr1 __tmp49345 + '() + _L18009_)))) + (declare (not safe)) + (cons __tmp49344 '())))) + (declare (not safe)) + (cons __tmp49346 __tmp49343))) + (__tmp49337 + (let ((__tmp49338 + (let ((__tmp49339 + (let ((__tmp49341 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49340 + (let () + (declare (not safe)) + (cons _L18101_ '())))) + (declare (not safe)) + (cons __tmp49341 __tmp49340)))) + (declare (not safe)) + (cons __tmp49339 '())))) + (declare (not safe)) + (cons _L18353_ __tmp49338)))) + (declare (not safe)) + (cons __tmp49342 __tmp49337)))) + (declare (not safe)) + (cons _L18381_ __tmp49336)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49128 - __tmp49118)))) - (declare (not safe)) - (cons __tmp49117 '())))) - (declare (not safe)) - (cons __tmp49129 __tmp49116)))) + (declare (not safe)) + (cons __tmp49347 + __tmp49335)))) + (declare (not safe)) + (cons __tmp49350 __tmp49334)))) + (declare (not safe)) + (cons __tmp49353 __tmp49333)))) (declare (not safe)) - (cons __tmp49132 __tmp49115)))) + (_g1839319012_ __tmp49332)))) + _g1836718378_))) + (__tmp49354 + (let ((__tmp49355 (gx#datum->syntax '#f 'list))) (declare (not safe)) - (cons __tmp49114 '())))) - (declare (not safe)) - (cons _L17892_ __tmp49113)))) + (cons __tmp49355 _L17893_)))) + (declare (not safe)) + (_g1836519024_ __tmp49354)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49133 __tmp49112)))) - (declare (not safe)) - (_wrap17800_ __tmp49111))))) - (declare (not safe)) - (_g1838918936_ __tmp49110)))) - _g1836318374_))) - (__tmp49135 - (let ((__tmp49136 - (let ((__tmp49153 (gx#datum->syntax '#f 'def)) - (__tmp49137 - (let ((__tmp49138 - (let ((__tmp49139 - (let ((__tmp49152 - (gx#datum->syntax - '#f - 'begin-annotation)) - (__tmp49140 - (let ((__tmp49142 - (let ((__tmp49151 + _g1833918350_))) + (__tmp49356 + (if (gx#stx-e _metaclass17952_) + (let* ((_g1903219040_ + (lambda (_g1903319036_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g1903319036_))) + (_g1903119059_ + (lambda (_g1903319044_) + ((lambda (_L19047_) + (let () + (let ((__tmp49365 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f '@mop.class)) - (__tmp49143 - (let ((__tmp49144 - (let ((__tmp49145 - (let ((__tmp49149 - (let ((__tmp49150 - (lambda (_g1894318946_ + (gx#datum->syntax '#f '@list)) + (__tmp49357 + (let ((__tmp49360 + (let ((__tmp49364 + (gx#datum->syntax '#f '@list)) + (__tmp49361 + (let ((__tmp49362 + (let ((__tmp49363 + (let () + (declare + (not safe)) + (cons _L19047_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1894418949_) - (let () - (declare (not safe)) - (cons _g1894318946_ _g1894418949_))))) + '())))) + (declare (not safe)) + (cons ':: __tmp49363)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (foldr1 __tmp49150 - '() - _L18006_))) - (__tmp49146 - (let ((__tmp49147 - (let ((__tmp49148 - (let () -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (cons 'metaclass: __tmp49362)))) + (declare (not safe)) + (cons __tmp49364 __tmp49361))) + (__tmp49358 + (let ((__tmp49359 + (let () + (declare (not safe)) + (cons _L18325_ '())))) + (declare (not safe)) + (cons ':: __tmp49359)))) + (declare (not safe)) + (cons __tmp49360 __tmp49358)))) (declare (not safe)) - (cons _L18209_ '())))) - (declare (not safe)) - (cons _L18181_ __tmp49148)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L18097_ - __tmp49147)))) - (declare (not safe)) - (cons __tmp49149 __tmp49146)))) - (declare (not safe)) - (cons _L18153_ __tmp49145)))) - (declare (not safe)) - (cons _L18041_ __tmp49144)))) - (declare (not safe)) - (cons __tmp49151 __tmp49143))) - (__tmp49141 - (let () (declare (not safe)) (cons _L18349_ '())))) - (declare (not safe)) - (cons __tmp49142 __tmp49141)))) + (cons __tmp49365 __tmp49357)))) + _g1903319044_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g1903119059_ + _metaclass17952_)) + _L18325_))) + (declare (not safe)) + (_g1833719028_ __tmp49356)))) + _g1831118322_))) + (__tmp49366 + (if _struct?17932_ + (let ((__tmp49373 + (gx#datum->syntax '#f '@list)) + (__tmp49367 + (let ((__tmp49370 + (let ((__tmp49372 + (gx#datum->syntax + '#f + '@list)) + (__tmp49371 + (let () + (declare (not safe)) + (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp49372 + __tmp49371))) + (__tmp49368 + (let ((__tmp49369 + (let () + (declare (not safe)) + (cons _L18297_ '())))) (declare (not safe)) - (cons __tmp49152 - __tmp49140)))) + (cons ':: __tmp49369)))) (declare (not safe)) - (cons __tmp49139 '())))) + (cons __tmp49370 __tmp49368)))) (declare (not safe)) - (cons _L17894_ __tmp49138)))) - (declare (not safe)) - (cons __tmp49153 __tmp49137)))) - (declare (not safe)) - (_wrap17800_ __tmp49136)))) - (declare (not safe)) - (_g1836118940_ __tmp49135)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1833518346_))) - (__tmp49154 - (let ((__tmp49175 - (gx#datum->syntax - '#f - 'make-class-type)) - (__tmp49155 - (let ((__tmp49172 - (let ((__tmp49174 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'quote)) - (__tmp49173 - (let () (declare (not safe)) (cons _L18041_ '())))) - (declare (not safe)) - (cons __tmp49174 __tmp49173))) - (__tmp49156 - (let ((__tmp49169 - (let ((__tmp49171 (gx#datum->syntax '#f 'quote)) - (__tmp49170 - (let () - (declare (not safe)) - (cons _L18069_ '())))) - (declare (not safe)) - (cons __tmp49171 __tmp49170))) - (__tmp49157 - (let ((__tmp49158 - (let ((__tmp49164 - (let ((__tmp49168 - (gx#datum->syntax '#f 'quote)) - (__tmp49165 - (let ((__tmp49166 - (let ((__tmp49167 - (lambda (_g1895518958_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1895618961_) - (let () - (declare (not safe)) - (cons _g1895518958_ _g1895618961_))))) - (declare (not safe)) - (foldr1 __tmp49167 '() _L18006_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49166 '())))) - (declare (not safe)) - (cons __tmp49168 __tmp49165))) - (__tmp49159 - (let ((__tmp49160 - (let ((__tmp49161 - (let ((__tmp49163 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49162 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (cons _L18097_ '())))) - (declare (not safe)) - (cons __tmp49163 __tmp49162)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49161 '())))) - (declare (not safe)) - (cons _L18293_ __tmp49160)))) - (declare (not safe)) - (cons __tmp49164 __tmp49159)))) - (declare (not safe)) - (cons _L18321_ __tmp49158)))) - (declare (not safe)) - (cons __tmp49169 __tmp49157)))) - (declare (not safe)) - (cons __tmp49172 __tmp49156)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49175 __tmp49155)))) - (declare (not safe)) - (_g1833318952_ __tmp49154)))) - _g1830718318_))) - (__tmp49176 - (let ((__tmp49177 (gx#datum->syntax '#f 'list))) - (declare (not safe)) - (cons __tmp49177 _L17893_)))) + (cons __tmp49373 __tmp49367)) + _L18297_))) (declare (not safe)) - (_g1830518964_ __tmp49176)))) - _g1827918290_))) - (__tmp49178 - (if _struct?17932_ - (let ((__tmp49185 (gx#datum->syntax '#f '@list)) - (__tmp49179 - (let ((__tmp49182 - (let ((__tmp49184 + (_g1830919063_ __tmp49366)))) + _g1828318294_))) + (__tmp49374 + (if (gx#stx-e _L18213_) + (let ((__tmp49381 (gx#datum->syntax '#f '@list)) + (__tmp49375 + (let ((__tmp49378 + (let ((__tmp49380 (gx#datum->syntax '#f '@list)) - (__tmp49183 + (__tmp49379 (let () (declare (not safe)) - (cons 'struct: '#t)))) + (cons 'final: '#t)))) (declare (not safe)) - (cons __tmp49184 __tmp49183))) - (__tmp49180 - (let ((__tmp49181 + (cons __tmp49380 __tmp49379))) + (__tmp49376 + (let ((__tmp49377 (let () (declare (not safe)) - (cons _L18265_ '())))) + (cons _L18269_ '())))) (declare (not safe)) - (cons ':: __tmp49181)))) + (cons ':: __tmp49377)))) (declare (not safe)) - (cons __tmp49182 __tmp49180)))) + (cons __tmp49378 __tmp49376)))) (declare (not safe)) - (cons __tmp49185 __tmp49179)) - _L18265_))) + (cons __tmp49381 __tmp49375)) + _L18269_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1827718968_ __tmp49178)))) - _g1825118262_))) - (__tmp49186 - (if (gx#stx-e _L18209_) - (let ((__tmp49193 - (gx#datum->syntax - '#f - '@list)) - (__tmp49187 - (let ((__tmp49190 - (let ((__tmp49192 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f '@list)) - (__tmp49191 - (let () (declare (not safe)) (cons 'final: '#t)))) - (declare (not safe)) - (cons __tmp49192 __tmp49191))) - (__tmp49188 - (let ((__tmp49189 - (let () (declare (not safe)) (cons _L18237_ '())))) - (declare (not safe)) - (cons ':: __tmp49189)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49190 - __tmp49188)))) - (declare (not safe)) - (cons __tmp49193 __tmp49187)) - _L18237_))) + (_g1828119067_ __tmp49374)))) + _g1825518266_))) + (__tmp49382 + (let ((_$e19075_ + (gx#stx-getq + 'properties: + _L17889_))) + (if _$e19075_ + _$e19075_ + (let ((__tmp49383 + (gx#datum->syntax + '#f + '@list))) + (declare (not safe)) + (cons __tmp49383 '())))))) (declare (not safe)) - (_g1824918972_ __tmp49186)))) - _g1822318234_))) - (__tmp49194 - (let ((_$e18980_ (gx#stx-getq 'properties: _L17889_))) - (if _$e18980_ - _$e18980_ - (let ((__tmp49195 - (gx#datum->syntax '#f '@list))) - (declare (not safe)) - (cons __tmp49195 '())))))) + (_g1825319071_ __tmp49382)))) + _g1822718238_))) + (__tmp49384 + (if (gx#stx-e _metaclass17952_) + (gx#core-quote-syntax _metaclass17952_) + '#f))) (declare (not safe)) - (_g1822118976_ __tmp49194)))) + (_g1822519079_ __tmp49384)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1819518206_))) - (__tmp49196 + _g1819918210_))) + (__tmp49385 (gx#stx-getq 'final: _L17889_))) (declare (not safe)) - (_g1819318984_ __tmp49196)))) - _g1816718178_)))) + (_g1819719083_ __tmp49385)))) + _g1817118182_)))) (declare (not safe)) - (_g1816518988_ _struct?17932_)))) - _g1813918150_))) - (__tmp49197 (gx#stx-map gx#core-quote-syntax _L17893_))) + (_g1816919087_ _struct?17932_)))) + _g1814318154_))) + (__tmp49386 (gx#stx-map gx#core-quote-syntax _L17893_))) (declare (not safe)) - (_g1813718992_ __tmp49197)))) + (_g1814119091_ __tmp49386)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1811118122_))) - (__tmp49198 + _g1811518126_))) + (__tmp49387 (gx#core-quote-syntax _L17894_))) (declare (not safe)) - (_g1810918996_ __tmp49198)))) - _g1808318094_))) - (__tmp49199 (gx#stx-getq 'constructor: _L17889_))) + (_g1811319095_ __tmp49387)))) + _g1808718098_))) + (__tmp49388 (gx#stx-getq 'constructor: _L17889_))) (declare (not safe)) - (_g1808119000_ __tmp49199)))) - _g1805518066_))) - (__tmp49200 - (let ((_$e19008_ (gx#stx-getq 'name: _L17889_))) - (if _$e19008_ _$e19008_ _L17894_)))) + (_g1808519099_ __tmp49388)))) + _g1805918070_))) + (__tmp49389 + (let ((_$e19107_ (gx#stx-getq 'name: _L17889_))) + (if _$e19107_ _$e19107_ _L17894_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1805319004_ __tmp49200)))) - _g1802718038_))) - (__tmp49201 - (let ((_$e19016_ + (_g1805719103_ __tmp49389)))) + _g1803118042_))) + (__tmp49390 + (let ((_$e19115_ (gx#stx-getq 'id: _L17889_))) - (if _$e19016_ - _$e19016_ + (if _$e19115_ + _$e19115_ (let () (declare (not safe)) (|gerbil/core$$[1]#make-class-type-id| _L17894_)))))) (declare (not safe)) - (_g1802519012_ __tmp49201)))) - _slot1796318002_)))))) + (_g1802919111_ __tmp49390)))) + _slot1796618005_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1795817982_ - _target1795517976_ + (_loop1796117985_ + _target1795817979_ '()))) (let () (declare (not safe)) - (_g1795217969_ - _g1795317973_)))))) + (_g1795517972_ + _g1795617976_)))))) (let () (declare (not safe)) - (_g1795217969_ _g1795317973_))))) - (__tmp49203 + (_g1795517972_ _g1795617976_))))) + (__tmp49392 (gx#stx-map _slot-name17802_ _slots17939_))) (declare (not safe)) - (_g1795119020_ __tmp49203)) + (_g1795419119_ __tmp49392)) (let () (declare (not safe)) (_g1780517832_ _g1780617836_)))) @@ -1672,14 +1748,14 @@ (declare (not safe)) (_g1780517832_ _g1780617836_)))))) (declare (not safe)) - (_g1780419024_ _stx17796_))))) + (_g1780419123_ _stx17796_))))) (define |gerbil/core$$[:0:]#defstruct-type| - (lambda (_stx19136_) + (lambda (_stx19235_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19136_ '#t)))) + (|gerbil/core$$[1]#generate-typedef| _stx19235_ '#t)))) (define |gerbil/core$$[:0:]#defclass-type| - (lambda (_stx19139_) + (lambda (_stx19238_) (let () (declare (not safe)) - (|gerbil/core$$[1]#generate-typedef| _stx19139_ '#f))))) + (|gerbil/core$$[1]#generate-typedef| _stx19238_ '#f))))) diff --git a/src/bootstrap/gerbil/core__7.scm b/src/bootstrap/gerbil/core__7.scm index 84f4f3bf2..cc4028278 100644 --- a/src/bootstrap/gerbil/core__7.scm +++ b/src/bootstrap/gerbil/core__7.scm @@ -1,412 +1,433 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g49205_| + (define |gerbil/core$$[1]#_g49394_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49207_| + (define |gerbil/core$$[1]#_g49396_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49209_| + (define |gerbil/core$$[1]#_g49398_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49226_| + (define |gerbil/core$$[1]#_g49416_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49229_| + (define |gerbil/core$$[1]#_g49419_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49232_| + (define |gerbil/core$$[1]#_g49422_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49235_| + (define |gerbil/core$$[1]#_g49425_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49238_| + (define |gerbil/core$$[1]#_g49428_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49241_| + (define |gerbil/core$$[1]#_g49431_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49244_| + (define |gerbil/core$$[1]#_g49434_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49247_| + (define |gerbil/core$$[1]#_g49437_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49250_| + (define |gerbil/core$$[1]#_g49440_| + (##structure + gx#syntax-quote::t + '!class-type-metaclass + #f + (gx#current-expander-context) + '())) + (define |gerbil/core$$[1]#_g49443_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49253_| + (define |gerbil/core$$[1]#_g49446_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49256_| + (define |gerbil/core$$[1]#_g49449_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49259_| + (define |gerbil/core$$[1]#_g49452_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49262_| + (define |gerbil/core$$[1]#_g49455_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49265_| + (define |gerbil/core$$[1]#_g49458_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49282_| + (define |gerbil/core$$[1]#_g49476_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49285_| + (define |gerbil/core$$[1]#_g49479_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49288_| + (define |gerbil/core$$[1]#_g49482_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49291_| + (define |gerbil/core$$[1]#_g49485_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49294_| + (define |gerbil/core$$[1]#_g49488_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49297_| + (define |gerbil/core$$[1]#_g49491_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49300_| + (define |gerbil/core$$[1]#_g49494_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49303_| + (define |gerbil/core$$[1]#_g49497_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49306_| + (define |gerbil/core$$[1]#_g49500_| + (##structure + gx#syntax-quote::t + '!class-type-metaclass-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core$$[1]#_g49503_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49309_| + (define |gerbil/core$$[1]#_g49506_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49312_| + (define |gerbil/core$$[1]#_g49509_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49315_| + (define |gerbil/core$$[1]#_g49512_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49318_| + (define |gerbil/core$$[1]#_g49515_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49321_| + (define |gerbil/core$$[1]#_g49518_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49338_| + (define |gerbil/core$$[1]#_g49536_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49341_| + (define |gerbil/core$$[1]#_g49539_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49344_| + (define |gerbil/core$$[1]#_g49542_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49347_| + (define |gerbil/core$$[1]#_g49545_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49350_| + (define |gerbil/core$$[1]#_g49548_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49353_| + (define |gerbil/core$$[1]#_g49551_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49356_| + (define |gerbil/core$$[1]#_g49554_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49359_| + (define |gerbil/core$$[1]#_g49557_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49362_| + (define |gerbil/core$$[1]#_g49562_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49365_| + (define |gerbil/core$$[1]#_g49565_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49368_| + (define |gerbil/core$$[1]#_g49568_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49371_| + (define |gerbil/core$$[1]#_g49571_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49374_| + (define |gerbil/core$$[1]#_g49574_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49377_| + (define |gerbil/core$$[1]#_g49577_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49394_| + (define |gerbil/core$$[1]#_g49595_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49397_| + (define |gerbil/core$$[1]#_g49598_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49400_| + (define |gerbil/core$$[1]#_g49601_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49403_| + (define |gerbil/core$$[1]#_g49604_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49406_| + (define |gerbil/core$$[1]#_g49607_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49409_| + (define |gerbil/core$$[1]#_g49610_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49412_| + (define |gerbil/core$$[1]#_g49613_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49415_| + (define |gerbil/core$$[1]#_g49616_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49418_| + (define |gerbil/core$$[1]#_g49619_| + (##structure + gx#syntax-quote::t + '&!class-type-metaclass-set! + #f + (gx#current-expander-context) + '())) + (define |gerbil/core$$[1]#_g49622_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49421_| + (define |gerbil/core$$[1]#_g49625_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49424_| + (define |gerbil/core$$[1]#_g49628_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49427_| + (define |gerbil/core$$[1]#_g49631_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49430_| + (define |gerbil/core$$[1]#_g49634_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$$[1]#_g49433_| + (define |gerbil/core$$[1]#_g49637_| (##structure gx#syntax-quote::t '&!class-type-id-set! @@ -414,7 +435,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$$[:0:]#class-type-info| - (let ((__obj47346 + (let ((__obj47523 (let () (declare (not safe)) (##structure @@ -432,11 +453,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47346 + __obj47523 'gerbil.core#class-type-info::t '1 gerbil/core$$#class-type-info::t @@ -444,7 +466,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47346 + __obj47523 'class-type-info '2 gerbil/core$$#class-type-info::t @@ -452,7 +474,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47346 + __obj47523 '() '3 gerbil/core$$#class-type-info::t @@ -460,12 +482,13 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47346 + __obj47523 '(id name super slots struct? final? + metaclass constructor-method type-descriptor constructor @@ -480,7 +503,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47346 + __obj47523 '#f '5 gerbil/core$$#class-type-info::t @@ -488,7 +511,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47346 + __obj47523 '#f '6 gerbil/core$$#class-type-info::t @@ -496,541 +519,577 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47346 + __obj47523 '#f - '7 + '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49204 |gerbil/core$$[1]#_g49205_|)) + (let ((__tmp49393 |gerbil/core$$[1]#_g49394_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47346 - __tmp49204 - '8 + __obj47523 + __tmp49393 + '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49206 |gerbil/core$$[1]#_g49207_|)) + (let ((__tmp49395 |gerbil/core$$[1]#_g49396_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47346 - __tmp49206 - '9 + __obj47523 + __tmp49395 + '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49208 |gerbil/core$$[1]#_g49209_|)) + (let ((__tmp49397 |gerbil/core$$[1]#_g49398_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47346 - __tmp49208 - '10 + __obj47523 + __tmp49397 + '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49210 - (let ((__tmp49263 - (let ((__tmp49264 |gerbil/core$$[1]#_g49265_|)) + (let ((__tmp49399 + (let ((__tmp49456 + (let ((__tmp49457 |gerbil/core$$[1]#_g49458_|)) (declare (not safe)) - (cons 'id __tmp49264))) - (__tmp49211 - (let ((__tmp49260 - (let ((__tmp49261 - |gerbil/core$$[1]#_g49262_|)) + (cons 'id __tmp49457))) + (__tmp49400 + (let ((__tmp49453 + (let ((__tmp49454 + |gerbil/core$$[1]#_g49455_|)) (declare (not safe)) - (cons 'name __tmp49261))) - (__tmp49212 - (let ((__tmp49257 - (let ((__tmp49258 - |gerbil/core$$[1]#_g49259_|)) + (cons 'name __tmp49454))) + (__tmp49401 + (let ((__tmp49450 + (let ((__tmp49451 + |gerbil/core$$[1]#_g49452_|)) (declare (not safe)) - (cons 'super __tmp49258))) - (__tmp49213 - (let ((__tmp49254 - (let ((__tmp49255 - |gerbil/core$$[1]#_g49256_|)) + (cons 'super __tmp49451))) + (__tmp49402 + (let ((__tmp49447 + (let ((__tmp49448 + |gerbil/core$$[1]#_g49449_|)) (declare (not safe)) - (cons 'slots __tmp49255))) - (__tmp49214 - (let ((__tmp49251 - (let ((__tmp49252 - |gerbil/core$$[1]#_g49253_|)) + (cons 'slots __tmp49448))) + (__tmp49403 + (let ((__tmp49444 + (let ((__tmp49445 + |gerbil/core$$[1]#_g49446_|)) (declare (not safe)) - (cons 'struct? __tmp49252))) - (__tmp49215 - (let ((__tmp49248 - (let ((__tmp49249 - |gerbil/core$$[1]#_g49250_|)) + (cons 'struct? __tmp49445))) + (__tmp49404 + (let ((__tmp49441 + (let ((__tmp49442 + |gerbil/core$$[1]#_g49443_|)) (declare (not safe)) (cons 'final? - __tmp49249))) - (__tmp49216 - (let ((__tmp49245 - (let ((__tmp49246 + __tmp49442))) + (__tmp49405 + (let ((__tmp49438 + (let ((__tmp49439 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49247_|)) + |gerbil/core$$[1]#_g49440_|)) (declare (not safe)) - (cons 'constructor-method __tmp49246))) - (__tmp49217 - (let ((__tmp49242 - (let ((__tmp49243 - |gerbil/core$$[1]#_g49244_|)) + (cons 'metaclass __tmp49439))) + (__tmp49406 + (let ((__tmp49435 + (let ((__tmp49436 + |gerbil/core$$[1]#_g49437_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49243))) - (__tmp49218 - (let ((__tmp49239 - (let ((__tmp49240 - |gerbil/core$$[1]#_g49241_|)) + (cons 'constructor-method __tmp49436))) + (__tmp49407 + (let ((__tmp49432 + (let ((__tmp49433 + |gerbil/core$$[1]#_g49434_|)) (declare (not safe)) - (cons 'constructor __tmp49240))) - (__tmp49219 - (let ((__tmp49236 - (let ((__tmp49237 - |gerbil/core$$[1]#_g49238_|)) + (cons 'type-descriptor __tmp49433))) + (__tmp49408 + (let ((__tmp49429 + (let ((__tmp49430 + |gerbil/core$$[1]#_g49431_|)) (declare (not safe)) - (cons 'predicate __tmp49237))) - (__tmp49220 - (let ((__tmp49233 - (let ((__tmp49234 - |gerbil/core$$[1]#_g49235_|)) + (cons 'constructor __tmp49430))) + (__tmp49409 + (let ((__tmp49426 + (let ((__tmp49427 + |gerbil/core$$[1]#_g49428_|)) (declare (not safe)) - (cons 'accessors - __tmp49234))) - (__tmp49221 - (let ((__tmp49230 - (let ((__tmp49231 - |gerbil/core$$[1]#_g49232_|)) + (cons 'predicate + __tmp49427))) + (__tmp49410 + (let ((__tmp49423 + (let ((__tmp49424 + |gerbil/core$$[1]#_g49425_|)) (declare (not safe)) - (cons 'mutators + (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49231))) - (__tmp49222 - (let ((__tmp49227 - (let ((__tmp49228 - |gerbil/core$$[1]#_g49229_|)) + __tmp49424))) + (__tmp49411 + (let ((__tmp49420 + (let ((__tmp49421 + |gerbil/core$$[1]#_g49422_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49228))) - (__tmp49223 - (let ((__tmp49224 - (let ((__tmp49225 - |gerbil/core$$[1]#_g49226_|)) + (cons 'mutators __tmp49421))) + (__tmp49412 + (let ((__tmp49417 + (let ((__tmp49418 + |gerbil/core$$[1]#_g49419_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49225)))) + (cons 'unchecked-accessors __tmp49418))) + (__tmp49413 + (let ((__tmp49414 + (let ((__tmp49415 + |gerbil/core$$[1]#_g49416_|)) + (declare (not safe)) + (cons 'unchecked-mutators + __tmp49415)))) + (declare (not safe)) + (cons __tmp49414 '())))) (declare (not safe)) - (cons __tmp49224 '())))) + (cons __tmp49417 __tmp49413)))) (declare (not safe)) - (cons __tmp49227 __tmp49223)))) + (cons __tmp49420 __tmp49412)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49230 - __tmp49222)))) + (cons __tmp49423 + __tmp49411)))) (declare (not safe)) - (cons __tmp49233 __tmp49221)))) + (cons __tmp49426 __tmp49410)))) (declare (not safe)) - (cons __tmp49236 __tmp49220)))) + (cons __tmp49429 __tmp49409)))) (declare (not safe)) - (cons __tmp49239 __tmp49219)))) + (cons __tmp49432 __tmp49408)))) (declare (not safe)) - (cons __tmp49242 __tmp49218)))) + (cons __tmp49435 __tmp49407)))) (declare (not safe)) - (cons __tmp49245 __tmp49217)))) + (cons __tmp49438 __tmp49406)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49248 - __tmp49216)))) + (cons __tmp49441 + __tmp49405)))) (declare (not safe)) - (cons __tmp49251 __tmp49215)))) + (cons __tmp49444 __tmp49404)))) (declare (not safe)) - (cons __tmp49254 __tmp49214)))) + (cons __tmp49447 __tmp49403)))) (declare (not safe)) - (cons __tmp49257 __tmp49213)))) + (cons __tmp49450 __tmp49402)))) (declare (not safe)) - (cons __tmp49260 __tmp49212)))) + (cons __tmp49453 __tmp49401)))) (declare (not safe)) - (cons __tmp49263 __tmp49211)))) + (cons __tmp49456 __tmp49400)))) (declare (not safe)) (##unchecked-structure-set! - __obj47346 - __tmp49210 - '11 + __obj47523 + __tmp49399 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49266 - (let ((__tmp49319 - (let ((__tmp49320 |gerbil/core$$[1]#_g49321_|)) + (let ((__tmp49459 + (let ((__tmp49516 + (let ((__tmp49517 |gerbil/core$$[1]#_g49518_|)) (declare (not safe)) - (cons 'id __tmp49320))) - (__tmp49267 - (let ((__tmp49316 - (let ((__tmp49317 - |gerbil/core$$[1]#_g49318_|)) + (cons 'id __tmp49517))) + (__tmp49460 + (let ((__tmp49513 + (let ((__tmp49514 + |gerbil/core$$[1]#_g49515_|)) (declare (not safe)) - (cons 'name __tmp49317))) - (__tmp49268 - (let ((__tmp49313 - (let ((__tmp49314 - |gerbil/core$$[1]#_g49315_|)) + (cons 'name __tmp49514))) + (__tmp49461 + (let ((__tmp49510 + (let ((__tmp49511 + |gerbil/core$$[1]#_g49512_|)) (declare (not safe)) - (cons 'super __tmp49314))) - (__tmp49269 - (let ((__tmp49310 - (let ((__tmp49311 - |gerbil/core$$[1]#_g49312_|)) + (cons 'super __tmp49511))) + (__tmp49462 + (let ((__tmp49507 + (let ((__tmp49508 + |gerbil/core$$[1]#_g49509_|)) (declare (not safe)) - (cons 'slots __tmp49311))) - (__tmp49270 - (let ((__tmp49307 - (let ((__tmp49308 - |gerbil/core$$[1]#_g49309_|)) + (cons 'slots __tmp49508))) + (__tmp49463 + (let ((__tmp49504 + (let ((__tmp49505 + |gerbil/core$$[1]#_g49506_|)) (declare (not safe)) - (cons 'struct? __tmp49308))) - (__tmp49271 - (let ((__tmp49304 - (let ((__tmp49305 - |gerbil/core$$[1]#_g49306_|)) + (cons 'struct? __tmp49505))) + (__tmp49464 + (let ((__tmp49501 + (let ((__tmp49502 + |gerbil/core$$[1]#_g49503_|)) (declare (not safe)) (cons 'final? - __tmp49305))) - (__tmp49272 - (let ((__tmp49301 - (let ((__tmp49302 + __tmp49502))) + (__tmp49465 + (let ((__tmp49498 + (let ((__tmp49499 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49303_|)) + |gerbil/core$$[1]#_g49500_|)) (declare (not safe)) - (cons 'constructor-method __tmp49302))) - (__tmp49273 - (let ((__tmp49298 - (let ((__tmp49299 - |gerbil/core$$[1]#_g49300_|)) + (cons 'metaclass __tmp49499))) + (__tmp49466 + (let ((__tmp49495 + (let ((__tmp49496 + |gerbil/core$$[1]#_g49497_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49299))) - (__tmp49274 - (let ((__tmp49295 - (let ((__tmp49296 - |gerbil/core$$[1]#_g49297_|)) + (cons 'constructor-method __tmp49496))) + (__tmp49467 + (let ((__tmp49492 + (let ((__tmp49493 + |gerbil/core$$[1]#_g49494_|)) (declare (not safe)) - (cons 'constructor __tmp49296))) - (__tmp49275 - (let ((__tmp49292 - (let ((__tmp49293 - |gerbil/core$$[1]#_g49294_|)) + (cons 'type-descriptor __tmp49493))) + (__tmp49468 + (let ((__tmp49489 + (let ((__tmp49490 + |gerbil/core$$[1]#_g49491_|)) (declare (not safe)) - (cons 'predicate __tmp49293))) - (__tmp49276 - (let ((__tmp49289 - (let ((__tmp49290 - |gerbil/core$$[1]#_g49291_|)) + (cons 'constructor __tmp49490))) + (__tmp49469 + (let ((__tmp49486 + (let ((__tmp49487 + |gerbil/core$$[1]#_g49488_|)) (declare (not safe)) - (cons 'accessors - __tmp49290))) - (__tmp49277 - (let ((__tmp49286 - (let ((__tmp49287 - |gerbil/core$$[1]#_g49288_|)) + (cons 'predicate + __tmp49487))) + (__tmp49470 + (let ((__tmp49483 + (let ((__tmp49484 + |gerbil/core$$[1]#_g49485_|)) (declare (not safe)) - (cons 'mutators + (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49287))) - (__tmp49278 - (let ((__tmp49283 - (let ((__tmp49284 - |gerbil/core$$[1]#_g49285_|)) + __tmp49484))) + (__tmp49471 + (let ((__tmp49480 + (let ((__tmp49481 + |gerbil/core$$[1]#_g49482_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49284))) - (__tmp49279 - (let ((__tmp49280 - (let ((__tmp49281 - |gerbil/core$$[1]#_g49282_|)) + (cons 'mutators __tmp49481))) + (__tmp49472 + (let ((__tmp49477 + (let ((__tmp49478 + |gerbil/core$$[1]#_g49479_|)) + (declare (not safe)) + (cons 'unchecked-accessors __tmp49478))) + (__tmp49473 + (let ((__tmp49474 + (let ((__tmp49475 + |gerbil/core$$[1]#_g49476_|)) + (declare (not safe)) + (cons 'unchecked-mutators + __tmp49475)))) (declare (not safe)) - (cons 'unchecked-mutators __tmp49281)))) + (cons __tmp49474 '())))) (declare (not safe)) - (cons __tmp49280 '())))) + (cons __tmp49477 __tmp49473)))) (declare (not safe)) - (cons __tmp49283 __tmp49279)))) + (cons __tmp49480 __tmp49472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49286 - __tmp49278)))) + (cons __tmp49483 + __tmp49471)))) (declare (not safe)) - (cons __tmp49289 __tmp49277)))) + (cons __tmp49486 __tmp49470)))) (declare (not safe)) - (cons __tmp49292 __tmp49276)))) + (cons __tmp49489 __tmp49469)))) (declare (not safe)) - (cons __tmp49295 __tmp49275)))) + (cons __tmp49492 __tmp49468)))) (declare (not safe)) - (cons __tmp49298 __tmp49274)))) + (cons __tmp49495 __tmp49467)))) (declare (not safe)) - (cons __tmp49301 __tmp49273)))) + (cons __tmp49498 __tmp49466)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49304 - __tmp49272)))) + (cons __tmp49501 + __tmp49465)))) (declare (not safe)) - (cons __tmp49307 __tmp49271)))) + (cons __tmp49504 __tmp49464)))) (declare (not safe)) - (cons __tmp49310 __tmp49270)))) + (cons __tmp49507 __tmp49463)))) (declare (not safe)) - (cons __tmp49313 __tmp49269)))) + (cons __tmp49510 __tmp49462)))) (declare (not safe)) - (cons __tmp49316 __tmp49268)))) + (cons __tmp49513 __tmp49461)))) (declare (not safe)) - (cons __tmp49319 __tmp49267)))) + (cons __tmp49516 __tmp49460)))) (declare (not safe)) (##unchecked-structure-set! - __obj47346 - __tmp49266 - '12 + __obj47523 + __tmp49459 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49322 - (let ((__tmp49375 - (let ((__tmp49376 |gerbil/core$$[1]#_g49377_|)) + (let ((__tmp49519 + (let ((__tmp49575 + (let ((__tmp49576 |gerbil/core$$[1]#_g49577_|)) (declare (not safe)) - (cons 'id __tmp49376))) - (__tmp49323 - (let ((__tmp49372 - (let ((__tmp49373 - |gerbil/core$$[1]#_g49374_|)) + (cons 'id __tmp49576))) + (__tmp49520 + (let ((__tmp49572 + (let ((__tmp49573 + |gerbil/core$$[1]#_g49574_|)) (declare (not safe)) - (cons 'name __tmp49373))) - (__tmp49324 - (let ((__tmp49369 - (let ((__tmp49370 - |gerbil/core$$[1]#_g49371_|)) + (cons 'name __tmp49573))) + (__tmp49521 + (let ((__tmp49569 + (let ((__tmp49570 + |gerbil/core$$[1]#_g49571_|)) (declare (not safe)) - (cons 'super __tmp49370))) - (__tmp49325 - (let ((__tmp49366 - (let ((__tmp49367 - |gerbil/core$$[1]#_g49368_|)) + (cons 'super __tmp49570))) + (__tmp49522 + (let ((__tmp49566 + (let ((__tmp49567 + |gerbil/core$$[1]#_g49568_|)) (declare (not safe)) - (cons 'slots __tmp49367))) - (__tmp49326 - (let ((__tmp49363 - (let ((__tmp49364 - |gerbil/core$$[1]#_g49365_|)) + (cons 'slots __tmp49567))) + (__tmp49523 + (let ((__tmp49563 + (let ((__tmp49564 + |gerbil/core$$[1]#_g49565_|)) (declare (not safe)) - (cons 'struct? __tmp49364))) - (__tmp49327 - (let ((__tmp49360 - (let ((__tmp49361 - |gerbil/core$$[1]#_g49362_|)) + (cons 'struct? __tmp49564))) + (__tmp49524 + (let ((__tmp49560 + (let ((__tmp49561 + |gerbil/core$$[1]#_g49562_|)) (declare (not safe)) (cons 'final? - __tmp49361))) - (__tmp49328 - (let ((__tmp49357 - (let ((__tmp49358 + __tmp49561))) + (__tmp49525 + (let ((__tmp49558 + (let ((__tmp49559 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49359_|)) + |gerbil/core$$[1]#_g49440_|)) (declare (not safe)) - (cons 'constructor-method __tmp49358))) - (__tmp49329 - (let ((__tmp49354 - (let ((__tmp49355 - |gerbil/core$$[1]#_g49356_|)) + (cons 'metaclass __tmp49559))) + (__tmp49526 + (let ((__tmp49555 + (let ((__tmp49556 + |gerbil/core$$[1]#_g49557_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49355))) - (__tmp49330 - (let ((__tmp49351 - (let ((__tmp49352 - |gerbil/core$$[1]#_g49353_|)) + (cons 'constructor-method __tmp49556))) + (__tmp49527 + (let ((__tmp49552 + (let ((__tmp49553 + |gerbil/core$$[1]#_g49554_|)) (declare (not safe)) - (cons 'constructor __tmp49352))) - (__tmp49331 - (let ((__tmp49348 - (let ((__tmp49349 - |gerbil/core$$[1]#_g49350_|)) + (cons 'type-descriptor __tmp49553))) + (__tmp49528 + (let ((__tmp49549 + (let ((__tmp49550 + |gerbil/core$$[1]#_g49551_|)) (declare (not safe)) - (cons 'predicate __tmp49349))) - (__tmp49332 - (let ((__tmp49345 - (let ((__tmp49346 - |gerbil/core$$[1]#_g49347_|)) + (cons 'constructor __tmp49550))) + (__tmp49529 + (let ((__tmp49546 + (let ((__tmp49547 + |gerbil/core$$[1]#_g49548_|)) (declare (not safe)) - (cons 'accessors - __tmp49346))) - (__tmp49333 - (let ((__tmp49342 - (let ((__tmp49343 - |gerbil/core$$[1]#_g49344_|)) + (cons 'predicate + __tmp49547))) + (__tmp49530 + (let ((__tmp49543 + (let ((__tmp49544 + |gerbil/core$$[1]#_g49545_|)) (declare (not safe)) - (cons 'mutators + (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49343))) - (__tmp49334 - (let ((__tmp49339 - (let ((__tmp49340 - |gerbil/core$$[1]#_g49341_|)) + __tmp49544))) + (__tmp49531 + (let ((__tmp49540 + (let ((__tmp49541 + |gerbil/core$$[1]#_g49542_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49340))) - (__tmp49335 - (let ((__tmp49336 - (let ((__tmp49337 - |gerbil/core$$[1]#_g49338_|)) + (cons 'mutators __tmp49541))) + (__tmp49532 + (let ((__tmp49537 + (let ((__tmp49538 + |gerbil/core$$[1]#_g49539_|)) + (declare (not safe)) + (cons 'unchecked-accessors __tmp49538))) + (__tmp49533 + (let ((__tmp49534 + (let ((__tmp49535 + |gerbil/core$$[1]#_g49536_|)) + (declare (not safe)) + (cons 'unchecked-mutators + __tmp49535)))) (declare (not safe)) - (cons 'unchecked-mutators __tmp49337)))) + (cons __tmp49534 '())))) (declare (not safe)) - (cons __tmp49336 '())))) + (cons __tmp49537 __tmp49533)))) (declare (not safe)) - (cons __tmp49339 __tmp49335)))) + (cons __tmp49540 __tmp49532)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49342 - __tmp49334)))) + (cons __tmp49543 + __tmp49531)))) (declare (not safe)) - (cons __tmp49345 __tmp49333)))) + (cons __tmp49546 __tmp49530)))) (declare (not safe)) - (cons __tmp49348 __tmp49332)))) + (cons __tmp49549 __tmp49529)))) (declare (not safe)) - (cons __tmp49351 __tmp49331)))) + (cons __tmp49552 __tmp49528)))) (declare (not safe)) - (cons __tmp49354 __tmp49330)))) + (cons __tmp49555 __tmp49527)))) (declare (not safe)) - (cons __tmp49357 __tmp49329)))) + (cons __tmp49558 __tmp49526)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49360 - __tmp49328)))) + (cons __tmp49560 + __tmp49525)))) (declare (not safe)) - (cons __tmp49363 __tmp49327)))) + (cons __tmp49563 __tmp49524)))) (declare (not safe)) - (cons __tmp49366 __tmp49326)))) + (cons __tmp49566 __tmp49523)))) (declare (not safe)) - (cons __tmp49369 __tmp49325)))) + (cons __tmp49569 __tmp49522)))) (declare (not safe)) - (cons __tmp49372 __tmp49324)))) + (cons __tmp49572 __tmp49521)))) (declare (not safe)) - (cons __tmp49375 __tmp49323)))) + (cons __tmp49575 __tmp49520)))) (declare (not safe)) (##unchecked-structure-set! - __obj47346 - __tmp49322 - '13 + __obj47523 + __tmp49519 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49378 - (let ((__tmp49431 - (let ((__tmp49432 |gerbil/core$$[1]#_g49433_|)) + (let ((__tmp49578 + (let ((__tmp49635 + (let ((__tmp49636 |gerbil/core$$[1]#_g49637_|)) (declare (not safe)) - (cons 'id __tmp49432))) - (__tmp49379 - (let ((__tmp49428 - (let ((__tmp49429 - |gerbil/core$$[1]#_g49430_|)) + (cons 'id __tmp49636))) + (__tmp49579 + (let ((__tmp49632 + (let ((__tmp49633 + |gerbil/core$$[1]#_g49634_|)) (declare (not safe)) - (cons 'name __tmp49429))) - (__tmp49380 - (let ((__tmp49425 - (let ((__tmp49426 - |gerbil/core$$[1]#_g49427_|)) + (cons 'name __tmp49633))) + (__tmp49580 + (let ((__tmp49629 + (let ((__tmp49630 + |gerbil/core$$[1]#_g49631_|)) (declare (not safe)) - (cons 'super __tmp49426))) - (__tmp49381 - (let ((__tmp49422 - (let ((__tmp49423 - |gerbil/core$$[1]#_g49424_|)) + (cons 'super __tmp49630))) + (__tmp49581 + (let ((__tmp49626 + (let ((__tmp49627 + |gerbil/core$$[1]#_g49628_|)) (declare (not safe)) - (cons 'slots __tmp49423))) - (__tmp49382 - (let ((__tmp49419 - (let ((__tmp49420 - |gerbil/core$$[1]#_g49421_|)) + (cons 'slots __tmp49627))) + (__tmp49582 + (let ((__tmp49623 + (let ((__tmp49624 + |gerbil/core$$[1]#_g49625_|)) (declare (not safe)) - (cons 'struct? __tmp49420))) - (__tmp49383 - (let ((__tmp49416 - (let ((__tmp49417 - |gerbil/core$$[1]#_g49418_|)) + (cons 'struct? __tmp49624))) + (__tmp49583 + (let ((__tmp49620 + (let ((__tmp49621 + |gerbil/core$$[1]#_g49622_|)) (declare (not safe)) (cons 'final? - __tmp49417))) - (__tmp49384 - (let ((__tmp49413 - (let ((__tmp49414 + __tmp49621))) + (__tmp49584 + (let ((__tmp49617 + (let ((__tmp49618 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core$$[1]#_g49415_|)) + |gerbil/core$$[1]#_g49619_|)) (declare (not safe)) - (cons 'constructor-method __tmp49414))) - (__tmp49385 - (let ((__tmp49410 - (let ((__tmp49411 - |gerbil/core$$[1]#_g49412_|)) + (cons 'metaclass __tmp49618))) + (__tmp49585 + (let ((__tmp49614 + (let ((__tmp49615 + |gerbil/core$$[1]#_g49616_|)) (declare (not safe)) - (cons 'type-descriptor __tmp49411))) - (__tmp49386 - (let ((__tmp49407 - (let ((__tmp49408 - |gerbil/core$$[1]#_g49409_|)) + (cons 'constructor-method __tmp49615))) + (__tmp49586 + (let ((__tmp49611 + (let ((__tmp49612 + |gerbil/core$$[1]#_g49613_|)) (declare (not safe)) - (cons 'constructor __tmp49408))) - (__tmp49387 - (let ((__tmp49404 - (let ((__tmp49405 - |gerbil/core$$[1]#_g49406_|)) + (cons 'type-descriptor __tmp49612))) + (__tmp49587 + (let ((__tmp49608 + (let ((__tmp49609 + |gerbil/core$$[1]#_g49610_|)) (declare (not safe)) - (cons 'predicate __tmp49405))) - (__tmp49388 - (let ((__tmp49401 - (let ((__tmp49402 - |gerbil/core$$[1]#_g49403_|)) + (cons 'constructor __tmp49609))) + (__tmp49588 + (let ((__tmp49605 + (let ((__tmp49606 + |gerbil/core$$[1]#_g49607_|)) (declare (not safe)) - (cons 'accessors - __tmp49402))) - (__tmp49389 - (let ((__tmp49398 - (let ((__tmp49399 - |gerbil/core$$[1]#_g49400_|)) + (cons 'predicate + __tmp49606))) + (__tmp49589 + (let ((__tmp49602 + (let ((__tmp49603 + |gerbil/core$$[1]#_g49604_|)) (declare (not safe)) - (cons 'mutators + (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp49399))) - (__tmp49390 - (let ((__tmp49395 - (let ((__tmp49396 - |gerbil/core$$[1]#_g49397_|)) + __tmp49603))) + (__tmp49590 + (let ((__tmp49599 + (let ((__tmp49600 + |gerbil/core$$[1]#_g49601_|)) (declare (not safe)) - (cons 'unchecked-accessors __tmp49396))) - (__tmp49391 - (let ((__tmp49392 - (let ((__tmp49393 - |gerbil/core$$[1]#_g49394_|)) + (cons 'mutators __tmp49600))) + (__tmp49591 + (let ((__tmp49596 + (let ((__tmp49597 + |gerbil/core$$[1]#_g49598_|)) (declare (not safe)) - (cons 'unchecked-mutators __tmp49393)))) + (cons 'unchecked-accessors __tmp49597))) + (__tmp49592 + (let ((__tmp49593 + (let ((__tmp49594 + |gerbil/core$$[1]#_g49595_|)) + (declare (not safe)) + (cons 'unchecked-mutators + __tmp49594)))) + (declare (not safe)) + (cons __tmp49593 '())))) (declare (not safe)) - (cons __tmp49392 '())))) + (cons __tmp49596 __tmp49592)))) (declare (not safe)) - (cons __tmp49395 __tmp49391)))) + (cons __tmp49599 __tmp49591)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49398 - __tmp49390)))) + (cons __tmp49602 + __tmp49590)))) (declare (not safe)) - (cons __tmp49401 __tmp49389)))) + (cons __tmp49605 __tmp49589)))) (declare (not safe)) - (cons __tmp49404 __tmp49388)))) + (cons __tmp49608 __tmp49588)))) (declare (not safe)) - (cons __tmp49407 __tmp49387)))) + (cons __tmp49611 __tmp49587)))) (declare (not safe)) - (cons __tmp49410 __tmp49386)))) + (cons __tmp49614 __tmp49586)))) (declare (not safe)) - (cons __tmp49413 __tmp49385)))) + (cons __tmp49617 __tmp49585)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49416 - __tmp49384)))) + (cons __tmp49620 + __tmp49584)))) (declare (not safe)) - (cons __tmp49419 __tmp49383)))) + (cons __tmp49623 __tmp49583)))) (declare (not safe)) - (cons __tmp49422 __tmp49382)))) + (cons __tmp49626 __tmp49582)))) (declare (not safe)) - (cons __tmp49425 __tmp49381)))) + (cons __tmp49629 __tmp49581)))) (declare (not safe)) - (cons __tmp49428 __tmp49380)))) + (cons __tmp49632 __tmp49580)))) (declare (not safe)) - (cons __tmp49431 __tmp49379)))) + (cons __tmp49635 __tmp49579)))) (declare (not safe)) (##unchecked-structure-set! - __obj47346 - __tmp49378 - '14 + __obj47523 + __tmp49578 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj47346))) + __obj47523))) diff --git a/src/bootstrap/gerbil/core__8.scm b/src/bootstrap/gerbil/core__8.scm index 45993e5da..e9fcaef56 100644 --- a/src/bootstrap/gerbil/core__8.scm +++ b/src/bootstrap/gerbil/core__8.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$$[1]#_g49773_| + (define |gerbil/core$$[1]#_g49984_| (##structure gx#syntax-quote::t '@method @@ -9,10 +9,10 @@ '())) (begin (define |gerbil/core$$[1]#typedef-body?| - (lambda (_stx21398_) - (letrec ((_body-opt?21401_ - (lambda (_key21404_) - (memq (gx#stx-e _key21404_) + (lambda (_stx21575_) + (letrec ((_body-opt?21578_ + (lambda (_key21581_) + (memq (gx#stx-e _key21581_) '(id: struct: name: @@ -20,4842 +20,4903 @@ transparent: final: print: - equal:))))) - (gx#stx-plist? _stx21398_ _body-opt?21401_)))) + equal: + metaclass:))))) + (gx#stx-plist? _stx21575_ _body-opt?21578_)))) (define |gerbil/core$$[1]#generate-defclass| - (lambda (_stx19260_ _id19262_ _super-ref19263_ _slots19264_ _body19265_) - (letrec* ((_wrap19267_ - (lambda (_e-stx21395_) + (lambda (_stx19359_ _id19361_ _super-ref19362_ _slots19363_ _body19364_) + (letrec* ((_wrap19366_ + (lambda (_e-stx21572_) (gx#stx-wrap-source - _e-stx21395_ - (gx#stx-source _stx19260_)))) - (_make-id19269_ - (if (uninterned-symbol? (gx#stx-e _id19262_)) - (lambda _g49434_ (gx#genident _id19262_)) - (lambda _args21392_ - (apply gx#stx-identifier _id19262_ _args21392_)))) - (_get-mixin-slots19270_ - (lambda (_super21366_ _slots21368_) - (letrec* ((_tab21370_ + _e-stx21572_ + (gx#stx-source _stx19359_)))) + (_make-id19368_ + (if (uninterned-symbol? (gx#stx-e _id19361_)) + (lambda _g49638_ (gx#genident _id19361_)) + (lambda _args21569_ + (apply gx#stx-identifier _id19361_ _args21569_)))) + (_get-mixin-slots19369_ + (lambda (_super21543_ _slots21545_) + (letrec* ((_tab21547_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_dedup21372_ - (lambda (_mixins21377_) - (let _lp21380_ ((_rest21383_ _mixins21377_) - (_r21385_ '())) + (_dedup21549_ + (lambda (_mixins21554_) + (let _lp21557_ ((_rest21560_ _mixins21554_) + (_r21562_ '())) (if (let () (declare (not safe)) - (pair? _rest21383_)) - (let ((_slot21387_ (car _rest21383_))) + (pair? _rest21560_)) + (let ((_slot21564_ (car _rest21560_))) (if (let () (declare (not safe)) (table-ref - _tab21370_ - _slot21387_ + _tab21547_ + _slot21564_ '#f)) - (let ((__tmp49437 - (cdr _rest21383_))) + (let ((__tmp49641 + (cdr _rest21560_))) (declare (not safe)) - (_lp21380_ - __tmp49437 - _r21385_)) + (_lp21557_ + __tmp49641 + _r21562_)) (begin (let () (declare (not safe)) (table-set! - _tab21370_ - _slot21387_ + _tab21547_ + _slot21564_ '#t)) - (let ((__tmp49436 - (cdr _rest21383_)) - (__tmp49435 + (let ((__tmp49640 + (cdr _rest21560_)) + (__tmp49639 (let () (declare (not safe)) - (cons _slot21387_ - _r21385_)))) + (cons _slot21564_ + _r21562_)))) (declare (not safe)) - (_lp21380_ - __tmp49436 - __tmp49435))))) - (reverse _r21385_)))))) + (_lp21557_ + __tmp49640 + __tmp49639))))) + (reverse _r21562_)))))) (gx#stx-for-each - (lambda (_slot21374_) - (let ((__tmp49438 (gx#stx-e _slot21374_))) + (lambda (_slot21551_) + (let ((__tmp49642 (gx#stx-e _slot21551_))) (declare (not safe)) - (table-set! _tab21370_ __tmp49438 '#t))) - _slots21368_) - (if (let () (declare (not safe)) (not _super21366_)) + (table-set! _tab21547_ __tmp49642 '#t))) + _slots21545_) + (if (let () (declare (not safe)) (not _super21543_)) '() - (if (gx#identifier? _super21366_) - (let ((__tmp49440 + (if (gx#identifier? _super21543_) + (let ((__tmp49644 (let () (declare (not safe)) - (_get-mixin-slots-r19271_ - _super21366_)))) + (_get-mixin-slots-r19370_ + _super21543_)))) (declare (not safe)) - (_dedup21372_ __tmp49440)) - (let ((__tmp49439 + (_dedup21549_ __tmp49644)) + (let ((__tmp49643 (concatenate - (map _get-mixin-slots-r19271_ - _super21366_)))) + (map _get-mixin-slots-r19370_ + _super21543_)))) (declare (not safe)) - (_dedup21372_ __tmp49439))))))) - (_get-mixin-slots-r19271_ - (lambda (_type-id21360_) - (let ((_info21363_ - (gx#syntax-local-value _type-id21360_))) - (append (let ((__obj47347 _info21363_)) + (_dedup21549_ __tmp49643))))))) + (_get-mixin-slots-r19370_ + (lambda (_type-id21537_) + (let ((_info21540_ + (gx#syntax-local-value _type-id21537_))) + (append (let ((__obj47524 _info21540_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47347 + __obj47524 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47347 + __obj47524 '4 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47347 + __obj47524 'slots))) (concatenate - (map _get-mixin-slots-r19271_ - (let ((__obj47348 _info21363_)) + (map _get-mixin-slots-r19370_ + (let ((__obj47525 _info21540_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47348 + __obj47525 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47348 + __obj47525 '3 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47348 + __obj47525 'super)))))))))) - (gx#check-duplicate-identifiers _slots19264_ _stx19260_) - (let* ((_name19273_ (symbol->string (gx#stx-e _id19262_))) - (_super19276_ (map gx#syntax-local-value _super-ref19263_)) - (_struct?19279_ (gx#stx-getq 'struct: _body19265_)) - (_g1928219290_ - (lambda (_g1928319286_) + (gx#check-duplicate-identifiers _slots19363_ _stx19359_) + (let* ((_name19372_ (symbol->string (gx#stx-e _id19361_))) + (_super19375_ (map gx#syntax-local-value _super-ref19362_)) + (_struct?19378_ (gx#stx-getq 'struct: _body19364_)) + (_g1938119389_ + (lambda (_g1938219385_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1928319286_))) - (_g1928121356_ - (lambda (_g1928319294_) - ((lambda (_L19297_) + _g1938219385_))) + (_g1938021533_ + (lambda (_g1938219393_) + ((lambda (_L19396_) (let () - (let* ((_g1931319321_ - (lambda (_g1931419317_) + (let* ((_g1941219420_ + (lambda (_g1941319416_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1931419317_))) - (_g1931221352_ - (lambda (_g1931419325_) - ((lambda (_L19328_) + _g1941319416_))) + (_g1941121529_ + (lambda (_g1941319424_) + ((lambda (_L19427_) (let () - (let* ((_g1934119349_ - (lambda (_g1934219345_) + (let* ((_g1944019448_ + (lambda (_g1944119444_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1934219345_))) - (_g1934021348_ - (lambda (_g1934219353_) - ((lambda (_L19356_) + _g1944119444_))) + (_g1943921525_ + (lambda (_g1944119452_) + ((lambda (_L19455_) (let () - (let* ((_g1936919377_ - (lambda (_g1937019373_) + (let* ((_g1946819476_ + (lambda (_g1946919472_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1937019373_))) - (_g1936821344_ - (lambda (_g1937019381_) - ((lambda (_L19384_) + _g1946919472_))) + (_g1946721521_ + (lambda (_g1946919480_) + ((lambda (_L19483_) (let () - (let* ((_g1939719405_ - (lambda (_g1939819401_) + (let* ((_g1949619504_ + (lambda (_g1949719500_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1939819401_))) - (_g1939621340_ - (lambda (_g1939819409_) - ((lambda (_L19412_) + _g1949719500_))) + (_g1949521517_ + (lambda (_g1949719508_) + ((lambda (_L19511_) (let () - (let* ((_g1942519442_ - (lambda (_g1942619438_) + (let* ((_g1952419541_ + (lambda (_g1952519537_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1942619438_))) - (_g1942421336_ - (lambda (_g1942619446_) + _g1952519537_))) + (_g1952321513_ + (lambda (_g1952519545_) (if (gx#stx-pair/null? - _g1942619446_) - (let ((_g49441_ + _g1952519545_) + (let ((_g49645_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g1942619446_ '0))) + (gx#syntax-split-splice _g1952519545_ '0))) (begin - (let ((_g49442_ + (let ((_g49646_ (let () (declare (not safe)) - (if (##values? _g49441_) - (##vector-length _g49441_) + (if (##values? _g49645_) + (##vector-length _g49645_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49442_ 2))) - (error "Context expects 2 values" _g49442_))) - (let ((_target1942819449_ + (##fx= _g49646_ 2))) + (error "Context expects 2 values" _g49646_))) + (let ((_target1952719548_ (let () (declare (not safe)) - (##vector-ref _g49441_ 0))) - (_tl1943019452_ + (##vector-ref _g49645_ 0))) + (_tl1952919551_ (let () (declare (not safe)) - (##vector-ref _g49441_ 1)))) - (if (gx#stx-null? _tl1943019452_) - (letrec ((_loop1943119455_ - (lambda (_hd1942919459_ - _slot1943519462_) - (if (gx#stx-pair? _hd1942919459_) - (let ((_e1943219465_ + (##vector-ref _g49645_ 1)))) + (if (gx#stx-null? _tl1952919551_) + (letrec ((_loop1953019554_ + (lambda (_hd1952819558_ + _slot1953419561_) + (if (gx#stx-pair? _hd1952819558_) + (let ((_e1953119564_ (gx#syntax-e - _hd1942919459_))) - (let ((_lp-hd1943319469_ + _hd1952819558_))) + (let ((_lp-hd1953219568_ (let () (declare (not safe)) - (##car _e1943219465_))) - (_lp-tl1943419472_ + (##car _e1953119564_))) + (_lp-tl1953319571_ (let () (declare (not safe)) - (##cdr _e1943219465_)))) - (let ((__tmp49712 + (##cdr _e1953119564_)))) + (let ((__tmp49923 (let () (declare (not safe)) - (cons _lp-hd1943319469_ - _slot1943519462_)))) + (cons _lp-hd1953219568_ + _slot1953419561_)))) (declare (not safe)) - (_loop1943119455_ - _lp-tl1943419472_ - __tmp49712)))) - (let ((_slot1943619475_ - (reverse _slot1943519462_))) - ((lambda (_L19479_) + (_loop1953019554_ + _lp-tl1953319571_ + __tmp49923)))) + (let ((_slot1953519574_ + (reverse _slot1953419561_))) + ((lambda (_L19578_) (let () - (let* ((_g1949619513_ - (lambda (_g1949719509_) + (let* ((_g1959519612_ + (lambda (_g1959619608_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1949719509_))) - (_g1949521327_ - (lambda (_g1949719517_) + _g1959619608_))) + (_g1959421504_ + (lambda (_g1959619616_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g1949719517_) - (let ((_g49443_ - (gx#syntax-split-splice _g1949719517_ '0))) + _g1959619616_) + (let ((_g49647_ + (gx#syntax-split-splice _g1959619616_ '0))) (begin - (let ((_g49444_ + (let ((_g49648_ (let () (declare (not safe)) - (if (##values? _g49443_) - (##vector-length _g49443_) + (if (##values? _g49647_) + (##vector-length _g49647_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49444_ 2))) + (##fx= _g49648_ 2))) (error "Context expects 2 values" - _g49444_))) - (let ((_target1949919520_ + _g49648_))) + (let ((_target1959819619_ (let () (declare (not safe)) - (##vector-ref _g49443_ 0))) - (_tl1950119523_ + (##vector-ref _g49647_ 0))) + (_tl1960019622_ (let () (declare (not safe)) - (##vector-ref _g49443_ 1)))) - (if (gx#stx-null? _tl1950119523_) - (letrec ((_loop1950219526_ - (lambda (_hd1950019530_ - _getf1950619533_) + (##vector-ref _g49647_ 1)))) + (if (gx#stx-null? _tl1960019622_) + (letrec ((_loop1960119625_ + (lambda (_hd1959919629_ + _getf1960519632_) (if (gx#stx-pair? - _hd1950019530_) - (let ((_e1950319536_ + _hd1959919629_) + (let ((_e1960219635_ (gx#syntax-e - _hd1950019530_))) - (let ((_lp-hd1950419540_ + _hd1959919629_))) + (let ((_lp-hd1960319639_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e1950319536_))) - (_lp-tl1950519543_ - (let () (declare (not safe)) (##cdr _e1950319536_)))) - (let ((__tmp49710 + (##car _e1960219635_))) + (_lp-tl1960419642_ + (let () (declare (not safe)) (##cdr _e1960219635_)))) + (let ((__tmp49921 (let () (declare (not safe)) - (cons _lp-hd1950419540_ _getf1950619533_)))) + (cons _lp-hd1960319639_ _getf1960519632_)))) (declare (not safe)) - (_loop1950219526_ _lp-tl1950519543_ __tmp49710)))) + (_loop1960119625_ _lp-tl1960419642_ __tmp49921)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_getf1950719546_ - (reverse _getf1950619533_))) - ((lambda (_L19550_) + (let ((_getf1960619645_ + (reverse _getf1960519632_))) + ((lambda (_L19649_) (let () - (let* ((_g1956719584_ + (let* ((_g1966619683_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g1956819580_) + (lambda (_g1966719679_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1956819580_))) - (_g1956621318_ - (lambda (_g1956819588_) - (if (gx#stx-pair/null? _g1956819588_) - (let ((_g49445_ + _g1966719679_))) + (_g1966521495_ + (lambda (_g1966719687_) + (if (gx#stx-pair/null? _g1966719687_) + (let ((_g49649_ (gx#syntax-split-splice - _g1956819588_ + _g1966719687_ '0))) (begin - (let ((_g49446_ + (let ((_g49650_ (let () (declare (not safe)) - (if (##values? _g49445_) - (##vector-length _g49445_) + (if (##values? _g49649_) + (##vector-length _g49649_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49446_ 2))) + (##fx= _g49650_ 2))) (error "Context expects 2 values" - _g49446_))) - (let ((_target1957019591_ + _g49650_))) + (let ((_target1966919690_ (let () (declare (not safe)) - (##vector-ref _g49445_ 0))) - (_tl1957219594_ + (##vector-ref _g49649_ 0))) + (_tl1967119693_ (let () (declare (not safe)) - (##vector-ref _g49445_ 1)))) - (if (gx#stx-null? _tl1957219594_) - (letrec ((_loop1957319597_ - (lambda (_hd1957119601_ - _setf1957719604_) + (##vector-ref _g49649_ 1)))) + (if (gx#stx-null? _tl1967119693_) + (letrec ((_loop1967219696_ + (lambda (_hd1967019700_ + _setf1967619703_) (if (gx#stx-pair? - _hd1957119601_) - (let ((_e1957419607_ + _hd1967019700_) + (let ((_e1967319706_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd1957119601_))) - (let ((_lp-hd1957519611_ + (gx#syntax-e _hd1967019700_))) + (let ((_lp-hd1967419710_ (let () (declare (not safe)) - (##car _e1957419607_))) - (_lp-tl1957619614_ + (##car _e1967319706_))) + (_lp-tl1967519713_ (let () (declare (not safe)) - (##cdr _e1957419607_)))) - (let ((__tmp49708 + (##cdr _e1967319706_)))) + (let ((__tmp49919 (let () (declare (not safe)) - (cons _lp-hd1957519611_ _setf1957719604_)))) + (cons _lp-hd1967419710_ _setf1967619703_)))) (declare (not safe)) - (_loop1957319597_ _lp-tl1957619614_ __tmp49708)))) - (let ((_setf1957819617_ (reverse _setf1957719604_))) - ((lambda (_L19621_) + (_loop1967219696_ _lp-tl1967519713_ __tmp49919)))) + (let ((_setf1967719716_ (reverse _setf1967619703_))) + ((lambda (_L19720_) (let () - (let* ((_mixin-slots19638_ + (let* ((_mixin-slots19737_ (let () (declare (not safe)) - (_get-mixin-slots19270_ - _super-ref19263_ - _slots19264_))) - (_g1964119658_ - (lambda (_g1964219654_) + (_get-mixin-slots19369_ + _super-ref19362_ + _slots19363_))) + (_g1974019757_ + (lambda (_g1974119753_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1964219654_))) - (_g1964021314_ - (lambda (_g1964219662_) - (if (gx#stx-pair/null? _g1964219662_) - (let ((_g49447_ + _g1974119753_))) + (_g1973921491_ + (lambda (_g1974119761_) + (if (gx#stx-pair/null? _g1974119761_) + (let ((_g49651_ (gx#syntax-split-splice - _g1964219662_ + _g1974119761_ '0))) (begin - (let ((_g49448_ + (let ((_g49652_ (let () (declare (not safe)) - (if (##values? _g49447_) + (if (##values? _g49651_) (##vector-length - _g49447_) + _g49651_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49448_ 2))) + (##fx= _g49652_ 2))) (error "Context expects 2 values" - _g49448_))) - (let ((_target1964419665_ + _g49652_))) + (let ((_target1974319764_ (let () (declare (not safe)) (##vector-ref - _g49447_ + _g49651_ 0))) - (_tl1964619668_ + (_tl1974519767_ (let () (declare (not safe)) (##vector-ref - _g49447_ + _g49651_ 1)))) - (if (gx#stx-null? _tl1964619668_) - (letrec ((_loop1964719671_ - (lambda (_hd1964519675_ + (if (gx#stx-null? _tl1974519767_) + (letrec ((_loop1974619770_ + (lambda (_hd1974419774_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mixin-slot1965119678_) - (if (gx#stx-pair? _hd1964519675_) - (let ((_e1964819681_ (gx#syntax-e _hd1964519675_))) - (let ((_lp-hd1964919685_ + _mixin-slot1975019777_) + (if (gx#stx-pair? _hd1974419774_) + (let ((_e1974719780_ (gx#syntax-e _hd1974419774_))) + (let ((_lp-hd1974819784_ (let () (declare (not safe)) - (##car _e1964819681_))) - (_lp-tl1965019688_ + (##car _e1974719780_))) + (_lp-tl1974919787_ (let () (declare (not safe)) - (##cdr _e1964819681_)))) - (let ((__tmp49707 + (##cdr _e1974719780_)))) + (let ((__tmp49918 (let () (declare (not safe)) - (cons _lp-hd1964919685_ - _mixin-slot1965119678_)))) + (cons _lp-hd1974819784_ + _mixin-slot1975019777_)))) (declare (not safe)) - (_loop1964719671_ - _lp-tl1965019688_ - __tmp49707)))) - (let ((_mixin-slot1965219691_ - (reverse _mixin-slot1965119678_))) - ((lambda (_L19695_) + (_loop1974619770_ + _lp-tl1974919787_ + __tmp49918)))) + (let ((_mixin-slot1975119790_ + (reverse _mixin-slot1975019777_))) + ((lambda (_L19794_) (let () - (let* ((_g1971319730_ - (lambda (_g1971419726_) + (let* ((_g1981219829_ + (lambda (_g1981319825_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1971419726_))) - (_g1971221305_ - (lambda (_g1971419734_) + _g1981319825_))) + (_g1981121482_ + (lambda (_g1981319833_) (if (gx#stx-pair/null? - _g1971419734_) - (let ((_g49449_ + _g1981319833_) + (let ((_g49653_ (gx#syntax-split-splice - _g1971419734_ + _g1981319833_ '0))) (begin - (let ((_g49450_ + (let ((_g49654_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49449_) - (##vector-length _g49449_) + _g49653_) + (##vector-length _g49653_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g49450_ 2))) - (error "Context expects 2 values" _g49450_))) + (##fx= _g49654_ 2))) + (error "Context expects 2 values" _g49654_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target1971619737_ + (let ((_target1981519836_ (let () (declare (not safe)) (##vector-ref - _g49449_ + _g49653_ 0))) - (_tl1971819740_ + (_tl1981719839_ (let () (declare (not safe)) (##vector-ref - _g49449_ + _g49653_ 1)))) (if (gx#stx-null? - _tl1971819740_) - (letrec ((_loop1971919743_ + _tl1981719839_) + (letrec ((_loop1981819842_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd1971719747_ _mixin-getf1972319750_) - (if (gx#stx-pair? _hd1971719747_) - (let ((_e1972019753_ - (gx#syntax-e _hd1971719747_))) - (let ((_lp-hd1972119757_ + (lambda (_hd1981619846_ _mixin-getf1982219849_) + (if (gx#stx-pair? _hd1981619846_) + (let ((_e1981919852_ + (gx#syntax-e _hd1981619846_))) + (let ((_lp-hd1982019856_ (let () (declare (not safe)) - (##car _e1972019753_))) - (_lp-tl1972219760_ + (##car _e1981919852_))) + (_lp-tl1982119859_ (let () (declare (not safe)) - (##cdr _e1972019753_)))) - (let ((__tmp49705 + (##cdr _e1981919852_)))) + (let ((__tmp49916 (let () (declare (not safe)) - (cons _lp-hd1972119757_ - _mixin-getf1972319750_)))) + (cons _lp-hd1982019856_ + _mixin-getf1982219849_)))) (declare (not safe)) - (_loop1971919743_ - _lp-tl1972219760_ - __tmp49705)))) - (let ((_mixin-getf1972419763_ - (reverse _mixin-getf1972319750_))) - ((lambda (_L19767_) + (_loop1981819842_ + _lp-tl1982119859_ + __tmp49916)))) + (let ((_mixin-getf1982319862_ + (reverse _mixin-getf1982219849_))) + ((lambda (_L19866_) (let () - (let* ((_g1978419801_ - (lambda (_g1978519797_) + (let* ((_g1988319900_ + (lambda (_g1988419896_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1978519797_))) - (_g1978321296_ - (lambda (_g1978519805_) + _g1988419896_))) + (_g1988221473_ + (lambda (_g1988419904_) (if (gx#stx-pair/null? - _g1978519805_) - (let ((_g49451_ + _g1988419904_) + (let ((_g49655_ (gx#syntax-split-splice - _g1978519805_ + _g1988419904_ '0))) (begin - (let ((_g49452_ + (let ((_g49656_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g49451_) - (##vector-length _g49451_) + (if (##values? _g49655_) + (##vector-length _g49655_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49452_ 2))) - (error "Context expects 2 values" _g49452_))) - (let ((_target1978719808_ + (if (not (let () (declare (not safe)) (##fx= _g49656_ 2))) + (error "Context expects 2 values" _g49656_))) + (let ((_target1988619907_ (let () (declare (not safe)) - (##vector-ref _g49451_ 0))) - (_tl1978919811_ + (##vector-ref _g49655_ 0))) + (_tl1988819910_ (let () (declare (not safe)) - (##vector-ref _g49451_ 1)))) - (if (gx#stx-null? _tl1978919811_) - (letrec ((_loop1979019814_ - (lambda (_hd1978819818_ - _mixin-setf1979419821_) - (if (gx#stx-pair? _hd1978819818_) - (let ((_e1979119824_ - (gx#syntax-e _hd1978819818_))) - (let ((_lp-hd1979219828_ + (##vector-ref _g49655_ 1)))) + (if (gx#stx-null? _tl1988819910_) + (letrec ((_loop1988919913_ + (lambda (_hd1988719917_ + _mixin-setf1989319920_) + (if (gx#stx-pair? _hd1988719917_) + (let ((_e1989019923_ + (gx#syntax-e _hd1988719917_))) + (let ((_lp-hd1989119927_ (let () (declare (not safe)) - (##car _e1979119824_))) - (_lp-tl1979319831_ + (##car _e1989019923_))) + (_lp-tl1989219930_ (let () (declare (not safe)) - (##cdr _e1979119824_)))) - (let ((__tmp49703 + (##cdr _e1989019923_)))) + (let ((__tmp49914 (let () (declare (not safe)) - (cons _lp-hd1979219828_ - _mixin-setf1979419821_)))) + (cons _lp-hd1989119927_ + _mixin-setf1989319920_)))) (declare (not safe)) - (_loop1979019814_ - _lp-tl1979319831_ - __tmp49703)))) - (let ((_mixin-setf1979519834_ - (reverse _mixin-setf1979419821_))) - ((lambda (_L19838_) + (_loop1988919913_ + _lp-tl1989219930_ + __tmp49914)))) + (let ((_mixin-setf1989419933_ + (reverse _mixin-setf1989319920_))) + ((lambda (_L19937_) (let () - (let* ((_g1985519872_ - (lambda (_g1985619868_) + (let* ((_g1995419971_ + (lambda (_g1995519967_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1985619868_))) - (_g1985421279_ - (lambda (_g1985619876_) + _g1995519967_))) + (_g1995321456_ + (lambda (_g1995519975_) (if (gx#stx-pair/null? - _g1985619876_) - (let ((_g49453_ + _g1995519975_) + (let ((_g49657_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _g1985619876_ '0))) + (gx#syntax-split-splice _g1995519975_ '0))) (begin - (let ((_g49454_ + (let ((_g49658_ (let () (declare (not safe)) - (if (##values? _g49453_) - (##vector-length _g49453_) + (if (##values? _g49657_) + (##vector-length _g49657_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49454_ 2))) - (error "Context expects 2 values" _g49454_))) - (let ((_target1985819879_ + (##fx= _g49658_ 2))) + (error "Context expects 2 values" _g49658_))) + (let ((_target1995719978_ (let () (declare (not safe)) - (##vector-ref _g49453_ 0))) - (_tl1986019882_ + (##vector-ref _g49657_ 0))) + (_tl1995919981_ (let () (declare (not safe)) - (##vector-ref _g49453_ 1)))) - (if (gx#stx-null? _tl1986019882_) - (letrec ((_loop1986119885_ - (lambda (_hd1985919889_ - _ugetf1986519892_) - (if (gx#stx-pair? _hd1985919889_) - (let ((_e1986219895_ + (##vector-ref _g49657_ 1)))) + (if (gx#stx-null? _tl1995919981_) + (letrec ((_loop1996019984_ + (lambda (_hd1995819988_ + _ugetf1996419991_) + (if (gx#stx-pair? _hd1995819988_) + (let ((_e1996119994_ (gx#syntax-e - _hd1985919889_))) - (let ((_lp-hd1986319899_ + _hd1995819988_))) + (let ((_lp-hd1996219998_ (let () (declare (not safe)) - (##car _e1986219895_))) - (_lp-tl1986419902_ + (##car _e1996119994_))) + (_lp-tl1996320001_ (let () (declare (not safe)) - (##cdr _e1986219895_)))) - (let ((__tmp49700 + (##cdr _e1996119994_)))) + (let ((__tmp49911 (let () (declare (not safe)) - (cons _lp-hd1986319899_ + (cons _lp-hd1996219998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ugetf1986519892_)))) + _ugetf1996419991_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_loop1986119885_ - _lp-tl1986419902_ - __tmp49700)))) - (let ((_ugetf1986619905_ - (reverse _ugetf1986519892_))) - ((lambda (_L19909_) + (_loop1996019984_ + _lp-tl1996320001_ + __tmp49911)))) + (let ((_ugetf1996520004_ + (reverse _ugetf1996419991_))) + ((lambda (_L20008_) (let () - (let* ((_g1992619943_ - (lambda (_g1992719939_) + (let* ((_g2002520042_ + (lambda (_g2002620038_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g1992719939_))) - (_g1992521262_ - (lambda (_g1992719947_) - (if (gx#stx-pair/null? _g1992719947_) - (let ((_g49455_ - (gx#syntax-split-splice _g1992719947_ '0))) + _g2002620038_))) + (_g2002421439_ + (lambda (_g2002620046_) + (if (gx#stx-pair/null? _g2002620046_) + (let ((_g49659_ + (gx#syntax-split-splice _g2002620046_ '0))) (begin - (let ((_g49456_ + (let ((_g49660_ (let () (declare (not safe)) - (if (##values? _g49455_) - (##vector-length _g49455_) + (if (##values? _g49659_) + (##vector-length _g49659_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49456_ 2))) + (##fx= _g49660_ 2))) (error "Context expects 2 values" - _g49456_))) - (let ((_target1992919950_ + _g49660_))) + (let ((_target2002820049_ (let () (declare (not safe)) - (##vector-ref _g49455_ 0))) - (_tl1993119953_ + (##vector-ref _g49659_ 0))) + (_tl2003020052_ (let () (declare (not safe)) - (##vector-ref _g49455_ 1)))) - (if (gx#stx-null? _tl1993119953_) - (letrec ((_loop1993219956_ - (lambda (_hd1993019960_ - _usetf1993619963_) + (##vector-ref _g49659_ 1)))) + (if (gx#stx-null? _tl2003020052_) + (letrec ((_loop2003120055_ + (lambda (_hd2002920059_ + _usetf2003520062_) (if (gx#stx-pair? - _hd1993019960_) - (let ((_e1993319966_ + _hd2002920059_) + (let ((_e2003220065_ (gx#syntax-e - _hd1993019960_))) - (let ((_lp-hd1993419970_ + _hd2002920059_))) + (let ((_lp-hd2003320069_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e1993319966_))) - (_lp-tl1993519973_ - (let () (declare (not safe)) (##cdr _e1993319966_)))) - (let ((__tmp49697 + (##car _e2003220065_))) + (_lp-tl2003420072_ + (let () (declare (not safe)) (##cdr _e2003220065_)))) + (let ((__tmp49908 (let () (declare (not safe)) - (cons _lp-hd1993419970_ _usetf1993619963_)))) + (cons _lp-hd2003320069_ _usetf2003520062_)))) (declare (not safe)) - (_loop1993219956_ _lp-tl1993519973_ __tmp49697)))) - (let ((_usetf1993719976_ (reverse _usetf1993619963_))) - ((lambda (_L19980_) + (_loop2003120055_ _lp-tl2003420072_ __tmp49908)))) + (let ((_usetf2003620075_ (reverse _usetf2003520062_))) + ((lambda (_L20079_) (let () - (let* ((_g1999720014_ - (lambda (_g1999820010_) + (let* ((_g2009620113_ + (lambda (_g2009720109_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g1999820010_))) - (_g1999621245_ - (lambda (_g1999820018_) - (if (gx#stx-pair/null? _g1999820018_) - (let ((_g49457_ + _g2009720109_))) + (_g2009521422_ + (lambda (_g2009720117_) + (if (gx#stx-pair/null? _g2009720117_) + (let ((_g49661_ (gx#syntax-split-splice - _g1999820018_ + _g2009720117_ '0))) (begin - (let ((_g49458_ + (let ((_g49662_ (let () (declare (not safe)) - (if (##values? _g49457_) - (##vector-length _g49457_) + (if (##values? _g49661_) + (##vector-length _g49661_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49458_ 2))) + (##fx= _g49662_ 2))) (error "Context expects 2 values" - _g49458_))) - (let ((_target2000020021_ + _g49662_))) + (let ((_target2009920120_ (let () (declare (not safe)) - (##vector-ref _g49457_ 0))) - (_tl2000220024_ + (##vector-ref _g49661_ 0))) + (_tl2010120123_ (let () (declare (not safe)) - (##vector-ref _g49457_ 1)))) - (if (gx#stx-null? _tl2000220024_) - (letrec ((_loop2000320027_ - (lambda (_hd2000120031_ - _mixin-ugetf2000720034_) + (##vector-ref _g49661_ 1)))) + (if (gx#stx-null? _tl2010120123_) + (letrec ((_loop2010220126_ + (lambda (_hd2010020130_ + _mixin-ugetf2010620133_) (if (gx#stx-pair? - _hd2000120031_) - (let ((_e2000420037_ + _hd2010020130_) + (let ((_e2010320136_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd2000120031_))) - (let ((_lp-hd2000520041_ + (gx#syntax-e _hd2010020130_))) + (let ((_lp-hd2010420140_ (let () (declare (not safe)) - (##car _e2000420037_))) - (_lp-tl2000620044_ + (##car _e2010320136_))) + (_lp-tl2010520143_ (let () (declare (not safe)) - (##cdr _e2000420037_)))) - (let ((__tmp49694 + (##cdr _e2010320136_)))) + (let ((__tmp49905 (let () (declare (not safe)) - (cons _lp-hd2000520041_ - _mixin-ugetf2000720034_)))) + (cons _lp-hd2010420140_ + _mixin-ugetf2010620133_)))) (declare (not safe)) - (_loop2000320027_ _lp-tl2000620044_ __tmp49694)))) - (let ((_mixin-ugetf2000820047_ - (reverse _mixin-ugetf2000720034_))) - ((lambda (_L20051_) + (_loop2010220126_ _lp-tl2010520143_ __tmp49905)))) + (let ((_mixin-ugetf2010720146_ + (reverse _mixin-ugetf2010620133_))) + ((lambda (_L20150_) (let () - (let* ((_g2006820085_ - (lambda (_g2006920081_) + (let* ((_g2016720184_ + (lambda (_g2016820180_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2006920081_))) - (_g2006721228_ - (lambda (_g2006920089_) - (if (gx#stx-pair/null? _g2006920089_) - (let ((_g49459_ + _g2016820180_))) + (_g2016621405_ + (lambda (_g2016820188_) + (if (gx#stx-pair/null? _g2016820188_) + (let ((_g49663_ (gx#syntax-split-splice - _g2006920089_ + _g2016820188_ '0))) (begin - (let ((_g49460_ + (let ((_g49664_ (let () (declare (not safe)) - (if (##values? _g49459_) + (if (##values? _g49663_) (##vector-length - _g49459_) + _g49663_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49460_ 2))) + (##fx= _g49664_ 2))) (error "Context expects 2 values" - _g49460_))) - (let ((_target2007120092_ + _g49664_))) + (let ((_target2017020191_ (let () (declare (not safe)) (##vector-ref - _g49459_ + _g49663_ 0))) - (_tl2007320095_ + (_tl2017220194_ (let () (declare (not safe)) (##vector-ref - _g49459_ + _g49663_ 1)))) (if (gx#stx-null? - _tl2007320095_) - (letrec ((_loop2007420098_ - (lambda (_hd2007220102_ + _tl2017220194_) + (letrec ((_loop2017320197_ + (lambda (_hd2017120201_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _mixin-usetf2007820105_) - (if (gx#stx-pair? _hd2007220102_) - (let ((_e2007520108_ (gx#syntax-e _hd2007220102_))) - (let ((_lp-hd2007620112_ + _mixin-usetf2017720204_) + (if (gx#stx-pair? _hd2017120201_) + (let ((_e2017420207_ (gx#syntax-e _hd2017120201_))) + (let ((_lp-hd2017520211_ (let () (declare (not safe)) - (##car _e2007520108_))) - (_lp-tl2007720115_ + (##car _e2017420207_))) + (_lp-tl2017620214_ (let () (declare (not safe)) - (##cdr _e2007520108_)))) - (let ((__tmp49691 + (##cdr _e2017420207_)))) + (let ((__tmp49902 (let () (declare (not safe)) - (cons _lp-hd2007620112_ - _mixin-usetf2007820105_)))) + (cons _lp-hd2017520211_ + _mixin-usetf2017720204_)))) (declare (not safe)) - (_loop2007420098_ - _lp-tl2007720115_ - __tmp49691)))) - (let ((_mixin-usetf2007920118_ - (reverse _mixin-usetf2007820105_))) - ((lambda (_L20122_) + (_loop2017320197_ + _lp-tl2017620214_ + __tmp49902)))) + (let ((_mixin-usetf2017820217_ + (reverse _mixin-usetf2017720204_))) + ((lambda (_L20221_) (let () - (let* ((_type-slots20153_ - (if (gx#stx-null? _slots19264_) + (let* ((_type-slots20252_ + (if (gx#stx-null? _slots19363_) '() - (let ((__tmp49461 - (let ((__tmp49462 + (let ((__tmp49665 + (let ((__tmp49666 (begin (gx#syntax-check-splice-targets - _L19621_ - _L19550_ - _L19479_) - (let ((__tmp49463 + _L19720_ + _L19649_ + _L19578_) + (let ((__tmp49667 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2013820143_ - _g2013920146_ - _g2014020148_ - _g2014120150_) - (let ((__tmp49464 - (let ((__tmp49465 - (let ((__tmp49466 + (lambda (_g2023720242_ + _g2023820245_ + _g2023920247_ + _g2024020249_) + (let ((__tmp49668 + (let ((__tmp49669 + (let ((__tmp49670 (let () (declare (not safe)) - (cons _g2013820143_ + (cons _g2023720242_ '())))) (declare (not safe)) - (cons _g2013920146_ - __tmp49466)))) + (cons _g2023820245_ + __tmp49670)))) (declare (not safe)) - (cons _g2014020148_ __tmp49465)))) + (cons _g2023920247_ __tmp49669)))) (declare (not safe)) - (cons __tmp49464 _g2014120150_))))) + (cons __tmp49668 _g2024020249_))))) (declare (not safe)) - (foldr* __tmp49463 '() _L19621_ _L19550_ _L19479_))))) + (foldr* __tmp49667 '() _L19720_ _L19649_ _L19578_))))) (declare (not safe)) - (cons __tmp49462 '())))) + (cons __tmp49666 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'slots: __tmp49461)))) - (_type-mixin-slots20170_ + (cons 'slots: __tmp49665)))) + (_type-mixin-slots20269_ (if (gx#stx-null? - _mixin-slots19638_) + _mixin-slots19737_) '() - (let ((__tmp49467 - (let ((__tmp49468 + (let ((__tmp49671 + (let ((__tmp49672 (begin (gx#syntax-check-splice-targets - _L19838_ - _L19767_ - _L19695_) - (let ((__tmp49469 + _L19937_ + _L19866_ + _L19794_) + (let ((__tmp49673 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2015520160_ - _g2015620163_ - _g2015720165_ - _g2015820167_) - (let ((__tmp49470 - (let ((__tmp49471 - (let ((__tmp49472 + (lambda (_g2025420259_ + _g2025520262_ + _g2025620264_ + _g2025720266_) + (let ((__tmp49674 + (let ((__tmp49675 + (let ((__tmp49676 (let () (declare (not safe)) - (cons _g2015520160_ + (cons _g2025420259_ '())))) (declare (not safe)) - (cons _g2015620163_ - __tmp49472)))) + (cons _g2025520262_ + __tmp49676)))) (declare (not safe)) - (cons _g2015720165_ __tmp49471)))) + (cons _g2025620264_ __tmp49675)))) (declare (not safe)) - (cons __tmp49470 _g2015820167_))))) + (cons __tmp49674 _g2025720266_))))) (declare (not safe)) - (foldr* __tmp49469 '() _L19838_ _L19767_ _L19695_))))) + (foldr* __tmp49673 '() _L19937_ _L19866_ _L19794_))))) (declare (not safe)) - (cons __tmp49468 '())))) + (cons __tmp49672 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'mixin: __tmp49467)))) - (_type-name20177_ - (let ((__tmp49473 - (let ((__tmp49474 - (let ((_$e20173_ + (cons 'mixin: __tmp49671)))) + (_type-name20276_ + (let ((__tmp49677 + (let ((__tmp49678 + (let ((_$e20272_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'name: - _body19265_))) - (if _$e20173_ _$e20173_ _id19262_)))) + _body19364_))) + (if _$e20272_ _$e20272_ _id19361_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49474 '())))) + (cons __tmp49678 '())))) (declare (not safe)) - (cons 'name: __tmp49473))) - (_type-id20184_ - (let ((__tmp49475 - (let ((__tmp49476 - (let ((_$e20180_ + (cons 'name: __tmp49677))) + (_type-id20283_ + (let ((__tmp49679 + (let ((__tmp49680 + (let ((_$e20279_ (gx#stx-getq ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'id: - _body19265_))) - (if _$e20180_ - _$e20180_ + _body19364_))) + (if _$e20279_ + _$e20279_ (let () (declare (not safe)) (|gerbil/core$$[1]#make-class-type-id| - _L19297_)))))) + _L19396_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49476 '())))) + (cons __tmp49680 '())))) (declare (not safe)) - (cons 'id: __tmp49475))) - (_type-constructor20199_ - (let ((_$e20195_ - (let ((_e2018620188_ + (cons 'id: __tmp49679))) + (_type-constructor20298_ + (let ((_$e20294_ + (let ((_e2028520287_ (gx#stx-getq 'constructor: - _body19265_))) - (if _e2018620188_ - (let* ((_e20192_ - _e2018620188_) - (__tmp49477 + _body19364_))) + (if _e2028520287_ + (let* ((_e20291_ + _e2028520287_) + (__tmp49681 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _e20192_ '())))) + (cons _e20291_ '())))) (declare (not safe)) - (cons 'constructor: __tmp49477)) + (cons 'constructor: __tmp49681)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _$e20195_ _$e20195_ '()))) - (_properties20233_ - (let* ((_properties20202_ + (if _$e20294_ _$e20294_ '()))) + (_properties20332_ + (let* ((_properties20301_ (if (gx#stx-e (gx#stx-getq 'transparent: - _body19265_)) - (let ((__tmp49478 + _body19364_)) + (let ((__tmp49682 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (cons 'transparent: '#t)))) (declare (not safe)) - (cons __tmp49478 '())) + (cons __tmp49682 '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_properties20215_ - (let ((_$e20205_ + (_properties20314_ + (let ((_$e20304_ (gx#stx-e (gx#stx-getq 'print: - _body19265_)))) - (if _$e20205_ - ((lambda (_print20209_) - (let* ((_print20212_ + _body19364_)))) + (if _$e20304_ + ((lambda (_print20308_) + (let* ((_print20311_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (eq? _print20209_ '#t)) - _slots19264_ - _print20209_)) - (__tmp49479 + (eq? _print20308_ '#t)) + _slots19363_ + _print20308_)) + (__tmp49683 (let () (declare (not safe)) - (cons 'print: _print20212_)))) + (cons 'print: _print20311_)))) (declare (not safe)) - (cons __tmp49479 _properties20202_))) - _$e20205_) - _properties20202_))) + (cons __tmp49683 _properties20301_))) + _$e20304_) + _properties20301_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_properties20228_ - (let ((_$e20218_ + (_properties20327_ + (let ((_$e20317_ (gx#stx-e (gx#stx-getq 'equal: - _body19265_)))) - (if _$e20218_ - ((lambda (_equal20222_) - (let* ((_equal20225_ + _body19364_)))) + (if _$e20317_ + ((lambda (_equal20321_) + (let* ((_equal20324_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (if (let () (declare (not safe)) - (eq? _equal20222_ '#t)) - _slots19264_ - _equal20222_)) - (__tmp49480 + (eq? _equal20321_ '#t)) + _slots19363_ + _equal20321_)) + (__tmp49684 (let () (declare (not safe)) - (cons 'equal: _equal20225_)))) + (cons 'equal: _equal20324_)))) (declare (not safe)) - (cons __tmp49480 _properties20215_))) - _$e20218_) - _properties20215_)))) + (cons __tmp49684 _properties20314_))) + _$e20317_) + _properties20314_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _properties20228_)) - (_type-properties20274_ + _properties20327_)) + (_type-properties20373_ (if (let () (declare (not safe)) - (null? _properties20233_)) + (null? _properties20332_)) '() - (let* ((_g2023620244_ - (lambda (_g2023720240_) + (let* ((_g2033520343_ + (lambda (_g2033620339_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2023720240_))) - (_g2023520270_ - (lambda (_g2023720248_) - ((lambda (_L20251_) + _g2033620339_))) + (_g2033420369_ + (lambda (_g2033620347_) + ((lambda (_L20350_) (let () - (let ((__tmp49481 + (let ((__tmp49685 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49482 - (let ((__tmp49484 + (let ((__tmp49686 + (let ((__tmp49688 (gx#datum->syntax '#f 'quote)) - (__tmp49483 + (__tmp49687 (let () (declare (not safe)) - (cons _L20251_ '())))) + (cons _L20350_ '())))) (declare (not safe)) - (cons __tmp49484 __tmp49483)))) + (cons __tmp49688 __tmp49687)))) (declare (not safe)) - (cons __tmp49482 '())))) + (cons __tmp49686 '())))) (declare (not safe)) - (cons 'properties: __tmp49481)))) - _g2023720248_)))) + (cons 'properties: __tmp49685)))) + _g2033620347_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2023520270_ - _properties20233_)))) - (_final?20277_ + (_g2033420369_ + _properties20332_)))) + (_metaclass20383_ + (let ((_$e20376_ + (gx#stx-getq + 'metaclass: + _body19364_))) + (if _$e20376_ + ((lambda (_metaclass20380_) + (if (gx#identifier? + _metaclass20380_) + _metaclass20380_ + '#f)) + _$e20376_) + '#f))) + (_type-metaclass20386_ + (if _metaclass20383_ + (let ((__tmp49689 + (let () + (declare (not safe)) + (cons _metaclass20383_ + '())))) + (declare (not safe)) + (cons 'metaclass: __tmp49689)) + '())) + (_final?20389_ (gx#stx-e - (gx#stx-getq 'final: _body19265_))) - (_type-struct20280_ - (let ((__tmp49485 + (gx#stx-getq 'final: _body19364_))) + (_type-struct20392_ + (let ((__tmp49690 (let () (declare (not safe)) - (cons _struct?19279_ + (cons _struct?19378_ '())))) (declare (not safe)) - (cons 'struct: __tmp49485))) - (_type-final20283_ - (let ((__tmp49486 + (cons 'struct: __tmp49690))) + (_type-final20395_ + (let ((__tmp49691 (let () (declare (not safe)) - (cons _final?20277_ '())))) + (cons _final?20389_ '())))) (declare (not safe)) - (cons 'final: __tmp49486))) - (_g2028620303_ - (lambda (_g2028720299_) + (cons 'final: __tmp49691))) + (_g2039820415_ + (lambda (_g2039920411_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2028720299_))) - (_g2028521224_ - (lambda (_g2028720307_) + _g2039920411_))) + (_g2039721401_ + (lambda (_g2039920419_) (if (gx#stx-pair/null? - _g2028720307_) - (let ((_g49487_ + _g2039920419_) + (let ((_g49692_ (gx#syntax-split-splice - _g2028720307_ + _g2039920419_ '0))) (begin - (let ((_g49488_ + (let ((_g49693_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g49487_) - (##vector-length _g49487_) + _g49692_) + (##vector-length _g49692_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g49488_ 2))) - (error "Context expects 2 values" _g49488_))) + (if (not (let () (declare (not safe)) (##fx= _g49693_ 2))) + (error "Context expects 2 values" _g49693_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target2028920310_ + (let ((_target2040120422_ (let () (declare (not safe)) (##vector-ref - _g49487_ + _g49692_ 0))) - (_tl2029120313_ + (_tl2040320425_ (let () (declare (not safe)) (##vector-ref - _g49487_ + _g49692_ 1)))) (if (gx#stx-null? - _tl2029120313_) - (letrec ((_loop2029220316_ + _tl2040320425_) + (letrec ((_loop2040420428_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd2029020320_ _type-body2029620323_) - (if (gx#stx-pair? _hd2029020320_) - (let ((_e2029320326_ - (gx#syntax-e _hd2029020320_))) - (let ((_lp-hd2029420330_ + (lambda (_hd2040220432_ _type-body2040820435_) + (if (gx#stx-pair? _hd2040220432_) + (let ((_e2040520438_ + (gx#syntax-e _hd2040220432_))) + (let ((_lp-hd2040620442_ (let () (declare (not safe)) - (##car _e2029320326_))) - (_lp-tl2029520333_ + (##car _e2040520438_))) + (_lp-tl2040720445_ (let () (declare (not safe)) - (##cdr _e2029320326_)))) - (let ((__tmp49683 + (##cdr _e2040520438_)))) + (let ((__tmp49893 (let () (declare (not safe)) - (cons _lp-hd2029420330_ - _type-body2029620323_)))) + (cons _lp-hd2040620442_ + _type-body2040820435_)))) (declare (not safe)) - (_loop2029220316_ - _lp-tl2029520333_ - __tmp49683)))) - (let ((_type-body2029720336_ - (reverse _type-body2029620323_))) - ((lambda (_L20340_) + (_loop2040420428_ + _lp-tl2040720445_ + __tmp49893)))) + (let ((_type-body2040920448_ + (reverse _type-body2040820435_))) + ((lambda (_L20452_) (let () - (let* ((_g2035920367_ - (lambda (_g2036020363_) + (let* ((_g2047320481_ + (lambda (_g2047420477_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2036020363_))) - (_g2035821212_ - (lambda (_g2036020371_) - ((lambda (_L20374_) + _g2047420477_))) + (_g2047221389_ + (lambda (_g2047420485_) + ((lambda (_L20488_) (let () - (let* ((_g2038720395_ + (let* ((_g2050120509_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2038820391_) + (lambda (_g2050220505_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2038820391_))) - (_g2038621141_ - (lambda (_g2038820399_) - ((lambda (_L20402_) + _g2050220505_))) + (_g2050021318_ + (lambda (_g2050220513_) + ((lambda (_L20516_) (let () - (let* ((_g2041520423_ - (lambda (_g2041620419_) + (let* ((_g2052920537_ + (lambda (_g2053020533_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2041620419_))) - (_g2041421106_ - (lambda (_g2041620427_) - ((lambda (_L20430_) + _g2053020533_))) + (_g2052821283_ + (lambda (_g2053020541_) + ((lambda (_L20544_) (let () - (let* ((_g2044320451_ - (lambda (_g2044420447_) + (let* ((_g2055720565_ + (lambda (_g2055820561_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2044420447_))) - (_g2044221020_ - (lambda (_g2044420455_) - ((lambda (_L20458_) + _g2055820561_))) + (_g2055621197_ + (lambda (_g2055820569_) + ((lambda (_L20572_) (let () - (let* ((_g2047120479_ + (let* ((_g2058520593_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2047220475_) + (lambda (_g2058620589_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2047220475_))) - (_g2047021008_ - (lambda (_g2047220483_) - ((lambda (_L20486_) + _g2058620589_))) + (_g2058421185_ + (lambda (_g2058620597_) + ((lambda (_L20600_) (let () - (let* ((_g2049920507_ - (lambda (_g2050020503_) + (let* ((_g2061320621_ + (lambda (_g2061420617_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2050020503_))) - (_g2049821004_ - (lambda (_g2050020511_) - ((lambda (_L20514_) + _g2061420617_))) + (_g2061221181_ + (lambda (_g2061420625_) + ((lambda (_L20628_) (let () - (let* ((_g2052720535_ - (lambda (_g2052820531_) + (let* ((_g2064120649_ + (lambda (_g2064220645_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2052820531_))) - (_g2052621000_ - (lambda (_g2052820539_) - ((lambda (_L20542_) + _g2064220645_))) + (_g2064021177_ + (lambda (_g2064220653_) + ((lambda (_L20656_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2055520563_ - (lambda (_g2055620559_) + (let* ((_g2066920677_ + (lambda (_g2067020673_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2055620559_))) - (_g2055420929_ - (lambda (_g2055620567_) - ((lambda (_L20570_) + _g2067020673_))) + (_g2066821142_ + (lambda (_g2067020681_) + ((lambda (_L20684_) (let () - (let* ((_g2058320591_ - (lambda (_g2058420587_) + (let* ((_g2069720705_ + (lambda (_g2069820701_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2058420587_))) - (_g2058220925_ - (lambda (_g2058420595_) - ((lambda (_L20598_) + _g2069820701_))) + (_g2069621071_ + (lambda (_g2069820709_) + ((lambda (_L20712_) (let () - (let* ((_g2061120619_ + (let* ((_g2072520733_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2061220615_) + (lambda (_g2072620729_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2061220615_))) - (_g2061020921_ - (lambda (_g2061220623_) - ((lambda (_L20626_) + _g2072620729_))) + (_g2072421067_ + (lambda (_g2072620737_) + ((lambda (_L20740_) (let () - (let* ((_g2063920647_ - (lambda (_g2064020643_) + (let* ((_g2075320761_ + (lambda (_g2075420757_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2064020643_))) - (_g2063820917_ - (lambda (_g2064020651_) - ((lambda (_L20654_) + _g2075420757_))) + (_g2075221063_ + (lambda (_g2075420765_) + ((lambda (_L20768_) (let () - (let* ((_g2066720675_ - (lambda (_g2066820671_) + (let* ((_g2078120789_ + (lambda (_g2078220785_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2066820671_))) - (_g2066620891_ - (lambda (_g2066820679_) - ((lambda (_L20682_) + _g2078220785_))) + (_g2078021059_ + (lambda (_g2078220793_) + ((lambda (_L20796_) (let () - (let* ((_g2069520703_ + (let* ((_g2080920817_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2069620699_) + (lambda (_g2081020813_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2069620699_))) - (_g2069420865_ - (lambda (_g2069620707_) - ((lambda (_L20710_) + _g2081020813_))) + (_g2080821033_ + (lambda (_g2081020821_) + ((lambda (_L20824_) (let () - (let* ((_g2072320731_ - (lambda (_g2072420727_) + (let* ((_g2083720845_ + (lambda (_g2083820841_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2072420727_))) - (_g2072220839_ - (lambda (_g2072420735_) - ((lambda (_L20738_) + _g2083820841_))) + (_g2083621007_ + (lambda (_g2083820849_) + ((lambda (_L20852_) (let () - (let* ((_g2075120759_ - (lambda (_g2075220755_) + (let* ((_g2086520873_ + (lambda (_g2086620869_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2075220755_))) - (_g2075020813_ - (lambda (_g2075220763_) - ((lambda (_L20766_) + _g2086620869_))) + (_g2086420981_ + (lambda (_g2086620877_) + ((lambda (_L20880_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2077920787_ - (lambda (_g2078020783_) + (let* ((_g2089320901_ + (lambda (_g2089420897_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2078020783_))) - (_g2077820809_ - (lambda (_g2078020791_) - ((lambda (_L20794_) + _g2089420897_))) + (_g2089220955_ + (lambda (_g2089420905_) + ((lambda (_L20908_) (let () - (let () - (let ((__tmp49489 - (let ((__tmp49492 - (gx#datum->syntax - '#f - 'begin)) - (__tmp49490 - (let ((__tmp49491 + (let* ((_g2092120929_ + (lambda (_g2092220925_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g2092220925_))) + (_g2092020951_ + (lambda (_g2092220933_) + ((lambda (_L20936_) + (let () + (let () + (let ((__tmp49694 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L20794_ '())))) - (declare (not safe)) - (cons _L20374_ __tmp49491)))) + (let ((__tmp49697 (gx#datum->syntax '#f 'begin)) + (__tmp49695 + (let ((__tmp49696 + (let () + (declare (not safe)) + (cons _L20936_ '())))) + (declare (not safe)) + (cons _L20488_ __tmp49696)))) + (declare (not safe)) + (cons __tmp49697 __tmp49695)))) + (declare (not safe)) + (_wrap19366_ __tmp49694))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49492 - __tmp49490)))) - (declare (not safe)) - (_wrap19267_ __tmp49489))))) - _g2078020791_))) - (__tmp49493 - (let ((__tmp49494 - (let ((__tmp49527 - (gx#datum->syntax - '#f - 'defsyntax)) - (__tmp49495 - (let ((__tmp49496 - (let ((__tmp49497 - (let ((__tmp49526 + _g2092220933_))) + (__tmp49698 + (let ((__tmp49699 + (let ((__tmp49734 + (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'make-class-type-info)) - (__tmp49498 - (let ((__tmp49499 - (let ((__tmp49500 - (let ((__tmp49501 - (let ((__tmp49502 - (let ((__tmp49503 + '#f + 'defsyntax)) + (__tmp49700 + (let ((__tmp49701 + (let ((__tmp49702 + (let ((__tmp49733 + (gx#datum->syntax + '#f + 'make-class-type-info)) + (__tmp49703 + (let ((__tmp49704 + (let ((__tmp49705 + (let ((__tmp49706 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49504 - (let ((__tmp49505 - (let ((__tmp49506 - (let ((__tmp49507 - (let ((__tmp49508 - (let ((__tmp49509 + (let ((__tmp49707 + (let ((__tmp49708 + (let ((__tmp49709 + (let ((__tmp49710 + (let ((__tmp49711 + (let ((__tmp49712 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49510 - (let ((__tmp49511 - (let ((__tmp49512 - (let ((__tmp49513 - (let ((__tmp49514 - (let ((__tmp49515 + (let ((__tmp49713 + (let ((__tmp49714 + (let ((__tmp49715 + (let ((__tmp49716 + (let ((__tmp49717 + (let ((__tmp49718 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49516 - (let ((__tmp49517 - (let ((__tmp49518 - (let ((__tmp49519 - (let ((__tmp49520 - (let ((__tmp49521 + (let ((__tmp49719 + (let ((__tmp49720 + (let ((__tmp49721 + (let ((__tmp49722 + (let ((__tmp49723 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49522 - (let ((__tmp49523 - (let ((__tmp49524 - (let ((__tmp49525 - (let () - (declare - (not safe)) - (cons _L20766_ + (let ((__tmp49724 + (let ((__tmp49725 + (let ((__tmp49726 + (let ((__tmp49727 + (let ((__tmp49728 + (let ((__tmp49729 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) - (declare (not safe)) - (cons 'unchecked-mutators: __tmp49525)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons _L20738_ __tmp49524)))) - (declare (not safe)) - (cons 'unchecked-accessors: - __tmp49523)))) - (declare (not safe)) - (cons _L20710_ __tmp49522)))) - (declare (not safe)) - (cons 'mutators: __tmp49521)))) - (declare (not safe)) - (cons _L20682_ __tmp49520)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons 'accessors: - __tmp49519)))) - (declare (not safe)) - (cons _L20654_ __tmp49518)))) - (declare (not safe)) - (cons 'predicate: __tmp49517)))) - (declare (not safe)) - (cons _L20626_ __tmp49516)))) - (declare (not safe)) - (cons 'constructor: __tmp49515)))) - (declare (not safe)) - (cons _L20598_ __tmp49514)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((__tmp49730 + (let ((__tmp49731 + (let ((__tmp49732 + (let () (declare (not safe)) - (cons 'type-descriptor: - __tmp49513)))) + (cons _L20908_ '())))) (declare (not safe)) - (cons _L20570_ __tmp49512)))) + (cons 'unchecked-mutators: + __tmp49732)))) (declare (not safe)) - (cons 'constructor-method: __tmp49511)))) + (cons _L20880_ __tmp49731)))) (declare (not safe)) - (cons _L20542_ __tmp49510)))) + (cons 'unchecked-accessors: __tmp49730)))) (declare (not safe)) - (cons 'final?: __tmp49509)))) + (cons _L20852_ __tmp49729)))) (declare (not safe)) - (cons _L20514_ __tmp49508)))) + (cons 'mutators: __tmp49728)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'struct?: __tmp49507)))) + (cons _L20824_ __tmp49727)))) (declare (not safe)) - (cons _L20458_ __tmp49506)))) + (cons 'accessors: __tmp49726)))) (declare (not safe)) - (cons 'super: __tmp49505)))) + (cons _L20796_ __tmp49725)))) (declare (not safe)) - (cons _L20486_ __tmp49504)))) + (cons 'predicate: __tmp49724)))) (declare (not safe)) - (cons 'slots: __tmp49503)))) + (cons _L20768_ __tmp49723)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L20430_ - __tmp49502)))) + (cons 'constructor: + __tmp49722)))) (declare (not safe)) - (cons 'name: __tmp49501)))) + (cons _L20740_ __tmp49721)))) (declare (not safe)) - (cons _L20402_ __tmp49500)))) + (cons 'type-descriptor: __tmp49720)))) (declare (not safe)) - (cons 'id: __tmp49499)))) + (cons _L20712_ __tmp49719)))) (declare (not safe)) - (cons __tmp49526 __tmp49498)))) + (cons 'constructor-method: __tmp49718)))) (declare (not safe)) - (cons __tmp49497 '())))) + (cons _L20684_ __tmp49717)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19297_ - __tmp49496)))) + (cons 'metaclass: + __tmp49716)))) (declare (not safe)) - (cons __tmp49527 __tmp49495)))) + (cons _L20656_ __tmp49715)))) (declare (not safe)) - (_wrap19267_ __tmp49494)))) + (cons 'final?: __tmp49714)))) + (declare (not safe)) + (cons _L20628_ __tmp49713)))) + (declare (not safe)) + (cons 'struct?: __tmp49712)))) + (declare (not safe)) + (cons _L20572_ __tmp49711)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'super: __tmp49710)))) + (declare (not safe)) + (cons _L20600_ __tmp49709)))) + (declare (not safe)) + (cons 'slots: __tmp49708)))) + (declare (not safe)) + (cons _L20544_ __tmp49707)))) + (declare (not safe)) + (cons 'name: __tmp49706)))) + (declare (not safe)) + (cons _L20516_ __tmp49705)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons 'id: __tmp49704)))) + (declare (not safe)) + (cons __tmp49733 __tmp49703)))) + (declare (not safe)) + (cons __tmp49702 '())))) + (declare (not safe)) + (cons _L19396_ __tmp49701)))) + (declare (not safe)) + (cons __tmp49734 __tmp49700)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_wrap19366_ __tmp49699)))) + (declare (not safe)) + (_g2092020951_ __tmp49698)))) + _g2089420905_))) + (__tmp49735 + (let ((__tmp49762 + (gx#datum->syntax '#f '@list)) + (__tmp49736 + (begin + (gx#syntax-check-splice-targets + _L20079_ + _L19578_) + (let ((__tmp49750 + (lambda (_g2095820965_ + _g2095920968_ + _g2096020970_) + (let ((__tmp49751 + (let ((__tmp49761 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '@list)) + (__tmp49752 + (let ((__tmp49758 + (let ((__tmp49760 + (gx#datum->syntax '#f 'quote)) + (__tmp49759 + (let () + (declare (not safe)) + (cons _g2095920968_ '())))) + (declare (not safe)) + (cons __tmp49760 __tmp49759))) + (__tmp49753 + (let ((__tmp49754 + (let ((__tmp49755 + (let ((__tmp49757 + (gx#datum->syntax + '#f + 'quote-syntax)) + (__tmp49756 + (let () + (declare (not safe)) + (cons _g2095820965_ + '())))) + (declare (not safe)) + (cons __tmp49757 + __tmp49756)))) + (declare (not safe)) + (cons __tmp49755 '())))) + (declare (not safe)) + (cons ':: __tmp49754)))) + (declare (not safe)) + (cons __tmp49758 __tmp49753)))) + (declare (not safe)) + (cons __tmp49761 __tmp49752)))) + (declare (not safe)) + (cons __tmp49751 _g2096020970_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp49737 + (begin + (gx#syntax-check-splice-targets + _L20221_ + _L19794_) + (let ((__tmp49738 + (lambda (_g2096120973_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _g2096220976_ + _g2096320978_) + (let ((__tmp49739 + (let ((__tmp49749 (gx#datum->syntax '#f '@list)) + (__tmp49740 + (let ((__tmp49746 + (let ((__tmp49748 + (gx#datum->syntax + '#f + 'quote)) + (__tmp49747 + (let () + (declare (not safe)) + (cons _g2096220976_ '())))) + (declare (not safe)) + (cons __tmp49748 __tmp49747))) + (__tmp49741 + (let ((__tmp49742 + (let ((__tmp49743 + (let ((__tmp49745 + (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote-syntax)) + (__tmp49744 + (let () + (declare (not safe)) + (cons _g2096120973_ '())))) + (declare (not safe)) + (cons __tmp49745 __tmp49744)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp49743 '())))) + (declare (not safe)) + (cons ':: __tmp49742)))) + (declare (not safe)) + (cons __tmp49746 __tmp49741)))) + (declare (not safe)) + (cons __tmp49749 __tmp49740)))) + (declare (not safe)) + (cons __tmp49739 _g2096320978_))))) + (declare (not safe)) + (foldr2 __tmp49738 '() _L20221_ _L19794_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (foldr2 __tmp49750 + __tmp49737 + _L20079_ + _L19578_))))) + (declare (not safe)) + (cons __tmp49762 __tmp49736)))) (declare (not safe)) - (_g2077820809_ __tmp49493)))) - _g2075220763_))) - (__tmp49528 - (let ((__tmp49555 (gx#datum->syntax '#f '@list)) - (__tmp49529 + (_g2089220955_ __tmp49735)))) + _g2086620877_))) + (__tmp49763 + (let ((__tmp49790 (gx#datum->syntax '#f '@list)) + (__tmp49764 (begin - (gx#syntax-check-splice-targets _L19980_ _L19479_) - (let ((__tmp49543 - (lambda (_g2081620823_ - _g2081720826_ - _g2081820828_) - (let ((__tmp49544 - (let ((__tmp49554 + (gx#syntax-check-splice-targets _L20008_ _L19578_) + (let ((__tmp49778 + (lambda (_g2098420991_ + _g2098520994_ + _g2098620996_) + (let ((__tmp49779 + (let ((__tmp49789 (gx#datum->syntax '#f '@list)) - (__tmp49545 - (let ((__tmp49551 - (let ((__tmp49553 + (__tmp49780 + (let ((__tmp49786 + (let ((__tmp49788 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp49552 + (__tmp49787 (let () (declare (not safe)) - (cons _g2081720826_ '())))) + (cons _g2098520994_ '())))) (declare (not safe)) - (cons __tmp49553 __tmp49552))) - (__tmp49546 - (let ((__tmp49547 - (let ((__tmp49548 - (let ((__tmp49550 + (cons __tmp49788 __tmp49787))) + (__tmp49781 + (let ((__tmp49782 + (let ((__tmp49783 + (let ((__tmp49785 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49549 + (__tmp49784 (let () (declare (not safe)) - (cons _g2081620823_ '())))) + (cons _g2098420991_ '())))) (declare (not safe)) - (cons __tmp49550 __tmp49549)))) + (cons __tmp49785 __tmp49784)))) (declare (not safe)) - (cons __tmp49548 '())))) + (cons __tmp49783 '())))) (declare (not safe)) - (cons ':: __tmp49547)))) + (cons ':: __tmp49782)))) (declare (not safe)) - (cons __tmp49551 __tmp49546)))) + (cons __tmp49786 __tmp49781)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49554 __tmp49545)))) + (cons __tmp49789 __tmp49780)))) (declare (not safe)) - (cons __tmp49544 _g2081820828_)))) - (__tmp49530 + (cons __tmp49779 _g2098620996_)))) + (__tmp49765 (begin (gx#syntax-check-splice-targets - _L20122_ - _L19695_) - (let ((__tmp49531 - (lambda (_g2081920831_ - _g2082020834_ - _g2082120836_) - (let ((__tmp49532 - (let ((__tmp49542 + _L20150_ + _L19794_) + (let ((__tmp49766 + (lambda (_g2098720999_ + _g2098821002_ + _g2098921004_) + (let ((__tmp49767 + (let ((__tmp49777 (gx#datum->syntax '#f '@list)) - (__tmp49533 - (let ((__tmp49539 + (__tmp49768 + (let ((__tmp49774 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49541 (gx#datum->syntax '#f 'quote)) - (__tmp49540 + (let ((__tmp49776 (gx#datum->syntax '#f 'quote)) + (__tmp49775 (let () (declare (not safe)) - (cons _g2082020834_ '())))) + (cons _g2098821002_ '())))) (declare (not safe)) - (cons __tmp49541 __tmp49540))) - (__tmp49534 - (let ((__tmp49535 - (let ((__tmp49536 - (let ((__tmp49538 + (cons __tmp49776 __tmp49775))) + (__tmp49769 + (let ((__tmp49770 + (let ((__tmp49771 + (let ((__tmp49773 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49537 + (__tmp49772 (let () (declare (not safe)) - (cons _g2081920831_ '())))) + (cons _g2098720999_ '())))) (declare (not safe)) - (cons __tmp49538 __tmp49537)))) + (cons __tmp49773 __tmp49772)))) (declare (not safe)) - (cons __tmp49536 '())))) + (cons __tmp49771 '())))) (declare (not safe)) - (cons ':: __tmp49535)))) + (cons ':: __tmp49770)))) (declare (not safe)) - (cons __tmp49539 __tmp49534)))) + (cons __tmp49774 __tmp49769)))) (declare (not safe)) - (cons __tmp49542 __tmp49533)))) + (cons __tmp49777 __tmp49768)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49532 - _g2082120836_))))) + (cons __tmp49767 + _g2098921004_))))) (declare (not safe)) - (foldr2 __tmp49531 + (foldr2 __tmp49766 '() - _L20122_ - _L19695_))))) + _L20150_ + _L19794_))))) (declare (not safe)) - (foldr2 __tmp49543 - __tmp49530 - _L19980_ - _L19479_))))) + (foldr2 __tmp49778 + __tmp49765 + _L20008_ + _L19578_))))) (declare (not safe)) - (cons __tmp49555 __tmp49529)))) + (cons __tmp49790 __tmp49764)))) (declare (not safe)) - (_g2075020813_ __tmp49528)))) + (_g2086420981_ __tmp49763)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2072420735_))) - (__tmp49556 - (let ((__tmp49583 + _g2083820849_))) + (__tmp49791 + (let ((__tmp49818 (gx#datum->syntax '#f '@list)) - (__tmp49557 + (__tmp49792 (begin (gx#syntax-check-splice-targets - _L19909_ - _L19479_) - (let ((__tmp49571 - (lambda (_g2084220849_ + _L19720_ + _L19578_) + (let ((__tmp49806 + (lambda (_g2101021017_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2084320852_ - _g2084420854_) - (let ((__tmp49572 - (let ((__tmp49582 (gx#datum->syntax '#f '@list)) - (__tmp49573 - (let ((__tmp49579 - (let ((__tmp49581 + _g2101121020_ + _g2101221022_) + (let ((__tmp49807 + (let ((__tmp49817 (gx#datum->syntax '#f '@list)) + (__tmp49808 + (let ((__tmp49814 + (let ((__tmp49816 (gx#datum->syntax '#f 'quote)) - (__tmp49580 + (__tmp49815 (let () (declare (not safe)) - (cons _g2084320852_ + (cons _g2101121020_ '())))) (declare (not safe)) - (cons __tmp49581 __tmp49580))) - (__tmp49574 - (let ((__tmp49575 - (let ((__tmp49576 - (let ((__tmp49578 + (cons __tmp49816 __tmp49815))) + (__tmp49809 + (let ((__tmp49810 + (let ((__tmp49811 + (let ((__tmp49813 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49577 + (__tmp49812 (let () (declare (not safe)) - (cons _g2084220849_ '())))) + (cons _g2101021017_ '())))) (declare (not safe)) - (cons __tmp49578 __tmp49577)))) + (cons __tmp49813 __tmp49812)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49576 '())))) + (cons __tmp49811 '())))) (declare (not safe)) - (cons ':: __tmp49575)))) + (cons ':: __tmp49810)))) (declare (not safe)) - (cons __tmp49579 __tmp49574)))) + (cons __tmp49814 __tmp49809)))) (declare (not safe)) - (cons __tmp49582 __tmp49573)))) + (cons __tmp49817 __tmp49808)))) (declare (not safe)) - (cons __tmp49572 _g2084420854_)))) - (__tmp49558 + (cons __tmp49807 _g2101221022_)))) + (__tmp49793 (begin - (gx#syntax-check-splice-targets _L20051_ _L19695_) - (let ((__tmp49559 - (lambda (_g2084520857_ - _g2084620860_ - _g2084720862_) - (let ((__tmp49560 - (let ((__tmp49570 + (gx#syntax-check-splice-targets _L19937_ _L19794_) + (let ((__tmp49794 + (lambda (_g2101321025_ + _g2101421028_ + _g2101521030_) + (let ((__tmp49795 + (let ((__tmp49805 (gx#datum->syntax '#f '@list)) - (__tmp49561 - (let ((__tmp49567 - (let ((__tmp49569 + (__tmp49796 + (let ((__tmp49802 + (let ((__tmp49804 (gx#datum->syntax '#f 'quote)) - (__tmp49568 + (__tmp49803 (let () (declare (not safe)) - (cons _g2084620860_ + (cons _g2101421028_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49569 __tmp49568))) + (cons __tmp49804 __tmp49803))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49562 - (let ((__tmp49563 - (let ((__tmp49564 + (__tmp49797 + (let ((__tmp49798 + (let ((__tmp49799 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49566 + (let ((__tmp49801 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49565 + (__tmp49800 (let () (declare (not safe)) - (cons _g2084520857_ '())))) + (cons _g2101321025_ '())))) (declare (not safe)) - (cons __tmp49566 __tmp49565)))) + (cons __tmp49801 __tmp49800)))) (declare (not safe)) - (cons __tmp49564 '())))) + (cons __tmp49799 '())))) (declare (not safe)) - (cons ':: __tmp49563)))) + (cons ':: __tmp49798)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49567 __tmp49562)))) + (cons __tmp49802 __tmp49797)))) (declare (not safe)) - (cons __tmp49570 __tmp49561)))) + (cons __tmp49805 __tmp49796)))) (declare (not safe)) - (cons __tmp49560 _g2084720862_))))) + (cons __tmp49795 _g2101521030_))))) (declare (not safe)) - (foldr2 __tmp49559 '() _L20051_ _L19695_))))) + (foldr2 __tmp49794 '() _L19937_ _L19794_))))) (declare (not safe)) - (foldr2 __tmp49571 __tmp49558 _L19909_ _L19479_))))) + (foldr2 __tmp49806 __tmp49793 _L19720_ _L19578_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49583 __tmp49557)))) + (cons __tmp49818 __tmp49792)))) (declare (not safe)) - (_g2072220839_ __tmp49556)))) - _g2069620707_))) - (__tmp49584 - (let ((__tmp49611 (gx#datum->syntax '#f '@list)) - (__tmp49585 + (_g2083621007_ __tmp49791)))) + _g2081020821_))) + (__tmp49819 + (let ((__tmp49846 (gx#datum->syntax '#f '@list)) + (__tmp49820 (begin (gx#syntax-check-splice-targets - _L19621_ - _L19479_) - (let ((__tmp49599 - (lambda (_g2086820875_ - _g2086920878_ - _g2087020880_) - (let ((__tmp49600 - (let ((__tmp49610 + _L19649_ + _L19578_) + (let ((__tmp49834 + (lambda (_g2103621043_ + _g2103721046_ + _g2103821048_) + (let ((__tmp49835 + (let ((__tmp49845 (gx#datum->syntax '#f '@list)) - (__tmp49601 - (let ((__tmp49607 + (__tmp49836 + (let ((__tmp49842 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49609 (gx#datum->syntax '#f 'quote)) - (__tmp49608 + (let ((__tmp49844 (gx#datum->syntax '#f 'quote)) + (__tmp49843 (let () (declare (not safe)) - (cons _g2086920878_ '())))) + (cons _g2103721046_ '())))) (declare (not safe)) - (cons __tmp49609 __tmp49608))) - (__tmp49602 - (let ((__tmp49603 - (let ((__tmp49604 - (let ((__tmp49606 + (cons __tmp49844 __tmp49843))) + (__tmp49837 + (let ((__tmp49838 + (let ((__tmp49839 + (let ((__tmp49841 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49605 + (__tmp49840 (let () (declare (not safe)) - (cons _g2086820875_ '())))) + (cons _g2103621043_ '())))) (declare (not safe)) - (cons __tmp49606 __tmp49605)))) + (cons __tmp49841 __tmp49840)))) (declare (not safe)) - (cons __tmp49604 '())))) + (cons __tmp49839 '())))) (declare (not safe)) - (cons ':: __tmp49603)))) + (cons ':: __tmp49838)))) (declare (not safe)) - (cons __tmp49607 __tmp49602)))) + (cons __tmp49842 __tmp49837)))) (declare (not safe)) - (cons __tmp49610 __tmp49601)))) + (cons __tmp49845 __tmp49836)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49600 - _g2087020880_)))) - (__tmp49586 + (cons __tmp49835 + _g2103821048_)))) + (__tmp49821 (begin (gx#syntax-check-splice-targets - _L19838_ - _L19695_) - (let ((__tmp49587 - (lambda (_g2087120883_ - _g2087220886_ - _g2087320888_) - (let ((__tmp49588 - (let ((__tmp49598 + _L19866_ + _L19794_) + (let ((__tmp49822 + (lambda (_g2103921051_ + _g2104021054_ + _g2104121056_) + (let ((__tmp49823 + (let ((__tmp49833 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '@list)) - (__tmp49589 - (let ((__tmp49595 - (let ((__tmp49597 + (__tmp49824 + (let ((__tmp49830 + (let ((__tmp49832 (gx#datum->syntax '#f 'quote)) - (__tmp49596 + (__tmp49831 (let () (declare (not safe)) - (cons _g2087220886_ '())))) + (cons _g2104021054_ '())))) (declare (not safe)) - (cons __tmp49597 __tmp49596))) - (__tmp49590 - (let ((__tmp49591 - (let ((__tmp49592 - (let ((__tmp49594 + (cons __tmp49832 __tmp49831))) + (__tmp49825 + (let ((__tmp49826 + (let ((__tmp49827 + (let ((__tmp49829 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49593 + (__tmp49828 (let () (declare (not safe)) - (cons _g2087120883_ + (cons _g2103921051_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp49594 __tmp49593)))) + (cons __tmp49829 __tmp49828)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49592 '())))) + (cons __tmp49827 '())))) (declare (not safe)) - (cons ':: __tmp49591)))) + (cons ':: __tmp49826)))) (declare (not safe)) - (cons __tmp49595 __tmp49590)))) + (cons __tmp49830 __tmp49825)))) (declare (not safe)) - (cons __tmp49598 __tmp49589)))) + (cons __tmp49833 __tmp49824)))) (declare (not safe)) - (cons __tmp49588 _g2087320888_))))) + (cons __tmp49823 _g2104121056_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr2 __tmp49587 + (foldr2 __tmp49822 '() - _L19838_ - _L19695_))))) + _L19866_ + _L19794_))))) (declare (not safe)) - (foldr2 __tmp49599 - __tmp49586 - _L19621_ - _L19479_))))) + (foldr2 __tmp49834 + __tmp49821 + _L19649_ + _L19578_))))) (declare (not safe)) - (cons __tmp49611 __tmp49585)))) + (cons __tmp49846 __tmp49820)))) (declare (not safe)) - (_g2069420865_ __tmp49584)))) - _g2066820679_))) - (__tmp49612 - (let ((__tmp49639 (gx#datum->syntax '#f '@list)) - (__tmp49613 - (begin - (gx#syntax-check-splice-targets _L19550_ _L19479_) - (let ((__tmp49627 - (lambda (_g2089420901_ - _g2089520904_ - _g2089620906_) - (let ((__tmp49628 - (let ((__tmp49638 - (gx#datum->syntax '#f '@list)) - (__tmp49629 - (let ((__tmp49635 - (let ((__tmp49637 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49636 - (let () - (declare -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (cons _g2089520904_ '())))) - (declare (not safe)) - (cons __tmp49637 __tmp49636))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49630 - (let ((__tmp49631 - (let ((__tmp49632 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49634 - (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49633 - (let () - (declare (not safe)) - (cons _g2089420901_ '())))) - (declare (not safe)) - (cons __tmp49634 __tmp49633)))) - (declare (not safe)) - (cons __tmp49632 '())))) - (declare (not safe)) - (cons ':: __tmp49631)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49635 - __tmp49630)))) - (declare (not safe)) - (cons __tmp49638 __tmp49629)))) - (declare (not safe)) - (cons __tmp49628 _g2089620906_)))) - (__tmp49614 - (begin - (gx#syntax-check-splice-targets - _L19767_ - _L19695_) - (let ((__tmp49615 - (lambda (_g2089720909_ - _g2089820912_ - _g2089920914_) - (let ((__tmp49616 - (let ((__tmp49626 - (gx#datum->syntax - '#f - '@list)) - (__tmp49617 - (let ((__tmp49623 - (let ((__tmp49625 -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#datum->syntax '#f 'quote)) - (__tmp49624 - (let () - (declare (not safe)) - (cons _g2089820912_ '())))) - (declare (not safe)) - (cons __tmp49625 __tmp49624))) - (__tmp49618 - (let ((__tmp49619 - (let ((__tmp49620 - (let ((__tmp49622 - (gx#datum->syntax - '#f - 'quote-syntax)) - (__tmp49621 - (let () - (declare (not safe)) - (cons _g2089720909_ '())))) - (declare (not safe)) - (cons __tmp49622 __tmp49621)))) - (declare (not safe)) - (cons __tmp49620 '())))) - (declare (not safe)) - (cons ':: __tmp49619)))) - (declare (not safe)) - (cons __tmp49623 __tmp49618)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49626 - __tmp49617)))) - (declare (not safe)) - (cons __tmp49616 _g2089920914_))))) - (declare (not safe)) - (foldr2 __tmp49615 - '() - _L19767_ - _L19695_))))) - (declare (not safe)) - (foldr2 __tmp49627 __tmp49614 _L19550_ _L19479_))))) + (_g2080821033_ __tmp49819)))) + _g2078220793_))) + (__tmp49847 + (let ((__tmp49849 (gx#datum->syntax '#f 'quote-syntax)) + (__tmp49848 + (let () (declare (not safe)) (cons _L19483_ '())))) (declare (not safe)) - (cons __tmp49639 __tmp49613)))) + (cons __tmp49849 __tmp49848)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2066620891_ __tmp49612)))) - _g2064020651_))) - (__tmp49640 - (let ((__tmp49642 + (_g2078021059_ __tmp49847)))) + _g2075420765_))) + (__tmp49850 + (let ((__tmp49852 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49641 + (__tmp49851 (let () (declare (not safe)) - (cons _L19384_ '())))) + (cons _L19455_ '())))) (declare (not safe)) - (cons __tmp49642 __tmp49641)))) + (cons __tmp49852 __tmp49851)))) (declare (not safe)) - (_g2063820917_ __tmp49640)))) - _g2061220623_))) - (__tmp49643 - (let ((__tmp49645 + (_g2075221063_ __tmp49850)))) + _g2072620737_))) + (__tmp49853 + (let ((__tmp49855 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49644 + (__tmp49854 (let () (declare (not safe)) - (cons _L19356_ '())))) + (cons _L19427_ '())))) (declare (not safe)) - (cons __tmp49645 __tmp49644)))) + (cons __tmp49855 __tmp49854)))) (declare (not safe)) - (_g2061020921_ __tmp49643)))) + (_g2072421067_ __tmp49853)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2058420595_))) - (__tmp49646 - (let ((__tmp49648 - (gx#datum->syntax - '#f - 'quote-syntax)) - (__tmp49647 + _g2069820709_))) + (__tmp49856 + (if (let () + (declare (not safe)) + (null? _type-constructor20298_)) + '#f + (let* ((_g2107521090_ + (lambda (_g2107621086_) + (gx#raise-syntax-error +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + '"Bad syntax; invalid match target" + _g2107621086_))) + (_g2107421138_ + (lambda (_g2107621094_) + (if (gx#stx-pair? _g2107621094_) + (let ((_e2108021097_ (gx#syntax-e _g2107621094_))) + (let ((_hd2107921101_ + (let () + (declare (not safe)) + (##car _e2108021097_))) + (_tl2107821104_ + (let () + (declare (not safe)) + (##cdr _e2108021097_)))) + (if (gx#stx-datum? _hd2107921101_) + (let ((_e2108121107_ + (gx#stx-e _hd2107921101_))) + (if (let () + (declare (not safe)) + (equal? _e2108121107_ + 'constructor:)) + (if (gx#stx-pair? _tl2107821104_) + (let ((_e2108421111_ + (gx#syntax-e + _tl2107821104_))) + (let ((_hd2108321115_ + (let () + (declare (not safe)) + (##car _e2108421111_))) + (_tl2108221118_ + (let () + (declare (not safe)) + (##cdr _e2108421111_)))) + (if (gx#stx-null? + _tl2108221118_) + ((lambda (_L21121_) (let () - (declare (not safe)) - (cons _L19328_ + (let ((__tmp49858 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - '())))) + (gx#datum->syntax '#f 'quote)) + (__tmp49857 + (let () (declare (not safe)) (cons _L21121_ '())))) + (declare (not safe)) + (cons __tmp49858 __tmp49857)))) + _hd2108321115_) + (let () (declare (not safe)) (_g2107521090_ _g2107621094_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp49648 - __tmp49647)))) + (let () + (declare (not safe)) + (_g2107521090_ _g2107621094_))) + (let () (declare (not safe)) - (_g2058220925_ __tmp49646)))) - _g2055620567_))) - (__tmp49649 - (if (let () - (declare (not safe)) - (null? _type-constructor20199_)) - '#f - (let* ((_g2093320948_ - (lambda (_g2093420944_) + (_g2107521090_ _g2107621094_)))) + (let () + (declare (not safe)) + (_g2107521090_ _g2107621094_))))) + (let () + (declare (not safe)) + (_g2107521090_ _g2107621094_)))))) + (declare (not safe)) + (_g2107421138_ _type-constructor20298_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (_g2069621071_ __tmp49856)))) + _g2067020681_))) + (__tmp49859 + (if _metaclass20383_ + (let* ((_g2114621154_ + (lambda (_g2114721150_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2093420944_))) - (_g2093220996_ - (lambda (_g2093420952_) - (if (gx#stx-pair? - _g2093420952_) - (let ((_e2093820955_ - (gx#syntax-e - _g2093420952_))) - (let ((_hd2093720959_ - (let () - (declare + _g2114721150_))) + (_g2114521173_ + (lambda (_g2114721158_) + ((lambda (_L21161_) + (let () + (let ((__tmp49861 + (gx#datum->syntax + '#f + 'quote-syntax)) + (__tmp49860 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (not safe)) - (##car _e2093820955_))) - (_tl2093620962_ - (let () (declare (not safe)) (##cdr _e2093820955_)))) - (if (gx#stx-datum? _hd2093720959_) - (let ((_e2093920965_ (gx#stx-e _hd2093720959_))) - (if (let () - (declare (not safe)) - (equal? _e2093920965_ 'constructor:)) - (if (gx#stx-pair? _tl2093620962_) - (let ((_e2094220969_ - (gx#syntax-e _tl2093620962_))) - (let ((_hd2094120973_ - (let () - (declare (not safe)) - (##car _e2094220969_))) - (_tl2094020976_ - (let () - (declare (not safe)) - (##cdr _e2094220969_)))) - (if (gx#stx-null? _tl2094020976_) - ((lambda (_L20979_) - (let () - (let ((__tmp49651 - (gx#datum->syntax - '#f - 'quote)) - (__tmp49650 - (let () - (declare (not safe)) - (cons _L20979_ '())))) - (declare (not safe)) - (cons __tmp49651 __tmp49650)))) - _hd2094120973_) - (let () - (declare (not safe)) - (_g2093320948_ _g2093420952_))))) - (let () - (declare (not safe)) - (_g2093320948_ _g2093420952_))) - (let () - (declare (not safe)) - (_g2093320948_ _g2093420952_)))) - (let () - (declare (not safe)) - (_g2093320948_ _g2093420952_))))) + (not safe)) + (cons _L21161_ '())))) + (declare (not safe)) + (cons __tmp49861 __tmp49860)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let () - (declare (not safe)) - (_g2093320948_ - _g2093420952_)))))) + _g2114721158_)))) (declare (not safe)) - (_g2093220996_ - _type-constructor20199_))))) + (_g2114521173_ _metaclass20383_)) + '#f))) (declare (not safe)) - (_g2055420929_ __tmp49649)))) - _g2052820539_)))) + (_g2066821142_ __tmp49859)))) + _g2064220653_)))) (declare (not safe)) - (_g2052621000_ _final?20277_)))) + (_g2064021177_ _final?20389_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2050020511_)))) + _g2061420625_)))) (declare (not safe)) - (_g2049821004_ _struct?19279_)))) - _g2047220483_))) - (__tmp49652 - (let ((__tmp49656 (gx#datum->syntax '#f 'quote)) - (__tmp49653 - (let ((__tmp49654 - (let ((__tmp49655 - (lambda (_g2101121014_ - _g2101221017_) + (_g2061221181_ _struct?19378_)))) + _g2058620597_))) + (__tmp49862 + (let ((__tmp49866 (gx#datum->syntax '#f 'quote)) + (__tmp49863 + (let ((__tmp49864 + (let ((__tmp49865 + (lambda (_g2118821191_ + _g2118921194_) (let () (declare (not safe)) - (cons _g2101121014_ - _g2101221017_))))) + (cons _g2118821191_ + _g2118921194_))))) (declare (not safe)) - (foldr1 __tmp49655 + (foldr1 __tmp49865 '() - _L19479_)))) + _L19578_)))) (declare (not safe)) - (cons __tmp49654 '())))) + (cons __tmp49864 '())))) (declare (not safe)) - (cons __tmp49656 __tmp49653)))) + (cons __tmp49866 __tmp49863)))) (declare (not safe)) - (_g2047021008_ __tmp49652)))) - _g2044420455_))) - (__tmp49657 - (let* ((_g2102421041_ - (lambda (_g2102521037_) + (_g2058421185_ __tmp49862)))) + _g2055820569_))) + (__tmp49867 + (let* ((_g2120121218_ + (lambda (_g2120221214_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2102521037_))) - (_g2102321102_ - (lambda (_g2102521045_) - (if (gx#stx-pair/null? _g2102521045_) - (let ((_g49658_ - (gx#syntax-split-splice _g2102521045_ '0))) + _g2120221214_))) + (_g2120021279_ + (lambda (_g2120221222_) + (if (gx#stx-pair/null? _g2120221222_) + (let ((_g49868_ + (gx#syntax-split-splice _g2120221222_ '0))) (begin - (let ((_g49659_ + (let ((_g49869_ (let () (declare (not safe)) - (if (##values? _g49658_) - (##vector-length _g49658_) + (if (##values? _g49868_) + (##vector-length _g49868_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g49659_ 2))) + (##fx= _g49869_ 2))) (error "Context expects 2 values" - _g49659_))) - (let ((_target2102721048_ + _g49869_))) + (let ((_target2120421225_ (let () (declare (not safe)) - (##vector-ref _g49658_ 0))) - (_tl2102921051_ + (##vector-ref _g49868_ 0))) + (_tl2120621228_ (let () (declare (not safe)) - (##vector-ref _g49658_ 1)))) - (if (gx#stx-null? _tl2102921051_) - (letrec ((_loop2103021054_ - (lambda (_hd2102821058_ - _super-id2103421061_) + (##vector-ref _g49868_ 1)))) + (if (gx#stx-null? _tl2120621228_) + (letrec ((_loop2120721231_ + (lambda (_hd2120521235_ + _super-id2121121238_) (if (gx#stx-pair? - _hd2102821058_) - (let ((_e2103121064_ + _hd2120521235_) + (let ((_e2120821241_ (gx#syntax-e - _hd2102821058_))) - (let ((_lp-hd2103221068_ + _hd2120521235_))) + (let ((_lp-hd2120921245_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e2103121064_))) - (_lp-tl2103321071_ - (let () (declare (not safe)) (##cdr _e2103121064_)))) - (let ((__tmp49666 + (##car _e2120821241_))) + (_lp-tl2121021248_ + (let () (declare (not safe)) (##cdr _e2120821241_)))) + (let ((__tmp49876 (let () (declare (not safe)) - (cons _lp-hd2103221068_ _super-id2103421061_)))) + (cons _lp-hd2120921245_ _super-id2121121238_)))) (declare (not safe)) - (_loop2103021054_ _lp-tl2103321071_ __tmp49666)))) - (let ((_super-id2103521074_ (reverse _super-id2103421061_))) - ((lambda (_L21078_) + (_loop2120721231_ _lp-tl2121021248_ __tmp49876)))) + (let ((_super-id2121221251_ (reverse _super-id2121121238_))) + ((lambda (_L21255_) (let () - (let ((__tmp49665 (gx#datum->syntax '#f '@list)) - (__tmp49660 - (let ((__tmp49661 - (lambda (_g2109321096_ _g2109421099_) - (let ((__tmp49662 - (let ((__tmp49664 + (let ((__tmp49875 (gx#datum->syntax '#f '@list)) + (__tmp49870 + (let ((__tmp49871 + (lambda (_g2127021273_ _g2127121276_) + (let ((__tmp49872 + (let ((__tmp49874 (gx#datum->syntax '#f 'quote-syntax)) - (__tmp49663 + (__tmp49873 (let () (declare (not safe)) - (cons _g2109321096_ + (cons _g2127021273_ '())))) (declare (not safe)) - (cons __tmp49664 __tmp49663)))) + (cons __tmp49874 __tmp49873)))) (declare (not safe)) - (cons __tmp49662 _g2109421099_))))) + (cons __tmp49872 _g2127121276_))))) (declare (not safe)) - (foldr1 __tmp49661 '() _L21078_)))) + (foldr1 __tmp49871 '() _L21255_)))) (declare (not safe)) - (cons __tmp49665 __tmp49660)))) - _super-id2103521074_)))))) + (cons __tmp49875 __tmp49870)))) + _super-id2121221251_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2103021054_ - _target2102721048_ + (_loop2120721231_ + _target2120421225_ '()))) (let () (declare (not safe)) - (_g2102421041_ _g2102521045_)))))) + (_g2120121218_ _g2120221222_)))))) (let () (declare (not safe)) - (_g2102421041_ _g2102521045_)))))) + (_g2120121218_ _g2120221222_)))))) (declare (not safe)) - (_g2102321102_ _super-ref19263_)))) + (_g2120021279_ _super-ref19362_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g2044221020_ __tmp49657)))) - _g2041620427_))) - (__tmp49667 - (let* ((_g2111021118_ - (lambda (_g2111121114_) + (_g2055621197_ __tmp49867)))) + _g2053020541_))) + (__tmp49877 + (let* ((_g2128721295_ + (lambda (_g2128821291_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2111121114_))) - (_g2110921137_ - (lambda (_g2111121122_) - ((lambda (_L21125_) + _g2128821291_))) + (_g2128621314_ + (lambda (_g2128821299_) + ((lambda (_L21302_) (let () - (let ((__tmp49669 + (let ((__tmp49879 (gx#datum->syntax '#f 'quote)) - (__tmp49668 + (__tmp49878 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L21125_ '())))) + (cons _L21302_ '())))) (declare (not safe)) - (cons __tmp49669 __tmp49668)))) + (cons __tmp49879 __tmp49878)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2111121122_))) - (__tmp49670 - (cadr _type-name20177_))) + _g2128821299_))) + (__tmp49880 + (cadr _type-name20276_))) (declare (not safe)) - (_g2110921137_ __tmp49670)))) + (_g2128621314_ __tmp49880)))) (declare (not safe)) - (_g2041421106_ __tmp49667)))) - _g2038820399_))) - (__tmp49671 - (let* ((_g2114521160_ - (lambda (_g2114621156_) + (_g2052821283_ __tmp49877)))) + _g2050220513_))) + (__tmp49881 + (let* ((_g2132221337_ + (lambda (_g2132321333_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2114621156_))) - (_g2114421208_ - (lambda (_g2114621164_) - (if (gx#stx-pair? _g2114621164_) - (let ((_e2115021167_ - (gx#syntax-e _g2114621164_))) - (let ((_hd2114921171_ + _g2132321333_))) + (_g2132121385_ + (lambda (_g2132321341_) + (if (gx#stx-pair? _g2132321341_) + (let ((_e2132721344_ + (gx#syntax-e _g2132321341_))) + (let ((_hd2132621348_ (let () (declare (not safe)) - (##car _e2115021167_))) - (_tl2114821174_ + (##car _e2132721344_))) + (_tl2132521351_ (let () (declare (not safe)) - (##cdr _e2115021167_)))) - (if (gx#stx-datum? _hd2114921171_) - (let ((_e2115121177_ + (##cdr _e2132721344_)))) + (if (gx#stx-datum? _hd2132621348_) + (let ((_e2132821354_ (gx#stx-e - _hd2114921171_))) + _hd2132621348_))) (if (let () (declare (not safe)) - (equal? _e2115121177_ + (equal? _e2132821354_ 'id:)) (if (gx#stx-pair? - _tl2114821174_) - (let ((_e2115421181_ + _tl2132521351_) + (let ((_e2133121358_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2114821174_))) - (let ((_hd2115321185_ - (let () (declare (not safe)) (##car _e2115421181_))) - (_tl2115221188_ - (let () (declare (not safe)) (##cdr _e2115421181_)))) - (if (gx#stx-null? _tl2115221188_) - ((lambda (_L21191_) + _tl2132521351_))) + (let ((_hd2133021362_ + (let () (declare (not safe)) (##car _e2133121358_))) + (_tl2132921365_ + (let () (declare (not safe)) (##cdr _e2133121358_)))) + (if (gx#stx-null? _tl2132921365_) + ((lambda (_L21368_) (let () - (let ((__tmp49673 (gx#datum->syntax '#f 'quote)) - (__tmp49672 + (let ((__tmp49883 (gx#datum->syntax '#f 'quote)) + (__tmp49882 (let () (declare (not safe)) - (cons _L21191_ '())))) + (cons _L21368_ '())))) (declare (not safe)) - (cons __tmp49673 __tmp49672)))) - _hd2115321185_) + (cons __tmp49883 __tmp49882)))) + _hd2133021362_) (let () (declare (not safe)) - (_g2114521160_ _g2114621164_))))) - (let () (declare (not safe)) (_g2114521160_ _g2114621164_))) + (_g2132221337_ _g2132321341_))))) + (let () (declare (not safe)) (_g2132221337_ _g2132321341_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2114521160_ - _g2114621164_)))) + (_g2132221337_ + _g2132321341_)))) (let () (declare (not safe)) - (_g2114521160_ - _g2114621164_))))) + (_g2132221337_ + _g2132321341_))))) (let () (declare (not safe)) - (_g2114521160_ _g2114621164_)))))) + (_g2132221337_ _g2132321341_)))))) (declare (not safe)) - (_g2114421208_ _type-id20184_)))) + (_g2132121385_ _type-id20283_)))) (declare (not safe)) - (_g2038621141_ __tmp49671)))) + (_g2050021318_ __tmp49881)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2036020371_))) - (__tmp49674 - (let ((__tmp49675 - (let ((__tmp49682 + _g2047420485_))) + (__tmp49884 + (let ((__tmp49885 + (let ((__tmp49892 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'defclass-type)) - (__tmp49676 - (let ((__tmp49677 - (let ((__tmp49678 - (let ((__tmp49679 - (let ((__tmp49680 - (let ((__tmp49681 - (lambda (_g2121521218_ + (__tmp49886 + (let ((__tmp49887 + (let ((__tmp49888 + (let ((__tmp49889 + (let ((__tmp49890 + (let ((__tmp49891 + (lambda (_g2139221395_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2121621221_) + _g2139321398_) (let () (declare (not safe)) - (cons _g2121521218_ _g2121621221_))))) + (cons _g2139221395_ _g2139321398_))))) (declare (not safe)) - (foldr1 __tmp49681 '() _L20340_)))) + (foldr1 __tmp49891 '() _L20452_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L19384_ __tmp49680)))) + (cons _L19483_ __tmp49890)))) (declare (not safe)) - (cons _L19356_ __tmp49679)))) + (cons _L19455_ __tmp49889)))) (declare (not safe)) - (cons _L19412_ __tmp49678)))) + (cons _L19511_ __tmp49888)))) (declare (not safe)) - (cons _L19328_ __tmp49677)))) + (cons _L19427_ __tmp49887)))) (declare (not safe)) - (cons __tmp49682 __tmp49676)))) + (cons __tmp49892 __tmp49886)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_wrap19267_ __tmp49675)))) + (_wrap19366_ __tmp49885)))) (declare (not safe)) - (_g2035821212_ __tmp49674)))) - _type-body2029720336_)))))) + (_g2047221389_ __tmp49884)))) + _type-body2040920448_)))))) (let () (declare (not safe)) - (_loop2029220316_ _target2028920310_ '()))) + (_loop2040420428_ _target2040120422_ '()))) (let () (declare (not safe)) - (_g2028620303_ _g2028720307_)))))) + (_g2039820415_ _g2039920419_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2028620303_ - _g2028720307_))))) - (__tmp49684 - (let ((__tmp49685 - (let ((__tmp49686 - (let ((__tmp49687 - (let ((__tmp49688 + (_g2039820415_ + _g2039920419_))))) + (__tmp49894 + (let ((__tmp49895 + (let ((__tmp49896 + (let ((__tmp49897 + (let ((__tmp49898 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49689 - (let ((__tmp49690 - (let () + (let ((__tmp49899 + (let ((__tmp49900 + (let ((__tmp49901 + (let () + (declare (not safe)) + (foldr1 cons + _type-mixin-slots20269_ + _type-slots20252_)))) (declare (not safe)) (foldr1 cons - _type-mixin-slots20170_ - _type-slots20153_)))) + __tmp49901 + _type-properties20373_)))) (declare (not safe)) (foldr1 cons - __tmp49690 - _type-properties20274_)))) + __tmp49900 + _type-metaclass20386_)))) (declare (not safe)) - (foldr1 cons __tmp49689 _type-final20283_)))) + (foldr1 cons __tmp49899 _type-final20395_)))) (declare (not safe)) - (foldr1 cons __tmp49688 _type-struct20280_)))) + (foldr1 cons __tmp49898 _type-struct20392_)))) (declare (not safe)) - (foldr1 cons __tmp49687 _type-constructor20199_)))) + (foldr1 cons __tmp49897 _type-constructor20298_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp49686 - _type-name20177_)))) + __tmp49896 + _type-name20276_)))) (declare (not safe)) (foldr1 cons - __tmp49685 - _type-id20184_)))) + __tmp49895 + _type-id20283_)))) (declare (not safe)) - (_g2028521224_ __tmp49684)))) - _mixin-usetf2007920118_)))))) + (_g2039721401_ __tmp49894)))) + _mixin-usetf2017820217_)))))) (let () (declare (not safe)) - (_loop2007420098_ _target2007120092_ '()))) + (_loop2017320197_ _target2017020191_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2006820085_ - _g2006920089_)))))) + (_g2016720184_ + _g2016820188_)))))) (let () (declare (not safe)) - (_g2006820085_ _g2006920089_))))) - (__tmp49692 + (_g2016720184_ _g2016820188_))))) + (__tmp49903 (gx#stx-map - (lambda (_g2123121233_) - (_make-id19269_ '"&" _g2123121233_)) - (let ((__tmp49693 - (lambda (_g2123621239_ - _g2123721242_) + (lambda (_g2140821410_) + (_make-id19368_ '"&" _g2140821410_)) + (let ((__tmp49904 + (lambda (_g2141321416_ + _g2141421419_) (let () (declare (not safe)) - (cons _g2123621239_ - _g2123721242_))))) + (cons _g2141321416_ + _g2141421419_))))) (declare (not safe)) - (foldr1 __tmp49693 '() _L19838_))))) + (foldr1 __tmp49904 '() _L19937_))))) (declare (not safe)) - (_g2006721228_ __tmp49692)))) - _mixin-ugetf2000820047_)))))) + (_g2016621405_ __tmp49903)))) + _mixin-ugetf2010720146_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop2000320027_ - _target2000020021_ + (_loop2010220126_ + _target2009920120_ '()))) (let () (declare (not safe)) - (_g1999720014_ - _g1999820018_)))))) + (_g2009620113_ + _g2009720117_)))))) (let () (declare (not safe)) - (_g1999720014_ _g1999820018_))))) - (__tmp49695 + (_g2009620113_ _g2009720117_))))) + (__tmp49906 (gx#stx-map - (lambda (_g2124821250_) - (_make-id19269_ '"&" _g2124821250_)) - (let ((__tmp49696 - (lambda (_g2125321256_ _g2125421259_) + (lambda (_g2142521427_) + (_make-id19368_ '"&" _g2142521427_)) + (let ((__tmp49907 + (lambda (_g2143021433_ _g2143121436_) (let () (declare (not safe)) - (cons _g2125321256_ _g2125421259_))))) + (cons _g2143021433_ _g2143121436_))))) (declare (not safe)) - (foldr1 __tmp49696 '() _L19767_))))) + (foldr1 __tmp49907 '() _L19866_))))) (declare (not safe)) - (_g1999621245_ __tmp49695)))) - _usetf1993719976_)))))) + (_g2009521422_ __tmp49906)))) + _usetf2003620075_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1993219956_ - _target1992919950_ + (_loop2003120055_ + _target2002820049_ '()))) (let () (declare (not safe)) - (_g1992619943_ _g1992719947_)))))) + (_g2002520042_ _g2002620046_)))))) (let () (declare (not safe)) - (_g1992619943_ _g1992719947_))))) - (__tmp49698 + (_g2002520042_ _g2002620046_))))) + (__tmp49909 (gx#stx-map - (lambda (_g2126521267_) - (_make-id19269_ '"&" _g2126521267_)) - (let ((__tmp49699 - (lambda (_g2127021273_ _g2127121276_) + (lambda (_g2144221444_) + (_make-id19368_ '"&" _g2144221444_)) + (let ((__tmp49910 + (lambda (_g2144721450_ _g2144821453_) (let () (declare (not safe)) - (cons _g2127021273_ _g2127121276_))))) + (cons _g2144721450_ _g2144821453_))))) (declare (not safe)) - (foldr1 __tmp49699 '() _L19621_))))) + (foldr1 __tmp49910 '() _L19720_))))) (declare (not safe)) - (_g1992521262_ __tmp49698)))) + (_g2002421439_ __tmp49909)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _ugetf1986619905_)))))) + _ugetf1996520004_)))))) (let () (declare (not safe)) - (_loop1986119885_ _target1985819879_ '()))) + (_loop1996019984_ _target1995719978_ '()))) (let () (declare (not safe)) - (_g1985519872_ _g1985619876_)))))) + (_g1995419971_ _g1995519975_)))))) (let () (declare (not safe)) - (_g1985519872_ _g1985619876_))))) - (__tmp49701 + (_g1995419971_ _g1995519975_))))) + (__tmp49912 (gx#stx-map - (lambda (_g2128221284_) (_make-id19269_ '"&" _g2128221284_)) - (let ((__tmp49702 - (lambda (_g2128721290_ _g2128821293_) + (lambda (_g2145921461_) (_make-id19368_ '"&" _g2145921461_)) + (let ((__tmp49913 + (lambda (_g2146421467_ _g2146521470_) (let () (declare (not safe)) - (cons _g2128721290_ _g2128821293_))))) + (cons _g2146421467_ _g2146521470_))))) (declare (not safe)) - (foldr1 __tmp49702 '() _L19550_))))) + (foldr1 __tmp49913 '() _L19649_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1985421279_ __tmp49701)))) - _mixin-setf1979519834_)))))) + (_g1995321456_ __tmp49912)))) + _mixin-setf1989419933_)))))) (let () (declare (not safe)) - (_loop1979019814_ _target1978719808_ '()))) + (_loop1988919913_ _target1988619907_ '()))) (let () (declare (not safe)) - (_g1978419801_ _g1978519805_)))))) - (let () (declare (not safe)) (_g1978419801_ _g1978519805_))))) + (_g1988319900_ _g1988419904_)))))) + (let () (declare (not safe)) (_g1988319900_ _g1988419904_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp49704 + (__tmp49915 (gx#stx-map - (lambda (_g2129921301_) - (_make-id19269_ - _name19273_ + (lambda (_g2147621478_) + (_make-id19368_ + _name19372_ '"-" - _g2129921301_ + _g2147621478_ '"-set!")) - _mixin-slots19638_))) + _mixin-slots19737_))) (declare (not safe)) - (_g1978321296_ __tmp49704)))) - _mixin-getf1972419763_)))))) + (_g1988221473_ __tmp49915)))) + _mixin-getf1982319862_)))))) (let () (declare (not safe)) - (_loop1971919743_ _target1971619737_ '()))) + (_loop1981819842_ _target1981519836_ '()))) (let () (declare (not safe)) - (_g1971319730_ _g1971419734_)))))) + (_g1981219829_ _g1981319833_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g1971319730_ - _g1971419734_))))) - (__tmp49706 + (_g1981219829_ + _g1981319833_))))) + (__tmp49917 (gx#stx-map - (lambda (_g2130821310_) - (_make-id19269_ - _name19273_ + (lambda (_g2148521487_) + (_make-id19368_ + _name19372_ '"-" - _g2130821310_)) - _mixin-slots19638_))) + _g2148521487_)) + _mixin-slots19737_))) (declare (not safe)) - (_g1971221305_ __tmp49706)))) - _mixin-slot1965219691_)))))) + (_g1981121482_ __tmp49917)))) + _mixin-slot1975119790_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1964719671_ - _target1964419665_ + (_loop1974619770_ + _target1974319764_ '()))) (let () (declare (not safe)) - (_g1964119658_ - _g1964219662_)))))) + (_g1974019757_ + _g1974119761_)))))) (let () (declare (not safe)) - (_g1964119658_ _g1964219662_)))))) + (_g1974019757_ _g1974119761_)))))) (declare (not safe)) - (_g1964021314_ _mixin-slots19638_)))) - _setf1957819617_)))))) + (_g1973921491_ _mixin-slots19737_)))) + _setf1967719716_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1957319597_ - _target1957019591_ + (_loop1967219696_ + _target1966919690_ '()))) (let () (declare (not safe)) - (_g1956719584_ _g1956819588_)))))) + (_g1966619683_ _g1966719687_)))))) (let () (declare (not safe)) - (_g1956719584_ _g1956819588_))))) - (__tmp49709 + (_g1966619683_ _g1966719687_))))) + (__tmp49920 (gx#stx-map - (lambda (_g2132121323_) - (_make-id19269_ - _name19273_ + (lambda (_g2149821500_) + (_make-id19368_ + _name19372_ '"-" - _g2132121323_ + _g2149821500_ '"-set!")) - _slots19264_))) + _slots19363_))) (declare (not safe)) - (_g1956621318_ __tmp49709)))) - _getf1950719546_)))))) + (_g1966521495_ __tmp49920)))) + _getf1960619645_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_loop1950219526_ - _target1949919520_ + (_loop1960119625_ + _target1959819619_ '()))) (let () (declare (not safe)) - (_g1949619513_ _g1949719517_)))))) + (_g1959519612_ _g1959619616_)))))) (let () (declare (not safe)) - (_g1949619513_ _g1949719517_))))) - (__tmp49711 + (_g1959519612_ _g1959619616_))))) + (__tmp49922 (gx#stx-map - (lambda (_g2133021332_) - (_make-id19269_ _name19273_ '"-" _g2133021332_)) - _slots19264_))) + (lambda (_g2150721509_) + (_make-id19368_ _name19372_ '"-" _g2150721509_)) + _slots19363_))) (declare (not safe)) - (_g1949521327_ __tmp49711)))) + (_g1959421504_ __tmp49922)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _slot1943619475_)))))) + _slot1953519574_)))))) (let () (declare (not safe)) - (_loop1943119455_ _target1942819449_ '()))) + (_loop1953019554_ _target1952719548_ '()))) (let () (declare (not safe)) - (_g1942519442_ _g1942619446_)))))) + (_g1952419541_ _g1952519545_)))))) (let () (declare (not safe)) - (_g1942519442_ _g1942619446_)))))) + (_g1952419541_ _g1952519545_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_g1942421336_ _slots19264_)))) - _g1939819409_))) - (__tmp49713 + (_g1952321513_ _slots19363_)))) + _g1949719508_))) + (__tmp49924 (map gerbil/core$$#!class-type-descriptor - _super19276_))) + _super19375_))) (declare (not safe)) - (_g1939621340_ __tmp49713)))) - _g1937019381_))) - (__tmp49714 (_make-id19269_ _name19273_ '"?"))) + (_g1949521517_ __tmp49924)))) + _g1946919480_))) + (__tmp49925 (_make-id19368_ _name19372_ '"?"))) (declare (not safe)) - (_g1936821344_ __tmp49714)))) + (_g1946721521_ __tmp49925)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g1934219353_))) - (__tmp49715 - (_make-id19269_ + _g1944119452_))) + (__tmp49926 + (_make-id19368_ '"make-" - _name19273_))) + _name19372_))) (declare (not safe)) - (_g1934021348_ __tmp49715)))) - _g1931419325_))) - (__tmp49716 - (_make-id19269_ _name19273_ '"::t"))) + (_g1943921525_ __tmp49926)))) + _g1941319424_))) + (__tmp49927 + (_make-id19368_ _name19372_ '"::t"))) (declare (not safe)) - (_g1931221352_ __tmp49716)))) - _g1928319294_)))) + (_g1941121529_ __tmp49927)))) + _g1938219393_)))) (declare (not safe)) - (_g1928121356_ _id19262_))))) + (_g1938021533_ _id19361_))))) (define |gerbil/core$$[:0:]#defstruct| - (lambda (_$stx21420_) - (let* ((_g2142421443_ - (lambda (_g2142521439_) + (lambda (_$stx21597_) + (let* ((_g2160121620_ + (lambda (_g2160221616_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2142521439_))) - (_g2142321500_ - (lambda (_g2142521447_) - (if (gx#stx-pair? _g2142521447_) - (let ((_e2143121450_ (gx#syntax-e _g2142521447_))) - (let ((_hd2143021454_ + _g2160221616_))) + (_g2160021677_ + (lambda (_g2160221624_) + (if (gx#stx-pair? _g2160221624_) + (let ((_e2160821627_ (gx#syntax-e _g2160221624_))) + (let ((_hd2160721631_ (let () (declare (not safe)) - (##car _e2143121450_))) - (_tl2142921457_ + (##car _e2160821627_))) + (_tl2160621634_ (let () (declare (not safe)) - (##cdr _e2143121450_)))) - (if (gx#stx-pair? _tl2142921457_) - (let ((_e2143421460_ - (gx#syntax-e _tl2142921457_))) - (let ((_hd2143321464_ + (##cdr _e2160821627_)))) + (if (gx#stx-pair? _tl2160621634_) + (let ((_e2161121637_ + (gx#syntax-e _tl2160621634_))) + (let ((_hd2161021641_ (let () (declare (not safe)) - (##car _e2143421460_))) - (_tl2143221467_ + (##car _e2161121637_))) + (_tl2160921644_ (let () (declare (not safe)) - (##cdr _e2143421460_)))) - (if (gx#stx-pair? _tl2143221467_) - (let ((_e2143721470_ - (gx#syntax-e _tl2143221467_))) - (let ((_hd2143621474_ + (##cdr _e2161121637_)))) + (if (gx#stx-pair? _tl2160921644_) + (let ((_e2161421647_ + (gx#syntax-e _tl2160921644_))) + (let ((_hd2161321651_ (let () (declare (not safe)) - (##car _e2143721470_))) - (_tl2143521477_ + (##car _e2161421647_))) + (_tl2161221654_ (let () (declare (not safe)) - (##cdr _e2143721470_)))) - ((lambda (_L21480_ _L21482_ _L21483_) - (let ((__tmp49721 + (##cdr _e2161421647_)))) + ((lambda (_L21657_ _L21659_ _L21660_) + (let ((__tmp49932 (gx#datum->syntax '#f 'defclass)) - (__tmp49717 - (let ((__tmp49718 - (let ((__tmp49719 + (__tmp49928 + (let ((__tmp49929 + (let ((__tmp49930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49720 + (let ((__tmp49931 (let () (declare (not safe)) - (cons '#t _L21480_)))) + (cons '#t _L21657_)))) (declare (not safe)) - (cons 'struct: __tmp49720)))) + (cons 'struct: __tmp49931)))) (declare (not safe)) - (cons _L21482_ __tmp49719)))) + (cons _L21659_ __tmp49930)))) (declare (not safe)) - (cons _L21483_ __tmp49718)))) + (cons _L21660_ __tmp49929)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49721 __tmp49717))) - _tl2143521477_ - _hd2143621474_ - _hd2143321464_))) - (_g2142421443_ _g2142521447_)))) - (_g2142421443_ _g2142521447_)))) - (_g2142421443_ _g2142521447_))))) - (_g2142321500_ _$stx21420_)))) + (cons __tmp49932 __tmp49928))) + _tl2161221654_ + _hd2161321651_ + _hd2161021641_))) + (_g2160121620_ _g2160221624_)))) + (_g2160121620_ _g2160221624_)))) + (_g2160121620_ _g2160221624_))))) + (_g2160021677_ _$stx21597_)))) (define |gerbil/core$$[:0:]#defclass| - (lambda (_stx21504_) - (letrec ((_generate21507_ - (lambda (_hd21591_ _slots21593_ _body21594_) - (let* ((___stx4431044311_ _hd21591_) - (_g2159721609_ + (lambda (_stx21681_) + (letrec ((_generate21684_ + (lambda (_hd21768_ _slots21770_ _body21771_) + (let* ((___stx4448744488_ _hd21768_) + (_g2177421786_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4431044311_)))) - (let ((___kont4431344314_ - (lambda (_L21637_ _L21639_) - (let ((__tmp49722 (gx#syntax->list _L21637_))) + ___stx4448744488_)))) + (let ((___kont4449044491_ + (lambda (_L21814_ _L21816_) + (let ((__tmp49933 (gx#syntax->list _L21814_))) (declare (not safe)) (|gerbil/core$$[1]#generate-defclass| - _stx21504_ - _L21639_ - __tmp49722 - _slots21593_ - _body21594_)))) - (___kont4431544316_ + _stx21681_ + _L21816_ + __tmp49933 + _slots21770_ + _body21771_)))) + (___kont4449244493_ (lambda () - (if (gx#identifier? _hd21591_) + (if (gx#identifier? _hd21768_) (let () (declare (not safe)) (|gerbil/core$$[1]#generate-defclass| - _stx21504_ - _hd21591_ + _stx21681_ + _hd21768_ '() - _slots21593_ - _body21594_)) + _slots21770_ + _body21771_)) (gx#raise-syntax-error '#f '"bad syntax; class name should be an identifier" - _stx21504_ - _hd21591_))))) - (let ((___match4432344324_ - (lambda (_e2160321627_ - _hd2160221631_ - _tl2160121634_) - (let ((_L21637_ _tl2160121634_) - (_L21639_ _hd2160221631_)) - (if (and (gx#stx-list? _L21637_) + _stx21681_ + _hd21768_))))) + (let ((___match4450044501_ + (lambda (_e2178021804_ + _hd2177921808_ + _tl2177821811_) + (let ((_L21814_ _tl2177821811_) + (_L21816_ _hd2177921808_)) + (if (and (gx#stx-list? _L21814_) (gx#stx-andmap gerbil/core$$#syntax-local-class-type-info? - _L21637_)) - (___kont4431344314_ _L21637_ _L21639_) - (___kont4431544316_)))))) - (if (gx#stx-pair? ___stx4431044311_) - (let ((_e2160321627_ - (gx#syntax-e ___stx4431044311_))) - (let ((_tl2160121634_ + _L21814_)) + (___kont4449044491_ _L21814_ _L21816_) + (___kont4449244493_)))))) + (if (gx#stx-pair? ___stx4448744488_) + (let ((_e2178021804_ + (gx#syntax-e ___stx4448744488_))) + (let ((_tl2177821811_ (let () (declare (not safe)) - (##cdr _e2160321627_))) - (_hd2160221631_ + (##cdr _e2178021804_))) + (_hd2177921808_ (let () (declare (not safe)) - (##car _e2160321627_)))) - (___match4432344324_ - _e2160321627_ - _hd2160221631_ - _tl2160121634_))) - (___kont4431544316_)))))))) - (let* ((_g2151021529_ - (lambda (_g2151121525_) + (##car _e2178021804_)))) + (___match4450044501_ + _e2178021804_ + _hd2177921808_ + _tl2177821811_))) + (___kont4449244493_)))))))) + (let* ((_g2168721706_ + (lambda (_g2168821702_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2151121525_))) - (_g2150921587_ - (lambda (_g2151121533_) - (if (gx#stx-pair? _g2151121533_) - (let ((_e2151721536_ (gx#syntax-e _g2151121533_))) - (let ((_hd2151621540_ + _g2168821702_))) + (_g2168621764_ + (lambda (_g2168821710_) + (if (gx#stx-pair? _g2168821710_) + (let ((_e2169421713_ (gx#syntax-e _g2168821710_))) + (let ((_hd2169321717_ (let () (declare (not safe)) - (##car _e2151721536_))) - (_tl2151521543_ + (##car _e2169421713_))) + (_tl2169221720_ (let () (declare (not safe)) - (##cdr _e2151721536_)))) - (if (gx#stx-pair? _tl2151521543_) - (let ((_e2152021546_ - (gx#syntax-e _tl2151521543_))) - (let ((_hd2151921550_ + (##cdr _e2169421713_)))) + (if (gx#stx-pair? _tl2169221720_) + (let ((_e2169721723_ + (gx#syntax-e _tl2169221720_))) + (let ((_hd2169621727_ (let () (declare (not safe)) - (##car _e2152021546_))) - (_tl2151821553_ + (##car _e2169721723_))) + (_tl2169521730_ (let () (declare (not safe)) - (##cdr _e2152021546_)))) - (if (gx#stx-pair? _tl2151821553_) - (let ((_e2152321556_ - (gx#syntax-e _tl2151821553_))) - (let ((_hd2152221560_ + (##cdr _e2169721723_)))) + (if (gx#stx-pair? _tl2169521730_) + (let ((_e2170021733_ + (gx#syntax-e _tl2169521730_))) + (let ((_hd2169921737_ (let () (declare (not safe)) - (##car _e2152321556_))) - (_tl2152121563_ + (##car _e2170021733_))) + (_tl2169821740_ (let () (declare (not safe)) - (##cdr _e2152321556_)))) - ((lambda (_L21566_ - _L21568_ - _L21569_) + (##cdr _e2170021733_)))) + ((lambda (_L21743_ + _L21745_ + _L21746_) (if (and (gx#identifier-list? - _L21568_) + _L21745_) (let () (declare (not safe)) (|gerbil/core$$[1]#typedef-body?| - _L21566_))) - (_generate21507_ - _L21569_ - _L21568_ - _L21566_) - (_g2151021529_ - _g2151121533_))) - _tl2152121563_ - _hd2152221560_ - _hd2151921550_))) - (_g2151021529_ _g2151121533_)))) - (_g2151021529_ _g2151121533_)))) - (_g2151021529_ _g2151121533_))))) - (_g2150921587_ _stx21504_))))) + _L21743_))) + (_generate21684_ + _L21746_ + _L21745_ + _L21743_) + (_g2168721706_ + _g2168821710_))) + _tl2169821740_ + _hd2169921737_ + _hd2169621727_))) + (_g2168721706_ _g2168821710_)))) + (_g2168721706_ _g2168821710_)))) + (_g2168721706_ _g2168821710_))))) + (_g2168621764_ _stx21681_))))) (define |gerbil/core$$[:0:]#defmethod| - (lambda (_stx21656_) - (letrec ((_wrap21659_ - (lambda (_e-stx21996_) + (lambda (_stx21833_) + (letrec ((_wrap21836_ + (lambda (_e-stx22173_) (gx#stx-wrap-source - _e-stx21996_ - (gx#stx-source _stx21656_)))) - (_method-opt?21661_ - (lambda (_x21993_) (memq (gx#stx-e _x21993_) '(rebind:))))) - (let* ((_g2166321692_ - (lambda (_g2166421688_) + _e-stx22173_ + (gx#stx-source _stx21833_)))) + (_method-opt?21838_ + (lambda (_x22170_) (memq (gx#stx-e _x22170_) '(rebind:))))) + (let* ((_g2184021869_ + (lambda (_g2184121865_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2166421688_))) - (_g2166221989_ - (lambda (_g2166421696_) - (if (gx#stx-pair? _g2166421696_) - (let ((_e2167121699_ (gx#syntax-e _g2166421696_))) - (let ((_hd2167021703_ + _g2184121865_))) + (_g2183922166_ + (lambda (_g2184121873_) + (if (gx#stx-pair? _g2184121873_) + (let ((_e2184821876_ (gx#syntax-e _g2184121873_))) + (let ((_hd2184721880_ (let () (declare (not safe)) - (##car _e2167121699_))) - (_tl2166921706_ + (##car _e2184821876_))) + (_tl2184621883_ (let () (declare (not safe)) - (##cdr _e2167121699_)))) - (if (gx#stx-pair? _tl2166921706_) - (let ((_e2167421709_ - (gx#syntax-e _tl2166921706_))) - (let ((_hd2167321713_ + (##cdr _e2184821876_)))) + (if (gx#stx-pair? _tl2184621883_) + (let ((_e2185121886_ + (gx#syntax-e _tl2184621883_))) + (let ((_hd2185021890_ (let () (declare (not safe)) - (##car _e2167421709_))) - (_tl2167221716_ + (##car _e2185121886_))) + (_tl2184921893_ (let () (declare (not safe)) - (##cdr _e2167421709_)))) - (if (gx#stx-pair? _hd2167321713_) - (let ((_e2167721719_ - (gx#syntax-e _hd2167321713_))) - (let ((_hd2167621723_ + (##cdr _e2185121886_)))) + (if (gx#stx-pair? _hd2185021890_) + (let ((_e2185421896_ + (gx#syntax-e _hd2185021890_))) + (let ((_hd2185321900_ (let () (declare (not safe)) - (##car _e2167721719_))) - (_tl2167521726_ + (##car _e2185421896_))) + (_tl2185221903_ (let () (declare (not safe)) - (##cdr _e2167721719_)))) - (if (gx#identifier? _hd2167621723_) + (##cdr _e2185421896_)))) + (if (gx#identifier? _hd2185321900_) (if (gx#free-identifier=? - |gerbil/core$$[1]#_g49773_| - _hd2167621723_) + |gerbil/core$$[1]#_g49984_| + _hd2185321900_) (if (gx#stx-pair? - _tl2167521726_) - (let ((_e2168021729_ + _tl2185221903_) + (let ((_e2185721906_ (gx#syntax-e - _tl2167521726_))) - (let ((_hd2167921733_ + _tl2185221903_))) + (let ((_hd2185621910_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e2168021729_))) - (_tl2167821736_ - (let () (declare (not safe)) (##cdr _e2168021729_)))) - (if (gx#stx-pair? _tl2167821736_) - (let ((_e2168321739_ (gx#syntax-e _tl2167821736_))) - (let ((_hd2168221743_ + (let () (declare (not safe)) (##car _e2185721906_))) + (_tl2185521913_ + (let () (declare (not safe)) (##cdr _e2185721906_)))) + (if (gx#stx-pair? _tl2185521913_) + (let ((_e2186021916_ (gx#syntax-e _tl2185521913_))) + (let ((_hd2185921920_ (let () (declare (not safe)) - (##car _e2168321739_))) - (_tl2168121746_ + (##car _e2186021916_))) + (_tl2185821923_ (let () (declare (not safe)) - (##cdr _e2168321739_)))) - (if (gx#stx-null? _tl2168121746_) - (if (gx#stx-pair? _tl2167221716_) - (let ((_e2168621749_ - (gx#syntax-e _tl2167221716_))) - (let ((_hd2168521753_ + (##cdr _e2186021916_)))) + (if (gx#stx-null? _tl2185821923_) + (if (gx#stx-pair? _tl2184921893_) + (let ((_e2186321926_ + (gx#syntax-e _tl2184921893_))) + (let ((_hd2186221930_ (let () (declare (not safe)) - (##car _e2168621749_))) - (_tl2168421756_ + (##car _e2186321926_))) + (_tl2186121933_ (let () (declare (not safe)) - (##cdr _e2168621749_)))) - ((lambda (_L21759_ - _L21761_ - _L21762_ - _L21763_) - (if (and (gx#identifier? _L21763_) + (##cdr _e2186321926_)))) + ((lambda (_L21936_ + _L21938_ + _L21939_ + _L21940_) + (if (and (gx#identifier? _L21940_) (let () (declare (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _L21762_)) + _L21939_)) (gx#stx-plist? - _L21759_ - _method-opt?21661_)) - (let* ((_klass21788_ + _L21936_ + _method-opt?21838_)) + (let* ((_klass21965_ (gx#syntax-local-value - _L21762_)) - (_rebind?21791_ + _L21939_)) + (_rebind?21968_ (gx#stx-e (gx#stx-getq 'rebind: - _L21759_))) - (_g2179421802_ - (lambda (_g2179521798_) + _L21936_))) + (_g2197121979_ + (lambda (_g2197221975_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2179521798_))) - (_g2179321985_ - (lambda (_g2179521806_) - ((lambda (_L21809_) + _g2197221975_))) + (_g2197022162_ + (lambda (_g2197221983_) + ((lambda (_L21986_) (let () - (let* ((_g2182321831_ + (let* ((_g2200022008_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2182421827_) + (lambda (_g2200122004_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2182421827_))) - (_g2182221981_ - (lambda (_g2182421835_) - ((lambda (_L21838_) + _g2200122004_))) + (_g2199922158_ + (lambda (_g2200122012_) + ((lambda (_L22015_) (let () - (let* ((_g2185121859_ - (lambda (_g2185221855_) + (let* ((_g2202822036_ + (lambda (_g2202922032_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2185221855_))) - (_g2185021977_ - (lambda (_g2185221863_) - ((lambda (_L21866_) + _g2202922032_))) + (_g2202722154_ + (lambda (_g2202922040_) + ((lambda (_L22043_) (let () - (let* ((_g2187921887_ - (lambda (_g2188021883_) + (let* ((_g2205622064_ + (lambda (_g2205722060_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2188021883_))) - (_g2187821973_ - (lambda (_g2188021891_) - ((lambda (_L21894_) + _g2205722060_))) + (_g2205522150_ + (lambda (_g2205722068_) + ((lambda (_L22071_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g2190721915_ - (lambda (_g2190821911_) + (let* ((_g2208422092_ + (lambda (_g2208522088_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2190821911_))) - (_g2190621969_ - (lambda (_g2190821919_) - ((lambda (_L21922_) + _g2208522088_))) + (_g2208322146_ + (lambda (_g2208522096_) + ((lambda (_L22099_) (let () - (let* ((_g2193521943_ - (lambda (_g2193621939_) + (let* ((_g2211222120_ + (lambda (_g2211322116_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2193621939_))) - (_g2193421965_ - (lambda (_g2193621947_) - ((lambda (_L21950_) + _g2211322116_))) + (_g2211122142_ + (lambda (_g2211322124_) + ((lambda (_L22127_) (let () (let () - (_wrap21659_ - (let ((__tmp49727 + (_wrap21836_ + (let ((__tmp49938 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'begin)) - (__tmp49725 - (let ((__tmp49726 + (__tmp49936 + (let ((__tmp49937 (let () (declare (not safe)) - (cons _L21950_ '())))) + (cons _L22127_ '())))) (declare (not safe)) - (cons _L21894_ __tmp49726)))) + (cons _L22071_ __tmp49937)))) (declare (not safe)) - (cons __tmp49727 __tmp49725)))))) + (cons __tmp49938 __tmp49936)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2193621947_)))) - (_g2193421965_ - (_wrap21659_ - (let ((__tmp49735 + _g2211322124_)))) + (_g2211122142_ + (_wrap21836_ + (let ((__tmp49946 (gx#datum->syntax '#f 'bind-method!)) - (__tmp49728 - (let ((__tmp49729 - (let ((__tmp49732 + (__tmp49939 + (let ((__tmp49940 + (let ((__tmp49943 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49734 (gx#datum->syntax '#f 'quote)) - (__tmp49733 + (let ((__tmp49945 (gx#datum->syntax '#f 'quote)) + (__tmp49944 (let () (declare (not safe)) - (cons _L21763_ '())))) + (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp49734 __tmp49733))) - (__tmp49730 - (let ((__tmp49731 + (cons __tmp49945 __tmp49944))) + (__tmp49941 + (let ((__tmp49942 (let () (declare (not safe)) - (cons _L21922_ '())))) + (cons _L22099_ '())))) (declare (not safe)) - (cons _L21838_ __tmp49731)))) + (cons _L22015_ __tmp49942)))) (declare (not safe)) - (cons __tmp49732 __tmp49730)))) + (cons __tmp49943 __tmp49941)))) (declare (not safe)) - (cons _L21809_ __tmp49729)))) + (cons _L21986_ __tmp49940)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49735 - __tmp49728))))))) - _g2190821919_)))) - (_g2190621969_ _rebind?21791_)))) - _g2188021891_)))) - (_g2187821973_ - (_wrap21659_ - (let ((__tmp49772 (gx#datum->syntax '#f 'def)) - (__tmp49736 - (let ((__tmp49737 - (let ((__tmp49738 - (let ((__tmp49771 + (cons __tmp49946 + __tmp49939))))))) + _g2208522096_)))) + (_g2208322146_ _rebind?21968_)))) + _g2205722068_)))) + (_g2205522150_ + (_wrap21836_ + (let ((__tmp49983 (gx#datum->syntax '#f 'def)) + (__tmp49947 + (let ((__tmp49948 + (let ((__tmp49949 + (let ((__tmp49982 (gx#datum->syntax '#f 'let-syntax)) - (__tmp49739 - (let ((__tmp49741 - (let ((__tmp49742 - (let ((__tmp49743 + (__tmp49950 + (let ((__tmp49952 + (let ((__tmp49953 + (let ((__tmp49954 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49744 - (let ((__tmp49770 + (let ((__tmp49955 + (let ((__tmp49981 (gx#datum->syntax '#f 'syntax-rules)) - (__tmp49745 - (let ((__tmp49746 - (let ((__tmp49747 - (let ((__tmp49762 - (let ((__tmp49769 + (__tmp49956 + (let ((__tmp49957 + (let ((__tmp49958 + (let ((__tmp49973 + (let ((__tmp49980 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '_)) - (__tmp49763 - (let ((__tmp49768 (gx#datum->syntax '#f 'obj)) - (__tmp49764 - (let ((__tmp49767 + (__tmp49974 + (let ((__tmp49979 (gx#datum->syntax '#f 'obj)) + (__tmp49975 + (let ((__tmp49978 (gx#datum->syntax '#f 'arg)) - (__tmp49765 - (let ((__tmp49766 + (__tmp49976 + (let ((__tmp49977 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49766 '())))) + (cons __tmp49977 '())))) (declare (not safe)) - (cons __tmp49767 __tmp49765)))) + (cons __tmp49978 __tmp49976)))) (declare (not safe)) - (cons __tmp49768 __tmp49764)))) + (cons __tmp49979 __tmp49975)))) (declare (not safe)) - (cons __tmp49769 __tmp49763))) - (__tmp49748 - (let ((__tmp49749 - (let ((__tmp49761 + (cons __tmp49980 __tmp49974))) + (__tmp49959 + (let ((__tmp49960 + (let ((__tmp49972 (gx#datum->syntax '#f 'call-next-method)) - (__tmp49750 - (let ((__tmp49751 - (let ((__tmp49760 + (__tmp49961 + (let ((__tmp49962 + (let ((__tmp49971 (gx#datum->syntax '#f 'obj)) - (__tmp49752 - (let ((__tmp49757 - (let ((__tmp49759 + (__tmp49963 + (let ((__tmp49968 + (let ((__tmp49970 (gx#datum->syntax '#f 'quote)) - (__tmp49758 + (__tmp49969 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L21763_ '())))) + (cons _L21940_ '())))) (declare (not safe)) - (cons __tmp49759 __tmp49758))) - (__tmp49753 - (let ((__tmp49756 (gx#datum->syntax '#f 'arg)) - (__tmp49754 - (let ((__tmp49755 (gx#datum->syntax '#f '...))) + (cons __tmp49970 __tmp49969))) + (__tmp49964 + (let ((__tmp49967 (gx#datum->syntax '#f 'arg)) + (__tmp49965 + (let ((__tmp49966 (gx#datum->syntax '#f '...))) (declare (not safe)) - (cons __tmp49755 '())))) + (cons __tmp49966 '())))) (declare (not safe)) - (cons __tmp49756 __tmp49754)))) + (cons __tmp49967 __tmp49965)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49757 - __tmp49753)))) + (cons __tmp49968 + __tmp49964)))) (declare (not safe)) - (cons __tmp49760 __tmp49752)))) + (cons __tmp49971 __tmp49963)))) (declare (not safe)) - (cons _L21809_ __tmp49751)))) + (cons _L21986_ __tmp49962)))) (declare (not safe)) - (cons __tmp49761 __tmp49750)))) + (cons __tmp49972 __tmp49961)))) (declare (not safe)) - (cons __tmp49749 '())))) + (cons __tmp49960 '())))) (declare (not safe)) - (cons __tmp49762 __tmp49748)))) + (cons __tmp49973 __tmp49959)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49747 '())))) + (cons __tmp49958 '())))) (declare (not safe)) - (cons '() __tmp49746)))) + (cons '() __tmp49957)))) (declare (not safe)) - (cons __tmp49770 __tmp49745)))) + (cons __tmp49981 __tmp49956)))) (declare (not safe)) - (cons __tmp49744 '())))) + (cons __tmp49955 '())))) (declare (not safe)) - (cons _L21866_ __tmp49743)))) + (cons _L22043_ __tmp49954)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49742 '()))) - (__tmp49740 + (cons __tmp49953 '()))) + (__tmp49951 (let () (declare (not safe)) - (cons _L21761_ '())))) + (cons _L21938_ '())))) (declare (not safe)) - (cons __tmp49741 __tmp49740)))) + (cons __tmp49952 __tmp49951)))) (declare (not safe)) - (cons __tmp49771 __tmp49739)))) + (cons __tmp49982 __tmp49950)))) (declare (not safe)) - (cons __tmp49738 '())))) + (cons __tmp49949 '())))) (declare (not safe)) - (cons _L21838_ __tmp49737)))) + (cons _L22015_ __tmp49948)))) (declare (not safe)) - (cons __tmp49772 __tmp49736))))))) + (cons __tmp49983 __tmp49947))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g2185221863_)))) - (_g2185021977_ + _g2202922040_)))) + (_g2202722154_ (gx#stx-identifier - _L21762_ + _L21939_ '@next-method))))) - _g2182421835_)))) - (_g2182221981_ + _g2200122012_)))) + (_g2199922158_ (gx#stx-identifier - _L21762_ - _L21762_ + _L21939_ + _L21939_ '"::" - _L21763_))))) - _g2179521806_)))) + _L21940_))))) + _g2197221983_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2179321985_ - (let ((__obj47349 - _klass21788_)) + (_g2197022162_ + (let ((__obj47526 + _klass21965_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj47349 + __obj47526 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj47349 - '8 + __obj47526 + '9 gerbil/core$$#class-type-info::t '#f)) (class-slot-ref gerbil/core$$#class-type-info::t - __obj47349 + __obj47526 'type-descriptor))))) - (if (let ((__tmp49724 + (if (let ((__tmp49935 (gx#identifier? - _L21763_))) + _L21940_))) (declare (not safe)) - (not __tmp49724)) + (not __tmp49935)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" - _stx21656_ - _L21763_) - (if (let ((__tmp49723 + _stx21833_ + _L21940_) + (if (let ((__tmp49934 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core$$#syntax-local-class-type-info?__0 - _L21762_)))) + _L21939_)))) (declare (not safe)) - (not __tmp49723)) + (not __tmp49934)) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" - _stx21656_ - _L21762_) + _stx21833_ + _L21939_) (gx#raise-syntax-error '#f '"bad syntax; illegal method options" - _stx21656_))))) + _stx21833_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _tl2168421756_ - _hd2168521753_ - _hd2168221743_ - _hd2167921733_))) - (_g2166321692_ _g2166421696_)) - (_g2166321692_ _g2166421696_)))) - (_g2166321692_ _g2166421696_)))) - (_g2166321692_ _g2166421696_)) + _tl2186121933_ + _hd2186221930_ + _hd2185921920_ + _hd2185621910_))) + (_g2184021869_ _g2184121873_)) + (_g2184021869_ _g2184121873_)))) + (_g2184021869_ _g2184121873_)))) + (_g2184021869_ _g2184121873_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g2166321692_ - _g2166421696_)) - (_g2166321692_ - _g2166421696_)))) - (_g2166321692_ _g2166421696_)))) - (_g2166321692_ _g2166421696_)))) - (_g2166321692_ _g2166421696_))))) - (_g2166221989_ _stx21656_))))) + (_g2184021869_ + _g2184121873_)) + (_g2184021869_ + _g2184121873_)))) + (_g2184021869_ _g2184121873_)))) + (_g2184021869_ _g2184121873_)))) + (_g2184021869_ _g2184121873_))))) + (_g2183922166_ _stx21833_))))) (define |gerbil/core$$[:0:]#@method| - (lambda (_stx21999_) - (letrec ((_dotted-identifier?22002_ - (lambda (_id22635_) - (if (gx#identifier? _id22635_) - (let ((_id-str22638_ - (symbol->string (gx#stx-e _id22635_)))) + (lambda (_stx22176_) + (letrec ((_dotted-identifier?22179_ + (lambda (_id22812_) + (if (gx#identifier? _id22812_) + (let ((_id-str22815_ + (symbol->string (gx#stx-e _id22812_)))) (if (let () (declare (not safe)) - (string-index _id-str22638_ '#\.)) - (let ((_split22641_ + (string-index _id-str22815_ '#\.)) + (let ((_split22818_ (let () (declare (not safe)) - (string-split _id-str22638_ '#\.)))) - (fx= (length _split22641_) '2)) + (string-split _id-str22815_ '#\.)))) + (fx= (length _split22818_) '2)) '#f)) '#f))) - (_split-dotted22004_ - (lambda (_id22624_) - (let* ((_id-str22627_ - (symbol->string (gx#stx-e _id22624_))) - (_split22630_ + (_split-dotted22181_ + (lambda (_id22801_) + (let* ((_id-str22804_ + (symbol->string (gx#stx-e _id22801_))) + (_split22807_ (let () (declare (not safe)) - (string-split _id-str22627_ '#\.)))) - (let ((__tmp49776 - (gx#stx-identifier _id22624_ (car _split22630_))) - (__tmp49774 - (let ((__tmp49775 + (string-split _id-str22804_ '#\.)))) + (let ((__tmp49987 + (gx#stx-identifier _id22801_ (car _split22807_))) + (__tmp49985 + (let ((__tmp49986 (gx#stx-identifier - _id22624_ - (cadr _split22630_)))) + _id22801_ + (cadr _split22807_)))) (declare (not safe)) - (cons __tmp49775 '())))) + (cons __tmp49986 '())))) (declare (not safe)) - (cons __tmp49776 __tmp49774)))))) - (let* ((___stx4432644327_ _stx21999_) - (_g2200922096_ + (cons __tmp49987 __tmp49985)))))) + (let* ((___stx4450344504_ _stx22176_) + (_g2218622273_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4432644327_)))) - (let ((___kont4432944330_ - (lambda (_L22517_ _L22519_ _L22520_) - (let* ((_g2254822563_ - (lambda (_g2254922559_) + ___stx4450344504_)))) + (let ((___kont4450644507_ + (lambda (_L22694_ _L22696_ _L22697_) + (let* ((_g2272522740_ + (lambda (_g2272622736_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2254922559_))) - (_g2254722616_ - (lambda (_g2254922567_) - (if (gx#stx-pair? _g2254922567_) - (let ((_e2255422570_ - (gx#syntax-e _g2254922567_))) - (let ((_hd2255322574_ + _g2272622736_))) + (_g2272422793_ + (lambda (_g2272622744_) + (if (gx#stx-pair? _g2272622744_) + (let ((_e2273122747_ + (gx#syntax-e _g2272622744_))) + (let ((_hd2273022751_ (let () (declare (not safe)) - (##car _e2255422570_))) - (_tl2255222577_ + (##car _e2273122747_))) + (_tl2272922754_ (let () (declare (not safe)) - (##cdr _e2255422570_)))) - (if (gx#stx-pair? _tl2255222577_) - (let ((_e2255722580_ + (##cdr _e2273122747_)))) + (if (gx#stx-pair? _tl2272922754_) + (let ((_e2273422757_ (gx#syntax-e - _tl2255222577_))) - (let ((_hd2255622584_ + _tl2272922754_))) + (let ((_hd2273322761_ (let () (declare (not safe)) - (##car _e2255722580_))) - (_tl2255522587_ + (##car _e2273422757_))) + (_tl2273222764_ (let () (declare (not safe)) - (##cdr _e2255722580_)))) + (##cdr _e2273422757_)))) (if (gx#stx-null? - _tl2255522587_) - ((lambda (_L22590_ _L22592_) + _tl2273222764_) + ((lambda (_L22767_ _L22769_) (let () - (let ((__tmp49789 + (let ((__tmp50000 (gx#datum->syntax '#f 'apply)) - (__tmp49777 - (let ((__tmp49788 + (__tmp49988 + (let ((__tmp49999 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'call-method)) - (__tmp49778 - (let ((__tmp49779 - (let ((__tmp49785 - (let ((__tmp49787 + (__tmp49989 + (let ((__tmp49990 + (let ((__tmp49996 + (let ((__tmp49998 (gx#datum->syntax '#f 'quote)) - (__tmp49786 + (__tmp49997 (let () (declare (not safe)) - (cons _L22590_ '())))) + (cons _L22767_ '())))) (declare (not safe)) - (cons __tmp49787 __tmp49786))) - (__tmp49780 - (let ((__tmp49781 - (let ((__tmp49784 + (cons __tmp49998 __tmp49997))) + (__tmp49991 + (let ((__tmp49992 + (let ((__tmp49995 (gx#datum->syntax '#f '@list)) - (__tmp49782 - (let ((__tmp49783 + (__tmp49993 + (let ((__tmp49994 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2260722610_ _g2260822613_) + (lambda (_g2278422787_ _g2278522790_) (let () (declare (not safe)) - (cons _g2260722610_ _g2260822613_))))) + (cons _g2278422787_ _g2278522790_))))) (declare (not safe)) - (foldr1 __tmp49783 '() _L22519_)))) + (foldr1 __tmp49994 '() _L22696_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49784 - __tmp49782)))) + (cons __tmp49995 + __tmp49993)))) (declare (not safe)) - (cons __tmp49781 '())))) + (cons __tmp49992 '())))) (declare (not safe)) - (cons __tmp49785 __tmp49780)))) + (cons __tmp49996 __tmp49991)))) (declare (not safe)) - (cons _L22592_ __tmp49779)))) + (cons _L22769_ __tmp49990)))) (declare (not safe)) - (cons __tmp49788 __tmp49778)))) + (cons __tmp49999 __tmp49989)))) (declare (not safe)) - (cons __tmp49789 __tmp49777)))) + (cons __tmp50000 __tmp49988)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2255622584_ - _hd2255322574_) - (_g2254822563_ - _g2254922567_)))) - (_g2254822563_ _g2254922567_)))) - (_g2254822563_ _g2254922567_))))) - (_g2254722616_ (_split-dotted22004_ _L22520_))))) - (___kont4433344334_ - (lambda (_L22359_ _L22361_) - (let* ((_g2237822393_ - (lambda (_g2237922389_) + _hd2273322761_ + _hd2273022751_) + (_g2272522740_ + _g2272622744_)))) + (_g2272522740_ _g2272622744_)))) + (_g2272522740_ _g2272622744_))))) + (_g2272422793_ (_split-dotted22181_ _L22697_))))) + (___kont4451044511_ + (lambda (_L22536_ _L22538_) + (let* ((_g2255522570_ + (lambda (_g2255622566_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g2237922389_))) - (_g2237722446_ - (lambda (_g2237922397_) - (if (gx#stx-pair? _g2237922397_) - (let ((_e2238422400_ - (gx#syntax-e _g2237922397_))) - (let ((_hd2238322404_ + _g2255622566_))) + (_g2255422623_ + (lambda (_g2255622574_) + (if (gx#stx-pair? _g2255622574_) + (let ((_e2256122577_ + (gx#syntax-e _g2255622574_))) + (let ((_hd2256022581_ (let () (declare (not safe)) - (##car _e2238422400_))) - (_tl2238222407_ + (##car _e2256122577_))) + (_tl2255922584_ (let () (declare (not safe)) - (##cdr _e2238422400_)))) - (if (gx#stx-pair? _tl2238222407_) - (let ((_e2238722410_ + (##cdr _e2256122577_)))) + (if (gx#stx-pair? _tl2255922584_) + (let ((_e2256422587_ (gx#syntax-e - _tl2238222407_))) - (let ((_hd2238622414_ + _tl2255922584_))) + (let ((_hd2256322591_ (let () (declare (not safe)) - (##car _e2238722410_))) - (_tl2238522417_ + (##car _e2256422587_))) + (_tl2256222594_ (let () (declare (not safe)) - (##cdr _e2238722410_)))) + (##cdr _e2256422587_)))) (if (gx#stx-null? - _tl2238522417_) - ((lambda (_L22420_ _L22422_) + _tl2256222594_) + ((lambda (_L22597_ _L22599_) (let () - (let ((__tmp49797 + (let ((__tmp50008 (gx#datum->syntax '#f 'call-method)) - (__tmp49790 - (let ((__tmp49791 + (__tmp50001 + (let ((__tmp50002 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp49794 - (let ((__tmp49796 + (let ((__tmp50005 + (let ((__tmp50007 (gx#datum->syntax '#f 'quote)) - (__tmp49795 + (__tmp50006 (let () (declare (not safe)) - (cons _L22420_ '())))) + (cons _L22597_ '())))) (declare (not safe)) - (cons __tmp49796 __tmp49795))) - (__tmp49792 - (let ((__tmp49793 - (lambda (_g2243722440_ - _g2243822443_) + (cons __tmp50007 __tmp50006))) + (__tmp50003 + (let ((__tmp50004 + (lambda (_g2261422617_ + _g2261522620_) (let () (declare (not safe)) - (cons _g2243722440_ - _g2243822443_))))) + (cons _g2261422617_ + _g2261522620_))))) (declare (not safe)) - (foldr1 __tmp49793 '() _L22359_)))) + (foldr1 __tmp50004 '() _L22536_)))) (declare (not safe)) - (cons __tmp49794 __tmp49792)))) + (cons __tmp50005 __tmp50003)))) (declare (not safe)) - (cons _L22422_ __tmp49791)))) + (cons _L22599_ __tmp50002)))) (declare (not safe)) - (cons __tmp49797 __tmp49790)))) + (cons __tmp50008 __tmp50001)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _hd2238622414_ - _hd2238322404_) - (_g2237822393_ - _g2237922397_)))) - (_g2237822393_ _g2237922397_)))) - (_g2237822393_ _g2237922397_))))) - (_g2237722446_ (_split-dotted22004_ _L22361_))))) - (___kont4433744338_ - (lambda (_L22263_ _L22265_ _L22266_) - (let ((__tmp49810 (gx#datum->syntax '#f 'apply)) - (__tmp49798 - (let ((__tmp49809 + _hd2256322591_ + _hd2256022581_) + (_g2255522570_ + _g2255622574_)))) + (_g2255522570_ _g2255622574_)))) + (_g2255522570_ _g2255622574_))))) + (_g2255422623_ (_split-dotted22181_ _L22538_))))) + (___kont4451444515_ + (lambda (_L22440_ _L22442_ _L22443_) + (let ((__tmp50021 (gx#datum->syntax '#f 'apply)) + (__tmp50009 + (let ((__tmp50020 (gx#datum->syntax '#f 'call-method)) - (__tmp49799 - (let ((__tmp49800 - (let ((__tmp49806 - (let ((__tmp49808 + (__tmp50010 + (let ((__tmp50011 + (let ((__tmp50017 + (let ((__tmp50019 (gx#datum->syntax '#f 'quote)) - (__tmp49807 + (__tmp50018 (let () (declare (not safe)) - (cons _L22266_ + (cons _L22443_ '())))) (declare (not safe)) - (cons __tmp49808 - __tmp49807))) - (__tmp49801 - (let ((__tmp49802 - (let ((__tmp49805 + (cons __tmp50019 + __tmp50018))) + (__tmp50012 + (let ((__tmp50013 + (let ((__tmp50016 (gx#datum->syntax '#f '@list)) - (__tmp49803 - (let ((__tmp49804 + (__tmp50014 + (let ((__tmp50015 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g2229322296_ _g2229422299_) + (lambda (_g2247022473_ _g2247122476_) (let () (declare (not safe)) - (cons _g2229322296_ _g2229422299_))))) + (cons _g2247022473_ _g2247122476_))))) (declare (not safe)) - (foldr1 __tmp49804 '() _L22263_)))) + (foldr1 __tmp50015 '() _L22440_)))) (declare (not safe)) - (cons __tmp49805 __tmp49803)))) + (cons __tmp50016 __tmp50014)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp49802 '())))) + (cons __tmp50013 '())))) (declare (not safe)) - (cons __tmp49806 __tmp49801)))) + (cons __tmp50017 __tmp50012)))) (declare (not safe)) - (cons _L22265_ __tmp49800)))) + (cons _L22442_ __tmp50011)))) (declare (not safe)) - (cons __tmp49809 __tmp49799)))) + (cons __tmp50020 __tmp50010)))) (declare (not safe)) - (cons __tmp49810 __tmp49798)))) - (___kont4434144342_ - (lambda (_L22163_ _L22165_ _L22166_) - (let ((__tmp49818 (gx#datum->syntax '#f 'call-method)) - (__tmp49811 - (let ((__tmp49812 - (let ((__tmp49815 - (let ((__tmp49817 + (cons __tmp50021 __tmp50009)))) + (___kont4451844519_ + (lambda (_L22340_ _L22342_ _L22343_) + (let ((__tmp50029 (gx#datum->syntax '#f 'call-method)) + (__tmp50022 + (let ((__tmp50023 + (let ((__tmp50026 + (let ((__tmp50028 (gx#datum->syntax '#f 'quote)) - (__tmp49816 + (__tmp50027 (let () (declare (not safe)) - (cons _L22166_ '())))) + (cons _L22343_ '())))) (declare (not safe)) - (cons __tmp49817 __tmp49816))) - (__tmp49813 - (let ((__tmp49814 - (lambda (_g2218722190_ - _g2218822193_) + (cons __tmp50028 __tmp50027))) + (__tmp50024 + (let ((__tmp50025 + (lambda (_g2236422367_ + _g2236522370_) (let () (declare (not safe)) - (cons _g2218722190_ - _g2218822193_))))) + (cons _g2236422367_ + _g2236522370_))))) (declare (not safe)) - (foldr1 __tmp49814 '() _L22163_)))) + (foldr1 __tmp50025 '() _L22340_)))) (declare (not safe)) - (cons __tmp49815 __tmp49813)))) + (cons __tmp50026 __tmp50024)))) (declare (not safe)) - (cons _L22165_ __tmp49812)))) + (cons _L22342_ __tmp50023)))) (declare (not safe)) - (cons __tmp49818 __tmp49811))))) - (let* ((___match4444544446_ - (lambda (_e2207522103_ - _hd2207422107_ - _tl2207322110_ - _e2207822113_ - _hd2207722117_ - _tl2207622120_ - _e2208122123_ - _hd2208022127_ - _tl2207922130_ - ___splice4434344344_ - _target2208222133_ - _tl2208422136_) - (letrec ((_loop2208522139_ - (lambda (_hd2208322143_ _arg2208922146_) - (if (gx#stx-pair? _hd2208322143_) - (let ((_e2208622149_ - (gx#syntax-e _hd2208322143_))) - (let ((_lp-tl2208822156_ + (cons __tmp50029 __tmp50022))))) + (let* ((___match4462244623_ + (lambda (_e2225222280_ + _hd2225122284_ + _tl2225022287_ + _e2225522290_ + _hd2225422294_ + _tl2225322297_ + _e2225822300_ + _hd2225722304_ + _tl2225622307_ + ___splice4452044521_ + _target2225922310_ + _tl2226122313_) + (letrec ((_loop2226222316_ + (lambda (_hd2226022320_ _arg2226622323_) + (if (gx#stx-pair? _hd2226022320_) + (let ((_e2226322326_ + (gx#syntax-e _hd2226022320_))) + (let ((_lp-tl2226522333_ (let () (declare (not safe)) - (##cdr _e2208622149_))) - (_lp-hd2208722153_ + (##cdr _e2226322326_))) + (_lp-hd2226422330_ (let () (declare (not safe)) - (##car _e2208622149_)))) - (_loop2208522139_ - _lp-tl2208822156_ + (##car _e2226322326_)))) + (_loop2226222316_ + _lp-tl2226522333_ (let () (declare (not safe)) - (cons _lp-hd2208722153_ - _arg2208922146_))))) - (let ((_arg2209022159_ - (reverse _arg2208922146_))) - (let ((_L22163_ _arg2209022159_) - (_L22165_ _hd2208022127_) - (_L22166_ _hd2207722117_)) - (if (gx#identifier? _L22166_) - (___kont4434144342_ - _L22163_ - _L22165_ - _L22166_) + (cons _lp-hd2226422330_ + _arg2226622323_))))) + (let ((_arg2226722336_ + (reverse _arg2226622323_))) + (let ((_L22340_ _arg2226722336_) + (_L22342_ _hd2225722304_) + (_L22343_ _hd2225422294_)) + (if (gx#identifier? _L22343_) + (___kont4451844519_ + _L22340_ + _L22342_ + _L22343_) (let () (declare (not safe)) - (_g2200922096_))))))))) - (_loop2208522139_ _target2208222133_ '())))) - (___match4441944420_ - (lambda (_e2205422203_ - _hd2205322207_ - _tl2205222210_ - _e2205722213_ - _hd2205622217_ - _tl2205522220_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_) - (letrec ((_loop2206422239_ - (lambda (_hd2206222243_ _arg2206822246_) - (if (gx#stx-pair? _hd2206222243_) - (let ((_e2206522249_ - (gx#syntax-e _hd2206222243_))) - (let ((_lp-tl2206722256_ + (_g2218622273_))))))))) + (_loop2226222316_ _target2225922310_ '())))) + (___match4459644597_ + (lambda (_e2223122380_ + _hd2223022384_ + _tl2222922387_ + _e2223422390_ + _hd2223322394_ + _tl2223222397_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_) + (letrec ((_loop2224122416_ + (lambda (_hd2223922420_ _arg2224522423_) + (if (gx#stx-pair? _hd2223922420_) + (let ((_e2224222426_ + (gx#syntax-e _hd2223922420_))) + (let ((_lp-tl2224422433_ (let () (declare (not safe)) - (##cdr _e2206522249_))) - (_lp-hd2206622253_ + (##cdr _e2224222426_))) + (_lp-hd2224322430_ (let () (declare (not safe)) - (##car _e2206522249_)))) - (_loop2206422239_ - _lp-tl2206722256_ + (##car _e2224222426_)))) + (_loop2224122416_ + _lp-tl2224422433_ (let () (declare (not safe)) - (cons _lp-hd2206622253_ - _arg2206822246_))))) - (let ((_arg2206922259_ - (reverse _arg2206822246_))) - (let ((_L22263_ _arg2206922259_) - (_L22265_ _hd2205922227_) - (_L22266_ _hd2205622217_)) - (if (and (gx#identifier? _L22266_) + (cons _lp-hd2224322430_ + _arg2224522423_))))) + (let ((_arg2224622436_ + (reverse _arg2224522423_))) + (let ((_L22440_ _arg2224622436_) + (_L22442_ _hd2223622404_) + (_L22443_ _hd2223322394_)) + (if (and (gx#identifier? _L22443_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp49819 - (lambda (_g2228522288_ + (let ((__tmp50030 + (lambda (_g2246222465_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2228622291_) + _g2246322468_) (let () (declare (not safe)) - (cons _g2228522288_ _g2228622291_))))) + (cons _g2246222465_ _g2246322468_))))) (declare (not safe)) - (foldr1 __tmp49819 '() _L22263_)))) + (foldr1 __tmp50030 '() _L22440_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4433744338_ - _L22263_ - _L22265_ - _L22266_) - (___match4444544446_ - _e2205422203_ - _hd2205322207_ - _tl2205222210_ - _e2205722213_ - _hd2205622217_ - _tl2205522220_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_)))))))) - (_loop2206422239_ _target2206122233_ '())))) - (___match4440544406_ - (lambda (_e2205422203_ - _hd2205322207_ - _tl2205222210_ - _e2205722213_ - _hd2205622217_ - _tl2205522220_) - (if (gx#stx-pair? _tl2205522220_) - (let ((_e2206022223_ (gx#syntax-e _tl2205522220_))) - (let ((_tl2205822230_ + (___kont4451444515_ + _L22440_ + _L22442_ + _L22443_) + (___match4462244623_ + _e2223122380_ + _hd2223022384_ + _tl2222922387_ + _e2223422390_ + _hd2223322394_ + _tl2223222397_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_)))))))) + (_loop2224122416_ _target2223822410_ '())))) + (___match4458244583_ + (lambda (_e2223122380_ + _hd2223022384_ + _tl2222922387_ + _e2223422390_ + _hd2223322394_ + _tl2223222397_) + (if (gx#stx-pair? _tl2223222397_) + (let ((_e2223722400_ (gx#syntax-e _tl2223222397_))) + (let ((_tl2223522407_ (let () (declare (not safe)) - (##cdr _e2206022223_))) - (_hd2205922227_ + (##cdr _e2223722400_))) + (_hd2223622404_ (let () (declare (not safe)) - (##car _e2206022223_)))) - (if (gx#stx-pair/null? _tl2205822230_) - (let ((___splice4433944340_ + (##car _e2223722400_)))) + (if (gx#stx-pair/null? _tl2223522407_) + (let ((___splice4451644517_ (gx#syntax-split-splice - _tl2205822230_ + _tl2223522407_ '0))) - (let ((_tl2206322236_ + (let ((_tl2224022413_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '1))) - (_target2206122233_ + (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '0)))) - (if (gx#stx-null? _tl2206322236_) - (___match4441944420_ - _e2205422203_ - _hd2205322207_ - _tl2205222210_ - _e2205722213_ - _hd2205622217_ - _tl2205522220_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_) + (if (gx#stx-null? _tl2224022413_) + (___match4459644597_ + _e2223122380_ + _hd2223022384_ + _tl2222922387_ + _e2223422390_ + _hd2223322394_ + _tl2223222397_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_) (let () (declare (not safe)) - (_g2200922096_))))) + (_g2218622273_))))) (let () (declare (not safe)) - (_g2200922096_))))) - (let () (declare (not safe)) (_g2200922096_))))) - (___match4439344394_ - (lambda (_e2203622309_ - _hd2203522313_ - _tl2203422316_ - _e2203922319_ - _hd2203822323_ - _tl2203722326_ - ___splice4433544336_ - _target2204022329_ - _tl2204222332_) - (letrec ((_loop2204322335_ - (lambda (_hd2204122339_ _arg2204722342_) - (if (gx#stx-pair? _hd2204122339_) - (let ((_e2204422345_ - (gx#syntax-e _hd2204122339_))) - (let ((_lp-tl2204622352_ + (_g2218622273_))))) + (let () (declare (not safe)) (_g2218622273_))))) + (___match4457044571_ + (lambda (_e2221322486_ + _hd2221222490_ + _tl2221122493_ + _e2221622496_ + _hd2221522500_ + _tl2221422503_ + ___splice4451244513_ + _target2221722506_ + _tl2221922509_) + (letrec ((_loop2222022512_ + (lambda (_hd2221822516_ _arg2222422519_) + (if (gx#stx-pair? _hd2221822516_) + (let ((_e2222122522_ + (gx#syntax-e _hd2221822516_))) + (let ((_lp-tl2222322529_ (let () (declare (not safe)) - (##cdr _e2204422345_))) - (_lp-hd2204522349_ + (##cdr _e2222122522_))) + (_lp-hd2222222526_ (let () (declare (not safe)) - (##car _e2204422345_)))) - (_loop2204322335_ - _lp-tl2204622352_ + (##car _e2222122522_)))) + (_loop2222022512_ + _lp-tl2222322529_ (let () (declare (not safe)) - (cons _lp-hd2204522349_ - _arg2204722342_))))) - (let ((_arg2204822355_ - (reverse _arg2204722342_))) - (let ((_L22359_ _arg2204822355_) - (_L22361_ _hd2203822323_)) - (if (_dotted-identifier?22002_ - _L22361_) - (___kont4433344334_ - _L22359_ - _L22361_) - (___match4440544406_ - _e2203622309_ - _hd2203522313_ - _tl2203422316_ - _e2203922319_ - _hd2203822323_ - _tl2203722326_)))))))) - (_loop2204322335_ _target2204022329_ '())))) - (___match4439144392_ - (lambda (_e2203622309_ - _hd2203522313_ - _tl2203422316_ - _e2203922319_ - _hd2203822323_ - _tl2203722326_ - ___splice4433544336_ - _target2204022329_ - _tl2204222332_) - (if (gx#stx-null? _tl2204222332_) - (___match4439344394_ - _e2203622309_ - _hd2203522313_ - _tl2203422316_ - _e2203922319_ - _hd2203822323_ - _tl2203722326_ - ___splice4433544336_ - _target2204022329_ - _tl2204222332_) - (if (gx#stx-pair? _tl2203722326_) - (let ((_e2206022223_ - (gx#syntax-e _tl2203722326_))) - (let ((_tl2205822230_ + (cons _lp-hd2222222526_ + _arg2222422519_))))) + (let ((_arg2222522532_ + (reverse _arg2222422519_))) + (let ((_L22536_ _arg2222522532_) + (_L22538_ _hd2221522500_)) + (if (_dotted-identifier?22179_ + _L22538_) + (___kont4451044511_ + _L22536_ + _L22538_) + (___match4458244583_ + _e2221322486_ + _hd2221222490_ + _tl2221122493_ + _e2221622496_ + _hd2221522500_ + _tl2221422503_)))))))) + (_loop2222022512_ _target2221722506_ '())))) + (___match4456844569_ + (lambda (_e2221322486_ + _hd2221222490_ + _tl2221122493_ + _e2221622496_ + _hd2221522500_ + _tl2221422503_ + ___splice4451244513_ + _target2221722506_ + _tl2221922509_) + (if (gx#stx-null? _tl2221922509_) + (___match4457044571_ + _e2221322486_ + _hd2221222490_ + _tl2221122493_ + _e2221622496_ + _hd2221522500_ + _tl2221422503_ + ___splice4451244513_ + _target2221722506_ + _tl2221922509_) + (if (gx#stx-pair? _tl2221422503_) + (let ((_e2223722400_ + (gx#syntax-e _tl2221422503_))) + (let ((_tl2223522407_ (let () (declare (not safe)) - (##cdr _e2206022223_))) - (_hd2205922227_ + (##cdr _e2223722400_))) + (_hd2223622404_ (let () (declare (not safe)) - (##car _e2206022223_)))) - (if (gx#stx-pair/null? _tl2205822230_) - (let ((___splice4433944340_ + (##car _e2223722400_)))) + (if (gx#stx-pair/null? _tl2223522407_) + (let ((___splice4451644517_ (gx#syntax-split-splice - _tl2205822230_ + _tl2223522407_ '0))) - (let ((_tl2206322236_ + (let ((_tl2224022413_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '1))) - (_target2206122233_ + (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '0)))) - (if (gx#stx-null? _tl2206322236_) - (___match4441944420_ - _e2203622309_ - _hd2203522313_ - _tl2203422316_ - _e2203922319_ - _hd2203822323_ - _tl2203722326_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_) + (if (gx#stx-null? _tl2224022413_) + (___match4459644597_ + _e2221322486_ + _hd2221222490_ + _tl2221122493_ + _e2221622496_ + _hd2221522500_ + _tl2221422503_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_) (let () (declare (not safe)) - (_g2200922096_))))) + (_g2218622273_))))) (let () (declare (not safe)) - (_g2200922096_))))) + (_g2218622273_))))) (let () (declare (not safe)) - (_g2200922096_)))))) - (___match4437344374_ - (lambda (_e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - ___splice4433144332_ - _target2202022477_ - _tl2202222480_ - _e2203122483_ - _hd2203022487_ - _tl2202922490_) - (letrec ((_loop2202322493_ - (lambda (_hd2202122497_ _arg2202722500_) - (if (gx#stx-pair? _hd2202122497_) - (let ((_e2202422503_ - (gx#syntax-e _hd2202122497_))) - (let ((_lp-tl2202622510_ + (_g2218622273_)))))) + (___match4455044551_ + (lambda (_e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + ___splice4450844509_ + _target2219722654_ + _tl2219922657_ + _e2220822660_ + _hd2220722664_ + _tl2220622667_) + (letrec ((_loop2220022670_ + (lambda (_hd2219822674_ _arg2220422677_) + (if (gx#stx-pair? _hd2219822674_) + (let ((_e2220122680_ + (gx#syntax-e _hd2219822674_))) + (let ((_lp-tl2220322687_ (let () (declare (not safe)) - (##cdr _e2202422503_))) - (_lp-hd2202522507_ + (##cdr _e2220122680_))) + (_lp-hd2220222684_ (let () (declare (not safe)) - (##car _e2202422503_)))) - (_loop2202322493_ - _lp-tl2202622510_ + (##car _e2220122680_)))) + (_loop2220022670_ + _lp-tl2220322687_ (let () (declare (not safe)) - (cons _lp-hd2202522507_ - _arg2202722500_))))) - (let ((_arg2202822513_ - (reverse _arg2202722500_))) - (let ((_L22517_ _hd2203022487_) - (_L22519_ _arg2202822513_) - (_L22520_ _hd2201822471_)) - (if (and (_dotted-identifier?22002_ - _L22520_) + (cons _lp-hd2220222684_ + _arg2220422677_))))) + (let ((_arg2220522690_ + (reverse _arg2220422677_))) + (let ((_L22694_ _hd2220722664_) + (_L22696_ _arg2220522690_) + (_L22697_ _hd2219522648_)) + (if (and (_dotted-identifier?22179_ + _L22697_) (gx#stx-ormap gx#ellipsis? - (let ((__tmp49820 - (lambda (_g2253922542_ + (let ((__tmp50031 + (lambda (_g2271622719_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2254022545_) + _g2271722722_) (let () (declare (not safe)) - (cons _g2253922542_ _g2254022545_))))) + (cons _g2271622719_ _g2271722722_))))) (declare (not safe)) - (foldr1 __tmp49820 '() _L22519_)))) + (foldr1 __tmp50031 '() _L22696_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont4432944330_ - _L22517_ - _L22519_ - _L22520_) - (let ((___splice4433544336_ + (___kont4450644507_ + _L22694_ + _L22696_ + _L22697_) + (let ((___splice4451244513_ (gx#syntax-split-splice - _tl2201722474_ + _tl2219422651_ '0))) - (let ((_tl2204222332_ + (let ((_tl2221922509_ (let () (declare (not safe)) (##vector-ref - ___splice4433544336_ + ___splice4451244513_ '1))) - (_target2204022329_ + (_target2221722506_ (let () (declare (not safe)) (##vector-ref - ___splice4433544336_ + ___splice4451244513_ '0)))) - (___match4439144392_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - ___splice4433544336_ - _target2204022329_ - _tl2204222332_)))))))))) - (_loop2202322493_ _target2202022477_ '()))))) - (if (gx#stx-pair? ___stx4432644327_) - (let ((_e2201622457_ (gx#syntax-e ___stx4432644327_))) - (let ((_tl2201422464_ + (___match4456844569_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + ___splice4451244513_ + _target2221722506_ + _tl2221922509_)))))))))) + (_loop2220022670_ _target2219722654_ '()))))) + (if (gx#stx-pair? ___stx4450344504_) + (let ((_e2219322634_ (gx#syntax-e ___stx4450344504_))) + (let ((_tl2219122641_ (let () (declare (not safe)) - (##cdr _e2201622457_))) - (_hd2201522461_ + (##cdr _e2219322634_))) + (_hd2219222638_ (let () (declare (not safe)) - (##car _e2201622457_)))) - (if (gx#stx-pair? _tl2201422464_) - (let ((_e2201922467_ (gx#syntax-e _tl2201422464_))) - (let ((_tl2201722474_ + (##car _e2219322634_)))) + (if (gx#stx-pair? _tl2219122641_) + (let ((_e2219622644_ (gx#syntax-e _tl2219122641_))) + (let ((_tl2219422651_ (let () (declare (not safe)) - (##cdr _e2201922467_))) - (_hd2201822471_ + (##cdr _e2219622644_))) + (_hd2219522648_ (let () (declare (not safe)) - (##car _e2201922467_)))) - (if (gx#stx-pair/null? _tl2201722474_) - (if (fx>= (gx#stx-length _tl2201722474_) + (##car _e2219622644_)))) + (if (gx#stx-pair/null? _tl2219422651_) + (if (fx>= (gx#stx-length _tl2219422651_) '1) - (let ((___splice4433144332_ + (let ((___splice4450844509_ (gx#syntax-split-splice - _tl2201722474_ + _tl2219422651_ '1))) - (let ((_tl2202222480_ + (let ((_tl2219922657_ (let () (declare (not safe)) (##vector-ref - ___splice4433144332_ + ___splice4450844509_ '1))) - (_target2202022477_ + (_target2219722654_ (let () (declare (not safe)) (##vector-ref - ___splice4433144332_ + ___splice4450844509_ '0)))) - (if (gx#stx-pair? _tl2202222480_) - (let ((_e2203122483_ + (if (gx#stx-pair? _tl2219922657_) + (let ((_e2220822660_ (gx#syntax-e - _tl2202222480_))) - (let ((_tl2202922490_ + _tl2219922657_))) + (let ((_tl2220622667_ (let () (declare (not safe)) - (##cdr _e2203122483_))) - (_hd2203022487_ + (##cdr _e2220822660_))) + (_hd2220722664_ (let () (declare (not safe)) - (##car _e2203122483_)))) + (##car _e2220822660_)))) (if (gx#stx-null? - _tl2202922490_) - (___match4437344374_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - ___splice4433144332_ - _target2202022477_ - _tl2202222480_ - _e2203122483_ - _hd2203022487_ - _tl2202922490_) - (let ((___splice4433544336_ + _tl2220622667_) + (___match4455044551_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + ___splice4450844509_ + _target2219722654_ + _tl2219922657_ + _e2220822660_ + _hd2220722664_ + _tl2220622667_) + (let ((___splice4451244513_ (gx#syntax-split-splice - _tl2201722474_ + _tl2219422651_ '0))) - (let ((_tl2204222332_ + (let ((_tl2221922509_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice4433544336_ '1))) - (_target2204022329_ + (##vector-ref ___splice4451244513_ '1))) + (_target2221722506_ (let () (declare (not safe)) - (##vector-ref ___splice4433544336_ '0)))) - (if (gx#stx-null? _tl2204222332_) - (___match4439344394_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - ___splice4433544336_ - _target2204022329_ - _tl2204222332_) - (if (gx#stx-pair? _tl2201722474_) - (let ((_e2206022223_ (gx#syntax-e _tl2201722474_))) - (let ((_tl2205822230_ + (##vector-ref ___splice4451244513_ '0)))) + (if (gx#stx-null? _tl2221922509_) + (___match4457044571_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + ___splice4451244513_ + _target2221722506_ + _tl2221922509_) + (if (gx#stx-pair? _tl2219422651_) + (let ((_e2223722400_ (gx#syntax-e _tl2219422651_))) + (let ((_tl2223522407_ (let () (declare (not safe)) - (##cdr _e2206022223_))) - (_hd2205922227_ + (##cdr _e2223722400_))) + (_hd2223622404_ (let () (declare (not safe)) - (##car _e2206022223_)))) - (if (gx#stx-pair/null? _tl2205822230_) - (let ((___splice4433944340_ + (##car _e2223722400_)))) + (if (gx#stx-pair/null? _tl2223522407_) + (let ((___splice4451644517_ (gx#syntax-split-splice - _tl2205822230_ + _tl2223522407_ '0))) - (let ((_tl2206322236_ + (let ((_tl2224022413_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '1))) - (_target2206122233_ + (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '0)))) - (if (gx#stx-null? _tl2206322236_) - (___match4441944420_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_) + (if (gx#stx-null? _tl2224022413_) + (___match4459644597_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_) (let () (declare (not safe)) - (_g2200922096_))))) + (_g2218622273_))))) (let () (declare (not safe)) - (_g2200922096_))))) + (_g2218622273_))))) (let () (declare (not safe)) - (_g2200922096_))))))))) + (_g2218622273_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice4433544336_ + (let ((___splice4451244513_ (gx#syntax-split-splice - _tl2201722474_ + _tl2219422651_ '0))) - (let ((_tl2204222332_ + (let ((_tl2221922509_ (let () (declare (not safe)) (##vector-ref - ___splice4433544336_ + ___splice4451244513_ '1))) - (_target2204022329_ + (_target2221722506_ (let () (declare (not safe)) (##vector-ref - ___splice4433544336_ + ___splice4451244513_ '0)))) (if (gx#stx-null? - _tl2204222332_) - (___match4439344394_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - ___splice4433544336_ - _target2204022329_ - _tl2204222332_) + _tl2221922509_) + (___match4457044571_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + ___splice4451244513_ + _target2221722506_ + _tl2221922509_) (if (gx#stx-pair? - _tl2201722474_) - (let ((_e2206022223_ + _tl2219422651_) + (let ((_e2223722400_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2201722474_))) - (let ((_tl2205822230_ + (gx#syntax-e _tl2219422651_))) + (let ((_tl2223522407_ (let () (declare (not safe)) - (##cdr _e2206022223_))) - (_hd2205922227_ + (##cdr _e2223722400_))) + (_hd2223622404_ (let () (declare (not safe)) - (##car _e2206022223_)))) - (if (gx#stx-pair/null? _tl2205822230_) - (let ((___splice4433944340_ - (gx#syntax-split-splice _tl2205822230_ '0))) - (let ((_tl2206322236_ + (##car _e2223722400_)))) + (if (gx#stx-pair/null? _tl2223522407_) + (let ((___splice4451644517_ + (gx#syntax-split-splice _tl2223522407_ '0))) + (let ((_tl2224022413_ (let () (declare (not safe)) - (##vector-ref ___splice4433944340_ '1))) - (_target2206122233_ + (##vector-ref ___splice4451644517_ '1))) + (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '0)))) - (if (gx#stx-null? _tl2206322236_) - (___match4441944420_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_) + (if (gx#stx-null? _tl2224022413_) + (___match4459644597_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_) (let () (declare (not safe)) - (_g2200922096_))))) - (let () (declare (not safe)) (_g2200922096_))))) - (let () (declare (not safe)) (_g2200922096_))))))))) + (_g2218622273_))))) + (let () (declare (not safe)) (_g2218622273_))))) + (let () (declare (not safe)) (_g2218622273_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((___splice4433544336_ + (let ((___splice4451244513_ (gx#syntax-split-splice - _tl2201722474_ + _tl2219422651_ '0))) - (let ((_tl2204222332_ + (let ((_tl2221922509_ (let () (declare (not safe)) (##vector-ref - ___splice4433544336_ + ___splice4451244513_ '1))) - (_target2204022329_ + (_target2221722506_ (let () (declare (not safe)) (##vector-ref - ___splice4433544336_ + ___splice4451244513_ '0)))) - (if (gx#stx-null? _tl2204222332_) - (___match4439344394_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - ___splice4433544336_ - _target2204022329_ - _tl2204222332_) + (if (gx#stx-null? _tl2221922509_) + (___match4457044571_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + ___splice4451244513_ + _target2221722506_ + _tl2221922509_) (if (gx#stx-pair? - _tl2201722474_) - (let ((_e2206022223_ + _tl2219422651_) + (let ((_e2223722400_ (gx#syntax-e - _tl2201722474_))) - (let ((_tl2205822230_ + _tl2219422651_))) + (let ((_tl2223522407_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2206022223_))) - (_hd2205922227_ - (let () (declare (not safe)) (##car _e2206022223_)))) - (if (gx#stx-pair/null? _tl2205822230_) - (let ((___splice4433944340_ - (gx#syntax-split-splice _tl2205822230_ '0))) - (let ((_tl2206322236_ + (##cdr _e2223722400_))) + (_hd2223622404_ + (let () (declare (not safe)) (##car _e2223722400_)))) + (if (gx#stx-pair/null? _tl2223522407_) + (let ((___splice4451644517_ + (gx#syntax-split-splice _tl2223522407_ '0))) + (let ((_tl2224022413_ (let () (declare (not safe)) - (##vector-ref ___splice4433944340_ '1))) - (_target2206122233_ + (##vector-ref ___splice4451644517_ '1))) + (_target2223822410_ (let () (declare (not safe)) - (##vector-ref ___splice4433944340_ '0)))) - (if (gx#stx-null? _tl2206322236_) - (___match4441944420_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_) - (let () (declare (not safe)) (_g2200922096_))))) - (let () (declare (not safe)) (_g2200922096_))))) + (##vector-ref ___splice4451644517_ '0)))) + (if (gx#stx-null? _tl2224022413_) + (___match4459644597_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_) + (let () (declare (not safe)) (_g2218622273_))))) + (let () (declare (not safe)) (_g2218622273_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2200922096_))))))) - (if (gx#stx-pair? _tl2201722474_) - (let ((_e2206022223_ - (gx#syntax-e _tl2201722474_))) - (let ((_tl2205822230_ + (_g2218622273_))))))) + (if (gx#stx-pair? _tl2219422651_) + (let ((_e2223722400_ + (gx#syntax-e _tl2219422651_))) + (let ((_tl2223522407_ (let () (declare (not safe)) - (##cdr _e2206022223_))) - (_hd2205922227_ + (##cdr _e2223722400_))) + (_hd2223622404_ (let () (declare (not safe)) - (##car _e2206022223_)))) + (##car _e2223722400_)))) (if (gx#stx-pair/null? - _tl2205822230_) - (let ((___splice4433944340_ + _tl2223522407_) + (let ((___splice4451644517_ (gx#syntax-split-splice - _tl2205822230_ + _tl2223522407_ '0))) - (let ((_tl2206322236_ + (let ((_tl2224022413_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '1))) - (_target2206122233_ + (_target2223822410_ (let () (declare (not safe)) (##vector-ref - ___splice4433944340_ + ___splice4451644517_ '0)))) (if (gx#stx-null? - _tl2206322236_) - (___match4441944420_ - _e2201622457_ - _hd2201522461_ - _tl2201422464_ - _e2201922467_ - _hd2201822471_ - _tl2201722474_ - _e2206022223_ - _hd2205922227_ - _tl2205822230_ - ___splice4433944340_ - _target2206122233_ - _tl2206322236_) + _tl2224022413_) + (___match4459644597_ + _e2219322634_ + _hd2219222638_ + _tl2219122641_ + _e2219622644_ + _hd2219522648_ + _tl2219422651_ + _e2223722400_ + _hd2223622404_ + _tl2223522407_ + ___splice4451644517_ + _target2223822410_ + _tl2224022413_) (let () (declare (not safe)) - (_g2200922096_))))) + (_g2218622273_))))) (let () (declare (not safe)) - (_g2200922096_))))) + (_g2218622273_))))) (let () (declare (not safe)) - (_g2200922096_)))))) - (let () (declare (not safe)) (_g2200922096_))))) - (let () (declare (not safe)) (_g2200922096_))))))))) + (_g2218622273_)))))) + (let () (declare (not safe)) (_g2218622273_))))) + (let () (declare (not safe)) (_g2218622273_))))))))) (define |gerbil/core$$[:0:]#@| - (lambda (_$stx22648_) - (let* ((___stx4444844449_ _$stx22648_) - (_g2265322693_ + (lambda (_$stx22825_) + (let* ((___stx4462544626_ _$stx22825_) + (_g2283022870_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4444844449_)))) - (let ((___kont4445144452_ - (lambda (_L22831_ _L22833_) - (let ((__tmp49826 (gx#datum->syntax '#f 'slot-ref)) - (__tmp49821 - (let ((__tmp49822 - (let ((__tmp49823 - (let ((__tmp49825 + ___stx4462544626_)))) + (let ((___kont4462844629_ + (lambda (_L23008_ _L23010_) + (let ((__tmp50037 (gx#datum->syntax '#f 'slot-ref)) + (__tmp50032 + (let ((__tmp50033 + (let ((__tmp50034 + (let ((__tmp50036 (gx#datum->syntax '#f 'quote)) - (__tmp49824 + (__tmp50035 (let () (declare (not safe)) - (cons _L22831_ '())))) + (cons _L23008_ '())))) (declare (not safe)) - (cons __tmp49825 __tmp49824)))) + (cons __tmp50036 __tmp50035)))) (declare (not safe)) - (cons __tmp49823 '())))) + (cons __tmp50034 '())))) (declare (not safe)) - (cons _L22833_ __tmp49822)))) + (cons _L23010_ __tmp50033)))) (declare (not safe)) - (cons __tmp49826 __tmp49821)))) - (___kont4445344454_ - (lambda (_L22760_ _L22762_ _L22763_ _L22764_) - (let ((__tmp49827 - (let ((__tmp49830 - (let ((__tmp49831 - (let ((__tmp49832 + (cons __tmp50037 __tmp50032)))) + (___kont4463044631_ + (lambda (_L22937_ _L22939_ _L22940_ _L22941_) + (let ((__tmp50038 + (let ((__tmp50041 + (let ((__tmp50042 + (let ((__tmp50043 (let () (declare (not safe)) - (cons _L22762_ '())))) + (cons _L22939_ '())))) (declare (not safe)) - (cons _L22763_ __tmp49832)))) + (cons _L22940_ __tmp50043)))) (declare (not safe)) - (cons _L22764_ __tmp49831))) - (__tmp49828 - (let ((__tmp49829 - (lambda (_g2278522788_ _g2278622791_) + (cons _L22941_ __tmp50042))) + (__tmp50039 + (let ((__tmp50040 + (lambda (_g2296222965_ _g2296322968_) (let () (declare (not safe)) - (cons _g2278522788_ - _g2278622791_))))) + (cons _g2296222965_ + _g2296322968_))))) (declare (not safe)) - (foldr1 __tmp49829 '() _L22760_)))) + (foldr1 __tmp50040 '() _L22937_)))) (declare (not safe)) - (cons __tmp49830 __tmp49828)))) + (cons __tmp50041 __tmp50039)))) (declare (not safe)) - (cons _L22764_ __tmp49827))))) - (let* ((___match4450344504_ - (lambda (_e2267222700_ - _hd2267122704_ - _tl2267022707_ - _e2267522710_ - _hd2267422714_ - _tl2267322717_ - _e2267822720_ - _hd2267722724_ - _tl2267622727_ - ___splice4445544456_ - _target2267922730_ - _tl2268122733_) - (letrec ((_loop2268222736_ - (lambda (_hd2268022740_ _rest2268622743_) - (if (gx#stx-pair? _hd2268022740_) - (let ((_e2268322746_ - (gx#syntax-e _hd2268022740_))) - (let ((_lp-tl2268522753_ + (cons _L22941_ __tmp50038))))) + (let* ((___match4468044681_ + (lambda (_e2284922877_ + _hd2284822881_ + _tl2284722884_ + _e2285222887_ + _hd2285122891_ + _tl2285022894_ + _e2285522897_ + _hd2285422901_ + _tl2285322904_ + ___splice4463244633_ + _target2285622907_ + _tl2285822910_) + (letrec ((_loop2285922913_ + (lambda (_hd2285722917_ _rest2286322920_) + (if (gx#stx-pair? _hd2285722917_) + (let ((_e2286022923_ + (gx#syntax-e _hd2285722917_))) + (let ((_lp-tl2286222930_ (let () (declare (not safe)) - (##cdr _e2268322746_))) - (_lp-hd2268422750_ + (##cdr _e2286022923_))) + (_lp-hd2286122927_ (let () (declare (not safe)) - (##car _e2268322746_)))) - (_loop2268222736_ - _lp-tl2268522753_ + (##car _e2286022923_)))) + (_loop2285922913_ + _lp-tl2286222930_ (let () (declare (not safe)) - (cons _lp-hd2268422750_ - _rest2268622743_))))) - (let ((_rest2268722756_ - (reverse _rest2268622743_))) - (___kont4445344454_ - _rest2268722756_ - _hd2267722724_ - _hd2267422714_ - _hd2267122704_)))))) - (_loop2268222736_ _target2267922730_ '())))) - (___match4447744478_ - (lambda (_e2265922801_ - _hd2265822805_ - _tl2265722808_ - _e2266222811_ - _hd2266122815_ - _tl2266022818_ - _e2266522821_ - _hd2266422825_ - _tl2266322828_) - (let ((_L22831_ _hd2266422825_) - (_L22833_ _hd2266122815_)) - (if (gx#identifier? _L22831_) - (___kont4445144452_ _L22831_ _L22833_) - (if (gx#stx-pair/null? _tl2266322828_) - (let ((___splice4445544456_ + (cons _lp-hd2286122927_ + _rest2286322920_))))) + (let ((_rest2286422933_ + (reverse _rest2286322920_))) + (___kont4463044631_ + _rest2286422933_ + _hd2285422901_ + _hd2285122891_ + _hd2284822881_)))))) + (_loop2285922913_ _target2285622907_ '())))) + (___match4465444655_ + (lambda (_e2283622978_ + _hd2283522982_ + _tl2283422985_ + _e2283922988_ + _hd2283822992_ + _tl2283722995_ + _e2284222998_ + _hd2284123002_ + _tl2284023005_) + (let ((_L23008_ _hd2284123002_) + (_L23010_ _hd2283822992_)) + (if (gx#identifier? _L23008_) + (___kont4462844629_ _L23008_ _L23010_) + (if (gx#stx-pair/null? _tl2284023005_) + (let ((___splice4463244633_ (gx#syntax-split-splice - _tl2266322828_ + _tl2284023005_ '0))) - (let ((_tl2268122733_ + (let ((_tl2285822910_ (let () (declare (not safe)) (##vector-ref - ___splice4445544456_ + ___splice4463244633_ '1))) - (_target2267922730_ + (_target2285622907_ (let () (declare (not safe)) (##vector-ref - ___splice4445544456_ + ___splice4463244633_ '0)))) - (if (gx#stx-null? _tl2268122733_) - (___match4450344504_ - _e2265922801_ - _hd2265822805_ - _tl2265722808_ - _e2266222811_ - _hd2266122815_ - _tl2266022818_ - _e2266522821_ - _hd2266422825_ - _tl2266322828_ - ___splice4445544456_ - _target2267922730_ - _tl2268122733_) + (if (gx#stx-null? _tl2285822910_) + (___match4468044681_ + _e2283622978_ + _hd2283522982_ + _tl2283422985_ + _e2283922988_ + _hd2283822992_ + _tl2283722995_ + _e2284222998_ + _hd2284123002_ + _tl2284023005_ + ___splice4463244633_ + _target2285622907_ + _tl2285822910_) (let () (declare (not safe)) - (_g2265322693_))))) + (_g2283022870_))))) (let () (declare (not safe)) - (_g2265322693_)))))))) - (if (gx#stx-pair? ___stx4444844449_) - (let ((_e2265922801_ (gx#syntax-e ___stx4444844449_))) - (let ((_tl2265722808_ - (let () (declare (not safe)) (##cdr _e2265922801_))) - (_hd2265822805_ + (_g2283022870_)))))))) + (if (gx#stx-pair? ___stx4462544626_) + (let ((_e2283622978_ (gx#syntax-e ___stx4462544626_))) + (let ((_tl2283422985_ + (let () (declare (not safe)) (##cdr _e2283622978_))) + (_hd2283522982_ (let () (declare (not safe)) - (##car _e2265922801_)))) - (if (gx#stx-pair? _tl2265722808_) - (let ((_e2266222811_ (gx#syntax-e _tl2265722808_))) - (let ((_tl2266022818_ + (##car _e2283622978_)))) + (if (gx#stx-pair? _tl2283422985_) + (let ((_e2283922988_ (gx#syntax-e _tl2283422985_))) + (let ((_tl2283722995_ (let () (declare (not safe)) - (##cdr _e2266222811_))) - (_hd2266122815_ + (##cdr _e2283922988_))) + (_hd2283822992_ (let () (declare (not safe)) - (##car _e2266222811_)))) - (if (gx#stx-pair? _tl2266022818_) - (let ((_e2266522821_ - (gx#syntax-e _tl2266022818_))) - (let ((_tl2266322828_ + (##car _e2283922988_)))) + (if (gx#stx-pair? _tl2283722995_) + (let ((_e2284222998_ + (gx#syntax-e _tl2283722995_))) + (let ((_tl2284023005_ (let () (declare (not safe)) - (##cdr _e2266522821_))) - (_hd2266422825_ + (##cdr _e2284222998_))) + (_hd2284123002_ (let () (declare (not safe)) - (##car _e2266522821_)))) - (if (gx#stx-null? _tl2266322828_) - (___match4447744478_ - _e2265922801_ - _hd2265822805_ - _tl2265722808_ - _e2266222811_ - _hd2266122815_ - _tl2266022818_ - _e2266522821_ - _hd2266422825_ - _tl2266322828_) + (##car _e2284222998_)))) + (if (gx#stx-null? _tl2284023005_) + (___match4465444655_ + _e2283622978_ + _hd2283522982_ + _tl2283422985_ + _e2283922988_ + _hd2283822992_ + _tl2283722995_ + _e2284222998_ + _hd2284123002_ + _tl2284023005_) (if (gx#stx-pair/null? - _tl2266322828_) - (let ((___splice4445544456_ + _tl2284023005_) + (let ((___splice4463244633_ (gx#syntax-split-splice - _tl2266322828_ + _tl2284023005_ '0))) - (let ((_tl2268122733_ + (let ((_tl2285822910_ (let () (declare (not safe)) (##vector-ref - ___splice4445544456_ + ___splice4463244633_ '1))) - (_target2267922730_ + (_target2285622907_ (let () (declare (not safe)) (##vector-ref - ___splice4445544456_ + ___splice4463244633_ '0)))) (if (gx#stx-null? - _tl2268122733_) - (___match4450344504_ - _e2265922801_ - _hd2265822805_ - _tl2265722808_ - _e2266222811_ - _hd2266122815_ - _tl2266022818_ - _e2266522821_ - _hd2266422825_ - _tl2266322828_ - ___splice4445544456_ - _target2267922730_ - _tl2268122733_) + _tl2285822910_) + (___match4468044681_ + _e2283622978_ + _hd2283522982_ + _tl2283422985_ + _e2283922988_ + _hd2283822992_ + _tl2283722995_ + _e2284222998_ + _hd2284123002_ + _tl2284023005_ + ___splice4463244633_ + _target2285622907_ + _tl2285822910_) (let () (declare (not safe)) - (_g2265322693_))))) + (_g2283022870_))))) (let () (declare (not safe)) - (_g2265322693_)))))) + (_g2283022870_)))))) (let () (declare (not safe)) - (_g2265322693_))))) - (let () (declare (not safe)) (_g2265322693_))))) - (let () (declare (not safe)) (_g2265322693_)))))))) + (_g2283022870_))))) + (let () (declare (not safe)) (_g2283022870_))))) + (let () (declare (not safe)) (_g2283022870_)))))))) (define |gerbil/core$$[:0:]#@-set!| - (lambda (_$stx22853_) - (let* ((___stx4450644507_ _$stx22853_) - (_g2285822910_ + (lambda (_$stx23030_) + (let* ((___stx4468344684_ _$stx23030_) + (_g2303523087_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx4450644507_)))) - (let ((___kont4450944510_ - (lambda (_L23086_ _L23088_ _L23089_) - (let ((__tmp49839 (gx#datum->syntax '#f 'slot-set!)) - (__tmp49833 - (let ((__tmp49834 - (let ((__tmp49836 - (let ((__tmp49838 + ___stx4468344684_)))) + (let ((___kont4468644687_ + (lambda (_L23263_ _L23265_ _L23266_) + (let ((__tmp50050 (gx#datum->syntax '#f 'slot-set!)) + (__tmp50044 + (let ((__tmp50045 + (let ((__tmp50047 + (let ((__tmp50049 (gx#datum->syntax '#f 'quote)) - (__tmp49837 + (__tmp50048 (let () (declare (not safe)) - (cons _L23088_ '())))) + (cons _L23265_ '())))) (declare (not safe)) - (cons __tmp49838 __tmp49837))) - (__tmp49835 + (cons __tmp50049 __tmp50048))) + (__tmp50046 (let () (declare (not safe)) - (cons _L23086_ '())))) + (cons _L23263_ '())))) (declare (not safe)) - (cons __tmp49836 __tmp49835)))) + (cons __tmp50047 __tmp50046)))) (declare (not safe)) - (cons _L23089_ __tmp49834)))) + (cons _L23266_ __tmp50045)))) (declare (not safe)) - (cons __tmp49839 __tmp49833)))) - (___kont4451144512_ - (lambda (_L22997_ - _L22999_ - _L23000_ - _L23001_ - _L23002_ - _L23003_) - (let ((__tmp49840 - (let ((__tmp49843 - (let ((__tmp49848 (gx#datum->syntax '#f '@)) - (__tmp49844 - (let ((__tmp49845 - (let ((__tmp49846 - (let ((__tmp49847 - (lambda (_g2303023033_ + (cons __tmp50050 __tmp50044)))) + (___kont4468844689_ + (lambda (_L23174_ + _L23176_ + _L23177_ + _L23178_ + _L23179_ + _L23180_) + (let ((__tmp50051 + (let ((__tmp50054 + (let ((__tmp50059 (gx#datum->syntax '#f '@)) + (__tmp50055 + (let ((__tmp50056 + (let ((__tmp50057 + (let ((__tmp50058 + (lambda (_g2320723210_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g2303123036_) + _g2320823213_) (let () (declare (not safe)) - (cons _g2303023033_ _g2303123036_))))) + (cons _g2320723210_ _g2320823213_))))) (declare (not safe)) - (foldr1 __tmp49847 '() _L23000_)))) + (foldr1 __tmp50058 '() _L23177_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L23001_ __tmp49846)))) + (cons _L23178_ __tmp50057)))) (declare (not safe)) - (cons _L23002_ __tmp49845)))) + (cons _L23179_ __tmp50056)))) (declare (not safe)) - (cons __tmp49848 __tmp49844))) - (__tmp49841 - (let ((__tmp49842 + (cons __tmp50059 __tmp50055))) + (__tmp50052 + (let ((__tmp50053 (let () (declare (not safe)) - (cons _L22997_ '())))) + (cons _L23174_ '())))) (declare (not safe)) - (cons _L22999_ __tmp49842)))) + (cons _L23176_ __tmp50053)))) (declare (not safe)) - (cons __tmp49843 __tmp49841)))) + (cons __tmp50054 __tmp50052)))) (declare (not safe)) - (cons _L23003_ __tmp49840))))) - (let* ((___match4458144582_ - (lambda (_e2288322917_ - _hd2288222921_ - _tl2288122924_ - _e2288622927_ - _hd2288522931_ - _tl2288422934_ - _e2288922937_ - _hd2288822941_ - _tl2288722944_ - ___splice4451344514_ - _target2289022947_ - _tl2289222950_ - _e2290122953_ - _hd2290022957_ - _tl2289922960_ - _e2290422963_ - _hd2290322967_ - _tl2290222970_) - (letrec ((_loop2289322973_ - (lambda (_hd2289122977_ _path2289722980_) - (if (gx#stx-pair? _hd2289122977_) - (let ((_e2289422983_ - (gx#syntax-e _hd2289122977_))) - (let ((_lp-tl2289622990_ + (cons _L23180_ __tmp50051))))) + (let* ((___match4475844759_ + (lambda (_e2306023094_ + _hd2305923098_ + _tl2305823101_ + _e2306323104_ + _hd2306223108_ + _tl2306123111_ + _e2306623114_ + _hd2306523118_ + _tl2306423121_ + ___splice4469044691_ + _target2306723124_ + _tl2306923127_ + _e2307823130_ + _hd2307723134_ + _tl2307623137_ + _e2308123140_ + _hd2308023144_ + _tl2307923147_) + (letrec ((_loop2307023150_ + (lambda (_hd2306823154_ _path2307423157_) + (if (gx#stx-pair? _hd2306823154_) + (let ((_e2307123160_ + (gx#syntax-e _hd2306823154_))) + (let ((_lp-tl2307323167_ (let () (declare (not safe)) - (##cdr _e2289422983_))) - (_lp-hd2289522987_ + (##cdr _e2307123160_))) + (_lp-hd2307223164_ (let () (declare (not safe)) - (##car _e2289422983_)))) - (_loop2289322973_ - _lp-tl2289622990_ + (##car _e2307123160_)))) + (_loop2307023150_ + _lp-tl2307323167_ (let () (declare (not safe)) - (cons _lp-hd2289522987_ - _path2289722980_))))) - (let ((_path2289822993_ - (reverse _path2289722980_))) - (___kont4451144512_ - _hd2290322967_ - _hd2290022957_ - _path2289822993_ - _hd2288822941_ - _hd2288522931_ - _hd2288222921_)))))) - (_loop2289322973_ _target2289022947_ '())))) - (___match4454144542_ - (lambda (_e2286523046_ - _hd2286423050_ - _tl2286323053_ - _e2286823056_ - _hd2286723060_ - _tl2286623063_ - _e2287123066_ - _hd2287023070_ - _tl2286923073_ - _e2287423076_ - _hd2287323080_ - _tl2287223083_) - (let ((_L23086_ _hd2287323080_) - (_L23088_ _hd2287023070_) - (_L23089_ _hd2286723060_)) - (if (gx#identifier? _L23088_) - (___kont4450944510_ _L23086_ _L23088_ _L23089_) - (if (gx#stx-pair/null? _tl2286923073_) - (if (fx>= (gx#stx-length _tl2286923073_) '2) - (let ((___splice4451344514_ + (cons _lp-hd2307223164_ + _path2307423157_))))) + (let ((_path2307523170_ + (reverse _path2307423157_))) + (___kont4468844689_ + _hd2308023144_ + _hd2307723134_ + _path2307523170_ + _hd2306523118_ + _hd2306223108_ + _hd2305923098_)))))) + (_loop2307023150_ _target2306723124_ '())))) + (___match4471844719_ + (lambda (_e2304223223_ + _hd2304123227_ + _tl2304023230_ + _e2304523233_ + _hd2304423237_ + _tl2304323240_ + _e2304823243_ + _hd2304723247_ + _tl2304623250_ + _e2305123253_ + _hd2305023257_ + _tl2304923260_) + (let ((_L23263_ _hd2305023257_) + (_L23265_ _hd2304723247_) + (_L23266_ _hd2304423237_)) + (if (gx#identifier? _L23265_) + (___kont4468644687_ _L23263_ _L23265_ _L23266_) + (if (gx#stx-pair/null? _tl2304623250_) + (if (fx>= (gx#stx-length _tl2304623250_) '2) + (let ((___splice4469044691_ (gx#syntax-split-splice - _tl2286923073_ + _tl2304623250_ '2))) - (let ((_tl2289222950_ + (let ((_tl2306923127_ (let () (declare (not safe)) (##vector-ref - ___splice4451344514_ + ___splice4469044691_ '1))) - (_target2289022947_ + (_target2306723124_ (let () (declare (not safe)) (##vector-ref - ___splice4451344514_ + ___splice4469044691_ '0)))) - (if (gx#stx-pair? _tl2289222950_) - (let ((_e2290122953_ + (if (gx#stx-pair? _tl2306923127_) + (let ((_e2307823130_ (gx#syntax-e - _tl2289222950_))) - (let ((_tl2289922960_ + _tl2306923127_))) + (let ((_tl2307623137_ (let () (declare (not safe)) - (##cdr _e2290122953_))) - (_hd2290022957_ + (##cdr _e2307823130_))) + (_hd2307723134_ (let () (declare (not safe)) - (##car _e2290122953_)))) + (##car _e2307823130_)))) (if (gx#stx-pair? - _tl2289922960_) - (let ((_e2290422963_ + _tl2307623137_) + (let ((_e2308123140_ (gx#syntax-e - _tl2289922960_))) - (let ((_tl2290222970_ + _tl2307623137_))) + (let ((_tl2307923147_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e2290422963_))) - (_hd2290322967_ - (let () (declare (not safe)) (##car _e2290422963_)))) - (if (gx#stx-null? _tl2290222970_) - (___match4458144582_ - _e2286523046_ - _hd2286423050_ - _tl2286323053_ - _e2286823056_ - _hd2286723060_ - _tl2286623063_ - _e2287123066_ - _hd2287023070_ - _tl2286923073_ - ___splice4451344514_ - _target2289022947_ - _tl2289222950_ - _e2290122953_ - _hd2290022957_ - _tl2289922960_ - _e2290422963_ - _hd2290322967_ - _tl2290222970_) - (let () (declare (not safe)) (_g2285822910_))))) + (##cdr _e2308123140_))) + (_hd2308023144_ + (let () (declare (not safe)) (##car _e2308123140_)))) + (if (gx#stx-null? _tl2307923147_) + (___match4475844759_ + _e2304223223_ + _hd2304123227_ + _tl2304023230_ + _e2304523233_ + _hd2304423237_ + _tl2304323240_ + _e2304823243_ + _hd2304723247_ + _tl2304623250_ + ___splice4469044691_ + _target2306723124_ + _tl2306923127_ + _e2307823130_ + _hd2307723134_ + _tl2307623137_ + _e2308123140_ + _hd2308023144_ + _tl2307923147_) + (let () (declare (not safe)) (_g2303523087_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2285822910_))))) + (_g2303523087_))))) (let () (declare (not safe)) - (_g2285822910_))))) + (_g2303523087_))))) (let () (declare (not safe)) - (_g2285822910_))) + (_g2303523087_))) (let () (declare (not safe)) - (_g2285822910_)))))))) - (if (gx#stx-pair? ___stx4450644507_) - (let ((_e2286523046_ (gx#syntax-e ___stx4450644507_))) - (let ((_tl2286323053_ - (let () (declare (not safe)) (##cdr _e2286523046_))) - (_hd2286423050_ + (_g2303523087_)))))))) + (if (gx#stx-pair? ___stx4468344684_) + (let ((_e2304223223_ (gx#syntax-e ___stx4468344684_))) + (let ((_tl2304023230_ + (let () (declare (not safe)) (##cdr _e2304223223_))) + (_hd2304123227_ (let () (declare (not safe)) - (##car _e2286523046_)))) - (if (gx#stx-pair? _tl2286323053_) - (let ((_e2286823056_ (gx#syntax-e _tl2286323053_))) - (let ((_tl2286623063_ + (##car _e2304223223_)))) + (if (gx#stx-pair? _tl2304023230_) + (let ((_e2304523233_ (gx#syntax-e _tl2304023230_))) + (let ((_tl2304323240_ (let () (declare (not safe)) - (##cdr _e2286823056_))) - (_hd2286723060_ + (##cdr _e2304523233_))) + (_hd2304423237_ (let () (declare (not safe)) - (##car _e2286823056_)))) - (if (gx#stx-pair? _tl2286623063_) - (let ((_e2287123066_ - (gx#syntax-e _tl2286623063_))) - (let ((_tl2286923073_ + (##car _e2304523233_)))) + (if (gx#stx-pair? _tl2304323240_) + (let ((_e2304823243_ + (gx#syntax-e _tl2304323240_))) + (let ((_tl2304623250_ (let () (declare (not safe)) - (##cdr _e2287123066_))) - (_hd2287023070_ + (##cdr _e2304823243_))) + (_hd2304723247_ (let () (declare (not safe)) - (##car _e2287123066_)))) - (if (gx#stx-pair? _tl2286923073_) - (let ((_e2287423076_ - (gx#syntax-e _tl2286923073_))) - (let ((_tl2287223083_ + (##car _e2304823243_)))) + (if (gx#stx-pair? _tl2304623250_) + (let ((_e2305123253_ + (gx#syntax-e _tl2304623250_))) + (let ((_tl2304923260_ (let () (declare (not safe)) - (##cdr _e2287423076_))) - (_hd2287323080_ + (##cdr _e2305123253_))) + (_hd2305023257_ (let () (declare (not safe)) - (##car _e2287423076_)))) - (if (gx#stx-null? _tl2287223083_) - (___match4454144542_ - _e2286523046_ - _hd2286423050_ - _tl2286323053_ - _e2286823056_ - _hd2286723060_ - _tl2286623063_ - _e2287123066_ - _hd2287023070_ - _tl2286923073_ - _e2287423076_ - _hd2287323080_ - _tl2287223083_) + (##car _e2305123253_)))) + (if (gx#stx-null? _tl2304923260_) + (___match4471844719_ + _e2304223223_ + _hd2304123227_ + _tl2304023230_ + _e2304523233_ + _hd2304423237_ + _tl2304323240_ + _e2304823243_ + _hd2304723247_ + _tl2304623250_ + _e2305123253_ + _hd2305023257_ + _tl2304923260_) (if (gx#stx-pair/null? - _tl2286923073_) + _tl2304623250_) (if (fx>= (gx#stx-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl2286923073_) + _tl2304623250_) '2) - (let ((___splice4451344514_ - (gx#syntax-split-splice _tl2286923073_ '2))) - (let ((_tl2289222950_ + (let ((___splice4469044691_ + (gx#syntax-split-splice _tl2304623250_ '2))) + (let ((_tl2306923127_ (let () (declare (not safe)) - (##vector-ref ___splice4451344514_ '1))) - (_target2289022947_ + (##vector-ref ___splice4469044691_ '1))) + (_target2306723124_ (let () (declare (not safe)) - (##vector-ref ___splice4451344514_ '0)))) - (if (gx#stx-pair? _tl2289222950_) - (let ((_e2290122953_ (gx#syntax-e _tl2289222950_))) - (let ((_tl2289922960_ + (##vector-ref ___splice4469044691_ '0)))) + (if (gx#stx-pair? _tl2306923127_) + (let ((_e2307823130_ (gx#syntax-e _tl2306923127_))) + (let ((_tl2307623137_ (let () (declare (not safe)) - (##cdr _e2290122953_))) - (_hd2290022957_ + (##cdr _e2307823130_))) + (_hd2307723134_ (let () (declare (not safe)) - (##car _e2290122953_)))) - (if (gx#stx-pair? _tl2289922960_) - (let ((_e2290422963_ - (gx#syntax-e _tl2289922960_))) - (let ((_tl2290222970_ + (##car _e2307823130_)))) + (if (gx#stx-pair? _tl2307623137_) + (let ((_e2308123140_ + (gx#syntax-e _tl2307623137_))) + (let ((_tl2307923147_ (let () (declare (not safe)) - (##cdr _e2290422963_))) - (_hd2290322967_ + (##cdr _e2308123140_))) + (_hd2308023144_ (let () (declare (not safe)) - (##car _e2290422963_)))) - (if (gx#stx-null? _tl2290222970_) - (___match4458144582_ - _e2286523046_ - _hd2286423050_ - _tl2286323053_ - _e2286823056_ - _hd2286723060_ - _tl2286623063_ - _e2287123066_ - _hd2287023070_ - _tl2286923073_ - ___splice4451344514_ - _target2289022947_ - _tl2289222950_ - _e2290122953_ - _hd2290022957_ - _tl2289922960_ - _e2290422963_ - _hd2290322967_ - _tl2290222970_) + (##car _e2308123140_)))) + (if (gx#stx-null? _tl2307923147_) + (___match4475844759_ + _e2304223223_ + _hd2304123227_ + _tl2304023230_ + _e2304523233_ + _hd2304423237_ + _tl2304323240_ + _e2304823243_ + _hd2304723247_ + _tl2304623250_ + ___splice4469044691_ + _target2306723124_ + _tl2306923127_ + _e2307823130_ + _hd2307723134_ + _tl2307623137_ + _e2308123140_ + _hd2308023144_ + _tl2307923147_) (let () (declare (not safe)) - (_g2285822910_))))) + (_g2303523087_))))) (let () (declare (not safe)) - (_g2285822910_))))) - (let () (declare (not safe)) (_g2285822910_))))) - (let () (declare (not safe)) (_g2285822910_))) - (let () (declare (not safe)) (_g2285822910_)))))) + (_g2303523087_))))) + (let () (declare (not safe)) (_g2303523087_))))) + (let () (declare (not safe)) (_g2303523087_))) + (let () (declare (not safe)) (_g2303523087_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _tl2286923073_) + _tl2304623250_) (if (fx>= (gx#stx-length - _tl2286923073_) + _tl2304623250_) '2) - (let ((___splice4451344514_ + (let ((___splice4469044691_ (gx#syntax-split-splice - _tl2286923073_ + _tl2304623250_ '2))) - (let ((_tl2289222950_ + (let ((_tl2306923127_ (let () (declare (not safe)) (##vector-ref - ___splice4451344514_ + ___splice4469044691_ '1))) - (_target2289022947_ + (_target2306723124_ (let () (declare (not safe)) (##vector-ref - ___splice4451344514_ + ___splice4469044691_ '0)))) (if (gx#stx-pair? - _tl2289222950_) - (let ((_e2290122953_ + _tl2306923127_) + (let ((_e2307823130_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl2289222950_))) - (let ((_tl2289922960_ - (let () (declare (not safe)) (##cdr _e2290122953_))) - (_hd2290022957_ + (gx#syntax-e _tl2306923127_))) + (let ((_tl2307623137_ + (let () (declare (not safe)) (##cdr _e2307823130_))) + (_hd2307723134_ (let () (declare (not safe)) - (##car _e2290122953_)))) - (if (gx#stx-pair? _tl2289922960_) - (let ((_e2290422963_ (gx#syntax-e _tl2289922960_))) - (let ((_tl2290222970_ + (##car _e2307823130_)))) + (if (gx#stx-pair? _tl2307623137_) + (let ((_e2308123140_ (gx#syntax-e _tl2307623137_))) + (let ((_tl2307923147_ (let () (declare (not safe)) - (##cdr _e2290422963_))) - (_hd2290322967_ + (##cdr _e2308123140_))) + (_hd2308023144_ (let () (declare (not safe)) - (##car _e2290422963_)))) - (if (gx#stx-null? _tl2290222970_) - (___match4458144582_ - _e2286523046_ - _hd2286423050_ - _tl2286323053_ - _e2286823056_ - _hd2286723060_ - _tl2286623063_ - _e2287123066_ - _hd2287023070_ - _tl2286923073_ - ___splice4451344514_ - _target2289022947_ - _tl2289222950_ - _e2290122953_ - _hd2290022957_ - _tl2289922960_ - _e2290422963_ - _hd2290322967_ - _tl2290222970_) + (##car _e2308123140_)))) + (if (gx#stx-null? _tl2307923147_) + (___match4475844759_ + _e2304223223_ + _hd2304123227_ + _tl2304023230_ + _e2304523233_ + _hd2304423237_ + _tl2304323240_ + _e2304823243_ + _hd2304723247_ + _tl2304623250_ + ___splice4469044691_ + _target2306723124_ + _tl2306923127_ + _e2307823130_ + _hd2307723134_ + _tl2307623137_ + _e2308123140_ + _hd2308023144_ + _tl2307923147_) (let () (declare (not safe)) - (_g2285822910_))))) - (let () (declare (not safe)) (_g2285822910_))))) - (let () (declare (not safe)) (_g2285822910_))))) + (_g2303523087_))))) + (let () (declare (not safe)) (_g2303523087_))))) + (let () (declare (not safe)) (_g2303523087_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g2285822910_))) + (_g2303523087_))) (let () (declare (not safe)) - (_g2285822910_)))))) + (_g2303523087_)))))) (let () (declare (not safe)) - (_g2285822910_))))) - (let () (declare (not safe)) (_g2285822910_))))) - (let () (declare (not safe)) (_g2285822910_)))))))))) + (_g2303523087_))))) + (let () (declare (not safe)) (_g2303523087_))))) + (let () (declare (not safe)) (_g2303523087_)))))))))) diff --git a/src/bootstrap/gerbil/core__9.scm b/src/bootstrap/gerbil/core__9.scm index 3ba085d96..e9a87715b 100644 --- a/src/bootstrap/gerbil/core__9.scm +++ b/src/bootstrap/gerbil/core__9.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core$[1]#_g49850_| + (define |gerbil/core$[1]#_g50061_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49852_| + (define |gerbil/core$[1]#_g50063_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49854_| + (define |gerbil/core$[1]#_g50065_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49858_| + (define |gerbil/core$[1]#_g50069_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49862_| + (define |gerbil/core$[1]#_g50073_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49866_| + (define |gerbil/core$[1]#_g50077_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core$[1]#_g49870_| + (define |gerbil/core$[1]#_g50081_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core$[:0:]#macro-object| - (let ((__obj47350 + (let ((__obj47527 (let () (declare (not safe)) (##structure @@ -68,11 +68,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 + __obj47527 'gerbil.core#macro-object::t '1 gerbil/core$$#class-type-info::t @@ -80,7 +81,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 + __obj47527 'macro-object '2 gerbil/core$$#class-type-info::t @@ -88,7 +89,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 + __obj47527 '(macro) '4 gerbil/core$$#class-type-info::t @@ -96,7 +97,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 + __obj47527 '() '3 gerbil/core$$#class-type-info::t @@ -104,7 +105,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 + __obj47527 '#f '5 gerbil/core$$#class-type-info::t @@ -112,7 +113,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 + __obj47527 '#f '6 gerbil/core$$#class-type-info::t @@ -120,93 +121,101 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 + __obj47527 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49849 |gerbil/core$[1]#_g49850_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj47350 - __tmp49849 + __obj47527 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49851 |gerbil/core$[1]#_g49852_|)) + (let ((__tmp50060 |gerbil/core$[1]#_g50061_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47350 - __tmp49851 + __obj47527 + __tmp50060 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49853 |gerbil/core$[1]#_g49854_|)) + (let ((__tmp50062 |gerbil/core$[1]#_g50063_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47350 - __tmp49853 + __obj47527 + __tmp50062 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49855 - (let ((__tmp49856 - (let ((__tmp49857 - |gerbil/core$[1]#_g49858_|)) - (declare (not safe)) - (cons 'macro __tmp49857)))) - (declare (not safe)) - (cons __tmp49856 '())))) + (let ((__tmp50064 |gerbil/core$[1]#_g50065_|)) (declare (not safe)) (##unchecked-structure-set! - __obj47350 - __tmp49855 + __obj47527 + __tmp50064 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49859 - (let ((__tmp49860 - (let ((__tmp49861 - |gerbil/core$[1]#_g49862_|)) + (let ((__tmp50066 + (let ((__tmp50067 + (let ((__tmp50068 + |gerbil/core$[1]#_g50069_|)) (declare (not safe)) - (cons 'macro __tmp49861)))) + (cons 'macro __tmp50068)))) (declare (not safe)) - (cons __tmp49860 '())))) + (cons __tmp50067 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47350 - __tmp49859 + __obj47527 + __tmp50066 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49863 - (let ((__tmp49864 - (let ((__tmp49865 - |gerbil/core$[1]#_g49866_|)) + (let ((__tmp50070 + (let ((__tmp50071 + (let ((__tmp50072 + |gerbil/core$[1]#_g50073_|)) (declare (not safe)) - (cons 'macro __tmp49865)))) + (cons 'macro __tmp50072)))) (declare (not safe)) - (cons __tmp49864 '())))) + (cons __tmp50071 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47350 - __tmp49863 + __obj47527 + __tmp50070 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp49867 - (let ((__tmp49868 - (let ((__tmp49869 - |gerbil/core$[1]#_g49870_|)) + (let ((__tmp50074 + (let ((__tmp50075 + (let ((__tmp50076 + |gerbil/core$[1]#_g50077_|)) (declare (not safe)) - (cons 'macro __tmp49869)))) + (cons 'macro __tmp50076)))) (declare (not safe)) - (cons __tmp49868 '())))) + (cons __tmp50075 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj47350 - __tmp49867 + __obj47527 + __tmp50074 '14 gerbil/core$$#class-type-info::t '#f)) - __obj47350))) + (let ((__tmp50078 + (let ((__tmp50079 + (let ((__tmp50080 + |gerbil/core$[1]#_g50081_|)) + (declare (not safe)) + (cons 'macro __tmp50080)))) + (declare (not safe)) + (cons __tmp50079 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj47527 + __tmp50078 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj47527))) diff --git a/src/bootstrap/gerbil/expander/common.ssxi.ss b/src/bootstrap/gerbil/expander/common.ssxi.ss index 617b0b350..0c7b23604 100644 --- a/src/bootstrap/gerbil/expander/common.ssxi.ss +++ b/src/bootstrap/gerbil/expander/common.ssxi.ss @@ -4,7 +4,7 @@ package: gerbil/expander (begin (declare-type gx#AST::t - (@class gerbil#AST::t () () (e source) (e source) #f #t #f #f)) + (@class gerbil#AST::t () () (e source) (e source) #f #t #f #f #f)) (declare-type gx#AST? (@predicate gx#AST::t)) (declare-type gx#make-AST (@constructor gx#AST::t)) (declare-type gx#AST-e (@accessor gx#AST::t e #t)) diff --git a/src/bootstrap/gerbil/expander/common__0.scm b/src/bootstrap/gerbil/expander/common__0.scm index c3dbd569b..0f77f1ab5 100644 --- a/src/bootstrap/gerbil/expander/common__0.scm +++ b/src/bootstrap/gerbil/expander/common__0.scm @@ -1,26 +1,26 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1707773926) + (define gerbil/expander/common::timestamp 1708102802) (begin (define gx#AST::t - (let ((__tmp135831 (list)) - (__tmp135829 - (let ((__tmp135830 + (let ((__tmp136992 (list)) + (__tmp136990 + (let ((__tmp136991 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp135830 '())))) + (cons __tmp136991 '())))) (declare (not safe)) (make-class-type 'gerbil#AST::t 'syntax - __tmp135831 + __tmp136992 '(e source) - __tmp135829 + __tmp136990 '#f))) (define gx#AST? (let () (declare (not safe)) (make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _$args131160_ (apply make-instance gx#AST::t _$args131160_))) + (lambda _$args132321_ (apply make-instance gx#AST::t _$args132321_))) (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 678d45ede..d751b46af 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]#_g135833_| + (define |gx[1]#_g136994_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g135835_| + (define |gx[1]#_g136996_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g135837_| + (define |gx[1]#_g136998_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g135842_| + (define |gx[1]#_g137003_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135845_| + (define |gx[1]#_g137006_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135850_| + (define |gx[1]#_g137011_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135853_| + (define |gx[1]#_g137014_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135858_| + (define |gx[1]#_g137019_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g135861_| + (define |gx[1]#_g137022_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g135866_| + (define |gx[1]#_g137027_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135869_| + (define |gx[1]#_g137030_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g135976_| + (define |gx[1]#_g137137_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj135828 + (let ((__obj136989 (let () (declare (not safe)) (##structure @@ -104,11 +104,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 + __obj136989 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -116,7 +117,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 + __obj136989 'syntax '2 gerbil/core$$#class-type-info::t @@ -124,7 +125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 + __obj136989 '(e source) '4 gerbil/core$$#class-type-info::t @@ -132,7 +133,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 + __obj136989 '() '3 gerbil/core$$#class-type-info::t @@ -140,7 +141,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 + __obj136989 '#t '5 gerbil/core$$#class-type-info::t @@ -148,7 +149,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 + __obj136989 '#f '6 gerbil/core$$#class-type-info::t @@ -156,859 +157,867 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 + __obj136989 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135832 |gx[1]#_g135833_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj135828 - __tmp135832 + __obj136989 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135834 |gx[1]#_g135835_|)) + (let ((__tmp136993 |gx[1]#_g136994_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135828 - __tmp135834 + __obj136989 + __tmp136993 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135836 |gx[1]#_g135837_|)) + (let ((__tmp136995 |gx[1]#_g136996_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135828 - __tmp135836 + __obj136989 + __tmp136995 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135838 - (let ((__tmp135843 - (let ((__tmp135844 |gx[1]#_g135845_|)) - (declare (not safe)) - (cons 'e __tmp135844))) - (__tmp135839 - (let ((__tmp135840 - (let ((__tmp135841 |gx[1]#_g135842_|)) - (declare (not safe)) - (cons 'source __tmp135841)))) - (declare (not safe)) - (cons __tmp135840 '())))) - (declare (not safe)) - (cons __tmp135843 __tmp135839)))) + (let ((__tmp136997 |gx[1]#_g136998_|)) (declare (not safe)) (##unchecked-structure-set! - __obj135828 - __tmp135838 + __obj136989 + __tmp136997 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135846 - (let ((__tmp135851 - (let ((__tmp135852 |gx[1]#_g135853_|)) + (let ((__tmp136999 + (let ((__tmp137004 + (let ((__tmp137005 |gx[1]#_g137006_|)) (declare (not safe)) - (cons 'e __tmp135852))) - (__tmp135847 - (let ((__tmp135848 - (let ((__tmp135849 |gx[1]#_g135850_|)) + (cons 'e __tmp137005))) + (__tmp137000 + (let ((__tmp137001 + (let ((__tmp137002 |gx[1]#_g137003_|)) (declare (not safe)) - (cons 'source __tmp135849)))) + (cons 'source __tmp137002)))) (declare (not safe)) - (cons __tmp135848 '())))) + (cons __tmp137001 '())))) (declare (not safe)) - (cons __tmp135851 __tmp135847)))) + (cons __tmp137004 __tmp137000)))) (declare (not safe)) (##unchecked-structure-set! - __obj135828 - __tmp135846 + __obj136989 + __tmp136999 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135854 - (let ((__tmp135859 - (let ((__tmp135860 |gx[1]#_g135861_|)) + (let ((__tmp137007 + (let ((__tmp137012 + (let ((__tmp137013 |gx[1]#_g137014_|)) (declare (not safe)) - (cons 'e __tmp135860))) - (__tmp135855 - (let ((__tmp135856 - (let ((__tmp135857 |gx[1]#_g135858_|)) + (cons 'e __tmp137013))) + (__tmp137008 + (let ((__tmp137009 + (let ((__tmp137010 |gx[1]#_g137011_|)) (declare (not safe)) - (cons 'source __tmp135857)))) + (cons 'source __tmp137010)))) (declare (not safe)) - (cons __tmp135856 '())))) + (cons __tmp137009 '())))) (declare (not safe)) - (cons __tmp135859 __tmp135855)))) + (cons __tmp137012 __tmp137008)))) (declare (not safe)) (##unchecked-structure-set! - __obj135828 - __tmp135854 + __obj136989 + __tmp137007 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp135862 - (let ((__tmp135867 - (let ((__tmp135868 |gx[1]#_g135869_|)) + (let ((__tmp137015 + (let ((__tmp137020 + (let ((__tmp137021 |gx[1]#_g137022_|)) (declare (not safe)) - (cons 'e __tmp135868))) - (__tmp135863 - (let ((__tmp135864 - (let ((__tmp135865 |gx[1]#_g135866_|)) + (cons 'e __tmp137021))) + (__tmp137016 + (let ((__tmp137017 + (let ((__tmp137018 |gx[1]#_g137019_|)) (declare (not safe)) - (cons 'source __tmp135865)))) + (cons 'source __tmp137018)))) (declare (not safe)) - (cons __tmp135864 '())))) + (cons __tmp137017 '())))) (declare (not safe)) - (cons __tmp135867 __tmp135863)))) + (cons __tmp137020 __tmp137016)))) (declare (not safe)) (##unchecked-structure-set! - __obj135828 - __tmp135862 + __obj136989 + __tmp137015 '14 gerbil/core$$#class-type-info::t '#f)) - __obj135828)) + (let ((__tmp137023 + (let ((__tmp137028 + (let ((__tmp137029 |gx[1]#_g137030_|)) + (declare (not safe)) + (cons 'e __tmp137029))) + (__tmp137024 + (let ((__tmp137025 + (let ((__tmp137026 |gx[1]#_g137027_|)) + (declare (not safe)) + (cons 'source __tmp137026)))) + (declare (not safe)) + (cons __tmp137025 '())))) + (declare (not safe)) + (cons __tmp137028 __tmp137024)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj136989 + __tmp137023 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj136989)) (define |gx[:0:]#check-procedure| - (lambda (_$stx129880_) - (let* ((_g129884129898_ - (lambda (_g129885129894_) + (lambda (_$stx131041_) + (let* ((_g131045131059_ + (lambda (_g131046131055_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129885129894_))) - (_g129883129940_ - (lambda (_g129885129902_) - (if (gx#stx-pair? _g129885129902_) - (let ((_e129889129905_ (gx#syntax-e _g129885129902_))) - (let ((_hd129888129909_ + _g131046131055_))) + (_g131044131101_ + (lambda (_g131046131063_) + (if (gx#stx-pair? _g131046131063_) + (let ((_e131050131066_ (gx#syntax-e _g131046131063_))) + (let ((_hd131049131070_ (let () (declare (not safe)) - (##car _e129889129905_))) - (_tl129887129912_ + (##car _e131050131066_))) + (_tl131048131073_ (let () (declare (not safe)) - (##cdr _e129889129905_)))) - (if (gx#stx-pair? _tl129887129912_) - (let ((_e129892129915_ - (gx#syntax-e _tl129887129912_))) - (let ((_hd129891129919_ + (##cdr _e131050131066_)))) + (if (gx#stx-pair? _tl131048131073_) + (let ((_e131053131076_ + (gx#syntax-e _tl131048131073_))) + (let ((_hd131052131080_ (let () (declare (not safe)) - (##car _e129892129915_))) - (_tl129890129922_ + (##car _e131053131076_))) + (_tl131051131083_ (let () (declare (not safe)) - (##cdr _e129892129915_)))) - (if (gx#stx-null? _tl129890129922_) - ((lambda (_L129925_) - (let ((__tmp135879 + (##cdr _e131053131076_)))) + (if (gx#stx-null? _tl131051131083_) + ((lambda (_L131086_) + (let ((__tmp137040 (gx#datum->syntax '#f 'unless)) - (__tmp135870 - (let ((__tmp135876 - (let ((__tmp135878 + (__tmp137031 + (let ((__tmp137037 + (let ((__tmp137039 (gx#datum->syntax '#f 'procedure?)) - (__tmp135877 + (__tmp137038 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L129925_ '())))) + (cons _L131086_ '())))) (declare (not safe)) - (cons __tmp135878 __tmp135877))) - (__tmp135871 - (let ((__tmp135872 - (let ((__tmp135875 (gx#datum->syntax '#f 'error)) - (__tmp135873 - (let ((__tmp135874 + (cons __tmp137039 __tmp137038))) + (__tmp137032 + (let ((__tmp137033 + (let ((__tmp137036 (gx#datum->syntax '#f 'error)) + (__tmp137034 + (let ((__tmp137035 (let () (declare (not safe)) - (cons _L129925_ '())))) + (cons _L131086_ '())))) (declare (not safe)) - (cons '"expected procedure" __tmp135874)))) + (cons '"expected procedure" __tmp137035)))) (declare (not safe)) - (cons __tmp135875 __tmp135873)))) + (cons __tmp137036 __tmp137034)))) (declare (not safe)) - (cons __tmp135872 '())))) + (cons __tmp137033 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135876 - __tmp135871)))) + (cons __tmp137037 + __tmp137032)))) (declare (not safe)) - (cons __tmp135879 __tmp135870))) - _hd129891129919_) - (_g129884129898_ _g129885129902_)))) - (_g129884129898_ _g129885129902_)))) - (_g129884129898_ _g129885129902_))))) - (_g129883129940_ _$stx129880_)))) + (cons __tmp137040 __tmp137031))) + _hd131052131080_) + (_g131045131059_ _g131046131063_)))) + (_g131045131059_ _g131046131063_)))) + (_g131045131059_ _g131046131063_))))) + (_g131044131101_ _$stx131041_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_stx129944_) - (letrec ((_generate129947_ - (lambda (_tgt130096_ _kws130098_ _clauses130099_) - (letrec ((_generate-clause130101_ - (lambda (_hd131011_ _E131013_) - (let* ((___stx135731135732_ _hd131011_) - (_g131017131044_ + (lambda (_stx131105_) + (letrec ((_generate131108_ + (lambda (_tgt131257_ _kws131259_ _clauses131260_) + (letrec ((_generate-clause131262_ + (lambda (_hd132172_ _E132174_) + (let* ((___stx136892136893_ _hd132172_) + (_g132178132205_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx135731135732_)))) - (let ((___kont135734135735_ - (lambda (_L131140_ _L131142_) - (_generate1130103_ - _hd131011_ - _L131142_ + ___stx136892136893_)))) + (let ((___kont136895136896_ + (lambda (_L132301_ _L132303_) + (_generate1131264_ + _hd132172_ + _L132303_ '#t - _L131140_ - _E131013_))) - (___kont135736135737_ - (lambda (_L131092_ - _L131094_ - _L131095_) - (_generate1130103_ - _hd131011_ - _L131095_ - _L131094_ - _L131092_ - _E131013_))) - (___kont135738135739_ + _L132301_ + _E132174_))) + (___kont136897136898_ + (lambda (_L132253_ + _L132255_ + _L132256_) + (_generate1131264_ + _hd132172_ + _L132256_ + _L132255_ + _L132253_ + _E132174_))) + (___kont136899136900_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _stx129944_ - _hd131011_)))) - (if (gx#stx-pair? ___stx135731135732_) - (let ((_e131023131120_ + _stx131105_ + _hd132172_)))) + (if (gx#stx-pair? ___stx136892136893_) + (let ((_e132184132281_ (gx#syntax-e - ___stx135731135732_))) - (let ((_tl131021131127_ + ___stx136892136893_))) + (let ((_tl132182132288_ (let () (declare (not safe)) - (##cdr _e131023131120_))) - (_hd131022131124_ + (##cdr _e132184132281_))) + (_hd132183132285_ (let () (declare (not safe)) - (##car _e131023131120_)))) - (if (gx#stx-pair? _tl131021131127_) - (let ((_e131026131130_ + (##car _e132184132281_)))) + (if (gx#stx-pair? _tl132182132288_) + (let ((_e132187132291_ (gx#syntax-e - _tl131021131127_))) - (let ((_tl131024131137_ + _tl132182132288_))) + (let ((_tl132185132298_ (let () (declare (not safe)) - (##cdr _e131026131130_))) - (_hd131025131134_ + (##cdr _e132187132291_))) + (_hd132186132295_ (let () (declare (not safe)) - (##car _e131026131130_)))) + (##car _e132187132291_)))) (if (gx#stx-null? - _tl131024131137_) - (___kont135734135735_ - _hd131025131134_ - _hd131022131124_) + _tl132185132298_) + (___kont136895136896_ + _hd132186132295_ + _hd132183132285_) (if (gx#stx-pair? - _tl131024131137_) - (let ((_e131038131082_ + _tl132185132298_) + (let ((_e132199132243_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl131024131137_))) - (let ((_tl131036131089_ + (gx#syntax-e _tl132185132298_))) + (let ((_tl132197132250_ (let () (declare (not safe)) - (##cdr _e131038131082_))) - (_hd131037131086_ + (##cdr _e132199132243_))) + (_hd132198132247_ (let () (declare (not safe)) - (##car _e131038131082_)))) - (if (gx#stx-null? _tl131036131089_) - (___kont135736135737_ - _hd131037131086_ - _hd131025131134_ - _hd131022131124_) - (___kont135738135739_)))) - (___kont135738135739_))))) + (##car _e132199132243_)))) + (if (gx#stx-null? _tl132197132250_) + (___kont136897136898_ + _hd132198132247_ + _hd132186132295_ + _hd132183132285_) + (___kont136899136900_)))) + (___kont136899136900_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont135738135739_)))) - (___kont135738135739_)))))) - (_generate1130103_ - (lambda (_where130489_ - _hd130491_ - _fender130492_ - _body130493_ - _E130494_) - (letrec ((_recur130496_ - (lambda (_hd130499_ - _tgt130501_ - _K130502_) - (let* ((___stx135777135778_ - _hd130499_) - (_g130505130517_ + (___kont136899136900_)))) + (___kont136899136900_)))))) + (_generate1131264_ + (lambda (_where131650_ + _hd131652_ + _fender131653_ + _body131654_ + _E131655_) + (letrec ((_recur131657_ + (lambda (_hd131660_ + _tgt131662_ + _K131663_) + (let* ((___stx136938136939_ + _hd131660_) + (_g131666131678_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx135777135778_)))) - (let ((___kont135780135781_ - (lambda (_L130801_ - _L130803_) - (let* ((_g130814130822_ - (lambda (_g130815130818_) + ___stx136938136939_)))) + (let ((___kont136941136942_ + (lambda (_L131962_ + _L131964_) + (let* ((_g131975131983_ + (lambda (_g131976131979_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130815130818_))) - (_g130813131003_ - (lambda (_g130815130826_) - ((lambda (_L130829_) + _g131976131979_))) + (_g131974132164_ + (lambda (_g131976131987_) + ((lambda (_L131990_) (let () - (let* ((_g130841130849_ - (lambda (_g130842130845_) + (let* ((_g132002132010_ + (lambda (_g132003132006_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130842130845_))) - (_g130840130999_ - (lambda (_g130842130853_) - ((lambda (_L130856_) + _g132003132006_))) + (_g132001132160_ + (lambda (_g132003132014_) + ((lambda (_L132017_) (let () - (let* ((_g130869130877_ - (lambda (_g130870130873_) + (let* ((_g132030132038_ + (lambda (_g132031132034_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130870130873_))) - (_g130868130995_ - (lambda (_g130870130881_) - ((lambda (_L130884_) + _g132031132034_))) + (_g132029132156_ + (lambda (_g132031132042_) + ((lambda (_L132045_) (let () - (let* ((_g130897130905_ + (let* ((_g132058132066_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g130898130901_) + (lambda (_g132059132062_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130898130901_))) - (_g130896130991_ - (lambda (_g130898130909_) - ((lambda (_L130912_) + _g132059132062_))) + (_g132057132152_ + (lambda (_g132059132070_) + ((lambda (_L132073_) (let () - (let* ((_g130925130933_ - (lambda (_g130926130929_) + (let* ((_g132086132094_ + (lambda (_g132087132090_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130926130929_))) - (_g130924130987_ - (lambda (_g130926130937_) - ((lambda (_L130940_) + _g132087132090_))) + (_g132085132148_ + (lambda (_g132087132098_) + ((lambda (_L132101_) (let () - (let* ((_g130953130961_ - (lambda (_g130954130957_) + (let* ((_g132114132122_ + (lambda (_g132115132118_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130954130957_))) - (_g130952130983_ - (lambda (_g130954130965_) - ((lambda (_L130968_) + _g132115132118_))) + (_g132113132144_ + (lambda (_g132115132126_) + ((lambda (_L132129_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let ((__tmp135912 (gx#datum->syntax '#f 'if)) - (__tmp135880 - (let ((__tmp135909 - (let ((__tmp135911 + (let ((__tmp137073 (gx#datum->syntax '#f 'if)) + (__tmp137041 + (let ((__tmp137070 + (let ((__tmp137072 (gx#datum->syntax '#f 'stx-pair?)) - (__tmp135910 + (__tmp137071 (let () (declare (not safe)) - (cons _L130829_ '())))) + (cons _L131990_ '())))) (declare (not safe)) - (cons __tmp135911 __tmp135910))) - (__tmp135881 - (let ((__tmp135883 - (let ((__tmp135908 + (cons __tmp137072 __tmp137071))) + (__tmp137042 + (let ((__tmp137044 + (let ((__tmp137069 (gx#datum->syntax '#f 'let)) - (__tmp135884 - (let ((__tmp135902 - (let ((__tmp135903 + (__tmp137045 + (let ((__tmp137063 + (let ((__tmp137064 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135904 - (let ((__tmp135905 - (let ((__tmp135907 + (let ((__tmp137065 + (let ((__tmp137066 + (let ((__tmp137068 (gx#datum->syntax '#f 'syntax-e)) - (__tmp135906 + (__tmp137067 (let () (declare (not safe)) - (cons _L130829_ '())))) + (cons _L131990_ '())))) (declare (not safe)) - (cons __tmp135907 __tmp135906)))) + (cons __tmp137068 __tmp137067)))) (declare (not safe)) - (cons __tmp135905 '())))) + (cons __tmp137066 '())))) (declare (not safe)) - (cons _L130856_ __tmp135904)))) + (cons _L132017_ __tmp137065)))) (declare (not safe)) - (cons __tmp135903 '()))) - (__tmp135885 - (let ((__tmp135886 - (let ((__tmp135901 (gx#datum->syntax '#f 'let)) - (__tmp135887 - (let ((__tmp135889 - (let ((__tmp135896 - (let ((__tmp135897 - (let ((__tmp135898 - (let ((__tmp135900 + (cons __tmp137064 '()))) + (__tmp137046 + (let ((__tmp137047 + (let ((__tmp137062 (gx#datum->syntax '#f 'let)) + (__tmp137048 + (let ((__tmp137050 + (let ((__tmp137057 + (let ((__tmp137058 + (let ((__tmp137059 + (let ((__tmp137061 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '##car)) - (__tmp135899 + (__tmp137060 (let () (declare (not safe)) - (cons _L130856_ '())))) + (cons _L132017_ '())))) (declare (not safe)) - (cons __tmp135900 __tmp135899)))) + (cons __tmp137061 __tmp137060)))) (declare (not safe)) - (cons __tmp135898 '())))) + (cons __tmp137059 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L130884_ - __tmp135897))) - (__tmp135890 - (let ((__tmp135891 - (let ((__tmp135892 - (let ((__tmp135893 + (cons _L132045_ + __tmp137058))) + (__tmp137051 + (let ((__tmp137052 + (let ((__tmp137053 + (let ((__tmp137054 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135895 + (let ((__tmp137056 (gx#datum->syntax '#f '##cdr)) - (__tmp135894 + (__tmp137055 (let () (declare (not safe)) - (cons _L130856_ '())))) + (cons _L132017_ '())))) (declare (not safe)) - (cons __tmp135895 __tmp135894)))) + (cons __tmp137056 __tmp137055)))) (declare (not safe)) - (cons __tmp135893 '())))) + (cons __tmp137054 '())))) (declare (not safe)) - (cons _L130912_ __tmp135892)))) + (cons _L132073_ __tmp137053)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135891 '())))) + (cons __tmp137052 '())))) (declare (not safe)) - (cons __tmp135896 __tmp135890))) - (__tmp135888 + (cons __tmp137057 __tmp137051))) + (__tmp137049 (let () (declare (not safe)) - (cons _L130940_ '())))) + (cons _L132101_ '())))) (declare (not safe)) - (cons __tmp135889 __tmp135888)))) + (cons __tmp137050 __tmp137049)))) (declare (not safe)) - (cons __tmp135901 __tmp135887)))) + (cons __tmp137062 __tmp137048)))) (declare (not safe)) - (cons __tmp135886 '())))) + (cons __tmp137047 '())))) (declare (not safe)) - (cons __tmp135902 __tmp135885)))) + (cons __tmp137063 __tmp137046)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135908 - __tmp135884))) - (__tmp135882 + (cons __tmp137069 + __tmp137045))) + (__tmp137043 (let () (declare (not safe)) - (cons _L130968_ '())))) + (cons _L132129_ '())))) (declare (not safe)) - (cons __tmp135883 __tmp135882)))) + (cons __tmp137044 __tmp137043)))) (declare (not safe)) - (cons __tmp135909 __tmp135881)))) + (cons __tmp137070 __tmp137042)))) (declare (not safe)) - (cons __tmp135912 __tmp135880))))) - _g130954130965_)))) + (cons __tmp137073 __tmp137041))))) + _g132115132126_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130952130983_ - _E130494_)))) - _g130926130937_)))) - (_g130924130987_ - (_recur130496_ - _L130803_ - _L130884_ - (_recur130496_ - _L130801_ - _L130912_ - _K130502_)))))) - _g130898130909_)))) - (_g130896130991_ (gx#genident 'tl))))) - _g130870130881_)))) + (_g132113132144_ + _E131655_)))) + _g132087132098_)))) + (_g132085132148_ + (_recur131657_ + _L131964_ + _L132045_ + (_recur131657_ + _L131962_ + _L132073_ + _K131663_)))))) + _g132059132070_)))) + (_g132057132152_ (gx#genident 'tl))))) + _g132031132042_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130868130995_ + (_g132029132156_ (gx#genident 'hd))))) - _g130842130853_)))) - (_g130840130999_ (gx#genident 'e))))) - _g130815130826_)))) - (_g130813131003_ _tgt130501_)))) + _g132003132014_)))) + (_g132001132160_ (gx#genident 'e))))) + _g131976131987_)))) + (_g131974132164_ _tgt131662_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont135782135783_ + (___kont136943136944_ (lambda () (if (gx#identifier? - _hd130499_) + _hd131660_) (if (gx#underscore? - _hd130499_) - _K130502_ - (if (let ((__tmp135957 + _hd131660_) + _K131663_ + (if (let ((__tmp137118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g130527130529_) + (lambda (_g131688131690_) (gx#bound-identifier=? - _g130527130529_ - _hd130499_)))) + _g131688131690_ + _hd131660_)))) (declare (not safe)) - (find __tmp135957 _kws130098_)) - (let* ((_g130533130548_ - (lambda (_g130534130544_) + (find __tmp137118 _kws131259_)) + (let* ((_g131694131709_ + (lambda (_g131695131705_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130534130544_))) - (_g130532130599_ - (lambda (_g130534130552_) - (if (gx#stx-pair? _g130534130552_) - (let ((_e130539130555_ - (gx#syntax-e _g130534130552_))) - (let ((_hd130538130559_ + _g131695131705_))) + (_g131693131760_ + (lambda (_g131695131713_) + (if (gx#stx-pair? _g131695131713_) + (let ((_e131700131716_ + (gx#syntax-e _g131695131713_))) + (let ((_hd131699131720_ (let () (declare (not safe)) - (##car _e130539130555_))) - (_tl130537130562_ + (##car _e131700131716_))) + (_tl131698131723_ (let () (declare (not safe)) - (##cdr _e130539130555_)))) + (##cdr _e131700131716_)))) (if (gx#stx-pair? - _tl130537130562_) - (let ((_e130542130565_ + _tl131698131723_) + (let ((_e131703131726_ (gx#syntax-e - _tl130537130562_))) - (let ((_hd130541130569_ + _tl131698131723_))) + (let ((_hd131702131730_ (let () (declare (not safe)) - (##car _e130542130565_))) - (_tl130540130572_ + (##car _e131703131726_))) + (_tl131701131733_ (let () (declare (not safe)) - (##cdr _e130542130565_)))) + (##cdr _e131703131726_)))) (if (gx#stx-null? - _tl130540130572_) - ((lambda (_L130575_ + _tl131701131733_) + ((lambda (_L131736_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L130577_) + _L131738_) (let () - (let ((__tmp135956 (gx#datum->syntax '#f 'if)) - (__tmp135939 - (let ((__tmp135942 - (let ((__tmp135955 + (let ((__tmp137117 (gx#datum->syntax '#f 'if)) + (__tmp137100 + (let ((__tmp137103 + (let ((__tmp137116 (gx#datum->syntax '#f 'and)) - (__tmp135943 - (let ((__tmp135952 - (let ((__tmp135954 + (__tmp137104 + (let ((__tmp137113 + (let ((__tmp137115 (gx#datum->syntax '#f 'identifier?)) - (__tmp135953 + (__tmp137114 (let () (declare (not safe)) - (cons _L130577_ + (cons _L131738_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135954 - __tmp135953))) - (__tmp135944 - (let ((__tmp135945 - (let ((__tmp135951 + (cons __tmp137115 + __tmp137114))) + (__tmp137105 + (let ((__tmp137106 + (let ((__tmp137112 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'core-identifier=?)) - (__tmp135946 - (let ((__tmp135947 - (let ((__tmp135948 - (let ((__tmp135950 + (__tmp137107 + (let ((__tmp137108 + (let ((__tmp137109 + (let ((__tmp137111 (gx#datum->syntax '#f 'quote)) - (__tmp135949 + (__tmp137110 (let () (declare (not safe)) - (cons _L130575_ '())))) + (cons _L131736_ '())))) (declare (not safe)) - (cons __tmp135950 __tmp135949)))) + (cons __tmp137111 __tmp137110)))) (declare (not safe)) - (cons __tmp135948 '())))) + (cons __tmp137109 '())))) (declare (not safe)) - (cons _L130577_ __tmp135947)))) + (cons _L131738_ __tmp137108)))) (declare (not safe)) - (cons __tmp135951 __tmp135946)))) + (cons __tmp137112 __tmp137107)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135945 '())))) + (cons __tmp137106 '())))) (declare (not safe)) - (cons __tmp135952 __tmp135944)))) + (cons __tmp137113 __tmp137105)))) (declare (not safe)) - (cons __tmp135955 __tmp135943))) - (__tmp135940 - (let ((__tmp135941 + (cons __tmp137116 __tmp137104))) + (__tmp137101 + (let ((__tmp137102 (let () (declare (not safe)) - (cons _E130494_ '())))) + (cons _E131655_ '())))) (declare (not safe)) - (cons _K130502_ __tmp135941)))) + (cons _K131663_ __tmp137102)))) (declare (not safe)) - (cons __tmp135942 __tmp135940)))) + (cons __tmp137103 __tmp137101)))) (declare (not safe)) - (cons __tmp135956 __tmp135939)))) - _hd130541130569_ - _hd130538130559_) - (_g130533130548_ _g130534130552_)))) + (cons __tmp137117 __tmp137100)))) + _hd131702131730_ + _hd131699131720_) + (_g131694131709_ _g131695131713_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130533130548_ - _g130534130552_)))) - (_g130533130548_ _g130534130552_))))) - (_g130532130599_ (list _tgt130501_ _hd130499_))) - (let* ((_g130603130618_ - (lambda (_g130604130614_) + (_g131694131709_ + _g131695131713_)))) + (_g131694131709_ _g131695131713_))))) + (_g131693131760_ (list _tgt131662_ _hd131660_))) + (let* ((_g131764131779_ + (lambda (_g131765131775_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130604130614_))) - (_g130602130662_ - (lambda (_g130604130622_) - (if (gx#stx-pair? _g130604130622_) - (let ((_e130609130625_ - (gx#syntax-e _g130604130622_))) - (let ((_hd130608130629_ + _g131765131775_))) + (_g131763131823_ + (lambda (_g131765131783_) + (if (gx#stx-pair? _g131765131783_) + (let ((_e131770131786_ + (gx#syntax-e _g131765131783_))) + (let ((_hd131769131790_ (let () (declare (not safe)) - (##car _e130609130625_))) - (_tl130607130632_ + (##car _e131770131786_))) + (_tl131768131793_ (let () (declare (not safe)) - (##cdr _e130609130625_)))) + (##cdr _e131770131786_)))) (if (gx#stx-pair? - _tl130607130632_) - (let ((_e130612130635_ + _tl131768131793_) + (let ((_e131773131796_ (gx#syntax-e - _tl130607130632_))) - (let ((_hd130611130639_ + _tl131768131793_))) + (let ((_hd131772131800_ (let () (declare (not safe)) - (##car _e130612130635_))) - (_tl130610130642_ + (##car _e131773131796_))) + (_tl131771131803_ (let () (declare (not safe)) - (##cdr _e130612130635_)))) + (##cdr _e131773131796_)))) (if (gx#stx-null? - _tl130610130642_) - ((lambda (_L130645_ + _tl131771131803_) + ((lambda (_L131806_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L130647_) + _L131808_) (let () - (let ((__tmp135938 (gx#datum->syntax '#f 'let)) - (__tmp135933 - (let ((__tmp135935 - (let ((__tmp135936 - (let ((__tmp135937 + (let ((__tmp137099 (gx#datum->syntax '#f 'let)) + (__tmp137094 + (let ((__tmp137096 + (let ((__tmp137097 + (let ((__tmp137098 (let () (declare (not safe)) - (cons _L130647_ '())))) + (cons _L131808_ '())))) (declare (not safe)) - (cons _L130645_ __tmp135937)))) + (cons _L131806_ __tmp137098)))) (declare (not safe)) - (cons __tmp135936 '()))) - (__tmp135934 + (cons __tmp137097 '()))) + (__tmp137095 (let () (declare (not safe)) - (cons _K130502_ '())))) + (cons _K131663_ '())))) (declare (not safe)) - (cons __tmp135935 __tmp135934)))) + (cons __tmp137096 __tmp137095)))) (declare (not safe)) - (cons __tmp135938 __tmp135933)))) - _hd130611130639_ - _hd130608130629_) - (_g130603130618_ _g130604130622_)))) + (cons __tmp137099 __tmp137094)))) + _hd131772131800_ + _hd131769131790_) + (_g131764131779_ _g131765131783_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130603130618_ - _g130604130622_)))) - (_g130603130618_ _g130604130622_))))) - (_g130602130662_ (list _tgt130501_ _hd130499_))))) - (if (gx#stx-null? _hd130499_) - (let* ((_g130666130674_ - (lambda (_g130667130670_) + (_g131764131779_ + _g131765131783_)))) + (_g131764131779_ _g131765131783_))))) + (_g131763131823_ (list _tgt131662_ _hd131660_))))) + (if (gx#stx-null? _hd131660_) + (let* ((_g131827131835_ + (lambda (_g131828131831_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130667130670_))) - (_g130665130692_ - (lambda (_g130667130678_) - ((lambda (_L130681_) + _g131828131831_))) + (_g131826131853_ + (lambda (_g131828131839_) + ((lambda (_L131842_) (let () - (let ((__tmp135932 + (let ((__tmp137093 (gx#datum->syntax '#f 'if)) - (__tmp135926 - (let ((__tmp135929 - (let ((__tmp135931 + (__tmp137087 + (let ((__tmp137090 + (let ((__tmp137092 (gx#datum->syntax '#f 'stx-null?)) - (__tmp135930 + (__tmp137091 (let () (declare (not safe)) - (cons _L130681_ + (cons _L131842_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons __tmp135931 __tmp135930))) + (cons __tmp137092 __tmp137091))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp135927 - (let ((__tmp135928 + (__tmp137088 + (let ((__tmp137089 (let () (declare (not safe)) - (cons _E130494_ + (cons _E131655_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _K130502_ __tmp135928)))) + (cons _K131663_ __tmp137089)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135929 - __tmp135927)))) + (cons __tmp137090 + __tmp137088)))) (declare (not safe)) - (cons __tmp135932 __tmp135926)))) - _g130667130678_)))) - (_g130665130692_ _tgt130501_)) - (if (gx#stx-datum? _hd130499_) - (let* ((_g130696130715_ - (lambda (_g130697130711_) + (cons __tmp137093 __tmp137087)))) + _g131828131839_)))) + (_g131826131853_ _tgt131662_)) + (if (gx#stx-datum? _hd131660_) + (let* ((_g131857131876_ + (lambda (_g131858131872_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130697130711_))) - (_g130695130773_ - (lambda (_g130697130719_) - (if (gx#stx-pair? _g130697130719_) - (let ((_e130703130722_ - (gx#syntax-e _g130697130719_))) - (let ((_hd130702130726_ + _g131858131872_))) + (_g131856131934_ + (lambda (_g131858131880_) + (if (gx#stx-pair? _g131858131880_) + (let ((_e131864131883_ + (gx#syntax-e _g131858131880_))) + (let ((_hd131863131887_ (let () (declare (not safe)) - (##car _e130703130722_))) - (_tl130701130729_ + (##car _e131864131883_))) + (_tl131862131890_ (let () (declare (not safe)) - (##cdr _e130703130722_)))) + (##cdr _e131864131883_)))) (if (gx#stx-pair? - _tl130701130729_) - (let ((_e130706130732_ + _tl131862131890_) + (let ((_e131867131893_ (gx#syntax-e - _tl130701130729_))) - (let ((_hd130705130736_ + _tl131862131890_))) + (let ((_hd131866131897_ (let () (declare (not safe)) - (##car _e130706130732_))) - (_tl130704130739_ + (##car _e131867131893_))) + (_tl131865131900_ (let () (declare (not safe)) - (##cdr _e130706130732_)))) + (##cdr _e131867131893_)))) (if (gx#stx-pair? - _tl130704130739_) - (let ((_e130709130742_ + _tl131865131900_) + (let ((_e131870131903_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl130704130739_))) - (let ((_hd130708130746_ + _tl131865131900_))) + (let ((_hd131869131907_ (let () (declare (not safe)) - (##car _e130709130742_))) - (_tl130707130749_ + (##car _e131870131903_))) + (_tl131868131910_ (let () (declare (not safe)) - (##cdr _e130709130742_)))) - (if (gx#stx-null? _tl130707130749_) - ((lambda (_L130752_ _L130754_ _L130755_) + (##cdr _e131870131903_)))) + (if (gx#stx-null? _tl131868131910_) + ((lambda (_L131913_ _L131915_ _L131916_) (let () - (let ((__tmp135925 (gx#datum->syntax '#f 'if)) - (__tmp135913 - (let ((__tmp135916 - (let ((__tmp135917 - (let ((__tmp135922 - (let ((__tmp135924 + (let ((__tmp137086 (gx#datum->syntax '#f 'if)) + (__tmp137074 + (let ((__tmp137077 + (let ((__tmp137078 + (let ((__tmp137083 + (let ((__tmp137085 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'stx-e)) - (__tmp135923 - (let () (declare (not safe)) (cons _L130755_ '())))) + (__tmp137084 + (let () (declare (not safe)) (cons _L131916_ '())))) (declare (not safe)) - (cons __tmp135924 __tmp135923))) - (__tmp135918 - (let ((__tmp135919 - (let ((__tmp135921 (gx#datum->syntax '#f 'quote)) - (__tmp135920 + (cons __tmp137085 __tmp137084))) + (__tmp137079 + (let ((__tmp137080 + (let ((__tmp137082 (gx#datum->syntax '#f 'quote)) + (__tmp137081 (let () (declare (not safe)) - (cons _L130754_ '())))) + (cons _L131915_ '())))) (declare (not safe)) - (cons __tmp135921 __tmp135920)))) + (cons __tmp137082 __tmp137081)))) (declare (not safe)) - (cons __tmp135919 '())))) + (cons __tmp137080 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135922 - __tmp135918)))) + (cons __tmp137083 + __tmp137079)))) (declare (not safe)) - (cons _L130752_ __tmp135917))) - (__tmp135914 - (let ((__tmp135915 + (cons _L131913_ __tmp137078))) + (__tmp137075 + (let ((__tmp137076 (let () (declare (not safe)) - (cons _E130494_ '())))) + (cons _E131655_ '())))) (declare (not safe)) - (cons _K130502_ __tmp135915)))) + (cons _K131663_ __tmp137076)))) (declare (not safe)) - (cons __tmp135916 __tmp135914)))) + (cons __tmp137077 __tmp137075)))) (declare (not safe)) - (cons __tmp135925 __tmp135913)))) - _hd130708130746_ - _hd130705130736_ - _hd130702130726_) - (_g130696130715_ _g130697130719_)))) - (_g130696130715_ _g130697130719_)))) + (cons __tmp137086 __tmp137074)))) + _hd131869131907_ + _hd131866131897_ + _hd131863131887_) + (_g131857131876_ _g131858131880_)))) + (_g131857131876_ _g131858131880_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130696130715_ - _g130697130719_)))) - (_g130696130715_ _g130697130719_))))) - (_g130695130773_ - (list _tgt130501_ - _hd130499_ - (let ((_e130777_ (gx#stx-e _hd130499_))) - (if (or (keyword? _e130777_) + (_g131857131876_ + _g131858131880_)))) + (_g131857131876_ _g131858131880_))))) + (_g131856131934_ + (list _tgt131662_ + _hd131660_ + (let ((_e131938_ (gx#stx-e _hd131660_))) + (if (or (keyword? _e131938_) (let () (declare (not safe)) - (immediate? _e130777_))) + (immediate? _e131938_))) (gx#datum->syntax '#f 'eq?) (if (let () (declare (not safe)) - (number? _e130777_)) + (number? _e131938_)) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -1016,511 +1025,511 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _stx129944_ - _where130489_ - _hd130499_))))))) + _stx131105_ + _where131650_ + _hd131660_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx135777135778_) - (let ((_e130511130791_ + ___stx136938136939_) + (let ((_e131672131952_ (gx#syntax-e - ___stx135777135778_))) - (let ((_tl130509130798_ + ___stx136938136939_))) + (let ((_tl131670131959_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e130511130791_))) - (_hd130510130795_ - (let () (declare (not safe)) (##car _e130511130791_)))) - (___kont135780135781_ _tl130509130798_ _hd130510130795_))) + (##cdr _e131672131952_))) + (_hd131671131956_ + (let () (declare (not safe)) (##car _e131672131952_)))) + (___kont136941136942_ _tl131670131959_ _hd131671131956_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont135782135783_))))))) - (_recur130496_ - _hd130491_ - _tgt130096_ - (let ((__tmp135961 + (___kont136943136944_))))))) + (_recur131657_ + _hd131652_ + _tgt131257_ + (let ((__tmp137122 (gx#datum->syntax '#f 'if)) - (__tmp135958 - (let ((__tmp135959 - (let ((__tmp135960 + (__tmp137119 + (let ((__tmp137120 + (let ((__tmp137121 (let () (declare (not safe)) - (cons _E130494_ + (cons _E131655_ '())))) (declare (not safe)) - (cons _body130493_ - __tmp135960)))) + (cons _body131654_ + __tmp137121)))) (declare (not safe)) - (cons _fender130492_ - __tmp135959)))) + (cons _fender131653_ + __tmp137120)))) (declare (not safe)) - (cons __tmp135961 __tmp135958)))))) - (_generate-clauses130104_ - (lambda (_clauses130227_) - (let _lp130230_ ((_rest130233_ _clauses130227_) - (_E130235_ (gx#genident 'E)) - (_r130236_ '())) - (let* ((___stx135813135814_ _rest130233_) - (_g130239130251_ + (cons __tmp137122 __tmp137119)))))) + (_generate-clauses131265_ + (lambda (_clauses131388_) + (let _lp131391_ ((_rest131394_ _clauses131388_) + (_E131396_ (gx#genident 'E)) + (_r131397_ '())) + (let* ((___stx136974136975_ _rest131394_) + (_g131400131412_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx135813135814_)))) - (let ((___kont135816135817_ - (lambda (_L130316_ _L130318_) - (let* ((___stx135793135794_ - _L130318_) - (_g130330130341_ + ___stx136974136975_)))) + (let ((___kont136977136978_ + (lambda (_L131477_ _L131479_) + (let* ((___stx136954136955_ + _L131479_) + (_g131491131502_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx135793135794_)))) - (let ((___kont135796135797_ - (lambda (_L130470_) + ___stx136954136955_)))) + (let ((___kont136957136958_ + (lambda (_L131631_) (if (gx#stx-null? - _L130316_) + _L131477_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L130470_) - (let ((__tmp135970 (gx#stx-null? _L130470_))) + _L131631_) + (let ((__tmp137131 (gx#stx-null? _L131631_))) (declare (not safe)) - (not __tmp135970))) - (let ((__tmp135962 - (let ((__tmp135963 - (let ((__tmp135964 + (not __tmp137131))) + (let ((__tmp137123 + (let ((__tmp137124 + (let ((__tmp137125 (gx#stx-wrap-source - (let ((__tmp135969 + (let ((__tmp137130 (gx#datum->syntax '#f 'lambda)) - (__tmp135965 - (let ((__tmp135966 - (let ((__tmp135967 + (__tmp137126 + (let ((__tmp137127 + (let ((__tmp137128 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135968 (gx#datum->syntax '#f 'begin))) + (let ((__tmp137129 (gx#datum->syntax '#f 'begin))) (declare (not safe)) - (cons __tmp135968 _L130470_)))) + (cons __tmp137129 _L131631_)))) (declare (not safe)) - (cons __tmp135967 '())))) + (cons __tmp137128 '())))) (declare (not safe)) - (cons '() __tmp135966)))) + (cons '() __tmp137127)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135969 __tmp135965)) - (gx#stx-source _L130318_)))) + (cons __tmp137130 __tmp137126)) + (gx#stx-source _L131479_)))) (declare (not safe)) - (cons __tmp135964 '())))) + (cons __tmp137125 '())))) (declare (not safe)) - (cons _E130235_ __tmp135963)))) + (cons _E131396_ __tmp137124)))) (declare (not safe)) - (cons __tmp135962 _r130236_)) + (cons __tmp137123 _r131397_)) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _stx129944_ - _L130318_)) + _stx131105_ + _L131479_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _stx129944_ - _L130318_)))) + _stx131105_ + _L131479_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont135798135799_ + (___kont136959136960_ (lambda () - (let* ((_g130352130360_ - (lambda (_g130353130356_) + (let* ((_g131513131521_ + (lambda (_g131514131517_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130353130356_))) - (_g130351130449_ - (lambda (_g130353130364_) - ((lambda (_L130367_) + _g131514131517_))) + (_g131512131610_ + (lambda (_g131514131525_) + ((lambda (_L131528_) (let () - (let* ((_g130383130391_ - (lambda (_g130384130387_) + (let* ((_g131544131552_ + (lambda (_g131545131548_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130384130387_))) - (_g130382130445_ - (lambda (_g130384130395_) - ((lambda (_L130398_) + _g131545131548_))) + (_g131543131606_ + (lambda (_g131545131556_) + ((lambda (_L131559_) (let () - (let* ((_g130411130419_ - (lambda (_g130412130415_) + (let* ((_g131572131580_ + (lambda (_g131573131576_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130412130415_))) - (_g130410130441_ - (lambda (_g130412130423_) - ((lambda (_L130426_) + _g131573131576_))) + (_g131571131602_ + (lambda (_g131573131584_) + ((lambda (_L131587_) (let () (let () - (_lp130230_ - _L130316_ - _L130367_ - (let ((__tmp135971 + (_lp131391_ + _L131477_ + _L131528_ + (let ((__tmp137132 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135972 + (let ((__tmp137133 (let () (declare (not safe)) - (cons _L130426_ '())))) + (cons _L131587_ '())))) (declare (not safe)) - (cons _E130235_ __tmp135972)))) + (cons _E131396_ __tmp137133)))) (declare (not safe)) - (cons __tmp135971 _r130236_)))))) - _g130412130423_)))) + (cons __tmp137132 _r131397_)))))) + _g131573131584_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130410130441_ + (_g131571131602_ (gx#stx-wrap-source - (let ((__tmp135975 + (let ((__tmp137136 (gx#datum->syntax '#f 'lambda)) - (__tmp135973 - (let ((__tmp135974 + (__tmp137134 + (let ((__tmp137135 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L130398_ '())))) + (cons _L131559_ '())))) (declare (not safe)) - (cons '() __tmp135974)))) + (cons '() __tmp137135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135975 - __tmp135973)) + (cons __tmp137136 + __tmp137134)) (gx#stx-source - _L130318_)))))) - _g130384130395_)))) - (_g130382130445_ - (_generate-clause130101_ - _L130318_ + _L131479_)))))) + _g131545131556_)))) + (_g131543131606_ + (_generate-clause131262_ + _L131479_ (let () (declare (not safe)) - (cons _L130367_ '()))))))) - _g130353130364_)))) - (_g130351130449_ (gx#genident 'E)))))) + (cons _L131528_ '()))))))) + _g131514131525_)))) + (_g131512131610_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - ___stx135793135794_) - (let ((_e130335130460_ + ___stx136954136955_) + (let ((_e131496131621_ (gx#syntax-e - ___stx135793135794_))) - (let ((_tl130333130467_ + ___stx136954136955_))) + (let ((_tl131494131628_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e130335130460_))) - (_hd130334130464_ - (let () (declare (not safe)) (##car _e130335130460_)))) - (if (gx#identifier? _hd130334130464_) + (##cdr _e131496131621_))) + (_hd131495131625_ + (let () (declare (not safe)) (##car _e131496131621_)))) + (if (gx#identifier? _hd131495131625_) (if (gx#free-identifier=? - |gx[1]#_g135976_| - _hd130334130464_) - (___kont135796135797_ _tl130333130467_) - (___kont135798135799_)) - (___kont135798135799_)))) + |gx[1]#_g137137_| + _hd131495131625_) + (___kont136957136958_ _tl131494131628_) + (___kont136959136960_)) + (___kont136959136960_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont135798135799_)))))) - (___kont135818135819_ + (___kont136959136960_)))))) + (___kont136979136980_ (lambda () - (let* ((_g130262130270_ - (lambda (_g130263130266_) + (let* ((_g131423131431_ + (lambda (_g131424131427_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130263130266_))) - (_g130261130295_ - (lambda (_g130263130274_) - ((lambda (_L130277_) + _g131424131427_))) + (_g131422131456_ + (lambda (_g131424131435_) + ((lambda (_L131438_) (let () - (let ((__tmp135977 + (let ((__tmp137138 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp135978 - (let ((__tmp135979 + (let ((__tmp137139 + (let ((__tmp137140 (gx#stx-wrap-source - (let ((__tmp135987 + (let ((__tmp137148 (gx#datum->syntax '#f 'lambda)) - (__tmp135980 - (let ((__tmp135981 - (let ((__tmp135982 - (let ((__tmp135986 + (__tmp137141 + (let ((__tmp137142 + (let ((__tmp137143 + (let ((__tmp137147 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'raise-syntax-error)) - (__tmp135983 - (let ((__tmp135984 - (let ((__tmp135985 + (__tmp137144 + (let ((__tmp137145 + (let ((__tmp137146 (let () (declare (not safe)) - (cons _L130277_ '())))) + (cons _L131438_ '())))) (declare (not safe)) (cons '"Bad syntax; invalid syntax-case clause" - __tmp135985)))) + __tmp137146)))) (declare (not safe)) - (cons '#f __tmp135984)))) + (cons '#f __tmp137145)))) (declare (not safe)) - (cons __tmp135986 __tmp135983)))) + (cons __tmp137147 __tmp137144)))) (declare (not safe)) - (cons __tmp135982 '())))) + (cons __tmp137143 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '() __tmp135981)))) + (cons '() __tmp137142)))) (declare (not safe)) - (cons __tmp135987 __tmp135980)) - (gx#stx-source _stx129944_)))) + (cons __tmp137148 __tmp137141)) + (gx#stx-source _stx131105_)))) (declare (not safe)) - (cons __tmp135979 '())))) + (cons __tmp137140 '())))) (declare (not safe)) - (cons _E130235_ __tmp135978)))) + (cons _E131396_ __tmp137139)))) (declare (not safe)) - (cons __tmp135977 _r130236_)))) - _g130263130274_)))) + (cons __tmp137138 _r131397_)))) + _g131424131435_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130261130295_ - _tgt130096_))))) - (if (gx#stx-pair? ___stx135813135814_) - (let ((_e130245130306_ + (_g131422131456_ + _tgt131257_))))) + (if (gx#stx-pair? ___stx136974136975_) + (let ((_e131406131467_ (gx#syntax-e - ___stx135813135814_))) - (let ((_tl130243130313_ + ___stx136974136975_))) + (let ((_tl131404131474_ (let () (declare (not safe)) - (##cdr _e130245130306_))) - (_hd130244130310_ + (##cdr _e131406131467_))) + (_hd131405131471_ (let () (declare (not safe)) - (##car _e130245130306_)))) - (___kont135816135817_ - _tl130243130313_ - _hd130244130310_))) - (___kont135818135819_)))))))) - (let* ((_bind130106_ - (_generate-clauses130104_ _clauses130099_)) - (_g130109130126_ - (lambda (_g130110130122_) + (##car _e131406131467_)))) + (___kont136977136978_ + _tl131404131474_ + _hd131405131471_))) + (___kont136979136980_)))))))) + (let* ((_bind131267_ + (_generate-clauses131265_ _clauses131260_)) + (_g131270131287_ + (lambda (_g131271131283_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130110130122_))) - (_g130108130223_ - (lambda (_g130110130130_) - (if (gx#stx-pair/null? _g130110130130_) - (let ((_g135988_ + _g131271131283_))) + (_g131269131384_ + (lambda (_g131271131291_) + (if (gx#stx-pair/null? _g131271131291_) + (let ((_g137149_ (gx#syntax-split-splice - _g130110130130_ + _g131271131291_ '0))) (begin - (let ((_g135989_ + (let ((_g137150_ (let () (declare (not safe)) - (if (##values? _g135988_) + (if (##values? _g137149_) (##vector-length - _g135988_) + _g137149_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g135989_ 2))) + (##fx= _g137150_ 2))) (error "Context expects 2 values" - _g135989_))) - (let ((_target130112130133_ + _g137150_))) + (let ((_target131273131294_ (let () (declare (not safe)) - (##vector-ref _g135988_ 0))) - (_tl130114130136_ + (##vector-ref _g137149_ 0))) + (_tl131275131297_ (let () (declare (not safe)) - (##vector-ref _g135988_ 1)))) - (if (gx#stx-null? _tl130114130136_) - (letrec ((_loop130115130139_ - (lambda (_hd130113130143_ + (##vector-ref _g137149_ 1)))) + (if (gx#stx-null? _tl131275131297_) + (letrec ((_loop131276131300_ + (lambda (_hd131274131304_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind-try130119130146_) - (if (gx#stx-pair? _hd130113130143_) - (let ((_e130116130149_ (gx#syntax-e _hd130113130143_))) - (let ((_lp-hd130117130153_ + _bind-try131280131307_) + (if (gx#stx-pair? _hd131274131304_) + (let ((_e131277131310_ (gx#syntax-e _hd131274131304_))) + (let ((_lp-hd131278131314_ (let () (declare (not safe)) - (##car _e130116130149_))) - (_lp-tl130118130156_ + (##car _e131277131310_))) + (_lp-tl131279131317_ (let () (declare (not safe)) - (##cdr _e130116130149_)))) - (_loop130115130139_ - _lp-tl130118130156_ + (##cdr _e131277131310_)))) + (_loop131276131300_ + _lp-tl131279131317_ (let () (declare (not safe)) - (cons _lp-hd130117130153_ - _bind-try130119130146_))))) - (let ((_bind-try130120130159_ - (reverse _bind-try130119130146_))) - ((lambda (_L130163_) + (cons _lp-hd131278131314_ + _bind-try131280131307_))))) + (let ((_bind-try131281131320_ + (reverse _bind-try131280131307_))) + ((lambda (_L131324_) (let () - (let* ((_g130181130189_ - (lambda (_g130182130185_) + (let* ((_g131342131350_ + (lambda (_g131343131346_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130182130185_))) - (_g130180130219_ - (lambda (_g130182130193_) - ((lambda (_L130196_) + _g131343131346_))) + (_g131341131380_ + (lambda (_g131343131354_) + ((lambda (_L131357_) (let () (let () - (let ((__tmp135995 + (let ((__tmp137156 (gx#datum->syntax '#f 'let*)) - (__tmp135990 - (let ((__tmp135993 - (let ((__tmp135994 + (__tmp137151 + (let ((__tmp137154 + (let ((__tmp137155 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g130210130213_ _g130211130216_) + (lambda (_g131371131374_ _g131372131377_) (let () (declare (not safe)) - (cons _g130210130213_ _g130211130216_))))) + (cons _g131371131374_ _g131372131377_))))) (declare (not safe)) - (foldr1 __tmp135994 '() _L130163_))) - (__tmp135991 - (let ((__tmp135992 - (let () (declare (not safe)) (cons _L130196_ '())))) + (foldr1 __tmp137155 '() _L131324_))) + (__tmp137152 + (let ((__tmp137153 + (let () (declare (not safe)) (cons _L131357_ '())))) (declare (not safe)) - (cons __tmp135992 '())))) + (cons __tmp137153 '())))) (declare (not safe)) - (cons __tmp135993 __tmp135991)))) + (cons __tmp137154 __tmp137152)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135995 - __tmp135990))))) - _g130182130193_)))) - (_g130180130219_ + (cons __tmp137156 + __tmp137151))))) + _g131343131354_)))) + (_g131341131380_ (car (let () (declare (not safe)) - (last _bind130106_))))))) - _bind-try130120130159_)))))) + (last _bind131267_))))))) + _bind-try131281131320_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop130115130139_ - _target130112130133_ + (_loop131276131300_ + _target131273131294_ '())) - (_g130109130126_ - _g130110130130_))))) - (_g130109130126_ _g130110130130_))))) - (_g130108130223_ _bind130106_)))))) - (let* ((_g129950129969_ - (lambda (_g129951129965_) + (_g131270131287_ + _g131271131291_))))) + (_g131270131287_ _g131271131291_))))) + (_g131269131384_ _bind131267_)))))) + (let* ((_g131111131130_ + (lambda (_g131112131126_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g129951129965_))) - (_g129949130092_ - (lambda (_g129951129973_) - (if (gx#stx-pair? _g129951129973_) - (let ((_e129957129976_ (gx#syntax-e _g129951129973_))) - (let ((_hd129956129980_ + _g131112131126_))) + (_g131110131253_ + (lambda (_g131112131134_) + (if (gx#stx-pair? _g131112131134_) + (let ((_e131118131137_ (gx#syntax-e _g131112131134_))) + (let ((_hd131117131141_ (let () (declare (not safe)) - (##car _e129957129976_))) - (_tl129955129983_ + (##car _e131118131137_))) + (_tl131116131144_ (let () (declare (not safe)) - (##cdr _e129957129976_)))) - (if (gx#stx-pair? _tl129955129983_) - (let ((_e129960129986_ - (gx#syntax-e _tl129955129983_))) - (let ((_hd129959129990_ + (##cdr _e131118131137_)))) + (if (gx#stx-pair? _tl131116131144_) + (let ((_e131121131147_ + (gx#syntax-e _tl131116131144_))) + (let ((_hd131120131151_ (let () (declare (not safe)) - (##car _e129960129986_))) - (_tl129958129993_ + (##car _e131121131147_))) + (_tl131119131154_ (let () (declare (not safe)) - (##cdr _e129960129986_)))) - (if (gx#stx-pair? _tl129958129993_) - (let ((_e129963129996_ - (gx#syntax-e _tl129958129993_))) - (let ((_hd129962130000_ + (##cdr _e131121131147_)))) + (if (gx#stx-pair? _tl131119131154_) + (let ((_e131124131157_ + (gx#syntax-e _tl131119131154_))) + (let ((_hd131123131161_ (let () (declare (not safe)) - (##car _e129963129996_))) - (_tl129961130003_ + (##car _e131124131157_))) + (_tl131122131164_ (let () (declare (not safe)) - (##cdr _e129963129996_)))) - ((lambda (_L130006_ - _L130008_ - _L130009_) + (##cdr _e131124131157_)))) + ((lambda (_L131167_ + _L131169_ + _L131170_) (if (and (gx#identifier-list? - _L130008_) + _L131169_) (gx#stx-list? - _L130006_)) - (let* ((_g130027130035_ - (lambda (_g130028130031_) + _L131167_)) + (let* ((_g131188131196_ + (lambda (_g131189131192_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130028130031_))) - (_g130026130088_ - (lambda (_g130028130039_) - ((lambda (_L130042_) + _g131189131192_))) + (_g131187131249_ + (lambda (_g131189131200_) + ((lambda (_L131203_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g130054130062_ - (lambda (_g130055130058_) + (let* ((_g131215131223_ + (lambda (_g131216131219_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g130055130058_))) - (_g130053130084_ - (lambda (_g130055130066_) - ((lambda (_L130069_) + _g131216131219_))) + (_g131214131245_ + (lambda (_g131216131227_) + ((lambda (_L131230_) (let () (let () - (let ((__tmp136001 + (let ((__tmp137162 (gx#datum->syntax '#f 'let)) - (__tmp135996 - (let ((__tmp135998 - (let ((__tmp135999 - (let ((__tmp136000 + (__tmp137157 + (let ((__tmp137159 + (let ((__tmp137160 + (let ((__tmp137161 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _L130009_ '())))) + (cons _L131170_ '())))) (declare (not safe)) - (cons _L130042_ __tmp136000)))) + (cons _L131203_ __tmp137161)))) (declare (not safe)) - (cons __tmp135999 '()))) - (__tmp135997 - (let () (declare (not safe)) (cons _L130069_ '())))) + (cons __tmp137160 '()))) + (__tmp137158 + (let () (declare (not safe)) (cons _L131230_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp135998 - __tmp135997)))) + (cons __tmp137159 + __tmp137158)))) (declare (not safe)) - (cons __tmp136001 __tmp135996))))) - _g130055130066_)))) - (_g130053130084_ - (_generate129947_ - _L130042_ - (gx#syntax->list _L130008_) - _L130006_))))) - _g130028130039_)))) + (cons __tmp137162 __tmp137157))))) + _g131216131227_)))) + (_g131214131245_ + (_generate131108_ + _L131203_ + (gx#syntax->list _L131169_) + _L131167_))))) + _g131189131200_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g130026130088_ + (_g131187131249_ (gx#genident 'e))) - (_g129950129969_ - _g129951129973_))) - _tl129961130003_ - _hd129962130000_ - _hd129959129990_))) - (_g129950129969_ _g129951129973_)))) - (_g129950129969_ _g129951129973_)))) - (_g129950129969_ _g129951129973_))))) - (_g129949130092_ _stx129944_))))))) + (_g131111131130_ + _g131112131134_))) + _tl131122131164_ + _hd131123131161_ + _hd131120131151_))) + (_g131111131130_ _g131112131134_)))) + (_g131111131130_ _g131112131134_)))) + (_g131111131130_ _g131112131134_))))) + (_g131110131253_ _stx131105_))))))) diff --git a/src/bootstrap/gerbil/expander/compile__0.scm b/src/bootstrap/gerbil/expander/compile__0.scm index 8286a90a5..a8b2a4d09 100644 --- a/src/bootstrap/gerbil/expander/compile__0.scm +++ b/src/bootstrap/gerbil/expander/compile__0.scm @@ -1,903 +1,903 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1707773927) + (define gerbil/expander/compile::timestamp 1708102803) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_stx168848_) - (let* ((_e168849168856_ _stx168848_) - (_E168851168860_ + (lambda (_stx170009_) + (let* ((_e170010170017_ _stx170009_) + (_E170012170021_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168849168856_))) - (_E168850168874_ - (lambda () - (if (gx#stx-pair? _e168849168856_) - (let ((_e168852168864_ (gx#syntax-e _e168849168856_))) - (let ((_hd168853168867_ (##car _e168852168864_)) - (_tl168854168869_ (##cdr _e168852168864_))) - (let ((_form168872_ _hd168853168867_)) + _e170010170017_))) + (_E170011170035_ + (lambda () + (if (gx#stx-pair? _e170010170017_) + (let ((_e170013170025_ (gx#syntax-e _e170010170017_))) + (let ((_hd170014170028_ (##car _e170013170025_)) + (_tl170015170030_ (##cdr _e170013170025_))) + (let ((_form170033_ _hd170014170028_)) (if '#t - (let* ((__self173445 - (gx#syntax-local-e__0 _form168872_)) - (__method173446 + (let* ((__self174606 + (gx#syntax-local-e__0 _form170033_)) + (__method174607 (method-ref - __self173445 + __self174606 'compile-top-syntax))) - (if __method173446 - (__method173446 __self173445 _stx168848_) + (if __method174607 + (__method174607 __self174606 _stx170009_) (error '"Missing method" - __self173445 + __self174606 'compile-top-syntax))) - (_E168851168860_))))) - (_E168851168860_))))) - (_E168850168874_)))) + (_E170012170021_))))) + (_E170012170021_))))) + (_E170011170035_)))) (define gx#core-expander::compile-top-syntax - (lambda (_self168808_ _stx168809_) - (let* ((_self168810168818_ _self168808_) - (_E168812168822_ - (lambda () (error '"No clause matching" _self168810168818_))) - (_K168813168834_ - (lambda (_K168825_) - (let ((_$e168827_ (gx#stx-source _stx168809_))) - (if _$e168827_ - ((lambda (_g168829168831_) + (lambda (_self169969_ _stx169970_) + (let* ((_self169971169979_ _self169969_) + (_E169973169983_ + (lambda () (error '"No clause matching" _self169971169979_))) + (_K169974169995_ + (lambda (_K169986_) + (let ((_$e169988_ (gx#stx-source _stx169970_))) + (if _$e169988_ + ((lambda (_g169990169992_) (gx#stx-wrap-source - (_K168825_ _stx168809_) - _g168829168831_)) - _$e168827_) - (_K168825_ _stx168809_)))))) + (_K169986_ _stx169970_) + _g169990169992_)) + _$e169988_) + (_K169986_ _stx169970_)))))) (if (##structure-instance-of? - _self168810168818_ + _self169971169979_ 'gx#core-expander::t) - (let* ((_e168814168837_ + (let* ((_e169975169998_ (##unchecked-structure-ref - _self168810168818_ + _self169971169979_ '1 gx#expander::t '#f)) - (_e168815168840_ + (_e169976170001_ (##unchecked-structure-ref - _self168810168818_ + _self169971169979_ '2 gx#core-expander::t '#f)) - (_e168816168843_ + (_e169977170004_ (##unchecked-structure-ref - _self168810168818_ + _self169971169979_ '3 gx#core-expander::t '#f)) - (_K168846_ _e168816168843_)) - (_K168813168834_ _K168846_)) - (_E168812168822_))))) + (_K170007_ _e169977170004_)) + (_K169974169995_ _K170007_)) + (_E169973169983_))))) (bind-method! gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_stx168682_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _stx168682_))) + (lambda (_stx169843_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _stx169843_))) (define gx#core-compile-top-begin% - (lambda (_stx168652_) - (let* ((_e168653168660_ _stx168652_) - (_E168655168664_ + (lambda (_stx169813_) + (let* ((_e169814169821_ _stx169813_) + (_E169816169825_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168653168660_))) - (_E168654168678_ - (lambda () - (if (gx#stx-pair? _e168653168660_) - (let ((_e168656168668_ (gx#syntax-e _e168653168660_))) - (let ((_hd168657168671_ (##car _e168656168668_)) - (_tl168658168673_ (##cdr _e168656168668_))) - (let ((_body168676_ _tl168658168673_)) + _e169814169821_))) + (_E169815169839_ + (lambda () + (if (gx#stx-pair? _e169814169821_) + (let ((_e169817169829_ (gx#syntax-e _e169814169821_))) + (let ((_hd169818169832_ (##car _e169817169829_)) + (_tl169819169834_ (##cdr _e169817169829_))) + (let ((_body169837_ _tl169819169834_)) (if '#t (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _body168676_)) - (_E168655168664_))))) - (_E168655168664_))))) - (_E168654168678_)))) + _body169837_)) + (_E169816169825_))))) + (_E169816169825_))))) + (_E169815169839_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_stx168621_) - (let* ((_e168622168629_ _stx168621_) - (_E168624168633_ + (lambda (_stx169782_) + (let* ((_e169783169790_ _stx169782_) + (_E169785169794_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168622168629_))) - (_E168623168648_ - (lambda () - (if (gx#stx-pair? _e168622168629_) - (let ((_e168625168637_ (gx#syntax-e _e168622168629_))) - (let ((_hd168626168640_ (##car _e168625168637_)) - (_tl168627168642_ (##cdr _e168625168637_))) - (let ((_body168645_ _tl168627168642_)) + _e169783169790_))) + (_E169784169809_ + (lambda () + (if (gx#stx-pair? _e169783169790_) + (let ((_e169786169798_ (gx#syntax-e _e169783169790_))) + (let ((_hd169787169801_ (##car _e169786169798_)) + (_tl169788169803_ (##cdr _e169786169798_))) + (let ((_body169806_ _tl169788169803_)) (if '#t (cons '%#begin-syntax (call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _body168645_)) + _body169806_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))) - (_E168624168633_))))) - (_E168624168633_))))) - (_E168623168648_)))) + (_E169785169794_))))) + (_E169785169794_))))) + (_E169784169809_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_stx168591_) - (let* ((_e168592168599_ _stx168591_) - (_E168594168603_ + (lambda (_stx169752_) + (let* ((_e169753169760_ _stx169752_) + (_E169755169764_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168592168599_))) - (_E168593168617_ - (lambda () - (if (gx#stx-pair? _e168592168599_) - (let ((_e168595168607_ (gx#syntax-e _e168592168599_))) - (let ((_hd168596168610_ (##car _e168595168607_)) - (_tl168597168612_ (##cdr _e168595168607_))) - (let ((_body168615_ _tl168597168612_)) + _e169753169760_))) + (_E169754169778_ + (lambda () + (if (gx#stx-pair? _e169753169760_) + (let ((_e169756169768_ (gx#syntax-e _e169753169760_))) + (let ((_hd169757169771_ (##car _e169756169768_)) + (_tl169758169773_ (##cdr _e169756169768_))) + (let ((_body169776_ _tl169758169773_)) (if '#t - (cons '%#begin-foreign _body168615_) - (_E168594168603_))))) - (_E168594168603_))))) - (_E168593168617_)))) + (cons '%#begin-foreign _body169776_) + (_E169755169764_))))) + (_E169755169764_))))) + (_E169754169778_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_stx168537_) - (let* ((_e168538168551_ _stx168537_) - (_E168540168555_ + (lambda (_stx169698_) + (let* ((_e169699169712_ _stx169698_) + (_E169701169716_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168538168551_))) - (_E168539168587_ - (lambda () - (if (gx#stx-pair? _e168538168551_) - (let ((_e168541168559_ (gx#syntax-e _e168538168551_))) - (let ((_hd168542168562_ (##car _e168541168559_)) - (_tl168543168564_ (##cdr _e168541168559_))) - (if (gx#stx-pair? _tl168543168564_) - (let ((_e168544168567_ - (gx#syntax-e _tl168543168564_))) - (let ((_hd168545168570_ - (##car _e168544168567_)) - (_tl168546168572_ - (##cdr _e168544168567_))) - (let ((_ann168575_ _hd168545168570_)) - (if (gx#stx-pair? _tl168546168572_) - (let ((_e168547168577_ - (gx#syntax-e _tl168546168572_))) - (let ((_hd168548168580_ - (##car _e168547168577_)) - (_tl168549168582_ - (##cdr _e168547168577_))) - (let ((_expr168585_ - _hd168548168580_)) + _e169699169712_))) + (_E169700169748_ + (lambda () + (if (gx#stx-pair? _e169699169712_) + (let ((_e169702169720_ (gx#syntax-e _e169699169712_))) + (let ((_hd169703169723_ (##car _e169702169720_)) + (_tl169704169725_ (##cdr _e169702169720_))) + (if (gx#stx-pair? _tl169704169725_) + (let ((_e169705169728_ + (gx#syntax-e _tl169704169725_))) + (let ((_hd169706169731_ + (##car _e169705169728_)) + (_tl169707169733_ + (##cdr _e169705169728_))) + (let ((_ann169736_ _hd169706169731_)) + (if (gx#stx-pair? _tl169707169733_) + (let ((_e169708169738_ + (gx#syntax-e _tl169707169733_))) + (let ((_hd169709169741_ + (##car _e169708169738_)) + (_tl169710169743_ + (##cdr _e169708169738_))) + (let ((_expr169746_ + _hd169709169741_)) (if (gx#stx-null? - _tl168549168582_) + _tl169710169743_) (if '#t (gx#core-compile-top-syntax - _expr168585_) - (_E168540168555_)) - (_E168540168555_))))) - (_E168540168555_))))) - (_E168540168555_)))) - (_E168540168555_))))) - (_E168539168587_)))) + _expr169746_) + (_E169701169716_)) + (_E169701169716_))))) + (_E169701169716_))))) + (_E169701169716_)))) + (_E169701169716_))))) + (_E169700169748_)))) (define gx#core-compile-top-import% - (lambda (_stx168507_) - (let* ((_e168508168515_ _stx168507_) - (_E168510168519_ + (lambda (_stx169668_) + (let* ((_e169669169676_ _stx169668_) + (_E169671169680_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168508168515_))) - (_E168509168533_ - (lambda () - (if (gx#stx-pair? _e168508168515_) - (let ((_e168511168523_ (gx#syntax-e _e168508168515_))) - (let ((_hd168512168526_ (##car _e168511168523_)) - (_tl168513168528_ (##cdr _e168511168523_))) - (let ((_body168531_ _tl168513168528_)) + _e169669169676_))) + (_E169670169694_ + (lambda () + (if (gx#stx-pair? _e169669169676_) + (let ((_e169672169684_ (gx#syntax-e _e169669169676_))) + (let ((_hd169673169687_ (##car _e169672169684_)) + (_tl169674169689_ (##cdr _e169672169684_))) + (let ((_body169692_ _tl169674169689_)) (if '#t - (cons '%#import _body168531_) - (_E168510168519_))))) - (_E168510168519_))))) - (_E168509168533_)))) + (cons '%#import _body169692_) + (_E169671169680_))))) + (_E169671169680_))))) + (_E169670169694_)))) (define gx#core-compile-top-module% - (lambda (_stx168464_) - (let* ((_e168465168475_ _stx168464_) - (_E168467168479_ + (lambda (_stx169625_) + (let* ((_e169626169636_ _stx169625_) + (_E169628169640_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168465168475_))) - (_E168466168503_ - (lambda () - (if (gx#stx-pair? _e168465168475_) - (let ((_e168468168483_ (gx#syntax-e _e168465168475_))) - (let ((_hd168469168486_ (##car _e168468168483_)) - (_tl168470168488_ (##cdr _e168468168483_))) - (if (gx#stx-pair? _tl168470168488_) - (let ((_e168471168491_ - (gx#syntax-e _tl168470168488_))) - (let ((_hd168472168494_ - (##car _e168471168491_)) - (_tl168473168496_ - (##cdr _e168471168491_))) - (let* ((_hd168499_ _hd168472168494_) - (_body168501_ _tl168473168496_)) + _e169626169636_))) + (_E169627169664_ + (lambda () + (if (gx#stx-pair? _e169626169636_) + (let ((_e169629169644_ (gx#syntax-e _e169626169636_))) + (let ((_hd169630169647_ (##car _e169629169644_)) + (_tl169631169649_ (##cdr _e169629169644_))) + (if (gx#stx-pair? _tl169631169649_) + (let ((_e169632169652_ + (gx#syntax-e _tl169631169649_))) + (let ((_hd169633169655_ + (##car _e169632169652_)) + (_tl169634169657_ + (##cdr _e169632169652_))) + (let* ((_hd169660_ _hd169633169655_) + (_body169662_ _tl169634169657_)) (if '#t (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _hd168499_) + _hd169660_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _body168501_))) - (_E168467168479_))))) - (_E168467168479_)))) - (_E168467168479_))))) - (_E168466168503_)))) + _body169662_))) + (_E169628169640_))))) + (_E169628169640_)))) + (_E169628169640_))))) + (_E169627169664_)))) (define gx#core-compile-top-export% - (lambda (_stx168434_) - (let* ((_e168435168442_ _stx168434_) - (_E168437168446_ + (lambda (_stx169595_) + (let* ((_e169596169603_ _stx169595_) + (_E169598169607_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168435168442_))) - (_E168436168460_ - (lambda () - (if (gx#stx-pair? _e168435168442_) - (let ((_e168438168450_ (gx#syntax-e _e168435168442_))) - (let ((_hd168439168453_ (##car _e168438168450_)) - (_tl168440168455_ (##cdr _e168438168450_))) - (let ((_body168458_ _tl168440168455_)) + _e169596169603_))) + (_E169597169621_ + (lambda () + (if (gx#stx-pair? _e169596169603_) + (let ((_e169599169611_ (gx#syntax-e _e169596169603_))) + (let ((_hd169600169614_ (##car _e169599169611_)) + (_tl169601169616_ (##cdr _e169599169611_))) + (let ((_body169619_ _tl169601169616_)) (if '#t - (cons '%#export _body168458_) - (_E168437168446_))))) - (_E168437168446_))))) - (_E168436168460_)))) + (cons '%#export _body169619_) + (_E169598169607_))))) + (_E169598169607_))))) + (_E169597169621_)))) (define gx#core-compile-top-provide% - (lambda (_stx168404_) - (let* ((_e168405168412_ _stx168404_) - (_E168407168416_ + (lambda (_stx169565_) + (let* ((_e169566169573_ _stx169565_) + (_E169568169577_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168405168412_))) - (_E168406168430_ - (lambda () - (if (gx#stx-pair? _e168405168412_) - (let ((_e168408168420_ (gx#syntax-e _e168405168412_))) - (let ((_hd168409168423_ (##car _e168408168420_)) - (_tl168410168425_ (##cdr _e168408168420_))) - (let ((_body168428_ _tl168410168425_)) + _e169566169573_))) + (_E169567169591_ + (lambda () + (if (gx#stx-pair? _e169566169573_) + (let ((_e169569169581_ (gx#syntax-e _e169566169573_))) + (let ((_hd169570169584_ (##car _e169569169581_)) + (_tl169571169586_ (##cdr _e169569169581_))) + (let ((_body169589_ _tl169571169586_)) (if '#t - (cons '%#provide _body168428_) - (_E168407168416_))))) - (_E168407168416_))))) - (_E168406168430_)))) + (cons '%#provide _body169589_) + (_E169568169577_))))) + (_E169568169577_))))) + (_E169567169591_)))) (define gx#core-compile-top-extern% - (lambda (_stx168374_) - (let* ((_e168375168382_ _stx168374_) - (_E168377168386_ + (lambda (_stx169535_) + (let* ((_e169536169543_ _stx169535_) + (_E169538169547_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168375168382_))) - (_E168376168400_ - (lambda () - (if (gx#stx-pair? _e168375168382_) - (let ((_e168378168390_ (gx#syntax-e _e168375168382_))) - (let ((_hd168379168393_ (##car _e168378168390_)) - (_tl168380168395_ (##cdr _e168378168390_))) - (let ((_body168398_ _tl168380168395_)) + _e169536169543_))) + (_E169537169561_ + (lambda () + (if (gx#stx-pair? _e169536169543_) + (let ((_e169539169551_ (gx#syntax-e _e169536169543_))) + (let ((_hd169540169554_ (##car _e169539169551_)) + (_tl169541169556_ (##cdr _e169539169551_))) + (let ((_body169559_ _tl169541169556_)) (if '#t - (cons '%#extern _body168398_) - (_E168377168386_))))) - (_E168377168386_))))) - (_E168376168400_)))) + (cons '%#extern _body169559_) + (_E169538169547_))))) + (_E169538169547_))))) + (_E169537169561_)))) (define gx#core-compile-top-define-values% - (lambda (_stx168320_) - (let* ((_e168321168334_ _stx168320_) - (_E168323168338_ + (lambda (_stx169481_) + (let* ((_e169482169495_ _stx169481_) + (_E169484169499_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168321168334_))) - (_E168322168370_ - (lambda () - (if (gx#stx-pair? _e168321168334_) - (let ((_e168324168342_ (gx#syntax-e _e168321168334_))) - (let ((_hd168325168345_ (##car _e168324168342_)) - (_tl168326168347_ (##cdr _e168324168342_))) - (if (gx#stx-pair? _tl168326168347_) - (let ((_e168327168350_ - (gx#syntax-e _tl168326168347_))) - (let ((_hd168328168353_ - (##car _e168327168350_)) - (_tl168329168355_ - (##cdr _e168327168350_))) - (let ((_hd168358_ _hd168328168353_)) - (if (gx#stx-pair? _tl168329168355_) - (let ((_e168330168360_ - (gx#syntax-e _tl168329168355_))) - (let ((_hd168331168363_ - (##car _e168330168360_)) - (_tl168332168365_ - (##cdr _e168330168360_))) - (let ((_expr168368_ - _hd168331168363_)) + _e169482169495_))) + (_E169483169531_ + (lambda () + (if (gx#stx-pair? _e169482169495_) + (let ((_e169485169503_ (gx#syntax-e _e169482169495_))) + (let ((_hd169486169506_ (##car _e169485169503_)) + (_tl169487169508_ (##cdr _e169485169503_))) + (if (gx#stx-pair? _tl169487169508_) + (let ((_e169488169511_ + (gx#syntax-e _tl169487169508_))) + (let ((_hd169489169514_ + (##car _e169488169511_)) + (_tl169490169516_ + (##cdr _e169488169511_))) + (let ((_hd169519_ _hd169489169514_)) + (if (gx#stx-pair? _tl169490169516_) + (let ((_e169491169521_ + (gx#syntax-e _tl169490169516_))) + (let ((_hd169492169524_ + (##car _e169491169521_)) + (_tl169493169526_ + (##cdr _e169491169521_))) + (let ((_expr169529_ + _hd169492169524_)) (if (gx#stx-null? - _tl168332168365_) + _tl169493169526_) (if '#t (cons '%#define-values (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-runtime-bind - _hd168358_) - (cons (gx#core-compile-top-syntax _expr168368_) + _hd169519_) + (cons (gx#core-compile-top-syntax _expr169529_) '()))) - (_E168323168338_)) + (_E169484169499_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E168323168338_))))) - (_E168323168338_))))) - (_E168323168338_)))) - (_E168323168338_))))) - (_E168322168370_)))) + (_E169484169499_))))) + (_E169484169499_))))) + (_E169484169499_)))) + (_E169484169499_))))) + (_E169483169531_)))) (define gx#core-compile-top-define-syntax% - (lambda (_stx168265_) - (let* ((_e168266168279_ _stx168265_) - (_E168268168283_ + (lambda (_stx169426_) + (let* ((_e169427169440_ _stx169426_) + (_E169429169444_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168266168279_))) - (_E168267168316_ - (lambda () - (if (gx#stx-pair? _e168266168279_) - (let ((_e168269168287_ (gx#syntax-e _e168266168279_))) - (let ((_hd168270168290_ (##car _e168269168287_)) - (_tl168271168292_ (##cdr _e168269168287_))) - (if (gx#stx-pair? _tl168271168292_) - (let ((_e168272168295_ - (gx#syntax-e _tl168271168292_))) - (let ((_hd168273168298_ - (##car _e168272168295_)) - (_tl168274168300_ - (##cdr _e168272168295_))) - (let ((_hd168303_ _hd168273168298_)) - (if (gx#stx-pair? _tl168274168300_) - (let ((_e168275168305_ - (gx#syntax-e _tl168274168300_))) - (let ((_hd168276168308_ - (##car _e168275168305_)) - (_tl168277168310_ - (##cdr _e168275168305_))) - (let ((_expr168313_ - _hd168276168308_)) + _e169427169440_))) + (_E169428169477_ + (lambda () + (if (gx#stx-pair? _e169427169440_) + (let ((_e169430169448_ (gx#syntax-e _e169427169440_))) + (let ((_hd169431169451_ (##car _e169430169448_)) + (_tl169432169453_ (##cdr _e169430169448_))) + (if (gx#stx-pair? _tl169432169453_) + (let ((_e169433169456_ + (gx#syntax-e _tl169432169453_))) + (let ((_hd169434169459_ + (##car _e169433169456_)) + (_tl169435169461_ + (##cdr _e169433169456_))) + (let ((_hd169464_ _hd169434169459_)) + (if (gx#stx-pair? _tl169435169461_) + (let ((_e169436169466_ + (gx#syntax-e _tl169435169461_))) + (let ((_hd169437169469_ + (##car _e169436169466_)) + (_tl169438169471_ + (##cdr _e169436169466_))) + (let ((_expr169474_ + _hd169437169469_)) (if (gx#stx-null? - _tl168277168310_) + _tl169438169471_) (if '#t (cons '%#define-syntax - (cons _hd168303_ + (cons _hd169464_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (call-with-parameters (lambda () - (gx#core-compile-top-syntax _expr168313_)) + (gx#core-compile-top-syntax _expr169474_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)) '()))) - (_E168268168283_)) + (_E169429169444_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E168268168283_))))) - (_E168268168283_))))) - (_E168268168283_)))) - (_E168268168283_))))) - (_E168267168316_)))) + (_E169429169444_))))) + (_E169429169444_))))) + (_E169429169444_)))) + (_E169429169444_))))) + (_E169428169477_)))) (define gx#core-compile-top-define-alias% - (lambda (_stx168235_) - (let* ((_e168236168243_ _stx168235_) - (_E168238168247_ + (lambda (_stx169396_) + (let* ((_e169397169404_ _stx169396_) + (_E169399169408_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168236168243_))) - (_E168237168261_ - (lambda () - (if (gx#stx-pair? _e168236168243_) - (let ((_e168239168251_ (gx#syntax-e _e168236168243_))) - (let ((_hd168240168254_ (##car _e168239168251_)) - (_tl168241168256_ (##cdr _e168239168251_))) - (let ((_body168259_ _tl168241168256_)) + _e169397169404_))) + (_E169398169422_ + (lambda () + (if (gx#stx-pair? _e169397169404_) + (let ((_e169400169412_ (gx#syntax-e _e169397169404_))) + (let ((_hd169401169415_ (##car _e169400169412_)) + (_tl169402169417_ (##cdr _e169400169412_))) + (let ((_body169420_ _tl169402169417_)) (if '#t - (cons '%#define-alias _body168259_) - (_E168238168247_))))) - (_E168238168247_))))) - (_E168237168261_)))) + (cons '%#define-alias _body169420_) + (_E169399169408_))))) + (_E169399169408_))))) + (_E169398169422_)))) (define gx#core-compile-top-define-runtime% - (lambda (_stx168205_) - (let* ((_e168206168213_ _stx168205_) - (_E168208168217_ + (lambda (_stx169366_) + (let* ((_e169367169374_ _stx169366_) + (_E169369169378_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168206168213_))) - (_E168207168231_ - (lambda () - (if (gx#stx-pair? _e168206168213_) - (let ((_e168209168221_ (gx#syntax-e _e168206168213_))) - (let ((_hd168210168224_ (##car _e168209168221_)) - (_tl168211168226_ (##cdr _e168209168221_))) - (let ((_body168229_ _tl168211168226_)) + _e169367169374_))) + (_E169368169392_ + (lambda () + (if (gx#stx-pair? _e169367169374_) + (let ((_e169370169382_ (gx#syntax-e _e169367169374_))) + (let ((_hd169371169385_ (##car _e169370169382_)) + (_tl169372169387_ (##cdr _e169370169382_))) + (let ((_body169390_ _tl169372169387_)) (if '#t - (cons '%#define-runtime _body168229_) - (_E168208168217_))))) - (_E168208168217_))))) - (_E168207168231_)))) + (cons '%#define-runtime _body169390_) + (_E169369169378_))))) + (_E169369169378_))))) + (_E169368169392_)))) (define gx#core-compile-top-declare% - (lambda (_stx168175_) - (let* ((_e168176168183_ _stx168175_) - (_E168178168187_ + (lambda (_stx169336_) + (let* ((_e169337169344_ _stx169336_) + (_E169339169348_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168176168183_))) - (_E168177168201_ - (lambda () - (if (gx#stx-pair? _e168176168183_) - (let ((_e168179168191_ (gx#syntax-e _e168176168183_))) - (let ((_hd168180168194_ (##car _e168179168191_)) - (_tl168181168196_ (##cdr _e168179168191_))) - (let ((_decls168199_ _tl168181168196_)) + _e169337169344_))) + (_E169338169362_ + (lambda () + (if (gx#stx-pair? _e169337169344_) + (let ((_e169340169352_ (gx#syntax-e _e169337169344_))) + (let ((_hd169341169355_ (##car _e169340169352_)) + (_tl169342169357_ (##cdr _e169340169352_))) + (let ((_decls169360_ _tl169342169357_)) (if '#t - (cons '%#declare _decls168199_) - (_E168178168187_))))) - (_E168178168187_))))) - (_E168177168201_)))) + (cons '%#declare _decls169360_) + (_E169339169348_))))) + (_E169339169348_))))) + (_E169338169362_)))) (define gx#core-compile-top-lambda% - (lambda (_stx168145_) - (let* ((_e168146168153_ _stx168145_) - (_E168148168157_ + (lambda (_stx169306_) + (let* ((_e169307169314_ _stx169306_) + (_E169309169318_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168146168153_))) - (_E168147168171_ - (lambda () - (if (gx#stx-pair? _e168146168153_) - (let ((_e168149168161_ (gx#syntax-e _e168146168153_))) - (let ((_hd168150168164_ (##car _e168149168161_)) - (_tl168151168166_ (##cdr _e168149168161_))) - (let ((_clause168169_ _tl168151168166_)) + _e169307169314_))) + (_E169308169332_ + (lambda () + (if (gx#stx-pair? _e169307169314_) + (let ((_e169310169322_ (gx#syntax-e _e169307169314_))) + (let ((_hd169311169325_ (##car _e169310169322_)) + (_tl169312169327_ (##cdr _e169310169322_))) + (let ((_clause169330_ _tl169312169327_)) (if '#t (cons '%#lambda (gx#core-compile-top-lambda-clause - _clause168169_)) - (_E168148168157_))))) - (_E168148168157_))))) - (_E168147168171_)))) + _clause169330_)) + (_E169309169318_))))) + (_E169309169318_))))) + (_E169308169332_)))) (define gx#core-compile-top-lambda-clause - (lambda (_stx168102_) - (let* ((_e168103168113_ _stx168102_) - (_E168105168117_ + (lambda (_stx169263_) + (let* ((_e169264169274_ _stx169263_) + (_E169266169278_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168103168113_))) - (_E168104168141_ - (lambda () - (if (gx#stx-pair? _e168103168113_) - (let ((_e168106168121_ (gx#syntax-e _e168103168113_))) - (let ((_hd168107168124_ (##car _e168106168121_)) - (_tl168108168126_ (##cdr _e168106168121_))) - (let ((_hd168129_ _hd168107168124_)) - (if (gx#stx-pair? _tl168108168126_) - (let ((_e168109168131_ - (gx#syntax-e _tl168108168126_))) - (let ((_hd168110168134_ - (##car _e168109168131_)) - (_tl168111168136_ - (##cdr _e168109168131_))) - (let ((_body168139_ _hd168110168134_)) - (if (gx#stx-null? _tl168111168136_) + _e169264169274_))) + (_E169265169302_ + (lambda () + (if (gx#stx-pair? _e169264169274_) + (let ((_e169267169282_ (gx#syntax-e _e169264169274_))) + (let ((_hd169268169285_ (##car _e169267169282_)) + (_tl169269169287_ (##cdr _e169267169282_))) + (let ((_hd169290_ _hd169268169285_)) + (if (gx#stx-pair? _tl169269169287_) + (let ((_e169270169292_ + (gx#syntax-e _tl169269169287_))) + (let ((_hd169271169295_ + (##car _e169270169292_)) + (_tl169272169297_ + (##cdr _e169270169292_))) + (let ((_body169300_ _hd169271169295_)) + (if (gx#stx-null? _tl169272169297_) (if '#t (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _hd168129_) + _hd169290_) (cons (gx#core-compile-top-syntax - _body168139_) + _body169300_) '())) - (_E168105168117_)) - (_E168105168117_))))) - (_E168105168117_))))) - (_E168105168117_))))) - (_E168104168141_)))) + (_E169266169278_)) + (_E169266169278_))))) + (_E169266169278_))))) + (_E169266169278_))))) + (_E169265169302_)))) (define gx#core-compile-top-case-lambda% - (lambda (_stx168072_) - (let* ((_e168073168080_ _stx168072_) - (_E168075168084_ + (lambda (_stx169233_) + (let* ((_e169234169241_ _stx169233_) + (_E169236169245_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168073168080_))) - (_E168074168098_ - (lambda () - (if (gx#stx-pair? _e168073168080_) - (let ((_e168076168088_ (gx#syntax-e _e168073168080_))) - (let ((_hd168077168091_ (##car _e168076168088_)) - (_tl168078168093_ (##cdr _e168076168088_))) - (let ((_clauses168096_ _tl168078168093_)) + _e169234169241_))) + (_E169235169259_ + (lambda () + (if (gx#stx-pair? _e169234169241_) + (let ((_e169237169249_ (gx#syntax-e _e169234169241_))) + (let ((_hd169238169252_ (##car _e169237169249_)) + (_tl169239169254_ (##cdr _e169237169249_))) + (let ((_clauses169257_ _tl169239169254_)) (if '#t (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _clauses168096_)) - (_E168075168084_))))) - (_E168075168084_))))) - (_E168074168098_)))) + _clauses169257_)) + (_E169236169245_))))) + (_E169236169245_))))) + (_E169235169259_)))) (define gx#core-compile-top-let-values%__% - (lambda (_stx168007_ _form168008_) - (let* ((_e168009168022_ _stx168007_) - (_E168011168026_ + (lambda (_stx169168_ _form169169_) + (let* ((_e169170169183_ _stx169168_) + (_E169172169187_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e168009168022_))) - (_E168010168058_ - (lambda () - (if (gx#stx-pair? _e168009168022_) - (let ((_e168012168030_ (gx#syntax-e _e168009168022_))) - (let ((_hd168013168033_ (##car _e168012168030_)) - (_tl168014168035_ (##cdr _e168012168030_))) - (if (gx#stx-pair? _tl168014168035_) - (let ((_e168015168038_ - (gx#syntax-e _tl168014168035_))) - (let ((_hd168016168041_ - (##car _e168015168038_)) - (_tl168017168043_ - (##cdr _e168015168038_))) - (let ((_hd168046_ _hd168016168041_)) - (if (gx#stx-pair? _tl168017168043_) - (let ((_e168018168048_ - (gx#syntax-e _tl168017168043_))) - (let ((_hd168019168051_ - (##car _e168018168048_)) - (_tl168020168053_ - (##cdr _e168018168048_))) - (let ((_body168056_ - _hd168019168051_)) + _e169170169183_))) + (_E169171169219_ + (lambda () + (if (gx#stx-pair? _e169170169183_) + (let ((_e169173169191_ (gx#syntax-e _e169170169183_))) + (let ((_hd169174169194_ (##car _e169173169191_)) + (_tl169175169196_ (##cdr _e169173169191_))) + (if (gx#stx-pair? _tl169175169196_) + (let ((_e169176169199_ + (gx#syntax-e _tl169175169196_))) + (let ((_hd169177169202_ + (##car _e169176169199_)) + (_tl169178169204_ + (##cdr _e169176169199_))) + (let ((_hd169207_ _hd169177169202_)) + (if (gx#stx-pair? _tl169178169204_) + (let ((_e169179169209_ + (gx#syntax-e _tl169178169204_))) + (let ((_hd169180169212_ + (##car _e169179169209_)) + (_tl169181169214_ + (##cdr _e169179169209_))) + (let ((_body169217_ + _hd169180169212_)) (if (gx#stx-null? - _tl168020168053_) + _tl169181169214_) (if '#t - (cons _form168008_ + (cons _form169169_ (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#core-compile-top-lambda-clause - _hd168046_) - (cons (gx#core-compile-top-syntax _body168056_) + _hd169207_) + (cons (gx#core-compile-top-syntax _body169217_) '()))) - (_E168011168026_)) + (_E169172169187_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E168011168026_))))) - (_E168011168026_))))) - (_E168011168026_)))) - (_E168011168026_))))) - (_E168010168058_)))) + (_E169172169187_))))) + (_E169172169187_))))) + (_E169172169187_)))) + (_E169172169187_))))) + (_E169171169219_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_stx168065_) - (let ((_form168067_ '%#let-values)) - (gx#core-compile-top-let-values%__% _stx168065_ _form168067_)))) + (lambda (_stx169226_) + (let ((_form169228_ '%#let-values)) + (gx#core-compile-top-let-values%__% _stx169226_ _form169228_)))) (define gx#core-compile-top-let-values% - (lambda _g173448_ - (let ((_g173447_ (##length _g173448_))) - (cond ((##fx= _g173447_ 1) - (apply (lambda (_stx168065_) - (gx#core-compile-top-let-values%__0 _stx168065_)) - _g173448_)) - ((##fx= _g173447_ 2) - (apply (lambda (_stx168069_ _form168070_) + (lambda _g174609_ + (let ((_g174608_ (##length _g174609_))) + (cond ((##fx= _g174608_ 1) + (apply (lambda (_stx169226_) + (gx#core-compile-top-let-values%__0 _stx169226_)) + _g174609_)) + ((##fx= _g174608_ 2) + (apply (lambda (_stx169230_ _form169231_) (gx#core-compile-top-let-values%__% - _stx168069_ - _form168070_)) - _g173448_)) + _stx169230_ + _form169231_)) + _g174609_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g173448_)))))) + _g174609_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_stx168004_) - (gx#core-compile-top-let-values%__% _stx168004_ '%#letrec-values))) + (lambda (_stx169165_) + (gx#core-compile-top-let-values%__% _stx169165_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_stx168002_) - (gx#core-compile-top-let-values%__% _stx168002_ '%#letrec*-values))) + (lambda (_stx169163_) + (gx#core-compile-top-let-values%__% _stx169163_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_stx167961_) - (let* ((_e167962167972_ _stx167961_) - (_E167964167976_ + (lambda (_stx169122_) + (let* ((_e169123169133_ _stx169122_) + (_E169125169137_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e167962167972_))) - (_E167963167998_ - (lambda () - (if (gx#stx-pair? _e167962167972_) - (let ((_e167965167980_ (gx#syntax-e _e167962167972_))) - (let ((_hd167966167983_ (##car _e167965167980_)) - (_tl167967167985_ (##cdr _e167965167980_))) - (if (gx#stx-pair? _tl167967167985_) - (let ((_e167968167988_ - (gx#syntax-e _tl167967167985_))) - (let ((_hd167969167991_ - (##car _e167968167988_)) - (_tl167970167993_ - (##cdr _e167968167988_))) - (let ((_e167996_ _hd167969167991_)) - (if (gx#stx-null? _tl167970167993_) + _e169123169133_))) + (_E169124169159_ + (lambda () + (if (gx#stx-pair? _e169123169133_) + (let ((_e169126169141_ (gx#syntax-e _e169123169133_))) + (let ((_hd169127169144_ (##car _e169126169141_)) + (_tl169128169146_ (##cdr _e169126169141_))) + (if (gx#stx-pair? _tl169128169146_) + (let ((_e169129169149_ + (gx#syntax-e _tl169128169146_))) + (let ((_hd169130169152_ + (##car _e169129169149_)) + (_tl169131169154_ + (##cdr _e169129169149_))) + (let ((_e169157_ _hd169130169152_)) + (if (gx#stx-null? _tl169131169154_) (if '#t (cons '%#quote (cons (gx#syntax->datum - _e167996_) + _e169157_) '())) - (_E167964167976_)) - (_E167964167976_))))) - (_E167964167976_)))) - (_E167964167976_))))) - (_E167963167998_)))) + (_E169125169137_)) + (_E169125169137_))))) + (_E169125169137_)))) + (_E169125169137_))))) + (_E169124169159_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_stx167920_) - (let* ((_e167921167931_ _stx167920_) - (_E167923167935_ + (lambda (_stx169081_) + (let* ((_e169082169092_ _stx169081_) + (_E169084169096_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e167921167931_))) - (_E167922167957_ - (lambda () - (if (gx#stx-pair? _e167921167931_) - (let ((_e167924167939_ (gx#syntax-e _e167921167931_))) - (let ((_hd167925167942_ (##car _e167924167939_)) - (_tl167926167944_ (##cdr _e167924167939_))) - (if (gx#stx-pair? _tl167926167944_) - (let ((_e167927167947_ - (gx#syntax-e _tl167926167944_))) - (let ((_hd167928167950_ - (##car _e167927167947_)) - (_tl167929167952_ - (##cdr _e167927167947_))) - (let ((_e167955_ _hd167928167950_)) - (if (gx#stx-null? _tl167929167952_) + _e169082169092_))) + (_E169083169118_ + (lambda () + (if (gx#stx-pair? _e169082169092_) + (let ((_e169085169100_ (gx#syntax-e _e169082169092_))) + (let ((_hd169086169103_ (##car _e169085169100_)) + (_tl169087169105_ (##cdr _e169085169100_))) + (if (gx#stx-pair? _tl169087169105_) + (let ((_e169088169108_ + (gx#syntax-e _tl169087169105_))) + (let ((_hd169089169111_ + (##car _e169088169108_)) + (_tl169090169113_ + (##cdr _e169088169108_))) + (let ((_e169116_ _hd169089169111_)) + (if (gx#stx-null? _tl169090169113_) (if '#t (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _e167955_) + _e169116_) '())) - (_E167923167935_)) - (_E167923167935_))))) - (_E167923167935_)))) - (_E167923167935_))))) - (_E167922167957_)))) + (_E169084169096_)) + (_E169084169096_))))) + (_E169084169096_)))) + (_E169084169096_))))) + (_E169083169118_)))) (define gx#core-compile-top-call% - (lambda (_stx167877_) - (let* ((_e167878167888_ _stx167877_) - (_E167880167892_ + (lambda (_stx169038_) + (let* ((_e169039169049_ _stx169038_) + (_E169041169053_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e167878167888_))) - (_E167879167916_ - (lambda () - (if (gx#stx-pair? _e167878167888_) - (let ((_e167881167896_ (gx#syntax-e _e167878167888_))) - (let ((_hd167882167899_ (##car _e167881167896_)) - (_tl167883167901_ (##cdr _e167881167896_))) - (if (gx#stx-pair? _tl167883167901_) - (let ((_e167884167904_ - (gx#syntax-e _tl167883167901_))) - (let ((_hd167885167907_ - (##car _e167884167904_)) - (_tl167886167909_ - (##cdr _e167884167904_))) - (let* ((_rator167912_ _hd167885167907_) - (_args167914_ _tl167886167909_)) + _e169039169049_))) + (_E169040169077_ + (lambda () + (if (gx#stx-pair? _e169039169049_) + (let ((_e169042169057_ (gx#syntax-e _e169039169049_))) + (let ((_hd169043169060_ (##car _e169042169057_)) + (_tl169044169062_ (##cdr _e169042169057_))) + (if (gx#stx-pair? _tl169044169062_) + (let ((_e169045169065_ + (gx#syntax-e _tl169044169062_))) + (let ((_hd169046169068_ + (##car _e169045169065_)) + (_tl169047169070_ + (##cdr _e169045169065_))) + (let* ((_rator169073_ _hd169046169068_) + (_args169075_ _tl169047169070_)) (if '#t (cons '%#call (cons (gx#core-compile-top-syntax - _rator167912_) + _rator169073_) (gx#stx-map1 gx#core-compile-top-syntax - _args167914_))) - (_E167880167892_))))) - (_E167880167892_)))) - (_E167880167892_))))) - (_E167879167916_)))) + _args169075_))) + (_E169041169053_))))) + (_E169041169053_)))) + (_E169041169053_))))) + (_E169040169077_)))) (define gx#core-compile-top-if% - (lambda (_stx167810_) - (let* ((_e167811167827_ _stx167810_) - (_E167813167831_ + (lambda (_stx168971_) + (let* ((_e168972168988_ _stx168971_) + (_E168974168992_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e167811167827_))) - (_E167812167873_ - (lambda () - (if (gx#stx-pair? _e167811167827_) - (let ((_e167814167835_ (gx#syntax-e _e167811167827_))) - (let ((_hd167815167838_ (##car _e167814167835_)) - (_tl167816167840_ (##cdr _e167814167835_))) - (if (gx#stx-pair? _tl167816167840_) - (let ((_e167817167843_ - (gx#syntax-e _tl167816167840_))) - (let ((_hd167818167846_ - (##car _e167817167843_)) - (_tl167819167848_ - (##cdr _e167817167843_))) - (let ((_test167851_ _hd167818167846_)) - (if (gx#stx-pair? _tl167819167848_) - (let ((_e167820167853_ - (gx#syntax-e _tl167819167848_))) - (let ((_hd167821167856_ - (##car _e167820167853_)) - (_tl167822167858_ - (##cdr _e167820167853_))) - (let ((_K167861_ _hd167821167856_)) + _e168972168988_))) + (_E168973169034_ + (lambda () + (if (gx#stx-pair? _e168972168988_) + (let ((_e168975168996_ (gx#syntax-e _e168972168988_))) + (let ((_hd168976168999_ (##car _e168975168996_)) + (_tl168977169001_ (##cdr _e168975168996_))) + (if (gx#stx-pair? _tl168977169001_) + (let ((_e168978169004_ + (gx#syntax-e _tl168977169001_))) + (let ((_hd168979169007_ + (##car _e168978169004_)) + (_tl168980169009_ + (##cdr _e168978169004_))) + (let ((_test169012_ _hd168979169007_)) + (if (gx#stx-pair? _tl168980169009_) + (let ((_e168981169014_ + (gx#syntax-e _tl168980169009_))) + (let ((_hd168982169017_ + (##car _e168981169014_)) + (_tl168983169019_ + (##cdr _e168981169014_))) + (let ((_K169022_ _hd168982169017_)) (if (gx#stx-pair? - _tl167822167858_) - (let ((_e167823167863_ + _tl168983169019_) + (let ((_e168984169024_ (gx#syntax-e - _tl167822167858_))) - (let ((_hd167824167866_ - (##car _e167823167863_)) - (_tl167825167868_ - (##cdr _e167823167863_))) - (let ((_E167871_ - _hd167824167866_)) + _tl168983169019_))) + (let ((_hd168985169027_ + (##car _e168984169024_)) + (_tl168986169029_ + (##cdr _e168984169024_))) + (let ((_E169032_ + _hd168985169027_)) (if (gx#stx-null? - _tl167825167868_) + _tl168986169029_) (if '#t (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _test167851_) + (cons (gx#core-compile-top-syntax _test169012_) (cons (gx#core-compile-top-syntax - _K167861_) + _K169022_) (cons (gx#core-compile-top-syntax - _E167871_) + _E169032_) '())))) - (_E167813167831_)) - (_E167813167831_))))) + (_E168974168992_)) + (_E168974168992_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E167813167831_))))) - (_E167813167831_))))) - (_E167813167831_)))) - (_E167813167831_))))) - (_E167812167873_)))) + (_E168974168992_))))) + (_E168974168992_))))) + (_E168974168992_)))) + (_E168974168992_))))) + (_E168973169034_)))) (define gx#core-compile-top-ref% - (lambda (_stx167769_) - (let* ((_e167770167780_ _stx167769_) - (_E167772167784_ + (lambda (_stx168930_) + (let* ((_e168931168941_ _stx168930_) + (_E168933168945_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e167770167780_))) - (_E167771167806_ - (lambda () - (if (gx#stx-pair? _e167770167780_) - (let ((_e167773167788_ (gx#syntax-e _e167770167780_))) - (let ((_hd167774167791_ (##car _e167773167788_)) - (_tl167775167793_ (##cdr _e167773167788_))) - (if (gx#stx-pair? _tl167775167793_) - (let ((_e167776167796_ - (gx#syntax-e _tl167775167793_))) - (let ((_hd167777167799_ - (##car _e167776167796_)) - (_tl167778167801_ - (##cdr _e167776167796_))) - (let ((_id167804_ _hd167777167799_)) - (if (gx#stx-null? _tl167778167801_) - (if (gx#identifier? _id167804_) + _e168931168941_))) + (_E168932168967_ + (lambda () + (if (gx#stx-pair? _e168931168941_) + (let ((_e168934168949_ (gx#syntax-e _e168931168941_))) + (let ((_hd168935168952_ (##car _e168934168949_)) + (_tl168936168954_ (##cdr _e168934168949_))) + (if (gx#stx-pair? _tl168936168954_) + (let ((_e168937168957_ + (gx#syntax-e _tl168936168954_))) + (let ((_hd168938168960_ + (##car _e168937168957_)) + (_tl168939168962_ + (##cdr _e168937168957_))) + (let ((_id168965_ _hd168938168960_)) + (if (gx#stx-null? _tl168939168962_) + (if (gx#identifier? _id168965_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _id167804_) + _id168965_) '())) - (_E167772167784_)) - (_E167772167784_))))) - (_E167772167784_)))) - (_E167772167784_))))) - (_E167771167806_)))) + (_E168933168945_)) + (_E168933168945_))))) + (_E168933168945_)))) + (_E168933168945_))))) + (_E168932168967_)))) (define gx#core-compile-top-setq% - (lambda (_stx167715_) - (let* ((_e167716167729_ _stx167715_) - (_E167718167733_ + (lambda (_stx168876_) + (let* ((_e168877168890_ _stx168876_) + (_E168879168894_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e167716167729_))) - (_E167717167765_ - (lambda () - (if (gx#stx-pair? _e167716167729_) - (let ((_e167719167737_ (gx#syntax-e _e167716167729_))) - (let ((_hd167720167740_ (##car _e167719167737_)) - (_tl167721167742_ (##cdr _e167719167737_))) - (if (gx#stx-pair? _tl167721167742_) - (let ((_e167722167745_ - (gx#syntax-e _tl167721167742_))) - (let ((_hd167723167748_ - (##car _e167722167745_)) - (_tl167724167750_ - (##cdr _e167722167745_))) - (let ((_id167753_ _hd167723167748_)) - (if (gx#stx-pair? _tl167724167750_) - (let ((_e167725167755_ - (gx#syntax-e _tl167724167750_))) - (let ((_hd167726167758_ - (##car _e167725167755_)) - (_tl167727167760_ - (##cdr _e167725167755_))) - (let ((_expr167763_ - _hd167726167758_)) + _e168877168890_))) + (_E168878168926_ + (lambda () + (if (gx#stx-pair? _e168877168890_) + (let ((_e168880168898_ (gx#syntax-e _e168877168890_))) + (let ((_hd168881168901_ (##car _e168880168898_)) + (_tl168882168903_ (##cdr _e168880168898_))) + (if (gx#stx-pair? _tl168882168903_) + (let ((_e168883168906_ + (gx#syntax-e _tl168882168903_))) + (let ((_hd168884168909_ + (##car _e168883168906_)) + (_tl168885168911_ + (##cdr _e168883168906_))) + (let ((_id168914_ _hd168884168909_)) + (if (gx#stx-pair? _tl168885168911_) + (let ((_e168886168916_ + (gx#syntax-e _tl168885168911_))) + (let ((_hd168887168919_ + (##car _e168886168916_)) + (_tl168888168921_ + (##cdr _e168886168916_))) + (let ((_expr168924_ + _hd168887168919_)) (if (gx#stx-null? - _tl167727167760_) + _tl168888168921_) (if (gx#identifier? - _id167753_) + _id168914_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id167753_) - (cons (gx#core-compile-top-syntax _expr167763_) + _id168914_) + (cons (gx#core-compile-top-syntax _expr168924_) '()))) - (_E167718167733_)) + (_E168879168894_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E167718167733_))))) - (_E167718167733_))))) - (_E167718167733_)))) - (_E167718167733_))))) - (_E167717167765_)))) + (_E168879168894_))))) + (_E168879168894_))))) + (_E168879168894_)))) + (_E168879168894_))))) + (_E168878168926_)))) (define gx#core-compile-top-runtime-ref - (lambda (_id167710_) - (let ((_$e167712_ (gx#resolve-identifier__0 _id167710_))) - (if _$e167712_ - (##unchecked-structure-ref _$e167712_ '1 gx#binding::t '#f) - _id167710_)))) + (lambda (_id168871_) + (let ((_$e168873_ (gx#resolve-identifier__0 _id168871_))) + (if _$e168873_ + (##unchecked-structure-ref _$e168873_ '1 gx#binding::t '#f) + _id168871_)))) (define gx#core-compile-top-runtime-bind - (lambda (_hd167708_) - (if (gx#identifier? _hd167708_) - (gx#core-compile-top-runtime-ref _hd167708_) + (lambda (_hd168869_) + (if (gx#identifier? _hd168869_) + (gx#core-compile-top-runtime-ref _hd168869_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core.ssxi.ss b/src/bootstrap/gerbil/expander/core.ssxi.ss index e85884b11..809ef6a97 100644 --- a/src/bootstrap/gerbil/expander/core.ssxi.ss +++ b/src/bootstrap/gerbil/expander/core.ssxi.ss @@ -4,7 +4,16 @@ package: gerbil/expander (begin (declare-type gx#expander-context::t - (@class gx#expander-context::t () () (id table) (id table) :init! #t #f #f)) + (@class gx#expander-context::t + () + () + (id table) + (id table) + :init! + #t + #f + #f + #f)) (declare-type gx#expander-context? (@predicate gx#expander-context::t)) (declare-type gx#make-expander-context (@constructor gx#expander-context::t)) (declare-type @@ -41,6 +50,7 @@ package: gerbil/expander :init! #t #f + #f #f)) (declare-type gx#root-context? (@predicate gx#root-context::t)) (declare-type gx#make-root-context (@constructor gx#root-context::t)) @@ -66,6 +76,7 @@ package: gerbil/expander :init! #t #f + #f ((:init! . gx#phi-context:::init!)))) (declare-type gx#phi-context? (@predicate gx#phi-context::t)) (declare-type gx#make-phi-context (@constructor gx#phi-context::t)) @@ -107,6 +118,7 @@ package: gerbil/expander :init! #t #f + #f #f)) (declare-type gx#top-context? (@predicate gx#top-context::t)) (declare-type gx#make-top-context (@constructor gx#top-context::t)) @@ -148,6 +160,7 @@ package: gerbil/expander :init! #t #f + #f #f)) (declare-type gx#module-context? (@predicate gx#module-context::t)) (declare-type gx#make-module-context (@constructor gx#module-context::t)) @@ -273,6 +286,7 @@ package: gerbil/expander :init! #t #f + #f #f)) (declare-type gx#prelude-context? (@predicate gx#prelude-context::t)) (declare-type gx#make-prelude-context (@constructor gx#prelude-context::t)) @@ -370,6 +384,7 @@ package: gerbil/expander :init! #t #f + #f ((:init! . gx#local-context:::init!)))) (declare-type gx#local-context? (@predicate gx#local-context::t)) (declare-type gx#make-local-context (@constructor gx#local-context::t)) @@ -427,7 +442,7 @@ package: gerbil/expander (2 gx#local-context:::init!__%))) (declare-type gx#binding::t - (@class gx#binding::t () () (id key phi) (id key phi) #f #t #f #f)) + (@class gx#binding::t () () (id key phi) (id key phi) #f #t #f #f #f)) (declare-type gx#binding? (@predicate gx#binding::t)) (declare-type gx#make-binding (@constructor gx#binding::t)) (declare-type gx#binding-id (@accessor gx#binding::t id #t)) @@ -452,6 +467,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#runtime-binding? (@predicate gx#runtime-binding::t)) (declare-type gx#make-runtime-binding (@constructor gx#runtime-binding::t)) @@ -497,6 +513,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#local-binding? (@predicate gx#local-binding::t)) (declare-type gx#make-local-binding (@constructor gx#local-binding::t)) @@ -530,6 +547,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#top-binding? (@predicate gx#top-binding::t)) (declare-type gx#make-top-binding (@constructor gx#top-binding::t)) @@ -555,6 +573,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#module-binding? (@predicate gx#module-binding::t)) (declare-type gx#make-module-binding (@constructor gx#module-binding::t)) @@ -604,6 +623,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#extern-binding? (@predicate gx#extern-binding::t)) (declare-type gx#make-extern-binding (@constructor gx#extern-binding::t)) @@ -641,6 +661,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#syntax-binding? (@predicate gx#syntax-binding::t)) (declare-type gx#make-syntax-binding (@constructor gx#syntax-binding::t)) @@ -682,6 +703,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#import-binding? (@predicate gx#import-binding::t)) (declare-type gx#make-import-binding (@constructor gx#import-binding::t)) @@ -747,6 +769,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#alias-binding? (@predicate gx#alias-binding::t)) (declare-type gx#make-alias-binding (@constructor gx#alias-binding::t)) @@ -784,6 +807,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#expander::apply-macro-expander)))) (declare-type gx#expander? (@predicate gx#expander::t)) (declare-type gx#make-expander (@constructor gx#expander::t)) @@ -801,6 +825,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#core-expander::apply-macro-expander)))) (declare-type gx#core-expander? (@predicate gx#core-expander::t)) (declare-type gx#make-core-expander (@constructor gx#core-expander::t)) @@ -834,6 +859,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#expression-form? (@predicate gx#expression-form::t)) (declare-type gx#make-expression-form (@constructor gx#expression-form::t)) @@ -875,6 +901,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#special-form? (@predicate gx#special-form::t)) (declare-type gx#make-special-form (@constructor gx#special-form::t)) @@ -908,6 +935,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#definition-form? (@predicate gx#definition-form::t)) (declare-type gx#make-definition-form (@constructor gx#definition-form::t)) @@ -949,6 +977,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#top-special-form::apply-macro-expander)))) @@ -999,6 +1028,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#module-special-form::apply-macro-expander)))) @@ -1052,6 +1082,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#feature-expander? (@predicate gx#feature-expander::t)) (declare-type gx#make-feature-expander (@constructor gx#feature-expander::t)) @@ -1073,6 +1104,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#private-feature-expander? @@ -1102,6 +1134,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#reserved-expander? (@predicate gx#reserved-expander::t)) (declare-type @@ -1129,6 +1162,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#macro-expander::apply-macro-expander)))) (declare-type gx#macro-expander? (@predicate gx#macro-expander::t)) (declare-type gx#make-macro-expander (@constructor gx#macro-expander::t)) @@ -1146,6 +1180,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#rename-macro-expander::apply-macro-expander)))) @@ -1177,6 +1212,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#user-expander::apply-macro-expander)))) (declare-type gx#user-expander? (@predicate gx#user-expander::t)) (declare-type gx#make-user-expander (@constructor gx#user-expander::t)) @@ -1214,6 +1250,7 @@ package: gerbil/expander #f #t #f + #f #f)) (declare-type gx#expander-mark? (@predicate gx#expander-mark::t)) (declare-type gx#make-expander-mark (@constructor gx#expander-mark::t)) diff --git a/src/bootstrap/gerbil/expander/core__0.scm b/src/bootstrap/gerbil/expander/core__0.scm index 976b1585c..039475230 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 1707773927) + (define gerbil/expander/core::timestamp 1708102802) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -28,8 +28,8 @@ ':init!)) (define gx#expander-context? (make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _$args145029_ - (apply make-instance gx#expander-context::t _$args145029_))) + (lambda _$args146190_ + (apply make-instance gx#expander-context::t _$args146190_))) (define gx#expander-context-id (make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -56,8 +56,8 @@ '#f)) (define gx#root-context? (make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _$args145026_ - (apply make-instance gx#root-context::t _$args145026_))) + (lambda _$args146187_ + (apply make-instance gx#root-context::t _$args146187_))) (define gx#root-context-id (make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -84,8 +84,8 @@ '#f)) (define gx#phi-context? (make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _$args145023_ - (apply make-instance gx#phi-context::t _$args145023_))) + (lambda _$args146184_ + (apply make-instance gx#phi-context::t _$args146184_))) (define gx#phi-context-super (make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up (make-class-slot-accessor gx#phi-context::t 'up)) @@ -134,8 +134,8 @@ '#f)) (define gx#top-context? (make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _$args145020_ - (apply make-instance gx#top-context::t _$args145020_))) + (lambda _$args146181_ + (apply make-instance gx#top-context::t _$args146181_))) (define gx#top-context-super (make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up (make-class-slot-accessor gx#top-context::t 'up)) @@ -184,8 +184,8 @@ '#f)) (define gx#module-context? (make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _$args145017_ - (apply make-instance gx#module-context::t _$args145017_))) + (lambda _$args146178_ + (apply make-instance gx#module-context::t _$args146178_))) (define gx#module-context-ns (make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -284,8 +284,8 @@ '#f)) (define gx#prelude-context? (make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _$args145014_ - (apply make-instance gx#prelude-context::t _$args145014_))) + (lambda _$args146175_ + (apply make-instance gx#prelude-context::t _$args146175_))) (define gx#prelude-context-path (make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -360,8 +360,8 @@ '#f)) (define gx#local-context? (make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _$args145011_ - (apply make-instance gx#local-context::t _$args145011_))) + (lambda _$args146172_ + (apply make-instance gx#local-context::t _$args146172_))) (define gx#local-context-super (make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -403,101 +403,101 @@ (define gx#&local-context-table-set! (make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_self144995_ _id144996_ _super144997_) - (if (##fx< '3 (##structure-length _self144995_)) + (lambda (_self146156_ _id146157_ _super146158_) + (if (##fx< '3 (##structure-length _self146156_)) (begin (##unchecked-structure-set! - _self144995_ - _id144996_ + _self146156_ + _id146157_ '1 - (##structure-type _self144995_) + (##structure-type _self146156_) '#f) (##unchecked-structure-set! - _self144995_ + _self146156_ (make-table 'test: eq?) '2 - (##structure-type _self144995_) + (##structure-type _self146156_) '#f) (##unchecked-structure-set! - _self144995_ - _super144997_ + _self146156_ + _super146158_ '3 - (##structure-type _self144995_) + (##structure-type _self146156_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self144995_ + _self146156_ '3 - (##vector-length _self144995_))))) + (##vector-length _self146156_))))) (define gx#phi-context:::init!__0 - (lambda (_self145002_ _id145003_) - (let ((_super145005_ (gx#current-expander-context))) - (gx#phi-context:::init!__% _self145002_ _id145003_ _super145005_)))) + (lambda (_self146163_ _id146164_) + (let ((_super146166_ (gx#current-expander-context))) + (gx#phi-context:::init!__% _self146163_ _id146164_ _super146166_)))) (define gx#phi-context:::init! - (lambda _g149640_ - (let ((_g149639_ (##length _g149640_))) - (cond ((##fx= _g149639_ 2) - (apply (lambda (_self145002_ _id145003_) - (gx#phi-context:::init!__0 _self145002_ _id145003_)) - _g149640_)) - ((##fx= _g149639_ 3) - (apply (lambda (_self145007_ _id145008_ _super145009_) + (lambda _g150801_ + (let ((_g150800_ (##length _g150801_))) + (cond ((##fx= _g150800_ 2) + (apply (lambda (_self146163_ _id146164_) + (gx#phi-context:::init!__0 _self146163_ _id146164_)) + _g150801_)) + ((##fx= _g150800_ 3) + (apply (lambda (_self146168_ _id146169_ _super146170_) (gx#phi-context:::init!__% - _self145007_ - _id145008_ - _super145009_)) - _g149640_)) + _self146168_ + _id146169_ + _super146170_)) + _g150801_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g149640_)))))) + _g150801_)))))) (bind-method! gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_self144859_ _super144860_) - (if (##fx< '3 (##structure-length _self144859_)) + (lambda (_self146020_ _super146021_) + (if (##fx< '3 (##structure-length _self146020_)) (begin (##unchecked-structure-set! - _self144859_ + _self146020_ (gensym 'L) '1 - (##structure-type _self144859_) + (##structure-type _self146020_) '#f) (##unchecked-structure-set! - _self144859_ + _self146020_ (make-table 'test: eq?) '2 - (##structure-type _self144859_) + (##structure-type _self146020_) '#f) (##unchecked-structure-set! - _self144859_ - _super144860_ + _self146020_ + _super146021_ '3 - (##structure-type _self144859_) + (##structure-type _self146020_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self144859_ + _self146020_ '3 - (##vector-length _self144859_))))) + (##vector-length _self146020_))))) (define gx#local-context:::init!__0 - (lambda (_self144865_) - (let ((_super144867_ (gx#current-expander-context))) - (gx#local-context:::init!__% _self144865_ _super144867_)))) + (lambda (_self146026_) + (let ((_super146028_ (gx#current-expander-context))) + (gx#local-context:::init!__% _self146026_ _super146028_)))) (define gx#local-context:::init! - (lambda _g149642_ - (let ((_g149641_ (##length _g149642_))) - (cond ((##fx= _g149641_ 1) - (apply (lambda (_self144865_) - (gx#local-context:::init!__0 _self144865_)) - _g149642_)) - ((##fx= _g149641_ 2) - (apply (lambda (_self144869_ _super144870_) + (lambda _g150803_ + (let ((_g150802_ (##length _g150803_))) + (cond ((##fx= _g150802_ 1) + (apply (lambda (_self146026_) + (gx#local-context:::init!__0 _self146026_)) + _g150803_)) + ((##fx= _g150802_ 2) + (apply (lambda (_self146030_ _super146031_) (gx#local-context:::init!__% - _self144869_ - _super144870_)) - _g149642_)) + _self146030_ + _super146031_)) + _g150803_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g149642_)))))) + _g150803_)))))) (bind-method! gx#local-context::t ':init! gx#local-context:::init! '#f) (define gx#binding::t (make-class-type @@ -509,7 +509,7 @@ '#f)) (define gx#binding? (make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _$args144733_ (apply make-instance gx#binding::t _$args144733_))) + (lambda _$args145894_ (apply make-instance gx#binding::t _$args145894_))) (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)) @@ -538,8 +538,8 @@ '#f)) (define gx#runtime-binding? (make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _$args144730_ - (apply make-instance gx#runtime-binding::t _$args144730_))) + (lambda _$args145891_ + (apply make-instance gx#runtime-binding::t _$args145891_))) (define gx#runtime-binding-id (make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -574,8 +574,8 @@ '#f)) (define gx#local-binding? (make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _$args144727_ - (apply make-instance gx#local-binding::t _$args144727_))) + (lambda _$args145888_ + (apply make-instance gx#local-binding::t _$args145888_))) (define gx#local-binding-id (make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -610,8 +610,8 @@ '#f)) (define gx#top-binding? (make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _$args144724_ - (apply make-instance gx#top-binding::t _$args144724_))) + (lambda _$args145885_ + (apply make-instance gx#top-binding::t _$args145885_))) (define gx#top-binding-id (make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key (make-class-slot-accessor gx#top-binding::t 'key)) @@ -645,8 +645,8 @@ '#f)) (define gx#module-binding? (make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _$args144721_ - (apply make-instance gx#module-binding::t _$args144721_))) + (lambda _$args145882_ + (apply make-instance gx#module-binding::t _$args145882_))) (define gx#module-binding-context (make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -689,8 +689,8 @@ '#f)) (define gx#extern-binding? (make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _$args144718_ - (apply make-instance gx#extern-binding::t _$args144718_))) + (lambda _$args145879_ + (apply make-instance gx#extern-binding::t _$args145879_))) (define gx#extern-binding-id (make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -726,8 +726,8 @@ '#f)) (define gx#syntax-binding? (make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _$args144715_ - (apply make-instance gx#syntax-binding::t _$args144715_))) + (lambda _$args145876_ + (apply make-instance gx#syntax-binding::t _$args145876_))) (define gx#syntax-binding-e (make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -771,8 +771,8 @@ '#f)) (define gx#import-binding? (make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _$args144712_ - (apply make-instance gx#import-binding::t _$args144712_))) + (lambda _$args145873_ + (apply make-instance gx#import-binding::t _$args145873_))) (define gx#import-binding-e (make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -832,8 +832,8 @@ '#f)) (define gx#alias-binding? (make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _$args144709_ - (apply make-instance gx#alias-binding::t _$args144709_))) + (lambda _$args145870_ + (apply make-instance gx#alias-binding::t _$args145870_))) (define gx#alias-binding-e (make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -876,8 +876,8 @@ '#f)) (define gx#expander? (make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _$args144706_ - (apply make-instance gx#expander::t _$args144706_))) + (lambda _$args145867_ + (apply make-instance gx#expander::t _$args145867_))) (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 @@ -894,8 +894,8 @@ '#f)) (define gx#core-expander? (make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _$args144703_ - (apply make-instance gx#core-expander::t _$args144703_))) + (lambda _$args145864_ + (apply make-instance gx#core-expander::t _$args145864_))) (define gx#core-expander-id (make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -930,8 +930,8 @@ '#f)) (define gx#expression-form? (make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _$args144700_ - (apply make-instance gx#expression-form::t _$args144700_))) + (lambda _$args145861_ + (apply make-instance gx#expression-form::t _$args145861_))) (define gx#expression-form-id (make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -966,8 +966,8 @@ '#f)) (define gx#special-form? (make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _$args144697_ - (apply make-instance gx#special-form::t _$args144697_))) + (lambda _$args145858_ + (apply make-instance gx#special-form::t _$args145858_))) (define gx#special-form-id (make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1001,8 +1001,8 @@ '#f)) (define gx#definition-form? (make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _$args144694_ - (apply make-instance gx#definition-form::t _$args144694_))) + (lambda _$args145855_ + (apply make-instance gx#definition-form::t _$args145855_))) (define gx#definition-form-id (make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1037,8 +1037,8 @@ '#f)) (define gx#top-special-form? (make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _$args144691_ - (apply make-instance gx#top-special-form::t _$args144691_))) + (lambda _$args145852_ + (apply make-instance gx#top-special-form::t _$args145852_))) (define gx#top-special-form-id (make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1074,8 +1074,8 @@ (define gx#module-special-form? (make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _$args144688_ - (apply make-instance gx#module-special-form::t _$args144688_))) + (lambda _$args145849_ + (apply make-instance gx#module-special-form::t _$args145849_))) (define gx#module-special-form-id (make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1114,8 +1114,8 @@ '#f)) (define gx#feature-expander? (make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _$args144685_ - (apply make-instance gx#feature-expander::t _$args144685_))) + (lambda _$args145846_ + (apply make-instance gx#feature-expander::t _$args145846_))) (define gx#feature-expander-e (make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1135,8 +1135,8 @@ (define gx#private-feature-expander? (make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _$args144682_ - (apply make-instance gx#private-feature-expander::t _$args144682_))) + (lambda _$args145843_ + (apply make-instance gx#private-feature-expander::t _$args145843_))) (define gx#private-feature-expander-e (make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1156,8 +1156,8 @@ (define gx#reserved-expander? (make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _$args144679_ - (apply make-instance gx#reserved-expander::t _$args144679_))) + (lambda _$args145840_ + (apply make-instance gx#reserved-expander::t _$args145840_))) (define gx#reserved-expander-e (make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1176,8 +1176,8 @@ '#f)) (define gx#macro-expander? (make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _$args144676_ - (apply make-instance gx#macro-expander::t _$args144676_))) + (lambda _$args145837_ + (apply make-instance gx#macro-expander::t _$args145837_))) (define gx#macro-expander-e (make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1197,8 +1197,8 @@ (define gx#rename-macro-expander? (make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _$args144673_ - (apply make-instance gx#rename-macro-expander::t _$args144673_))) + (lambda _$args145834_ + (apply make-instance gx#rename-macro-expander::t _$args145834_))) (define gx#rename-macro-expander-e (make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1217,8 +1217,8 @@ '#f)) (define gx#user-expander? (make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _$args144670_ - (apply make-instance gx#user-expander::t _$args144670_))) + (lambda _$args145831_ + (apply make-instance gx#user-expander::t _$args145831_))) (define gx#user-expander-context (make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1253,8 +1253,8 @@ '#f)) (define gx#expander-mark? (make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _$args144667_ - (apply make-instance gx#expander-mark::t _$args144667_))) + (lambda _$args145828_ + (apply make-instance gx#expander-mark::t _$args145828_))) (define gx#expander-mark-subst (make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1288,1002 +1288,1002 @@ (define gx#&expander-mark-trace-set! (make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_ctx144652_ _message144653_ _stx144654_ . _details144655_) - (let ((_ctx144665_ - (let ((_$e144657_ _ctx144652_)) - (if _$e144657_ - _$e144657_ - (let ((_$e144660_ (gx#core-context-top__0))) - (if _$e144660_ - ((lambda (_ctx144663_) + (lambda (_ctx145813_ _message145814_ _stx145815_ . _details145816_) + (let ((_ctx145826_ + (let ((_$e145818_ _ctx145813_)) + (if _$e145818_ + _$e145818_ + (let ((_$e145821_ (gx#core-context-top__0))) + (if _$e145821_ + ((lambda (_ctx145824_) (cons 'expand (cons (##structure-ref - _ctx144663_ + _ctx145824_ '1 gx#expander-context::t '#f) '()))) - _$e144660_) + _$e145821_) '#f)))))) (raise (make-syntax-error - _message144653_ - (cons _stx144654_ _details144655_) - _ctx144665_ + _message145814_ + (cons _stx145815_ _details145816_) + _ctx145826_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_stx144639_ _expression?144640_) - (gx#eval-syntax* (gx#core-expand__% _stx144639_ _expression?144640_)))) + (lambda (_stx145800_ _expression?145801_) + (gx#eval-syntax* (gx#core-expand__% _stx145800_ _expression?145801_)))) (define gx#eval-syntax__0 - (lambda (_stx144645_) - (let ((_expression?144647_ '#f)) - (gx#eval-syntax__% _stx144645_ _expression?144647_)))) + (lambda (_stx145806_) + (let ((_expression?145808_ '#f)) + (gx#eval-syntax__% _stx145806_ _expression?145808_)))) (define gx#eval-syntax - (lambda _g149644_ - (let ((_g149643_ (##length _g149644_))) - (cond ((##fx= _g149643_ 1) - (apply (lambda (_stx144645_) (gx#eval-syntax__0 _stx144645_)) - _g149644_)) - ((##fx= _g149643_ 2) - (apply (lambda (_stx144649_ _expression?144650_) - (gx#eval-syntax__% _stx144649_ _expression?144650_)) - _g149644_)) + (lambda _g150805_ + (let ((_g150804_ (##length _g150805_))) + (cond ((##fx= _g150804_ 1) + (apply (lambda (_stx145806_) (gx#eval-syntax__0 _stx145806_)) + _g150805_)) + ((##fx= _g150804_ 2) + (apply (lambda (_stx145810_ _expression?145811_) + (gx#eval-syntax__% _stx145810_ _expression?145811_)) + _g150805_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g149644_)))))) + _g150805_)))))) (define gx#eval-syntax* - (lambda (_stx144636_) + (lambda (_stx145797_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _stx144636_)))) + ((gx#current-expander-compile) _stx145797_)))) (define gx#core-expand__% - (lambda (_stx144623_ _expression?144624_) - (if _expression?144624_ - (gx#core-expand-expression _stx144623_) - (gx#core-expand-top _stx144623_)))) + (lambda (_stx145784_ _expression?145785_) + (if _expression?145785_ + (gx#core-expand-expression _stx145784_) + (gx#core-expand-top _stx145784_)))) (define gx#core-expand__0 - (lambda (_stx144629_) - (let ((_expression?144631_ '#f)) - (gx#core-expand__% _stx144629_ _expression?144631_)))) + (lambda (_stx145790_) + (let ((_expression?145792_ '#f)) + (gx#core-expand__% _stx145790_ _expression?145792_)))) (define gx#core-expand - (lambda _g149646_ - (let ((_g149645_ (##length _g149646_))) - (cond ((##fx= _g149645_ 1) - (apply (lambda (_stx144629_) (gx#core-expand__0 _stx144629_)) - _g149646_)) - ((##fx= _g149645_ 2) - (apply (lambda (_stx144633_ _expression?144634_) - (gx#core-expand__% _stx144633_ _expression?144634_)) - _g149646_)) + (lambda _g150807_ + (let ((_g150806_ (##length _g150807_))) + (cond ((##fx= _g150806_ 1) + (apply (lambda (_stx145790_) (gx#core-expand__0 _stx145790_)) + _g150807_)) + ((##fx= _g150806_ 2) + (apply (lambda (_stx145794_ _expression?145795_) + (gx#core-expand__% _stx145794_ _expression?145795_)) + _g150807_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g149646_)))))) + _g150807_)))))) (define gx#core-expand-top - (lambda (_stx144590_) - (let* ((_stx144592_ (gx#core-expand*__0 _stx144590_)) - (_e144593144600_ _stx144592_) - (_E144595144604_ - (lambda () (gx#core-expand-expression _stx144592_))) - (_E144594144618_ + (lambda (_stx145751_) + (let* ((_stx145753_ (gx#core-expand*__0 _stx145751_)) + (_e145754145761_ _stx145753_) + (_E145756145765_ + (lambda () (gx#core-expand-expression _stx145753_))) + (_E145755145779_ (lambda () - (if (gx#stx-pair? _e144593144600_) - (let ((_e144596144608_ (gx#syntax-e _e144593144600_))) - (let ((_hd144597144611_ (##car _e144596144608_)) - (_tl144598144613_ (##cdr _e144596144608_))) - (let ((_form144616_ _hd144597144611_)) - (if (gx#core-bound-identifier?__0 _form144616_) - _stx144592_ - (_E144595144604_))))) - (_E144595144604_))))) - (_E144594144618_)))) + (if (gx#stx-pair? _e145754145761_) + (let ((_e145757145769_ (gx#syntax-e _e145754145761_))) + (let ((_hd145758145772_ (##car _e145757145769_)) + (_tl145759145774_ (##cdr _e145757145769_))) + (let ((_form145777_ _hd145758145772_)) + (if (gx#core-bound-identifier?__0 _form145777_) + _stx145753_ + (_E145756145765_))))) + (_E145756145765_))))) + (_E145755145779_)))) (define gx#core-expand-expression - (lambda (_stx144537_) - (letrec ((_sealed-expression?144539_ - (lambda (_hd144560_) - (if (gx#sealed-syntax? _hd144560_) - (let* ((_e144561144568_ _hd144560_) - (_E144563144572_ (lambda () '#f)) - (_E144562144586_ + (lambda (_stx145698_) + (letrec ((_sealed-expression?145700_ + (lambda (_hd145721_) + (if (gx#sealed-syntax? _hd145721_) + (let* ((_e145722145729_ _hd145721_) + (_E145724145733_ (lambda () '#f)) + (_E145723145747_ (lambda () - (if (gx#stx-pair? _e144561144568_) - (let ((_e144564144576_ - (gx#syntax-e _e144561144568_))) - (let ((_hd144565144579_ - (##car _e144564144576_)) - (_tl144566144581_ - (##cdr _e144564144576_))) - (let ((_form144584_ - _hd144565144579_)) + (if (gx#stx-pair? _e145722145729_) + (let ((_e145725145737_ + (gx#syntax-e _e145722145729_))) + (let ((_hd145726145740_ + (##car _e145725145737_)) + (_tl145727145742_ + (##cdr _e145725145737_))) + (let ((_form145745_ + _hd145726145740_)) (if '#t (gx#core-bound-identifier?__% - _form144584_ + _form145745_ gx#expression-form-binding?) - (_E144563144572_))))) - (_E144563144572_))))) - (_E144562144586_)) + (_E145724145733_))))) + (_E145724145733_))))) + (_E145723145747_)) '#f))) - (_illegal-expression144540_ - (lambda (_hd144558_ . _g149647_) + (_illegal-expression145701_ + (lambda (_hd145719_ . _g150808_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _stx144537_ - _hd144558_))) - (_expand-e144541_ - (lambda (_form144553_ _hd144554_) - (let ((_bind144556_ + _stx145698_ + _hd145719_))) + (_expand-e145702_ + (lambda (_form145714_ _hd145715_) + (let ((_bind145717_ (if (##structure-instance-of? - _form144553_ + _form145714_ 'gx#binding::t) - _form144553_ - (gx#resolve-identifier__0 _form144553_)))) - (if (gx#core-expander-binding? _bind144556_) + _form145714_ + (gx#resolve-identifier__0 _form145714_)))) + (if (gx#core-expander-binding? _bind145717_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind144556_ + _bind145717_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd144554_ - (gx#stx-source _stx144537_))) + _hd145715_ + (gx#stx-source _stx145698_))) (if (##structure-direct-instance-of? - _bind144556_ + _bind145717_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind144556_ + _bind145717_ '4 gx#syntax-binding::t '#f) (gx#stx-wrap-source - _hd144554_ - (gx#stx-source _stx144537_)))) + _hd145715_ + (gx#stx-source _stx145698_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _stx144537_ - _form144553_))))))) - (let ((_hd144543_ (gx#core-expand-head _stx144537_))) - (if (_sealed-expression?144539_ _hd144543_) - _hd144543_ - (if (gx#stx-pair? _hd144543_) - (let* ((_form144545_ (gx#stx-car _hd144543_)) - (_bind144547_ - (if (gx#identifier? _form144545_) - (gx#resolve-identifier__0 _form144545_) + _stx145698_ + _form145714_))))))) + (let ((_hd145704_ (gx#core-expand-head _stx145698_))) + (if (_sealed-expression?145700_ _hd145704_) + _hd145704_ + (if (gx#stx-pair? _hd145704_) + (let* ((_form145706_ (gx#stx-car _hd145704_)) + (_bind145708_ + (if (gx#identifier? _form145706_) + (gx#resolve-identifier__0 _form145706_) '#f))) - (if (or (not _bind144547_) - (not (gx#core-expander-binding? _bind144547_))) - (_expand-e144541_ '%%app (cons '%%app _hd144543_)) + (if (or (not _bind145708_) + (not (gx#core-expander-binding? _bind145708_))) + (_expand-e145702_ '%%app (cons '%%app _hd145704_)) (if (eq? (##unchecked-structure-ref - _bind144547_ + _bind145708_ '1 gx#binding::t '#f) '%#begin) (gx#core-expand-block* - _hd144543_ - _illegal-expression144540_) - (if (gx#expression-form-binding? _bind144547_) - (_expand-e144541_ _bind144547_ _hd144543_) + _hd145704_ + _illegal-expression145701_) + (if (gx#expression-form-binding? _bind145708_) + (_expand-e145702_ _bind145708_ _hd145704_) (if (gx#direct-special-form-binding? - _bind144547_) + _bind145708_) (gx#core-expand-expression - (_expand-e144541_ - _bind144547_ - _hd144543_)) - (_illegal-expression144540_ - _hd144543_)))))) - (if (gx#core-bound-identifier?__0 _hd144543_) - (_illegal-expression144540_ _hd144543_) - (if (gx#identifier? _hd144543_) - (_expand-e144541_ + (_expand-e145702_ + _bind145708_ + _hd145704_)) + (_illegal-expression145701_ + _hd145704_)))))) + (if (gx#core-bound-identifier?__0 _hd145704_) + (_illegal-expression145701_ _hd145704_) + (if (gx#identifier? _hd145704_) + (_expand-e145702_ '%%ref - (cons '%%ref (cons _hd144543_ '()))) - (if (gx#stx-datum? _hd144543_) - (_expand-e144541_ + (cons '%%ref (cons _hd145704_ '()))) + (if (gx#stx-datum? _hd145704_) + (_expand-e145702_ '%#quote - (cons '%#quote (cons _hd144543_ '()))) - (_illegal-expression144540_ - _hd144543_)))))))))) + (cons '%#quote (cons _hd145704_ '()))) + (_illegal-expression145701_ + _hd145704_)))))))))) (define gx#core-expand-expression+1 - (lambda (_stx144532_) + (lambda (_stx145693_) (call-with-parameters (lambda () - (let ((_stx144535_ (gx#core-expand-expression _stx144532_))) - (values _stx144535_ (gx#eval-syntax* _stx144535_)))) + (let ((_stx145696_ (gx#core-expand-expression _stx145693_))) + (values _stx145696_ (gx#eval-syntax* _stx145696_)))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_stx144513_ _stop?144514_) - (let _lp144516_ ((_stx144518_ _stx144513_)) - (if (_stop?144514_ _stx144518_) - _stx144518_ - (let ((_rstx144520_ (gx#core-expand1 _stx144518_))) - (if (eq? _stx144518_ _rstx144520_) - _stx144518_ - (_lp144516_ _rstx144520_))))))) + (lambda (_stx145674_ _stop?145675_) + (let _lp145677_ ((_stx145679_ _stx145674_)) + (if (_stop?145675_ _stx145679_) + _stx145679_ + (let ((_rstx145681_ (gx#core-expand1 _stx145679_))) + (if (eq? _stx145679_ _rstx145681_) + _stx145679_ + (_lp145677_ _rstx145681_))))))) (define gx#core-expand*__0 - (lambda (_stx144525_) - (let ((_stop?144527_ false)) - (gx#core-expand*__% _stx144525_ _stop?144527_)))) + (lambda (_stx145686_) + (let ((_stop?145688_ false)) + (gx#core-expand*__% _stx145686_ _stop?145688_)))) (define gx#core-expand* - (lambda _g149649_ - (let ((_g149648_ (##length _g149649_))) - (cond ((##fx= _g149648_ 1) - (apply (lambda (_stx144525_) (gx#core-expand*__0 _stx144525_)) - _g149649_)) - ((##fx= _g149648_ 2) - (apply (lambda (_stx144529_ _stop?144530_) - (gx#core-expand*__% _stx144529_ _stop?144530_)) - _g149649_)) + (lambda _g150810_ + (let ((_g150809_ (##length _g150810_))) + (cond ((##fx= _g150809_ 1) + (apply (lambda (_stx145686_) (gx#core-expand*__0 _stx145686_)) + _g150810_)) + ((##fx= _g150809_ 2) + (apply (lambda (_stx145690_ _stop?145691_) + (gx#core-expand*__% _stx145690_ _stop?145691_)) + _g150810_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g149649_)))))) + _g150810_)))))) (define gx#core-expand1 - (lambda (_stx144469_) - (letrec ((_step144471_ - (lambda (_hd144508_) - (let ((_bind144510_ (gx#resolve-identifier__0 _hd144508_))) + (lambda (_stx145630_) + (letrec ((_step145632_ + (lambda (_hd145669_) + (let ((_bind145671_ (gx#resolve-identifier__0 _hd145669_))) (if (##structure-instance-of? - _bind144510_ + _bind145671_ 'gx#runtime-binding::t) - _stx144469_ + _stx145630_ (if (##structure-direct-instance-of? - _bind144510_ + _bind145671_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _bind144510_ + _bind145671_ '4 gx#syntax-binding::t '#f) - _stx144469_) - (if (not _bind144510_) - _stx144469_ + _stx145630_) + (if (not _bind145671_) + _stx145630_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _stx144469_)))))))) - (let* ((_e144472144480_ _stx144469_) - (_E144478144484_ (lambda () _stx144469_)) - (_E144474144490_ + _stx145630_)))))))) + (let* ((_e145633145641_ _stx145630_) + (_E145639145645_ (lambda () _stx145630_)) + (_E145635145651_ (lambda () - (let ((_hd144488_ _e144472144480_)) - (if (gx#identifier? _hd144488_) - (_step144471_ _hd144488_) - (_E144478144484_))))) - (_E144473144504_ + (let ((_hd145649_ _e145633145641_)) + (if (gx#identifier? _hd145649_) + (_step145632_ _hd145649_) + (_E145639145645_))))) + (_E145634145665_ (lambda () - (if (gx#stx-pair? _e144472144480_) - (let ((_e144475144494_ (gx#syntax-e _e144472144480_))) - (let ((_hd144476144497_ (##car _e144475144494_)) - (_tl144477144499_ (##cdr _e144475144494_))) - (let ((_hd144502_ _hd144476144497_)) - (if (gx#identifier? _hd144502_) - (_step144471_ _hd144502_) - (_E144474144490_))))) - (_E144474144490_))))) - (_E144473144504_))))) + (if (gx#stx-pair? _e145633145641_) + (let ((_e145636145655_ (gx#syntax-e _e145633145641_))) + (let ((_hd145637145658_ (##car _e145636145655_)) + (_tl145638145660_ (##cdr _e145636145655_))) + (let ((_hd145663_ _hd145637145658_)) + (if (gx#identifier? _hd145663_) + (_step145632_ _hd145663_) + (_E145635145651_))))) + (_E145635145651_))))) + (_E145634145665_))))) (define gx#core-expand-head - (lambda (_stx144435_) - (letrec ((_stop?144437_ - (lambda (_stx144439_) - (let* ((_e144440144447_ _stx144439_) - (_E144442144451_ (lambda () '#f)) - (_E144441144465_ + (lambda (_stx145596_) + (letrec ((_stop?145598_ + (lambda (_stx145600_) + (let* ((_e145601145608_ _stx145600_) + (_E145603145612_ (lambda () '#f)) + (_E145602145626_ (lambda () - (if (gx#stx-pair? _e144440144447_) - (let ((_e144443144455_ - (gx#syntax-e _e144440144447_))) - (let ((_hd144444144458_ - (##car _e144443144455_)) - (_tl144445144460_ - (##cdr _e144443144455_))) - (let ((_hd144463_ _hd144444144458_)) + (if (gx#stx-pair? _e145601145608_) + (let ((_e145604145616_ + (gx#syntax-e _e145601145608_))) + (let ((_hd145605145619_ + (##car _e145604145616_)) + (_tl145606145621_ + (##cdr _e145604145616_))) + (let ((_hd145624_ _hd145605145619_)) (if '#t (gx#core-bound-identifier?__0 - _hd144463_) - (_E144442144451_))))) - (_E144442144451_))))) - (_E144441144465_))))) - (gx#core-expand*__% _stx144435_ _stop?144437_)))) + _hd145624_) + (_E145603145612_))))) + (_E145603145612_))))) + (_E145602145626_))))) + (gx#core-expand*__% _stx145596_ _stop?145598_)))) (define gx#core-expand-block__% - (lambda (_stx144241_ - _expand-special144242_ - _begin-form144243_ - _expand-e144244_) - (letrec ((_expand-splice144246_ - (lambda (_hd144409_ _body144410_ _rest144411_ _r144412_) - (if (gx#stx-list? _body144410_) - (_K144250_ - (gx#stx-foldr cons _rest144411_ _body144410_) - _r144412_) + (lambda (_stx145402_ + _expand-special145403_ + _begin-form145404_ + _expand-e145405_) + (letrec ((_expand-splice145407_ + (lambda (_hd145570_ _body145571_ _rest145572_ _r145573_) + (if (gx#stx-list? _body145571_) + (_K145411_ + (gx#stx-foldr cons _rest145572_ _body145571_) + _r145573_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _stx144241_ - _hd144409_)))) - (_expand-cond-expand144247_ - (lambda (_hd144405_ _rest144406_ _r144407_) - (_K144250_ - (cons (gx#core-expand-cond-expand% _hd144405_) - _rest144406_) - _r144407_))) - (_expand-include144248_ - (lambda (_hd144354_ _rest144355_ _r144356_) - (let* ((_e144357144367_ _hd144354_) - (_E144359144371_ + _stx145402_ + _hd145570_)))) + (_expand-cond-expand145408_ + (lambda (_hd145566_ _rest145567_ _r145568_) + (_K145411_ + (cons (gx#core-expand-cond-expand% _hd145566_) + _rest145567_) + _r145568_))) + (_expand-include145409_ + (lambda (_hd145515_ _rest145516_ _r145517_) + (let* ((_e145518145528_ _hd145515_) + (_E145520145532_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e144357144367_))) - (_E144358144401_ + _e145518145528_))) + (_E145519145562_ (lambda () - (if (gx#stx-pair? _e144357144367_) - (let ((_e144360144375_ - (gx#syntax-e _e144357144367_))) - (let ((_hd144361144378_ - (##car _e144360144375_)) - (_tl144362144380_ - (##cdr _e144360144375_))) - (if (gx#stx-pair? _tl144362144380_) - (let ((_e144363144383_ + (if (gx#stx-pair? _e145518145528_) + (let ((_e145521145536_ + (gx#syntax-e _e145518145528_))) + (let ((_hd145522145539_ + (##car _e145521145536_)) + (_tl145523145541_ + (##cdr _e145521145536_))) + (if (gx#stx-pair? _tl145523145541_) + (let ((_e145524145544_ (gx#syntax-e - _tl144362144380_))) - (let ((_hd144364144386_ - (##car _e144363144383_)) - (_tl144365144388_ - (##cdr _e144363144383_))) - (let ((_path144391_ - _hd144364144386_)) + _tl145523145541_))) + (let ((_hd145525145547_ + (##car _e145524145544_)) + (_tl145526145549_ + (##cdr _e145524145544_))) + (let ((_path145552_ + _hd145525145547_)) (if (gx#stx-null? - _tl144365144388_) + _tl145526145549_) (if (gx#stx-string? - _path144391_) - (let* ((_rpath144393_ + _path145552_) + (let* ((_rpath145554_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _path144391_ - (gx#stx-source _hd144354_))) - (_block144395_ - (gx#core-expand-include%__% _hd144354_ _rpath144393_)) - (_rbody144398_ + _path145552_ + (gx#stx-source _hd145515_))) + (_block145556_ + (gx#core-expand-include%__% _hd145515_ _rpath145554_)) + (_rbody145559_ (call-with-parameters (lambda () (gx#core-expand-block__% - _block144395_ - _expand-special144242_ + _block145556_ + _expand-special145403_ '#f - _expand-e144244_)) + _expand-e145405_)) gx#current-expander-path - (cons _rpath144393_ (gx#current-expander-path))))) - (_K144250_ - _rest144355_ - (foldr1 cons _r144356_ _rbody144398_))) - (_E144359144371_)) + (cons _rpath145554_ (gx#current-expander-path))))) + (_K145411_ + _rest145516_ + (foldr1 cons _r145517_ _rbody145559_))) + (_E145520145532_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E144359144371_))))) - (_E144359144371_)))) - (_E144359144371_))))) - (_E144358144401_)))) - (_expand-expression144249_ - (lambda (_hd144350_ _rest144351_ _r144352_) - (_K144250_ - _rest144351_ - (cons (_expand-e144244_ _hd144350_) _r144352_)))) - (_K144250_ - (lambda (_rest144280_ _r144281_) - (let* ((_e144282144289_ _rest144280_) - (_E144284144293_ + (_E145520145532_))))) + (_E145520145532_)))) + (_E145520145532_))))) + (_E145519145562_)))) + (_expand-expression145410_ + (lambda (_hd145511_ _rest145512_ _r145513_) + (_K145411_ + _rest145512_ + (cons (_expand-e145405_ _hd145511_) _r145513_)))) + (_K145411_ + (lambda (_rest145441_ _r145442_) + (let* ((_e145443145450_ _rest145441_) + (_E145445145454_ (lambda () - (if _begin-form144243_ + (if _begin-form145404_ (gx#core-quote-syntax__1 (gx#core-cons - _begin-form144243_ - (reverse _r144281_)) - (gx#stx-source _stx144241_)) - _r144281_))) - (_E144283144346_ + _begin-form145404_ + (reverse _r145442_)) + (gx#stx-source _stx145402_)) + _r145442_))) + (_E145444145507_ (lambda () - (if (gx#stx-pair? _e144282144289_) - (let ((_e144285144297_ - (gx#syntax-e _e144282144289_))) - (let ((_hd144286144300_ - (##car _e144285144297_)) - (_tl144287144302_ - (##cdr _e144285144297_))) - (let* ((_hd144305_ _hd144286144300_) - (_rest144307_ _tl144287144302_)) + (if (gx#stx-pair? _e145443145450_) + (let ((_e145446145458_ + (gx#syntax-e _e145443145450_))) + (let ((_hd145447145461_ + (##car _e145446145458_)) + (_tl145448145463_ + (##cdr _e145446145458_))) + (let* ((_hd145466_ _hd145447145461_) + (_rest145468_ _tl145448145463_)) (if '#t - (let* ((_hd144309_ + (let* ((_hd145470_ (gx#core-expand-head - _hd144305_)) - (_e144310144317_ _hd144309_) - (_E144312144321_ + _hd145466_)) + (_e145471145478_ _hd145470_) + (_E145473145482_ (lambda () - (_expand-expression144249_ - _hd144309_ - _rest144307_ - _r144281_))) - (_E144311144342_ + (_expand-expression145410_ + _hd145470_ + _rest145468_ + _r145442_))) + (_E145472145503_ (lambda () (if (gx#stx-pair? - _e144310144317_) - (let ((_e144313144325_ + _e145471145478_) + (let ((_e145474145486_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e144310144317_))) - (let ((_hd144314144328_ (##car _e144313144325_)) - (_tl144315144330_ (##cdr _e144313144325_))) - (let* ((_form144333_ _hd144314144328_) - (_body144335_ _tl144315144330_)) + (gx#syntax-e _e145471145478_))) + (let ((_hd145475145489_ (##car _e145474145486_)) + (_tl145476145491_ (##cdr _e145474145486_))) + (let* ((_form145494_ _hd145475145489_) + (_body145496_ _tl145476145491_)) (if '#t - (let ((_bind144337_ - (if (gx#identifier? _form144333_) - (gx#resolve-identifier__0 _form144333_) + (let ((_bind145498_ + (if (gx#identifier? _form145494_) + (gx#resolve-identifier__0 _form145494_) '#f))) - (if (gx#special-form-binding? _bind144337_) - (let ((_$e144339_ + (if (gx#special-form-binding? _bind145498_) + (let ((_$e145500_ (##unchecked-structure-ref - _bind144337_ + _bind145498_ '1 gx#binding::t '#f))) - (if (eq? '%#begin _$e144339_) - (_expand-splice144246_ - _hd144309_ - _body144335_ - _rest144307_ - _r144281_) - (if (eq? '%#cond-expand _$e144339_) - (_expand-cond-expand144247_ - _hd144309_ - _rest144307_ - _r144281_) - (if (eq? '%#include _$e144339_) - (_expand-include144248_ - _hd144309_ - _rest144307_ - _r144281_) - (_expand-special144242_ - _hd144309_ - _K144250_ - _rest144307_ - _r144281_))))) - (_expand-expression144249_ - _hd144309_ - _rest144307_ - _r144281_))) - (_E144312144321_))))) - (_E144312144321_))))) + (if (eq? '%#begin _$e145500_) + (_expand-splice145407_ + _hd145470_ + _body145496_ + _rest145468_ + _r145442_) + (if (eq? '%#cond-expand _$e145500_) + (_expand-cond-expand145408_ + _hd145470_ + _rest145468_ + _r145442_) + (if (eq? '%#include _$e145500_) + (_expand-include145409_ + _hd145470_ + _rest145468_ + _r145442_) + (_expand-special145403_ + _hd145470_ + _K145411_ + _rest145468_ + _r145442_))))) + (_expand-expression145410_ + _hd145470_ + _rest145468_ + _r145442_))) + (_E145473145482_))))) + (_E145473145482_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E144311144342_)) - (_E144284144293_))))) - (_E144284144293_))))) - (_E144283144346_))))) - (let* ((_e144251144258_ _stx144241_) - (_E144253144262_ + (_E145472145503_)) + (_E145445145454_))))) + (_E145445145454_))))) + (_E145444145507_))))) + (let* ((_e145412145419_ _stx145402_) + (_E145414145423_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e144251144258_))) - (_E144252144276_ + _e145412145419_))) + (_E145413145437_ (lambda () - (if (gx#stx-pair? _e144251144258_) - (let ((_e144254144266_ (gx#syntax-e _e144251144258_))) - (let ((_hd144255144269_ (##car _e144254144266_)) - (_tl144256144271_ (##cdr _e144254144266_))) - (let ((_body144274_ _tl144256144271_)) - (if (gx#stx-list? _body144274_) - (_K144250_ _body144274_ '()) - (_E144253144262_))))) - (_E144253144262_))))) - (_E144252144276_))))) + (if (gx#stx-pair? _e145412145419_) + (let ((_e145415145427_ (gx#syntax-e _e145412145419_))) + (let ((_hd145416145430_ (##car _e145415145427_)) + (_tl145417145432_ (##cdr _e145415145427_))) + (let ((_body145435_ _tl145417145432_)) + (if (gx#stx-list? _body145435_) + (_K145411_ _body145435_ '()) + (_E145414145423_))))) + (_E145414145423_))))) + (_E145413145437_))))) (define gx#core-expand-block__0 - (lambda (_stx144417_ _expand-special144418_) - (let* ((_begin-form144420_ '%#begin) - (_expand-e144422_ gx#core-expand-expression)) + (lambda (_stx145578_ _expand-special145579_) + (let* ((_begin-form145581_ '%#begin) + (_expand-e145583_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx144417_ - _expand-special144418_ - _begin-form144420_ - _expand-e144422_)))) + _stx145578_ + _expand-special145579_ + _begin-form145581_ + _expand-e145583_)))) (define gx#core-expand-block__1 - (lambda (_stx144424_ _expand-special144425_ _begin-form144426_) - (let ((_expand-e144428_ gx#core-expand-expression)) + (lambda (_stx145585_ _expand-special145586_ _begin-form145587_) + (let ((_expand-e145589_ gx#core-expand-expression)) (gx#core-expand-block__% - _stx144424_ - _expand-special144425_ - _begin-form144426_ - _expand-e144428_)))) + _stx145585_ + _expand-special145586_ + _begin-form145587_ + _expand-e145589_)))) (define gx#core-expand-block - (lambda _g149651_ - (let ((_g149650_ (##length _g149651_))) - (cond ((##fx= _g149650_ 2) - (apply (lambda (_stx144417_ _expand-special144418_) + (lambda _g150812_ + (let ((_g150811_ (##length _g150812_))) + (cond ((##fx= _g150811_ 2) + (apply (lambda (_stx145578_ _expand-special145579_) (gx#core-expand-block__0 - _stx144417_ - _expand-special144418_)) - _g149651_)) - ((##fx= _g149650_ 3) - (apply (lambda (_stx144424_ - _expand-special144425_ - _begin-form144426_) + _stx145578_ + _expand-special145579_)) + _g150812_)) + ((##fx= _g150811_ 3) + (apply (lambda (_stx145585_ + _expand-special145586_ + _begin-form145587_) (gx#core-expand-block__1 - _stx144424_ - _expand-special144425_ - _begin-form144426_)) - _g149651_)) - ((##fx= _g149650_ 4) - (apply (lambda (_stx144430_ - _expand-special144431_ - _begin-form144432_ - _expand-e144433_) + _stx145585_ + _expand-special145586_ + _begin-form145587_)) + _g150812_)) + ((##fx= _g150811_ 4) + (apply (lambda (_stx145591_ + _expand-special145592_ + _begin-form145593_ + _expand-e145594_) (gx#core-expand-block__% - _stx144430_ - _expand-special144431_ - _begin-form144432_ - _expand-e144433_)) - _g149651_)) + _stx145591_ + _expand-special145592_ + _begin-form145593_ + _expand-e145594_)) + _g150812_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g149651_)))))) + _g150812_)))))) (define gx#core-expand-block* - (lambda (_stx144189_ _expand-special144190_) - (let* ((_g144191144202_ + (lambda (_stx145350_ _expand-special145351_) + (let* ((_g145352145363_ (gx#core-expand-block__1 - _stx144189_ - _expand-special144190_ + _stx145350_ + _expand-special145351_ '#f)) - (_E144195144206_ - (lambda () (error '"No clause matching" _g144191144202_)))) - (let ((_K144200144237_ + (_E145356145367_ + (lambda () (error '"No clause matching" _g145352145363_)))) + (let ((_K145361145398_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _stx144189_))) - (_K144197144223_ (lambda (_expr144221_) _expr144221_)) - (_K144196144212_ - (lambda (_body144210_) + _stx145350_))) + (_K145358145384_ (lambda (_expr145382_) _expr145382_)) + (_K145357145373_ + (lambda (_body145371_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _body144210_)) - (gx#stx-source _stx144189_))))) - (let ((_try-match144193144233_ + (gx#core-cons '%#begin (reverse _body145371_)) + (gx#stx-source _stx145350_))))) + (let ((_try-match145354145394_ (lambda () - (if (##pair? _g144191144202_) - (let ((_tl144199144228_ (##cdr _g144191144202_)) - (_hd144198144226_ (##car _g144191144202_))) - (if (##null? _tl144199144228_) - (let ((_expr144231_ _hd144198144226_)) - (_K144197144223_ _expr144231_)) - (let ((_body144215_ _g144191144202_)) - (_K144196144212_ _body144215_)))) - (let ((_body144215_ _g144191144202_)) - (_K144196144212_ _body144215_)))))) - (if (##null? _g144191144202_) - (_K144200144237_) - (_try-match144193144233_))))))) + (if (##pair? _g145352145363_) + (let ((_tl145360145389_ (##cdr _g145352145363_)) + (_hd145359145387_ (##car _g145352145363_))) + (if (##null? _tl145360145389_) + (let ((_expr145392_ _hd145359145387_)) + (_K145358145384_ _expr145392_)) + (let ((_body145376_ _g145352145363_)) + (_K145357145373_ _body145376_)))) + (let ((_body145376_ _g145352145363_)) + (_K145357145373_ _body145376_)))))) + (if (##null? _g145352145363_) + (_K145361145398_) + (_try-match145354145394_))))))) (define gx#core-expand-cond-expand% - (lambda (_stx144017_) - (letrec ((_satisfied?144019_ - (lambda (_condition144117_) - (let* ((_e144118144133_ _condition144117_) - (_E144128144137_ + (lambda (_stx145178_) + (letrec ((_satisfied?145180_ + (lambda (_condition145278_) + (let* ((_e145279145294_ _condition145278_) + (_E145289145298_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e144118144133_))) - (_E144121144156_ + _e145279145294_))) + (_E145282145317_ (lambda () - (if (gx#stx-pair? _e144118144133_) - (let ((_e144129144141_ - (gx#syntax-e _e144118144133_))) - (let ((_hd144130144144_ - (##car _e144129144141_)) - (_tl144131144146_ - (##cdr _e144129144141_))) - (let* ((_combinator144149_ - _hd144130144144_) - (_body144151_ _tl144131144146_)) - (if (gx#stx-list? _body144151_) - (let ((_$e144153_ + (if (gx#stx-pair? _e145279145294_) + (let ((_e145290145302_ + (gx#syntax-e _e145279145294_))) + (let ((_hd145291145305_ + (##car _e145290145302_)) + (_tl145292145307_ + (##cdr _e145290145302_))) + (let* ((_combinator145310_ + _hd145291145305_) + (_body145312_ _tl145292145307_)) + (if (gx#stx-list? _body145312_) + (let ((_$e145314_ (gx#stx-e - _combinator144149_))) - (if (eq? 'not _$e144153_) + _combinator145310_))) + (if (eq? 'not _$e145314_) (not (gx#stx-ormap - _satisfied?144019_ - _body144151_)) - (if (eq? 'and _$e144153_) + _satisfied?145180_ + _body145312_)) + (if (eq? 'and _$e145314_) (gx#stx-andmap - _satisfied?144019_ - _body144151_) - (if (eq? 'or _$e144153_) + _satisfied?145180_ + _body145312_) + (if (eq? 'or _$e145314_) (gx#stx-ormap - _satisfied?144019_ - _body144151_) + _satisfied?145180_ + _body145312_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e144153_) - (gx#stx-andmap gx#core-resolve-identifier _body144151_) + _$e145314_) + (gx#stx-andmap gx#core-resolve-identifier _body145312_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _stx144017_ - _combinator144149_)))))) + _stx145178_ + _combinator145310_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E144128144137_))))) - (_E144128144137_)))) - (_E144120144179_ + (_E145289145298_))))) + (_E145289145298_)))) + (_E145281145340_ (lambda () - (if (gx#stx-pair? _e144118144133_) - (let ((_e144122144160_ - (gx#syntax-e _e144118144133_))) - (let ((_hd144123144163_ - (##car _e144122144160_)) - (_tl144124144165_ - (##cdr _e144122144160_))) + (if (gx#stx-pair? _e145279145294_) + (let ((_e145283145321_ + (gx#syntax-e _e145279145294_))) + (let ((_hd145284145324_ + (##car _e145283145321_)) + (_tl145285145326_ + (##cdr _e145283145321_))) (if (and (gx#identifier? - _hd144123144163_) + _hd145284145324_) (gx#core-identifier=? - _hd144123144163_ + _hd145284145324_ 'unquote)) - (if (gx#stx-pair? _tl144124144165_) - (let ((_e144125144168_ + (if (gx#stx-pair? _tl145285145326_) + (let ((_e145286145329_ (gx#syntax-e - _tl144124144165_))) - (let ((_hd144126144171_ - (##car _e144125144168_)) - (_tl144127144173_ - (##cdr _e144125144168_))) - (let ((_expr144176_ - _hd144126144171_)) + _tl145285145326_))) + (let ((_hd145287145332_ + (##car _e145286145329_)) + (_tl145288145334_ + (##cdr _e145286145329_))) + (let ((_expr145337_ + _hd145287145332_)) (if (gx#stx-null? - _tl144127144173_) + _tl145288145334_) (if '#t (call-with-parameters (lambda () (gx#eval-syntax__0 - _expr144176_)) + _expr145337_)) gx#current-expander-phi (fx+ (gx#current-expander-phi) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1)) - (_E144121144156_)) - (_E144121144156_))))) + (_E145282145317_)) + (_E145282145317_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E144121144156_)) - (_E144121144156_)))) - (_E144121144156_)))) - (_E144119144185_ + (_E145282145317_)) + (_E145282145317_)))) + (_E145282145317_)))) + (_E145280145346_ (lambda () - (let ((_id144183_ _e144118144133_)) - (if (gx#identifier? _id144183_) + (let ((_id145344_ _e145279145294_)) + (if (gx#identifier? _id145344_) (gx#core-bound-identifier?__% - _id144183_ + _id145344_ gx#feature-binding?) - (_E144120144179_)))))) - (_E144119144185_)))) - (_loop144020_ - (lambda (_rest144050_) - (let* ((_e144051144059_ _rest144050_) - (_E144057144063_ + (_E145281145340_)))))) + (_E145280145346_)))) + (_loop145181_ + (lambda (_rest145211_) + (let* ((_e145212145220_ _rest145211_) + (_E145218145224_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e144051144059_))) - (_E144053144067_ + _e145212145220_))) + (_E145214145228_ (lambda () - (if (gx#stx-null? _e144051144059_) - (if '#t '() (_E144057144063_)) - (_E144057144063_)))) - (_E144052144113_ + (if (gx#stx-null? _e145212145220_) + (if '#t '() (_E145218145224_)) + (_E145218145224_)))) + (_E145213145274_ (lambda () - (if (gx#stx-pair? _e144051144059_) - (let ((_e144054144071_ - (gx#syntax-e _e144051144059_))) - (let ((_hd144055144074_ - (##car _e144054144071_)) - (_tl144056144076_ - (##cdr _e144054144071_))) - (let* ((_hd144079_ _hd144055144074_) - (_rest144081_ _tl144056144076_)) + (if (gx#stx-pair? _e145212145220_) + (let ((_e145215145232_ + (gx#syntax-e _e145212145220_))) + (let ((_hd145216145235_ + (##car _e145215145232_)) + (_tl145217145237_ + (##cdr _e145215145232_))) + (let* ((_hd145240_ _hd145216145235_) + (_rest145242_ _tl145217145237_)) (if '#t - (let* ((_e144082144089_ _hd144079_) - (_E144084144093_ + (let* ((_e145243145250_ _hd145240_) + (_E145245145254_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e144082144089_))) - (_E144083144109_ + _e145243145250_))) + (_E145244145270_ (lambda () (if (gx#stx-pair? - _e144082144089_) - (let ((_e144085144097_ + _e145243145250_) + (let ((_e145246145258_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e144082144089_))) - (let ((_hd144086144100_ (##car _e144085144097_)) - (_tl144087144102_ (##cdr _e144085144097_))) - (let* ((_condition144105_ _hd144086144100_) - (_body144107_ _tl144087144102_)) + (gx#syntax-e _e145243145250_))) + (let ((_hd145247145261_ (##car _e145246145258_)) + (_tl145248145263_ (##cdr _e145246145258_))) + (let* ((_condition145266_ _hd145247145261_) + (_body145268_ _tl145248145263_)) (if '#t - (if (gx#stx-eq? _condition144105_ 'else) - (if (gx#stx-null? _rest144081_) - _body144107_ + (if (gx#stx-eq? _condition145266_ 'else) + (if (gx#stx-null? _rest145242_) + _body145268_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _stx144017_ - _hd144079_)) - (if (_satisfied?144019_ _condition144105_) - _body144107_ - (_loop144020_ _rest144081_))) - (_E144084144093_))))) - (_E144084144093_))))) + _stx145178_ + _hd145240_)) + (if (_satisfied?145180_ _condition145266_) + _body145268_ + (_loop145181_ _rest145242_))) + (_E145245145254_))))) + (_E145245145254_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E144083144109_)) - (_E144053144067_))))) - (_E144053144067_))))) - (_E144052144113_))))) - (let* ((_e144021144028_ _stx144017_) - (_E144023144032_ + (_E145244145270_)) + (_E145214145228_))))) + (_E145214145228_))))) + (_E145213145274_))))) + (let* ((_e145182145189_ _stx145178_) + (_E145184145193_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e144021144028_))) - (_E144022144046_ + _e145182145189_))) + (_E145183145207_ (lambda () - (if (gx#stx-pair? _e144021144028_) - (let ((_e144024144036_ (gx#syntax-e _e144021144028_))) - (let ((_hd144025144039_ (##car _e144024144036_)) - (_tl144026144041_ (##cdr _e144024144036_))) - (let ((_clauses144044_ _tl144026144041_)) - (if (gx#stx-list? _clauses144044_) + (if (gx#stx-pair? _e145182145189_) + (let ((_e145185145197_ (gx#syntax-e _e145182145189_))) + (let ((_hd145186145200_ (##car _e145185145197_)) + (_tl145187145202_ (##cdr _e145185145197_))) + (let ((_clauses145205_ _tl145187145202_)) + (if (gx#stx-list? _clauses145205_) (gx#core-cons 'begin - (_loop144020_ _clauses144044_)) - (_E144023144032_))))) - (_E144023144032_))))) - (_E144022144046_))))) + (_loop145181_ _clauses145205_)) + (_E145184145193_))))) + (_E145184145193_))))) + (_E145183145207_))))) (define gx#core-expand-include%__% - (lambda (_stx143960_ _rpath143961_) - (let* ((_e143962143972_ _stx143960_) - (_E143964143976_ + (lambda (_stx145121_ _rpath145122_) + (let* ((_e145123145133_ _stx145121_) + (_E145125145137_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e143962143972_))) - (_E143963144003_ + _e145123145133_))) + (_E145124145164_ (lambda () - (if (gx#stx-pair? _e143962143972_) - (let ((_e143965143980_ (gx#syntax-e _e143962143972_))) - (let ((_hd143966143983_ (##car _e143965143980_)) - (_tl143967143985_ (##cdr _e143965143980_))) - (if (gx#stx-pair? _tl143967143985_) - (let ((_e143968143988_ - (gx#syntax-e _tl143967143985_))) - (let ((_hd143969143991_ - (##car _e143968143988_)) - (_tl143970143993_ - (##cdr _e143968143988_))) - (let ((_path143996_ _hd143969143991_)) - (if (gx#stx-null? _tl143970143993_) - (if (gx#stx-string? _path143996_) - (let ((_rpath144001_ - (let ((_$e143998_ - _rpath143961_)) - (if _$e143998_ - _$e143998_ + (if (gx#stx-pair? _e145123145133_) + (let ((_e145126145141_ (gx#syntax-e _e145123145133_))) + (let ((_hd145127145144_ (##car _e145126145141_)) + (_tl145128145146_ (##cdr _e145126145141_))) + (if (gx#stx-pair? _tl145128145146_) + (let ((_e145129145149_ + (gx#syntax-e _tl145128145146_))) + (let ((_hd145130145152_ + (##car _e145129145149_)) + (_tl145131145154_ + (##cdr _e145129145149_))) + (let ((_path145157_ _hd145130145152_)) + (if (gx#stx-null? _tl145131145154_) + (if (gx#stx-string? _path145157_) + (let ((_rpath145162_ + (let ((_$e145159_ + _rpath145122_)) + (if _$e145159_ + _$e145159_ (gx#core-resolve-path__% - _path143996_ + _path145157_ (gx#stx-source - _stx143960_)))))) - (if (member _rpath144001_ + _stx145121_)))))) + (if (member _rpath145162_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _stx143960_) + _stx145121_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _rpath144001_)) + _rpath145162_)) (gx#stx-source - _stx143960_))))) - (_E143964143976_)) - (_E143964143976_))))) - (_E143964143976_)))) - (_E143964143976_))))) - (_E143963144003_)))) + _stx145121_))))) + (_E145125145137_)) + (_E145125145137_))))) + (_E145125145137_)))) + (_E145125145137_))))) + (_E145124145164_)))) (define gx#core-expand-include%__0 - (lambda (_stx144010_) - (let ((_rpath144012_ '#f)) - (gx#core-expand-include%__% _stx144010_ _rpath144012_)))) + (lambda (_stx145171_) + (let ((_rpath145173_ '#f)) + (gx#core-expand-include%__% _stx145171_ _rpath145173_)))) (define gx#core-expand-include% - (lambda _g149653_ - (let ((_g149652_ (##length _g149653_))) - (cond ((##fx= _g149652_ 1) - (apply (lambda (_stx144010_) - (gx#core-expand-include%__0 _stx144010_)) - _g149653_)) - ((##fx= _g149652_ 2) - (apply (lambda (_stx144014_ _rpath144015_) + (lambda _g150814_ + (let ((_g150813_ (##length _g150814_))) + (cond ((##fx= _g150813_ 1) + (apply (lambda (_stx145171_) + (gx#core-expand-include%__0 _stx145171_)) + _g150814_)) + ((##fx= _g150813_ 2) + (apply (lambda (_stx145175_ _rpath145176_) (gx#core-expand-include%__% - _stx144014_ - _rpath144015_)) - _g149653_)) + _stx145175_ + _rpath145176_)) + _g150814_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g149653_)))))) + _g150814_)))))) (define gx#core-apply-expander__% - (lambda (_K143929_ _stx143930_ _method143931_) - (if (procedure? _K143929_) - (let ((_$e143933_ (gx#stx-source _stx143930_))) - (if _$e143933_ - ((lambda (_g143935143937_) + (lambda (_K145090_ _stx145091_ _method145092_) + (if (procedure? _K145090_) + (let ((_$e145094_ (gx#stx-source _stx145091_))) + (if _$e145094_ + ((lambda (_g145096145098_) (gx#stx-wrap-source - (_K143929_ _stx143930_) - _g143935143937_)) - _$e143933_) - (_K143929_ _stx143930_))) - (let ((_$e143940_ (bound-method-ref _K143929_ _method143931_))) - (if _$e143940_ - ((lambda (_g143942143944_) + (_K145090_ _stx145091_) + _g145096145098_)) + _$e145094_) + (_K145090_ _stx145091_))) + (let ((_$e145101_ (bound-method-ref _K145090_ _method145092_))) + (if _$e145101_ + ((lambda (_g145103145105_) (gx#core-apply-expander__% - _g143942143944_ - _stx143930_ - _method143931_)) - _$e143940_) + _g145103145105_ + _stx145091_ + _method145092_)) + _$e145101_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _stx143930_ - _method143931_)))))) + _stx145091_ + _method145092_)))))) (define gx#core-apply-expander__0 - (lambda (_K143950_ _stx143951_) - (let ((_method143953_ 'apply-macro-expander)) - (gx#core-apply-expander__% _K143950_ _stx143951_ _method143953_)))) + (lambda (_K145111_ _stx145112_) + (let ((_method145114_ 'apply-macro-expander)) + (gx#core-apply-expander__% _K145111_ _stx145112_ _method145114_)))) (define gx#core-apply-expander - (lambda _g149655_ - (let ((_g149654_ (##length _g149655_))) - (cond ((##fx= _g149654_ 2) - (apply (lambda (_K143950_ _stx143951_) - (gx#core-apply-expander__0 _K143950_ _stx143951_)) - _g149655_)) - ((##fx= _g149654_ 3) - (apply (lambda (_K143955_ _stx143956_ _method143957_) + (lambda _g150816_ + (let ((_g150815_ (##length _g150816_))) + (cond ((##fx= _g150815_ 2) + (apply (lambda (_K145111_ _stx145112_) + (gx#core-apply-expander__0 _K145111_ _stx145112_)) + _g150816_)) + ((##fx= _g150815_ 3) + (apply (lambda (_K145116_ _stx145117_ _method145118_) (gx#core-apply-expander__% - _K143955_ - _stx143956_ - _method143957_)) - _g149655_)) + _K145116_ + _stx145117_ + _method145118_)) + _g150816_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g149655_)))))) + _g150816_)))))) (define gx#expander::apply-macro-expander - (lambda (_self143925_ _stx143926_) + (lambda (_self145086_ _stx145087_) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _stx143926_))) + _stx145087_))) (bind-method! gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_self143778_ _stx143779_) - (let* ((_self143780143786_ _self143778_) - (_E143782143790_ - (lambda () (error '"No clause matching" _self143780143786_))) - (_K143783143795_ - (lambda (_K143793_) - (gx#core-apply-expander__0 _K143793_ _stx143779_)))) - (if (##structure-instance-of? _self143780143786_ 'gx#core-macro::t) - (let* ((_e143784143798_ + (lambda (_self144939_ _stx144940_) + (let* ((_self144941144947_ _self144939_) + (_E144943144951_ + (lambda () (error '"No clause matching" _self144941144947_))) + (_K144944144956_ + (lambda (_K144954_) + (gx#core-apply-expander__0 _K144954_ _stx144940_)))) + (if (##structure-instance-of? _self144941144947_ 'gx#core-macro::t) + (let* ((_e144945144959_ (##unchecked-structure-ref - _self143780143786_ + _self144941144947_ '1 gx#expander::t '#f)) - (_K143801_ _e143784143798_)) - (_K143783143795_ _K143801_)) - (_E143782143790_))))) + (_K144962_ _e144945144959_)) + (_K144944144956_ _K144962_)) + (_E144943144951_))))) (bind-method! gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_self143631_ _stx143632_) - (if (gx#sealed-syntax? _stx143632_) - _stx143632_ - (let* ((_self143633143639_ _self143631_) - (_E143635143643_ + (lambda (_self144792_ _stx144793_) + (if (gx#sealed-syntax? _stx144793_) + _stx144793_ + (let* ((_self144794144800_ _self144792_) + (_E144796144804_ (lambda () - (error '"No clause matching" _self143633143639_))) - (_K143636143648_ - (lambda (_K143646_) - (gx#core-apply-expander__0 _K143646_ _stx143632_)))) + (error '"No clause matching" _self144794144800_))) + (_K144797144809_ + (lambda (_K144807_) + (gx#core-apply-expander__0 _K144807_ _stx144793_)))) (if (##structure-instance-of? - _self143633143639_ + _self144794144800_ 'gx#core-expander::t) - (let* ((_e143637143651_ + (let* ((_e144798144812_ (##unchecked-structure-ref - _self143633143639_ + _self144794144800_ '1 gx#expander::t '#f)) - (_K143654_ _e143637143651_)) - (_K143636143648_ _K143654_)) - (_E143635143643_)))))) + (_K144815_ _e144798144812_)) + (_K144797144809_ _K144815_)) + (_E144796144804_)))))) (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 (_self143493_ _stx143494_ _top?143495_) - (if (_top?143495_ (gx#current-expander-context)) - (gx#core-expander::apply-macro-expander _self143493_ _stx143494_) + (lambda (_self144654_ _stx144655_ _top?144656_) + (if (_top?144656_ (gx#current-expander-context)) + (gx#core-expander::apply-macro-expander _self144654_ _stx144655_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _stx143494_)))) + _stx144655_)))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_self143500_ _stx143501_) - (let ((_top?143503_ gx#top-context?)) + (lambda (_self144661_ _stx144662_) + (let ((_top?144664_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _self143500_ - _stx143501_ - _top?143503_)))) + _self144661_ + _stx144662_ + _top?144664_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g149657_ - (let ((_g149656_ (##length _g149657_))) - (cond ((##fx= _g149656_ 2) - (apply (lambda (_self143500_ _stx143501_) + (lambda _g150818_ + (let ((_g150817_ (##length _g150818_))) + (cond ((##fx= _g150817_ 2) + (apply (lambda (_self144661_ _stx144662_) (gx#top-special-form::apply-macro-expander__0 - _self143500_ - _stx143501_)) - _g149657_)) - ((##fx= _g149656_ 3) - (apply (lambda (_self143505_ _stx143506_ _top?143507_) + _self144661_ + _stx144662_)) + _g150818_)) + ((##fx= _g150817_ 3) + (apply (lambda (_self144666_ _stx144667_ _top?144668_) (gx#top-special-form::apply-macro-expander__% - _self143505_ - _stx143506_ - _top?143507_)) - _g149657_)) + _self144666_ + _stx144667_ + _top?144668_)) + _g150818_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g149657_)))))) + _g150818_)))))) (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 (_self143367_ _stx143368_) + (lambda (_self144528_ _stx144529_) (gx#top-special-form::apply-macro-expander__% - _self143367_ - _stx143368_ + _self144528_ + _stx144529_ gx#module-context?))) (bind-method! gx#module-special-form::t @@ -2291,138 +2291,138 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_self143192_ _stx143193_) - (let* ((_self143194143200_ _self143192_) - (_E143196143204_ - (lambda () (error '"No clause matching" _self143194143200_))) - (_K143197143237_ - (lambda (_id143207_) - (let* ((_e143208143215_ _stx143193_) - (_E143210143219_ + (lambda (_self144353_ _stx144354_) + (let* ((_self144355144361_ _self144353_) + (_E144357144365_ + (lambda () (error '"No clause matching" _self144355144361_))) + (_K144358144398_ + (lambda (_id144368_) + (let* ((_e144369144376_ _stx144354_) + (_E144371144380_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e143208143215_))) - (_E143209143233_ + _e144369144376_))) + (_E144370144394_ (lambda () - (if (gx#stx-pair? _e143208143215_) - (let ((_e143211143223_ - (gx#syntax-e _e143208143215_))) - (let ((_hd143212143226_ - (##car _e143211143223_)) - (_tl143213143228_ - (##cdr _e143211143223_))) - (let ((_body143231_ _tl143213143228_)) + (if (gx#stx-pair? _e144369144376_) + (let ((_e144372144384_ + (gx#syntax-e _e144369144376_))) + (let ((_hd144373144387_ + (##car _e144372144384_)) + (_tl144374144389_ + (##cdr _e144372144384_))) + (let ((_body144392_ _tl144374144389_)) (if '#t (gx#core-cons - _id143207_ - _body143231_) - (_E143210143219_))))) - (_E143210143219_))))) - (_E143209143233_))))) + _id144368_ + _body144392_) + (_E144371144380_))))) + (_E144371144380_))))) + (_E144370144394_))))) (if (##structure-instance-of? - _self143194143200_ + _self144355144361_ 'gx#rename-macro-expander::t) - (let* ((_e143198143240_ + (let* ((_e144359144401_ (##unchecked-structure-ref - _self143194143200_ + _self144355144361_ '1 gx#expander::t '#f)) - (_id143243_ _e143198143240_)) - (_K143197143237_ _id143243_)) - (_E143196143204_))))) + (_id144404_ _e144359144401_)) + (_K144358144398_ _id144404_)) + (_E144357144365_))))) (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 (_self143018_ _stx143019_ _method143020_) - (let* ((_self143021143029_ _self143018_) - (_E143023143033_ - (lambda () (error '"No clause matching" _self143021143029_))) - (_K143024143040_ - (lambda (_phi143036_ _ctx143037_ _K143038_) + (lambda (_self144179_ _stx144180_ _method144181_) + (let* ((_self144182144190_ _self144179_) + (_E144184144194_ + (lambda () (error '"No clause matching" _self144182144190_))) + (_K144185144201_ + (lambda (_phi144197_ _ctx144198_ _K144199_) (gx#core-apply-user-macro - _K143038_ - _stx143019_ - _ctx143037_ - _phi143036_ - _method143020_)))) + _K144199_ + _stx144180_ + _ctx144198_ + _phi144197_ + _method144181_)))) (if (##structure-instance-of? - _self143021143029_ + _self144182144190_ 'gx#macro-expander::t) - (let* ((_e143025143043_ + (let* ((_e144186144204_ (##unchecked-structure-ref - _self143021143029_ + _self144182144190_ '1 gx#expander::t '#f)) - (_K143046_ _e143025143043_) - (_e143026143048_ + (_K144207_ _e144186144204_) + (_e144187144209_ (##unchecked-structure-ref - _self143021143029_ + _self144182144190_ '2 gx#user-expander::t '#f)) - (_ctx143051_ _e143026143048_) - (_e143027143053_ + (_ctx144212_ _e144187144209_) + (_e144188144214_ (##unchecked-structure-ref - _self143021143029_ + _self144182144190_ '3 gx#user-expander::t '#f)) - (_phi143056_ _e143027143053_)) - (_K143024143040_ _phi143056_ _ctx143051_ _K143046_)) - (_E143023143033_))))) + (_phi144217_ _e144188144214_)) + (_K144185144201_ _phi144217_ _ctx144212_ _K144207_)) + (_E144184144194_))))) (define gx#core-apply-user-expander__0 - (lambda (_self143061_ _stx143062_) - (let ((_method143064_ 'apply-macro-expander)) + (lambda (_self144222_ _stx144223_) + (let ((_method144225_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _self143061_ - _stx143062_ - _method143064_)))) + _self144222_ + _stx144223_ + _method144225_)))) (define gx#core-apply-user-expander - (lambda _g149659_ - (let ((_g149658_ (##length _g149659_))) - (cond ((##fx= _g149658_ 2) - (apply (lambda (_self143061_ _stx143062_) + (lambda _g150820_ + (let ((_g150819_ (##length _g150820_))) + (cond ((##fx= _g150819_ 2) + (apply (lambda (_self144222_ _stx144223_) (gx#core-apply-user-expander__0 - _self143061_ - _stx143062_)) - _g149659_)) - ((##fx= _g149658_ 3) - (apply (lambda (_self143066_ _stx143067_ _method143068_) + _self144222_ + _stx144223_)) + _g150820_)) + ((##fx= _g150819_ 3) + (apply (lambda (_self144227_ _stx144228_ _method144229_) (gx#core-apply-user-expander__% - _self143066_ - _stx143067_ - _method143068_)) - _g149659_)) + _self144227_ + _stx144228_ + _method144229_)) + _g150820_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g149659_)))))) + _g150820_)))))) (define gx#core-apply-user-macro - (lambda (_K143008_ _stx143009_ _ctx143010_ _phi143011_ _method143012_) - (let ((_mark143014_ + (lambda (_K144169_ _stx144170_ _ctx144171_ _phi144172_ _method144173_) + (let ((_mark144175_ (##structure gx#expander-mark::t '#f - _ctx143010_ - _phi143011_ - _stx143009_))) + _ctx144171_ + _phi144172_ + _stx144170_))) (call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _K143008_ - (gx#stx-apply-mark _stx143009_ _mark143014_) - _method143012_) - _mark143014_)) + _K144169_ + (gx#stx-apply-mark _stx144170_ _mark144175_) + _method144173_) + _mark144175_)) gx#current-expander-marks - (cons _mark143014_ (gx#current-expander-marks)))))) + (cons _mark144175_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (bind-method! gx#user-expander::t @@ -2430,433 +2430,433 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_stx142860_ _phi142861_ _ctx142862_) - (let _lp142864_ ((_bind142866_ + (lambda (_stx144021_ _phi144022_ _ctx144023_) + (let _lp144025_ ((_bind144027_ (gx#core-resolve-identifier__% - _stx142860_ - _phi142861_ - _ctx142862_))) + _stx144021_ + _phi144022_ + _ctx144023_))) (if (##structure-direct-instance-of? - _bind142866_ + _bind144027_ 'gx#import-binding::t) - (_lp142864_ + (_lp144025_ (##unchecked-structure-ref - _bind142866_ + _bind144027_ '4 gx#import-binding::t '#f)) (if (##structure-direct-instance-of? - _bind142866_ + _bind144027_ 'gx#alias-binding::t) - (_lp142864_ + (_lp144025_ (gx#core-resolve-identifier__% (##unchecked-structure-ref - _bind142866_ + _bind144027_ '4 gx#alias-binding::t '#f) - _phi142861_ - _ctx142862_)) - _bind142866_))))) + _phi144022_ + _ctx144023_)) + _bind144027_))))) (define gx#resolve-identifier__0 - (lambda (_stx142871_) - (let* ((_phi142873_ (gx#current-expander-phi)) - (_ctx142875_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx142871_ _phi142873_ _ctx142875_)))) + (lambda (_stx144032_) + (let* ((_phi144034_ (gx#current-expander-phi)) + (_ctx144036_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx144032_ _phi144034_ _ctx144036_)))) (define gx#resolve-identifier__1 - (lambda (_stx142877_ _phi142878_) - (let ((_ctx142880_ (gx#current-expander-context))) - (gx#resolve-identifier__% _stx142877_ _phi142878_ _ctx142880_)))) + (lambda (_stx144038_ _phi144039_) + (let ((_ctx144041_ (gx#current-expander-context))) + (gx#resolve-identifier__% _stx144038_ _phi144039_ _ctx144041_)))) (define gx#resolve-identifier - (lambda _g149661_ - (let ((_g149660_ (##length _g149661_))) - (cond ((##fx= _g149660_ 1) - (apply (lambda (_stx142871_) - (gx#resolve-identifier__0 _stx142871_)) - _g149661_)) - ((##fx= _g149660_ 2) - (apply (lambda (_stx142877_ _phi142878_) - (gx#resolve-identifier__1 _stx142877_ _phi142878_)) - _g149661_)) - ((##fx= _g149660_ 3) - (apply (lambda (_stx142882_ _phi142883_ _ctx142884_) + (lambda _g150822_ + (let ((_g150821_ (##length _g150822_))) + (cond ((##fx= _g150821_ 1) + (apply (lambda (_stx144032_) + (gx#resolve-identifier__0 _stx144032_)) + _g150822_)) + ((##fx= _g150821_ 2) + (apply (lambda (_stx144038_ _phi144039_) + (gx#resolve-identifier__1 _stx144038_ _phi144039_)) + _g150822_)) + ((##fx= _g150821_ 3) + (apply (lambda (_stx144043_ _phi144044_ _ctx144045_) (gx#resolve-identifier__% - _stx142882_ - _phi142883_ - _ctx142884_)) - _g149661_)) + _stx144043_ + _phi144044_ + _ctx144045_)) + _g150822_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g149661_)))))) + _g150822_)))))) (define gx#bind-identifier!__% - (lambda (_stx142818_ _val142819_ _rebind?142820_ _phi142821_ _ctx142822_) - (let ((_rebind?142824_ - (if (not _rebind?142820_) + (lambda (_stx143979_ _val143980_ _rebind?143981_ _phi143982_ _ctx143983_) + (let ((_rebind?143985_ + (if (not _rebind?143981_) gx#core-context-rebind? - (if (procedure? _rebind?142820_) _rebind?142820_ true)))) + (if (procedure? _rebind?143981_) _rebind?143981_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _stx142818_) - _val142819_ - _rebind?142824_ - _phi142821_ - _ctx142822_)))) + (gx#core-identifier-key _stx143979_) + _val143980_ + _rebind?143985_ + _phi143982_ + _ctx143983_)))) (define gx#bind-identifier!__0 - (lambda (_stx142829_ _val142830_) - (let* ((_rebind?142832_ '#f) - (_phi142834_ (gx#current-expander-phi)) - (_ctx142836_ (gx#current-expander-context))) + (lambda (_stx143990_ _val143991_) + (let* ((_rebind?143993_ '#f) + (_phi143995_ (gx#current-expander-phi)) + (_ctx143997_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx142829_ - _val142830_ - _rebind?142832_ - _phi142834_ - _ctx142836_)))) + _stx143990_ + _val143991_ + _rebind?143993_ + _phi143995_ + _ctx143997_)))) (define gx#bind-identifier!__1 - (lambda (_stx142838_ _val142839_ _rebind?142840_) - (let* ((_phi142842_ (gx#current-expander-phi)) - (_ctx142844_ (gx#current-expander-context))) + (lambda (_stx143999_ _val144000_ _rebind?144001_) + (let* ((_phi144003_ (gx#current-expander-phi)) + (_ctx144005_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx142838_ - _val142839_ - _rebind?142840_ - _phi142842_ - _ctx142844_)))) + _stx143999_ + _val144000_ + _rebind?144001_ + _phi144003_ + _ctx144005_)))) (define gx#bind-identifier!__2 - (lambda (_stx142846_ _val142847_ _rebind?142848_ _phi142849_) - (let ((_ctx142851_ (gx#current-expander-context))) + (lambda (_stx144007_ _val144008_ _rebind?144009_ _phi144010_) + (let ((_ctx144012_ (gx#current-expander-context))) (gx#bind-identifier!__% - _stx142846_ - _val142847_ - _rebind?142848_ - _phi142849_ - _ctx142851_)))) + _stx144007_ + _val144008_ + _rebind?144009_ + _phi144010_ + _ctx144012_)))) (define gx#bind-identifier! - (lambda _g149663_ - (let ((_g149662_ (##length _g149663_))) - (cond ((##fx= _g149662_ 2) - (apply (lambda (_stx142829_ _val142830_) - (gx#bind-identifier!__0 _stx142829_ _val142830_)) - _g149663_)) - ((##fx= _g149662_ 3) - (apply (lambda (_stx142838_ _val142839_ _rebind?142840_) + (lambda _g150824_ + (let ((_g150823_ (##length _g150824_))) + (cond ((##fx= _g150823_ 2) + (apply (lambda (_stx143990_ _val143991_) + (gx#bind-identifier!__0 _stx143990_ _val143991_)) + _g150824_)) + ((##fx= _g150823_ 3) + (apply (lambda (_stx143999_ _val144000_ _rebind?144001_) (gx#bind-identifier!__1 - _stx142838_ - _val142839_ - _rebind?142840_)) - _g149663_)) - ((##fx= _g149662_ 4) - (apply (lambda (_stx142846_ - _val142847_ - _rebind?142848_ - _phi142849_) + _stx143999_ + _val144000_ + _rebind?144001_)) + _g150824_)) + ((##fx= _g150823_ 4) + (apply (lambda (_stx144007_ + _val144008_ + _rebind?144009_ + _phi144010_) (gx#bind-identifier!__2 - _stx142846_ - _val142847_ - _rebind?142848_ - _phi142849_)) - _g149663_)) - ((##fx= _g149662_ 5) - (apply (lambda (_stx142853_ - _val142854_ - _rebind?142855_ - _phi142856_ - _ctx142857_) + _stx144007_ + _val144008_ + _rebind?144009_ + _phi144010_)) + _g150824_)) + ((##fx= _g150823_ 5) + (apply (lambda (_stx144014_ + _val144015_ + _rebind?144016_ + _phi144017_ + _ctx144018_) (gx#bind-identifier!__% - _stx142853_ - _val142854_ - _rebind?142855_ - _phi142856_ - _ctx142857_)) - _g149663_)) + _stx144014_ + _val144015_ + _rebind?144016_ + _phi144017_ + _ctx144018_)) + _g150824_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g149663_)))))) + _g150824_)))))) (define gx#core-resolve-identifier__% - (lambda (_stx142790_ _phi142791_ _ctx142792_) - (let _lp142794_ ((_e142796_ _stx142790_) - (_marks142797_ (gx#current-expander-marks))) - (if (symbol? _e142796_) + (lambda (_stx143951_ _phi143952_ _ctx143953_) + (let _lp143955_ ((_e143957_ _stx143951_) + (_marks143958_ (gx#current-expander-marks))) + (if (symbol? _e143957_) (gx#core-resolve-binding - _e142796_ - _phi142791_ - _phi142791_ - _ctx142792_ - (reverse _marks142797_)) - (if (gx#identifier-quote? _e142796_) + _e143957_ + _phi143952_ + _phi143952_ + _ctx143953_ + (reverse _marks143958_)) + (if (gx#identifier-quote? _e143957_) (gx#core-resolve-binding - (##unchecked-structure-ref _e142796_ '1 gx#AST::t '#f) - _phi142791_ + (##unchecked-structure-ref _e143957_ '1 gx#AST::t '#f) + _phi143952_ '0 (##unchecked-structure-ref - _e142796_ + _e143957_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _e142796_ + _e143957_ '4 gx#syntax-quote::t '#f)) (if (##structure-direct-instance-of? - _e142796_ + _e143957_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _e142796_ '1 gx#AST::t '#f) - _phi142791_ - _phi142791_ - _ctx142792_ + (##unchecked-structure-ref _e143957_ '1 gx#AST::t '#f) + _phi143952_ + _phi143952_ + _ctx143953_ (foldl1 gx#apply-mark (##unchecked-structure-ref - _e142796_ + _e143957_ '3 gx#identifier-wrap::t '#f) - _marks142797_)) + _marks143958_)) (if (##structure-direct-instance-of? - _e142796_ + _e143957_ 'gx#syntax-wrap::t) - (_lp142794_ + (_lp143955_ (##unchecked-structure-ref - _e142796_ + _e143957_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e142796_ + _e143957_ '3 gx#syntax-wrap::t '#f) - _marks142797_)) + _marks143958_)) (if (##structure-instance-of? - _e142796_ + _e143957_ 'gerbil#AST::t) - (_lp142794_ + (_lp143955_ (##unchecked-structure-ref - _e142796_ + _e143957_ '1 gx#AST::t '#f) - _marks142797_) + _marks143958_) (gx#raise-syntax-error '#f '"Bad identifier" - _stx142790_))))))))) + _stx143951_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_stx142802_) - (let* ((_phi142804_ (gx#current-expander-phi)) - (_ctx142806_ (gx#current-expander-context))) + (lambda (_stx143963_) + (let* ((_phi143965_ (gx#current-expander-phi)) + (_ctx143967_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _stx142802_ - _phi142804_ - _ctx142806_)))) + _stx143963_ + _phi143965_ + _ctx143967_)))) (define gx#core-resolve-identifier__1 - (lambda (_stx142808_ _phi142809_) - (let ((_ctx142811_ (gx#current-expander-context))) + (lambda (_stx143969_ _phi143970_) + (let ((_ctx143972_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _stx142808_ - _phi142809_ - _ctx142811_)))) + _stx143969_ + _phi143970_ + _ctx143972_)))) (define gx#core-resolve-identifier - (lambda _g149665_ - (let ((_g149664_ (##length _g149665_))) - (cond ((##fx= _g149664_ 1) - (apply (lambda (_stx142802_) - (gx#core-resolve-identifier__0 _stx142802_)) - _g149665_)) - ((##fx= _g149664_ 2) - (apply (lambda (_stx142808_ _phi142809_) + (lambda _g150826_ + (let ((_g150825_ (##length _g150826_))) + (cond ((##fx= _g150825_ 1) + (apply (lambda (_stx143963_) + (gx#core-resolve-identifier__0 _stx143963_)) + _g150826_)) + ((##fx= _g150825_ 2) + (apply (lambda (_stx143969_ _phi143970_) (gx#core-resolve-identifier__1 - _stx142808_ - _phi142809_)) - _g149665_)) - ((##fx= _g149664_ 3) - (apply (lambda (_stx142813_ _phi142814_ _ctx142815_) + _stx143969_ + _phi143970_)) + _g150826_)) + ((##fx= _g150825_ 3) + (apply (lambda (_stx143974_ _phi143975_ _ctx143976_) (gx#core-resolve-identifier__% - _stx142813_ - _phi142814_ - _ctx142815_)) - _g149665_)) + _stx143974_ + _phi143975_ + _ctx143976_)) + _g150826_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g149665_)))))) + _g150826_)))))) (define gx#core-resolve-binding - (lambda (_id142703_ - _phi142704_ - _src-phi142705_ - _ctx142706_ - _marks142707_) - (letrec ((_resolve142709_ - (lambda (_ctx142777_ _src-phi142778_ _key142779_) - (let _lp142781_ ((_ctx142783_ + (lambda (_id143864_ + _phi143865_ + _src-phi143866_ + _ctx143867_ + _marks143868_) + (letrec ((_resolve143870_ + (lambda (_ctx143938_ _src-phi143939_ _key143940_) + (let _lp143942_ ((_ctx143944_ (gx#core-context-shift - _ctx142777_ - _phi142704_)) - (_dphi142784_ - (fx- _phi142704_ _src-phi142778_))) - (let ((_$e142786_ + _ctx143938_ + _phi143865_)) + (_dphi143945_ + (fx- _phi143865_ _src-phi143939_))) + (let ((_$e143947_ (gx#core-context-resolve - _ctx142783_ - _key142779_))) - (if _$e142786_ - (values _$e142786_) - (if (fxzero? _dphi142784_) + _ctx143944_ + _key143940_))) + (if _$e143947_ + (values _$e143947_) + (if (fxzero? _dphi143945_) '#f - (if (fxpositive? _dphi142784_) - (_lp142781_ - (gx#core-context-shift _ctx142783_ '-1) - (fx- _dphi142784_ '1)) - (_lp142781_ - (gx#core-context-shift _ctx142783_ '1) - (fx+ _dphi142784_ '1)))))))))) - (let _lp142711_ ((_ctx142713_ _ctx142706_) - (_src-phi142714_ _src-phi142705_) - (_rest142715_ _marks142707_)) - (let* ((_rest142716142724_ _rest142715_) - (_else142718142732_ + (if (fxpositive? _dphi143945_) + (_lp143942_ + (gx#core-context-shift _ctx143944_ '-1) + (fx- _dphi143945_ '1)) + (_lp143942_ + (gx#core-context-shift _ctx143944_ '1) + (fx+ _dphi143945_ '1)))))))))) + (let _lp143872_ ((_ctx143874_ _ctx143867_) + (_src-phi143875_ _src-phi143866_) + (_rest143876_ _marks143868_)) + (let* ((_rest143877143885_ _rest143876_) + (_else143879143893_ (lambda () - (_resolve142709_ - _ctx142713_ - _src-phi142714_ - _id142703_))) - (_K142720142765_ - (lambda (_rest142735_ _hd142736_) - (let* ((_hd142737142743_ _hd142736_) - (_E142739142747_ + (_resolve143870_ + _ctx143874_ + _src-phi143875_ + _id143864_))) + (_K143881143926_ + (lambda (_rest143896_ _hd143897_) + (let* ((_hd143898143904_ _hd143897_) + (_E143900143908_ (lambda () (error '"No clause matching" - _hd142737142743_))) - (_K142740142757_ - (lambda (_subst142750_) - (let ((_$e142754_ - (let ((_key142752_ - (if _subst142750_ + _hd143898143904_))) + (_K143901143918_ + (lambda (_subst143911_) + (let ((_$e143915_ + (let ((_key143913_ + (if _subst143911_ (table-ref - _subst142750_ - _id142703_ + _subst143911_ + _id143864_ '#f) '#f))) - (if _key142752_ - (_resolve142709_ - _ctx142713_ - _src-phi142714_ - _key142752_) + (if _key143913_ + (_resolve143870_ + _ctx143874_ + _src-phi143875_ + _key143913_) '#f)))) - (if _$e142754_ - _$e142754_ - (_lp142711_ + (if _$e143915_ + _$e143915_ + (_lp143872_ (##unchecked-structure-ref - _hd142736_ + _hd143897_ '2 gx#expander-mark::t '#f) (##unchecked-structure-ref - _hd142736_ + _hd143897_ '3 gx#expander-mark::t '#f) - _rest142735_)))))) + _rest143896_)))))) (if (##structure-instance-of? - _hd142737142743_ + _hd143898143904_ 'gx#expander-mark::t) - (let* ((_e142741142760_ + (let* ((_e143902143921_ (##unchecked-structure-ref - _hd142737142743_ + _hd143898143904_ '1 gx#expander-mark::t '#f)) - (_subst142763_ _e142741142760_)) - (_K142740142757_ _subst142763_)) - (_E142739142747_)))))) - (if (##pair? _rest142716142724_) - (let ((_hd142721142768_ (##car _rest142716142724_)) - (_tl142722142770_ (##cdr _rest142716142724_))) - (let* ((_hd142773_ _hd142721142768_) - (_rest142775_ _tl142722142770_)) - (_K142720142765_ _rest142775_ _hd142773_))) - (_else142718142732_))))))) + (_subst143924_ _e143902143921_)) + (_K143901143918_ _subst143924_)) + (_E143900143908_)))))) + (if (##pair? _rest143877143885_) + (let ((_hd143882143929_ (##car _rest143877143885_)) + (_tl143883143931_ (##cdr _rest143877143885_))) + (let* ((_hd143934_ _hd143882143929_) + (_rest143936_ _tl143883143931_)) + (_K143881143926_ _rest143936_ _hd143934_))) + (_else143879143893_))))))) (define gx#core-bind!__% - (lambda (_key142579_ _val142580_ _rebind?142581_ _phi142582_ _ctx142583_) - (letrec ((_update-binding142585_ - (lambda (_xval142656_) - (if (or (_rebind?142581_ - _ctx142583_ - _xval142656_ - _val142580_) + (lambda (_key143740_ _val143741_ _rebind?143742_ _phi143743_ _ctx143744_) + (letrec ((_update-binding143746_ + (lambda (_xval143817_) + (if (or (_rebind?143742_ + _ctx143744_ + _xval143817_ + _val143741_) (and (##structure-direct-instance-of? - _xval142656_ + _xval143817_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _xval142656_ + _xval143817_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _val142580_ + _val143741_ 'gx#binding::t) (not (##structure-direct-instance-of? - _val142580_ + _val143741_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _xval142656_ + _xval143817_ 'gx#extern-binding::t) (##structure-instance-of? - _val142580_ + _val143741_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _val142580_ + _val143741_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval142656_ + _xval143817_ '1 gx#binding::t '#f)))) - _val142580_ + _val143741_ (if (and (##structure-direct-instance-of? - _val142580_ + _val143741_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _val142580_ + _val143741_ '6 gx#import-binding::t '#f) (and (##structure-instance-of? - _xval142656_ + _xval143817_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _val142580_ + _val143741_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _xval142656_ + _xval143817_ '1 gx#binding::t '#f))))) - _xval142656_ + _xval143817_ (if (and (##structure-direct-instance-of? - _val142580_ + _val143741_ 'gx#import-binding::t) (##structure-instance-of? - _xval142656_ + _xval143817_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _key142579_ + _key143740_ (cons (##unchecked-structure-ref - _val142580_ + _val143741_ '1 gx#binding::t '#f) (cons (##structure-ref (##unchecked-structure-ref - _val142580_ + _val143741_ '5 gx#import-binding::t '#f) @@ -2865,200 +2865,200 @@ '#f) '())) (cons (##unchecked-structure-ref - _xval142656_ + _xval143817_ '1 gx#binding::t '#f) (cons (if (##structure-direct-instance-of? - _xval142656_ + _xval143817_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _xval142656_ + _xval143817_ '5 gx#import-binding::t '#f) '1 gx#expander-context::t '#f) - _xval142656_) + _xval143817_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _key142579_ - _val142580_ - _xval142656_)))))) - (_gensubst142586_ - (lambda (_subst142651_ _id142652_) - (let ((_eid142654_ - (gensym (if (uninterned-symbol? _id142652_) + _key143740_ + _val143741_ + _xval143817_)))))) + (_gensubst143747_ + (lambda (_subst143812_ _id143813_) + (let ((_eid143815_ + (gensym (if (uninterned-symbol? _id143813_) '% - _id142652_)))) - (table-set! _subst142651_ _id142652_ _eid142654_) - _eid142654_))) - (_subst!142587_ - (lambda (_key142589_) - (let* ((_key142590142598_ _key142589_) - (_else142592142606_ (lambda () _key142589_)) - (_K142594142639_ - (lambda (_mark142609_ _id142610_) - (let* ((_mark142611142617_ _mark142609_) - (_E142613142621_ + _id143813_)))) + (table-set! _subst143812_ _id143813_ _eid143815_) + _eid143815_))) + (_subst!143748_ + (lambda (_key143750_) + (let* ((_key143751143759_ _key143750_) + (_else143753143767_ (lambda () _key143750_)) + (_K143755143800_ + (lambda (_mark143770_ _id143771_) + (let* ((_mark143772143778_ _mark143770_) + (_E143774143782_ (lambda () (error '"No clause matching" - _mark142611142617_))) - (_K142614142631_ - (lambda (_subst142624_) - (if (not _subst142624_) - (let ((_subst142626_ + _mark143772143778_))) + (_K143775143792_ + (lambda (_subst143785_) + (if (not _subst143785_) + (let ((_subst143787_ (make-table 'test: eq?))) (##unchecked-structure-set! - _mark142609_ - _subst142626_ + _mark143770_ + _subst143787_ '1 gx#expander-mark::t '#f) - (_gensubst142586_ - _subst142626_ - _id142610_)) - (let ((_$e142628_ + (_gensubst143747_ + _subst143787_ + _id143771_)) + (let ((_$e143789_ (table-ref - _subst142624_ - _id142610_ + _subst143785_ + _id143771_ '#f))) - (if _$e142628_ - (values _$e142628_) - (_gensubst142586_ - _subst142624_ - _id142610_))))))) + (if _$e143789_ + (values _$e143789_) + (_gensubst143747_ + _subst143785_ + _id143771_))))))) (if (##structure-instance-of? - _mark142611142617_ + _mark143772143778_ 'gx#expander-mark::t) - (let* ((_e142615142634_ + (let* ((_e143776143795_ (##unchecked-structure-ref - _mark142611142617_ + _mark143772143778_ '1 gx#expander-mark::t '#f)) - (_subst142637_ _e142615142634_)) - (_K142614142631_ _subst142637_)) - (_E142613142621_)))))) - (if (##pair? _key142590142598_) - (let ((_hd142595142642_ (##car _key142590142598_)) - (_tl142596142644_ (##cdr _key142590142598_))) - (let* ((_id142647_ _hd142595142642_) - (_mark142649_ _tl142596142644_)) - (_K142594142639_ _mark142649_ _id142647_))) - (_else142592142606_)))))) + (_subst143798_ _e143776143795_)) + (_K143775143792_ _subst143798_)) + (_E143774143782_)))))) + (if (##pair? _key143751143759_) + (let ((_hd143756143803_ (##car _key143751143759_)) + (_tl143757143805_ (##cdr _key143751143759_))) + (let* ((_id143808_ _hd143756143803_) + (_mark143810_ _tl143757143805_)) + (_K143755143800_ _mark143810_ _id143808_))) + (_else143753143767_)))))) (gx#core-context-bind! - (gx#core-context-shift _ctx142583_ _phi142582_) - (_subst!142587_ _key142579_) - _val142580_ - _update-binding142585_)))) + (gx#core-context-shift _ctx143744_ _phi143743_) + (_subst!143748_ _key143740_) + _val143741_ + _update-binding143746_)))) (define gx#core-bind!__0 - (lambda (_key142673_ _val142674_) - (let* ((_rebind?142676_ false) - (_phi142678_ (gx#current-expander-phi)) - (_ctx142680_ (gx#current-expander-context))) + (lambda (_key143834_ _val143835_) + (let* ((_rebind?143837_ false) + (_phi143839_ (gx#current-expander-phi)) + (_ctx143841_ (gx#current-expander-context))) (gx#core-bind!__% - _key142673_ - _val142674_ - _rebind?142676_ - _phi142678_ - _ctx142680_)))) + _key143834_ + _val143835_ + _rebind?143837_ + _phi143839_ + _ctx143841_)))) (define gx#core-bind!__1 - (lambda (_key142682_ _val142683_ _rebind?142684_) - (let* ((_phi142686_ (gx#current-expander-phi)) - (_ctx142688_ (gx#current-expander-context))) + (lambda (_key143843_ _val143844_ _rebind?143845_) + (let* ((_phi143847_ (gx#current-expander-phi)) + (_ctx143849_ (gx#current-expander-context))) (gx#core-bind!__% - _key142682_ - _val142683_ - _rebind?142684_ - _phi142686_ - _ctx142688_)))) + _key143843_ + _val143844_ + _rebind?143845_ + _phi143847_ + _ctx143849_)))) (define gx#core-bind!__2 - (lambda (_key142690_ _val142691_ _rebind?142692_ _phi142693_) - (let ((_ctx142695_ (gx#current-expander-context))) + (lambda (_key143851_ _val143852_ _rebind?143853_ _phi143854_) + (let ((_ctx143856_ (gx#current-expander-context))) (gx#core-bind!__% - _key142690_ - _val142691_ - _rebind?142692_ - _phi142693_ - _ctx142695_)))) + _key143851_ + _val143852_ + _rebind?143853_ + _phi143854_ + _ctx143856_)))) (define gx#core-bind! - (lambda _g149667_ - (let ((_g149666_ (##length _g149667_))) - (cond ((##fx= _g149666_ 2) - (apply (lambda (_key142673_ _val142674_) - (gx#core-bind!__0 _key142673_ _val142674_)) - _g149667_)) - ((##fx= _g149666_ 3) - (apply (lambda (_key142682_ _val142683_ _rebind?142684_) + (lambda _g150828_ + (let ((_g150827_ (##length _g150828_))) + (cond ((##fx= _g150827_ 2) + (apply (lambda (_key143834_ _val143835_) + (gx#core-bind!__0 _key143834_ _val143835_)) + _g150828_)) + ((##fx= _g150827_ 3) + (apply (lambda (_key143843_ _val143844_ _rebind?143845_) (gx#core-bind!__1 - _key142682_ - _val142683_ - _rebind?142684_)) - _g149667_)) - ((##fx= _g149666_ 4) - (apply (lambda (_key142690_ - _val142691_ - _rebind?142692_ - _phi142693_) + _key143843_ + _val143844_ + _rebind?143845_)) + _g150828_)) + ((##fx= _g150827_ 4) + (apply (lambda (_key143851_ + _val143852_ + _rebind?143853_ + _phi143854_) (gx#core-bind!__2 - _key142690_ - _val142691_ - _rebind?142692_ - _phi142693_)) - _g149667_)) - ((##fx= _g149666_ 5) - (apply (lambda (_key142697_ - _val142698_ - _rebind?142699_ - _phi142700_ - _ctx142701_) + _key143851_ + _val143852_ + _rebind?143853_ + _phi143854_)) + _g150828_)) + ((##fx= _g150827_ 5) + (apply (lambda (_key143858_ + _val143859_ + _rebind?143860_ + _phi143861_ + _ctx143862_) (gx#core-bind!__% - _key142697_ - _val142698_ - _rebind?142699_ - _phi142700_ - _ctx142701_)) - _g149667_)) + _key143858_ + _val143859_ + _rebind?143860_ + _phi143861_ + _ctx143862_)) + _g150828_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g149667_)))))) + _g150828_)))))) (define gx#core-identifier-key - (lambda (_stx142513_) - (if (symbol? _stx142513_) - (let* ((_g142514142522_ (gx#current-expander-marks)) - (_else142516142530_ (lambda () _stx142513_)) - (_K142518142535_ - (lambda (_hd142533_) (cons _stx142513_ _hd142533_)))) - (if (##pair? _g142514142522_) - (let* ((_hd142519142538_ (##car _g142514142522_)) - (_hd142541_ _hd142519142538_)) - (_K142518142535_ _hd142541_)) - (_else142516142530_))) - (if (gx#identifier? _stx142513_) - (let* ((_id142543_ (gx#syntax-local-unwrap _stx142513_)) - (_eid142545_ (gx#stx-e _id142543_)) - (_marks142547_ (gx#stx-identifier-marks* _id142543_))) - (let* ((_marks142549142557_ _marks142547_) - (_else142551142565_ (lambda () _eid142545_)) - (_K142553142570_ - (lambda (_hd142568_) (cons _eid142545_ _hd142568_)))) - (if (##pair? _marks142549142557_) - (let* ((_hd142554142573_ (##car _marks142549142557_)) - (_hd142576_ _hd142554142573_)) - (_K142553142570_ _hd142576_)) - (_else142551142565_)))) - (gx#raise-syntax-error '#f '"Bad identifier" _stx142513_))))) + (lambda (_stx143674_) + (if (symbol? _stx143674_) + (let* ((_g143675143683_ (gx#current-expander-marks)) + (_else143677143691_ (lambda () _stx143674_)) + (_K143679143696_ + (lambda (_hd143694_) (cons _stx143674_ _hd143694_)))) + (if (##pair? _g143675143683_) + (let* ((_hd143680143699_ (##car _g143675143683_)) + (_hd143702_ _hd143680143699_)) + (_K143679143696_ _hd143702_)) + (_else143677143691_))) + (if (gx#identifier? _stx143674_) + (let* ((_id143704_ (gx#syntax-local-unwrap _stx143674_)) + (_eid143706_ (gx#stx-e _id143704_)) + (_marks143708_ (gx#stx-identifier-marks* _id143704_))) + (let* ((_marks143710143718_ _marks143708_) + (_else143712143726_ (lambda () _eid143706_)) + (_K143714143731_ + (lambda (_hd143729_) (cons _eid143706_ _hd143729_)))) + (if (##pair? _marks143710143718_) + (let* ((_hd143715143734_ (##car _marks143710143718_)) + (_hd143737_ _hd143715143734_)) + (_K143714143731_ _hd143737_)) + (_else143712143726_)))) + (gx#raise-syntax-error '#f '"Bad identifier" _stx143674_))))) (define gx#core-context-shift - (lambda (_ctx142458_ _phi142459_) - (letrec ((_make-phi142461_ - (lambda (_super142511_) - (let ((__obj149638 + (lambda (_ctx143619_ _phi143620_) + (letrec ((_make-phi143622_ + (lambda (_super143672_) + (let ((__obj150799 (##structure gx#phi-context::t '#f @@ -3067,663 +3067,663 @@ '#f '#f))) (gx#phi-context:::init! - __obj149638 + __obj150799 (gensym 'phi) - _super142511_) - __obj149638))) - (_make-phi/up142462_ - (lambda (_ctx142506_ _super142507_) - (let ((_ctx+1142509_ (_make-phi142461_ _super142507_))) + _super143672_) + __obj150799))) + (_make-phi/up143623_ + (lambda (_ctx143667_ _super143668_) + (let ((_ctx+1143670_ (_make-phi143622_ _super143668_))) (##unchecked-structure-set! - _ctx142506_ - _ctx+1142509_ + _ctx143667_ + _ctx+1143670_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx+1142509_ - _ctx142506_ + _ctx+1143670_ + _ctx143667_ '5 gx#phi-context::t '#f) - _ctx+1142509_))) - (_make-phi/down142463_ - (lambda (_ctx142501_ _super142502_) - (let ((_ctx-1142504_ (_make-phi142461_ _super142502_))) + _ctx+1143670_))) + (_make-phi/down143624_ + (lambda (_ctx143662_ _super143663_) + (let ((_ctx-1143665_ (_make-phi143622_ _super143663_))) (##unchecked-structure-set! - _ctx-1142504_ - _ctx142501_ + _ctx-1143665_ + _ctx143662_ '4 gx#phi-context::t '#f) (##unchecked-structure-set! - _ctx142501_ - _ctx-1142504_ + _ctx143662_ + _ctx-1143665_ '5 gx#phi-context::t '#f) - _ctx-1142504_))) - (_shift142464_ - (lambda (_ctx142485_ - _delta142486_ - _make-delta-context142487_ - _phi142488_ - _K142489_) - (let ((_$e142491_ + _ctx-1143665_))) + (_shift143625_ + (lambda (_ctx143646_ + _delta143647_ + _make-delta-context143648_ + _phi143649_ + _K143650_) + (let ((_$e143652_ (##unchecked-structure-ref - _ctx142485_ + _ctx143646_ '3 gx#phi-context::t '#f))) - (if _$e142491_ - ((lambda (_super142494_) - (let* ((_super142496_ - (_K142489_ _super142494_ _delta142486_)) - (_ctx+d142498_ - (_make-delta-context142487_ - _ctx142485_ - _super142496_))) - (_K142489_ - _ctx+d142498_ - (fx- _phi142488_ _delta142486_)))) - _$e142491_) - (error '"Bad context" _ctx142485_)))))) - (let _K142466_ ((_ctx142468_ _ctx142458_) (_phi142469_ _phi142459_)) - (if (fxzero? _phi142469_) - _ctx142468_ - (if (fx> (##vector-length _ctx142468_) '3) - (if (fxpositive? _phi142469_) - (let ((_$e142471_ + (if _$e143652_ + ((lambda (_super143655_) + (let* ((_super143657_ + (_K143650_ _super143655_ _delta143647_)) + (_ctx+d143659_ + (_make-delta-context143648_ + _ctx143646_ + _super143657_))) + (_K143650_ + _ctx+d143659_ + (fx- _phi143649_ _delta143647_)))) + _$e143652_) + (error '"Bad context" _ctx143646_)))))) + (let _K143627_ ((_ctx143629_ _ctx143619_) (_phi143630_ _phi143620_)) + (if (fxzero? _phi143630_) + _ctx143629_ + (if (fx> (##vector-length _ctx143629_) '3) + (if (fxpositive? _phi143630_) + (let ((_$e143632_ (##unchecked-structure-ref - _ctx142468_ + _ctx143629_ '4 gx#phi-context::t '#f))) - (if _$e142471_ - ((lambda (_g142473142475_) - (_K142466_ - _g142473142475_ - (fx- _phi142469_ '1))) - _$e142471_) - (_shift142464_ - _ctx142468_ + (if _$e143632_ + ((lambda (_g143634143636_) + (_K143627_ + _g143634143636_ + (fx- _phi143630_ '1))) + _$e143632_) + (_shift143625_ + _ctx143629_ '1 - _make-phi/up142462_ - _phi142469_ - _K142466_))) - (let ((_$e142478_ + _make-phi/up143623_ + _phi143630_ + _K143627_))) + (let ((_$e143639_ (##unchecked-structure-ref - _ctx142468_ + _ctx143629_ '5 gx#phi-context::t '#f))) - (if _$e142478_ - ((lambda (_g142480142482_) - (_K142466_ - _g142480142482_ - (fx+ _phi142469_ '1))) - _$e142478_) - (_shift142464_ - _ctx142468_ + (if _$e143639_ + ((lambda (_g143641143643_) + (_K143627_ + _g143641143643_ + (fx+ _phi143630_ '1))) + _$e143639_) + (_shift143625_ + _ctx143629_ '-1 - _make-phi/down142463_ - _phi142469_ - _K142466_)))) - _ctx142468_)))))) + _make-phi/down143624_ + _phi143630_ + _K143627_)))) + _ctx143629_)))))) (define gx#core-context-get - (lambda (_ctx142455_ _key142456_) + (lambda (_ctx143616_ _key143617_) (table-ref - (##unchecked-structure-ref _ctx142455_ '2 gx#expander-context::t '#f) - _key142456_ + (##unchecked-structure-ref _ctx143616_ '2 gx#expander-context::t '#f) + _key143617_ '#f))) (define gx#core-context-put! - (lambda (_ctx142451_ _key142452_ _val142453_) + (lambda (_ctx143612_ _key143613_ _val143614_) (table-set! - (##unchecked-structure-ref _ctx142451_ '2 gx#expander-context::t '#f) - _key142452_ - _val142453_))) + (##unchecked-structure-ref _ctx143612_ '2 gx#expander-context::t '#f) + _key143613_ + _val143614_))) (define gx#core-context-resolve - (lambda (_ctx142438_ _key142439_) - (let _lp142441_ ((_ctx142443_ _ctx142438_)) - (let ((_$e142445_ (gx#core-context-get _ctx142443_ _key142439_))) - (if _$e142445_ - (values _$e142445_) - (let ((_$e142448_ - (if (fx> (##vector-length _ctx142443_) '3) + (lambda (_ctx143599_ _key143600_) + (let _lp143602_ ((_ctx143604_ _ctx143599_)) + (let ((_$e143606_ (gx#core-context-get _ctx143604_ _key143600_))) + (if _$e143606_ + (values _$e143606_) + (let ((_$e143609_ + (if (fx> (##vector-length _ctx143604_) '3) (##unchecked-structure-ref - _ctx142443_ + _ctx143604_ '3 gx#phi-context::t '#f) '#f))) - (if _$e142448_ (_lp142441_ _$e142448_) '#f))))))) + (if _$e143609_ (_lp143602_ _$e143609_) '#f))))))) (define gx#core-context-bind! - (lambda (_ctx142428_ _key142429_ _val142430_ _rebind142431_) - (let ((_$e142433_ (gx#core-context-get _ctx142428_ _key142429_))) - (if _$e142433_ - ((lambda (_xval142436_) + (lambda (_ctx143589_ _key143590_ _val143591_ _rebind143592_) + (let ((_$e143594_ (gx#core-context-get _ctx143589_ _key143590_))) + (if _$e143594_ + ((lambda (_xval143597_) (gx#core-context-put! - _ctx142428_ - _key142429_ - (_rebind142431_ _xval142436_))) - _$e142433_) - (gx#core-context-put! _ctx142428_ _key142429_ _val142430_))))) + _ctx143589_ + _key143590_ + (_rebind143592_ _xval143597_))) + _$e143594_) + (gx#core-context-put! _ctx143589_ _key143590_ _val143591_))))) (define gx#core-context-top__% - (lambda (_ctx142406_ _stop?142407_) - (let _lp142409_ ((_ctx142411_ _ctx142406_)) - (if (_stop?142407_ _ctx142411_) - _ctx142411_ - (if (##structure-instance-of? _ctx142411_ 'gx#context-phi::t) - (_lp142409_ + (lambda (_ctx143567_ _stop?143568_) + (let _lp143570_ ((_ctx143572_ _ctx143567_)) + (if (_stop?143568_ _ctx143572_) + _ctx143572_ + (if (##structure-instance-of? _ctx143572_ 'gx#context-phi::t) + (_lp143570_ (##unchecked-structure-ref - _ctx142411_ + _ctx143572_ '3 gx#phi-context::t '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_ctx142417_ (gx#current-expander-context)) - (_stop?142419_ gx#top-context?)) - (gx#core-context-top__% _ctx142417_ _stop?142419_)))) + (let* ((_ctx143578_ (gx#current-expander-context)) + (_stop?143580_ gx#top-context?)) + (gx#core-context-top__% _ctx143578_ _stop?143580_)))) (define gx#core-context-top__1 - (lambda (_ctx142421_) - (let ((_stop?142423_ gx#top-context?)) - (gx#core-context-top__% _ctx142421_ _stop?142423_)))) + (lambda (_ctx143582_) + (let ((_stop?143584_ gx#top-context?)) + (gx#core-context-top__% _ctx143582_ _stop?143584_)))) (define gx#core-context-top - (lambda _g149669_ - (let ((_g149668_ (##length _g149669_))) - (cond ((##fx= _g149668_ 0) - (apply (lambda () (gx#core-context-top__0)) _g149669_)) - ((##fx= _g149668_ 1) - (apply (lambda (_ctx142421_) - (gx#core-context-top__1 _ctx142421_)) - _g149669_)) - ((##fx= _g149668_ 2) - (apply (lambda (_ctx142425_ _stop?142426_) - (gx#core-context-top__% _ctx142425_ _stop?142426_)) - _g149669_)) + (lambda _g150830_ + (let ((_g150829_ (##length _g150830_))) + (cond ((##fx= _g150829_ 0) + (apply (lambda () (gx#core-context-top__0)) _g150830_)) + ((##fx= _g150829_ 1) + (apply (lambda (_ctx143582_) + (gx#core-context-top__1 _ctx143582_)) + _g150830_)) + ((##fx= _g150829_ 2) + (apply (lambda (_ctx143586_ _stop?143587_) + (gx#core-context-top__% _ctx143586_ _stop?143587_)) + _g150830_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g149669_)))))) + _g150830_)))))) (define gx#core-context-root__% - (lambda (_ctx142391_) - (let _lp142393_ ((_ctx142395_ _ctx142391_)) - (if (##structure-instance-of? _ctx142395_ 'gx#context-phi::t) - (_lp142393_ + (lambda (_ctx143552_) + (let _lp143554_ ((_ctx143556_ _ctx143552_)) + (if (##structure-instance-of? _ctx143556_ 'gx#context-phi::t) + (_lp143554_ (##unchecked-structure-ref - _ctx142395_ + _ctx143556_ '3 gx#phi-context::t '#f)) - _ctx142395_)))) + _ctx143556_)))) (define gx#core-context-root__0 (lambda () - (let ((_ctx142401_ (gx#current-expander-context))) - (gx#core-context-root__% _ctx142401_)))) + (let ((_ctx143562_ (gx#current-expander-context))) + (gx#core-context-root__% _ctx143562_)))) (define gx#core-context-root - (lambda _g149671_ - (let ((_g149670_ (##length _g149671_))) - (cond ((##fx= _g149670_ 0) - (apply (lambda () (gx#core-context-root__0)) _g149671_)) - ((##fx= _g149670_ 1) - (apply (lambda (_ctx142403_) - (gx#core-context-root__% _ctx142403_)) - _g149671_)) + (lambda _g150832_ + (let ((_g150831_ (##length _g150832_))) + (cond ((##fx= _g150831_ 0) + (apply (lambda () (gx#core-context-root__0)) _g150832_)) + ((##fx= _g150831_ 1) + (apply (lambda (_ctx143564_) + (gx#core-context-root__% _ctx143564_)) + _g150832_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g149671_)))))) + _g150832_)))))) (define gx#core-context-rebind?__% - (lambda (_ctx142372_ . __142369142373_) - (let ((_$e142376_ (gx#current-expander-allow-rebind?))) - (if _$e142376_ - _$e142376_ - (if (##structure-instance-of? _ctx142372_ 'gx#top-context::t) + (lambda (_ctx143533_ . __143530143534_) + (let ((_$e143537_ (gx#current-expander-allow-rebind?))) + (if _$e143537_ + _$e143537_ + (if (##structure-instance-of? _ctx143533_ 'gx#top-context::t) (if (not (##structure-instance-of? - _ctx142372_ + _ctx143533_ 'gx#module-context::t)) (not (##structure-instance-of? - _ctx142372_ + _ctx143533_ 'gx#prelude-context::t)) '#f) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_ctx142383_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _ctx142383_)))) + (let ((_ctx143544_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _ctx143544_)))) (define gx#core-context-rebind? - (lambda _g149673_ - (let ((_g149672_ (##length _g149673_))) - (cond ((##fx= _g149672_ 0) - (apply (lambda () (gx#core-context-rebind?__0)) _g149673_)) - ((##fx= _g149672_ 1) - (apply (lambda (_ctx142385_) - (gx#core-context-rebind?__% _ctx142385_)) - _g149673_)) - ((##fx>= _g149672_ 1) - (apply gx#core-context-rebind?__% _g149673_)) + (lambda _g150834_ + (let ((_g150833_ (##length _g150834_))) + (cond ((##fx= _g150833_ 0) + (apply (lambda () (gx#core-context-rebind?__0)) _g150834_)) + ((##fx= _g150833_ 1) + (apply (lambda (_ctx143546_) + (gx#core-context-rebind?__% _ctx143546_)) + _g150834_)) + ((##fx>= _g150833_ 1) + (apply gx#core-context-rebind?__% _g150834_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g149673_)))))) + _g150834_)))))) (define gx#core-context-namespace__% - (lambda (_ctx142355_) - (let ((_$e142357_ (gx#core-context-top__1 _ctx142355_))) - (if _$e142357_ - ((lambda (_ctx142360_) + (lambda (_ctx143516_) + (let ((_$e143518_ (gx#core-context-top__1 _ctx143516_))) + (if _$e143518_ + ((lambda (_ctx143521_) (if (##structure-instance-of? - _ctx142360_ + _ctx143521_ 'gx#module-context::t) (##unchecked-structure-ref - _ctx142360_ + _ctx143521_ '6 gx#module-context::t '#f) '#f)) - _$e142357_) + _$e143518_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_ctx142366_ (gx#current-expander-context))) - (gx#core-context-namespace__% _ctx142366_)))) + (let ((_ctx143527_ (gx#current-expander-context))) + (gx#core-context-namespace__% _ctx143527_)))) (define gx#core-context-namespace - (lambda _g149675_ - (let ((_g149674_ (##length _g149675_))) - (cond ((##fx= _g149674_ 0) - (apply (lambda () (gx#core-context-namespace__0)) _g149675_)) - ((##fx= _g149674_ 1) - (apply (lambda (_ctx142368_) - (gx#core-context-namespace__% _ctx142368_)) - _g149675_)) + (lambda _g150836_ + (let ((_g150835_ (##length _g150836_))) + (cond ((##fx= _g150835_ 0) + (apply (lambda () (gx#core-context-namespace__0)) _g150836_)) + ((##fx= _g150835_ 1) + (apply (lambda (_ctx143529_) + (gx#core-context-namespace__% _ctx143529_)) + _g150836_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g149675_)))))) + _g150836_)))))) (define gx#expander-binding?__% - (lambda (_bind142341_ _is?142342_) + (lambda (_bind143502_ _is?143503_) (if (##structure-direct-instance-of? - _bind142341_ + _bind143502_ 'gx#syntax-binding::t) - (_is?142342_ + (_is?143503_ (##unchecked-structure-ref - _bind142341_ + _bind143502_ '4 gx#syntax-binding::t '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_bind142347_) - (let ((_is?142349_ gx#expander?)) - (gx#expander-binding?__% _bind142347_ _is?142349_)))) + (lambda (_bind143508_) + (let ((_is?143510_ gx#expander?)) + (gx#expander-binding?__% _bind143508_ _is?143510_)))) (define gx#expander-binding? - (lambda _g149677_ - (let ((_g149676_ (##length _g149677_))) - (cond ((##fx= _g149676_ 1) - (apply (lambda (_bind142347_) - (gx#expander-binding?__0 _bind142347_)) - _g149677_)) - ((##fx= _g149676_ 2) - (apply (lambda (_bind142351_ _is?142352_) - (gx#expander-binding?__% _bind142351_ _is?142352_)) - _g149677_)) + (lambda _g150838_ + (let ((_g150837_ (##length _g150838_))) + (cond ((##fx= _g150837_ 1) + (apply (lambda (_bind143508_) + (gx#expander-binding?__0 _bind143508_)) + _g150838_)) + ((##fx= _g150837_ 2) + (apply (lambda (_bind143512_ _is?143513_) + (gx#expander-binding?__% _bind143512_ _is?143513_)) + _g150838_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g149677_)))))) + _g150838_)))))) (define gx#core-expander-binding? - (lambda (_bind142338_) - (gx#expander-binding?__% _bind142338_ gx#core-expander?))) + (lambda (_bind143499_) + (gx#expander-binding?__% _bind143499_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_bind142336_) - (gx#expander-binding?__% _bind142336_ gx#expression-form?))) + (lambda (_bind143497_) + (gx#expander-binding?__% _bind143497_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_bind142330_) - (letrec ((_direct-special-form?142332_ - (lambda (_obj142334_) + (lambda (_bind143491_) + (letrec ((_direct-special-form?143493_ + (lambda (_obj143495_) (##structure-direct-instance-of? - _obj142334_ + _obj143495_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _bind142330_ - _direct-special-form?142332_)))) + _bind143491_ + _direct-special-form?143493_)))) (define gx#special-form-binding? - (lambda (_bind142328_) - (gx#expander-binding?__% _bind142328_ gx#special-form?))) + (lambda (_bind143489_) + (gx#expander-binding?__% _bind143489_ gx#special-form?))) (define gx#feature-binding? - (lambda (_bind142319_) - (letrec ((_feature?142321_ - (lambda (_e142323_) - (let ((_$e142325_ + (lambda (_bind143480_) + (letrec ((_feature?143482_ + (lambda (_e143484_) + (let ((_$e143486_ (##structure-instance-of? - _e142323_ + _e143484_ 'gx#feature-expander::t))) - (if _$e142325_ - _$e142325_ + (if _$e143486_ + _$e143486_ (##structure-instance-of? - _e142323_ + _e143484_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _bind142319_ _feature?142321_)))) + (gx#expander-binding?__% _bind143480_ _feature?143482_)))) (define gx#private-feature-binding? - (lambda (_bind142317_) - (gx#expander-binding?__% _bind142317_ gx#private-feature-expander?))) + (lambda (_bind143478_) + (gx#expander-binding?__% _bind143478_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_id142304_ _bound?142305_) - (if (gx#identifier? _id142304_) - (_bound?142305_ (gx#resolve-identifier__0 _id142304_)) + (lambda (_id143465_ _bound?143466_) + (if (gx#identifier? _id143465_) + (_bound?143466_ (gx#resolve-identifier__0 _id143465_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_id142310_) - (let ((_bound?142312_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _id142310_ _bound?142312_)))) + (lambda (_id143471_) + (let ((_bound?143473_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _id143471_ _bound?143473_)))) (define gx#core-bound-identifier? - (lambda _g149679_ - (let ((_g149678_ (##length _g149679_))) - (cond ((##fx= _g149678_ 1) - (apply (lambda (_id142310_) - (gx#core-bound-identifier?__0 _id142310_)) - _g149679_)) - ((##fx= _g149678_ 2) - (apply (lambda (_id142314_ _bound?142315_) + (lambda _g150840_ + (let ((_g150839_ (##length _g150840_))) + (cond ((##fx= _g150839_ 1) + (apply (lambda (_id143471_) + (gx#core-bound-identifier?__0 _id143471_)) + _g150840_)) + ((##fx= _g150839_ 2) + (apply (lambda (_id143475_ _bound?143476_) (gx#core-bound-identifier?__% - _id142314_ - _bound?142315_)) - _g149679_)) + _id143475_ + _bound?143476_)) + _g150840_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g149679_)))))) + _g150840_)))))) (define gx#core-identifier=? - (lambda (_x142294_ _y142295_) - (letrec ((_y=?142297_ - (lambda (_xid142301_) - ((if (list? _y142295_) memq eq?) _xid142301_ _y142295_)))) - (let ((_bind142299_ (gx#resolve-identifier__0 _x142294_))) - (if (##structure-instance-of? _bind142299_ 'gx#binding::t) - (_y=?142297_ - (##unchecked-structure-ref _bind142299_ '1 gx#binding::t '#f)) - (_y=?142297_ (gx#stx-e _x142294_))))))) + (lambda (_x143455_ _y143456_) + (letrec ((_y=?143458_ + (lambda (_xid143462_) + ((if (list? _y143456_) memq eq?) _xid143462_ _y143456_)))) + (let ((_bind143460_ (gx#resolve-identifier__0 _x143455_))) + (if (##structure-instance-of? _bind143460_ 'gx#binding::t) + (_y=?143458_ + (##unchecked-structure-ref _bind143460_ '1 gx#binding::t '#f)) + (_y=?143458_ (gx#stx-e _x143455_))))))) (define gx#core-extern-symbol? - (lambda (_e142292_) - (if (interned-symbol? _e142292_) - (string-index (symbol->string _e142292_) '#\#) + (lambda (_e143453_) + (if (interned-symbol? _e143453_) + (string-index (symbol->string _e143453_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_stx142247_ _src142248_ _ctx142249_ _marks142250_) - (if (##structure? _stx142247_) - (let ((_$e142252_ (gx#sealed-syntax-unwrap _stx142247_))) - (if _$e142252_ - (values _$e142252_) - (if (gx#identifier? _stx142247_) - (let ((_id142255_ - (gx#stx-unwrap__% _stx142247_ _marks142250_))) + (lambda (_stx143408_ _src143409_ _ctx143410_ _marks143411_) + (if (##structure? _stx143408_) + (let ((_$e143413_ (gx#sealed-syntax-unwrap _stx143408_))) + (if _$e143413_ + (values _$e143413_) + (if (gx#identifier? _stx143408_) + (let ((_id143416_ + (gx#stx-unwrap__% _stx143408_ _marks143411_))) (##structure gx#syntax-quote::t (##unchecked-structure-ref - _id142255_ + _id143416_ '1 gx#AST::t '#f) - (let ((_$e142257_ + (let ((_$e143418_ (##unchecked-structure-ref - _id142255_ + _id143416_ '2 gx#AST::t '#f))) - (if _$e142257_ _$e142257_ _src142248_)) - _ctx142249_ + (if _$e143418_ _$e143418_ _src143409_)) + _ctx143410_ (##unchecked-structure-ref - _id142255_ + _id143416_ '3 gx#identifier-wrap::t '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _stx142247_) - (let ((_$e142260_ (gx#stx-source _stx142247_))) - (if _$e142260_ _$e142260_ _src142248_)) - _ctx142249_ - (reverse _marks142250_))))) + (gx#stx-e _stx143408_) + (let ((_$e143421_ (gx#stx-source _stx143408_))) + (if _$e143421_ _$e143421_ _src143409_)) + _ctx143410_ + (reverse _marks143411_))))) (##structure gx#syntax-quote::t - _stx142247_ - _src142248_ - _ctx142249_ - (reverse _marks142250_))))) + _stx143408_ + _src143409_ + _ctx143410_ + (reverse _marks143411_))))) (define gx#core-quote-syntax__0 - (lambda (_stx142266_) - (let* ((_src142268_ '#f) - (_ctx142270_ (gx#current-expander-context)) - (_marks142272_ (gx#current-expander-marks))) + (lambda (_stx143427_) + (let* ((_src143429_ '#f) + (_ctx143431_ (gx#current-expander-context)) + (_marks143433_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx142266_ - _src142268_ - _ctx142270_ - _marks142272_)))) + _stx143427_ + _src143429_ + _ctx143431_ + _marks143433_)))) (define gx#core-quote-syntax__1 - (lambda (_stx142274_ _src142275_) - (let* ((_ctx142277_ (gx#current-expander-context)) - (_marks142279_ (gx#current-expander-marks))) + (lambda (_stx143435_ _src143436_) + (let* ((_ctx143438_ (gx#current-expander-context)) + (_marks143440_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx142274_ - _src142275_ - _ctx142277_ - _marks142279_)))) + _stx143435_ + _src143436_ + _ctx143438_ + _marks143440_)))) (define gx#core-quote-syntax__2 - (lambda (_stx142281_ _src142282_ _ctx142283_) - (let ((_marks142285_ (gx#current-expander-marks))) + (lambda (_stx143442_ _src143443_ _ctx143444_) + (let ((_marks143446_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _stx142281_ - _src142282_ - _ctx142283_ - _marks142285_)))) + _stx143442_ + _src143443_ + _ctx143444_ + _marks143446_)))) (define gx#core-quote-syntax - (lambda _g149681_ - (let ((_g149680_ (##length _g149681_))) - (cond ((##fx= _g149680_ 1) - (apply (lambda (_stx142266_) - (gx#core-quote-syntax__0 _stx142266_)) - _g149681_)) - ((##fx= _g149680_ 2) - (apply (lambda (_stx142274_ _src142275_) - (gx#core-quote-syntax__1 _stx142274_ _src142275_)) - _g149681_)) - ((##fx= _g149680_ 3) - (apply (lambda (_stx142281_ _src142282_ _ctx142283_) + (lambda _g150842_ + (let ((_g150841_ (##length _g150842_))) + (cond ((##fx= _g150841_ 1) + (apply (lambda (_stx143427_) + (gx#core-quote-syntax__0 _stx143427_)) + _g150842_)) + ((##fx= _g150841_ 2) + (apply (lambda (_stx143435_ _src143436_) + (gx#core-quote-syntax__1 _stx143435_ _src143436_)) + _g150842_)) + ((##fx= _g150841_ 3) + (apply (lambda (_stx143442_ _src143443_ _ctx143444_) (gx#core-quote-syntax__2 - _stx142281_ - _src142282_ - _ctx142283_)) - _g149681_)) - ((##fx= _g149680_ 4) - (apply (lambda (_stx142287_ - _src142288_ - _ctx142289_ - _marks142290_) + _stx143442_ + _src143443_ + _ctx143444_)) + _g150842_)) + ((##fx= _g150841_ 4) + (apply (lambda (_stx143448_ + _src143449_ + _ctx143450_ + _marks143451_) (gx#core-quote-syntax__% - _stx142287_ - _src142288_ - _ctx142289_ - _marks142290_)) - _g149681_)) + _stx143448_ + _src143449_ + _ctx143450_ + _marks143451_)) + _g150842_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g149681_)))))) + _g150842_)))))) (define gx#core-cons - (lambda (_hd142243_ _tl142244_) - (cons (gx#core-quote-syntax__0 _hd142243_) _tl142244_))) + (lambda (_hd143404_ _tl143405_) + (cons (gx#core-quote-syntax__0 _hd143404_) _tl143405_))) (define gx#core-list - (lambda (_hd142240_ . _rest142241_) - (cons (gx#core-quote-syntax__0 _hd142240_) _rest142241_))) + (lambda (_hd143401_ . _rest143402_) + (cons (gx#core-quote-syntax__0 _hd143401_) _rest143402_))) (define gx#core-cons* - (lambda (_hd142237_ . _rest142238_) - (apply cons* (gx#core-quote-syntax__0 _hd142237_) _rest142238_))) + (lambda (_hd143398_ . _rest143399_) + (apply cons* (gx#core-quote-syntax__0 _hd143398_) _rest143399_))) (define gx#core-resolve-path__% - (lambda (_stx-path142211_ _rel142212_) - (let ((_path142224_ (gx#stx-e _stx-path142211_)) - (_reldir142225_ - (let _lp142214_ ((_relsrc142216_ - (let ((_$e142221_ - (gx#stx-source _stx-path142211_))) - (if _$e142221_ _$e142221_ _rel142212_)))) - (if (##structure-instance-of? _relsrc142216_ 'gerbil#AST::t) - (_lp142214_ - (let ((_$e142218_ (gx#stx-source _relsrc142216_))) - (if _$e142218_ _$e142218_ (gx#stx-e _relsrc142216_)))) - (if (source-location-path? _relsrc142216_) - (path-directory (source-location-path _relsrc142216_)) - (if (string? _relsrc142216_) - (path-directory _relsrc142216_) + (lambda (_stx-path143372_ _rel143373_) + (let ((_path143385_ (gx#stx-e _stx-path143372_)) + (_reldir143386_ + (let _lp143375_ ((_relsrc143377_ + (let ((_$e143382_ + (gx#stx-source _stx-path143372_))) + (if _$e143382_ _$e143382_ _rel143373_)))) + (if (##structure-instance-of? _relsrc143377_ 'gerbil#AST::t) + (_lp143375_ + (let ((_$e143379_ (gx#stx-source _relsrc143377_))) + (if _$e143379_ _$e143379_ (gx#stx-e _relsrc143377_)))) + (if (source-location-path? _relsrc143377_) + (path-directory (source-location-path _relsrc143377_)) + (if (string? _relsrc143377_) + (path-directory _relsrc143377_) (if (not (null? (gx#current-expander-path))) (path-directory (car (gx#current-expander-path))) (current-directory)))))))) - (path-expand _path142224_ (path-normalize _reldir142225_))))) + (path-expand _path143385_ (path-normalize _reldir143386_))))) (define gx#core-resolve-path__0 - (lambda (_stx-path142230_) - (let ((_rel142232_ '#f)) - (gx#core-resolve-path__% _stx-path142230_ _rel142232_)))) + (lambda (_stx-path143391_) + (let ((_rel143393_ '#f)) + (gx#core-resolve-path__% _stx-path143391_ _rel143393_)))) (define gx#core-resolve-path - (lambda _g149683_ - (let ((_g149682_ (##length _g149683_))) - (cond ((##fx= _g149682_ 1) - (apply (lambda (_stx-path142230_) - (gx#core-resolve-path__0 _stx-path142230_)) - _g149683_)) - ((##fx= _g149682_ 2) - (apply (lambda (_stx-path142234_ _rel142235_) + (lambda _g150844_ + (let ((_g150843_ (##length _g150844_))) + (cond ((##fx= _g150843_ 1) + (apply (lambda (_stx-path143391_) + (gx#core-resolve-path__0 _stx-path143391_)) + _g150844_)) + ((##fx= _g150843_ 2) + (apply (lambda (_stx-path143395_ _rel143396_) (gx#core-resolve-path__% - _stx-path142234_ - _rel142235_)) - _g149683_)) + _stx-path143395_ + _rel143396_)) + _g150844_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g149683_)))))) + _g150844_)))))) (define gx#core-deserialize-mark__% - (lambda (_repr142167_ _ctx142168_) - (let* ((_repr142169142176_ _repr142167_) - (_E142171142180_ - (lambda () (error '"No clause matching" _repr142169142176_))) - (_K142172142188_ - (lambda (_subs142183_ _phi142184_) - (let ((_subst142186_ - (if (not (null? _subs142183_)) - (list->table _subs142183_ 'test: eq?) + (lambda (_repr143328_ _ctx143329_) + (let* ((_repr143330143337_ _repr143328_) + (_E143332143341_ + (lambda () (error '"No clause matching" _repr143330143337_))) + (_K143333143349_ + (lambda (_subs143344_ _phi143345_) + (let ((_subst143347_ + (if (not (null? _subs143344_)) + (list->table _subs143344_ 'test: eq?) '#f))) (##structure gx#expander-mark::t - _subst142186_ - _ctx142168_ - _phi142184_ + _subst143347_ + _ctx143329_ + _phi143345_ '#f))))) - (if (##pair? _repr142169142176_) - (let ((_hd142173142191_ (##car _repr142169142176_)) - (_tl142174142193_ (##cdr _repr142169142176_))) - (let* ((_phi142196_ _hd142173142191_) - (_subs142198_ _tl142174142193_)) - (_K142172142188_ _subs142198_ _phi142196_))) - (_E142171142180_))))) + (if (##pair? _repr143330143337_) + (let ((_hd143334143352_ (##car _repr143330143337_)) + (_tl143335143354_ (##cdr _repr143330143337_))) + (let* ((_phi143357_ _hd143334143352_) + (_subs143359_ _tl143335143354_)) + (_K143333143349_ _subs143359_ _phi143357_))) + (_E143332143341_))))) (define gx#core-deserialize-mark__0 - (lambda (_repr142203_) - (let ((_ctx142205_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _repr142203_ _ctx142205_)))) + (lambda (_repr143364_) + (let ((_ctx143366_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _repr143364_ _ctx143366_)))) (define gx#core-deserialize-mark - (lambda _g149685_ - (let ((_g149684_ (##length _g149685_))) - (cond ((##fx= _g149684_ 1) - (apply (lambda (_repr142203_) - (gx#core-deserialize-mark__0 _repr142203_)) - _g149685_)) - ((##fx= _g149684_ 2) - (apply (lambda (_repr142207_ _ctx142208_) + (lambda _g150846_ + (let ((_g150845_ (##length _g150846_))) + (cond ((##fx= _g150845_ 1) + (apply (lambda (_repr143364_) + (gx#core-deserialize-mark__0 _repr143364_)) + _g150846_)) + ((##fx= _g150845_ 2) + (apply (lambda (_repr143368_ _ctx143369_) (gx#core-deserialize-mark__% - _repr142207_ - _ctx142208_)) - _g149685_)) + _repr143368_ + _ctx143369_)) + _g150846_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g149685_)))))) + _g150846_)))))) (define gx#syntax-local-rewrap - (lambda (_stx142164_) - (gx#stx-rewrap _stx142164_ (gx#current-expander-marks)))) + (lambda (_stx143325_) + (gx#stx-rewrap _stx143325_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_stx142162_) - (gx#stx-unwrap__% _stx142162_ (gx#current-expander-marks)))) + (lambda (_stx143323_) + (gx#stx-unwrap__% _stx143323_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_stx142132_) - (let* ((_g142133142141_ (gx#current-expander-marks)) - (_else142135142149_ (lambda () _stx142132_)) - (_K142137142154_ - (lambda (_hd142152_) - (gx#stx-apply-mark _stx142132_ _hd142152_)))) - (if (##pair? _g142133142141_) - (let* ((_hd142138142157_ (##car _g142133142141_)) - (_hd142160_ _hd142138142157_)) - (_K142137142154_ _hd142160_)) - (_else142135142149_))))) + (lambda (_stx143293_) + (let* ((_g143294143302_ (gx#current-expander-marks)) + (_else143296143310_ (lambda () _stx143293_)) + (_K143298143315_ + (lambda (_hd143313_) + (gx#stx-apply-mark _stx143293_ _hd143313_)))) + (if (##pair? _g143294143302_) + (let* ((_hd143299143318_ (##car _g143294143302_)) + (_hd143321_ _hd143299143318_)) + (_K143298143315_ _hd143321_)) + (_else143296143310_))))) (define gx#syntax-local-e__% - (lambda (_stx142117_ _E142118_) - (let ((_bind142120_ (gx#resolve-identifier__0 _stx142117_))) + (lambda (_stx143278_ _E143279_) + (let ((_bind143281_ (gx#resolve-identifier__0 _stx143278_))) (if (##structure-direct-instance-of? - _bind142120_ + _bind143281_ 'gx#syntax-binding::t) (##unchecked-structure-ref - _bind142120_ + _bind143281_ '4 gx#syntax-binding::t '#f) - (_E142118_ _stx142117_))))) + (_E143279_ _stx143278_))))) (define gx#syntax-local-e__0 - (lambda (_stx142125_) - (let ((_E142127_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _stx142125_ _E142127_)))) + (lambda (_stx143286_) + (let ((_E143288_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _stx143286_ _E143288_)))) (define gx#syntax-local-e - (lambda _g149687_ - (let ((_g149686_ (##length _g149687_))) - (cond ((##fx= _g149686_ 1) - (apply (lambda (_stx142125_) - (gx#syntax-local-e__0 _stx142125_)) - _g149687_)) - ((##fx= _g149686_ 2) - (apply (lambda (_stx142129_ _E142130_) - (gx#syntax-local-e__% _stx142129_ _E142130_)) - _g149687_)) + (lambda _g150848_ + (let ((_g150847_ (##length _g150848_))) + (cond ((##fx= _g150847_ 1) + (apply (lambda (_stx143286_) + (gx#syntax-local-e__0 _stx143286_)) + _g150848_)) + ((##fx= _g150847_ 2) + (apply (lambda (_stx143290_ _E143291_) + (gx#syntax-local-e__% _stx143290_ _E143291_)) + _g150848_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g149687_)))))) + _g150848_)))))) (define gx#syntax-local-value__% - (lambda (_stx142101_ _E142102_) - (let ((_e142104_ (gx#syntax-local-e__% _stx142101_ _E142102_))) - (if (##structure-instance-of? _e142104_ 'gx#expander::t) - (##structure-ref _e142104_ '1 gx#expander::t '#f) - _e142104_)))) + (lambda (_stx143262_ _E143263_) + (let ((_e143265_ (gx#syntax-local-e__% _stx143262_ _E143263_))) + (if (##structure-instance-of? _e143265_ 'gx#expander::t) + (##structure-ref _e143265_ '1 gx#expander::t '#f) + _e143265_)))) (define gx#syntax-local-value__0 - (lambda (_stx142109_) - (let ((_E142111_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _stx142109_ _E142111_)))) + (lambda (_stx143270_) + (let ((_E143272_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _stx143270_ _E143272_)))) (define gx#syntax-local-value - (lambda _g149689_ - (let ((_g149688_ (##length _g149689_))) - (cond ((##fx= _g149688_ 1) - (apply (lambda (_stx142109_) - (gx#syntax-local-value__0 _stx142109_)) - _g149689_)) - ((##fx= _g149688_ 2) - (apply (lambda (_stx142113_ _E142114_) - (gx#syntax-local-value__% _stx142113_ _E142114_)) - _g149689_)) + (lambda _g150850_ + (let ((_g150849_ (##length _g150850_))) + (cond ((##fx= _g150849_ 1) + (apply (lambda (_stx143270_) + (gx#syntax-local-value__0 _stx143270_)) + _g150850_)) + ((##fx= _g150849_ 2) + (apply (lambda (_stx143274_ _E143275_) + (gx#syntax-local-value__% _stx143274_ _E143275_)) + _g150850_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g149689_)))))) + _g150850_)))))) (define gx#raise-syntax-ref-error - (lambda (_stx142098_) + (lambda (_stx143259_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _stx142098_))))) + _stx143259_))))) diff --git a/src/bootstrap/gerbil/expander/core__1.scm b/src/bootstrap/gerbil/expander/core__1.scm index 87d288c7c..b5d4562bf 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]#_g149691_| + (define |gx[1]#_g150852_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149693_| + (define |gx[1]#_g150854_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149695_| + (define |gx[1]#_g150856_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149700_| + (define |gx[1]#_g150861_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149703_| + (define |gx[1]#_g150864_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149708_| + (define |gx[1]#_g150869_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149711_| + (define |gx[1]#_g150872_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149716_| + (define |gx[1]#_g150877_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149719_| + (define |gx[1]#_g150880_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149724_| + (define |gx[1]#_g150885_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149727_| + (define |gx[1]#_g150888_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149730_| + (define |gx[1]#_g150891_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149732_| + (define |gx[1]#_g150893_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149734_| + (define |gx[1]#_g150895_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149736_| + (define |gx[1]#_g150897_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149741_| + (define |gx[1]#_g150902_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149744_| + (define |gx[1]#_g150905_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149749_| + (define |gx[1]#_g150910_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149752_| + (define |gx[1]#_g150913_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149757_| + (define |gx[1]#_g150918_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149760_| + (define |gx[1]#_g150921_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149765_| + (define |gx[1]#_g150926_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149768_| + (define |gx[1]#_g150929_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149772_| + (define |gx[1]#_g150933_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149774_| + (define |gx[1]#_g150935_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149776_| + (define |gx[1]#_g150937_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149784_| + (define |gx[1]#_g150945_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149787_| + (define |gx[1]#_g150948_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149790_| + (define |gx[1]#_g150951_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g149793_| + (define |gx[1]#_g150954_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g149796_| + (define |gx[1]#_g150957_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g149804_| + (define |gx[1]#_g150965_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149807_| + (define |gx[1]#_g150968_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149810_| + (define |gx[1]#_g150971_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149813_| + (define |gx[1]#_g150974_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149816_| + (define |gx[1]#_g150977_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149824_| + (define |gx[1]#_g150985_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149827_| + (define |gx[1]#_g150988_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149830_| + (define |gx[1]#_g150991_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g149833_| + (define |gx[1]#_g150994_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g149836_| + (define |gx[1]#_g150997_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g149844_| + (define |gx[1]#_g151005_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149847_| + (define |gx[1]#_g151008_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149850_| + (define |gx[1]#_g151011_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149853_| + (define |gx[1]#_g151014_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149856_| + (define |gx[1]#_g151017_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149859_| + (define |gx[1]#_g151020_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149861_| + (define |gx[1]#_g151022_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149863_| + (define |gx[1]#_g151024_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149865_| + (define |gx[1]#_g151026_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149873_| + (define |gx[1]#_g151034_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149876_| + (define |gx[1]#_g151037_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149879_| + (define |gx[1]#_g151040_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g149882_| + (define |gx[1]#_g151043_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g149885_| + (define |gx[1]#_g151046_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g149893_| + (define |gx[1]#_g151054_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149896_| + (define |gx[1]#_g151057_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149899_| + (define |gx[1]#_g151060_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149902_| + (define |gx[1]#_g151063_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149905_| + (define |gx[1]#_g151066_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149913_| + (define |gx[1]#_g151074_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149916_| + (define |gx[1]#_g151077_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149919_| + (define |gx[1]#_g151080_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g149922_| + (define |gx[1]#_g151083_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g149925_| + (define |gx[1]#_g151086_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g149933_| + (define |gx[1]#_g151094_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149936_| + (define |gx[1]#_g151097_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149939_| + (define |gx[1]#_g151100_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149942_| + (define |gx[1]#_g151103_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149945_| + (define |gx[1]#_g151106_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g149948_| + (define |gx[1]#_g151109_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149950_| + (define |gx[1]#_g151111_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g149952_| + (define |gx[1]#_g151113_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g149954_| + (define |gx[1]#_g151115_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g149968_| + (define |gx[1]#_g151129_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g149971_| + (define |gx[1]#_g151132_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g149974_| + (define |gx[1]#_g151135_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g149977_| + (define |gx[1]#_g151138_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g149980_| + (define |gx[1]#_g151141_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g149983_| + (define |gx[1]#_g151144_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g149986_| + (define |gx[1]#_g151147_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g149989_| + (define |gx[1]#_g151150_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g149992_| + (define |gx[1]#_g151153_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g149995_| + (define |gx[1]#_g151156_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g149998_| + (define |gx[1]#_g151159_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g150012_| + (define |gx[1]#_g151173_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150015_| + (define |gx[1]#_g151176_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150018_| + (define |gx[1]#_g151179_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150021_| + (define |gx[1]#_g151182_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150024_| + (define |gx[1]#_g151185_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150027_| + (define |gx[1]#_g151188_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150030_| + (define |gx[1]#_g151191_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150033_| + (define |gx[1]#_g151194_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150036_| + (define |gx[1]#_g151197_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150039_| + (define |gx[1]#_g151200_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150042_| + (define |gx[1]#_g151203_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150056_| + (define |gx[1]#_g151217_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150059_| + (define |gx[1]#_g151220_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150062_| + (define |gx[1]#_g151223_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g150065_| + (define |gx[1]#_g151226_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g150068_| + (define |gx[1]#_g151229_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g150071_| + (define |gx[1]#_g151232_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g150074_| + (define |gx[1]#_g151235_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150077_| + (define |gx[1]#_g151238_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g150080_| + (define |gx[1]#_g151241_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g150083_| + (define |gx[1]#_g151244_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g150086_| + (define |gx[1]#_g151247_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g150100_| + (define |gx[1]#_g151261_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150103_| + (define |gx[1]#_g151264_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150106_| + (define |gx[1]#_g151267_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150109_| + (define |gx[1]#_g151270_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150112_| + (define |gx[1]#_g151273_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150115_| + (define |gx[1]#_g151276_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150118_| + (define |gx[1]#_g151279_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150121_| + (define |gx[1]#_g151282_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150124_| + (define |gx[1]#_g151285_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150127_| + (define |gx[1]#_g151288_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150130_| + (define |gx[1]#_g151291_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150134_| + (define |gx[1]#_g151295_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150136_| + (define |gx[1]#_g151297_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150138_| + (define |gx[1]#_g151299_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150149_| + (define |gx[1]#_g151310_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150152_| + (define |gx[1]#_g151313_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150155_| + (define |gx[1]#_g151316_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g150158_| + (define |gx[1]#_g151319_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g150161_| + (define |gx[1]#_g151322_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g150164_| + (define |gx[1]#_g151325_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150167_| + (define |gx[1]#_g151328_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g150170_| + (define |gx[1]#_g151331_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g150181_| + (define |gx[1]#_g151342_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150184_| + (define |gx[1]#_g151345_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150187_| + (define |gx[1]#_g151348_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150190_| + (define |gx[1]#_g151351_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150193_| + (define |gx[1]#_g151354_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150196_| + (define |gx[1]#_g151357_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150199_| + (define |gx[1]#_g151360_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150202_| + (define |gx[1]#_g151363_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150213_| + (define |gx[1]#_g151374_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150216_| + (define |gx[1]#_g151377_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150219_| + (define |gx[1]#_g151380_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g150222_| + (define |gx[1]#_g151383_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g150225_| + (define |gx[1]#_g151386_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g150228_| + (define |gx[1]#_g151389_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150231_| + (define |gx[1]#_g151392_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g150234_| + (define |gx[1]#_g151395_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g150245_| + (define |gx[1]#_g151406_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150248_| + (define |gx[1]#_g151409_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150251_| + (define |gx[1]#_g151412_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150254_| + (define |gx[1]#_g151415_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150257_| + (define |gx[1]#_g151418_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150260_| + (define |gx[1]#_g151421_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150263_| + (define |gx[1]#_g151424_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150266_| + (define |gx[1]#_g151427_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150270_| + (define |gx[1]#_g151431_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150272_| + (define |gx[1]#_g151433_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150274_| + (define |gx[1]#_g151435_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150282_| + (define |gx[1]#_g151443_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150285_| + (define |gx[1]#_g151446_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150288_| + (define |gx[1]#_g151449_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g150291_| + (define |gx[1]#_g151452_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g150294_| + (define |gx[1]#_g151455_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g150302_| + (define |gx[1]#_g151463_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150305_| + (define |gx[1]#_g151466_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150308_| + (define |gx[1]#_g151469_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150311_| + (define |gx[1]#_g151472_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150314_| + (define |gx[1]#_g151475_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150322_| + (define |gx[1]#_g151483_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g150325_| + (define |gx[1]#_g151486_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150328_| + (define |gx[1]#_g151489_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g150331_| + (define |gx[1]#_g151492_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g150334_| + (define |gx[1]#_g151495_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g150342_| + (define |gx[1]#_g151503_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150345_| + (define |gx[1]#_g151506_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150348_| + (define |gx[1]#_g151509_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150351_| + (define |gx[1]#_g151512_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150354_| + (define |gx[1]#_g151515_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150356_| + (define |gx[1]#_g151517_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150358_| + (define |gx[1]#_g151519_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150360_| + (define |gx[1]#_g151521_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150366_| + (define |gx[1]#_g151527_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150369_| + (define |gx[1]#_g151530_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150372_| + (define |gx[1]#_g151533_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150378_| + (define |gx[1]#_g151539_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150381_| + (define |gx[1]#_g151542_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150384_| + (define |gx[1]#_g151545_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150390_| + (define |gx[1]#_g151551_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150393_| + (define |gx[1]#_g151554_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150396_| + (define |gx[1]#_g151557_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150402_| + (define |gx[1]#_g151563_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150405_| + (define |gx[1]#_g151566_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150408_| + (define |gx[1]#_g151569_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150411_| + (define |gx[1]#_g151572_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150413_| + (define |gx[1]#_g151574_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150415_| + (define |gx[1]#_g151576_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150417_| + (define |gx[1]#_g151578_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150423_| + (define |gx[1]#_g151584_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150426_| + (define |gx[1]#_g151587_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150429_| + (define |gx[1]#_g151590_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150435_| + (define |gx[1]#_g151596_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150438_| + (define |gx[1]#_g151599_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150441_| + (define |gx[1]#_g151602_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150447_| + (define |gx[1]#_g151608_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150450_| + (define |gx[1]#_g151611_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150453_| + (define |gx[1]#_g151614_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150459_| + (define |gx[1]#_g151620_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150462_| + (define |gx[1]#_g151623_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150465_| + (define |gx[1]#_g151626_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150468_| + (define |gx[1]#_g151629_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150470_| + (define |gx[1]#_g151631_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150472_| + (define |gx[1]#_g151633_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150474_| + (define |gx[1]#_g151635_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150480_| + (define |gx[1]#_g151641_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150483_| + (define |gx[1]#_g151644_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150486_| + (define |gx[1]#_g151647_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150492_| + (define |gx[1]#_g151653_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150495_| + (define |gx[1]#_g151656_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150498_| + (define |gx[1]#_g151659_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150504_| + (define |gx[1]#_g151665_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150507_| + (define |gx[1]#_g151668_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150510_| + (define |gx[1]#_g151671_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150516_| + (define |gx[1]#_g151677_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150519_| + (define |gx[1]#_g151680_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150522_| + (define |gx[1]#_g151683_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150526_| + (define |gx[1]#_g151687_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150528_| + (define |gx[1]#_g151689_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150530_| + (define |gx[1]#_g151691_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150536_| + (define |gx[1]#_g151697_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150539_| + (define |gx[1]#_g151700_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150542_| + (define |gx[1]#_g151703_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150548_| + (define |gx[1]#_g151709_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150551_| + (define |gx[1]#_g151712_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150554_| + (define |gx[1]#_g151715_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150560_| + (define |gx[1]#_g151721_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150563_| + (define |gx[1]#_g151724_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150566_| + (define |gx[1]#_g151727_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150572_| + (define |gx[1]#_g151733_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150575_| + (define |gx[1]#_g151736_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150578_| + (define |gx[1]#_g151739_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150581_| + (define |gx[1]#_g151742_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150583_| + (define |gx[1]#_g151744_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150585_| + (define |gx[1]#_g151746_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150587_| + (define |gx[1]#_g151748_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150594_| + (define |gx[1]#_g151755_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150597_| + (define |gx[1]#_g151758_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150600_| + (define |gx[1]#_g151761_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150603_| + (define |gx[1]#_g151764_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150610_| + (define |gx[1]#_g151771_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150613_| + (define |gx[1]#_g151774_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150616_| + (define |gx[1]#_g151777_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150619_| + (define |gx[1]#_g151780_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150626_| + (define |gx[1]#_g151787_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150629_| + (define |gx[1]#_g151790_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150632_| + (define |gx[1]#_g151793_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150635_| + (define |gx[1]#_g151796_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150642_| + (define |gx[1]#_g151803_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150645_| + (define |gx[1]#_g151806_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150648_| + (define |gx[1]#_g151809_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150651_| + (define |gx[1]#_g151812_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150655_| + (define |gx[1]#_g151816_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150657_| + (define |gx[1]#_g151818_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150659_| + (define |gx[1]#_g151820_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150665_| + (define |gx[1]#_g151826_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150668_| + (define |gx[1]#_g151829_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150671_| + (define |gx[1]#_g151832_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150677_| + (define |gx[1]#_g151838_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150680_| + (define |gx[1]#_g151841_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150683_| + (define |gx[1]#_g151844_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150689_| + (define |gx[1]#_g151850_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150692_| + (define |gx[1]#_g151853_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150695_| + (define |gx[1]#_g151856_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150701_| + (define |gx[1]#_g151862_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150704_| + (define |gx[1]#_g151865_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150707_| + (define |gx[1]#_g151868_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150711_| + (define |gx[1]#_g151872_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150713_| + (define |gx[1]#_g151874_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150715_| + (define |gx[1]#_g151876_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150722_| + (define |gx[1]#_g151883_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150725_| + (define |gx[1]#_g151886_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150728_| + (define |gx[1]#_g151889_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150731_| + (define |gx[1]#_g151892_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150738_| + (define |gx[1]#_g151899_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150741_| + (define |gx[1]#_g151902_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150744_| + (define |gx[1]#_g151905_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150747_| + (define |gx[1]#_g151908_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150754_| + (define |gx[1]#_g151915_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150757_| + (define |gx[1]#_g151918_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150760_| + (define |gx[1]#_g151921_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150763_| + (define |gx[1]#_g151924_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150770_| + (define |gx[1]#_g151931_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150773_| + (define |gx[1]#_g151934_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150776_| + (define |gx[1]#_g151937_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150779_| + (define |gx[1]#_g151940_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150783_| + (define |gx[1]#_g151944_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150785_| + (define |gx[1]#_g151946_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150787_| + (define |gx[1]#_g151948_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150796_| + (define |gx[1]#_g151957_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150799_| + (define |gx[1]#_g151960_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150802_| + (define |gx[1]#_g151963_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150805_| + (define |gx[1]#_g151966_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150808_| + (define |gx[1]#_g151969_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150811_| + (define |gx[1]#_g151972_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150820_| + (define |gx[1]#_g151981_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150823_| + (define |gx[1]#_g151984_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150826_| + (define |gx[1]#_g151987_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150829_| + (define |gx[1]#_g151990_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150832_| + (define |gx[1]#_g151993_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150835_| + (define |gx[1]#_g151996_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150844_| + (define |gx[1]#_g152005_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150847_| + (define |gx[1]#_g152008_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150850_| + (define |gx[1]#_g152011_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150853_| + (define |gx[1]#_g152014_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150856_| + (define |gx[1]#_g152017_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g150859_| + (define |gx[1]#_g152020_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150868_| + (define |gx[1]#_g152029_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150871_| + (define |gx[1]#_g152032_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150874_| + (define |gx[1]#_g152035_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150877_| + (define |gx[1]#_g152038_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150880_| + (define |gx[1]#_g152041_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150883_| + (define |gx[1]#_g152044_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150887_| + (define |gx[1]#_g152048_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150889_| + (define |gx[1]#_g152050_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g150891_| + (define |gx[1]#_g152052_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150898_| + (define |gx[1]#_g152059_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150901_| + (define |gx[1]#_g152062_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150904_| + (define |gx[1]#_g152065_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150907_| + (define |gx[1]#_g152068_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150914_| + (define |gx[1]#_g152075_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150917_| + (define |gx[1]#_g152078_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150920_| + (define |gx[1]#_g152081_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150923_| + (define |gx[1]#_g152084_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150930_| + (define |gx[1]#_g152091_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g150933_| + (define |gx[1]#_g152094_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g150936_| + (define |gx[1]#_g152097_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g150939_| + (define |gx[1]#_g152100_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150946_| + (define |gx[1]#_g152107_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150949_| + (define |gx[1]#_g152110_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150952_| + (define |gx[1]#_g152113_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150955_| + (define |gx[1]#_g152116_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150957_| + (define |gx[1]#_g152118_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150959_| + (define |gx[1]#_g152120_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g150961_| + (define |gx[1]#_g152122_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150965_| + (define |gx[1]#_g152126_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150969_| + (define |gx[1]#_g152130_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150973_| + (define |gx[1]#_g152134_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150977_| + (define |gx[1]#_g152138_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g150980_| + (define |gx[1]#_g152141_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g150982_| + (define |gx[1]#_g152143_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g150984_| + (define |gx[1]#_g152145_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g150986_| + (define |gx[1]#_g152147_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g150992_| + (define |gx[1]#_g152153_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g150995_| + (define |gx[1]#_g152156_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g150998_| + (define |gx[1]#_g152159_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151004_| + (define |gx[1]#_g152165_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151007_| + (define |gx[1]#_g152168_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151010_| + (define |gx[1]#_g152171_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151016_| + (define |gx[1]#_g152177_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151019_| + (define |gx[1]#_g152180_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151022_| + (define |gx[1]#_g152183_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151028_| + (define |gx[1]#_g152189_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151031_| + (define |gx[1]#_g152192_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151034_| + (define |gx[1]#_g152195_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151037_| + (define |gx[1]#_g152198_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151039_| + (define |gx[1]#_g152200_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151041_| + (define |gx[1]#_g152202_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g151043_| + (define |gx[1]#_g152204_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151049_| + (define |gx[1]#_g152210_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151052_| + (define |gx[1]#_g152213_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151055_| + (define |gx[1]#_g152216_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151061_| + (define |gx[1]#_g152222_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151064_| + (define |gx[1]#_g152225_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151067_| + (define |gx[1]#_g152228_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151073_| + (define |gx[1]#_g152234_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151076_| + (define |gx[1]#_g152237_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151079_| + (define |gx[1]#_g152240_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151085_| + (define |gx[1]#_g152246_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151088_| + (define |gx[1]#_g152249_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151091_| + (define |gx[1]#_g152252_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151095_| + (define |gx[1]#_g152256_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151097_| + (define |gx[1]#_g152258_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g151099_| + (define |gx[1]#_g152260_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151105_| + (define |gx[1]#_g152266_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151108_| + (define |gx[1]#_g152269_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151111_| + (define |gx[1]#_g152272_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151117_| + (define |gx[1]#_g152278_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151120_| + (define |gx[1]#_g152281_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151123_| + (define |gx[1]#_g152284_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151129_| + (define |gx[1]#_g152290_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151132_| + (define |gx[1]#_g152293_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151135_| + (define |gx[1]#_g152296_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151141_| + (define |gx[1]#_g152302_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151144_| + (define |gx[1]#_g152305_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151147_| + (define |gx[1]#_g152308_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151150_| + (define |gx[1]#_g152311_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g151152_| + (define |gx[1]#_g152313_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151154_| + (define |gx[1]#_g152315_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g151156_| + (define |gx[1]#_g152317_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151162_| + (define |gx[1]#_g152323_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151165_| + (define |gx[1]#_g152326_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151168_| + (define |gx[1]#_g152329_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151174_| + (define |gx[1]#_g152335_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151177_| + (define |gx[1]#_g152338_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151180_| + (define |gx[1]#_g152341_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151186_| + (define |gx[1]#_g152347_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151189_| + (define |gx[1]#_g152350_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151192_| + (define |gx[1]#_g152353_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151198_| + (define |gx[1]#_g152359_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151201_| + (define |gx[1]#_g152362_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151204_| + (define |gx[1]#_g152365_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151208_| + (define |gx[1]#_g152369_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151210_| + (define |gx[1]#_g152371_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g151212_| + (define |gx[1]#_g152373_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151218_| + (define |gx[1]#_g152379_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151221_| + (define |gx[1]#_g152382_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151224_| + (define |gx[1]#_g152385_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151230_| + (define |gx[1]#_g152391_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151233_| + (define |gx[1]#_g152394_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151236_| + (define |gx[1]#_g152397_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151242_| + (define |gx[1]#_g152403_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151245_| + (define |gx[1]#_g152406_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151248_| + (define |gx[1]#_g152409_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151254_| + (define |gx[1]#_g152415_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151257_| + (define |gx[1]#_g152418_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151260_| + (define |gx[1]#_g152421_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151263_| + (define |gx[1]#_g152424_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g151265_| + (define |gx[1]#_g152426_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151267_| + (define |gx[1]#_g152428_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g151269_| + (define |gx[1]#_g152430_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151275_| + (define |gx[1]#_g152436_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151278_| + (define |gx[1]#_g152439_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151281_| + (define |gx[1]#_g152442_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151287_| + (define |gx[1]#_g152448_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151290_| + (define |gx[1]#_g152451_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151293_| + (define |gx[1]#_g152454_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151299_| + (define |gx[1]#_g152460_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151302_| + (define |gx[1]#_g152463_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g151305_| + (define |gx[1]#_g152466_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g151311_| + (define |gx[1]#_g152472_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151314_| + (define |gx[1]#_g152475_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151317_| + (define |gx[1]#_g152478_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151321_| + (define |gx[1]#_g152482_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151323_| + (define |gx[1]#_g152484_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151325_| + (define |gx[1]#_g152486_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151329_| + (define |gx[1]#_g152490_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151333_| + (define |gx[1]#_g152494_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151337_| + (define |gx[1]#_g152498_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151341_| + (define |gx[1]#_g152502_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151344_| + (define |gx[1]#_g152505_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151346_| + (define |gx[1]#_g152507_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151348_| + (define |gx[1]#_g152509_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151350_| + (define |gx[1]#_g152511_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151354_| + (define |gx[1]#_g152515_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151358_| + (define |gx[1]#_g152519_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151362_| + (define |gx[1]#_g152523_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151366_| + (define |gx[1]#_g152527_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151370_| + (define |gx[1]#_g152531_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151372_| + (define |gx[1]#_g152533_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151374_| + (define |gx[1]#_g152535_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151378_| + (define |gx[1]#_g152539_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151382_| + (define |gx[1]#_g152543_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151386_| + (define |gx[1]#_g152547_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151390_| + (define |gx[1]#_g152551_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151394_| + (define |gx[1]#_g152555_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151396_| + (define |gx[1]#_g152557_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151398_| + (define |gx[1]#_g152559_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151402_| + (define |gx[1]#_g152563_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151406_| + (define |gx[1]#_g152567_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151410_| + (define |gx[1]#_g152571_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151414_| + (define |gx[1]#_g152575_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151417_| + (define |gx[1]#_g152578_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151419_| + (define |gx[1]#_g152580_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151421_| + (define |gx[1]#_g152582_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151423_| + (define |gx[1]#_g152584_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151427_| + (define |gx[1]#_g152588_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151431_| + (define |gx[1]#_g152592_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151435_| + (define |gx[1]#_g152596_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151439_| + (define |gx[1]#_g152600_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151443_| + (define |gx[1]#_g152604_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151445_| + (define |gx[1]#_g152606_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g151447_| + (define |gx[1]#_g152608_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151453_| + (define |gx[1]#_g152614_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151456_| + (define |gx[1]#_g152617_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151459_| + (define |gx[1]#_g152620_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151465_| + (define |gx[1]#_g152626_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151468_| + (define |gx[1]#_g152629_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151471_| + (define |gx[1]#_g152632_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151477_| + (define |gx[1]#_g152638_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g151480_| + (define |gx[1]#_g152641_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151483_| + (define |gx[1]#_g152644_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151489_| + (define |gx[1]#_g152650_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151492_| + (define |gx[1]#_g152653_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151495_| + (define |gx[1]#_g152656_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151497_| + (define |gx[1]#_g152658_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g151499_| + (define |gx[1]#_g152660_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g151501_| + (define |gx[1]#_g152662_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g151508_| + (define |gx[1]#_g152669_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g151511_| + (define |gx[1]#_g152672_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151514_| + (define |gx[1]#_g152675_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151517_| + (define |gx[1]#_g152678_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g151524_| + (define |gx[1]#_g152685_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151527_| + (define |gx[1]#_g152688_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151530_| + (define |gx[1]#_g152691_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151533_| + (define |gx[1]#_g152694_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151540_| + (define |gx[1]#_g152701_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g151543_| + (define |gx[1]#_g152704_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g151546_| + (define |gx[1]#_g152707_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g151549_| + (define |gx[1]#_g152710_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g151556_| + (define |gx[1]#_g152717_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151559_| + (define |gx[1]#_g152720_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151562_| + (define |gx[1]#_g152723_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g151565_| + (define |gx[1]#_g152726_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj149608 + (let ((__obj150769 (let () (declare (not safe)) (##structure @@ -3590,11 +3590,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 + __obj150769 'gx#expander-context::t '1 gerbil/core$$#class-type-info::t @@ -3602,7 +3603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 + __obj150769 'expander-context '2 gerbil/core$$#class-type-info::t @@ -3610,7 +3611,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 + __obj150769 '(id table) '4 gerbil/core$$#class-type-info::t @@ -3618,7 +3619,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 + __obj150769 '() '3 gerbil/core$$#class-type-info::t @@ -3626,7 +3627,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 + __obj150769 '#t '5 gerbil/core$$#class-type-info::t @@ -3634,7 +3635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 + __obj150769 '#f '6 gerbil/core$$#class-type-info::t @@ -3642,122 +3643,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 - ':init! + __obj150769 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149690 |gx[1]#_g149691_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149608 - __tmp149690 + __obj150769 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149692 |gx[1]#_g149693_|)) + (let ((__tmp150851 |gx[1]#_g150852_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149608 - __tmp149692 + __obj150769 + __tmp150851 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149694 |gx[1]#_g149695_|)) + (let ((__tmp150853 |gx[1]#_g150854_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149608 - __tmp149694 + __obj150769 + __tmp150853 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149696 - (let ((__tmp149701 - (let ((__tmp149702 |gx[1]#_g149703_|)) - (declare (not safe)) - (cons 'id __tmp149702))) - (__tmp149697 - (let ((__tmp149698 - (let ((__tmp149699 |gx[1]#_g149700_|)) - (declare (not safe)) - (cons 'table __tmp149699)))) - (declare (not safe)) - (cons __tmp149698 '())))) - (declare (not safe)) - (cons __tmp149701 __tmp149697)))) + (let ((__tmp150855 |gx[1]#_g150856_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149608 - __tmp149696 + __obj150769 + __tmp150855 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149704 - (let ((__tmp149709 - (let ((__tmp149710 |gx[1]#_g149711_|)) + (let ((__tmp150857 + (let ((__tmp150862 + (let ((__tmp150863 |gx[1]#_g150864_|)) (declare (not safe)) - (cons 'id __tmp149710))) - (__tmp149705 - (let ((__tmp149706 - (let ((__tmp149707 |gx[1]#_g149708_|)) + (cons 'id __tmp150863))) + (__tmp150858 + (let ((__tmp150859 + (let ((__tmp150860 |gx[1]#_g150861_|)) (declare (not safe)) - (cons 'table __tmp149707)))) + (cons 'table __tmp150860)))) (declare (not safe)) - (cons __tmp149706 '())))) + (cons __tmp150859 '())))) (declare (not safe)) - (cons __tmp149709 __tmp149705)))) + (cons __tmp150862 __tmp150858)))) (declare (not safe)) (##unchecked-structure-set! - __obj149608 - __tmp149704 + __obj150769 + __tmp150857 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149712 - (let ((__tmp149717 - (let ((__tmp149718 |gx[1]#_g149719_|)) + (let ((__tmp150865 + (let ((__tmp150870 + (let ((__tmp150871 |gx[1]#_g150872_|)) (declare (not safe)) - (cons 'id __tmp149718))) - (__tmp149713 - (let ((__tmp149714 - (let ((__tmp149715 |gx[1]#_g149716_|)) + (cons 'id __tmp150871))) + (__tmp150866 + (let ((__tmp150867 + (let ((__tmp150868 |gx[1]#_g150869_|)) (declare (not safe)) - (cons 'table __tmp149715)))) + (cons 'table __tmp150868)))) (declare (not safe)) - (cons __tmp149714 '())))) + (cons __tmp150867 '())))) (declare (not safe)) - (cons __tmp149717 __tmp149713)))) + (cons __tmp150870 __tmp150866)))) (declare (not safe)) (##unchecked-structure-set! - __obj149608 - __tmp149712 + __obj150769 + __tmp150865 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149720 - (let ((__tmp149725 - (let ((__tmp149726 |gx[1]#_g149727_|)) + (let ((__tmp150873 + (let ((__tmp150878 + (let ((__tmp150879 |gx[1]#_g150880_|)) (declare (not safe)) - (cons 'id __tmp149726))) - (__tmp149721 - (let ((__tmp149722 - (let ((__tmp149723 |gx[1]#_g149724_|)) + (cons 'id __tmp150879))) + (__tmp150874 + (let ((__tmp150875 + (let ((__tmp150876 |gx[1]#_g150877_|)) (declare (not safe)) - (cons 'table __tmp149723)))) + (cons 'table __tmp150876)))) (declare (not safe)) - (cons __tmp149722 '())))) + (cons __tmp150875 '())))) (declare (not safe)) - (cons __tmp149725 __tmp149721)))) + (cons __tmp150878 __tmp150874)))) (declare (not safe)) (##unchecked-structure-set! - __obj149608 - __tmp149720 + __obj150769 + __tmp150873 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149608)) + (let ((__tmp150881 + (let ((__tmp150886 + (let ((__tmp150887 |gx[1]#_g150888_|)) + (declare (not safe)) + (cons 'id __tmp150887))) + (__tmp150882 + (let ((__tmp150883 + (let ((__tmp150884 |gx[1]#_g150885_|)) + (declare (not safe)) + (cons 'table __tmp150884)))) + (declare (not safe)) + (cons __tmp150883 '())))) + (declare (not safe)) + (cons __tmp150886 __tmp150882)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150769 + __tmp150881 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150769)) (define |gx[:0:]#root-context| - (let ((__obj149609 + (let ((__obj150770 (let () (declare (not safe)) (##structure @@ -3775,11 +3784,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149609 + __obj150770 'gx#root-context::t '1 gerbil/core$$#class-type-info::t @@ -3787,7 +3797,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149609 + __obj150770 'root-context '2 gerbil/core$$#class-type-info::t @@ -3795,26 +3805,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149609 + __obj150770 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149728 - (let ((__tmp149729 |gx[1]#_g149730_|)) + (let ((__tmp150889 + (let ((__tmp150890 |gx[1]#_g150891_|)) (declare (not safe)) - (cons __tmp149729 '())))) + (cons __tmp150890 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149728 + __obj150770 + __tmp150889 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149609 + __obj150770 '#t '5 gerbil/core$$#class-type-info::t @@ -3822,7 +3832,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149609 + __obj150770 '#f '6 gerbil/core$$#class-type-info::t @@ -3830,122 +3840,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149609 + __obj150770 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149731 |gx[1]#_g149732_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149731 + __obj150770 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149733 |gx[1]#_g149734_|)) + (let ((__tmp150892 |gx[1]#_g150893_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149733 + __obj150770 + __tmp150892 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149735 |gx[1]#_g149736_|)) + (let ((__tmp150894 |gx[1]#_g150895_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149735 + __obj150770 + __tmp150894 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149737 - (let ((__tmp149742 - (let ((__tmp149743 |gx[1]#_g149744_|)) - (declare (not safe)) - (cons 'id __tmp149743))) - (__tmp149738 - (let ((__tmp149739 - (let ((__tmp149740 |gx[1]#_g149741_|)) - (declare (not safe)) - (cons 'table __tmp149740)))) - (declare (not safe)) - (cons __tmp149739 '())))) - (declare (not safe)) - (cons __tmp149742 __tmp149738)))) + (let ((__tmp150896 |gx[1]#_g150897_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149737 + __obj150770 + __tmp150896 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149745 - (let ((__tmp149750 - (let ((__tmp149751 |gx[1]#_g149752_|)) + (let ((__tmp150898 + (let ((__tmp150903 + (let ((__tmp150904 |gx[1]#_g150905_|)) (declare (not safe)) - (cons 'id __tmp149751))) - (__tmp149746 - (let ((__tmp149747 - (let ((__tmp149748 |gx[1]#_g149749_|)) + (cons 'id __tmp150904))) + (__tmp150899 + (let ((__tmp150900 + (let ((__tmp150901 |gx[1]#_g150902_|)) (declare (not safe)) - (cons 'table __tmp149748)))) + (cons 'table __tmp150901)))) (declare (not safe)) - (cons __tmp149747 '())))) + (cons __tmp150900 '())))) (declare (not safe)) - (cons __tmp149750 __tmp149746)))) + (cons __tmp150903 __tmp150899)))) (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149745 + __obj150770 + __tmp150898 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149753 - (let ((__tmp149758 - (let ((__tmp149759 |gx[1]#_g149760_|)) + (let ((__tmp150906 + (let ((__tmp150911 + (let ((__tmp150912 |gx[1]#_g150913_|)) (declare (not safe)) - (cons 'id __tmp149759))) - (__tmp149754 - (let ((__tmp149755 - (let ((__tmp149756 |gx[1]#_g149757_|)) + (cons 'id __tmp150912))) + (__tmp150907 + (let ((__tmp150908 + (let ((__tmp150909 |gx[1]#_g150910_|)) (declare (not safe)) - (cons 'table __tmp149756)))) + (cons 'table __tmp150909)))) (declare (not safe)) - (cons __tmp149755 '())))) + (cons __tmp150908 '())))) (declare (not safe)) - (cons __tmp149758 __tmp149754)))) + (cons __tmp150911 __tmp150907)))) (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149753 + __obj150770 + __tmp150906 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149761 - (let ((__tmp149766 - (let ((__tmp149767 |gx[1]#_g149768_|)) + (let ((__tmp150914 + (let ((__tmp150919 + (let ((__tmp150920 |gx[1]#_g150921_|)) (declare (not safe)) - (cons 'id __tmp149767))) - (__tmp149762 - (let ((__tmp149763 - (let ((__tmp149764 |gx[1]#_g149765_|)) + (cons 'id __tmp150920))) + (__tmp150915 + (let ((__tmp150916 + (let ((__tmp150917 |gx[1]#_g150918_|)) (declare (not safe)) - (cons 'table __tmp149764)))) + (cons 'table __tmp150917)))) (declare (not safe)) - (cons __tmp149763 '())))) + (cons __tmp150916 '())))) (declare (not safe)) - (cons __tmp149766 __tmp149762)))) + (cons __tmp150919 __tmp150915)))) (declare (not safe)) (##unchecked-structure-set! - __obj149609 - __tmp149761 + __obj150770 + __tmp150914 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149609)) + (let ((__tmp150922 + (let ((__tmp150927 + (let ((__tmp150928 |gx[1]#_g150929_|)) + (declare (not safe)) + (cons 'id __tmp150928))) + (__tmp150923 + (let ((__tmp150924 + (let ((__tmp150925 |gx[1]#_g150926_|)) + (declare (not safe)) + (cons 'table __tmp150925)))) + (declare (not safe)) + (cons __tmp150924 '())))) + (declare (not safe)) + (cons __tmp150927 __tmp150923)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150770 + __tmp150922 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150770)) (define |gx[:0:]#phi-context| - (let ((__obj149610 + (let ((__obj150771 (let () (declare (not safe)) (##structure @@ -3963,11 +3981,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149610 + __obj150771 'gx#context-phi::t '1 gerbil/core$$#class-type-info::t @@ -3975,7 +3994,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149610 + __obj150771 'phi-context '2 gerbil/core$$#class-type-info::t @@ -3983,26 +4002,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149610 + __obj150771 '(super up down) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149769 - (let ((__tmp149770 |gx[1]#_g149730_|)) + (let ((__tmp150930 + (let ((__tmp150931 |gx[1]#_g150891_|)) (declare (not safe)) - (cons __tmp149770 '())))) + (cons __tmp150931 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149769 + __obj150771 + __tmp150930 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149610 + __obj150771 '#t '5 gerbil/core$$#class-type-info::t @@ -4010,7 +4029,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149610 + __obj150771 '#f '6 gerbil/core$$#class-type-info::t @@ -4018,218 +4037,226 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149610 + __obj150771 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149771 |gx[1]#_g149772_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149771 + __obj150771 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149773 |gx[1]#_g149774_|)) + (let ((__tmp150932 |gx[1]#_g150933_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149773 + __obj150771 + __tmp150932 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149775 |gx[1]#_g149776_|)) + (let ((__tmp150934 |gx[1]#_g150935_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149775 + __obj150771 + __tmp150934 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149777 - (let ((__tmp149794 - (let ((__tmp149795 |gx[1]#_g149796_|)) + (let ((__tmp150936 |gx[1]#_g150937_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150771 + __tmp150936 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp150938 + (let ((__tmp150955 + (let ((__tmp150956 |gx[1]#_g150957_|)) (declare (not safe)) - (cons 'super __tmp149795))) - (__tmp149778 - (let ((__tmp149791 - (let ((__tmp149792 |gx[1]#_g149793_|)) + (cons 'super __tmp150956))) + (__tmp150939 + (let ((__tmp150952 + (let ((__tmp150953 |gx[1]#_g150954_|)) (declare (not safe)) - (cons 'up __tmp149792))) - (__tmp149779 - (let ((__tmp149788 - (let ((__tmp149789 |gx[1]#_g149790_|)) + (cons 'up __tmp150953))) + (__tmp150940 + (let ((__tmp150949 + (let ((__tmp150950 |gx[1]#_g150951_|)) (declare (not safe)) - (cons 'down __tmp149789))) - (__tmp149780 - (let ((__tmp149785 - (let ((__tmp149786 - |gx[1]#_g149787_|)) + (cons 'down __tmp150950))) + (__tmp150941 + (let ((__tmp150946 + (let ((__tmp150947 + |gx[1]#_g150948_|)) (declare (not safe)) - (cons 'id __tmp149786))) - (__tmp149781 - (let ((__tmp149782 - (let ((__tmp149783 - |gx[1]#_g149784_|)) + (cons 'id __tmp150947))) + (__tmp150942 + (let ((__tmp150943 + (let ((__tmp150944 + |gx[1]#_g150945_|)) (declare (not safe)) (cons 'table - __tmp149783)))) + __tmp150944)))) (declare (not safe)) - (cons __tmp149782 '())))) + (cons __tmp150943 '())))) (declare (not safe)) - (cons __tmp149785 __tmp149781)))) + (cons __tmp150946 __tmp150942)))) (declare (not safe)) - (cons __tmp149788 __tmp149780)))) + (cons __tmp150949 __tmp150941)))) (declare (not safe)) - (cons __tmp149791 __tmp149779)))) + (cons __tmp150952 __tmp150940)))) (declare (not safe)) - (cons __tmp149794 __tmp149778)))) + (cons __tmp150955 __tmp150939)))) (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149777 - '11 + __obj150771 + __tmp150938 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149797 - (let ((__tmp149814 - (let ((__tmp149815 |gx[1]#_g149816_|)) + (let ((__tmp150958 + (let ((__tmp150975 + (let ((__tmp150976 |gx[1]#_g150977_|)) (declare (not safe)) - (cons 'super __tmp149815))) - (__tmp149798 - (let ((__tmp149811 - (let ((__tmp149812 |gx[1]#_g149813_|)) - (declare (not safe)) - (cons 'up __tmp149812))) - (__tmp149799 - (let ((__tmp149808 - (let ((__tmp149809 |gx[1]#_g149810_|)) - (declare (not safe)) - (cons 'down __tmp149809))) - (__tmp149800 - (let ((__tmp149805 - (let ((__tmp149806 - |gx[1]#_g149807_|)) + (cons 'super __tmp150976))) + (__tmp150959 + (let ((__tmp150972 + (let ((__tmp150973 |gx[1]#_g150974_|)) + (declare (not safe)) + (cons 'up __tmp150973))) + (__tmp150960 + (let ((__tmp150969 + (let ((__tmp150970 |gx[1]#_g150971_|)) + (declare (not safe)) + (cons 'down __tmp150970))) + (__tmp150961 + (let ((__tmp150966 + (let ((__tmp150967 + |gx[1]#_g150968_|)) (declare (not safe)) - (cons 'id __tmp149806))) - (__tmp149801 - (let ((__tmp149802 - (let ((__tmp149803 - |gx[1]#_g149804_|)) + (cons 'id __tmp150967))) + (__tmp150962 + (let ((__tmp150963 + (let ((__tmp150964 + |gx[1]#_g150965_|)) (declare (not safe)) (cons 'table - __tmp149803)))) + __tmp150964)))) (declare (not safe)) - (cons __tmp149802 '())))) + (cons __tmp150963 '())))) (declare (not safe)) - (cons __tmp149805 __tmp149801)))) + (cons __tmp150966 __tmp150962)))) (declare (not safe)) - (cons __tmp149808 __tmp149800)))) + (cons __tmp150969 __tmp150961)))) (declare (not safe)) - (cons __tmp149811 __tmp149799)))) + (cons __tmp150972 __tmp150960)))) (declare (not safe)) - (cons __tmp149814 __tmp149798)))) + (cons __tmp150975 __tmp150959)))) (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149797 - '12 + __obj150771 + __tmp150958 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149817 - (let ((__tmp149834 - (let ((__tmp149835 |gx[1]#_g149836_|)) - (declare (not safe)) - (cons 'super __tmp149835))) - (__tmp149818 - (let ((__tmp149831 - (let ((__tmp149832 |gx[1]#_g149833_|)) - (declare (not safe)) - (cons 'up __tmp149832))) - (__tmp149819 - (let ((__tmp149828 - (let ((__tmp149829 |gx[1]#_g149830_|)) - (declare (not safe)) - (cons 'down __tmp149829))) - (__tmp149820 - (let ((__tmp149825 - (let ((__tmp149826 - |gx[1]#_g149827_|)) + (let ((__tmp150978 + (let ((__tmp150995 + (let ((__tmp150996 |gx[1]#_g150997_|)) + (declare (not safe)) + (cons 'super __tmp150996))) + (__tmp150979 + (let ((__tmp150992 + (let ((__tmp150993 |gx[1]#_g150994_|)) + (declare (not safe)) + (cons 'up __tmp150993))) + (__tmp150980 + (let ((__tmp150989 + (let ((__tmp150990 |gx[1]#_g150991_|)) + (declare (not safe)) + (cons 'down __tmp150990))) + (__tmp150981 + (let ((__tmp150986 + (let ((__tmp150987 + |gx[1]#_g150988_|)) (declare (not safe)) - (cons 'id __tmp149826))) - (__tmp149821 - (let ((__tmp149822 - (let ((__tmp149823 - |gx[1]#_g149824_|)) + (cons 'id __tmp150987))) + (__tmp150982 + (let ((__tmp150983 + (let ((__tmp150984 + |gx[1]#_g150985_|)) (declare (not safe)) (cons 'table - __tmp149823)))) + __tmp150984)))) (declare (not safe)) - (cons __tmp149822 '())))) + (cons __tmp150983 '())))) (declare (not safe)) - (cons __tmp149825 __tmp149821)))) + (cons __tmp150986 __tmp150982)))) (declare (not safe)) - (cons __tmp149828 __tmp149820)))) + (cons __tmp150989 __tmp150981)))) (declare (not safe)) - (cons __tmp149831 __tmp149819)))) + (cons __tmp150992 __tmp150980)))) (declare (not safe)) - (cons __tmp149834 __tmp149818)))) + (cons __tmp150995 __tmp150979)))) (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149817 - '13 + __obj150771 + __tmp150978 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149837 - (let ((__tmp149854 - (let ((__tmp149855 |gx[1]#_g149856_|)) + (let ((__tmp150998 + (let ((__tmp151015 + (let ((__tmp151016 |gx[1]#_g151017_|)) (declare (not safe)) - (cons 'super __tmp149855))) - (__tmp149838 - (let ((__tmp149851 - (let ((__tmp149852 |gx[1]#_g149853_|)) + (cons 'super __tmp151016))) + (__tmp150999 + (let ((__tmp151012 + (let ((__tmp151013 |gx[1]#_g151014_|)) (declare (not safe)) - (cons 'up __tmp149852))) - (__tmp149839 - (let ((__tmp149848 - (let ((__tmp149849 |gx[1]#_g149850_|)) + (cons 'up __tmp151013))) + (__tmp151000 + (let ((__tmp151009 + (let ((__tmp151010 |gx[1]#_g151011_|)) (declare (not safe)) - (cons 'down __tmp149849))) - (__tmp149840 - (let ((__tmp149845 - (let ((__tmp149846 - |gx[1]#_g149847_|)) + (cons 'down __tmp151010))) + (__tmp151001 + (let ((__tmp151006 + (let ((__tmp151007 + |gx[1]#_g151008_|)) (declare (not safe)) - (cons 'id __tmp149846))) - (__tmp149841 - (let ((__tmp149842 - (let ((__tmp149843 - |gx[1]#_g149844_|)) + (cons 'id __tmp151007))) + (__tmp151002 + (let ((__tmp151003 + (let ((__tmp151004 + |gx[1]#_g151005_|)) (declare (not safe)) (cons 'table - __tmp149843)))) + __tmp151004)))) (declare (not safe)) - (cons __tmp149842 '())))) + (cons __tmp151003 '())))) (declare (not safe)) - (cons __tmp149845 __tmp149841)))) + (cons __tmp151006 __tmp151002)))) (declare (not safe)) - (cons __tmp149848 __tmp149840)))) + (cons __tmp151009 __tmp151001)))) (declare (not safe)) - (cons __tmp149851 __tmp149839)))) + (cons __tmp151012 __tmp151000)))) (declare (not safe)) - (cons __tmp149854 __tmp149838)))) + (cons __tmp151015 __tmp150999)))) (declare (not safe)) (##unchecked-structure-set! - __obj149610 - __tmp149837 - '14 + __obj150771 + __tmp150998 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149610)) + __obj150771)) (define |gx[:0:]#top-context| - (let ((__obj149611 + (let ((__obj150772 (let () (declare (not safe)) (##structure @@ -4247,11 +4274,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149611 + __obj150772 'gx#top-context::t '1 gerbil/core$$#class-type-info::t @@ -4259,7 +4287,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149611 + __obj150772 'top-context '2 gerbil/core$$#class-type-info::t @@ -4267,26 +4295,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149611 + __obj150772 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149857 - (let ((__tmp149858 |gx[1]#_g149859_|)) + (let ((__tmp151018 + (let ((__tmp151019 |gx[1]#_g151020_|)) (declare (not safe)) - (cons __tmp149858 '())))) + (cons __tmp151019 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149857 + __obj150772 + __tmp151018 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149611 + __obj150772 '#t '5 gerbil/core$$#class-type-info::t @@ -4294,7 +4322,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149611 + __obj150772 '#f '6 gerbil/core$$#class-type-info::t @@ -4302,218 +4330,226 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149611 + __obj150772 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149860 |gx[1]#_g149861_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149860 + __obj150772 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149862 |gx[1]#_g149863_|)) + (let ((__tmp151021 |gx[1]#_g151022_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149862 + __obj150772 + __tmp151021 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149864 |gx[1]#_g149865_|)) + (let ((__tmp151023 |gx[1]#_g151024_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149864 + __obj150772 + __tmp151023 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149866 - (let ((__tmp149883 - (let ((__tmp149884 |gx[1]#_g149885_|)) + (let ((__tmp151025 |gx[1]#_g151026_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150772 + __tmp151025 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151027 + (let ((__tmp151044 + (let ((__tmp151045 |gx[1]#_g151046_|)) (declare (not safe)) - (cons 'super __tmp149884))) - (__tmp149867 - (let ((__tmp149880 - (let ((__tmp149881 |gx[1]#_g149882_|)) + (cons 'super __tmp151045))) + (__tmp151028 + (let ((__tmp151041 + (let ((__tmp151042 |gx[1]#_g151043_|)) (declare (not safe)) - (cons 'up __tmp149881))) - (__tmp149868 - (let ((__tmp149877 - (let ((__tmp149878 |gx[1]#_g149879_|)) + (cons 'up __tmp151042))) + (__tmp151029 + (let ((__tmp151038 + (let ((__tmp151039 |gx[1]#_g151040_|)) (declare (not safe)) - (cons 'down __tmp149878))) - (__tmp149869 - (let ((__tmp149874 - (let ((__tmp149875 - |gx[1]#_g149876_|)) + (cons 'down __tmp151039))) + (__tmp151030 + (let ((__tmp151035 + (let ((__tmp151036 + |gx[1]#_g151037_|)) (declare (not safe)) - (cons 'id __tmp149875))) - (__tmp149870 - (let ((__tmp149871 - (let ((__tmp149872 - |gx[1]#_g149873_|)) + (cons 'id __tmp151036))) + (__tmp151031 + (let ((__tmp151032 + (let ((__tmp151033 + |gx[1]#_g151034_|)) (declare (not safe)) (cons 'table - __tmp149872)))) + __tmp151033)))) (declare (not safe)) - (cons __tmp149871 '())))) + (cons __tmp151032 '())))) (declare (not safe)) - (cons __tmp149874 __tmp149870)))) + (cons __tmp151035 __tmp151031)))) (declare (not safe)) - (cons __tmp149877 __tmp149869)))) + (cons __tmp151038 __tmp151030)))) (declare (not safe)) - (cons __tmp149880 __tmp149868)))) + (cons __tmp151041 __tmp151029)))) (declare (not safe)) - (cons __tmp149883 __tmp149867)))) + (cons __tmp151044 __tmp151028)))) (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149866 - '11 + __obj150772 + __tmp151027 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149886 - (let ((__tmp149903 - (let ((__tmp149904 |gx[1]#_g149905_|)) + (let ((__tmp151047 + (let ((__tmp151064 + (let ((__tmp151065 |gx[1]#_g151066_|)) (declare (not safe)) - (cons 'super __tmp149904))) - (__tmp149887 - (let ((__tmp149900 - (let ((__tmp149901 |gx[1]#_g149902_|)) + (cons 'super __tmp151065))) + (__tmp151048 + (let ((__tmp151061 + (let ((__tmp151062 |gx[1]#_g151063_|)) (declare (not safe)) - (cons 'up __tmp149901))) - (__tmp149888 - (let ((__tmp149897 - (let ((__tmp149898 |gx[1]#_g149899_|)) + (cons 'up __tmp151062))) + (__tmp151049 + (let ((__tmp151058 + (let ((__tmp151059 |gx[1]#_g151060_|)) (declare (not safe)) - (cons 'down __tmp149898))) - (__tmp149889 - (let ((__tmp149894 - (let ((__tmp149895 - |gx[1]#_g149896_|)) + (cons 'down __tmp151059))) + (__tmp151050 + (let ((__tmp151055 + (let ((__tmp151056 + |gx[1]#_g151057_|)) (declare (not safe)) - (cons 'id __tmp149895))) - (__tmp149890 - (let ((__tmp149891 - (let ((__tmp149892 - |gx[1]#_g149893_|)) + (cons 'id __tmp151056))) + (__tmp151051 + (let ((__tmp151052 + (let ((__tmp151053 + |gx[1]#_g151054_|)) (declare (not safe)) (cons 'table - __tmp149892)))) + __tmp151053)))) (declare (not safe)) - (cons __tmp149891 '())))) + (cons __tmp151052 '())))) (declare (not safe)) - (cons __tmp149894 __tmp149890)))) + (cons __tmp151055 __tmp151051)))) (declare (not safe)) - (cons __tmp149897 __tmp149889)))) + (cons __tmp151058 __tmp151050)))) (declare (not safe)) - (cons __tmp149900 __tmp149888)))) + (cons __tmp151061 __tmp151049)))) (declare (not safe)) - (cons __tmp149903 __tmp149887)))) + (cons __tmp151064 __tmp151048)))) (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149886 - '12 + __obj150772 + __tmp151047 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149906 - (let ((__tmp149923 - (let ((__tmp149924 |gx[1]#_g149925_|)) + (let ((__tmp151067 + (let ((__tmp151084 + (let ((__tmp151085 |gx[1]#_g151086_|)) (declare (not safe)) - (cons 'super __tmp149924))) - (__tmp149907 - (let ((__tmp149920 - (let ((__tmp149921 |gx[1]#_g149922_|)) + (cons 'super __tmp151085))) + (__tmp151068 + (let ((__tmp151081 + (let ((__tmp151082 |gx[1]#_g151083_|)) (declare (not safe)) - (cons 'up __tmp149921))) - (__tmp149908 - (let ((__tmp149917 - (let ((__tmp149918 |gx[1]#_g149919_|)) + (cons 'up __tmp151082))) + (__tmp151069 + (let ((__tmp151078 + (let ((__tmp151079 |gx[1]#_g151080_|)) (declare (not safe)) - (cons 'down __tmp149918))) - (__tmp149909 - (let ((__tmp149914 - (let ((__tmp149915 - |gx[1]#_g149916_|)) + (cons 'down __tmp151079))) + (__tmp151070 + (let ((__tmp151075 + (let ((__tmp151076 + |gx[1]#_g151077_|)) (declare (not safe)) - (cons 'id __tmp149915))) - (__tmp149910 - (let ((__tmp149911 - (let ((__tmp149912 - |gx[1]#_g149913_|)) + (cons 'id __tmp151076))) + (__tmp151071 + (let ((__tmp151072 + (let ((__tmp151073 + |gx[1]#_g151074_|)) (declare (not safe)) (cons 'table - __tmp149912)))) + __tmp151073)))) (declare (not safe)) - (cons __tmp149911 '())))) + (cons __tmp151072 '())))) (declare (not safe)) - (cons __tmp149914 __tmp149910)))) + (cons __tmp151075 __tmp151071)))) (declare (not safe)) - (cons __tmp149917 __tmp149909)))) + (cons __tmp151078 __tmp151070)))) (declare (not safe)) - (cons __tmp149920 __tmp149908)))) + (cons __tmp151081 __tmp151069)))) (declare (not safe)) - (cons __tmp149923 __tmp149907)))) + (cons __tmp151084 __tmp151068)))) (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149906 - '13 + __obj150772 + __tmp151067 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149926 - (let ((__tmp149943 - (let ((__tmp149944 |gx[1]#_g149945_|)) + (let ((__tmp151087 + (let ((__tmp151104 + (let ((__tmp151105 |gx[1]#_g151106_|)) (declare (not safe)) - (cons 'super __tmp149944))) - (__tmp149927 - (let ((__tmp149940 - (let ((__tmp149941 |gx[1]#_g149942_|)) + (cons 'super __tmp151105))) + (__tmp151088 + (let ((__tmp151101 + (let ((__tmp151102 |gx[1]#_g151103_|)) (declare (not safe)) - (cons 'up __tmp149941))) - (__tmp149928 - (let ((__tmp149937 - (let ((__tmp149938 |gx[1]#_g149939_|)) + (cons 'up __tmp151102))) + (__tmp151089 + (let ((__tmp151098 + (let ((__tmp151099 |gx[1]#_g151100_|)) (declare (not safe)) - (cons 'down __tmp149938))) - (__tmp149929 - (let ((__tmp149934 - (let ((__tmp149935 - |gx[1]#_g149936_|)) + (cons 'down __tmp151099))) + (__tmp151090 + (let ((__tmp151095 + (let ((__tmp151096 + |gx[1]#_g151097_|)) (declare (not safe)) - (cons 'id __tmp149935))) - (__tmp149930 - (let ((__tmp149931 - (let ((__tmp149932 - |gx[1]#_g149933_|)) + (cons 'id __tmp151096))) + (__tmp151091 + (let ((__tmp151092 + (let ((__tmp151093 + |gx[1]#_g151094_|)) (declare (not safe)) (cons 'table - __tmp149932)))) + __tmp151093)))) (declare (not safe)) - (cons __tmp149931 '())))) + (cons __tmp151092 '())))) (declare (not safe)) - (cons __tmp149934 __tmp149930)))) + (cons __tmp151095 __tmp151091)))) (declare (not safe)) - (cons __tmp149937 __tmp149929)))) + (cons __tmp151098 __tmp151090)))) (declare (not safe)) - (cons __tmp149940 __tmp149928)))) + (cons __tmp151101 __tmp151089)))) (declare (not safe)) - (cons __tmp149943 __tmp149927)))) + (cons __tmp151104 __tmp151088)))) (declare (not safe)) (##unchecked-structure-set! - __obj149611 - __tmp149926 - '14 + __obj150772 + __tmp151087 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149611)) + __obj150772)) (define |gx[:0:]#module-context| - (let ((__obj149612 + (let ((__obj150773 (let () (declare (not safe)) (##structure @@ -4531,11 +4567,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149612 + __obj150773 'gx#module-context::t '1 gerbil/core$$#class-type-info::t @@ -4543,7 +4580,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149612 + __obj150773 'module-context '2 gerbil/core$$#class-type-info::t @@ -4551,26 +4588,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149612 + __obj150773 '(ns path import export e code) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149946 - (let ((__tmp149947 |gx[1]#_g149948_|)) + (let ((__tmp151107 + (let ((__tmp151108 |gx[1]#_g151109_|)) (declare (not safe)) - (cons __tmp149947 '())))) + (cons __tmp151108 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp149946 + __obj150773 + __tmp151107 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149612 + __obj150773 '#t '5 gerbil/core$$#class-type-info::t @@ -4578,7 +4615,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149612 + __obj150773 '#f '6 gerbil/core$$#class-type-info::t @@ -4586,414 +4623,422 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149612 + __obj150773 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149949 |gx[1]#_g149950_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp149949 + __obj150773 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149951 |gx[1]#_g149952_|)) + (let ((__tmp151110 |gx[1]#_g151111_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp149951 + __obj150773 + __tmp151110 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149953 |gx[1]#_g149954_|)) + (let ((__tmp151112 |gx[1]#_g151113_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp149953 + __obj150773 + __tmp151112 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149955 - (let ((__tmp149996 - (let ((__tmp149997 |gx[1]#_g149998_|)) + (let ((__tmp151114 |gx[1]#_g151115_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150773 + __tmp151114 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151116 + (let ((__tmp151157 + (let ((__tmp151158 |gx[1]#_g151159_|)) (declare (not safe)) - (cons 'ns __tmp149997))) - (__tmp149956 - (let ((__tmp149993 - (let ((__tmp149994 |gx[1]#_g149995_|)) + (cons 'ns __tmp151158))) + (__tmp151117 + (let ((__tmp151154 + (let ((__tmp151155 |gx[1]#_g151156_|)) (declare (not safe)) - (cons 'path __tmp149994))) - (__tmp149957 - (let ((__tmp149990 - (let ((__tmp149991 |gx[1]#_g149992_|)) + (cons 'path __tmp151155))) + (__tmp151118 + (let ((__tmp151151 + (let ((__tmp151152 |gx[1]#_g151153_|)) (declare (not safe)) - (cons 'import __tmp149991))) - (__tmp149958 - (let ((__tmp149987 - (let ((__tmp149988 - |gx[1]#_g149989_|)) + (cons 'import __tmp151152))) + (__tmp151119 + (let ((__tmp151148 + (let ((__tmp151149 + |gx[1]#_g151150_|)) (declare (not safe)) - (cons 'export __tmp149988))) - (__tmp149959 - (let ((__tmp149984 - (let ((__tmp149985 - |gx[1]#_g149986_|)) + (cons 'export __tmp151149))) + (__tmp151120 + (let ((__tmp151145 + (let ((__tmp151146 + |gx[1]#_g151147_|)) (declare (not safe)) - (cons 'e __tmp149985))) - (__tmp149960 - (let ((__tmp149981 - (let ((__tmp149982 - |gx[1]#_g149983_|)) + (cons 'e __tmp151146))) + (__tmp151121 + (let ((__tmp151142 + (let ((__tmp151143 + |gx[1]#_g151144_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp149982))) - (__tmp149961 - (let ((__tmp149978 - (let ((__tmp149979 |gx[1]#_g149980_|)) + __tmp151143))) + (__tmp151122 + (let ((__tmp151139 + (let ((__tmp151140 |gx[1]#_g151141_|)) (declare (not safe)) - (cons 'super __tmp149979))) - (__tmp149962 - (let ((__tmp149975 - (let ((__tmp149976 |gx[1]#_g149977_|)) + (cons 'super __tmp151140))) + (__tmp151123 + (let ((__tmp151136 + (let ((__tmp151137 |gx[1]#_g151138_|)) (declare (not safe)) - (cons 'up __tmp149976))) - (__tmp149963 - (let ((__tmp149972 - (let ((__tmp149973 |gx[1]#_g149974_|)) + (cons 'up __tmp151137))) + (__tmp151124 + (let ((__tmp151133 + (let ((__tmp151134 |gx[1]#_g151135_|)) (declare (not safe)) - (cons 'down __tmp149973))) - (__tmp149964 - (let ((__tmp149969 - (let ((__tmp149970 - |gx[1]#_g149971_|)) + (cons 'down __tmp151134))) + (__tmp151125 + (let ((__tmp151130 + (let ((__tmp151131 + |gx[1]#_g151132_|)) (declare (not safe)) - (cons 'id __tmp149970))) - (__tmp149965 - (let ((__tmp149966 - (let ((__tmp149967 - |gx[1]#_g149968_|)) + (cons 'id __tmp151131))) + (__tmp151126 + (let ((__tmp151127 + (let ((__tmp151128 + |gx[1]#_g151129_|)) (declare (not safe)) (cons 'table - __tmp149967)))) + __tmp151128)))) (declare (not safe)) - (cons __tmp149966 '())))) + (cons __tmp151127 '())))) (declare (not safe)) - (cons __tmp149969 __tmp149965)))) + (cons __tmp151130 __tmp151126)))) (declare (not safe)) - (cons __tmp149972 __tmp149964)))) + (cons __tmp151133 __tmp151125)))) (declare (not safe)) - (cons __tmp149975 __tmp149963)))) + (cons __tmp151136 __tmp151124)))) (declare (not safe)) - (cons __tmp149978 __tmp149962)))) + (cons __tmp151139 __tmp151123)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp149981 - __tmp149961)))) + (cons __tmp151142 + __tmp151122)))) (declare (not safe)) - (cons __tmp149984 __tmp149960)))) + (cons __tmp151145 __tmp151121)))) (declare (not safe)) - (cons __tmp149987 __tmp149959)))) + (cons __tmp151148 __tmp151120)))) (declare (not safe)) - (cons __tmp149990 __tmp149958)))) + (cons __tmp151151 __tmp151119)))) (declare (not safe)) - (cons __tmp149993 __tmp149957)))) + (cons __tmp151154 __tmp151118)))) (declare (not safe)) - (cons __tmp149996 __tmp149956)))) + (cons __tmp151157 __tmp151117)))) (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp149955 - '11 + __obj150773 + __tmp151116 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp149999 - (let ((__tmp150040 - (let ((__tmp150041 |gx[1]#_g150042_|)) + (let ((__tmp151160 + (let ((__tmp151201 + (let ((__tmp151202 |gx[1]#_g151203_|)) (declare (not safe)) - (cons 'ns __tmp150041))) - (__tmp150000 - (let ((__tmp150037 - (let ((__tmp150038 |gx[1]#_g150039_|)) + (cons 'ns __tmp151202))) + (__tmp151161 + (let ((__tmp151198 + (let ((__tmp151199 |gx[1]#_g151200_|)) (declare (not safe)) - (cons 'path __tmp150038))) - (__tmp150001 - (let ((__tmp150034 - (let ((__tmp150035 |gx[1]#_g150036_|)) + (cons 'path __tmp151199))) + (__tmp151162 + (let ((__tmp151195 + (let ((__tmp151196 |gx[1]#_g151197_|)) (declare (not safe)) - (cons 'import __tmp150035))) - (__tmp150002 - (let ((__tmp150031 - (let ((__tmp150032 - |gx[1]#_g150033_|)) + (cons 'import __tmp151196))) + (__tmp151163 + (let ((__tmp151192 + (let ((__tmp151193 + |gx[1]#_g151194_|)) (declare (not safe)) - (cons 'export __tmp150032))) - (__tmp150003 - (let ((__tmp150028 - (let ((__tmp150029 - |gx[1]#_g150030_|)) + (cons 'export __tmp151193))) + (__tmp151164 + (let ((__tmp151189 + (let ((__tmp151190 + |gx[1]#_g151191_|)) (declare (not safe)) - (cons 'e __tmp150029))) - (__tmp150004 - (let ((__tmp150025 - (let ((__tmp150026 - |gx[1]#_g150027_|)) + (cons 'e __tmp151190))) + (__tmp151165 + (let ((__tmp151186 + (let ((__tmp151187 + |gx[1]#_g151188_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150026))) - (__tmp150005 - (let ((__tmp150022 - (let ((__tmp150023 |gx[1]#_g150024_|)) + __tmp151187))) + (__tmp151166 + (let ((__tmp151183 + (let ((__tmp151184 |gx[1]#_g151185_|)) (declare (not safe)) - (cons 'super __tmp150023))) - (__tmp150006 - (let ((__tmp150019 - (let ((__tmp150020 |gx[1]#_g150021_|)) + (cons 'super __tmp151184))) + (__tmp151167 + (let ((__tmp151180 + (let ((__tmp151181 |gx[1]#_g151182_|)) (declare (not safe)) - (cons 'up __tmp150020))) - (__tmp150007 - (let ((__tmp150016 - (let ((__tmp150017 |gx[1]#_g150018_|)) + (cons 'up __tmp151181))) + (__tmp151168 + (let ((__tmp151177 + (let ((__tmp151178 |gx[1]#_g151179_|)) (declare (not safe)) - (cons 'down __tmp150017))) - (__tmp150008 - (let ((__tmp150013 - (let ((__tmp150014 - |gx[1]#_g150015_|)) + (cons 'down __tmp151178))) + (__tmp151169 + (let ((__tmp151174 + (let ((__tmp151175 + |gx[1]#_g151176_|)) (declare (not safe)) - (cons 'id __tmp150014))) - (__tmp150009 - (let ((__tmp150010 - (let ((__tmp150011 - |gx[1]#_g150012_|)) + (cons 'id __tmp151175))) + (__tmp151170 + (let ((__tmp151171 + (let ((__tmp151172 + |gx[1]#_g151173_|)) (declare (not safe)) (cons 'table - __tmp150011)))) + __tmp151172)))) (declare (not safe)) - (cons __tmp150010 '())))) + (cons __tmp151171 '())))) (declare (not safe)) - (cons __tmp150013 __tmp150009)))) + (cons __tmp151174 __tmp151170)))) (declare (not safe)) - (cons __tmp150016 __tmp150008)))) + (cons __tmp151177 __tmp151169)))) (declare (not safe)) - (cons __tmp150019 __tmp150007)))) + (cons __tmp151180 __tmp151168)))) (declare (not safe)) - (cons __tmp150022 __tmp150006)))) + (cons __tmp151183 __tmp151167)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150025 - __tmp150005)))) + (cons __tmp151186 + __tmp151166)))) (declare (not safe)) - (cons __tmp150028 __tmp150004)))) + (cons __tmp151189 __tmp151165)))) (declare (not safe)) - (cons __tmp150031 __tmp150003)))) + (cons __tmp151192 __tmp151164)))) (declare (not safe)) - (cons __tmp150034 __tmp150002)))) + (cons __tmp151195 __tmp151163)))) (declare (not safe)) - (cons __tmp150037 __tmp150001)))) + (cons __tmp151198 __tmp151162)))) (declare (not safe)) - (cons __tmp150040 __tmp150000)))) + (cons __tmp151201 __tmp151161)))) (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp149999 - '12 + __obj150773 + __tmp151160 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150043 - (let ((__tmp150084 - (let ((__tmp150085 |gx[1]#_g150086_|)) + (let ((__tmp151204 + (let ((__tmp151245 + (let ((__tmp151246 |gx[1]#_g151247_|)) (declare (not safe)) - (cons 'ns __tmp150085))) - (__tmp150044 - (let ((__tmp150081 - (let ((__tmp150082 |gx[1]#_g150083_|)) + (cons 'ns __tmp151246))) + (__tmp151205 + (let ((__tmp151242 + (let ((__tmp151243 |gx[1]#_g151244_|)) (declare (not safe)) - (cons 'path __tmp150082))) - (__tmp150045 - (let ((__tmp150078 - (let ((__tmp150079 |gx[1]#_g150080_|)) + (cons 'path __tmp151243))) + (__tmp151206 + (let ((__tmp151239 + (let ((__tmp151240 |gx[1]#_g151241_|)) (declare (not safe)) - (cons 'import __tmp150079))) - (__tmp150046 - (let ((__tmp150075 - (let ((__tmp150076 - |gx[1]#_g150077_|)) + (cons 'import __tmp151240))) + (__tmp151207 + (let ((__tmp151236 + (let ((__tmp151237 + |gx[1]#_g151238_|)) (declare (not safe)) - (cons 'export __tmp150076))) - (__tmp150047 - (let ((__tmp150072 - (let ((__tmp150073 - |gx[1]#_g150074_|)) + (cons 'export __tmp151237))) + (__tmp151208 + (let ((__tmp151233 + (let ((__tmp151234 + |gx[1]#_g151235_|)) (declare (not safe)) - (cons 'e __tmp150073))) - (__tmp150048 - (let ((__tmp150069 - (let ((__tmp150070 - |gx[1]#_g150071_|)) + (cons 'e __tmp151234))) + (__tmp151209 + (let ((__tmp151230 + (let ((__tmp151231 + |gx[1]#_g151232_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150070))) - (__tmp150049 - (let ((__tmp150066 - (let ((__tmp150067 |gx[1]#_g150068_|)) + __tmp151231))) + (__tmp151210 + (let ((__tmp151227 + (let ((__tmp151228 |gx[1]#_g151229_|)) (declare (not safe)) - (cons 'super __tmp150067))) - (__tmp150050 - (let ((__tmp150063 - (let ((__tmp150064 |gx[1]#_g150065_|)) + (cons 'super __tmp151228))) + (__tmp151211 + (let ((__tmp151224 + (let ((__tmp151225 |gx[1]#_g151226_|)) (declare (not safe)) - (cons 'up __tmp150064))) - (__tmp150051 - (let ((__tmp150060 - (let ((__tmp150061 |gx[1]#_g150062_|)) + (cons 'up __tmp151225))) + (__tmp151212 + (let ((__tmp151221 + (let ((__tmp151222 |gx[1]#_g151223_|)) (declare (not safe)) - (cons 'down __tmp150061))) - (__tmp150052 - (let ((__tmp150057 - (let ((__tmp150058 - |gx[1]#_g150059_|)) + (cons 'down __tmp151222))) + (__tmp151213 + (let ((__tmp151218 + (let ((__tmp151219 + |gx[1]#_g151220_|)) (declare (not safe)) - (cons 'id __tmp150058))) - (__tmp150053 - (let ((__tmp150054 - (let ((__tmp150055 - |gx[1]#_g150056_|)) + (cons 'id __tmp151219))) + (__tmp151214 + (let ((__tmp151215 + (let ((__tmp151216 + |gx[1]#_g151217_|)) (declare (not safe)) (cons 'table - __tmp150055)))) + __tmp151216)))) (declare (not safe)) - (cons __tmp150054 '())))) + (cons __tmp151215 '())))) (declare (not safe)) - (cons __tmp150057 __tmp150053)))) + (cons __tmp151218 __tmp151214)))) (declare (not safe)) - (cons __tmp150060 __tmp150052)))) + (cons __tmp151221 __tmp151213)))) (declare (not safe)) - (cons __tmp150063 __tmp150051)))) + (cons __tmp151224 __tmp151212)))) (declare (not safe)) - (cons __tmp150066 __tmp150050)))) + (cons __tmp151227 __tmp151211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150069 - __tmp150049)))) + (cons __tmp151230 + __tmp151210)))) (declare (not safe)) - (cons __tmp150072 __tmp150048)))) + (cons __tmp151233 __tmp151209)))) (declare (not safe)) - (cons __tmp150075 __tmp150047)))) + (cons __tmp151236 __tmp151208)))) (declare (not safe)) - (cons __tmp150078 __tmp150046)))) + (cons __tmp151239 __tmp151207)))) (declare (not safe)) - (cons __tmp150081 __tmp150045)))) + (cons __tmp151242 __tmp151206)))) (declare (not safe)) - (cons __tmp150084 __tmp150044)))) + (cons __tmp151245 __tmp151205)))) (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp150043 - '13 + __obj150773 + __tmp151204 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150087 - (let ((__tmp150128 - (let ((__tmp150129 |gx[1]#_g150130_|)) + (let ((__tmp151248 + (let ((__tmp151289 + (let ((__tmp151290 |gx[1]#_g151291_|)) (declare (not safe)) - (cons 'ns __tmp150129))) - (__tmp150088 - (let ((__tmp150125 - (let ((__tmp150126 |gx[1]#_g150127_|)) + (cons 'ns __tmp151290))) + (__tmp151249 + (let ((__tmp151286 + (let ((__tmp151287 |gx[1]#_g151288_|)) (declare (not safe)) - (cons 'path __tmp150126))) - (__tmp150089 - (let ((__tmp150122 - (let ((__tmp150123 |gx[1]#_g150124_|)) + (cons 'path __tmp151287))) + (__tmp151250 + (let ((__tmp151283 + (let ((__tmp151284 |gx[1]#_g151285_|)) (declare (not safe)) - (cons 'import __tmp150123))) - (__tmp150090 - (let ((__tmp150119 - (let ((__tmp150120 - |gx[1]#_g150121_|)) + (cons 'import __tmp151284))) + (__tmp151251 + (let ((__tmp151280 + (let ((__tmp151281 + |gx[1]#_g151282_|)) (declare (not safe)) - (cons 'export __tmp150120))) - (__tmp150091 - (let ((__tmp150116 - (let ((__tmp150117 - |gx[1]#_g150118_|)) + (cons 'export __tmp151281))) + (__tmp151252 + (let ((__tmp151277 + (let ((__tmp151278 + |gx[1]#_g151279_|)) (declare (not safe)) - (cons 'e __tmp150117))) - (__tmp150092 - (let ((__tmp150113 - (let ((__tmp150114 - |gx[1]#_g150115_|)) + (cons 'e __tmp151278))) + (__tmp151253 + (let ((__tmp151274 + (let ((__tmp151275 + |gx[1]#_g151276_|)) (declare (not safe)) (cons 'code ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150114))) - (__tmp150093 - (let ((__tmp150110 - (let ((__tmp150111 |gx[1]#_g150112_|)) + __tmp151275))) + (__tmp151254 + (let ((__tmp151271 + (let ((__tmp151272 |gx[1]#_g151273_|)) (declare (not safe)) - (cons 'super __tmp150111))) - (__tmp150094 - (let ((__tmp150107 - (let ((__tmp150108 |gx[1]#_g150109_|)) + (cons 'super __tmp151272))) + (__tmp151255 + (let ((__tmp151268 + (let ((__tmp151269 |gx[1]#_g151270_|)) (declare (not safe)) - (cons 'up __tmp150108))) - (__tmp150095 - (let ((__tmp150104 - (let ((__tmp150105 |gx[1]#_g150106_|)) + (cons 'up __tmp151269))) + (__tmp151256 + (let ((__tmp151265 + (let ((__tmp151266 |gx[1]#_g151267_|)) (declare (not safe)) - (cons 'down __tmp150105))) - (__tmp150096 - (let ((__tmp150101 - (let ((__tmp150102 - |gx[1]#_g150103_|)) + (cons 'down __tmp151266))) + (__tmp151257 + (let ((__tmp151262 + (let ((__tmp151263 + |gx[1]#_g151264_|)) (declare (not safe)) - (cons 'id __tmp150102))) - (__tmp150097 - (let ((__tmp150098 - (let ((__tmp150099 - |gx[1]#_g150100_|)) + (cons 'id __tmp151263))) + (__tmp151258 + (let ((__tmp151259 + (let ((__tmp151260 + |gx[1]#_g151261_|)) (declare (not safe)) (cons 'table - __tmp150099)))) + __tmp151260)))) (declare (not safe)) - (cons __tmp150098 '())))) + (cons __tmp151259 '())))) (declare (not safe)) - (cons __tmp150101 __tmp150097)))) + (cons __tmp151262 __tmp151258)))) (declare (not safe)) - (cons __tmp150104 __tmp150096)))) + (cons __tmp151265 __tmp151257)))) (declare (not safe)) - (cons __tmp150107 __tmp150095)))) + (cons __tmp151268 __tmp151256)))) (declare (not safe)) - (cons __tmp150110 __tmp150094)))) + (cons __tmp151271 __tmp151255)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150113 - __tmp150093)))) + (cons __tmp151274 + __tmp151254)))) (declare (not safe)) - (cons __tmp150116 __tmp150092)))) + (cons __tmp151277 __tmp151253)))) (declare (not safe)) - (cons __tmp150119 __tmp150091)))) + (cons __tmp151280 __tmp151252)))) (declare (not safe)) - (cons __tmp150122 __tmp150090)))) + (cons __tmp151283 __tmp151251)))) (declare (not safe)) - (cons __tmp150125 __tmp150089)))) + (cons __tmp151286 __tmp151250)))) (declare (not safe)) - (cons __tmp150128 __tmp150088)))) + (cons __tmp151289 __tmp151249)))) (declare (not safe)) (##unchecked-structure-set! - __obj149612 - __tmp150087 - '14 + __obj150773 + __tmp151248 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149612)) + __obj150773)) (define |gx[:0:]#prelude-context| - (let ((__obj149613 + (let ((__obj150774 (let () (declare (not safe)) (##structure @@ -5011,11 +5056,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149613 + __obj150774 'gx#prelude-context::t '1 gerbil/core$$#class-type-info::t @@ -5023,7 +5069,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149613 + __obj150774 'prelude-context '2 gerbil/core$$#class-type-info::t @@ -5031,26 +5077,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149613 + __obj150774 '(path import e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150131 - (let ((__tmp150132 |gx[1]#_g149948_|)) + (let ((__tmp151292 + (let ((__tmp151293 |gx[1]#_g151109_|)) (declare (not safe)) - (cons __tmp150132 '())))) + (cons __tmp151293 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150131 + __obj150774 + __tmp151292 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149613 + __obj150774 '#t '5 gerbil/core$$#class-type-info::t @@ -5058,7 +5104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149613 + __obj150774 '#f '6 gerbil/core$$#class-type-info::t @@ -5066,318 +5112,326 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149613 + __obj150774 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150133 |gx[1]#_g150134_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150133 + __obj150774 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150135 |gx[1]#_g150136_|)) + (let ((__tmp151294 |gx[1]#_g151295_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150135 + __obj150774 + __tmp151294 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150137 |gx[1]#_g150138_|)) + (let ((__tmp151296 |gx[1]#_g151297_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150137 + __obj150774 + __tmp151296 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150139 - (let ((__tmp150168 - (let ((__tmp150169 |gx[1]#_g150170_|)) + (let ((__tmp151298 |gx[1]#_g151299_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150774 + __tmp151298 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151300 + (let ((__tmp151329 + (let ((__tmp151330 |gx[1]#_g151331_|)) (declare (not safe)) - (cons 'path __tmp150169))) - (__tmp150140 - (let ((__tmp150165 - (let ((__tmp150166 |gx[1]#_g150167_|)) + (cons 'path __tmp151330))) + (__tmp151301 + (let ((__tmp151326 + (let ((__tmp151327 |gx[1]#_g151328_|)) (declare (not safe)) - (cons 'import __tmp150166))) - (__tmp150141 - (let ((__tmp150162 - (let ((__tmp150163 |gx[1]#_g150164_|)) + (cons 'import __tmp151327))) + (__tmp151302 + (let ((__tmp151323 + (let ((__tmp151324 |gx[1]#_g151325_|)) (declare (not safe)) - (cons 'e __tmp150163))) - (__tmp150142 - (let ((__tmp150159 - (let ((__tmp150160 - |gx[1]#_g150161_|)) + (cons 'e __tmp151324))) + (__tmp151303 + (let ((__tmp151320 + (let ((__tmp151321 + |gx[1]#_g151322_|)) (declare (not safe)) - (cons 'super __tmp150160))) - (__tmp150143 - (let ((__tmp150156 - (let ((__tmp150157 - |gx[1]#_g150158_|)) + (cons 'super __tmp151321))) + (__tmp151304 + (let ((__tmp151317 + (let ((__tmp151318 + |gx[1]#_g151319_|)) (declare (not safe)) - (cons 'up __tmp150157))) - (__tmp150144 - (let ((__tmp150153 - (let ((__tmp150154 - |gx[1]#_g150155_|)) + (cons 'up __tmp151318))) + (__tmp151305 + (let ((__tmp151314 + (let ((__tmp151315 + |gx[1]#_g151316_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150154))) - (__tmp150145 - (let ((__tmp150150 - (let ((__tmp150151 |gx[1]#_g150152_|)) + __tmp151315))) + (__tmp151306 + (let ((__tmp151311 + (let ((__tmp151312 |gx[1]#_g151313_|)) (declare (not safe)) - (cons 'id __tmp150151))) - (__tmp150146 - (let ((__tmp150147 - (let ((__tmp150148 |gx[1]#_g150149_|)) + (cons 'id __tmp151312))) + (__tmp151307 + (let ((__tmp151308 + (let ((__tmp151309 |gx[1]#_g151310_|)) (declare (not safe)) - (cons 'table __tmp150148)))) + (cons 'table __tmp151309)))) (declare (not safe)) - (cons __tmp150147 '())))) + (cons __tmp151308 '())))) (declare (not safe)) - (cons __tmp150150 __tmp150146)))) + (cons __tmp151311 __tmp151307)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150153 - __tmp150145)))) + (cons __tmp151314 + __tmp151306)))) (declare (not safe)) - (cons __tmp150156 __tmp150144)))) + (cons __tmp151317 __tmp151305)))) (declare (not safe)) - (cons __tmp150159 __tmp150143)))) + (cons __tmp151320 __tmp151304)))) (declare (not safe)) - (cons __tmp150162 __tmp150142)))) + (cons __tmp151323 __tmp151303)))) (declare (not safe)) - (cons __tmp150165 __tmp150141)))) + (cons __tmp151326 __tmp151302)))) (declare (not safe)) - (cons __tmp150168 __tmp150140)))) + (cons __tmp151329 __tmp151301)))) (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150139 - '11 + __obj150774 + __tmp151300 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150171 - (let ((__tmp150200 - (let ((__tmp150201 |gx[1]#_g150202_|)) + (let ((__tmp151332 + (let ((__tmp151361 + (let ((__tmp151362 |gx[1]#_g151363_|)) (declare (not safe)) - (cons 'path __tmp150201))) - (__tmp150172 - (let ((__tmp150197 - (let ((__tmp150198 |gx[1]#_g150199_|)) + (cons 'path __tmp151362))) + (__tmp151333 + (let ((__tmp151358 + (let ((__tmp151359 |gx[1]#_g151360_|)) (declare (not safe)) - (cons 'import __tmp150198))) - (__tmp150173 - (let ((__tmp150194 - (let ((__tmp150195 |gx[1]#_g150196_|)) + (cons 'import __tmp151359))) + (__tmp151334 + (let ((__tmp151355 + (let ((__tmp151356 |gx[1]#_g151357_|)) (declare (not safe)) - (cons 'e __tmp150195))) - (__tmp150174 - (let ((__tmp150191 - (let ((__tmp150192 - |gx[1]#_g150193_|)) + (cons 'e __tmp151356))) + (__tmp151335 + (let ((__tmp151352 + (let ((__tmp151353 + |gx[1]#_g151354_|)) (declare (not safe)) - (cons 'super __tmp150192))) - (__tmp150175 - (let ((__tmp150188 - (let ((__tmp150189 - |gx[1]#_g150190_|)) + (cons 'super __tmp151353))) + (__tmp151336 + (let ((__tmp151349 + (let ((__tmp151350 + |gx[1]#_g151351_|)) (declare (not safe)) - (cons 'up __tmp150189))) - (__tmp150176 - (let ((__tmp150185 - (let ((__tmp150186 - |gx[1]#_g150187_|)) + (cons 'up __tmp151350))) + (__tmp151337 + (let ((__tmp151346 + (let ((__tmp151347 + |gx[1]#_g151348_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150186))) - (__tmp150177 - (let ((__tmp150182 - (let ((__tmp150183 |gx[1]#_g150184_|)) + __tmp151347))) + (__tmp151338 + (let ((__tmp151343 + (let ((__tmp151344 |gx[1]#_g151345_|)) (declare (not safe)) - (cons 'id __tmp150183))) - (__tmp150178 - (let ((__tmp150179 - (let ((__tmp150180 |gx[1]#_g150181_|)) + (cons 'id __tmp151344))) + (__tmp151339 + (let ((__tmp151340 + (let ((__tmp151341 |gx[1]#_g151342_|)) (declare (not safe)) - (cons 'table __tmp150180)))) + (cons 'table __tmp151341)))) (declare (not safe)) - (cons __tmp150179 '())))) + (cons __tmp151340 '())))) (declare (not safe)) - (cons __tmp150182 __tmp150178)))) + (cons __tmp151343 __tmp151339)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150185 - __tmp150177)))) + (cons __tmp151346 + __tmp151338)))) (declare (not safe)) - (cons __tmp150188 __tmp150176)))) + (cons __tmp151349 __tmp151337)))) (declare (not safe)) - (cons __tmp150191 __tmp150175)))) + (cons __tmp151352 __tmp151336)))) (declare (not safe)) - (cons __tmp150194 __tmp150174)))) + (cons __tmp151355 __tmp151335)))) (declare (not safe)) - (cons __tmp150197 __tmp150173)))) + (cons __tmp151358 __tmp151334)))) (declare (not safe)) - (cons __tmp150200 __tmp150172)))) + (cons __tmp151361 __tmp151333)))) (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150171 - '12 + __obj150774 + __tmp151332 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150203 - (let ((__tmp150232 - (let ((__tmp150233 |gx[1]#_g150234_|)) + (let ((__tmp151364 + (let ((__tmp151393 + (let ((__tmp151394 |gx[1]#_g151395_|)) (declare (not safe)) - (cons 'path __tmp150233))) - (__tmp150204 - (let ((__tmp150229 - (let ((__tmp150230 |gx[1]#_g150231_|)) + (cons 'path __tmp151394))) + (__tmp151365 + (let ((__tmp151390 + (let ((__tmp151391 |gx[1]#_g151392_|)) (declare (not safe)) - (cons 'import __tmp150230))) - (__tmp150205 - (let ((__tmp150226 - (let ((__tmp150227 |gx[1]#_g150228_|)) + (cons 'import __tmp151391))) + (__tmp151366 + (let ((__tmp151387 + (let ((__tmp151388 |gx[1]#_g151389_|)) (declare (not safe)) - (cons 'e __tmp150227))) - (__tmp150206 - (let ((__tmp150223 - (let ((__tmp150224 - |gx[1]#_g150225_|)) + (cons 'e __tmp151388))) + (__tmp151367 + (let ((__tmp151384 + (let ((__tmp151385 + |gx[1]#_g151386_|)) (declare (not safe)) - (cons 'super __tmp150224))) - (__tmp150207 - (let ((__tmp150220 - (let ((__tmp150221 - |gx[1]#_g150222_|)) + (cons 'super __tmp151385))) + (__tmp151368 + (let ((__tmp151381 + (let ((__tmp151382 + |gx[1]#_g151383_|)) (declare (not safe)) - (cons 'up __tmp150221))) - (__tmp150208 - (let ((__tmp150217 - (let ((__tmp150218 - |gx[1]#_g150219_|)) + (cons 'up __tmp151382))) + (__tmp151369 + (let ((__tmp151378 + (let ((__tmp151379 + |gx[1]#_g151380_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150218))) - (__tmp150209 - (let ((__tmp150214 - (let ((__tmp150215 |gx[1]#_g150216_|)) + __tmp151379))) + (__tmp151370 + (let ((__tmp151375 + (let ((__tmp151376 |gx[1]#_g151377_|)) (declare (not safe)) - (cons 'id __tmp150215))) - (__tmp150210 - (let ((__tmp150211 - (let ((__tmp150212 |gx[1]#_g150213_|)) + (cons 'id __tmp151376))) + (__tmp151371 + (let ((__tmp151372 + (let ((__tmp151373 |gx[1]#_g151374_|)) (declare (not safe)) - (cons 'table __tmp150212)))) + (cons 'table __tmp151373)))) (declare (not safe)) - (cons __tmp150211 '())))) + (cons __tmp151372 '())))) (declare (not safe)) - (cons __tmp150214 __tmp150210)))) + (cons __tmp151375 __tmp151371)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150217 - __tmp150209)))) + (cons __tmp151378 + __tmp151370)))) (declare (not safe)) - (cons __tmp150220 __tmp150208)))) + (cons __tmp151381 __tmp151369)))) (declare (not safe)) - (cons __tmp150223 __tmp150207)))) + (cons __tmp151384 __tmp151368)))) (declare (not safe)) - (cons __tmp150226 __tmp150206)))) + (cons __tmp151387 __tmp151367)))) (declare (not safe)) - (cons __tmp150229 __tmp150205)))) + (cons __tmp151390 __tmp151366)))) (declare (not safe)) - (cons __tmp150232 __tmp150204)))) + (cons __tmp151393 __tmp151365)))) (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150203 - '13 + __obj150774 + __tmp151364 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150235 - (let ((__tmp150264 - (let ((__tmp150265 |gx[1]#_g150266_|)) + (let ((__tmp151396 + (let ((__tmp151425 + (let ((__tmp151426 |gx[1]#_g151427_|)) (declare (not safe)) - (cons 'path __tmp150265))) - (__tmp150236 - (let ((__tmp150261 - (let ((__tmp150262 |gx[1]#_g150263_|)) - (declare (not safe)) - (cons 'import __tmp150262))) - (__tmp150237 - (let ((__tmp150258 - (let ((__tmp150259 |gx[1]#_g150260_|)) - (declare (not safe)) - (cons 'e __tmp150259))) - (__tmp150238 - (let ((__tmp150255 - (let ((__tmp150256 - |gx[1]#_g150257_|)) + (cons 'path __tmp151426))) + (__tmp151397 + (let ((__tmp151422 + (let ((__tmp151423 |gx[1]#_g151424_|)) + (declare (not safe)) + (cons 'import __tmp151423))) + (__tmp151398 + (let ((__tmp151419 + (let ((__tmp151420 |gx[1]#_g151421_|)) + (declare (not safe)) + (cons 'e __tmp151420))) + (__tmp151399 + (let ((__tmp151416 + (let ((__tmp151417 + |gx[1]#_g151418_|)) (declare (not safe)) - (cons 'super __tmp150256))) - (__tmp150239 - (let ((__tmp150252 - (let ((__tmp150253 - |gx[1]#_g150254_|)) + (cons 'super __tmp151417))) + (__tmp151400 + (let ((__tmp151413 + (let ((__tmp151414 + |gx[1]#_g151415_|)) (declare (not safe)) - (cons 'up __tmp150253))) - (__tmp150240 - (let ((__tmp150249 - (let ((__tmp150250 - |gx[1]#_g150251_|)) + (cons 'up __tmp151414))) + (__tmp151401 + (let ((__tmp151410 + (let ((__tmp151411 + |gx[1]#_g151412_|)) (declare (not safe)) (cons 'down ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150250))) - (__tmp150241 - (let ((__tmp150246 - (let ((__tmp150247 |gx[1]#_g150248_|)) + __tmp151411))) + (__tmp151402 + (let ((__tmp151407 + (let ((__tmp151408 |gx[1]#_g151409_|)) (declare (not safe)) - (cons 'id __tmp150247))) - (__tmp150242 - (let ((__tmp150243 - (let ((__tmp150244 |gx[1]#_g150245_|)) + (cons 'id __tmp151408))) + (__tmp151403 + (let ((__tmp151404 + (let ((__tmp151405 |gx[1]#_g151406_|)) (declare (not safe)) - (cons 'table __tmp150244)))) + (cons 'table __tmp151405)))) (declare (not safe)) - (cons __tmp150243 '())))) + (cons __tmp151404 '())))) (declare (not safe)) - (cons __tmp150246 __tmp150242)))) + (cons __tmp151407 __tmp151403)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150249 - __tmp150241)))) + (cons __tmp151410 + __tmp151402)))) (declare (not safe)) - (cons __tmp150252 __tmp150240)))) + (cons __tmp151413 __tmp151401)))) (declare (not safe)) - (cons __tmp150255 __tmp150239)))) + (cons __tmp151416 __tmp151400)))) (declare (not safe)) - (cons __tmp150258 __tmp150238)))) + (cons __tmp151419 __tmp151399)))) (declare (not safe)) - (cons __tmp150261 __tmp150237)))) + (cons __tmp151422 __tmp151398)))) (declare (not safe)) - (cons __tmp150264 __tmp150236)))) + (cons __tmp151425 __tmp151397)))) (declare (not safe)) (##unchecked-structure-set! - __obj149613 - __tmp150235 - '14 + __obj150774 + __tmp151396 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149613)) + __obj150774)) (define |gx[:0:]#local-context| - (let ((__obj149614 + (let ((__obj150775 (let () (declare (not safe)) (##structure @@ -5395,11 +5449,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149614 + __obj150775 'gx#local-context::t '1 gerbil/core$$#class-type-info::t @@ -5407,7 +5462,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149614 + __obj150775 'local-context '2 gerbil/core$$#class-type-info::t @@ -5415,26 +5470,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149614 + __obj150775 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150267 - (let ((__tmp150268 |gx[1]#_g149859_|)) + (let ((__tmp151428 + (let ((__tmp151429 |gx[1]#_g151020_|)) (declare (not safe)) - (cons __tmp150268 '())))) + (cons __tmp151429 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150267 + __obj150775 + __tmp151428 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149614 + __obj150775 '#t '5 gerbil/core$$#class-type-info::t @@ -5442,7 +5497,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149614 + __obj150775 '#f '6 gerbil/core$$#class-type-info::t @@ -5450,218 +5505,226 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149614 + __obj150775 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150269 |gx[1]#_g150270_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150269 + __obj150775 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150271 |gx[1]#_g150272_|)) + (let ((__tmp151430 |gx[1]#_g151431_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150271 + __obj150775 + __tmp151430 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150273 |gx[1]#_g150274_|)) + (let ((__tmp151432 |gx[1]#_g151433_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150273 + __obj150775 + __tmp151432 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150275 - (let ((__tmp150292 - (let ((__tmp150293 |gx[1]#_g150294_|)) - (declare (not safe)) - (cons 'super __tmp150293))) - (__tmp150276 - (let ((__tmp150289 - (let ((__tmp150290 |gx[1]#_g150291_|)) - (declare (not safe)) - (cons 'up __tmp150290))) - (__tmp150277 - (let ((__tmp150286 - (let ((__tmp150287 |gx[1]#_g150288_|)) - (declare (not safe)) - (cons 'down __tmp150287))) - (__tmp150278 - (let ((__tmp150283 - (let ((__tmp150284 - |gx[1]#_g150285_|)) + (let ((__tmp151434 |gx[1]#_g151435_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150775 + __tmp151434 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151436 + (let ((__tmp151453 + (let ((__tmp151454 |gx[1]#_g151455_|)) + (declare (not safe)) + (cons 'super __tmp151454))) + (__tmp151437 + (let ((__tmp151450 + (let ((__tmp151451 |gx[1]#_g151452_|)) + (declare (not safe)) + (cons 'up __tmp151451))) + (__tmp151438 + (let ((__tmp151447 + (let ((__tmp151448 |gx[1]#_g151449_|)) + (declare (not safe)) + (cons 'down __tmp151448))) + (__tmp151439 + (let ((__tmp151444 + (let ((__tmp151445 + |gx[1]#_g151446_|)) (declare (not safe)) - (cons 'id __tmp150284))) - (__tmp150279 - (let ((__tmp150280 - (let ((__tmp150281 - |gx[1]#_g150282_|)) + (cons 'id __tmp151445))) + (__tmp151440 + (let ((__tmp151441 + (let ((__tmp151442 + |gx[1]#_g151443_|)) (declare (not safe)) (cons 'table - __tmp150281)))) + __tmp151442)))) (declare (not safe)) - (cons __tmp150280 '())))) + (cons __tmp151441 '())))) (declare (not safe)) - (cons __tmp150283 __tmp150279)))) + (cons __tmp151444 __tmp151440)))) (declare (not safe)) - (cons __tmp150286 __tmp150278)))) + (cons __tmp151447 __tmp151439)))) (declare (not safe)) - (cons __tmp150289 __tmp150277)))) + (cons __tmp151450 __tmp151438)))) (declare (not safe)) - (cons __tmp150292 __tmp150276)))) + (cons __tmp151453 __tmp151437)))) (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150275 - '11 + __obj150775 + __tmp151436 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150295 - (let ((__tmp150312 - (let ((__tmp150313 |gx[1]#_g150314_|)) + (let ((__tmp151456 + (let ((__tmp151473 + (let ((__tmp151474 |gx[1]#_g151475_|)) (declare (not safe)) - (cons 'super __tmp150313))) - (__tmp150296 - (let ((__tmp150309 - (let ((__tmp150310 |gx[1]#_g150311_|)) + (cons 'super __tmp151474))) + (__tmp151457 + (let ((__tmp151470 + (let ((__tmp151471 |gx[1]#_g151472_|)) (declare (not safe)) - (cons 'up __tmp150310))) - (__tmp150297 - (let ((__tmp150306 - (let ((__tmp150307 |gx[1]#_g150308_|)) + (cons 'up __tmp151471))) + (__tmp151458 + (let ((__tmp151467 + (let ((__tmp151468 |gx[1]#_g151469_|)) (declare (not safe)) - (cons 'down __tmp150307))) - (__tmp150298 - (let ((__tmp150303 - (let ((__tmp150304 - |gx[1]#_g150305_|)) + (cons 'down __tmp151468))) + (__tmp151459 + (let ((__tmp151464 + (let ((__tmp151465 + |gx[1]#_g151466_|)) (declare (not safe)) - (cons 'id __tmp150304))) - (__tmp150299 - (let ((__tmp150300 - (let ((__tmp150301 - |gx[1]#_g150302_|)) + (cons 'id __tmp151465))) + (__tmp151460 + (let ((__tmp151461 + (let ((__tmp151462 + |gx[1]#_g151463_|)) (declare (not safe)) (cons 'table - __tmp150301)))) + __tmp151462)))) (declare (not safe)) - (cons __tmp150300 '())))) + (cons __tmp151461 '())))) (declare (not safe)) - (cons __tmp150303 __tmp150299)))) + (cons __tmp151464 __tmp151460)))) (declare (not safe)) - (cons __tmp150306 __tmp150298)))) + (cons __tmp151467 __tmp151459)))) (declare (not safe)) - (cons __tmp150309 __tmp150297)))) + (cons __tmp151470 __tmp151458)))) (declare (not safe)) - (cons __tmp150312 __tmp150296)))) + (cons __tmp151473 __tmp151457)))) (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150295 - '12 + __obj150775 + __tmp151456 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150315 - (let ((__tmp150332 - (let ((__tmp150333 |gx[1]#_g150334_|)) + (let ((__tmp151476 + (let ((__tmp151493 + (let ((__tmp151494 |gx[1]#_g151495_|)) (declare (not safe)) - (cons 'super __tmp150333))) - (__tmp150316 - (let ((__tmp150329 - (let ((__tmp150330 |gx[1]#_g150331_|)) + (cons 'super __tmp151494))) + (__tmp151477 + (let ((__tmp151490 + (let ((__tmp151491 |gx[1]#_g151492_|)) (declare (not safe)) - (cons 'up __tmp150330))) - (__tmp150317 - (let ((__tmp150326 - (let ((__tmp150327 |gx[1]#_g150328_|)) + (cons 'up __tmp151491))) + (__tmp151478 + (let ((__tmp151487 + (let ((__tmp151488 |gx[1]#_g151489_|)) (declare (not safe)) - (cons 'down __tmp150327))) - (__tmp150318 - (let ((__tmp150323 - (let ((__tmp150324 - |gx[1]#_g150325_|)) + (cons 'down __tmp151488))) + (__tmp151479 + (let ((__tmp151484 + (let ((__tmp151485 + |gx[1]#_g151486_|)) (declare (not safe)) - (cons 'id __tmp150324))) - (__tmp150319 - (let ((__tmp150320 - (let ((__tmp150321 - |gx[1]#_g150322_|)) + (cons 'id __tmp151485))) + (__tmp151480 + (let ((__tmp151481 + (let ((__tmp151482 + |gx[1]#_g151483_|)) (declare (not safe)) (cons 'table - __tmp150321)))) + __tmp151482)))) (declare (not safe)) - (cons __tmp150320 '())))) + (cons __tmp151481 '())))) (declare (not safe)) - (cons __tmp150323 __tmp150319)))) + (cons __tmp151484 __tmp151480)))) (declare (not safe)) - (cons __tmp150326 __tmp150318)))) + (cons __tmp151487 __tmp151479)))) (declare (not safe)) - (cons __tmp150329 __tmp150317)))) + (cons __tmp151490 __tmp151478)))) (declare (not safe)) - (cons __tmp150332 __tmp150316)))) + (cons __tmp151493 __tmp151477)))) (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150315 - '13 + __obj150775 + __tmp151476 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150335 - (let ((__tmp150352 - (let ((__tmp150353 |gx[1]#_g150354_|)) + (let ((__tmp151496 + (let ((__tmp151513 + (let ((__tmp151514 |gx[1]#_g151515_|)) (declare (not safe)) - (cons 'super __tmp150353))) - (__tmp150336 - (let ((__tmp150349 - (let ((__tmp150350 |gx[1]#_g150351_|)) + (cons 'super __tmp151514))) + (__tmp151497 + (let ((__tmp151510 + (let ((__tmp151511 |gx[1]#_g151512_|)) (declare (not safe)) - (cons 'up __tmp150350))) - (__tmp150337 - (let ((__tmp150346 - (let ((__tmp150347 |gx[1]#_g150348_|)) + (cons 'up __tmp151511))) + (__tmp151498 + (let ((__tmp151507 + (let ((__tmp151508 |gx[1]#_g151509_|)) (declare (not safe)) - (cons 'down __tmp150347))) - (__tmp150338 - (let ((__tmp150343 - (let ((__tmp150344 - |gx[1]#_g150345_|)) + (cons 'down __tmp151508))) + (__tmp151499 + (let ((__tmp151504 + (let ((__tmp151505 + |gx[1]#_g151506_|)) (declare (not safe)) - (cons 'id __tmp150344))) - (__tmp150339 - (let ((__tmp150340 - (let ((__tmp150341 - |gx[1]#_g150342_|)) + (cons 'id __tmp151505))) + (__tmp151500 + (let ((__tmp151501 + (let ((__tmp151502 + |gx[1]#_g151503_|)) (declare (not safe)) (cons 'table - __tmp150341)))) + __tmp151502)))) (declare (not safe)) - (cons __tmp150340 '())))) + (cons __tmp151501 '())))) (declare (not safe)) - (cons __tmp150343 __tmp150339)))) + (cons __tmp151504 __tmp151500)))) (declare (not safe)) - (cons __tmp150346 __tmp150338)))) + (cons __tmp151507 __tmp151499)))) (declare (not safe)) - (cons __tmp150349 __tmp150337)))) + (cons __tmp151510 __tmp151498)))) (declare (not safe)) - (cons __tmp150352 __tmp150336)))) + (cons __tmp151513 __tmp151497)))) (declare (not safe)) (##unchecked-structure-set! - __obj149614 - __tmp150335 - '14 + __obj150775 + __tmp151496 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149614)) + __obj150775)) (define |gx[:0:]#binding| - (let ((__obj149615 + (let ((__obj150776 (let () (declare (not safe)) (##structure @@ -5679,11 +5742,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 + __obj150776 'gx#binding::t '1 gerbil/core$$#class-type-info::t @@ -5691,7 +5755,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 + __obj150776 'binding '2 gerbil/core$$#class-type-info::t @@ -5699,7 +5763,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 + __obj150776 '(id key phi) '4 gerbil/core$$#class-type-info::t @@ -5707,7 +5771,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 + __obj150776 '() '3 gerbil/core$$#class-type-info::t @@ -5715,7 +5779,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 + __obj150776 '#t '5 gerbil/core$$#class-type-info::t @@ -5723,7 +5787,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 + __obj150776 '#f '6 gerbil/core$$#class-type-info::t @@ -5731,150 +5795,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 + __obj150776 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150355 |gx[1]#_g150356_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149615 - __tmp150355 + __obj150776 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150357 |gx[1]#_g150358_|)) + (let ((__tmp151516 |gx[1]#_g151517_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149615 - __tmp150357 + __obj150776 + __tmp151516 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150359 |gx[1]#_g150360_|)) + (let ((__tmp151518 |gx[1]#_g151519_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149615 - __tmp150359 + __obj150776 + __tmp151518 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150361 - (let ((__tmp150370 - (let ((__tmp150371 |gx[1]#_g150372_|)) + (let ((__tmp151520 |gx[1]#_g151521_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150776 + __tmp151520 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151522 + (let ((__tmp151531 + (let ((__tmp151532 |gx[1]#_g151533_|)) (declare (not safe)) - (cons 'id __tmp150371))) - (__tmp150362 - (let ((__tmp150367 - (let ((__tmp150368 |gx[1]#_g150369_|)) + (cons 'id __tmp151532))) + (__tmp151523 + (let ((__tmp151528 + (let ((__tmp151529 |gx[1]#_g151530_|)) (declare (not safe)) - (cons 'key __tmp150368))) - (__tmp150363 - (let ((__tmp150364 - (let ((__tmp150365 |gx[1]#_g150366_|)) + (cons 'key __tmp151529))) + (__tmp151524 + (let ((__tmp151525 + (let ((__tmp151526 |gx[1]#_g151527_|)) (declare (not safe)) - (cons 'phi __tmp150365)))) + (cons 'phi __tmp151526)))) (declare (not safe)) - (cons __tmp150364 '())))) + (cons __tmp151525 '())))) (declare (not safe)) - (cons __tmp150367 __tmp150363)))) + (cons __tmp151528 __tmp151524)))) (declare (not safe)) - (cons __tmp150370 __tmp150362)))) + (cons __tmp151531 __tmp151523)))) (declare (not safe)) (##unchecked-structure-set! - __obj149615 - __tmp150361 - '11 + __obj150776 + __tmp151522 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150373 - (let ((__tmp150382 - (let ((__tmp150383 |gx[1]#_g150384_|)) + (let ((__tmp151534 + (let ((__tmp151543 + (let ((__tmp151544 |gx[1]#_g151545_|)) (declare (not safe)) - (cons 'id __tmp150383))) - (__tmp150374 - (let ((__tmp150379 - (let ((__tmp150380 |gx[1]#_g150381_|)) + (cons 'id __tmp151544))) + (__tmp151535 + (let ((__tmp151540 + (let ((__tmp151541 |gx[1]#_g151542_|)) (declare (not safe)) - (cons 'key __tmp150380))) - (__tmp150375 - (let ((__tmp150376 - (let ((__tmp150377 |gx[1]#_g150378_|)) + (cons 'key __tmp151541))) + (__tmp151536 + (let ((__tmp151537 + (let ((__tmp151538 |gx[1]#_g151539_|)) (declare (not safe)) - (cons 'phi __tmp150377)))) + (cons 'phi __tmp151538)))) (declare (not safe)) - (cons __tmp150376 '())))) + (cons __tmp151537 '())))) (declare (not safe)) - (cons __tmp150379 __tmp150375)))) + (cons __tmp151540 __tmp151536)))) (declare (not safe)) - (cons __tmp150382 __tmp150374)))) + (cons __tmp151543 __tmp151535)))) (declare (not safe)) (##unchecked-structure-set! - __obj149615 - __tmp150373 - '12 + __obj150776 + __tmp151534 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150385 - (let ((__tmp150394 - (let ((__tmp150395 |gx[1]#_g150396_|)) + (let ((__tmp151546 + (let ((__tmp151555 + (let ((__tmp151556 |gx[1]#_g151557_|)) (declare (not safe)) - (cons 'id __tmp150395))) - (__tmp150386 - (let ((__tmp150391 - (let ((__tmp150392 |gx[1]#_g150393_|)) + (cons 'id __tmp151556))) + (__tmp151547 + (let ((__tmp151552 + (let ((__tmp151553 |gx[1]#_g151554_|)) (declare (not safe)) - (cons 'key __tmp150392))) - (__tmp150387 - (let ((__tmp150388 - (let ((__tmp150389 |gx[1]#_g150390_|)) + (cons 'key __tmp151553))) + (__tmp151548 + (let ((__tmp151549 + (let ((__tmp151550 |gx[1]#_g151551_|)) (declare (not safe)) - (cons 'phi __tmp150389)))) + (cons 'phi __tmp151550)))) (declare (not safe)) - (cons __tmp150388 '())))) + (cons __tmp151549 '())))) (declare (not safe)) - (cons __tmp150391 __tmp150387)))) + (cons __tmp151552 __tmp151548)))) (declare (not safe)) - (cons __tmp150394 __tmp150386)))) + (cons __tmp151555 __tmp151547)))) (declare (not safe)) (##unchecked-structure-set! - __obj149615 - __tmp150385 - '13 + __obj150776 + __tmp151546 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150397 - (let ((__tmp150406 - (let ((__tmp150407 |gx[1]#_g150408_|)) + (let ((__tmp151558 + (let ((__tmp151567 + (let ((__tmp151568 |gx[1]#_g151569_|)) (declare (not safe)) - (cons 'id __tmp150407))) - (__tmp150398 - (let ((__tmp150403 - (let ((__tmp150404 |gx[1]#_g150405_|)) + (cons 'id __tmp151568))) + (__tmp151559 + (let ((__tmp151564 + (let ((__tmp151565 |gx[1]#_g151566_|)) (declare (not safe)) - (cons 'key __tmp150404))) - (__tmp150399 - (let ((__tmp150400 - (let ((__tmp150401 |gx[1]#_g150402_|)) + (cons 'key __tmp151565))) + (__tmp151560 + (let ((__tmp151561 + (let ((__tmp151562 |gx[1]#_g151563_|)) (declare (not safe)) - (cons 'phi __tmp150401)))) + (cons 'phi __tmp151562)))) (declare (not safe)) - (cons __tmp150400 '())))) + (cons __tmp151561 '())))) (declare (not safe)) - (cons __tmp150403 __tmp150399)))) + (cons __tmp151564 __tmp151560)))) (declare (not safe)) - (cons __tmp150406 __tmp150398)))) + (cons __tmp151567 __tmp151559)))) (declare (not safe)) (##unchecked-structure-set! - __obj149615 - __tmp150397 - '14 + __obj150776 + __tmp151558 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149615)) + __obj150776)) (define |gx[:0:]#runtime-binding| - (let ((__obj149616 + (let ((__obj150777 (let () (declare (not safe)) (##structure @@ -5892,11 +5964,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149616 + __obj150777 'gx#runtime-binding::t '1 gerbil/core$$#class-type-info::t @@ -5904,7 +5977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149616 + __obj150777 'runtime-binding '2 gerbil/core$$#class-type-info::t @@ -5912,26 +5985,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149616 + __obj150777 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150409 - (let ((__tmp150410 |gx[1]#_g150411_|)) + (let ((__tmp151570 + (let ((__tmp151571 |gx[1]#_g151572_|)) (declare (not safe)) - (cons __tmp150410 '())))) + (cons __tmp151571 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150409 + __obj150777 + __tmp151570 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149616 + __obj150777 '#t '5 gerbil/core$$#class-type-info::t @@ -5939,7 +6012,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149616 + __obj150777 '#f '6 gerbil/core$$#class-type-info::t @@ -5947,150 +6020,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149616 + __obj150777 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150412 |gx[1]#_g150413_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150412 + __obj150777 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150414 |gx[1]#_g150415_|)) + (let ((__tmp151573 |gx[1]#_g151574_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150414 + __obj150777 + __tmp151573 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150416 |gx[1]#_g150417_|)) + (let ((__tmp151575 |gx[1]#_g151576_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150416 + __obj150777 + __tmp151575 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150418 - (let ((__tmp150427 - (let ((__tmp150428 |gx[1]#_g150429_|)) + (let ((__tmp151577 |gx[1]#_g151578_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150777 + __tmp151577 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151579 + (let ((__tmp151588 + (let ((__tmp151589 |gx[1]#_g151590_|)) (declare (not safe)) - (cons 'id __tmp150428))) - (__tmp150419 - (let ((__tmp150424 - (let ((__tmp150425 |gx[1]#_g150426_|)) + (cons 'id __tmp151589))) + (__tmp151580 + (let ((__tmp151585 + (let ((__tmp151586 |gx[1]#_g151587_|)) (declare (not safe)) - (cons 'key __tmp150425))) - (__tmp150420 - (let ((__tmp150421 - (let ((__tmp150422 |gx[1]#_g150423_|)) + (cons 'key __tmp151586))) + (__tmp151581 + (let ((__tmp151582 + (let ((__tmp151583 |gx[1]#_g151584_|)) (declare (not safe)) - (cons 'phi __tmp150422)))) + (cons 'phi __tmp151583)))) (declare (not safe)) - (cons __tmp150421 '())))) + (cons __tmp151582 '())))) (declare (not safe)) - (cons __tmp150424 __tmp150420)))) + (cons __tmp151585 __tmp151581)))) (declare (not safe)) - (cons __tmp150427 __tmp150419)))) + (cons __tmp151588 __tmp151580)))) (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150418 - '11 + __obj150777 + __tmp151579 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150430 - (let ((__tmp150439 - (let ((__tmp150440 |gx[1]#_g150441_|)) + (let ((__tmp151591 + (let ((__tmp151600 + (let ((__tmp151601 |gx[1]#_g151602_|)) (declare (not safe)) - (cons 'id __tmp150440))) - (__tmp150431 - (let ((__tmp150436 - (let ((__tmp150437 |gx[1]#_g150438_|)) + (cons 'id __tmp151601))) + (__tmp151592 + (let ((__tmp151597 + (let ((__tmp151598 |gx[1]#_g151599_|)) (declare (not safe)) - (cons 'key __tmp150437))) - (__tmp150432 - (let ((__tmp150433 - (let ((__tmp150434 |gx[1]#_g150435_|)) + (cons 'key __tmp151598))) + (__tmp151593 + (let ((__tmp151594 + (let ((__tmp151595 |gx[1]#_g151596_|)) (declare (not safe)) - (cons 'phi __tmp150434)))) + (cons 'phi __tmp151595)))) (declare (not safe)) - (cons __tmp150433 '())))) + (cons __tmp151594 '())))) (declare (not safe)) - (cons __tmp150436 __tmp150432)))) + (cons __tmp151597 __tmp151593)))) (declare (not safe)) - (cons __tmp150439 __tmp150431)))) + (cons __tmp151600 __tmp151592)))) (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150430 - '12 + __obj150777 + __tmp151591 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150442 - (let ((__tmp150451 - (let ((__tmp150452 |gx[1]#_g150453_|)) + (let ((__tmp151603 + (let ((__tmp151612 + (let ((__tmp151613 |gx[1]#_g151614_|)) (declare (not safe)) - (cons 'id __tmp150452))) - (__tmp150443 - (let ((__tmp150448 - (let ((__tmp150449 |gx[1]#_g150450_|)) + (cons 'id __tmp151613))) + (__tmp151604 + (let ((__tmp151609 + (let ((__tmp151610 |gx[1]#_g151611_|)) (declare (not safe)) - (cons 'key __tmp150449))) - (__tmp150444 - (let ((__tmp150445 - (let ((__tmp150446 |gx[1]#_g150447_|)) + (cons 'key __tmp151610))) + (__tmp151605 + (let ((__tmp151606 + (let ((__tmp151607 |gx[1]#_g151608_|)) (declare (not safe)) - (cons 'phi __tmp150446)))) + (cons 'phi __tmp151607)))) (declare (not safe)) - (cons __tmp150445 '())))) + (cons __tmp151606 '())))) (declare (not safe)) - (cons __tmp150448 __tmp150444)))) + (cons __tmp151609 __tmp151605)))) (declare (not safe)) - (cons __tmp150451 __tmp150443)))) + (cons __tmp151612 __tmp151604)))) (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150442 - '13 + __obj150777 + __tmp151603 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150454 - (let ((__tmp150463 - (let ((__tmp150464 |gx[1]#_g150465_|)) + (let ((__tmp151615 + (let ((__tmp151624 + (let ((__tmp151625 |gx[1]#_g151626_|)) (declare (not safe)) - (cons 'id __tmp150464))) - (__tmp150455 - (let ((__tmp150460 - (let ((__tmp150461 |gx[1]#_g150462_|)) + (cons 'id __tmp151625))) + (__tmp151616 + (let ((__tmp151621 + (let ((__tmp151622 |gx[1]#_g151623_|)) (declare (not safe)) - (cons 'key __tmp150461))) - (__tmp150456 - (let ((__tmp150457 - (let ((__tmp150458 |gx[1]#_g150459_|)) + (cons 'key __tmp151622))) + (__tmp151617 + (let ((__tmp151618 + (let ((__tmp151619 |gx[1]#_g151620_|)) (declare (not safe)) - (cons 'phi __tmp150458)))) + (cons 'phi __tmp151619)))) (declare (not safe)) - (cons __tmp150457 '())))) + (cons __tmp151618 '())))) (declare (not safe)) - (cons __tmp150460 __tmp150456)))) + (cons __tmp151621 __tmp151617)))) (declare (not safe)) - (cons __tmp150463 __tmp150455)))) + (cons __tmp151624 __tmp151616)))) (declare (not safe)) (##unchecked-structure-set! - __obj149616 - __tmp150454 - '14 + __obj150777 + __tmp151615 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149616)) + __obj150777)) (define |gx[:0:]#local-binding| - (let ((__obj149617 + (let ((__obj150778 (let () (declare (not safe)) (##structure @@ -6108,11 +6189,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149617 + __obj150778 'gx#local-binding::t '1 gerbil/core$$#class-type-info::t @@ -6120,7 +6202,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149617 + __obj150778 'local-binding '2 gerbil/core$$#class-type-info::t @@ -6128,26 +6210,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149617 + __obj150778 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150466 - (let ((__tmp150467 |gx[1]#_g150468_|)) + (let ((__tmp151627 + (let ((__tmp151628 |gx[1]#_g151629_|)) (declare (not safe)) - (cons __tmp150467 '())))) + (cons __tmp151628 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150466 + __obj150778 + __tmp151627 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149617 + __obj150778 '#t '5 gerbil/core$$#class-type-info::t @@ -6155,7 +6237,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149617 + __obj150778 '#f '6 gerbil/core$$#class-type-info::t @@ -6163,150 +6245,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149617 + __obj150778 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150469 |gx[1]#_g150470_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150469 + __obj150778 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150471 |gx[1]#_g150472_|)) + (let ((__tmp151630 |gx[1]#_g151631_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150471 + __obj150778 + __tmp151630 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150473 |gx[1]#_g150474_|)) + (let ((__tmp151632 |gx[1]#_g151633_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150473 + __obj150778 + __tmp151632 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150475 - (let ((__tmp150484 - (let ((__tmp150485 |gx[1]#_g150486_|)) + (let ((__tmp151634 |gx[1]#_g151635_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150778 + __tmp151634 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151636 + (let ((__tmp151645 + (let ((__tmp151646 |gx[1]#_g151647_|)) (declare (not safe)) - (cons 'id __tmp150485))) - (__tmp150476 - (let ((__tmp150481 - (let ((__tmp150482 |gx[1]#_g150483_|)) + (cons 'id __tmp151646))) + (__tmp151637 + (let ((__tmp151642 + (let ((__tmp151643 |gx[1]#_g151644_|)) (declare (not safe)) - (cons 'key __tmp150482))) - (__tmp150477 - (let ((__tmp150478 - (let ((__tmp150479 |gx[1]#_g150480_|)) + (cons 'key __tmp151643))) + (__tmp151638 + (let ((__tmp151639 + (let ((__tmp151640 |gx[1]#_g151641_|)) (declare (not safe)) - (cons 'phi __tmp150479)))) + (cons 'phi __tmp151640)))) (declare (not safe)) - (cons __tmp150478 '())))) + (cons __tmp151639 '())))) (declare (not safe)) - (cons __tmp150481 __tmp150477)))) + (cons __tmp151642 __tmp151638)))) (declare (not safe)) - (cons __tmp150484 __tmp150476)))) + (cons __tmp151645 __tmp151637)))) (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150475 - '11 + __obj150778 + __tmp151636 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150487 - (let ((__tmp150496 - (let ((__tmp150497 |gx[1]#_g150498_|)) + (let ((__tmp151648 + (let ((__tmp151657 + (let ((__tmp151658 |gx[1]#_g151659_|)) (declare (not safe)) - (cons 'id __tmp150497))) - (__tmp150488 - (let ((__tmp150493 - (let ((__tmp150494 |gx[1]#_g150495_|)) + (cons 'id __tmp151658))) + (__tmp151649 + (let ((__tmp151654 + (let ((__tmp151655 |gx[1]#_g151656_|)) (declare (not safe)) - (cons 'key __tmp150494))) - (__tmp150489 - (let ((__tmp150490 - (let ((__tmp150491 |gx[1]#_g150492_|)) + (cons 'key __tmp151655))) + (__tmp151650 + (let ((__tmp151651 + (let ((__tmp151652 |gx[1]#_g151653_|)) (declare (not safe)) - (cons 'phi __tmp150491)))) + (cons 'phi __tmp151652)))) (declare (not safe)) - (cons __tmp150490 '())))) + (cons __tmp151651 '())))) (declare (not safe)) - (cons __tmp150493 __tmp150489)))) + (cons __tmp151654 __tmp151650)))) (declare (not safe)) - (cons __tmp150496 __tmp150488)))) + (cons __tmp151657 __tmp151649)))) (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150487 - '12 + __obj150778 + __tmp151648 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150499 - (let ((__tmp150508 - (let ((__tmp150509 |gx[1]#_g150510_|)) + (let ((__tmp151660 + (let ((__tmp151669 + (let ((__tmp151670 |gx[1]#_g151671_|)) (declare (not safe)) - (cons 'id __tmp150509))) - (__tmp150500 - (let ((__tmp150505 - (let ((__tmp150506 |gx[1]#_g150507_|)) + (cons 'id __tmp151670))) + (__tmp151661 + (let ((__tmp151666 + (let ((__tmp151667 |gx[1]#_g151668_|)) (declare (not safe)) - (cons 'key __tmp150506))) - (__tmp150501 - (let ((__tmp150502 - (let ((__tmp150503 |gx[1]#_g150504_|)) + (cons 'key __tmp151667))) + (__tmp151662 + (let ((__tmp151663 + (let ((__tmp151664 |gx[1]#_g151665_|)) (declare (not safe)) - (cons 'phi __tmp150503)))) + (cons 'phi __tmp151664)))) (declare (not safe)) - (cons __tmp150502 '())))) + (cons __tmp151663 '())))) (declare (not safe)) - (cons __tmp150505 __tmp150501)))) + (cons __tmp151666 __tmp151662)))) (declare (not safe)) - (cons __tmp150508 __tmp150500)))) + (cons __tmp151669 __tmp151661)))) (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150499 - '13 + __obj150778 + __tmp151660 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150511 - (let ((__tmp150520 - (let ((__tmp150521 |gx[1]#_g150522_|)) + (let ((__tmp151672 + (let ((__tmp151681 + (let ((__tmp151682 |gx[1]#_g151683_|)) (declare (not safe)) - (cons 'id __tmp150521))) - (__tmp150512 - (let ((__tmp150517 - (let ((__tmp150518 |gx[1]#_g150519_|)) + (cons 'id __tmp151682))) + (__tmp151673 + (let ((__tmp151678 + (let ((__tmp151679 |gx[1]#_g151680_|)) (declare (not safe)) - (cons 'key __tmp150518))) - (__tmp150513 - (let ((__tmp150514 - (let ((__tmp150515 |gx[1]#_g150516_|)) + (cons 'key __tmp151679))) + (__tmp151674 + (let ((__tmp151675 + (let ((__tmp151676 |gx[1]#_g151677_|)) (declare (not safe)) - (cons 'phi __tmp150515)))) + (cons 'phi __tmp151676)))) (declare (not safe)) - (cons __tmp150514 '())))) + (cons __tmp151675 '())))) (declare (not safe)) - (cons __tmp150517 __tmp150513)))) + (cons __tmp151678 __tmp151674)))) (declare (not safe)) - (cons __tmp150520 __tmp150512)))) + (cons __tmp151681 __tmp151673)))) (declare (not safe)) (##unchecked-structure-set! - __obj149617 - __tmp150511 - '14 + __obj150778 + __tmp151672 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149617)) + __obj150778)) (define |gx[:0:]#top-binding| - (let ((__obj149618 + (let ((__obj150779 (let () (declare (not safe)) (##structure @@ -6324,11 +6414,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149618 + __obj150779 'gx#top-binding::t '1 gerbil/core$$#class-type-info::t @@ -6336,7 +6427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149618 + __obj150779 'top-binding '2 gerbil/core$$#class-type-info::t @@ -6344,26 +6435,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149618 + __obj150779 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150523 - (let ((__tmp150524 |gx[1]#_g150468_|)) + (let ((__tmp151684 + (let ((__tmp151685 |gx[1]#_g151629_|)) (declare (not safe)) - (cons __tmp150524 '())))) + (cons __tmp151685 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150523 + __obj150779 + __tmp151684 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149618 + __obj150779 '#t '5 gerbil/core$$#class-type-info::t @@ -6371,7 +6462,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149618 + __obj150779 '#f '6 gerbil/core$$#class-type-info::t @@ -6379,150 +6470,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149618 + __obj150779 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150525 |gx[1]#_g150526_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150525 + __obj150779 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150527 |gx[1]#_g150528_|)) + (let ((__tmp151686 |gx[1]#_g151687_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150527 + __obj150779 + __tmp151686 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150529 |gx[1]#_g150530_|)) + (let ((__tmp151688 |gx[1]#_g151689_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150529 + __obj150779 + __tmp151688 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150531 - (let ((__tmp150540 - (let ((__tmp150541 |gx[1]#_g150542_|)) + (let ((__tmp151690 |gx[1]#_g151691_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150779 + __tmp151690 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151692 + (let ((__tmp151701 + (let ((__tmp151702 |gx[1]#_g151703_|)) (declare (not safe)) - (cons 'id __tmp150541))) - (__tmp150532 - (let ((__tmp150537 - (let ((__tmp150538 |gx[1]#_g150539_|)) + (cons 'id __tmp151702))) + (__tmp151693 + (let ((__tmp151698 + (let ((__tmp151699 |gx[1]#_g151700_|)) (declare (not safe)) - (cons 'key __tmp150538))) - (__tmp150533 - (let ((__tmp150534 - (let ((__tmp150535 |gx[1]#_g150536_|)) + (cons 'key __tmp151699))) + (__tmp151694 + (let ((__tmp151695 + (let ((__tmp151696 |gx[1]#_g151697_|)) (declare (not safe)) - (cons 'phi __tmp150535)))) + (cons 'phi __tmp151696)))) (declare (not safe)) - (cons __tmp150534 '())))) + (cons __tmp151695 '())))) (declare (not safe)) - (cons __tmp150537 __tmp150533)))) + (cons __tmp151698 __tmp151694)))) (declare (not safe)) - (cons __tmp150540 __tmp150532)))) + (cons __tmp151701 __tmp151693)))) (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150531 - '11 + __obj150779 + __tmp151692 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150543 - (let ((__tmp150552 - (let ((__tmp150553 |gx[1]#_g150554_|)) + (let ((__tmp151704 + (let ((__tmp151713 + (let ((__tmp151714 |gx[1]#_g151715_|)) (declare (not safe)) - (cons 'id __tmp150553))) - (__tmp150544 - (let ((__tmp150549 - (let ((__tmp150550 |gx[1]#_g150551_|)) + (cons 'id __tmp151714))) + (__tmp151705 + (let ((__tmp151710 + (let ((__tmp151711 |gx[1]#_g151712_|)) (declare (not safe)) - (cons 'key __tmp150550))) - (__tmp150545 - (let ((__tmp150546 - (let ((__tmp150547 |gx[1]#_g150548_|)) + (cons 'key __tmp151711))) + (__tmp151706 + (let ((__tmp151707 + (let ((__tmp151708 |gx[1]#_g151709_|)) (declare (not safe)) - (cons 'phi __tmp150547)))) + (cons 'phi __tmp151708)))) (declare (not safe)) - (cons __tmp150546 '())))) + (cons __tmp151707 '())))) (declare (not safe)) - (cons __tmp150549 __tmp150545)))) + (cons __tmp151710 __tmp151706)))) (declare (not safe)) - (cons __tmp150552 __tmp150544)))) + (cons __tmp151713 __tmp151705)))) (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150543 - '12 + __obj150779 + __tmp151704 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150555 - (let ((__tmp150564 - (let ((__tmp150565 |gx[1]#_g150566_|)) + (let ((__tmp151716 + (let ((__tmp151725 + (let ((__tmp151726 |gx[1]#_g151727_|)) (declare (not safe)) - (cons 'id __tmp150565))) - (__tmp150556 - (let ((__tmp150561 - (let ((__tmp150562 |gx[1]#_g150563_|)) + (cons 'id __tmp151726))) + (__tmp151717 + (let ((__tmp151722 + (let ((__tmp151723 |gx[1]#_g151724_|)) (declare (not safe)) - (cons 'key __tmp150562))) - (__tmp150557 - (let ((__tmp150558 - (let ((__tmp150559 |gx[1]#_g150560_|)) + (cons 'key __tmp151723))) + (__tmp151718 + (let ((__tmp151719 + (let ((__tmp151720 |gx[1]#_g151721_|)) (declare (not safe)) - (cons 'phi __tmp150559)))) + (cons 'phi __tmp151720)))) (declare (not safe)) - (cons __tmp150558 '())))) + (cons __tmp151719 '())))) (declare (not safe)) - (cons __tmp150561 __tmp150557)))) + (cons __tmp151722 __tmp151718)))) (declare (not safe)) - (cons __tmp150564 __tmp150556)))) + (cons __tmp151725 __tmp151717)))) (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150555 - '13 + __obj150779 + __tmp151716 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150567 - (let ((__tmp150576 - (let ((__tmp150577 |gx[1]#_g150578_|)) + (let ((__tmp151728 + (let ((__tmp151737 + (let ((__tmp151738 |gx[1]#_g151739_|)) (declare (not safe)) - (cons 'id __tmp150577))) - (__tmp150568 - (let ((__tmp150573 - (let ((__tmp150574 |gx[1]#_g150575_|)) + (cons 'id __tmp151738))) + (__tmp151729 + (let ((__tmp151734 + (let ((__tmp151735 |gx[1]#_g151736_|)) (declare (not safe)) - (cons 'key __tmp150574))) - (__tmp150569 - (let ((__tmp150570 - (let ((__tmp150571 |gx[1]#_g150572_|)) + (cons 'key __tmp151735))) + (__tmp151730 + (let ((__tmp151731 + (let ((__tmp151732 |gx[1]#_g151733_|)) (declare (not safe)) - (cons 'phi __tmp150571)))) + (cons 'phi __tmp151732)))) (declare (not safe)) - (cons __tmp150570 '())))) + (cons __tmp151731 '())))) (declare (not safe)) - (cons __tmp150573 __tmp150569)))) + (cons __tmp151734 __tmp151730)))) (declare (not safe)) - (cons __tmp150576 __tmp150568)))) + (cons __tmp151737 __tmp151729)))) (declare (not safe)) (##unchecked-structure-set! - __obj149618 - __tmp150567 - '14 + __obj150779 + __tmp151728 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149618)) + __obj150779)) (define |gx[:0:]#module-binding| - (let ((__obj149619 + (let ((__obj150780 (let () (declare (not safe)) (##structure @@ -6540,11 +6639,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149619 + __obj150780 'gx#module-binding::t '1 gerbil/core$$#class-type-info::t @@ -6552,7 +6652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149619 + __obj150780 'module-binding '2 gerbil/core$$#class-type-info::t @@ -6560,26 +6660,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149619 + __obj150780 '(context) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150579 - (let ((__tmp150580 |gx[1]#_g150581_|)) + (let ((__tmp151740 + (let ((__tmp151741 |gx[1]#_g151742_|)) (declare (not safe)) - (cons __tmp150580 '())))) + (cons __tmp151741 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150579 + __obj150780 + __tmp151740 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149619 + __obj150780 '#t '5 gerbil/core$$#class-type-info::t @@ -6587,7 +6687,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149619 + __obj150780 '#f '6 gerbil/core$$#class-type-info::t @@ -6595,182 +6695,190 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149619 + __obj150780 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150582 |gx[1]#_g150583_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150582 + __obj150780 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150584 |gx[1]#_g150585_|)) + (let ((__tmp151743 |gx[1]#_g151744_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150584 + __obj150780 + __tmp151743 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150586 |gx[1]#_g150587_|)) + (let ((__tmp151745 |gx[1]#_g151746_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150586 + __obj150780 + __tmp151745 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150588 - (let ((__tmp150601 - (let ((__tmp150602 |gx[1]#_g150603_|)) + (let ((__tmp151747 |gx[1]#_g151748_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150780 + __tmp151747 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151749 + (let ((__tmp151762 + (let ((__tmp151763 |gx[1]#_g151764_|)) (declare (not safe)) - (cons 'context __tmp150602))) - (__tmp150589 - (let ((__tmp150598 - (let ((__tmp150599 |gx[1]#_g150600_|)) + (cons 'context __tmp151763))) + (__tmp151750 + (let ((__tmp151759 + (let ((__tmp151760 |gx[1]#_g151761_|)) (declare (not safe)) - (cons 'id __tmp150599))) - (__tmp150590 - (let ((__tmp150595 - (let ((__tmp150596 |gx[1]#_g150597_|)) + (cons 'id __tmp151760))) + (__tmp151751 + (let ((__tmp151756 + (let ((__tmp151757 |gx[1]#_g151758_|)) (declare (not safe)) - (cons 'key __tmp150596))) - (__tmp150591 - (let ((__tmp150592 - (let ((__tmp150593 - |gx[1]#_g150594_|)) + (cons 'key __tmp151757))) + (__tmp151752 + (let ((__tmp151753 + (let ((__tmp151754 + |gx[1]#_g151755_|)) (declare (not safe)) - (cons 'phi __tmp150593)))) + (cons 'phi __tmp151754)))) (declare (not safe)) - (cons __tmp150592 '())))) + (cons __tmp151753 '())))) (declare (not safe)) - (cons __tmp150595 __tmp150591)))) + (cons __tmp151756 __tmp151752)))) (declare (not safe)) - (cons __tmp150598 __tmp150590)))) + (cons __tmp151759 __tmp151751)))) (declare (not safe)) - (cons __tmp150601 __tmp150589)))) + (cons __tmp151762 __tmp151750)))) (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150588 - '11 + __obj150780 + __tmp151749 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150604 - (let ((__tmp150617 - (let ((__tmp150618 |gx[1]#_g150619_|)) + (let ((__tmp151765 + (let ((__tmp151778 + (let ((__tmp151779 |gx[1]#_g151780_|)) (declare (not safe)) - (cons 'context __tmp150618))) - (__tmp150605 - (let ((__tmp150614 - (let ((__tmp150615 |gx[1]#_g150616_|)) + (cons 'context __tmp151779))) + (__tmp151766 + (let ((__tmp151775 + (let ((__tmp151776 |gx[1]#_g151777_|)) (declare (not safe)) - (cons 'id __tmp150615))) - (__tmp150606 - (let ((__tmp150611 - (let ((__tmp150612 |gx[1]#_g150613_|)) + (cons 'id __tmp151776))) + (__tmp151767 + (let ((__tmp151772 + (let ((__tmp151773 |gx[1]#_g151774_|)) (declare (not safe)) - (cons 'key __tmp150612))) - (__tmp150607 - (let ((__tmp150608 - (let ((__tmp150609 - |gx[1]#_g150610_|)) + (cons 'key __tmp151773))) + (__tmp151768 + (let ((__tmp151769 + (let ((__tmp151770 + |gx[1]#_g151771_|)) (declare (not safe)) - (cons 'phi __tmp150609)))) + (cons 'phi __tmp151770)))) (declare (not safe)) - (cons __tmp150608 '())))) + (cons __tmp151769 '())))) (declare (not safe)) - (cons __tmp150611 __tmp150607)))) + (cons __tmp151772 __tmp151768)))) (declare (not safe)) - (cons __tmp150614 __tmp150606)))) + (cons __tmp151775 __tmp151767)))) (declare (not safe)) - (cons __tmp150617 __tmp150605)))) + (cons __tmp151778 __tmp151766)))) (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150604 - '12 + __obj150780 + __tmp151765 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150620 - (let ((__tmp150633 - (let ((__tmp150634 |gx[1]#_g150635_|)) + (let ((__tmp151781 + (let ((__tmp151794 + (let ((__tmp151795 |gx[1]#_g151796_|)) (declare (not safe)) - (cons 'context __tmp150634))) - (__tmp150621 - (let ((__tmp150630 - (let ((__tmp150631 |gx[1]#_g150632_|)) + (cons 'context __tmp151795))) + (__tmp151782 + (let ((__tmp151791 + (let ((__tmp151792 |gx[1]#_g151793_|)) (declare (not safe)) - (cons 'id __tmp150631))) - (__tmp150622 - (let ((__tmp150627 - (let ((__tmp150628 |gx[1]#_g150629_|)) + (cons 'id __tmp151792))) + (__tmp151783 + (let ((__tmp151788 + (let ((__tmp151789 |gx[1]#_g151790_|)) (declare (not safe)) - (cons 'key __tmp150628))) - (__tmp150623 - (let ((__tmp150624 - (let ((__tmp150625 - |gx[1]#_g150626_|)) + (cons 'key __tmp151789))) + (__tmp151784 + (let ((__tmp151785 + (let ((__tmp151786 + |gx[1]#_g151787_|)) (declare (not safe)) - (cons 'phi __tmp150625)))) + (cons 'phi __tmp151786)))) (declare (not safe)) - (cons __tmp150624 '())))) + (cons __tmp151785 '())))) (declare (not safe)) - (cons __tmp150627 __tmp150623)))) + (cons __tmp151788 __tmp151784)))) (declare (not safe)) - (cons __tmp150630 __tmp150622)))) + (cons __tmp151791 __tmp151783)))) (declare (not safe)) - (cons __tmp150633 __tmp150621)))) + (cons __tmp151794 __tmp151782)))) (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150620 - '13 + __obj150780 + __tmp151781 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150636 - (let ((__tmp150649 - (let ((__tmp150650 |gx[1]#_g150651_|)) + (let ((__tmp151797 + (let ((__tmp151810 + (let ((__tmp151811 |gx[1]#_g151812_|)) (declare (not safe)) - (cons 'context __tmp150650))) - (__tmp150637 - (let ((__tmp150646 - (let ((__tmp150647 |gx[1]#_g150648_|)) + (cons 'context __tmp151811))) + (__tmp151798 + (let ((__tmp151807 + (let ((__tmp151808 |gx[1]#_g151809_|)) (declare (not safe)) - (cons 'id __tmp150647))) - (__tmp150638 - (let ((__tmp150643 - (let ((__tmp150644 |gx[1]#_g150645_|)) + (cons 'id __tmp151808))) + (__tmp151799 + (let ((__tmp151804 + (let ((__tmp151805 |gx[1]#_g151806_|)) (declare (not safe)) - (cons 'key __tmp150644))) - (__tmp150639 - (let ((__tmp150640 - (let ((__tmp150641 - |gx[1]#_g150642_|)) + (cons 'key __tmp151805))) + (__tmp151800 + (let ((__tmp151801 + (let ((__tmp151802 + |gx[1]#_g151803_|)) (declare (not safe)) - (cons 'phi __tmp150641)))) + (cons 'phi __tmp151802)))) (declare (not safe)) - (cons __tmp150640 '())))) + (cons __tmp151801 '())))) (declare (not safe)) - (cons __tmp150643 __tmp150639)))) + (cons __tmp151804 __tmp151800)))) (declare (not safe)) - (cons __tmp150646 __tmp150638)))) + (cons __tmp151807 __tmp151799)))) (declare (not safe)) - (cons __tmp150649 __tmp150637)))) + (cons __tmp151810 __tmp151798)))) (declare (not safe)) (##unchecked-structure-set! - __obj149619 - __tmp150636 - '14 + __obj150780 + __tmp151797 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149619)) + __obj150780)) (define |gx[:0:]#extern-binding| - (let ((__obj149620 + (let ((__obj150781 (let () (declare (not safe)) (##structure @@ -6788,11 +6896,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149620 + __obj150781 'gx#extern-binding::t '1 gerbil/core$$#class-type-info::t @@ -6800,7 +6909,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149620 + __obj150781 'extern-binding '2 gerbil/core$$#class-type-info::t @@ -6808,26 +6917,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149620 + __obj150781 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150652 - (let ((__tmp150653 |gx[1]#_g150581_|)) + (let ((__tmp151813 + (let ((__tmp151814 |gx[1]#_g151742_|)) (declare (not safe)) - (cons __tmp150653 '())))) + (cons __tmp151814 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150652 + __obj150781 + __tmp151813 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149620 + __obj150781 '#t '5 gerbil/core$$#class-type-info::t @@ -6835,7 +6944,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149620 + __obj150781 '#f '6 gerbil/core$$#class-type-info::t @@ -6843,150 +6952,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149620 + __obj150781 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150654 |gx[1]#_g150655_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150654 + __obj150781 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150656 |gx[1]#_g150657_|)) + (let ((__tmp151815 |gx[1]#_g151816_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150656 + __obj150781 + __tmp151815 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150658 |gx[1]#_g150659_|)) + (let ((__tmp151817 |gx[1]#_g151818_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150658 + __obj150781 + __tmp151817 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150660 - (let ((__tmp150669 - (let ((__tmp150670 |gx[1]#_g150671_|)) + (let ((__tmp151819 |gx[1]#_g151820_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150781 + __tmp151819 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151821 + (let ((__tmp151830 + (let ((__tmp151831 |gx[1]#_g151832_|)) (declare (not safe)) - (cons 'id __tmp150670))) - (__tmp150661 - (let ((__tmp150666 - (let ((__tmp150667 |gx[1]#_g150668_|)) + (cons 'id __tmp151831))) + (__tmp151822 + (let ((__tmp151827 + (let ((__tmp151828 |gx[1]#_g151829_|)) (declare (not safe)) - (cons 'key __tmp150667))) - (__tmp150662 - (let ((__tmp150663 - (let ((__tmp150664 |gx[1]#_g150665_|)) + (cons 'key __tmp151828))) + (__tmp151823 + (let ((__tmp151824 + (let ((__tmp151825 |gx[1]#_g151826_|)) (declare (not safe)) - (cons 'phi __tmp150664)))) + (cons 'phi __tmp151825)))) (declare (not safe)) - (cons __tmp150663 '())))) + (cons __tmp151824 '())))) (declare (not safe)) - (cons __tmp150666 __tmp150662)))) + (cons __tmp151827 __tmp151823)))) (declare (not safe)) - (cons __tmp150669 __tmp150661)))) + (cons __tmp151830 __tmp151822)))) (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150660 - '11 + __obj150781 + __tmp151821 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150672 - (let ((__tmp150681 - (let ((__tmp150682 |gx[1]#_g150683_|)) + (let ((__tmp151833 + (let ((__tmp151842 + (let ((__tmp151843 |gx[1]#_g151844_|)) (declare (not safe)) - (cons 'id __tmp150682))) - (__tmp150673 - (let ((__tmp150678 - (let ((__tmp150679 |gx[1]#_g150680_|)) + (cons 'id __tmp151843))) + (__tmp151834 + (let ((__tmp151839 + (let ((__tmp151840 |gx[1]#_g151841_|)) (declare (not safe)) - (cons 'key __tmp150679))) - (__tmp150674 - (let ((__tmp150675 - (let ((__tmp150676 |gx[1]#_g150677_|)) + (cons 'key __tmp151840))) + (__tmp151835 + (let ((__tmp151836 + (let ((__tmp151837 |gx[1]#_g151838_|)) (declare (not safe)) - (cons 'phi __tmp150676)))) + (cons 'phi __tmp151837)))) (declare (not safe)) - (cons __tmp150675 '())))) + (cons __tmp151836 '())))) (declare (not safe)) - (cons __tmp150678 __tmp150674)))) + (cons __tmp151839 __tmp151835)))) (declare (not safe)) - (cons __tmp150681 __tmp150673)))) + (cons __tmp151842 __tmp151834)))) (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150672 - '12 + __obj150781 + __tmp151833 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150684 - (let ((__tmp150693 - (let ((__tmp150694 |gx[1]#_g150695_|)) + (let ((__tmp151845 + (let ((__tmp151854 + (let ((__tmp151855 |gx[1]#_g151856_|)) (declare (not safe)) - (cons 'id __tmp150694))) - (__tmp150685 - (let ((__tmp150690 - (let ((__tmp150691 |gx[1]#_g150692_|)) + (cons 'id __tmp151855))) + (__tmp151846 + (let ((__tmp151851 + (let ((__tmp151852 |gx[1]#_g151853_|)) (declare (not safe)) - (cons 'key __tmp150691))) - (__tmp150686 - (let ((__tmp150687 - (let ((__tmp150688 |gx[1]#_g150689_|)) + (cons 'key __tmp151852))) + (__tmp151847 + (let ((__tmp151848 + (let ((__tmp151849 |gx[1]#_g151850_|)) (declare (not safe)) - (cons 'phi __tmp150688)))) + (cons 'phi __tmp151849)))) (declare (not safe)) - (cons __tmp150687 '())))) + (cons __tmp151848 '())))) (declare (not safe)) - (cons __tmp150690 __tmp150686)))) + (cons __tmp151851 __tmp151847)))) (declare (not safe)) - (cons __tmp150693 __tmp150685)))) + (cons __tmp151854 __tmp151846)))) (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150684 - '13 + __obj150781 + __tmp151845 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150696 - (let ((__tmp150705 - (let ((__tmp150706 |gx[1]#_g150707_|)) + (let ((__tmp151857 + (let ((__tmp151866 + (let ((__tmp151867 |gx[1]#_g151868_|)) (declare (not safe)) - (cons 'id __tmp150706))) - (__tmp150697 - (let ((__tmp150702 - (let ((__tmp150703 |gx[1]#_g150704_|)) + (cons 'id __tmp151867))) + (__tmp151858 + (let ((__tmp151863 + (let ((__tmp151864 |gx[1]#_g151865_|)) (declare (not safe)) - (cons 'key __tmp150703))) - (__tmp150698 - (let ((__tmp150699 - (let ((__tmp150700 |gx[1]#_g150701_|)) + (cons 'key __tmp151864))) + (__tmp151859 + (let ((__tmp151860 + (let ((__tmp151861 |gx[1]#_g151862_|)) (declare (not safe)) - (cons 'phi __tmp150700)))) + (cons 'phi __tmp151861)))) (declare (not safe)) - (cons __tmp150699 '())))) + (cons __tmp151860 '())))) (declare (not safe)) - (cons __tmp150702 __tmp150698)))) + (cons __tmp151863 __tmp151859)))) (declare (not safe)) - (cons __tmp150705 __tmp150697)))) + (cons __tmp151866 __tmp151858)))) (declare (not safe)) (##unchecked-structure-set! - __obj149620 - __tmp150696 - '14 + __obj150781 + __tmp151857 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149620)) + __obj150781)) (define |gx[:0:]#syntax-binding| - (let ((__obj149621 + (let ((__obj150782 (let () (declare (not safe)) (##structure @@ -7004,11 +7121,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149621 + __obj150782 'gx#syntax-binding::t '1 gerbil/core$$#class-type-info::t @@ -7016,7 +7134,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149621 + __obj150782 'syntax-binding '2 gerbil/core$$#class-type-info::t @@ -7024,26 +7142,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149621 + __obj150782 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150708 - (let ((__tmp150709 |gx[1]#_g150411_|)) + (let ((__tmp151869 + (let ((__tmp151870 |gx[1]#_g151572_|)) (declare (not safe)) - (cons __tmp150709 '())))) + (cons __tmp151870 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150708 + __obj150782 + __tmp151869 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149621 + __obj150782 '#t '5 gerbil/core$$#class-type-info::t @@ -7051,7 +7169,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149621 + __obj150782 '#t '6 gerbil/core$$#class-type-info::t @@ -7059,182 +7177,190 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149621 + __obj150782 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150710 |gx[1]#_g150711_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150710 + __obj150782 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150712 |gx[1]#_g150713_|)) + (let ((__tmp151871 |gx[1]#_g151872_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150712 + __obj150782 + __tmp151871 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150714 |gx[1]#_g150715_|)) + (let ((__tmp151873 |gx[1]#_g151874_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150714 + __obj150782 + __tmp151873 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150716 - (let ((__tmp150729 - (let ((__tmp150730 |gx[1]#_g150731_|)) + (let ((__tmp151875 |gx[1]#_g151876_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150782 + __tmp151875 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151877 + (let ((__tmp151890 + (let ((__tmp151891 |gx[1]#_g151892_|)) (declare (not safe)) - (cons 'e __tmp150730))) - (__tmp150717 - (let ((__tmp150726 - (let ((__tmp150727 |gx[1]#_g150728_|)) + (cons 'e __tmp151891))) + (__tmp151878 + (let ((__tmp151887 + (let ((__tmp151888 |gx[1]#_g151889_|)) (declare (not safe)) - (cons 'id __tmp150727))) - (__tmp150718 - (let ((__tmp150723 - (let ((__tmp150724 |gx[1]#_g150725_|)) + (cons 'id __tmp151888))) + (__tmp151879 + (let ((__tmp151884 + (let ((__tmp151885 |gx[1]#_g151886_|)) (declare (not safe)) - (cons 'key __tmp150724))) - (__tmp150719 - (let ((__tmp150720 - (let ((__tmp150721 - |gx[1]#_g150722_|)) + (cons 'key __tmp151885))) + (__tmp151880 + (let ((__tmp151881 + (let ((__tmp151882 + |gx[1]#_g151883_|)) (declare (not safe)) - (cons 'phi __tmp150721)))) + (cons 'phi __tmp151882)))) (declare (not safe)) - (cons __tmp150720 '())))) + (cons __tmp151881 '())))) (declare (not safe)) - (cons __tmp150723 __tmp150719)))) + (cons __tmp151884 __tmp151880)))) (declare (not safe)) - (cons __tmp150726 __tmp150718)))) + (cons __tmp151887 __tmp151879)))) (declare (not safe)) - (cons __tmp150729 __tmp150717)))) + (cons __tmp151890 __tmp151878)))) (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150716 - '11 + __obj150782 + __tmp151877 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150732 - (let ((__tmp150745 - (let ((__tmp150746 |gx[1]#_g150747_|)) + (let ((__tmp151893 + (let ((__tmp151906 + (let ((__tmp151907 |gx[1]#_g151908_|)) (declare (not safe)) - (cons 'e __tmp150746))) - (__tmp150733 - (let ((__tmp150742 - (let ((__tmp150743 |gx[1]#_g150744_|)) + (cons 'e __tmp151907))) + (__tmp151894 + (let ((__tmp151903 + (let ((__tmp151904 |gx[1]#_g151905_|)) (declare (not safe)) - (cons 'id __tmp150743))) - (__tmp150734 - (let ((__tmp150739 - (let ((__tmp150740 |gx[1]#_g150741_|)) + (cons 'id __tmp151904))) + (__tmp151895 + (let ((__tmp151900 + (let ((__tmp151901 |gx[1]#_g151902_|)) (declare (not safe)) - (cons 'key __tmp150740))) - (__tmp150735 - (let ((__tmp150736 - (let ((__tmp150737 - |gx[1]#_g150738_|)) + (cons 'key __tmp151901))) + (__tmp151896 + (let ((__tmp151897 + (let ((__tmp151898 + |gx[1]#_g151899_|)) (declare (not safe)) - (cons 'phi __tmp150737)))) + (cons 'phi __tmp151898)))) (declare (not safe)) - (cons __tmp150736 '())))) + (cons __tmp151897 '())))) (declare (not safe)) - (cons __tmp150739 __tmp150735)))) + (cons __tmp151900 __tmp151896)))) (declare (not safe)) - (cons __tmp150742 __tmp150734)))) + (cons __tmp151903 __tmp151895)))) (declare (not safe)) - (cons __tmp150745 __tmp150733)))) + (cons __tmp151906 __tmp151894)))) (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150732 - '12 + __obj150782 + __tmp151893 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150748 - (let ((__tmp150761 - (let ((__tmp150762 |gx[1]#_g150763_|)) + (let ((__tmp151909 + (let ((__tmp151922 + (let ((__tmp151923 |gx[1]#_g151924_|)) (declare (not safe)) - (cons 'e __tmp150762))) - (__tmp150749 - (let ((__tmp150758 - (let ((__tmp150759 |gx[1]#_g150760_|)) + (cons 'e __tmp151923))) + (__tmp151910 + (let ((__tmp151919 + (let ((__tmp151920 |gx[1]#_g151921_|)) (declare (not safe)) - (cons 'id __tmp150759))) - (__tmp150750 - (let ((__tmp150755 - (let ((__tmp150756 |gx[1]#_g150757_|)) + (cons 'id __tmp151920))) + (__tmp151911 + (let ((__tmp151916 + (let ((__tmp151917 |gx[1]#_g151918_|)) (declare (not safe)) - (cons 'key __tmp150756))) - (__tmp150751 - (let ((__tmp150752 - (let ((__tmp150753 - |gx[1]#_g150754_|)) + (cons 'key __tmp151917))) + (__tmp151912 + (let ((__tmp151913 + (let ((__tmp151914 + |gx[1]#_g151915_|)) (declare (not safe)) - (cons 'phi __tmp150753)))) + (cons 'phi __tmp151914)))) (declare (not safe)) - (cons __tmp150752 '())))) + (cons __tmp151913 '())))) (declare (not safe)) - (cons __tmp150755 __tmp150751)))) + (cons __tmp151916 __tmp151912)))) (declare (not safe)) - (cons __tmp150758 __tmp150750)))) + (cons __tmp151919 __tmp151911)))) (declare (not safe)) - (cons __tmp150761 __tmp150749)))) + (cons __tmp151922 __tmp151910)))) (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150748 - '13 + __obj150782 + __tmp151909 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150764 - (let ((__tmp150777 - (let ((__tmp150778 |gx[1]#_g150779_|)) + (let ((__tmp151925 + (let ((__tmp151938 + (let ((__tmp151939 |gx[1]#_g151940_|)) (declare (not safe)) - (cons 'e __tmp150778))) - (__tmp150765 - (let ((__tmp150774 - (let ((__tmp150775 |gx[1]#_g150776_|)) + (cons 'e __tmp151939))) + (__tmp151926 + (let ((__tmp151935 + (let ((__tmp151936 |gx[1]#_g151937_|)) (declare (not safe)) - (cons 'id __tmp150775))) - (__tmp150766 - (let ((__tmp150771 - (let ((__tmp150772 |gx[1]#_g150773_|)) + (cons 'id __tmp151936))) + (__tmp151927 + (let ((__tmp151932 + (let ((__tmp151933 |gx[1]#_g151934_|)) (declare (not safe)) - (cons 'key __tmp150772))) - (__tmp150767 - (let ((__tmp150768 - (let ((__tmp150769 - |gx[1]#_g150770_|)) + (cons 'key __tmp151933))) + (__tmp151928 + (let ((__tmp151929 + (let ((__tmp151930 + |gx[1]#_g151931_|)) (declare (not safe)) - (cons 'phi __tmp150769)))) + (cons 'phi __tmp151930)))) (declare (not safe)) - (cons __tmp150768 '())))) + (cons __tmp151929 '())))) (declare (not safe)) - (cons __tmp150771 __tmp150767)))) + (cons __tmp151932 __tmp151928)))) (declare (not safe)) - (cons __tmp150774 __tmp150766)))) + (cons __tmp151935 __tmp151927)))) (declare (not safe)) - (cons __tmp150777 __tmp150765)))) + (cons __tmp151938 __tmp151926)))) (declare (not safe)) (##unchecked-structure-set! - __obj149621 - __tmp150764 - '14 + __obj150782 + __tmp151925 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149621)) + __obj150782)) (define |gx[:0:]#import-binding| - (let ((__obj149622 + (let ((__obj150783 (let () (declare (not safe)) (##structure @@ -7252,11 +7378,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149622 + __obj150783 'gx#import-binding::t '1 gerbil/core$$#class-type-info::t @@ -7264,7 +7391,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149622 + __obj150783 'import-binding '2 gerbil/core$$#class-type-info::t @@ -7272,26 +7399,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149622 + __obj150783 '(e context weak?) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150780 - (let ((__tmp150781 |gx[1]#_g150411_|)) + (let ((__tmp151941 + (let ((__tmp151942 |gx[1]#_g151572_|)) (declare (not safe)) - (cons __tmp150781 '())))) + (cons __tmp151942 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150780 + __obj150783 + __tmp151941 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149622 + __obj150783 '#t '5 gerbil/core$$#class-type-info::t @@ -7299,7 +7426,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149622 + __obj150783 '#t '6 gerbil/core$$#class-type-info::t @@ -7307,258 +7434,266 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149622 + __obj150783 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150782 |gx[1]#_g150783_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150782 + __obj150783 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150784 |gx[1]#_g150785_|)) + (let ((__tmp151943 |gx[1]#_g151944_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150784 + __obj150783 + __tmp151943 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150786 |gx[1]#_g150787_|)) + (let ((__tmp151945 |gx[1]#_g151946_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150786 + __obj150783 + __tmp151945 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150788 - (let ((__tmp150809 - (let ((__tmp150810 |gx[1]#_g150811_|)) + (let ((__tmp151947 |gx[1]#_g151948_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150783 + __tmp151947 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp151949 + (let ((__tmp151970 + (let ((__tmp151971 |gx[1]#_g151972_|)) (declare (not safe)) - (cons 'e __tmp150810))) - (__tmp150789 - (let ((__tmp150806 - (let ((__tmp150807 |gx[1]#_g150808_|)) + (cons 'e __tmp151971))) + (__tmp151950 + (let ((__tmp151967 + (let ((__tmp151968 |gx[1]#_g151969_|)) (declare (not safe)) - (cons 'context __tmp150807))) - (__tmp150790 - (let ((__tmp150803 - (let ((__tmp150804 |gx[1]#_g150805_|)) + (cons 'context __tmp151968))) + (__tmp151951 + (let ((__tmp151964 + (let ((__tmp151965 |gx[1]#_g151966_|)) (declare (not safe)) - (cons 'weak? __tmp150804))) - (__tmp150791 - (let ((__tmp150800 - (let ((__tmp150801 - |gx[1]#_g150802_|)) + (cons 'weak? __tmp151965))) + (__tmp151952 + (let ((__tmp151961 + (let ((__tmp151962 + |gx[1]#_g151963_|)) (declare (not safe)) - (cons 'id __tmp150801))) - (__tmp150792 - (let ((__tmp150797 - (let ((__tmp150798 - |gx[1]#_g150799_|)) + (cons 'id __tmp151962))) + (__tmp151953 + (let ((__tmp151958 + (let ((__tmp151959 + |gx[1]#_g151960_|)) (declare (not safe)) - (cons 'key __tmp150798))) - (__tmp150793 - (let ((__tmp150794 - (let ((__tmp150795 - |gx[1]#_g150796_|)) + (cons 'key __tmp151959))) + (__tmp151954 + (let ((__tmp151955 + (let ((__tmp151956 + |gx[1]#_g151957_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150795)))) + __tmp151956)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150794 '())))) + (cons __tmp151955 '())))) (declare (not safe)) - (cons __tmp150797 __tmp150793)))) + (cons __tmp151958 __tmp151954)))) (declare (not safe)) - (cons __tmp150800 __tmp150792)))) + (cons __tmp151961 __tmp151953)))) (declare (not safe)) - (cons __tmp150803 __tmp150791)))) + (cons __tmp151964 __tmp151952)))) (declare (not safe)) - (cons __tmp150806 __tmp150790)))) + (cons __tmp151967 __tmp151951)))) (declare (not safe)) - (cons __tmp150809 __tmp150789)))) + (cons __tmp151970 __tmp151950)))) (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150788 - '11 + __obj150783 + __tmp151949 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150812 - (let ((__tmp150833 - (let ((__tmp150834 |gx[1]#_g150835_|)) + (let ((__tmp151973 + (let ((__tmp151994 + (let ((__tmp151995 |gx[1]#_g151996_|)) (declare (not safe)) - (cons 'e __tmp150834))) - (__tmp150813 - (let ((__tmp150830 - (let ((__tmp150831 |gx[1]#_g150832_|)) + (cons 'e __tmp151995))) + (__tmp151974 + (let ((__tmp151991 + (let ((__tmp151992 |gx[1]#_g151993_|)) (declare (not safe)) - (cons 'context __tmp150831))) - (__tmp150814 - (let ((__tmp150827 - (let ((__tmp150828 |gx[1]#_g150829_|)) + (cons 'context __tmp151992))) + (__tmp151975 + (let ((__tmp151988 + (let ((__tmp151989 |gx[1]#_g151990_|)) (declare (not safe)) - (cons 'weak? __tmp150828))) - (__tmp150815 - (let ((__tmp150824 - (let ((__tmp150825 - |gx[1]#_g150826_|)) + (cons 'weak? __tmp151989))) + (__tmp151976 + (let ((__tmp151985 + (let ((__tmp151986 + |gx[1]#_g151987_|)) (declare (not safe)) - (cons 'id __tmp150825))) - (__tmp150816 - (let ((__tmp150821 - (let ((__tmp150822 - |gx[1]#_g150823_|)) + (cons 'id __tmp151986))) + (__tmp151977 + (let ((__tmp151982 + (let ((__tmp151983 + |gx[1]#_g151984_|)) (declare (not safe)) - (cons 'key __tmp150822))) - (__tmp150817 - (let ((__tmp150818 - (let ((__tmp150819 - |gx[1]#_g150820_|)) + (cons 'key __tmp151983))) + (__tmp151978 + (let ((__tmp151979 + (let ((__tmp151980 + |gx[1]#_g151981_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150819)))) + __tmp151980)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150818 '())))) + (cons __tmp151979 '())))) (declare (not safe)) - (cons __tmp150821 __tmp150817)))) + (cons __tmp151982 __tmp151978)))) (declare (not safe)) - (cons __tmp150824 __tmp150816)))) + (cons __tmp151985 __tmp151977)))) (declare (not safe)) - (cons __tmp150827 __tmp150815)))) + (cons __tmp151988 __tmp151976)))) (declare (not safe)) - (cons __tmp150830 __tmp150814)))) + (cons __tmp151991 __tmp151975)))) (declare (not safe)) - (cons __tmp150833 __tmp150813)))) + (cons __tmp151994 __tmp151974)))) (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150812 - '12 + __obj150783 + __tmp151973 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150836 - (let ((__tmp150857 - (let ((__tmp150858 |gx[1]#_g150859_|)) + (let ((__tmp151997 + (let ((__tmp152018 + (let ((__tmp152019 |gx[1]#_g152020_|)) (declare (not safe)) - (cons 'e __tmp150858))) - (__tmp150837 - (let ((__tmp150854 - (let ((__tmp150855 |gx[1]#_g150856_|)) + (cons 'e __tmp152019))) + (__tmp151998 + (let ((__tmp152015 + (let ((__tmp152016 |gx[1]#_g152017_|)) (declare (not safe)) - (cons 'context __tmp150855))) - (__tmp150838 - (let ((__tmp150851 - (let ((__tmp150852 |gx[1]#_g150853_|)) + (cons 'context __tmp152016))) + (__tmp151999 + (let ((__tmp152012 + (let ((__tmp152013 |gx[1]#_g152014_|)) (declare (not safe)) - (cons 'weak? __tmp150852))) - (__tmp150839 - (let ((__tmp150848 - (let ((__tmp150849 - |gx[1]#_g150850_|)) + (cons 'weak? __tmp152013))) + (__tmp152000 + (let ((__tmp152009 + (let ((__tmp152010 + |gx[1]#_g152011_|)) (declare (not safe)) - (cons 'id __tmp150849))) - (__tmp150840 - (let ((__tmp150845 - (let ((__tmp150846 - |gx[1]#_g150847_|)) + (cons 'id __tmp152010))) + (__tmp152001 + (let ((__tmp152006 + (let ((__tmp152007 + |gx[1]#_g152008_|)) (declare (not safe)) - (cons 'key __tmp150846))) - (__tmp150841 - (let ((__tmp150842 - (let ((__tmp150843 - |gx[1]#_g150844_|)) + (cons 'key __tmp152007))) + (__tmp152002 + (let ((__tmp152003 + (let ((__tmp152004 + |gx[1]#_g152005_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150843)))) + __tmp152004)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150842 '())))) + (cons __tmp152003 '())))) (declare (not safe)) - (cons __tmp150845 __tmp150841)))) + (cons __tmp152006 __tmp152002)))) (declare (not safe)) - (cons __tmp150848 __tmp150840)))) + (cons __tmp152009 __tmp152001)))) (declare (not safe)) - (cons __tmp150851 __tmp150839)))) + (cons __tmp152012 __tmp152000)))) (declare (not safe)) - (cons __tmp150854 __tmp150838)))) + (cons __tmp152015 __tmp151999)))) (declare (not safe)) - (cons __tmp150857 __tmp150837)))) + (cons __tmp152018 __tmp151998)))) (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150836 - '13 + __obj150783 + __tmp151997 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150860 - (let ((__tmp150881 - (let ((__tmp150882 |gx[1]#_g150883_|)) + (let ((__tmp152021 + (let ((__tmp152042 + (let ((__tmp152043 |gx[1]#_g152044_|)) (declare (not safe)) - (cons 'e __tmp150882))) - (__tmp150861 - (let ((__tmp150878 - (let ((__tmp150879 |gx[1]#_g150880_|)) + (cons 'e __tmp152043))) + (__tmp152022 + (let ((__tmp152039 + (let ((__tmp152040 |gx[1]#_g152041_|)) (declare (not safe)) - (cons 'context __tmp150879))) - (__tmp150862 - (let ((__tmp150875 - (let ((__tmp150876 |gx[1]#_g150877_|)) + (cons 'context __tmp152040))) + (__tmp152023 + (let ((__tmp152036 + (let ((__tmp152037 |gx[1]#_g152038_|)) (declare (not safe)) - (cons 'weak? __tmp150876))) - (__tmp150863 - (let ((__tmp150872 - (let ((__tmp150873 - |gx[1]#_g150874_|)) + (cons 'weak? __tmp152037))) + (__tmp152024 + (let ((__tmp152033 + (let ((__tmp152034 + |gx[1]#_g152035_|)) (declare (not safe)) - (cons 'id __tmp150873))) - (__tmp150864 - (let ((__tmp150869 - (let ((__tmp150870 - |gx[1]#_g150871_|)) + (cons 'id __tmp152034))) + (__tmp152025 + (let ((__tmp152030 + (let ((__tmp152031 + |gx[1]#_g152032_|)) (declare (not safe)) - (cons 'key __tmp150870))) - (__tmp150865 - (let ((__tmp150866 - (let ((__tmp150867 - |gx[1]#_g150868_|)) + (cons 'key __tmp152031))) + (__tmp152026 + (let ((__tmp152027 + (let ((__tmp152028 + |gx[1]#_g152029_|)) (declare (not safe)) (cons 'phi ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp150867)))) + __tmp152028)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp150866 '())))) + (cons __tmp152027 '())))) (declare (not safe)) - (cons __tmp150869 __tmp150865)))) + (cons __tmp152030 __tmp152026)))) (declare (not safe)) - (cons __tmp150872 __tmp150864)))) + (cons __tmp152033 __tmp152025)))) (declare (not safe)) - (cons __tmp150875 __tmp150863)))) + (cons __tmp152036 __tmp152024)))) (declare (not safe)) - (cons __tmp150878 __tmp150862)))) + (cons __tmp152039 __tmp152023)))) (declare (not safe)) - (cons __tmp150881 __tmp150861)))) + (cons __tmp152042 __tmp152022)))) (declare (not safe)) (##unchecked-structure-set! - __obj149622 - __tmp150860 - '14 + __obj150783 + __tmp152021 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149622)) + __obj150783)) (define |gx[:0:]#alias-binding| - (let ((__obj149623 + (let ((__obj150784 (let () (declare (not safe)) (##structure @@ -7576,11 +7711,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149623 + __obj150784 'gx#alias-binding::t '1 gerbil/core$$#class-type-info::t @@ -7588,7 +7724,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149623 + __obj150784 'alias-binding '2 gerbil/core$$#class-type-info::t @@ -7596,26 +7732,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149623 + __obj150784 '(e) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150884 - (let ((__tmp150885 |gx[1]#_g150411_|)) + (let ((__tmp152045 + (let ((__tmp152046 |gx[1]#_g151572_|)) (declare (not safe)) - (cons __tmp150885 '())))) + (cons __tmp152046 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150884 + __obj150784 + __tmp152045 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149623 + __obj150784 '#t '5 gerbil/core$$#class-type-info::t @@ -7623,7 +7759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149623 + __obj150784 '#t '6 gerbil/core$$#class-type-info::t @@ -7631,182 +7767,190 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149623 + __obj150784 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150886 |gx[1]#_g150887_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150886 + __obj150784 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150888 |gx[1]#_g150889_|)) + (let ((__tmp152047 |gx[1]#_g152048_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150888 + __obj150784 + __tmp152047 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150890 |gx[1]#_g150891_|)) + (let ((__tmp152049 |gx[1]#_g152050_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150890 + __obj150784 + __tmp152049 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150892 - (let ((__tmp150905 - (let ((__tmp150906 |gx[1]#_g150907_|)) + (let ((__tmp152051 |gx[1]#_g152052_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150784 + __tmp152051 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152053 + (let ((__tmp152066 + (let ((__tmp152067 |gx[1]#_g152068_|)) (declare (not safe)) - (cons 'e __tmp150906))) - (__tmp150893 - (let ((__tmp150902 - (let ((__tmp150903 |gx[1]#_g150904_|)) + (cons 'e __tmp152067))) + (__tmp152054 + (let ((__tmp152063 + (let ((__tmp152064 |gx[1]#_g152065_|)) (declare (not safe)) - (cons 'id __tmp150903))) - (__tmp150894 - (let ((__tmp150899 - (let ((__tmp150900 |gx[1]#_g150901_|)) + (cons 'id __tmp152064))) + (__tmp152055 + (let ((__tmp152060 + (let ((__tmp152061 |gx[1]#_g152062_|)) (declare (not safe)) - (cons 'key __tmp150900))) - (__tmp150895 - (let ((__tmp150896 - (let ((__tmp150897 - |gx[1]#_g150898_|)) + (cons 'key __tmp152061))) + (__tmp152056 + (let ((__tmp152057 + (let ((__tmp152058 + |gx[1]#_g152059_|)) (declare (not safe)) - (cons 'phi __tmp150897)))) + (cons 'phi __tmp152058)))) (declare (not safe)) - (cons __tmp150896 '())))) + (cons __tmp152057 '())))) (declare (not safe)) - (cons __tmp150899 __tmp150895)))) + (cons __tmp152060 __tmp152056)))) (declare (not safe)) - (cons __tmp150902 __tmp150894)))) + (cons __tmp152063 __tmp152055)))) (declare (not safe)) - (cons __tmp150905 __tmp150893)))) + (cons __tmp152066 __tmp152054)))) (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150892 - '11 + __obj150784 + __tmp152053 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150908 - (let ((__tmp150921 - (let ((__tmp150922 |gx[1]#_g150923_|)) + (let ((__tmp152069 + (let ((__tmp152082 + (let ((__tmp152083 |gx[1]#_g152084_|)) (declare (not safe)) - (cons 'e __tmp150922))) - (__tmp150909 - (let ((__tmp150918 - (let ((__tmp150919 |gx[1]#_g150920_|)) + (cons 'e __tmp152083))) + (__tmp152070 + (let ((__tmp152079 + (let ((__tmp152080 |gx[1]#_g152081_|)) (declare (not safe)) - (cons 'id __tmp150919))) - (__tmp150910 - (let ((__tmp150915 - (let ((__tmp150916 |gx[1]#_g150917_|)) + (cons 'id __tmp152080))) + (__tmp152071 + (let ((__tmp152076 + (let ((__tmp152077 |gx[1]#_g152078_|)) (declare (not safe)) - (cons 'key __tmp150916))) - (__tmp150911 - (let ((__tmp150912 - (let ((__tmp150913 - |gx[1]#_g150914_|)) + (cons 'key __tmp152077))) + (__tmp152072 + (let ((__tmp152073 + (let ((__tmp152074 + |gx[1]#_g152075_|)) (declare (not safe)) - (cons 'phi __tmp150913)))) + (cons 'phi __tmp152074)))) (declare (not safe)) - (cons __tmp150912 '())))) + (cons __tmp152073 '())))) (declare (not safe)) - (cons __tmp150915 __tmp150911)))) + (cons __tmp152076 __tmp152072)))) (declare (not safe)) - (cons __tmp150918 __tmp150910)))) + (cons __tmp152079 __tmp152071)))) (declare (not safe)) - (cons __tmp150921 __tmp150909)))) + (cons __tmp152082 __tmp152070)))) (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150908 - '12 + __obj150784 + __tmp152069 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150924 - (let ((__tmp150937 - (let ((__tmp150938 |gx[1]#_g150939_|)) + (let ((__tmp152085 + (let ((__tmp152098 + (let ((__tmp152099 |gx[1]#_g152100_|)) (declare (not safe)) - (cons 'e __tmp150938))) - (__tmp150925 - (let ((__tmp150934 - (let ((__tmp150935 |gx[1]#_g150936_|)) + (cons 'e __tmp152099))) + (__tmp152086 + (let ((__tmp152095 + (let ((__tmp152096 |gx[1]#_g152097_|)) (declare (not safe)) - (cons 'id __tmp150935))) - (__tmp150926 - (let ((__tmp150931 - (let ((__tmp150932 |gx[1]#_g150933_|)) + (cons 'id __tmp152096))) + (__tmp152087 + (let ((__tmp152092 + (let ((__tmp152093 |gx[1]#_g152094_|)) (declare (not safe)) - (cons 'key __tmp150932))) - (__tmp150927 - (let ((__tmp150928 - (let ((__tmp150929 - |gx[1]#_g150930_|)) + (cons 'key __tmp152093))) + (__tmp152088 + (let ((__tmp152089 + (let ((__tmp152090 + |gx[1]#_g152091_|)) (declare (not safe)) - (cons 'phi __tmp150929)))) + (cons 'phi __tmp152090)))) (declare (not safe)) - (cons __tmp150928 '())))) + (cons __tmp152089 '())))) (declare (not safe)) - (cons __tmp150931 __tmp150927)))) + (cons __tmp152092 __tmp152088)))) (declare (not safe)) - (cons __tmp150934 __tmp150926)))) + (cons __tmp152095 __tmp152087)))) (declare (not safe)) - (cons __tmp150937 __tmp150925)))) + (cons __tmp152098 __tmp152086)))) (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150924 - '13 + __obj150784 + __tmp152085 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150940 - (let ((__tmp150953 - (let ((__tmp150954 |gx[1]#_g150955_|)) + (let ((__tmp152101 + (let ((__tmp152114 + (let ((__tmp152115 |gx[1]#_g152116_|)) (declare (not safe)) - (cons 'e __tmp150954))) - (__tmp150941 - (let ((__tmp150950 - (let ((__tmp150951 |gx[1]#_g150952_|)) + (cons 'e __tmp152115))) + (__tmp152102 + (let ((__tmp152111 + (let ((__tmp152112 |gx[1]#_g152113_|)) (declare (not safe)) - (cons 'id __tmp150951))) - (__tmp150942 - (let ((__tmp150947 - (let ((__tmp150948 |gx[1]#_g150949_|)) + (cons 'id __tmp152112))) + (__tmp152103 + (let ((__tmp152108 + (let ((__tmp152109 |gx[1]#_g152110_|)) (declare (not safe)) - (cons 'key __tmp150948))) - (__tmp150943 - (let ((__tmp150944 - (let ((__tmp150945 - |gx[1]#_g150946_|)) + (cons 'key __tmp152109))) + (__tmp152104 + (let ((__tmp152105 + (let ((__tmp152106 + |gx[1]#_g152107_|)) (declare (not safe)) - (cons 'phi __tmp150945)))) + (cons 'phi __tmp152106)))) (declare (not safe)) - (cons __tmp150944 '())))) + (cons __tmp152105 '())))) (declare (not safe)) - (cons __tmp150947 __tmp150943)))) + (cons __tmp152108 __tmp152104)))) (declare (not safe)) - (cons __tmp150950 __tmp150942)))) + (cons __tmp152111 __tmp152103)))) (declare (not safe)) - (cons __tmp150953 __tmp150941)))) + (cons __tmp152114 __tmp152102)))) (declare (not safe)) (##unchecked-structure-set! - __obj149623 - __tmp150940 - '14 + __obj150784 + __tmp152101 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149623)) + __obj150784)) (define |gx[:0:]#expander| - (let ((__obj149624 + (let ((__obj150785 (let () (declare (not safe)) (##structure @@ -7824,11 +7968,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 + __obj150785 'gx#expander::t '1 gerbil/core$$#class-type-info::t @@ -7836,7 +7981,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 + __obj150785 'expander '2 gerbil/core$$#class-type-info::t @@ -7844,7 +7989,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 + __obj150785 '(e) '4 gerbil/core$$#class-type-info::t @@ -7852,7 +7997,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 + __obj150785 '() '3 gerbil/core$$#class-type-info::t @@ -7860,7 +8005,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 + __obj150785 '#t '5 gerbil/core$$#class-type-info::t @@ -7868,7 +8013,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 + __obj150785 '#f '6 gerbil/core$$#class-type-info::t @@ -7876,94 +8021,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 + __obj150785 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150956 |gx[1]#_g150957_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149624 - __tmp150956 + __obj150785 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150958 |gx[1]#_g150959_|)) + (let ((__tmp152117 |gx[1]#_g152118_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149624 - __tmp150958 + __obj150785 + __tmp152117 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150960 |gx[1]#_g150961_|)) + (let ((__tmp152119 |gx[1]#_g152120_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149624 - __tmp150960 + __obj150785 + __tmp152119 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150962 - (let ((__tmp150963 - (let ((__tmp150964 |gx[1]#_g150965_|)) - (declare (not safe)) - (cons 'e __tmp150964)))) - (declare (not safe)) - (cons __tmp150963 '())))) + (let ((__tmp152121 |gx[1]#_g152122_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149624 - __tmp150962 + __obj150785 + __tmp152121 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150966 - (let ((__tmp150967 - (let ((__tmp150968 |gx[1]#_g150969_|)) + (let ((__tmp152123 + (let ((__tmp152124 + (let ((__tmp152125 |gx[1]#_g152126_|)) (declare (not safe)) - (cons 'e __tmp150968)))) + (cons 'e __tmp152125)))) (declare (not safe)) - (cons __tmp150967 '())))) + (cons __tmp152124 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149624 - __tmp150966 + __obj150785 + __tmp152123 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150970 - (let ((__tmp150971 - (let ((__tmp150972 |gx[1]#_g150973_|)) + (let ((__tmp152127 + (let ((__tmp152128 + (let ((__tmp152129 |gx[1]#_g152130_|)) (declare (not safe)) - (cons 'e __tmp150972)))) + (cons 'e __tmp152129)))) (declare (not safe)) - (cons __tmp150971 '())))) + (cons __tmp152128 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149624 - __tmp150970 + __obj150785 + __tmp152127 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150974 - (let ((__tmp150975 - (let ((__tmp150976 |gx[1]#_g150977_|)) + (let ((__tmp152131 + (let ((__tmp152132 + (let ((__tmp152133 |gx[1]#_g152134_|)) (declare (not safe)) - (cons 'e __tmp150976)))) + (cons 'e __tmp152133)))) (declare (not safe)) - (cons __tmp150975 '())))) + (cons __tmp152132 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149624 - __tmp150974 + __obj150785 + __tmp152131 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149624)) + (let ((__tmp152135 + (let ((__tmp152136 + (let ((__tmp152137 |gx[1]#_g152138_|)) + (declare (not safe)) + (cons 'e __tmp152137)))) + (declare (not safe)) + (cons __tmp152136 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150785 + __tmp152135 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150785)) (define |gx[:0:]#core-expander| - (let ((__obj149625 + (let ((__obj150786 (let () (declare (not safe)) (##structure @@ -7981,11 +8134,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149625 + __obj150786 'gx#core-expander::t '1 gerbil/core$$#class-type-info::t @@ -7993,7 +8147,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149625 + __obj150786 'core-expander '2 gerbil/core$$#class-type-info::t @@ -8001,26 +8155,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149625 + __obj150786 '(id compile-top) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150978 - (let ((__tmp150979 |gx[1]#_g150980_|)) + (let ((__tmp152139 + (let ((__tmp152140 |gx[1]#_g152141_|)) (declare (not safe)) - (cons __tmp150979 '())))) + (cons __tmp152140 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp150978 + __obj150786 + __tmp152139 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149625 + __obj150786 '#t '5 gerbil/core$$#class-type-info::t @@ -8028,7 +8182,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149625 + __obj150786 '#f '6 gerbil/core$$#class-type-info::t @@ -8036,150 +8190,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149625 + __obj150786 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150981 |gx[1]#_g150982_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp150981 + __obj150786 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150983 |gx[1]#_g150984_|)) + (let ((__tmp152142 |gx[1]#_g152143_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp150983 + __obj150786 + __tmp152142 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150985 |gx[1]#_g150986_|)) + (let ((__tmp152144 |gx[1]#_g152145_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp150985 + __obj150786 + __tmp152144 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150987 - (let ((__tmp150996 - (let ((__tmp150997 |gx[1]#_g150998_|)) + (let ((__tmp152146 |gx[1]#_g152147_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150786 + __tmp152146 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152148 + (let ((__tmp152157 + (let ((__tmp152158 |gx[1]#_g152159_|)) (declare (not safe)) - (cons 'id __tmp150997))) - (__tmp150988 - (let ((__tmp150993 - (let ((__tmp150994 |gx[1]#_g150995_|)) + (cons 'id __tmp152158))) + (__tmp152149 + (let ((__tmp152154 + (let ((__tmp152155 |gx[1]#_g152156_|)) (declare (not safe)) - (cons 'compile-top __tmp150994))) - (__tmp150989 - (let ((__tmp150990 - (let ((__tmp150991 |gx[1]#_g150992_|)) + (cons 'compile-top __tmp152155))) + (__tmp152150 + (let ((__tmp152151 + (let ((__tmp152152 |gx[1]#_g152153_|)) (declare (not safe)) - (cons 'e __tmp150991)))) + (cons 'e __tmp152152)))) (declare (not safe)) - (cons __tmp150990 '())))) + (cons __tmp152151 '())))) (declare (not safe)) - (cons __tmp150993 __tmp150989)))) + (cons __tmp152154 __tmp152150)))) (declare (not safe)) - (cons __tmp150996 __tmp150988)))) + (cons __tmp152157 __tmp152149)))) (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp150987 - '11 + __obj150786 + __tmp152148 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp150999 - (let ((__tmp151008 - (let ((__tmp151009 |gx[1]#_g151010_|)) + (let ((__tmp152160 + (let ((__tmp152169 + (let ((__tmp152170 |gx[1]#_g152171_|)) (declare (not safe)) - (cons 'id __tmp151009))) - (__tmp151000 - (let ((__tmp151005 - (let ((__tmp151006 |gx[1]#_g151007_|)) + (cons 'id __tmp152170))) + (__tmp152161 + (let ((__tmp152166 + (let ((__tmp152167 |gx[1]#_g152168_|)) (declare (not safe)) - (cons 'compile-top __tmp151006))) - (__tmp151001 - (let ((__tmp151002 - (let ((__tmp151003 |gx[1]#_g151004_|)) + (cons 'compile-top __tmp152167))) + (__tmp152162 + (let ((__tmp152163 + (let ((__tmp152164 |gx[1]#_g152165_|)) (declare (not safe)) - (cons 'e __tmp151003)))) + (cons 'e __tmp152164)))) (declare (not safe)) - (cons __tmp151002 '())))) + (cons __tmp152163 '())))) (declare (not safe)) - (cons __tmp151005 __tmp151001)))) + (cons __tmp152166 __tmp152162)))) (declare (not safe)) - (cons __tmp151008 __tmp151000)))) + (cons __tmp152169 __tmp152161)))) (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp150999 - '12 + __obj150786 + __tmp152160 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151011 - (let ((__tmp151020 - (let ((__tmp151021 |gx[1]#_g151022_|)) + (let ((__tmp152172 + (let ((__tmp152181 + (let ((__tmp152182 |gx[1]#_g152183_|)) (declare (not safe)) - (cons 'id __tmp151021))) - (__tmp151012 - (let ((__tmp151017 - (let ((__tmp151018 |gx[1]#_g151019_|)) + (cons 'id __tmp152182))) + (__tmp152173 + (let ((__tmp152178 + (let ((__tmp152179 |gx[1]#_g152180_|)) (declare (not safe)) - (cons 'compile-top __tmp151018))) - (__tmp151013 - (let ((__tmp151014 - (let ((__tmp151015 |gx[1]#_g151016_|)) + (cons 'compile-top __tmp152179))) + (__tmp152174 + (let ((__tmp152175 + (let ((__tmp152176 |gx[1]#_g152177_|)) (declare (not safe)) - (cons 'e __tmp151015)))) + (cons 'e __tmp152176)))) (declare (not safe)) - (cons __tmp151014 '())))) + (cons __tmp152175 '())))) (declare (not safe)) - (cons __tmp151017 __tmp151013)))) + (cons __tmp152178 __tmp152174)))) (declare (not safe)) - (cons __tmp151020 __tmp151012)))) + (cons __tmp152181 __tmp152173)))) (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp151011 - '13 + __obj150786 + __tmp152172 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151023 - (let ((__tmp151032 - (let ((__tmp151033 |gx[1]#_g151034_|)) + (let ((__tmp152184 + (let ((__tmp152193 + (let ((__tmp152194 |gx[1]#_g152195_|)) (declare (not safe)) - (cons 'id __tmp151033))) - (__tmp151024 - (let ((__tmp151029 - (let ((__tmp151030 |gx[1]#_g151031_|)) + (cons 'id __tmp152194))) + (__tmp152185 + (let ((__tmp152190 + (let ((__tmp152191 |gx[1]#_g152192_|)) (declare (not safe)) - (cons 'compile-top __tmp151030))) - (__tmp151025 - (let ((__tmp151026 - (let ((__tmp151027 |gx[1]#_g151028_|)) + (cons 'compile-top __tmp152191))) + (__tmp152186 + (let ((__tmp152187 + (let ((__tmp152188 |gx[1]#_g152189_|)) (declare (not safe)) - (cons 'e __tmp151027)))) + (cons 'e __tmp152188)))) (declare (not safe)) - (cons __tmp151026 '())))) + (cons __tmp152187 '())))) (declare (not safe)) - (cons __tmp151029 __tmp151025)))) + (cons __tmp152190 __tmp152186)))) (declare (not safe)) - (cons __tmp151032 __tmp151024)))) + (cons __tmp152193 __tmp152185)))) (declare (not safe)) (##unchecked-structure-set! - __obj149625 - __tmp151023 - '14 + __obj150786 + __tmp152184 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149625)) + __obj150786)) (define |gx[:0:]#expression-form| - (let ((__obj149626 + (let ((__obj150787 (let () (declare (not safe)) (##structure @@ -8197,11 +8359,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149626 + __obj150787 'gx#expression-form::t '1 gerbil/core$$#class-type-info::t @@ -8209,7 +8372,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149626 + __obj150787 'expression-form '2 gerbil/core$$#class-type-info::t @@ -8217,26 +8380,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149626 + __obj150787 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151035 - (let ((__tmp151036 |gx[1]#_g151037_|)) + (let ((__tmp152196 + (let ((__tmp152197 |gx[1]#_g152198_|)) (declare (not safe)) - (cons __tmp151036 '())))) + (cons __tmp152197 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151035 + __obj150787 + __tmp152196 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149626 + __obj150787 '#t '5 gerbil/core$$#class-type-info::t @@ -8244,7 +8407,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149626 + __obj150787 '#f '6 gerbil/core$$#class-type-info::t @@ -8252,150 +8415,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149626 + __obj150787 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151038 |gx[1]#_g151039_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151038 + __obj150787 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151040 |gx[1]#_g151041_|)) + (let ((__tmp152199 |gx[1]#_g152200_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151040 + __obj150787 + __tmp152199 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151042 |gx[1]#_g151043_|)) + (let ((__tmp152201 |gx[1]#_g152202_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151042 + __obj150787 + __tmp152201 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151044 - (let ((__tmp151053 - (let ((__tmp151054 |gx[1]#_g151055_|)) + (let ((__tmp152203 |gx[1]#_g152204_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150787 + __tmp152203 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152205 + (let ((__tmp152214 + (let ((__tmp152215 |gx[1]#_g152216_|)) (declare (not safe)) - (cons 'id __tmp151054))) - (__tmp151045 - (let ((__tmp151050 - (let ((__tmp151051 |gx[1]#_g151052_|)) + (cons 'id __tmp152215))) + (__tmp152206 + (let ((__tmp152211 + (let ((__tmp152212 |gx[1]#_g152213_|)) (declare (not safe)) - (cons 'compile-top __tmp151051))) - (__tmp151046 - (let ((__tmp151047 - (let ((__tmp151048 |gx[1]#_g151049_|)) + (cons 'compile-top __tmp152212))) + (__tmp152207 + (let ((__tmp152208 + (let ((__tmp152209 |gx[1]#_g152210_|)) (declare (not safe)) - (cons 'e __tmp151048)))) + (cons 'e __tmp152209)))) (declare (not safe)) - (cons __tmp151047 '())))) + (cons __tmp152208 '())))) (declare (not safe)) - (cons __tmp151050 __tmp151046)))) + (cons __tmp152211 __tmp152207)))) (declare (not safe)) - (cons __tmp151053 __tmp151045)))) + (cons __tmp152214 __tmp152206)))) (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151044 - '11 + __obj150787 + __tmp152205 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151056 - (let ((__tmp151065 - (let ((__tmp151066 |gx[1]#_g151067_|)) + (let ((__tmp152217 + (let ((__tmp152226 + (let ((__tmp152227 |gx[1]#_g152228_|)) (declare (not safe)) - (cons 'id __tmp151066))) - (__tmp151057 - (let ((__tmp151062 - (let ((__tmp151063 |gx[1]#_g151064_|)) + (cons 'id __tmp152227))) + (__tmp152218 + (let ((__tmp152223 + (let ((__tmp152224 |gx[1]#_g152225_|)) (declare (not safe)) - (cons 'compile-top __tmp151063))) - (__tmp151058 - (let ((__tmp151059 - (let ((__tmp151060 |gx[1]#_g151061_|)) + (cons 'compile-top __tmp152224))) + (__tmp152219 + (let ((__tmp152220 + (let ((__tmp152221 |gx[1]#_g152222_|)) (declare (not safe)) - (cons 'e __tmp151060)))) + (cons 'e __tmp152221)))) (declare (not safe)) - (cons __tmp151059 '())))) + (cons __tmp152220 '())))) (declare (not safe)) - (cons __tmp151062 __tmp151058)))) + (cons __tmp152223 __tmp152219)))) (declare (not safe)) - (cons __tmp151065 __tmp151057)))) + (cons __tmp152226 __tmp152218)))) (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151056 - '12 + __obj150787 + __tmp152217 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151068 - (let ((__tmp151077 - (let ((__tmp151078 |gx[1]#_g151079_|)) + (let ((__tmp152229 + (let ((__tmp152238 + (let ((__tmp152239 |gx[1]#_g152240_|)) (declare (not safe)) - (cons 'id __tmp151078))) - (__tmp151069 - (let ((__tmp151074 - (let ((__tmp151075 |gx[1]#_g151076_|)) + (cons 'id __tmp152239))) + (__tmp152230 + (let ((__tmp152235 + (let ((__tmp152236 |gx[1]#_g152237_|)) (declare (not safe)) - (cons 'compile-top __tmp151075))) - (__tmp151070 - (let ((__tmp151071 - (let ((__tmp151072 |gx[1]#_g151073_|)) + (cons 'compile-top __tmp152236))) + (__tmp152231 + (let ((__tmp152232 + (let ((__tmp152233 |gx[1]#_g152234_|)) (declare (not safe)) - (cons 'e __tmp151072)))) + (cons 'e __tmp152233)))) (declare (not safe)) - (cons __tmp151071 '())))) + (cons __tmp152232 '())))) (declare (not safe)) - (cons __tmp151074 __tmp151070)))) + (cons __tmp152235 __tmp152231)))) (declare (not safe)) - (cons __tmp151077 __tmp151069)))) + (cons __tmp152238 __tmp152230)))) (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151068 - '13 + __obj150787 + __tmp152229 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151080 - (let ((__tmp151089 - (let ((__tmp151090 |gx[1]#_g151091_|)) + (let ((__tmp152241 + (let ((__tmp152250 + (let ((__tmp152251 |gx[1]#_g152252_|)) (declare (not safe)) - (cons 'id __tmp151090))) - (__tmp151081 - (let ((__tmp151086 - (let ((__tmp151087 |gx[1]#_g151088_|)) + (cons 'id __tmp152251))) + (__tmp152242 + (let ((__tmp152247 + (let ((__tmp152248 |gx[1]#_g152249_|)) (declare (not safe)) - (cons 'compile-top __tmp151087))) - (__tmp151082 - (let ((__tmp151083 - (let ((__tmp151084 |gx[1]#_g151085_|)) + (cons 'compile-top __tmp152248))) + (__tmp152243 + (let ((__tmp152244 + (let ((__tmp152245 |gx[1]#_g152246_|)) (declare (not safe)) - (cons 'e __tmp151084)))) + (cons 'e __tmp152245)))) (declare (not safe)) - (cons __tmp151083 '())))) + (cons __tmp152244 '())))) (declare (not safe)) - (cons __tmp151086 __tmp151082)))) + (cons __tmp152247 __tmp152243)))) (declare (not safe)) - (cons __tmp151089 __tmp151081)))) + (cons __tmp152250 __tmp152242)))) (declare (not safe)) (##unchecked-structure-set! - __obj149626 - __tmp151080 - '14 + __obj150787 + __tmp152241 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149626)) + __obj150787)) (define |gx[:0:]#special-form| - (let ((__obj149627 + (let ((__obj150788 (let () (declare (not safe)) (##structure @@ -8413,11 +8584,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149627 + __obj150788 'gx#special-form::t '1 gerbil/core$$#class-type-info::t @@ -8425,7 +8597,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149627 + __obj150788 'special-form '2 gerbil/core$$#class-type-info::t @@ -8433,26 +8605,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149627 + __obj150788 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151092 - (let ((__tmp151093 |gx[1]#_g151037_|)) + (let ((__tmp152253 + (let ((__tmp152254 |gx[1]#_g152198_|)) (declare (not safe)) - (cons __tmp151093 '())))) + (cons __tmp152254 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151092 + __obj150788 + __tmp152253 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149627 + __obj150788 '#t '5 gerbil/core$$#class-type-info::t @@ -8460,7 +8632,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149627 + __obj150788 '#f '6 gerbil/core$$#class-type-info::t @@ -8468,150 +8640,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149627 + __obj150788 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151094 |gx[1]#_g151095_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151094 + __obj150788 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151096 |gx[1]#_g151097_|)) + (let ((__tmp152255 |gx[1]#_g152256_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151096 + __obj150788 + __tmp152255 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151098 |gx[1]#_g151099_|)) + (let ((__tmp152257 |gx[1]#_g152258_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151098 + __obj150788 + __tmp152257 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151100 - (let ((__tmp151109 - (let ((__tmp151110 |gx[1]#_g151111_|)) + (let ((__tmp152259 |gx[1]#_g152260_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150788 + __tmp152259 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152261 + (let ((__tmp152270 + (let ((__tmp152271 |gx[1]#_g152272_|)) (declare (not safe)) - (cons 'id __tmp151110))) - (__tmp151101 - (let ((__tmp151106 - (let ((__tmp151107 |gx[1]#_g151108_|)) + (cons 'id __tmp152271))) + (__tmp152262 + (let ((__tmp152267 + (let ((__tmp152268 |gx[1]#_g152269_|)) (declare (not safe)) - (cons 'compile-top __tmp151107))) - (__tmp151102 - (let ((__tmp151103 - (let ((__tmp151104 |gx[1]#_g151105_|)) + (cons 'compile-top __tmp152268))) + (__tmp152263 + (let ((__tmp152264 + (let ((__tmp152265 |gx[1]#_g152266_|)) (declare (not safe)) - (cons 'e __tmp151104)))) + (cons 'e __tmp152265)))) (declare (not safe)) - (cons __tmp151103 '())))) + (cons __tmp152264 '())))) (declare (not safe)) - (cons __tmp151106 __tmp151102)))) + (cons __tmp152267 __tmp152263)))) (declare (not safe)) - (cons __tmp151109 __tmp151101)))) + (cons __tmp152270 __tmp152262)))) (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151100 - '11 + __obj150788 + __tmp152261 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151112 - (let ((__tmp151121 - (let ((__tmp151122 |gx[1]#_g151123_|)) + (let ((__tmp152273 + (let ((__tmp152282 + (let ((__tmp152283 |gx[1]#_g152284_|)) (declare (not safe)) - (cons 'id __tmp151122))) - (__tmp151113 - (let ((__tmp151118 - (let ((__tmp151119 |gx[1]#_g151120_|)) + (cons 'id __tmp152283))) + (__tmp152274 + (let ((__tmp152279 + (let ((__tmp152280 |gx[1]#_g152281_|)) (declare (not safe)) - (cons 'compile-top __tmp151119))) - (__tmp151114 - (let ((__tmp151115 - (let ((__tmp151116 |gx[1]#_g151117_|)) + (cons 'compile-top __tmp152280))) + (__tmp152275 + (let ((__tmp152276 + (let ((__tmp152277 |gx[1]#_g152278_|)) (declare (not safe)) - (cons 'e __tmp151116)))) + (cons 'e __tmp152277)))) (declare (not safe)) - (cons __tmp151115 '())))) + (cons __tmp152276 '())))) (declare (not safe)) - (cons __tmp151118 __tmp151114)))) + (cons __tmp152279 __tmp152275)))) (declare (not safe)) - (cons __tmp151121 __tmp151113)))) + (cons __tmp152282 __tmp152274)))) (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151112 - '12 + __obj150788 + __tmp152273 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151124 - (let ((__tmp151133 - (let ((__tmp151134 |gx[1]#_g151135_|)) + (let ((__tmp152285 + (let ((__tmp152294 + (let ((__tmp152295 |gx[1]#_g152296_|)) (declare (not safe)) - (cons 'id __tmp151134))) - (__tmp151125 - (let ((__tmp151130 - (let ((__tmp151131 |gx[1]#_g151132_|)) + (cons 'id __tmp152295))) + (__tmp152286 + (let ((__tmp152291 + (let ((__tmp152292 |gx[1]#_g152293_|)) (declare (not safe)) - (cons 'compile-top __tmp151131))) - (__tmp151126 - (let ((__tmp151127 - (let ((__tmp151128 |gx[1]#_g151129_|)) + (cons 'compile-top __tmp152292))) + (__tmp152287 + (let ((__tmp152288 + (let ((__tmp152289 |gx[1]#_g152290_|)) (declare (not safe)) - (cons 'e __tmp151128)))) + (cons 'e __tmp152289)))) (declare (not safe)) - (cons __tmp151127 '())))) + (cons __tmp152288 '())))) (declare (not safe)) - (cons __tmp151130 __tmp151126)))) + (cons __tmp152291 __tmp152287)))) (declare (not safe)) - (cons __tmp151133 __tmp151125)))) + (cons __tmp152294 __tmp152286)))) (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151124 - '13 + __obj150788 + __tmp152285 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151136 - (let ((__tmp151145 - (let ((__tmp151146 |gx[1]#_g151147_|)) + (let ((__tmp152297 + (let ((__tmp152306 + (let ((__tmp152307 |gx[1]#_g152308_|)) (declare (not safe)) - (cons 'id __tmp151146))) - (__tmp151137 - (let ((__tmp151142 - (let ((__tmp151143 |gx[1]#_g151144_|)) + (cons 'id __tmp152307))) + (__tmp152298 + (let ((__tmp152303 + (let ((__tmp152304 |gx[1]#_g152305_|)) (declare (not safe)) - (cons 'compile-top __tmp151143))) - (__tmp151138 - (let ((__tmp151139 - (let ((__tmp151140 |gx[1]#_g151141_|)) + (cons 'compile-top __tmp152304))) + (__tmp152299 + (let ((__tmp152300 + (let ((__tmp152301 |gx[1]#_g152302_|)) (declare (not safe)) - (cons 'e __tmp151140)))) + (cons 'e __tmp152301)))) (declare (not safe)) - (cons __tmp151139 '())))) + (cons __tmp152300 '())))) (declare (not safe)) - (cons __tmp151142 __tmp151138)))) + (cons __tmp152303 __tmp152299)))) (declare (not safe)) - (cons __tmp151145 __tmp151137)))) + (cons __tmp152306 __tmp152298)))) (declare (not safe)) (##unchecked-structure-set! - __obj149627 - __tmp151136 - '14 + __obj150788 + __tmp152297 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149627)) + __obj150788)) (define |gx[:0:]#definition-form| - (let ((__obj149628 + (let ((__obj150789 (let () (declare (not safe)) (##structure @@ -8629,11 +8809,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149628 + __obj150789 'gx#definition-form::t '1 gerbil/core$$#class-type-info::t @@ -8641,7 +8822,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149628 + __obj150789 'definition-form '2 gerbil/core$$#class-type-info::t @@ -8649,26 +8830,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149628 + __obj150789 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151148 - (let ((__tmp151149 |gx[1]#_g151150_|)) + (let ((__tmp152309 + (let ((__tmp152310 |gx[1]#_g152311_|)) (declare (not safe)) - (cons __tmp151149 '())))) + (cons __tmp152310 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151148 + __obj150789 + __tmp152309 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149628 + __obj150789 '#t '5 gerbil/core$$#class-type-info::t @@ -8676,7 +8857,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149628 + __obj150789 '#f '6 gerbil/core$$#class-type-info::t @@ -8684,150 +8865,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149628 + __obj150789 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151151 |gx[1]#_g151152_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151151 + __obj150789 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151153 |gx[1]#_g151154_|)) + (let ((__tmp152312 |gx[1]#_g152313_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151153 + __obj150789 + __tmp152312 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151155 |gx[1]#_g151156_|)) + (let ((__tmp152314 |gx[1]#_g152315_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151155 + __obj150789 + __tmp152314 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151157 - (let ((__tmp151166 - (let ((__tmp151167 |gx[1]#_g151168_|)) + (let ((__tmp152316 |gx[1]#_g152317_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150789 + __tmp152316 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152318 + (let ((__tmp152327 + (let ((__tmp152328 |gx[1]#_g152329_|)) (declare (not safe)) - (cons 'id __tmp151167))) - (__tmp151158 - (let ((__tmp151163 - (let ((__tmp151164 |gx[1]#_g151165_|)) + (cons 'id __tmp152328))) + (__tmp152319 + (let ((__tmp152324 + (let ((__tmp152325 |gx[1]#_g152326_|)) (declare (not safe)) - (cons 'compile-top __tmp151164))) - (__tmp151159 - (let ((__tmp151160 - (let ((__tmp151161 |gx[1]#_g151162_|)) + (cons 'compile-top __tmp152325))) + (__tmp152320 + (let ((__tmp152321 + (let ((__tmp152322 |gx[1]#_g152323_|)) (declare (not safe)) - (cons 'e __tmp151161)))) + (cons 'e __tmp152322)))) (declare (not safe)) - (cons __tmp151160 '())))) + (cons __tmp152321 '())))) (declare (not safe)) - (cons __tmp151163 __tmp151159)))) + (cons __tmp152324 __tmp152320)))) (declare (not safe)) - (cons __tmp151166 __tmp151158)))) + (cons __tmp152327 __tmp152319)))) (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151157 - '11 + __obj150789 + __tmp152318 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151169 - (let ((__tmp151178 - (let ((__tmp151179 |gx[1]#_g151180_|)) + (let ((__tmp152330 + (let ((__tmp152339 + (let ((__tmp152340 |gx[1]#_g152341_|)) (declare (not safe)) - (cons 'id __tmp151179))) - (__tmp151170 - (let ((__tmp151175 - (let ((__tmp151176 |gx[1]#_g151177_|)) + (cons 'id __tmp152340))) + (__tmp152331 + (let ((__tmp152336 + (let ((__tmp152337 |gx[1]#_g152338_|)) (declare (not safe)) - (cons 'compile-top __tmp151176))) - (__tmp151171 - (let ((__tmp151172 - (let ((__tmp151173 |gx[1]#_g151174_|)) + (cons 'compile-top __tmp152337))) + (__tmp152332 + (let ((__tmp152333 + (let ((__tmp152334 |gx[1]#_g152335_|)) (declare (not safe)) - (cons 'e __tmp151173)))) + (cons 'e __tmp152334)))) (declare (not safe)) - (cons __tmp151172 '())))) + (cons __tmp152333 '())))) (declare (not safe)) - (cons __tmp151175 __tmp151171)))) + (cons __tmp152336 __tmp152332)))) (declare (not safe)) - (cons __tmp151178 __tmp151170)))) + (cons __tmp152339 __tmp152331)))) (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151169 - '12 + __obj150789 + __tmp152330 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151181 - (let ((__tmp151190 - (let ((__tmp151191 |gx[1]#_g151192_|)) + (let ((__tmp152342 + (let ((__tmp152351 + (let ((__tmp152352 |gx[1]#_g152353_|)) (declare (not safe)) - (cons 'id __tmp151191))) - (__tmp151182 - (let ((__tmp151187 - (let ((__tmp151188 |gx[1]#_g151189_|)) + (cons 'id __tmp152352))) + (__tmp152343 + (let ((__tmp152348 + (let ((__tmp152349 |gx[1]#_g152350_|)) (declare (not safe)) - (cons 'compile-top __tmp151188))) - (__tmp151183 - (let ((__tmp151184 - (let ((__tmp151185 |gx[1]#_g151186_|)) + (cons 'compile-top __tmp152349))) + (__tmp152344 + (let ((__tmp152345 + (let ((__tmp152346 |gx[1]#_g152347_|)) (declare (not safe)) - (cons 'e __tmp151185)))) + (cons 'e __tmp152346)))) (declare (not safe)) - (cons __tmp151184 '())))) + (cons __tmp152345 '())))) (declare (not safe)) - (cons __tmp151187 __tmp151183)))) + (cons __tmp152348 __tmp152344)))) (declare (not safe)) - (cons __tmp151190 __tmp151182)))) + (cons __tmp152351 __tmp152343)))) (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151181 - '13 + __obj150789 + __tmp152342 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151193 - (let ((__tmp151202 - (let ((__tmp151203 |gx[1]#_g151204_|)) + (let ((__tmp152354 + (let ((__tmp152363 + (let ((__tmp152364 |gx[1]#_g152365_|)) (declare (not safe)) - (cons 'id __tmp151203))) - (__tmp151194 - (let ((__tmp151199 - (let ((__tmp151200 |gx[1]#_g151201_|)) + (cons 'id __tmp152364))) + (__tmp152355 + (let ((__tmp152360 + (let ((__tmp152361 |gx[1]#_g152362_|)) (declare (not safe)) - (cons 'compile-top __tmp151200))) - (__tmp151195 - (let ((__tmp151196 - (let ((__tmp151197 |gx[1]#_g151198_|)) + (cons 'compile-top __tmp152361))) + (__tmp152356 + (let ((__tmp152357 + (let ((__tmp152358 |gx[1]#_g152359_|)) (declare (not safe)) - (cons 'e __tmp151197)))) + (cons 'e __tmp152358)))) (declare (not safe)) - (cons __tmp151196 '())))) + (cons __tmp152357 '())))) (declare (not safe)) - (cons __tmp151199 __tmp151195)))) + (cons __tmp152360 __tmp152356)))) (declare (not safe)) - (cons __tmp151202 __tmp151194)))) + (cons __tmp152363 __tmp152355)))) (declare (not safe)) (##unchecked-structure-set! - __obj149628 - __tmp151193 - '14 + __obj150789 + __tmp152354 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149628)) + __obj150789)) (define |gx[:0:]#top-special-form| - (let ((__obj149629 + (let ((__obj150790 (let () (declare (not safe)) (##structure @@ -8845,11 +9034,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149629 + __obj150790 'gx#top-special-form::t '1 gerbil/core$$#class-type-info::t @@ -8857,7 +9047,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149629 + __obj150790 'top-special-form '2 gerbil/core$$#class-type-info::t @@ -8865,26 +9055,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149629 + __obj150790 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151205 - (let ((__tmp151206 |gx[1]#_g151150_|)) + (let ((__tmp152366 + (let ((__tmp152367 |gx[1]#_g152311_|)) (declare (not safe)) - (cons __tmp151206 '())))) + (cons __tmp152367 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151205 + __obj150790 + __tmp152366 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149629 + __obj150790 '#t '5 gerbil/core$$#class-type-info::t @@ -8892,7 +9082,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149629 + __obj150790 '#f '6 gerbil/core$$#class-type-info::t @@ -8900,150 +9090,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149629 + __obj150790 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151207 |gx[1]#_g151208_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151207 + __obj150790 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151209 |gx[1]#_g151210_|)) + (let ((__tmp152368 |gx[1]#_g152369_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151209 + __obj150790 + __tmp152368 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151211 |gx[1]#_g151212_|)) + (let ((__tmp152370 |gx[1]#_g152371_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151211 + __obj150790 + __tmp152370 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151213 - (let ((__tmp151222 - (let ((__tmp151223 |gx[1]#_g151224_|)) + (let ((__tmp152372 |gx[1]#_g152373_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150790 + __tmp152372 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152374 + (let ((__tmp152383 + (let ((__tmp152384 |gx[1]#_g152385_|)) (declare (not safe)) - (cons 'id __tmp151223))) - (__tmp151214 - (let ((__tmp151219 - (let ((__tmp151220 |gx[1]#_g151221_|)) + (cons 'id __tmp152384))) + (__tmp152375 + (let ((__tmp152380 + (let ((__tmp152381 |gx[1]#_g152382_|)) (declare (not safe)) - (cons 'compile-top __tmp151220))) - (__tmp151215 - (let ((__tmp151216 - (let ((__tmp151217 |gx[1]#_g151218_|)) + (cons 'compile-top __tmp152381))) + (__tmp152376 + (let ((__tmp152377 + (let ((__tmp152378 |gx[1]#_g152379_|)) (declare (not safe)) - (cons 'e __tmp151217)))) + (cons 'e __tmp152378)))) (declare (not safe)) - (cons __tmp151216 '())))) + (cons __tmp152377 '())))) (declare (not safe)) - (cons __tmp151219 __tmp151215)))) + (cons __tmp152380 __tmp152376)))) (declare (not safe)) - (cons __tmp151222 __tmp151214)))) + (cons __tmp152383 __tmp152375)))) (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151213 - '11 + __obj150790 + __tmp152374 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151225 - (let ((__tmp151234 - (let ((__tmp151235 |gx[1]#_g151236_|)) + (let ((__tmp152386 + (let ((__tmp152395 + (let ((__tmp152396 |gx[1]#_g152397_|)) (declare (not safe)) - (cons 'id __tmp151235))) - (__tmp151226 - (let ((__tmp151231 - (let ((__tmp151232 |gx[1]#_g151233_|)) + (cons 'id __tmp152396))) + (__tmp152387 + (let ((__tmp152392 + (let ((__tmp152393 |gx[1]#_g152394_|)) (declare (not safe)) - (cons 'compile-top __tmp151232))) - (__tmp151227 - (let ((__tmp151228 - (let ((__tmp151229 |gx[1]#_g151230_|)) + (cons 'compile-top __tmp152393))) + (__tmp152388 + (let ((__tmp152389 + (let ((__tmp152390 |gx[1]#_g152391_|)) (declare (not safe)) - (cons 'e __tmp151229)))) + (cons 'e __tmp152390)))) (declare (not safe)) - (cons __tmp151228 '())))) + (cons __tmp152389 '())))) (declare (not safe)) - (cons __tmp151231 __tmp151227)))) + (cons __tmp152392 __tmp152388)))) (declare (not safe)) - (cons __tmp151234 __tmp151226)))) + (cons __tmp152395 __tmp152387)))) (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151225 - '12 + __obj150790 + __tmp152386 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151237 - (let ((__tmp151246 - (let ((__tmp151247 |gx[1]#_g151248_|)) + (let ((__tmp152398 + (let ((__tmp152407 + (let ((__tmp152408 |gx[1]#_g152409_|)) (declare (not safe)) - (cons 'id __tmp151247))) - (__tmp151238 - (let ((__tmp151243 - (let ((__tmp151244 |gx[1]#_g151245_|)) + (cons 'id __tmp152408))) + (__tmp152399 + (let ((__tmp152404 + (let ((__tmp152405 |gx[1]#_g152406_|)) (declare (not safe)) - (cons 'compile-top __tmp151244))) - (__tmp151239 - (let ((__tmp151240 - (let ((__tmp151241 |gx[1]#_g151242_|)) + (cons 'compile-top __tmp152405))) + (__tmp152400 + (let ((__tmp152401 + (let ((__tmp152402 |gx[1]#_g152403_|)) (declare (not safe)) - (cons 'e __tmp151241)))) + (cons 'e __tmp152402)))) (declare (not safe)) - (cons __tmp151240 '())))) + (cons __tmp152401 '())))) (declare (not safe)) - (cons __tmp151243 __tmp151239)))) + (cons __tmp152404 __tmp152400)))) (declare (not safe)) - (cons __tmp151246 __tmp151238)))) + (cons __tmp152407 __tmp152399)))) (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151237 - '13 + __obj150790 + __tmp152398 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151249 - (let ((__tmp151258 - (let ((__tmp151259 |gx[1]#_g151260_|)) + (let ((__tmp152410 + (let ((__tmp152419 + (let ((__tmp152420 |gx[1]#_g152421_|)) (declare (not safe)) - (cons 'id __tmp151259))) - (__tmp151250 - (let ((__tmp151255 - (let ((__tmp151256 |gx[1]#_g151257_|)) + (cons 'id __tmp152420))) + (__tmp152411 + (let ((__tmp152416 + (let ((__tmp152417 |gx[1]#_g152418_|)) (declare (not safe)) - (cons 'compile-top __tmp151256))) - (__tmp151251 - (let ((__tmp151252 - (let ((__tmp151253 |gx[1]#_g151254_|)) + (cons 'compile-top __tmp152417))) + (__tmp152412 + (let ((__tmp152413 + (let ((__tmp152414 |gx[1]#_g152415_|)) (declare (not safe)) - (cons 'e __tmp151253)))) + (cons 'e __tmp152414)))) (declare (not safe)) - (cons __tmp151252 '())))) + (cons __tmp152413 '())))) (declare (not safe)) - (cons __tmp151255 __tmp151251)))) + (cons __tmp152416 __tmp152412)))) (declare (not safe)) - (cons __tmp151258 __tmp151250)))) + (cons __tmp152419 __tmp152411)))) (declare (not safe)) (##unchecked-structure-set! - __obj149629 - __tmp151249 - '14 + __obj150790 + __tmp152410 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149629)) + __obj150790)) (define |gx[:0:]#module-special-form| - (let ((__obj149630 + (let ((__obj150791 (let () (declare (not safe)) (##structure @@ -9061,11 +9259,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149630 + __obj150791 'gx#module-special-form::t '1 gerbil/core$$#class-type-info::t @@ -9073,7 +9272,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149630 + __obj150791 'module-special-form '2 gerbil/core$$#class-type-info::t @@ -9081,26 +9280,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149630 + __obj150791 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151261 - (let ((__tmp151262 |gx[1]#_g151263_|)) + (let ((__tmp152422 + (let ((__tmp152423 |gx[1]#_g152424_|)) (declare (not safe)) - (cons __tmp151262 '())))) + (cons __tmp152423 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151261 + __obj150791 + __tmp152422 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149630 + __obj150791 '#t '5 gerbil/core$$#class-type-info::t @@ -9108,7 +9307,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149630 + __obj150791 '#f '6 gerbil/core$$#class-type-info::t @@ -9116,150 +9315,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149630 + __obj150791 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151264 |gx[1]#_g151265_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151264 + __obj150791 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151266 |gx[1]#_g151267_|)) + (let ((__tmp152425 |gx[1]#_g152426_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151266 + __obj150791 + __tmp152425 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151268 |gx[1]#_g151269_|)) + (let ((__tmp152427 |gx[1]#_g152428_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151268 + __obj150791 + __tmp152427 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151270 - (let ((__tmp151279 - (let ((__tmp151280 |gx[1]#_g151281_|)) + (let ((__tmp152429 |gx[1]#_g152430_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150791 + __tmp152429 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152431 + (let ((__tmp152440 + (let ((__tmp152441 |gx[1]#_g152442_|)) (declare (not safe)) - (cons 'id __tmp151280))) - (__tmp151271 - (let ((__tmp151276 - (let ((__tmp151277 |gx[1]#_g151278_|)) + (cons 'id __tmp152441))) + (__tmp152432 + (let ((__tmp152437 + (let ((__tmp152438 |gx[1]#_g152439_|)) (declare (not safe)) - (cons 'compile-top __tmp151277))) - (__tmp151272 - (let ((__tmp151273 - (let ((__tmp151274 |gx[1]#_g151275_|)) + (cons 'compile-top __tmp152438))) + (__tmp152433 + (let ((__tmp152434 + (let ((__tmp152435 |gx[1]#_g152436_|)) (declare (not safe)) - (cons 'e __tmp151274)))) + (cons 'e __tmp152435)))) (declare (not safe)) - (cons __tmp151273 '())))) + (cons __tmp152434 '())))) (declare (not safe)) - (cons __tmp151276 __tmp151272)))) + (cons __tmp152437 __tmp152433)))) (declare (not safe)) - (cons __tmp151279 __tmp151271)))) + (cons __tmp152440 __tmp152432)))) (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151270 - '11 + __obj150791 + __tmp152431 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151282 - (let ((__tmp151291 - (let ((__tmp151292 |gx[1]#_g151293_|)) + (let ((__tmp152443 + (let ((__tmp152452 + (let ((__tmp152453 |gx[1]#_g152454_|)) (declare (not safe)) - (cons 'id __tmp151292))) - (__tmp151283 - (let ((__tmp151288 - (let ((__tmp151289 |gx[1]#_g151290_|)) + (cons 'id __tmp152453))) + (__tmp152444 + (let ((__tmp152449 + (let ((__tmp152450 |gx[1]#_g152451_|)) (declare (not safe)) - (cons 'compile-top __tmp151289))) - (__tmp151284 - (let ((__tmp151285 - (let ((__tmp151286 |gx[1]#_g151287_|)) + (cons 'compile-top __tmp152450))) + (__tmp152445 + (let ((__tmp152446 + (let ((__tmp152447 |gx[1]#_g152448_|)) (declare (not safe)) - (cons 'e __tmp151286)))) + (cons 'e __tmp152447)))) (declare (not safe)) - (cons __tmp151285 '())))) + (cons __tmp152446 '())))) (declare (not safe)) - (cons __tmp151288 __tmp151284)))) + (cons __tmp152449 __tmp152445)))) (declare (not safe)) - (cons __tmp151291 __tmp151283)))) + (cons __tmp152452 __tmp152444)))) (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151282 - '12 + __obj150791 + __tmp152443 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151294 - (let ((__tmp151303 - (let ((__tmp151304 |gx[1]#_g151305_|)) + (let ((__tmp152455 + (let ((__tmp152464 + (let ((__tmp152465 |gx[1]#_g152466_|)) (declare (not safe)) - (cons 'id __tmp151304))) - (__tmp151295 - (let ((__tmp151300 - (let ((__tmp151301 |gx[1]#_g151302_|)) + (cons 'id __tmp152465))) + (__tmp152456 + (let ((__tmp152461 + (let ((__tmp152462 |gx[1]#_g152463_|)) (declare (not safe)) - (cons 'compile-top __tmp151301))) - (__tmp151296 - (let ((__tmp151297 - (let ((__tmp151298 |gx[1]#_g151299_|)) + (cons 'compile-top __tmp152462))) + (__tmp152457 + (let ((__tmp152458 + (let ((__tmp152459 |gx[1]#_g152460_|)) (declare (not safe)) - (cons 'e __tmp151298)))) + (cons 'e __tmp152459)))) (declare (not safe)) - (cons __tmp151297 '())))) + (cons __tmp152458 '())))) (declare (not safe)) - (cons __tmp151300 __tmp151296)))) + (cons __tmp152461 __tmp152457)))) (declare (not safe)) - (cons __tmp151303 __tmp151295)))) + (cons __tmp152464 __tmp152456)))) (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151294 - '13 + __obj150791 + __tmp152455 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151306 - (let ((__tmp151315 - (let ((__tmp151316 |gx[1]#_g151317_|)) + (let ((__tmp152467 + (let ((__tmp152476 + (let ((__tmp152477 |gx[1]#_g152478_|)) (declare (not safe)) - (cons 'id __tmp151316))) - (__tmp151307 - (let ((__tmp151312 - (let ((__tmp151313 |gx[1]#_g151314_|)) + (cons 'id __tmp152477))) + (__tmp152468 + (let ((__tmp152473 + (let ((__tmp152474 |gx[1]#_g152475_|)) (declare (not safe)) - (cons 'compile-top __tmp151313))) - (__tmp151308 - (let ((__tmp151309 - (let ((__tmp151310 |gx[1]#_g151311_|)) + (cons 'compile-top __tmp152474))) + (__tmp152469 + (let ((__tmp152470 + (let ((__tmp152471 |gx[1]#_g152472_|)) (declare (not safe)) - (cons 'e __tmp151310)))) + (cons 'e __tmp152471)))) (declare (not safe)) - (cons __tmp151309 '())))) + (cons __tmp152470 '())))) (declare (not safe)) - (cons __tmp151312 __tmp151308)))) + (cons __tmp152473 __tmp152469)))) (declare (not safe)) - (cons __tmp151315 __tmp151307)))) + (cons __tmp152476 __tmp152468)))) (declare (not safe)) (##unchecked-structure-set! - __obj149630 - __tmp151306 - '14 + __obj150791 + __tmp152467 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149630)) + __obj150791)) (define |gx[:0:]#feature-expander| - (let ((__obj149631 + (let ((__obj150792 (let () (declare (not safe)) (##structure @@ -9277,11 +9484,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149631 + __obj150792 'gx#feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -9289,7 +9497,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149631 + __obj150792 'feature-expander '2 gerbil/core$$#class-type-info::t @@ -9297,26 +9505,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149631 + __obj150792 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151318 - (let ((__tmp151319 |gx[1]#_g150980_|)) + (let ((__tmp152479 + (let ((__tmp152480 |gx[1]#_g152141_|)) (declare (not safe)) - (cons __tmp151319 '())))) + (cons __tmp152480 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151318 + __obj150792 + __tmp152479 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149631 + __obj150792 '#t '5 gerbil/core$$#class-type-info::t @@ -9324,7 +9532,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149631 + __obj150792 '#f '6 gerbil/core$$#class-type-info::t @@ -9332,94 +9540,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149631 + __obj150792 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151320 |gx[1]#_g151321_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151320 + __obj150792 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151322 |gx[1]#_g151323_|)) + (let ((__tmp152481 |gx[1]#_g152482_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151322 + __obj150792 + __tmp152481 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151324 |gx[1]#_g151325_|)) + (let ((__tmp152483 |gx[1]#_g152484_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151324 + __obj150792 + __tmp152483 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151326 - (let ((__tmp151327 - (let ((__tmp151328 |gx[1]#_g151329_|)) - (declare (not safe)) - (cons 'e __tmp151328)))) - (declare (not safe)) - (cons __tmp151327 '())))) + (let ((__tmp152485 |gx[1]#_g152486_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151326 + __obj150792 + __tmp152485 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151330 - (let ((__tmp151331 - (let ((__tmp151332 |gx[1]#_g151333_|)) + (let ((__tmp152487 + (let ((__tmp152488 + (let ((__tmp152489 |gx[1]#_g152490_|)) (declare (not safe)) - (cons 'e __tmp151332)))) + (cons 'e __tmp152489)))) (declare (not safe)) - (cons __tmp151331 '())))) + (cons __tmp152488 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151330 + __obj150792 + __tmp152487 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151334 - (let ((__tmp151335 - (let ((__tmp151336 |gx[1]#_g151337_|)) + (let ((__tmp152491 + (let ((__tmp152492 + (let ((__tmp152493 |gx[1]#_g152494_|)) (declare (not safe)) - (cons 'e __tmp151336)))) + (cons 'e __tmp152493)))) (declare (not safe)) - (cons __tmp151335 '())))) + (cons __tmp152492 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151334 + __obj150792 + __tmp152491 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151338 - (let ((__tmp151339 - (let ((__tmp151340 |gx[1]#_g151341_|)) + (let ((__tmp152495 + (let ((__tmp152496 + (let ((__tmp152497 |gx[1]#_g152498_|)) (declare (not safe)) - (cons 'e __tmp151340)))) + (cons 'e __tmp152497)))) (declare (not safe)) - (cons __tmp151339 '())))) + (cons __tmp152496 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149631 - __tmp151338 + __obj150792 + __tmp152495 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149631)) + (let ((__tmp152499 + (let ((__tmp152500 + (let ((__tmp152501 |gx[1]#_g152502_|)) + (declare (not safe)) + (cons 'e __tmp152501)))) + (declare (not safe)) + (cons __tmp152500 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150792 + __tmp152499 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150792)) (define |gx[:0:]#private-feature-expander| - (let ((__obj149632 + (let ((__obj150793 (let () (declare (not safe)) (##structure @@ -9437,11 +9653,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149632 + __obj150793 'gx#private-feature-expander::t '1 gerbil/core$$#class-type-info::t @@ -9449,7 +9666,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149632 + __obj150793 'private-feature-expander '2 gerbil/core$$#class-type-info::t @@ -9457,26 +9674,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149632 + __obj150793 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151342 - (let ((__tmp151343 |gx[1]#_g151344_|)) + (let ((__tmp152503 + (let ((__tmp152504 |gx[1]#_g152505_|)) (declare (not safe)) - (cons __tmp151343 '())))) + (cons __tmp152504 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151342 + __obj150793 + __tmp152503 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149632 + __obj150793 '#t '5 gerbil/core$$#class-type-info::t @@ -9484,7 +9701,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149632 + __obj150793 '#f '6 gerbil/core$$#class-type-info::t @@ -9492,94 +9709,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149632 + __obj150793 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151345 |gx[1]#_g151346_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151345 + __obj150793 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151347 |gx[1]#_g151348_|)) + (let ((__tmp152506 |gx[1]#_g152507_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151347 + __obj150793 + __tmp152506 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151349 |gx[1]#_g151350_|)) + (let ((__tmp152508 |gx[1]#_g152509_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151349 + __obj150793 + __tmp152508 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151351 - (let ((__tmp151352 - (let ((__tmp151353 |gx[1]#_g151354_|)) - (declare (not safe)) - (cons 'e __tmp151353)))) - (declare (not safe)) - (cons __tmp151352 '())))) + (let ((__tmp152510 |gx[1]#_g152511_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151351 + __obj150793 + __tmp152510 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151355 - (let ((__tmp151356 - (let ((__tmp151357 |gx[1]#_g151358_|)) + (let ((__tmp152512 + (let ((__tmp152513 + (let ((__tmp152514 |gx[1]#_g152515_|)) (declare (not safe)) - (cons 'e __tmp151357)))) + (cons 'e __tmp152514)))) (declare (not safe)) - (cons __tmp151356 '())))) + (cons __tmp152513 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151355 + __obj150793 + __tmp152512 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151359 - (let ((__tmp151360 - (let ((__tmp151361 |gx[1]#_g151362_|)) + (let ((__tmp152516 + (let ((__tmp152517 + (let ((__tmp152518 |gx[1]#_g152519_|)) (declare (not safe)) - (cons 'e __tmp151361)))) + (cons 'e __tmp152518)))) (declare (not safe)) - (cons __tmp151360 '())))) + (cons __tmp152517 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151359 + __obj150793 + __tmp152516 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151363 - (let ((__tmp151364 - (let ((__tmp151365 |gx[1]#_g151366_|)) + (let ((__tmp152520 + (let ((__tmp152521 + (let ((__tmp152522 |gx[1]#_g152523_|)) (declare (not safe)) - (cons 'e __tmp151365)))) + (cons 'e __tmp152522)))) (declare (not safe)) - (cons __tmp151364 '())))) + (cons __tmp152521 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149632 - __tmp151363 + __obj150793 + __tmp152520 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149632)) + (let ((__tmp152524 + (let ((__tmp152525 + (let ((__tmp152526 |gx[1]#_g152527_|)) + (declare (not safe)) + (cons 'e __tmp152526)))) + (declare (not safe)) + (cons __tmp152525 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150793 + __tmp152524 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150793)) (define |gx[:0:]#reserved-expander| - (let ((__obj149633 + (let ((__obj150794 (let () (declare (not safe)) (##structure @@ -9597,11 +9822,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149633 + __obj150794 'gx#reserved-expander::t '1 gerbil/core$$#class-type-info::t @@ -9609,7 +9835,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149633 + __obj150794 'reserved-expander '2 gerbil/core$$#class-type-info::t @@ -9617,26 +9843,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149633 + __obj150794 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151367 - (let ((__tmp151368 |gx[1]#_g150980_|)) + (let ((__tmp152528 + (let ((__tmp152529 |gx[1]#_g152141_|)) (declare (not safe)) - (cons __tmp151368 '())))) + (cons __tmp152529 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151367 + __obj150794 + __tmp152528 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149633 + __obj150794 '#t '5 gerbil/core$$#class-type-info::t @@ -9644,7 +9870,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149633 + __obj150794 '#f '6 gerbil/core$$#class-type-info::t @@ -9652,94 +9878,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149633 + __obj150794 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151369 |gx[1]#_g151370_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151369 + __obj150794 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151371 |gx[1]#_g151372_|)) + (let ((__tmp152530 |gx[1]#_g152531_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151371 + __obj150794 + __tmp152530 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151373 |gx[1]#_g151374_|)) + (let ((__tmp152532 |gx[1]#_g152533_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151373 + __obj150794 + __tmp152532 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151375 - (let ((__tmp151376 - (let ((__tmp151377 |gx[1]#_g151378_|)) - (declare (not safe)) - (cons 'e __tmp151377)))) - (declare (not safe)) - (cons __tmp151376 '())))) + (let ((__tmp152534 |gx[1]#_g152535_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151375 + __obj150794 + __tmp152534 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151379 - (let ((__tmp151380 - (let ((__tmp151381 |gx[1]#_g151382_|)) + (let ((__tmp152536 + (let ((__tmp152537 + (let ((__tmp152538 |gx[1]#_g152539_|)) (declare (not safe)) - (cons 'e __tmp151381)))) + (cons 'e __tmp152538)))) (declare (not safe)) - (cons __tmp151380 '())))) + (cons __tmp152537 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151379 + __obj150794 + __tmp152536 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151383 - (let ((__tmp151384 - (let ((__tmp151385 |gx[1]#_g151386_|)) + (let ((__tmp152540 + (let ((__tmp152541 + (let ((__tmp152542 |gx[1]#_g152543_|)) (declare (not safe)) - (cons 'e __tmp151385)))) + (cons 'e __tmp152542)))) (declare (not safe)) - (cons __tmp151384 '())))) + (cons __tmp152541 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151383 + __obj150794 + __tmp152540 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151387 - (let ((__tmp151388 - (let ((__tmp151389 |gx[1]#_g151390_|)) + (let ((__tmp152544 + (let ((__tmp152545 + (let ((__tmp152546 |gx[1]#_g152547_|)) (declare (not safe)) - (cons 'e __tmp151389)))) + (cons 'e __tmp152546)))) (declare (not safe)) - (cons __tmp151388 '())))) + (cons __tmp152545 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149633 - __tmp151387 + __obj150794 + __tmp152544 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149633)) + (let ((__tmp152548 + (let ((__tmp152549 + (let ((__tmp152550 |gx[1]#_g152551_|)) + (declare (not safe)) + (cons 'e __tmp152550)))) + (declare (not safe)) + (cons __tmp152549 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150794 + __tmp152548 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150794)) (define |gx[:0:]#macro-expander| - (let ((__obj149634 + (let ((__obj150795 (let () (declare (not safe)) (##structure @@ -9757,11 +9991,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149634 + __obj150795 'gx#core-macro::t '1 gerbil/core$$#class-type-info::t @@ -9769,7 +10004,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149634 + __obj150795 'macro-expander '2 gerbil/core$$#class-type-info::t @@ -9777,26 +10012,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149634 + __obj150795 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151391 - (let ((__tmp151392 |gx[1]#_g150980_|)) + (let ((__tmp152552 + (let ((__tmp152553 |gx[1]#_g152141_|)) (declare (not safe)) - (cons __tmp151392 '())))) + (cons __tmp152553 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151391 + __obj150795 + __tmp152552 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149634 + __obj150795 '#t '5 gerbil/core$$#class-type-info::t @@ -9804,7 +10039,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149634 + __obj150795 '#f '6 gerbil/core$$#class-type-info::t @@ -9812,94 +10047,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149634 + __obj150795 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151393 |gx[1]#_g151394_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151393 + __obj150795 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151395 |gx[1]#_g151396_|)) + (let ((__tmp152554 |gx[1]#_g152555_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151395 + __obj150795 + __tmp152554 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151397 |gx[1]#_g151398_|)) + (let ((__tmp152556 |gx[1]#_g152557_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151397 + __obj150795 + __tmp152556 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151399 - (let ((__tmp151400 - (let ((__tmp151401 |gx[1]#_g151402_|)) - (declare (not safe)) - (cons 'e __tmp151401)))) - (declare (not safe)) - (cons __tmp151400 '())))) + (let ((__tmp152558 |gx[1]#_g152559_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151399 + __obj150795 + __tmp152558 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151403 - (let ((__tmp151404 - (let ((__tmp151405 |gx[1]#_g151406_|)) + (let ((__tmp152560 + (let ((__tmp152561 + (let ((__tmp152562 |gx[1]#_g152563_|)) (declare (not safe)) - (cons 'e __tmp151405)))) + (cons 'e __tmp152562)))) (declare (not safe)) - (cons __tmp151404 '())))) + (cons __tmp152561 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151403 + __obj150795 + __tmp152560 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151407 - (let ((__tmp151408 - (let ((__tmp151409 |gx[1]#_g151410_|)) + (let ((__tmp152564 + (let ((__tmp152565 + (let ((__tmp152566 |gx[1]#_g152567_|)) (declare (not safe)) - (cons 'e __tmp151409)))) + (cons 'e __tmp152566)))) (declare (not safe)) - (cons __tmp151408 '())))) + (cons __tmp152565 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151407 + __obj150795 + __tmp152564 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151411 - (let ((__tmp151412 - (let ((__tmp151413 |gx[1]#_g151414_|)) + (let ((__tmp152568 + (let ((__tmp152569 + (let ((__tmp152570 |gx[1]#_g152571_|)) (declare (not safe)) - (cons 'e __tmp151413)))) + (cons 'e __tmp152570)))) (declare (not safe)) - (cons __tmp151412 '())))) + (cons __tmp152569 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149634 - __tmp151411 + __obj150795 + __tmp152568 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149634)) + (let ((__tmp152572 + (let ((__tmp152573 + (let ((__tmp152574 |gx[1]#_g152575_|)) + (declare (not safe)) + (cons 'e __tmp152574)))) + (declare (not safe)) + (cons __tmp152573 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150795 + __tmp152572 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150795)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj149635 + (let ((__obj150796 (let () (declare (not safe)) (##structure @@ -9917,11 +10160,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149635 + __obj150796 'gx#rename-macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -9929,7 +10173,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149635 + __obj150796 'rename-macro-expander '2 gerbil/core$$#class-type-info::t @@ -9937,26 +10181,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149635 + __obj150796 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151415 - (let ((__tmp151416 |gx[1]#_g151417_|)) + (let ((__tmp152576 + (let ((__tmp152577 |gx[1]#_g152578_|)) (declare (not safe)) - (cons __tmp151416 '())))) + (cons __tmp152577 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151415 + __obj150796 + __tmp152576 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149635 + __obj150796 '#t '5 gerbil/core$$#class-type-info::t @@ -9964,7 +10208,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149635 + __obj150796 '#f '6 gerbil/core$$#class-type-info::t @@ -9972,94 +10216,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149635 + __obj150796 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151418 |gx[1]#_g151419_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151418 + __obj150796 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151420 |gx[1]#_g151421_|)) + (let ((__tmp152579 |gx[1]#_g152580_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151420 + __obj150796 + __tmp152579 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151422 |gx[1]#_g151423_|)) + (let ((__tmp152581 |gx[1]#_g152582_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151422 + __obj150796 + __tmp152581 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151424 - (let ((__tmp151425 - (let ((__tmp151426 |gx[1]#_g151427_|)) - (declare (not safe)) - (cons 'e __tmp151426)))) - (declare (not safe)) - (cons __tmp151425 '())))) + (let ((__tmp152583 |gx[1]#_g152584_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151424 + __obj150796 + __tmp152583 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151428 - (let ((__tmp151429 - (let ((__tmp151430 |gx[1]#_g151431_|)) + (let ((__tmp152585 + (let ((__tmp152586 + (let ((__tmp152587 |gx[1]#_g152588_|)) (declare (not safe)) - (cons 'e __tmp151430)))) + (cons 'e __tmp152587)))) (declare (not safe)) - (cons __tmp151429 '())))) + (cons __tmp152586 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151428 + __obj150796 + __tmp152585 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151432 - (let ((__tmp151433 - (let ((__tmp151434 |gx[1]#_g151435_|)) + (let ((__tmp152589 + (let ((__tmp152590 + (let ((__tmp152591 |gx[1]#_g152592_|)) (declare (not safe)) - (cons 'e __tmp151434)))) + (cons 'e __tmp152591)))) (declare (not safe)) - (cons __tmp151433 '())))) + (cons __tmp152590 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151432 + __obj150796 + __tmp152589 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151436 - (let ((__tmp151437 - (let ((__tmp151438 |gx[1]#_g151439_|)) + (let ((__tmp152593 + (let ((__tmp152594 + (let ((__tmp152595 |gx[1]#_g152596_|)) (declare (not safe)) - (cons 'e __tmp151438)))) + (cons 'e __tmp152595)))) (declare (not safe)) - (cons __tmp151437 '())))) + (cons __tmp152594 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149635 - __tmp151436 + __obj150796 + __tmp152593 '14 gerbil/core$$#class-type-info::t '#f)) - __obj149635)) + (let ((__tmp152597 + (let ((__tmp152598 + (let ((__tmp152599 |gx[1]#_g152600_|)) + (declare (not safe)) + (cons 'e __tmp152599)))) + (declare (not safe)) + (cons __tmp152598 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj150796 + __tmp152597 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj150796)) (define |gx[:0:]#user-expander| - (let ((__obj149636 + (let ((__obj150797 (let () (declare (not safe)) (##structure @@ -10077,11 +10329,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149636 + __obj150797 'gx#macro-expander::t '1 gerbil/core$$#class-type-info::t @@ -10089,7 +10342,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149636 + __obj150797 'user-expander '2 gerbil/core$$#class-type-info::t @@ -10097,26 +10350,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149636 + __obj150797 '(context phi) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151440 - (let ((__tmp151441 |gx[1]#_g151417_|)) + (let ((__tmp152601 + (let ((__tmp152602 |gx[1]#_g152578_|)) (declare (not safe)) - (cons __tmp151441 '())))) + (cons __tmp152602 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151440 + __obj150797 + __tmp152601 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149636 + __obj150797 '#t '5 gerbil/core$$#class-type-info::t @@ -10124,7 +10377,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149636 + __obj150797 '#f '6 gerbil/core$$#class-type-info::t @@ -10132,150 +10385,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149636 + __obj150797 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151442 |gx[1]#_g151443_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151442 + __obj150797 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151444 |gx[1]#_g151445_|)) + (let ((__tmp152603 |gx[1]#_g152604_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151444 + __obj150797 + __tmp152603 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151446 |gx[1]#_g151447_|)) + (let ((__tmp152605 |gx[1]#_g152606_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151446 + __obj150797 + __tmp152605 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151448 - (let ((__tmp151457 - (let ((__tmp151458 |gx[1]#_g151459_|)) + (let ((__tmp152607 |gx[1]#_g152608_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150797 + __tmp152607 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152609 + (let ((__tmp152618 + (let ((__tmp152619 |gx[1]#_g152620_|)) (declare (not safe)) - (cons 'context __tmp151458))) - (__tmp151449 - (let ((__tmp151454 - (let ((__tmp151455 |gx[1]#_g151456_|)) + (cons 'context __tmp152619))) + (__tmp152610 + (let ((__tmp152615 + (let ((__tmp152616 |gx[1]#_g152617_|)) (declare (not safe)) - (cons 'phi __tmp151455))) - (__tmp151450 - (let ((__tmp151451 - (let ((__tmp151452 |gx[1]#_g151453_|)) + (cons 'phi __tmp152616))) + (__tmp152611 + (let ((__tmp152612 + (let ((__tmp152613 |gx[1]#_g152614_|)) (declare (not safe)) - (cons 'e __tmp151452)))) + (cons 'e __tmp152613)))) (declare (not safe)) - (cons __tmp151451 '())))) + (cons __tmp152612 '())))) (declare (not safe)) - (cons __tmp151454 __tmp151450)))) + (cons __tmp152615 __tmp152611)))) (declare (not safe)) - (cons __tmp151457 __tmp151449)))) + (cons __tmp152618 __tmp152610)))) (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151448 - '11 + __obj150797 + __tmp152609 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151460 - (let ((__tmp151469 - (let ((__tmp151470 |gx[1]#_g151471_|)) + (let ((__tmp152621 + (let ((__tmp152630 + (let ((__tmp152631 |gx[1]#_g152632_|)) (declare (not safe)) - (cons 'context __tmp151470))) - (__tmp151461 - (let ((__tmp151466 - (let ((__tmp151467 |gx[1]#_g151468_|)) + (cons 'context __tmp152631))) + (__tmp152622 + (let ((__tmp152627 + (let ((__tmp152628 |gx[1]#_g152629_|)) (declare (not safe)) - (cons 'phi __tmp151467))) - (__tmp151462 - (let ((__tmp151463 - (let ((__tmp151464 |gx[1]#_g151465_|)) + (cons 'phi __tmp152628))) + (__tmp152623 + (let ((__tmp152624 + (let ((__tmp152625 |gx[1]#_g152626_|)) (declare (not safe)) - (cons 'e __tmp151464)))) + (cons 'e __tmp152625)))) (declare (not safe)) - (cons __tmp151463 '())))) + (cons __tmp152624 '())))) (declare (not safe)) - (cons __tmp151466 __tmp151462)))) + (cons __tmp152627 __tmp152623)))) (declare (not safe)) - (cons __tmp151469 __tmp151461)))) + (cons __tmp152630 __tmp152622)))) (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151460 - '12 + __obj150797 + __tmp152621 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151472 - (let ((__tmp151481 - (let ((__tmp151482 |gx[1]#_g151483_|)) + (let ((__tmp152633 + (let ((__tmp152642 + (let ((__tmp152643 |gx[1]#_g152644_|)) (declare (not safe)) - (cons 'context __tmp151482))) - (__tmp151473 - (let ((__tmp151478 - (let ((__tmp151479 |gx[1]#_g151480_|)) + (cons 'context __tmp152643))) + (__tmp152634 + (let ((__tmp152639 + (let ((__tmp152640 |gx[1]#_g152641_|)) (declare (not safe)) - (cons 'phi __tmp151479))) - (__tmp151474 - (let ((__tmp151475 - (let ((__tmp151476 |gx[1]#_g151477_|)) + (cons 'phi __tmp152640))) + (__tmp152635 + (let ((__tmp152636 + (let ((__tmp152637 |gx[1]#_g152638_|)) (declare (not safe)) - (cons 'e __tmp151476)))) + (cons 'e __tmp152637)))) (declare (not safe)) - (cons __tmp151475 '())))) + (cons __tmp152636 '())))) (declare (not safe)) - (cons __tmp151478 __tmp151474)))) + (cons __tmp152639 __tmp152635)))) (declare (not safe)) - (cons __tmp151481 __tmp151473)))) + (cons __tmp152642 __tmp152634)))) (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151472 - '13 + __obj150797 + __tmp152633 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151484 - (let ((__tmp151493 - (let ((__tmp151494 |gx[1]#_g151495_|)) + (let ((__tmp152645 + (let ((__tmp152654 + (let ((__tmp152655 |gx[1]#_g152656_|)) (declare (not safe)) - (cons 'context __tmp151494))) - (__tmp151485 - (let ((__tmp151490 - (let ((__tmp151491 |gx[1]#_g151492_|)) + (cons 'context __tmp152655))) + (__tmp152646 + (let ((__tmp152651 + (let ((__tmp152652 |gx[1]#_g152653_|)) (declare (not safe)) - (cons 'phi __tmp151491))) - (__tmp151486 - (let ((__tmp151487 - (let ((__tmp151488 |gx[1]#_g151489_|)) + (cons 'phi __tmp152652))) + (__tmp152647 + (let ((__tmp152648 + (let ((__tmp152649 |gx[1]#_g152650_|)) (declare (not safe)) - (cons 'e __tmp151488)))) + (cons 'e __tmp152649)))) (declare (not safe)) - (cons __tmp151487 '())))) + (cons __tmp152648 '())))) (declare (not safe)) - (cons __tmp151490 __tmp151486)))) + (cons __tmp152651 __tmp152647)))) (declare (not safe)) - (cons __tmp151493 __tmp151485)))) + (cons __tmp152654 __tmp152646)))) (declare (not safe)) (##unchecked-structure-set! - __obj149636 - __tmp151484 - '14 + __obj150797 + __tmp152645 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149636)) + __obj150797)) (define |gx[:0:]#expander-mark| - (let ((__obj149637 + (let ((__obj150798 (let () (declare (not safe)) (##structure @@ -10293,11 +10554,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 + __obj150798 'gx#expander-mark::t '1 gerbil/core$$#class-type-info::t @@ -10305,7 +10567,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 + __obj150798 'expander-mark '2 gerbil/core$$#class-type-info::t @@ -10313,7 +10575,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 + __obj150798 '(subst context phi trace) '4 gerbil/core$$#class-type-info::t @@ -10321,7 +10583,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 + __obj150798 '() '3 gerbil/core$$#class-type-info::t @@ -10329,7 +10591,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 + __obj150798 '#t '5 gerbil/core$$#class-type-info::t @@ -10337,7 +10599,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 + __obj150798 '#f '6 gerbil/core$$#class-type-info::t @@ -10345,253 +10607,261 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 + __obj150798 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151496 |gx[1]#_g151497_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj149637 - __tmp151496 + __obj150798 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151498 |gx[1]#_g151499_|)) + (let ((__tmp152657 |gx[1]#_g152658_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149637 - __tmp151498 + __obj150798 + __tmp152657 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151500 |gx[1]#_g151501_|)) + (let ((__tmp152659 |gx[1]#_g152660_|)) (declare (not safe)) (##unchecked-structure-set! - __obj149637 - __tmp151500 + __obj150798 + __tmp152659 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151502 - (let ((__tmp151515 - (let ((__tmp151516 |gx[1]#_g151517_|)) + (let ((__tmp152661 |gx[1]#_g152662_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj150798 + __tmp152661 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp152663 + (let ((__tmp152676 + (let ((__tmp152677 |gx[1]#_g152678_|)) (declare (not safe)) - (cons 'subst __tmp151516))) - (__tmp151503 - (let ((__tmp151512 - (let ((__tmp151513 |gx[1]#_g151514_|)) + (cons 'subst __tmp152677))) + (__tmp152664 + (let ((__tmp152673 + (let ((__tmp152674 |gx[1]#_g152675_|)) (declare (not safe)) - (cons 'context __tmp151513))) - (__tmp151504 - (let ((__tmp151509 - (let ((__tmp151510 |gx[1]#_g151511_|)) + (cons 'context __tmp152674))) + (__tmp152665 + (let ((__tmp152670 + (let ((__tmp152671 |gx[1]#_g152672_|)) (declare (not safe)) - (cons 'phi __tmp151510))) - (__tmp151505 - (let ((__tmp151506 - (let ((__tmp151507 - |gx[1]#_g151508_|)) + (cons 'phi __tmp152671))) + (__tmp152666 + (let ((__tmp152667 + (let ((__tmp152668 + |gx[1]#_g152669_|)) (declare (not safe)) - (cons 'trace __tmp151507)))) + (cons 'trace __tmp152668)))) (declare (not safe)) - (cons __tmp151506 '())))) + (cons __tmp152667 '())))) (declare (not safe)) - (cons __tmp151509 __tmp151505)))) + (cons __tmp152670 __tmp152666)))) (declare (not safe)) - (cons __tmp151512 __tmp151504)))) + (cons __tmp152673 __tmp152665)))) (declare (not safe)) - (cons __tmp151515 __tmp151503)))) + (cons __tmp152676 __tmp152664)))) (declare (not safe)) (##unchecked-structure-set! - __obj149637 - __tmp151502 - '11 + __obj150798 + __tmp152663 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151518 - (let ((__tmp151531 - (let ((__tmp151532 |gx[1]#_g151533_|)) + (let ((__tmp152679 + (let ((__tmp152692 + (let ((__tmp152693 |gx[1]#_g152694_|)) (declare (not safe)) - (cons 'subst __tmp151532))) - (__tmp151519 - (let ((__tmp151528 - (let ((__tmp151529 |gx[1]#_g151530_|)) + (cons 'subst __tmp152693))) + (__tmp152680 + (let ((__tmp152689 + (let ((__tmp152690 |gx[1]#_g152691_|)) (declare (not safe)) - (cons 'context __tmp151529))) - (__tmp151520 - (let ((__tmp151525 - (let ((__tmp151526 |gx[1]#_g151527_|)) + (cons 'context __tmp152690))) + (__tmp152681 + (let ((__tmp152686 + (let ((__tmp152687 |gx[1]#_g152688_|)) (declare (not safe)) - (cons 'phi __tmp151526))) - (__tmp151521 - (let ((__tmp151522 - (let ((__tmp151523 - |gx[1]#_g151524_|)) + (cons 'phi __tmp152687))) + (__tmp152682 + (let ((__tmp152683 + (let ((__tmp152684 + |gx[1]#_g152685_|)) (declare (not safe)) - (cons 'trace __tmp151523)))) + (cons 'trace __tmp152684)))) (declare (not safe)) - (cons __tmp151522 '())))) + (cons __tmp152683 '())))) (declare (not safe)) - (cons __tmp151525 __tmp151521)))) + (cons __tmp152686 __tmp152682)))) (declare (not safe)) - (cons __tmp151528 __tmp151520)))) + (cons __tmp152689 __tmp152681)))) (declare (not safe)) - (cons __tmp151531 __tmp151519)))) + (cons __tmp152692 __tmp152680)))) (declare (not safe)) (##unchecked-structure-set! - __obj149637 - __tmp151518 - '12 + __obj150798 + __tmp152679 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151534 - (let ((__tmp151547 - (let ((__tmp151548 |gx[1]#_g151549_|)) + (let ((__tmp152695 + (let ((__tmp152708 + (let ((__tmp152709 |gx[1]#_g152710_|)) (declare (not safe)) - (cons 'subst __tmp151548))) - (__tmp151535 - (let ((__tmp151544 - (let ((__tmp151545 |gx[1]#_g151546_|)) + (cons 'subst __tmp152709))) + (__tmp152696 + (let ((__tmp152705 + (let ((__tmp152706 |gx[1]#_g152707_|)) (declare (not safe)) - (cons 'context __tmp151545))) - (__tmp151536 - (let ((__tmp151541 - (let ((__tmp151542 |gx[1]#_g151543_|)) - (declare (not safe)) - (cons 'phi __tmp151542))) - (__tmp151537 - (let ((__tmp151538 - (let ((__tmp151539 - |gx[1]#_g151540_|)) + (cons 'context __tmp152706))) + (__tmp152697 + (let ((__tmp152702 + (let ((__tmp152703 |gx[1]#_g152704_|)) + (declare (not safe)) + (cons 'phi __tmp152703))) + (__tmp152698 + (let ((__tmp152699 + (let ((__tmp152700 + |gx[1]#_g152701_|)) (declare (not safe)) - (cons 'trace __tmp151539)))) + (cons 'trace __tmp152700)))) (declare (not safe)) - (cons __tmp151538 '())))) + (cons __tmp152699 '())))) (declare (not safe)) - (cons __tmp151541 __tmp151537)))) + (cons __tmp152702 __tmp152698)))) (declare (not safe)) - (cons __tmp151544 __tmp151536)))) + (cons __tmp152705 __tmp152697)))) (declare (not safe)) - (cons __tmp151547 __tmp151535)))) + (cons __tmp152708 __tmp152696)))) (declare (not safe)) (##unchecked-structure-set! - __obj149637 - __tmp151534 - '13 + __obj150798 + __tmp152695 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp151550 - (let ((__tmp151563 - (let ((__tmp151564 |gx[1]#_g151565_|)) + (let ((__tmp152711 + (let ((__tmp152724 + (let ((__tmp152725 |gx[1]#_g152726_|)) (declare (not safe)) - (cons 'subst __tmp151564))) - (__tmp151551 - (let ((__tmp151560 - (let ((__tmp151561 |gx[1]#_g151562_|)) + (cons 'subst __tmp152725))) + (__tmp152712 + (let ((__tmp152721 + (let ((__tmp152722 |gx[1]#_g152723_|)) (declare (not safe)) - (cons 'context __tmp151561))) - (__tmp151552 - (let ((__tmp151557 - (let ((__tmp151558 |gx[1]#_g151559_|)) + (cons 'context __tmp152722))) + (__tmp152713 + (let ((__tmp152718 + (let ((__tmp152719 |gx[1]#_g152720_|)) (declare (not safe)) - (cons 'phi __tmp151558))) - (__tmp151553 - (let ((__tmp151554 - (let ((__tmp151555 - |gx[1]#_g151556_|)) + (cons 'phi __tmp152719))) + (__tmp152714 + (let ((__tmp152715 + (let ((__tmp152716 + |gx[1]#_g152717_|)) (declare (not safe)) - (cons 'trace __tmp151555)))) + (cons 'trace __tmp152716)))) (declare (not safe)) - (cons __tmp151554 '())))) + (cons __tmp152715 '())))) (declare (not safe)) - (cons __tmp151557 __tmp151553)))) + (cons __tmp152718 __tmp152714)))) (declare (not safe)) - (cons __tmp151560 __tmp151552)))) + (cons __tmp152721 __tmp152713)))) (declare (not safe)) - (cons __tmp151563 __tmp151551)))) + (cons __tmp152724 __tmp152712)))) (declare (not safe)) (##unchecked-structure-set! - __obj149637 - __tmp151550 - '14 + __obj150798 + __tmp152711 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj149637)) + __obj150798)) (define |gx[:0:]#&phi-context?| - (lambda (_$stx142034_) - (let* ((_g142038142052_ - (lambda (_g142039142048_) + (lambda (_$stx143195_) + (let* ((_g143199143213_ + (lambda (_g143200143209_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g142039142048_)))) - (_g142037142094_ - (lambda (_g142039142056_) + _g143200143209_)))) + (_g143198143255_ + (lambda (_g143200143217_) (if (let () (declare (not safe)) - (gx#stx-pair? _g142039142056_)) - (let ((_e142043142059_ + (gx#stx-pair? _g143200143217_)) + (let ((_e143204143220_ (let () (declare (not safe)) - (gx#syntax-e _g142039142056_)))) - (let ((_hd142042142063_ + (gx#syntax-e _g143200143217_)))) + (let ((_hd143203143224_ (let () (declare (not safe)) - (##car _e142043142059_))) - (_tl142041142066_ + (##car _e143204143220_))) + (_tl143202143227_ (let () (declare (not safe)) - (##cdr _e142043142059_)))) + (##cdr _e143204143220_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl142041142066_)) - (let ((_e142046142069_ + (gx#stx-pair? _tl143202143227_)) + (let ((_e143207143230_ (let () (declare (not safe)) - (gx#syntax-e _tl142041142066_)))) - (let ((_hd142045142073_ + (gx#syntax-e _tl143202143227_)))) + (let ((_hd143206143234_ (let () (declare (not safe)) - (##car _e142046142069_))) - (_tl142044142076_ + (##car _e143207143230_))) + (_tl143205143237_ (let () (declare (not safe)) - (##cdr _e142046142069_)))) + (##cdr _e143207143230_)))) (if (let () (declare (not safe)) - (gx#stx-null? _tl142044142076_)) - ((lambda (_L142079_) - (let ((__tmp151571 + (gx#stx-null? _tl143205143237_)) + ((lambda (_L143240_) + (let ((__tmp152732 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'fx>))) - (__tmp151566 - (let ((__tmp151568 - (let ((__tmp151570 + (__tmp152727 + (let ((__tmp152729 + (let ((__tmp152731 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '##vector-length))) - (__tmp151569 - (let () (declare (not safe)) (cons _L142079_ '())))) + (__tmp152730 + (let () (declare (not safe)) (cons _L143240_ '())))) (declare (not safe)) - (cons __tmp151570 __tmp151569))) - (__tmp151567 (let () (declare (not safe)) (cons '3 '())))) + (cons __tmp152731 __tmp152730))) + (__tmp152728 (let () (declare (not safe)) (cons '3 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp151568 - __tmp151567)))) + (cons __tmp152729 + __tmp152728)))) (declare (not safe)) - (cons __tmp151571 __tmp151566))) - _hd142045142073_) - (_g142038142052_ _g142039142056_)))) - (_g142038142052_ _g142039142056_)))) - (_g142038142052_ _g142039142056_))))) - (_g142037142094_ _$stx142034_)))))) + (cons __tmp152732 __tmp152727))) + _hd143206143234_) + (_g143199143213_ _g143200143217_)))) + (_g143199143213_ _g143200143217_)))) + (_g143199143213_ _g143200143217_))))) + (_g143198143255_ _$stx143195_)))))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 84b6f1be8..b18b93a9b 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -12,6 +12,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#module-import? (@predicate gx#module-import::t)) (declare-type gx#make-module-import (@constructor gx#module-import::t)) @@ -65,6 +66,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#module-export? (@predicate gx#module-export::t)) (declare-type gx#make-module-export (@constructor gx#module-export::t)) @@ -126,6 +128,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#import-set? (@predicate gx#import-set::t)) (declare-type gx#make-import-set (@constructor gx#import-set::t)) @@ -159,6 +162,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#export-set? (@predicate gx#export-set::t)) (declare-type gx#make-export-set (@constructor gx#export-set::t)) @@ -192,10 +196,9 @@ package: gerbil/expander :init! #f #f - ((:init! . gx#import-expander:::init!) - (apply-import-expander - . - gx#import-expander::apply-import-expander)))) + #f + ((apply-import-expander . gx#import-expander::apply-import-expander) + (:init! . gx#import-expander:::init!)))) (declare-type gx#import-expander? (@predicate gx#import-expander::t)) (declare-type gx#make-import-expander (@constructor gx#import-expander::t)) (declare-type @@ -240,10 +243,9 @@ package: gerbil/expander :init! #f #f - ((:init! . gx#export-expander:::init!) - (apply-export-expander - . - gx#export-expander::apply-export-expander)))) + #f + ((apply-export-expander . gx#export-expander::apply-export-expander) + (:init! . gx#export-expander:::init!)))) (declare-type gx#export-expander? (@predicate gx#export-expander::t)) (declare-type gx#make-export-expander (@constructor gx#export-expander::t)) (declare-type @@ -292,6 +294,7 @@ package: gerbil/expander :init! #f #f + #f ((:init! . gx#import-export-expander:::init!)))) (declare-type gx#import-export-expander? diff --git a/src/bootstrap/gerbil/expander/module__0.scm b/src/bootstrap/gerbil/expander/module__0.scm index 2ce1dab8e..8773f35fa 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 1707773927) + (define gerbil/expander/module::timestamp 1708102803) (begin (declare (not safe)) (define gx#module-import::t @@ -13,8 +13,8 @@ '#f)) (define gx#module-import? (make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _$args162621_ - (apply make-instance gx#module-import::t _$args162621_))) + (lambda _$args163782_ + (apply make-instance gx#module-import::t _$args163782_))) (define gx#module-import-source (make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -57,8 +57,8 @@ '#f)) (define gx#module-export? (make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _$args162618_ - (apply make-instance gx#module-export::t _$args162618_))) + (lambda _$args163779_ + (apply make-instance gx#module-export::t _$args163779_))) (define gx#module-export-context (make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -109,8 +109,8 @@ '#f)) (define gx#import-set? (make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _$args162615_ - (apply make-instance gx#import-set::t _$args162615_))) + (lambda _$args163776_ + (apply make-instance gx#import-set::t _$args163776_))) (define gx#import-set-source (make-class-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi (make-class-slot-accessor gx#import-set::t 'phi)) @@ -144,8 +144,8 @@ '#f)) (define gx#export-set? (make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _$args162612_ - (apply make-instance gx#export-set::t _$args162612_))) + (lambda _$args163773_ + (apply make-instance gx#export-set::t _$args163773_))) (define gx#export-set-source (make-class-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi (make-class-slot-accessor gx#export-set::t 'phi)) @@ -179,8 +179,8 @@ ':init!)) (define gx#import-expander? (make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _$args162609_ - (apply make-instance gx#import-expander::t _$args162609_))) + (lambda _$args163770_ + (apply make-instance gx#import-expander::t _$args163770_))) (define gx#import-expander-context (make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -215,8 +215,8 @@ ':init!)) (define gx#export-expander? (make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _$args162606_ - (apply make-instance gx#export-expander::t _$args162606_))) + (lambda _$args163767_ + (apply make-instance gx#export-expander::t _$args163767_))) (define gx#export-expander-context (make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -252,8 +252,8 @@ (define gx#import-export-expander? (make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _$args162603_ - (apply make-instance gx#import-export-expander::t _$args162603_))) + (lambda _$args163764_ + (apply make-instance gx#import-export-expander::t _$args163764_))) (define gx#import-export-expander-context (make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -288,292 +288,293 @@ (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 (_path162600_ _fun162601_) + (lambda (_path163761_ _fun163762_) (call-with-input-file - (cons 'path: (cons _path162600_ gx#source-file-settings)) - _fun162601_))) + (cons 'path: (cons _path163761_ gx#source-file-settings)) + _fun163762_))) (define gx#module-context:::init! - (lambda (_self162594_ _id162595_ _super162596_ _ns162597_ _path162598_) - (if (##fx< '11 (##structure-length _self162594_)) + (lambda (_self163755_ _id163756_ _super163757_ _ns163758_ _path163759_) + (if (##fx< '11 (##structure-length _self163755_)) (begin (##unchecked-structure-set! - _self162594_ - _id162595_ + _self163755_ + _id163756_ '1 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ + _self163755_ (make-table 'test: eq?) '2 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ - _super162596_ + _self163755_ + _super163757_ '3 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ + _self163755_ '#f '4 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ + _self163755_ '#f '5 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ - _ns162597_ + _self163755_ + _ns163758_ '6 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ - _path162598_ + _self163755_ + _path163759_ '7 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ + _self163755_ '() '8 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ + _self163755_ '() '9 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ + _self163755_ '#f '10 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f) (##unchecked-structure-set! - _self162594_ + _self163755_ '#f '11 - (##structure-type _self162594_) + (##structure-type _self163755_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self162594_ + _self163755_ '11 - (##vector-length _self162594_))))) + (##vector-length _self163755_))))) (bind-method! gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_self162438_ _ctx162439_ _root162440_) - (let ((_super162448_ - (let ((_$e162442_ _root162440_)) - (if _$e162442_ - _$e162442_ - (let ((_$e162445_ (gx#core-context-root__0))) - (if _$e162445_ - _$e162445_ - (let ((__obj167231 + (lambda (_self163599_ _ctx163600_ _root163601_) + (let ((_super163609_ + (let ((_$e163603_ _root163601_)) + (if _$e163603_ + _$e163603_ + (let ((_$e163606_ (gx#core-context-root__0))) + (if _$e163606_ + _$e163606_ + (let ((__obj168392 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor167232 + (let ((__constructor168393 (direct-method-ref gx#root-context::t + __obj168392 ':init!))) - (if __constructor167232 - (__constructor167232 __obj167231) + (if __constructor168393 + (__constructor168393 __obj168392) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj167231))))))) - (if _ctx162439_ - (let ((_id162451_ + __obj168392))))))) + (if _ctx163600_ + (let ((_id163612_ (##structure-ref - _ctx162439_ + _ctx163600_ '1 gx#expander-context::t '#f)) - (_path162452_ - (##structure-ref _ctx162439_ '7 gx#module-context::t '#f)) - (_in162453_ + (_path163613_ + (##structure-ref _ctx163600_ '7 gx#module-context::t '#f)) + (_in163614_ (map gx#core-module-export->import (##structure-ref - _ctx162439_ + _ctx163600_ '9 gx#module-context::t '#f))) - (_e162454_ - (make-promise (lambda () (gx#eval-module _ctx162439_))))) - (if (##fx< '8 (##structure-length _self162438_)) + (_e163615_ + (make-promise (lambda () (gx#eval-module _ctx163600_))))) + (if (##fx< '8 (##structure-length _self163599_)) (begin (##unchecked-structure-set! - _self162438_ - _id162451_ + _self163599_ + _id163612_ '1 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ - (make-table 'test: eq? 'size: (length _in162453_)) + _self163599_ + (make-table 'test: eq? 'size: (length _in163614_)) '2 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ - _super162448_ + _self163599_ + _super163609_ '3 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ '#f '4 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ '#f '5 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ - _path162452_ + _self163599_ + _path163613_ '6 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ - _in162453_ + _self163599_ + _in163614_ '7 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ - _e162454_ + _self163599_ + _e163615_ '8 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self162438_ + _self163599_ '8 - (##vector-length _self162438_))) + (##vector-length _self163599_))) (for-each - (lambda (_g162455162457_) - (gx#core-bind-weak-import!__% _g162455162457_ _self162438_)) - _in162453_)) - (if (##fx< '8 (##structure-length _self162438_)) + (lambda (_g163616163618_) + (gx#core-bind-weak-import!__% _g163616163618_ _self163599_)) + _in163614_)) + (if (##fx< '8 (##structure-length _self163599_)) (begin (##unchecked-structure-set! - _self162438_ + _self163599_ '#f '1 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ (make-table 'test: eq?) '2 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ - _super162448_ + _self163599_ + _super163609_ '3 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ '#f '4 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ '#f '5 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ '#f '6 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ '() '7 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f) (##unchecked-structure-set! - _self162438_ + _self163599_ '#f '8 - (##structure-type _self162438_) + (##structure-type _self163599_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self162438_ + _self163599_ '8 - (##vector-length _self162438_))))))) + (##vector-length _self163599_))))))) (define gx#prelude-context:::init!__0 - (lambda (_self162463_ _ctx162464_) - (let ((_root162466_ '#f)) + (lambda (_self163624_ _ctx163625_) + (let ((_root163627_ '#f)) (gx#prelude-context:::init!__% - _self162463_ - _ctx162464_ - _root162466_)))) + _self163624_ + _ctx163625_ + _root163627_)))) (define gx#prelude-context:::init! - (lambda _g167238_ - (let ((_g167237_ (##length _g167238_))) - (cond ((##fx= _g167237_ 2) - (apply (lambda (_self162463_ _ctx162464_) + (lambda _g168399_ + (let ((_g168398_ (##length _g168399_))) + (cond ((##fx= _g168398_ 2) + (apply (lambda (_self163624_ _ctx163625_) (gx#prelude-context:::init!__0 - _self162463_ - _ctx162464_)) - _g167238_)) - ((##fx= _g167237_ 3) - (apply (lambda (_self162468_ _ctx162469_ _root162470_) + _self163624_ + _ctx163625_)) + _g168399_)) + ((##fx= _g168398_ 3) + (apply (lambda (_self163629_ _ctx163630_ _root163631_) (gx#prelude-context:::init!__% - _self162468_ - _ctx162469_ - _root162470_)) - _g167238_)) + _self163629_ + _ctx163630_ + _root163631_)) + _g168399_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g167238_)))))) + _g168399_)))))) (bind-method! gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_self162312_ _e162313_) - (if (##fx< '3 (##structure-length _self162312_)) + (lambda (_self163473_ _e163474_) + (if (##fx< '3 (##structure-length _self163473_)) (begin (##unchecked-structure-set! - _self162312_ - _e162313_ + _self163473_ + _e163474_ '1 - (##structure-type _self162312_) + (##structure-type _self163473_) '#f) (##unchecked-structure-set! - _self162312_ + _self163473_ (gx#current-expander-context) '2 - (##structure-type _self162312_) + (##structure-type _self163473_) '#f) (##unchecked-structure-set! - _self162312_ + _self163473_ (fx- (gx#current-expander-phi) '1) '3 - (##structure-type _self162312_) + (##structure-type _self163473_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self162312_ + _self163473_ '3 - (##vector-length _self162312_))))) + (##vector-length _self163473_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (bind-method! gx#import-expander::t ':init! gx#import-expander:::init! '#f) (define gx#export-expander:::init! gx#import-export-expander-init!) @@ -585,10 +586,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_g161938161941_ _g161939161943_) + (lambda (_g163099163102_ _g163100163104_) (gx#core-apply-user-expander__% - _g161938161941_ - _g161939161943_ + _g163099163102_ + _g163100163104_ 'apply-import-expander))) (bind-method! gx#import-expander::t @@ -596,10 +597,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_g161809161812_ _g161810161814_) + (lambda (_g162970162973_ _g162971162975_) (gx#core-apply-user-expander__% - _g161809161812_ - _g161810161814_ + _g162970162973_ + _g162971162975_ 'apply-export-expander))) (bind-method! gx#export-expander::t @@ -607,116 +608,116 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_ctx161680_) - (let* ((_path161682_ - (##structure-ref _ctx161680_ '7 gx#module-context::t '#f)) - (_path161684_ - (if (pair? _path161682_) (last _path161682_) _path161682_))) - (if (string? _path161684_) _path161684_ '#f)))) + (lambda (_ctx162841_) + (let* ((_path162843_ + (##structure-ref _ctx162841_ '7 gx#module-context::t '#f)) + (_path162845_ + (if (pair? _path162843_) (last _path162843_) _path162843_))) + (if (string? _path162845_) _path162845_ '#f)))) (define gx#import-module__% - (lambda (_path161656_ _reload?161657_ _eval?161658_) - (let ((_ctx161660_ + (lambda (_path162817_ _reload?162818_ _eval?162819_) + (let ((_ctx162821_ ((gx#current-expander-module-import) - _path161656_ - _reload?161657_))) - (if (and _ctx161660_ _eval?161658_) - (gx#eval-module _ctx161660_) + _path162817_ + _reload?162818_))) + (if (and _ctx162821_ _eval?162819_) + (gx#eval-module _ctx162821_) '#!void) - _ctx161660_))) + _ctx162821_))) (define gx#import-module__0 - (lambda (_path161665_) - (let* ((_reload?161667_ '#f) (_eval?161669_ '#f)) - (gx#import-module__% _path161665_ _reload?161667_ _eval?161669_)))) + (lambda (_path162826_) + (let* ((_reload?162828_ '#f) (_eval?162830_ '#f)) + (gx#import-module__% _path162826_ _reload?162828_ _eval?162830_)))) (define gx#import-module__1 - (lambda (_path161671_ _reload?161672_) - (let ((_eval?161674_ '#f)) - (gx#import-module__% _path161671_ _reload?161672_ _eval?161674_)))) + (lambda (_path162832_ _reload?162833_) + (let ((_eval?162835_ '#f)) + (gx#import-module__% _path162832_ _reload?162833_ _eval?162835_)))) (define gx#import-module - (lambda _g167240_ - (let ((_g167239_ (##length _g167240_))) - (cond ((##fx= _g167239_ 1) - (apply (lambda (_path161665_) - (gx#import-module__0 _path161665_)) - _g167240_)) - ((##fx= _g167239_ 2) - (apply (lambda (_path161671_ _reload?161672_) - (gx#import-module__1 _path161671_ _reload?161672_)) - _g167240_)) - ((##fx= _g167239_ 3) - (apply (lambda (_path161676_ _reload?161677_ _eval?161678_) + (lambda _g168401_ + (let ((_g168400_ (##length _g168401_))) + (cond ((##fx= _g168400_ 1) + (apply (lambda (_path162826_) + (gx#import-module__0 _path162826_)) + _g168401_)) + ((##fx= _g168400_ 2) + (apply (lambda (_path162832_ _reload?162833_) + (gx#import-module__1 _path162832_ _reload?162833_)) + _g168401_)) + ((##fx= _g168400_ 3) + (apply (lambda (_path162837_ _reload?162838_ _eval?162839_) (gx#import-module__% - _path161676_ - _reload?161677_ - _eval?161678_)) - _g167240_)) + _path162837_ + _reload?162838_ + _eval?162839_)) + _g168401_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g167240_)))))) + _g168401_)))))) (define gx#eval-module - (lambda (_mod161653_) ((gx#current-expander-module-eval) _mod161653_))) + (lambda (_mod162814_) ((gx#current-expander-module-eval) _mod162814_))) (define gx#core-eval-module - (lambda (_obj161638_) - (letrec ((_force-e161640_ - (lambda (_getf161649_ _e161650_) + (lambda (_obj162799_) + (letrec ((_force-e162801_ + (lambda (_getf162810_ _e162811_) (call-with-parameters - (lambda () (force (_getf161649_ _e161650_))) + (lambda () (force (_getf162810_ _e162811_))) gx#current-expander-context - _e161650_ + _e162811_ gx#current-expander-phi '0)))) - (let _recur161642_ ((_e161644_ _obj161638_)) - (if (##structure-instance-of? _e161644_ 'gx#module-context::t) + (let _recur162803_ ((_e162805_ _obj162799_)) + (if (##structure-instance-of? _e162805_ 'gx#module-context::t) (begin - (let ((_$e161646_ (gx#core-context-prelude__% _e161644_))) - (if _$e161646_ (_recur161642_ _$e161646_) '#!void)) - (_force-e161640_ gx#module-context-e _e161644_)) - (if (##structure-instance-of? _e161644_ 'gx#prelude-context::t) - (_force-e161640_ gx#prelude-context-e _e161644_) - (if (gx#stx-string? _e161644_) - (_recur161642_ + (let ((_$e162807_ (gx#core-context-prelude__% _e162805_))) + (if _$e162807_ (_recur162803_ _$e162807_) '#!void)) + (_force-e162801_ gx#module-context-e _e162805_)) + (if (##structure-instance-of? _e162805_ 'gx#prelude-context::t) + (_force-e162801_ gx#prelude-context-e _e162805_) + (if (gx#stx-string? _e162805_) + (_recur162803_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _e161644_))) - (if (gx#core-library-module-path? _e161644_) - (_recur161642_ + (gx#core-resolve-module-path__0 _e162805_))) + (if (gx#core-library-module-path? _e162805_) + (_recur162803_ (gx#import-module__0 - (gx#core-resolve-library-module-path _e161644_))) - (error '"Cannot eval module" _obj161638_))))))))) + (gx#core-resolve-library-module-path _e162805_))) + (error '"Cannot eval module" _obj162799_))))))))) (define gx#core-context-prelude__% - (lambda (_ctx161621_) - (let _lp161623_ ((_e161625_ _ctx161621_)) - (if (or (##structure-instance-of? _e161625_ 'gx#module-context::t) - (##structure-instance-of? _e161625_ 'gx#local-context::t)) - (_lp161623_ - (##unchecked-structure-ref _e161625_ '3 gx#phi-context::t '#f)) - (if (##structure-instance-of? _e161625_ 'gx#prelude-context::t) - _e161625_ + (lambda (_ctx162782_) + (let _lp162784_ ((_e162786_ _ctx162782_)) + (if (or (##structure-instance-of? _e162786_ 'gx#module-context::t) + (##structure-instance-of? _e162786_ 'gx#local-context::t)) + (_lp162784_ + (##unchecked-structure-ref _e162786_ '3 gx#phi-context::t '#f)) + (if (##structure-instance-of? _e162786_ 'gx#prelude-context::t) + _e162786_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_ctx161634_ (gx#current-expander-context))) - (gx#core-context-prelude__% _ctx161634_)))) + (let ((_ctx162795_ (gx#current-expander-context))) + (gx#core-context-prelude__% _ctx162795_)))) (define gx#core-context-prelude - (lambda _g167242_ - (let ((_g167241_ (##length _g167242_))) - (cond ((##fx= _g167241_ 0) - (apply (lambda () (gx#core-context-prelude__0)) _g167242_)) - ((##fx= _g167241_ 1) - (apply (lambda (_ctx161636_) - (gx#core-context-prelude__% _ctx161636_)) - _g167242_)) + (lambda _g168403_ + (let ((_g168402_ (##length _g168403_))) + (cond ((##fx= _g168402_ 0) + (apply (lambda () (gx#core-context-prelude__0)) _g168403_)) + ((##fx= _g168402_ 1) + (apply (lambda (_ctx162797_) + (gx#core-context-prelude__% _ctx162797_)) + _g168403_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g167242_)))))) + _g168403_)))))) (define gx#core-module->prelude-context - (lambda (_ctx161611_) - (let* ((_ht161613_ (gx#current-expander-module-registry)) - (_$e161615_ (table-ref _ht161613_ _ctx161611_ '#f))) - (if _$e161615_ - (values _$e161615_) - (let ((_pre161618_ - (let ((__obj167233 + (lambda (_ctx162772_) + (let* ((_ht162774_ (gx#current-expander-module-registry)) + (_$e162776_ (table-ref _ht162774_ _ctx162772_ '#f))) + (if _$e162776_ + (values _$e162776_) + (let ((_pre162779_ + (let ((__obj168394 (##structure gx#prelude-context::t '#f @@ -727,51 +728,51 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj167233 _ctx161611_) - __obj167233))) - (table-set! _ht161613_ _ctx161611_ _pre161618_) - _pre161618_))))) + (gx#prelude-context:::init! __obj168394 _ctx162772_) + __obj168394))) + (table-set! _ht162774_ _ctx162772_ _pre162779_) + _pre162779_))))) (define gx#core-import-module__% - (lambda (_rpath161492_ _reload?161493_) - (letrec ((_import-source161495_ - (lambda (_path161580_) - (if (member _path161580_ (gx#current-expander-path)) - (error '"Cyclic expansion" _path161580_) + (lambda (_rpath162653_ _reload?162654_) + (letrec ((_import-source162656_ + (lambda (_path162741_) + (if (member _path162741_ (gx#current-expander-path)) + (error '"Cyclic expansion" _path162741_) '#!void) (call-with-parameters (lambda () - (let ((_g167243_ (gx#core-read-module _path161580_))) + (let ((_g168404_ (gx#core-read-module _path162741_))) (begin - (let ((_g167244_ - (if (##values? _g167243_) - (##vector-length _g167243_) + (let ((_g168405_ + (if (##values? _g168404_) + (##vector-length _g168404_) 1))) - (if (not (##fx= _g167244_ 4)) - (error "Context expects 4 values" _g167244_))) - (let ((_pre161583_ (##vector-ref _g167243_ 0)) - (_id161584_ (##vector-ref _g167243_ 1)) - (_ns161585_ (##vector-ref _g167243_ 2)) - (_body161586_ (##vector-ref _g167243_ 3))) - (let* ((_prelude161591_ + (if (not (##fx= _g168405_ 4)) + (error "Context expects 4 values" _g168405_))) + (let ((_pre162744_ (##vector-ref _g168404_ 0)) + (_id162745_ (##vector-ref _g168404_ 1)) + (_ns162746_ (##vector-ref _g168404_ 2)) + (_body162747_ (##vector-ref _g168404_ 3))) + (let* ((_prelude162752_ (if (##structure-instance-of? - _pre161583_ + _pre162744_ 'gx#prelude-context::t) - _pre161583_ + _pre162744_ (if (##structure-instance-of? - _pre161583_ + _pre162744_ 'gx#module-context::t) (gx#core-module->prelude-context - _pre161583_) - (if (string? _pre161583_) + _pre162744_) + (if (string? _pre162744_) (gx#core-module->prelude-context (gx#core-import-module__0 - _pre161583_)) - (if (not _pre161583_) - (let ((_$e161588_ + _pre162744_)) + (if (not _pre162744_) + (let ((_$e162749_ (gx#current-expander-module-prelude))) - (if _$e161588_ - _$e161588_ - (let ((__obj167234 + (if _$e162749_ + _$e162749_ + (let ((__obj168395 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -783,14 +784,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init! __obj167234 '#f) - __obj167234))) + (gx#prelude-context:::init! __obj168395 '#f) + __obj168395))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"Cannot import module; unknown prelude" - _rpath161492_ - _pre161583_)))))) - (_ctx161593_ - (let ((__obj167235 + _rpath162653_ + _pre162744_)))))) + (_ctx162754_ + (let ((__obj168396 (##structure gx#module-context::t '#f @@ -805,44 +806,44 @@ '#f '#f))) (gx#module-context:::init! - __obj167235 - _id161584_ - _prelude161591_ - _ns161585_ - _path161580_) - __obj167235)) - (_body161595_ + __obj168396 + _id162745_ + _prelude162752_ + _ns162746_ + _path162741_) + __obj168396)) + (_body162756_ (gx#core-expand-module-begin - _body161586_ - _ctx161593_)) - (_body161597_ + _body162747_ + _ctx162754_)) + (_body162758_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _body161595_) - _path161580_ - _ctx161593_ + (gx#core-cons '%#begin _body162756_) + _path162741_ + _ctx162754_ '()))) (##unchecked-structure-set! - _ctx161593_ + _ctx162754_ (make-promise - (lambda () (gx#eval-syntax* _body161597_))) + (lambda () (gx#eval-syntax* _body162758_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx161593_ - _body161597_ + _ctx162754_ + _body162758_ '11 gx#module-context::t '#f) (table-set! (gx#current-expander-module-registry) - _path161580_ - _ctx161593_) + _path162741_ + _ctx162754_) (table-set! (gx#current-expander-module-registry) - _id161584_ - _ctx161593_) - _ctx161593_))))) + _id162745_ + _ctx162754_) + _ctx162754_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -850,1322 +851,1322 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _path161580_ (gx#current-expander-path)) + (cons _path162741_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_import-submodule161496_ - (lambda (_rpath161508_) - (let* ((_rpath161509161516_ _rpath161508_) - (_E161511161520_ + (_import-submodule162657_ + (lambda (_rpath162669_) + (let* ((_rpath162670162677_ _rpath162669_) + (_E162672162681_ (lambda () (error '"No clause matching" - _rpath161509161516_))) - (_K161512161568_ - (lambda (_refs161523_ _origin161524_) - (let ((_ctx161526_ - (if _origin161524_ + _rpath162670162677_))) + (_K162673162729_ + (lambda (_refs162684_ _origin162685_) + (let ((_ctx162687_ + (if _origin162685_ (gx#core-import-module__% - _origin161524_ - _reload?161493_) + _origin162685_ + _reload?162654_) (gx#current-expander-context)))) - (let _lp161528_ ((_rest161530_ _refs161523_) - (_ctx161531_ _ctx161526_)) - (let* ((_rest161532161540_ _rest161530_) - (_else161534161548_ - (lambda () _ctx161531_)) - (_K161536161556_ - (lambda (_rest161551_ _id161552_) - (let ((_bind161554_ + (let _lp162689_ ((_rest162691_ _refs162684_) + (_ctx162692_ _ctx162687_)) + (let* ((_rest162693162701_ _rest162691_) + (_else162695162709_ + (lambda () _ctx162692_)) + (_K162697162717_ + (lambda (_rest162712_ _id162713_) + (let ((_bind162715_ (gx#resolve-identifier__% - _id161552_ + _id162713_ '0 - _ctx161531_))) + _ctx162692_))) (if (and (##structure-direct-instance-of? - _bind161554_ + _bind162715_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind161554_ + _bind162715_ '4 gx#syntax-binding::t '#f) 'gx#module-context::t)) - (_lp161528_ - _rest161551_ + (_lp162689_ + _rest162712_ (##unchecked-structure-ref - _bind161554_ + _bind162715_ '4 gx#syntax-binding::t '#f)) (error '"Cannot import submodule; not bound as a module" - _rpath161508_ - _id161552_ - _bind161554_)))))) - (if (##pair? _rest161532161540_) - (let ((_hd161537161559_ - (##car _rest161532161540_)) - (_tl161538161561_ - (##cdr _rest161532161540_))) - (let* ((_id161564_ _hd161537161559_) - (_rest161566_ - _tl161538161561_)) - (_K161536161556_ - _rest161566_ - _id161564_))) - (_else161534161548_)))))))) - (if (##pair? _rpath161509161516_) - (let ((_hd161513161571_ (##car _rpath161509161516_)) - (_tl161514161573_ (##cdr _rpath161509161516_))) - (let* ((_origin161576_ _hd161513161571_) - (_refs161578_ _tl161514161573_)) - (_K161512161568_ _refs161578_ _origin161576_))) - (_E161511161520_)))))) - (let ((_$e161498_ - (if (not _reload?161493_) + _rpath162669_ + _id162713_ + _bind162715_)))))) + (if (##pair? _rest162693162701_) + (let ((_hd162698162720_ + (##car _rest162693162701_)) + (_tl162699162722_ + (##cdr _rest162693162701_))) + (let* ((_id162725_ _hd162698162720_) + (_rest162727_ + _tl162699162722_)) + (_K162697162717_ + _rest162727_ + _id162725_))) + (_else162695162709_)))))))) + (if (##pair? _rpath162670162677_) + (let ((_hd162674162732_ (##car _rpath162670162677_)) + (_tl162675162734_ (##cdr _rpath162670162677_))) + (let* ((_origin162737_ _hd162674162732_) + (_refs162739_ _tl162675162734_)) + (_K162673162729_ _refs162739_ _origin162737_))) + (_E162672162681_)))))) + (let ((_$e162659_ + (if (not _reload?162654_) (table-ref (gx#current-expander-module-registry) - _rpath161492_ + _rpath162653_ '#f) '#f))) - (if _$e161498_ - (values _$e161498_) - (if (list? _rpath161492_) - (_import-submodule161496_ _rpath161492_) - (if (gx#core-library-module-path? _rpath161492_) - (let ((_ctx161501_ + (if _$e162659_ + (values _$e162659_) + (if (list? _rpath162653_) + (_import-submodule162657_ _rpath162653_) + (if (gx#core-library-module-path? _rpath162653_) + (let ((_ctx162662_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _rpath161492_) - _reload?161493_))) + _rpath162653_) + _reload?162654_))) (table-set! (gx#current-expander-module-registry) - _rpath161492_ - _ctx161501_) - _ctx161501_) - (let* ((_npath161503_ (path-normalize _rpath161492_)) - (_$e161505_ - (if (not _reload?161493_) + _rpath162653_ + _ctx162662_) + _ctx162662_) + (let* ((_npath162664_ (path-normalize _rpath162653_)) + (_$e162666_ + (if (not _reload?162654_) (table-ref (gx#current-expander-module-registry) - _npath161503_ + _npath162664_ '#f) '#f))) - (if _$e161505_ - (values _$e161505_) - (_import-source161495_ _npath161503_)))))))))) + (if _$e162666_ + (values _$e162666_) + (_import-source162656_ _npath162664_)))))))))) (define gx#core-import-module__0 - (lambda (_rpath161604_) - (let ((_reload?161606_ '#f)) - (gx#core-import-module__% _rpath161604_ _reload?161606_)))) + (lambda (_rpath162765_) + (let ((_reload?162767_ '#f)) + (gx#core-import-module__% _rpath162765_ _reload?162767_)))) (define gx#core-import-module - (lambda _g167246_ - (let ((_g167245_ (##length _g167246_))) - (cond ((##fx= _g167245_ 1) - (apply (lambda (_rpath161604_) - (gx#core-import-module__0 _rpath161604_)) - _g167246_)) - ((##fx= _g167245_ 2) - (apply (lambda (_rpath161608_ _reload?161609_) + (lambda _g168407_ + (let ((_g168406_ (##length _g168407_))) + (cond ((##fx= _g168406_ 1) + (apply (lambda (_rpath162765_) + (gx#core-import-module__0 _rpath162765_)) + _g168407_)) + ((##fx= _g168406_ 2) + (apply (lambda (_rpath162769_ _reload?162770_) (gx#core-import-module__% - _rpath161608_ - _reload?161609_)) - _g167246_)) + _rpath162769_ + _reload?162770_)) + _g168407_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g167246_)))))) + _g168407_)))))) (define gx#core-read-module - (lambda (_path161481_) + (lambda (_path162642_) (with-catch - (lambda (_exn161483_) - (if (and (datum-parsing-exception? _exn161483_) - (eq? (datum-parsing-exception-filepos _exn161483_) '0)) - (gx#core-read-module/lang _path161481_) + (lambda (_exn162644_) + (if (and (datum-parsing-exception? _exn162644_) + (eq? (datum-parsing-exception-filepos _exn162644_) '0)) + (gx#core-read-module/lang _path162642_) (gx#raise-syntax-error 'read-module '"error reading module" - _path161481_ + _path162642_ (call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_g161485161487_) - (display-exception _exn161483_ _g161485161487_)))) + (lambda (_g162646162648_) + (display-exception _exn162644_ _g162646162648_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _path161481_))))) + (lambda () (gx#core-read-module/sexp _path162642_))))) (define gx#core-read-module/sexp - (lambda (_path161344_) - (let _lp161346_ ((_body161348_ (read-syntax-from-file _path161344_)) - (_pre161349_ '#f) - (_ns161350_ '#f) - (_pkg161351_ '#f)) - (let* ((_e161352161376_ _body161348_) - (_E161368161398_ + (lambda (_path162505_) + (let _lp162507_ ((_body162509_ (read-syntax-from-file _path162505_)) + (_pre162510_ '#f) + (_ns162511_ '#f) + (_pkg162512_ '#f)) + (let* ((_e162513162537_ _body162509_) + (_E162529162559_ (lambda () - (let ((_g167247_ - (if _pkg161351_ - (values _pre161349_ _ns161350_ _pkg161351_) + (let ((_g168408_ + (if _pkg162512_ + (values _pre162510_ _ns162511_ _pkg162512_) (gx#core-read-module-package - _path161344_ - _pre161349_ - _ns161350_)))) + _path162505_ + _pre162510_ + _ns162511_)))) (begin - (let ((_g167248_ - (if (##values? _g167247_) - (##vector-length _g167247_) + (let ((_g168409_ + (if (##values? _g168408_) + (##vector-length _g168408_) 1))) - (if (not (##fx= _g167248_ 3)) - (error "Context expects 3 values" _g167248_))) - (let ((_pre161380_ (##vector-ref _g167247_ 0)) - (_ns161381_ (##vector-ref _g167247_ 1)) - (_pkg161382_ (##vector-ref _g167247_ 2))) - (let* ((_prelude161384_ + (if (not (##fx= _g168409_ 3)) + (error "Context expects 3 values" _g168409_))) + (let ((_pre162541_ (##vector-ref _g168408_ 0)) + (_ns162542_ (##vector-ref _g168408_ 1)) + (_pkg162543_ (##vector-ref _g168408_ 2))) + (let* ((_prelude162545_ (if (gx#core-bound-module-prelude? - _pre161380_) - (gx#syntax-local-e__0 _pre161380_) + _pre162541_) + (gx#syntax-local-e__0 _pre162541_) (if (gx#core-library-module-path? - _pre161380_) + _pre162541_) (gx#core-resolve-library-module-path - _pre161380_) - (if (gx#stx-string? _pre161380_) + _pre162541_) + (if (gx#stx-string? _pre162541_) (gx#core-resolve-module-path__% - _pre161380_ - _path161344_) - (gx#stx-e _pre161380_))))) - (_path-id161386_ + _pre162541_ + _path162505_) + (gx#stx-e _pre162541_))))) + (_path-id162547_ (gx#core-module-path->namespace - _path161344_)) - (_pkg-id161388_ - (if _pkg161382_ + _path162505_)) + (_pkg-id162549_ + (if _pkg162543_ (string-append - _pkg161382_ + _pkg162543_ '"/" - _path-id161386_) - _path-id161386_)) - (_module-id161390_ - (string->symbol _pkg-id161388_)) - (_module-ns161395_ - (if (eq? _ns161381_ '#!void) + _path-id162547_) + _path-id162547_)) + (_module-id162551_ + (string->symbol _pkg-id162549_)) + (_module-ns162556_ + (if (eq? _ns162542_ '#!void) '#f - (let ((_$e161392_ _ns161381_)) - (if _$e161392_ - _$e161392_ - _pkg-id161388_))))) - (values _prelude161384_ - _module-id161390_ - _module-ns161395_ - _body161348_))))))) - (_E161361161427_ + (let ((_$e162553_ _ns162542_)) + (if _$e162553_ + _$e162553_ + _pkg-id162549_))))) + (values _prelude162545_ + _module-id162551_ + _module-ns162556_ + _body162509_))))))) + (_E162522162588_ (lambda () - (if (gx#stx-pair? _e161352161376_) - (let ((_e161369161402_ (gx#syntax-e _e161352161376_))) - (let ((_hd161370161405_ (##car _e161369161402_)) - (_tl161371161407_ (##cdr _e161369161402_))) - (if (eq? (gx#stx-e _hd161370161405_) 'package:) - (if (gx#stx-pair? _tl161371161407_) - (let ((_e161372161410_ - (gx#syntax-e _tl161371161407_))) - (let ((_hd161373161413_ - (##car _e161372161410_)) - (_tl161374161415_ - (##cdr _e161372161410_))) - (let* ((_pkg161418_ _hd161373161413_) - (_rest161420_ _tl161374161415_)) + (if (gx#stx-pair? _e162513162537_) + (let ((_e162530162563_ (gx#syntax-e _e162513162537_))) + (let ((_hd162531162566_ (##car _e162530162563_)) + (_tl162532162568_ (##cdr _e162530162563_))) + (if (eq? (gx#stx-e _hd162531162566_) 'package:) + (if (gx#stx-pair? _tl162532162568_) + (let ((_e162533162571_ + (gx#syntax-e _tl162532162568_))) + (let ((_hd162534162574_ + (##car _e162533162571_)) + (_tl162535162576_ + (##cdr _e162533162571_))) + (let* ((_pkg162579_ _hd162534162574_) + (_rest162581_ _tl162535162576_)) (if '#t - (let ((_pkg161425_ + (let ((_pkg162586_ (if (gx#identifier? - _pkg161418_) + _pkg162579_) (symbol->string (gx#stx-e - _pkg161418_)) + _pkg162579_)) (if (or (gx#stx-string? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pkg161418_) - (gx#stx-false? _pkg161418_)) - (gx#stx-e _pkg161418_) + _pkg162579_) + (gx#stx-false? _pkg162579_)) + (gx#stx-e _pkg162579_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _pkg161418_))))) + _pkg162579_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp161346_ - _rest161420_ - _pre161349_ - _ns161350_ - _pkg161425_)) - (_E161368161398_))))) - (_E161368161398_)) - (_E161368161398_)))) - (_E161368161398_)))) - (_E161354161453_ + (_lp162507_ + _rest162581_ + _pre162510_ + _ns162511_ + _pkg162586_)) + (_E162529162559_))))) + (_E162529162559_)) + (_E162529162559_)))) + (_E162529162559_)))) + (_E162515162614_ (lambda () - (if (gx#stx-pair? _e161352161376_) - (let ((_e161362161431_ (gx#syntax-e _e161352161376_))) - (let ((_hd161363161434_ (##car _e161362161431_)) - (_tl161364161436_ (##cdr _e161362161431_))) - (if (eq? (gx#stx-e _hd161363161434_) 'namespace:) - (if (gx#stx-pair? _tl161364161436_) - (let ((_e161365161439_ - (gx#syntax-e _tl161364161436_))) - (let ((_hd161366161442_ - (##car _e161365161439_)) - (_tl161367161444_ - (##cdr _e161365161439_))) - (let* ((_ns161447_ _hd161366161442_) - (_rest161449_ _tl161367161444_)) + (if (gx#stx-pair? _e162513162537_) + (let ((_e162523162592_ (gx#syntax-e _e162513162537_))) + (let ((_hd162524162595_ (##car _e162523162592_)) + (_tl162525162597_ (##cdr _e162523162592_))) + (if (eq? (gx#stx-e _hd162524162595_) 'namespace:) + (if (gx#stx-pair? _tl162525162597_) + (let ((_e162526162600_ + (gx#syntax-e _tl162525162597_))) + (let ((_hd162527162603_ + (##car _e162526162600_)) + (_tl162528162605_ + (##cdr _e162526162600_))) + (let* ((_ns162608_ _hd162527162603_) + (_rest162610_ _tl162528162605_)) (if '#t - (let ((_ns161451_ + (let ((_ns162612_ (if (gx#identifier? - _ns161447_) + _ns162608_) (symbol->string (gx#stx-e - _ns161447_)) + _ns162608_)) (if (gx#stx-string? - _ns161447_) + _ns162608_) (gx#stx-e - _ns161447_) + _ns162608_) (if (gx#stx-false? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _ns161447_) + _ns162608_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _ns161447_)))))) + _ns162608_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp161346_ - _rest161449_ - _pre161349_ - _ns161451_ - _pkg161351_)) - (_E161361161427_))))) - (_E161361161427_)) - (_E161361161427_)))) - (_E161361161427_)))) - (_E161353161477_ + (_lp162507_ + _rest162610_ + _pre162510_ + _ns162612_ + _pkg162512_)) + (_E162522162588_))))) + (_E162522162588_)) + (_E162522162588_)))) + (_E162522162588_)))) + (_E162514162638_ (lambda () - (if (gx#stx-pair? _e161352161376_) - (let ((_e161355161457_ (gx#syntax-e _e161352161376_))) - (let ((_hd161356161460_ (##car _e161355161457_)) - (_tl161357161462_ (##cdr _e161355161457_))) - (if (eq? (gx#stx-e _hd161356161460_) 'prelude:) - (if (gx#stx-pair? _tl161357161462_) - (let ((_e161358161465_ - (gx#syntax-e _tl161357161462_))) - (let ((_hd161359161468_ - (##car _e161358161465_)) - (_tl161360161470_ - (##cdr _e161358161465_))) - (let* ((_prelude161473_ - _hd161359161468_) - (_rest161475_ _tl161360161470_)) + (if (gx#stx-pair? _e162513162537_) + (let ((_e162516162618_ (gx#syntax-e _e162513162537_))) + (let ((_hd162517162621_ (##car _e162516162618_)) + (_tl162518162623_ (##cdr _e162516162618_))) + (if (eq? (gx#stx-e _hd162517162621_) 'prelude:) + (if (gx#stx-pair? _tl162518162623_) + (let ((_e162519162626_ + (gx#syntax-e _tl162518162623_))) + (let ((_hd162520162629_ + (##car _e162519162626_)) + (_tl162521162631_ + (##cdr _e162519162626_))) + (let* ((_prelude162634_ + _hd162520162629_) + (_rest162636_ _tl162521162631_)) (if '#t - (_lp161346_ - _rest161475_ - _prelude161473_ - _ns161350_ - _pkg161351_) - (_E161354161453_))))) - (_E161354161453_)) - (_E161354161453_)))) - (_E161354161453_))))) - (_E161353161477_))))) + (_lp162507_ + _rest162636_ + _prelude162634_ + _ns162511_ + _pkg162512_) + (_E162515162614_))))) + (_E162515162614_)) + (_E162515162614_)))) + (_E162515162614_))))) + (_E162514162638_))))) (define gx#core-read-module/lang - (lambda (_path161171_) - (letrec ((_default-read-module-body161173_ - (lambda (_inp161336_) - (let _lp161338_ ((_body161340_ '())) - (let ((_next161342_ (read-syntax _inp161336_))) - (if (eof-object? _next161342_) - (reverse _body161340_) - (_lp161338_ (cons _next161342_ _body161340_))))))) - (_read-body161174_ - (lambda (_inp161255_ - _pre161256_ - _ns161257_ - _pkg161258_ - _args161259_) - (let ((_g167249_ - (if _pkg161258_ - (values _pre161256_ _ns161257_ _pkg161258_) + (lambda (_path162332_) + (letrec ((_default-read-module-body162334_ + (lambda (_inp162497_) + (let _lp162499_ ((_body162501_ '())) + (let ((_next162503_ (read-syntax _inp162497_))) + (if (eof-object? _next162503_) + (reverse _body162501_) + (_lp162499_ (cons _next162503_ _body162501_))))))) + (_read-body162335_ + (lambda (_inp162416_ + _pre162417_ + _ns162418_ + _pkg162419_ + _args162420_) + (let ((_g168410_ + (if _pkg162419_ + (values _pre162417_ _ns162418_ _pkg162419_) (gx#core-read-module-package - _path161171_ - _pre161256_ - _ns161257_)))) + _path162332_ + _pre162417_ + _ns162418_)))) (begin - (let ((_g167250_ - (if (##values? _g167249_) - (##vector-length _g167249_) + (let ((_g168411_ + (if (##values? _g168410_) + (##vector-length _g168410_) 1))) - (if (not (##fx= _g167250_ 3)) - (error "Context expects 3 values" _g167250_))) - (let ((_pre161261_ (##vector-ref _g167249_ 0)) - (_ns161262_ (##vector-ref _g167249_ 1)) - (_pkg161263_ (##vector-ref _g167249_ 2))) - (let* ((_prelude161265_ - (gx#import-module__0 _pre161261_)) - (_read-module-body161319_ - (let ((_$e161311_ - (find (lambda (_e161266161268_) - (let* ((_g161270161280_ - _e161266161268_) - (_else161272161288_ + (if (not (##fx= _g168411_ 3)) + (error "Context expects 3 values" _g168411_))) + (let ((_pre162422_ (##vector-ref _g168410_ 0)) + (_ns162423_ (##vector-ref _g168410_ 1)) + (_pkg162424_ (##vector-ref _g168410_ 2))) + (let* ((_prelude162426_ + (gx#import-module__0 _pre162422_)) + (_read-module-body162480_ + (let ((_$e162472_ + (find (lambda (_e162427162429_) + (let* ((_g162431162441_ + _e162427162429_) + (_else162433162449_ (lambda () '#f)) - (_K161274161292_ + (_K162435162453_ (lambda () '#t))) (if (##structure-direct-instance-of? - _g161270161280_ + _g162431162441_ 'gx#module-export::t) - (let* ((_e161275161295_ + (let* ((_e162436162456_ (##unchecked-structure-ref - _g161270161280_ + _g162431162441_ '1 gx#module-export::t '#f)) - (_e161276161298_ + (_e162437162459_ (##unchecked-structure-ref - _g161270161280_ + _g162431162441_ '2 gx#module-export::t '#f)) - (_e161277161301_ + (_e162438162462_ (##unchecked-structure-ref - _g161270161280_ + _g162431162441_ '3 gx#module-export::t '#f))) - (if (##eq? _e161277161301_ + (if (##eq? _e162438162462_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1) - (let ((_e161278161304_ + (let ((_e162439162465_ (##unchecked-structure-ref - _g161270161280_ + _g162431162441_ '4 gx#module-export::t '#f))) - (if ((lambda (_g161306161308_) - (eq? _g161306161308_ 'read-module-body)) - _e161278161304_) - (_K161274161292_) - (_else161272161288_))) - (_else161272161288_))) - (_else161272161288_)))) + (if ((lambda (_g162467162469_) + (eq? _g162467162469_ 'read-module-body)) + _e162439162465_) + (_K162435162453_) + (_else162433162449_))) + (_else162433162449_))) + (_else162433162449_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _prelude161265_ + _prelude162426_ '9 gx#module-context::t '#f)))) - (if _$e161311_ - ((lambda (_xport161314_) - (let ((_proc161317_ + (if _$e162472_ + ((lambda (_xport162475_) + (let ((_proc162478_ (with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _xport161314_) + _xport162475_) '1 gx#binding::t '#f)))))) - (if (procedure? _proc161317_) - _proc161317_ + (if (procedure? _proc162478_) + _proc162478_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _path161171_ - _pre161261_ - _proc161317_)))) - _$e161311_) - _default-read-module-body161173_))) - (_path-id161321_ + _path162332_ + _pre162422_ + _proc162478_)))) + _$e162472_) + _default-read-module-body162334_))) + (_path-id162482_ (gx#core-module-path->namespace - _path161171_)) - (_pkg-id161323_ - (if _pkg161263_ + _path162332_)) + (_pkg-id162484_ + (if _pkg162424_ (string-append - _pkg161263_ + _pkg162424_ '"/" - _path-id161321_) - _path-id161321_)) - (_module-id161325_ - (string->symbol _pkg-id161323_)) - (_module-ns161330_ - (let ((_$e161327_ _ns161262_)) - (if _$e161327_ _$e161327_ _pkg-id161323_))) - (_body161333_ + _path-id162482_) + _path-id162482_)) + (_module-id162486_ + (string->symbol _pkg-id162484_)) + (_module-ns162491_ + (let ((_$e162488_ _ns162423_)) + (if _$e162488_ _$e162488_ _pkg-id162484_))) + (_body162494_ (call-with-parameters (lambda () - (_read-module-body161319_ _inp161255_)) + (_read-module-body162480_ _inp162416_)) gx#current-module-reader-path - _path161171_ + _path162332_ gx#current-module-reader-args - _args161259_))) - (values _prelude161265_ - _module-id161325_ - _module-ns161330_ - _body161333_))))))) - (_string-e161175_ - (lambda (_obj161252_ _what161253_) - (if (string? _obj161252_) - _obj161252_ - (if (symbol? _obj161252_) - (symbol->string _obj161252_) + _args162420_))) + (values _prelude162426_ + _module-id162486_ + _module-ns162491_ + _body162494_))))))) + (_string-e162336_ + (lambda (_obj162413_ _what162414_) + (if (string? _obj162413_) + _obj162413_ + (if (symbol? _obj162413_) + (symbol->string _obj162413_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _what161253_) - _path161171_ - _obj161252_))))) - (_read-lang-args161176_ - (lambda (_inp161207_ _args161208_) - (let* ((_args161209161217_ _args161208_) - (_else161211161225_ + (string-append '"Illegal module " _what162414_) + _path162332_ + _obj162413_))))) + (_read-lang-args162337_ + (lambda (_inp162368_ _args162369_) + (let* ((_args162370162378_ _args162369_) + (_else162372162386_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _path161171_))) - (_K161213161240_ - (lambda (_args161228_ _prelude161229_) - (let* ((_pkg161231_ - (pgetq 'package: _args161228_)) - (_pkg161233_ - (if _pkg161231_ - (_string-e161175_ - _pkg161231_ + _path162332_))) + (_K162374162401_ + (lambda (_args162389_ _prelude162390_) + (let* ((_pkg162392_ + (pgetq 'package: _args162389_)) + (_pkg162394_ + (if _pkg162392_ + (_string-e162336_ + _pkg162392_ '"package") '#f)) - (_ns161235_ - (pgetq 'namespace: _args161228_)) - (_ns161237_ - (if _ns161235_ - (_string-e161175_ - _ns161235_ + (_ns162396_ + (pgetq 'namespace: _args162389_)) + (_ns162398_ + (if _ns162396_ + (_string-e162336_ + _ns162396_ '"namespace") '#f))) - (_read-body161174_ - _inp161207_ - _prelude161229_ - _ns161237_ - _pkg161233_ - _args161228_))))) - (if (##pair? _args161209161217_) - (let ((_hd161214161243_ (##car _args161209161217_)) - (_tl161215161245_ (##cdr _args161209161217_))) - (let* ((_prelude161248_ _hd161214161243_) - (_args161250_ _tl161215161245_)) - (_K161213161240_ _args161250_ _prelude161248_))) - (_else161211161225_))))) - (_read-lang161177_ - (lambda (_inp161182_) - (let* ((_head161184_ (read-line _inp161182_)) - (_$e161186_ (string-index _head161184_ '#\space))) - (if _$e161186_ - ((lambda (_ix161189_) - (let ((_lang161191_ - (substring _head161184_ '0 _ix161189_))) - (if (equal? _lang161191_ '"#lang") - (let* ((_rest161193_ + (_read-body162335_ + _inp162368_ + _prelude162390_ + _ns162398_ + _pkg162394_ + _args162389_))))) + (if (##pair? _args162370162378_) + (let ((_hd162375162404_ (##car _args162370162378_)) + (_tl162376162406_ (##cdr _args162370162378_))) + (let* ((_prelude162409_ _hd162375162404_) + (_args162411_ _tl162376162406_)) + (_K162374162401_ _args162411_ _prelude162409_))) + (_else162372162386_))))) + (_read-lang162338_ + (lambda (_inp162343_) + (let* ((_head162345_ (read-line _inp162343_)) + (_$e162347_ (string-index _head162345_ '#\space))) + (if _$e162347_ + ((lambda (_ix162350_) + (let ((_lang162352_ + (substring _head162345_ '0 _ix162350_))) + (if (equal? _lang162352_ '"#lang") + (let* ((_rest162354_ (substring - _head161184_ - (fx+ _ix161189_ '1) - (string-length _head161184_))) - (_args161204_ + _head162345_ + (fx+ _ix162350_ '1) + (string-length _head162345_))) + (_args162365_ (with-catch - (lambda (_g161194161196_) + (lambda (_g162355162357_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _path161171_ - _g161194161196_)) + _path162332_ + _g162355162357_)) (lambda () (call-with-input-string - _rest161193_ - (lambda (_g161199161201_) + _rest162354_ + (lambda (_g162360162362_) (read-all - _g161199161201_ + _g162360162362_ read))))))) - (_read-lang-args161176_ - _inp161182_ - _args161204_)) + (_read-lang-args162337_ + _inp162343_ + _args162365_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path161171_)))) - _$e161186_) + _path162332_)))) + _$e162347_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path161171_))))) - (_read-e161178_ - (lambda (_inp161180_) - (if (eq? (peek-char _inp161180_) '#\#) - (_read-lang161177_ _inp161180_) + _path162332_))))) + (_read-e162339_ + (lambda (_inp162341_) + (if (eq? (peek-char _inp162341_) '#\#) + (_read-lang162338_ _inp162341_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _path161171_))))) - (gx#call-with-input-source-file _path161171_ _read-e161178_)))) + _path162332_))))) + (gx#call-with-input-source-file _path162332_ _read-e162339_)))) (define gx#core-read-module-package - (lambda (_path161125_ _pre161126_ _ns161127_) - (letrec ((_string-e161129_ - (lambda (_e161169_) - (if (symbol? _e161169_) - (symbol->string _e161169_) - (if (string? _e161169_) - _e161169_ + (lambda (_path162286_ _pre162287_ _ns162288_) + (letrec ((_string-e162290_ + (lambda (_e162330_) + (if (symbol? _e162330_) + (symbol->string _e162330_) + (if (string? _e162330_) + _e162330_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _e161169_)))))) - (let _lp161131_ ((_dir161133_ (path-directory _path161125_)) - (_pkg-path161134_ '())) - (let ((_gerbil.pkg161136_ (path-expand '"gerbil.pkg" _dir161133_))) - (if (file-exists? _gerbil.pkg161136_) - (let ((_plist161138_ - (gx#core-library-package-plist__% _dir161133_ '#t))) - (if (null? _plist161138_) - (let ((_pkg161140_ - (if (not (null? _pkg-path161134_)) - (string-join _pkg-path161134_ '"/") + _e162330_)))))) + (let _lp162292_ ((_dir162294_ (path-directory _path162286_)) + (_pkg-path162295_ '())) + (let ((_gerbil.pkg162297_ (path-expand '"gerbil.pkg" _dir162294_))) + (if (file-exists? _gerbil.pkg162297_) + (let ((_plist162299_ + (gx#core-library-package-plist__% _dir162294_ '#t))) + (if (null? _plist162299_) + (let ((_pkg162301_ + (if (not (null? _pkg-path162295_)) + (string-join _pkg-path162295_ '"/") '#f))) - (values _pre161126_ _ns161127_ _pkg161140_)) - (if (list? _plist161138_) - (let* ((_root161142_ - (pgetq 'package: _plist161138_)) - (_pkg161146_ - (let ((_pkg-path161144_ - (if _root161142_ - (cons (_string-e161129_ - _root161142_) - _pkg-path161134_) - _pkg-path161134_))) - (if (not (null? _pkg-path161144_)) - (string-join _pkg-path161144_ '"/") + (values _pre162287_ _ns162288_ _pkg162301_)) + (if (list? _plist162299_) + (let* ((_root162303_ + (pgetq 'package: _plist162299_)) + (_pkg162307_ + (let ((_pkg-path162305_ + (if _root162303_ + (cons (_string-e162290_ + _root162303_) + _pkg-path162295_) + _pkg-path162295_))) + (if (not (null? _pkg-path162305_)) + (string-join _pkg-path162305_ '"/") '#f))) - (_ns161153_ - (let ((_ns161151_ - (let ((_$e161148_ _ns161127_)) - (if _$e161148_ - _$e161148_ + (_ns162314_ + (let ((_ns162312_ + (let ((_$e162309_ _ns162288_)) + (if _$e162309_ + _$e162309_ (pgetq 'namespace: - _plist161138_))))) - (if _ns161151_ - (_string-e161129_ _ns161151_) + _plist162299_))))) + (if _ns162312_ + (_string-e162290_ _ns162312_) '#f))) - (_pre161158_ - (let ((_$e161155_ _pre161126_)) - (if _$e161155_ - _$e161155_ - (pgetq 'prelude: _plist161138_))))) - (values _pre161158_ _ns161153_ _pkg161146_)) + (_pre162319_ + (let ((_$e162316_ _pre162287_)) + (if _$e162316_ + _$e162316_ + (pgetq 'prelude: _plist162299_))))) + (values _pre162319_ _ns162314_ _pkg162307_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _plist161138_)))) - (let ((_dir*161161_ + _plist162299_)))) + (let ((_dir*162322_ (path-strip-trailing-directory-separator - _dir161133_))) - (if (or (string-empty? _dir*161161_) - (equal? _dir161133_ _dir*161161_)) - (values _pre161126_ _ns161127_ '#f) - (let ((_xpath161166_ - (path-strip-directory _dir*161161_)) - (_xdir161167_ (path-directory _dir*161161_))) - (_lp161131_ - _xdir161167_ - (cons _xpath161166_ _pkg-path161134_))))))))))) + _dir162294_))) + (if (or (string-empty? _dir*162322_) + (equal? _dir162294_ _dir*162322_)) + (values _pre162287_ _ns162288_ '#f) + (let ((_xpath162327_ + (path-strip-directory _dir*162322_)) + (_xdir162328_ (path-directory _dir*162322_))) + (_lp162292_ + _xdir162328_ + (cons _xpath162327_ _pkg-path162295_))))))))))) (define gx#core-module-path->namespace - (lambda (_path161123_) - (path-strip-extension (path-strip-directory _path161123_)))) + (lambda (_path162284_) + (path-strip-extension (path-strip-directory _path162284_)))) (define gx#core-module-path->id - (lambda (_path161121_) - (string->symbol (gx#core-module-path->namespace _path161121_)))) + (lambda (_path162282_) + (string->symbol (gx#core-module-path->namespace _path162282_)))) (define gx#core-resolve-module-path__% - (lambda (_stx-path161100_ _rel161101_) - (let* ((_path161103_ (gx#stx-e _stx-path161100_)) - (_path161105_ - (if (string-empty? (path-extension _path161103_)) - (string-append _path161103_ '".ss") - _path161103_))) + (lambda (_stx-path162261_ _rel162262_) + (let* ((_path162264_ (gx#stx-e _stx-path162261_)) + (_path162266_ + (if (string-empty? (path-extension _path162264_)) + (string-append _path162264_ '".ss") + _path162264_))) (gx#core-resolve-path__% - _path161105_ - (let ((_$e161108_ (gx#stx-source _stx-path161100_))) - (if _$e161108_ _$e161108_ _rel161101_)))))) + _path162266_ + (let ((_$e162269_ (gx#stx-source _stx-path162261_))) + (if _$e162269_ _$e162269_ _rel162262_)))))) (define gx#core-resolve-module-path__0 - (lambda (_stx-path161114_) - (let ((_rel161116_ '#f)) - (gx#core-resolve-module-path__% _stx-path161114_ _rel161116_)))) + (lambda (_stx-path162275_) + (let ((_rel162277_ '#f)) + (gx#core-resolve-module-path__% _stx-path162275_ _rel162277_)))) (define gx#core-resolve-module-path - (lambda _g167252_ - (let ((_g167251_ (##length _g167252_))) - (cond ((##fx= _g167251_ 1) - (apply (lambda (_stx-path161114_) - (gx#core-resolve-module-path__0 _stx-path161114_)) - _g167252_)) - ((##fx= _g167251_ 2) - (apply (lambda (_stx-path161118_ _rel161119_) + (lambda _g168413_ + (let ((_g168412_ (##length _g168413_))) + (cond ((##fx= _g168412_ 1) + (apply (lambda (_stx-path162275_) + (gx#core-resolve-module-path__0 _stx-path162275_)) + _g168413_)) + ((##fx= _g168412_ 2) + (apply (lambda (_stx-path162279_ _rel162280_) (gx#core-resolve-module-path__% - _stx-path161118_ - _rel161119_)) - _g167252_)) + _stx-path162279_ + _rel162280_)) + _g168413_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g167252_)))))) + _g168413_)))))) (define gx#core-resolve-library-module-path - (lambda (_libpath160986_) - (let* ((_spath160988_ (symbol->string (gx#stx-e _libpath160986_))) - (_spath160990_ - (substring _spath160988_ '1 (string-length _spath160988_))) - (_ext160992_ (path-extension _spath160990_)) - (_ssi160994_ - (if (string-empty? _ext160992_) - (string-append _spath160990_ '".ssi") + (lambda (_libpath162147_) + (let* ((_spath162149_ (symbol->string (gx#stx-e _libpath162147_))) + (_spath162151_ + (substring _spath162149_ '1 (string-length _spath162149_))) + (_ext162153_ (path-extension _spath162151_)) + (_ssi162155_ + (if (string-empty? _ext162153_) + (string-append _spath162151_ '".ssi") (string-append - (path-strip-extension _spath160990_) + (path-strip-extension _spath162151_) '".ssi"))) - (_srcs160998_ - (if (string-empty? _ext160992_) - (map (lambda (_ext160996_) - (string-append _spath160990_ _ext160996_)) + (_srcs162159_ + (if (string-empty? _ext162153_) + (map (lambda (_ext162157_) + (string-append _spath162151_ _ext162157_)) '(".ss" ".sld" ".scm")) - (cons _spath160990_ '())))) - (let _lp161001_ ((_rest161003_ + (cons _spath162151_ '())))) + (let _lp162162_ ((_rest162164_ (gx#current-expander-module-library-path))) - (let* ((_rest161004161013_ _rest161003_) - (_E161007161017_ + (let* ((_rest162165162174_ _rest162164_) + (_E162168162178_ (lambda () - (error '"No clause matching" _rest161004161013_)))) - (let ((_K161009161087_ - (lambda (_rest161028_ _dir161029_) - (letrec ((_resolve161031_ - (lambda (_ssi161043_ _srcs161044_) - (let ((_compiled-path161046_ + (error '"No clause matching" _rest162165162174_)))) + (let ((_K162170162248_ + (lambda (_rest162189_ _dir162190_) + (letrec ((_resolve162192_ + (lambda (_ssi162204_ _srcs162205_) + (let ((_compiled-path162207_ (path-expand - _ssi161043_ - _dir161029_))) - (if (file-exists? _compiled-path161046_) - (path-normalize _compiled-path161046_) - (let _lpr161048_ ((_rest-src161050_ - _srcs161044_)) - (let* ((_rest-src161051161059_ - _rest-src161050_) - (_else161053161067_ + _ssi162204_ + _dir162190_))) + (if (file-exists? _compiled-path162207_) + (path-normalize _compiled-path162207_) + (let _lpr162209_ ((_rest-src162211_ + _srcs162205_)) + (let* ((_rest-src162212162220_ + _rest-src162211_) + (_else162214162228_ (lambda () - (_lp161001_ - _rest161028_))) - (_K161055161075_ - (lambda (_rest-src161070_ - _src161071_) - (let ((_src-path161073_ + (_lp162162_ + _rest162189_))) + (_K162216162236_ + (lambda (_rest-src162231_ + _src162232_) + (let ((_src-path162234_ (path-expand - _src161071_ - _dir161029_))) + _src162232_ + _dir162190_))) (if (file-exists? - _src-path161073_) + _src-path162234_) (path-normalize - _src-path161073_) - (_lpr161048_ - _rest-src161070_)))))) - (if (##pair? _rest-src161051161059_) - (let ((_hd161056161078_ - (##car _rest-src161051161059_)) - (_tl161057161080_ - (##cdr _rest-src161051161059_))) - (let* ((_src161083_ - _hd161056161078_) - (_rest-src161085_ - _tl161057161080_)) - (_K161055161075_ - _rest-src161085_ - _src161083_))) - (_else161053161067_))))))))) - (let ((_$e161033_ + _src-path162234_) + (_lpr162209_ + _rest-src162231_)))))) + (if (##pair? _rest-src162212162220_) + (let ((_hd162217162239_ + (##car _rest-src162212162220_)) + (_tl162218162241_ + (##cdr _rest-src162212162220_))) + (let* ((_src162244_ + _hd162217162239_) + (_rest-src162246_ + _tl162218162241_)) + (_K162216162236_ + _rest-src162246_ + _src162244_))) + (_else162214162228_))))))))) + (let ((_$e162194_ (gx#core-library-package-path-prefix - _dir161029_))) - (if _$e161033_ - ((lambda (_prefix161036_) + _dir162190_))) + (if _$e162194_ + ((lambda (_prefix162197_) (if (string-prefix? - _prefix161036_ - _spath160990_) - (let ((_ssi161040_ + _prefix162197_ + _spath162151_) + (let ((_ssi162201_ (substring - _ssi160994_ - (string-length _prefix161036_) - (string-length _ssi160994_))) - (_srcs161041_ - (map (lambda (_src161038_) + _ssi162155_ + (string-length _prefix162197_) + (string-length _ssi162155_))) + (_srcs162202_ + (map (lambda (_src162199_) (substring - _src161038_ + _src162199_ (string-length - _prefix161036_) + _prefix162197_) (string-length - _src161038_))) - _srcs160998_))) - (_resolve161031_ - _ssi161040_ - _srcs161041_)) - (_lp161001_ _rest161028_))) - _$e161033_) - (_resolve161031_ _ssi160994_ _srcs160998_)))))) - (_K161008161022_ + _src162199_))) + _srcs162159_))) + (_resolve162192_ + _ssi162201_ + _srcs162202_)) + (_lp162162_ _rest162189_))) + _$e162194_) + (_resolve162192_ _ssi162155_ _srcs162159_)))))) + (_K162169162183_ (lambda () (gx#raise-syntax-error '#f '"Cannot find library module" - _libpath160986_)))) - (let ((_try-match161006161025_ + _libpath162147_)))) + (let ((_try-match162167162186_ (lambda () - (if (##null? _rest161004161013_) - (_K161008161022_) - (_E161007161017_))))) - (if (##pair? _rest161004161013_) - (let ((_tl161011161092_ (##cdr _rest161004161013_)) - (_hd161010161090_ (##car _rest161004161013_))) - (let ((_dir161095_ _hd161010161090_) - (_rest161097_ _tl161011161092_)) - (_K161009161087_ _rest161097_ _dir161095_))) - (_try-match161006161025_))))))))) + (if (##null? _rest162165162174_) + (_K162169162183_) + (_E162168162178_))))) + (if (##pair? _rest162165162174_) + (let ((_tl162172162253_ (##cdr _rest162165162174_)) + (_hd162171162251_ (##car _rest162165162174_))) + (let ((_dir162256_ _hd162171162251_) + (_rest162258_ _tl162172162253_)) + (_K162170162248_ _rest162258_ _dir162256_))) + (_try-match162167162186_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_modpath160959_) - (letrec ((_resolve160961_ - (lambda (_path160978_ _base160979_) - (let ((_$e160981_ (string-rindex _base160979_ '#\/))) - (if _$e160981_ - ((lambda (_idx160984_) + (lambda (_modpath162120_) + (letrec ((_resolve162122_ + (lambda (_path162139_ _base162140_) + (let ((_$e162142_ (string-rindex _base162140_ '#\/))) + (if _$e162142_ + ((lambda (_idx162145_) (gx#core-resolve-library-module-path (string->symbol (string-append '":" - (substring _base160979_ '0 _idx160984_) + (substring _base162140_ '0 _idx162145_) '"/" - _path160978_)))) - _$e160981_) + _path162139_)))) + _$e162142_) (gx#core-resolve-library-module-path (string->symbol - (string-append '":" _path160978_)))))))) - (let ((_spath160963_ (symbol->string (gx#stx-e _modpath160959_))) - (_mod160964_ + (string-append '":" _path162139_)))))))) + (let ((_spath162124_ (symbol->string (gx#stx-e _modpath162120_))) + (_mod162125_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _mod160964_ + (if _mod162125_ '#!void (gx#raise-syntax-error '#f '"Cannot resolve relative module path; not in module context" - _modpath160959_)) - (let ((_mpath160966_ + _modpath162120_)) + (let ((_mpath162127_ (symbol->string (##structure-ref - _mod160964_ + _mod162125_ '1 gx#expander-context::t '#f)))) - (let _lp160968_ ((_spath160970_ _spath160963_) - (_mpath160971_ _mpath160966_)) - (if (string-prefix? '"../" _spath160970_) - (let ((_$e160973_ (string-rindex _mpath160971_ '#\/))) - (if _$e160973_ - ((lambda (_idx160976_) - (_lp160968_ + (let _lp162129_ ((_spath162131_ _spath162124_) + (_mpath162132_ _mpath162127_)) + (if (string-prefix? '"../" _spath162131_) + (let ((_$e162134_ (string-rindex _mpath162132_ '#\/))) + (if _$e162134_ + ((lambda (_idx162137_) + (_lp162129_ (substring - _spath160970_ + _spath162131_ '3 - (string-length _spath160970_)) - (substring _mpath160971_ '0 _idx160976_))) - _$e160973_) + (string-length _spath162131_)) + (substring _mpath162132_ '0 _idx162137_))) + _$e162134_) (gx#raise-syntax-error '#f '"Cannot resolve relative module path; illegal traversal" - _modpath160959_))) - (if (string-prefix? '"./" _spath160970_) - (_lp160968_ + _modpath162120_))) + (if (string-prefix? '"./" _spath162131_) + (_lp162129_ (substring - _spath160970_ + _spath162131_ '2 - (string-length _spath160970_)) - _mpath160971_) - (_resolve160961_ _spath160970_ _mpath160971_))))))))) + (string-length _spath162131_)) + _mpath162132_) + (_resolve162122_ _spath162131_ _mpath162132_))))))))) (define gx#core-library-package-path-prefix - (lambda (_dir160952_) - (let ((_$e160954_ + (lambda (_dir162113_) + (let ((_$e162115_ (pgetq 'package: - (gx#core-library-package-plist__0 _dir160952_)))) - (if _$e160954_ - ((lambda (_pkg160957_) - (string-append (symbol->string _pkg160957_) '"/")) - _$e160954_) + (gx#core-library-package-plist__0 _dir162113_)))) + (if _$e162115_ + ((lambda (_pkg162118_) + (string-append (symbol->string _pkg162118_) '"/")) + _$e162115_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_dir160924_ _exists?160925_) - (let* ((_cache160927_ (gx#core-library-package-cache)) - (_$e160929_ (table-ref _cache160927_ _dir160924_ '#f))) - (if _$e160929_ - (values _$e160929_) - (let* ((_gerbil.pkg160932_ - (path-expand '"gerbil.pkg" _dir160924_)) - (_plist160939_ - (if (or _exists?160925_ - (file-exists? _gerbil.pkg160932_)) - (let ((_e160937_ + (lambda (_dir162085_ _exists?162086_) + (let* ((_cache162088_ (gx#core-library-package-cache)) + (_$e162090_ (table-ref _cache162088_ _dir162085_ '#f))) + (if _$e162090_ + (values _$e162090_) + (let* ((_gerbil.pkg162093_ + (path-expand '"gerbil.pkg" _dir162085_)) + (_plist162100_ + (if (or _exists?162086_ + (file-exists? _gerbil.pkg162093_)) + (let ((_e162098_ (gx#call-with-input-source-file - _gerbil.pkg160932_ + _gerbil.pkg162093_ read))) - (if (eof-object? _e160937_) + (if (eof-object? _e162098_) '() - (if (list? _e160937_) - _e160937_ + (if (list? _e162098_) + _e162098_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _gerbil.pkg160932_ - _e160937_)))) + _gerbil.pkg162093_ + _e162098_)))) '()))) - (table-set! _cache160927_ _dir160924_ _plist160939_) - _plist160939_))))) + (table-set! _cache162088_ _dir162085_ _plist162100_) + _plist162100_))))) (define gx#core-library-package-plist__0 - (lambda (_dir160945_) - (let ((_exists?160947_ '#f)) - (gx#core-library-package-plist__% _dir160945_ _exists?160947_)))) + (lambda (_dir162106_) + (let ((_exists?162108_ '#f)) + (gx#core-library-package-plist__% _dir162106_ _exists?162108_)))) (define gx#core-library-package-plist - (lambda _g167254_ - (let ((_g167253_ (##length _g167254_))) - (cond ((##fx= _g167253_ 1) - (apply (lambda (_dir160945_) - (gx#core-library-package-plist__0 _dir160945_)) - _g167254_)) - ((##fx= _g167253_ 2) - (apply (lambda (_dir160949_ _exists?160950_) + (lambda _g168415_ + (let ((_g168414_ (##length _g168415_))) + (cond ((##fx= _g168414_ 1) + (apply (lambda (_dir162106_) + (gx#core-library-package-plist__0 _dir162106_)) + _g168415_)) + ((##fx= _g168414_ 2) + (apply (lambda (_dir162110_ _exists?162111_) (gx#core-library-package-plist__% - _dir160949_ - _exists?160950_)) - _g167254_)) + _dir162110_ + _exists?162111_)) + _g168415_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g167254_)))))) + _g168415_)))))) (define gx#core-library-package-cache (lambda () - (let ((_$e160918_ (gx#current-expander-module-library-package-cache))) - (if _$e160918_ - (values _$e160918_) - (let ((_cache160921_ (make-table))) + (let ((_$e162079_ (gx#current-expander-module-library-package-cache))) + (if _$e162079_ + (values _$e162079_) + (let ((_cache162082_ (make-table))) (gx#current-expander-module-library-package-cache - _cache160921_) - _cache160921_))))) + _cache162082_) + _cache162082_))))) (define gx#core-library-module-path? - (lambda (_stx160915_) (gx#core-special-module-path? _stx160915_ '#\:))) + (lambda (_stx162076_) (gx#core-special-module-path? _stx162076_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_stx160913_) (gx#core-special-module-path? _stx160913_ '#\.))) + (lambda (_stx162074_) (gx#core-special-module-path? _stx162074_ '#\.))) (define gx#core-special-module-path? - (lambda (_stx160908_ _char160909_) - (if (gx#identifier? _stx160908_) - (if (interned-symbol? (gx#stx-e _stx160908_)) - (let ((_str160911_ (symbol->string (gx#stx-e _stx160908_)))) - (if (fx> (string-length _str160911_) '1) - (eq? (string-ref _str160911_ '0) _char160909_) + (lambda (_stx162069_ _char162070_) + (if (gx#identifier? _stx162069_) + (if (interned-symbol? (gx#stx-e _stx162069_)) + (let ((_str162072_ (symbol->string (gx#stx-e _stx162069_)))) + (if (fx> (string-length _str162072_) '1) + (eq? (string-ref _str162072_ '0) _char162070_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_stx160902_) + (lambda (_stx162063_) (gx#core-bound-identifier?__% - _stx160902_ - (lambda (_g160903160905_) - (gx#expander-binding?__% _g160903160905_ gx#prelude-context?))))) + _stx162063_ + (lambda (_g162064162066_) + (gx#expander-binding?__% _g162064162066_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_stx160896_) + (lambda (_stx162057_) (gx#core-bound-identifier?__% - _stx160896_ - (lambda (_g160897160899_) - (gx#expander-binding?__% _g160897160899_ gx#module-context?))))) + _stx162057_ + (lambda (_g162058162060_) + (gx#expander-binding?__% _g162058162060_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_stx160883_) - (letrec ((_module-prelude?160885_ - (lambda (_e160891_) - (let ((_$e160893_ + (lambda (_stx162044_) + (letrec ((_module-prelude?162046_ + (lambda (_e162052_) + (let ((_$e162054_ (##structure-instance-of? - _e160891_ + _e162052_ 'gx#module-context::t))) - (if _$e160893_ - _$e160893_ + (if _$e162054_ + _$e162054_ (##structure-instance-of? - _e160891_ + _e162052_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _stx160883_ - (lambda (_g160886160888_) + _stx162044_ + (lambda (_g162047162049_) (gx#expander-binding?__% - _g160886160888_ - _module-prelude?160885_)))))) + _g162047162049_ + _module-prelude?162046_)))))) (define gx#core-bind-import!__% - (lambda (_in160813_ _ctx160814_ _force-weak?160815_) - (let* ((_in160816160825_ _in160813_) - (_E160818160829_ - (lambda () (error '"No clause matching" _in160816160825_))) - (_K160819160842_ - (lambda (_weak?160832_ _phi160833_ _key160834_ _source160835_) + (lambda (_in161974_ _ctx161975_ _force-weak?161976_) + (let* ((_in161977161986_ _in161974_) + (_E161979161990_ + (lambda () (error '"No clause matching" _in161977161986_))) + (_K161980162003_ + (lambda (_weak?161993_ _phi161994_ _key161995_ _source161996_) (gx#core-bind!__% - _key160834_ - (let ((_e160837_ - (gx#core-resolve-module-export _source160835_))) + _key161995_ + (let ((_e161998_ + (gx#core-resolve-module-export _source161996_))) (##structure gx#import-binding::t (##unchecked-structure-ref - _e160837_ + _e161998_ '1 gx#binding::t '#f) - _key160834_ - _phi160833_ - _e160837_ + _key161995_ + _phi161994_ + _e161998_ (##unchecked-structure-ref - _source160835_ + _source161996_ '1 gx#module-export::t '#f) - (let ((_$e160839_ _force-weak?160815_)) - (if _$e160839_ _$e160839_ _weak?160832_)))) + (let ((_$e162000_ _force-weak?161976_)) + (if _$e162000_ _$e162000_ _weak?161993_)))) gx#core-context-rebind? - _phi160833_ - _ctx160814_)))) + _phi161994_ + _ctx161975_)))) (if (##structure-direct-instance-of? - _in160816160825_ + _in161977161986_ 'gx#module-import::t) - (let* ((_e160820160845_ + (let* ((_e161981162006_ (##unchecked-structure-ref - _in160816160825_ + _in161977161986_ '1 gx#module-import::t '#f)) - (_source160848_ _e160820160845_) - (_e160821160850_ + (_source162009_ _e161981162006_) + (_e161982162011_ (##unchecked-structure-ref - _in160816160825_ + _in161977161986_ '2 gx#module-import::t '#f)) - (_key160853_ _e160821160850_) - (_e160822160855_ + (_key162014_ _e161982162011_) + (_e161983162016_ (##unchecked-structure-ref - _in160816160825_ + _in161977161986_ '3 gx#module-import::t '#f)) - (_phi160858_ _e160822160855_) - (_e160823160860_ + (_phi162019_ _e161983162016_) + (_e161984162021_ (##unchecked-structure-ref - _in160816160825_ + _in161977161986_ '4 gx#module-import::t '#f)) - (_weak?160863_ _e160823160860_)) - (_K160819160842_ - _weak?160863_ - _phi160858_ - _key160853_ - _source160848_)) - (_E160818160829_))))) + (_weak?162024_ _e161984162021_)) + (_K161980162003_ + _weak?162024_ + _phi162019_ + _key162014_ + _source162009_)) + (_E161979161990_))))) (define gx#core-bind-import!__0 - (lambda (_in160868_) - (let* ((_ctx160870_ (gx#current-expander-context)) - (_force-weak?160872_ '#f)) + (lambda (_in162029_) + (let* ((_ctx162031_ (gx#current-expander-context)) + (_force-weak?162033_ '#f)) (gx#core-bind-import!__% - _in160868_ - _ctx160870_ - _force-weak?160872_)))) + _in162029_ + _ctx162031_ + _force-weak?162033_)))) (define gx#core-bind-import!__1 - (lambda (_in160874_ _ctx160875_) - (let ((_force-weak?160877_ '#f)) + (lambda (_in162035_ _ctx162036_) + (let ((_force-weak?162038_ '#f)) (gx#core-bind-import!__% - _in160874_ - _ctx160875_ - _force-weak?160877_)))) + _in162035_ + _ctx162036_ + _force-weak?162038_)))) (define gx#core-bind-import! - (lambda _g167256_ - (let ((_g167255_ (##length _g167256_))) - (cond ((##fx= _g167255_ 1) - (apply (lambda (_in160868_) - (gx#core-bind-import!__0 _in160868_)) - _g167256_)) - ((##fx= _g167255_ 2) - (apply (lambda (_in160874_ _ctx160875_) - (gx#core-bind-import!__1 _in160874_ _ctx160875_)) - _g167256_)) - ((##fx= _g167255_ 3) - (apply (lambda (_in160879_ _ctx160880_ _force-weak?160881_) + (lambda _g168417_ + (let ((_g168416_ (##length _g168417_))) + (cond ((##fx= _g168416_ 1) + (apply (lambda (_in162029_) + (gx#core-bind-import!__0 _in162029_)) + _g168417_)) + ((##fx= _g168416_ 2) + (apply (lambda (_in162035_ _ctx162036_) + (gx#core-bind-import!__1 _in162035_ _ctx162036_)) + _g168417_)) + ((##fx= _g168416_ 3) + (apply (lambda (_in162040_ _ctx162041_ _force-weak?162042_) (gx#core-bind-import!__% - _in160879_ - _ctx160880_ - _force-weak?160881_)) - _g167256_)) + _in162040_ + _ctx162041_ + _force-weak?162042_)) + _g168417_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g167256_)))))) + _g168417_)))))) (define gx#core-bind-weak-import!__% - (lambda (_in160799_ _ctx160800_) - (gx#core-bind-import!__% _in160799_ _ctx160800_ '#t))) + (lambda (_in161960_ _ctx161961_) + (gx#core-bind-import!__% _in161960_ _ctx161961_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_in160805_) - (let ((_ctx160807_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _in160805_ _ctx160807_)))) + (lambda (_in161966_) + (let ((_ctx161968_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _in161966_ _ctx161968_)))) (define gx#core-bind-weak-import! - (lambda _g167258_ - (let ((_g167257_ (##length _g167258_))) - (cond ((##fx= _g167257_ 1) - (apply (lambda (_in160805_) - (gx#core-bind-weak-import!__0 _in160805_)) - _g167258_)) - ((##fx= _g167257_ 2) - (apply (lambda (_in160809_ _ctx160810_) + (lambda _g168419_ + (let ((_g168418_ (##length _g168419_))) + (cond ((##fx= _g168418_ 1) + (apply (lambda (_in161966_) + (gx#core-bind-weak-import!__0 _in161966_)) + _g168419_)) + ((##fx= _g168418_ 2) + (apply (lambda (_in161970_ _ctx161971_) (gx#core-bind-weak-import!__% - _in160809_ - _ctx160810_)) - _g167258_)) + _in161970_ + _ctx161971_)) + _g168419_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g167258_)))))) + _g168419_)))))) (define gx#core-resolve-module-export - (lambda (_out160690_) - (letrec ((_subst160692_ - (lambda (_key160738_) - (let* ((_key160739160747_ _key160738_) - (_else160741160755_ (lambda () _key160738_)) - (_K160743160786_ - (lambda (_mark160758_ _id160759_) - (let* ((_mark160760160766_ _mark160758_) - (_E160762160770_ + (lambda (_out161851_) + (letrec ((_subst161853_ + (lambda (_key161899_) + (let* ((_key161900161908_ _key161899_) + (_else161902161916_ (lambda () _key161899_)) + (_K161904161947_ + (lambda (_mark161919_ _id161920_) + (let* ((_mark161921161927_ _mark161919_) + (_E161923161931_ (lambda () (error '"No clause matching" - _mark160760160766_))) - (_K160763160778_ - (lambda (_subst160773_) - (let ((_$e160775_ - (if _subst160773_ + _mark161921161927_))) + (_K161924161939_ + (lambda (_subst161934_) + (let ((_$e161936_ + (if _subst161934_ (table-ref - _subst160773_ - _id160759_ + _subst161934_ + _id161920_ '#f) '#f))) - (if _$e160775_ - _$e160775_ + (if _$e161936_ + _$e161936_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _key160738_)))))) + _key161899_)))))) (if (##structure-instance-of? - _mark160760160766_ + _mark161921161927_ 'gx#expander-mark::t) - (let* ((_e160764160781_ + (let* ((_e161925161942_ (##unchecked-structure-ref - _mark160760160766_ + _mark161921161927_ '1 gx#expander-mark::t '#f)) - (_subst160784_ _e160764160781_)) - (_K160763160778_ _subst160784_)) - (_E160762160770_)))))) - (if (##pair? _key160739160747_) - (let ((_hd160744160789_ (##car _key160739160747_)) - (_tl160745160791_ (##cdr _key160739160747_))) - (let* ((_id160794_ _hd160744160789_) - (_mark160796_ _tl160745160791_)) - (_K160743160786_ _mark160796_ _id160794_))) - (_else160741160755_)))))) - (let* ((_out160693160703_ _out160690_) - (_E160695160707_ - (lambda () (error '"No clause matching" _out160693160703_))) - (_K160696160714_ - (lambda (_phi160710_ _key160711_ _ctx160712_) + (_subst161945_ _e161925161942_)) + (_K161924161939_ _subst161945_)) + (_E161923161931_)))))) + (if (##pair? _key161900161908_) + (let ((_hd161905161950_ (##car _key161900161908_)) + (_tl161906161952_ (##cdr _key161900161908_))) + (let* ((_id161955_ _hd161905161950_) + (_mark161957_ _tl161906161952_)) + (_K161904161947_ _mark161957_ _id161955_))) + (_else161902161916_)))))) + (let* ((_out161854161864_ _out161851_) + (_E161856161868_ + (lambda () (error '"No clause matching" _out161854161864_))) + (_K161857161875_ + (lambda (_phi161871_ _key161872_ _ctx161873_) (gx#core-context-resolve - (gx#core-context-shift _ctx160712_ _phi160710_) - (_subst160692_ _key160711_))))) + (gx#core-context-shift _ctx161873_ _phi161871_) + (_subst161853_ _key161872_))))) (if (##structure-direct-instance-of? - _out160693160703_ + _out161854161864_ 'gx#module-export::t) - (let* ((_e160697160717_ + (let* ((_e161858161878_ (##unchecked-structure-ref - _out160693160703_ + _out161854161864_ '1 gx#module-export::t '#f)) - (_ctx160720_ _e160697160717_) - (_e160698160722_ + (_ctx161881_ _e161858161878_) + (_e161859161883_ (##unchecked-structure-ref - _out160693160703_ + _out161854161864_ '2 gx#module-export::t '#f)) - (_key160725_ _e160698160722_) - (_e160699160727_ + (_key161886_ _e161859161883_) + (_e161860161888_ (##unchecked-structure-ref - _out160693160703_ + _out161854161864_ '3 gx#module-export::t '#f)) - (_phi160730_ _e160699160727_) - (_e160700160732_ + (_phi161891_ _e161860161888_) + (_e161861161893_ (##unchecked-structure-ref - _out160693160703_ + _out161854161864_ '4 gx#module-export::t '#f)) - (_e160701160735_ + (_e161862161896_ (##unchecked-structure-ref - _out160693160703_ + _out161854161864_ '5 gx#module-export::t '#f))) - (_K160696160714_ _phi160730_ _key160725_ _ctx160720_)) - (_E160695160707_)))))) + (_K161857161875_ _phi161891_ _key161886_ _ctx161881_)) + (_E161856161868_)))))) (define gx#core-module-export->import__% - (lambda (_out160615_ _rename160616_ _dphi160617_) - (let* ((_out160618160628_ _out160615_) - (_E160620160632_ - (lambda () (error '"No clause matching" _out160618160628_))) - (_K160621160644_ - (lambda (_weak?160635_ - _name160636_ - _phi160637_ - _key160638_ - _ctx160639_) + (lambda (_out161776_ _rename161777_ _dphi161778_) + (let* ((_out161779161789_ _out161776_) + (_E161781161793_ + (lambda () (error '"No clause matching" _out161779161789_))) + (_K161782161805_ + (lambda (_weak?161796_ + _name161797_ + _phi161798_ + _key161799_ + _ctx161800_) (##structure gx#module-import::t - _out160615_ - (let ((_$e160641_ _rename160616_)) - (if _$e160641_ _$e160641_ _name160636_)) - (fx+ _phi160637_ _dphi160617_) - _weak?160635_)))) + _out161776_ + (let ((_$e161802_ _rename161777_)) + (if _$e161802_ _$e161802_ _name161797_)) + (fx+ _phi161798_ _dphi161778_) + _weak?161796_)))) (if (##structure-direct-instance-of? - _out160618160628_ + _out161779161789_ 'gx#module-export::t) - (let* ((_e160622160647_ + (let* ((_e161783161808_ (##unchecked-structure-ref - _out160618160628_ + _out161779161789_ '1 gx#module-export::t '#f)) - (_ctx160650_ _e160622160647_) - (_e160623160652_ + (_ctx161811_ _e161783161808_) + (_e161784161813_ (##unchecked-structure-ref - _out160618160628_ + _out161779161789_ '2 gx#module-export::t '#f)) - (_key160655_ _e160623160652_) - (_e160624160657_ + (_key161816_ _e161784161813_) + (_e161785161818_ (##unchecked-structure-ref - _out160618160628_ + _out161779161789_ '3 gx#module-export::t '#f)) - (_phi160660_ _e160624160657_) - (_e160625160662_ + (_phi161821_ _e161785161818_) + (_e161786161823_ (##unchecked-structure-ref - _out160618160628_ + _out161779161789_ '4 gx#module-export::t '#f)) - (_name160665_ _e160625160662_) - (_e160626160667_ + (_name161826_ _e161786161823_) + (_e161787161828_ (##unchecked-structure-ref - _out160618160628_ + _out161779161789_ '5 gx#module-export::t '#f)) - (_weak?160670_ _e160626160667_)) - (_K160621160644_ - _weak?160670_ - _name160665_ - _phi160660_ - _key160655_ - _ctx160650_)) - (_E160620160632_))))) + (_weak?161831_ _e161787161828_)) + (_K161782161805_ + _weak?161831_ + _name161826_ + _phi161821_ + _key161816_ + _ctx161811_)) + (_E161781161793_))))) (define gx#core-module-export->import__0 - (lambda (_out160675_) - (let* ((_rename160677_ '#f) (_dphi160679_ '0)) + (lambda (_out161836_) + (let* ((_rename161838_ '#f) (_dphi161840_ '0)) (gx#core-module-export->import__% - _out160675_ - _rename160677_ - _dphi160679_)))) + _out161836_ + _rename161838_ + _dphi161840_)))) (define gx#core-module-export->import__1 - (lambda (_out160681_ _rename160682_) - (let ((_dphi160684_ '0)) + (lambda (_out161842_ _rename161843_) + (let ((_dphi161845_ '0)) (gx#core-module-export->import__% - _out160681_ - _rename160682_ - _dphi160684_)))) + _out161842_ + _rename161843_ + _dphi161845_)))) (define gx#core-module-export->import - (lambda _g167260_ - (let ((_g167259_ (##length _g167260_))) - (cond ((##fx= _g167259_ 1) - (apply (lambda (_out160675_) - (gx#core-module-export->import__0 _out160675_)) - _g167260_)) - ((##fx= _g167259_ 2) - (apply (lambda (_out160681_ _rename160682_) + (lambda _g168421_ + (let ((_g168420_ (##length _g168421_))) + (cond ((##fx= _g168420_ 1) + (apply (lambda (_out161836_) + (gx#core-module-export->import__0 _out161836_)) + _g168421_)) + ((##fx= _g168420_ 2) + (apply (lambda (_out161842_ _rename161843_) (gx#core-module-export->import__1 - _out160681_ - _rename160682_)) - _g167260_)) - ((##fx= _g167259_ 3) - (apply (lambda (_out160686_ _rename160687_ _dphi160688_) + _out161842_ + _rename161843_)) + _g168421_)) + ((##fx= _g168420_ 3) + (apply (lambda (_out161847_ _rename161848_ _dphi161849_) (gx#core-module-export->import__% - _out160686_ - _rename160687_ - _dphi160688_)) - _g167260_)) + _out161847_ + _rename161848_ + _dphi161849_)) + _g168421_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g167260_)))))) + _g168421_)))))) (define gx#core-expand-module% - (lambda (_stx160543_) - (letrec ((_make-context160545_ - (lambda (_id160596_) - (let* ((_super160598_ (gx#current-expander-context)) - (_bind-id160600_ (gx#stx-e _id160596_)) - (_mod-id160602_ + (lambda (_stx161704_) + (letrec ((_make-context161706_ + (lambda (_id161757_) + (let* ((_super161759_ (gx#current-expander-context)) + (_bind-id161761_ (gx#stx-e _id161757_)) + (_mod-id161763_ (if (##structure-instance-of? - _super160598_ + _super161759_ 'gx#module-context::t) (make-symbol__1 (##structure-ref - _super160598_ + _super161759_ '1 gx#expander-context::t '#f) '"$" - _bind-id160600_) - _bind-id160600_)) - (_ns160604_ (symbol->string _mod-id160602_)) - (_path160611_ + _bind-id161761_) + _bind-id161761_)) + (_ns161765_ (symbol->string _mod-id161763_)) + (_path161772_ (if (##structure-instance-of? - _super160598_ + _super161759_ 'gx#module-context::t) - (let ((_path160606_ + (let ((_path161767_ (##unchecked-structure-ref - _super160598_ + _super161759_ '7 gx#module-context::t '#f))) - (if (or (pair? _path160606_) - (null? _path160606_)) - (cons _bind-id160600_ _path160606_) - (if (not _path160606_) - _bind-id160600_ - (cons _bind-id160600_ - (cons _path160606_ '()))))) - _bind-id160600_))) - (let ((__obj167236 + (if (or (pair? _path161767_) + (null? _path161767_)) + (cons _bind-id161761_ _path161767_) + (if (not _path161767_) + _bind-id161761_ + (cons _bind-id161761_ + (cons _path161767_ '()))))) + _bind-id161761_))) + (let ((__obj168397 (##structure gx#module-context::t '#f @@ -2180,879 +2181,879 @@ '#f '#f))) (gx#module-context:::init! - __obj167236 - _mod-id160602_ - _super160598_ - _ns160604_ - _path160611_) - __obj167236))))) - (let* ((_e160546160556_ _stx160543_) - (_E160548160560_ + __obj168397 + _mod-id161763_ + _super161759_ + _ns161765_ + _path161772_) + __obj168397))))) + (let* ((_e161707161717_ _stx161704_) + (_E161709161721_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160546160556_))) - (_E160547160592_ + _e161707161717_))) + (_E161708161753_ (lambda () - (if (gx#stx-pair? _e160546160556_) - (let ((_e160549160564_ (gx#syntax-e _e160546160556_))) - (let ((_hd160550160567_ (##car _e160549160564_)) - (_tl160551160569_ (##cdr _e160549160564_))) - (if (gx#stx-pair? _tl160551160569_) - (let ((_e160552160572_ - (gx#syntax-e _tl160551160569_))) - (let ((_hd160553160575_ - (##car _e160552160572_)) - (_tl160554160577_ - (##cdr _e160552160572_))) - (let* ((_id160580_ _hd160553160575_) - (_body160582_ _tl160554160577_)) - (if (and (gx#identifier? _id160580_) - (gx#stx-list? _body160582_)) - (let* ((_ctx160584_ - (_make-context160545_ - _id160580_)) - (_body160586_ + (if (gx#stx-pair? _e161707161717_) + (let ((_e161710161725_ (gx#syntax-e _e161707161717_))) + (let ((_hd161711161728_ (##car _e161710161725_)) + (_tl161712161730_ (##cdr _e161710161725_))) + (if (gx#stx-pair? _tl161712161730_) + (let ((_e161713161733_ + (gx#syntax-e _tl161712161730_))) + (let ((_hd161714161736_ + (##car _e161713161733_)) + (_tl161715161738_ + (##cdr _e161713161733_))) + (let* ((_id161741_ _hd161714161736_) + (_body161743_ _tl161715161738_)) + (if (and (gx#identifier? _id161741_) + (gx#stx-list? _body161743_)) + (let* ((_ctx161745_ + (_make-context161706_ + _id161741_)) + (_body161747_ (gx#core-expand-module-begin - _body160582_ - _ctx160584_)) - (_body160588_ + _body161743_ + _ctx161745_)) + (_body161749_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body160586_) + _body161747_) (gx#stx-source - _stx160543_)))) + _stx161704_)))) (##unchecked-structure-set! - _ctx160584_ + _ctx161745_ (make-promise (lambda () (gx#eval-syntax* - _body160588_))) + _body161749_))) '10 gx#module-context::t '#f) (##unchecked-structure-set! - _ctx160584_ - _body160588_ + _ctx161745_ + _body161749_ '11 gx#module-context::t '#f) (gx#core-bind-syntax!__0 - _id160580_ - _ctx160584_) + _id161741_ + _ctx161745_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _id160580_) - _body160588_) - (gx#stx-source _stx160543_))) - (_E160548160560_))))) - (_E160548160560_)))) - (_E160548160560_))))) - (_E160547160592_))))) + _id161741_) + _body161749_) + (gx#stx-source _stx161704_))) + (_E161709161721_))))) + (_E161709161721_)))) + (_E161709161721_))))) + (_E161708161753_))))) (define gx#core-expand-module-begin - (lambda (_body160509_ _ctx160510_) + (lambda (_body161670_ _ctx161671_) (call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_stx160513_ - (gx#core-expand-head (cons '%%begin-module _body160509_))) - (_e160514160521_ _stx160513_) - (_E160516160525_ + (let* ((_stx161674_ + (gx#core-expand-head (cons '%%begin-module _body161670_))) + (_e161675161682_ _stx161674_) + (_E161677161686_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _stx160513_))) - (_E160515160539_ + _stx161674_))) + (_E161676161700_ (lambda () - (if (gx#stx-pair? _e160514160521_) - (let ((_e160517160529_ (gx#syntax-e _e160514160521_))) - (let ((_hd160518160532_ (##car _e160517160529_)) - (_tl160519160534_ (##cdr _e160517160529_))) - (if (and (gx#identifier? _hd160518160532_) + (if (gx#stx-pair? _e161675161682_) + (let ((_e161678161690_ (gx#syntax-e _e161675161682_))) + (let ((_hd161679161693_ (##car _e161678161690_)) + (_tl161680161695_ (##cdr _e161678161690_))) + (if (and (gx#identifier? _hd161679161693_) (gx#core-identifier=? - _hd160518160532_ + _hd161679161693_ '%#begin-module)) - (let ((_body160537_ _tl160519160534_)) + (let ((_body161698_ _tl161680161695_)) (if '#t - (if (gx#sealed-syntax? _stx160513_) - _body160537_ + (if (gx#sealed-syntax? _stx161674_) + _body161698_ (gx#core-expand-module-body - _body160537_)) - (_E160516160525_))) - (_E160516160525_)))) - (_E160516160525_))))) - (_E160515160539_))) + _body161698_)) + (_E161677161686_))) + (_E161677161686_)))) + (_E161677161686_))))) + (_E161676161700_))) gx#current-expander-context - _ctx160510_ + _ctx161671_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_body160305_) - (letrec ((_expand-special160307_ - (lambda (_hd160436_ _K160437_ _rest160438_ _r160439_) - (let* ((_e160440160457_ _hd160436_) - (_E160452160461_ + (lambda (_body161466_) + (letrec ((_expand-special161468_ + (lambda (_hd161597_ _K161598_ _rest161599_ _r161600_) + (let* ((_e161601161618_ _hd161597_) + (_E161613161622_ (lambda () - (_K160437_ - _rest160438_ - (cons (gx#core-expand-top _hd160436_) - _r160439_)))) - (_E160442160473_ + (_K161598_ + _rest161599_ + (cons (gx#core-expand-top _hd161597_) + _r161600_)))) + (_E161603161634_ (lambda () - (if (gx#stx-pair? _e160440160457_) - (let ((_e160453160465_ - (gx#syntax-e _e160440160457_))) - (let ((_hd160454160468_ - (##car _e160453160465_)) - (_tl160455160470_ - (##cdr _e160453160465_))) + (if (gx#stx-pair? _e161601161618_) + (let ((_e161614161626_ + (gx#syntax-e _e161601161618_))) + (let ((_hd161615161629_ + (##car _e161614161626_)) + (_tl161616161631_ + (##cdr _e161614161626_))) (if (and (gx#identifier? - _hd160454160468_) + _hd161615161629_) (gx#core-identifier=? - _hd160454160468_ + _hd161615161629_ '%#export)) (if '#t - (_K160437_ - _rest160438_ - (cons _hd160436_ _r160439_)) - (_E160452160461_)) - (_E160452160461_)))) - (_E160452160461_)))) - (_E160441160505_ + (_K161598_ + _rest161599_ + (cons _hd161597_ _r161600_)) + (_E161613161622_)) + (_E161613161622_)))) + (_E161613161622_)))) + (_E161602161666_ (lambda () - (if (gx#stx-pair? _e160440160457_) - (let ((_e160443160477_ - (gx#syntax-e _e160440160457_))) - (let ((_hd160444160480_ - (##car _e160443160477_)) - (_tl160445160482_ - (##cdr _e160443160477_))) + (if (gx#stx-pair? _e161601161618_) + (let ((_e161604161638_ + (gx#syntax-e _e161601161618_))) + (let ((_hd161605161641_ + (##car _e161604161638_)) + (_tl161606161643_ + (##cdr _e161604161638_))) (if (and (gx#identifier? - _hd160444160480_) + _hd161605161641_) (gx#core-identifier=? - _hd160444160480_ + _hd161605161641_ '%#define-values)) - (if (gx#stx-pair? _tl160445160482_) - (let ((_e160446160485_ + (if (gx#stx-pair? _tl161606161643_) + (let ((_e161607161646_ (gx#syntax-e - _tl160445160482_))) - (let ((_hd160447160488_ - (##car _e160446160485_)) - (_tl160448160490_ - (##cdr _e160446160485_))) - (let ((_hd-bind160493_ - _hd160447160488_)) + _tl161606161643_))) + (let ((_hd161608161649_ + (##car _e161607161646_)) + (_tl161609161651_ + (##cdr _e161607161646_))) + (let ((_hd-bind161654_ + _hd161608161649_)) (if (gx#stx-pair? - _tl160448160490_) - (let ((_e160449160495_ + _tl161609161651_) + (let ((_e161610161656_ (gx#syntax-e - _tl160448160490_))) - (let ((_hd160450160498_ + _tl161609161651_))) + (let ((_hd161611161659_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e160449160495_)) - (_tl160451160500_ (##cdr _e160449160495_))) - (let ((_expr160503_ _hd160450160498_)) - (if (gx#stx-null? _tl160451160500_) - (if (gx#core-bind-values? _hd-bind160493_) + (##car _e161610161656_)) + (_tl161612161661_ (##cdr _e161610161656_))) + (let ((_expr161664_ _hd161611161659_)) + (if (gx#stx-null? _tl161612161661_) + (if (gx#core-bind-values? _hd-bind161654_) (begin - (gx#core-bind-values!__0 _hd-bind160493_) - (_K160437_ - _rest160438_ - (cons _hd160436_ _r160439_))) - (_E160442160473_)) - (_E160442160473_))))) - (_E160442160473_))))) + (gx#core-bind-values!__0 _hd-bind161654_) + (_K161598_ + _rest161599_ + (cons _hd161597_ _r161600_))) + (_E161603161634_)) + (_E161603161634_))))) + (_E161603161634_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160442160473_)) - (_E160442160473_)))) - (_E160442160473_))))) - (_E160441160505_)))) - (_expand-body160308_ - (lambda (_rbody160310_) - (let _lp160312_ ((_rest160314_ _rbody160310_) - (_body160315_ '())) - (let* ((_rest160316160324_ _rest160314_) - (_else160318160332_ (lambda () _body160315_)) - (_K160320160424_ - (lambda (_rest160335_ _hd160336_) - (let* ((_e160337160358_ _hd160336_) - (_E160353160362_ + (_E161603161634_)) + (_E161603161634_)))) + (_E161603161634_))))) + (_E161602161666_)))) + (_expand-body161469_ + (lambda (_rbody161471_) + (let _lp161473_ ((_rest161475_ _rbody161471_) + (_body161476_ '())) + (let* ((_rest161477161485_ _rest161475_) + (_else161479161493_ (lambda () _body161476_)) + (_K161481161585_ + (lambda (_rest161496_ _hd161497_) + (let* ((_e161498161519_ _hd161497_) + (_E161514161523_ (lambda () - (_lp160312_ - _rest160335_ + (_lp161473_ + _rest161496_ (cons (gx#core-expand-expression - _hd160336_) - _body160315_)))) - (_E160349160376_ + _hd161497_) + _body161476_)))) + (_E161510161537_ (lambda () - (if (gx#stx-pair? _e160337160358_) - (let ((_e160354160366_ + (if (gx#stx-pair? _e161498161519_) + (let ((_e161515161527_ (gx#syntax-e - _e160337160358_))) - (let ((_hd160355160369_ - (##car _e160354160366_)) - (_tl160356160371_ - (##cdr _e160354160366_))) - (let ((_form160374_ - _hd160355160369_)) + _e161498161519_))) + (let ((_hd161516161530_ + (##car _e161515161527_)) + (_tl161517161532_ + (##cdr _e161515161527_))) + (let ((_form161535_ + _hd161516161530_)) (if (gx#core-bound-identifier?__% - _form160374_ + _form161535_ gx#special-form-binding?) - (_lp160312_ - _rest160335_ - (cons _hd160336_ - _body160315_)) - (_E160353160362_))))) - (_E160353160362_)))) - (_E160339160388_ + (_lp161473_ + _rest161496_ + (cons _hd161497_ + _body161476_)) + (_E161514161523_))))) + (_E161514161523_)))) + (_E161500161549_ (lambda () - (if (gx#stx-pair? _e160337160358_) - (let ((_e160350160380_ + (if (gx#stx-pair? _e161498161519_) + (let ((_e161511161541_ (gx#syntax-e - _e160337160358_))) - (let ((_hd160351160383_ - (##car _e160350160380_)) - (_tl160352160385_ - (##cdr _e160350160380_))) + _e161498161519_))) + (let ((_hd161512161544_ + (##car _e161511161541_)) + (_tl161513161546_ + (##cdr _e161511161541_))) (if (and (gx#identifier? - _hd160351160383_) + _hd161512161544_) (gx#core-identifier=? - _hd160351160383_ + _hd161512161544_ '%#export)) (if '#t - (_lp160312_ - _rest160335_ + (_lp161473_ + _rest161496_ (cons (gx#core-expand-export%__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd160336_) - _body160315_)) - (_E160349160376_)) - (_E160349160376_)))) + _hd161497_) + _body161476_)) + (_E161510161537_)) + (_E161510161537_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160349160376_)))) - (_E160338160420_ + (_E161510161537_)))) + (_E161499161581_ (lambda () - (if (gx#stx-pair? _e160337160358_) - (let ((_e160340160392_ + (if (gx#stx-pair? _e161498161519_) + (let ((_e161501161553_ (gx#syntax-e - _e160337160358_))) - (let ((_hd160341160395_ - (##car _e160340160392_)) - (_tl160342160397_ - (##cdr _e160340160392_))) + _e161498161519_))) + (let ((_hd161502161556_ + (##car _e161501161553_)) + (_tl161503161558_ + (##cdr _e161501161553_))) (if (and (gx#identifier? - _hd160341160395_) + _hd161502161556_) (gx#core-identifier=? - _hd160341160395_ + _hd161502161556_ '%#define-values)) (if (gx#stx-pair? - _tl160342160397_) - (let ((_e160343160400_ + _tl161503161558_) + (let ((_e161504161561_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl160342160397_))) - (let ((_hd160344160403_ (##car _e160343160400_)) - (_tl160345160405_ (##cdr _e160343160400_))) - (let ((_hd-bind160408_ _hd160344160403_)) - (if (gx#stx-pair? _tl160345160405_) - (let ((_e160346160410_ - (gx#syntax-e _tl160345160405_))) - (let ((_hd160347160413_ (##car _e160346160410_)) - (_tl160348160415_ (##cdr _e160346160410_))) - (let ((_expr160418_ _hd160347160413_)) - (if (gx#stx-null? _tl160348160415_) + (gx#syntax-e _tl161503161558_))) + (let ((_hd161505161564_ (##car _e161504161561_)) + (_tl161506161566_ (##cdr _e161504161561_))) + (let ((_hd-bind161569_ _hd161505161564_)) + (if (gx#stx-pair? _tl161506161566_) + (let ((_e161507161571_ + (gx#syntax-e _tl161506161566_))) + (let ((_hd161508161574_ (##car _e161507161571_)) + (_tl161509161576_ (##cdr _e161507161571_))) + (let ((_expr161579_ _hd161508161574_)) + (if (gx#stx-null? _tl161509161576_) (if '#t - (_lp160312_ - _rest160335_ + (_lp161473_ + _rest161496_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _hd-bind160408_) + _hd-bind161569_) (gx#core-expand-expression - _expr160418_)) - (gx#stx-source _hd160336_)) - _body160315_)) - (_E160339160388_)) - (_E160339160388_))))) - (_E160339160388_))))) - (_E160339160388_)) - (_E160339160388_)))) + _expr161579_)) + (gx#stx-source _hd161497_)) + _body161476_)) + (_E161500161549_)) + (_E161500161549_))))) + (_E161500161549_))))) + (_E161500161549_)) + (_E161500161549_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160339160388_))))) - (_E160338160420_))))) - (if (##pair? _rest160316160324_) - (let ((_hd160321160427_ (##car _rest160316160324_)) - (_tl160322160429_ - (##cdr _rest160316160324_))) - (let* ((_hd160432_ _hd160321160427_) - (_rest160434_ _tl160322160429_)) - (_K160320160424_ _rest160434_ _hd160432_))) - (_else160318160332_))))))) - (_expand-body160308_ + (_E161500161549_))))) + (_E161499161581_))))) + (if (##pair? _rest161477161485_) + (let ((_hd161482161588_ (##car _rest161477161485_)) + (_tl161483161590_ + (##cdr _rest161477161485_))) + (let* ((_hd161593_ _hd161482161588_) + (_rest161595_ _tl161483161590_)) + (_K161481161585_ _rest161595_ _hd161593_))) + (_else161479161493_))))))) + (_expand-body161469_ (gx#core-expand-block__% - (cons '%#begin-module _body160305_) - _expand-special160307_ + (cons '%#begin-module _body161466_) + _expand-special161468_ '#f values))))) (define gx#core-expand-import/export - (lambda (_stx160148_ - _expanded?160149_ - _method160150_ - _current-phi160151_ - _expand1160152_) - (letrec ((_K160154_ - (lambda (_rest160272_ _r160273_) - (let* ((_e160274160281_ _rest160272_) - (_E160276160285_ (lambda () _r160273_)) - (_E160275160301_ + (lambda (_stx161309_ + _expanded?161310_ + _method161311_ + _current-phi161312_ + _expand1161313_) + (letrec ((_K161315_ + (lambda (_rest161433_ _r161434_) + (let* ((_e161435161442_ _rest161433_) + (_E161437161446_ (lambda () _r161434_)) + (_E161436161462_ (lambda () - (if (gx#stx-pair? _e160274160281_) - (let ((_e160277160289_ - (gx#syntax-e _e160274160281_))) - (let ((_hd160278160292_ - (##car _e160277160289_)) - (_tl160279160294_ - (##cdr _e160277160289_))) - (let* ((_hd160297_ _hd160278160292_) - (_rest160299_ _tl160279160294_)) + (if (gx#stx-pair? _e161435161442_) + (let ((_e161438161450_ + (gx#syntax-e _e161435161442_))) + (let ((_hd161439161453_ + (##car _e161438161450_)) + (_tl161440161455_ + (##cdr _e161438161450_))) + (let* ((_hd161458_ _hd161439161453_) + (_rest161460_ _tl161440161455_)) (if '#t - (_step160155_ - _hd160297_ - _rest160299_ - _r160273_) - (_E160276160285_))))) - (_E160276160285_))))) - (_E160275160301_)))) - (_step160155_ - (lambda (_hd160186_ _rest160187_ _r160188_) - (let* ((_e160189160207_ _hd160186_) - (_E160202160211_ + (_step161316_ + _hd161458_ + _rest161460_ + _r161434_) + (_E161437161446_))))) + (_E161437161446_))))) + (_E161436161462_)))) + (_step161316_ + (lambda (_hd161347_ _rest161348_ _r161349_) + (let* ((_e161350161368_ _hd161347_) + (_E161363161372_ (lambda () - (if (_expanded?160149_ (gx#stx-e _hd160186_)) - (_K160154_ - _rest160187_ - (cons (gx#stx-e _hd160186_) _r160188_)) - (_expand1160152_ - _hd160186_ - _K160154_ - _rest160187_ - _r160188_)))) - (_E160198160227_ + (if (_expanded?161310_ (gx#stx-e _hd161347_)) + (_K161315_ + _rest161348_ + (cons (gx#stx-e _hd161347_) _r161349_)) + (_expand1161313_ + _hd161347_ + _K161315_ + _rest161348_ + _r161349_)))) + (_E161359161388_ (lambda () - (if (gx#stx-pair? _e160189160207_) - (let ((_e160203160215_ - (gx#syntax-e _e160189160207_))) - (let ((_hd160204160218_ - (##car _e160203160215_)) - (_tl160205160220_ - (##cdr _e160203160215_))) - (let* ((_macro160223_ _hd160204160218_) - (_body160225_ _tl160205160220_)) + (if (gx#stx-pair? _e161350161368_) + (let ((_e161364161376_ + (gx#syntax-e _e161350161368_))) + (let ((_hd161365161379_ + (##car _e161364161376_)) + (_tl161366161381_ + (##cdr _e161364161376_))) + (let* ((_macro161384_ _hd161365161379_) + (_body161386_ _tl161366161381_)) (if (gx#core-bound-identifier?__% - _macro160223_ + _macro161384_ gx#syntax-binding?) - (_K160154_ + (_K161315_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _macro160223_) - _hd160186_ - _method160150_) - _rest160187_) - _r160188_) - (_E160202160211_))))) - (_E160202160211_)))) - (_E160191160241_ + _macro161384_) + _hd161347_ + _method161311_) + _rest161348_) + _r161349_) + (_E161363161372_))))) + (_E161363161372_)))) + (_E161352161402_ (lambda () - (if (gx#stx-pair? _e160189160207_) - (let ((_e160199160231_ - (gx#syntax-e _e160189160207_))) - (let ((_hd160200160234_ - (##car _e160199160231_)) - (_tl160201160236_ - (##cdr _e160199160231_))) - (if (eq? (gx#stx-e _hd160200160234_) + (if (gx#stx-pair? _e161350161368_) + (let ((_e161360161392_ + (gx#syntax-e _e161350161368_))) + (let ((_hd161361161395_ + (##car _e161360161392_)) + (_tl161362161397_ + (##cdr _e161360161392_))) + (if (eq? (gx#stx-e _hd161361161395_) 'begin:) - (let ((_body160239_ - _tl160201160236_)) + (let ((_body161400_ + _tl161362161397_)) (if '#t - (_K160154_ + (_K161315_ (gx#stx-foldr cons - _rest160187_ - _body160239_) - _r160188_) - (_E160198160227_))) - (_E160198160227_)))) - (_E160198160227_)))) - (_E160190160268_ + _rest161348_ + _body161400_) + _r161349_) + (_E161359161388_))) + (_E161359161388_)))) + (_E161359161388_)))) + (_E161351161429_ (lambda () - (if (gx#stx-pair? _e160189160207_) - (let ((_e160192160245_ - (gx#syntax-e _e160189160207_))) - (let ((_hd160193160248_ - (##car _e160192160245_)) - (_tl160194160250_ - (##cdr _e160192160245_))) - (if (eq? (gx#stx-e _hd160193160248_) + (if (gx#stx-pair? _e161350161368_) + (let ((_e161353161406_ + (gx#syntax-e _e161350161368_))) + (let ((_hd161354161409_ + (##car _e161353161406_)) + (_tl161355161411_ + (##cdr _e161353161406_))) + (if (eq? (gx#stx-e _hd161354161409_) 'phi:) - (if (gx#stx-pair? _tl160194160250_) - (let ((_e160195160253_ + (if (gx#stx-pair? _tl161355161411_) + (let ((_e161356161414_ (gx#syntax-e - _tl160194160250_))) - (let ((_hd160196160256_ - (##car _e160195160253_)) - (_tl160197160258_ - (##cdr _e160195160253_))) - (let* ((_dphi160261_ - _hd160196160256_) - (_body160263_ - _tl160197160258_)) + _tl161355161411_))) + (let ((_hd161357161417_ + (##car _e161356161414_)) + (_tl161358161419_ + (##cdr _e161356161414_))) + (let* ((_dphi161422_ + _hd161357161417_) + (_body161424_ + _tl161358161419_)) (if (gx#stx-fixnum? - _dphi160261_) - (let ((_rbody160266_ + _dphi161422_) + (let ((_rbody161427_ (call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_K160154_ _body160263_ '())) - _current-phi160151_ - (fx+ (gx#stx-e _dphi160261_) (_current-phi160151_))))) - (_K160154_ - _rest160187_ - (foldr1 cons _r160188_ _rbody160266_))) - (_E160191160241_))))) + (_K161315_ _body161424_ '())) + _current-phi161312_ + (fx+ (gx#stx-e _dphi161422_) (_current-phi161312_))))) + (_K161315_ + _rest161348_ + (foldr1 cons _r161349_ _rbody161427_))) + (_E161352161402_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E160191160241_)) - (_E160191160241_)))) - (_E160191160241_))))) - (_E160190160268_))))) - (let* ((_e160156160163_ _stx160148_) - (_E160158160167_ + (_E161352161402_)) + (_E161352161402_)))) + (_E161352161402_))))) + (_E161351161429_))))) + (let* ((_e161317161324_ _stx161309_) + (_E161319161328_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160156160163_))) - (_E160157160182_ + _e161317161324_))) + (_E161318161343_ (lambda () - (if (gx#stx-pair? _e160156160163_) - (let ((_e160159160171_ (gx#syntax-e _e160156160163_))) - (let ((_hd160160160174_ (##car _e160159160171_)) - (_tl160161160176_ (##cdr _e160159160171_))) - (let ((_body160179_ _tl160161160176_)) + (if (gx#stx-pair? _e161317161324_) + (let ((_e161320161332_ (gx#syntax-e _e161317161324_))) + (let ((_hd161321161335_ (##car _e161320161332_)) + (_tl161322161337_ (##cdr _e161320161332_))) + (let ((_body161340_ _tl161322161337_)) (if '#t - (if (_current-phi160151_) - (_K160154_ _body160179_ '()) + (if (_current-phi161312_) + (_K161315_ _body161340_ '()) (call-with-parameters - (lambda () (_K160154_ _body160179_ '())) - _current-phi160151_ + (lambda () (_K161315_ _body161340_ '())) + _current-phi161312_ (gx#current-expander-phi))) - (_E160158160167_))))) - (_E160158160167_))))) - (_E160157160182_))))) + (_E161319161328_))))) + (_E161319161328_))))) + (_E161318161343_))))) (define gx#core-expand-import%__% - (lambda (_stx159815_ _internal-expand?159816_) - (letrec ((_expand1159818_ - (lambda (_hd160128_ _K160129_ _rest160130_ _r160131_) - (if (gx#core-bound-module? _hd160128_) - (_import1159819_ - (gx#syntax-local-e__0 _hd160128_) - _K160129_ - _rest160130_ - _r160131_) - (if (gx#core-library-module-path? _hd160128_) - (_import1159819_ + (lambda (_stx160976_ _internal-expand?160977_) + (letrec ((_expand1160979_ + (lambda (_hd161289_ _K161290_ _rest161291_ _r161292_) + (if (gx#core-bound-module? _hd161289_) + (_import1160980_ + (gx#syntax-local-e__0 _hd161289_) + _K161290_ + _rest161291_ + _r161292_) + (if (gx#core-library-module-path? _hd161289_) + (_import1160980_ (gx#import-module__0 - (gx#core-resolve-library-module-path _hd160128_)) - _K160129_ - _rest160130_ - _r160131_) + (gx#core-resolve-library-module-path _hd161289_)) + _K161290_ + _rest161291_ + _r161292_) (if (gx#core-library-relative-module-path? - _hd160128_) - (_import1159819_ + _hd161289_) + (_import1160980_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd160128_)) - _K160129_ - _rest160130_ - _r160131_) - (let ((_e160133_ (gx#stx-e _hd160128_))) - (if (pair? _e160133_) - (let ((_$e160135_ - (gx#stx-e (car _e160133_)))) - (if (eq? 'spec: _$e160135_) - (_import-spec159822_ - _hd160128_ - _K160129_ - _rest160130_ - _r160131_) - (if (eq? 'in: _$e160135_) - (_import-submodule159820_ - _hd160128_ - _K160129_ - _rest160130_ - _r160131_) - (if (eq? 'runtime: _$e160135_) - (_import-runtime159821_ - _hd160128_ - _K160129_ - _rest160130_ - _r160131_) + _hd161289_)) + _K161290_ + _rest161291_ + _r161292_) + (let ((_e161294_ (gx#stx-e _hd161289_))) + (if (pair? _e161294_) + (let ((_$e161296_ + (gx#stx-e (car _e161294_)))) + (if (eq? 'spec: _$e161296_) + (_import-spec160983_ + _hd161289_ + _K161290_ + _rest161291_ + _r161292_) + (if (eq? 'in: _$e161296_) + (_import-submodule160981_ + _hd161289_ + _K161290_ + _rest161291_ + _r161292_) + (if (eq? 'runtime: _$e161296_) + (_import-runtime160982_ + _hd161289_ + _K161290_ + _rest161291_ + _r161292_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx159815_ - _hd160128_))))) - (if (string? _e160133_) - (_import1159819_ + _stx160976_ + _hd161289_))))) + (if (string? _e161294_) + (_import1160980_ (gx#import-module__0 (gx#core-resolve-module-path__% - _hd160128_ - (gx#stx-source _stx159815_))) - _K160129_ - _rest160130_ - _r160131_) + _hd161289_ + (gx#stx-source _stx160976_))) + _K161290_ + _rest161291_ + _r161292_) (if (##structure-instance-of? - _e160133_ + _e161294_ 'gx#module-context::t) - (_K160129_ - _rest160130_ - (cons _e160133_ _r160131_)) + (_K161290_ + _rest161291_ + (cons _e161294_ _r161292_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _stx159815_ - _hd160128_)))))))))) - (_import1159819_ - (lambda (_ctx160117_ _K160118_ _rest160119_ _r160120_) - (let ((_dphi160122_ + _stx160976_ + _hd161289_)))))))))) + (_import1160980_ + (lambda (_ctx161278_ _K161279_ _rest161280_ _r161281_) + (let ((_dphi161283_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_K160118_ - _rest160119_ + (_K161279_ + _rest161280_ (cons (##structure gx#import-set::t - _ctx160117_ - _dphi160122_ - (map (lambda (_g160123160125_) + _ctx161278_ + _dphi161283_ + (map (lambda (_g161284161286_) (gx#core-module-export->import__% - _g160123160125_ + _g161284161286_ '#f - _dphi160122_)) + _dphi161283_)) (##unchecked-structure-ref - _ctx160117_ + _ctx161278_ '9 gx#module-context::t '#f))) - _r160120_))))) - (_import-submodule159820_ - (lambda (_hd160084_ _K160085_ _rest160086_ _r160087_) - (let* ((_e160088160095_ _hd160084_) - (_E160090160099_ + _r161281_))))) + (_import-submodule160981_ + (lambda (_hd161245_ _K161246_ _rest161247_ _r161248_) + (let* ((_e161249161256_ _hd161245_) + (_E161251161260_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160088160095_))) - (_E160089160113_ + _e161249161256_))) + (_E161250161274_ (lambda () - (if (gx#stx-pair? _e160088160095_) - (let ((_e160091160103_ - (gx#syntax-e _e160088160095_))) - (let ((_hd160092160106_ - (##car _e160091160103_)) - (_tl160093160108_ - (##cdr _e160091160103_))) - (let ((_spath160111_ _tl160093160108_)) + (if (gx#stx-pair? _e161249161256_) + (let ((_e161252161264_ + (gx#syntax-e _e161249161256_))) + (let ((_hd161253161267_ + (##car _e161252161264_)) + (_tl161254161269_ + (##cdr _e161252161264_))) + (let ((_spath161272_ _tl161254161269_)) (if '#t - (_import1159819_ - (_import-spec-source159823_ - _spath160111_) - _K160085_ - _rest160086_ - _r160087_) - (_E160090160099_))))) - (_E160090160099_))))) - (_E160089160113_)))) - (_import-runtime159821_ - (lambda (_hd160051_ _K160052_ _rest160053_ _r160054_) - (let* ((_e160055160062_ _hd160051_) - (_E160057160066_ + (_import1160980_ + (_import-spec-source160984_ + _spath161272_) + _K161246_ + _rest161247_ + _r161248_) + (_E161251161260_))))) + (_E161251161260_))))) + (_E161250161274_)))) + (_import-runtime160982_ + (lambda (_hd161212_ _K161213_ _rest161214_ _r161215_) + (let* ((_e161216161223_ _hd161212_) + (_E161218161227_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e160055160062_))) - (_E160056160080_ + _e161216161223_))) + (_E161217161241_ (lambda () - (if (gx#stx-pair? _e160055160062_) - (let ((_e160058160070_ - (gx#syntax-e _e160055160062_))) - (let ((_hd160059160073_ - (##car _e160058160070_)) - (_tl160060160075_ - (##cdr _e160058160070_))) - (let ((_spath160078_ _tl160060160075_)) + (if (gx#stx-pair? _e161216161223_) + (let ((_e161219161231_ + (gx#syntax-e _e161216161223_))) + (let ((_hd161220161234_ + (##car _e161219161231_)) + (_tl161221161236_ + (##cdr _e161219161231_))) + (let ((_spath161239_ _tl161221161236_)) (if '#t - (_K160052_ - _rest160053_ - (cons (_import-spec-source159823_ - _spath160078_) - _r160054_)) - (_E160057160066_))))) - (_E160057160066_))))) - (_E160056160080_)))) - (_import-spec159822_ - (lambda (_hd159890_ _K159891_ _rest159892_ _r159893_) - (let* ((_e159894159911_ _hd159890_) - (_E159903159915_ + (_K161213_ + _rest161214_ + (cons (_import-spec-source160984_ + _spath161239_) + _r161215_)) + (_E161218161227_))))) + (_E161218161227_))))) + (_E161217161241_)))) + (_import-spec160983_ + (lambda (_hd161051_ _K161052_ _rest161053_ _r161054_) + (let* ((_e161055161072_ _hd161051_) + (_E161064161076_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e159894159911_))) - (_E159896160025_ + _e161055161072_))) + (_E161057161186_ (lambda () - (if (gx#stx-pair? _e159894159911_) - (let ((_e159904159919_ - (gx#syntax-e _e159894159911_))) - (let ((_hd159905159922_ - (##car _e159904159919_)) - (_tl159906159924_ - (##cdr _e159904159919_))) - (if (gx#stx-pair? _tl159906159924_) - (let ((_e159907159927_ + (if (gx#stx-pair? _e161055161072_) + (let ((_e161065161080_ + (gx#syntax-e _e161055161072_))) + (let ((_hd161066161083_ + (##car _e161065161080_)) + (_tl161067161085_ + (##cdr _e161065161080_))) + (if (gx#stx-pair? _tl161067161085_) + (let ((_e161068161088_ (gx#syntax-e - _tl159906159924_))) - (let ((_hd159908159930_ - (##car _e159907159927_)) - (_tl159909159932_ - (##cdr _e159907159927_))) - (let* ((_path159935_ - _hd159908159930_) - (_specs159937_ - _tl159909159932_)) + _tl161067161085_))) + (let ((_hd161069161091_ + (##car _e161068161088_)) + (_tl161070161093_ + (##cdr _e161068161088_))) + (let* ((_path161096_ + _hd161069161091_) + (_specs161098_ + _tl161070161093_)) (if '#t - (let ((_src-ctx159939_ - (_import-spec-source159823_ - _path159935_)) - (_exports159940_ + (let ((_src-ctx161100_ + (_import-spec-source160984_ + _path161096_)) + (_exports161101_ (make-table)) - (_specs159941_ + (_specs161102_ (gx#syntax->list - _specs159937_))) + _specs161098_))) (for-each - (lambda (_out159943_) + (lambda (_out161104_) (table-set! - _exports159940_ + _exports161101_ (cons (##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _out159943_ + _out161104_ '3 gx#module-export::t '#f) (##unchecked-structure-ref - _out159943_ + _out161104_ '4 gx#module-export::t '#f)) - _out159943_)) + _out161104_)) (##unchecked-structure-ref - _src-ctx159939_ + _src-ctx161100_ '9 gx#module-context::t '#f)) - (_K159891_ - _rest159892_ - (foldl1 (lambda (_spec159945_ _r159946_) - (let* ((_e159947159963_ _spec159945_) - (_E159949159967_ + (_K161052_ + _rest161053_ + (foldl1 (lambda (_spec161106_ _r161107_) + (let* ((_e161108161124_ _spec161106_) + (_E161110161128_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e159947159963_))) - (_E159948160021_ + _e161108161124_))) + (_E161109161182_ (lambda () - (if (gx#stx-pair? _e159947159963_) - (let ((_e159950159971_ - (gx#syntax-e _e159947159963_))) - (let ((_hd159951159974_ - (##car _e159950159971_)) - (_tl159952159976_ - (##cdr _e159950159971_))) - (let ((_phi159979_ - _hd159951159974_)) + (if (gx#stx-pair? _e161108161124_) + (let ((_e161111161132_ + (gx#syntax-e _e161108161124_))) + (let ((_hd161112161135_ + (##car _e161111161132_)) + (_tl161113161137_ + (##cdr _e161111161132_))) + (let ((_phi161140_ + _hd161112161135_)) (if (gx#stx-pair? - _tl159952159976_) - (let ((_e159953159981_ + _tl161113161137_) + (let ((_e161114161142_ (gx#syntax-e - _tl159952159976_))) - (let ((_hd159954159984_ - (##car _e159953159981_)) - (_tl159955159986_ - (##cdr _e159953159981_))) - (let ((_name159989_ - _hd159954159984_)) + _tl161113161137_))) + (let ((_hd161115161145_ + (##car _e161114161142_)) + (_tl161116161147_ + (##cdr _e161114161142_))) + (let ((_name161150_ + _hd161115161145_)) (if (gx#stx-pair? - _tl159955159986_) - (let ((_e159956159991_ + _tl161116161147_) + (let ((_e161117161152_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl159955159986_))) - (let ((_hd159957159994_ (##car _e159956159991_)) - (_tl159958159996_ (##cdr _e159956159991_))) - (let ((_src-phi159999_ _hd159957159994_)) - (if (gx#stx-pair? _tl159958159996_) - (let ((_e159959160001_ - (gx#syntax-e _tl159958159996_))) - (let ((_hd159960160004_ (##car _e159959160001_)) - (_tl159961160006_ - (##cdr _e159959160001_))) - (let ((_src-name160009_ _hd159960160004_)) - (if (gx#stx-null? _tl159961160006_) + (gx#syntax-e _tl161116161147_))) + (let ((_hd161118161155_ (##car _e161117161152_)) + (_tl161119161157_ (##cdr _e161117161152_))) + (let ((_src-phi161160_ _hd161118161155_)) + (if (gx#stx-pair? _tl161119161157_) + (let ((_e161120161162_ + (gx#syntax-e _tl161119161157_))) + (let ((_hd161121161165_ (##car _e161120161162_)) + (_tl161122161167_ + (##cdr _e161120161162_))) + (let ((_src-name161170_ _hd161121161165_)) + (if (gx#stx-null? _tl161122161167_) (if (and (gx#stx-fixnum? - _src-phi159999_) + _src-phi161160_) (gx#identifier? - _src-name160009_) - (gx#stx-fixnum? _phi159979_) - (gx#identifier? _name159989_)) - (let ((_src-phi160011_ - (gx#stx-e _src-phi159999_)) - (_src-name160012_ + _src-name161170_) + (gx#stx-fixnum? _phi161140_) + (gx#identifier? _name161150_)) + (let ((_src-phi161172_ + (gx#stx-e _src-phi161160_)) + (_src-name161173_ (gx#core-identifier-key - _src-name160009_)) - (_phi160013_ - (gx#stx-e _phi159979_)) - (_name160014_ + _src-name161170_)) + (_phi161174_ + (gx#stx-e _phi161140_)) + (_name161175_ (gx#core-identifier-key - _name159989_))) - (let ((_$e160016_ + _name161150_))) + (let ((_$e161177_ (table-ref - _exports159940_ - (cons _src-phi160011_ - _src-name160012_) + _exports161101_ + (cons _src-phi161172_ + _src-name161173_) '#f))) - (if _$e160016_ - ((lambda (_out160019_) + (if _$e161177_ + ((lambda (_out161180_) (cons (gx#core-module-export->import__% - _out160019_ - _name160014_ - (fx- _phi160013_ + _out161180_ + _name161175_ + (fx- _phi161174_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _src-phi160011_)) - _r159946_)) + _src-phi161172_)) + _r161107_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _$e160016_) + _$e161177_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _stx159815_ - _hd159890_)))) - (_E159949159967_)) - (_E159949159967_))))) - (_E159949159967_))))) - (_E159949159967_))))) + _stx160976_ + _hd161051_)))) + (_E161110161128_)) + (_E161110161128_))))) + (_E161110161128_))))) + (_E161110161128_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E159949159967_))))) - (_E159949159967_))))) - (_E159948160021_))) - _r159893_ - _specs159941_))) + (_E161110161128_))))) + (_E161110161128_))))) + (_E161109161182_))) + _r161054_ + _specs161102_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E159903159915_))))) - (_E159903159915_)))) - (_E159903159915_)))) - (_E159895160047_ + (_E161064161076_))))) + (_E161064161076_)))) + (_E161064161076_)))) + (_E161056161208_ (lambda () - (if (gx#stx-pair? _e159894159911_) - (let ((_e159897160029_ - (gx#syntax-e _e159894159911_))) - (let ((_hd159898160032_ - (##car _e159897160029_)) - (_tl159899160034_ - (##cdr _e159897160029_))) - (if (gx#stx-pair? _tl159899160034_) - (let ((_e159900160037_ + (if (gx#stx-pair? _e161055161072_) + (let ((_e161058161190_ + (gx#syntax-e _e161055161072_))) + (let ((_hd161059161193_ + (##car _e161058161190_)) + (_tl161060161195_ + (##cdr _e161058161190_))) + (if (gx#stx-pair? _tl161060161195_) + (let ((_e161061161198_ (gx#syntax-e - _tl159899160034_))) - (let ((_hd159901160040_ - (##car _e159900160037_)) - (_tl159902160042_ - (##cdr _e159900160037_))) - (let ((_path160045_ - _hd159901160040_)) + _tl161060161195_))) + (let ((_hd161062161201_ + (##car _e161061161198_)) + (_tl161063161203_ + (##cdr _e161061161198_))) + (let ((_path161206_ + _hd161062161201_)) (if (gx#stx-null? - _tl159902160042_) + _tl161063161203_) (if '#t - (_K159891_ - _rest159892_ - (cons (_import-spec-source159823_ - _path160045_) - _r159893_)) - (_E159896160025_)) - (_E159896160025_))))) - (_E159896160025_)))) - (_E159896160025_))))) - (_E159895160047_)))) - (_import-spec-source159823_ - (lambda (_spath159888_) - (gx#core-import-nested-module _spath159888_ _stx159815_))) - (_import!159824_ - (lambda (_rbody159837_) - (letrec* ((_current-ctx159839_ + (_K161052_ + _rest161053_ + (cons (_import-spec-source160984_ + _path161206_) + _r161054_)) + (_E161057161186_)) + (_E161057161186_))))) + (_E161057161186_)))) + (_E161057161186_))))) + (_E161056161208_)))) + (_import-spec-source160984_ + (lambda (_spath161049_) + (gx#core-import-nested-module _spath161049_ _stx160976_))) + (_import!160985_ + (lambda (_rbody160998_) + (letrec* ((_current-ctx161000_ (gx#current-expander-context)) - (_deps159840_ (make-table 'test: eq?)) - (_bind!159841_ - (lambda (_hd159886_) + (_deps161001_ (make-table 'test: eq?)) + (_bind!161002_ + (lambda (_hd161047_) (gx#core-bind-import!__1 - _hd159886_ - _current-ctx159839_)))) - (let _lp159843_ ((_rest159845_ _rbody159837_) - (_body159846_ '())) - (let* ((_rest159847159855_ _rest159845_) - (_else159849159865_ + _hd161047_ + _current-ctx161000_)))) + (let _lp161004_ ((_rest161006_ _rbody160998_) + (_body161007_ '())) + (let* ((_rest161008161016_ _rest161006_) + (_else161010161026_ (lambda () (if (##structure-instance-of? - _current-ctx159839_ + _current-ctx161000_ 'gx#module-context::t) (##unchecked-structure-set! - _current-ctx159839_ + _current-ctx161000_ (foldl1 cons (##unchecked-structure-ref - _current-ctx159839_ + _current-ctx161000_ '8 gx#module-context::t '#f) - _body159846_) + _body161007_) '8 gx#module-context::t '#f) '#!void) (table-for-each - (lambda (_ctx159863_ _g167261_) - (gx#eval-module _ctx159863_)) - _deps159840_) - _body159846_)) - (_K159851159874_ - (lambda (_rest159868_ _hd159869_) + (lambda (_ctx161024_ _g168422_) + (gx#eval-module _ctx161024_)) + _deps161001_) + _body161007_)) + (_K161012161035_ + (lambda (_rest161029_ _hd161030_) (if (##structure-direct-instance-of? - _hd159869_ + _hd161030_ 'gx#module-import::t) (begin - (_bind!159841_ _hd159869_) + (_bind!161002_ _hd161030_) (if (and (fxpositive? (##unchecked-structure-ref - _hd159869_ + _hd161030_ '3 gx#module-import::t '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _hd159869_ + _hd161030_ '1 gx#module-import::t '#f) @@ -3060,10 +3061,10 @@ gx#module-export::t '#f))) (table-set! - _deps159840_ + _deps161001_ (##unchecked-structure-ref (##unchecked-structure-ref - _hd159869_ + _hd161030_ '1 gx#module-import::t '#f) @@ -3073,161 +3074,161 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _hd159869_ + _hd161030_ 'gx#import-set::t) (begin (for-each - _bind!159841_ + _bind!161002_ (##unchecked-structure-ref - _hd159869_ + _hd161030_ '3 gx#import-set::t '#f)) (if (fxpositive? (##unchecked-structure-ref - _hd159869_ + _hd161030_ '2 gx#import-set::t '#f)) (table-set! - _deps159840_ + _deps161001_ (##unchecked-structure-ref - _hd159869_ + _hd161030_ '1 gx#import-set::t '#f) '#t) '#!void)) - (let ((_$e159871_ + (let ((_$e161032_ (##structure-instance-of? - _hd159869_ + _hd161030_ 'gx#module-context::t))) - (if _$e159871_ - _$e159871_ + (if _$e161032_ + _$e161032_ (gx#raise-syntax-error '#f '"Unexpected import" - _stx159815_ - _hd159869_))))) - (_lp159843_ - _rest159868_ - (cons _hd159869_ _body159846_))))) - (if (##pair? _rest159847159855_) - (let ((_hd159852159877_ - (##car _rest159847159855_)) - (_tl159853159879_ - (##cdr _rest159847159855_))) - (let* ((_hd159882_ _hd159852159877_) - (_rest159884_ _tl159853159879_)) - (_K159851159874_ _rest159884_ _hd159882_))) - (_else159849159865_))))))) - (_expanded-import?159825_ - (lambda (_e159829_) - (let ((_$e159831_ + _stx160976_ + _hd161030_))))) + (_lp161004_ + _rest161029_ + (cons _hd161030_ _body161007_))))) + (if (##pair? _rest161008161016_) + (let ((_hd161013161038_ + (##car _rest161008161016_)) + (_tl161014161040_ + (##cdr _rest161008161016_))) + (let* ((_hd161043_ _hd161013161038_) + (_rest161045_ _tl161014161040_)) + (_K161012161035_ _rest161045_ _hd161043_))) + (_else161010161026_))))))) + (_expanded-import?160986_ + (lambda (_e160990_) + (let ((_$e160992_ (##structure-direct-instance-of? - _e159829_ + _e160990_ 'gx#import-set::t))) - (if _$e159831_ - _$e159831_ - (let ((_$e159834_ + (if _$e160992_ + _$e160992_ + (let ((_$e160995_ (##structure-direct-instance-of? - _e159829_ + _e160990_ 'gx#module-import::t))) - (if _$e159834_ - _$e159834_ + (if _$e160995_ + _$e160995_ (##structure-instance-of? - _e159829_ + _e160990_ 'gx#module-context::t)))))))) - (let ((_rbody159827_ + (let ((_rbody160988_ (gx#core-expand-import/export - _stx159815_ - _expanded-import?159825_ + _stx160976_ + _expanded-import?160986_ 'apply-import-expander gx#current-import-expander-phi - _expand1159818_))) - (if _internal-expand?159816_ - (reverse _rbody159827_) + _expand1160979_))) + (if _internal-expand?160977_ + (reverse _rbody160988_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_import!159824_ _rbody159827_)) - (gx#stx-source _stx159815_))))))) + (gx#core-cons '%#import (_import!160985_ _rbody160988_)) + (gx#stx-source _stx160976_))))))) (define gx#core-expand-import%__0 - (lambda (_stx160141_) - (let ((_internal-expand?160143_ '#f)) - (gx#core-expand-import%__% _stx160141_ _internal-expand?160143_)))) + (lambda (_stx161302_) + (let ((_internal-expand?161304_ '#f)) + (gx#core-expand-import%__% _stx161302_ _internal-expand?161304_)))) (define gx#core-expand-import% - (lambda _g167263_ - (let ((_g167262_ (##length _g167263_))) - (cond ((##fx= _g167262_ 1) - (apply (lambda (_stx160141_) - (gx#core-expand-import%__0 _stx160141_)) - _g167263_)) - ((##fx= _g167262_ 2) - (apply (lambda (_stx160145_ _internal-expand?160146_) + (lambda _g168424_ + (let ((_g168423_ (##length _g168424_))) + (cond ((##fx= _g168423_ 1) + (apply (lambda (_stx161302_) + (gx#core-expand-import%__0 _stx161302_)) + _g168424_)) + ((##fx= _g168423_ 2) + (apply (lambda (_stx161306_ _internal-expand?161307_) (gx#core-expand-import%__% - _stx160145_ - _internal-expand?160146_)) - _g167263_)) + _stx161306_ + _internal-expand?161307_)) + _g168424_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g167263_)))))) + _g168424_)))))) (define gx#core-import-nested-module - (lambda (_spath159742_ _where159743_) - (let* ((_e159744159751_ _spath159742_) - (_E159746159755_ + (lambda (_spath160903_ _where160904_) + (let* ((_e160905160912_ _spath160903_) + (_E160907160916_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e159744159751_))) - (_E159745159810_ + _e160905160912_))) + (_E160906160971_ (lambda () - (if (gx#stx-pair? _e159744159751_) - (let ((_e159747159759_ (gx#syntax-e _e159744159751_))) - (let ((_hd159748159762_ (##car _e159747159759_)) - (_tl159749159764_ (##cdr _e159747159759_))) - (let* ((_origin159767_ _hd159748159762_) - (_sub159769_ _tl159749159764_)) + (if (gx#stx-pair? _e160905160912_) + (let ((_e160908160920_ (gx#syntax-e _e160905160912_))) + (let ((_hd160909160923_ (##car _e160908160920_)) + (_tl160910160925_ (##cdr _e160908160920_))) + (let* ((_origin160928_ _hd160909160923_) + (_sub160930_ _tl160910160925_)) (if '#t - (let ((_origin-ctx159771_ - (if (gx#stx-false? _origin159767_) + (let ((_origin-ctx160932_ + (if (gx#stx-false? _origin160928_) (gx#current-expander-context) (gx#import-module__0 - _origin159767_)))) - (let _lp159773_ ((_rest159775_ _sub159769_) - (_ctx159776_ - _origin-ctx159771_)) - (let* ((_e159777159784_ _rest159775_) - (_E159779159788_ - (lambda () _ctx159776_)) - (_E159778159806_ + _origin160928_)))) + (let _lp160934_ ((_rest160936_ _sub160930_) + (_ctx160937_ + _origin-ctx160932_)) + (let* ((_e160938160945_ _rest160936_) + (_E160940160949_ + (lambda () _ctx160937_)) + (_E160939160967_ (lambda () (if (gx#stx-pair? - _e159777159784_) - (let ((_e159780159792_ + _e160938160945_) + (let ((_e160941160953_ (gx#syntax-e - _e159777159784_))) - (let ((_hd159781159795_ - (##car _e159780159792_)) - (_tl159782159797_ - (##cdr _e159780159792_))) - (let* ((_id159800_ - _hd159781159795_) - (_rest159802_ - _tl159782159797_)) + _e160938160945_))) + (let ((_hd160942160956_ + (##car _e160941160953_)) + (_tl160943160958_ + (##cdr _e160941160953_))) + (let* ((_id160961_ + _hd160942160956_) + (_rest160963_ + _tl160943160958_)) (if '#t - (let ((_bind159804_ + (let ((_bind160965_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#resolve-identifier__% - _id159800_ + _id160961_ '0 - _ctx159776_))) + _ctx160937_))) (if (and (##structure-direct-instance-of? - _bind159804_ + _bind160965_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _bind159804_ + _bind160965_ '4 gx#syntax-binding::t '#f) @@ -3236,833 +3237,833 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _where159743_ - _spath159742_ - _id159800_)) - (_lp159773_ - _rest159802_ + _where160904_ + _spath160903_ + _id160961_)) + (_lp160934_ + _rest160963_ (##unchecked-structure-ref - _bind159804_ + _bind160965_ '4 gx#syntax-binding::t '#f))) - (_E159779159788_))))) + (_E160940160949_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E159779159788_))))) - (_E159778159806_)))) - (_E159746159755_))))) - (_E159746159755_))))) - (_E159745159810_)))) + (_E160940160949_))))) + (_E160939160967_)))) + (_E160907160916_))))) + (_E160907160916_))))) + (_E160906160971_)))) (define gx#core-expand-import-source - (lambda (_hd159740_) + (lambda (_hd160901_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _hd159740_ '())) + (cons 'import-internal% (cons _hd160901_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_stx159248_ _internal-expand?159249_) - (letrec* ((_make-export__167192167193_ - (lambda (_bind159688_ _phi159689_ _ctx159690_ _name159691_) - (let* ((_key159693_ + (lambda (_stx160409_ _internal-expand?160410_) + (letrec* ((_make-export__168353168354_ + (lambda (_bind160849_ _phi160850_ _ctx160851_ _name160852_) + (let* ((_key160854_ (##unchecked-structure-ref - _bind159688_ + _bind160849_ '2 gx#binding::t '#f)) - (_export-key159695_ - (if _name159691_ - (gx#core-identifier-key _name159691_) - _key159693_))) + (_export-key160856_ + (if _name160852_ + (gx#core-identifier-key _name160852_) + _key160854_))) (##structure gx#module-export::t - _ctx159690_ - _key159693_ - _phi159689_ - _export-key159695_ - (let ((_$e159698_ + _ctx160851_ + _key160854_ + _phi160850_ + _export-key160856_ + (let ((_$e160859_ (##structure-instance-of? - _bind159688_ + _bind160849_ 'gx#extern-binding::t))) - (if _$e159698_ - _$e159698_ + (if _$e160859_ + _$e160859_ (##structure-direct-instance-of? - _bind159688_ + _bind160849_ 'gx#import-binding::t))))))) - (_make-export__0__167194167197_ - (lambda (_bind159704_) - (let* ((_phi159706_ (gx#current-export-expander-phi)) - (_ctx159708_ (gx#current-expander-context)) - (_name159710_ '#f)) - (_make-export__167192167193_ - _bind159704_ - _phi159706_ - _ctx159708_ - _name159710_)))) - (_make-export__1__167195167198_ - (lambda (_bind159712_ _phi159713_) - (let* ((_ctx159715_ (gx#current-expander-context)) - (_name159717_ '#f)) - (_make-export__167192167193_ - _bind159712_ - _phi159713_ - _ctx159715_ - _name159717_)))) - (_make-export__2__167196167199_ - (lambda (_bind159719_ _phi159720_ _ctx159721_) - (let ((_name159723_ '#f)) - (_make-export__167192167193_ - _bind159719_ - _phi159720_ - _ctx159721_ - _name159723_)))) - (_make-export159251_ - (lambda _g167265_ - (let ((_g167264_ (##length _g167265_))) - (cond ((##fx= _g167264_ 1) - (apply (lambda (_bind159704_) - (_make-export__0__167194167197_ - _bind159704_)) - _g167265_)) - ((##fx= _g167264_ 2) - (apply (lambda (_bind159712_ _phi159713_) - (_make-export__1__167195167198_ - _bind159712_ - _phi159713_)) - _g167265_)) - ((##fx= _g167264_ 3) - (apply (lambda (_bind159719_ - _phi159720_ - _ctx159721_) - (_make-export__2__167196167199_ - _bind159719_ - _phi159720_ - _ctx159721_)) - _g167265_)) - ((##fx= _g167264_ 4) - (apply (lambda (_bind159725_ - _phi159726_ - _ctx159727_ - _name159728_) - (_make-export__167192167193_ - _bind159725_ - _phi159726_ - _ctx159727_ - _name159728_)) - _g167265_)) + (_make-export__0__168355168358_ + (lambda (_bind160865_) + (let* ((_phi160867_ (gx#current-export-expander-phi)) + (_ctx160869_ (gx#current-expander-context)) + (_name160871_ '#f)) + (_make-export__168353168354_ + _bind160865_ + _phi160867_ + _ctx160869_ + _name160871_)))) + (_make-export__1__168356168359_ + (lambda (_bind160873_ _phi160874_) + (let* ((_ctx160876_ (gx#current-expander-context)) + (_name160878_ '#f)) + (_make-export__168353168354_ + _bind160873_ + _phi160874_ + _ctx160876_ + _name160878_)))) + (_make-export__2__168357168360_ + (lambda (_bind160880_ _phi160881_ _ctx160882_) + (let ((_name160884_ '#f)) + (_make-export__168353168354_ + _bind160880_ + _phi160881_ + _ctx160882_ + _name160884_)))) + (_make-export160412_ + (lambda _g168426_ + (let ((_g168425_ (##length _g168426_))) + (cond ((##fx= _g168425_ 1) + (apply (lambda (_bind160865_) + (_make-export__0__168355168358_ + _bind160865_)) + _g168426_)) + ((##fx= _g168425_ 2) + (apply (lambda (_bind160873_ _phi160874_) + (_make-export__1__168356168359_ + _bind160873_ + _phi160874_)) + _g168426_)) + ((##fx= _g168425_ 3) + (apply (lambda (_bind160880_ + _phi160881_ + _ctx160882_) + (_make-export__2__168357168360_ + _bind160880_ + _phi160881_ + _ctx160882_)) + _g168426_)) + ((##fx= _g168425_ 4) + (apply (lambda (_bind160886_ + _phi160887_ + _ctx160888_ + _name160889_) + (_make-export__168353168354_ + _bind160886_ + _phi160887_ + _ctx160888_ + _name160889_)) + _g168426_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g167265_)))))) - (_expand1159252_ - (lambda (_hd159401_ _K159402_ _rest159403_ _r159404_) - (let* ((_e159405159437_ _hd159401_) - (_E159432159441_ + _g168426_)))))) + (_expand1160413_ + (lambda (_hd160562_ _K160563_ _rest160564_ _r160565_) + (let* ((_e160566160598_ _hd160562_) + (_E160593160602_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _stx159248_ - _hd159401_))) - (_E159422159520_ + _stx160409_ + _hd160562_))) + (_E160583160681_ (lambda () - (if (gx#stx-pair? _e159405159437_) - (let ((_e159433159445_ - (gx#syntax-e _e159405159437_))) - (let ((_hd159434159448_ - (##car _e159433159445_)) - (_tl159435159450_ - (##cdr _e159433159445_))) - (if (eq? (gx#stx-e _hd159434159448_) + (if (gx#stx-pair? _e160566160598_) + (let ((_e160594160606_ + (gx#syntax-e _e160566160598_))) + (let ((_hd160595160609_ + (##car _e160594160606_)) + (_tl160596160611_ + (##cdr _e160594160606_))) + (if (eq? (gx#stx-e _hd160595160609_) 'import:) - (let ((_in159453_ _tl159435159450_)) - (if (gx#stx-list? _in159453_) - (let _lp159455_ ((_in-rest159457_ + (let ((_in160614_ _tl160596160611_)) + (if (gx#stx-list? _in160614_) + (let _lp160616_ ((_in-rest160618_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _in159453_) - (_r159458_ _r159404_)) + _in160614_) + (_r160619_ _r160565_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e159459159466_ - _in-rest159457_) - (_E159461159470_ + (let* ((_e160620160627_ + _in-rest160618_) + (_E160622160631_ (lambda () - (_K159402_ - _rest159403_ - _r159458_))) - (_E159460159516_ + (_K160563_ + _rest160564_ + _r160619_))) + (_E160621160677_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e159459159466_) - (let ((_e159462159474_ (gx#syntax-e _e159459159466_))) - (let ((_hd159463159477_ (##car _e159462159474_)) - (_tl159464159479_ (##cdr _e159462159474_))) - (let* ((_hd159482_ _hd159463159477_) - (_in-rest159484_ _tl159464159479_)) + _e160620160627_) + (let ((_e160623160635_ (gx#syntax-e _e160620160627_))) + (let ((_hd160624160638_ (##car _e160623160635_)) + (_tl160625160640_ (##cdr _e160623160635_))) + (let* ((_hd160643_ _hd160624160638_) + (_in-rest160645_ _tl160625160640_)) (if '#t - (let ((_src159514_ + (let ((_src160675_ (if (gx#core-bound-module? - _hd159482_) - (gx#syntax-local-e__0 _hd159482_) + _hd160643_) + (gx#syntax-local-e__0 _hd160643_) (if (gx#core-library-module-path? - _hd159482_) + _hd160643_) (gx#import-module__0 (gx#core-resolve-library-module-path - _hd159482_)) + _hd160643_)) (if (gx#core-library-relative-module-path? - _hd159482_) + _hd160643_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _hd159482_)) + _hd160643_)) (if (gx#stx-string? - _hd159482_) + _hd160643_) (gx#import-module__0 (gx#core-resolve-module-path__% - _hd159482_ + _hd160643_ (gx#stx-source - _stx159248_))) - (let* ((_e159485159492_ + _stx160409_))) + (let* ((_e160646160653_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd159482_) - (_E159487159496_ + _hd160643_) + (_E160648160657_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _stx159248_ - _hd159482_))) - (_E159486159510_ + _stx160409_ + _hd160643_))) + (_E160647160671_ (lambda () - (if (gx#stx-pair? _e159485159492_) - (let ((_e159488159500_ - (gx#syntax-e _e159485159492_))) - (let ((_hd159489159503_ - (##car _e159488159500_)) - (_tl159490159505_ - (##cdr _e159488159500_))) - (if (eq? (gx#stx-e _hd159489159503_) 'in:) - (let ((_spath159508_ _tl159490159505_)) + (if (gx#stx-pair? _e160646160653_) + (let ((_e160649160661_ + (gx#syntax-e _e160646160653_))) + (let ((_hd160650160664_ + (##car _e160649160661_)) + (_tl160651160666_ + (##cdr _e160649160661_))) + (if (eq? (gx#stx-e _hd160650160664_) 'in:) + (let ((_spath160669_ _tl160651160666_)) (if '#t (gx#core-import-nested-module - _spath159508_ - _stx159248_) - (_E159487159496_))) - (_E159487159496_)))) - (_E159487159496_))))) - (_E159486159510_)))))))) + _spath160669_ + _stx160409_) + (_E160648160657_))) + (_E160648160657_)))) + (_E160648160657_))))) + (_E160647160671_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_lp159455_ - _in-rest159484_ - (_export-imports159253_ - _src159514_ - _r159458_))) - (_E159461159470_))))) - (_E159461159470_))))) + (_lp160616_ + _in-rest160645_ + (_export-imports160414_ + _src160675_ + _r160619_))) + (_E160622160631_))))) + (_E160622160631_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E159460159516_))) - (_E159432159441_))) - (_E159432159441_)))) - (_E159432159441_)))) - (_E159409159559_ + (_E160621160677_))) + (_E160593160602_))) + (_E160593160602_)))) + (_E160593160602_)))) + (_E160570160720_ (lambda () - (if (gx#stx-pair? _e159405159437_) - (let ((_e159423159524_ - (gx#syntax-e _e159405159437_))) - (let ((_hd159424159527_ - (##car _e159423159524_)) - (_tl159425159529_ - (##cdr _e159423159524_))) - (if (eq? (gx#stx-e _hd159424159527_) + (if (gx#stx-pair? _e160566160598_) + (let ((_e160584160685_ + (gx#syntax-e _e160566160598_))) + (let ((_hd160585160688_ + (##car _e160584160685_)) + (_tl160586160690_ + (##cdr _e160584160685_))) + (if (eq? (gx#stx-e _hd160585160688_) 'rename:) - (if (gx#stx-pair? _tl159425159529_) - (let ((_e159426159532_ + (if (gx#stx-pair? _tl160586160690_) + (let ((_e160587160693_ (gx#syntax-e - _tl159425159529_))) - (let ((_hd159427159535_ - (##car _e159426159532_)) - (_tl159428159537_ - (##cdr _e159426159532_))) - (let ((_id159540_ - _hd159427159535_)) + _tl160586160690_))) + (let ((_hd160588160696_ + (##car _e160587160693_)) + (_tl160589160698_ + (##cdr _e160587160693_))) + (let ((_id160701_ + _hd160588160696_)) (if (gx#stx-pair? - _tl159428159537_) - (let ((_e159429159542_ + _tl160589160698_) + (let ((_e160590160703_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl159428159537_))) - (let ((_hd159430159545_ (##car _e159429159542_)) - (_tl159431159547_ (##cdr _e159429159542_))) - (let ((_name159550_ _hd159430159545_)) - (if (gx#stx-null? _tl159431159547_) + _tl160589160698_))) + (let ((_hd160591160706_ (##car _e160590160703_)) + (_tl160592160708_ (##cdr _e160590160703_))) + (let ((_name160711_ _hd160591160706_)) + (if (gx#stx-null? _tl160592160708_) (if '#t - (let* ((_phi159552_ + (let* ((_phi160713_ (gx#current-export-expander-phi)) - (_$e159554_ + (_$e160715_ (gx#core-resolve-identifier__1 - _id159540_ - _phi159552_))) - (if _$e159554_ - ((lambda (_bind159557_) - (_K159402_ - _rest159403_ - (cons (_make-export__167192167193_ - _bind159557_ - _phi159552_ + _id160701_ + _phi160713_))) + (if _$e160715_ + ((lambda (_bind160718_) + (_K160563_ + _rest160564_ + (cons (_make-export__168353168354_ + _bind160718_ + _phi160713_ (gx#current-expander-context) - _name159550_) - _r159404_))) - _$e159554_) + _name160711_) + _r160565_))) + _$e160715_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx159248_ - _hd159401_ - _id159540_))) - (_E159422159520_)) - (_E159422159520_))))) - (_E159422159520_))))) + _stx160409_ + _hd160562_ + _id160701_))) + (_E160583160681_)) + (_E160583160681_))))) + (_E160583160681_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E159422159520_)) - (_E159422159520_)))) - (_E159422159520_)))) - (_E159408159608_ + (_E160583160681_)) + (_E160583160681_)))) + (_E160583160681_)))) + (_E160569160769_ (lambda () - (if (gx#stx-pair? _e159405159437_) - (let ((_e159410159563_ - (gx#syntax-e _e159405159437_))) - (let ((_hd159411159566_ - (##car _e159410159563_)) - (_tl159412159568_ - (##cdr _e159410159563_))) - (if (eq? (gx#stx-e _hd159411159566_) + (if (gx#stx-pair? _e160566160598_) + (let ((_e160571160724_ + (gx#syntax-e _e160566160598_))) + (let ((_hd160572160727_ + (##car _e160571160724_)) + (_tl160573160729_ + (##cdr _e160571160724_))) + (if (eq? (gx#stx-e _hd160572160727_) 'spec:) - (if (gx#stx-pair? _tl159412159568_) - (let ((_e159413159571_ + (if (gx#stx-pair? _tl160573160729_) + (let ((_e160574160732_ (gx#syntax-e - _tl159412159568_))) - (let ((_hd159414159574_ - (##car _e159413159571_)) - (_tl159415159576_ - (##cdr _e159413159571_))) - (let ((_phi159579_ - _hd159414159574_)) + _tl160573160729_))) + (let ((_hd160575160735_ + (##car _e160574160732_)) + (_tl160576160737_ + (##cdr _e160574160732_))) + (let ((_phi160740_ + _hd160575160735_)) (if (gx#stx-pair? - _tl159415159576_) - (let ((_e159416159581_ + _tl160576160737_) + (let ((_e160577160742_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tl159415159576_))) - (let ((_hd159417159584_ (##car _e159416159581_)) - (_tl159418159586_ (##cdr _e159416159581_))) - (let ((_id159589_ _hd159417159584_)) - (if (gx#stx-pair? _tl159418159586_) - (let ((_e159419159591_ - (gx#syntax-e _tl159418159586_))) - (let ((_hd159420159594_ (##car _e159419159591_)) - (_tl159421159596_ (##cdr _e159419159591_))) - (let ((_name159599_ _hd159420159594_)) - (if (gx#stx-null? _tl159421159596_) - (if (and (gx#stx-fixnum? _phi159579_) - (gx#identifier? _id159589_) - (gx#identifier? _name159599_)) - (let* ((_phi159601_ - (gx#stx-e _phi159579_)) - (_$e159603_ + _tl160576160737_))) + (let ((_hd160578160745_ (##car _e160577160742_)) + (_tl160579160747_ (##cdr _e160577160742_))) + (let ((_id160750_ _hd160578160745_)) + (if (gx#stx-pair? _tl160579160747_) + (let ((_e160580160752_ + (gx#syntax-e _tl160579160747_))) + (let ((_hd160581160755_ (##car _e160580160752_)) + (_tl160582160757_ (##cdr _e160580160752_))) + (let ((_name160760_ _hd160581160755_)) + (if (gx#stx-null? _tl160582160757_) + (if (and (gx#stx-fixnum? _phi160740_) + (gx#identifier? _id160750_) + (gx#identifier? _name160760_)) + (let* ((_phi160762_ + (gx#stx-e _phi160740_)) + (_$e160764_ (gx#core-resolve-identifier__1 - _id159589_ - _phi159601_))) - (if _$e159603_ - ((lambda (_bind159606_) - (_K159402_ - _rest159403_ - (cons (_make-export__167192167193_ - _bind159606_ - _phi159601_ + _id160750_ + _phi160762_))) + (if _$e160764_ + ((lambda (_bind160767_) + (_K160563_ + _rest160564_ + (cons (_make-export__168353168354_ + _bind160767_ + _phi160762_ (gx#current-expander-context) - _name159599_) - _r159404_))) - _$e159603_) + _name160760_) + _r160565_))) + _$e160764_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx159248_ - _hd159401_ - _id159589_))) - (_E159409159559_)) - (_E159409159559_))))) - (_E159409159559_))))) - (_E159409159559_))))) + _stx160409_ + _hd160562_ + _id160750_))) + (_E160570160720_)) + (_E160570160720_))))) + (_E160570160720_))))) + (_E160570160720_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E159409159559_)) - (_E159409159559_)))) - (_E159409159559_)))) - (_E159407159619_ + (_E160570160720_)) + (_E160570160720_)))) + (_E160570160720_)))) + (_E160568160780_ (lambda () - (let ((_id159612_ _e159405159437_)) - (if (gx#identifier? _id159612_) - (let ((_$e159614_ + (let ((_id160773_ _e160566160598_)) + (if (gx#identifier? _id160773_) + (let ((_$e160775_ (gx#core-resolve-identifier__1 - _id159612_ + _id160773_ (gx#current-export-expander-phi)))) - (if _$e159614_ - ((lambda (_bind159617_) - (_K159402_ - _rest159403_ - (cons (_make-export__0__167194167197_ - _bind159617_) - _r159404_))) - _$e159614_) + (if _$e160775_ + ((lambda (_bind160778_) + (_K160563_ + _rest160564_ + (cons (_make-export__0__168355168358_ + _bind160778_) + _r160565_))) + _$e160775_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _stx159248_ - _hd159401_))) - (_E159408159608_))))) - (_E159406159683_ + _stx160409_ + _hd160562_))) + (_E160569160769_))))) + (_E160567160844_ (lambda () - (if (eq? (gx#stx-e _e159405159437_) '#t) + (if (eq? (gx#stx-e _e160566160598_) '#t) (if '#t - (let* ((_current-ctx159623_ + (let* ((_current-ctx160784_ (gx#current-expander-context)) - (_current-phi159625_ + (_current-phi160786_ (gx#current-export-expander-phi)) - (_phi-ctx159627_ + (_phi-ctx160788_ (gx#core-context-shift - _current-ctx159623_ - _current-phi159625_)) - (_phi-bind159629_ + _current-ctx160784_ + _current-phi160786_)) + (_phi-bind160790_ (table->list (##unchecked-structure-ref - _phi-ctx159627_ + _phi-ctx160788_ '2 gx#expander-context::t '#f)))) - (let _lp159632_ ((_bind-rest159634_ - _phi-bind159629_) - (_set159635_ '())) - (let* ((_bind-rest159636159646_ - _bind-rest159634_) - (_else159638159654_ + (let _lp160793_ ((_bind-rest160795_ + _phi-bind160790_) + (_set160796_ '())) + (let* ((_bind-rest160797160807_ + _bind-rest160795_) + (_else160799160815_ (lambda () - (_K159402_ - _rest159403_ + (_K160563_ + _rest160564_ (cons (##structure gx#export-set::t '#f - _current-phi159625_ - _set159635_) - _r159404_)))) - (_K159640159664_ - (lambda (_bind-rest159657_ - _bind159658_ - _key159659_) + _current-phi160786_ + _set160796_) + _r160565_)))) + (_K160801160825_ + (lambda (_bind-rest160818_ + _bind160819_ + _key160820_) (if (or (##structure-direct-instance-of? - _bind159658_ + _bind160819_ 'gx#import-binding::t) (gx#private-feature-binding? - _bind159658_)) - (_lp159632_ - _bind-rest159657_ - _set159635_) - (_lp159632_ - _bind-rest159657_ - (cons (_make-export__2__167196167199_ + _bind160819_)) + (_lp160793_ + _bind-rest160818_ + _set160796_) + (_lp160793_ + _bind-rest160818_ + (cons (_make-export__2__168357168360_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind159658_ - _current-phi159625_ - _current-ctx159623_) - _set159635_)))))) + _bind160819_ + _current-phi160786_ + _current-ctx160784_) + _set160796_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##pair? _bind-rest159636159646_) - (let ((_hd159641159667_ - (##car _bind-rest159636159646_)) - (_tl159642159669_ - (##cdr _bind-rest159636159646_))) - (if (##pair? _hd159641159667_) - (let ((_hd159643159672_ - (##car _hd159641159667_)) - (_tl159644159674_ - (##cdr _hd159641159667_))) - (let* ((_key159677_ + (if (##pair? _bind-rest160797160807_) + (let ((_hd160802160828_ + (##car _bind-rest160797160807_)) + (_tl160803160830_ + (##cdr _bind-rest160797160807_))) + (if (##pair? _hd160802160828_) + (let ((_hd160804160833_ + (##car _hd160802160828_)) + (_tl160805160835_ + (##cdr _hd160802160828_))) + (let* ((_key160838_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd159643159672_) - (_bind159679_ _tl159644159674_) - (_bind-rest159681_ _tl159642159669_)) - (_K159640159664_ - _bind-rest159681_ - _bind159679_ - _key159677_))) - (_else159638159654_))) + _hd160804160833_) + (_bind160840_ _tl160805160835_) + (_bind-rest160842_ _tl160803160830_)) + (_K160801160825_ + _bind-rest160842_ + _bind160840_ + _key160838_))) + (_else160799160815_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_else159638159654_))))) - (_E159407159619_)) - (_E159407159619_))))) - (_E159406159683_)))) - (_export-imports159253_ - (lambda (_src159277_ _r159278_) - (letrec* ((_current-ctx159280_ + (_else160799160815_))))) + (_E160568160780_)) + (_E160568160780_))))) + (_E160567160844_)))) + (_export-imports160414_ + (lambda (_src160438_ _r160439_) + (letrec* ((_current-ctx160441_ (gx#current-expander-context)) - (_current-phi159281_ + (_current-phi160442_ (gx#current-export-expander-phi)) - (_import->export159282_ - (lambda (_in159363_) - (let* ((_in159364159372_ _in159363_) - (_E159366159376_ + (_import->export160443_ + (lambda (_in160524_) + (let* ((_in160525160533_ _in160524_) + (_E160527160537_ (lambda () (error '"No clause matching" - _in159364159372_))) - (_K159367159383_ - (lambda (_phi159379_ - _key159380_ - _out159381_) + _in160525160533_))) + (_K160528160544_ + (lambda (_phi160540_ + _key160541_ + _out160542_) (##structure gx#module-export::t - _current-ctx159280_ - _key159380_ - _phi159379_ - _key159380_ + _current-ctx160441_ + _key160541_ + _phi160540_ + _key160541_ '#t)))) (if (##structure-direct-instance-of? - _in159364159372_ + _in160525160533_ 'gx#module-import::t) - (let* ((_e159368159386_ + (let* ((_e160529160547_ (##unchecked-structure-ref - _in159364159372_ + _in160525160533_ '1 gx#module-import::t '#f)) - (_out159389_ _e159368159386_) - (_e159369159391_ + (_out160550_ _e160529160547_) + (_e160530160552_ (##unchecked-structure-ref - _in159364159372_ + _in160525160533_ '2 gx#module-import::t '#f)) - (_key159394_ _e159369159391_) - (_e159370159396_ + (_key160555_ _e160530160552_) + (_e160531160557_ (##unchecked-structure-ref - _in159364159372_ + _in160525160533_ '3 gx#module-import::t '#f)) - (_phi159399_ _e159370159396_)) - (_K159367159383_ - _phi159399_ - _key159394_ - _out159389_)) - (_E159366159376_))))) - (_fold-e159283_ - (lambda (_in159285_ _r159286_) - (let* ((_in159287159301_ _in159285_) - (_else159290159309_ - (lambda () _r159286_))) - (let ((_K159296159345_ - (lambda (_phi159341_ - _key159342_ - _out159343_) - (if (and (fx= _phi159341_ - _current-phi159281_) - (eq? _src159277_ + (_phi160560_ _e160531160557_)) + (_K160528160544_ + _phi160560_ + _key160555_ + _out160550_)) + (_E160527160537_))))) + (_fold-e160444_ + (lambda (_in160446_ _r160447_) + (let* ((_in160448160462_ _in160446_) + (_else160451160470_ + (lambda () _r160447_))) + (let ((_K160457160506_ + (lambda (_phi160502_ + _key160503_ + _out160504_) + (if (and (fx= _phi160502_ + _current-phi160442_) + (eq? _src160438_ (##unchecked-structure-ref - _out159343_ + _out160504_ '1 gx#module-export::t '#f))) - (cons (_import->export159282_ - _in159285_) - _r159286_) - _r159286_))) - (_K159292159320_ - (lambda (_imports159313_ - _phi159314_ - _ctx159315_) - (if (and (fx= _phi159314_ - _current-phi159281_) - (eq? _src159277_ - _ctx159315_)) - (foldl1 (lambda (_in159317_ + (cons (_import->export160443_ + _in160446_) + _r160447_) + _r160447_))) + (_K160453160481_ + (lambda (_imports160474_ + _phi160475_ + _ctx160476_) + (if (and (fx= _phi160475_ + _current-phi160442_) + (eq? _src160438_ + _ctx160476_)) + (foldl1 (lambda (_in160478_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r159318_) - (cons (_import->export159282_ _in159317_) _r159318_)) - _r159286_ - _imports159313_) + _r160479_) + (cons (_import->export160443_ _in160478_) _r160479_)) + _r160447_ + _imports160474_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _r159286_)))) - (let ((_try-match159289159338_ + _r160447_)))) + (let ((_try-match160450160499_ (lambda () (if (##structure-direct-instance-of? - _in159287159301_ + _in160448160462_ 'gx#import-set::t) - (let* ((_e159293159323_ + (let* ((_e160454160484_ (##unchecked-structure-ref - _in159287159301_ + _in160448160462_ '1 gx#import-set::t '#f)) - (_e159294159328_ + (_e160455160489_ (##unchecked-structure-ref - _in159287159301_ + _in160448160462_ '2 gx#import-set::t '#f)) - (_e159295159333_ + (_e160456160494_ (##unchecked-structure-ref - _in159287159301_ + _in160448160462_ '3 gx#import-set::t '#f))) - (let ((_ctx159326_ - _e159293159323_) - (_phi159331_ - _e159294159328_) - (_imports159336_ - _e159295159333_)) - (_K159292159320_ - _imports159336_ - _phi159331_ - _ctx159326_))) - (_else159290159309_))))) + (let ((_ctx160487_ + _e160454160484_) + (_phi160492_ + _e160455160489_) + (_imports160497_ + _e160456160494_)) + (_K160453160481_ + _imports160497_ + _phi160492_ + _ctx160487_))) + (_else160451160470_))))) (if (##structure-direct-instance-of? - _in159287159301_ + _in160448160462_ 'gx#module-import::t) - (let* ((_e159297159348_ + (let* ((_e160458160509_ (##unchecked-structure-ref - _in159287159301_ + _in160448160462_ '1 gx#module-import::t '#f)) - (_e159298159353_ + (_e160459160514_ (##unchecked-structure-ref - _in159287159301_ + _in160448160462_ '2 gx#module-import::t '#f)) - (_e159299159358_ + (_e160460160519_ (##unchecked-structure-ref - _in159287159301_ + _in160448160462_ '3 gx#module-import::t '#f))) - (let ((_out159351_ - _e159297159348_) - (_key159356_ - _e159298159353_) - (_phi159361_ - _e159299159358_)) - (_K159296159345_ - _phi159361_ - _key159356_ - _out159351_))) - (_try-match159289159338_)))))))) + (let ((_out160512_ + _e160458160509_) + (_key160517_ + _e160459160514_) + (_phi160522_ + _e160460160519_)) + (_K160457160506_ + _phi160522_ + _key160517_ + _out160512_))) + (_try-match160450160499_)))))))) (cons (##structure gx#export-set::t - _src159277_ - _current-phi159281_ - (foldl1 _fold-e159283_ + _src160438_ + _current-phi160442_ + (foldl1 _fold-e160444_ '() (##unchecked-structure-ref - _current-ctx159280_ + _current-ctx160441_ '8 gx#module-context::t '#f))) - _r159278_)))) - (_export!159254_ - (lambda (_rbody159267_) - (letrec* ((_current-ctx159269_ + _r160439_)))) + (_export!160415_ + (lambda (_rbody160428_) + (letrec* ((_current-ctx160430_ (gx#current-expander-context)) - (_fold-e159270_ - (lambda (_out159274_ _r159275_) + (_fold-e160431_ + (lambda (_out160435_ _r160436_) (if (##structure-direct-instance-of? - _out159274_ + _out160435_ 'gx#module-export::t) - (cons _out159274_ _r159275_) + (cons _out160435_ _r160436_) (if (##structure-direct-instance-of? - _out159274_ + _out160435_ 'gx#export-set::t) (foldl1 cons - _r159275_ + _r160436_ (##unchecked-structure-ref - _out159274_ + _out160435_ '3 gx#export-set::t '#f)) - _r159275_))))) - (let ((_body159272_ (reverse _rbody159267_))) + _r160436_))))) + (let ((_body160433_ (reverse _rbody160428_))) (##unchecked-structure-set! - _current-ctx159269_ - (foldl1 _fold-e159270_ + _current-ctx160430_ + (foldl1 _fold-e160431_ (##unchecked-structure-ref - _current-ctx159269_ + _current-ctx160430_ '9 gx#module-context::t '#f) - _body159272_) + _body160433_) '9 gx#module-context::t '#f) - _body159272_)))) - (_expanded-export?159255_ - (lambda (_e159262_) - (let ((_$e159264_ + _body160433_)))) + (_expanded-export?160416_ + (lambda (_e160423_) + (let ((_$e160425_ (##structure-direct-instance-of? - _e159262_ + _e160423_ 'gx#module-export::t))) - (if _$e159264_ - _$e159264_ + (if _$e160425_ + _$e160425_ (##structure-direct-instance-of? - _e159262_ + _e160423_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _internal-expand?159249_) - (let ((_rbody159260_ + _internal-expand?160410_) + (let ((_rbody160421_ (gx#core-expand-import/export - _stx159248_ - _expanded-export?159255_ + _stx160409_ + _expanded-export?160416_ 'apply-export-expander gx#current-export-expander-phi - _expand1159252_))) - (if _internal-expand?159249_ - (reverse _rbody159260_) + _expand1160413_))) + (if _internal-expand?160410_ + (reverse _rbody160421_) (gx#core-quote-syntax__1 - (gx#core-cons '%#export (_export!159254_ _rbody159260_)) - (gx#stx-source _stx159248_)))) + (gx#core-cons '%#export (_export!160415_ _rbody160421_)) + (gx#stx-source _stx160409_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _stx159248_)) + (gx#stx-source _stx160409_)) (gx#raise-syntax-error '#f '"Illegal context" - _stx159248_)))))) + _stx160409_)))))) (define gx#core-expand-export%__0 - (lambda (_stx159733_) - (let ((_internal-expand?159735_ '#f)) - (gx#core-expand-export%__% _stx159733_ _internal-expand?159735_)))) + (lambda (_stx160894_) + (let ((_internal-expand?160896_ '#f)) + (gx#core-expand-export%__% _stx160894_ _internal-expand?160896_)))) (define gx#core-expand-export% - (lambda _g167267_ - (let ((_g167266_ (##length _g167267_))) - (cond ((##fx= _g167266_ 1) - (apply (lambda (_stx159733_) - (gx#core-expand-export%__0 _stx159733_)) - _g167267_)) - ((##fx= _g167266_ 2) - (apply (lambda (_stx159737_ _internal-expand?159738_) + (lambda _g168428_ + (let ((_g168427_ (##length _g168428_))) + (cond ((##fx= _g168427_ 1) + (apply (lambda (_stx160894_) + (gx#core-expand-export%__0 _stx160894_)) + _g168428_)) + ((##fx= _g168427_ 2) + (apply (lambda (_stx160898_ _internal-expand?160899_) (gx#core-expand-export%__% - _stx159737_ - _internal-expand?159738_)) - _g167267_)) + _stx160898_ + _internal-expand?160899_)) + _g168428_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g167267_)))))) + _g168428_)))))) (define gx#core-expand-export-source - (lambda (_hd159245_) + (lambda (_hd160406_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _hd159245_ '())) + (cons 'export-macro% (cons _hd160406_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_stx159215_) - (let* ((_e159216159223_ _stx159215_) - (_E159218159227_ + (lambda (_stx160376_) + (let* ((_e160377160384_ _stx160376_) + (_E160379160388_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e159216159223_))) - (_E159217159241_ + _e160377160384_))) + (_E160378160402_ (lambda () - (if (gx#stx-pair? _e159216159223_) - (let ((_e159219159231_ (gx#syntax-e _e159216159223_))) - (let ((_hd159220159234_ (##car _e159219159231_)) - (_tl159221159236_ (##cdr _e159219159231_))) - (let ((_body159239_ _tl159221159236_)) - (if (gx#identifier-list? _body159239_) + (if (gx#stx-pair? _e160377160384_) + (let ((_e160380160392_ (gx#syntax-e _e160377160384_))) + (let ((_hd160381160395_ (##car _e160380160392_)) + (_tl160382160397_ (##cdr _e160380160392_))) + (let ((_body160400_ _tl160382160397_)) + (if (gx#identifier-list? _body160400_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _body159239_) + _body160400_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _body159239_)) - (gx#stx-source _stx159215_))) - (_E159218159227_))))) - (_E159218159227_))))) - (_E159217159241_)))) + _body160400_)) + (gx#stx-source _stx160376_))) + (_E160379160388_))))) + (_E160379160388_))))) + (_E160378160402_)))) (define gx#core-bind-feature!__% - (lambda (_id159181_ _private?159182_ _phi159183_ _ctx159184_) + (lambda (_id160342_ _private?160343_ _phi160344_ _ctx160345_) (gx#core-bind-syntax!__% - _id159181_ - ((if _private?159182_ + _id160342_ + ((if _private?160343_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _id159181_)) - _private?159182_ - _phi159183_ - _ctx159184_))) + (gx#stx-e _id160342_)) + _private?160343_ + _phi160344_ + _ctx160345_))) (define gx#core-bind-feature!__0 - (lambda (_id159189_) - (let* ((_private?159191_ '#f) - (_phi159193_ (gx#current-expander-phi)) - (_ctx159195_ (gx#current-expander-context))) + (lambda (_id160350_) + (let* ((_private?160352_ '#f) + (_phi160354_ (gx#current-expander-phi)) + (_ctx160356_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id159189_ - _private?159191_ - _phi159193_ - _ctx159195_)))) + _id160350_ + _private?160352_ + _phi160354_ + _ctx160356_)))) (define gx#core-bind-feature!__1 - (lambda (_id159197_ _private?159198_) - (let* ((_phi159200_ (gx#current-expander-phi)) - (_ctx159202_ (gx#current-expander-context))) + (lambda (_id160358_ _private?160359_) + (let* ((_phi160361_ (gx#current-expander-phi)) + (_ctx160363_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id159197_ - _private?159198_ - _phi159200_ - _ctx159202_)))) + _id160358_ + _private?160359_ + _phi160361_ + _ctx160363_)))) (define gx#core-bind-feature!__2 - (lambda (_id159204_ _private?159205_ _phi159206_) - (let ((_ctx159208_ (gx#current-expander-context))) + (lambda (_id160365_ _private?160366_ _phi160367_) + (let ((_ctx160369_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _id159204_ - _private?159205_ - _phi159206_ - _ctx159208_)))) + _id160365_ + _private?160366_ + _phi160367_ + _ctx160369_)))) (define gx#core-bind-feature! - (lambda _g167269_ - (let ((_g167268_ (##length _g167269_))) - (cond ((##fx= _g167268_ 1) - (apply (lambda (_id159189_) - (gx#core-bind-feature!__0 _id159189_)) - _g167269_)) - ((##fx= _g167268_ 2) - (apply (lambda (_id159197_ _private?159198_) + (lambda _g168430_ + (let ((_g168429_ (##length _g168430_))) + (cond ((##fx= _g168429_ 1) + (apply (lambda (_id160350_) + (gx#core-bind-feature!__0 _id160350_)) + _g168430_)) + ((##fx= _g168429_ 2) + (apply (lambda (_id160358_ _private?160359_) (gx#core-bind-feature!__1 - _id159197_ - _private?159198_)) - _g167269_)) - ((##fx= _g167268_ 3) - (apply (lambda (_id159204_ _private?159205_ _phi159206_) + _id160358_ + _private?160359_)) + _g168430_)) + ((##fx= _g168429_ 3) + (apply (lambda (_id160365_ _private?160366_ _phi160367_) (gx#core-bind-feature!__2 - _id159204_ - _private?159205_ - _phi159206_)) - _g167269_)) - ((##fx= _g167268_ 4) - (apply (lambda (_id159210_ - _private?159211_ - _phi159212_ - _ctx159213_) + _id160365_ + _private?160366_ + _phi160367_)) + _g168430_)) + ((##fx= _g168429_ 4) + (apply (lambda (_id160371_ + _private?160372_ + _phi160373_ + _ctx160374_) (gx#core-bind-feature!__% - _id159210_ - _private?159211_ - _phi159212_ - _ctx159213_)) - _g167269_)) + _id160371_ + _private?160372_ + _phi160373_ + _ctx160374_)) + _g168430_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g167269_)))))))) + _g168430_)))))))) diff --git a/src/bootstrap/gerbil/expander/module__1.scm b/src/bootstrap/gerbil/expander/module__1.scm index 0a9ac795b..1ae58a999 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]#_g167271_| + (define |gx[1]#_g168432_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g167273_| + (define |gx[1]#_g168434_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g167275_| + (define |gx[1]#_g168436_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167282_| + (define |gx[1]#_g168443_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167285_| + (define |gx[1]#_g168446_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167288_| + (define |gx[1]#_g168449_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g167291_| + (define |gx[1]#_g168452_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g167298_| + (define |gx[1]#_g168459_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167301_| + (define |gx[1]#_g168462_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167304_| + (define |gx[1]#_g168465_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167307_| + (define |gx[1]#_g168468_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167314_| + (define |gx[1]#_g168475_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167317_| + (define |gx[1]#_g168478_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167320_| + (define |gx[1]#_g168481_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g167323_| + (define |gx[1]#_g168484_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g167330_| + (define |gx[1]#_g168491_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167333_| + (define |gx[1]#_g168494_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167336_| + (define |gx[1]#_g168497_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167339_| + (define |gx[1]#_g168500_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167341_| + (define |gx[1]#_g168502_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g167343_| + (define |gx[1]#_g168504_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g167345_| + (define |gx[1]#_g168506_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167353_| + (define |gx[1]#_g168514_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167356_| + (define |gx[1]#_g168517_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g167359_| + (define |gx[1]#_g168520_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167362_| + (define |gx[1]#_g168523_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g167365_| + (define |gx[1]#_g168526_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167373_| + (define |gx[1]#_g168534_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167376_| + (define |gx[1]#_g168537_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167379_| + (define |gx[1]#_g168540_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167382_| + (define |gx[1]#_g168543_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167385_| + (define |gx[1]#_g168546_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167393_| + (define |gx[1]#_g168554_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167396_| + (define |gx[1]#_g168557_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g167399_| + (define |gx[1]#_g168560_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167402_| + (define |gx[1]#_g168563_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g167405_| + (define |gx[1]#_g168566_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167413_| + (define |gx[1]#_g168574_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167416_| + (define |gx[1]#_g168577_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167419_| + (define |gx[1]#_g168580_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167422_| + (define |gx[1]#_g168583_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167425_| + (define |gx[1]#_g168586_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167427_| + (define |gx[1]#_g168588_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g167429_| + (define |gx[1]#_g168590_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g167431_| + (define |gx[1]#_g168592_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167437_| + (define |gx[1]#_g168598_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g167440_| + (define |gx[1]#_g168601_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167443_| + (define |gx[1]#_g168604_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g167449_| + (define |gx[1]#_g168610_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167452_| + (define |gx[1]#_g168613_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167455_| + (define |gx[1]#_g168616_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167461_| + (define |gx[1]#_g168622_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g167464_| + (define |gx[1]#_g168625_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167467_| + (define |gx[1]#_g168628_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g167473_| + (define |gx[1]#_g168634_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167476_| + (define |gx[1]#_g168637_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167479_| + (define |gx[1]#_g168640_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167481_| + (define |gx[1]#_g168642_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g167483_| + (define |gx[1]#_g168644_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g167485_| + (define |gx[1]#_g168646_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167491_| + (define |gx[1]#_g168652_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g167494_| + (define |gx[1]#_g168655_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167497_| + (define |gx[1]#_g168658_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g167503_| + (define |gx[1]#_g168664_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167506_| + (define |gx[1]#_g168667_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167509_| + (define |gx[1]#_g168670_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167515_| + (define |gx[1]#_g168676_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g167518_| + (define |gx[1]#_g168679_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167521_| + (define |gx[1]#_g168682_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g167527_| + (define |gx[1]#_g168688_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167530_| + (define |gx[1]#_g168691_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167533_| + (define |gx[1]#_g168694_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167536_| + (define |gx[1]#_g168697_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g167538_| + (define |gx[1]#_g168699_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g167540_| + (define |gx[1]#_g168701_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g167542_| + (define |gx[1]#_g168703_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167548_| + (define |gx[1]#_g168709_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g167551_| + (define |gx[1]#_g168712_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167554_| + (define |gx[1]#_g168715_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167560_| + (define |gx[1]#_g168721_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167563_| + (define |gx[1]#_g168724_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167566_| + (define |gx[1]#_g168727_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167572_| + (define |gx[1]#_g168733_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g167575_| + (define |gx[1]#_g168736_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167578_| + (define |gx[1]#_g168739_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167584_| + (define |gx[1]#_g168745_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167587_| + (define |gx[1]#_g168748_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167590_| + (define |gx[1]#_g168751_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167594_| + (define |gx[1]#_g168755_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g167596_| + (define |gx[1]#_g168757_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g167598_| + (define |gx[1]#_g168759_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167604_| + (define |gx[1]#_g168765_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g167607_| + (define |gx[1]#_g168768_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167610_| + (define |gx[1]#_g168771_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167616_| + (define |gx[1]#_g168777_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167619_| + (define |gx[1]#_g168780_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167622_| + (define |gx[1]#_g168783_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167628_| + (define |gx[1]#_g168789_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g167631_| + (define |gx[1]#_g168792_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167634_| + (define |gx[1]#_g168795_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167640_| + (define |gx[1]#_g168801_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167643_| + (define |gx[1]#_g168804_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167646_| + (define |gx[1]#_g168807_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167650_| + (define |gx[1]#_g168811_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g167652_| + (define |gx[1]#_g168813_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g167654_| + (define |gx[1]#_g168815_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g167656_| + (define |gx[1]#_g168817_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g167658_| + (define |gx[1]#_g168819_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g167664_| + (define |gx[1]#_g168825_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g167667_| + (define |gx[1]#_g168828_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167670_| + (define |gx[1]#_g168831_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167676_| + (define |gx[1]#_g168837_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167679_| + (define |gx[1]#_g168840_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167682_| + (define |gx[1]#_g168843_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167688_| + (define |gx[1]#_g168849_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g167691_| + (define |gx[1]#_g168852_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g167694_| + (define |gx[1]#_g168855_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g167700_| + (define |gx[1]#_g168861_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167703_| + (define |gx[1]#_g168864_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g167706_| + (define |gx[1]#_g168867_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj167224 + (let ((__obj168385 (let () (declare (not safe)) (##structure @@ -860,11 +860,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 + __obj168385 'gx#module-import::t '1 gerbil/core$$#class-type-info::t @@ -872,7 +873,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 + __obj168385 'module-import '2 gerbil/core$$#class-type-info::t @@ -880,7 +881,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 + __obj168385 '(source name phi weak?) '4 gerbil/core$$#class-type-info::t @@ -888,7 +889,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 + __obj168385 '() '3 gerbil/core$$#class-type-info::t @@ -896,7 +897,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 + __obj168385 '#t '5 gerbil/core$$#class-type-info::t @@ -904,7 +905,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 + __obj168385 '#t '6 gerbil/core$$#class-type-info::t @@ -912,182 +913,190 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 + __obj168385 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167270 |gx[1]#_g167271_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj167224 - __tmp167270 + __obj168385 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167272 |gx[1]#_g167273_|)) + (let ((__tmp168431 |gx[1]#_g168432_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167224 - __tmp167272 + __obj168385 + __tmp168431 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167274 |gx[1]#_g167275_|)) + (let ((__tmp168433 |gx[1]#_g168434_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167224 - __tmp167274 + __obj168385 + __tmp168433 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167276 - (let ((__tmp167289 - (let ((__tmp167290 |gx[1]#_g167291_|)) + (let ((__tmp168435 |gx[1]#_g168436_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj168385 + __tmp168435 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp168437 + (let ((__tmp168450 + (let ((__tmp168451 |gx[1]#_g168452_|)) (declare (not safe)) - (cons 'source __tmp167290))) - (__tmp167277 - (let ((__tmp167286 - (let ((__tmp167287 |gx[1]#_g167288_|)) + (cons 'source __tmp168451))) + (__tmp168438 + (let ((__tmp168447 + (let ((__tmp168448 |gx[1]#_g168449_|)) (declare (not safe)) - (cons 'name __tmp167287))) - (__tmp167278 - (let ((__tmp167283 - (let ((__tmp167284 |gx[1]#_g167285_|)) + (cons 'name __tmp168448))) + (__tmp168439 + (let ((__tmp168444 + (let ((__tmp168445 |gx[1]#_g168446_|)) (declare (not safe)) - (cons 'phi __tmp167284))) - (__tmp167279 - (let ((__tmp167280 - (let ((__tmp167281 - |gx[1]#_g167282_|)) + (cons 'phi __tmp168445))) + (__tmp168440 + (let ((__tmp168441 + (let ((__tmp168442 + |gx[1]#_g168443_|)) (declare (not safe)) - (cons 'weak? __tmp167281)))) + (cons 'weak? __tmp168442)))) (declare (not safe)) - (cons __tmp167280 '())))) + (cons __tmp168441 '())))) (declare (not safe)) - (cons __tmp167283 __tmp167279)))) + (cons __tmp168444 __tmp168440)))) (declare (not safe)) - (cons __tmp167286 __tmp167278)))) + (cons __tmp168447 __tmp168439)))) (declare (not safe)) - (cons __tmp167289 __tmp167277)))) + (cons __tmp168450 __tmp168438)))) (declare (not safe)) (##unchecked-structure-set! - __obj167224 - __tmp167276 - '11 + __obj168385 + __tmp168437 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167292 - (let ((__tmp167305 - (let ((__tmp167306 |gx[1]#_g167307_|)) + (let ((__tmp168453 + (let ((__tmp168466 + (let ((__tmp168467 |gx[1]#_g168468_|)) (declare (not safe)) - (cons 'source __tmp167306))) - (__tmp167293 - (let ((__tmp167302 - (let ((__tmp167303 |gx[1]#_g167304_|)) + (cons 'source __tmp168467))) + (__tmp168454 + (let ((__tmp168463 + (let ((__tmp168464 |gx[1]#_g168465_|)) (declare (not safe)) - (cons 'name __tmp167303))) - (__tmp167294 - (let ((__tmp167299 - (let ((__tmp167300 |gx[1]#_g167301_|)) + (cons 'name __tmp168464))) + (__tmp168455 + (let ((__tmp168460 + (let ((__tmp168461 |gx[1]#_g168462_|)) (declare (not safe)) - (cons 'phi __tmp167300))) - (__tmp167295 - (let ((__tmp167296 - (let ((__tmp167297 - |gx[1]#_g167298_|)) + (cons 'phi __tmp168461))) + (__tmp168456 + (let ((__tmp168457 + (let ((__tmp168458 + |gx[1]#_g168459_|)) (declare (not safe)) - (cons 'weak? __tmp167297)))) + (cons 'weak? __tmp168458)))) (declare (not safe)) - (cons __tmp167296 '())))) + (cons __tmp168457 '())))) (declare (not safe)) - (cons __tmp167299 __tmp167295)))) + (cons __tmp168460 __tmp168456)))) (declare (not safe)) - (cons __tmp167302 __tmp167294)))) + (cons __tmp168463 __tmp168455)))) (declare (not safe)) - (cons __tmp167305 __tmp167293)))) + (cons __tmp168466 __tmp168454)))) (declare (not safe)) (##unchecked-structure-set! - __obj167224 - __tmp167292 - '12 + __obj168385 + __tmp168453 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167308 - (let ((__tmp167321 - (let ((__tmp167322 |gx[1]#_g167323_|)) + (let ((__tmp168469 + (let ((__tmp168482 + (let ((__tmp168483 |gx[1]#_g168484_|)) (declare (not safe)) - (cons 'source __tmp167322))) - (__tmp167309 - (let ((__tmp167318 - (let ((__tmp167319 |gx[1]#_g167320_|)) + (cons 'source __tmp168483))) + (__tmp168470 + (let ((__tmp168479 + (let ((__tmp168480 |gx[1]#_g168481_|)) (declare (not safe)) - (cons 'name __tmp167319))) - (__tmp167310 - (let ((__tmp167315 - (let ((__tmp167316 |gx[1]#_g167317_|)) + (cons 'name __tmp168480))) + (__tmp168471 + (let ((__tmp168476 + (let ((__tmp168477 |gx[1]#_g168478_|)) (declare (not safe)) - (cons 'phi __tmp167316))) - (__tmp167311 - (let ((__tmp167312 - (let ((__tmp167313 - |gx[1]#_g167314_|)) + (cons 'phi __tmp168477))) + (__tmp168472 + (let ((__tmp168473 + (let ((__tmp168474 + |gx[1]#_g168475_|)) (declare (not safe)) - (cons 'weak? __tmp167313)))) + (cons 'weak? __tmp168474)))) (declare (not safe)) - (cons __tmp167312 '())))) + (cons __tmp168473 '())))) (declare (not safe)) - (cons __tmp167315 __tmp167311)))) + (cons __tmp168476 __tmp168472)))) (declare (not safe)) - (cons __tmp167318 __tmp167310)))) + (cons __tmp168479 __tmp168471)))) (declare (not safe)) - (cons __tmp167321 __tmp167309)))) + (cons __tmp168482 __tmp168470)))) (declare (not safe)) (##unchecked-structure-set! - __obj167224 - __tmp167308 - '13 + __obj168385 + __tmp168469 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167324 - (let ((__tmp167337 - (let ((__tmp167338 |gx[1]#_g167339_|)) + (let ((__tmp168485 + (let ((__tmp168498 + (let ((__tmp168499 |gx[1]#_g168500_|)) (declare (not safe)) - (cons 'source __tmp167338))) - (__tmp167325 - (let ((__tmp167334 - (let ((__tmp167335 |gx[1]#_g167336_|)) + (cons 'source __tmp168499))) + (__tmp168486 + (let ((__tmp168495 + (let ((__tmp168496 |gx[1]#_g168497_|)) (declare (not safe)) - (cons 'name __tmp167335))) - (__tmp167326 - (let ((__tmp167331 - (let ((__tmp167332 |gx[1]#_g167333_|)) + (cons 'name __tmp168496))) + (__tmp168487 + (let ((__tmp168492 + (let ((__tmp168493 |gx[1]#_g168494_|)) (declare (not safe)) - (cons 'phi __tmp167332))) - (__tmp167327 - (let ((__tmp167328 - (let ((__tmp167329 - |gx[1]#_g167330_|)) + (cons 'phi __tmp168493))) + (__tmp168488 + (let ((__tmp168489 + (let ((__tmp168490 + |gx[1]#_g168491_|)) (declare (not safe)) - (cons 'weak? __tmp167329)))) + (cons 'weak? __tmp168490)))) (declare (not safe)) - (cons __tmp167328 '())))) + (cons __tmp168489 '())))) (declare (not safe)) - (cons __tmp167331 __tmp167327)))) + (cons __tmp168492 __tmp168488)))) (declare (not safe)) - (cons __tmp167334 __tmp167326)))) + (cons __tmp168495 __tmp168487)))) (declare (not safe)) - (cons __tmp167337 __tmp167325)))) + (cons __tmp168498 __tmp168486)))) (declare (not safe)) (##unchecked-structure-set! - __obj167224 - __tmp167324 - '14 + __obj168385 + __tmp168485 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj167224)) + __obj168385)) (define |gx[:0:]#module-export| - (let ((__obj167225 + (let ((__obj168386 (let () (declare (not safe)) (##structure @@ -1105,11 +1114,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 + __obj168386 'gx#module-export::t '1 gerbil/core$$#class-type-info::t @@ -1117,7 +1127,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 + __obj168386 'module-export '2 gerbil/core$$#class-type-info::t @@ -1125,7 +1135,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 + __obj168386 '(context key phi name weak?) '4 gerbil/core$$#class-type-info::t @@ -1133,7 +1143,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 + __obj168386 '() '3 gerbil/core$$#class-type-info::t @@ -1141,7 +1151,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 + __obj168386 '#t '5 gerbil/core$$#class-type-info::t @@ -1149,7 +1159,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 + __obj168386 '#t '6 gerbil/core$$#class-type-info::t @@ -1157,218 +1167,226 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 + __obj168386 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167340 |gx[1]#_g167341_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj167225 - __tmp167340 + __obj168386 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167342 |gx[1]#_g167343_|)) + (let ((__tmp168501 |gx[1]#_g168502_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167225 - __tmp167342 + __obj168386 + __tmp168501 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167344 |gx[1]#_g167345_|)) + (let ((__tmp168503 |gx[1]#_g168504_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167225 - __tmp167344 + __obj168386 + __tmp168503 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167346 - (let ((__tmp167363 - (let ((__tmp167364 |gx[1]#_g167365_|)) + (let ((__tmp168505 |gx[1]#_g168506_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj168386 + __tmp168505 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp168507 + (let ((__tmp168524 + (let ((__tmp168525 |gx[1]#_g168526_|)) (declare (not safe)) - (cons 'context __tmp167364))) - (__tmp167347 - (let ((__tmp167360 - (let ((__tmp167361 |gx[1]#_g167362_|)) + (cons 'context __tmp168525))) + (__tmp168508 + (let ((__tmp168521 + (let ((__tmp168522 |gx[1]#_g168523_|)) (declare (not safe)) - (cons 'key __tmp167361))) - (__tmp167348 - (let ((__tmp167357 - (let ((__tmp167358 |gx[1]#_g167359_|)) + (cons 'key __tmp168522))) + (__tmp168509 + (let ((__tmp168518 + (let ((__tmp168519 |gx[1]#_g168520_|)) (declare (not safe)) - (cons 'phi __tmp167358))) - (__tmp167349 - (let ((__tmp167354 - (let ((__tmp167355 - |gx[1]#_g167356_|)) + (cons 'phi __tmp168519))) + (__tmp168510 + (let ((__tmp168515 + (let ((__tmp168516 + |gx[1]#_g168517_|)) (declare (not safe)) - (cons 'name __tmp167355))) - (__tmp167350 - (let ((__tmp167351 - (let ((__tmp167352 - |gx[1]#_g167353_|)) + (cons 'name __tmp168516))) + (__tmp168511 + (let ((__tmp168512 + (let ((__tmp168513 + |gx[1]#_g168514_|)) (declare (not safe)) (cons 'weak? - __tmp167352)))) + __tmp168513)))) (declare (not safe)) - (cons __tmp167351 '())))) + (cons __tmp168512 '())))) (declare (not safe)) - (cons __tmp167354 __tmp167350)))) + (cons __tmp168515 __tmp168511)))) (declare (not safe)) - (cons __tmp167357 __tmp167349)))) + (cons __tmp168518 __tmp168510)))) (declare (not safe)) - (cons __tmp167360 __tmp167348)))) + (cons __tmp168521 __tmp168509)))) (declare (not safe)) - (cons __tmp167363 __tmp167347)))) + (cons __tmp168524 __tmp168508)))) (declare (not safe)) (##unchecked-structure-set! - __obj167225 - __tmp167346 - '11 + __obj168386 + __tmp168507 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167366 - (let ((__tmp167383 - (let ((__tmp167384 |gx[1]#_g167385_|)) + (let ((__tmp168527 + (let ((__tmp168544 + (let ((__tmp168545 |gx[1]#_g168546_|)) (declare (not safe)) - (cons 'context __tmp167384))) - (__tmp167367 - (let ((__tmp167380 - (let ((__tmp167381 |gx[1]#_g167382_|)) + (cons 'context __tmp168545))) + (__tmp168528 + (let ((__tmp168541 + (let ((__tmp168542 |gx[1]#_g168543_|)) (declare (not safe)) - (cons 'key __tmp167381))) - (__tmp167368 - (let ((__tmp167377 - (let ((__tmp167378 |gx[1]#_g167379_|)) + (cons 'key __tmp168542))) + (__tmp168529 + (let ((__tmp168538 + (let ((__tmp168539 |gx[1]#_g168540_|)) (declare (not safe)) - (cons 'phi __tmp167378))) - (__tmp167369 - (let ((__tmp167374 - (let ((__tmp167375 - |gx[1]#_g167376_|)) + (cons 'phi __tmp168539))) + (__tmp168530 + (let ((__tmp168535 + (let ((__tmp168536 + |gx[1]#_g168537_|)) (declare (not safe)) - (cons 'name __tmp167375))) - (__tmp167370 - (let ((__tmp167371 - (let ((__tmp167372 - |gx[1]#_g167373_|)) + (cons 'name __tmp168536))) + (__tmp168531 + (let ((__tmp168532 + (let ((__tmp168533 + |gx[1]#_g168534_|)) (declare (not safe)) (cons 'weak? - __tmp167372)))) + __tmp168533)))) (declare (not safe)) - (cons __tmp167371 '())))) + (cons __tmp168532 '())))) (declare (not safe)) - (cons __tmp167374 __tmp167370)))) + (cons __tmp168535 __tmp168531)))) (declare (not safe)) - (cons __tmp167377 __tmp167369)))) + (cons __tmp168538 __tmp168530)))) (declare (not safe)) - (cons __tmp167380 __tmp167368)))) + (cons __tmp168541 __tmp168529)))) (declare (not safe)) - (cons __tmp167383 __tmp167367)))) + (cons __tmp168544 __tmp168528)))) (declare (not safe)) (##unchecked-structure-set! - __obj167225 - __tmp167366 - '12 + __obj168386 + __tmp168527 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167386 - (let ((__tmp167403 - (let ((__tmp167404 |gx[1]#_g167405_|)) + (let ((__tmp168547 + (let ((__tmp168564 + (let ((__tmp168565 |gx[1]#_g168566_|)) (declare (not safe)) - (cons 'context __tmp167404))) - (__tmp167387 - (let ((__tmp167400 - (let ((__tmp167401 |gx[1]#_g167402_|)) + (cons 'context __tmp168565))) + (__tmp168548 + (let ((__tmp168561 + (let ((__tmp168562 |gx[1]#_g168563_|)) (declare (not safe)) - (cons 'key __tmp167401))) - (__tmp167388 - (let ((__tmp167397 - (let ((__tmp167398 |gx[1]#_g167399_|)) + (cons 'key __tmp168562))) + (__tmp168549 + (let ((__tmp168558 + (let ((__tmp168559 |gx[1]#_g168560_|)) (declare (not safe)) - (cons 'phi __tmp167398))) - (__tmp167389 - (let ((__tmp167394 - (let ((__tmp167395 - |gx[1]#_g167396_|)) + (cons 'phi __tmp168559))) + (__tmp168550 + (let ((__tmp168555 + (let ((__tmp168556 + |gx[1]#_g168557_|)) (declare (not safe)) - (cons 'name __tmp167395))) - (__tmp167390 - (let ((__tmp167391 - (let ((__tmp167392 - |gx[1]#_g167393_|)) + (cons 'name __tmp168556))) + (__tmp168551 + (let ((__tmp168552 + (let ((__tmp168553 + |gx[1]#_g168554_|)) (declare (not safe)) (cons 'weak? - __tmp167392)))) + __tmp168553)))) (declare (not safe)) - (cons __tmp167391 '())))) + (cons __tmp168552 '())))) (declare (not safe)) - (cons __tmp167394 __tmp167390)))) + (cons __tmp168555 __tmp168551)))) (declare (not safe)) - (cons __tmp167397 __tmp167389)))) + (cons __tmp168558 __tmp168550)))) (declare (not safe)) - (cons __tmp167400 __tmp167388)))) + (cons __tmp168561 __tmp168549)))) (declare (not safe)) - (cons __tmp167403 __tmp167387)))) + (cons __tmp168564 __tmp168548)))) (declare (not safe)) (##unchecked-structure-set! - __obj167225 - __tmp167386 - '13 + __obj168386 + __tmp168547 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167406 - (let ((__tmp167423 - (let ((__tmp167424 |gx[1]#_g167425_|)) + (let ((__tmp168567 + (let ((__tmp168584 + (let ((__tmp168585 |gx[1]#_g168586_|)) (declare (not safe)) - (cons 'context __tmp167424))) - (__tmp167407 - (let ((__tmp167420 - (let ((__tmp167421 |gx[1]#_g167422_|)) + (cons 'context __tmp168585))) + (__tmp168568 + (let ((__tmp168581 + (let ((__tmp168582 |gx[1]#_g168583_|)) (declare (not safe)) - (cons 'key __tmp167421))) - (__tmp167408 - (let ((__tmp167417 - (let ((__tmp167418 |gx[1]#_g167419_|)) + (cons 'key __tmp168582))) + (__tmp168569 + (let ((__tmp168578 + (let ((__tmp168579 |gx[1]#_g168580_|)) (declare (not safe)) - (cons 'phi __tmp167418))) - (__tmp167409 - (let ((__tmp167414 - (let ((__tmp167415 - |gx[1]#_g167416_|)) + (cons 'phi __tmp168579))) + (__tmp168570 + (let ((__tmp168575 + (let ((__tmp168576 + |gx[1]#_g168577_|)) (declare (not safe)) - (cons 'name __tmp167415))) - (__tmp167410 - (let ((__tmp167411 - (let ((__tmp167412 - |gx[1]#_g167413_|)) + (cons 'name __tmp168576))) + (__tmp168571 + (let ((__tmp168572 + (let ((__tmp168573 + |gx[1]#_g168574_|)) (declare (not safe)) (cons 'weak? - __tmp167412)))) + __tmp168573)))) (declare (not safe)) - (cons __tmp167411 '())))) + (cons __tmp168572 '())))) (declare (not safe)) - (cons __tmp167414 __tmp167410)))) + (cons __tmp168575 __tmp168571)))) (declare (not safe)) - (cons __tmp167417 __tmp167409)))) + (cons __tmp168578 __tmp168570)))) (declare (not safe)) - (cons __tmp167420 __tmp167408)))) + (cons __tmp168581 __tmp168569)))) (declare (not safe)) - (cons __tmp167423 __tmp167407)))) + (cons __tmp168584 __tmp168568)))) (declare (not safe)) (##unchecked-structure-set! - __obj167225 - __tmp167406 - '14 + __obj168386 + __tmp168567 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj167225)) + __obj168386)) (define |gx[:0:]#import-set| - (let ((__obj167226 + (let ((__obj168387 (let () (declare (not safe)) (##structure @@ -1386,11 +1404,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 + __obj168387 'gx#import-set::t '1 gerbil/core$$#class-type-info::t @@ -1398,7 +1417,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 + __obj168387 'import-set '2 gerbil/core$$#class-type-info::t @@ -1406,7 +1425,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 + __obj168387 '(source phi imports) '4 gerbil/core$$#class-type-info::t @@ -1414,7 +1433,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 + __obj168387 '() '3 gerbil/core$$#class-type-info::t @@ -1422,7 +1441,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 + __obj168387 '#t '5 gerbil/core$$#class-type-info::t @@ -1430,7 +1449,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 + __obj168387 '#t '6 gerbil/core$$#class-type-info::t @@ -1438,150 +1457,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 + __obj168387 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167426 |gx[1]#_g167427_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj167226 - __tmp167426 + __obj168387 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167428 |gx[1]#_g167429_|)) + (let ((__tmp168587 |gx[1]#_g168588_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167226 - __tmp167428 + __obj168387 + __tmp168587 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167430 |gx[1]#_g167431_|)) + (let ((__tmp168589 |gx[1]#_g168590_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167226 - __tmp167430 + __obj168387 + __tmp168589 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167432 - (let ((__tmp167441 - (let ((__tmp167442 |gx[1]#_g167443_|)) + (let ((__tmp168591 |gx[1]#_g168592_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj168387 + __tmp168591 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp168593 + (let ((__tmp168602 + (let ((__tmp168603 |gx[1]#_g168604_|)) (declare (not safe)) - (cons 'source __tmp167442))) - (__tmp167433 - (let ((__tmp167438 - (let ((__tmp167439 |gx[1]#_g167440_|)) + (cons 'source __tmp168603))) + (__tmp168594 + (let ((__tmp168599 + (let ((__tmp168600 |gx[1]#_g168601_|)) (declare (not safe)) - (cons 'phi __tmp167439))) - (__tmp167434 - (let ((__tmp167435 - (let ((__tmp167436 |gx[1]#_g167437_|)) + (cons 'phi __tmp168600))) + (__tmp168595 + (let ((__tmp168596 + (let ((__tmp168597 |gx[1]#_g168598_|)) (declare (not safe)) - (cons 'imports __tmp167436)))) + (cons 'imports __tmp168597)))) (declare (not safe)) - (cons __tmp167435 '())))) + (cons __tmp168596 '())))) (declare (not safe)) - (cons __tmp167438 __tmp167434)))) + (cons __tmp168599 __tmp168595)))) (declare (not safe)) - (cons __tmp167441 __tmp167433)))) + (cons __tmp168602 __tmp168594)))) (declare (not safe)) (##unchecked-structure-set! - __obj167226 - __tmp167432 - '11 + __obj168387 + __tmp168593 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167444 - (let ((__tmp167453 - (let ((__tmp167454 |gx[1]#_g167455_|)) + (let ((__tmp168605 + (let ((__tmp168614 + (let ((__tmp168615 |gx[1]#_g168616_|)) (declare (not safe)) - (cons 'source __tmp167454))) - (__tmp167445 - (let ((__tmp167450 - (let ((__tmp167451 |gx[1]#_g167452_|)) + (cons 'source __tmp168615))) + (__tmp168606 + (let ((__tmp168611 + (let ((__tmp168612 |gx[1]#_g168613_|)) (declare (not safe)) - (cons 'phi __tmp167451))) - (__tmp167446 - (let ((__tmp167447 - (let ((__tmp167448 |gx[1]#_g167449_|)) + (cons 'phi __tmp168612))) + (__tmp168607 + (let ((__tmp168608 + (let ((__tmp168609 |gx[1]#_g168610_|)) (declare (not safe)) - (cons 'imports __tmp167448)))) + (cons 'imports __tmp168609)))) (declare (not safe)) - (cons __tmp167447 '())))) + (cons __tmp168608 '())))) (declare (not safe)) - (cons __tmp167450 __tmp167446)))) + (cons __tmp168611 __tmp168607)))) (declare (not safe)) - (cons __tmp167453 __tmp167445)))) + (cons __tmp168614 __tmp168606)))) (declare (not safe)) (##unchecked-structure-set! - __obj167226 - __tmp167444 - '12 + __obj168387 + __tmp168605 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167456 - (let ((__tmp167465 - (let ((__tmp167466 |gx[1]#_g167467_|)) + (let ((__tmp168617 + (let ((__tmp168626 + (let ((__tmp168627 |gx[1]#_g168628_|)) (declare (not safe)) - (cons 'source __tmp167466))) - (__tmp167457 - (let ((__tmp167462 - (let ((__tmp167463 |gx[1]#_g167464_|)) + (cons 'source __tmp168627))) + (__tmp168618 + (let ((__tmp168623 + (let ((__tmp168624 |gx[1]#_g168625_|)) (declare (not safe)) - (cons 'phi __tmp167463))) - (__tmp167458 - (let ((__tmp167459 - (let ((__tmp167460 |gx[1]#_g167461_|)) + (cons 'phi __tmp168624))) + (__tmp168619 + (let ((__tmp168620 + (let ((__tmp168621 |gx[1]#_g168622_|)) (declare (not safe)) - (cons 'imports __tmp167460)))) + (cons 'imports __tmp168621)))) (declare (not safe)) - (cons __tmp167459 '())))) + (cons __tmp168620 '())))) (declare (not safe)) - (cons __tmp167462 __tmp167458)))) + (cons __tmp168623 __tmp168619)))) (declare (not safe)) - (cons __tmp167465 __tmp167457)))) + (cons __tmp168626 __tmp168618)))) (declare (not safe)) (##unchecked-structure-set! - __obj167226 - __tmp167456 - '13 + __obj168387 + __tmp168617 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167468 - (let ((__tmp167477 - (let ((__tmp167478 |gx[1]#_g167479_|)) + (let ((__tmp168629 + (let ((__tmp168638 + (let ((__tmp168639 |gx[1]#_g168640_|)) (declare (not safe)) - (cons 'source __tmp167478))) - (__tmp167469 - (let ((__tmp167474 - (let ((__tmp167475 |gx[1]#_g167476_|)) + (cons 'source __tmp168639))) + (__tmp168630 + (let ((__tmp168635 + (let ((__tmp168636 |gx[1]#_g168637_|)) (declare (not safe)) - (cons 'phi __tmp167475))) - (__tmp167470 - (let ((__tmp167471 - (let ((__tmp167472 |gx[1]#_g167473_|)) + (cons 'phi __tmp168636))) + (__tmp168631 + (let ((__tmp168632 + (let ((__tmp168633 |gx[1]#_g168634_|)) (declare (not safe)) - (cons 'imports __tmp167472)))) + (cons 'imports __tmp168633)))) (declare (not safe)) - (cons __tmp167471 '())))) + (cons __tmp168632 '())))) (declare (not safe)) - (cons __tmp167474 __tmp167470)))) + (cons __tmp168635 __tmp168631)))) (declare (not safe)) - (cons __tmp167477 __tmp167469)))) + (cons __tmp168638 __tmp168630)))) (declare (not safe)) (##unchecked-structure-set! - __obj167226 - __tmp167468 - '14 + __obj168387 + __tmp168629 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj167226)) + __obj168387)) (define |gx[:0:]#export-set| - (let ((__obj167227 + (let ((__obj168388 (let () (declare (not safe)) (##structure @@ -1599,11 +1626,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 + __obj168388 'gx#export-set::t '1 gerbil/core$$#class-type-info::t @@ -1611,7 +1639,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 + __obj168388 'export-set '2 gerbil/core$$#class-type-info::t @@ -1619,7 +1647,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 + __obj168388 '(source phi exports) '4 gerbil/core$$#class-type-info::t @@ -1627,7 +1655,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 + __obj168388 '() '3 gerbil/core$$#class-type-info::t @@ -1635,7 +1663,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 + __obj168388 '#t '5 gerbil/core$$#class-type-info::t @@ -1643,7 +1671,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 + __obj168388 '#t '6 gerbil/core$$#class-type-info::t @@ -1651,150 +1679,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 + __obj168388 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167480 |gx[1]#_g167481_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj167227 - __tmp167480 + __obj168388 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167482 |gx[1]#_g167483_|)) + (let ((__tmp168641 |gx[1]#_g168642_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167227 - __tmp167482 + __obj168388 + __tmp168641 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167484 |gx[1]#_g167485_|)) + (let ((__tmp168643 |gx[1]#_g168644_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167227 - __tmp167484 + __obj168388 + __tmp168643 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167486 - (let ((__tmp167495 - (let ((__tmp167496 |gx[1]#_g167497_|)) + (let ((__tmp168645 |gx[1]#_g168646_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj168388 + __tmp168645 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp168647 + (let ((__tmp168656 + (let ((__tmp168657 |gx[1]#_g168658_|)) (declare (not safe)) - (cons 'source __tmp167496))) - (__tmp167487 - (let ((__tmp167492 - (let ((__tmp167493 |gx[1]#_g167494_|)) + (cons 'source __tmp168657))) + (__tmp168648 + (let ((__tmp168653 + (let ((__tmp168654 |gx[1]#_g168655_|)) (declare (not safe)) - (cons 'phi __tmp167493))) - (__tmp167488 - (let ((__tmp167489 - (let ((__tmp167490 |gx[1]#_g167491_|)) + (cons 'phi __tmp168654))) + (__tmp168649 + (let ((__tmp168650 + (let ((__tmp168651 |gx[1]#_g168652_|)) (declare (not safe)) - (cons 'exports __tmp167490)))) + (cons 'exports __tmp168651)))) (declare (not safe)) - (cons __tmp167489 '())))) + (cons __tmp168650 '())))) (declare (not safe)) - (cons __tmp167492 __tmp167488)))) + (cons __tmp168653 __tmp168649)))) (declare (not safe)) - (cons __tmp167495 __tmp167487)))) + (cons __tmp168656 __tmp168648)))) (declare (not safe)) (##unchecked-structure-set! - __obj167227 - __tmp167486 - '11 + __obj168388 + __tmp168647 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167498 - (let ((__tmp167507 - (let ((__tmp167508 |gx[1]#_g167509_|)) + (let ((__tmp168659 + (let ((__tmp168668 + (let ((__tmp168669 |gx[1]#_g168670_|)) (declare (not safe)) - (cons 'source __tmp167508))) - (__tmp167499 - (let ((__tmp167504 - (let ((__tmp167505 |gx[1]#_g167506_|)) + (cons 'source __tmp168669))) + (__tmp168660 + (let ((__tmp168665 + (let ((__tmp168666 |gx[1]#_g168667_|)) (declare (not safe)) - (cons 'phi __tmp167505))) - (__tmp167500 - (let ((__tmp167501 - (let ((__tmp167502 |gx[1]#_g167503_|)) + (cons 'phi __tmp168666))) + (__tmp168661 + (let ((__tmp168662 + (let ((__tmp168663 |gx[1]#_g168664_|)) (declare (not safe)) - (cons 'exports __tmp167502)))) + (cons 'exports __tmp168663)))) (declare (not safe)) - (cons __tmp167501 '())))) + (cons __tmp168662 '())))) (declare (not safe)) - (cons __tmp167504 __tmp167500)))) + (cons __tmp168665 __tmp168661)))) (declare (not safe)) - (cons __tmp167507 __tmp167499)))) + (cons __tmp168668 __tmp168660)))) (declare (not safe)) (##unchecked-structure-set! - __obj167227 - __tmp167498 - '12 + __obj168388 + __tmp168659 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167510 - (let ((__tmp167519 - (let ((__tmp167520 |gx[1]#_g167521_|)) + (let ((__tmp168671 + (let ((__tmp168680 + (let ((__tmp168681 |gx[1]#_g168682_|)) (declare (not safe)) - (cons 'source __tmp167520))) - (__tmp167511 - (let ((__tmp167516 - (let ((__tmp167517 |gx[1]#_g167518_|)) + (cons 'source __tmp168681))) + (__tmp168672 + (let ((__tmp168677 + (let ((__tmp168678 |gx[1]#_g168679_|)) (declare (not safe)) - (cons 'phi __tmp167517))) - (__tmp167512 - (let ((__tmp167513 - (let ((__tmp167514 |gx[1]#_g167515_|)) + (cons 'phi __tmp168678))) + (__tmp168673 + (let ((__tmp168674 + (let ((__tmp168675 |gx[1]#_g168676_|)) (declare (not safe)) - (cons 'exports __tmp167514)))) + (cons 'exports __tmp168675)))) (declare (not safe)) - (cons __tmp167513 '())))) + (cons __tmp168674 '())))) (declare (not safe)) - (cons __tmp167516 __tmp167512)))) + (cons __tmp168677 __tmp168673)))) (declare (not safe)) - (cons __tmp167519 __tmp167511)))) + (cons __tmp168680 __tmp168672)))) (declare (not safe)) (##unchecked-structure-set! - __obj167227 - __tmp167510 - '13 + __obj168388 + __tmp168671 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167522 - (let ((__tmp167531 - (let ((__tmp167532 |gx[1]#_g167533_|)) + (let ((__tmp168683 + (let ((__tmp168692 + (let ((__tmp168693 |gx[1]#_g168694_|)) (declare (not safe)) - (cons 'source __tmp167532))) - (__tmp167523 - (let ((__tmp167528 - (let ((__tmp167529 |gx[1]#_g167530_|)) + (cons 'source __tmp168693))) + (__tmp168684 + (let ((__tmp168689 + (let ((__tmp168690 |gx[1]#_g168691_|)) (declare (not safe)) - (cons 'phi __tmp167529))) - (__tmp167524 - (let ((__tmp167525 - (let ((__tmp167526 |gx[1]#_g167527_|)) + (cons 'phi __tmp168690))) + (__tmp168685 + (let ((__tmp168686 + (let ((__tmp168687 |gx[1]#_g168688_|)) (declare (not safe)) - (cons 'exports __tmp167526)))) + (cons 'exports __tmp168687)))) (declare (not safe)) - (cons __tmp167525 '())))) + (cons __tmp168686 '())))) (declare (not safe)) - (cons __tmp167528 __tmp167524)))) + (cons __tmp168689 __tmp168685)))) (declare (not safe)) - (cons __tmp167531 __tmp167523)))) + (cons __tmp168692 __tmp168684)))) (declare (not safe)) (##unchecked-structure-set! - __obj167227 - __tmp167522 - '14 + __obj168388 + __tmp168683 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj167227)) + __obj168388)) (define |gx[:0:]#import-expander| - (let ((__obj167228 + (let ((__obj168389 (let () (declare (not safe)) (##structure @@ -1812,11 +1848,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167228 + __obj168389 'gx#import-expander::t '1 gerbil/core$$#class-type-info::t @@ -1824,7 +1861,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167228 + __obj168389 'import-expander '2 gerbil/core$$#class-type-info::t @@ -1832,26 +1869,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167228 + __obj168389 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167534 - (let ((__tmp167535 |gx[1]#_g167536_|)) + (let ((__tmp168695 + (let ((__tmp168696 |gx[1]#_g168697_|)) (declare (not safe)) - (cons __tmp167535 '())))) + (cons __tmp168696 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167534 + __obj168389 + __tmp168695 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167228 + __obj168389 '#f '5 gerbil/core$$#class-type-info::t @@ -1859,7 +1896,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167228 + __obj168389 '#f '6 gerbil/core$$#class-type-info::t @@ -1867,150 +1904,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167228 - ':init! + __obj168389 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167537 |gx[1]#_g167538_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167537 + __obj168389 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167539 |gx[1]#_g167540_|)) + (let ((__tmp168698 |gx[1]#_g168699_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167539 + __obj168389 + __tmp168698 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167541 |gx[1]#_g167542_|)) + (let ((__tmp168700 |gx[1]#_g168701_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167541 + __obj168389 + __tmp168700 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167543 - (let ((__tmp167552 - (let ((__tmp167553 |gx[1]#_g167554_|)) + (let ((__tmp168702 |gx[1]#_g168703_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj168389 + __tmp168702 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp168704 + (let ((__tmp168713 + (let ((__tmp168714 |gx[1]#_g168715_|)) (declare (not safe)) - (cons 'context __tmp167553))) - (__tmp167544 - (let ((__tmp167549 - (let ((__tmp167550 |gx[1]#_g167551_|)) + (cons 'context __tmp168714))) + (__tmp168705 + (let ((__tmp168710 + (let ((__tmp168711 |gx[1]#_g168712_|)) (declare (not safe)) - (cons 'phi __tmp167550))) - (__tmp167545 - (let ((__tmp167546 - (let ((__tmp167547 |gx[1]#_g167548_|)) + (cons 'phi __tmp168711))) + (__tmp168706 + (let ((__tmp168707 + (let ((__tmp168708 |gx[1]#_g168709_|)) (declare (not safe)) - (cons 'e __tmp167547)))) + (cons 'e __tmp168708)))) (declare (not safe)) - (cons __tmp167546 '())))) + (cons __tmp168707 '())))) (declare (not safe)) - (cons __tmp167549 __tmp167545)))) + (cons __tmp168710 __tmp168706)))) (declare (not safe)) - (cons __tmp167552 __tmp167544)))) + (cons __tmp168713 __tmp168705)))) (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167543 - '11 + __obj168389 + __tmp168704 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167555 - (let ((__tmp167564 - (let ((__tmp167565 |gx[1]#_g167566_|)) + (let ((__tmp168716 + (let ((__tmp168725 + (let ((__tmp168726 |gx[1]#_g168727_|)) (declare (not safe)) - (cons 'context __tmp167565))) - (__tmp167556 - (let ((__tmp167561 - (let ((__tmp167562 |gx[1]#_g167563_|)) + (cons 'context __tmp168726))) + (__tmp168717 + (let ((__tmp168722 + (let ((__tmp168723 |gx[1]#_g168724_|)) (declare (not safe)) - (cons 'phi __tmp167562))) - (__tmp167557 - (let ((__tmp167558 - (let ((__tmp167559 |gx[1]#_g167560_|)) + (cons 'phi __tmp168723))) + (__tmp168718 + (let ((__tmp168719 + (let ((__tmp168720 |gx[1]#_g168721_|)) (declare (not safe)) - (cons 'e __tmp167559)))) + (cons 'e __tmp168720)))) (declare (not safe)) - (cons __tmp167558 '())))) + (cons __tmp168719 '())))) (declare (not safe)) - (cons __tmp167561 __tmp167557)))) + (cons __tmp168722 __tmp168718)))) (declare (not safe)) - (cons __tmp167564 __tmp167556)))) + (cons __tmp168725 __tmp168717)))) (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167555 - '12 + __obj168389 + __tmp168716 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167567 - (let ((__tmp167576 - (let ((__tmp167577 |gx[1]#_g167578_|)) + (let ((__tmp168728 + (let ((__tmp168737 + (let ((__tmp168738 |gx[1]#_g168739_|)) (declare (not safe)) - (cons 'context __tmp167577))) - (__tmp167568 - (let ((__tmp167573 - (let ((__tmp167574 |gx[1]#_g167575_|)) + (cons 'context __tmp168738))) + (__tmp168729 + (let ((__tmp168734 + (let ((__tmp168735 |gx[1]#_g168736_|)) (declare (not safe)) - (cons 'phi __tmp167574))) - (__tmp167569 - (let ((__tmp167570 - (let ((__tmp167571 |gx[1]#_g167572_|)) + (cons 'phi __tmp168735))) + (__tmp168730 + (let ((__tmp168731 + (let ((__tmp168732 |gx[1]#_g168733_|)) (declare (not safe)) - (cons 'e __tmp167571)))) + (cons 'e __tmp168732)))) (declare (not safe)) - (cons __tmp167570 '())))) + (cons __tmp168731 '())))) (declare (not safe)) - (cons __tmp167573 __tmp167569)))) + (cons __tmp168734 __tmp168730)))) (declare (not safe)) - (cons __tmp167576 __tmp167568)))) + (cons __tmp168737 __tmp168729)))) (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167567 - '13 + __obj168389 + __tmp168728 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167579 - (let ((__tmp167588 - (let ((__tmp167589 |gx[1]#_g167590_|)) + (let ((__tmp168740 + (let ((__tmp168749 + (let ((__tmp168750 |gx[1]#_g168751_|)) (declare (not safe)) - (cons 'context __tmp167589))) - (__tmp167580 - (let ((__tmp167585 - (let ((__tmp167586 |gx[1]#_g167587_|)) + (cons 'context __tmp168750))) + (__tmp168741 + (let ((__tmp168746 + (let ((__tmp168747 |gx[1]#_g168748_|)) (declare (not safe)) - (cons 'phi __tmp167586))) - (__tmp167581 - (let ((__tmp167582 - (let ((__tmp167583 |gx[1]#_g167584_|)) + (cons 'phi __tmp168747))) + (__tmp168742 + (let ((__tmp168743 + (let ((__tmp168744 |gx[1]#_g168745_|)) (declare (not safe)) - (cons 'e __tmp167583)))) + (cons 'e __tmp168744)))) (declare (not safe)) - (cons __tmp167582 '())))) + (cons __tmp168743 '())))) (declare (not safe)) - (cons __tmp167585 __tmp167581)))) + (cons __tmp168746 __tmp168742)))) (declare (not safe)) - (cons __tmp167588 __tmp167580)))) + (cons __tmp168749 __tmp168741)))) (declare (not safe)) (##unchecked-structure-set! - __obj167228 - __tmp167579 - '14 + __obj168389 + __tmp168740 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj167228)) + __obj168389)) (define |gx[:0:]#export-expander| - (let ((__obj167229 + (let ((__obj168390 (let () (declare (not safe)) (##structure @@ -2028,11 +2073,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167229 + __obj168390 'gx#export-expander::t '1 gerbil/core$$#class-type-info::t @@ -2040,7 +2086,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167229 + __obj168390 'export-expander '2 gerbil/core$$#class-type-info::t @@ -2048,26 +2094,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167229 + __obj168390 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167591 - (let ((__tmp167592 |gx[1]#_g167536_|)) + (let ((__tmp168752 + (let ((__tmp168753 |gx[1]#_g168697_|)) (declare (not safe)) - (cons __tmp167592 '())))) + (cons __tmp168753 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167591 + __obj168390 + __tmp168752 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167229 + __obj168390 '#f '5 gerbil/core$$#class-type-info::t @@ -2075,7 +2121,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167229 + __obj168390 '#f '6 gerbil/core$$#class-type-info::t @@ -2083,150 +2129,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167229 - ':init! + __obj168390 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167593 |gx[1]#_g167594_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167593 + __obj168390 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167595 |gx[1]#_g167596_|)) + (let ((__tmp168754 |gx[1]#_g168755_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167595 + __obj168390 + __tmp168754 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167597 |gx[1]#_g167598_|)) + (let ((__tmp168756 |gx[1]#_g168757_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167597 + __obj168390 + __tmp168756 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167599 - (let ((__tmp167608 - (let ((__tmp167609 |gx[1]#_g167610_|)) + (let ((__tmp168758 |gx[1]#_g168759_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj168390 + __tmp168758 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp168760 + (let ((__tmp168769 + (let ((__tmp168770 |gx[1]#_g168771_|)) (declare (not safe)) - (cons 'context __tmp167609))) - (__tmp167600 - (let ((__tmp167605 - (let ((__tmp167606 |gx[1]#_g167607_|)) + (cons 'context __tmp168770))) + (__tmp168761 + (let ((__tmp168766 + (let ((__tmp168767 |gx[1]#_g168768_|)) (declare (not safe)) - (cons 'phi __tmp167606))) - (__tmp167601 - (let ((__tmp167602 - (let ((__tmp167603 |gx[1]#_g167604_|)) + (cons 'phi __tmp168767))) + (__tmp168762 + (let ((__tmp168763 + (let ((__tmp168764 |gx[1]#_g168765_|)) (declare (not safe)) - (cons 'e __tmp167603)))) + (cons 'e __tmp168764)))) (declare (not safe)) - (cons __tmp167602 '())))) + (cons __tmp168763 '())))) (declare (not safe)) - (cons __tmp167605 __tmp167601)))) + (cons __tmp168766 __tmp168762)))) (declare (not safe)) - (cons __tmp167608 __tmp167600)))) + (cons __tmp168769 __tmp168761)))) (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167599 - '11 + __obj168390 + __tmp168760 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167611 - (let ((__tmp167620 - (let ((__tmp167621 |gx[1]#_g167622_|)) + (let ((__tmp168772 + (let ((__tmp168781 + (let ((__tmp168782 |gx[1]#_g168783_|)) (declare (not safe)) - (cons 'context __tmp167621))) - (__tmp167612 - (let ((__tmp167617 - (let ((__tmp167618 |gx[1]#_g167619_|)) + (cons 'context __tmp168782))) + (__tmp168773 + (let ((__tmp168778 + (let ((__tmp168779 |gx[1]#_g168780_|)) (declare (not safe)) - (cons 'phi __tmp167618))) - (__tmp167613 - (let ((__tmp167614 - (let ((__tmp167615 |gx[1]#_g167616_|)) + (cons 'phi __tmp168779))) + (__tmp168774 + (let ((__tmp168775 + (let ((__tmp168776 |gx[1]#_g168777_|)) (declare (not safe)) - (cons 'e __tmp167615)))) + (cons 'e __tmp168776)))) (declare (not safe)) - (cons __tmp167614 '())))) + (cons __tmp168775 '())))) (declare (not safe)) - (cons __tmp167617 __tmp167613)))) + (cons __tmp168778 __tmp168774)))) (declare (not safe)) - (cons __tmp167620 __tmp167612)))) + (cons __tmp168781 __tmp168773)))) (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167611 - '12 + __obj168390 + __tmp168772 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167623 - (let ((__tmp167632 - (let ((__tmp167633 |gx[1]#_g167634_|)) + (let ((__tmp168784 + (let ((__tmp168793 + (let ((__tmp168794 |gx[1]#_g168795_|)) (declare (not safe)) - (cons 'context __tmp167633))) - (__tmp167624 - (let ((__tmp167629 - (let ((__tmp167630 |gx[1]#_g167631_|)) + (cons 'context __tmp168794))) + (__tmp168785 + (let ((__tmp168790 + (let ((__tmp168791 |gx[1]#_g168792_|)) (declare (not safe)) - (cons 'phi __tmp167630))) - (__tmp167625 - (let ((__tmp167626 - (let ((__tmp167627 |gx[1]#_g167628_|)) + (cons 'phi __tmp168791))) + (__tmp168786 + (let ((__tmp168787 + (let ((__tmp168788 |gx[1]#_g168789_|)) (declare (not safe)) - (cons 'e __tmp167627)))) + (cons 'e __tmp168788)))) (declare (not safe)) - (cons __tmp167626 '())))) + (cons __tmp168787 '())))) (declare (not safe)) - (cons __tmp167629 __tmp167625)))) + (cons __tmp168790 __tmp168786)))) (declare (not safe)) - (cons __tmp167632 __tmp167624)))) + (cons __tmp168793 __tmp168785)))) (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167623 - '13 + __obj168390 + __tmp168784 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167635 - (let ((__tmp167644 - (let ((__tmp167645 |gx[1]#_g167646_|)) + (let ((__tmp168796 + (let ((__tmp168805 + (let ((__tmp168806 |gx[1]#_g168807_|)) (declare (not safe)) - (cons 'context __tmp167645))) - (__tmp167636 - (let ((__tmp167641 - (let ((__tmp167642 |gx[1]#_g167643_|)) + (cons 'context __tmp168806))) + (__tmp168797 + (let ((__tmp168802 + (let ((__tmp168803 |gx[1]#_g168804_|)) (declare (not safe)) - (cons 'phi __tmp167642))) - (__tmp167637 - (let ((__tmp167638 - (let ((__tmp167639 |gx[1]#_g167640_|)) + (cons 'phi __tmp168803))) + (__tmp168798 + (let ((__tmp168799 + (let ((__tmp168800 |gx[1]#_g168801_|)) (declare (not safe)) - (cons 'e __tmp167639)))) + (cons 'e __tmp168800)))) (declare (not safe)) - (cons __tmp167638 '())))) + (cons __tmp168799 '())))) (declare (not safe)) - (cons __tmp167641 __tmp167637)))) + (cons __tmp168802 __tmp168798)))) (declare (not safe)) - (cons __tmp167644 __tmp167636)))) + (cons __tmp168805 __tmp168797)))) (declare (not safe)) (##unchecked-structure-set! - __obj167229 - __tmp167635 - '14 + __obj168390 + __tmp168796 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj167229)) + __obj168390)) (define |gx[:0:]#import-export-expander| - (let ((__obj167230 + (let ((__obj168391 (let () (declare (not safe)) (##structure @@ -2244,11 +2298,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167230 + __obj168391 'gx#import-export-expander::t '1 gerbil/core$$#class-type-info::t @@ -2256,7 +2311,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167230 + __obj168391 'import-export-expander '2 gerbil/core$$#class-type-info::t @@ -2264,30 +2319,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167230 + __obj168391 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167647 - (let ((__tmp167651 |gx[1]#_g167652_|) - (__tmp167648 - (let ((__tmp167649 |gx[1]#_g167650_|)) + (let ((__tmp168808 + (let ((__tmp168812 |gx[1]#_g168813_|) + (__tmp168809 + (let ((__tmp168810 |gx[1]#_g168811_|)) (declare (not safe)) - (cons __tmp167649 '())))) + (cons __tmp168810 '())))) (declare (not safe)) - (cons __tmp167651 __tmp167648)))) + (cons __tmp168812 __tmp168809)))) (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167647 + __obj168391 + __tmp168808 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj167230 + __obj168391 '#f '5 gerbil/core$$#class-type-info::t @@ -2295,7 +2350,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167230 + __obj168391 '#f '6 gerbil/core$$#class-type-info::t @@ -2303,145 +2358,153 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj167230 - ':init! + __obj168391 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167653 |gx[1]#_g167654_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167653 + __obj168391 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167655 |gx[1]#_g167656_|)) + (let ((__tmp168814 |gx[1]#_g168815_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167655 + __obj168391 + __tmp168814 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167657 |gx[1]#_g167658_|)) + (let ((__tmp168816 |gx[1]#_g168817_|)) (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167657 + __obj168391 + __tmp168816 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167659 - (let ((__tmp167668 - (let ((__tmp167669 |gx[1]#_g167670_|)) + (let ((__tmp168818 |gx[1]#_g168819_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj168391 + __tmp168818 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp168820 + (let ((__tmp168829 + (let ((__tmp168830 |gx[1]#_g168831_|)) (declare (not safe)) - (cons 'context __tmp167669))) - (__tmp167660 - (let ((__tmp167665 - (let ((__tmp167666 |gx[1]#_g167667_|)) + (cons 'context __tmp168830))) + (__tmp168821 + (let ((__tmp168826 + (let ((__tmp168827 |gx[1]#_g168828_|)) (declare (not safe)) - (cons 'phi __tmp167666))) - (__tmp167661 - (let ((__tmp167662 - (let ((__tmp167663 |gx[1]#_g167664_|)) + (cons 'phi __tmp168827))) + (__tmp168822 + (let ((__tmp168823 + (let ((__tmp168824 |gx[1]#_g168825_|)) (declare (not safe)) - (cons 'e __tmp167663)))) + (cons 'e __tmp168824)))) (declare (not safe)) - (cons __tmp167662 '())))) + (cons __tmp168823 '())))) (declare (not safe)) - (cons __tmp167665 __tmp167661)))) + (cons __tmp168826 __tmp168822)))) (declare (not safe)) - (cons __tmp167668 __tmp167660)))) + (cons __tmp168829 __tmp168821)))) (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167659 - '11 + __obj168391 + __tmp168820 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167671 - (let ((__tmp167680 - (let ((__tmp167681 |gx[1]#_g167682_|)) + (let ((__tmp168832 + (let ((__tmp168841 + (let ((__tmp168842 |gx[1]#_g168843_|)) (declare (not safe)) - (cons 'context __tmp167681))) - (__tmp167672 - (let ((__tmp167677 - (let ((__tmp167678 |gx[1]#_g167679_|)) + (cons 'context __tmp168842))) + (__tmp168833 + (let ((__tmp168838 + (let ((__tmp168839 |gx[1]#_g168840_|)) (declare (not safe)) - (cons 'phi __tmp167678))) - (__tmp167673 - (let ((__tmp167674 - (let ((__tmp167675 |gx[1]#_g167676_|)) + (cons 'phi __tmp168839))) + (__tmp168834 + (let ((__tmp168835 + (let ((__tmp168836 |gx[1]#_g168837_|)) (declare (not safe)) - (cons 'e __tmp167675)))) + (cons 'e __tmp168836)))) (declare (not safe)) - (cons __tmp167674 '())))) + (cons __tmp168835 '())))) (declare (not safe)) - (cons __tmp167677 __tmp167673)))) + (cons __tmp168838 __tmp168834)))) (declare (not safe)) - (cons __tmp167680 __tmp167672)))) + (cons __tmp168841 __tmp168833)))) (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167671 - '12 + __obj168391 + __tmp168832 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167683 - (let ((__tmp167692 - (let ((__tmp167693 |gx[1]#_g167694_|)) + (let ((__tmp168844 + (let ((__tmp168853 + (let ((__tmp168854 |gx[1]#_g168855_|)) (declare (not safe)) - (cons 'context __tmp167693))) - (__tmp167684 - (let ((__tmp167689 - (let ((__tmp167690 |gx[1]#_g167691_|)) + (cons 'context __tmp168854))) + (__tmp168845 + (let ((__tmp168850 + (let ((__tmp168851 |gx[1]#_g168852_|)) (declare (not safe)) - (cons 'phi __tmp167690))) - (__tmp167685 - (let ((__tmp167686 - (let ((__tmp167687 |gx[1]#_g167688_|)) + (cons 'phi __tmp168851))) + (__tmp168846 + (let ((__tmp168847 + (let ((__tmp168848 |gx[1]#_g168849_|)) (declare (not safe)) - (cons 'e __tmp167687)))) + (cons 'e __tmp168848)))) (declare (not safe)) - (cons __tmp167686 '())))) + (cons __tmp168847 '())))) (declare (not safe)) - (cons __tmp167689 __tmp167685)))) + (cons __tmp168850 __tmp168846)))) (declare (not safe)) - (cons __tmp167692 __tmp167684)))) + (cons __tmp168853 __tmp168845)))) (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167683 - '13 + __obj168391 + __tmp168844 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp167695 - (let ((__tmp167704 - (let ((__tmp167705 |gx[1]#_g167706_|)) + (let ((__tmp168856 + (let ((__tmp168865 + (let ((__tmp168866 |gx[1]#_g168867_|)) (declare (not safe)) - (cons 'context __tmp167705))) - (__tmp167696 - (let ((__tmp167701 - (let ((__tmp167702 |gx[1]#_g167703_|)) + (cons 'context __tmp168866))) + (__tmp168857 + (let ((__tmp168862 + (let ((__tmp168863 |gx[1]#_g168864_|)) (declare (not safe)) - (cons 'phi __tmp167702))) - (__tmp167697 - (let ((__tmp167698 - (let ((__tmp167699 |gx[1]#_g167700_|)) + (cons 'phi __tmp168863))) + (__tmp168858 + (let ((__tmp168859 + (let ((__tmp168860 |gx[1]#_g168861_|)) (declare (not safe)) - (cons 'e __tmp167699)))) + (cons 'e __tmp168860)))) (declare (not safe)) - (cons __tmp167698 '())))) + (cons __tmp168859 '())))) (declare (not safe)) - (cons __tmp167701 __tmp167697)))) + (cons __tmp168862 __tmp168858)))) (declare (not safe)) - (cons __tmp167704 __tmp167696)))) + (cons __tmp168865 __tmp168857)))) (declare (not safe)) (##unchecked-structure-set! - __obj167230 - __tmp167695 - '14 + __obj168391 + __tmp168856 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj167230)))) + __obj168391)))) diff --git a/src/bootstrap/gerbil/expander/root__0.scm b/src/bootstrap/gerbil/expander/root__0.scm index b2b832100..8a4860868 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 1707773928) + (define gerbil/expander/root::timestamp 1708102803) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,591 +262,596 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_self174471_ _bind?174472_) - (if (##fx< '2 (##structure-length _self174471_)) + (lambda (_self175632_ _bind?175633_) + (if (##fx< '2 (##structure-length _self175632_)) (begin (##unchecked-structure-set! - _self174471_ + _self175632_ 'root '1 - (##structure-type _self174471_) + (##structure-type _self175632_) '#f) (##unchecked-structure-set! - _self174471_ + _self175632_ (make-table 'test: eq?) '2 - (##structure-type _self174471_) + (##structure-type _self175632_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self174471_ + _self175632_ '2 - (##vector-length _self174471_))) - (if _bind?174472_ + (##vector-length _self175632_))) + (if _bind?175633_ (begin - (let ((__method179090 - (method-ref _self174471_ 'bind-core-syntax-expanders!))) - (if __method179090 - (__method179090 _self174471_) + (let ((__method180251 + (method-ref _self175632_ 'bind-core-syntax-expanders!))) + (if __method180251 + (__method180251 _self175632_) (error '"Missing method" - _self174471_ + _self175632_ 'bind-core-syntax-expanders!))) - (let ((__method179091 - (method-ref _self174471_ 'bind-core-macro-expanders!))) - (if __method179091 - (__method179091 _self174471_) + (let ((__method180252 + (method-ref _self175632_ 'bind-core-macro-expanders!))) + (if __method180252 + (__method180252 _self175632_) (error '"Missing method" - _self174471_ + _self175632_ 'bind-core-macro-expanders!))) - (let ((__method179092 - (method-ref _self174471_ 'bind-core-features!))) - (if __method179092 - (__method179092 _self174471_) + (let ((__method180253 + (method-ref _self175632_ 'bind-core-features!))) + (if __method180253 + (__method180253 _self175632_) (error '"Missing method" - _self174471_ + _self175632_ 'bind-core-features!)))) '#!void))) (define gx#root-context:::init!__0 - (lambda (_self174477_) - (let ((_bind?174479_ '#t)) - (gx#root-context:::init!__% _self174477_ _bind?174479_)))) + (lambda (_self175638_) + (let ((_bind?175640_ '#t)) + (gx#root-context:::init!__% _self175638_ _bind?175640_)))) (define gx#root-context:::init! - (lambda _g179095_ - (let ((_g179094_ (##length _g179095_))) - (cond ((##fx= _g179094_ 1) - (apply (lambda (_self174477_) - (gx#root-context:::init!__0 _self174477_)) - _g179095_)) - ((##fx= _g179094_ 2) - (apply (lambda (_self174481_ _bind?174482_) + (lambda _g180256_ + (let ((_g180255_ (##length _g180256_))) + (cond ((##fx= _g180255_ 1) + (apply (lambda (_self175638_) + (gx#root-context:::init!__0 _self175638_)) + _g180256_)) + ((##fx= _g180255_ 2) + (apply (lambda (_self175642_ _bind?175643_) (gx#root-context:::init!__% - _self174481_ - _bind?174482_)) - _g179095_)) + _self175642_ + _bind?175643_)) + _g180256_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g179095_)))))) + _g180256_)))))) (define gx#root-context:::init!::specialize - (lambda (__t179051) - (let ((__bind-core-features!179052 + (lambda (__t180212) + (let ((__bind-core-features!180213 (make-promise (lambda () - (let ((__tmp179055 - (direct-method-ref __t179051 'bind-core-features!))) - (if __tmp179055 - __tmp179055 + (let ((__tmp180216 + (direct-method-ref + __t180212 + '#f + 'bind-core-features!))) + (if __tmp180216 + __tmp180216 (error '"Missing method" 'bind-core-features!)))))) - (__bind-core-syntax-expanders!179053 + (__bind-core-syntax-expanders!180214 (make-promise (lambda () - (let ((__tmp179056 + (let ((__tmp180217 (direct-method-ref - __t179051 + __t180212 + '#f 'bind-core-syntax-expanders!))) - (if __tmp179056 - __tmp179056 + (if __tmp180217 + __tmp180217 (error '"Missing method" 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!179054 + (__bind-core-macro-expanders!180215 (make-promise (lambda () - (let ((__tmp179057 + (let ((__tmp180218 (direct-method-ref - __t179051 + __t180212 + '#f 'bind-core-macro-expanders!))) - (if __tmp179057 - __tmp179057 + (if __tmp180218 + __tmp180218 (error '"Missing method" 'bind-core-macro-expanders!))))))) - (let ((_opt-lambda174469174474_ - (lambda (_self174471_ _bind?174472_) - (if (##fx< '2 (##structure-length _self174471_)) + (let ((_opt-lambda175630175635_ + (lambda (_self175632_ _bind?175633_) + (if (##fx< '2 (##structure-length _self175632_)) (begin (##unchecked-structure-set! - _self174471_ + _self175632_ 'root '1 - (##structure-type _self174471_) + (##structure-type _self175632_) '#f) (##unchecked-structure-set! - _self174471_ + _self175632_ (make-table 'test: eq?) '2 - (##structure-type _self174471_) + (##structure-type _self175632_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self174471_ + _self175632_ '2 - (##vector-length _self174471_))) - (if _bind?174472_ + (##vector-length _self175632_))) + (if _bind?175633_ (begin - ((force __bind-core-syntax-expanders!179053) - _self174471_) - ((force __bind-core-macro-expanders!179054) - _self174471_) - ((force __bind-core-features!179052) _self174471_)) + ((force __bind-core-syntax-expanders!180214) + _self175632_) + ((force __bind-core-macro-expanders!180215) + _self175632_) + ((force __bind-core-features!180213) _self175632_)) '#!void)))) - (lambda _g179097_ - (let ((_g179096_ (##length _g179097_))) - (cond ((##fx= _g179096_ 1) - (apply (lambda (_self174477_) - (let ((_bind?174479_ '#t)) - (_opt-lambda174469174474_ - _self174477_ - _bind?174479_))) - _g179097_)) - ((##fx= _g179096_ 2) - (apply (lambda (_self174481_ _bind?174482_) - (_opt-lambda174469174474_ - _self174481_ - _bind?174482_)) - _g179097_)) + (lambda _g180258_ + (let ((_g180257_ (##length _g180258_))) + (cond ((##fx= _g180257_ 1) + (apply (lambda (_self175638_) + (let ((_bind?175640_ '#t)) + (_opt-lambda175630175635_ + _self175638_ + _bind?175640_))) + _g180258_)) + ((##fx= _g180257_ 2) + (apply (lambda (_self175642_ _bind?175643_) + (_opt-lambda175630175635_ + _self175642_ + _bind?175643_)) + _g180258_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g179097_))))))))) + _g180258_))))))))) (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 (_self174327_ _super174328_) - (let ((_super174336_ - (let ((_$e174330_ _super174328_)) - (if _$e174330_ - _$e174330_ - (let ((_$e174333_ (gx#core-context-root__0))) - (if _$e174333_ - _$e174333_ - (let ((__obj179093 + (lambda (_self175488_ _super175489_) + (let ((_super175497_ + (let ((_$e175491_ _super175489_)) + (if _$e175491_ + _$e175491_ + (let ((_$e175494_ (gx#core-context-root__0))) + (if _$e175494_ + _$e175494_ + (let ((__obj180254 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init! __obj179093) - __obj179093))))))) - (if (##fx< '5 (##structure-length _self174327_)) + (gx#root-context:::init! __obj180254) + __obj180254))))))) + (if (##fx< '5 (##structure-length _self175488_)) (begin (##unchecked-structure-set! - _self174327_ + _self175488_ 'top '1 - (##structure-type _self174327_) + (##structure-type _self175488_) '#f) (##unchecked-structure-set! - _self174327_ + _self175488_ (make-table 'test: eq?) '2 - (##structure-type _self174327_) + (##structure-type _self175488_) '#f) (##unchecked-structure-set! - _self174327_ - _super174336_ + _self175488_ + _super175497_ '3 - (##structure-type _self174327_) + (##structure-type _self175488_) '#f) (##unchecked-structure-set! - _self174327_ + _self175488_ '#f '4 - (##structure-type _self174327_) + (##structure-type _self175488_) '#f) (##unchecked-structure-set! - _self174327_ + _self175488_ '#f '5 - (##structure-type _self174327_) + (##structure-type _self175488_) '#f)) (error '"struct-instance-init!: too many arguments for struct" - _self174327_ + _self175488_ '5 - (##vector-length _self174327_)))))) + (##vector-length _self175488_)))))) (define gx#top-context:::init!__0 - (lambda (_self174341_) - (let ((_super174343_ '#f)) - (gx#top-context:::init!__% _self174341_ _super174343_)))) + (lambda (_self175502_) + (let ((_super175504_ '#f)) + (gx#top-context:::init!__% _self175502_ _super175504_)))) (define gx#top-context:::init! - (lambda _g179099_ - (let ((_g179098_ (##length _g179099_))) - (cond ((##fx= _g179098_ 1) - (apply (lambda (_self174341_) - (gx#top-context:::init!__0 _self174341_)) - _g179099_)) - ((##fx= _g179098_ 2) - (apply (lambda (_self174345_ _super174346_) + (lambda _g180260_ + (let ((_g180259_ (##length _g180260_))) + (cond ((##fx= _g180259_ 1) + (apply (lambda (_self175502_) + (gx#top-context:::init!__0 _self175502_)) + _g180260_)) + ((##fx= _g180259_ 2) + (apply (lambda (_self175506_ _super175507_) (gx#top-context:::init!__% - _self174345_ - _super174346_)) - _g179099_)) + _self175506_ + _super175507_)) + _g180260_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g179099_)))))) + _g180260_)))))) (bind-method! gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_self174058_ _bindings174059_) + (lambda (_self175219_ _bindings175220_) (for-each - (lambda (_bind174061_) - (let* ((_bind174062174069_ _bind174061_) - (_E174064174073_ + (lambda (_bind175222_) + (let* ((_bind175223175230_ _bind175222_) + (_E175225175234_ (lambda () - (error '"No clause matching" _bind174062174069_))) - (_K174065174182_ - (lambda (_rest174076_ _id174077_) + (error '"No clause matching" _bind175223175230_))) + (_K175226175343_ + (lambda (_rest175237_ _id175238_) (gx#core-context-put! - _self174058_ - _id174077_ + _self175219_ + _id175238_ (##structure gx#syntax-binding::t - _id174077_ - _id174077_ + _id175238_ + _id175238_ '#f - (let* ((_rest174078174089_ _rest174076_) - (_E174080174093_ + (let* ((_rest175239175250_ _rest175237_) + (_E175241175254_ (lambda () (error '"No clause matching" - _rest174078174089_))) - (_K174081174158_ - (lambda (_compiler174096_ - _expander174097_ - _key174098_) - ((let* ((_key174099174112_ _key174098_) - (_E174105174116_ + _rest175239175250_))) + (_K175242175319_ + (lambda (_compiler175257_ + _expander175258_ + _key175259_) + ((let* ((_key175260175273_ _key175259_) + (_E175266175277_ (lambda () (error '"No clause matching" - _key174099174112_)))) - (let ((_K174110174152_ + _key175260175273_)))) + (let ((_K175271175313_ (lambda () gx#make-top-special-form)) - (_K174109174145_ + (_K175270175306_ (lambda () gx#make-module-special-form)) - (_K174108174137_ + (_K175269175298_ (lambda () gx#make-definition-form)) - (_K174107174129_ + (_K175268175290_ (lambda () gx#make-special-form)) - (_K174106174121_ + (_K175267175282_ (lambda () gx#make-expression-form))) - (let* ((_try-match174104174124_ + (let* ((_try-match175265175285_ (lambda () - (if (##eq? _key174099174112_ + (if (##eq? _key175260175273_ 'expr:) - (_K174106174121_) - (_E174105174116_)))) - (_try-match174103174132_ + (_K175267175282_) + (_E175266175277_)))) + (_try-match175264175293_ (lambda () - (if (##eq? _key174099174112_ + (if (##eq? _key175260175273_ 'special:) - (_K174107174129_) - (_try-match174104174124_)))) - (_try-match174102174140_ + (_K175268175290_) + (_try-match175265175285_)))) + (_try-match175263175301_ (lambda () - (if (##eq? _key174099174112_ + (if (##eq? _key175260175273_ 'define:) - (_K174108174137_) - (_try-match174103174132_)))) - (_try-match174101174148_ + (_K175269175298_) + (_try-match175264175293_)))) + (_try-match175262175309_ (lambda () - (if (##eq? _key174099174112_ + (if (##eq? _key175260175273_ 'module:) - (_K174109174145_) - (_try-match174102174140_))))) - (if (##eq? _key174099174112_ 'top:) - (_K174110174152_) - (_try-match174101174148_))))) - _expander174097_ - _id174077_ - (let ((_$e174155_ _compiler174096_)) - (if _$e174155_ - _$e174155_ + (_K175270175306_) + (_try-match175263175301_))))) + (if (##eq? _key175260175273_ 'top:) + (_K175271175313_) + (_try-match175262175309_))))) + _expander175258_ + _id175238_ + (let ((_$e175316_ _compiler175257_)) + (if _$e175316_ + _$e175316_ gx#core-compile-top-error)))))) - (if (##pair? _rest174078174089_) - (let ((_hd174082174161_ - (##car _rest174078174089_)) - (_tl174083174163_ - (##cdr _rest174078174089_))) - (let ((_key174166_ _hd174082174161_)) - (if (##pair? _tl174083174163_) - (let ((_hd174084174168_ - (##car _tl174083174163_)) - (_tl174085174170_ - (##cdr _tl174083174163_))) - (let ((_expander174173_ - _hd174084174168_)) - (if (##pair? _tl174085174170_) - (let ((_hd174086174175_ - (##car _tl174085174170_)) - (_tl174087174177_ - (##cdr _tl174085174170_))) - (let ((_compiler174180_ - _hd174086174175_)) - (if (##null? _tl174087174177_) - (_K174081174158_ - _compiler174180_ - _expander174173_ - _key174166_) - (_E174080174093_)))) - (_E174080174093_)))) - (_E174080174093_)))) - (_E174080174093_)))))))) - (if (##pair? _bind174062174069_) - (let ((_hd174066174185_ (##car _bind174062174069_)) - (_tl174067174187_ (##cdr _bind174062174069_))) - (let* ((_id174190_ _hd174066174185_) - (_rest174192_ _tl174067174187_)) - (_K174065174182_ _rest174192_ _id174190_))) - (_E174064174073_)))) - _bindings174059_))) + (if (##pair? _rest175239175250_) + (let ((_hd175243175322_ + (##car _rest175239175250_)) + (_tl175244175324_ + (##cdr _rest175239175250_))) + (let ((_key175327_ _hd175243175322_)) + (if (##pair? _tl175244175324_) + (let ((_hd175245175329_ + (##car _tl175244175324_)) + (_tl175246175331_ + (##cdr _tl175244175324_))) + (let ((_expander175334_ + _hd175245175329_)) + (if (##pair? _tl175246175331_) + (let ((_hd175247175336_ + (##car _tl175246175331_)) + (_tl175248175338_ + (##cdr _tl175246175331_))) + (let ((_compiler175341_ + _hd175247175336_)) + (if (##null? _tl175248175338_) + (_K175242175319_ + _compiler175341_ + _expander175334_ + _key175327_) + (_E175241175254_)))) + (_E175241175254_)))) + (_E175241175254_)))) + (_E175241175254_)))))))) + (if (##pair? _bind175223175230_) + (let ((_hd175227175346_ (##car _bind175223175230_)) + (_tl175228175348_ (##cdr _bind175223175230_))) + (let* ((_id175351_ _hd175227175346_) + (_rest175353_ _tl175228175348_)) + (_K175226175343_ _rest175353_ _id175351_))) + (_E175225175234_)))) + _bindings175220_))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_self174197_) - (let ((_bindings174199_ gx#*core-syntax-expanders*)) + (lambda (_self175358_) + (let ((_bindings175360_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _self174197_ - _bindings174199_)))) + _self175358_ + _bindings175360_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g179101_ - (let ((_g179100_ (##length _g179101_))) - (cond ((##fx= _g179100_ 1) - (apply (lambda (_self174197_) + (lambda _g180262_ + (let ((_g180261_ (##length _g180262_))) + (cond ((##fx= _g180261_ 1) + (apply (lambda (_self175358_) (gx#expander-context::bind-core-syntax-expanders!__0 - _self174197_)) - _g179101_)) - ((##fx= _g179100_ 2) - (apply (lambda (_self174201_ _bindings174202_) + _self175358_)) + _g180262_)) + ((##fx= _g180261_ 2) + (apply (lambda (_self175362_ _bindings175363_) (gx#expander-context::bind-core-syntax-expanders!__% - _self174201_ - _bindings174202_)) - _g179101_)) + _self175362_ + _bindings175363_)) + _g180262_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g179101_)))))) + _g180262_)))))) (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 (_self173830_ _bindings173831_) + (lambda (_self174991_ _bindings174992_) (for-each - (lambda (_bind173833_) - (let* ((_bind173834173841_ _bind173833_) - (_E173836173845_ + (lambda (_bind174994_) + (let* ((_bind174995175002_ _bind174994_) + (_E174997175006_ (lambda () - (error '"No clause matching" _bind173834173841_))) - (_K173837173913_ - (lambda (_rest173848_ _id173849_) + (error '"No clause matching" _bind174995175002_))) + (_K174998175074_ + (lambda (_rest175009_ _id175010_) (gx#core-context-put! - _self173830_ - _id173849_ + _self174991_ + _id175010_ (##structure gx#syntax-binding::t - _id173849_ - _id173849_ + _id175010_ + _id175010_ '#f - (let* ((_rest173850173865_ _rest173848_) - (_E173854173869_ + (let* ((_rest175011175026_ _rest175009_) + (_E175015175030_ (lambda () (error '"No clause matching" - _rest173850173865_)))) - (let ((_K173859173898_ - (lambda (_core-id173896_) + _rest175011175026_)))) + (let ((_K175020175059_ + (lambda (_core-id175057_) (##structure gx#rename-macro-expander::t - _core-id173896_))) - (_K173856173883_ - (lambda (_proc173881_) + _core-id175057_))) + (_K175017175044_ + (lambda (_proc175042_) (##structure gx#macro-expander::t - _proc173881_))) - (_K173855173874_ + _proc175042_))) + (_K175016175035_ (lambda () (##structure gx#reserved-expander::t - _id173849_)))) - (let ((_try-match173853173877_ + _id175010_)))) + (let ((_try-match175014175038_ (lambda () - (if (##null? _rest173850173865_) - (_K173855173874_) - (_E173854173869_))))) - (if (##pair? _rest173850173865_) - (let ((_tl173861173903_ - (##cdr _rest173850173865_)) - (_hd173860173901_ - (##car _rest173850173865_))) - (if (##eq? _hd173860173901_ '=>) - (if (##pair? _tl173861173903_) - (let ((_tl173863173908_ - (##cdr _tl173861173903_)) - (_hd173862173906_ - (##car _tl173861173903_))) - (if (##null? _tl173863173908_) - (let ((_core-id173911_ - _hd173862173906_)) + (if (##null? _rest175011175026_) + (_K175016175035_) + (_E175015175030_))))) + (if (##pair? _rest175011175026_) + (let ((_tl175022175064_ + (##cdr _rest175011175026_)) + (_hd175021175062_ + (##car _rest175011175026_))) + (if (##eq? _hd175021175062_ '=>) + (if (##pair? _tl175022175064_) + (let ((_tl175024175069_ + (##cdr _tl175022175064_)) + (_hd175023175067_ + (##car _tl175022175064_))) + (if (##null? _tl175024175069_) + (let ((_core-id175072_ + _hd175023175067_)) (##structure gx#rename-macro-expander::t - _core-id173911_)) - (_E173854173869_))) - (if (##null? _tl173861173903_) - (let ((_proc173891_ - _hd173860173901_)) + _core-id175072_)) + (_E175015175030_))) + (if (##null? _tl175022175064_) + (let ((_proc175052_ + _hd175021175062_)) (##structure gx#macro-expander::t - _proc173891_)) - (_E173854173869_))) - (if (##null? _tl173861173903_) - (let ((_proc173891_ - _hd173860173901_)) + _proc175052_)) + (_E175015175030_))) + (if (##null? _tl175022175064_) + (let ((_proc175052_ + _hd175021175062_)) (##structure gx#macro-expander::t - _proc173891_)) - (_E173854173869_)))) - (_try-match173853173877_)))))))))) - (if (##pair? _bind173834173841_) - (let ((_hd173838173916_ (##car _bind173834173841_)) - (_tl173839173918_ (##cdr _bind173834173841_))) - (let* ((_id173921_ _hd173838173916_) - (_rest173923_ _tl173839173918_)) - (_K173837173913_ _rest173923_ _id173921_))) - (_E173836173845_)))) - _bindings173831_))) + _proc175052_)) + (_E175015175030_)))) + (_try-match175014175038_)))))))))) + (if (##pair? _bind174995175002_) + (let ((_hd174999175077_ (##car _bind174995175002_)) + (_tl175000175079_ (##cdr _bind174995175002_))) + (let* ((_id175082_ _hd174999175077_) + (_rest175084_ _tl175000175079_)) + (_K174998175074_ _rest175084_ _id175082_))) + (_E174997175006_)))) + _bindings174992_))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_self173928_) - (let ((_bindings173930_ gx#*core-macro-expanders*)) + (lambda (_self175089_) + (let ((_bindings175091_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _self173928_ - _bindings173930_)))) + _self175089_ + _bindings175091_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g179103_ - (let ((_g179102_ (##length _g179103_))) - (cond ((##fx= _g179102_ 1) - (apply (lambda (_self173928_) + (lambda _g180264_ + (let ((_g180263_ (##length _g180264_))) + (cond ((##fx= _g180263_ 1) + (apply (lambda (_self175089_) (gx#expander-context::bind-core-macro-expanders!__0 - _self173928_)) - _g179103_)) - ((##fx= _g179102_ 2) - (apply (lambda (_self173932_ _bindings173933_) + _self175089_)) + _g180264_)) + ((##fx= _g180263_ 2) + (apply (lambda (_self175093_ _bindings175094_) (gx#expander-context::bind-core-macro-expanders!__% - _self173932_ - _bindings173933_)) - _g179103_)) + _self175093_ + _bindings175094_)) + _g180264_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g179103_)))))) + _g180264_)))))) (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 (_self173574_) - (letrec ((_linux-variant?173576_ - (lambda (_sys-type173675_) - (let* ((_g173676173684_ + (lambda (_self174735_) + (letrec ((_linux-variant?174737_ + (lambda (_sys-type174836_) + (let* ((_g174837174845_ (string-split - (symbol->string _sys-type173675_) + (symbol->string _sys-type174836_) '#\-)) - (_else173678173692_ (lambda () '#f)) - (_K173680173697_ - (lambda (_rest173695_) - (not (null? _rest173695_))))) - (if (##pair? _g173676173684_) - (let ((_hd173681173700_ (##car _g173676173684_)) - (_tl173682173702_ (##cdr _g173676173684_))) - (if (equal? _hd173681173700_ '"linux") - (let ((_rest173705_ _tl173682173702_)) - (_K173680173697_ _rest173705_)) - (_else173678173692_))) - (_else173678173692_))))) - (_bsd-variant173577_ - (lambda (_sys-type173634_) - (let ((_sys-type-str173636_ - (symbol->string _sys-type173634_))) - (let _lp173638_ ((_rest173640_ + (_else174839174853_ (lambda () '#f)) + (_K174841174858_ + (lambda (_rest174856_) + (not (null? _rest174856_))))) + (if (##pair? _g174837174845_) + (let ((_hd174842174861_ (##car _g174837174845_)) + (_tl174843174863_ (##cdr _g174837174845_))) + (if (equal? _hd174842174861_ '"linux") + (let ((_rest174866_ _tl174843174863_)) + (_K174841174858_ _rest174866_)) + (_else174839174853_))) + (_else174839174853_))))) + (_bsd-variant174738_ + (lambda (_sys-type174795_) + (let ((_sys-type-str174797_ + (symbol->string _sys-type174795_))) + (let _lp174799_ ((_rest174801_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_rest173641173649_ _rest173640_) - (_else173643173657_ (lambda () '#f)) - (_K173645173663_ - (lambda (_rest173660_ _sys173661_) + (let* ((_rest174802174810_ _rest174801_) + (_else174804174818_ (lambda () '#f)) + (_K174806174824_ + (lambda (_rest174821_ _sys174822_) (if (string-prefix? - _sys173661_ - _sys-type-str173636_) - _sys173661_ - (_lp173638_ _rest173660_))))) - (if (##pair? _rest173641173649_) - (let ((_hd173646173666_ - (##car _rest173641173649_)) - (_tl173647173668_ - (##cdr _rest173641173649_))) - (let* ((_sys173671_ _hd173646173666_) - (_rest173673_ _tl173647173668_)) - (_K173645173663_ _rest173673_ _sys173671_))) - (_else173643173657_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _self173574_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self173574_) - (let* ((_g173578173590_ (system-type)) - (_else173580173598_ (lambda () '#!void)) - (_K173582173610_ - (lambda (_sys-type173601_ _sys-vendor173602_ _sys-cpu173603_) + _sys174822_ + _sys-type-str174797_) + _sys174822_ + (_lp174799_ _rest174821_))))) + (if (##pair? _rest174802174810_) + (let ((_hd174807174827_ + (##car _rest174802174810_)) + (_tl174808174829_ + (##cdr _rest174802174810_))) + (let* ((_sys174832_ _hd174807174827_) + (_rest174834_ _tl174808174829_)) + (_K174806174824_ _rest174834_ _sys174832_))) + (_else174804174818_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _self174735_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _self174735_) + (let* ((_g174739174751_ (system-type)) + (_else174741174759_ (lambda () '#!void)) + (_K174743174771_ + (lambda (_sys-type174762_ _sys-vendor174763_ _sys-cpu174764_) (gx#core-bind-feature!__% - _sys-cpu173603_ + _sys-cpu174764_ '#f '0 - _self173574_) + _self174735_) (gx#core-bind-feature!__% - _sys-type173601_ + _sys-type174762_ '#f '0 - _self173574_) - (if (_linux-variant?173576_ _sys-type173601_) + _self174735_) + (if (_linux-variant?174737_ _sys-type174762_) (gx#core-bind-feature!__% (string->symbol '"linux") '#f '0 - _self173574_) - (let ((_$e173605_ - (_bsd-variant173577_ _sys-type173601_))) - (if _$e173605_ - ((lambda (_sys-prefix173608_) + _self174735_) + (let ((_$e174766_ + (_bsd-variant174738_ _sys-type174762_))) + (if _$e174766_ + ((lambda (_sys-prefix174769_) (gx#core-bind-feature!__% (string->symbol '"bsd") '#f '0 - _self173574_) + _self174735_) (gx#core-bind-feature!__% - (string->symbol _sys-prefix173608_) + (string->symbol _sys-prefix174769_) '#f '0 - _self173574_)) - _$e173605_) + _self174735_)) + _$e174766_) '#!void)))))) - (if (##pair? _g173578173590_) - (let ((_hd173583173613_ (##car _g173578173590_)) - (_tl173584173615_ (##cdr _g173578173590_))) - (let ((_sys-cpu173618_ _hd173583173613_)) - (if (##pair? _tl173584173615_) - (let ((_hd173585173620_ (##car _tl173584173615_)) - (_tl173586173622_ (##cdr _tl173584173615_))) - (let ((_sys-vendor173625_ _hd173585173620_)) - (if (##pair? _tl173586173622_) - (let ((_hd173587173627_ - (##car _tl173586173622_)) - (_tl173588173629_ - (##cdr _tl173586173622_))) - (let ((_sys-type173632_ _hd173587173627_)) - (if (##null? _tl173588173629_) - (_K173582173610_ - _sys-type173632_ - _sys-vendor173625_ - _sys-cpu173618_) + (if (##pair? _g174739174751_) + (let ((_hd174744174774_ (##car _g174739174751_)) + (_tl174745174776_ (##cdr _g174739174751_))) + (let ((_sys-cpu174779_ _hd174744174774_)) + (if (##pair? _tl174745174776_) + (let ((_hd174746174781_ (##car _tl174745174776_)) + (_tl174747174783_ (##cdr _tl174745174776_))) + (let ((_sys-vendor174786_ _hd174746174781_)) + (if (##pair? _tl174747174783_) + (let ((_hd174748174788_ + (##car _tl174747174783_)) + (_tl174749174790_ + (##cdr _tl174747174783_))) + (let ((_sys-type174793_ _hd174748174788_)) + (if (##null? _tl174749174790_) + (_K174743174771_ + _sys-type174793_ + _sys-vendor174786_ + _sys-cpu174779_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self173574_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _self174735_) '#!void)))) (bind-method! gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stx.ssxi.ss b/src/bootstrap/gerbil/expander/stx.ssxi.ss index 49c771aa5..bfd0f7863 100644 --- a/src/bootstrap/gerbil/expander/stx.ssxi.ss +++ b/src/bootstrap/gerbil/expander/stx.ssxi.ss @@ -12,6 +12,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#identifier-wrap? (@predicate gx#identifier-wrap::t)) (declare-type gx#make-identifier-wrap (@constructor gx#identifier-wrap::t)) @@ -57,6 +58,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#syntax-wrap? (@predicate gx#syntax-wrap::t)) (declare-type gx#make-syntax-wrap (@constructor gx#syntax-wrap::t)) @@ -86,6 +88,7 @@ package: gerbil/expander #f #t #t + #f #f)) (declare-type gx#syntax-quote? (@predicate gx#syntax-quote::t)) (declare-type gx#make-syntax-quote (@constructor gx#syntax-quote::t)) diff --git a/src/bootstrap/gerbil/expander/stx__0.scm b/src/bootstrap/gerbil/expander/stx__0.scm index 39f307172..eecebd3e9 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 1707773927) + (define gerbil/expander/stx::timestamp 1708102802) (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 _$args137185_ - (apply make-instance gx#identifier-wrap::t _$args137185_))) + (lambda _$args138346_ + (apply make-instance gx#identifier-wrap::t _$args138346_))) (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 _$args137182_ - (apply make-instance gx#syntax-wrap::t _$args137182_))) + (lambda _$args138343_ + (apply make-instance gx#syntax-wrap::t _$args138343_))) (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 _$args137179_ - (apply make-instance gx#syntax-quote::t _$args137179_))) + (lambda _$args138340_ + (apply make-instance gx#syntax-quote::t _$args138340_))) (define gx#syntax-quote-context (make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -118,1011 +118,1011 @@ (define gx#&syntax-quote-source-set! (make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_stx137177_) (symbol? (gx#stx-e _stx137177_)))) + (lambda (_stx138338_) (symbol? (gx#stx-e _stx138338_)))) (define gx#identifier-quote? - (lambda (_stx137175_) - (if (##structure-direct-instance-of? _stx137175_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _stx137175_ '1 gx#AST::t '#f)) + (lambda (_stx138336_) + (if (##structure-direct-instance-of? _stx138336_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _stx138336_ '1 gx#AST::t '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_stx137173_) - (if (##structure-direct-instance-of? _stx137173_ 'gx#syntax-quote::t) + (lambda (_stx138334_) + (if (##structure-direct-instance-of? _stx138334_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _stx137173_ + _stx138334_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _stx137173_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx138334_ '1 gx#AST::t '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_stx137171_) - (if (##structure-direct-instance-of? _stx137171_ 'gx#syntax-quote::t) - _stx137171_ + (lambda (_stx138332_) + (if (##structure-direct-instance-of? _stx138332_ 'gx#syntax-quote::t) + _stx138332_ (if (##structure-direct-instance-of? - _stx137171_ + _stx138332_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _stx137171_ '1 gx#AST::t '#f)) + (##unchecked-structure-ref _stx138332_ '1 gx#AST::t '#f)) '#f)))) (define gx#syntax-e - (lambda (_stx137154_) - (if (##structure-direct-instance-of? _stx137154_ 'gx#syntax-wrap::t) - (let _lp137156_ ((_e137158_ + (lambda (_stx138315_) + (if (##structure-direct-instance-of? _stx138315_ 'gx#syntax-wrap::t) + (let _lp138317_ ((_e138319_ (##unchecked-structure-ref - _stx137154_ + _stx138315_ '1 gx#AST::t '#f)) - (_marks137159_ + (_marks138320_ (cons (##unchecked-structure-ref - _stx137154_ + _stx138315_ '3 gx#syntax-wrap::t '#f) '()))) - (if (##structure? _e137158_) - (let ((_$e137161_ (##type-id (##structure-type _e137158_)))) - (if (eq? 'gx#syntax-wrap::t _$e137161_) - (_lp137156_ - (##unchecked-structure-ref _e137158_ '1 gx#AST::t '#f) + (if (##structure? _e138319_) + (let ((_$e138322_ (##type-id (##structure-type _e138319_)))) + (if (eq? 'gx#syntax-wrap::t _$e138322_) + (_lp138317_ + (##unchecked-structure-ref _e138319_ '1 gx#AST::t '#f) (gx#apply-mark (##unchecked-structure-ref - _e137158_ + _e138319_ '3 gx#syntax-wrap::t '#f) - _marks137159_)) - (if (or (eq? 'gx#syntax-quote::t _$e137161_) - (eq? 'gx#identifier-wrap::t _$e137161_)) + _marks138320_)) + (if (or (eq? 'gx#syntax-quote::t _$e138322_) + (eq? 'gx#identifier-wrap::t _$e138322_)) (##unchecked-structure-ref - _e137158_ + _e138319_ '1 gx#AST::t '#f) - (if (eq? 'gerbil#AST::t _$e137161_) - (_lp137156_ + (if (eq? 'gerbil#AST::t _$e138322_) + (_lp138317_ (##unchecked-structure-ref - _e137158_ + _e138319_ '1 gx#AST::t '#f) - _marks137159_) - _e137158_)))) - (if (null? _marks137159_) - _e137158_ - (if (pair? _e137158_) - (cons (gx#stx-wrap (car _e137158_) _marks137159_) - (gx#stx-wrap (cdr _e137158_) _marks137159_)) - (if (vector? _e137158_) + _marks138320_) + _e138319_)))) + (if (null? _marks138320_) + _e138319_ + (if (pair? _e138319_) + (cons (gx#stx-wrap (car _e138319_) _marks138320_) + (gx#stx-wrap (cdr _e138319_) _marks138320_)) + (if (vector? _e138319_) (vector-map - (lambda (_g137166137168_) - (gx#stx-wrap _g137166137168_ _marks137159_)) - _e137158_) - (if (box? _e137158_) + (lambda (_g138327138329_) + (gx#stx-wrap _g138327138329_ _marks138320_)) + _e138319_) + (if (box? _e138319_) (box (gx#stx-wrap - (unbox _e137158_) - _marks137159_)) - _e137158_)))))) - (if (##structure-instance-of? _stx137154_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx137154_ '1 gx#AST::t '#f) - _stx137154_)))) + (unbox _e138319_) + _marks138320_)) + _e138319_)))))) + (if (##structure-instance-of? _stx138315_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx138315_ '1 gx#AST::t '#f) + _stx138315_)))) (define gx#syntax->datum - (lambda (_stx137152_) - (if (##structure-instance-of? _stx137152_ 'gerbil#AST::t) + (lambda (_stx138313_) + (if (##structure-instance-of? _stx138313_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _stx137152_ '1 gx#AST::t '#f)) - (if (pair? _stx137152_) - (cons (gx#syntax->datum (car _stx137152_)) - (gx#syntax->datum (cdr _stx137152_))) - (if (vector? _stx137152_) - (vector-map gx#syntax->datum _stx137152_) - (if (box? _stx137152_) - (box (gx#syntax->datum (unbox _stx137152_))) - _stx137152_)))))) + (##unchecked-structure-ref _stx138313_ '1 gx#AST::t '#f)) + (if (pair? _stx138313_) + (cons (gx#syntax->datum (car _stx138313_)) + (gx#syntax->datum (cdr _stx138313_))) + (if (vector? _stx138313_) + (vector-map gx#syntax->datum _stx138313_) + (if (box? _stx138313_) + (box (gx#syntax->datum (unbox _stx138313_))) + _stx138313_)))))) (define gx#datum->syntax__% - (lambda (_stx137095_ _datum137096_ _src137097_ _quote?137098_) - (letrec ((_wrap-datum137100_ - (lambda (_e137124_ _marks137125_) - (_wrap-inner137102_ - _e137124_ - (lambda (_g137126137128_) + (lambda (_stx138256_ _datum138257_ _src138258_ _quote?138259_) + (letrec ((_wrap-datum138261_ + (lambda (_e138285_ _marks138286_) + (_wrap-inner138263_ + _e138285_ + (lambda (_g138287138289_) (##structure gx#identifier-wrap::t - _g137126137128_ - _src137097_ - _marks137125_))))) - (_wrap-quote137101_ - (lambda (_e137116_ _ctx137117_ _marks137118_) - (_wrap-inner137102_ - _e137116_ - (lambda (_g137119137121_) + _g138287138289_ + _src138258_ + _marks138286_))))) + (_wrap-quote138262_ + (lambda (_e138277_ _ctx138278_ _marks138279_) + (_wrap-inner138263_ + _e138277_ + (lambda (_g138280138282_) (##structure gx#syntax-quote::t - _g137119137121_ - _src137097_ - _ctx137117_ - _marks137118_))))) - (_wrap-inner137102_ - (lambda (_e137109_ _wrap-e137110_) - (let _recur137112_ ((_e137114_ _e137109_)) - (if (symbol? _e137114_) - (_wrap-e137110_ _e137114_) - (if (pair? _e137114_) - (cons (_recur137112_ (car _e137114_)) - (_recur137112_ (cdr _e137114_))) - (if (vector? _e137114_) - (vector-map _recur137112_ _e137114_) - (if (box? _e137114_) - (box (_recur137112_ (unbox _e137114_))) - _e137114_))))))) - (_wrap-outer137103_ - (lambda (_e137107_) - (if (##structure-instance-of? _e137107_ 'gerbil#AST::t) - _e137107_ - (##structure gx#AST::t _e137107_ _src137097_))))) - (if (##structure-instance-of? _datum137096_ 'gerbil#AST::t) - _datum137096_ - (if (not _stx137095_) - (##structure gx#AST::t _datum137096_ _src137097_) - (if (gx#identifier? _stx137095_) - (let ((_stx137105_ (gx#stx-unwrap__0 _stx137095_))) - (_wrap-outer137103_ + _g138280138282_ + _src138258_ + _ctx138278_ + _marks138279_))))) + (_wrap-inner138263_ + (lambda (_e138270_ _wrap-e138271_) + (let _recur138273_ ((_e138275_ _e138270_)) + (if (symbol? _e138275_) + (_wrap-e138271_ _e138275_) + (if (pair? _e138275_) + (cons (_recur138273_ (car _e138275_)) + (_recur138273_ (cdr _e138275_))) + (if (vector? _e138275_) + (vector-map _recur138273_ _e138275_) + (if (box? _e138275_) + (box (_recur138273_ (unbox _e138275_))) + _e138275_))))))) + (_wrap-outer138264_ + (lambda (_e138268_) + (if (##structure-instance-of? _e138268_ 'gerbil#AST::t) + _e138268_ + (##structure gx#AST::t _e138268_ _src138258_))))) + (if (##structure-instance-of? _datum138257_ 'gerbil#AST::t) + _datum138257_ + (if (not _stx138256_) + (##structure gx#AST::t _datum138257_ _src138258_) + (if (gx#identifier? _stx138256_) + (let ((_stx138266_ (gx#stx-unwrap__0 _stx138256_))) + (_wrap-outer138264_ (if (##structure-direct-instance-of? - _stx137105_ + _stx138266_ 'gx#syntax-quote::t) - (if _quote?137098_ - (_wrap-quote137101_ - _datum137096_ + (if _quote?138259_ + (_wrap-quote138262_ + _datum138257_ (##unchecked-structure-ref - _stx137105_ + _stx138266_ '3 gx#syntax-quote::t '#f) (##unchecked-structure-ref - _stx137105_ + _stx138266_ '4 gx#syntax-quote::t '#f)) - (_wrap-datum137100_ - _datum137096_ + (_wrap-datum138261_ + _datum138257_ (##unchecked-structure-ref - _stx137105_ + _stx138266_ '4 gx#syntax-quote::t '#f))) - (_wrap-datum137100_ - _datum137096_ + (_wrap-datum138261_ + _datum138257_ (##unchecked-structure-ref - _stx137105_ + _stx138266_ '3 gx#identifier-wrap::t '#f))))) (error '"Bad template syntax; expected identifier" - _stx137095_))))))) + _stx138256_))))))) (define gx#datum->syntax__0 - (lambda (_stx137134_ _datum137135_) - (let* ((_src137137_ '#f) (_quote?137139_ '#t)) + (lambda (_stx138295_ _datum138296_) + (let* ((_src138298_ '#f) (_quote?138300_ '#t)) (gx#datum->syntax__% - _stx137134_ - _datum137135_ - _src137137_ - _quote?137139_)))) + _stx138295_ + _datum138296_ + _src138298_ + _quote?138300_)))) (define gx#datum->syntax__1 - (lambda (_stx137141_ _datum137142_ _src137143_) - (let ((_quote?137145_ '#t)) + (lambda (_stx138302_ _datum138303_ _src138304_) + (let ((_quote?138306_ '#t)) (gx#datum->syntax__% - _stx137141_ - _datum137142_ - _src137143_ - _quote?137145_)))) + _stx138302_ + _datum138303_ + _src138304_ + _quote?138306_)))) (define gx#datum->syntax - (lambda _g141834_ - (let ((_g141833_ (##length _g141834_))) - (cond ((##fx= _g141833_ 2) - (apply (lambda (_stx137134_ _datum137135_) - (gx#datum->syntax__0 _stx137134_ _datum137135_)) - _g141834_)) - ((##fx= _g141833_ 3) - (apply (lambda (_stx137141_ _datum137142_ _src137143_) + (lambda _g142995_ + (let ((_g142994_ (##length _g142995_))) + (cond ((##fx= _g142994_ 2) + (apply (lambda (_stx138295_ _datum138296_) + (gx#datum->syntax__0 _stx138295_ _datum138296_)) + _g142995_)) + ((##fx= _g142994_ 3) + (apply (lambda (_stx138302_ _datum138303_ _src138304_) (gx#datum->syntax__1 - _stx137141_ - _datum137142_ - _src137143_)) - _g141834_)) - ((##fx= _g141833_ 4) - (apply (lambda (_stx137147_ - _datum137148_ - _src137149_ - _quote?137150_) + _stx138302_ + _datum138303_ + _src138304_)) + _g142995_)) + ((##fx= _g142994_ 4) + (apply (lambda (_stx138308_ + _datum138309_ + _src138310_ + _quote?138311_) (gx#datum->syntax__% - _stx137147_ - _datum137148_ - _src137149_ - _quote?137150_)) - _g141834_)) + _stx138308_ + _datum138309_ + _src138310_ + _quote?138311_)) + _g142995_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g141834_)))))) + _g142995_)))))) (define gx#stx-unwrap__% - (lambda (_stx137071_ _marks137072_) - (let _lp137074_ ((_e137076_ _stx137071_) - (_marks137077_ _marks137072_) - (_src137078_ (gx#stx-source _stx137071_))) - (if (##structure-direct-instance-of? _e137076_ 'gx#syntax-wrap::t) - (_lp137074_ - (##unchecked-structure-ref _e137076_ '1 gx#AST::t '#f) + (lambda (_stx138232_ _marks138233_) + (let _lp138235_ ((_e138237_ _stx138232_) + (_marks138238_ _marks138233_) + (_src138239_ (gx#stx-source _stx138232_))) + (if (##structure-direct-instance-of? _e138237_ 'gx#syntax-wrap::t) + (_lp138235_ + (##unchecked-structure-ref _e138237_ '1 gx#AST::t '#f) (gx#apply-mark - (##unchecked-structure-ref _e137076_ '3 gx#syntax-wrap::t '#f) - _marks137077_) - (##unchecked-structure-ref _e137076_ '2 gx#AST::t '#f)) + (##unchecked-structure-ref _e138237_ '3 gx#syntax-wrap::t '#f) + _marks138238_) + (##unchecked-structure-ref _e138237_ '2 gx#AST::t '#f)) (if (##structure-direct-instance-of? - _e137076_ + _e138237_ 'gx#identifier-wrap::t) - (if (null? _marks137077_) - _e137076_ + (if (null? _marks138238_) + _e138237_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _e137076_ '1 gx#AST::t '#f) - (##unchecked-structure-ref _e137076_ '2 gx#AST::t '#f) + (##unchecked-structure-ref _e138237_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _e138237_ '2 gx#AST::t '#f) (foldl1 gx#apply-mark (##unchecked-structure-ref - _e137076_ + _e138237_ '3 gx#identifier-wrap::t '#f) - _marks137077_))) + _marks138238_))) (if (##structure-direct-instance-of? - _e137076_ + _e138237_ 'gx#syntax-quote::t) - _e137076_ - (if (##structure-instance-of? _e137076_ 'gerbil#AST::t) - (_lp137074_ + _e138237_ + (if (##structure-instance-of? _e138237_ 'gerbil#AST::t) + (_lp138235_ (##unchecked-structure-ref - _e137076_ + _e138237_ '1 gx#AST::t '#f) - _marks137077_ + _marks138238_ (##unchecked-structure-ref - _e137076_ + _e138237_ '2 gx#AST::t '#f)) - (if (symbol? _e137076_) + (if (symbol? _e138237_) (##structure gx#identifier-wrap::t - _e137076_ - _src137078_ - (reverse _marks137077_)) - (if (null? _marks137077_) - _e137076_ - (if (pair? _e137076_) + _e138237_ + _src138239_ + (reverse _marks138238_)) + (if (null? _marks138238_) + _e138237_ + (if (pair? _e138237_) (cons (gx#stx-wrap - (car _e137076_) - _marks137077_) + (car _e138237_) + _marks138238_) (gx#stx-wrap - (cdr _e137076_) - _marks137077_)) - (if (vector? _e137076_) + (cdr _e138237_) + _marks138238_)) + (if (vector? _e138237_) (vector-map - (lambda (_g137079137081_) + (lambda (_g138240138242_) (gx#stx-wrap - _g137079137081_ - _marks137077_)) - _e137076_) - (if (box? _e137076_) + _g138240138242_ + _marks138238_)) + _e138237_) + (if (box? _e138237_) (box (gx#stx-wrap - (unbox _e137076_) - _marks137077_)) - _e137076_)))))))))))) + (unbox _e138237_) + _marks138238_)) + _e138237_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_stx137087_) - (let ((_marks137089_ '())) - (gx#stx-unwrap__% _stx137087_ _marks137089_)))) + (lambda (_stx138248_) + (let ((_marks138250_ '())) + (gx#stx-unwrap__% _stx138248_ _marks138250_)))) (define gx#stx-unwrap - (lambda _g141836_ - (let ((_g141835_ (##length _g141836_))) - (cond ((##fx= _g141835_ 1) - (apply (lambda (_stx137087_) (gx#stx-unwrap__0 _stx137087_)) - _g141836_)) - ((##fx= _g141835_ 2) - (apply (lambda (_stx137091_ _marks137092_) - (gx#stx-unwrap__% _stx137091_ _marks137092_)) - _g141836_)) + (lambda _g142997_ + (let ((_g142996_ (##length _g142997_))) + (cond ((##fx= _g142996_ 1) + (apply (lambda (_stx138248_) (gx#stx-unwrap__0 _stx138248_)) + _g142997_)) + ((##fx= _g142996_ 2) + (apply (lambda (_stx138252_ _marks138253_) + (gx#stx-unwrap__% _stx138252_ _marks138253_)) + _g142997_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g141836_)))))) + _g142997_)))))) (define gx#stx-wrap - (lambda (_stx137064_ _marks137065_) - (foldl1 (lambda (_mark137067_ _stx137068_) - (gx#stx-apply-mark _stx137068_ _mark137067_)) - _stx137064_ - _marks137065_))) + (lambda (_stx138225_ _marks138226_) + (foldl1 (lambda (_mark138228_ _stx138229_) + (gx#stx-apply-mark _stx138229_ _mark138228_)) + _stx138225_ + _marks138226_))) (define gx#stx-rewrap - (lambda (_stx137058_ _marks137059_) - (foldr1 (lambda (_mark137061_ _stx137062_) - (gx#stx-apply-mark _stx137062_ _mark137061_)) - _stx137058_ - _marks137059_))) + (lambda (_stx138219_ _marks138220_) + (foldr1 (lambda (_mark138222_ _stx138223_) + (gx#stx-apply-mark _stx138223_ _mark138222_)) + _stx138219_ + _marks138220_))) (define gx#stx-apply-mark - (lambda (_stx137055_ _mark137056_) - (if (##structure-direct-instance-of? _stx137055_ 'gx#syntax-quote::t) - _stx137055_ + (lambda (_stx138216_ _mark138217_) + (if (##structure-direct-instance-of? _stx138216_ 'gx#syntax-quote::t) + _stx138216_ (if (and (##structure-direct-instance-of? - _stx137055_ + _stx138216_ 'gx#syntax-wrap::t) - (eq? _mark137056_ + (eq? _mark138217_ (##unchecked-structure-ref - _stx137055_ + _stx138216_ '3 gx#syntax-wrap::t '#f))) - (##unchecked-structure-ref _stx137055_ '1 gx#AST::t '#f) + (##unchecked-structure-ref _stx138216_ '1 gx#AST::t '#f) (##structure gx#syntax-wrap::t - _stx137055_ - (gx#stx-source _stx137055_) - _mark137056_))))) + _stx138216_ + (gx#stx-source _stx138216_) + _mark138217_))))) (define gx#apply-mark - (lambda (_mark137019_ _marks137020_) - (let* ((_marks137021137029_ _marks137020_) - (_else137023137037_ - (lambda () (cons _mark137019_ _marks137020_))) - (_K137025137043_ - (lambda (_rest137040_ _hd137041_) - (if (eq? _mark137019_ _hd137041_) - _rest137040_ - (cons _mark137019_ _marks137020_))))) - (if (##pair? _marks137021137029_) - (let ((_hd137026137046_ (##car _marks137021137029_)) - (_tl137027137048_ (##cdr _marks137021137029_))) - (let* ((_hd137051_ _hd137026137046_) - (_rest137053_ _tl137027137048_)) - (_K137025137043_ _rest137053_ _hd137051_))) - (_else137023137037_))))) + (lambda (_mark138180_ _marks138181_) + (let* ((_marks138182138190_ _marks138181_) + (_else138184138198_ + (lambda () (cons _mark138180_ _marks138181_))) + (_K138186138204_ + (lambda (_rest138201_ _hd138202_) + (if (eq? _mark138180_ _hd138202_) + _rest138201_ + (cons _mark138180_ _marks138181_))))) + (if (##pair? _marks138182138190_) + (let ((_hd138187138207_ (##car _marks138182138190_)) + (_tl138188138209_ (##cdr _marks138182138190_))) + (let* ((_hd138212_ _hd138187138207_) + (_rest138214_ _tl138188138209_)) + (_K138186138204_ _rest138214_ _hd138212_))) + (_else138184138198_))))) (define gx#stx-e - (lambda (_stx137017_) - (if (##structure-direct-instance-of? _stx137017_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _stx137017_ '1 gx#AST::t '#f)) - (if (##structure-instance-of? _stx137017_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx137017_ '1 gx#AST::t '#f) - _stx137017_)))) + (lambda (_stx138178_) + (if (##structure-direct-instance-of? _stx138178_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _stx138178_ '1 gx#AST::t '#f)) + (if (##structure-instance-of? _stx138178_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx138178_ '1 gx#AST::t '#f) + _stx138178_)))) (define gx#stx-source - (lambda (_stx137015_) - (if (##structure-instance-of? _stx137015_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx137015_ '2 gx#AST::t '#f) + (lambda (_stx138176_) + (if (##structure-instance-of? _stx138176_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx138176_ '2 gx#AST::t '#f) '#f))) (define gx#stx-wrap-source - (lambda (_stx137009_ _src137010_) - (if (or (##structure-instance-of? _stx137009_ 'gerbil#AST::t) - (not _src137010_)) - _stx137009_ - (##structure gx#AST::t _stx137009_ _src137010_)))) + (lambda (_stx138170_ _src138171_) + (if (or (##structure-instance-of? _stx138170_ 'gerbil#AST::t) + (not _src138171_)) + _stx138170_ + (##structure gx#AST::t _stx138170_ _src138171_)))) (define gx#stx-datum? - (lambda (_stx137007_) (gx#self-quoting? (gx#stx-e _stx137007_)))) + (lambda (_stx138168_) (gx#self-quoting? (gx#stx-e _stx138168_)))) (define gx#self-quoting? - (lambda (_x136990_) - (let ((_$e136992_ (immediate? _x136990_))) - (if _$e136992_ - _$e136992_ - (let ((_$e136995_ (number? _x136990_))) - (if _$e136995_ - _$e136995_ - (let ((_$e136998_ (keyword? _x136990_))) - (if _$e136998_ - _$e136998_ - (let ((_$e137001_ (string? _x136990_))) - (if _$e137001_ - _$e137001_ - (let ((_$e137004_ (vector? _x136990_))) - (if _$e137004_ - _$e137004_ - (u8vector? _x136990_))))))))))))) + (lambda (_x138151_) + (let ((_$e138153_ (immediate? _x138151_))) + (if _$e138153_ + _$e138153_ + (let ((_$e138156_ (number? _x138151_))) + (if _$e138156_ + _$e138156_ + (let ((_$e138159_ (keyword? _x138151_))) + (if _$e138159_ + _$e138159_ + (let ((_$e138162_ (string? _x138151_))) + (if _$e138162_ + _$e138162_ + (let ((_$e138165_ (vector? _x138151_))) + (if _$e138165_ + _$e138165_ + (u8vector? _x138151_))))))))))))) (define gx#stx-boolean? - (lambda (_e136988_) (boolean? (gx#stx-e _e136988_)))) + (lambda (_e138149_) (boolean? (gx#stx-e _e138149_)))) (define gx#stx-keyword? - (lambda (_e136986_) (keyword? (gx#stx-e _e136986_)))) - (define gx#stx-char? (lambda (_e136984_) (char? (gx#stx-e _e136984_)))) - (define gx#stx-number? (lambda (_e136982_) (number? (gx#stx-e _e136982_)))) - (define gx#stx-fixnum? (lambda (_e136980_) (fixnum? (gx#stx-e _e136980_)))) - (define gx#stx-string? (lambda (_e136978_) (string? (gx#stx-e _e136978_)))) - (define gx#stx-null? (lambda (_e136976_) (null? (gx#stx-e _e136976_)))) - (define gx#stx-pair? (lambda (_e136974_) (pair? (gx#stx-e _e136974_)))) + (lambda (_e138147_) (keyword? (gx#stx-e _e138147_)))) + (define gx#stx-char? (lambda (_e138145_) (char? (gx#stx-e _e138145_)))) + (define gx#stx-number? (lambda (_e138143_) (number? (gx#stx-e _e138143_)))) + (define gx#stx-fixnum? (lambda (_e138141_) (fixnum? (gx#stx-e _e138141_)))) + (define gx#stx-string? (lambda (_e138139_) (string? (gx#stx-e _e138139_)))) + (define gx#stx-null? (lambda (_e138137_) (null? (gx#stx-e _e138137_)))) + (define gx#stx-pair? (lambda (_e138135_) (pair? (gx#stx-e _e138135_)))) (define gx#stx-list? - (lambda (_e136936_) - (let* ((_g136937136946_ (gx#stx-e _e136936_)) - (_E136940136950_ - (lambda () (error '"No clause matching" _g136937136946_)))) - (let ((_K136942136966_ - (lambda (_rest136964_) (gx#stx-list? _rest136964_))) - (_K136941136956_ (lambda (_tail136954_) (null? _tail136954_)))) - (if (##pair? _g136937136946_) - (let* ((_tl136944136969_ (##cdr _g136937136946_)) - (_rest136972_ _tl136944136969_)) - (gx#stx-list? _rest136972_)) - (let ((_tail136959_ _g136937136946_)) - (null? _tail136959_))))))) + (lambda (_e138097_) + (let* ((_g138098138107_ (gx#stx-e _e138097_)) + (_E138101138111_ + (lambda () (error '"No clause matching" _g138098138107_)))) + (let ((_K138103138127_ + (lambda (_rest138125_) (gx#stx-list? _rest138125_))) + (_K138102138117_ (lambda (_tail138115_) (null? _tail138115_)))) + (if (##pair? _g138098138107_) + (let* ((_tl138105138130_ (##cdr _g138098138107_)) + (_rest138133_ _tl138105138130_)) + (gx#stx-list? _rest138133_)) + (let ((_tail138120_ _g138098138107_)) + (null? _tail138120_))))))) (define gx#stx-pair/null? - (lambda (_e136929_) - (let* ((_e136931_ (gx#stx-e _e136929_)) (_$e136933_ (pair? _e136931_))) - (if _$e136933_ _$e136933_ (null? _e136931_))))) - (define gx#stx-vector? (lambda (_e136927_) (vector? (gx#stx-e _e136927_)))) - (define gx#stx-box? (lambda (_e136925_) (box? (gx#stx-e _e136925_)))) + (lambda (_e138090_) + (let* ((_e138092_ (gx#stx-e _e138090_)) (_$e138094_ (pair? _e138092_))) + (if _$e138094_ _$e138094_ (null? _e138092_))))) + (define gx#stx-vector? (lambda (_e138088_) (vector? (gx#stx-e _e138088_)))) + (define gx#stx-box? (lambda (_e138086_) (box? (gx#stx-e _e138086_)))) (define gx#stx-eq? - (lambda (_x136922_ _y136923_) - (eq? (gx#stx-e _x136922_) (gx#stx-e _y136923_)))) + (lambda (_x138083_ _y138084_) + (eq? (gx#stx-e _x138083_) (gx#stx-e _y138084_)))) (define gx#stx-eqv? - (lambda (_x136919_ _y136920_) - (eqv? (gx#stx-e _x136919_) (gx#stx-e _y136920_)))) + (lambda (_x138080_ _y138081_) + (eqv? (gx#stx-e _x138080_) (gx#stx-e _y138081_)))) (define gx#stx-equal? - (lambda (_x136916_ _y136917_) - (equal? (gx#stx-e _x136916_) (gx#stx-e _y136917_)))) - (define gx#stx-false? (lambda (_x136914_) (not (gx#stx-e _x136914_)))) + (lambda (_x138077_ _y138078_) + (equal? (gx#stx-e _x138077_) (gx#stx-e _y138078_)))) + (define gx#stx-false? (lambda (_x138075_) (not (gx#stx-e _x138075_)))) (define gx#stx-identifier - (lambda (_template136911_ . _args136912_) + (lambda (_template138072_ . _args138073_) (gx#datum->syntax__1 - _template136911_ - (apply make-symbol (gx#syntax->datum _args136912_)) - (gx#stx-source _template136911_)))) + _template138072_ + (apply make-symbol (gx#syntax->datum _args138073_)) + (gx#stx-source _template138072_)))) (define gx#stx-identifier-marks - (lambda (_stx136909_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx136909_)))) + (lambda (_stx138070_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _stx138070_)))) (define gx#stx-identifier-marks* - (lambda (_stx136907_) + (lambda (_stx138068_) (if (##structure-direct-instance-of? - _stx136907_ + _stx138068_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _stx136907_ + _stx138068_ '3 gx#identifier-wrap::t '#f) (if (##structure-direct-instance-of? - _stx136907_ + _stx138068_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _stx136907_ + _stx138068_ '4 gx#syntax-quote::t '#f) (error '"Bad wrap; expected unwrapped identifier" - _stx136907_))))) + _stx138068_))))) (define gx#stx-identifier-context - (lambda (_stx136903_) - (let ((_stx136905_ (gx#stx-unwrap__0 _stx136903_))) - (if (gx#identifier-quote? _stx136905_) - (##unchecked-structure-ref _stx136905_ '3 gx#syntax-quote::t '#f) + (lambda (_stx138064_) + (let ((_stx138066_ (gx#stx-unwrap__0 _stx138064_))) + (if (gx#identifier-quote? _stx138066_) + (##unchecked-structure-ref _stx138066_ '3 gx#syntax-quote::t '#f) '#f)))) (define gx#identifier-list? - (lambda (_stx136858_) - (let* ((_g136859136869_ (gx#stx-e _stx136858_)) - (_else136862136877_ (lambda () '#f))) - (let ((_K136865136891_ - (lambda (_rest136888_ _hd136889_) - (if (gx#identifier? _hd136889_) - (gx#identifier-list? _rest136888_) + (lambda (_stx138019_) + (let* ((_g138020138030_ (gx#stx-e _stx138019_)) + (_else138023138038_ (lambda () '#f))) + (let ((_K138026138052_ + (lambda (_rest138049_ _hd138050_) + (if (gx#identifier? _hd138050_) + (gx#identifier-list? _rest138049_) '#f))) - (_K136864136882_ (lambda () '#t))) - (let ((_try-match136861136885_ + (_K138025138043_ (lambda () '#t))) + (let ((_try-match138022138046_ (lambda () - (if (##null? _g136859136869_) - (_K136864136882_) - (_else136862136877_))))) - (if (##pair? _g136859136869_) - (let ((_tl136867136896_ (##cdr _g136859136869_)) - (_hd136866136894_ (##car _g136859136869_))) - (let ((_hd136899_ _hd136866136894_) - (_rest136901_ _tl136867136896_)) - (_K136865136891_ _rest136901_ _hd136899_))) - (_try-match136861136885_))))))) + (if (##null? _g138020138030_) + (_K138025138043_) + (_else138023138038_))))) + (if (##pair? _g138020138030_) + (let ((_tl138028138057_ (##cdr _g138020138030_)) + (_hd138027138055_ (##car _g138020138030_))) + (let ((_hd138060_ _hd138027138055_) + (_rest138062_ _tl138028138057_)) + (_K138026138052_ _rest138062_ _hd138060_))) + (_try-match138022138046_))))))) (define gx#genident__% - (lambda (_e136835_ _src136836_) + (lambda (_e137996_ _src137997_) (gx#stx-wrap-source - (gensym (let ((_e136838_ (gx#stx-e _e136835_))) - (if (interned-symbol? _e136838_) _e136838_ 'g))) - (let ((_$e136840_ (gx#stx-source _e136835_))) - (if _$e136840_ _$e136840_ _src136836_))))) + (gensym (let ((_e137999_ (gx#stx-e _e137996_))) + (if (interned-symbol? _e137999_) _e137999_ 'g))) + (let ((_$e138001_ (gx#stx-source _e137996_))) + (if _$e138001_ _$e138001_ _src137997_))))) (define gx#genident__0 (lambda () - (let* ((_e136847_ 'g) (_src136849_ '#f)) - (gx#genident__% _e136847_ _src136849_)))) + (let* ((_e138008_ 'g) (_src138010_ '#f)) + (gx#genident__% _e138008_ _src138010_)))) (define gx#genident__1 - (lambda (_e136851_) - (let ((_src136853_ '#f)) (gx#genident__% _e136851_ _src136853_)))) + (lambda (_e138012_) + (let ((_src138014_ '#f)) (gx#genident__% _e138012_ _src138014_)))) (define gx#genident - (lambda _g141838_ - (let ((_g141837_ (##length _g141838_))) - (cond ((##fx= _g141837_ 0) - (apply (lambda () (gx#genident__0)) _g141838_)) - ((##fx= _g141837_ 1) - (apply (lambda (_e136851_) (gx#genident__1 _e136851_)) - _g141838_)) - ((##fx= _g141837_ 2) - (apply (lambda (_e136855_ _src136856_) - (gx#genident__% _e136855_ _src136856_)) - _g141838_)) + (lambda _g142999_ + (let ((_g142998_ (##length _g142999_))) + (cond ((##fx= _g142998_ 0) + (apply (lambda () (gx#genident__0)) _g142999_)) + ((##fx= _g142998_ 1) + (apply (lambda (_e138012_) (gx#genident__1 _e138012_)) + _g142999_)) + ((##fx= _g142998_ 2) + (apply (lambda (_e138016_ _src138017_) + (gx#genident__% _e138016_ _src138017_)) + _g142999_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g141838_)))))) + _g142999_)))))) (define gx#gentemps - (lambda (_stx-lst136832_) (gx#stx-map1 gx#genident _stx-lst136832_))) + (lambda (_stx-lst137993_) (gx#stx-map1 gx#genident _stx-lst137993_))) (define gx#syntax->list - (lambda (_stx136830_) (gx#stx-map1 values _stx136830_))) + (lambda (_stx137991_) (gx#stx-map1 values _stx137991_))) (define gx#stx-car - (lambda (_stx136827_) + (lambda (_stx137988_) (declare (safe)) - (car (let () (declare (not safe)) (gx#syntax-e _stx136827_))))) + (car (let () (declare (not safe)) (gx#syntax-e _stx137988_))))) (define gx#stx-cdr - (lambda (_stx136824_) + (lambda (_stx137985_) (declare (safe)) - (cdr (let () (declare (not safe)) (gx#syntax-e _stx136824_))))) + (cdr (let () (declare (not safe)) (gx#syntax-e _stx137985_))))) (define gx#stx-length - (lambda (_stx136789_) - (let _lp136791_ ((_rest136793_ _stx136789_) (_n136794_ '0)) - (let* ((_g136795136803_ (gx#stx-e _rest136793_)) - (_else136797136811_ (lambda () _n136794_)) - (_K136799136816_ - (lambda (_rest136814_) - (_lp136791_ _rest136814_ (fx+ _n136794_ '1))))) - (if (##pair? _g136795136803_) - (let* ((_tl136801136819_ (##cdr _g136795136803_)) - (_rest136822_ _tl136801136819_)) - (_K136799136816_ _rest136822_)) - (_else136797136811_)))))) + (lambda (_stx137950_) + (let _lp137952_ ((_rest137954_ _stx137950_) (_n137955_ '0)) + (let* ((_g137956137964_ (gx#stx-e _rest137954_)) + (_else137958137972_ (lambda () _n137955_)) + (_K137960137977_ + (lambda (_rest137975_) + (_lp137952_ _rest137975_ (fx+ _n137955_ '1))))) + (if (##pair? _g137956137964_) + (let* ((_tl137962137980_ (##cdr _g137956137964_)) + (_rest137983_ _tl137962137980_)) + (_K137960137977_ _rest137983_)) + (_else137958137972_)))))) (define gx#stx-for-each - (lambda _g141840_ - (let ((_g141839_ (##length _g141840_))) - (cond ((##fx= _g141839_ 2) - (apply (lambda (_f136782_ _stx136783_) - (gx#stx-for-each1 _f136782_ _stx136783_)) - _g141840_)) - ((##fx= _g141839_ 3) - (apply (lambda (_f136785_ _xstx136786_ _ystx136787_) + (lambda _g143001_ + (let ((_g143000_ (##length _g143001_))) + (cond ((##fx= _g143000_ 2) + (apply (lambda (_f137943_ _stx137944_) + (gx#stx-for-each1 _f137943_ _stx137944_)) + _g143001_)) + ((##fx= _g143000_ 3) + (apply (lambda (_f137946_ _xstx137947_ _ystx137948_) (gx#stx-for-each2 - _f136785_ - _xstx136786_ - _ystx136787_)) - _g141840_)) + _f137946_ + _xstx137947_ + _ystx137948_)) + _g143001_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g141840_)))))) + _g143001_)))))) (define gx#stx-for-each1 - (lambda (_f136732_ _stx136733_) - (if (procedure? _f136732_) + (lambda (_f137893_ _stx137894_) + (if (procedure? _f137893_) '#!void - (error '"expected procedure" _f136732_)) - (let _lp136735_ ((_rest136737_ _stx136733_)) - (let* ((_g136738136748_ (gx#syntax-e _rest136737_)) - (_else136741136756_ (lambda () (_f136732_ _rest136737_)))) - (let ((_K136744136770_ - (lambda (_rest136767_ _hd136768_) - (_f136732_ _hd136768_) - (_lp136735_ _rest136767_))) - (_K136743136761_ (lambda () '#!void))) - (let ((_try-match136740136764_ + (error '"expected procedure" _f137893_)) + (let _lp137896_ ((_rest137898_ _stx137894_)) + (let* ((_g137899137909_ (gx#syntax-e _rest137898_)) + (_else137902137917_ (lambda () (_f137893_ _rest137898_)))) + (let ((_K137905137931_ + (lambda (_rest137928_ _hd137929_) + (_f137893_ _hd137929_) + (_lp137896_ _rest137928_))) + (_K137904137922_ (lambda () '#!void))) + (let ((_try-match137901137925_ (lambda () - (if (##null? _g136738136748_) - (_K136743136761_) - (_else136741136756_))))) - (if (##pair? _g136738136748_) - (let ((_tl136746136775_ (##cdr _g136738136748_)) - (_hd136745136773_ (##car _g136738136748_))) - (let ((_hd136778_ _hd136745136773_) - (_rest136780_ _tl136746136775_)) - (_K136744136770_ _rest136780_ _hd136778_))) - (_try-match136740136764_)))))))) + (if (##null? _g137899137909_) + (_K137904137922_) + (_else137902137917_))))) + (if (##pair? _g137899137909_) + (let ((_tl137907137936_ (##cdr _g137899137909_)) + (_hd137906137934_ (##car _g137899137909_))) + (let ((_hd137939_ _hd137906137934_) + (_rest137941_ _tl137907137936_)) + (_K137905137931_ _rest137941_ _hd137939_))) + (_try-match137901137925_)))))))) (define gx#stx-for-each2 - (lambda (_f136637_ _xstx136638_ _ystx136639_) - (if (procedure? _f136637_) + (lambda (_f137798_ _xstx137799_ _ystx137800_) + (if (procedure? _f137798_) '#!void - (error '"expected procedure" _f136637_)) - (let _lp136641_ ((_xrest136643_ _xstx136638_) - (_yrest136644_ _ystx136639_)) - (let* ((_g136645136655_ (gx#syntax-e _xrest136643_)) - (_else136648136663_ (lambda () '#!void))) - (let ((_K136651136720_ - (lambda (_xrest136689_ _xhd136690_) - (let* ((_g136691136698_ (gx#syntax-e _yrest136644_)) - (_E136693136702_ + (error '"expected procedure" _f137798_)) + (let _lp137802_ ((_xrest137804_ _xstx137799_) + (_yrest137805_ _ystx137800_)) + (let* ((_g137806137816_ (gx#syntax-e _xrest137804_)) + (_else137809137824_ (lambda () '#!void))) + (let ((_K137812137881_ + (lambda (_xrest137850_ _xhd137851_) + (let* ((_g137852137859_ (gx#syntax-e _yrest137805_)) + (_E137854137863_ (lambda () - (error '"No clause matching" _g136691136698_))) - (_K136694136708_ - (lambda (_yrest136705_ _yhd136706_) - (_f136637_ _xhd136690_ _yhd136706_) - (_lp136641_ _xrest136689_ _yrest136705_)))) - (if (##pair? _g136691136698_) - (let ((_hd136695136711_ (##car _g136691136698_)) - (_tl136696136713_ (##cdr _g136691136698_))) - (let* ((_yhd136716_ _hd136695136711_) - (_yrest136718_ _tl136696136713_)) - (_K136694136708_ _yrest136718_ _yhd136716_))) - (_E136693136702_))))) - (_K136650136683_ + (error '"No clause matching" _g137852137859_))) + (_K137855137869_ + (lambda (_yrest137866_ _yhd137867_) + (_f137798_ _xhd137851_ _yhd137867_) + (_lp137802_ _xrest137850_ _yrest137866_)))) + (if (##pair? _g137852137859_) + (let ((_hd137856137872_ (##car _g137852137859_)) + (_tl137857137874_ (##cdr _g137852137859_))) + (let* ((_yhd137877_ _hd137856137872_) + (_yrest137879_ _tl137857137874_)) + (_K137855137869_ _yrest137879_ _yhd137877_))) + (_E137854137863_))))) + (_K137811137844_ (lambda () - (let* ((_yrest136667136672_ _yrest136644_) - (_E136669136676_ + (let* ((_yrest137828137833_ _yrest137805_) + (_E137830137837_ (lambda () (error '"No clause matching" - _yrest136667136672_))) - (_K136670136680_ + _yrest137828137833_))) + (_K137831137841_ (lambda () - (_f136637_ _xrest136643_ _yrest136644_)))) - (if (not (gx#stx-null? _yrest136667136672_)) - (_K136670136680_) - (_E136669136676_)))))) - (let ((_try-match136647136686_ + (_f137798_ _xrest137804_ _yrest137805_)))) + (if (not (gx#stx-null? _yrest137828137833_)) + (_K137831137841_) + (_E137830137837_)))))) + (let ((_try-match137808137847_ (lambda () - (if (not (null? _g136645136655_)) - (_K136650136683_) - (_else136648136663_))))) - (if (##pair? _g136645136655_) - (let ((_tl136653136725_ (##cdr _g136645136655_)) - (_hd136652136723_ (##car _g136645136655_))) - (let ((_xhd136728_ _hd136652136723_) - (_xrest136730_ _tl136653136725_)) - (_K136651136720_ _xrest136730_ _xhd136728_))) - (_try-match136647136686_)))))))) + (if (not (null? _g137806137816_)) + (_K137811137844_) + (_else137809137824_))))) + (if (##pair? _g137806137816_) + (let ((_tl137814137886_ (##cdr _g137806137816_)) + (_hd137813137884_ (##car _g137806137816_))) + (let ((_xhd137889_ _hd137813137884_) + (_xrest137891_ _tl137814137886_)) + (_K137812137881_ _xrest137891_ _xhd137889_))) + (_try-match137808137847_)))))))) (define gx#stx-map - (lambda _g141842_ - (let ((_g141841_ (##length _g141842_))) - (cond ((##fx= _g141841_ 2) - (apply (lambda (_f136630_ _stx136631_) - (gx#stx-map1 _f136630_ _stx136631_)) - _g141842_)) - ((##fx= _g141841_ 3) - (apply (lambda (_f136633_ _xstx136634_ _ystx136635_) - (gx#stx-map2 _f136633_ _xstx136634_ _ystx136635_)) - _g141842_)) + (lambda _g143003_ + (let ((_g143002_ (##length _g143003_))) + (cond ((##fx= _g143002_ 2) + (apply (lambda (_f137791_ _stx137792_) + (gx#stx-map1 _f137791_ _stx137792_)) + _g143003_)) + ((##fx= _g143002_ 3) + (apply (lambda (_f137794_ _xstx137795_ _ystx137796_) + (gx#stx-map2 _f137794_ _xstx137795_ _ystx137796_)) + _g143003_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g141842_)))))) + _g143003_)))))) (define gx#stx-map1 - (lambda (_f136580_ _stx136581_) - (if (procedure? _f136580_) + (lambda (_f137741_ _stx137742_) + (if (procedure? _f137741_) '#!void - (error '"expected procedure" _f136580_)) - (let _recur136583_ ((_rest136585_ _stx136581_)) - (let* ((_g136586136596_ (gx#syntax-e _rest136585_)) - (_else136589136604_ (lambda () (_f136580_ _rest136585_)))) - (let ((_K136592136618_ - (lambda (_rest136615_ _hd136616_) - (cons (_f136580_ _hd136616_) - (_recur136583_ _rest136615_)))) - (_K136591136609_ (lambda () '()))) - (let ((_try-match136588136612_ + (error '"expected procedure" _f137741_)) + (let _recur137744_ ((_rest137746_ _stx137742_)) + (let* ((_g137747137757_ (gx#syntax-e _rest137746_)) + (_else137750137765_ (lambda () (_f137741_ _rest137746_)))) + (let ((_K137753137779_ + (lambda (_rest137776_ _hd137777_) + (cons (_f137741_ _hd137777_) + (_recur137744_ _rest137776_)))) + (_K137752137770_ (lambda () '()))) + (let ((_try-match137749137773_ (lambda () - (if (##null? _g136586136596_) - (_K136591136609_) - (_else136589136604_))))) - (if (##pair? _g136586136596_) - (let ((_tl136594136623_ (##cdr _g136586136596_)) - (_hd136593136621_ (##car _g136586136596_))) - (let ((_hd136626_ _hd136593136621_) - (_rest136628_ _tl136594136623_)) - (_K136592136618_ _rest136628_ _hd136626_))) - (_try-match136588136612_)))))))) + (if (##null? _g137747137757_) + (_K137752137770_) + (_else137750137765_))))) + (if (##pair? _g137747137757_) + (let ((_tl137755137784_ (##cdr _g137747137757_)) + (_hd137754137782_ (##car _g137747137757_))) + (let ((_hd137787_ _hd137754137782_) + (_rest137789_ _tl137755137784_)) + (_K137753137779_ _rest137789_ _hd137787_))) + (_try-match137749137773_)))))))) (define gx#stx-map2 - (lambda (_f136485_ _xstx136486_ _ystx136487_) - (if (procedure? _f136485_) + (lambda (_f137646_ _xstx137647_ _ystx137648_) + (if (procedure? _f137646_) '#!void - (error '"expected procedure" _f136485_)) - (let _recur136489_ ((_xrest136491_ _xstx136486_) - (_yrest136492_ _ystx136487_)) - (let* ((_g136493136503_ (gx#syntax-e _xrest136491_)) - (_else136496136511_ (lambda () '()))) - (let ((_K136499136568_ - (lambda (_xrest136537_ _xhd136538_) - (let* ((_g136539136546_ (gx#syntax-e _yrest136492_)) - (_E136541136550_ + (error '"expected procedure" _f137646_)) + (let _recur137650_ ((_xrest137652_ _xstx137647_) + (_yrest137653_ _ystx137648_)) + (let* ((_g137654137664_ (gx#syntax-e _xrest137652_)) + (_else137657137672_ (lambda () '()))) + (let ((_K137660137729_ + (lambda (_xrest137698_ _xhd137699_) + (let* ((_g137700137707_ (gx#syntax-e _yrest137653_)) + (_E137702137711_ (lambda () - (error '"No clause matching" _g136539136546_))) - (_K136542136556_ - (lambda (_yrest136553_ _yhd136554_) - (cons (_f136485_ _xhd136538_ _yhd136554_) - (_recur136489_ - _xrest136537_ - _yrest136553_))))) - (if (##pair? _g136539136546_) - (let ((_hd136543136559_ (##car _g136539136546_)) - (_tl136544136561_ (##cdr _g136539136546_))) - (let* ((_yhd136564_ _hd136543136559_) - (_yrest136566_ _tl136544136561_)) - (_K136542136556_ _yrest136566_ _yhd136564_))) - (_E136541136550_))))) - (_K136498136531_ + (error '"No clause matching" _g137700137707_))) + (_K137703137717_ + (lambda (_yrest137714_ _yhd137715_) + (cons (_f137646_ _xhd137699_ _yhd137715_) + (_recur137650_ + _xrest137698_ + _yrest137714_))))) + (if (##pair? _g137700137707_) + (let ((_hd137704137720_ (##car _g137700137707_)) + (_tl137705137722_ (##cdr _g137700137707_))) + (let* ((_yhd137725_ _hd137704137720_) + (_yrest137727_ _tl137705137722_)) + (_K137703137717_ _yrest137727_ _yhd137725_))) + (_E137702137711_))))) + (_K137659137692_ (lambda () - (let* ((_yrest136515136520_ _yrest136492_) - (_E136517136524_ + (let* ((_yrest137676137681_ _yrest137653_) + (_E137678137685_ (lambda () (error '"No clause matching" - _yrest136515136520_))) - (_K136518136528_ + _yrest137676137681_))) + (_K137679137689_ (lambda () - (_f136485_ _xrest136491_ _yrest136492_)))) - (if (not (gx#stx-null? _yrest136515136520_)) - (_K136518136528_) - (_E136517136524_)))))) - (let ((_try-match136495136534_ + (_f137646_ _xrest137652_ _yrest137653_)))) + (if (not (gx#stx-null? _yrest137676137681_)) + (_K137679137689_) + (_E137678137685_)))))) + (let ((_try-match137656137695_ (lambda () - (if (not (null? _g136493136503_)) - (_K136498136531_) - (_else136496136511_))))) - (if (##pair? _g136493136503_) - (let ((_tl136501136573_ (##cdr _g136493136503_)) - (_hd136500136571_ (##car _g136493136503_))) - (let ((_xhd136576_ _hd136500136571_) - (_xrest136578_ _tl136501136573_)) - (_K136499136568_ _xrest136578_ _xhd136576_))) - (_try-match136495136534_)))))))) + (if (not (null? _g137654137664_)) + (_K137659137692_) + (_else137657137672_))))) + (if (##pair? _g137654137664_) + (let ((_tl137662137734_ (##cdr _g137654137664_)) + (_hd137661137732_ (##car _g137654137664_))) + (let ((_xhd137737_ _hd137661137732_) + (_xrest137739_ _tl137662137734_)) + (_K137660137729_ _xrest137739_ _xhd137737_))) + (_try-match137656137695_)))))))) (define gx#stx-andmap - (lambda (_f136435_ _stx136436_) - (if (procedure? _f136435_) + (lambda (_f137596_ _stx137597_) + (if (procedure? _f137596_) '#!void - (error '"expected procedure" _f136435_)) - (let _lp136438_ ((_rest136440_ _stx136436_)) - (let* ((_g136441136451_ (gx#syntax-e _rest136440_)) - (_else136444136459_ (lambda () (_f136435_ _rest136440_)))) - (let ((_K136447136473_ - (lambda (_rest136470_ _hd136471_) - (if (_f136435_ _hd136471_) - (_lp136438_ _rest136470_) + (error '"expected procedure" _f137596_)) + (let _lp137599_ ((_rest137601_ _stx137597_)) + (let* ((_g137602137612_ (gx#syntax-e _rest137601_)) + (_else137605137620_ (lambda () (_f137596_ _rest137601_)))) + (let ((_K137608137634_ + (lambda (_rest137631_ _hd137632_) + (if (_f137596_ _hd137632_) + (_lp137599_ _rest137631_) '#f))) - (_K136446136464_ (lambda () '#t))) - (let ((_try-match136443136467_ + (_K137607137625_ (lambda () '#t))) + (let ((_try-match137604137628_ (lambda () - (if (##null? _g136441136451_) - (_K136446136464_) - (_else136444136459_))))) - (if (##pair? _g136441136451_) - (let ((_tl136449136478_ (##cdr _g136441136451_)) - (_hd136448136476_ (##car _g136441136451_))) - (let ((_hd136481_ _hd136448136476_) - (_rest136483_ _tl136449136478_)) - (_K136447136473_ _rest136483_ _hd136481_))) - (_try-match136443136467_)))))))) + (if (##null? _g137602137612_) + (_K137607137625_) + (_else137605137620_))))) + (if (##pair? _g137602137612_) + (let ((_tl137610137639_ (##cdr _g137602137612_)) + (_hd137609137637_ (##car _g137602137612_))) + (let ((_hd137642_ _hd137609137637_) + (_rest137644_ _tl137610137639_)) + (_K137608137634_ _rest137644_ _hd137642_))) + (_try-match137604137628_)))))))) (define gx#stx-ormap - (lambda (_f136382_ _stx136383_) - (if (procedure? _f136382_) + (lambda (_f137543_ _stx137544_) + (if (procedure? _f137543_) '#!void - (error '"expected procedure" _f136382_)) - (let _lp136385_ ((_rest136387_ _stx136383_)) - (let* ((_g136388136398_ (gx#syntax-e _rest136387_)) - (_else136391136406_ (lambda () (_f136382_ _rest136387_)))) - (let ((_K136394136423_ - (lambda (_rest136417_ _hd136418_) - (let ((_$e136420_ (_f136382_ _hd136418_))) - (if _$e136420_ _$e136420_ (_lp136385_ _rest136417_))))) - (_K136393136411_ (lambda () '#f))) - (let ((_try-match136390136414_ + (error '"expected procedure" _f137543_)) + (let _lp137546_ ((_rest137548_ _stx137544_)) + (let* ((_g137549137559_ (gx#syntax-e _rest137548_)) + (_else137552137567_ (lambda () (_f137543_ _rest137548_)))) + (let ((_K137555137584_ + (lambda (_rest137578_ _hd137579_) + (let ((_$e137581_ (_f137543_ _hd137579_))) + (if _$e137581_ _$e137581_ (_lp137546_ _rest137578_))))) + (_K137554137572_ (lambda () '#f))) + (let ((_try-match137551137575_ (lambda () - (if (##null? _g136388136398_) - (_K136393136411_) - (_else136391136406_))))) - (if (##pair? _g136388136398_) - (let ((_tl136396136428_ (##cdr _g136388136398_)) - (_hd136395136426_ (##car _g136388136398_))) - (let ((_hd136431_ _hd136395136426_) - (_rest136433_ _tl136396136428_)) - (_K136394136423_ _rest136433_ _hd136431_))) - (_try-match136390136414_)))))))) + (if (##null? _g137549137559_) + (_K137554137572_) + (_else137552137567_))))) + (if (##pair? _g137549137559_) + (let ((_tl137557137589_ (##cdr _g137549137559_)) + (_hd137556137587_ (##car _g137549137559_))) + (let ((_hd137592_ _hd137556137587_) + (_rest137594_ _tl137557137589_)) + (_K137555137584_ _rest137594_ _hd137592_))) + (_try-match137551137575_)))))))) (define gx#stx-foldl - (lambda (_f136330_ _iv136331_ _stx136332_) - (if (procedure? _f136330_) + (lambda (_f137491_ _iv137492_ _stx137493_) + (if (procedure? _f137491_) '#!void - (error '"expected procedure" _f136330_)) - (let _lp136334_ ((_r136336_ _iv136331_) (_rest136337_ _stx136332_)) - (let* ((_g136338136348_ (gx#syntax-e _rest136337_)) - (_else136341136356_ - (lambda () (_f136330_ _rest136337_ _r136336_)))) - (let ((_K136344136370_ - (lambda (_rest136367_ _hd136368_) - (_lp136334_ - (_f136330_ _hd136368_ _r136336_) - _rest136367_))) - (_K136343136361_ (lambda () _r136336_))) - (let ((_try-match136340136364_ + (error '"expected procedure" _f137491_)) + (let _lp137495_ ((_r137497_ _iv137492_) (_rest137498_ _stx137493_)) + (let* ((_g137499137509_ (gx#syntax-e _rest137498_)) + (_else137502137517_ + (lambda () (_f137491_ _rest137498_ _r137497_)))) + (let ((_K137505137531_ + (lambda (_rest137528_ _hd137529_) + (_lp137495_ + (_f137491_ _hd137529_ _r137497_) + _rest137528_))) + (_K137504137522_ (lambda () _r137497_))) + (let ((_try-match137501137525_ (lambda () - (if (##null? _g136338136348_) - (_K136343136361_) - (_else136341136356_))))) - (if (##pair? _g136338136348_) - (let ((_tl136346136375_ (##cdr _g136338136348_)) - (_hd136345136373_ (##car _g136338136348_))) - (let ((_hd136378_ _hd136345136373_) - (_rest136380_ _tl136346136375_)) - (_K136344136370_ _rest136380_ _hd136378_))) - (_try-match136340136364_)))))))) + (if (##null? _g137499137509_) + (_K137504137522_) + (_else137502137517_))))) + (if (##pair? _g137499137509_) + (let ((_tl137507137536_ (##cdr _g137499137509_)) + (_hd137506137534_ (##car _g137499137509_))) + (let ((_hd137539_ _hd137506137534_) + (_rest137541_ _tl137507137536_)) + (_K137505137531_ _rest137541_ _hd137539_))) + (_try-match137501137525_)))))))) (define gx#stx-foldr - (lambda (_f136279_ _iv136280_ _stx136281_) - (if (procedure? _f136279_) + (lambda (_f137440_ _iv137441_ _stx137442_) + (if (procedure? _f137440_) '#!void - (error '"expected procedure" _f136279_)) - (let _recur136283_ ((_rest136285_ _stx136281_)) - (let* ((_g136286136296_ (gx#syntax-e _rest136285_)) - (_else136289136304_ - (lambda () (_f136279_ _rest136285_ _iv136280_)))) - (let ((_K136292136318_ - (lambda (_rest136315_ _hd136316_) - (_f136279_ _hd136316_ (_recur136283_ _rest136315_)))) - (_K136291136309_ (lambda () _iv136280_))) - (let ((_try-match136288136312_ + (error '"expected procedure" _f137440_)) + (let _recur137444_ ((_rest137446_ _stx137442_)) + (let* ((_g137447137457_ (gx#syntax-e _rest137446_)) + (_else137450137465_ + (lambda () (_f137440_ _rest137446_ _iv137441_)))) + (let ((_K137453137479_ + (lambda (_rest137476_ _hd137477_) + (_f137440_ _hd137477_ (_recur137444_ _rest137476_)))) + (_K137452137470_ (lambda () _iv137441_))) + (let ((_try-match137449137473_ (lambda () - (if (##null? _g136286136296_) - (_K136291136309_) - (_else136289136304_))))) - (if (##pair? _g136286136296_) - (let ((_tl136294136323_ (##cdr _g136286136296_)) - (_hd136293136321_ (##car _g136286136296_))) - (let ((_hd136326_ _hd136293136321_) - (_rest136328_ _tl136294136323_)) - (_K136292136318_ _rest136328_ _hd136326_))) - (_try-match136288136312_)))))))) + (if (##null? _g137447137457_) + (_K137452137470_) + (_else137450137465_))))) + (if (##pair? _g137447137457_) + (let ((_tl137455137484_ (##cdr _g137447137457_)) + (_hd137454137482_ (##car _g137447137457_))) + (let ((_hd137487_ _hd137454137482_) + (_rest137489_ _tl137455137484_)) + (_K137453137479_ _rest137489_ _hd137487_))) + (_try-match137449137473_)))))))) (define gx#stx-reverse - (lambda (_stx136277_) (gx#stx-foldl cons '() _stx136277_))) + (lambda (_stx137438_) (gx#stx-foldl cons '() _stx137438_))) (define gx#stx-last - (lambda (_stx136238_) - (let _lp136240_ ((_rest136242_ _stx136238_)) - (let* ((_g136243136251_ (gx#syntax-e _rest136242_)) - (_else136245136259_ (lambda () _rest136242_)) - (_K136247136265_ - (lambda (_rest136262_ _hd136263_) - (if (gx#stx-null? _rest136262_) - _hd136263_ - (_lp136240_ _rest136262_))))) - (if (##pair? _g136243136251_) - (let ((_hd136248136268_ (##car _g136243136251_)) - (_tl136249136270_ (##cdr _g136243136251_))) - (let* ((_hd136273_ _hd136248136268_) - (_rest136275_ _tl136249136270_)) - (_K136247136265_ _rest136275_ _hd136273_))) - (_else136245136259_)))))) + (lambda (_stx137399_) + (let _lp137401_ ((_rest137403_ _stx137399_)) + (let* ((_g137404137412_ (gx#syntax-e _rest137403_)) + (_else137406137420_ (lambda () _rest137403_)) + (_K137408137426_ + (lambda (_rest137423_ _hd137424_) + (if (gx#stx-null? _rest137423_) + _hd137424_ + (_lp137401_ _rest137423_))))) + (if (##pair? _g137404137412_) + (let ((_hd137409137429_ (##car _g137404137412_)) + (_tl137410137431_ (##cdr _g137404137412_))) + (let* ((_hd137434_ _hd137409137429_) + (_rest137436_ _tl137410137431_)) + (_K137408137426_ _rest137436_ _hd137434_))) + (_else137406137420_)))))) (define gx#stx-last-pair - (lambda (_stx136209_) - (let _lp136211_ ((_hd136213_ _stx136209_)) - (let* ((_g136214136221_ (gx#syntax-e _hd136213_)) - (_E136216136225_ - (lambda () (error '"No clause matching" _g136214136221_))) - (_K136217136230_ - (lambda (_rest136228_) - (if (gx#stx-pair? _rest136228_) - (_lp136211_ _rest136228_) - _hd136213_)))) - (if (##pair? _g136214136221_) - (let* ((_tl136219136233_ (##cdr _g136214136221_)) - (_rest136236_ _tl136219136233_)) - (_K136217136230_ _rest136236_)) - (_E136216136225_)))))) + (lambda (_stx137370_) + (let _lp137372_ ((_hd137374_ _stx137370_)) + (let* ((_g137375137382_ (gx#syntax-e _hd137374_)) + (_E137377137386_ + (lambda () (error '"No clause matching" _g137375137382_))) + (_K137378137391_ + (lambda (_rest137389_) + (if (gx#stx-pair? _rest137389_) + (_lp137372_ _rest137389_) + _hd137374_)))) + (if (##pair? _g137375137382_) + (let* ((_tl137380137394_ (##cdr _g137375137382_)) + (_rest137397_ _tl137380137394_)) + (_K137378137391_ _rest137397_)) + (_E137377137386_)))))) (define gx#stx-list-tail - (lambda (_stx136178_ _k136179_) - (let _lp136181_ ((_rest136183_ _stx136178_) (_k136184_ _k136179_)) - (if (fxpositive? _k136184_) - (let* ((_g136185136192_ (gx#syntax-e _rest136183_)) - (_E136187136196_ + (lambda (_stx137339_ _k137340_) + (let _lp137342_ ((_rest137344_ _stx137339_) (_k137345_ _k137340_)) + (if (fxpositive? _k137345_) + (let* ((_g137346137353_ (gx#syntax-e _rest137344_)) + (_E137348137357_ (lambda () - (error '"No clause matching" _g136185136192_))) - (_K136188136201_ - (lambda (_rest136199_) - (_lp136181_ _rest136199_ (fx- _k136184_ '1))))) - (if (##pair? _g136185136192_) - (let* ((_tl136190136204_ (##cdr _g136185136192_)) - (_rest136207_ _tl136190136204_)) - (_K136188136201_ _rest136207_)) - (_E136187136196_))) - _rest136183_)))) + (error '"No clause matching" _g137346137353_))) + (_K137349137362_ + (lambda (_rest137360_) + (_lp137342_ _rest137360_ (fx- _k137345_ '1))))) + (if (##pair? _g137346137353_) + (let* ((_tl137351137365_ (##cdr _g137346137353_)) + (_rest137368_ _tl137351137365_)) + (_K137349137362_ _rest137368_)) + (_E137348137357_))) + _rest137344_)))) (define gx#stx-list-ref - (lambda (_stx136175_ _k136176_) - (gx#stx-car (gx#stx-list-tail _stx136175_ _k136176_)))) + (lambda (_stx137336_ _k137337_) + (gx#stx-car (gx#stx-list-tail _stx137336_ _k137337_)))) (define gx#stx-plist?__% - (lambda (_stx136087_ _key?136088_) - (if (procedure? _key?136088_) + (lambda (_stx137248_ _key?137249_) + (if (procedure? _key?137249_) '#!void - (error '"expected procedure" _key?136088_)) - (let _lp136090_ ((_rest136092_ _stx136087_)) - (let* ((_g136093136103_ (gx#stx-e _rest136092_)) - (_else136096136111_ (lambda () '#f))) - (let ((_K136099136153_ - (lambda (_rest136122_ _hd136123_) - (if (_key?136088_ _hd136123_) - (let* ((_g136124136132_ (gx#stx-e _rest136122_)) - (_else136126136140_ (lambda () '#f)) - (_K136128136145_ - (lambda (_rest136143_) - (_lp136090_ _rest136143_)))) - (if (##pair? _g136124136132_) - (let* ((_tl136130136148_ - (##cdr _g136124136132_)) - (_rest136151_ _tl136130136148_)) - (_lp136090_ _rest136151_)) - (_else136126136140_))) + (error '"expected procedure" _key?137249_)) + (let _lp137251_ ((_rest137253_ _stx137248_)) + (let* ((_g137254137264_ (gx#stx-e _rest137253_)) + (_else137257137272_ (lambda () '#f))) + (let ((_K137260137314_ + (lambda (_rest137283_ _hd137284_) + (if (_key?137249_ _hd137284_) + (let* ((_g137285137293_ (gx#stx-e _rest137283_)) + (_else137287137301_ (lambda () '#f)) + (_K137289137306_ + (lambda (_rest137304_) + (_lp137251_ _rest137304_)))) + (if (##pair? _g137285137293_) + (let* ((_tl137291137309_ + (##cdr _g137285137293_)) + (_rest137312_ _tl137291137309_)) + (_lp137251_ _rest137312_)) + (_else137287137301_))) '#f))) - (_K136098136116_ (lambda () '#t))) - (let ((_try-match136095136119_ + (_K137259137277_ (lambda () '#t))) + (let ((_try-match137256137280_ (lambda () - (if (##null? _g136093136103_) - (_K136098136116_) - (_else136096136111_))))) - (if (##pair? _g136093136103_) - (let ((_tl136101136158_ (##cdr _g136093136103_)) - (_hd136100136156_ (##car _g136093136103_))) - (let ((_hd136161_ _hd136100136156_) - (_rest136163_ _tl136101136158_)) - (_K136099136153_ _rest136163_ _hd136161_))) - (_try-match136095136119_)))))))) + (if (##null? _g137254137264_) + (_K137259137277_) + (_else137257137272_))))) + (if (##pair? _g137254137264_) + (let ((_tl137262137319_ (##cdr _g137254137264_)) + (_hd137261137317_ (##car _g137254137264_))) + (let ((_hd137322_ _hd137261137317_) + (_rest137324_ _tl137262137319_)) + (_K137260137314_ _rest137324_ _hd137322_))) + (_try-match137256137280_)))))))) (define gx#stx-plist?__0 - (lambda (_stx136168_) - (let ((_key?136170_ gx#stx-keyword?)) - (gx#stx-plist?__% _stx136168_ _key?136170_)))) + (lambda (_stx137329_) + (let ((_key?137331_ gx#stx-keyword?)) + (gx#stx-plist?__% _stx137329_ _key?137331_)))) (define gx#stx-plist? - (lambda _g141844_ - (let ((_g141843_ (##length _g141844_))) - (cond ((##fx= _g141843_ 1) - (apply (lambda (_stx136168_) (gx#stx-plist?__0 _stx136168_)) - _g141844_)) - ((##fx= _g141843_ 2) - (apply (lambda (_stx136172_ _key?136173_) - (gx#stx-plist?__% _stx136172_ _key?136173_)) - _g141844_)) + (lambda _g143005_ + (let ((_g143004_ (##length _g143005_))) + (cond ((##fx= _g143004_ 1) + (apply (lambda (_stx137329_) (gx#stx-plist?__0 _stx137329_)) + _g143005_)) + ((##fx= _g143004_ 2) + (apply (lambda (_stx137333_ _key?137334_) + (gx#stx-plist?__% _stx137333_ _key?137334_)) + _g143005_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g141844_)))))) + _g143005_)))))) (define gx#stx-getq__% - (lambda (_key136005_ _stx136006_ _key=?136007_) - (if (procedure? _key=?136007_) + (lambda (_key137166_ _stx137167_ _key=?137168_) + (if (procedure? _key=?137168_) '#!void - (error '"expected procedure" _key=?136007_)) - (let _lp136009_ ((_rest136011_ _stx136006_)) - (let* ((_g136012136020_ (gx#syntax-e _rest136011_)) - (_else136014136028_ (lambda () '#f)) - (_K136016136062_ - (lambda (_rest136031_ _hd136032_) - (let* ((_g136033136040_ (gx#syntax-e _rest136031_)) - (_E136035136044_ + (error '"expected procedure" _key=?137168_)) + (let _lp137170_ ((_rest137172_ _stx137167_)) + (let* ((_g137173137181_ (gx#syntax-e _rest137172_)) + (_else137175137189_ (lambda () '#f)) + (_K137177137223_ + (lambda (_rest137192_ _hd137193_) + (let* ((_g137194137201_ (gx#syntax-e _rest137192_)) + (_E137196137205_ (lambda () - (error '"No clause matching" _g136033136040_))) - (_K136036136050_ - (lambda (_rest136047_ _val136048_) - (if (_key=?136007_ _hd136032_ _key136005_) - _val136048_ - (_lp136009_ _rest136047_))))) - (if (##pair? _g136033136040_) - (let ((_hd136037136053_ (##car _g136033136040_)) - (_tl136038136055_ (##cdr _g136033136040_))) - (let* ((_val136058_ _hd136037136053_) - (_rest136060_ _tl136038136055_)) - (_K136036136050_ _rest136060_ _val136058_))) - (_E136035136044_)))))) - (if (##pair? _g136012136020_) - (let ((_hd136017136065_ (##car _g136012136020_)) - (_tl136018136067_ (##cdr _g136012136020_))) - (let* ((_hd136070_ _hd136017136065_) - (_rest136072_ _tl136018136067_)) - (_K136016136062_ _rest136072_ _hd136070_))) - (_else136014136028_)))))) + (error '"No clause matching" _g137194137201_))) + (_K137197137211_ + (lambda (_rest137208_ _val137209_) + (if (_key=?137168_ _hd137193_ _key137166_) + _val137209_ + (_lp137170_ _rest137208_))))) + (if (##pair? _g137194137201_) + (let ((_hd137198137214_ (##car _g137194137201_)) + (_tl137199137216_ (##cdr _g137194137201_))) + (let* ((_val137219_ _hd137198137214_) + (_rest137221_ _tl137199137216_)) + (_K137197137211_ _rest137221_ _val137219_))) + (_E137196137205_)))))) + (if (##pair? _g137173137181_) + (let ((_hd137178137226_ (##car _g137173137181_)) + (_tl137179137228_ (##cdr _g137173137181_))) + (let* ((_hd137231_ _hd137178137226_) + (_rest137233_ _tl137179137228_)) + (_K137177137223_ _rest137233_ _hd137231_))) + (_else137175137189_)))))) (define gx#stx-getq__0 - (lambda (_key136077_ _stx136078_) - (let ((_key=?136080_ gx#stx-eq?)) - (gx#stx-getq__% _key136077_ _stx136078_ _key=?136080_)))) + (lambda (_key137238_ _stx137239_) + (let ((_key=?137241_ gx#stx-eq?)) + (gx#stx-getq__% _key137238_ _stx137239_ _key=?137241_)))) (define gx#stx-getq - (lambda _g141846_ - (let ((_g141845_ (##length _g141846_))) - (cond ((##fx= _g141845_ 2) - (apply (lambda (_key136077_ _stx136078_) - (gx#stx-getq__0 _key136077_ _stx136078_)) - _g141846_)) - ((##fx= _g141845_ 3) - (apply (lambda (_key136082_ _stx136083_ _key=?136084_) + (lambda _g143007_ + (let ((_g143006_ (##length _g143007_))) + (cond ((##fx= _g143006_ 2) + (apply (lambda (_key137238_ _stx137239_) + (gx#stx-getq__0 _key137238_ _stx137239_)) + _g143007_)) + ((##fx= _g143006_ 3) + (apply (lambda (_key137243_ _stx137244_ _key=?137245_) (gx#stx-getq__% - _key136082_ - _stx136083_ - _key=?136084_)) - _g141846_)) + _key137243_ + _stx137244_ + _key=?137245_)) + _g143007_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g141846_)))))))) + _g143007_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx__1.scm b/src/bootstrap/gerbil/expander/stx__1.scm index c044547f1..a6a8e61c2 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]#_g141849_| + (define |gx[1]#_g143010_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g141851_| + (define |gx[1]#_g143012_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g141853_| + (define |gx[1]#_g143014_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g141855_| + (define |gx[1]#_g143016_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g141861_| + (define |gx[1]#_g143022_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g141864_| + (define |gx[1]#_g143025_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g141867_| + (define |gx[1]#_g143028_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g141873_| + (define |gx[1]#_g143034_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141876_| + (define |gx[1]#_g143037_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141879_| + (define |gx[1]#_g143040_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141885_| + (define |gx[1]#_g143046_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g141888_| + (define |gx[1]#_g143049_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g141891_| + (define |gx[1]#_g143052_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g141897_| + (define |gx[1]#_g143058_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141900_| + (define |gx[1]#_g143061_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141903_| + (define |gx[1]#_g143064_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141907_| + (define |gx[1]#_g143068_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g141909_| + (define |gx[1]#_g143070_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g141911_| + (define |gx[1]#_g143072_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g141917_| + (define |gx[1]#_g143078_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g141920_| + (define |gx[1]#_g143081_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g141923_| + (define |gx[1]#_g143084_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g141929_| + (define |gx[1]#_g143090_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141932_| + (define |gx[1]#_g143093_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141935_| + (define |gx[1]#_g143096_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141941_| + (define |gx[1]#_g143102_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g141944_| + (define |gx[1]#_g143105_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g141947_| + (define |gx[1]#_g143108_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g141953_| + (define |gx[1]#_g143114_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141956_| + (define |gx[1]#_g143117_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141959_| + (define |gx[1]#_g143120_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141963_| + (define |gx[1]#_g143124_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g141965_| + (define |gx[1]#_g143126_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g141967_| + (define |gx[1]#_g143128_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g141974_| + (define |gx[1]#_g143135_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g141977_| + (define |gx[1]#_g143138_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g141980_| + (define |gx[1]#_g143141_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g141983_| + (define |gx[1]#_g143144_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g141990_| + (define |gx[1]#_g143151_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141993_| + (define |gx[1]#_g143154_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141996_| + (define |gx[1]#_g143157_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g141999_| + (define |gx[1]#_g143160_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g142006_| + (define |gx[1]#_g143167_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g142009_| + (define |gx[1]#_g143170_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g142012_| + (define |gx[1]#_g143173_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g142015_| + (define |gx[1]#_g143176_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g142022_| + (define |gx[1]#_g143183_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g142025_| + (define |gx[1]#_g143186_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g142028_| + (define |gx[1]#_g143189_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g142031_| + (define |gx[1]#_g143192_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj141830 + (let ((__obj142991 (let () (declare (not safe)) (##structure @@ -365,11 +365,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj141830 + __obj142991 'gx#identifier-wrap::t '1 gerbil/core$$#class-type-info::t @@ -377,7 +378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141830 + __obj142991 'syntax '2 gerbil/core$$#class-type-info::t @@ -385,26 +386,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141830 + __obj142991 '(marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141847 - (let ((__tmp141848 |gx[1]#_g141849_|)) + (let ((__tmp143008 + (let ((__tmp143009 |gx[1]#_g143010_|)) (declare (not safe)) - (cons __tmp141848 '())))) + (cons __tmp143009 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141847 + __obj142991 + __tmp143008 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj141830 + __obj142991 '#t '5 gerbil/core$$#class-type-info::t @@ -412,7 +413,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141830 + __obj142991 '#t '6 gerbil/core$$#class-type-info::t @@ -420,150 +421,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141830 + __obj142991 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141850 |gx[1]#_g141851_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141850 + __obj142991 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141852 |gx[1]#_g141853_|)) + (let ((__tmp143011 |gx[1]#_g143012_|)) (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141852 + __obj142991 + __tmp143011 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141854 |gx[1]#_g141855_|)) + (let ((__tmp143013 |gx[1]#_g143014_|)) (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141854 + __obj142991 + __tmp143013 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141856 - (let ((__tmp141865 - (let ((__tmp141866 |gx[1]#_g141867_|)) + (let ((__tmp143015 |gx[1]#_g143016_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj142991 + __tmp143015 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp143017 + (let ((__tmp143026 + (let ((__tmp143027 |gx[1]#_g143028_|)) (declare (not safe)) - (cons 'marks __tmp141866))) - (__tmp141857 - (let ((__tmp141862 - (let ((__tmp141863 |gx[1]#_g141864_|)) + (cons 'marks __tmp143027))) + (__tmp143018 + (let ((__tmp143023 + (let ((__tmp143024 |gx[1]#_g143025_|)) (declare (not safe)) - (cons 'e __tmp141863))) - (__tmp141858 - (let ((__tmp141859 - (let ((__tmp141860 |gx[1]#_g141861_|)) + (cons 'e __tmp143024))) + (__tmp143019 + (let ((__tmp143020 + (let ((__tmp143021 |gx[1]#_g143022_|)) (declare (not safe)) - (cons 'source __tmp141860)))) + (cons 'source __tmp143021)))) (declare (not safe)) - (cons __tmp141859 '())))) + (cons __tmp143020 '())))) (declare (not safe)) - (cons __tmp141862 __tmp141858)))) + (cons __tmp143023 __tmp143019)))) (declare (not safe)) - (cons __tmp141865 __tmp141857)))) + (cons __tmp143026 __tmp143018)))) (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141856 - '11 + __obj142991 + __tmp143017 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141868 - (let ((__tmp141877 - (let ((__tmp141878 |gx[1]#_g141879_|)) + (let ((__tmp143029 + (let ((__tmp143038 + (let ((__tmp143039 |gx[1]#_g143040_|)) (declare (not safe)) - (cons 'marks __tmp141878))) - (__tmp141869 - (let ((__tmp141874 - (let ((__tmp141875 |gx[1]#_g141876_|)) + (cons 'marks __tmp143039))) + (__tmp143030 + (let ((__tmp143035 + (let ((__tmp143036 |gx[1]#_g143037_|)) (declare (not safe)) - (cons 'e __tmp141875))) - (__tmp141870 - (let ((__tmp141871 - (let ((__tmp141872 |gx[1]#_g141873_|)) + (cons 'e __tmp143036))) + (__tmp143031 + (let ((__tmp143032 + (let ((__tmp143033 |gx[1]#_g143034_|)) (declare (not safe)) - (cons 'source __tmp141872)))) + (cons 'source __tmp143033)))) (declare (not safe)) - (cons __tmp141871 '())))) + (cons __tmp143032 '())))) (declare (not safe)) - (cons __tmp141874 __tmp141870)))) + (cons __tmp143035 __tmp143031)))) (declare (not safe)) - (cons __tmp141877 __tmp141869)))) + (cons __tmp143038 __tmp143030)))) (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141868 - '12 + __obj142991 + __tmp143029 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141880 - (let ((__tmp141889 - (let ((__tmp141890 |gx[1]#_g141891_|)) + (let ((__tmp143041 + (let ((__tmp143050 + (let ((__tmp143051 |gx[1]#_g143052_|)) (declare (not safe)) - (cons 'marks __tmp141890))) - (__tmp141881 - (let ((__tmp141886 - (let ((__tmp141887 |gx[1]#_g141888_|)) + (cons 'marks __tmp143051))) + (__tmp143042 + (let ((__tmp143047 + (let ((__tmp143048 |gx[1]#_g143049_|)) (declare (not safe)) - (cons 'e __tmp141887))) - (__tmp141882 - (let ((__tmp141883 - (let ((__tmp141884 |gx[1]#_g141885_|)) + (cons 'e __tmp143048))) + (__tmp143043 + (let ((__tmp143044 + (let ((__tmp143045 |gx[1]#_g143046_|)) (declare (not safe)) - (cons 'source __tmp141884)))) + (cons 'source __tmp143045)))) (declare (not safe)) - (cons __tmp141883 '())))) + (cons __tmp143044 '())))) (declare (not safe)) - (cons __tmp141886 __tmp141882)))) + (cons __tmp143047 __tmp143043)))) (declare (not safe)) - (cons __tmp141889 __tmp141881)))) + (cons __tmp143050 __tmp143042)))) (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141880 - '13 + __obj142991 + __tmp143041 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141892 - (let ((__tmp141901 - (let ((__tmp141902 |gx[1]#_g141903_|)) + (let ((__tmp143053 + (let ((__tmp143062 + (let ((__tmp143063 |gx[1]#_g143064_|)) (declare (not safe)) - (cons 'marks __tmp141902))) - (__tmp141893 - (let ((__tmp141898 - (let ((__tmp141899 |gx[1]#_g141900_|)) + (cons 'marks __tmp143063))) + (__tmp143054 + (let ((__tmp143059 + (let ((__tmp143060 |gx[1]#_g143061_|)) (declare (not safe)) - (cons 'e __tmp141899))) - (__tmp141894 - (let ((__tmp141895 - (let ((__tmp141896 |gx[1]#_g141897_|)) + (cons 'e __tmp143060))) + (__tmp143055 + (let ((__tmp143056 + (let ((__tmp143057 |gx[1]#_g143058_|)) (declare (not safe)) - (cons 'source __tmp141896)))) + (cons 'source __tmp143057)))) (declare (not safe)) - (cons __tmp141895 '())))) + (cons __tmp143056 '())))) (declare (not safe)) - (cons __tmp141898 __tmp141894)))) + (cons __tmp143059 __tmp143055)))) (declare (not safe)) - (cons __tmp141901 __tmp141893)))) + (cons __tmp143062 __tmp143054)))) (declare (not safe)) (##unchecked-structure-set! - __obj141830 - __tmp141892 - '14 + __obj142991 + __tmp143053 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj141830)) + __obj142991)) (define |gx[:0:]#syntax-wrap| - (let ((__obj141831 + (let ((__obj142992 (let () (declare (not safe)) (##structure @@ -581,11 +590,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj141831 + __obj142992 'gx#syntax-wrap::t '1 gerbil/core$$#class-type-info::t @@ -593,7 +603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141831 + __obj142992 'syntax '2 gerbil/core$$#class-type-info::t @@ -601,26 +611,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141831 + __obj142992 '(mark) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141904 - (let ((__tmp141905 |gx[1]#_g141849_|)) + (let ((__tmp143065 + (let ((__tmp143066 |gx[1]#_g143010_|)) (declare (not safe)) - (cons __tmp141905 '())))) + (cons __tmp143066 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141904 + __obj142992 + __tmp143065 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj141831 + __obj142992 '#t '5 gerbil/core$$#class-type-info::t @@ -628,7 +638,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141831 + __obj142992 '#t '6 gerbil/core$$#class-type-info::t @@ -636,150 +646,158 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141831 + __obj142992 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141906 |gx[1]#_g141907_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141906 + __obj142992 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141908 |gx[1]#_g141909_|)) + (let ((__tmp143067 |gx[1]#_g143068_|)) (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141908 + __obj142992 + __tmp143067 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141910 |gx[1]#_g141911_|)) + (let ((__tmp143069 |gx[1]#_g143070_|)) (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141910 + __obj142992 + __tmp143069 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141912 - (let ((__tmp141921 - (let ((__tmp141922 |gx[1]#_g141923_|)) + (let ((__tmp143071 |gx[1]#_g143072_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj142992 + __tmp143071 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp143073 + (let ((__tmp143082 + (let ((__tmp143083 |gx[1]#_g143084_|)) (declare (not safe)) - (cons 'mark __tmp141922))) - (__tmp141913 - (let ((__tmp141918 - (let ((__tmp141919 |gx[1]#_g141920_|)) + (cons 'mark __tmp143083))) + (__tmp143074 + (let ((__tmp143079 + (let ((__tmp143080 |gx[1]#_g143081_|)) (declare (not safe)) - (cons 'e __tmp141919))) - (__tmp141914 - (let ((__tmp141915 - (let ((__tmp141916 |gx[1]#_g141917_|)) + (cons 'e __tmp143080))) + (__tmp143075 + (let ((__tmp143076 + (let ((__tmp143077 |gx[1]#_g143078_|)) (declare (not safe)) - (cons 'source __tmp141916)))) + (cons 'source __tmp143077)))) (declare (not safe)) - (cons __tmp141915 '())))) + (cons __tmp143076 '())))) (declare (not safe)) - (cons __tmp141918 __tmp141914)))) + (cons __tmp143079 __tmp143075)))) (declare (not safe)) - (cons __tmp141921 __tmp141913)))) + (cons __tmp143082 __tmp143074)))) (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141912 - '11 + __obj142992 + __tmp143073 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141924 - (let ((__tmp141933 - (let ((__tmp141934 |gx[1]#_g141935_|)) + (let ((__tmp143085 + (let ((__tmp143094 + (let ((__tmp143095 |gx[1]#_g143096_|)) (declare (not safe)) - (cons 'mark __tmp141934))) - (__tmp141925 - (let ((__tmp141930 - (let ((__tmp141931 |gx[1]#_g141932_|)) + (cons 'mark __tmp143095))) + (__tmp143086 + (let ((__tmp143091 + (let ((__tmp143092 |gx[1]#_g143093_|)) (declare (not safe)) - (cons 'e __tmp141931))) - (__tmp141926 - (let ((__tmp141927 - (let ((__tmp141928 |gx[1]#_g141929_|)) + (cons 'e __tmp143092))) + (__tmp143087 + (let ((__tmp143088 + (let ((__tmp143089 |gx[1]#_g143090_|)) (declare (not safe)) - (cons 'source __tmp141928)))) + (cons 'source __tmp143089)))) (declare (not safe)) - (cons __tmp141927 '())))) + (cons __tmp143088 '())))) (declare (not safe)) - (cons __tmp141930 __tmp141926)))) + (cons __tmp143091 __tmp143087)))) (declare (not safe)) - (cons __tmp141933 __tmp141925)))) + (cons __tmp143094 __tmp143086)))) (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141924 - '12 + __obj142992 + __tmp143085 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141936 - (let ((__tmp141945 - (let ((__tmp141946 |gx[1]#_g141947_|)) + (let ((__tmp143097 + (let ((__tmp143106 + (let ((__tmp143107 |gx[1]#_g143108_|)) (declare (not safe)) - (cons 'mark __tmp141946))) - (__tmp141937 - (let ((__tmp141942 - (let ((__tmp141943 |gx[1]#_g141944_|)) + (cons 'mark __tmp143107))) + (__tmp143098 + (let ((__tmp143103 + (let ((__tmp143104 |gx[1]#_g143105_|)) (declare (not safe)) - (cons 'e __tmp141943))) - (__tmp141938 - (let ((__tmp141939 - (let ((__tmp141940 |gx[1]#_g141941_|)) + (cons 'e __tmp143104))) + (__tmp143099 + (let ((__tmp143100 + (let ((__tmp143101 |gx[1]#_g143102_|)) (declare (not safe)) - (cons 'source __tmp141940)))) + (cons 'source __tmp143101)))) (declare (not safe)) - (cons __tmp141939 '())))) + (cons __tmp143100 '())))) (declare (not safe)) - (cons __tmp141942 __tmp141938)))) + (cons __tmp143103 __tmp143099)))) (declare (not safe)) - (cons __tmp141945 __tmp141937)))) + (cons __tmp143106 __tmp143098)))) (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141936 - '13 + __obj142992 + __tmp143097 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141948 - (let ((__tmp141957 - (let ((__tmp141958 |gx[1]#_g141959_|)) + (let ((__tmp143109 + (let ((__tmp143118 + (let ((__tmp143119 |gx[1]#_g143120_|)) (declare (not safe)) - (cons 'mark __tmp141958))) - (__tmp141949 - (let ((__tmp141954 - (let ((__tmp141955 |gx[1]#_g141956_|)) + (cons 'mark __tmp143119))) + (__tmp143110 + (let ((__tmp143115 + (let ((__tmp143116 |gx[1]#_g143117_|)) (declare (not safe)) - (cons 'e __tmp141955))) - (__tmp141950 - (let ((__tmp141951 - (let ((__tmp141952 |gx[1]#_g141953_|)) + (cons 'e __tmp143116))) + (__tmp143111 + (let ((__tmp143112 + (let ((__tmp143113 |gx[1]#_g143114_|)) (declare (not safe)) - (cons 'source __tmp141952)))) + (cons 'source __tmp143113)))) (declare (not safe)) - (cons __tmp141951 '())))) + (cons __tmp143112 '())))) (declare (not safe)) - (cons __tmp141954 __tmp141950)))) + (cons __tmp143115 __tmp143111)))) (declare (not safe)) - (cons __tmp141957 __tmp141949)))) + (cons __tmp143118 __tmp143110)))) (declare (not safe)) (##unchecked-structure-set! - __obj141831 - __tmp141948 - '14 + __obj142992 + __tmp143109 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj141831)) + __obj142992)) (define |gx[:0:]#syntax-quote| - (let ((__obj141832 + (let ((__obj142993 (let () (declare (not safe)) (##structure @@ -797,11 +815,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj141832 + __obj142993 'gx#syntax-quote::t '1 gerbil/core$$#class-type-info::t @@ -809,7 +828,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141832 + __obj142993 'syntax '2 gerbil/core$$#class-type-info::t @@ -817,26 +836,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141832 + __obj142993 '(context marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141960 - (let ((__tmp141961 |gx[1]#_g141849_|)) + (let ((__tmp143121 + (let ((__tmp143122 |gx[1]#_g143010_|)) (declare (not safe)) - (cons __tmp141961 '())))) + (cons __tmp143122 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp141960 + __obj142993 + __tmp143121 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj141832 + __obj142993 '#t '5 gerbil/core$$#class-type-info::t @@ -844,7 +863,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141832 + __obj142993 '#t '6 gerbil/core$$#class-type-info::t @@ -852,177 +871,185 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj141832 + __obj142993 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141962 |gx[1]#_g141963_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp141962 + __obj142993 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141964 |gx[1]#_g141965_|)) + (let ((__tmp143123 |gx[1]#_g143124_|)) (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp141964 + __obj142993 + __tmp143123 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141966 |gx[1]#_g141967_|)) + (let ((__tmp143125 |gx[1]#_g143126_|)) (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp141966 + __obj142993 + __tmp143125 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141968 - (let ((__tmp141981 - (let ((__tmp141982 |gx[1]#_g141983_|)) + (let ((__tmp143127 |gx[1]#_g143128_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj142993 + __tmp143127 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp143129 + (let ((__tmp143142 + (let ((__tmp143143 |gx[1]#_g143144_|)) (declare (not safe)) - (cons 'context __tmp141982))) - (__tmp141969 - (let ((__tmp141978 - (let ((__tmp141979 |gx[1]#_g141980_|)) + (cons 'context __tmp143143))) + (__tmp143130 + (let ((__tmp143139 + (let ((__tmp143140 |gx[1]#_g143141_|)) (declare (not safe)) - (cons 'marks __tmp141979))) - (__tmp141970 - (let ((__tmp141975 - (let ((__tmp141976 |gx[1]#_g141977_|)) + (cons 'marks __tmp143140))) + (__tmp143131 + (let ((__tmp143136 + (let ((__tmp143137 |gx[1]#_g143138_|)) (declare (not safe)) - (cons 'e __tmp141976))) - (__tmp141971 - (let ((__tmp141972 - (let ((__tmp141973 - |gx[1]#_g141974_|)) + (cons 'e __tmp143137))) + (__tmp143132 + (let ((__tmp143133 + (let ((__tmp143134 + |gx[1]#_g143135_|)) (declare (not safe)) - (cons 'source __tmp141973)))) + (cons 'source __tmp143134)))) (declare (not safe)) - (cons __tmp141972 '())))) + (cons __tmp143133 '())))) (declare (not safe)) - (cons __tmp141975 __tmp141971)))) + (cons __tmp143136 __tmp143132)))) (declare (not safe)) - (cons __tmp141978 __tmp141970)))) + (cons __tmp143139 __tmp143131)))) (declare (not safe)) - (cons __tmp141981 __tmp141969)))) + (cons __tmp143142 __tmp143130)))) (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp141968 - '11 + __obj142993 + __tmp143129 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp141984 - (let ((__tmp141997 - (let ((__tmp141998 |gx[1]#_g141999_|)) + (let ((__tmp143145 + (let ((__tmp143158 + (let ((__tmp143159 |gx[1]#_g143160_|)) (declare (not safe)) - (cons 'context __tmp141998))) - (__tmp141985 - (let ((__tmp141994 - (let ((__tmp141995 |gx[1]#_g141996_|)) + (cons 'context __tmp143159))) + (__tmp143146 + (let ((__tmp143155 + (let ((__tmp143156 |gx[1]#_g143157_|)) (declare (not safe)) - (cons 'marks __tmp141995))) - (__tmp141986 - (let ((__tmp141991 - (let ((__tmp141992 |gx[1]#_g141993_|)) + (cons 'marks __tmp143156))) + (__tmp143147 + (let ((__tmp143152 + (let ((__tmp143153 |gx[1]#_g143154_|)) (declare (not safe)) - (cons 'e __tmp141992))) - (__tmp141987 - (let ((__tmp141988 - (let ((__tmp141989 - |gx[1]#_g141990_|)) + (cons 'e __tmp143153))) + (__tmp143148 + (let ((__tmp143149 + (let ((__tmp143150 + |gx[1]#_g143151_|)) (declare (not safe)) - (cons 'source __tmp141989)))) + (cons 'source __tmp143150)))) (declare (not safe)) - (cons __tmp141988 '())))) + (cons __tmp143149 '())))) (declare (not safe)) - (cons __tmp141991 __tmp141987)))) + (cons __tmp143152 __tmp143148)))) (declare (not safe)) - (cons __tmp141994 __tmp141986)))) + (cons __tmp143155 __tmp143147)))) (declare (not safe)) - (cons __tmp141997 __tmp141985)))) + (cons __tmp143158 __tmp143146)))) (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp141984 - '12 + __obj142993 + __tmp143145 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp142000 - (let ((__tmp142013 - (let ((__tmp142014 |gx[1]#_g142015_|)) + (let ((__tmp143161 + (let ((__tmp143174 + (let ((__tmp143175 |gx[1]#_g143176_|)) (declare (not safe)) - (cons 'context __tmp142014))) - (__tmp142001 - (let ((__tmp142010 - (let ((__tmp142011 |gx[1]#_g142012_|)) + (cons 'context __tmp143175))) + (__tmp143162 + (let ((__tmp143171 + (let ((__tmp143172 |gx[1]#_g143173_|)) (declare (not safe)) - (cons 'marks __tmp142011))) - (__tmp142002 - (let ((__tmp142007 - (let ((__tmp142008 |gx[1]#_g142009_|)) + (cons 'marks __tmp143172))) + (__tmp143163 + (let ((__tmp143168 + (let ((__tmp143169 |gx[1]#_g143170_|)) (declare (not safe)) - (cons 'e __tmp142008))) - (__tmp142003 - (let ((__tmp142004 - (let ((__tmp142005 - |gx[1]#_g142006_|)) + (cons 'e __tmp143169))) + (__tmp143164 + (let ((__tmp143165 + (let ((__tmp143166 + |gx[1]#_g143167_|)) (declare (not safe)) - (cons 'source __tmp142005)))) + (cons 'source __tmp143166)))) (declare (not safe)) - (cons __tmp142004 '())))) + (cons __tmp143165 '())))) (declare (not safe)) - (cons __tmp142007 __tmp142003)))) + (cons __tmp143168 __tmp143164)))) (declare (not safe)) - (cons __tmp142010 __tmp142002)))) + (cons __tmp143171 __tmp143163)))) (declare (not safe)) - (cons __tmp142013 __tmp142001)))) + (cons __tmp143174 __tmp143162)))) (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp142000 - '13 + __obj142993 + __tmp143161 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp142016 - (let ((__tmp142029 - (let ((__tmp142030 |gx[1]#_g142031_|)) + (let ((__tmp143177 + (let ((__tmp143190 + (let ((__tmp143191 |gx[1]#_g143192_|)) (declare (not safe)) - (cons 'context __tmp142030))) - (__tmp142017 - (let ((__tmp142026 - (let ((__tmp142027 |gx[1]#_g142028_|)) + (cons 'context __tmp143191))) + (__tmp143178 + (let ((__tmp143187 + (let ((__tmp143188 |gx[1]#_g143189_|)) (declare (not safe)) - (cons 'marks __tmp142027))) - (__tmp142018 - (let ((__tmp142023 - (let ((__tmp142024 |gx[1]#_g142025_|)) + (cons 'marks __tmp143188))) + (__tmp143179 + (let ((__tmp143184 + (let ((__tmp143185 |gx[1]#_g143186_|)) (declare (not safe)) - (cons 'e __tmp142024))) - (__tmp142019 - (let ((__tmp142020 - (let ((__tmp142021 - |gx[1]#_g142022_|)) + (cons 'e __tmp143185))) + (__tmp143180 + (let ((__tmp143181 + (let ((__tmp143182 + |gx[1]#_g143183_|)) (declare (not safe)) - (cons 'source __tmp142021)))) + (cons 'source __tmp143182)))) (declare (not safe)) - (cons __tmp142020 '())))) + (cons __tmp143181 '())))) (declare (not safe)) - (cons __tmp142023 __tmp142019)))) + (cons __tmp143184 __tmp143180)))) (declare (not safe)) - (cons __tmp142026 __tmp142018)))) + (cons __tmp143187 __tmp143179)))) (declare (not safe)) - (cons __tmp142029 __tmp142017)))) + (cons __tmp143190 __tmp143178)))) (declare (not safe)) (##unchecked-structure-set! - __obj141832 - __tmp142016 - '14 + __obj142993 + __tmp143177 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj141832)))) + __obj142993)))) diff --git a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss index 4555add6e..e1b78041d 100644 --- a/src/bootstrap/gerbil/expander/stxcase.ssxi.ss +++ b/src/bootstrap/gerbil/expander/stxcase.ssxi.ss @@ -12,6 +12,7 @@ package: gerbil/expander #f #t #f + #f ((apply-macro-expander . gx#syntax-pattern::apply-macro-expander)))) (declare-type gx#syntax-pattern? (@predicate gx#syntax-pattern::t)) (declare-type gx#make-syntax-pattern (@constructor gx#syntax-pattern::t)) diff --git a/src/bootstrap/gerbil/expander/stxcase__0.scm b/src/bootstrap/gerbil/expander/stxcase__0.scm index f147f2267..6ff8020c3 100644 --- a/src/bootstrap/gerbil/expander/stxcase__0.scm +++ b/src/bootstrap/gerbil/expander/stxcase__0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1707773928) + (define gerbil/expander/stxcase::timestamp 1708102803) (begin (define gx#syntax-pattern::t - (let ((__tmp185023 (list gx#expander::t)) - (__tmp185021 - (let ((__tmp185022 + (let ((__tmp186184 (list gx#expander::t)) + (__tmp186182 + (let ((__tmp186183 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp185022 '())))) + (cons __tmp186183 '())))) (declare (not safe)) (make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp185023 + __tmp186184 '(id depth) - __tmp185021 + __tmp186182 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _$args180450_ - (apply make-instance gx#syntax-pattern::t _$args180450_))) + (lambda _$args181611_ + (apply make-instance gx#syntax-pattern::t _$args181611_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -73,13 +73,13 @@ (declare (not safe)) (make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_self180447_ _stx180448_) + (lambda (_self181608_ _stx181609_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _stx180448_)))) + _stx181609_)))) (let () (declare (not safe)) (bind-method! @@ -88,702 +88,702 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_stx179929_) - (letrec ((_generate179931_ - (lambda (_e180158_) - (letrec ((_BUG180160_ - (lambda (_q180322_) + (lambda (_stx181090_) + (letrec ((_generate181092_ + (lambda (_e181319_) + (letrec ((_BUG181321_ + (lambda (_q181483_) (error '"BUG: syntax; generate" - _stx179929_ - _e180158_ - _q180322_))) - (_local-pattern-e180161_ - (lambda (_pat180320_) - (let ((__tmp185024 + _stx181090_ + _e181319_ + _q181483_))) + (_local-pattern-e181322_ + (lambda (_pat181481_) + (let ((__tmp186185 (##structure-ref - _pat180320_ + _pat181481_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp185024)))) - (_getvar180162_ - (lambda (_q180317_ _vars180318_) + (gx#syntax-local-rewrap __tmp186185)))) + (_getvar181323_ + (lambda (_q181478_ _vars181479_) (let () (declare (not safe)) - (assgetq _q180317_ - _vars180318_ - _BUG180160_)))) - (_getarg180163_ - (lambda (_arg180283_ _vars180284_) - (let* ((_arg180285180292_ _arg180283_) - (_E180287180296_ + (assgetq _q181478_ + _vars181479_ + _BUG181321_)))) + (_getarg181324_ + (lambda (_arg181444_ _vars181445_) + (let* ((_arg181446181453_ _arg181444_) + (_E181448181457_ (lambda () (error '"No clause matching" - _arg180285180292_))) - (_K180288180305_ - (lambda (_e180299_ _tag180300_) - (let ((_$e180302_ _tag180300_)) + _arg181446181453_))) + (_K181449181466_ + (lambda (_e181460_ _tag181461_) + (let ((_$e181463_ _tag181461_)) (if (let () (declare (not safe)) - (eq? 'ref _$e180302_)) + (eq? 'ref _$e181463_)) (let () (declare (not safe)) - (_getvar180162_ - _e180299_ - _vars180284_)) + (_getvar181323_ + _e181460_ + _vars181445_)) (if (let () (declare (not safe)) (eq? 'pattern - _$e180302_)) + _$e181463_)) (let () (declare (not safe)) - (_local-pattern-e180161_ - _e180299_)) + (_local-pattern-e181322_ + _e181460_)) (let () (declare (not safe)) - (_BUG180160_ - _arg180283_)))))))) + (_BUG181321_ + _arg181444_)))))))) (if (let () (declare (not safe)) - (##pair? _arg180285180292_)) - (let ((_hd180289180308_ + (##pair? _arg181446181453_)) + (let ((_hd181450181469_ (let () (declare (not safe)) - (##car _arg180285180292_))) - (_tl180290180310_ + (##car _arg181446181453_))) + (_tl181451181471_ (let () (declare (not safe)) - (##cdr _arg180285180292_)))) - (let* ((_tag180313_ _hd180289180308_) - (_e180315_ _tl180290180310_)) + (##cdr _arg181446181453_)))) + (let* ((_tag181474_ _hd181450181469_) + (_e181476_ _tl181451181471_)) (declare (not safe)) - (_K180288180305_ - _e180315_ - _tag180313_))) + (_K181449181466_ + _e181476_ + _tag181474_))) (let () (declare (not safe)) - (_E180287180296_))))))) - (let _recur180165_ ((_e180167_ _e180158_) - (_vars180168_ '())) - (let* ((_e180169180176_ _e180167_) - (_E180171180180_ + (_E181448181457_))))))) + (let _recur181326_ ((_e181328_ _e181319_) + (_vars181329_ '())) + (let* ((_e181330181337_ _e181328_) + (_E181332181341_ (lambda () (error '"No clause matching" - _e180169180176_))) - (_K180172180271_ - (lambda (_body180183_ _tag180184_) - (let ((_$e180186_ _tag180184_)) + _e181330181337_))) + (_K181333181432_ + (lambda (_body181344_ _tag181345_) + (let ((_$e181347_ _tag181345_)) (if (let () (declare (not safe)) - (eq? 'datum _$e180186_)) + (eq? 'datum _$e181347_)) (let () (declare (not safe)) - (gx#core-list 'quote _body180183_)) + (gx#core-list 'quote _body181344_)) (if (let () (declare (not safe)) - (eq? 'term _$e180186_)) - (let ((_id180189_ + (eq? 'term _$e181347_)) + (let ((_id181350_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _body180183_)))) + _body181344_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id180189_ + _id181350_ 'gx#identifier-wrap::t)) - (let ((_marks180191_ + (let ((_marks181352_ (let () (declare (not safe)) (##unchecked-structure-ref - _id180189_ + _id181350_ '3 gx#identifier-wrap::t '#f)))) (if (let () (declare (not safe)) - (null? _marks180191_)) - (let ((__tmp185052 + (null? _marks181352_)) + (let ((__tmp186213 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _body180183_)))) + (gx#core-list 'quote _body181344_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp185052)) - (let ((__tmp185051 + (gx#core-list 'datum->syntax '#f __tmp186213)) + (let ((__tmp186212 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _body180183_))) - (__tmp185050 + (gx#core-list 'quote-syntax _body181344_))) + (__tmp186211 (let () (declare (not safe)) - (gx#core-list 'quote _body180183_)))) + (gx#core-list 'quote _body181344_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp185051 - __tmp185050 + __tmp186212 + __tmp186211 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _id180189_ + _id181350_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _body180183_)) + _body181344_)) (let () (declare (not safe)) - (_BUG180160_ - _e180167_))))) + (_BUG181321_ + _e181328_))))) (if (let () (declare (not safe)) - (eq? 'pattern _$e180186_)) + (eq? 'pattern _$e181347_)) (let () (declare (not safe)) - (_local-pattern-e180161_ - _body180183_)) + (_local-pattern-e181322_ + _body181344_)) (if (let () (declare (not safe)) - (eq? 'ref _$e180186_)) + (eq? 'ref _$e181347_)) (let () (declare (not safe)) - (_getvar180162_ - _body180183_ - _vars180168_)) + (_getvar181323_ + _body181344_ + _vars181329_)) (if (let () (declare (not safe)) (eq? 'cons - _$e180186_)) - (let ((__tmp185048 - (let ((__tmp185049 + _$e181347_)) + (let ((__tmp186209 + (let ((__tmp186210 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _body180183_))) + (car _body181344_))) (declare (not safe)) - (_recur180165_ __tmp185049 _vars180168_))) - (__tmp185046 - (let ((__tmp185047 (cdr _body180183_))) + (_recur181326_ __tmp186210 _vars181329_))) + (__tmp186207 + (let ((__tmp186208 (cdr _body181344_))) (declare (not safe)) - (_recur180165_ __tmp185047 _vars180168_)))) + (_recur181326_ __tmp186208 _vars181329_)))) (declare (not safe)) - (gx#core-list 'cons __tmp185048 __tmp185046)) - (if (let () (declare (not safe)) (eq? 'vector _$e180186_)) - (let ((__tmp185045 + (gx#core-list 'cons __tmp186209 __tmp186207)) + (if (let () (declare (not safe)) (eq? 'vector _$e181347_)) + (let ((__tmp186206 (let () (declare (not safe)) - (_recur180165_ _body180183_ _vars180168_)))) + (_recur181326_ _body181344_ _vars181329_)))) (declare (not safe)) - (gx#core-list 'list->vector __tmp185045)) - (if (let () (declare (not safe)) (eq? 'box _$e180186_)) - (let ((__tmp185044 + (gx#core-list 'list->vector __tmp186206)) + (if (let () (declare (not safe)) (eq? 'box _$e181347_)) + (let ((__tmp186205 (let () (declare (not safe)) - (_recur180165_ _body180183_ _vars180168_)))) + (_recur181326_ _body181344_ _vars181329_)))) (declare (not safe)) - (gx#core-list 'box __tmp185044)) + (gx#core-list 'box __tmp186205)) (if (let () (declare (not safe)) - (eq? 'splice _$e180186_)) - (let* ((_body180192180203_ _body180183_) - (_E180194180207_ + (eq? 'splice _$e181347_)) + (let* ((_body181353181364_ _body181344_) + (_E181355181368_ (lambda () (error '"No clause matching" - _body180192180203_))) - (_K180195180245_ - (lambda (_args180210_ - _iv180211_ - _hd180212_ - _depth180213_) - (let* ((_targets180219_ - (map (lambda (_g180214180216_) + _body181353181364_))) + (_K181356181406_ + (lambda (_args181371_ + _iv181372_ + _hd181373_ + _depth181374_) + (let* ((_targets181380_ + (map (lambda (_g181375181377_) (let () (declare (not safe)) - (_getarg180163_ - _g180214180216_ - _vars180168_))) - _args180210_)) - (_fold-in180221_ + (_getarg181324_ + _g181375181377_ + _vars181329_))) + _args181371_)) + (_fold-in181382_ (let () (declare (not safe)) - (gx#gentemps _args180210_))) - (_fold-out180223_ + (gx#gentemps _args181371_))) + (_fold-out181384_ (let () (declare (not safe)) (gx#genident__0))) - (_lambda-args180225_ - (let ((__tmp185025 + (_lambda-args181386_ + (let ((__tmp186186 (let () (declare (not safe)) - (cons _fold-out180223_ + (cons _fold-out181384_ '())))) (declare (not safe)) (foldr1 cons - __tmp185025 - _fold-in180221_))) - (_lambda-body180242_ - (if (fx> _depth180213_ '1) - (let ((_r-args180233_ - (map (lambda (_arg180227_) - (let ((__tmp185030 + __tmp186186 + _fold-in181382_))) + (_lambda-body181403_ + (if (fx> _depth181374_ '1) + (let ((_r-args181394_ + (map (lambda (_arg181388_) + (let ((__tmp186191 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _arg180227_))) + (cdr _arg181388_))) (declare (not safe)) - (cons 'ref __tmp185030))) - _args180210_)) - (_r-vars180234_ - (let ((__tmp185031 - (lambda (_arg180229_ _var180230_ _r180231_) - (let ((__tmp185032 - (let ((__tmp185033 (cdr _arg180229_))) + (cons 'ref __tmp186191))) + _args181371_)) + (_r-vars181395_ + (let ((__tmp186192 + (lambda (_arg181390_ _var181391_ _r181392_) + (let ((__tmp186193 + (let ((__tmp186194 (cdr _arg181390_))) (declare (not safe)) - (cons __tmp185033 _var180230_)))) + (cons __tmp186194 _var181391_)))) (declare (not safe)) - (cons __tmp185032 _r180231_))))) + (cons __tmp186193 _r181392_))))) (declare (not safe)) - (foldr2 __tmp185031 - _vars180168_ - _args180210_ - _fold-in180221_)))) + (foldr2 __tmp186192 + _vars181329_ + _args181371_ + _fold-in181382_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp185034 - (let ((__tmp185035 + (let ((__tmp186195 + (let ((__tmp186196 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp185039 + (let ((__tmp186200 (let () (declare (not safe)) - (fx- _depth180213_ '1))) - (__tmp185036 - (let ((__tmp185037 - (let ((__tmp185038 + (fx- _depth181374_ '1))) + (__tmp186197 + (let ((__tmp186198 + (let ((__tmp186199 (let () (declare (not safe)) (cons 'var - _fold-out180223_)))) + _fold-out181384_)))) (declare (not safe)) - (cons __tmp185038 _r-args180233_)))) + (cons __tmp186199 _r-args181394_)))) (declare (not safe)) - (cons _hd180212_ __tmp185037)))) + (cons _hd181373_ __tmp186198)))) (declare (not safe)) - (cons __tmp185039 __tmp185036)))) + (cons __tmp186200 __tmp186197)))) (declare (not safe)) - (cons 'splice __tmp185035)))) + (cons 'splice __tmp186196)))) (declare (not safe)) - (_recur180165_ __tmp185034 _r-vars180234_))) + (_recur181326_ __tmp186195 _r-vars181395_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_hd-vars180240_ - (let ((__tmp185026 + (let* ((_hd-vars181401_ + (let ((__tmp186187 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_arg180236_ _var180237_ _r180238_) - (let ((__tmp185027 - (let ((__tmp185028 (cdr _arg180236_))) + (lambda (_arg181397_ _var181398_ _r181399_) + (let ((__tmp186188 + (let ((__tmp186189 (cdr _arg181397_))) (declare (not safe)) - (cons __tmp185028 _var180237_)))) + (cons __tmp186189 _var181398_)))) (declare (not safe)) - (cons __tmp185027 _r180238_))))) + (cons __tmp186188 _r181399_))))) (declare (not safe)) - (foldr2 __tmp185026 - _vars180168_ - _args180210_ - _fold-in180221_))) - (__tmp185029 + (foldr2 __tmp186187 + _vars181329_ + _args181371_ + _fold-in181382_))) + (__tmp186190 (let () (declare (not safe)) - (_recur180165_ _hd180212_ _hd-vars180240_)))) + (_recur181326_ _hd181373_ _hd-vars181401_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp185029 - _fold-out180223_))))) - (let ((__tmp185043 - (if (fx> (length _targets180219_) + __tmp186190 + _fold-out181384_))))) + (let ((__tmp186204 + (if (fx> (length _targets181380_) '1) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _targets180219_)) + _targets181380_)) '#!void)) - (__tmp185040 - (let ((__tmp185042 + (__tmp186201 + (let ((__tmp186203 (let () (declare (not safe)) (gx#core-list 'lambda% - _lambda-args180225_ - _lambda-body180242_))) - (__tmp185041 + _lambda-args181386_ + _lambda-body181403_))) + (__tmp186202 (let () (declare (not safe)) - (_recur180165_ - _iv180211_ - _vars180168_)))) + (_recur181326_ + _iv181372_ + _vars181329_)))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp185042 - __tmp185041 - _targets180219_)))) + __tmp186203 + __tmp186202 + _targets181380_)))) (declare (not safe)) (gx#core-list 'begin - __tmp185043 - __tmp185040)))))) + __tmp186204 + __tmp186201)))))) (if (let () (declare (not safe)) - (##pair? _body180192180203_)) - (let ((_hd180196180248_ + (##pair? _body181353181364_)) + (let ((_hd181357181409_ (let () (declare (not safe)) - (##car _body180192180203_))) - (_tl180197180250_ + (##car _body181353181364_))) + (_tl181358181411_ (let () (declare (not safe)) - (##cdr _body180192180203_)))) - (let ((_depth180253_ _hd180196180248_)) + (##cdr _body181353181364_)))) + (let ((_depth181414_ _hd181357181409_)) (if (let () (declare (not safe)) - (##pair? _tl180197180250_)) - (let ((_hd180198180255_ + (##pair? _tl181358181411_)) + (let ((_hd181359181416_ (let () (declare (not safe)) - (##car _tl180197180250_))) - (_tl180199180257_ + (##car _tl181358181411_))) + (_tl181360181418_ (let () (declare (not safe)) - (##cdr _tl180197180250_)))) - (let ((_hd180260_ - _hd180198180255_)) + (##cdr _tl181358181411_)))) + (let ((_hd181421_ + _hd181359181416_)) (if (let () (declare (not safe)) - (##pair? _tl180199180257_)) - (let ((_hd180200180262_ + (##pair? _tl181360181418_)) + (let ((_hd181361181423_ (let () (declare (not safe)) - (##car _tl180199180257_))) - (_tl180201180264_ + (##car _tl181360181418_))) + (_tl181362181425_ (let () (declare (not safe)) - (##cdr _tl180199180257_)))) - (let* ((_iv180267_ - _hd180200180262_) - (_args180269_ - _tl180201180264_)) + (##cdr _tl181360181418_)))) + (let* ((_iv181428_ + _hd181361181423_) + (_args181430_ + _tl181362181425_)) (declare (not safe)) - (_K180195180245_ - _args180269_ - _iv180267_ - _hd180260_ - _depth180253_))) + (_K181356181406_ + _args181430_ + _iv181428_ + _hd181421_ + _depth181414_))) (let () (declare (not safe)) - (_E180194180207_))))) + (_E181355181368_))))) (let () (declare (not safe)) - (_E180194180207_))))) + (_E181355181368_))))) (let () (declare (not safe)) - (_E180194180207_)))) + (_E181355181368_)))) (if (let () (declare (not safe)) - (eq? 'var _$e180186_)) - _body180183_ + (eq? 'var _$e181347_)) + _body181344_ (let () (declare (not safe)) - (_BUG180160_ _e180167_))))))))))))))) + (_BUG181321_ _e181328_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e180169180176_)) - (let ((_hd180173180274_ + (##pair? _e181330181337_)) + (let ((_hd181334181435_ (let () (declare (not safe)) - (##car _e180169180176_))) - (_tl180174180276_ + (##car _e181330181337_))) + (_tl181335181437_ (let () (declare (not safe)) - (##cdr _e180169180176_)))) - (let* ((_tag180279_ _hd180173180274_) - (_body180281_ _tl180174180276_)) + (##cdr _e181330181337_)))) + (let* ((_tag181440_ _hd181334181435_) + (_body181442_ _tl181335181437_)) (declare (not safe)) - (_K180172180271_ _body180281_ _tag180279_))) + (_K181333181432_ _body181442_ _tag181440_))) (let () (declare (not safe)) - (_E180171180180_)))))))) - (_parse179932_ - (lambda (_e179973_) - (letrec ((_make-cons179975_ - (lambda (_hd180150_ _tl180151_) - (let ((_g185053_ _hd180150_) - (_g185055_ _tl180151_)) + (_E181332181341_)))))))) + (_parse181093_ + (lambda (_e181134_) + (letrec ((_make-cons181136_ + (lambda (_hd181311_ _tl181312_) + (let ((_g186214_ _hd181311_) + (_g186216_ _tl181312_)) (begin - (let ((_g185054_ + (let ((_g186215_ (let () (declare (not safe)) - (if (##values? _g185053_) - (##vector-length _g185053_) + (if (##values? _g186214_) + (##vector-length _g186214_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185054_ 2))) + (##fx= _g186215_ 2))) (error "Context expects 2 values" - _g185054_))) - (let ((_g185056_ + _g186215_))) + (let ((_g186217_ (let () (declare (not safe)) - (if (##values? _g185055_) - (##vector-length _g185055_) + (if (##values? _g186216_) + (##vector-length _g186216_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185056_ 2))) + (##fx= _g186217_ 2))) (error "Context expects 2 values" - _g185056_))) - (let ((_hd-e180153_ + _g186217_))) + (let ((_hd-e181314_ (let () (declare (not safe)) - (##vector-ref _g185053_ 0))) - (_hd-vars180154_ + (##vector-ref _g186214_ 0))) + (_hd-vars181315_ (let () (declare (not safe)) - (##vector-ref _g185053_ 1)))) - (let ((_tl-e180155_ + (##vector-ref _g186214_ 1)))) + (let ((_tl-e181316_ (let () (declare (not safe)) - (##vector-ref _g185055_ 0))) - (_tl-vars180156_ + (##vector-ref _g186216_ 0))) + (_tl-vars181317_ (let () (declare (not safe)) - (##vector-ref _g185055_ 1)))) - (values (let ((__tmp185057 + (##vector-ref _g186216_ 1)))) + (values (let ((__tmp186218 (let () (declare (not safe)) - (cons _hd-e180153_ - _tl-e180155_)))) + (cons _hd-e181314_ + _tl-e181316_)))) (declare (not safe)) - (cons 'cons __tmp185057)) - (append _hd-vars180154_ - _tl-vars180156_)))))))) - (_make-splice179976_ - (lambda (_where180089_ - _depth180090_ - _hd180091_ - _tl180092_) - (let ((_g185058_ _hd180091_) - (_g185060_ _tl180092_)) + (cons 'cons __tmp186218)) + (append _hd-vars181315_ + _tl-vars181317_)))))))) + (_make-splice181137_ + (lambda (_where181250_ + _depth181251_ + _hd181252_ + _tl181253_) + (let ((_g186219_ _hd181252_) + (_g186221_ _tl181253_)) (begin - (let ((_g185059_ + (let ((_g186220_ (let () (declare (not safe)) - (if (##values? _g185058_) - (##vector-length _g185058_) + (if (##values? _g186219_) + (##vector-length _g186219_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185059_ 2))) + (##fx= _g186220_ 2))) (error "Context expects 2 values" - _g185059_))) - (let ((_g185061_ + _g186220_))) + (let ((_g186222_ (let () (declare (not safe)) - (if (##values? _g185060_) - (##vector-length _g185060_) + (if (##values? _g186221_) + (##vector-length _g186221_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185061_ 2))) + (##fx= _g186222_ 2))) (error "Context expects 2 values" - _g185061_))) - (let ((_hd-e180094_ + _g186222_))) + (let ((_hd-e181255_ (let () (declare (not safe)) - (##vector-ref _g185058_ 0))) - (_hd-vars180095_ + (##vector-ref _g186219_ 0))) + (_hd-vars181256_ (let () (declare (not safe)) - (##vector-ref _g185058_ 1)))) - (let ((_tl-e180096_ + (##vector-ref _g186219_ 1)))) + (let ((_tl-e181257_ (let () (declare (not safe)) - (##vector-ref _g185060_ 0))) - (_tl-vars180097_ + (##vector-ref _g186221_ 0))) + (_tl-vars181258_ (let () (declare (not safe)) - (##vector-ref _g185060_ 1)))) - (let _lp180099_ ((_rest180101_ - _hd-vars180095_) - (_targets180102_ '()) - (_vars180103_ - _tl-vars180097_)) - (let* ((_rest180104180114_ - _rest180101_) - (_else180106180122_ + (##vector-ref _g186221_ 1)))) + (let _lp181260_ ((_rest181262_ + _hd-vars181256_) + (_targets181263_ '()) + (_vars181264_ + _tl-vars181258_)) + (let* ((_rest181265181275_ + _rest181262_) + (_else181267181283_ (lambda () (if (let () (declare (not safe)) - (null? _targets180102_)) + (null? _targets181263_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx179929_ - _where180089_)) - (values (let ((__tmp185062 + _stx181090_ + _where181250_)) + (values (let ((__tmp186223 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp185063 - (let ((__tmp185064 + (let ((__tmp186224 + (let ((__tmp186225 (let () (declare (not safe)) - (cons _tl-e180096_ - _targets180102_)))) + (cons _tl-e181257_ + _targets181263_)))) (declare (not safe)) - (cons _hd-e180094_ __tmp185064)))) + (cons _hd-e181255_ __tmp186225)))) (declare (not safe)) - (cons _depth180090_ __tmp185063)))) + (cons _depth181251_ __tmp186224)))) (declare (not safe)) - (cons 'splice __tmp185062)) - _vars180103_)))) + (cons 'splice __tmp186223)) + _vars181264_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K180108180131_ - (lambda (_rest180125_ - _hd-pat180126_ - _hd-depth*180127_) - (let ((_hd-depth180129_ - (fx- _hd-depth*180127_ - _depth180090_))) + (_K181269181292_ + (lambda (_rest181286_ + _hd-pat181287_ + _hd-depth*181288_) + (let ((_hd-depth181290_ + (fx- _hd-depth*181288_ + _depth181251_))) (if (fxpositive? - _hd-depth180129_) - (let ((__tmp185069 + _hd-depth181290_) + (let ((__tmp186230 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp185070 + (let ((__tmp186231 (let () (declare (not safe)) - (cons 'ref _hd-pat180126_)))) + (cons 'ref _hd-pat181287_)))) (declare (not safe)) - (cons __tmp185070 _targets180102_))) - (__tmp185067 - (let ((__tmp185068 + (cons __tmp186231 _targets181263_))) + (__tmp186228 + (let ((__tmp186229 (let () (declare (not safe)) - (cons _hd-depth180129_ _hd-pat180126_)))) + (cons _hd-depth181290_ _hd-pat181287_)))) (declare (not safe)) - (cons __tmp185068 _vars180103_)))) + (cons __tmp186229 _vars181264_)))) (declare (not safe)) - (_lp180099_ _rest180125_ __tmp185069 __tmp185067)) - (if (let () (declare (not safe)) (fxzero? _hd-depth180129_)) - (let ((__tmp185065 - (let ((__tmp185066 + (_lp181260_ _rest181286_ __tmp186230 __tmp186228)) + (if (let () (declare (not safe)) (fxzero? _hd-depth181290_)) + (let ((__tmp186226 + (let ((__tmp186227 (let () (declare (not safe)) - (cons 'pattern _hd-pat180126_)))) + (cons 'pattern _hd-pat181287_)))) (declare (not safe)) - (cons __tmp185066 _targets180102_)))) + (cons __tmp186227 _targets181263_)))) (declare (not safe)) - (_lp180099_ _rest180125_ __tmp185065 _vars180103_)) + (_lp181260_ _rest181286_ __tmp186226 _vars181264_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _stx179929_ - _where180089_)))))))) + _stx181090_ + _where181250_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest180104180114_)) - (let ((_hd180109180134_ + (##pair? _rest181265181275_)) + (let ((_hd181270181295_ (let () (declare (not safe)) - (##car _rest180104180114_))) - (_tl180110180136_ + (##car _rest181265181275_))) + (_tl181271181297_ (let () (declare (not safe)) - (##cdr _rest180104180114_)))) + (##cdr _rest181265181275_)))) (if (let () (declare (not safe)) - (##pair? _hd180109180134_)) - (let ((_hd180111180139_ + (##pair? _hd181270181295_)) + (let ((_hd181272181300_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd180109180134_))) - (_tl180112180141_ - (let () (declare (not safe)) (##cdr _hd180109180134_)))) - (let* ((_hd-depth*180144_ _hd180111180139_) - (_hd-pat180146_ _tl180112180141_) - (_rest180148_ _tl180110180136_)) + (##car _hd181270181295_))) + (_tl181273181302_ + (let () (declare (not safe)) (##cdr _hd181270181295_)))) + (let* ((_hd-depth*181305_ _hd181272181300_) + (_hd-pat181307_ _tl181273181302_) + (_rest181309_ _tl181271181297_)) (declare (not safe)) - (_K180108180131_ - _rest180148_ - _hd-pat180146_ - _hd-depth*180144_))) - (let () (declare (not safe)) (_else180106180122_)))) + (_K181269181292_ + _rest181309_ + _hd-pat181307_ + _hd-depth*181305_))) + (let () (declare (not safe)) (_else181267181283_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_else180106180122_))))))))))) - (_recur179977_ - (lambda (_e179982_ _is-e?179983_) - (if (_is-e?179983_ _e179982_) + (_else181267181283_))))))))))) + (_recur181138_ + (lambda (_e181143_ _is-e?181144_) + (if (_is-e?181144_ _e181143_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _stx179929_)) + _stx181090_)) (if (let () (declare (not safe)) - (gx#syntax-local-pattern? _e179982_)) - (let* ((_pat179985_ + (gx#syntax-local-pattern? _e181143_)) + (let* ((_pat181146_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _e179982_))) - (_depth179987_ + _e181143_))) + (_depth181148_ (##structure-ref - _pat179985_ + _pat181146_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _depth179987_) + (if (fxpositive? _depth181148_) (values (let () (declare (not safe)) (cons 'ref - _pat179985_)) - (let ((__tmp185086 + _pat181146_)) + (let ((__tmp186247 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _depth179987_ _pat179985_)))) + (cons _depth181148_ _pat181146_)))) (declare (not safe)) - (cons __tmp185086 '()))) + (cons __tmp186247 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (let () (declare (not safe)) (cons 'pattern - _pat179985_)) + _pat181146_)) '()))) (if (let () (declare (not safe)) - (gx#identifier? _e179982_)) + (gx#identifier? _e181143_)) (values (let () (declare (not safe)) - (cons 'term _e179982_)) + (cons 'term _e181143_)) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _e179982_)) - (let* ((_e179989179996_ - _e179982_) - (_E179991180000_ + (gx#stx-pair? _e181143_)) + (let* ((_e181150181157_ + _e181143_) + (_E181152181161_ (lambda () (let () (declare @@ -791,2457 +791,2457 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e179989179996_)))) - (_E179990180079_ + _e181150181157_)))) + (_E181151181240_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _e179989179996_)) - (let ((_e179992180004_ + (gx#stx-pair? _e181150181157_)) + (let ((_e181153181165_ (let () (declare (not safe)) - (gx#syntax-e _e179989179996_)))) - (let ((_hd179993180007_ + (gx#syntax-e _e181150181157_)))) + (let ((_hd181154181168_ (let () (declare (not safe)) - (##car _e179992180004_))) - (_tl179994180009_ + (##car _e181153181165_))) + (_tl181155181170_ (let () (declare (not safe)) - (##cdr _e179992180004_)))) - (let* ((_hd180012_ _hd179993180007_) - (_rest180014_ _tl179994180009_)) + (##cdr _e181153181165_)))) + (let* ((_hd181173_ _hd181154181168_) + (_rest181175_ _tl181155181170_)) (if '#t - (if (_is-e?179983_ _hd180012_) - (let* ((_e180015180022_ _rest180014_) - (_E180017180026_ + (if (_is-e?181144_ _hd181173_) + (let* ((_e181176181183_ _rest181175_) + (_E181178181187_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _stx179929_ - _e179982_)))) - (_E180016180040_ + _stx181090_ + _e181143_)))) + (_E181177181201_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e180015180022_)) - (let ((_e180018180030_ + _e181176181183_)) + (let ((_e181179181191_ (let () (declare (not safe)) (gx#syntax-e - _e180015180022_)))) - (let ((_hd180019180033_ + _e181176181183_)))) + (let ((_hd181180181194_ (let () (declare (not safe)) - (##car _e180018180030_))) - (_tl180020180035_ + (##car _e181179181191_))) + (_tl181181181196_ (let () (declare (not safe)) - (##cdr _e180018180030_)))) - (let ((_rest180038_ - _hd180019180033_)) + (##cdr _e181179181191_)))) + (let ((_rest181199_ + _hd181180181194_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl180020180035_)) + _tl181181181196_)) (if '#t (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (_recur179977_ _rest180038_ false)) - (let () (declare (not safe)) (_E180017180026_))) - (let () (declare (not safe)) (_E180017180026_)))))) + (_recur181138_ _rest181199_ false)) + (let () (declare (not safe)) (_E181178181187_))) + (let () (declare (not safe)) (_E181178181187_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E180017180026_)))))) + (_E181178181187_)))))) (let () (declare (not safe)) - (_E180016180040_))) - (let _lp180044_ ((_rest180046_ - _rest180014_) - (_depth180047_ '0)) - (let* ((_e180048180055_ _rest180046_) - (_E180050180059_ + (_E181177181201_))) + (let _lp181205_ ((_rest181207_ + _rest181175_) + (_depth181208_ '0)) + (let* ((_e181209181216_ _rest181207_) + (_E181211181220_ (lambda () - (if (fxpositive? _depth180047_) - (let ((__tmp185080 + (if (fxpositive? _depth181208_) + (let ((__tmp186241 (let () (declare (not safe)) - (_recur179977_ - _hd180012_ - _is-e?179983_))) - (__tmp185079 + (_recur181138_ + _hd181173_ + _is-e?181144_))) + (__tmp186240 (let () (declare (not safe)) - (_recur179977_ - _rest180046_ - _is-e?179983_)))) + (_recur181138_ + _rest181207_ + _is-e?181144_)))) (declare (not safe)) - (_make-splice179976_ - _e179982_ - _depth180047_ - __tmp185080 - __tmp185079)) - (let ((__tmp185078 + (_make-splice181137_ + _e181143_ + _depth181208_ + __tmp186241 + __tmp186240)) + (let ((__tmp186239 (let () (declare (not safe)) - (_recur179977_ - _hd180012_ - _is-e?179983_))) - (__tmp185077 + (_recur181138_ + _hd181173_ + _is-e?181144_))) + (__tmp186238 (let () (declare (not safe)) - (_recur179977_ - _rest180046_ - _is-e?179983_)))) + (_recur181138_ + _rest181207_ + _is-e?181144_)))) (declare (not safe)) - (_make-cons179975_ - __tmp185078 - __tmp185077))))) - (_E180049180075_ + (_make-cons181136_ + __tmp186239 + __tmp186238))))) + (_E181210181236_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _e180048180055_)) - (let ((_e180051180063_ + _e181209181216_)) + (let ((_e181212181224_ (let () (declare (not safe)) (gx#syntax-e - _e180048180055_)))) - (let ((_hd180052180066_ + _e181209181216_)))) + (let ((_hd181213181227_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e180051180063_))) - (_tl180053180068_ - (let () (declare (not safe)) (##cdr _e180051180063_)))) - (let* ((_rest-hd180071_ _hd180052180066_) - (_rest-tl180073_ _tl180053180068_)) + (##car _e181212181224_))) + (_tl181214181229_ + (let () (declare (not safe)) (##cdr _e181212181224_)))) + (let* ((_rest-hd181232_ _hd181213181227_) + (_rest-tl181234_ _tl181214181229_)) (if '#t - (if (_is-e?179983_ _rest-hd180071_) - (let ((__tmp185085 + (if (_is-e?181144_ _rest-hd181232_) + (let ((__tmp186246 (let () (declare (not safe)) - (fx+ _depth180047_ '1)))) + (fx+ _depth181208_ '1)))) (declare (not safe)) - (_lp180044_ _rest-tl180073_ __tmp185085)) - (if (fxpositive? _depth180047_) - (let ((__tmp185084 + (_lp181205_ _rest-tl181234_ __tmp186246)) + (if (fxpositive? _depth181208_) + (let ((__tmp186245 (let () (declare (not safe)) - (_recur179977_ - _hd180012_ - _is-e?179983_))) - (__tmp185083 + (_recur181138_ + _hd181173_ + _is-e?181144_))) + (__tmp186244 (let () (declare (not safe)) - (_recur179977_ - _rest180046_ - _is-e?179983_)))) + (_recur181138_ + _rest181207_ + _is-e?181144_)))) (declare (not safe)) - (_make-splice179976_ - _e179982_ - _depth180047_ - __tmp185084 - __tmp185083)) - (let ((__tmp185082 + (_make-splice181137_ + _e181143_ + _depth181208_ + __tmp186245 + __tmp186244)) + (let ((__tmp186243 (let () (declare (not safe)) - (_recur179977_ - _hd180012_ - _is-e?179983_))) - (__tmp185081 + (_recur181138_ + _hd181173_ + _is-e?181144_))) + (__tmp186242 (let () (declare (not safe)) - (_recur179977_ - _rest180046_ - _is-e?179983_)))) + (_recur181138_ + _rest181207_ + _is-e?181144_)))) (declare (not safe)) - (_make-cons179975_ __tmp185082 __tmp185081)))) - (let () (declare (not safe)) (_E180050180059_)))))) + (_make-cons181136_ __tmp186243 __tmp186242)))) + (let () (declare (not safe)) (_E181211181220_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E180050180059_)))))) + (_E181211181220_)))))) (let () (declare (not safe)) - (_E180049180075_))))) + (_E181210181236_))))) (let () (declare (not safe)) - (_E179991180000_)))))) - (let () (declare (not safe)) (_E179991180000_)))))) + (_E181152181161_)))))) + (let () (declare (not safe)) (_E181152181161_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E179990180079_))) + (_E181151181240_))) (if (let () (declare (not safe)) (gx#stx-vector? - _e179982_)) - (let ((_g185074_ - (let ((__tmp185076 + _e181143_)) + (let ((_g186235_ + (let ((__tmp186237 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (vector->list (let () (declare (not safe)) - (gx#stx-unwrap__0 _e179982_))))) + (gx#stx-unwrap__0 _e181143_))))) (declare (not safe)) - (_recur179977_ __tmp185076 _is-e?179983_)))) + (_recur181138_ __tmp186237 _is-e?181144_)))) (begin - (let ((_g185075_ + (let ((_g186236_ (let () (declare (not safe)) - (if (##values? _g185074_) - (##vector-length _g185074_) + (if (##values? _g186235_) + (##vector-length _g186235_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g185075_ 2))) - (error "Context expects 2 values" _g185075_))) - (let ((_e180083_ + (if (not (let () (declare (not safe)) (##fx= _g186236_ 2))) + (error "Context expects 2 values" _g186236_))) + (let ((_e181244_ (let () (declare (not safe)) - (##vector-ref _g185074_ 0))) - (_vars180084_ + (##vector-ref _g186235_ 0))) + (_vars181245_ (let () (declare (not safe)) - (##vector-ref _g185074_ 1)))) + (##vector-ref _g186235_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e180083_)) - _vars180084_)))) + (cons 'vector _e181244_)) + _vars181245_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _e179982_)) - (let ((_g185071_ - (let ((__tmp185073 + _e181143_)) + (let ((_g186232_ + (let ((__tmp186234 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (unbox (let () (declare (not safe)) - (gx#stx-unwrap__0 _e179982_))))) + (gx#stx-unwrap__0 _e181143_))))) (declare (not safe)) - (_recur179977_ __tmp185073 _is-e?179983_)))) + (_recur181138_ __tmp186234 _is-e?181144_)))) (begin - (let ((_g185072_ + (let ((_g186233_ (let () (declare (not safe)) - (if (##values? _g185071_) - (##vector-length _g185071_) + (if (##values? _g186232_) + (##vector-length _g186232_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185072_ 2))) - (error "Context expects 2 values" _g185072_))) - (let ((_e180086_ + (##fx= _g186233_ 2))) + (error "Context expects 2 values" _g186233_))) + (let ((_e181247_ (let () (declare (not safe)) - (##vector-ref _g185071_ 0))) - (_vars180087_ + (##vector-ref _g186232_ 0))) + (_vars181248_ (let () (declare (not safe)) - (##vector-ref _g185071_ 1)))) + (##vector-ref _g186232_ 1)))) (values (let () (declare (not safe)) - (cons 'box _e180086_)) - _vars180087_)))) - (values (let () (declare (not safe)) (cons 'datum _e179982_)) + (cons 'box _e181247_)) + _vars181248_)))) + (values (let () (declare (not safe)) (cons 'datum _e181143_)) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g185087_ + (let ((_g186248_ (let () (declare (not safe)) - (_recur179977_ _e179973_ gx#ellipsis?)))) + (_recur181138_ _e181134_ gx#ellipsis?)))) (begin - (let ((_g185088_ + (let ((_g186249_ (let () (declare (not safe)) - (if (##values? _g185087_) - (##vector-length _g185087_) + (if (##values? _g186248_) + (##vector-length _g186248_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185088_ 2))) - (error "Context expects 2 values" _g185088_))) - (let ((_tree179979_ + (##fx= _g186249_ 2))) + (error "Context expects 2 values" _g186249_))) + (let ((_tree181140_ (let () (declare (not safe)) - (##vector-ref _g185087_ 0))) - (_vars179980_ + (##vector-ref _g186248_ 0))) + (_vars181141_ (let () (declare (not safe)) - (##vector-ref _g185087_ 1)))) + (##vector-ref _g186248_ 1)))) (if (let () (declare (not safe)) - (null? _vars179980_)) - _tree179979_ + (null? _vars181141_)) + _tree181140_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _stx179929_ - _vars179980_)))))))))) - (let* ((_e179933179943_ _stx179929_) - (_E179935179947_ + _stx181090_ + _vars181141_)))))))))) + (let* ((_e181094181104_ _stx181090_) + (_E181096181108_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _stx179929_)))) - (_E179934179969_ + _stx181090_)))) + (_E181095181130_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e179933179943_)) - (let ((_e179936179951_ + (gx#stx-pair? _e181094181104_)) + (let ((_e181097181112_ (let () (declare (not safe)) - (gx#syntax-e _e179933179943_)))) - (let ((_hd179937179954_ + (gx#syntax-e _e181094181104_)))) + (let ((_hd181098181115_ (let () (declare (not safe)) - (##car _e179936179951_))) - (_tl179938179956_ + (##car _e181097181112_))) + (_tl181099181117_ (let () (declare (not safe)) - (##cdr _e179936179951_)))) + (##cdr _e181097181112_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl179938179956_)) - (let ((_e179939179959_ + (gx#stx-pair? _tl181099181117_)) + (let ((_e181100181120_ (let () (declare (not safe)) - (gx#syntax-e _tl179938179956_)))) - (let ((_hd179940179962_ + (gx#syntax-e _tl181099181117_)))) + (let ((_hd181101181123_ (let () (declare (not safe)) - (##car _e179939179959_))) - (_tl179941179964_ + (##car _e181100181120_))) + (_tl181102181125_ (let () (declare (not safe)) - (##cdr _e179939179959_)))) - (let ((_form179967_ _hd179940179962_)) + (##cdr _e181100181120_)))) + (let ((_form181128_ _hd181101181123_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl179941179964_)) + (gx#stx-null? _tl181102181125_)) (if '#t - (let ((__tmp185090 - (let ((__tmp185091 + (let ((__tmp186251 + (let ((__tmp186252 (let () (declare (not safe)) - (_parse179932_ - _form179967_)))) + (_parse181093_ + _form181128_)))) (declare (not safe)) - (_generate179931_ - __tmp185091))) - (__tmp185089 + (_generate181092_ + __tmp186252))) + (__tmp186250 (let () (declare (not safe)) (gx#stx-source - _stx179929_)))) + _stx181090_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp185090 - __tmp185089)) + __tmp186251 + __tmp186250)) (let () (declare (not safe)) - (_E179935179947_))) + (_E181096181108_))) (let () (declare (not safe)) - (_E179935179947_)))))) + (_E181096181108_)))))) (let () (declare (not safe)) - (_E179935179947_))))) - (let () (declare (not safe)) (_E179935179947_)))))) - (let () (declare (not safe)) (_E179934179969_)))))) + (_E181096181108_))))) + (let () (declare (not safe)) (_E181096181108_)))))) + (let () (declare (not safe)) (_E181095181130_)))))) (define gx#macro-expand-syntax-case__% - (lambda (_stx179193_ - _identifier=?179194_ - _unwrap-e179195_ - _wrap-e179196_) - (letrec ((_generate-bindings179198_ - (lambda (_target179793_ - _ids179794_ - _clauses179795_ - _clause-ids179796_ - _E179797_) - (letrec ((_generate1179799_ - (lambda (_clause179896_ - _clause-id179897_ - _E179898_) - (let ((__tmp185096 + (lambda (_stx180354_ + _identifier=?180355_ + _unwrap-e180356_ + _wrap-e180357_) + (letrec ((_generate-bindings180359_ + (lambda (_target180954_ + _ids180955_ + _clauses180956_ + _clause-ids180957_ + _E180958_) + (letrec ((_generate1180960_ + (lambda (_clause181057_ + _clause-id181058_ + _E181059_) + (let ((__tmp186257 (let () (declare (not safe)) - (cons _clause-id179897_ '()))) - (__tmp185092 - (let ((__tmp185093 - (let ((__tmp185095 + (cons _clause-id181058_ '()))) + (__tmp186253 + (let ((__tmp186254 + (let ((__tmp186256 (let () (declare (not safe)) - (cons _target179793_ + (cons _target180954_ '()))) - (__tmp185094 + (__tmp186255 (let () (declare (not safe)) - (_generate-clause179200_ - _target179793_ - _ids179794_ - _clause179896_ - _E179898_)))) + (_generate-clause180361_ + _target180954_ + _ids180955_ + _clause181057_ + _E181059_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp185095 - __tmp185094)))) + __tmp186256 + __tmp186255)))) (declare (not safe)) - (cons __tmp185093 '())))) + (cons __tmp186254 '())))) (declare (not safe)) - (cons __tmp185096 __tmp185092))))) - (let _lp179801_ ((_rest179803_ _clauses179795_) - (_rest-ids179804_ _clause-ids179796_) - (_bindings179805_ '())) - (let* ((_rest179806179814_ _rest179803_) - (_else179808179822_ - (lambda () _bindings179805_)) - (_K179810179884_ - (lambda (_rest179825_ _clause179826_) - (let* ((_rest-ids179827179834_ - _rest-ids179804_) - (_E179829179838_ + (cons __tmp186257 __tmp186253))))) + (let _lp180962_ ((_rest180964_ _clauses180956_) + (_rest-ids180965_ _clause-ids180957_) + (_bindings180966_ '())) + (let* ((_rest180967180975_ _rest180964_) + (_else180969180983_ + (lambda () _bindings180966_)) + (_K180971181045_ + (lambda (_rest180986_ _clause180987_) + (let* ((_rest-ids180988180995_ + _rest-ids180965_) + (_E180990180999_ (lambda () (error '"No clause matching" - _rest-ids179827179834_))) - (_K179830179872_ - (lambda (_rest-ids179841_ - _clause-id179842_) - (let* ((_rest-ids179843179851_ - _rest-ids179841_) - (_else179845179859_ + _rest-ids180988180995_))) + (_K180991181033_ + (lambda (_rest-ids181002_ + _clause-id181003_) + (let* ((_rest-ids181004181012_ + _rest-ids181002_) + (_else181006181020_ (lambda () - (let ((__tmp185097 + (let ((__tmp186258 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_generate1179799_ - _clause179826_ - _clause-id179842_ - _E179797_)))) + (_generate1180960_ + _clause180987_ + _clause-id181003_ + _E180958_)))) (declare (not safe)) - (cons __tmp185097 _bindings179805_)))) + (cons __tmp186258 _bindings180966_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K179847179864_ - (lambda (_next-clause-id179862_) - (let ((__tmp185098 - (let ((__tmp185099 + (_K181008181025_ + (lambda (_next-clause-id181023_) + (let ((__tmp186259 + (let ((__tmp186260 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_generate1179799_ - _clause179826_ - _clause-id179842_ - _next-clause-id179862_)))) + (_generate1180960_ + _clause180987_ + _clause-id181003_ + _next-clause-id181023_)))) (declare (not safe)) - (cons __tmp185099 _bindings179805_)))) + (cons __tmp186260 _bindings180966_)))) (declare (not safe)) - (_lp179801_ _rest179825_ _rest-ids179841_ __tmp185098))))) + (_lp180962_ _rest180986_ _rest-ids181002_ __tmp186259))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _rest-ids179843179851_)) - (let* ((_hd179848179867_ + (##pair? _rest-ids181004181012_)) + (let* ((_hd181009181028_ (let () (declare (not safe)) - (##car _rest-ids179843179851_))) - (_next-clause-id179870_ - _hd179848179867_)) + (##car _rest-ids181004181012_))) + (_next-clause-id181031_ + _hd181009181028_)) (declare (not safe)) - (_K179847179864_ - _next-clause-id179870_)) + (_K181008181025_ + _next-clause-id181031_)) (let () (declare (not safe)) - (_else179845179859_))))))) + (_else181006181020_))))))) (if (let () (declare (not safe)) - (##pair? _rest-ids179827179834_)) - (let ((_hd179831179875_ + (##pair? _rest-ids180988180995_)) + (let ((_hd180992181036_ (let () (declare (not safe)) - (##car _rest-ids179827179834_))) - (_tl179832179877_ + (##car _rest-ids180988180995_))) + (_tl180993181038_ (let () (declare (not safe)) - (##cdr _rest-ids179827179834_)))) - (let* ((_clause-id179880_ - _hd179831179875_) - (_rest-ids179882_ - _tl179832179877_)) + (##cdr _rest-ids180988180995_)))) + (let* ((_clause-id181041_ + _hd180992181036_) + (_rest-ids181043_ + _tl180993181038_)) (declare (not safe)) - (_K179830179872_ - _rest-ids179882_ - _clause-id179880_))) + (_K180991181033_ + _rest-ids181043_ + _clause-id181041_))) (let () (declare (not safe)) - (_E179829179838_))))))) + (_E180990180999_))))))) (if (let () (declare (not safe)) - (##pair? _rest179806179814_)) - (let ((_hd179811179887_ + (##pair? _rest180967180975_)) + (let ((_hd180972181048_ (let () (declare (not safe)) - (##car _rest179806179814_))) - (_tl179812179889_ + (##car _rest180967180975_))) + (_tl180973181050_ (let () (declare (not safe)) - (##cdr _rest179806179814_)))) - (let* ((_clause179892_ _hd179811179887_) - (_rest179894_ _tl179812179889_)) + (##cdr _rest180967180975_)))) + (let* ((_clause181053_ _hd180972181048_) + (_rest181055_ _tl180973181050_)) (declare (not safe)) - (_K179810179884_ - _rest179894_ - _clause179892_))) + (_K180971181045_ + _rest181055_ + _clause181053_))) (let () (declare (not safe)) - (_else179808179822_)))))))) - (_generate-body179199_ - (lambda (_bindings179753_ _body179754_) - (let _recur179756_ ((_rest179758_ _bindings179753_)) - (let* ((_rest179759179767_ _rest179758_) - (_else179761179775_ (lambda () _body179754_)) - (_K179763179781_ - (lambda (_rest179778_ _hd179779_) - (let ((__tmp185101 + (_else180969180983_)))))))) + (_generate-body180360_ + (lambda (_bindings180914_ _body180915_) + (let _recur180917_ ((_rest180919_ _bindings180914_)) + (let* ((_rest180920180928_ _rest180919_) + (_else180922180936_ (lambda () _body180915_)) + (_K180924180942_ + (lambda (_rest180939_ _hd180940_) + (let ((__tmp186262 (let () (declare (not safe)) - (cons _hd179779_ '()))) - (__tmp185100 + (cons _hd180940_ '()))) + (__tmp186261 (let () (declare (not safe)) - (_recur179756_ _rest179778_)))) + (_recur180917_ _rest180939_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp185101 - __tmp185100))))) + __tmp186262 + __tmp186261))))) (if (let () (declare (not safe)) - (##pair? _rest179759179767_)) - (let ((_hd179764179784_ + (##pair? _rest180920180928_)) + (let ((_hd180925180945_ (let () (declare (not safe)) - (##car _rest179759179767_))) - (_tl179765179786_ + (##car _rest180920180928_))) + (_tl180926180947_ (let () (declare (not safe)) - (##cdr _rest179759179767_)))) - (let* ((_hd179789_ _hd179764179784_) - (_rest179791_ _tl179765179786_)) + (##cdr _rest180920180928_)))) + (let* ((_hd180950_ _hd180925180945_) + (_rest180952_ _tl180926180947_)) (declare (not safe)) - (_K179763179781_ _rest179791_ _hd179789_))) + (_K180924180942_ _rest180952_ _hd180950_))) (let () (declare (not safe)) - (_else179761179775_))))))) - (_generate-clause179200_ - (lambda (_target179616_ _ids179617_ _clause179618_ _E179619_) - (letrec ((_generate1179621_ - (lambda (_hd179708_ _fender179709_ _body179710_) - (let ((_g185102_ + (_else180922180936_))))))) + (_generate-clause180361_ + (lambda (_target180777_ _ids180778_ _clause180779_ _E180780_) + (letrec ((_generate1180782_ + (lambda (_hd180869_ _fender180870_ _body180871_) + (let ((_g186263_ (let () (declare (not safe)) - (_parse-clause179202_ - _hd179708_ - _ids179617_)))) + (_parse-clause180363_ + _hd180869_ + _ids180778_)))) (begin - (let ((_g185103_ + (let ((_g186264_ (let () (declare (not safe)) - (if (##values? _g185102_) - (##vector-length _g185102_) + (if (##values? _g186263_) + (##vector-length _g186263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185103_ 2))) + (##fx= _g186264_ 2))) (error "Context expects 2 values" - _g185103_))) - (let ((_e179712_ + _g186264_))) + (let ((_e180873_ (let () (declare (not safe)) - (##vector-ref _g185102_ 0))) - (_mvars179713_ + (##vector-ref _g186263_ 0))) + (_mvars180874_ (let () (declare (not safe)) - (##vector-ref _g185102_ 1)))) - (let* ((_pvars179715_ + (##vector-ref _g186263_ 1)))) + (let* ((_pvars180876_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _mvars179713_)))) - (_E179717_ - (let ((__tmp185104 + _mvars180874_)))) + (_E180878_ + (let ((__tmp186265 (let () (declare (not safe)) - (cons _target179616_ + (cons _target180777_ '())))) (declare (not safe)) - (cons _E179619_ __tmp185104))) - (_K179750_ - (let ((__tmp185105 - (let ((__tmp185107 - (map (lambda (_mvar179719_ + (cons _E180780_ __tmp186265))) + (_K180911_ + (let ((__tmp186266 + (let ((__tmp186268 + (map (lambda (_mvar180880_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pvar179720_) - (let* ((_mvar179721179728_ _mvar179719_) - (_E179723179732_ + _pvar180881_) + (let* ((_mvar180882180889_ _mvar180880_) + (_E180884180893_ (lambda () (error '"No clause matching" - _mvar179721179728_))) - (_K179724179738_ - (lambda (_depth179735_ _id179736_) - (let ((__tmp185108 - (let ((__tmp185109 - (let ((__tmp185111 + _mvar180882180889_))) + (_K180885180899_ + (lambda (_depth180896_ _id180897_) + (let ((__tmp186269 + (let ((__tmp186270 + (let ((__tmp186272 (let () (declare (not safe)) (gx#core-list 'quote - _id179736_))) - (__tmp185110 + _id180897_))) + (__tmp186271 (let () (declare (not safe)) (gx#core-list 'quote - _pvar179720_)))) + _pvar180881_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp185111 - __tmp185110 - _depth179735_)))) + __tmp186272 + __tmp186271 + _depth180896_)))) (declare (not safe)) - (cons __tmp185109 '())))) + (cons __tmp186270 '())))) (declare (not safe)) - (cons _id179736_ __tmp185108))))) + (cons _id180897_ __tmp186269))))) (if (let () (declare (not safe)) - (##pair? _mvar179721179728_)) - (let ((_hd179725179741_ + (##pair? _mvar180882180889_)) + (let ((_hd180886180902_ (let () (declare (not safe)) - (##car _mvar179721179728_))) - (_tl179726179743_ + (##car _mvar180882180889_))) + (_tl180887180904_ (let () (declare (not safe)) - (##cdr _mvar179721179728_)))) - (let* ((_id179746_ _hd179725179741_) - (_depth179748_ _tl179726179743_)) + (##cdr _mvar180882180889_)))) + (let* ((_id180907_ _hd180886180902_) + (_depth180909_ _tl180887180904_)) (declare (not safe)) - (_K179724179738_ - _depth179748_ - _id179746_))) + (_K180885180899_ + _depth180909_ + _id180907_))) (let () (declare (not safe)) - (_E179723179732_))))) - _mvars179713_ - _pvars179715_)) - (__tmp185106 - (if (let () (declare (not safe)) (eq? _fender179709_ '#t)) - _body179710_ + (_E180884180893_))))) + _mvars180874_ + _pvars180876_)) + (__tmp186267 + (if (let () (declare (not safe)) (eq? _fender180870_ '#t)) + _body180871_ (let () (declare (not safe)) (gx#core-list 'if - _fender179709_ - _body179710_ - _E179717_))))) + _fender180870_ + _body180871_ + _E180878_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp185107 __tmp185106)))) + (gx#core-list 'let-syntax __tmp186268 __tmp186267)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _pvars179715_ - __tmp185105)))) + _pvars180876_ + __tmp186266)))) (let () (declare (not safe)) - (_generate-match179201_ - _hd179708_ - _target179616_ - _e179712_ - _mvars179713_ - _K179750_ - _E179717_))))))))) - (let* ((_e179622179642_ _clause179618_) - (_E179631179646_ + (_generate-match180362_ + _hd180869_ + _target180777_ + _e180873_ + _mvars180874_ + _K180911_ + _E180878_))))))))) + (let* ((_e180783180803_ _clause180779_) + (_E180792180807_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e179622179642_)))) - (_E179624179680_ + _e180783180803_)))) + (_E180785180841_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e179622179642_)) - (let ((_e179632179650_ + (gx#stx-pair? _e180783180803_)) + (let ((_e180793180811_ (let () (declare (not safe)) - (gx#syntax-e _e179622179642_)))) - (let ((_hd179633179653_ + (gx#syntax-e _e180783180803_)))) + (let ((_hd180794180814_ (let () (declare (not safe)) - (##car _e179632179650_))) - (_tl179634179655_ + (##car _e180793180811_))) + (_tl180795180816_ (let () (declare (not safe)) - (##cdr _e179632179650_)))) - (let ((_hd179658_ _hd179633179653_)) + (##cdr _e180793180811_)))) + (let ((_hd180819_ _hd180794180814_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl179634179655_)) - (let ((_e179635179660_ + _tl180795180816_)) + (let ((_e180796180821_ (let () (declare (not safe)) (gx#syntax-e - _tl179634179655_)))) - (let ((_hd179636179663_ + _tl180795180816_)))) + (let ((_hd180797180824_ (let () (declare (not safe)) - (##car _e179635179660_))) - (_tl179637179665_ + (##car _e180796180821_))) + (_tl180798180826_ (let () (declare (not safe)) - (##cdr _e179635179660_)))) - (let ((_fender179668_ - _hd179636179663_)) + (##cdr _e180796180821_)))) + (let ((_fender180829_ + _hd180797180824_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl179637179665_)) - (let ((_e179638179670_ + _tl180798180826_)) + (let ((_e180799180831_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _tl179637179665_)))) - (let ((_hd179639179673_ - (let () (declare (not safe)) (##car _e179638179670_))) - (_tl179640179675_ + (gx#syntax-e _tl180798180826_)))) + (let ((_hd180800180834_ + (let () (declare (not safe)) (##car _e180799180831_))) + (_tl180801180836_ (let () (declare (not safe)) - (##cdr _e179638179670_)))) - (let ((_body179678_ _hd179639179673_)) + (##cdr _e180799180831_)))) + (let ((_body180839_ _hd180800180834_)) (if (let () (declare (not safe)) - (gx#stx-null? _tl179640179675_)) + (gx#stx-null? _tl180801180836_)) (if '#t (let () (declare (not safe)) - (_generate1179621_ - _hd179658_ - _fender179668_ - _body179678_)) - (let () (declare (not safe)) (_E179631179646_))) - (let () (declare (not safe)) (_E179631179646_)))))) - (let () (declare (not safe)) (_E179631179646_)))))) + (_generate1180782_ + _hd180819_ + _fender180829_ + _body180839_)) + (let () (declare (not safe)) (_E180792180807_))) + (let () (declare (not safe)) (_E180792180807_)))))) + (let () (declare (not safe)) (_E180792180807_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E179631179646_)))))) + (_E180792180807_)))))) (let () (declare (not safe)) - (_E179631179646_))))) - (_E179623179704_ + (_E180792180807_))))) + (_E180784180865_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e179622179642_)) - (let ((_e179625179684_ + (gx#stx-pair? _e180783180803_)) + (let ((_e180786180845_ (let () (declare (not safe)) - (gx#syntax-e _e179622179642_)))) - (let ((_hd179626179687_ + (gx#syntax-e _e180783180803_)))) + (let ((_hd180787180848_ (let () (declare (not safe)) - (##car _e179625179684_))) - (_tl179627179689_ + (##car _e180786180845_))) + (_tl180788180850_ (let () (declare (not safe)) - (##cdr _e179625179684_)))) - (let ((_hd179692_ _hd179626179687_)) + (##cdr _e180786180845_)))) + (let ((_hd180853_ _hd180787180848_)) (if (let () (declare (not safe)) (gx#stx-pair? - _tl179627179689_)) - (let ((_e179628179694_ + _tl180788180850_)) + (let ((_e180789180855_ (let () (declare (not safe)) (gx#syntax-e - _tl179627179689_)))) - (let ((_hd179629179697_ + _tl180788180850_)))) + (let ((_hd180790180858_ (let () (declare (not safe)) - (##car _e179628179694_))) - (_tl179630179699_ + (##car _e180789180855_))) + (_tl180791180860_ (let () (declare (not safe)) - (##cdr _e179628179694_)))) - (let ((_body179702_ - _hd179629179697_)) + (##cdr _e180789180855_)))) + (let ((_body180863_ + _hd180790180858_)) (if (let () (declare (not safe)) (gx#stx-null? - _tl179630179699_)) + _tl180791180860_)) (if '#t (let () (declare (not safe)) - (_generate1179621_ - _hd179692_ + (_generate1180782_ + _hd180853_ '#t - _body179702_)) + _body180863_)) (let () (declare (not safe)) - (_E179624179680_))) + (_E180785180841_))) (let () (declare (not safe)) - (_E179624179680_)))))) + (_E180785180841_)))))) (let () (declare (not safe)) - (_E179624179680_)))))) + (_E180785180841_)))))) (let () (declare (not safe)) - (_E179624179680_)))))) - (let () (declare (not safe)) (_E179623179704_)))))) - (_generate-match179201_ - (lambda (_where179365_ - _target179366_ - _hd179367_ - _mvars179368_ - _K179369_ - _E179370_) - (letrec ((_BUG179372_ - (lambda (_q179614_) + (_E180785180841_)))))) + (let () (declare (not safe)) (_E180784180865_)))))) + (_generate-match180362_ + (lambda (_where180526_ + _target180527_ + _hd180528_ + _mvars180529_ + _K180530_ + _E180531_) + (letrec ((_BUG180533_ + (lambda (_q180775_) (error '"BUG: syntax-case; generate" - _stx179193_ - _hd179367_ - _q179614_))) - (_recur179373_ - (lambda (_e179464_ - _vars179465_ - _target179466_ - _E179467_ - _k179468_) - (let* ((_e179469179476_ _e179464_) - (_E179471179480_ + _stx180354_ + _hd180528_ + _q180775_))) + (_recur180534_ + (lambda (_e180625_ + _vars180626_ + _target180627_ + _E180628_ + _k180629_) + (let* ((_e180630180637_ _e180625_) + (_E180632180641_ (lambda () (error '"No clause matching" - _e179469179476_))) - (_K179472179602_ - (lambda (_body179483_ _tag179484_) - (let ((_$e179486_ _tag179484_)) + _e180630180637_))) + (_K180633180763_ + (lambda (_body180644_ _tag180645_) + (let ((_$e180647_ _tag180645_)) (if (let () (declare (not safe)) - (eq? 'any _$e179486_)) - (_k179468_ _vars179465_) + (eq? 'any _$e180647_)) + (_k180629_ _vars180626_) (if (let () (declare (not safe)) - (eq? 'id _$e179486_)) - (let ((__tmp185218 + (eq? 'id _$e180647_)) + (let ((__tmp186379 (let () (declare (not safe)) (gx#core-list 'identifier? - _target179466_))) - (__tmp185214 - (let ((__tmp185216 + _target180627_))) + (__tmp186375 + (let ((__tmp186377 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp185217 + (let ((__tmp186378 (let () (declare (not safe)) (gx#core-list - _wrap-e179196_ - _body179483_)))) + _wrap-e180357_ + _body180644_)))) (declare (not safe)) (gx#core-list - _identifier=?179194_ - __tmp185217 - _target179466_))) - (__tmp185215 (_k179468_ _vars179465_))) + _identifier=?180355_ + __tmp186378 + _target180627_))) + (__tmp186376 (_k180629_ _vars180626_))) (declare (not safe)) - (gx#core-list 'if __tmp185216 __tmp185215 _E179467_)))) + (gx#core-list 'if __tmp186377 __tmp186376 _E180628_)))) (declare (not safe)) - (gx#core-list 'if __tmp185218 __tmp185214 _E179467_)) + (gx#core-list 'if __tmp186379 __tmp186375 _E180628_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (eq? 'var - _$e179486_)) - (_k179468_ - (let ((__tmp185213 + _$e180647_)) + (_k180629_ + (let ((__tmp186374 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _body179483_ _target179466_)))) + (cons _body180644_ _target180627_)))) (declare (not safe)) - (cons __tmp185213 _vars179465_))) - (if (let () (declare (not safe)) (eq? 'cons _$e179486_)) - (let ((_$e179489_ + (cons __tmp186374 _vars180626_))) + (if (let () (declare (not safe)) (eq? 'cons _$e180647_)) + (let ((_$e180650_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$hd179490_ + (_$hd180651_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl179491_ + (_$tl180652_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp185212 + (let ((__tmp186373 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _target179466_))) - (__tmp185193 - (let ((__tmp185207 - (let ((__tmp185208 - (let ((__tmp185211 + (gx#core-list 'stx-pair? _target180627_))) + (__tmp186354 + (let ((__tmp186368 + (let ((__tmp186369 + (let ((__tmp186372 (let () (declare (not safe)) - (cons _$e179489_ '()))) - (__tmp185209 - (let ((__tmp185210 + (cons _$e180650_ '()))) + (__tmp186370 + (let ((__tmp186371 (let () (declare (not safe)) (gx#core-list - _unwrap-e179195_ - _target179466_)))) + _unwrap-e180356_ + _target180627_)))) (declare (not safe)) - (cons __tmp185210 '())))) + (cons __tmp186371 '())))) (declare (not safe)) - (cons __tmp185211 __tmp185209)))) + (cons __tmp186372 __tmp186370)))) (declare (not safe)) - (cons __tmp185208 '()))) - (__tmp185194 - (let ((__tmp185197 - (let ((__tmp185203 - (let ((__tmp185206 + (cons __tmp186369 '()))) + (__tmp186355 + (let ((__tmp186358 + (let ((__tmp186364 + (let ((__tmp186367 (let () (declare (not safe)) - (cons _$hd179490_ + (cons _$hd180651_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - (__tmp185204 - (let ((__tmp185205 + (__tmp186365 + (let ((__tmp186366 (let () (declare (not safe)) - (gx#core-list '##car _$e179489_)))) + (gx#core-list '##car _$e180650_)))) (declare (not safe)) - (cons __tmp185205 '())))) + (cons __tmp186366 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp185206 - __tmp185204))) - (__tmp185198 - (let ((__tmp185199 - (let ((__tmp185202 + (cons __tmp186367 + __tmp186365))) + (__tmp186359 + (let ((__tmp186360 + (let ((__tmp186363 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _$tl179491_ '()))) - (__tmp185200 - (let ((__tmp185201 + (cons _$tl180652_ '()))) + (__tmp186361 + (let ((__tmp186362 (let () (declare (not safe)) - (gx#core-list '##cdr _$e179489_)))) + (gx#core-list '##cdr _$e180650_)))) (declare (not safe)) - (cons __tmp185201 '())))) + (cons __tmp186362 '())))) (declare (not safe)) - (cons __tmp185202 __tmp185200)))) + (cons __tmp186363 __tmp186361)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp185199 '())))) + (cons __tmp186360 '())))) (declare (not safe)) - (cons __tmp185203 __tmp185198))) - (__tmp185195 - (let* ((_body179492179499_ - _body179483_) - (_E179494179503_ + (cons __tmp186364 __tmp186359))) + (__tmp186356 + (let* ((_body180653180660_ + _body180644_) + (_E180655180664_ (lambda () (error '"No clause matching" - _body179492179499_))) - (_K179495179511_ - (lambda (_tl179506_ - _hd179507_) - (let ((__tmp185196 - (lambda (_vars179509_) + _body180653180660_))) + (_K180656180672_ + (lambda (_tl180667_ + _hd180668_) + (let ((__tmp186357 + (lambda (_vars180670_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_recur179373_ - _tl179506_ - _vars179509_ - _$tl179491_ - _E179467_ - _k179468_))))) + (_recur180534_ + _tl180667_ + _vars180670_ + _$tl180652_ + _E180628_ + _k180629_))))) (declare (not safe)) - (_recur179373_ - _hd179507_ - _vars179465_ - _$hd179490_ - _E179467_ - __tmp185196))))) + (_recur180534_ + _hd180668_ + _vars180626_ + _$hd180651_ + _E180628_ + __tmp186357))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _body179492179499_)) - (let ((_hd179496179514_ + (##pair? _body180653180660_)) + (let ((_hd180657180675_ (let () (declare (not safe)) - (##car _body179492179499_))) - (_tl179497179516_ + (##car _body180653180660_))) + (_tl180658180677_ (let () (declare (not safe)) - (##cdr _body179492179499_)))) - (let* ((_hd179519_ - _hd179496179514_) - (_tl179521_ - _tl179497179516_)) + (##cdr _body180653180660_)))) + (let* ((_hd180680_ + _hd180657180675_) + (_tl180682_ + _tl180658180677_)) (declare (not safe)) - (_K179495179511_ - _tl179521_ - _hd179519_))) + (_K180656180672_ + _tl180682_ + _hd180680_))) (let () (declare (not safe)) - (_E179494179503_)))))) + (_E180655180664_)))))) (declare (not safe)) (gx#core-list 'let-values - __tmp185197 - __tmp185195)))) + __tmp186358 + __tmp186356)))) (declare (not safe)) (gx#core-list 'let-values - __tmp185207 - __tmp185194)))) + __tmp186368 + __tmp186355)))) (declare (not safe)) - (gx#core-list 'if __tmp185212 __tmp185193 _E179467_))) - (if (let () (declare (not safe)) (eq? 'splice _$e179486_)) - (let* ((_body179522179529_ _body179483_) - (_E179524179533_ + (gx#core-list 'if __tmp186373 __tmp186354 _E180628_))) + (if (let () (declare (not safe)) (eq? 'splice _$e180647_)) + (let* ((_body180683180690_ _body180644_) + (_E180685180694_ (lambda () (error '"No clause matching" - _body179522179529_))) - (_K179525179584_ - (lambda (_tl179536_ _hd179537_) - (let* ((_rlen179539_ + _body180683180690_))) + (_K180686180745_ + (lambda (_tl180697_ _hd180698_) + (let* ((_rlen180700_ (let () (declare (not safe)) - (_splice-rlen179374_ _tl179536_))) - (_$target179541_ + (_splice-rlen180535_ _tl180697_))) + (_$target180702_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_$hd179543_ + (_$hd180704_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_$tl179545_ + (_$tl180706_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_$lp179547_ + (_$lp180708_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_$lp-e179549_ + (_$lp-e180710_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_$lp-hd179551_ + (_$lp-hd180712_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_$lp-tl179553_ + (_$lp-tl180714_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_svars179555_ + (_svars180716_ (let () (declare (not safe)) - (_splice-vars179375_ _hd179537_))) - (_lvars179557_ + (_splice-vars180536_ _hd180698_))) + (_lvars180718_ (let () (declare (not safe)) - (gx#gentemps _svars179555_))) - (_tlvars179559_ + (gx#gentemps _svars180716_))) + (_tlvars180720_ (let () (declare (not safe)) - (gx#gentemps _svars179555_))) - (_linit179563_ - (map (lambda (_var179561_) + (gx#gentemps _svars180716_))) + (_linit180724_ + (map (lambda (_var180722_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _lvars179557_))) - (letrec ((_make-loop179566_ - (lambda (_vars179570_) - (let ((__tmp185144 - (let ((__tmp185145 - (let ((__tmp185181 + _lvars180718_))) + (letrec ((_make-loop180727_ + (lambda (_vars180731_) + (let ((__tmp186305 + (let ((__tmp186306 + (let ((__tmp186342 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp179547_ '()))) - (__tmp185146 - (let ((__tmp185147 - (let ((__tmp185180 + (cons _$lp180708_ '()))) + (__tmp186307 + (let ((__tmp186308 + (let ((__tmp186341 (let () (declare (not safe)) - (cons _$hd179543_ _lvars179557_))) - (__tmp185148 - (let ((__tmp185179 + (cons _$hd180704_ _lvars180718_))) + (__tmp186309 + (let ((__tmp186340 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _$hd179543_))) - (__tmp185157 - (let ((__tmp185174 - (let ((__tmp185175 - (let ((__tmp185178 + _$hd180704_))) + (__tmp186318 + (let ((__tmp186335 + (let ((__tmp186336 + (let ((__tmp186339 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$lp-e179549_ '()))) - (__tmp185176 - (let ((__tmp185177 + (cons _$lp-e180710_ '()))) + (__tmp186337 + (let ((__tmp186338 (let () (declare (not safe)) (gx#core-list - _unwrap-e179195_ - _$hd179543_)))) + _unwrap-e180356_ + _$hd180704_)))) (declare (not safe)) - (cons __tmp185177 '())))) + (cons __tmp186338 '())))) (declare (not safe)) - (cons __tmp185178 __tmp185176)))) + (cons __tmp186339 __tmp186337)))) (declare (not safe)) - (cons __tmp185175 '()))) - (__tmp185158 - (let ((__tmp185164 - (let ((__tmp185170 - (let ((__tmp185173 + (cons __tmp186336 '()))) + (__tmp186319 + (let ((__tmp186325 + (let ((__tmp186331 + (let ((__tmp186334 (let () (declare (not safe)) - (cons _$lp-hd179551_ '()))) - (__tmp185171 - (let ((__tmp185172 + (cons _$lp-hd180712_ '()))) + (__tmp186332 + (let ((__tmp186333 (let () (declare (not safe)) (gx#core-list '##car - _$lp-e179549_)))) + _$lp-e180710_)))) (declare (not safe)) - (cons __tmp185172 '())))) + (cons __tmp186333 '())))) (declare (not safe)) - (cons __tmp185173 __tmp185171))) - (__tmp185165 - (let ((__tmp185166 - (let ((__tmp185169 + (cons __tmp186334 __tmp186332))) + (__tmp186326 + (let ((__tmp186327 + (let ((__tmp186330 (let () (declare (not safe)) - (cons _$lp-tl179553_ '()))) - (__tmp185167 - (let ((__tmp185168 + (cons _$lp-tl180714_ '()))) + (__tmp186328 + (let ((__tmp186329 (let () (declare (not safe)) (gx#core-list '##cdr - _$lp-e179549_)))) + _$lp-e180710_)))) (declare (not safe)) - (cons __tmp185168 '())))) + (cons __tmp186329 '())))) (declare (not safe)) - (cons __tmp185169 __tmp185167)))) + (cons __tmp186330 __tmp186328)))) (declare (not safe)) - (cons __tmp185166 '())))) + (cons __tmp186327 '())))) (declare (not safe)) - (cons __tmp185170 __tmp185165))) - (__tmp185159 - (let ((__tmp185160 - (lambda (_hdvars179572_) - (let ((__tmp185161 - (let ((__tmp185162 - (map (lambda (_svar179574_ - _lvar179575_) - (let ((__tmp185163 + (cons __tmp186331 __tmp186326))) + (__tmp186320 + (let ((__tmp186321 + (lambda (_hdvars180733_) + (let ((__tmp186322 + (let ((__tmp186323 + (map (lambda (_svar180735_ + _lvar180736_) + (let ((__tmp186324 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (assgetq _svar179574_ _hdvars179572_ _BUG179372_)))) + (assgetq _svar180735_ _hdvars180733_ _BUG180533_)))) (declare (not safe)) - (gx#core-list 'cons __tmp185163 _lvar179575_))) + (gx#core-list 'cons __tmp186324 _lvar180736_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _svars179555_ - _lvars179557_))) + _svars180716_ + _lvars180718_))) (declare (not safe)) - (cons _$lp-tl179553_ __tmp185162)))) + (cons _$lp-tl180714_ __tmp186323)))) (declare (not safe)) - (cons _$lp179547_ __tmp185161))))) + (cons _$lp180708_ __tmp186322))))) (declare (not safe)) - (_recur179373_ - _hd179537_ + (_recur180534_ + _hd180698_ '() - _$lp-hd179551_ - _E179467_ - __tmp185160)))) + _$lp-hd180712_ + _E180628_ + __tmp186321)))) (declare (not safe)) - (gx#core-list 'let-values __tmp185164 __tmp185159)))) + (gx#core-list 'let-values __tmp186325 __tmp186320)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp185174 - __tmp185158))) - (__tmp185149 - (let ((__tmp185153 - (map (lambda (_lvar179577_ + __tmp186335 + __tmp186319))) + (__tmp186310 + (let ((__tmp186314 + (map (lambda (_lvar180738_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _tlvar179578_) - (let ((__tmp185156 + _tlvar180739_) + (let ((__tmp186317 (let () (declare (not safe)) - (cons _tlvar179578_ '()))) - (__tmp185154 - (let ((__tmp185155 + (cons _tlvar180739_ '()))) + (__tmp186315 + (let ((__tmp186316 (let () (declare (not safe)) - (gx#core-list 'reverse _lvar179577_)))) + (gx#core-list 'reverse _lvar180738_)))) (declare (not safe)) - (cons __tmp185155 '())))) + (cons __tmp186316 '())))) (declare (not safe)) - (cons __tmp185156 __tmp185154))) - _lvars179557_ - _tlvars179559_)) - (__tmp185150 - (_k179468_ - (let ((__tmp185151 - (lambda (_svar179580_ _tlvar179581_ _r179582_) - (let ((__tmp185152 + (cons __tmp186317 __tmp186315))) + _lvars180718_ + _tlvars180720_)) + (__tmp186311 + (_k180629_ + (let ((__tmp186312 + (lambda (_svar180741_ _tlvar180742_ _r180743_) + (let ((__tmp186313 (let () (declare (not safe)) - (cons _svar179580_ _tlvar179581_)))) + (cons _svar180741_ _tlvar180742_)))) (declare (not safe)) - (cons __tmp185152 _r179582_))))) + (cons __tmp186313 _r180743_))))) (declare (not safe)) - (foldl2 __tmp185151 - _vars179570_ - _svars179555_ - _tlvars179559_))))) + (foldl2 __tmp186312 + _vars180731_ + _svars180716_ + _tlvars180720_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp185153 - __tmp185150)))) + __tmp186314 + __tmp186311)))) (declare (not safe)) (gx#core-list 'if - __tmp185179 - __tmp185157 - __tmp185149)))) + __tmp186340 + __tmp186318 + __tmp186310)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp185180 - __tmp185148)))) + __tmp186341 + __tmp186309)))) (declare (not safe)) - (cons __tmp185147 '())))) + (cons __tmp186308 '())))) (declare (not safe)) - (cons __tmp185181 __tmp185146)))) + (cons __tmp186342 __tmp186307)))) (declare (not safe)) - (cons __tmp185145 '()))) - (__tmp185142 - (let ((__tmp185143 + (cons __tmp186306 '()))) + (__tmp186303 + (let ((__tmp186304 (let () (declare (not safe)) - (cons _$target179541_ _linit179563_)))) + (cons _$target180702_ _linit180724_)))) (declare (not safe)) - (cons _$lp179547_ __tmp185143)))) + (cons _$lp180708_ __tmp186304)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp185144 - __tmp185142))))) - (let ((_body179568_ - (let ((__tmp185183 - (let ((__tmp185184 - (let ((__tmp185187 + __tmp186305 + __tmp186303))))) + (let ((_body180729_ + (let ((__tmp186344 + (let ((__tmp186345 + (let ((__tmp186348 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp185188 + (let ((__tmp186349 (let () (declare (not safe)) - (cons _$tl179545_ '())))) + (cons _$tl180706_ '())))) (declare (not safe)) - (cons _$target179541_ __tmp185188))) - (__tmp185185 - (let ((__tmp185186 + (cons _$target180702_ __tmp186349))) + (__tmp186346 + (let ((__tmp186347 (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _target179466_ - _rlen179539_)))) + _target180627_ + _rlen180700_)))) (declare (not safe)) - (cons __tmp185186 '())))) + (cons __tmp186347 '())))) (declare (not safe)) - (cons __tmp185187 __tmp185185)))) + (cons __tmp186348 __tmp186346)))) (declare (not safe)) - (cons __tmp185184 '()))) + (cons __tmp186345 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp185182 + (__tmp186343 (let () (declare (not safe)) - (_recur179373_ - _tl179536_ - _vars179465_ - _$tl179545_ - _E179467_ - _make-loop179566_)))) + (_recur180534_ + _tl180697_ + _vars180626_ + _$tl180706_ + _E180628_ + _make-loop180727_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp185183 - __tmp185182)))) - (let ((__tmp185192 + __tmp186344 + __tmp186343)))) + (let ((__tmp186353 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _target179466_))) - (__tmp185189 + _target180627_))) + (__tmp186350 (if (let () (declare (not safe)) - (zero? _rlen179539_)) - _body179568_ - (let ((__tmp185190 - (let ((__tmp185191 + (zero? _rlen180700_)) + _body180729_ + (let ((__tmp186351 + (let ((__tmp186352 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _target179466_)))) + (gx#core-list 'stx-length _target180627_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp185191 _rlen179539_)))) + (gx#core-list 'fx>= __tmp186352 _rlen180700_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp185190 - _body179568_ - _E179467_))))) + __tmp186351 + _body180729_ + _E180628_))))) (declare (not safe)) (gx#core-list 'if - __tmp185192 - __tmp185189 - _E179467_)))))))) + __tmp186353 + __tmp186350 + _E180628_)))))))) (if (let () (declare (not safe)) - (##pair? _body179522179529_)) - (let ((_hd179526179587_ + (##pair? _body180683180690_)) + (let ((_hd180687180748_ (let () (declare (not safe)) - (##car _body179522179529_))) - (_tl179527179589_ + (##car _body180683180690_))) + (_tl180688180750_ (let () (declare (not safe)) - (##cdr _body179522179529_)))) - (let* ((_hd179592_ _hd179526179587_) - (_tl179594_ _tl179527179589_)) + (##cdr _body180683180690_)))) + (let* ((_hd180753_ _hd180687180748_) + (_tl180755_ _tl180688180750_)) (declare (not safe)) - (_K179525179584_ _tl179594_ _hd179592_))) - (let () (declare (not safe)) (_E179524179533_)))) + (_K180686180745_ _tl180755_ _hd180753_))) + (let () (declare (not safe)) (_E180685180694_)))) (if (let () (declare (not safe)) - (eq? 'null _$e179486_)) - (let ((__tmp185141 + (eq? 'null _$e180647_)) + (let ((__tmp186302 (let () (declare (not safe)) - (gx#core-list 'stx-null? _target179466_))) - (__tmp185140 (_k179468_ _vars179465_))) + (gx#core-list 'stx-null? _target180627_))) + (__tmp186301 (_k180629_ _vars180626_))) (declare (not safe)) (gx#core-list 'if - __tmp185141 - __tmp185140 - _E179467_)) + __tmp186302 + __tmp186301 + _E180628_)) (if (let () (declare (not safe)) - (eq? 'vector _$e179486_)) - (let ((_$e179596_ + (eq? 'vector _$e180647_)) + (let ((_$e180757_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp185139 + (let ((__tmp186300 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _target179466_))) - (__tmp185131 - (let ((__tmp185133 - (let ((__tmp185134 - (let ((__tmp185138 + _target180627_))) + (__tmp186292 + (let ((__tmp186294 + (let ((__tmp186295 + (let ((__tmp186299 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _$e179596_ '()))) - (__tmp185135 - (let ((__tmp185136 - (let ((__tmp185137 + (cons _$e180757_ '()))) + (__tmp186296 + (let ((__tmp186297 + (let ((__tmp186298 (let () (declare (not safe)) (gx#core-list - _unwrap-e179195_ - _target179466_)))) + _unwrap-e180356_ + _target180627_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp185137)))) + (gx#core-list 'vector->list __tmp186298)))) (declare (not safe)) - (cons __tmp185136 '())))) + (cons __tmp186297 '())))) (declare (not safe)) - (cons __tmp185138 __tmp185135)))) + (cons __tmp186299 __tmp186296)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp185134 '()))) - (__tmp185132 + (cons __tmp186295 '()))) + (__tmp186293 (let () (declare (not safe)) - (_recur179373_ - _body179483_ - _vars179465_ - _$e179596_ - _E179467_ - _k179468_)))) + (_recur180534_ + _body180644_ + _vars180626_ + _$e180757_ + _E180628_ + _k180629_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp185133 - __tmp185132)))) + __tmp186294 + __tmp186293)))) (declare (not safe)) (gx#core-list 'if - __tmp185139 - __tmp185131 - _E179467_))) + __tmp186300 + __tmp186292 + _E180628_))) (if (let () (declare (not safe)) - (eq? 'box _$e179486_)) - (let ((_$e179598_ + (eq? 'box _$e180647_)) + (let ((_$e180759_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp185130 + (let ((__tmp186291 (let () (declare (not safe)) (gx#core-list 'stx-box? - _target179466_))) - (__tmp185122 - (let ((__tmp185124 - (let ((__tmp185125 - (let ((__tmp185129 + _target180627_))) + (__tmp186283 + (let ((__tmp186285 + (let ((__tmp186286 + (let ((__tmp186290 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _$e179598_ '()))) - (__tmp185126 - (let ((__tmp185127 - (let ((__tmp185128 + (let () (declare (not safe)) (cons _$e180759_ '()))) + (__tmp186287 + (let ((__tmp186288 + (let ((__tmp186289 (let () (declare (not safe)) (gx#core-list - _unwrap-e179195_ - _target179466_)))) + _unwrap-e180356_ + _target180627_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp185128)))) + (gx#core-list 'unbox __tmp186289)))) (declare (not safe)) - (cons __tmp185127 '())))) + (cons __tmp186288 '())))) (declare (not safe)) - (cons __tmp185129 __tmp185126)))) + (cons __tmp186290 __tmp186287)))) (declare (not safe)) - (cons __tmp185125 '()))) + (cons __tmp186286 '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp185123 + (__tmp186284 (let () (declare (not safe)) - (_recur179373_ - _body179483_ - _vars179465_ - _$e179598_ - _E179467_ - _k179468_)))) + (_recur180534_ + _body180644_ + _vars180626_ + _$e180759_ + _E180628_ + _k180629_)))) (declare (not safe)) (gx#core-list 'let-values - __tmp185124 - __tmp185123)))) + __tmp186285 + __tmp186284)))) (declare (not safe)) (gx#core-list 'if - __tmp185130 - __tmp185122 - _E179467_))) + __tmp186291 + __tmp186283 + _E180628_))) (if (let () (declare (not safe)) - (eq? 'datum _$e179486_)) - (let ((_$e179600_ + (eq? 'datum _$e180647_)) + (let ((_$e180761_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp185121 + (let ((__tmp186282 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _target179466_))) - (__tmp185112 - (let ((__tmp185116 - (let ((__tmp185117 - (let ((__tmp185120 + _target180627_))) + (__tmp186273 + (let ((__tmp186277 + (let ((__tmp186278 + (let ((__tmp186281 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _$e179600_ '()))) - (__tmp185118 - (let ((__tmp185119 + (cons _$e180761_ '()))) + (__tmp186279 + (let ((__tmp186280 (let () (declare (not safe)) - (gx#core-list 'stx-e _target179466_)))) + (gx#core-list 'stx-e _target180627_)))) (declare (not safe)) - (cons __tmp185119 '())))) + (cons __tmp186280 '())))) (declare (not safe)) - (cons __tmp185120 __tmp185118)))) + (cons __tmp186281 __tmp186279)))) (declare (not safe)) - (cons __tmp185117 '()))) - (__tmp185113 - (let ((__tmp185115 + (cons __tmp186278 '()))) + (__tmp186274 + (let ((__tmp186276 (let () (declare (not safe)) - (gx#core-list 'equal? _$e179600_ _body179483_))) - (__tmp185114 (_k179468_ _vars179465_))) + (gx#core-list 'equal? _$e180761_ _body180644_))) + (__tmp186275 (_k180629_ _vars180626_))) (declare (not safe)) - (gx#core-list 'if __tmp185115 __tmp185114 _E179467_)))) + (gx#core-list 'if __tmp186276 __tmp186275 _E180628_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp185116 - __tmp185113)))) + __tmp186277 + __tmp186274)))) (declare (not safe)) (gx#core-list 'if - __tmp185121 - __tmp185112 - _E179467_))) + __tmp186282 + __tmp186273 + _E180628_))) (let () (declare (not safe)) - (_BUG179372_ _e179464_))))))))))))))) + (_BUG180533_ _e180625_))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e179469179476_)) - (let ((_hd179473179605_ + (##pair? _e180630180637_)) + (let ((_hd180634180766_ (let () (declare (not safe)) - (##car _e179469179476_))) - (_tl179474179607_ + (##car _e180630180637_))) + (_tl180635180768_ (let () (declare (not safe)) - (##cdr _e179469179476_)))) - (let* ((_tag179610_ _hd179473179605_) - (_body179612_ _tl179474179607_)) + (##cdr _e180630180637_)))) + (let* ((_tag180771_ _hd180634180766_) + (_body180773_ _tl180635180768_)) (declare (not safe)) - (_K179472179602_ - _body179612_ - _tag179610_))) + (_K180633180763_ + _body180773_ + _tag180771_))) (let () (declare (not safe)) - (_E179471179480_)))))) - (_splice-rlen179374_ - (lambda (_e179426_) - (let _lp179428_ ((_e179430_ _e179426_) - (_n179431_ '0)) - (let* ((_e179432179439_ _e179430_) - (_E179434179443_ + (_E180632180641_)))))) + (_splice-rlen180535_ + (lambda (_e180587_) + (let _lp180589_ ((_e180591_ _e180587_) + (_n180592_ '0)) + (let* ((_e180593180600_ _e180591_) + (_E180595180604_ (lambda () (error '"No clause matching" - _e179432179439_))) - (_K179435179452_ - (lambda (_body179446_ _tag179447_) - (let ((_$e179449_ _tag179447_)) + _e180593180600_))) + (_K180596180613_ + (lambda (_body180607_ _tag180608_) + (let ((_$e180610_ _tag180608_)) (if (let () (declare (not safe)) - (eq? 'splice _$e179449_)) + (eq? 'splice _$e180610_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _stx179193_ - _where179365_)) + _stx180354_ + _where180526_)) (if (let () (declare (not safe)) - (eq? 'cons _$e179449_)) - (let ((__tmp185220 - (cdr _body179446_)) - (__tmp185219 + (eq? 'cons _$e180610_)) + (let ((__tmp186381 + (cdr _body180607_)) + (__tmp186380 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (fx+ _n179431_ '1)))) + (fx+ _n180592_ '1)))) (declare (not safe)) - (_lp179428_ __tmp185220 __tmp185219)) - _n179431_)))))) + (_lp180589_ __tmp186381 __tmp186380)) + _n180592_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e179432179439_)) - (let ((_hd179436179455_ + (##pair? _e180593180600_)) + (let ((_hd180597180616_ (let () (declare (not safe)) - (##car _e179432179439_))) - (_tl179437179457_ + (##car _e180593180600_))) + (_tl180598180618_ (let () (declare (not safe)) - (##cdr _e179432179439_)))) - (let* ((_tag179460_ _hd179436179455_) - (_body179462_ - _tl179437179457_)) + (##cdr _e180593180600_)))) + (let* ((_tag180621_ _hd180597180616_) + (_body180623_ + _tl180598180618_)) (declare (not safe)) - (_K179435179452_ - _body179462_ - _tag179460_))) + (_K180596180613_ + _body180623_ + _tag180621_))) (let () (declare (not safe)) - (_E179434179443_))))))) - (_splice-vars179375_ - (lambda (_e179382_) - (let _recur179384_ ((_e179386_ _e179382_) - (_vars179387_ '())) - (let* ((_e179388179395_ _e179386_) - (_E179390179399_ + (_E180595180604_))))))) + (_splice-vars180536_ + (lambda (_e180543_) + (let _recur180545_ ((_e180547_ _e180543_) + (_vars180548_ '())) + (let* ((_e180549180556_ _e180547_) + (_E180551180560_ (lambda () (error '"No clause matching" - _e179388179395_))) - (_K179391179414_ - (lambda (_body179402_ _tag179403_) - (let ((_$e179405_ _tag179403_)) + _e180549180556_))) + (_K180552180575_ + (lambda (_body180563_ _tag180564_) + (let ((_$e180566_ _tag180564_)) (if (let () (declare (not safe)) - (eq? 'var _$e179405_)) + (eq? 'var _$e180566_)) (let () (declare (not safe)) - (cons _body179402_ - _vars179387_)) + (cons _body180563_ + _vars180548_)) (if (or (let () (declare (not safe)) (eq? 'cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _$e179405_)) - (let () (declare (not safe)) (eq? 'splice _$e179405_))) - (let ((__tmp185223 (cdr _body179402_)) - (__tmp185221 - (let ((__tmp185222 (car _body179402_))) + _$e180566_)) + (let () (declare (not safe)) (eq? 'splice _$e180566_))) + (let ((__tmp186384 (cdr _body180563_)) + (__tmp186382 + (let ((__tmp186383 (car _body180563_))) (declare (not safe)) - (_recur179384_ __tmp185222 _vars179387_)))) + (_recur180545_ __tmp186383 _vars180548_)))) (declare (not safe)) - (_recur179384_ __tmp185223 __tmp185221)) - (if (or (let () (declare (not safe)) (eq? 'vector _$e179405_)) - (let () (declare (not safe)) (eq? 'box _$e179405_))) + (_recur180545_ __tmp186384 __tmp186382)) + (if (or (let () (declare (not safe)) (eq? 'vector _$e180566_)) + (let () (declare (not safe)) (eq? 'box _$e180566_))) (let () (declare (not safe)) - (_recur179384_ _body179402_ _vars179387_)) - _vars179387_))))))) + (_recur180545_ _body180563_ _vars180548_)) + _vars180548_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _e179388179395_)) - (let ((_hd179392179417_ + (##pair? _e180549180556_)) + (let ((_hd180553180578_ (let () (declare (not safe)) - (##car _e179388179395_))) - (_tl179393179419_ + (##car _e180549180556_))) + (_tl180554180580_ (let () (declare (not safe)) - (##cdr _e179388179395_)))) - (let* ((_tag179422_ _hd179392179417_) - (_body179424_ - _tl179393179419_)) + (##cdr _e180549180556_)))) + (let* ((_tag180583_ _hd180553180578_) + (_body180585_ + _tl180554180580_)) (declare (not safe)) - (_K179391179414_ - _body179424_ - _tag179422_))) + (_K180552180575_ + _body180585_ + _tag180583_))) (let () (declare (not safe)) - (_E179390179399_))))))) - (_make-body179376_ - (lambda (_vars179378_) - (let ((__tmp185224 - (map (lambda (_mvar179380_) - (let ((__tmp185225 - (car _mvar179380_))) + (_E180551180560_))))))) + (_make-body180537_ + (lambda (_vars180539_) + (let ((__tmp186385 + (map (lambda (_mvar180541_) + (let ((__tmp186386 + (car _mvar180541_))) (declare (not safe)) - (assgetq __tmp185225 - _vars179378_ - _BUG179372_))) - _mvars179368_))) + (assgetq __tmp186386 + _vars180539_ + _BUG180533_))) + _mvars180529_))) (declare (not safe)) - (cons _K179369_ __tmp185224))))) + (cons _K180530_ __tmp186385))))) (let () (declare (not safe)) - (_recur179373_ - _hd179367_ + (_recur180534_ + _hd180528_ '() - _target179366_ - _E179370_ - _make-body179376_))))) - (_parse-clause179202_ - (lambda (_hd179271_ _ids179272_) - (let _recur179274_ ((_e179276_ _hd179271_) - (_vars179277_ '()) - (_depth179278_ '0)) + _target180527_ + _E180531_ + _make-body180537_))))) + (_parse-clause180363_ + (lambda (_hd180432_ _ids180433_) + (let _recur180435_ ((_e180437_ _hd180432_) + (_vars180438_ '()) + (_depth180439_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _e179276_)) + (gx#identifier? _e180437_)) (if (let () (declare (not safe)) - (gx#underscore? _e179276_)) - (values '(any) _vars179277_) + (gx#underscore? _e180437_)) + (values '(any) _vars180438_) (if (let () (declare (not safe)) - (gx#ellipsis? _e179276_)) + (gx#ellipsis? _e180437_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _stx179193_ - _hd179271_)) - (if (let ((__tmp185241 - (lambda (_id179280_) + _stx180354_ + _hd180432_)) + (if (let ((__tmp186402 + (lambda (_id180441_) (let () (declare (not safe)) (gx#bound-identifier=? - _e179276_ - _id179280_))))) + _e180437_ + _id180441_))))) (declare (not safe)) - (find __tmp185241 _ids179272_)) + (find __tmp186402 _ids180433_)) (values (let () (declare (not safe)) - (cons 'id _e179276_)) - _vars179277_) - (if (let ((__tmp185239 - (lambda (_var179282_) - (let ((__tmp185240 - (car _var179282_))) + (cons 'id _e180437_)) + _vars180438_) + (if (let ((__tmp186400 + (lambda (_var180443_) + (let ((__tmp186401 + (car _var180443_))) (declare (not safe)) (gx#bound-identifier=? - _e179276_ - __tmp185240))))) + _e180437_ + __tmp186401))))) (declare (not safe)) - (find __tmp185239 _vars179277_)) + (find __tmp186400 _vars180438_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _stx179193_ - _e179276_)) + _stx180354_ + _e180437_)) (values (let () (declare (not safe)) - (cons 'var _e179276_)) - (let ((__tmp185238 + (cons 'var _e180437_)) + (let ((__tmp186399 (let () (declare (not safe)) - (cons _e179276_ + (cons _e180437_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _depth179278_)))) + _depth180439_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp185238 - _vars179277_))))))) + (cons __tmp186399 + _vars180438_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _e179276_)) - (let* ((_e179283179290_ _e179276_) - (_E179285179294_ + (gx#stx-pair? _e180437_)) + (let* ((_e180444180451_ _e180437_) + (_E180446180455_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e179283179290_)))) - (_E179284179355_ + _e180444180451_)))) + (_E180445180516_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e179283179290_)) - (let ((_e179286179298_ + (gx#stx-pair? _e180444180451_)) + (let ((_e180447180459_ (let () (declare (not safe)) (gx#syntax-e - _e179283179290_)))) - (let ((_hd179287179301_ + _e180444180451_)))) + (let ((_hd180448180462_ (let () (declare (not safe)) - (##car _e179286179298_))) - (_tl179288179303_ + (##car _e180447180459_))) + (_tl180449180464_ (let () (declare (not safe)) - (##cdr _e179286179298_)))) - (let* ((_hd179306_ - _hd179287179301_) - (_rest179308_ - _tl179288179303_)) + (##cdr _e180447180459_)))) + (let* ((_hd180467_ + _hd180448180462_) + (_rest180469_ + _tl180449180464_)) (if '#t - (let* ((_make-pair179323_ - (lambda (_tag179310_ + (let* ((_make-pair180484_ + (lambda (_tag180471_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd179311_ - _tl179312_) - (let* ((_hd-depth179314_ + _hd180472_ + _tl180473_) + (let* ((_hd-depth180475_ (if (let () (declare (not safe)) - (eq? _tag179310_ 'splice)) + (eq? _tag180471_ 'splice)) (let () (declare (not safe)) - (fx+ _depth179278_ '1)) - _depth179278_)) - (_g185233_ + (fx+ _depth180439_ '1)) + _depth180439_)) + (_g186394_ (let () (declare (not safe)) - (_recur179274_ - _hd179311_ - _vars179277_ - _hd-depth179314_)))) + (_recur180435_ + _hd180472_ + _vars180438_ + _hd-depth180475_)))) (begin - (let ((_g185234_ + (let ((_g186395_ (let () (declare (not safe)) - (if (##values? _g185233_) - (##vector-length _g185233_) + (if (##values? _g186394_) + (##vector-length _g186394_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185234_ 2))) + (##fx= _g186395_ 2))) (error "Context expects 2 values" - _g185234_))) - (let ((_hd179316_ + _g186395_))) + (let ((_hd180477_ (let () (declare (not safe)) - (##vector-ref _g185233_ 0))) - (_vars179317_ + (##vector-ref _g186394_ 0))) + (_vars180478_ (let () (declare (not safe)) - (##vector-ref _g185233_ 1)))) - (let ((_g185235_ + (##vector-ref _g186394_ 1)))) + (let ((_g186396_ (let () (declare (not safe)) - (_recur179274_ - _tl179312_ - _vars179317_ - _depth179278_)))) + (_recur180435_ + _tl180473_ + _vars180478_ + _depth180439_)))) (begin - (let ((_g185236_ + (let ((_g186397_ (let () (declare (not safe)) - (if (##values? _g185235_) - (##vector-length _g185235_) + (if (##values? _g186396_) + (##vector-length _g186396_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185236_ 2))) + (##fx= _g186397_ 2))) (error "Context expects 2 values" - _g185236_))) - (let ((_tl179319_ + _g186397_))) + (let ((_tl180480_ (let () (declare (not safe)) - (##vector-ref _g185235_ 0))) - (_vars179320_ + (##vector-ref _g186396_ 0))) + (_vars180481_ (let () (declare (not safe)) - (##vector-ref _g185235_ 1)))) + (##vector-ref _g186396_ 1)))) (let () - (values (let ((__tmp185237 + (values (let ((__tmp186398 (let () (declare (not safe)) - (cons _hd179316_ - _tl179319_)))) + (cons _hd180477_ + _tl180480_)))) (declare (not safe)) - (cons _tag179310_ __tmp185237)) - _vars179320_)))))))))) - (_e179324179331_ _rest179308_) - (_E179326179335_ + (cons _tag180471_ __tmp186398)) + _vars180481_)))))))))) + (_e180485180492_ _rest180469_) + (_E180487180496_ (lambda () (let () (declare (not safe)) - (_make-pair179323_ 'cons _hd179306_ _rest179308_)))) - (_E179325179351_ + (_make-pair180484_ 'cons _hd180467_ _rest180469_)))) + (_E180486180512_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e179324179331_)) - (let ((_e179327179339_ + (gx#stx-pair? _e180485180492_)) + (let ((_e180488180500_ (let () (declare (not safe)) - (gx#syntax-e _e179324179331_)))) - (let ((_hd179328179342_ + (gx#syntax-e _e180485180492_)))) + (let ((_hd180489180503_ (let () (declare (not safe)) - (##car _e179327179339_))) - (_tl179329179344_ + (##car _e180488180500_))) + (_tl180490180505_ (let () (declare (not safe)) - (##cdr _e179327179339_)))) - (let* ((_rest-hd179347_ _hd179328179342_) - (_rest-tl179349_ _tl179329179344_)) + (##cdr _e180488180500_)))) + (let* ((_rest-hd180508_ _hd180489180503_) + (_rest-tl180510_ _tl180490180505_)) (if '#t (if (let () (declare (not safe)) - (gx#ellipsis? _rest-hd179347_)) + (gx#ellipsis? _rest-hd180508_)) (let () (declare (not safe)) - (_make-pair179323_ + (_make-pair180484_ 'splice - _hd179306_ - _rest-tl179349_)) + _hd180467_ + _rest-tl180510_)) (let () (declare (not safe)) - (_make-pair179323_ + (_make-pair180484_ 'cons - _hd179306_ - _rest179308_))) + _hd180467_ + _rest180469_))) (let () (declare (not safe)) - (_E179326179335_)))))) - (let () (declare (not safe)) (_E179326179335_)))))) - (let () (declare (not safe)) (_E179325179351_))) - (let () (declare (not safe)) (_E179285179294_)))))) + (_E180487180496_)))))) + (let () (declare (not safe)) (_E180487180496_)))))) + (let () (declare (not safe)) (_E180486180512_))) + (let () (declare (not safe)) (_E180446180455_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E179285179294_)))))) + (_E180446180455_)))))) (let () (declare (not safe)) - (_E179284179355_))) + (_E180445180516_))) (if (let () (declare (not safe)) - (gx#stx-null? _e179276_)) - (values '(null) _vars179277_) + (gx#stx-null? _e180437_)) + (values '(null) _vars180438_) (if (let () (declare (not safe)) - (gx#stx-vector? _e179276_)) - (let ((_g185230_ - (let ((__tmp185232 + (gx#stx-vector? _e180437_)) + (let ((_g186391_ + (let ((__tmp186393 (vector->list (let () (declare (not safe)) (gx#syntax-e - _e179276_))))) + _e180437_))))) (declare (not safe)) - (_recur179274_ - __tmp185232 - _vars179277_ - _depth179278_)))) + (_recur180435_ + __tmp186393 + _vars180438_ + _depth180439_)))) (begin - (let ((_g185231_ + (let ((_g186392_ (let () (declare (not safe)) - (if (##values? _g185230_) + (if (##values? _g186391_) (##vector-length - _g185230_) + _g186391_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185231_ 2))) + (##fx= _g186392_ 2))) (error "Context expects 2 values" - _g185231_))) - (let ((_e179359_ + _g186392_))) + (let ((_e180520_ (let () (declare (not safe)) - (##vector-ref _g185230_ 0))) - (_vars179360_ + (##vector-ref _g186391_ 0))) + (_vars180521_ (let () (declare (not safe)) (##vector-ref - _g185230_ + _g186391_ 1)))) (values (let () (declare (not safe)) - (cons 'vector _e179359_)) - _vars179360_)))) + (cons 'vector _e180520_)) + _vars180521_)))) (if (let () (declare (not safe)) - (gx#stx-box? _e179276_)) - (let ((_g185227_ - (let ((__tmp185229 + (gx#stx-box? _e180437_)) + (let ((_g186388_ + (let ((__tmp186390 (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _e179276_))))) + (gx#syntax-e _e180437_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_recur179274_ - __tmp185229 - _vars179277_ - _depth179278_)))) + (_recur180435_ + __tmp186390 + _vars180438_ + _depth180439_)))) (begin - (let ((_g185228_ + (let ((_g186389_ (let () (declare (not safe)) (if (##values? - _g185227_) + _g186388_) (##vector-length - _g185227_) + _g186388_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g185228_ + (##fx= _g186389_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g185228_))) - (let ((_e179362_ + _g186389_))) + (let ((_e180523_ (let () (declare (not safe)) (##vector-ref - _g185227_ + _g186388_ 0))) - (_vars179363_ + (_vars180524_ (let () (declare (not safe)) (##vector-ref - _g185227_ + _g186388_ 1)))) (values (let () (declare (not safe)) (cons 'box - _e179362_)) - _vars179363_)))) + _e180523_)) + _vars180524_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _e179276_)) - (values (let ((__tmp185226 + (gx#stx-datum? _e180437_)) + (values (let ((__tmp186387 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _e179276_)))) + (gx#stx-e _e180437_)))) (declare (not safe)) - (cons 'datum __tmp185226)) - _vars179277_) + (cons 'datum __tmp186387)) + _vars180438_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _stx179193_ - _e179276_)))))))))))) - (let* ((_e179203179216_ _stx179193_) - (_E179205179220_ + _stx180354_ + _e180437_)))))))))))) + (let* ((_e180364180377_ _stx180354_) + (_E180366180381_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e179203179216_)))) - (_E179204179267_ + _e180364180377_)))) + (_E180365180428_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _e179203179216_)) - (let ((_e179206179224_ + (gx#stx-pair? _e180364180377_)) + (let ((_e180367180385_ (let () (declare (not safe)) - (gx#syntax-e _e179203179216_)))) - (let ((_hd179207179227_ + (gx#syntax-e _e180364180377_)))) + (let ((_hd180368180388_ (let () (declare (not safe)) - (##car _e179206179224_))) - (_tl179208179229_ + (##car _e180367180385_))) + (_tl180369180390_ (let () (declare (not safe)) - (##cdr _e179206179224_)))) + (##cdr _e180367180385_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _tl179208179229_)) - (let ((_e179209179232_ + (gx#stx-pair? _tl180369180390_)) + (let ((_e180370180393_ (let () (declare (not safe)) - (gx#syntax-e _tl179208179229_)))) - (let ((_hd179210179235_ + (gx#syntax-e _tl180369180390_)))) + (let ((_hd180371180396_ (let () (declare (not safe)) - (##car _e179209179232_))) - (_tl179211179237_ + (##car _e180370180393_))) + (_tl180372180398_ (let () (declare (not safe)) - (##cdr _e179209179232_)))) - (let ((_expr179240_ _hd179210179235_)) + (##cdr _e180370180393_)))) + (let ((_expr180401_ _hd180371180396_)) (if (let () (declare (not safe)) - (gx#stx-pair? _tl179211179237_)) - (let ((_e179212179242_ + (gx#stx-pair? _tl180372180398_)) + (let ((_e180373180403_ (let () (declare (not safe)) (gx#syntax-e - _tl179211179237_)))) - (let ((_hd179213179245_ + _tl180372180398_)))) + (let ((_hd180374180406_ (let () (declare (not safe)) - (##car _e179212179242_))) - (_tl179214179247_ + (##car _e180373180403_))) + (_tl180375180408_ (let () (declare (not safe)) - (##cdr _e179212179242_)))) - (let* ((_ids179250_ - _hd179213179245_) - (_clauses179252_ - _tl179214179247_)) + (##cdr _e180373180403_)))) + (let* ((_ids180411_ + _hd180374180406_) + (_clauses180413_ + _tl180375180408_)) (if '#t - (if (let ((__tmp185259 + (if (let ((__tmp186420 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier-list? _ids179250_)))) + (gx#identifier-list? _ids180411_)))) (declare (not safe)) - (not __tmp185259)) + (not __tmp186420)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _stx179193_ - _ids179250_)) - (if (let ((__tmp185258 + _stx180354_ + _ids180411_)) + (if (let ((__tmp186419 (let () (declare (not safe)) - (gx#stx-list? _clauses179252_)))) + (gx#stx-list? _clauses180413_)))) (declare (not safe)) - (not __tmp185258)) + (not __tmp186419)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _stx179193_)) - (let* ((_ids179254_ + _stx180354_)) + (let* ((_ids180415_ (let () (declare (not safe)) - (gx#syntax->list _ids179250_))) - (_clauses179256_ + (gx#syntax->list _ids180411_))) + (_clauses180417_ (let () (declare (not safe)) - (gx#syntax->list _clauses179252_))) - (_clause-ids179258_ + (gx#syntax->list _clauses180413_))) + (_clause-ids180419_ (let () (declare (not safe)) - (gx#gentemps _clauses179256_))) - (_E179260_ + (gx#gentemps _clauses180417_))) + (_E180421_ (let () (declare (not safe)) (gx#genident__0))) - (_target179262_ + (_target180423_ (let () (declare (not safe)) (gx#genident__0))) - (_first179264_ + (_first180425_ (if (let () (declare (not safe)) - (null? _clauses179256_)) - _E179260_ - (car _clause-ids179258_)))) - (let ((__tmp185243 - (let ((__tmp185244 - (let ((__tmp185246 - (let ((__tmp185251 - (let ((__tmp185252 - (let ((__tmp185257 + (null? _clauses180417_)) + _E180421_ + (car _clause-ids180419_)))) + (let ((__tmp186404 + (let ((__tmp186405 + (let ((__tmp186407 + (let ((__tmp186412 + (let ((__tmp186413 + (let ((__tmp186418 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _E179260_ '()))) - (__tmp185253 - (let ((__tmp185254 - (let ((__tmp185256 + (cons _E180421_ '()))) + (__tmp186414 + (let ((__tmp186415 + (let ((__tmp186417 (let () (declare (not safe)) - (cons _target179262_ '()))) - (__tmp185255 + (cons _target180423_ '()))) + (__tmp186416 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _target179262_)))) + _target180423_)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp185256 - __tmp185255)))) + __tmp186417 + __tmp186416)))) (declare (not safe)) - (cons __tmp185254 '())))) + (cons __tmp186415 '())))) (declare (not safe)) - (cons __tmp185257 __tmp185253)))) + (cons __tmp186418 __tmp186414)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp185252 '()))) - (__tmp185247 - (let ((__tmp185250 + (cons __tmp186413 '()))) + (__tmp186408 + (let ((__tmp186411 (let () (declare (not safe)) - (_generate-bindings179198_ - _target179262_ - _ids179254_ - _clauses179256_ - _clause-ids179258_ - _E179260_))) - (__tmp185248 - (let ((__tmp185249 + (_generate-bindings180359_ + _target180423_ + _ids180415_ + _clauses180417_ + _clause-ids180419_ + _E180421_))) + (__tmp186409 + (let ((__tmp186410 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr179240_ '())))) + (cons _expr180401_ '())))) (declare (not safe)) - (cons _first179264_ __tmp185249)))) + (cons _first180425_ __tmp186410)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_generate-body179199_ - __tmp185250 - __tmp185248)))) + (_generate-body180360_ + __tmp186411 + __tmp186409)))) (declare (not safe)) (gx#core-list 'let-values - __tmp185251 - __tmp185247))) - (__tmp185245 + __tmp186412 + __tmp186408))) + (__tmp186406 (let () (declare (not safe)) - (gx#stx-source _stx179193_)))) + (gx#stx-source _stx180354_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp185246 - __tmp185245)))) + __tmp186407 + __tmp186406)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp185244))) - (__tmp185242 + __tmp186405))) + (__tmp186403 (let () (declare (not safe)) - (gx#stx-source _stx179193_)))) + (gx#stx-source _stx180354_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp185243 __tmp185242))))) + (gx#stx-wrap-source __tmp186404 __tmp186403))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_E179205179220_)))))) + (_E180366180381_)))))) (let () (declare (not safe)) - (_E179205179220_)))))) + (_E180366180381_)))))) (let () (declare (not safe)) - (_E179205179220_))))) - (let () (declare (not safe)) (_E179205179220_)))))) - (let () (declare (not safe)) (_E179204179267_)))))) + (_E180366180381_))))) + (let () (declare (not safe)) (_E180366180381_)))))) + (let () (declare (not safe)) (_E180365180428_)))))) (define gx#macro-expand-syntax-case__0 - (lambda (_stx179903_) - (let* ((_identifier=?179905_ 'free-identifier=?) - (_unwrap-e179907_ 'syntax-e) - (_wrap-e179909_ 'quote-syntax)) + (lambda (_stx181064_) + (let* ((_identifier=?181066_ 'free-identifier=?) + (_unwrap-e181068_ 'syntax-e) + (_wrap-e181070_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx179903_ - _identifier=?179905_ - _unwrap-e179907_ - _wrap-e179909_)))) + _stx181064_ + _identifier=?181066_ + _unwrap-e181068_ + _wrap-e181070_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_stx179911_ _identifier=?179912_) - (let* ((_unwrap-e179914_ 'syntax-e) (_wrap-e179916_ 'quote-syntax)) + (lambda (_stx181072_ _identifier=?181073_) + (let* ((_unwrap-e181075_ 'syntax-e) (_wrap-e181077_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx179911_ - _identifier=?179912_ - _unwrap-e179914_ - _wrap-e179916_)))) + _stx181072_ + _identifier=?181073_ + _unwrap-e181075_ + _wrap-e181077_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_stx179918_ _identifier=?179919_ _unwrap-e179920_) - (let ((_wrap-e179922_ 'quote-syntax)) + (lambda (_stx181079_ _identifier=?181080_ _unwrap-e181081_) + (let ((_wrap-e181083_ 'quote-syntax)) (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx179918_ - _identifier=?179919_ - _unwrap-e179920_ - _wrap-e179922_)))) + _stx181079_ + _identifier=?181080_ + _unwrap-e181081_ + _wrap-e181083_)))) (define gx#macro-expand-syntax-case - (lambda _g185261_ - (let ((_g185260_ (let () (declare (not safe)) (##length _g185261_)))) - (cond ((let () (declare (not safe)) (##fx= _g185260_ 1)) - (apply (lambda (_stx179903_) + (lambda _g186422_ + (let ((_g186421_ (let () (declare (not safe)) (##length _g186422_)))) + (cond ((let () (declare (not safe)) (##fx= _g186421_ 1)) + (apply (lambda (_stx181064_) (let () (declare (not safe)) - (gx#macro-expand-syntax-case__0 _stx179903_))) - _g185261_)) - ((let () (declare (not safe)) (##fx= _g185260_ 2)) - (apply (lambda (_stx179911_ _identifier=?179912_) + (gx#macro-expand-syntax-case__0 _stx181064_))) + _g186422_)) + ((let () (declare (not safe)) (##fx= _g186421_ 2)) + (apply (lambda (_stx181072_ _identifier=?181073_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__1 - _stx179911_ - _identifier=?179912_))) - _g185261_)) - ((let () (declare (not safe)) (##fx= _g185260_ 3)) - (apply (lambda (_stx179918_ - _identifier=?179919_ - _unwrap-e179920_) + _stx181072_ + _identifier=?181073_))) + _g186422_)) + ((let () (declare (not safe)) (##fx= _g186421_ 3)) + (apply (lambda (_stx181079_ + _identifier=?181080_ + _unwrap-e181081_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__2 - _stx179918_ - _identifier=?179919_ - _unwrap-e179920_))) - _g185261_)) - ((let () (declare (not safe)) (##fx= _g185260_ 4)) - (apply (lambda (_stx179924_ - _identifier=?179925_ - _unwrap-e179926_ - _wrap-e179927_) + _stx181079_ + _identifier=?181080_ + _unwrap-e181081_))) + _g186422_)) + ((let () (declare (not safe)) (##fx= _g186421_ 4)) + (apply (lambda (_stx181085_ + _identifier=?181086_ + _unwrap-e181087_ + _wrap-e181088_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _stx179924_ - _identifier=?179925_ - _unwrap-e179926_ - _wrap-e179927_))) - _g185261_)) + _stx181085_ + _identifier=?181086_ + _unwrap-e181087_ + _wrap-e181088_))) + _g186422_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g185261_)))))) + _g186422_)))))) (define gx#syntax-local-pattern? - (lambda (_stx179190_) - (if (let () (declare (not safe)) (gx#identifier? _stx179190_)) - (let ((__tmp185262 + (lambda (_stx180351_) + (if (let () (declare (not safe)) (gx#identifier? _stx180351_)) + (let ((__tmp186423 (let () (declare (not safe)) - (gx#syntax-local-e__% _stx179190_ false)))) + (gx#syntax-local-e__% _stx180351_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp185262 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp186423 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_hd179148_ . _rest179149_) - (let ((_len179151_ (length _hd179148_))) - (let _lp179153_ ((_rest179155_ _rest179149_)) - (let* ((_rest179156179164_ _rest179155_) - (_else179158179172_ (lambda () '#!void)) - (_K179160179178_ - (lambda (_rest179175_ _hd179176_) - (if (fx= _len179151_ (length _hd179176_)) + (lambda (_hd180309_ . _rest180310_) + (let ((_len180312_ (length _hd180309_))) + (let _lp180314_ ((_rest180316_ _rest180310_)) + (let* ((_rest180317180325_ _rest180316_) + (_else180319180333_ (lambda () '#!void)) + (_K180321180339_ + (lambda (_rest180336_ _hd180337_) + (if (fx= _len180312_ (length _hd180337_)) (let () (declare (not safe)) - (_lp179153_ _rest179175_)) + (_lp180314_ _rest180336_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _hd179176_)))))) - (if (let () (declare (not safe)) (##pair? _rest179156179164_)) - (let ((_hd179161179181_ + _hd180337_)))))) + (if (let () (declare (not safe)) (##pair? _rest180317180325_)) + (let ((_hd180322180342_ (let () (declare (not safe)) - (##car _rest179156179164_))) - (_tl179162179183_ + (##car _rest180317180325_))) + (_tl180323180344_ (let () (declare (not safe)) - (##cdr _rest179156179164_)))) - (let* ((_hd179186_ _hd179161179181_) - (_rest179188_ _tl179162179183_)) + (##cdr _rest180317180325_)))) + (let* ((_hd180347_ _hd180322180342_) + (_rest180349_ _tl180323180344_)) (declare (not safe)) - (_K179160179178_ _rest179188_ _hd179186_))) + (_K180321180339_ _rest180349_ _hd180347_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_stx179106_ _n179107_) - (let _lp179109_ ((_rest179111_ _stx179106_) (_r179112_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _rest179111_)) - (let* ((_g179113179120_ - (let () (declare (not safe)) (gx#syntax-e _rest179111_))) - (_E179115179124_ + (lambda (_stx180267_ _n180268_) + (let _lp180270_ ((_rest180272_ _stx180267_) (_r180273_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _rest180272_)) + (let* ((_g180274180281_ + (let () (declare (not safe)) (gx#syntax-e _rest180272_))) + (_E180276180285_ (lambda () - (error '"No clause matching" _g179113179120_))) - (_K179116179130_ - (lambda (_rest179127_ _hd179128_) - (let ((__tmp185267 + (error '"No clause matching" _g180274180281_))) + (_K180277180291_ + (lambda (_rest180288_ _hd180289_) + (let ((__tmp186428 (let () (declare (not safe)) - (cons _hd179128_ _r179112_)))) + (cons _hd180289_ _r180273_)))) (declare (not safe)) - (_lp179109_ _rest179127_ __tmp185267))))) - (if (let () (declare (not safe)) (##pair? _g179113179120_)) - (let ((_hd179117179133_ + (_lp180270_ _rest180288_ __tmp186428))))) + (if (let () (declare (not safe)) (##pair? _g180274180281_)) + (let ((_hd180278180294_ (let () (declare (not safe)) - (##car _g179113179120_))) - (_tl179118179135_ + (##car _g180274180281_))) + (_tl180279180296_ (let () (declare (not safe)) - (##cdr _g179113179120_)))) - (let* ((_hd179138_ _hd179117179133_) - (_rest179140_ _tl179118179135_)) + (##cdr _g180274180281_)))) + (let* ((_hd180299_ _hd180278180294_) + (_rest180301_ _tl180279180296_)) (declare (not safe)) - (_K179116179130_ _rest179140_ _hd179138_))) - (let () (declare (not safe)) (_E179115179124_)))) - (let _lp179142_ ((_n179144_ _n179107_) - (_l179145_ _r179112_) - (_r179146_ _rest179111_)) - (if (let () (declare (not safe)) (null? _l179145_)) - (values _l179145_ _r179146_) - (if (fxpositive? _n179144_) - (let ((__tmp185266 + (_K180277180291_ _rest180301_ _hd180299_))) + (let () (declare (not safe)) (_E180276180285_)))) + (let _lp180303_ ((_n180305_ _n180268_) + (_l180306_ _r180273_) + (_r180307_ _rest180272_)) + (if (let () (declare (not safe)) (null? _l180306_)) + (values _l180306_ _r180307_) + (if (fxpositive? _n180305_) + (let ((__tmp186427 (let () (declare (not safe)) - (fx- _n179144_ '1))) - (__tmp185265 (cdr _l179145_)) - (__tmp185263 - (let ((__tmp185264 (car _l179145_))) + (fx- _n180305_ '1))) + (__tmp186426 (cdr _l180306_)) + (__tmp186424 + (let ((__tmp186425 (car _l180306_))) (declare (not safe)) - (cons __tmp185264 _r179146_)))) + (cons __tmp186425 _r180307_)))) (declare (not safe)) - (_lp179142_ __tmp185266 __tmp185265 __tmp185263)) - (values (reverse _l179145_) _r179146_)))))))))) + (_lp180303_ __tmp186427 __tmp186426 __tmp186424)) + (values (reverse _l180306_) _r180307_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase__1.scm b/src/bootstrap/gerbil/expander/stxcase__1.scm index eb962afdd..5c98c462d 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]#_g185270_| + (define |gx[1]#_g186431_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g185272_| + (define |gx[1]#_g186433_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g185274_| + (define |gx[1]#_g186435_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g185276_| + (define |gx[1]#_g186437_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g185282_| + (define |gx[1]#_g186443_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g185285_| + (define |gx[1]#_g186446_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g185288_| + (define |gx[1]#_g186449_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g185294_| + (define |gx[1]#_g186455_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g185297_| + (define |gx[1]#_g186458_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g185300_| + (define |gx[1]#_g186461_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g185306_| + (define |gx[1]#_g186467_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g185309_| + (define |gx[1]#_g186470_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g185312_| + (define |gx[1]#_g186473_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g185318_| + (define |gx[1]#_g186479_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g185321_| + (define |gx[1]#_g186482_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g185324_| + (define |gx[1]#_g186485_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj185020 + (let ((__obj186181 (let () (declare (not safe)) (##structure @@ -131,11 +131,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj185020 + __obj186181 'gx#syntax-pattern::t '1 gerbil/core$$#class-type-info::t @@ -143,7 +144,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185020 + __obj186181 'syntax-pattern '2 gerbil/core$$#class-type-info::t @@ -151,26 +152,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185020 + __obj186181 '(id depth) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185268 - (let ((__tmp185269 |gx[1]#_g185270_|)) + (let ((__tmp186429 + (let ((__tmp186430 |gx[1]#_g186431_|)) (declare (not safe)) - (cons __tmp185269 '())))) + (cons __tmp186430 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185268 + __obj186181 + __tmp186429 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj185020 + __obj186181 '#t '5 gerbil/core$$#class-type-info::t @@ -178,7 +179,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185020 + __obj186181 '#f '6 gerbil/core$$#class-type-info::t @@ -186,145 +187,153 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj185020 + __obj186181 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185271 |gx[1]#_g185272_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185271 + __obj186181 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185273 |gx[1]#_g185274_|)) + (let ((__tmp186432 |gx[1]#_g186433_|)) (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185273 + __obj186181 + __tmp186432 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185275 |gx[1]#_g185276_|)) + (let ((__tmp186434 |gx[1]#_g186435_|)) (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185275 + __obj186181 + __tmp186434 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185277 - (let ((__tmp185286 - (let ((__tmp185287 |gx[1]#_g185288_|)) + (let ((__tmp186436 |gx[1]#_g186437_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj186181 + __tmp186436 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp186438 + (let ((__tmp186447 + (let ((__tmp186448 |gx[1]#_g186449_|)) (declare (not safe)) - (cons 'id __tmp185287))) - (__tmp185278 - (let ((__tmp185283 - (let ((__tmp185284 |gx[1]#_g185285_|)) + (cons 'id __tmp186448))) + (__tmp186439 + (let ((__tmp186444 + (let ((__tmp186445 |gx[1]#_g186446_|)) (declare (not safe)) - (cons 'depth __tmp185284))) - (__tmp185279 - (let ((__tmp185280 - (let ((__tmp185281 |gx[1]#_g185282_|)) + (cons 'depth __tmp186445))) + (__tmp186440 + (let ((__tmp186441 + (let ((__tmp186442 |gx[1]#_g186443_|)) (declare (not safe)) - (cons 'e __tmp185281)))) + (cons 'e __tmp186442)))) (declare (not safe)) - (cons __tmp185280 '())))) + (cons __tmp186441 '())))) (declare (not safe)) - (cons __tmp185283 __tmp185279)))) + (cons __tmp186444 __tmp186440)))) (declare (not safe)) - (cons __tmp185286 __tmp185278)))) + (cons __tmp186447 __tmp186439)))) (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185277 - '11 + __obj186181 + __tmp186438 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185289 - (let ((__tmp185298 - (let ((__tmp185299 |gx[1]#_g185300_|)) + (let ((__tmp186450 + (let ((__tmp186459 + (let ((__tmp186460 |gx[1]#_g186461_|)) (declare (not safe)) - (cons 'id __tmp185299))) - (__tmp185290 - (let ((__tmp185295 - (let ((__tmp185296 |gx[1]#_g185297_|)) + (cons 'id __tmp186460))) + (__tmp186451 + (let ((__tmp186456 + (let ((__tmp186457 |gx[1]#_g186458_|)) (declare (not safe)) - (cons 'depth __tmp185296))) - (__tmp185291 - (let ((__tmp185292 - (let ((__tmp185293 |gx[1]#_g185294_|)) + (cons 'depth __tmp186457))) + (__tmp186452 + (let ((__tmp186453 + (let ((__tmp186454 |gx[1]#_g186455_|)) (declare (not safe)) - (cons 'e __tmp185293)))) + (cons 'e __tmp186454)))) (declare (not safe)) - (cons __tmp185292 '())))) + (cons __tmp186453 '())))) (declare (not safe)) - (cons __tmp185295 __tmp185291)))) + (cons __tmp186456 __tmp186452)))) (declare (not safe)) - (cons __tmp185298 __tmp185290)))) + (cons __tmp186459 __tmp186451)))) (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185289 - '12 + __obj186181 + __tmp186450 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185301 - (let ((__tmp185310 - (let ((__tmp185311 |gx[1]#_g185312_|)) + (let ((__tmp186462 + (let ((__tmp186471 + (let ((__tmp186472 |gx[1]#_g186473_|)) (declare (not safe)) - (cons 'id __tmp185311))) - (__tmp185302 - (let ((__tmp185307 - (let ((__tmp185308 |gx[1]#_g185309_|)) + (cons 'id __tmp186472))) + (__tmp186463 + (let ((__tmp186468 + (let ((__tmp186469 |gx[1]#_g186470_|)) (declare (not safe)) - (cons 'depth __tmp185308))) - (__tmp185303 - (let ((__tmp185304 - (let ((__tmp185305 |gx[1]#_g185306_|)) + (cons 'depth __tmp186469))) + (__tmp186464 + (let ((__tmp186465 + (let ((__tmp186466 |gx[1]#_g186467_|)) (declare (not safe)) - (cons 'e __tmp185305)))) + (cons 'e __tmp186466)))) (declare (not safe)) - (cons __tmp185304 '())))) + (cons __tmp186465 '())))) (declare (not safe)) - (cons __tmp185307 __tmp185303)))) + (cons __tmp186468 __tmp186464)))) (declare (not safe)) - (cons __tmp185310 __tmp185302)))) + (cons __tmp186471 __tmp186463)))) (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185301 - '13 + __obj186181 + __tmp186462 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp185313 - (let ((__tmp185322 - (let ((__tmp185323 |gx[1]#_g185324_|)) + (let ((__tmp186474 + (let ((__tmp186483 + (let ((__tmp186484 |gx[1]#_g186485_|)) (declare (not safe)) - (cons 'id __tmp185323))) - (__tmp185314 - (let ((__tmp185319 - (let ((__tmp185320 |gx[1]#_g185321_|)) + (cons 'id __tmp186484))) + (__tmp186475 + (let ((__tmp186480 + (let ((__tmp186481 |gx[1]#_g186482_|)) (declare (not safe)) - (cons 'depth __tmp185320))) - (__tmp185315 - (let ((__tmp185316 - (let ((__tmp185317 |gx[1]#_g185318_|)) + (cons 'depth __tmp186481))) + (__tmp186476 + (let ((__tmp186477 + (let ((__tmp186478 |gx[1]#_g186479_|)) (declare (not safe)) - (cons 'e __tmp185317)))) + (cons 'e __tmp186478)))) (declare (not safe)) - (cons __tmp185316 '())))) + (cons __tmp186477 '())))) (declare (not safe)) - (cons __tmp185319 __tmp185315)))) + (cons __tmp186480 __tmp186476)))) (declare (not safe)) - (cons __tmp185322 __tmp185314)))) + (cons __tmp186483 __tmp186475)))) (declare (not safe)) (##unchecked-structure-set! - __obj185020 - __tmp185313 - '14 + __obj186181 + __tmp186474 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj185020))) + __obj186181))) diff --git a/src/bootstrap/gerbil/expander/top__0.scm b/src/bootstrap/gerbil/expander/top__0.scm index 25ae3ba93..1ec606b1e 100644 --- a/src/bootstrap/gerbil/expander/top__0.scm +++ b/src/bootstrap/gerbil/expander/top__0.scm @@ -1,398 +1,398 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1707773927) + (define gerbil/expander/top::timestamp 1708102803) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_stx154555_) - (letrec ((_expand-special154557_ - (lambda (_hd154559_ _K154560_ _rest154561_ _r154562_) - (_K154560_ - _rest154561_ - (cons (gx#core-expand-top _hd154559_) _r154562_))))) - (gx#core-expand-block__0 _stx154555_ _expand-special154557_)))) + (lambda (_stx155716_) + (letrec ((_expand-special155718_ + (lambda (_hd155720_ _K155721_ _rest155722_ _r155723_) + (_K155721_ + _rest155722_ + (cons (gx#core-expand-top _hd155720_) _r155723_))))) + (gx#core-expand-block__0 _stx155716_ _expand-special155718_)))) (define gx#core-expand-begin-syntax% - (lambda (_stx154308_) - (letrec ((_expand-special154310_ - (lambda (_hd154430_ _K154431_ _rest154432_ _r154433_) - (let* ((_K154437_ - (lambda (_e154435_) - (_K154431_ - _rest154432_ - (cons _e154435_ _r154433_)))) - (_e154438154467_ _hd154430_) - (_E154462154471_ + (lambda (_stx155469_) + (letrec ((_expand-special155471_ + (lambda (_hd155591_ _K155592_ _rest155593_ _r155594_) + (let* ((_K155598_ + (lambda (_e155596_) + (_K155592_ + _rest155593_ + (cons _e155596_ _r155594_)))) + (_e155599155628_ _hd155591_) + (_E155623155632_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154438154467_))) - (_E154458154483_ + _e155599155628_))) + (_E155619155644_ (lambda () - (if (gx#stx-pair? _e154438154467_) - (let ((_e154463154475_ - (gx#syntax-e _e154438154467_))) - (let ((_hd154464154478_ - (##car _e154463154475_)) - (_tl154465154480_ - (##cdr _e154463154475_))) + (if (gx#stx-pair? _e155599155628_) + (let ((_e155624155636_ + (gx#syntax-e _e155599155628_))) + (let ((_hd155625155639_ + (##car _e155624155636_)) + (_tl155626155641_ + (##cdr _e155624155636_))) (if (and (gx#identifier? - _hd154464154478_) + _hd155625155639_) (gx#core-identifier=? - _hd154464154478_ + _hd155625155639_ '%#define-runtime)) (if '#t - (_K154437_ + (_K155598_ (gx#core-expand-define-runtime% - _hd154430_)) - (_E154462154471_)) - (_E154462154471_)))) - (_E154462154471_)))) - (_E154454154495_ + _hd155591_)) + (_E155623155632_)) + (_E155623155632_)))) + (_E155623155632_)))) + (_E155615155656_ (lambda () - (if (gx#stx-pair? _e154438154467_) - (let ((_e154459154487_ - (gx#syntax-e _e154438154467_))) - (let ((_hd154460154490_ - (##car _e154459154487_)) - (_tl154461154492_ - (##cdr _e154459154487_))) + (if (gx#stx-pair? _e155599155628_) + (let ((_e155620155648_ + (gx#syntax-e _e155599155628_))) + (let ((_hd155621155651_ + (##car _e155620155648_)) + (_tl155622155653_ + (##cdr _e155620155648_))) (if (and (gx#identifier? - _hd154460154490_) + _hd155621155651_) (gx#core-identifier=? - _hd154460154490_ + _hd155621155651_ '%#define-alias)) (if '#t - (_K154437_ + (_K155598_ (gx#core-expand-define-alias% - _hd154430_)) - (_E154458154483_)) - (_E154458154483_)))) - (_E154458154483_)))) - (_E154444154507_ + _hd155591_)) + (_E155619155644_)) + (_E155619155644_)))) + (_E155619155644_)))) + (_E155605155668_ (lambda () - (if (gx#stx-pair? _e154438154467_) - (let ((_e154455154499_ - (gx#syntax-e _e154438154467_))) - (let ((_hd154456154502_ - (##car _e154455154499_)) - (_tl154457154504_ - (##cdr _e154455154499_))) + (if (gx#stx-pair? _e155599155628_) + (let ((_e155616155660_ + (gx#syntax-e _e155599155628_))) + (let ((_hd155617155663_ + (##car _e155616155660_)) + (_tl155618155665_ + (##cdr _e155616155660_))) (if (and (gx#identifier? - _hd154456154502_) + _hd155617155663_) (gx#core-identifier=? - _hd154456154502_ + _hd155617155663_ '%#define-syntax)) (if '#t - (_K154437_ + (_K155598_ (gx#core-expand-define-syntax% - _hd154430_)) - (_E154454154495_)) - (_E154454154495_)))) - (_E154454154495_)))) - (_E154440154539_ + _hd155591_)) + (_E155615155656_)) + (_E155615155656_)))) + (_E155615155656_)))) + (_E155601155700_ (lambda () - (if (gx#stx-pair? _e154438154467_) - (let ((_e154445154511_ - (gx#syntax-e _e154438154467_))) - (let ((_hd154446154514_ - (##car _e154445154511_)) - (_tl154447154516_ - (##cdr _e154445154511_))) + (if (gx#stx-pair? _e155599155628_) + (let ((_e155606155672_ + (gx#syntax-e _e155599155628_))) + (let ((_hd155607155675_ + (##car _e155606155672_)) + (_tl155608155677_ + (##cdr _e155606155672_))) (if (and (gx#identifier? - _hd154446154514_) + _hd155607155675_) (gx#core-identifier=? - _hd154446154514_ + _hd155607155675_ '%#define-values)) - (if (gx#stx-pair? _tl154447154516_) - (let ((_e154448154519_ + (if (gx#stx-pair? _tl155608155677_) + (let ((_e155609155680_ (gx#syntax-e - _tl154447154516_))) - (let ((_hd154449154522_ - (##car _e154448154519_)) - (_tl154450154524_ - (##cdr _e154448154519_))) - (let ((_hd-bind154527_ - _hd154449154522_)) + _tl155608155677_))) + (let ((_hd155610155683_ + (##car _e155609155680_)) + (_tl155611155685_ + (##cdr _e155609155680_))) + (let ((_hd-bind155688_ + _hd155610155683_)) (if (gx#stx-pair? - _tl154450154524_) - (let ((_e154451154529_ + _tl155611155685_) + (let ((_e155612155690_ (gx#syntax-e - _tl154450154524_))) - (let ((_hd154452154532_ + _tl155611155685_))) + (let ((_hd155613155693_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e154451154529_)) - (_tl154453154534_ (##cdr _e154451154529_))) - (let ((_expr154537_ _hd154452154532_)) - (if (gx#stx-null? _tl154453154534_) - (if (gx#core-bind-values? _hd-bind154527_) + (##car _e155612155690_)) + (_tl155614155695_ (##cdr _e155612155690_))) + (let ((_expr155698_ _hd155613155693_)) + (if (gx#stx-null? _tl155614155695_) + (if (gx#core-bind-values? _hd-bind155688_) (begin - (gx#core-bind-values!__0 _hd-bind154527_) - (_K154437_ _hd154430_)) - (_E154444154507_)) - (_E154444154507_))))) - (_E154444154507_))))) + (gx#core-bind-values!__0 _hd-bind155688_) + (_K155598_ _hd155591_)) + (_E155605155668_)) + (_E155605155668_))))) + (_E155605155668_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154444154507_)) - (_E154444154507_)))) - (_E154444154507_)))) - (_E154439154551_ + (_E155605155668_)) + (_E155605155668_)))) + (_E155605155668_)))) + (_E155600155712_ (lambda () - (if (gx#stx-pair? _e154438154467_) - (let ((_e154441154543_ - (gx#syntax-e _e154438154467_))) - (let ((_hd154442154546_ - (##car _e154441154543_)) - (_tl154443154548_ - (##cdr _e154441154543_))) + (if (gx#stx-pair? _e155599155628_) + (let ((_e155602155704_ + (gx#syntax-e _e155599155628_))) + (let ((_hd155603155707_ + (##car _e155602155704_)) + (_tl155604155709_ + (##cdr _e155602155704_))) (if (and (gx#identifier? - _hd154442154546_) + _hd155603155707_) (gx#core-identifier=? - _hd154442154546_ + _hd155603155707_ '%#begin-syntax)) (if '#t - (_K154437_ + (_K155598_ (gx#core-expand-begin-syntax% - _hd154430_)) - (_E154440154539_)) - (_E154440154539_)))) - (_E154440154539_))))) - (_E154439154551_)))) - (_eval-body154311_ - (lambda (_rbody154319_) - (let _lp154321_ ((_rest154323_ _rbody154319_) - (_body154324_ '()) - (_ebody154325_ '())) - (let* ((_rest154326154334_ _rest154323_) - (_else154328154342_ + _hd155591_)) + (_E155601155700_)) + (_E155601155700_)))) + (_E155601155700_))))) + (_E155600155712_)))) + (_eval-body155472_ + (lambda (_rbody155480_) + (let _lp155482_ ((_rest155484_ _rbody155480_) + (_body155485_ '()) + (_ebody155486_ '())) + (let* ((_rest155487155495_ _rest155484_) + (_else155489155503_ (lambda () - (values _body154324_ + (values _body155485_ (gx#eval-syntax* (gx#core-quote-syntax__1 - (gx#core-cons '%#begin _ebody154325_) - (gx#stx-source _stx154308_)))))) - (_K154330154418_ - (lambda (_rest154345_ _hd154346_) - (let* ((_e154347154364_ _hd154346_) - (_E154359154368_ + (gx#core-cons '%#begin _ebody155486_) + (gx#stx-source _stx155469_)))))) + (_K155491155579_ + (lambda (_rest155506_ _hd155507_) + (let* ((_e155508155525_ _hd155507_) + (_E155520155529_ (lambda () - (_lp154321_ - _rest154345_ - (cons _hd154346_ _body154324_) - (cons _hd154346_ _ebody154325_)))) - (_E154349154380_ + (_lp155482_ + _rest155506_ + (cons _hd155507_ _body155485_) + (cons _hd155507_ _ebody155486_)))) + (_E155510155541_ (lambda () - (if (gx#stx-pair? _e154347154364_) - (let ((_e154360154372_ + (if (gx#stx-pair? _e155508155525_) + (let ((_e155521155533_ (gx#syntax-e - _e154347154364_))) - (let ((_hd154361154375_ - (##car _e154360154372_)) - (_tl154362154377_ - (##cdr _e154360154372_))) + _e155508155525_))) + (let ((_hd155522155536_ + (##car _e155521155533_)) + (_tl155523155538_ + (##cdr _e155521155533_))) (if (and (gx#identifier? - _hd154361154375_) + _hd155522155536_) (gx#core-identifier=? - _hd154361154375_ + _hd155522155536_ '%#begin-syntax)) (if '#t - (_lp154321_ - _rest154345_ - (cons _hd154346_ + (_lp155482_ + _rest155506_ + (cons _hd155507_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body154324_) - _ebody154325_) - (_E154359154368_)) - (_E154359154368_)))) + _body155485_) + _ebody155486_) + (_E155520155529_)) + (_E155520155529_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154359154368_)))) - (_E154348154414_ + (_E155520155529_)))) + (_E155509155575_ (lambda () - (if (gx#stx-pair? _e154347154364_) - (let ((_e154350154384_ + (if (gx#stx-pair? _e155508155525_) + (let ((_e155511155545_ (gx#syntax-e - _e154347154364_))) - (let ((_hd154351154387_ - (##car _e154350154384_)) - (_tl154352154389_ - (##cdr _e154350154384_))) + _e155508155525_))) + (let ((_hd155512155548_ + (##car _e155511155545_)) + (_tl155513155550_ + (##cdr _e155511155545_))) (if (and (gx#identifier? - _hd154351154387_) + _hd155512155548_) (gx#core-identifier=? - _hd154351154387_ + _hd155512155548_ '%#define-values)) (if (gx#stx-pair? - _tl154352154389_) - (let ((_e154353154392_ + _tl155513155550_) + (let ((_e155514155553_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl154352154389_))) - (let ((_hd154354154395_ (##car _e154353154392_)) - (_tl154355154397_ (##cdr _e154353154392_))) - (let ((_hd-bind154400_ _hd154354154395_)) - (if (gx#stx-pair? _tl154355154397_) - (let ((_e154356154402_ - (gx#syntax-e _tl154355154397_))) - (let ((_hd154357154405_ (##car _e154356154402_)) - (_tl154358154407_ (##cdr _e154356154402_))) - (let ((_expr154410_ _hd154357154405_)) - (if (gx#stx-null? _tl154358154407_) + (gx#syntax-e _tl155513155550_))) + (let ((_hd155515155556_ (##car _e155514155553_)) + (_tl155516155558_ (##cdr _e155514155553_))) + (let ((_hd-bind155561_ _hd155515155556_)) + (if (gx#stx-pair? _tl155516155558_) + (let ((_e155517155563_ + (gx#syntax-e _tl155516155558_))) + (let ((_hd155518155566_ (##car _e155517155563_)) + (_tl155519155568_ (##cdr _e155517155563_))) + (let ((_expr155571_ _hd155518155566_)) + (if (gx#stx-null? _tl155519155568_) (if '#t - (let ((_ehd154412_ + (let ((_ehd155573_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _hd-bind154400_) + _hd-bind155561_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _expr154410_) + _expr155571_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _hd154346_)))) - (_lp154321_ - _rest154345_ - (cons _ehd154412_ _body154324_) - (cons _ehd154412_ _ebody154325_))) - (_E154349154380_)) - (_E154349154380_))))) - (_E154349154380_))))) - (_E154349154380_)) - (_E154349154380_)))) + (gx#stx-source _hd155507_)))) + (_lp155482_ + _rest155506_ + (cons _ehd155573_ _body155485_) + (cons _ehd155573_ _ebody155486_))) + (_E155510155541_)) + (_E155510155541_))))) + (_E155510155541_))))) + (_E155510155541_)) + (_E155510155541_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154349154380_))))) - (_E154348154414_))))) - (if (##pair? _rest154326154334_) - (let ((_hd154331154421_ (##car _rest154326154334_)) - (_tl154332154423_ - (##cdr _rest154326154334_))) - (let* ((_hd154426_ _hd154331154421_) - (_rest154428_ _tl154332154423_)) - (_K154330154418_ _rest154428_ _hd154426_))) - (_else154328154342_))))))) + (_E155510155541_))))) + (_E155509155575_))))) + (if (##pair? _rest155487155495_) + (let ((_hd155492155582_ (##car _rest155487155495_)) + (_tl155493155584_ + (##cdr _rest155487155495_))) + (let* ((_hd155587_ _hd155492155582_) + (_rest155589_ _tl155493155584_)) + (_K155491155579_ _rest155589_ _hd155587_))) + (_else155489155503_))))))) (call-with-parameters (lambda () - (let* ((_rbody154314_ + (let* ((_rbody155475_ (gx#core-expand-block__1 - _stx154308_ - _expand-special154310_ + _stx155469_ + _expand-special155471_ '#f)) - (_g159146_ (_eval-body154311_ _rbody154314_))) + (_g160307_ (_eval-body155472_ _rbody155475_))) (begin - (let ((_g159147_ - (if (##values? _g159146_) - (##vector-length _g159146_) + (let ((_g160308_ + (if (##values? _g160307_) + (##vector-length _g160307_) 1))) - (if (not (##fx= _g159147_ 2)) - (error "Context expects 2 values" _g159147_))) - (let ((_expanded-body154316_ (##vector-ref _g159146_ 0)) - (_value154317_ (##vector-ref _g159146_ 1))) + (if (not (##fx= _g160308_ 2)) + (error "Context expects 2 values" _g160308_))) + (let ((_expanded-body155477_ (##vector-ref _g160307_ 0)) + (_value155478_ (##vector-ref _g160307_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _expanded-body154316_) + (gx#core-cons '%#begin-syntax _expanded-body155477_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _value154317_ '()))) - (gx#stx-source _stx154308_)))))) + (cons _value155478_ '()))) + (gx#stx-source _stx155469_)))))) gx#current-expander-phi (fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_stx154278_) - (let* ((_e154279154286_ _stx154278_) - (_E154281154290_ + (lambda (_stx155439_) + (let* ((_e155440155447_ _stx155439_) + (_E155442155451_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154279154286_))) - (_E154280154304_ + _e155440155447_))) + (_E155441155465_ (lambda () - (if (gx#stx-pair? _e154279154286_) - (let ((_e154282154294_ (gx#syntax-e _e154279154286_))) - (let ((_hd154283154297_ (##car _e154282154294_)) - (_tl154284154299_ (##cdr _e154282154294_))) - (let ((_body154302_ _tl154284154299_)) - (if (gx#stx-list? _body154302_) + (if (gx#stx-pair? _e155440155447_) + (let ((_e155443155455_ (gx#syntax-e _e155440155447_))) + (let ((_hd155444155458_ (##car _e155443155455_)) + (_tl155445155460_ (##cdr _e155443155455_))) + (let ((_body155463_ _tl155445155460_)) + (if (gx#stx-list? _body155463_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _body154302_) - (gx#stx-source _stx154278_)) - (_E154281154290_))))) - (_E154281154290_))))) - (_E154280154304_)))) + (gx#core-cons '%#begin-foreign _body155463_) + (gx#stx-source _stx155439_)) + (_E155442155451_))))) + (_E155442155451_))))) + (_E155441155465_)))) (define gx#core-expand-begin-module% - (lambda (_stx154276_) - (gx#raise-syntax-error '#f '"Illegal expansion" _stx154276_))) + (lambda (_stx155437_) + (gx#raise-syntax-error '#f '"Illegal expansion" _stx155437_))) (define gx#core-expand-begin-annotation% - (lambda (_stx154222_) - (let* ((_e154223154236_ _stx154222_) - (_E154225154240_ + (lambda (_stx155383_) + (let* ((_e155384155397_ _stx155383_) + (_E155386155401_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154223154236_))) - (_E154224154272_ + _e155384155397_))) + (_E155385155433_ (lambda () - (if (gx#stx-pair? _e154223154236_) - (let ((_e154226154244_ (gx#syntax-e _e154223154236_))) - (let ((_hd154227154247_ (##car _e154226154244_)) - (_tl154228154249_ (##cdr _e154226154244_))) - (if (gx#stx-pair? _tl154228154249_) - (let ((_e154229154252_ - (gx#syntax-e _tl154228154249_))) - (let ((_hd154230154255_ - (##car _e154229154252_)) - (_tl154231154257_ - (##cdr _e154229154252_))) - (let ((_ann154260_ _hd154230154255_)) - (if (gx#stx-pair? _tl154231154257_) - (let ((_e154232154262_ - (gx#syntax-e _tl154231154257_))) - (let ((_hd154233154265_ - (##car _e154232154262_)) - (_tl154234154267_ - (##cdr _e154232154262_))) - (let ((_expr154270_ - _hd154233154265_)) + (if (gx#stx-pair? _e155384155397_) + (let ((_e155387155405_ (gx#syntax-e _e155384155397_))) + (let ((_hd155388155408_ (##car _e155387155405_)) + (_tl155389155410_ (##cdr _e155387155405_))) + (if (gx#stx-pair? _tl155389155410_) + (let ((_e155390155413_ + (gx#syntax-e _tl155389155410_))) + (let ((_hd155391155416_ + (##car _e155390155413_)) + (_tl155392155418_ + (##cdr _e155390155413_))) + (let ((_ann155421_ _hd155391155416_)) + (if (gx#stx-pair? _tl155392155418_) + (let ((_e155393155423_ + (gx#syntax-e _tl155392155418_))) + (let ((_hd155394155426_ + (##car _e155393155423_)) + (_tl155395155428_ + (##cdr _e155393155423_))) + (let ((_expr155431_ + _hd155394155426_)) (if (gx#stx-null? - _tl154234154267_) + _tl155395155428_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _ann154260_ + (cons _ann155421_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-expand-expression _expr154270_) + (cons (gx#core-expand-expression _expr155431_) '()))) - (gx#stx-source _stx154222_)) - (_E154225154240_)) + (gx#stx-source _stx155383_)) + (_E155386155401_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154225154240_))))) - (_E154225154240_))))) - (_E154225154240_)))) - (_E154225154240_))))) - (_E154224154272_)))) + (_E155386155401_))))) + (_E155386155401_))))) + (_E155386155401_)))) + (_E155386155401_))))) + (_E155385155433_)))) (define gx#core-expand-local-block - (lambda (_stx153946_ _body153947_) - (letrec ((_expand-special153949_ - (lambda (_hd154217_ _K154218_ _rest154219_ _r154220_) - (_K154218_ + (lambda (_stx155107_ _body155108_) + (letrec ((_expand-special155110_ + (lambda (_hd155378_ _K155379_ _rest155380_ _r155381_) + (_K155379_ '() - (cons (_expand-internal153950_ _hd154217_ _rest154219_) - _r154220_)))) - (_expand-internal153950_ - (lambda (_hd154213_ _rest154214_) + (cons (_expand-internal155111_ _hd155378_ _rest155380_) + _r155381_)))) + (_expand-internal155111_ + (lambda (_hd155374_ _rest155375_) (call-with-parameters (lambda () - (_wrap-internal153952_ + (_wrap-internal155113_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _hd154213_ _rest154214_)) - (gx#stx-source _stx153946_)) - _expand-internal-special153951_ + (cons '%#begin (cons _hd155374_ _rest155375_)) + (gx#stx-source _stx155107_)) + _expand-internal-special155112_ '#f))) gx#current-expander-context - (let ((__obj159140 + (let ((__obj160301 (##structure gx#local-context::t '#f @@ -400,745 +400,745 @@ '#f '#f '#f))) - (gx#local-context:::init! __obj159140) - __obj159140)))) - (_expand-internal-special153951_ - (lambda (_hd154108_ _K154109_ _rest154110_ _r154111_) - (let* ((_e154112154137_ _hd154108_) - (_E154132154141_ + (gx#local-context:::init! __obj160301) + __obj160301)))) + (_expand-internal-special155112_ + (lambda (_hd155269_ _K155270_ _rest155271_ _r155272_) + (let* ((_e155273155298_ _hd155269_) + (_E155293155302_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e154112154137_))) - (_E154128154153_ + _e155273155298_))) + (_E155289155314_ (lambda () - (if (gx#stx-pair? _e154112154137_) - (let ((_e154133154145_ - (gx#syntax-e _e154112154137_))) - (let ((_hd154134154148_ - (##car _e154133154145_)) - (_tl154135154150_ - (##cdr _e154133154145_))) + (if (gx#stx-pair? _e155273155298_) + (let ((_e155294155306_ + (gx#syntax-e _e155273155298_))) + (let ((_hd155295155309_ + (##car _e155294155306_)) + (_tl155296155311_ + (##cdr _e155294155306_))) (if (and (gx#identifier? - _hd154134154148_) + _hd155295155309_) (gx#core-identifier=? - _hd154134154148_ + _hd155295155309_ '%#declare)) (if '#t - (_K154109_ - _rest154110_ + (_K155270_ + _rest155271_ (cons (gx#core-expand-declare% - _hd154108_) - _r154111_)) - (_E154132154141_)) - (_E154132154141_)))) - (_E154132154141_)))) - (_E154124154165_ + _hd155269_) + _r155272_)) + (_E155293155302_)) + (_E155293155302_)))) + (_E155293155302_)))) + (_E155285155326_ (lambda () - (if (gx#stx-pair? _e154112154137_) - (let ((_e154129154157_ - (gx#syntax-e _e154112154137_))) - (let ((_hd154130154160_ - (##car _e154129154157_)) - (_tl154131154162_ - (##cdr _e154129154157_))) + (if (gx#stx-pair? _e155273155298_) + (let ((_e155290155318_ + (gx#syntax-e _e155273155298_))) + (let ((_hd155291155321_ + (##car _e155290155318_)) + (_tl155292155323_ + (##cdr _e155290155318_))) (if (and (gx#identifier? - _hd154130154160_) + _hd155291155321_) (gx#core-identifier=? - _hd154130154160_ + _hd155291155321_ '%#define-alias)) (if '#t (begin (gx#core-expand-define-alias% - _hd154108_) - (_K154109_ - _rest154110_ - _r154111_)) - (_E154128154153_)) - (_E154128154153_)))) - (_E154128154153_)))) - (_E154114154177_ + _hd155269_) + (_K155270_ + _rest155271_ + _r155272_)) + (_E155289155314_)) + (_E155289155314_)))) + (_E155289155314_)))) + (_E155275155338_ (lambda () - (if (gx#stx-pair? _e154112154137_) - (let ((_e154125154169_ - (gx#syntax-e _e154112154137_))) - (let ((_hd154126154172_ - (##car _e154125154169_)) - (_tl154127154174_ - (##cdr _e154125154169_))) + (if (gx#stx-pair? _e155273155298_) + (let ((_e155286155330_ + (gx#syntax-e _e155273155298_))) + (let ((_hd155287155333_ + (##car _e155286155330_)) + (_tl155288155335_ + (##cdr _e155286155330_))) (if (and (gx#identifier? - _hd154126154172_) + _hd155287155333_) (gx#core-identifier=? - _hd154126154172_ + _hd155287155333_ '%#define-syntax)) (if '#t (begin (gx#core-expand-define-syntax% - _hd154108_) - (_K154109_ - _rest154110_ - _r154111_)) - (_E154124154165_)) - (_E154124154165_)))) - (_E154124154165_)))) - (_E154113154209_ + _hd155269_) + (_K155270_ + _rest155271_ + _r155272_)) + (_E155285155326_)) + (_E155285155326_)))) + (_E155285155326_)))) + (_E155274155370_ (lambda () - (if (gx#stx-pair? _e154112154137_) - (let ((_e154115154181_ - (gx#syntax-e _e154112154137_))) - (let ((_hd154116154184_ - (##car _e154115154181_)) - (_tl154117154186_ - (##cdr _e154115154181_))) + (if (gx#stx-pair? _e155273155298_) + (let ((_e155276155342_ + (gx#syntax-e _e155273155298_))) + (let ((_hd155277155345_ + (##car _e155276155342_)) + (_tl155278155347_ + (##cdr _e155276155342_))) (if (and (gx#identifier? - _hd154116154184_) + _hd155277155345_) (gx#core-identifier=? - _hd154116154184_ + _hd155277155345_ '%#define-values)) - (if (gx#stx-pair? _tl154117154186_) - (let ((_e154118154189_ + (if (gx#stx-pair? _tl155278155347_) + (let ((_e155279155350_ (gx#syntax-e - _tl154117154186_))) - (let ((_hd154119154192_ - (##car _e154118154189_)) - (_tl154120154194_ - (##cdr _e154118154189_))) - (let ((_hd-bind154197_ - _hd154119154192_)) + _tl155278155347_))) + (let ((_hd155280155353_ + (##car _e155279155350_)) + (_tl155281155355_ + (##cdr _e155279155350_))) + (let ((_hd-bind155358_ + _hd155280155353_)) (if (gx#stx-pair? - _tl154120154194_) - (let ((_e154121154199_ + _tl155281155355_) + (let ((_e155282155360_ (gx#syntax-e - _tl154120154194_))) - (let ((_hd154122154202_ + _tl155281155355_))) + (let ((_hd155283155363_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e154121154199_)) - (_tl154123154204_ (##cdr _e154121154199_))) - (let ((_expr154207_ _hd154122154202_)) - (if (gx#stx-null? _tl154123154204_) - (if (gx#core-bind-values? _hd-bind154197_) + (##car _e155282155360_)) + (_tl155284155365_ (##cdr _e155282155360_))) + (let ((_expr155368_ _hd155283155363_)) + (if (gx#stx-null? _tl155284155365_) + (if (gx#core-bind-values? _hd-bind155358_) (begin - (gx#core-bind-values!__0 _hd-bind154197_) - (_K154109_ - _rest154110_ - (cons _hd154108_ _r154111_))) - (_E154114154177_)) - (_E154114154177_))))) - (_E154114154177_))))) + (gx#core-bind-values!__0 _hd-bind155358_) + (_K155270_ + _rest155271_ + (cons _hd155269_ _r155272_))) + (_E155275155338_)) + (_E155275155338_))))) + (_E155275155338_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154114154177_)) - (_E154114154177_)))) - (_E154114154177_))))) - (_E154113154209_)))) - (_wrap-internal153952_ - (lambda (_rbody153954_) - (let _lp153956_ ((_rest153958_ _rbody153954_) - (_decls153959_ '()) - (_bind153960_ '()) - (_body153961_ '())) - (let* ((_e153962153969_ _rest153958_) - (_E153964154018_ + (_E155275155338_)) + (_E155275155338_)))) + (_E155275155338_))))) + (_E155274155370_)))) + (_wrap-internal155113_ + (lambda (_rbody155115_) + (let _lp155117_ ((_rest155119_ _rbody155115_) + (_decls155120_ '()) + (_bind155121_ '()) + (_body155122_ '())) + (let* ((_e155123155130_ _rest155119_) + (_E155125155179_ (lambda () - (let* ((_body154013_ - (let* ((_body153972153982_ - _body153961_) - (_else153975153990_ + (let* ((_body155174_ + (let* ((_body155133155143_ + _body155122_) + (_else155136155151_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _body153961_) + _body155122_) (gx#stx-source - _stx153946_))))) - (let ((_K153980154010_ + _stx155107_))))) + (let ((_K155141155171_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _stx153946_))) - (_K153977153996_ - (lambda (_expr153994_) - _expr153994_))) - (let ((_try-match153974154006_ + _stx155107_))) + (_K155138155157_ + (lambda (_expr155155_) + _expr155155_))) + (let ((_try-match155135155167_ (lambda () - (if (##pair? _body153972153982_) - (let ((_tl153979154001_ - (##cdr _body153972153982_)) - (_hd153978153999_ - (##car _body153972153982_))) - (if (##null? _tl153979154001_) - (let ((_expr154004_ + (if (##pair? _body155133155143_) + (let ((_tl155140155162_ + (##cdr _body155133155143_)) + (_hd155139155160_ + (##car _body155133155143_))) + (if (##null? _tl155140155162_) + (let ((_expr155165_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd153978153999_)) - (_K153977153996_ _expr154004_)) - (_else153975153990_))) - (_else153975153990_))))) + _hd155139155160_)) + (_K155138155157_ _expr155165_)) + (_else155136155151_))) + (_else155136155151_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (##null? _body153972153982_) - (_K153980154010_) - (_try-match153974154006_)))))) - (_body154015_ - (if (null? _bind153960_) - _body154013_ + (if (##null? _body155133155143_) + (_K155141155171_) + (_try-match155135155167_)))))) + (_body155176_ + (if (null? _bind155121_) + _body155174_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _bind153960_ - (cons _body154013_ + (cons _bind155121_ + (cons _body155174_ '()))) - (gx#stx-source _stx153946_))))) - (if (null? _decls153959_) - _body154015_ + (gx#stx-source _stx155107_))))) + (if (null? _decls155120_) + _body155176_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _decls153959_ - (cons _body154015_ '()))) - (gx#stx-source _stx153946_)))))) - (_E153963154104_ + (cons _decls155120_ + (cons _body155176_ '()))) + (gx#stx-source _stx155107_)))))) + (_E155124155265_ (lambda () - (if (gx#stx-pair? _e153962153969_) - (let ((_e153965154022_ - (gx#syntax-e _e153962153969_))) - (let ((_hd153966154025_ - (##car _e153965154022_)) - (_tl153967154027_ - (##cdr _e153965154022_))) - (let* ((_hd154030_ _hd153966154025_) - (_rest154032_ _tl153967154027_)) + (if (gx#stx-pair? _e155123155130_) + (let ((_e155126155183_ + (gx#syntax-e _e155123155130_))) + (let ((_hd155127155186_ + (##car _e155126155183_)) + (_tl155128155188_ + (##cdr _e155126155183_))) + (let* ((_hd155191_ _hd155127155186_) + (_rest155193_ _tl155128155188_)) (if '#t - (let* ((_e154033154050_ - _hd154030_) - (_E154045154054_ + (let* ((_e155194155211_ + _hd155191_) + (_E155206155215_ (lambda () - (if (null? _bind153960_) - (_lp153956_ - _rest154032_ - _decls153959_ - _bind153960_ - (cons _hd154030_ + (if (null? _bind155121_) + (_lp155117_ + _rest155193_ + _decls155120_ + _bind155121_ + (cons _hd155191_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body153961_)) - (_lp153956_ - _rest154032_ - _decls153959_ - (cons (cons '#f (cons _hd154030_ '())) _bind153960_) - _body153961_)))) + _body155122_)) + (_lp155117_ + _rest155193_ + _decls155120_ + (cons (cons '#f (cons _hd155191_ '())) _bind155121_) + _body155122_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154035154068_ + (_E155196155229_ (lambda () (if (gx#stx-pair? - _e154033154050_) - (let ((_e154046154058_ + _e155194155211_) + (let ((_e155207155219_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e154033154050_))) - (let ((_hd154047154061_ (##car _e154046154058_)) - (_tl154048154063_ (##cdr _e154046154058_))) - (if (and (gx#identifier? _hd154047154061_) + (gx#syntax-e _e155194155211_))) + (let ((_hd155208155222_ (##car _e155207155219_)) + (_tl155209155224_ (##cdr _e155207155219_))) + (if (and (gx#identifier? _hd155208155222_) (gx#core-identifier=? - _hd154047154061_ + _hd155208155222_ '%#declare)) - (let ((_xdecls154066_ _tl154048154063_)) + (let ((_xdecls155227_ _tl155209155224_)) (if '#t - (_lp153956_ - _rest154032_ + (_lp155117_ + _rest155193_ (gx#stx-foldr cons - _decls153959_ - _xdecls154066_) - _bind153960_ - _body153961_) - (_E154045154054_))) - (_E154045154054_)))) - (_E154045154054_)))) + _decls155120_ + _xdecls155227_) + _bind155121_ + _body155122_) + (_E155206155215_))) + (_E155206155215_)))) + (_E155206155215_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154034154100_ + (_E155195155261_ (lambda () (if (gx#stx-pair? - _e154033154050_) - (let ((_e154036154072_ + _e155194155211_) + (let ((_e155197155233_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _e154033154050_))) - (let ((_hd154037154075_ (##car _e154036154072_)) - (_tl154038154077_ (##cdr _e154036154072_))) - (if (and (gx#identifier? _hd154037154075_) + (gx#syntax-e _e155194155211_))) + (let ((_hd155198155236_ (##car _e155197155233_)) + (_tl155199155238_ (##cdr _e155197155233_))) + (if (and (gx#identifier? _hd155198155236_) (gx#core-identifier=? - _hd154037154075_ + _hd155198155236_ '%#define-values)) - (if (gx#stx-pair? _tl154038154077_) - (let ((_e154039154080_ - (gx#syntax-e _tl154038154077_))) - (let ((_hd154040154083_ - (##car _e154039154080_)) - (_tl154041154085_ - (##cdr _e154039154080_))) - (let ((_hd-bind154088_ _hd154040154083_)) - (if (gx#stx-pair? _tl154041154085_) - (let ((_e154042154090_ + (if (gx#stx-pair? _tl155199155238_) + (let ((_e155200155241_ + (gx#syntax-e _tl155199155238_))) + (let ((_hd155201155244_ + (##car _e155200155241_)) + (_tl155202155246_ + (##cdr _e155200155241_))) + (let ((_hd-bind155249_ _hd155201155244_)) + (if (gx#stx-pair? _tl155202155246_) + (let ((_e155203155251_ (gx#syntax-e - _tl154041154085_))) - (let ((_hd154043154093_ - (##car _e154042154090_)) - (_tl154044154095_ - (##cdr _e154042154090_))) - (let ((_expr154098_ - _hd154043154093_)) + _tl155202155246_))) + (let ((_hd155204155254_ + (##car _e155203155251_)) + (_tl155205155256_ + (##cdr _e155203155251_))) + (let ((_expr155259_ + _hd155204155254_)) (if (gx#stx-null? - _tl154044154095_) + _tl155205155256_) (if '#t - (_lp153956_ - _rest154032_ - _decls153959_ + (_lp155117_ + _rest155193_ + _decls155120_ (cons (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-bind154088_) - (cons (gx#core-expand-expression _expr154098_) + _hd-bind155249_) + (cons (gx#core-expand-expression _expr155259_) '())) - _bind153960_) - _body153961_) - (_E154035154068_)) + _bind155121_) + _body155122_) + (_E155196155229_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154035154068_))))) - (_E154035154068_))))) - (_E154035154068_)) - (_E154035154068_)))) - (_E154035154068_))))) + (_E155196155229_))))) + (_E155196155229_))))) + (_E155196155229_)) + (_E155196155229_)))) + (_E155196155229_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E154034154100_)) - (_E153964154018_))))) - (_E153964154018_))))) - (_E153963154104_)))))) + (_E155195155261_)) + (_E155125155179_))))) + (_E155125155179_))))) + (_E155124155265_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _body153947_) - (gx#stx-source _stx153946_)) - _expand-special153949_)))) + (cons '%#begin _body155108_) + (gx#stx-source _stx155107_)) + _expand-special155110_)))) (define gx#core-expand-declare% - (lambda (_stx153884_) - (let* ((_e153885153892_ _stx153884_) - (_E153887153896_ + (lambda (_stx155045_) + (let* ((_e155046155053_ _stx155045_) + (_E155048155057_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153885153892_))) - (_E153886153942_ + _e155046155053_))) + (_E155047155103_ (lambda () - (if (gx#stx-pair? _e153885153892_) - (let ((_e153888153900_ (gx#syntax-e _e153885153892_))) - (let ((_hd153889153903_ (##car _e153888153900_)) - (_tl153890153905_ (##cdr _e153888153900_))) - (let ((_body153908_ _tl153890153905_)) - (if (gx#stx-list? _body153908_) + (if (gx#stx-pair? _e155046155053_) + (let ((_e155049155061_ (gx#syntax-e _e155046155053_))) + (let ((_hd155050155064_ (##car _e155049155061_)) + (_tl155051155066_ (##cdr _e155049155061_))) + (let ((_body155069_ _tl155051155066_)) + (if (gx#stx-list? _body155069_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_decl153910_) - (let* ((_e153911153918_ _decl153910_) - (_E153913153922_ + (lambda (_decl155071_) + (let* ((_e155072155079_ _decl155071_) + (_E155074155083_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153911153918_))) - (_E153912153938_ + _e155072155079_))) + (_E155073155099_ (lambda () (if (gx#stx-pair? - _e153911153918_) - (let ((_e153914153926_ + _e155072155079_) + (let ((_e155075155087_ (gx#syntax-e - _e153911153918_))) - (let ((_hd153915153929_ - (##car _e153914153926_)) - (_tl153916153931_ - (##cdr _e153914153926_))) - (let* ((_head153934_ - _hd153915153929_) - (_args153936_ - _tl153916153931_)) + _e155072155079_))) + (let ((_hd155076155090_ + (##car _e155075155087_)) + (_tl155077155092_ + (##cdr _e155075155087_))) + (let* ((_head155095_ + _hd155076155090_) + (_args155097_ + _tl155077155092_)) (if (gx#stx-list? - _args153936_) + _args155097_) (gx#stx-map1 gx#core-quote-syntax - _decl153910_) - (_E153913153922_))))) - (_E153913153922_))))) - (_E153912153938_))) - _body153908_)) - (gx#stx-source _stx153884_)) - (_E153887153896_))))) - (_E153887153896_))))) - (_E153886153942_)))) + _decl155071_) + (_E155074155083_))))) + (_E155074155083_))))) + (_E155073155099_))) + _body155069_)) + (gx#stx-source _stx155045_)) + (_E155048155057_))))) + (_E155048155057_))))) + (_E155047155103_)))) (define gx#core-expand-extern% - (lambda (_stx153788_) - (let* ((_e153789153796_ _stx153788_) - (_E153791153800_ + (lambda (_stx154949_) + (let* ((_e154950154957_ _stx154949_) + (_E154952154961_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153789153796_))) - (_E153790153880_ + _e154950154957_))) + (_E154951155041_ (lambda () - (if (gx#stx-pair? _e153789153796_) - (let ((_e153792153804_ (gx#syntax-e _e153789153796_))) - (let ((_hd153793153807_ (##car _e153792153804_)) - (_tl153794153809_ (##cdr _e153792153804_))) - (let ((_body153812_ _tl153794153809_)) + (if (gx#stx-pair? _e154950154957_) + (let ((_e154953154965_ (gx#syntax-e _e154950154957_))) + (let ((_hd154954154968_ (##car _e154953154965_)) + (_tl154955154970_ (##cdr _e154953154965_))) + (let ((_body154973_ _tl154955154970_)) (if '#t - (let _lp153814_ ((_rest153816_ _body153812_) - (_r153817_ '())) - (let* ((_e153818153832_ _rest153816_) - (_E153830153836_ + (let _lp154975_ ((_rest154977_ _body154973_) + (_r154978_ '())) + (let* ((_e154979154993_ _rest154977_) + (_E154991154997_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _stx153788_))) - (_E153820153840_ + _stx154949_))) + (_E154981155001_ (lambda () - (if (gx#stx-null? _e153818153832_) + (if (gx#stx-null? _e154979154993_) (if '#t (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _r153817_)) + (reverse _r154978_)) (gx#stx-source - _stx153788_)) - (_E153830153836_)) - (_E153830153836_)))) - (_E153819153876_ + _stx154949_)) + (_E154991154997_)) + (_E154991154997_)))) + (_E154980155037_ (lambda () - (if (gx#stx-pair? _e153818153832_) - (let ((_e153821153844_ + (if (gx#stx-pair? _e154979154993_) + (let ((_e154982155005_ (gx#syntax-e - _e153818153832_))) - (let ((_hd153822153847_ - (##car _e153821153844_)) - (_tl153823153849_ - (##cdr _e153821153844_))) + _e154979154993_))) + (let ((_hd154983155008_ + (##car _e154982155005_)) + (_tl154984155010_ + (##cdr _e154982155005_))) (if (gx#stx-pair? - _hd153822153847_) - (let ((_e153824153852_ + _hd154983155008_) + (let ((_e154985155013_ (gx#syntax-e - _hd153822153847_))) - (let ((_hd153825153855_ + _hd154983155008_))) + (let ((_hd154986155016_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _e153824153852_)) - (_tl153826153857_ (##cdr _e153824153852_))) - (let ((_id153860_ _hd153825153855_)) - (if (gx#stx-pair? _tl153826153857_) - (let ((_e153827153862_ - (gx#syntax-e _tl153826153857_))) - (let ((_hd153828153865_ (##car _e153827153862_)) - (_tl153829153867_ (##cdr _e153827153862_))) - (let ((_eid153870_ _hd153828153865_)) - (if (gx#stx-null? _tl153829153867_) - (let ((_rest153872_ _tl153823153849_)) - (if (and (gx#identifier? _id153860_) - (gx#identifier? _eid153870_)) - (let ((_eid153874_ - (gx#stx-e _eid153870_))) + (##car _e154985155013_)) + (_tl154987155018_ (##cdr _e154985155013_))) + (let ((_id155021_ _hd154986155016_)) + (if (gx#stx-pair? _tl154987155018_) + (let ((_e154988155023_ + (gx#syntax-e _tl154987155018_))) + (let ((_hd154989155026_ (##car _e154988155023_)) + (_tl154990155028_ (##cdr _e154988155023_))) + (let ((_eid155031_ _hd154989155026_)) + (if (gx#stx-null? _tl154990155028_) + (let ((_rest155033_ _tl154984155010_)) + (if (and (gx#identifier? _id155021_) + (gx#identifier? _eid155031_)) + (let ((_eid155035_ + (gx#stx-e _eid155031_))) (gx#core-bind-extern!__0 - _id153860_ - _eid153874_) - (_lp153814_ - _rest153872_ + _id155021_ + _eid155035_) + (_lp154975_ + _rest155033_ (cons (cons (gx#core-quote-syntax__0 - _id153860_) - (cons _eid153874_ + _id155021_) + (cons _eid155035_ '())) - _r153817_))) - (_E153820153840_))) - (_E153820153840_))))) - (_E153820153840_))))) - (_E153820153840_)))) + _r154978_))) + (_E154981155001_))) + (_E154981155001_))))) + (_E154981155001_))))) + (_E154981155001_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153820153840_))))) - (_E153819153876_))) - (_E153791153800_))))) - (_E153791153800_))))) - (_E153790153880_)))) + (_E154981155001_))))) + (_E154980155037_))) + (_E154952154961_))))) + (_E154952154961_))))) + (_E154951155041_)))) (define gx#core-expand-define-values% - (lambda (_stx153734_) - (let* ((_e153735153748_ _stx153734_) - (_E153737153752_ + (lambda (_stx154895_) + (let* ((_e154896154909_ _stx154895_) + (_E154898154913_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153735153748_))) - (_E153736153784_ + _e154896154909_))) + (_E154897154945_ (lambda () - (if (gx#stx-pair? _e153735153748_) - (let ((_e153738153756_ (gx#syntax-e _e153735153748_))) - (let ((_hd153739153759_ (##car _e153738153756_)) - (_tl153740153761_ (##cdr _e153738153756_))) - (if (gx#stx-pair? _tl153740153761_) - (let ((_e153741153764_ - (gx#syntax-e _tl153740153761_))) - (let ((_hd153742153767_ - (##car _e153741153764_)) - (_tl153743153769_ - (##cdr _e153741153764_))) - (let ((_hd153772_ _hd153742153767_)) - (if (gx#stx-pair? _tl153743153769_) - (let ((_e153744153774_ - (gx#syntax-e _tl153743153769_))) - (let ((_hd153745153777_ - (##car _e153744153774_)) - (_tl153746153779_ - (##cdr _e153744153774_))) - (let ((_expr153782_ - _hd153745153777_)) + (if (gx#stx-pair? _e154896154909_) + (let ((_e154899154917_ (gx#syntax-e _e154896154909_))) + (let ((_hd154900154920_ (##car _e154899154917_)) + (_tl154901154922_ (##cdr _e154899154917_))) + (if (gx#stx-pair? _tl154901154922_) + (let ((_e154902154925_ + (gx#syntax-e _tl154901154922_))) + (let ((_hd154903154928_ + (##car _e154902154925_)) + (_tl154904154930_ + (##cdr _e154902154925_))) + (let ((_hd154933_ _hd154903154928_)) + (if (gx#stx-pair? _tl154904154930_) + (let ((_e154905154935_ + (gx#syntax-e _tl154904154930_))) + (let ((_hd154906154938_ + (##car _e154905154935_)) + (_tl154907154940_ + (##cdr _e154905154935_))) + (let ((_expr154943_ + _hd154906154938_)) (if (gx#stx-null? - _tl153746153779_) + _tl154907154940_) (if (gx#core-bind-values? - _hd153772_) + _hd154933_) (begin (gx#core-bind-values!__0 - _hd153772_) + _hd154933_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd153772_) - (cons (gx#core-expand-expression _expr153782_) + _hd154933_) + (cons (gx#core-expand-expression _expr154943_) '()))) - (gx#stx-source _stx153734_))) - (_E153737153752_)) + (gx#stx-source _stx154895_))) + (_E154898154913_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153737153752_))))) - (_E153737153752_))))) - (_E153737153752_)))) - (_E153737153752_))))) - (_E153736153784_)))) + (_E154898154913_))))) + (_E154898154913_))))) + (_E154898154913_)))) + (_E154898154913_))))) + (_E154897154945_)))) (define gx#core-expand-define-runtime% - (lambda (_stx153678_) - (let* ((_e153679153692_ _stx153678_) - (_E153681153696_ + (lambda (_stx154839_) + (let* ((_e154840154853_ _stx154839_) + (_E154842154857_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153679153692_))) - (_E153680153730_ + _e154840154853_))) + (_E154841154891_ (lambda () - (if (gx#stx-pair? _e153679153692_) - (let ((_e153682153700_ (gx#syntax-e _e153679153692_))) - (let ((_hd153683153703_ (##car _e153682153700_)) - (_tl153684153705_ (##cdr _e153682153700_))) - (if (gx#stx-pair? _tl153684153705_) - (let ((_e153685153708_ - (gx#syntax-e _tl153684153705_))) - (let ((_hd153686153711_ - (##car _e153685153708_)) - (_tl153687153713_ - (##cdr _e153685153708_))) - (let ((_id153716_ _hd153686153711_)) - (if (gx#stx-pair? _tl153687153713_) - (let ((_e153688153718_ - (gx#syntax-e _tl153687153713_))) - (let ((_hd153689153721_ - (##car _e153688153718_)) - (_tl153690153723_ - (##cdr _e153688153718_))) - (let ((_binding-id153726_ - _hd153689153721_)) + (if (gx#stx-pair? _e154840154853_) + (let ((_e154843154861_ (gx#syntax-e _e154840154853_))) + (let ((_hd154844154864_ (##car _e154843154861_)) + (_tl154845154866_ (##cdr _e154843154861_))) + (if (gx#stx-pair? _tl154845154866_) + (let ((_e154846154869_ + (gx#syntax-e _tl154845154866_))) + (let ((_hd154847154872_ + (##car _e154846154869_)) + (_tl154848154874_ + (##cdr _e154846154869_))) + (let ((_id154877_ _hd154847154872_)) + (if (gx#stx-pair? _tl154848154874_) + (let ((_e154849154879_ + (gx#syntax-e _tl154848154874_))) + (let ((_hd154850154882_ + (##car _e154849154879_)) + (_tl154851154884_ + (##cdr _e154849154879_))) + (let ((_binding-id154887_ + _hd154850154882_)) (if (gx#stx-null? - _tl153690153723_) + _tl154851154884_) (if (and (gx#identifier? - _id153716_) + _id154877_) (gx#identifier? - _binding-id153726_)) - (let ((_eid153728_ + _binding-id154887_)) + (let ((_eid154889_ (gx#stx-e - _binding-id153726_))) + _binding-id154887_))) (gx#core-bind-runtime-reference!__0 - _id153716_ - _eid153728_) + _id154877_ + _eid154889_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id153716_) - (cons _eid153728_ '()))))) - (_E153681153696_)) + _id154877_) + (cons _eid154889_ '()))))) + (_E154842154857_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153681153696_))))) - (_E153681153696_))))) - (_E153681153696_)))) - (_E153681153696_))))) - (_E153680153730_)))) + (_E154842154857_))))) + (_E154842154857_))))) + (_E154842154857_)))) + (_E154842154857_))))) + (_E154841154891_)))) (define gx#core-expand-define-syntax% - (lambda (_stx153621_) - (let* ((_e153622153635_ _stx153621_) - (_E153624153639_ + (lambda (_stx154782_) + (let* ((_e154783154796_ _stx154782_) + (_E154785154800_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153622153635_))) - (_E153623153674_ + _e154783154796_))) + (_E154784154835_ (lambda () - (if (gx#stx-pair? _e153622153635_) - (let ((_e153625153643_ (gx#syntax-e _e153622153635_))) - (let ((_hd153626153646_ (##car _e153625153643_)) - (_tl153627153648_ (##cdr _e153625153643_))) - (if (gx#stx-pair? _tl153627153648_) - (let ((_e153628153651_ - (gx#syntax-e _tl153627153648_))) - (let ((_hd153629153654_ - (##car _e153628153651_)) - (_tl153630153656_ - (##cdr _e153628153651_))) - (let ((_id153659_ _hd153629153654_)) - (if (gx#stx-pair? _tl153630153656_) - (let ((_e153631153661_ - (gx#syntax-e _tl153630153656_))) - (let ((_hd153632153664_ - (##car _e153631153661_)) - (_tl153633153666_ - (##cdr _e153631153661_))) - (let ((_expr153669_ - _hd153632153664_)) + (if (gx#stx-pair? _e154783154796_) + (let ((_e154786154804_ (gx#syntax-e _e154783154796_))) + (let ((_hd154787154807_ (##car _e154786154804_)) + (_tl154788154809_ (##cdr _e154786154804_))) + (if (gx#stx-pair? _tl154788154809_) + (let ((_e154789154812_ + (gx#syntax-e _tl154788154809_))) + (let ((_hd154790154815_ + (##car _e154789154812_)) + (_tl154791154817_ + (##cdr _e154789154812_))) + (let ((_id154820_ _hd154790154815_)) + (if (gx#stx-pair? _tl154791154817_) + (let ((_e154792154822_ + (gx#syntax-e _tl154791154817_))) + (let ((_hd154793154825_ + (##car _e154792154822_)) + (_tl154794154827_ + (##cdr _e154792154822_))) + (let ((_expr154830_ + _hd154793154825_)) (if (gx#stx-null? - _tl153633153666_) + _tl154794154827_) (if (gx#identifier? - _id153659_) - (let ((_g159148_ + _id154820_) + (let ((_g160309_ (gx#core-expand-expression+1 - _expr153669_))) + _expr154830_))) (begin - (let ((_g159149_ + (let ((_g160310_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g159148_) - (##vector-length _g159148_) + (if (##values? _g160309_) + (##vector-length _g160309_) 1))) - (if (not (##fx= _g159149_ 2)) - (error "Context expects 2 values" _g159149_))) - (let ((_e-stx153671_ (##vector-ref _g159148_ 0)) - (_e153672_ (##vector-ref _g159148_ 1))) + (if (not (##fx= _g160310_ 2)) + (error "Context expects 2 values" _g160310_))) + (let ((_e-stx154832_ (##vector-ref _g160309_ 0)) + (_e154833_ (##vector-ref _g160309_ 1))) (begin - (gx#core-bind-syntax!__0 _id153659_ _e153672_) + (gx#core-bind-syntax!__0 _id154820_ _e154833_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _id153659_) - (cons _e-stx153671_ '()))) - (gx#stx-source _stx153621_)))))) - (_E153624153639_)) + (cons (gx#core-quote-syntax__0 _id154820_) + (cons _e-stx154832_ '()))) + (gx#stx-source _stx154782_)))))) + (_E154785154800_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153624153639_))))) - (_E153624153639_))))) - (_E153624153639_)))) - (_E153624153639_))))) - (_E153623153674_)))) + (_E154785154800_))))) + (_E154785154800_))))) + (_E154785154800_)))) + (_E154785154800_))))) + (_E154784154835_)))) (define gx#core-expand-define-alias% - (lambda (_stx153565_) - (let* ((_e153566153579_ _stx153565_) - (_E153568153583_ + (lambda (_stx154726_) + (let* ((_e154727154740_ _stx154726_) + (_E154729154744_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153566153579_))) - (_E153567153617_ + _e154727154740_))) + (_E154728154778_ (lambda () - (if (gx#stx-pair? _e153566153579_) - (let ((_e153569153587_ (gx#syntax-e _e153566153579_))) - (let ((_hd153570153590_ (##car _e153569153587_)) - (_tl153571153592_ (##cdr _e153569153587_))) - (if (gx#stx-pair? _tl153571153592_) - (let ((_e153572153595_ - (gx#syntax-e _tl153571153592_))) - (let ((_hd153573153598_ - (##car _e153572153595_)) - (_tl153574153600_ - (##cdr _e153572153595_))) - (let ((_id153603_ _hd153573153598_)) - (if (gx#stx-pair? _tl153574153600_) - (let ((_e153575153605_ - (gx#syntax-e _tl153574153600_))) - (let ((_hd153576153608_ - (##car _e153575153605_)) - (_tl153577153610_ - (##cdr _e153575153605_))) - (let ((_alias-id153613_ - _hd153576153608_)) + (if (gx#stx-pair? _e154727154740_) + (let ((_e154730154748_ (gx#syntax-e _e154727154740_))) + (let ((_hd154731154751_ (##car _e154730154748_)) + (_tl154732154753_ (##cdr _e154730154748_))) + (if (gx#stx-pair? _tl154732154753_) + (let ((_e154733154756_ + (gx#syntax-e _tl154732154753_))) + (let ((_hd154734154759_ + (##car _e154733154756_)) + (_tl154735154761_ + (##cdr _e154733154756_))) + (let ((_id154764_ _hd154734154759_)) + (if (gx#stx-pair? _tl154735154761_) + (let ((_e154736154766_ + (gx#syntax-e _tl154735154761_))) + (let ((_hd154737154769_ + (##car _e154736154766_)) + (_tl154738154771_ + (##cdr _e154736154766_))) + (let ((_alias-id154774_ + _hd154737154769_)) (if (gx#stx-null? - _tl153577153610_) + _tl154738154771_) (if (and (gx#identifier? - _id153603_) + _id154764_) (gx#identifier? - _alias-id153613_)) - (let ((_alias-id153615_ + _alias-id154774_)) + (let ((_alias-id154776_ (gx#core-quote-syntax__0 - _alias-id153613_))) + _alias-id154774_))) (gx#core-bind-alias!__0 - _id153603_ - _alias-id153615_) + _id154764_ + _alias-id154776_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id153603_) - (cons _alias-id153615_ '()))))) - (_E153568153583_)) + _id154764_) + (cons _alias-id154776_ '()))))) + (_E154729154744_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E153568153583_))))) - (_E153568153583_))))) - (_E153568153583_)))) - (_E153568153583_))))) - (_E153567153617_)))) + (_E154729154744_))))) + (_E154729154744_))))) + (_E154729154744_)))) + (_E154729154744_))))) + (_E154728154778_)))) (define gx#core-expand-lambda%__% - (lambda (_stx153508_ _wrap?153509_) - (let* ((_e153510153520_ _stx153508_) - (_E153512153524_ + (lambda (_stx154669_ _wrap?154670_) + (let* ((_e154671154681_ _stx154669_) + (_E154673154685_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153510153520_))) - (_E153511153551_ + _e154671154681_))) + (_E154672154712_ (lambda () - (if (gx#stx-pair? _e153510153520_) - (let ((_e153513153528_ (gx#syntax-e _e153510153520_))) - (let ((_hd153514153531_ (##car _e153513153528_)) - (_tl153515153533_ (##cdr _e153513153528_))) - (if (gx#stx-pair? _tl153515153533_) - (let ((_e153516153536_ - (gx#syntax-e _tl153515153533_))) - (let ((_hd153517153539_ - (##car _e153516153536_)) - (_tl153518153541_ - (##cdr _e153516153536_))) - (let* ((_hd153544_ _hd153517153539_) - (_body153546_ _tl153518153541_)) - (if (gx#core-bind-values? _hd153544_) + (if (gx#stx-pair? _e154671154681_) + (let ((_e154674154689_ (gx#syntax-e _e154671154681_))) + (let ((_hd154675154692_ (##car _e154674154689_)) + (_tl154676154694_ (##cdr _e154674154689_))) + (if (gx#stx-pair? _tl154676154694_) + (let ((_e154677154697_ + (gx#syntax-e _tl154676154694_))) + (let ((_hd154678154700_ + (##car _e154677154697_)) + (_tl154679154702_ + (##cdr _e154677154697_))) + (let* ((_hd154705_ _hd154678154700_) + (_body154707_ _tl154679154702_)) + (if (gx#core-bind-values? _hd154705_) (call-with-parameters (lambda () - (gx#core-bind-values!__0 _hd153544_) - (let ((_body153549_ + (gx#core-bind-values!__0 _hd154705_) + (let ((_body154710_ (cons (gx#core-quote-bind-values - _hd153544_) + _hd154705_) (cons (gx#core-expand-local-block - _stx153508_ - _body153546_) + _stx154669_ + _body154707_) '())))) - (if _wrap?153509_ + (if _wrap?154670_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _body153549_) - (gx#stx-source _stx153508_)) - _body153549_))) + _body154710_) + (gx#stx-source _stx154669_)) + _body154710_))) gx#current-expander-context - (let ((__obj159141 + (let ((__obj160302 (##structure gx#local-context::t '#f @@ -1147,120 +1147,120 @@ '#f '#f))) (gx#local-context:::init! - __obj159141) - __obj159141)) - (_E153512153524_))))) - (_E153512153524_)))) - (_E153512153524_))))) - (_E153511153551_)))) + __obj160302) + __obj160302)) + (_E154673154685_))))) + (_E154673154685_)))) + (_E154673154685_))))) + (_E154672154712_)))) (define gx#core-expand-lambda%__0 - (lambda (_stx153558_) - (let ((_wrap?153560_ '#t)) - (gx#core-expand-lambda%__% _stx153558_ _wrap?153560_)))) + (lambda (_stx154719_) + (let ((_wrap?154721_ '#t)) + (gx#core-expand-lambda%__% _stx154719_ _wrap?154721_)))) (define gx#core-expand-lambda% - (lambda _g159151_ - (let ((_g159150_ (##length _g159151_))) - (cond ((##fx= _g159150_ 1) - (apply (lambda (_stx153558_) - (gx#core-expand-lambda%__0 _stx153558_)) - _g159151_)) - ((##fx= _g159150_ 2) - (apply (lambda (_stx153562_ _wrap?153563_) + (lambda _g160312_ + (let ((_g160311_ (##length _g160312_))) + (cond ((##fx= _g160311_ 1) + (apply (lambda (_stx154719_) + (gx#core-expand-lambda%__0 _stx154719_)) + _g160312_)) + ((##fx= _g160311_ 2) + (apply (lambda (_stx154723_ _wrap?154724_) (gx#core-expand-lambda%__% - _stx153562_ - _wrap?153563_)) - _g159151_)) + _stx154723_ + _wrap?154724_)) + _g160312_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g159151_)))))) + _g160312_)))))) (define gx#core-expand-case-lambda% - (lambda (_stx153472_) - (let* ((_e153473153480_ _stx153472_) - (_E153475153484_ + (lambda (_stx154633_) + (let* ((_e154634154641_ _stx154633_) + (_E154636154645_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153473153480_))) - (_E153474153503_ + _e154634154641_))) + (_E154635154664_ (lambda () - (if (gx#stx-pair? _e153473153480_) - (let ((_e153476153488_ (gx#syntax-e _e153473153480_))) - (let ((_hd153477153491_ (##car _e153476153488_)) - (_tl153478153493_ (##cdr _e153476153488_))) - (let ((_clauses153496_ _tl153478153493_)) - (if (gx#stx-list? _clauses153496_) + (if (gx#stx-pair? _e154634154641_) + (let ((_e154637154649_ (gx#syntax-e _e154634154641_))) + (let ((_hd154638154652_ (##car _e154637154649_)) + (_tl154639154654_ (##cdr _e154637154649_))) + (let ((_clauses154657_ _tl154639154654_)) + (if (gx#stx-list? _clauses154657_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_clause153498_) + (lambda (_clause154659_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _clause153498_) - (let ((_$e153500_ - (gx#stx-source _clause153498_))) - (if _$e153500_ - _$e153500_ - (gx#stx-source _stx153472_)))) + _clause154659_) + (let ((_$e154661_ + (gx#stx-source _clause154659_))) + (if _$e154661_ + _$e154661_ + (gx#stx-source _stx154633_)))) '#f)) - _clauses153496_)) - (gx#stx-source _stx153472_)) - (_E153475153484_))))) - (_E153475153484_))))) - (_E153474153503_)))) + _clauses154657_)) + (gx#stx-source _stx154633_)) + (_E154636154645_))))) + (_E154636154645_))))) + (_E154635154664_)))) (define gx#core-expand-let-values% - (lambda (_stx153426_) - (let* ((_e153427153437_ _stx153426_) - (_E153429153441_ + (lambda (_stx154587_) + (let* ((_e154588154598_ _stx154587_) + (_E154590154602_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153427153437_))) - (_E153428153468_ + _e154588154598_))) + (_E154589154629_ (lambda () - (if (gx#stx-pair? _e153427153437_) - (let ((_e153430153445_ (gx#syntax-e _e153427153437_))) - (let ((_hd153431153448_ (##car _e153430153445_)) - (_tl153432153450_ (##cdr _e153430153445_))) - (if (gx#stx-pair? _tl153432153450_) - (let ((_e153433153453_ - (gx#syntax-e _tl153432153450_))) - (let ((_hd153434153456_ - (##car _e153433153453_)) - (_tl153435153458_ - (##cdr _e153433153453_))) - (let* ((_hd153461_ _hd153434153456_) - (_body153463_ _tl153435153458_)) - (if (gx#core-expand-let-bind? _hd153461_) - (let ((_expressions153465_ + (if (gx#stx-pair? _e154588154598_) + (let ((_e154591154606_ (gx#syntax-e _e154588154598_))) + (let ((_hd154592154609_ (##car _e154591154606_)) + (_tl154593154611_ (##cdr _e154591154606_))) + (if (gx#stx-pair? _tl154593154611_) + (let ((_e154594154614_ + (gx#syntax-e _tl154593154611_))) + (let ((_hd154595154617_ + (##car _e154594154614_)) + (_tl154596154619_ + (##cdr _e154594154614_))) + (let* ((_hd154622_ _hd154595154617_) + (_body154624_ _tl154596154619_)) + (if (gx#core-expand-let-bind? _hd154622_) + (let ((_expressions154626_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd153461_))) + _hd154622_))) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd153461_) + _hd154622_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd153461_ - _expressions153465_) + _hd154622_ + _expressions154626_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _stx153426_ - _body153463_) + _stx154587_ + _body154624_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _stx153426_))) + (gx#stx-source _stx154587_))) gx#current-expander-context - (let ((__obj159142 + (let ((__obj160303 (##structure gx#local-context::t '#f @@ -1269,58 +1269,58 @@ '#f '#f))) (gx#local-context:::init! - __obj159142) - __obj159142))) - (_E153429153441_))))) - (_E153429153441_)))) - (_E153429153441_))))) - (_E153428153468_)))) + __obj160303) + __obj160303))) + (_E154590154602_))))) + (_E154590154602_)))) + (_E154590154602_))))) + (_E154589154629_)))) (define gx#core-expand-letrec-values%__% - (lambda (_stx153371_ _form153372_) - (let* ((_e153373153383_ _stx153371_) - (_E153375153387_ + (lambda (_stx154532_ _form154533_) + (let* ((_e154534154544_ _stx154532_) + (_E154536154548_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153373153383_))) - (_E153374153412_ + _e154534154544_))) + (_E154535154573_ (lambda () - (if (gx#stx-pair? _e153373153383_) - (let ((_e153376153391_ (gx#syntax-e _e153373153383_))) - (let ((_hd153377153394_ (##car _e153376153391_)) - (_tl153378153396_ (##cdr _e153376153391_))) - (if (gx#stx-pair? _tl153378153396_) - (let ((_e153379153399_ - (gx#syntax-e _tl153378153396_))) - (let ((_hd153380153402_ - (##car _e153379153399_)) - (_tl153381153404_ - (##cdr _e153379153399_))) - (let* ((_hd153407_ _hd153380153402_) - (_body153409_ _tl153381153404_)) - (if (gx#core-expand-let-bind? _hd153407_) + (if (gx#stx-pair? _e154534154544_) + (let ((_e154537154552_ (gx#syntax-e _e154534154544_))) + (let ((_hd154538154555_ (##car _e154537154552_)) + (_tl154539154557_ (##cdr _e154537154552_))) + (if (gx#stx-pair? _tl154539154557_) + (let ((_e154540154560_ + (gx#syntax-e _tl154539154557_))) + (let ((_hd154541154563_ + (##car _e154540154560_)) + (_tl154542154565_ + (##cdr _e154540154560_))) + (let* ((_hd154568_ _hd154541154563_) + (_body154570_ _tl154542154565_)) + (if (gx#core-expand-let-bind? _hd154568_) (call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _hd153407_) + _hd154568_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _form153372_) + _form154533_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _hd153407_ + _hd154568_ (gx#stx-map1 gx#core-expand-let-bind-expression - _hd153407_)) + _hd154568_)) (cons (gx#core-expand-local-block - _stx153371_ - _body153409_) + _stx154532_ + _body154570_) '()))) - (gx#stx-source _stx153371_))) + (gx#stx-source _stx154532_))) gx#current-expander-context - (let ((__obj159143 + (let ((__obj160304 (##structure gx#local-context::t '#f @@ -1329,208 +1329,208 @@ '#f '#f))) (gx#local-context:::init! - __obj159143) - __obj159143)) - (_E153375153387_))))) - (_E153375153387_)))) - (_E153375153387_))))) - (_E153374153412_)))) + __obj160304) + __obj160304)) + (_E154536154548_))))) + (_E154536154548_)))) + (_E154536154548_))))) + (_E154535154573_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_stx153419_) - (let ((_form153421_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _stx153419_ _form153421_)))) + (lambda (_stx154580_) + (let ((_form154582_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _stx154580_ _form154582_)))) (define gx#core-expand-letrec-values% - (lambda _g159153_ - (let ((_g159152_ (##length _g159153_))) - (cond ((##fx= _g159152_ 1) - (apply (lambda (_stx153419_) - (gx#core-expand-letrec-values%__0 _stx153419_)) - _g159153_)) - ((##fx= _g159152_ 2) - (apply (lambda (_stx153423_ _form153424_) + (lambda _g160314_ + (let ((_g160313_ (##length _g160314_))) + (cond ((##fx= _g160313_ 1) + (apply (lambda (_stx154580_) + (gx#core-expand-letrec-values%__0 _stx154580_)) + _g160314_)) + ((##fx= _g160313_ 2) + (apply (lambda (_stx154584_ _form154585_) (gx#core-expand-letrec-values%__% - _stx153423_ - _form153424_)) - _g159153_)) + _stx154584_ + _form154585_)) + _g160314_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g159153_)))))) + _g160314_)))))) (define gx#core-expand-letrec*-values% - (lambda (_stx153368_) - (gx#core-expand-letrec-values%__% _stx153368_ '%#letrec*-values))) + (lambda (_stx154529_) + (gx#core-expand-letrec-values%__% _stx154529_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_stx153325_) - (if (gx#stx-list? _stx153325_) + (lambda (_stx154486_) + (if (gx#stx-list? _stx154486_) (gx#stx-andmap - (lambda (_bind153327_) - (let* ((_e153328153338_ _bind153327_) - (_E153330153342_ (lambda () '#f)) - (_E153329153364_ + (lambda (_bind154488_) + (let* ((_e154489154499_ _bind154488_) + (_E154491154503_ (lambda () '#f)) + (_E154490154525_ (lambda () - (if (gx#stx-pair? _e153328153338_) - (let ((_e153331153346_ - (gx#syntax-e _e153328153338_))) - (let ((_hd153332153349_ (##car _e153331153346_)) - (_tl153333153351_ - (##cdr _e153331153346_))) - (let ((_hd153354_ _hd153332153349_)) - (if (gx#stx-pair? _tl153333153351_) - (let ((_e153334153356_ - (gx#syntax-e _tl153333153351_))) - (let ((_hd153335153359_ - (##car _e153334153356_)) - (_tl153336153361_ - (##cdr _e153334153356_))) - (if (gx#stx-null? _tl153336153361_) + (if (gx#stx-pair? _e154489154499_) + (let ((_e154492154507_ + (gx#syntax-e _e154489154499_))) + (let ((_hd154493154510_ (##car _e154492154507_)) + (_tl154494154512_ + (##cdr _e154492154507_))) + (let ((_hd154515_ _hd154493154510_)) + (if (gx#stx-pair? _tl154494154512_) + (let ((_e154495154517_ + (gx#syntax-e _tl154494154512_))) + (let ((_hd154496154520_ + (##car _e154495154517_)) + (_tl154497154522_ + (##cdr _e154495154517_))) + (if (gx#stx-null? _tl154497154522_) (if '#t (gx#core-bind-values? - _hd153354_) - (_E153330153342_)) - (_E153330153342_)))) - (_E153330153342_))))) - (_E153330153342_))))) - (_E153329153364_))) - _stx153325_) + _hd154515_) + (_E154491154503_)) + (_E154491154503_)))) + (_E154491154503_))))) + (_E154491154503_))))) + (_E154490154525_))) + _stx154486_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_bind153284_) - (let* ((_e153285153295_ _bind153284_) - (_E153287153299_ + (lambda (_bind154445_) + (let* ((_e154446154456_ _bind154445_) + (_E154448154460_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153285153295_))) - (_E153286153321_ + _e154446154456_))) + (_E154447154482_ (lambda () - (if (gx#stx-pair? _e153285153295_) - (let ((_e153288153303_ (gx#syntax-e _e153285153295_))) - (let ((_hd153289153306_ (##car _e153288153303_)) - (_tl153290153308_ (##cdr _e153288153303_))) - (if (gx#stx-pair? _tl153290153308_) - (let ((_e153291153311_ - (gx#syntax-e _tl153290153308_))) - (let ((_hd153292153314_ - (##car _e153291153311_)) - (_tl153293153316_ - (##cdr _e153291153311_))) - (let ((_expr153319_ _hd153292153314_)) - (if (gx#stx-null? _tl153293153316_) + (if (gx#stx-pair? _e154446154456_) + (let ((_e154449154464_ (gx#syntax-e _e154446154456_))) + (let ((_hd154450154467_ (##car _e154449154464_)) + (_tl154451154469_ (##cdr _e154449154464_))) + (if (gx#stx-pair? _tl154451154469_) + (let ((_e154452154472_ + (gx#syntax-e _tl154451154469_))) + (let ((_hd154453154475_ + (##car _e154452154472_)) + (_tl154454154477_ + (##cdr _e154452154472_))) + (let ((_expr154480_ _hd154453154475_)) + (if (gx#stx-null? _tl154454154477_) (if '#t (gx#core-expand-expression - _expr153319_) - (_E153287153299_)) - (_E153287153299_))))) - (_E153287153299_)))) - (_E153287153299_))))) - (_E153286153321_)))) + _expr154480_) + (_E154448154460_)) + (_E154448154460_))))) + (_E154448154460_)))) + (_E154448154460_))))) + (_E154447154482_)))) (define gx#core-expand-let-bind-values! - (lambda (_bind153243_) - (let* ((_e153244153254_ _bind153243_) - (_E153246153258_ + (lambda (_bind154404_) + (let* ((_e154405154415_ _bind154404_) + (_E154407154419_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153244153254_))) - (_E153245153280_ + _e154405154415_))) + (_E154406154441_ (lambda () - (if (gx#stx-pair? _e153244153254_) - (let ((_e153247153262_ (gx#syntax-e _e153244153254_))) - (let ((_hd153248153265_ (##car _e153247153262_)) - (_tl153249153267_ (##cdr _e153247153262_))) - (let ((_hd153270_ _hd153248153265_)) - (if (gx#stx-pair? _tl153249153267_) - (let ((_e153250153272_ - (gx#syntax-e _tl153249153267_))) - (let ((_hd153251153275_ - (##car _e153250153272_)) - (_tl153252153277_ - (##cdr _e153250153272_))) - (if (gx#stx-null? _tl153252153277_) + (if (gx#stx-pair? _e154405154415_) + (let ((_e154408154423_ (gx#syntax-e _e154405154415_))) + (let ((_hd154409154426_ (##car _e154408154423_)) + (_tl154410154428_ (##cdr _e154408154423_))) + (let ((_hd154431_ _hd154409154426_)) + (if (gx#stx-pair? _tl154410154428_) + (let ((_e154411154433_ + (gx#syntax-e _tl154410154428_))) + (let ((_hd154412154436_ + (##car _e154411154433_)) + (_tl154413154438_ + (##cdr _e154411154433_))) + (if (gx#stx-null? _tl154413154438_) (if '#t (gx#core-bind-values!__0 - _hd153270_) - (_E153246153258_)) - (_E153246153258_)))) - (_E153246153258_))))) - (_E153246153258_))))) - (_E153245153280_)))) + _hd154431_) + (_E154407154419_)) + (_E154407154419_)))) + (_E154407154419_))))) + (_E154407154419_))))) + (_E154406154441_)))) (define gx#core-expand-let-bind-quote - (lambda (_bind153201_ _expr153202_) - (let* ((_e153203153213_ _bind153201_) - (_E153205153217_ + (lambda (_bind154362_ _expr154363_) + (let* ((_e154364154374_ _bind154362_) + (_E154366154378_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153203153213_))) - (_E153204153239_ + _e154364154374_))) + (_E154365154400_ (lambda () - (if (gx#stx-pair? _e153203153213_) - (let ((_e153206153221_ (gx#syntax-e _e153203153213_))) - (let ((_hd153207153224_ (##car _e153206153221_)) - (_tl153208153226_ (##cdr _e153206153221_))) - (let ((_hd153229_ _hd153207153224_)) - (if (gx#stx-pair? _tl153208153226_) - (let ((_e153209153231_ - (gx#syntax-e _tl153208153226_))) - (let ((_hd153210153234_ - (##car _e153209153231_)) - (_tl153211153236_ - (##cdr _e153209153231_))) - (if (gx#stx-null? _tl153211153236_) + (if (gx#stx-pair? _e154364154374_) + (let ((_e154367154382_ (gx#syntax-e _e154364154374_))) + (let ((_hd154368154385_ (##car _e154367154382_)) + (_tl154369154387_ (##cdr _e154367154382_))) + (let ((_hd154390_ _hd154368154385_)) + (if (gx#stx-pair? _tl154369154387_) + (let ((_e154370154392_ + (gx#syntax-e _tl154369154387_))) + (let ((_hd154371154395_ + (##car _e154370154392_)) + (_tl154372154397_ + (##cdr _e154370154392_))) + (if (gx#stx-null? _tl154372154397_) (if '#t (cons (gx#core-quote-bind-values - _hd153229_) - (cons _expr153202_ '())) - (_E153205153217_)) - (_E153205153217_)))) - (_E153205153217_))))) - (_E153205153217_))))) - (_E153204153239_)))) + _hd154390_) + (cons _expr154363_ '())) + (_E154366154378_)) + (_E154366154378_)))) + (_E154366154378_))))) + (_E154366154378_))))) + (_E154365154400_)))) (define gx#core-expand-let-syntax% - (lambda (_stx153155_) - (let* ((_e153156153166_ _stx153155_) - (_E153158153170_ + (lambda (_stx154316_) + (let* ((_e154317154327_ _stx154316_) + (_E154319154331_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153156153166_))) - (_E153157153197_ + _e154317154327_))) + (_E154318154358_ (lambda () - (if (gx#stx-pair? _e153156153166_) - (let ((_e153159153174_ (gx#syntax-e _e153156153166_))) - (let ((_hd153160153177_ (##car _e153159153174_)) - (_tl153161153179_ (##cdr _e153159153174_))) - (if (gx#stx-pair? _tl153161153179_) - (let ((_e153162153182_ - (gx#syntax-e _tl153161153179_))) - (let ((_hd153163153185_ - (##car _e153162153182_)) - (_tl153164153187_ - (##cdr _e153162153182_))) - (let* ((_hd153190_ _hd153163153185_) - (_body153192_ _tl153164153187_)) + (if (gx#stx-pair? _e154317154327_) + (let ((_e154320154335_ (gx#syntax-e _e154317154327_))) + (let ((_hd154321154338_ (##car _e154320154335_)) + (_tl154322154340_ (##cdr _e154320154335_))) + (if (gx#stx-pair? _tl154322154340_) + (let ((_e154323154343_ + (gx#syntax-e _tl154322154340_))) + (let ((_hd154324154346_ + (##car _e154323154343_)) + (_tl154325154348_ + (##cdr _e154323154343_))) + (let* ((_hd154351_ _hd154324154346_) + (_body154353_ _tl154325154348_)) (if (gx#core-expand-let-bind-syntax? - _hd153190_) - (let ((_expanders153194_ + _hd154351_) + (let ((_expanders154355_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd153190_))) + _hd154351_))) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd153190_ - _expanders153194_) + _hd154351_ + _expanders154355_) (gx#core-expand-local-block - _stx153155_ - _body153192_)) + _stx154316_ + _body154353_)) gx#current-expander-context - (let ((__obj159144 + (let ((__obj160305 (##structure gx#local-context::t '#f @@ -1539,62 +1539,62 @@ '#f '#f))) (gx#local-context:::init! - __obj159144) - __obj159144))) - (_E153158153170_))))) - (_E153158153170_)))) - (_E153158153170_))))) - (_E153157153197_)))) + __obj160305) + __obj160305))) + (_E154319154331_))))) + (_E154319154331_)))) + (_E154319154331_))))) + (_E154318154358_)))) (define gx#core-expand-letrec-syntax% - (lambda (_stx153104_) - (let* ((_e153105153115_ _stx153104_) - (_E153107153119_ + (lambda (_stx154265_) + (let* ((_e154266154276_ _stx154265_) + (_E154268154280_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153105153115_))) - (_E153106153151_ + _e154266154276_))) + (_E154267154312_ (lambda () - (if (gx#stx-pair? _e153105153115_) - (let ((_e153108153123_ (gx#syntax-e _e153105153115_))) - (let ((_hd153109153126_ (##car _e153108153123_)) - (_tl153110153128_ (##cdr _e153108153123_))) - (if (gx#stx-pair? _tl153110153128_) - (let ((_e153111153131_ - (gx#syntax-e _tl153110153128_))) - (let ((_hd153112153134_ - (##car _e153111153131_)) - (_tl153113153136_ - (##cdr _e153111153131_))) - (let* ((_hd153139_ _hd153112153134_) - (_body153141_ _tl153113153136_)) + (if (gx#stx-pair? _e154266154276_) + (let ((_e154269154284_ (gx#syntax-e _e154266154276_))) + (let ((_hd154270154287_ (##car _e154269154284_)) + (_tl154271154289_ (##cdr _e154269154284_))) + (if (gx#stx-pair? _tl154271154289_) + (let ((_e154272154292_ + (gx#syntax-e _tl154271154289_))) + (let ((_hd154273154295_ + (##car _e154272154292_)) + (_tl154274154297_ + (##cdr _e154272154292_))) + (let* ((_hd154300_ _hd154273154295_) + (_body154302_ _tl154274154297_)) (if (gx#core-expand-let-bind-syntax? - _hd153139_) + _hd154300_) (call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _hd153139_ + _hd154300_ (make-list - (gx#stx-length _hd153139_) + (gx#stx-length _hd154300_) '#!void)) (gx#stx-for-each2 - (lambda (_g153143153146_ - _g153144153148_) + (lambda (_g154304154307_ + _g154305154309_) (gx#core-expand-let-bind-syntax!__% - _g153143153146_ - _g153144153148_ + _g154304154307_ + _g154305154309_ '#t)) - _hd153139_ + _hd154300_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _hd153139_)) + _hd154300_)) (gx#core-expand-local-block - _stx153104_ - _body153141_)) + _stx154265_ + _body154302_)) gx#current-expander-context - (let ((__obj159145 + (let ((__obj160306 (##structure gx#local-context::t '#f @@ -1603,1928 +1603,1928 @@ '#f '#f))) (gx#local-context:::init! - __obj159145) - __obj159145)) - (_E153107153119_))))) - (_E153107153119_)))) - (_E153107153119_))))) - (_E153106153151_)))) + __obj160306) + __obj160306)) + (_E154268154280_))))) + (_E154268154280_)))) + (_E154268154280_))))) + (_E154267154312_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_stx153061_) - (if (gx#stx-list? _stx153061_) + (lambda (_stx154222_) + (if (gx#stx-list? _stx154222_) (gx#stx-andmap - (lambda (_bind153063_) - (let* ((_e153064153074_ _bind153063_) - (_E153066153078_ (lambda () '#f)) - (_E153065153100_ + (lambda (_bind154224_) + (let* ((_e154225154235_ _bind154224_) + (_E154227154239_ (lambda () '#f)) + (_E154226154261_ (lambda () - (if (gx#stx-pair? _e153064153074_) - (let ((_e153067153082_ - (gx#syntax-e _e153064153074_))) - (let ((_hd153068153085_ (##car _e153067153082_)) - (_tl153069153087_ - (##cdr _e153067153082_))) - (let ((_hd153090_ _hd153068153085_)) - (if (gx#stx-pair? _tl153069153087_) - (let ((_e153070153092_ - (gx#syntax-e _tl153069153087_))) - (let ((_hd153071153095_ - (##car _e153070153092_)) - (_tl153072153097_ - (##cdr _e153070153092_))) - (if (gx#stx-null? _tl153072153097_) + (if (gx#stx-pair? _e154225154235_) + (let ((_e154228154243_ + (gx#syntax-e _e154225154235_))) + (let ((_hd154229154246_ (##car _e154228154243_)) + (_tl154230154248_ + (##cdr _e154228154243_))) + (let ((_hd154251_ _hd154229154246_)) + (if (gx#stx-pair? _tl154230154248_) + (let ((_e154231154253_ + (gx#syntax-e _tl154230154248_))) + (let ((_hd154232154256_ + (##car _e154231154253_)) + (_tl154233154258_ + (##cdr _e154231154253_))) + (if (gx#stx-null? _tl154233154258_) (if '#t - (gx#identifier? _hd153090_) - (_E153066153078_)) - (_E153066153078_)))) - (_E153066153078_))))) - (_E153066153078_))))) - (_E153065153100_))) - _stx153061_) + (gx#identifier? _hd154251_) + (_E154227154239_)) + (_E154227154239_)))) + (_E154227154239_))))) + (_E154227154239_))))) + (_E154226154261_))) + _stx154222_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_bind153018_) - (let* ((_e153019153029_ _bind153018_) - (_E153021153033_ + (lambda (_bind154179_) + (let* ((_e154180154190_ _bind154179_) + (_E154182154194_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e153019153029_))) - (_E153020153057_ + _e154180154190_))) + (_E154181154218_ (lambda () - (if (gx#stx-pair? _e153019153029_) - (let ((_e153022153037_ (gx#syntax-e _e153019153029_))) - (let ((_hd153023153040_ (##car _e153022153037_)) - (_tl153024153042_ (##cdr _e153022153037_))) - (if (gx#stx-pair? _tl153024153042_) - (let ((_e153025153045_ - (gx#syntax-e _tl153024153042_))) - (let ((_hd153026153048_ - (##car _e153025153045_)) - (_tl153027153050_ - (##cdr _e153025153045_))) - (let ((_expr153053_ _hd153026153048_)) - (if (gx#stx-null? _tl153027153050_) + (if (gx#stx-pair? _e154180154190_) + (let ((_e154183154198_ (gx#syntax-e _e154180154190_))) + (let ((_hd154184154201_ (##car _e154183154198_)) + (_tl154185154203_ (##cdr _e154183154198_))) + (if (gx#stx-pair? _tl154185154203_) + (let ((_e154186154206_ + (gx#syntax-e _tl154185154203_))) + (let ((_hd154187154209_ + (##car _e154186154206_)) + (_tl154188154211_ + (##cdr _e154186154206_))) + (let ((_expr154214_ _hd154187154209_)) + (if (gx#stx-null? _tl154188154211_) (if '#t - (let ((_g159154_ + (let ((_g160315_ (gx#core-expand-expression+1 - _expr153053_))) + _expr154214_))) (begin - (let ((_g159155_ + (let ((_g160316_ (if (##values? - _g159154_) + _g160315_) (##vector-length - _g159154_) + _g160315_) 1))) - (if (not (##fx= _g159155_ 2)) + (if (not (##fx= _g160316_ 2)) (error "Context expects 2 values" - _g159155_))) - (let ((_e153055_ + _g160316_))) + (let ((_e154216_ (##vector-ref - _g159154_ + _g160315_ 1))) - _e153055_))) - (_E153021153033_)) - (_E153021153033_))))) - (_E153021153033_)))) - (_E153021153033_))))) - (_E153020153057_)))) + _e154216_))) + (_E154182154194_)) + (_E154182154194_))))) + (_E154182154194_)))) + (_E154182154194_))))) + (_E154181154218_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_bind152963_ _e152964_ _rebind?152965_) - (let* ((_e152966152976_ _bind152963_) - (_E152968152980_ + (lambda (_bind154124_ _e154125_ _rebind?154126_) + (let* ((_e154127154137_ _bind154124_) + (_E154129154141_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152966152976_))) - (_E152967153002_ + _e154127154137_))) + (_E154128154163_ (lambda () - (if (gx#stx-pair? _e152966152976_) - (let ((_e152969152984_ (gx#syntax-e _e152966152976_))) - (let ((_hd152970152987_ (##car _e152969152984_)) - (_tl152971152989_ (##cdr _e152969152984_))) - (let ((_id152992_ _hd152970152987_)) - (if (gx#stx-pair? _tl152971152989_) - (let ((_e152972152994_ - (gx#syntax-e _tl152971152989_))) - (let ((_hd152973152997_ - (##car _e152972152994_)) - (_tl152974152999_ - (##cdr _e152972152994_))) - (if (gx#stx-null? _tl152974152999_) + (if (gx#stx-pair? _e154127154137_) + (let ((_e154130154145_ (gx#syntax-e _e154127154137_))) + (let ((_hd154131154148_ (##car _e154130154145_)) + (_tl154132154150_ (##cdr _e154130154145_))) + (let ((_id154153_ _hd154131154148_)) + (if (gx#stx-pair? _tl154132154150_) + (let ((_e154133154155_ + (gx#syntax-e _tl154132154150_))) + (let ((_hd154134154158_ + (##car _e154133154155_)) + (_tl154135154160_ + (##cdr _e154133154155_))) + (if (gx#stx-null? _tl154135154160_) (if '#t (gx#core-bind-syntax!__1 - _id152992_ - _e152964_ - _rebind?152965_) - (_E152968152980_)) - (_E152968152980_)))) - (_E152968152980_))))) - (_E152968152980_))))) - (_E152967153002_)))) + _id154153_ + _e154125_ + _rebind?154126_) + (_E154129154141_)) + (_E154129154141_)))) + (_E154129154141_))))) + (_E154129154141_))))) + (_E154128154163_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_bind153009_ _e153010_) - (let ((_rebind?153012_ '#f)) + (lambda (_bind154170_ _e154171_) + (let ((_rebind?154173_ '#f)) (gx#core-expand-let-bind-syntax!__% - _bind153009_ - _e153010_ - _rebind?153012_)))) + _bind154170_ + _e154171_ + _rebind?154173_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g159157_ - (let ((_g159156_ (##length _g159157_))) - (cond ((##fx= _g159156_ 2) - (apply (lambda (_bind153009_ _e153010_) + (lambda _g160318_ + (let ((_g160317_ (##length _g160318_))) + (cond ((##fx= _g160317_ 2) + (apply (lambda (_bind154170_ _e154171_) (gx#core-expand-let-bind-syntax!__0 - _bind153009_ - _e153010_)) - _g159157_)) - ((##fx= _g159156_ 3) - (apply (lambda (_bind153014_ _e153015_ _rebind?153016_) + _bind154170_ + _e154171_)) + _g160318_)) + ((##fx= _g160317_ 3) + (apply (lambda (_bind154175_ _e154176_ _rebind?154177_) (gx#core-expand-let-bind-syntax!__% - _bind153014_ - _e153015_ - _rebind?153016_)) - _g159157_)) + _bind154175_ + _e154176_ + _rebind?154177_)) + _g160318_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g159157_)))))) + _g160318_)))))) (define gx#core-expand-expression% - (lambda (_stx152921_) - (let* ((_e152922152932_ _stx152921_) - (_E152924152936_ + (lambda (_stx154082_) + (let* ((_e154083154093_ _stx154082_) + (_E154085154097_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152922152932_))) - (_E152923152958_ + _e154083154093_))) + (_E154084154119_ (lambda () - (if (gx#stx-pair? _e152922152932_) - (let ((_e152925152940_ (gx#syntax-e _e152922152932_))) - (let ((_hd152926152943_ (##car _e152925152940_)) - (_tl152927152945_ (##cdr _e152925152940_))) - (if (gx#stx-pair? _tl152927152945_) - (let ((_e152928152948_ - (gx#syntax-e _tl152927152945_))) - (let ((_hd152929152951_ - (##car _e152928152948_)) - (_tl152930152953_ - (##cdr _e152928152948_))) - (let ((_expr152956_ _hd152929152951_)) - (if (gx#stx-null? _tl152930152953_) + (if (gx#stx-pair? _e154083154093_) + (let ((_e154086154101_ (gx#syntax-e _e154083154093_))) + (let ((_hd154087154104_ (##car _e154086154101_)) + (_tl154088154106_ (##cdr _e154086154101_))) + (if (gx#stx-pair? _tl154088154106_) + (let ((_e154089154109_ + (gx#syntax-e _tl154088154106_))) + (let ((_hd154090154112_ + (##car _e154089154109_)) + (_tl154091154114_ + (##cdr _e154089154109_))) + (let ((_expr154117_ _hd154090154112_)) + (if (gx#stx-null? _tl154091154114_) (if '#t (gx#core-expand-expression - _expr152956_) - (_E152924152936_)) - (_E152924152936_))))) - (_E152924152936_)))) - (_E152924152936_))))) - (_E152923152958_)))) + _expr154117_) + (_E154085154097_)) + (_E154085154097_))))) + (_E154085154097_)))) + (_E154085154097_))))) + (_E154084154119_)))) (define gx#core-expand-quote% - (lambda (_stx152880_) - (let* ((_e152881152891_ _stx152880_) - (_E152883152895_ + (lambda (_stx154041_) + (let* ((_e154042154052_ _stx154041_) + (_E154044154056_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152881152891_))) - (_E152882152917_ + _e154042154052_))) + (_E154043154078_ (lambda () - (if (gx#stx-pair? _e152881152891_) - (let ((_e152884152899_ (gx#syntax-e _e152881152891_))) - (let ((_hd152885152902_ (##car _e152884152899_)) - (_tl152886152904_ (##cdr _e152884152899_))) - (if (gx#stx-pair? _tl152886152904_) - (let ((_e152887152907_ - (gx#syntax-e _tl152886152904_))) - (let ((_hd152888152910_ - (##car _e152887152907_)) - (_tl152889152912_ - (##cdr _e152887152907_))) - (let ((_e152915_ _hd152888152910_)) - (if (gx#stx-null? _tl152889152912_) + (if (gx#stx-pair? _e154042154052_) + (let ((_e154045154060_ (gx#syntax-e _e154042154052_))) + (let ((_hd154046154063_ (##car _e154045154060_)) + (_tl154047154065_ (##cdr _e154045154060_))) + (if (gx#stx-pair? _tl154047154065_) + (let ((_e154048154068_ + (gx#syntax-e _tl154047154065_))) + (let ((_hd154049154071_ + (##car _e154048154068_)) + (_tl154050154073_ + (##cdr _e154048154068_))) + (let ((_e154076_ _hd154049154071_)) + (if (gx#stx-null? _tl154050154073_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _e152915_) + _e154076_) '())) - (gx#stx-source _stx152880_)) - (_E152883152895_)) - (_E152883152895_))))) - (_E152883152895_)))) - (_E152883152895_))))) - (_E152882152917_)))) + (gx#stx-source _stx154041_)) + (_E154044154056_)) + (_E154044154056_))))) + (_E154044154056_)))) + (_E154044154056_))))) + (_E154043154078_)))) (define gx#core-expand-quote-syntax% - (lambda (_stx152839_) - (let* ((_e152840152850_ _stx152839_) - (_E152842152854_ + (lambda (_stx154000_) + (let* ((_e154001154011_ _stx154000_) + (_E154003154015_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152840152850_))) - (_E152841152876_ + _e154001154011_))) + (_E154002154037_ (lambda () - (if (gx#stx-pair? _e152840152850_) - (let ((_e152843152858_ (gx#syntax-e _e152840152850_))) - (let ((_hd152844152861_ (##car _e152843152858_)) - (_tl152845152863_ (##cdr _e152843152858_))) - (if (gx#stx-pair? _tl152845152863_) - (let ((_e152846152866_ - (gx#syntax-e _tl152845152863_))) - (let ((_hd152847152869_ - (##car _e152846152866_)) - (_tl152848152871_ - (##cdr _e152846152866_))) - (let ((_e152874_ _hd152847152869_)) - (if (gx#stx-null? _tl152848152871_) + (if (gx#stx-pair? _e154001154011_) + (let ((_e154004154019_ (gx#syntax-e _e154001154011_))) + (let ((_hd154005154022_ (##car _e154004154019_)) + (_tl154006154024_ (##cdr _e154004154019_))) + (if (gx#stx-pair? _tl154006154024_) + (let ((_e154007154027_ + (gx#syntax-e _tl154006154024_))) + (let ((_hd154008154030_ + (##car _e154007154027_)) + (_tl154009154032_ + (##cdr _e154007154027_))) + (let ((_e154035_ _hd154008154030_)) + (if (gx#stx-null? _tl154009154032_) (if '#t (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _e152874_) + _e154035_) '())) - (gx#stx-source _stx152839_)) - (_E152842152854_)) - (_E152842152854_))))) - (_E152842152854_)))) - (_E152842152854_))))) - (_E152841152876_)))) + (gx#stx-source _stx154000_)) + (_E154003154015_)) + (_E154003154015_))))) + (_E154003154015_)))) + (_E154003154015_))))) + (_E154002154037_)))) (define gx#core-expand-call% - (lambda (_stx152796_) - (let* ((_e152797152807_ _stx152796_) - (_E152799152811_ + (lambda (_stx153957_) + (let* ((_e153958153968_ _stx153957_) + (_E153960153972_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152797152807_))) - (_E152798152835_ + _e153958153968_))) + (_E153959153996_ (lambda () - (if (gx#stx-pair? _e152797152807_) - (let ((_e152800152815_ (gx#syntax-e _e152797152807_))) - (let ((_hd152801152818_ (##car _e152800152815_)) - (_tl152802152820_ (##cdr _e152800152815_))) - (if (gx#stx-pair? _tl152802152820_) - (let ((_e152803152823_ - (gx#syntax-e _tl152802152820_))) - (let ((_hd152804152826_ - (##car _e152803152823_)) - (_tl152805152828_ - (##cdr _e152803152823_))) - (let* ((_rator152831_ _hd152804152826_) - (_args152833_ _tl152805152828_)) - (if (gx#stx-list? _args152833_) + (if (gx#stx-pair? _e153958153968_) + (let ((_e153961153976_ (gx#syntax-e _e153958153968_))) + (let ((_hd153962153979_ (##car _e153961153976_)) + (_tl153963153981_ (##cdr _e153961153976_))) + (if (gx#stx-pair? _tl153963153981_) + (let ((_e153964153984_ + (gx#syntax-e _tl153963153981_))) + (let ((_hd153965153987_ + (##car _e153964153984_)) + (_tl153966153989_ + (##cdr _e153964153984_))) + (let* ((_rator153992_ _hd153965153987_) + (_args153994_ _tl153966153989_)) + (if (gx#stx-list? _args153994_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _rator152831_) + _rator153992_) (gx#stx-map1 gx#core-expand-expression - _args152833_)) - (gx#stx-source _stx152796_)) - (_E152799152811_))))) - (_E152799152811_)))) - (_E152799152811_))))) - (_E152798152835_)))) + _args153994_)) + (gx#stx-source _stx153957_)) + (_E153960153972_))))) + (_E153960153972_)))) + (_E153960153972_))))) + (_E153959153996_)))) (define gx#core-expand-if% - (lambda (_stx152729_) - (let* ((_e152730152746_ _stx152729_) - (_E152732152750_ + (lambda (_stx153890_) + (let* ((_e153891153907_ _stx153890_) + (_E153893153911_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152730152746_))) - (_E152731152792_ + _e153891153907_))) + (_E153892153953_ (lambda () - (if (gx#stx-pair? _e152730152746_) - (let ((_e152733152754_ (gx#syntax-e _e152730152746_))) - (let ((_hd152734152757_ (##car _e152733152754_)) - (_tl152735152759_ (##cdr _e152733152754_))) - (if (gx#stx-pair? _tl152735152759_) - (let ((_e152736152762_ - (gx#syntax-e _tl152735152759_))) - (let ((_hd152737152765_ - (##car _e152736152762_)) - (_tl152738152767_ - (##cdr _e152736152762_))) - (let ((_test152770_ _hd152737152765_)) - (if (gx#stx-pair? _tl152738152767_) - (let ((_e152739152772_ - (gx#syntax-e _tl152738152767_))) - (let ((_hd152740152775_ - (##car _e152739152772_)) - (_tl152741152777_ - (##cdr _e152739152772_))) - (let ((_K152780_ _hd152740152775_)) + (if (gx#stx-pair? _e153891153907_) + (let ((_e153894153915_ (gx#syntax-e _e153891153907_))) + (let ((_hd153895153918_ (##car _e153894153915_)) + (_tl153896153920_ (##cdr _e153894153915_))) + (if (gx#stx-pair? _tl153896153920_) + (let ((_e153897153923_ + (gx#syntax-e _tl153896153920_))) + (let ((_hd153898153926_ + (##car _e153897153923_)) + (_tl153899153928_ + (##cdr _e153897153923_))) + (let ((_test153931_ _hd153898153926_)) + (if (gx#stx-pair? _tl153899153928_) + (let ((_e153900153933_ + (gx#syntax-e _tl153899153928_))) + (let ((_hd153901153936_ + (##car _e153900153933_)) + (_tl153902153938_ + (##cdr _e153900153933_))) + (let ((_K153941_ _hd153901153936_)) (if (gx#stx-pair? - _tl152741152777_) - (let ((_e152742152782_ + _tl153902153938_) + (let ((_e153903153943_ (gx#syntax-e - _tl152741152777_))) - (let ((_hd152743152785_ - (##car _e152742152782_)) - (_tl152744152787_ - (##cdr _e152742152782_))) - (let ((_E152790_ - _hd152743152785_)) + _tl153902153938_))) + (let ((_hd153904153946_ + (##car _e153903153943_)) + (_tl153905153948_ + (##cdr _e153903153943_))) + (let ((_E153951_ + _hd153904153946_)) (if (gx#stx-null? - _tl152744152787_) + _tl153905153948_) (if '#t (gx#core-quote-syntax__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#core-quote-syntax__0 '%#if) - (cons (gx#core-expand-expression _test152770_) + (cons (gx#core-expand-expression _test153931_) (cons (gx#core-expand-expression - _K152780_) + _K153941_) (cons (gx#core-expand-expression - _E152790_) + _E153951_) '())))) - (gx#stx-source _stx152729_)) - (_E152732152750_)) - (_E152732152750_))))) + (gx#stx-source _stx153890_)) + (_E153893153911_)) + (_E153893153911_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152732152750_))))) - (_E152732152750_))))) - (_E152732152750_)))) - (_E152732152750_))))) - (_E152731152792_)))) + (_E153893153911_))))) + (_E153893153911_))))) + (_E153893153911_)))) + (_E153893153911_))))) + (_E153892153953_)))) (define gx#core-expand-ref% - (lambda (_stx152688_) - (let* ((_e152689152699_ _stx152688_) - (_E152691152703_ + (lambda (_stx153849_) + (let* ((_e153850153860_ _stx153849_) + (_E153852153864_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152689152699_))) - (_E152690152725_ + _e153850153860_))) + (_E153851153886_ (lambda () - (if (gx#stx-pair? _e152689152699_) - (let ((_e152692152707_ (gx#syntax-e _e152689152699_))) - (let ((_hd152693152710_ (##car _e152692152707_)) - (_tl152694152712_ (##cdr _e152692152707_))) - (if (gx#stx-pair? _tl152694152712_) - (let ((_e152695152715_ - (gx#syntax-e _tl152694152712_))) - (let ((_hd152696152718_ - (##car _e152695152715_)) - (_tl152697152720_ - (##cdr _e152695152715_))) - (let ((_id152723_ _hd152696152718_)) - (if (gx#stx-null? _tl152697152720_) - (if (gx#identifier? _id152723_) + (if (gx#stx-pair? _e153850153860_) + (let ((_e153853153868_ (gx#syntax-e _e153850153860_))) + (let ((_hd153854153871_ (##car _e153853153868_)) + (_tl153855153873_ (##cdr _e153853153868_))) + (if (gx#stx-pair? _tl153855153873_) + (let ((_e153856153876_ + (gx#syntax-e _tl153855153873_))) + (let ((_hd153857153879_ + (##car _e153856153876_)) + (_tl153858153881_ + (##cdr _e153856153876_))) + (let ((_id153884_ _hd153857153879_)) + (if (gx#stx-null? _tl153858153881_) + (if (gx#identifier? _id153884_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _id152723_ - _stx152688_) + _id153884_ + _stx153849_) '())) - (gx#stx-source _stx152688_)) - (_E152691152703_)) - (_E152691152703_))))) - (_E152691152703_)))) - (_E152691152703_))))) - (_E152690152725_)))) + (gx#stx-source _stx153849_)) + (_E153852153864_)) + (_E153852153864_))))) + (_E153852153864_)))) + (_E153852153864_))))) + (_E153851153886_)))) (define gx#core-expand-setq% - (lambda (_stx152634_) - (let* ((_e152635152648_ _stx152634_) - (_E152637152652_ + (lambda (_stx153795_) + (let* ((_e153796153809_ _stx153795_) + (_E153798153813_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152635152648_))) - (_E152636152684_ + _e153796153809_))) + (_E153797153845_ (lambda () - (if (gx#stx-pair? _e152635152648_) - (let ((_e152638152656_ (gx#syntax-e _e152635152648_))) - (let ((_hd152639152659_ (##car _e152638152656_)) - (_tl152640152661_ (##cdr _e152638152656_))) - (if (gx#stx-pair? _tl152640152661_) - (let ((_e152641152664_ - (gx#syntax-e _tl152640152661_))) - (let ((_hd152642152667_ - (##car _e152641152664_)) - (_tl152643152669_ - (##cdr _e152641152664_))) - (let ((_id152672_ _hd152642152667_)) - (if (gx#stx-pair? _tl152643152669_) - (let ((_e152644152674_ - (gx#syntax-e _tl152643152669_))) - (let ((_hd152645152677_ - (##car _e152644152674_)) - (_tl152646152679_ - (##cdr _e152644152674_))) - (let ((_expr152682_ - _hd152645152677_)) + (if (gx#stx-pair? _e153796153809_) + (let ((_e153799153817_ (gx#syntax-e _e153796153809_))) + (let ((_hd153800153820_ (##car _e153799153817_)) + (_tl153801153822_ (##cdr _e153799153817_))) + (if (gx#stx-pair? _tl153801153822_) + (let ((_e153802153825_ + (gx#syntax-e _tl153801153822_))) + (let ((_hd153803153828_ + (##car _e153802153825_)) + (_tl153804153830_ + (##cdr _e153802153825_))) + (let ((_id153833_ _hd153803153828_)) + (if (gx#stx-pair? _tl153804153830_) + (let ((_e153805153835_ + (gx#syntax-e _tl153804153830_))) + (let ((_hd153806153838_ + (##car _e153805153835_)) + (_tl153807153840_ + (##cdr _e153805153835_))) + (let ((_expr153843_ + _hd153806153838_)) (if (gx#stx-null? - _tl152646152679_) + _tl153807153840_) (if (gx#identifier? - _id152672_) + _id153833_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _id152672_ - _stx152634_) - (cons (gx#core-expand-expression _expr152682_) + _id153833_ + _stx153795_) + (cons (gx#core-expand-expression _expr153843_) '()))) - (gx#stx-source _stx152634_)) - (_E152637152652_)) + (gx#stx-source _stx153795_)) + (_E153798153813_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152637152652_))))) - (_E152637152652_))))) - (_E152637152652_)))) - (_E152637152652_))))) - (_E152636152684_)))) + (_E153798153813_))))) + (_E153798153813_))))) + (_E153798153813_)))) + (_E153798153813_))))) + (_E153797153845_)))) (define gx#macro-expand-extern - (lambda (_stx152482_) - (letrec ((_generate152484_ - (lambda (_body152514_) - (let _lp152516_ ((_rest152518_ _body152514_) - (_ns152519_ + (lambda (_stx153643_) + (letrec ((_generate153645_ + (lambda (_body153675_) + (let _lp153677_ ((_rest153679_ _body153675_) + (_ns153680_ (gx#core-context-namespace__0)) - (_r152520_ '())) - (let* ((_e152521152536_ _rest152518_) - (_E152534152540_ + (_r153681_ '())) + (let* ((_e153682153697_ _rest153679_) + (_E153695153701_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152521152536_))) - (_E152530152544_ + _e153682153697_))) + (_E153691153705_ (lambda () - (if (gx#stx-null? _e152521152536_) + (if (gx#stx-null? _e153682153697_) (if '#t - (reverse _r152520_) - (_E152534152540_)) - (_E152534152540_)))) - (_E152523152601_ + (reverse _r153681_) + (_E153695153701_)) + (_E153695153701_)))) + (_E153684153762_ (lambda () - (if (gx#stx-pair? _e152521152536_) - (let ((_e152531152548_ - (gx#syntax-e _e152521152536_))) - (let ((_hd152532152551_ - (##car _e152531152548_)) - (_tl152533152553_ - (##cdr _e152531152548_))) - (let* ((_hd152556_ _hd152532152551_) - (_rest152558_ _tl152533152553_)) + (if (gx#stx-pair? _e153682153697_) + (let ((_e153692153709_ + (gx#syntax-e _e153682153697_))) + (let ((_hd153693153712_ + (##car _e153692153709_)) + (_tl153694153714_ + (##cdr _e153692153709_))) + (let* ((_hd153717_ _hd153693153712_) + (_rest153719_ _tl153694153714_)) (if '#t - (if (gx#identifier? _hd152556_) - (_lp152516_ - _rest152558_ - _ns152519_ - (cons (cons _hd152556_ - (cons (if _ns152519_ + (if (gx#identifier? _hd153717_) + (_lp153677_ + _rest153719_ + _ns153680_ + (cons (cons _hd153717_ + (cons (if _ns153680_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _hd152556_ - _ns152519_ + _hd153717_ + _ns153680_ '"#" - _hd152556_) - _hd152556_) + _hd153717_) + _hd153717_) '())) - _r152520_)) + _r153681_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_e152559152569_ - _hd152556_) - (_E152561152573_ + (let* ((_e153720153730_ + _hd153717_) + (_E153722153734_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152559152569_))) - (_E152560152597_ + _e153720153730_))) + (_E153721153758_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _e152559152569_) - (let ((_e152562152577_ (gx#syntax-e _e152559152569_))) - (let ((_hd152563152580_ (##car _e152562152577_)) - (_tl152564152582_ (##cdr _e152562152577_))) - (let ((_id152585_ _hd152563152580_)) - (if (gx#stx-pair? _tl152564152582_) - (let ((_e152565152587_ - (gx#syntax-e _tl152564152582_))) - (let ((_hd152566152590_ - (##car _e152565152587_)) - (_tl152567152592_ - (##cdr _e152565152587_))) - (let ((_eid152595_ _hd152566152590_)) - (if (gx#stx-null? _tl152567152592_) + _e153720153730_) + (let ((_e153723153738_ (gx#syntax-e _e153720153730_))) + (let ((_hd153724153741_ (##car _e153723153738_)) + (_tl153725153743_ (##cdr _e153723153738_))) + (let ((_id153746_ _hd153724153741_)) + (if (gx#stx-pair? _tl153725153743_) + (let ((_e153726153748_ + (gx#syntax-e _tl153725153743_))) + (let ((_hd153727153751_ + (##car _e153726153748_)) + (_tl153728153753_ + (##cdr _e153726153748_))) + (let ((_eid153756_ _hd153727153751_)) + (if (gx#stx-null? _tl153728153753_) (if (and (gx#identifier? - _id152585_) + _id153746_) (gx#identifier? - _eid152595_)) - (_lp152516_ - _rest152558_ - _ns152519_ - (cons (cons _id152585_ - (cons _eid152595_ + _eid153756_)) + (_lp153677_ + _rest153719_ + _ns153680_ + (cons (cons _id153746_ + (cons _eid153756_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _r152520_)) + _r153681_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152561152573_)) - (_E152561152573_))))) - (_E152561152573_))))) - (_E152561152573_))))) + (_E153722153734_)) + (_E153722153734_))))) + (_E153722153734_))))) + (_E153722153734_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152560152597_))) - (_E152530152544_))))) - (_E152530152544_)))) - (_E152522152630_ + (_E153721153758_))) + (_E153691153705_))))) + (_E153691153705_)))) + (_E153683153791_ (lambda () - (if (gx#stx-pair? _e152521152536_) - (let ((_e152524152605_ - (gx#syntax-e _e152521152536_))) - (let ((_hd152525152608_ - (##car _e152524152605_)) - (_tl152526152610_ - (##cdr _e152524152605_))) - (if (eq? (gx#stx-e _hd152525152608_) + (if (gx#stx-pair? _e153682153697_) + (let ((_e153685153766_ + (gx#syntax-e _e153682153697_))) + (let ((_hd153686153769_ + (##car _e153685153766_)) + (_tl153687153771_ + (##cdr _e153685153766_))) + (if (eq? (gx#stx-e _hd153686153769_) 'namespace:) - (if (gx#stx-pair? _tl152526152610_) - (let ((_e152527152613_ + (if (gx#stx-pair? _tl153687153771_) + (let ((_e153688153774_ (gx#syntax-e - _tl152526152610_))) - (let ((_hd152528152616_ - (##car _e152527152613_)) - (_tl152529152618_ - (##cdr _e152527152613_))) - (let* ((_ns152621_ - _hd152528152616_) - (_rest152623_ - _tl152529152618_)) + _tl153687153771_))) + (let ((_hd153689153777_ + (##car _e153688153774_)) + (_tl153690153779_ + (##cdr _e153688153774_))) + (let* ((_ns153782_ + _hd153689153777_) + (_rest153784_ + _tl153690153779_)) (if '#t - (let ((_ns152628_ + (let ((_ns153789_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (gx#identifier? _ns152621_) - (symbol->string (gx#stx-e _ns152621_)) - (if (or (gx#stx-string? _ns152621_) - (gx#stx-false? _ns152621_)) - (gx#stx-e _ns152621_) + (if (gx#identifier? _ns153782_) + (symbol->string (gx#stx-e _ns153782_)) + (if (or (gx#stx-string? _ns153782_) + (gx#stx-false? _ns153782_)) + (gx#stx-e _ns153782_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _stx152482_ - _ns152621_))))) - (_lp152516_ _rest152623_ _ns152628_ _r152520_)) - (_E152523152601_))))) + _stx153643_ + _ns153782_))))) + (_lp153677_ _rest153784_ _ns153789_ _r153681_)) + (_E153684153762_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152523152601_)) - (_E152523152601_)))) - (_E152523152601_))))) - (_E152522152630_)))))) - (let* ((_e152485152492_ _stx152482_) - (_E152487152496_ + (_E153684153762_)) + (_E153684153762_)))) + (_E153684153762_))))) + (_E153683153791_)))))) + (let* ((_e153646153653_ _stx153643_) + (_E153648153657_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152485152492_))) - (_E152486152510_ + _e153646153653_))) + (_E153647153671_ (lambda () - (if (gx#stx-pair? _e152485152492_) - (let ((_e152488152500_ (gx#syntax-e _e152485152492_))) - (let ((_hd152489152503_ (##car _e152488152500_)) - (_tl152490152505_ (##cdr _e152488152500_))) - (let ((_body152508_ _tl152490152505_)) - (if (gx#stx-list? _body152508_) + (if (gx#stx-pair? _e153646153653_) + (let ((_e153649153661_ (gx#syntax-e _e153646153653_))) + (let ((_hd153650153664_ (##car _e153649153661_)) + (_tl153651153666_ (##cdr _e153649153661_))) + (let ((_body153669_ _tl153651153666_)) + (if (gx#stx-list? _body153669_) (gx#core-cons '%#extern - (_generate152484_ _body152508_)) - (_E152487152496_))))) - (_E152487152496_))))) - (_E152486152510_))))) + (_generate153645_ _body153669_)) + (_E153648153657_))))) + (_E153648153657_))))) + (_E153647153671_))))) (define gx#macro-expand-define-values - (lambda (_stx152428_) - (let* ((_e152429152442_ _stx152428_) - (_E152431152446_ + (lambda (_stx153589_) + (let* ((_e153590153603_ _stx153589_) + (_E153592153607_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152429152442_))) - (_E152430152478_ + _e153590153603_))) + (_E153591153639_ (lambda () - (if (gx#stx-pair? _e152429152442_) - (let ((_e152432152450_ (gx#syntax-e _e152429152442_))) - (let ((_hd152433152453_ (##car _e152432152450_)) - (_tl152434152455_ (##cdr _e152432152450_))) - (if (gx#stx-pair? _tl152434152455_) - (let ((_e152435152458_ - (gx#syntax-e _tl152434152455_))) - (let ((_hd152436152461_ - (##car _e152435152458_)) - (_tl152437152463_ - (##cdr _e152435152458_))) - (let ((_hd152466_ _hd152436152461_)) - (if (gx#stx-pair? _tl152437152463_) - (let ((_e152438152468_ - (gx#syntax-e _tl152437152463_))) - (let ((_hd152439152471_ - (##car _e152438152468_)) - (_tl152440152473_ - (##cdr _e152438152468_))) - (let ((_expr152476_ - _hd152439152471_)) + (if (gx#stx-pair? _e153590153603_) + (let ((_e153593153611_ (gx#syntax-e _e153590153603_))) + (let ((_hd153594153614_ (##car _e153593153611_)) + (_tl153595153616_ (##cdr _e153593153611_))) + (if (gx#stx-pair? _tl153595153616_) + (let ((_e153596153619_ + (gx#syntax-e _tl153595153616_))) + (let ((_hd153597153622_ + (##car _e153596153619_)) + (_tl153598153624_ + (##cdr _e153596153619_))) + (let ((_hd153627_ _hd153597153622_)) + (if (gx#stx-pair? _tl153598153624_) + (let ((_e153599153629_ + (gx#syntax-e _tl153598153624_))) + (let ((_hd153600153632_ + (##car _e153599153629_)) + (_tl153601153634_ + (##cdr _e153599153629_))) + (let ((_expr153637_ + _hd153600153632_)) (if (gx#stx-null? - _tl152440152473_) + _tl153601153634_) (if (gx#stx-andmap gx#identifier? - _hd152466_) + _hd153627_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _hd152466_) - (cons _expr152476_ '()))) - (_E152431152446_)) + _hd153627_) + (cons _expr153637_ '()))) + (_E153592153607_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152431152446_))))) - (_E152431152446_))))) - (_E152431152446_)))) - (_E152431152446_))))) - (_E152430152478_)))) + (_E153592153607_))))) + (_E153592153607_))))) + (_E153592153607_)))) + (_E153592153607_))))) + (_E153591153639_)))) (define gx#macro-expand-define-syntax - (lambda (_stx152374_) - (let* ((_e152375152388_ _stx152374_) - (_E152377152392_ + (lambda (_stx153535_) + (let* ((_e153536153549_ _stx153535_) + (_E153538153553_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152375152388_))) - (_E152376152424_ + _e153536153549_))) + (_E153537153585_ (lambda () - (if (gx#stx-pair? _e152375152388_) - (let ((_e152378152396_ (gx#syntax-e _e152375152388_))) - (let ((_hd152379152399_ (##car _e152378152396_)) - (_tl152380152401_ (##cdr _e152378152396_))) - (if (gx#stx-pair? _tl152380152401_) - (let ((_e152381152404_ - (gx#syntax-e _tl152380152401_))) - (let ((_hd152382152407_ - (##car _e152381152404_)) - (_tl152383152409_ - (##cdr _e152381152404_))) - (let ((_hd152412_ _hd152382152407_)) - (if (gx#stx-pair? _tl152383152409_) - (let ((_e152384152414_ - (gx#syntax-e _tl152383152409_))) - (let ((_hd152385152417_ - (##car _e152384152414_)) - (_tl152386152419_ - (##cdr _e152384152414_))) - (let ((_expr152422_ - _hd152385152417_)) + (if (gx#stx-pair? _e153536153549_) + (let ((_e153539153557_ (gx#syntax-e _e153536153549_))) + (let ((_hd153540153560_ (##car _e153539153557_)) + (_tl153541153562_ (##cdr _e153539153557_))) + (if (gx#stx-pair? _tl153541153562_) + (let ((_e153542153565_ + (gx#syntax-e _tl153541153562_))) + (let ((_hd153543153568_ + (##car _e153542153565_)) + (_tl153544153570_ + (##cdr _e153542153565_))) + (let ((_hd153573_ _hd153543153568_)) + (if (gx#stx-pair? _tl153544153570_) + (let ((_e153545153575_ + (gx#syntax-e _tl153544153570_))) + (let ((_hd153546153578_ + (##car _e153545153575_)) + (_tl153547153580_ + (##cdr _e153545153575_))) + (let ((_expr153583_ + _hd153546153578_)) (if (gx#stx-null? - _tl152386152419_) + _tl153547153580_) (if (gx#identifier? - _hd152412_) + _hd153573_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _hd152412_ + (cons _hd153573_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _expr152422_ '()))) - (_E152377152392_)) + (cons _expr153583_ '()))) + (_E153538153553_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152377152392_))))) - (_E152377152392_))))) - (_E152377152392_)))) - (_E152377152392_))))) - (_E152376152424_)))) + (_E153538153553_))))) + (_E153538153553_))))) + (_E153538153553_)))) + (_E153538153553_))))) + (_E153537153585_)))) (define gx#macro-expand-define-alias - (lambda (_stx152320_) - (let* ((_e152321152334_ _stx152320_) - (_E152323152338_ + (lambda (_stx153481_) + (let* ((_e153482153495_ _stx153481_) + (_E153484153499_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152321152334_))) - (_E152322152370_ + _e153482153495_))) + (_E153483153531_ (lambda () - (if (gx#stx-pair? _e152321152334_) - (let ((_e152324152342_ (gx#syntax-e _e152321152334_))) - (let ((_hd152325152345_ (##car _e152324152342_)) - (_tl152326152347_ (##cdr _e152324152342_))) - (if (gx#stx-pair? _tl152326152347_) - (let ((_e152327152350_ - (gx#syntax-e _tl152326152347_))) - (let ((_hd152328152353_ - (##car _e152327152350_)) - (_tl152329152355_ - (##cdr _e152327152350_))) - (let ((_id152358_ _hd152328152353_)) - (if (gx#stx-pair? _tl152329152355_) - (let ((_e152330152360_ - (gx#syntax-e _tl152329152355_))) - (let ((_hd152331152363_ - (##car _e152330152360_)) - (_tl152332152365_ - (##cdr _e152330152360_))) - (let ((_alias-id152368_ - _hd152331152363_)) + (if (gx#stx-pair? _e153482153495_) + (let ((_e153485153503_ (gx#syntax-e _e153482153495_))) + (let ((_hd153486153506_ (##car _e153485153503_)) + (_tl153487153508_ (##cdr _e153485153503_))) + (if (gx#stx-pair? _tl153487153508_) + (let ((_e153488153511_ + (gx#syntax-e _tl153487153508_))) + (let ((_hd153489153514_ + (##car _e153488153511_)) + (_tl153490153516_ + (##cdr _e153488153511_))) + (let ((_id153519_ _hd153489153514_)) + (if (gx#stx-pair? _tl153490153516_) + (let ((_e153491153521_ + (gx#syntax-e _tl153490153516_))) + (let ((_hd153492153524_ + (##car _e153491153521_)) + (_tl153493153526_ + (##cdr _e153491153521_))) + (let ((_alias-id153529_ + _hd153492153524_)) (if (gx#stx-null? - _tl152332152365_) + _tl153493153526_) (if (and (gx#identifier? - _id152358_) + _id153519_) (gx#identifier? - _alias-id152368_)) + _alias-id153529_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _id152358_ + (cons _id153519_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _alias-id152368_ '()))) - (_E152323152338_)) + (cons _alias-id153529_ '()))) + (_E153484153499_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152323152338_))))) - (_E152323152338_))))) - (_E152323152338_)))) - (_E152323152338_))))) - (_E152322152370_)))) + (_E153484153499_))))) + (_E153484153499_))))) + (_E153484153499_)))) + (_E153484153499_))))) + (_E153483153531_)))) (define gx#macro-expand-lambda% - (lambda (_stx152277_) - (let* ((_e152278152288_ _stx152277_) - (_E152280152292_ + (lambda (_stx153438_) + (let* ((_e153439153449_ _stx153438_) + (_E153441153453_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152278152288_))) - (_E152279152316_ + _e153439153449_))) + (_E153440153477_ (lambda () - (if (gx#stx-pair? _e152278152288_) - (let ((_e152281152296_ (gx#syntax-e _e152278152288_))) - (let ((_hd152282152299_ (##car _e152281152296_)) - (_tl152283152301_ (##cdr _e152281152296_))) - (if (gx#stx-pair? _tl152283152301_) - (let ((_e152284152304_ - (gx#syntax-e _tl152283152301_))) - (let ((_hd152285152307_ - (##car _e152284152304_)) - (_tl152286152309_ - (##cdr _e152284152304_))) - (let* ((_hd152312_ _hd152285152307_) - (_body152314_ _tl152286152309_)) + (if (gx#stx-pair? _e153439153449_) + (let ((_e153442153457_ (gx#syntax-e _e153439153449_))) + (let ((_hd153443153460_ (##car _e153442153457_)) + (_tl153444153462_ (##cdr _e153442153457_))) + (if (gx#stx-pair? _tl153444153462_) + (let ((_e153445153465_ + (gx#syntax-e _tl153444153462_))) + (let ((_hd153446153468_ + (##car _e153445153465_)) + (_tl153447153470_ + (##cdr _e153445153465_))) + (let* ((_hd153473_ _hd153446153468_) + (_body153475_ _tl153447153470_)) (if (and (gx#stx-andmap gx#identifier? - _hd152312_) - (gx#stx-list? _body152314_) - (not (gx#stx-null? _body152314_))) + _hd153473_) + (gx#stx-list? _body153475_) + (not (gx#stx-null? _body153475_))) (gx#core-cons* '%#lambda (gx#stx-map1 gx#user-binding-identifier - _hd152312_) - _body152314_) - (_E152280152292_))))) - (_E152280152292_)))) - (_E152280152292_))))) - (_E152279152316_)))) + _hd153473_) + _body153475_) + (_E153441153453_))))) + (_E153441153453_)))) + (_E153441153453_))))) + (_E153440153477_)))) (define gx#macro-expand-case-lambda - (lambda (_stx152213_) - (letrec ((_generate152215_ - (lambda (_clause152245_) - (let* ((_e152246152253_ _clause152245_) - (_E152248152257_ + (lambda (_stx153374_) + (letrec ((_generate153376_ + (lambda (_clause153406_) + (let* ((_e153407153414_ _clause153406_) + (_E153409153418_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _stx152213_ - _clause152245_))) - (_E152247152273_ + _stx153374_ + _clause153406_))) + (_E153408153434_ (lambda () - (if (gx#stx-pair? _e152246152253_) - (let ((_e152249152261_ - (gx#syntax-e _e152246152253_))) - (let ((_hd152250152264_ - (##car _e152249152261_)) - (_tl152251152266_ - (##cdr _e152249152261_))) - (let* ((_hd152269_ _hd152250152264_) - (_body152271_ _tl152251152266_)) + (if (gx#stx-pair? _e153407153414_) + (let ((_e153410153422_ + (gx#syntax-e _e153407153414_))) + (let ((_hd153411153425_ + (##car _e153410153422_)) + (_tl153412153427_ + (##cdr _e153410153422_))) + (let* ((_hd153430_ _hd153411153425_) + (_body153432_ _tl153412153427_)) (if (and (gx#stx-andmap gx#identifier? - _hd152269_) - (gx#stx-list? _body152271_) + _hd153430_) + (gx#stx-list? _body153432_) (not (gx#stx-null? - _body152271_))) + _body153432_))) (gx#stx-wrap-source (cons (gx#stx-map1 gx#user-binding-identifier - _hd152269_) - _body152271_) - (gx#stx-source _clause152245_)) - (_E152248152257_))))) - (_E152248152257_))))) - (_E152247152273_))))) - (let* ((_e152216152223_ _stx152213_) - (_E152218152227_ + _hd153430_) + _body153432_) + (gx#stx-source _clause153406_)) + (_E153409153418_))))) + (_E153409153418_))))) + (_E153408153434_))))) + (let* ((_e153377153384_ _stx153374_) + (_E153379153388_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152216152223_))) - (_E152217152241_ + _e153377153384_))) + (_E153378153402_ (lambda () - (if (gx#stx-pair? _e152216152223_) - (let ((_e152219152231_ (gx#syntax-e _e152216152223_))) - (let ((_hd152220152234_ (##car _e152219152231_)) - (_tl152221152236_ (##cdr _e152219152231_))) - (let ((_clauses152239_ _tl152221152236_)) - (if (gx#stx-list? _clauses152239_) + (if (gx#stx-pair? _e153377153384_) + (let ((_e153380153392_ (gx#syntax-e _e153377153384_))) + (let ((_hd153381153395_ (##car _e153380153392_)) + (_tl153382153397_ (##cdr _e153380153392_))) + (let ((_clauses153400_ _tl153382153397_)) + (if (gx#stx-list? _clauses153400_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _generate152215_ - _clauses152239_)) - (_E152218152227_))))) - (_E152218152227_))))) - (_E152217152241_))))) + _generate153376_ + _clauses153400_)) + (_E153379153388_))))) + (_E153379153388_))))) + (_E153378153402_))))) (define gx#macro-expand-let-values__% - (lambda (_stx152114_ _form152115_) - (letrec ((_generate152117_ - (lambda (_bind152160_) - (let* ((_e152161152171_ _bind152160_) - (_E152163152175_ + (lambda (_stx153275_ _form153276_) + (letrec ((_generate153278_ + (lambda (_bind153321_) + (let* ((_e153322153332_ _bind153321_) + (_E153324153336_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _stx152114_ - _bind152160_))) - (_E152162152199_ + _stx153275_ + _bind153321_))) + (_E153323153360_ (lambda () - (if (gx#stx-pair? _e152161152171_) - (let ((_e152164152179_ - (gx#syntax-e _e152161152171_))) - (let ((_hd152165152182_ - (##car _e152164152179_)) - (_tl152166152184_ - (##cdr _e152164152179_))) - (let ((_ids152187_ _hd152165152182_)) - (if (gx#stx-pair? _tl152166152184_) - (let ((_e152167152189_ + (if (gx#stx-pair? _e153322153332_) + (let ((_e153325153340_ + (gx#syntax-e _e153322153332_))) + (let ((_hd153326153343_ + (##car _e153325153340_)) + (_tl153327153345_ + (##cdr _e153325153340_))) + (let ((_ids153348_ _hd153326153343_)) + (if (gx#stx-pair? _tl153327153345_) + (let ((_e153328153350_ (gx#syntax-e - _tl152166152184_))) - (let ((_hd152168152192_ - (##car _e152167152189_)) - (_tl152169152194_ - (##cdr _e152167152189_))) - (let ((_expr152197_ - _hd152168152192_)) + _tl153327153345_))) + (let ((_hd153329153353_ + (##car _e153328153350_)) + (_tl153330153355_ + (##cdr _e153328153350_))) + (let ((_expr153358_ + _hd153329153353_)) (if (gx#stx-null? - _tl152169152194_) + _tl153330153355_) (if (gx#stx-andmap gx#identifier? - _ids152187_) + _ids153348_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< gx#user-binding-identifier - _ids152187_) - (cons _expr152197_ '())) - (_E152163152175_)) - (_E152163152175_))))) + _ids153348_) + (cons _expr153358_ '())) + (_E153324153336_)) + (_E153324153336_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152163152175_))))) - (_E152163152175_))))) - (_E152162152199_))))) - (let* ((_e152118152128_ _stx152114_) - (_E152120152132_ + (_E153324153336_))))) + (_E153324153336_))))) + (_E153323153360_))))) + (let* ((_e153279153289_ _stx153275_) + (_E153281153293_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152118152128_))) - (_E152119152156_ + _e153279153289_))) + (_E153280153317_ (lambda () - (if (gx#stx-pair? _e152118152128_) - (let ((_e152121152136_ (gx#syntax-e _e152118152128_))) - (let ((_hd152122152139_ (##car _e152121152136_)) - (_tl152123152141_ (##cdr _e152121152136_))) - (if (gx#stx-pair? _tl152123152141_) - (let ((_e152124152144_ - (gx#syntax-e _tl152123152141_))) - (let ((_hd152125152147_ - (##car _e152124152144_)) - (_tl152126152149_ - (##cdr _e152124152144_))) - (let* ((_hd152152_ _hd152125152147_) - (_body152154_ _tl152126152149_)) - (if (and (gx#stx-list? _hd152152_) - (gx#stx-list? _body152154_) + (if (gx#stx-pair? _e153279153289_) + (let ((_e153282153297_ (gx#syntax-e _e153279153289_))) + (let ((_hd153283153300_ (##car _e153282153297_)) + (_tl153284153302_ (##cdr _e153282153297_))) + (if (gx#stx-pair? _tl153284153302_) + (let ((_e153285153305_ + (gx#syntax-e _tl153284153302_))) + (let ((_hd153286153308_ + (##car _e153285153305_)) + (_tl153287153310_ + (##cdr _e153285153305_))) + (let* ((_hd153313_ _hd153286153308_) + (_body153315_ _tl153287153310_)) + (if (and (gx#stx-list? _hd153313_) + (gx#stx-list? _body153315_) (not (gx#stx-null? - _body152154_))) + _body153315_))) (gx#core-cons* - _form152115_ + _form153276_ (gx#stx-map1 - _generate152117_ - _hd152152_) - _body152154_) - (_E152120152132_))))) - (_E152120152132_)))) - (_E152120152132_))))) - (_E152119152156_))))) + _generate153278_ + _hd153313_) + _body153315_) + (_E153281153293_))))) + (_E153281153293_)))) + (_E153281153293_))))) + (_E153280153317_))))) (define gx#macro-expand-let-values__0 - (lambda (_stx152206_) - (let ((_form152208_ '%#let-values)) - (gx#macro-expand-let-values__% _stx152206_ _form152208_)))) + (lambda (_stx153367_) + (let ((_form153369_ '%#let-values)) + (gx#macro-expand-let-values__% _stx153367_ _form153369_)))) (define gx#macro-expand-let-values - (lambda _g159159_ - (let ((_g159158_ (##length _g159159_))) - (cond ((##fx= _g159158_ 1) - (apply (lambda (_stx152206_) - (gx#macro-expand-let-values__0 _stx152206_)) - _g159159_)) - ((##fx= _g159158_ 2) - (apply (lambda (_stx152210_ _form152211_) + (lambda _g160320_ + (let ((_g160319_ (##length _g160320_))) + (cond ((##fx= _g160319_ 1) + (apply (lambda (_stx153367_) + (gx#macro-expand-let-values__0 _stx153367_)) + _g160320_)) + ((##fx= _g160319_ 2) + (apply (lambda (_stx153371_ _form153372_) (gx#macro-expand-let-values__% - _stx152210_ - _form152211_)) - _g159159_)) + _stx153371_ + _form153372_)) + _g160320_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g159159_)))))) + _g160320_)))))) (define gx#macro-expand-letrec-values - (lambda (_stx152111_) - (gx#macro-expand-let-values__% _stx152111_ '%#letrec-values))) + (lambda (_stx153272_) + (gx#macro-expand-let-values__% _stx153272_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_stx152109_) - (gx#macro-expand-let-values__% _stx152109_ '%#letrec*-values))) + (lambda (_stx153270_) + (gx#macro-expand-let-values__% _stx153270_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_stx152000_) - (let* ((_e152001152027_ _stx152000_) - (_E152013152031_ + (lambda (_stx153161_) + (let* ((_e153162153188_ _stx153161_) + (_E153174153192_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _e152001152027_))) - (_E152003152073_ + _e153162153188_))) + (_E153164153234_ (lambda () - (if (gx#stx-pair? _e152001152027_) - (let ((_e152014152035_ (gx#syntax-e _e152001152027_))) - (let ((_hd152015152038_ (##car _e152014152035_)) - (_tl152016152040_ (##cdr _e152014152035_))) - (if (gx#stx-pair? _tl152016152040_) - (let ((_e152017152043_ - (gx#syntax-e _tl152016152040_))) - (let ((_hd152018152046_ - (##car _e152017152043_)) - (_tl152019152048_ - (##cdr _e152017152043_))) - (let ((_test152051_ _hd152018152046_)) - (if (gx#stx-pair? _tl152019152048_) - (let ((_e152020152053_ - (gx#syntax-e _tl152019152048_))) - (let ((_hd152021152056_ - (##car _e152020152053_)) - (_tl152022152058_ - (##cdr _e152020152053_))) - (let ((_K152061_ _hd152021152056_)) + (if (gx#stx-pair? _e153162153188_) + (let ((_e153175153196_ (gx#syntax-e _e153162153188_))) + (let ((_hd153176153199_ (##car _e153175153196_)) + (_tl153177153201_ (##cdr _e153175153196_))) + (if (gx#stx-pair? _tl153177153201_) + (let ((_e153178153204_ + (gx#syntax-e _tl153177153201_))) + (let ((_hd153179153207_ + (##car _e153178153204_)) + (_tl153180153209_ + (##cdr _e153178153204_))) + (let ((_test153212_ _hd153179153207_)) + (if (gx#stx-pair? _tl153180153209_) + (let ((_e153181153214_ + (gx#syntax-e _tl153180153209_))) + (let ((_hd153182153217_ + (##car _e153181153214_)) + (_tl153183153219_ + (##cdr _e153181153214_))) + (let ((_K153222_ _hd153182153217_)) (if (gx#stx-pair? - _tl152022152058_) - (let ((_e152023152063_ + _tl153183153219_) + (let ((_e153184153224_ (gx#syntax-e - _tl152022152058_))) - (let ((_hd152024152066_ - (##car _e152023152063_)) - (_tl152025152068_ - (##cdr _e152023152063_))) - (let ((_E152071_ - _hd152024152066_)) + _tl153183153219_))) + (let ((_hd153185153227_ + (##car _e153184153224_)) + (_tl153186153229_ + (##cdr _e153184153224_))) + (let ((_E153232_ + _hd153185153227_)) (if (gx#stx-null? - _tl152025152068_) + _tl153186153229_) (if '#t (gx#core-list ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if - _test152051_ - _K152061_ - _E152071_) - (_E152013152031_)) - (_E152013152031_))))) + _test153212_ + _K153222_ + _E153232_) + (_E153174153192_)) + (_E153174153192_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_E152013152031_))))) - (_E152013152031_))))) - (_E152013152031_)))) - (_E152013152031_)))) - (_E152002152105_ + (_E153174153192_))))) + (_E153174153192_))))) + (_E153174153192_)))) + (_E153174153192_)))) + (_E153163153266_ (lambda () - (if (gx#stx-pair? _e152001152027_) - (let ((_e152004152077_ (gx#syntax-e _e152001152027_))) - (let ((_hd152005152080_ (##car _e152004152077_)) - (_tl152006152082_ (##cdr _e152004152077_))) - (if (gx#stx-pair? _tl152006152082_) - (let ((_e152007152085_ - (gx#syntax-e _tl152006152082_))) - (let ((_hd152008152088_ - (##car _e152007152085_)) - (_tl152009152090_ - (##cdr _e152007152085_))) - (let ((_test152093_ _hd152008152088_)) - (if (gx#stx-pair? _tl152009152090_) - (let ((_e152010152095_ - (gx#syntax-e _tl152009152090_))) - (let ((_hd152011152098_ - (##car _e152010152095_)) - (_tl152012152100_ - (##cdr _e152010152095_))) - (let ((_K152103_ _hd152011152098_)) + (if (gx#stx-pair? _e153162153188_) + (let ((_e153165153238_ (gx#syntax-e _e153162153188_))) + (let ((_hd153166153241_ (##car _e153165153238_)) + (_tl153167153243_ (##cdr _e153165153238_))) + (if (gx#stx-pair? _tl153167153243_) + (let ((_e153168153246_ + (gx#syntax-e _tl153167153243_))) + (let ((_hd153169153249_ + (##car _e153168153246_)) + (_tl153170153251_ + (##cdr _e153168153246_))) + (let ((_test153254_ _hd153169153249_)) + (if (gx#stx-pair? _tl153170153251_) + (let ((_e153171153256_ + (gx#syntax-e _tl153170153251_))) + (let ((_hd153172153259_ + (##car _e153171153256_)) + (_tl153173153261_ + (##cdr _e153171153256_))) + (let ((_K153264_ _hd153172153259_)) (if (gx#stx-null? - _tl152012152100_) + _tl153173153261_) (if '#t (gx#core-list '%#if - _test152093_ - _K152103_ + _test153254_ + _K153264_ '#!void) - (_E152003152073_)) - (_E152003152073_))))) - (_E152003152073_))))) - (_E152003152073_)))) - (_E152003152073_))))) - (_E152002152105_)))) + (_E153164153234_)) + (_E153164153234_))))) + (_E153164153234_))))) + (_E153164153234_)))) + (_E153164153234_))))) + (_E153163153266_)))) (define gx#free-identifier=? - (lambda (_xid151988_ _yid151989_) - (let ((_xe151991_ (gx#resolve-identifier__0 _xid151988_)) - (_ye151992_ (gx#resolve-identifier__0 _yid151989_))) - (if (and _xe151991_ _ye151992_) - (let ((_$e151994_ (eq? _xe151991_ _ye151992_))) - (if _$e151994_ - _$e151994_ - (if (##structure-instance-of? _xe151991_ 'gx#binding::t) + (lambda (_xid153149_ _yid153150_) + (let ((_xe153152_ (gx#resolve-identifier__0 _xid153149_)) + (_ye153153_ (gx#resolve-identifier__0 _yid153150_))) + (if (and _xe153152_ _ye153153_) + (let ((_$e153155_ (eq? _xe153152_ _ye153153_))) + (if _$e153155_ + _$e153155_ + (if (##structure-instance-of? _xe153152_ 'gx#binding::t) (if (##structure-instance-of? - _ye151992_ + _ye153153_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _xe151991_ + _xe153152_ '1 gx#binding::t '#f) (##unchecked-structure-ref - _ye151992_ + _ye153153_ '1 gx#binding::t '#f)) '#f) '#f))) - (if (or _xe151991_ _ye151992_) + (if (or _xe153152_ _ye153153_) '#f - (gx#stx-eq? _xid151988_ _yid151989_)))))) + (gx#stx-eq? _xid153149_ _yid153150_)))))) (define gx#bound-identifier=? - (lambda (_xid151972_ _yid151973_) - (letrec ((_context151975_ - (lambda (_e151986_) + (lambda (_xid153133_ _yid153134_) + (letrec ((_context153136_ + (lambda (_e153147_) (if (##structure-direct-instance-of? - _e151986_ + _e153147_ 'gx#syntax-quote::t) (##unchecked-structure-ref - _e151986_ + _e153147_ '3 gx#syntax-quote::t '#f) (gx#current-expander-context)))) - (_marks151976_ - (lambda (_e151984_) - (if (symbol? _e151984_) + (_marks153137_ + (lambda (_e153145_) + (if (symbol? _e153145_) '() (if (##structure-direct-instance-of? - _e151984_ + _e153145_ 'gx#identifier-wrap::t) (##unchecked-structure-ref - _e151984_ + _e153145_ '3 gx#identifier-wrap::t '#f) (##unchecked-structure-ref - _e151984_ + _e153145_ '4 gx#syntax-quote::t '#f))))) - (_unwrap151977_ - (lambda (_e151982_) - (if (symbol? _e151982_) - _e151982_ - (gx#syntax-local-unwrap _e151982_))))) - (let ((_x151979_ (_unwrap151977_ _xid151972_)) - (_y151980_ (_unwrap151977_ _yid151973_))) - (if (gx#stx-eq? _x151979_ _y151980_) - (if (eq? (_context151975_ _x151979_) - (_context151975_ _y151980_)) - (equal? (_marks151976_ _x151979_) - (_marks151976_ _y151980_)) + (_unwrap153138_ + (lambda (_e153143_) + (if (symbol? _e153143_) + _e153143_ + (gx#syntax-local-unwrap _e153143_))))) + (let ((_x153140_ (_unwrap153138_ _xid153133_)) + (_y153141_ (_unwrap153138_ _yid153134_))) + (if (gx#stx-eq? _x153140_ _y153141_) + (if (eq? (_context153136_ _x153140_) + (_context153136_ _y153141_)) + (equal? (_marks153137_ _x153140_) + (_marks153137_ _y153141_)) '#f) '#f))))) (define gx#underscore? - (lambda (_stx151970_) - (if (gx#identifier? _stx151970_) - (gx#core-identifier=? _stx151970_ '_) + (lambda (_stx153131_) + (if (gx#identifier? _stx153131_) + (gx#core-identifier=? _stx153131_ '_) '#f))) (define gx#ellipsis? - (lambda (_stx151968_) - (if (gx#identifier? _stx151968_) - (gx#core-identifier=? _stx151968_ '...) + (lambda (_stx153129_) + (if (gx#identifier? _stx153129_) + (gx#core-identifier=? _stx153129_ '...) '#f))) (define gx#user-binding-identifier - (lambda (_x151966_) - (if (gx#identifier? _x151966_) - (if (not (gx#underscore? _x151966_)) _x151966_ '#f) + (lambda (_x153127_) + (if (gx#identifier? _x153127_) + (if (not (gx#underscore? _x153127_)) _x153127_ '#f) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_stx151912_ _where151913_) - (let _lp151915_ ((_rest151917_ (gx#syntax->list _stx151912_))) - (let* ((_rest151918151926_ _rest151917_) - (_else151920151934_ (lambda () '#t)) - (_K151922151944_ - (lambda (_rest151937_ _hd151938_) - (if (not (gx#identifier? _hd151938_)) + (lambda (_stx153073_ _where153074_) + (let _lp153076_ ((_rest153078_ (gx#syntax->list _stx153073_))) + (let* ((_rest153079153087_ _rest153078_) + (_else153081153095_ (lambda () '#t)) + (_K153083153105_ + (lambda (_rest153098_ _hd153099_) + (if (not (gx#identifier? _hd153099_)) (gx#raise-syntax-error '#f '"Bad identifier" - _where151913_ - _hd151938_) - (if (find (lambda (_g151939151941_) + _where153074_ + _hd153099_) + (if (find (lambda (_g153100153102_) (gx#bound-identifier=? - _g151939151941_ - _hd151938_)) - _rest151937_) + _g153100153102_ + _hd153099_)) + _rest153098_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _where151913_ - _hd151938_) - (_lp151915_ _rest151937_)))))) - (if (##pair? _rest151918151926_) - (let ((_hd151923151947_ (##car _rest151918151926_)) - (_tl151924151949_ (##cdr _rest151918151926_))) - (let* ((_hd151952_ _hd151923151947_) - (_rest151954_ _tl151924151949_)) - (_K151922151944_ _rest151954_ _hd151952_))) - (_else151920151934_)))))) + _where153074_ + _hd153099_) + (_lp153076_ _rest153098_)))))) + (if (##pair? _rest153079153087_) + (let ((_hd153084153108_ (##car _rest153079153087_)) + (_tl153085153110_ (##cdr _rest153079153087_))) + (let* ((_hd153113_ _hd153084153108_) + (_rest153115_ _tl153085153110_)) + (_K153083153105_ _rest153115_ _hd153113_))) + (_else153081153095_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_stx151959_) - (let ((_where151961_ _stx151959_)) - (gx#check-duplicate-identifiers__% _stx151959_ _where151961_)))) + (lambda (_stx153120_) + (let ((_where153122_ _stx153120_)) + (gx#check-duplicate-identifiers__% _stx153120_ _where153122_)))) (define gx#check-duplicate-identifiers - (lambda _g159161_ - (let ((_g159160_ (##length _g159161_))) - (cond ((##fx= _g159160_ 1) - (apply (lambda (_stx151959_) - (gx#check-duplicate-identifiers__0 _stx151959_)) - _g159161_)) - ((##fx= _g159160_ 2) - (apply (lambda (_stx151963_ _where151964_) + (lambda _g160322_ + (let ((_g160321_ (##length _g160322_))) + (cond ((##fx= _g160321_ 1) + (apply (lambda (_stx153120_) + (gx#check-duplicate-identifiers__0 _stx153120_)) + _g160322_)) + ((##fx= _g160321_ 2) + (apply (lambda (_stx153124_ _where153125_) (gx#check-duplicate-identifiers__% - _stx151963_ - _where151964_)) - _g159161_)) + _stx153124_ + _where153125_)) + _g160322_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g159161_)))))) + _g160322_)))))) (define gx#core-bind-values? - (lambda (_stx151904_) + (lambda (_stx153065_) (gx#stx-andmap - (lambda (_x151906_) - (let ((_$e151908_ (gx#identifier? _x151906_))) - (if _$e151908_ _$e151908_ (gx#stx-false? _x151906_)))) - _stx151904_))) + (lambda (_x153067_) + (let ((_$e153069_ (gx#identifier? _x153067_))) + (if _$e153069_ _$e153069_ (gx#stx-false? _x153067_)))) + _stx153065_))) (define gx#core-bind-values!__% - (lambda (_stx151868_ _rebind?151869_ _phi151870_ _ctx151871_) + (lambda (_stx153029_ _rebind?153030_ _phi153031_ _ctx153032_) (gx#stx-for-each1 - (lambda (_id151873_) - (if (gx#identifier? _id151873_) + (lambda (_id153034_) + (if (gx#identifier? _id153034_) (gx#core-bind-runtime!__% - _id151873_ - _rebind?151869_ - _phi151870_ - _ctx151871_) + _id153034_ + _rebind?153030_ + _phi153031_ + _ctx153032_) '#!void)) - _stx151868_))) + _stx153029_))) (define gx#core-bind-values!__0 - (lambda (_stx151878_) - (let* ((_rebind?151880_ '#f) - (_phi151882_ (gx#current-expander-phi)) - (_ctx151884_ (gx#current-expander-context))) + (lambda (_stx153039_) + (let* ((_rebind?153041_ '#f) + (_phi153043_ (gx#current-expander-phi)) + (_ctx153045_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx151878_ - _rebind?151880_ - _phi151882_ - _ctx151884_)))) + _stx153039_ + _rebind?153041_ + _phi153043_ + _ctx153045_)))) (define gx#core-bind-values!__1 - (lambda (_stx151886_ _rebind?151887_) - (let* ((_phi151889_ (gx#current-expander-phi)) - (_ctx151891_ (gx#current-expander-context))) + (lambda (_stx153047_ _rebind?153048_) + (let* ((_phi153050_ (gx#current-expander-phi)) + (_ctx153052_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx151886_ - _rebind?151887_ - _phi151889_ - _ctx151891_)))) + _stx153047_ + _rebind?153048_ + _phi153050_ + _ctx153052_)))) (define gx#core-bind-values!__2 - (lambda (_stx151893_ _rebind?151894_ _phi151895_) - (let ((_ctx151897_ (gx#current-expander-context))) + (lambda (_stx153054_ _rebind?153055_ _phi153056_) + (let ((_ctx153058_ (gx#current-expander-context))) (gx#core-bind-values!__% - _stx151893_ - _rebind?151894_ - _phi151895_ - _ctx151897_)))) + _stx153054_ + _rebind?153055_ + _phi153056_ + _ctx153058_)))) (define gx#core-bind-values! - (lambda _g159163_ - (let ((_g159162_ (##length _g159163_))) - (cond ((##fx= _g159162_ 1) - (apply (lambda (_stx151878_) - (gx#core-bind-values!__0 _stx151878_)) - _g159163_)) - ((##fx= _g159162_ 2) - (apply (lambda (_stx151886_ _rebind?151887_) + (lambda _g160324_ + (let ((_g160323_ (##length _g160324_))) + (cond ((##fx= _g160323_ 1) + (apply (lambda (_stx153039_) + (gx#core-bind-values!__0 _stx153039_)) + _g160324_)) + ((##fx= _g160323_ 2) + (apply (lambda (_stx153047_ _rebind?153048_) (gx#core-bind-values!__1 - _stx151886_ - _rebind?151887_)) - _g159163_)) - ((##fx= _g159162_ 3) - (apply (lambda (_stx151893_ _rebind?151894_ _phi151895_) + _stx153047_ + _rebind?153048_)) + _g160324_)) + ((##fx= _g160323_ 3) + (apply (lambda (_stx153054_ _rebind?153055_ _phi153056_) (gx#core-bind-values!__2 - _stx151893_ - _rebind?151894_ - _phi151895_)) - _g159163_)) - ((##fx= _g159162_ 4) - (apply (lambda (_stx151899_ - _rebind?151900_ - _phi151901_ - _ctx151902_) + _stx153054_ + _rebind?153055_ + _phi153056_)) + _g160324_)) + ((##fx= _g160323_ 4) + (apply (lambda (_stx153060_ + _rebind?153061_ + _phi153062_ + _ctx153063_) (gx#core-bind-values!__% - _stx151899_ - _rebind?151900_ - _phi151901_ - _ctx151902_)) - _g159163_)) + _stx153060_ + _rebind?153061_ + _phi153062_ + _ctx153063_)) + _g160324_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g159163_)))))) + _g160324_)))))) (define gx#core-quote-bind-values - (lambda (_stx151863_) + (lambda (_stx153024_) (gx#stx-map1 - (lambda (_x151865_) - (if (gx#identifier? _x151865_) - (gx#core-quote-syntax__0 _x151865_) + (lambda (_x153026_) + (if (gx#identifier? _x153026_) + (gx#core-quote-syntax__0 _x153026_) '#f)) - _stx151863_))) + _stx153024_))) (define gx#core-runtime-ref? - (lambda (_stx151856_) - (if (gx#identifier? _stx151856_) - (let* ((_bind151858_ (gx#resolve-identifier__0 _stx151856_)) - (_$e151860_ (not _bind151858_))) - (if _$e151860_ - _$e151860_ + (lambda (_stx153017_) + (if (gx#identifier? _stx153017_) + (let* ((_bind153019_ (gx#resolve-identifier__0 _stx153017_)) + (_$e153021_ (not _bind153019_))) + (if _$e153021_ + _$e153021_ (##structure-instance-of? - _bind151858_ + _bind153019_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_id151848_ _form151849_) - (let ((_bind151851_ (gx#resolve-identifier__0 _id151848_))) - (if (##structure-instance-of? _bind151851_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _id151848_) - (if (not _bind151851_) + (lambda (_id153009_ _form153010_) + (let ((_bind153012_ (gx#resolve-identifier__0 _id153009_))) + (if (##structure-instance-of? _bind153012_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _id153009_) + (if (not _bind153012_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _id151848_))) - (gx#core-quote-syntax__0 _id151848_) + (gx#core-extern-symbol? (gx#stx-e _id153009_))) + (gx#core-quote-syntax__0 _id153009_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _form151849_ - _id151848_)) + _form153010_ + _id153009_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _form151849_ - _id151848_)))))) + _form153010_ + _id153009_)))))) (define gx#core-bind-runtime!__% - (lambda (_id151807_ _rebind?151808_ _phi151809_ _ctx151810_) - (let* ((_key151812_ (gx#core-identifier-key _id151807_)) - (_eid151814_ + (lambda (_id152968_ _rebind?152969_ _phi152970_ _ctx152971_) + (let* ((_key152973_ (gx#core-identifier-key _id152968_)) + (_eid152975_ (gx#make-binding-id__% - _key151812_ + _key152973_ '#f - _phi151809_ - _ctx151810_)) - (_bind151816_ + _phi152970_ + _ctx152971_)) + (_bind152977_ (if (##structure-instance-of? - _ctx151810_ + _ctx152971_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid151814_ - _key151812_ - _phi151809_ - _ctx151810_) + _eid152975_ + _key152973_ + _phi152970_ + _ctx152971_) (if (##structure-instance-of? - _ctx151810_ + _ctx152971_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid151814_ - _key151812_ - _phi151809_) + _eid152975_ + _key152973_ + _phi152970_) (if (##structure-instance-of? - _ctx151810_ + _ctx152971_ 'gx#local-context::t) (##structure gx#local-binding::t - _eid151814_ - _key151812_ - _phi151809_) + _eid152975_ + _key152973_ + _phi152970_) (##structure gx#runtime-binding::t - _eid151814_ - _key151812_ - _phi151809_)))))) + _eid152975_ + _key152973_ + _phi152970_)))))) (gx#bind-identifier!__% - _id151807_ - _bind151816_ - _rebind?151808_ - _phi151809_ - _ctx151810_)))) + _id152968_ + _bind152977_ + _rebind?152969_ + _phi152970_ + _ctx152971_)))) (define gx#core-bind-runtime!__0 - (lambda (_id151822_) - (let* ((_rebind?151824_ '#f) - (_phi151826_ (gx#current-expander-phi)) - (_ctx151828_ (gx#current-expander-context))) + (lambda (_id152983_) + (let* ((_rebind?152985_ '#f) + (_phi152987_ (gx#current-expander-phi)) + (_ctx152989_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id151822_ - _rebind?151824_ - _phi151826_ - _ctx151828_)))) + _id152983_ + _rebind?152985_ + _phi152987_ + _ctx152989_)))) (define gx#core-bind-runtime!__1 - (lambda (_id151830_ _rebind?151831_) - (let* ((_phi151833_ (gx#current-expander-phi)) - (_ctx151835_ (gx#current-expander-context))) + (lambda (_id152991_ _rebind?152992_) + (let* ((_phi152994_ (gx#current-expander-phi)) + (_ctx152996_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id151830_ - _rebind?151831_ - _phi151833_ - _ctx151835_)))) + _id152991_ + _rebind?152992_ + _phi152994_ + _ctx152996_)))) (define gx#core-bind-runtime!__2 - (lambda (_id151837_ _rebind?151838_ _phi151839_) - (let ((_ctx151841_ (gx#current-expander-context))) + (lambda (_id152998_ _rebind?152999_ _phi153000_) + (let ((_ctx153002_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _id151837_ - _rebind?151838_ - _phi151839_ - _ctx151841_)))) + _id152998_ + _rebind?152999_ + _phi153000_ + _ctx153002_)))) (define gx#core-bind-runtime! - (lambda _g159165_ - (let ((_g159164_ (##length _g159165_))) - (cond ((##fx= _g159164_ 1) - (apply (lambda (_id151822_) - (gx#core-bind-runtime!__0 _id151822_)) - _g159165_)) - ((##fx= _g159164_ 2) - (apply (lambda (_id151830_ _rebind?151831_) + (lambda _g160326_ + (let ((_g160325_ (##length _g160326_))) + (cond ((##fx= _g160325_ 1) + (apply (lambda (_id152983_) + (gx#core-bind-runtime!__0 _id152983_)) + _g160326_)) + ((##fx= _g160325_ 2) + (apply (lambda (_id152991_ _rebind?152992_) (gx#core-bind-runtime!__1 - _id151830_ - _rebind?151831_)) - _g159165_)) - ((##fx= _g159164_ 3) - (apply (lambda (_id151837_ _rebind?151838_ _phi151839_) + _id152991_ + _rebind?152992_)) + _g160326_)) + ((##fx= _g160325_ 3) + (apply (lambda (_id152998_ _rebind?152999_ _phi153000_) (gx#core-bind-runtime!__2 - _id151837_ - _rebind?151838_ - _phi151839_)) - _g159165_)) - ((##fx= _g159164_ 4) - (apply (lambda (_id151843_ - _rebind?151844_ - _phi151845_ - _ctx151846_) + _id152998_ + _rebind?152999_ + _phi153000_)) + _g160326_)) + ((##fx= _g160325_ 4) + (apply (lambda (_id153004_ + _rebind?153005_ + _phi153006_ + _ctx153007_) (gx#core-bind-runtime!__% - _id151843_ - _rebind?151844_ - _phi151845_ - _ctx151846_)) - _g159165_)) + _id153004_ + _rebind?153005_ + _phi153006_ + _ctx153007_)) + _g160326_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g159165_)))))) + _g160326_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_id151762_ _eid151763_ _rebind?151764_ _phi151765_ _ctx151766_) - (let* ((_key151768_ (gx#core-identifier-key _id151762_)) - (_bind151770_ + (lambda (_id152923_ _eid152924_ _rebind?152925_ _phi152926_ _ctx152927_) + (let* ((_key152929_ (gx#core-identifier-key _id152923_)) + (_bind152931_ (if (##structure-instance-of? - _ctx151766_ + _ctx152927_ 'gx#module-context::t) (##structure gx#module-binding::t - _eid151763_ - _key151768_ - _phi151765_ - _ctx151766_) + _eid152924_ + _key152929_ + _phi152926_ + _ctx152927_) (if (##structure-instance-of? - _ctx151766_ + _ctx152927_ 'gx#top-context::t) (##structure gx#top-binding::t - _eid151763_ - _key151768_ - _phi151765_) + _eid152924_ + _key152929_ + _phi152926_) (##structure gx#runtime-binding::t - _eid151763_ - _key151768_ - _phi151765_))))) + _eid152924_ + _key152929_ + _phi152926_))))) (gx#bind-identifier!__% - _id151762_ - _bind151770_ - _rebind?151764_ - _phi151765_ - _ctx151766_)))) + _id152923_ + _bind152931_ + _rebind?152925_ + _phi152926_ + _ctx152927_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_id151776_ _eid151777_) - (let* ((_rebind?151779_ '#f) - (_phi151781_ (gx#current-expander-phi)) - (_ctx151783_ (gx#current-expander-context))) + (lambda (_id152937_ _eid152938_) + (let* ((_rebind?152940_ '#f) + (_phi152942_ (gx#current-expander-phi)) + (_ctx152944_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id151776_ - _eid151777_ - _rebind?151779_ - _phi151781_ - _ctx151783_)))) + _id152937_ + _eid152938_ + _rebind?152940_ + _phi152942_ + _ctx152944_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_id151785_ _eid151786_ _rebind?151787_) - (let* ((_phi151789_ (gx#current-expander-phi)) - (_ctx151791_ (gx#current-expander-context))) + (lambda (_id152946_ _eid152947_ _rebind?152948_) + (let* ((_phi152950_ (gx#current-expander-phi)) + (_ctx152952_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id151785_ - _eid151786_ - _rebind?151787_ - _phi151789_ - _ctx151791_)))) + _id152946_ + _eid152947_ + _rebind?152948_ + _phi152950_ + _ctx152952_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_id151793_ _eid151794_ _rebind?151795_ _phi151796_) - (let ((_ctx151798_ (gx#current-expander-context))) + (lambda (_id152954_ _eid152955_ _rebind?152956_ _phi152957_) + (let ((_ctx152959_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _id151793_ - _eid151794_ - _rebind?151795_ - _phi151796_ - _ctx151798_)))) + _id152954_ + _eid152955_ + _rebind?152956_ + _phi152957_ + _ctx152959_)))) (define gx#core-bind-runtime-reference! - (lambda _g159167_ - (let ((_g159166_ (##length _g159167_))) - (cond ((##fx= _g159166_ 2) - (apply (lambda (_id151776_ _eid151777_) + (lambda _g160328_ + (let ((_g160327_ (##length _g160328_))) + (cond ((##fx= _g160327_ 2) + (apply (lambda (_id152937_ _eid152938_) (gx#core-bind-runtime-reference!__0 - _id151776_ - _eid151777_)) - _g159167_)) - ((##fx= _g159166_ 3) - (apply (lambda (_id151785_ _eid151786_ _rebind?151787_) + _id152937_ + _eid152938_)) + _g160328_)) + ((##fx= _g160327_ 3) + (apply (lambda (_id152946_ _eid152947_ _rebind?152948_) (gx#core-bind-runtime-reference!__1 - _id151785_ - _eid151786_ - _rebind?151787_)) - _g159167_)) - ((##fx= _g159166_ 4) - (apply (lambda (_id151793_ - _eid151794_ - _rebind?151795_ - _phi151796_) + _id152946_ + _eid152947_ + _rebind?152948_)) + _g160328_)) + ((##fx= _g160327_ 4) + (apply (lambda (_id152954_ + _eid152955_ + _rebind?152956_ + _phi152957_) (gx#core-bind-runtime-reference!__2 - _id151793_ - _eid151794_ - _rebind?151795_ - _phi151796_)) - _g159167_)) - ((##fx= _g159166_ 5) - (apply (lambda (_id151800_ - _eid151801_ - _rebind?151802_ - _phi151803_ - _ctx151804_) + _id152954_ + _eid152955_ + _rebind?152956_ + _phi152957_)) + _g160328_)) + ((##fx= _g160327_ 5) + (apply (lambda (_id152961_ + _eid152962_ + _rebind?152963_ + _phi152964_ + _ctx152965_) (gx#core-bind-runtime-reference!__% - _id151800_ - _eid151801_ - _rebind?151802_ - _phi151803_ - _ctx151804_)) - _g159167_)) + _id152961_ + _eid152962_ + _rebind?152963_ + _phi152964_ + _ctx152965_)) + _g160328_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g159167_)))))) + _g160328_)))))) (define gx#core-bind-extern!__% - (lambda (_id151722_ _eid151723_ _rebind?151724_ _phi151725_ _ctx151726_) + (lambda (_id152883_ _eid152884_ _rebind?152885_ _phi152886_ _ctx152887_) (gx#bind-identifier!__% - _id151722_ + _id152883_ (##structure gx#extern-binding::t - _eid151723_ - (gx#core-identifier-key _id151722_) - _phi151725_) - _rebind?151724_ - _phi151725_ - _ctx151726_))) + _eid152884_ + (gx#core-identifier-key _id152883_) + _phi152886_) + _rebind?152885_ + _phi152886_ + _ctx152887_))) (define gx#core-bind-extern!__0 - (lambda (_id151731_ _eid151732_) - (let* ((_rebind?151734_ '#f) - (_phi151736_ (gx#current-expander-phi)) - (_ctx151738_ (gx#current-expander-context))) + (lambda (_id152892_ _eid152893_) + (let* ((_rebind?152895_ '#f) + (_phi152897_ (gx#current-expander-phi)) + (_ctx152899_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id151731_ - _eid151732_ - _rebind?151734_ - _phi151736_ - _ctx151738_)))) + _id152892_ + _eid152893_ + _rebind?152895_ + _phi152897_ + _ctx152899_)))) (define gx#core-bind-extern!__1 - (lambda (_id151740_ _eid151741_ _rebind?151742_) - (let* ((_phi151744_ (gx#current-expander-phi)) - (_ctx151746_ (gx#current-expander-context))) + (lambda (_id152901_ _eid152902_ _rebind?152903_) + (let* ((_phi152905_ (gx#current-expander-phi)) + (_ctx152907_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id151740_ - _eid151741_ - _rebind?151742_ - _phi151744_ - _ctx151746_)))) + _id152901_ + _eid152902_ + _rebind?152903_ + _phi152905_ + _ctx152907_)))) (define gx#core-bind-extern!__2 - (lambda (_id151748_ _eid151749_ _rebind?151750_ _phi151751_) - (let ((_ctx151753_ (gx#current-expander-context))) + (lambda (_id152909_ _eid152910_ _rebind?152911_ _phi152912_) + (let ((_ctx152914_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _id151748_ - _eid151749_ - _rebind?151750_ - _phi151751_ - _ctx151753_)))) + _id152909_ + _eid152910_ + _rebind?152911_ + _phi152912_ + _ctx152914_)))) (define gx#core-bind-extern! - (lambda _g159169_ - (let ((_g159168_ (##length _g159169_))) - (cond ((##fx= _g159168_ 2) - (apply (lambda (_id151731_ _eid151732_) - (gx#core-bind-extern!__0 _id151731_ _eid151732_)) - _g159169_)) - ((##fx= _g159168_ 3) - (apply (lambda (_id151740_ _eid151741_ _rebind?151742_) + (lambda _g160330_ + (let ((_g160329_ (##length _g160330_))) + (cond ((##fx= _g160329_ 2) + (apply (lambda (_id152892_ _eid152893_) + (gx#core-bind-extern!__0 _id152892_ _eid152893_)) + _g160330_)) + ((##fx= _g160329_ 3) + (apply (lambda (_id152901_ _eid152902_ _rebind?152903_) (gx#core-bind-extern!__1 - _id151740_ - _eid151741_ - _rebind?151742_)) - _g159169_)) - ((##fx= _g159168_ 4) - (apply (lambda (_id151748_ - _eid151749_ - _rebind?151750_ - _phi151751_) + _id152901_ + _eid152902_ + _rebind?152903_)) + _g160330_)) + ((##fx= _g160329_ 4) + (apply (lambda (_id152909_ + _eid152910_ + _rebind?152911_ + _phi152912_) (gx#core-bind-extern!__2 - _id151748_ - _eid151749_ - _rebind?151750_ - _phi151751_)) - _g159169_)) - ((##fx= _g159168_ 5) - (apply (lambda (_id151755_ - _eid151756_ - _rebind?151757_ - _phi151758_ - _ctx151759_) + _id152909_ + _eid152910_ + _rebind?152911_ + _phi152912_)) + _g160330_)) + ((##fx= _g160329_ 5) + (apply (lambda (_id152916_ + _eid152917_ + _rebind?152918_ + _phi152919_ + _ctx152920_) (gx#core-bind-extern!__% - _id151755_ - _eid151756_ - _rebind?151757_ - _phi151758_ - _ctx151759_)) - _g159169_)) + _id152916_ + _eid152917_ + _rebind?152918_ + _phi152919_ + _ctx152920_)) + _g160330_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g159169_)))))) + _g160330_)))))) (define gx#core-bind-syntax!__% - (lambda (_id151676_ _e151677_ _rebind?151678_ _phi151679_ _ctx151680_) + (lambda (_id152837_ _e152838_ _rebind?152839_ _phi152840_ _ctx152841_) (gx#bind-identifier!__% - _id151676_ - (let ((_key151685_ (gx#core-identifier-key _id151676_)) - (_e151686_ - (if (or (##structure-instance-of? _e151677_ 'gx#expander::t) + _id152837_ + (let ((_key152846_ (gx#core-identifier-key _id152837_)) + (_e152847_ + (if (or (##structure-instance-of? _e152838_ 'gx#expander::t) (##structure-instance-of? - _e151677_ + _e152838_ 'gx#expander-context::t)) - _e151677_ + _e152838_ (##structure gx#user-expander::t - _e151677_ - _ctx151680_ - _phi151679_)))) + _e152838_ + _ctx152841_ + _phi152840_)))) (##structure gx#syntax-binding::t - (gx#make-binding-id__% _key151685_ '#t _phi151679_ _ctx151680_) - _key151685_ - _phi151679_ - _e151686_)) - _rebind?151678_ - _phi151679_ - _ctx151680_))) + (gx#make-binding-id__% _key152846_ '#t _phi152840_ _ctx152841_) + _key152846_ + _phi152840_ + _e152847_)) + _rebind?152839_ + _phi152840_ + _ctx152841_))) (define gx#core-bind-syntax!__0 - (lambda (_id151691_ _e151692_) - (let* ((_rebind?151694_ '#f) - (_phi151696_ (gx#current-expander-phi)) - (_ctx151698_ (gx#current-expander-context))) + (lambda (_id152852_ _e152853_) + (let* ((_rebind?152855_ '#f) + (_phi152857_ (gx#current-expander-phi)) + (_ctx152859_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id151691_ - _e151692_ - _rebind?151694_ - _phi151696_ - _ctx151698_)))) + _id152852_ + _e152853_ + _rebind?152855_ + _phi152857_ + _ctx152859_)))) (define gx#core-bind-syntax!__1 - (lambda (_id151700_ _e151701_ _rebind?151702_) - (let* ((_phi151704_ (gx#current-expander-phi)) - (_ctx151706_ (gx#current-expander-context))) + (lambda (_id152861_ _e152862_ _rebind?152863_) + (let* ((_phi152865_ (gx#current-expander-phi)) + (_ctx152867_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id151700_ - _e151701_ - _rebind?151702_ - _phi151704_ - _ctx151706_)))) + _id152861_ + _e152862_ + _rebind?152863_ + _phi152865_ + _ctx152867_)))) (define gx#core-bind-syntax!__2 - (lambda (_id151708_ _e151709_ _rebind?151710_ _phi151711_) - (let ((_ctx151713_ (gx#current-expander-context))) + (lambda (_id152869_ _e152870_ _rebind?152871_ _phi152872_) + (let ((_ctx152874_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _id151708_ - _e151709_ - _rebind?151710_ - _phi151711_ - _ctx151713_)))) + _id152869_ + _e152870_ + _rebind?152871_ + _phi152872_ + _ctx152874_)))) (define gx#core-bind-syntax! - (lambda _g159171_ - (let ((_g159170_ (##length _g159171_))) - (cond ((##fx= _g159170_ 2) - (apply (lambda (_id151691_ _e151692_) - (gx#core-bind-syntax!__0 _id151691_ _e151692_)) - _g159171_)) - ((##fx= _g159170_ 3) - (apply (lambda (_id151700_ _e151701_ _rebind?151702_) + (lambda _g160332_ + (let ((_g160331_ (##length _g160332_))) + (cond ((##fx= _g160331_ 2) + (apply (lambda (_id152852_ _e152853_) + (gx#core-bind-syntax!__0 _id152852_ _e152853_)) + _g160332_)) + ((##fx= _g160331_ 3) + (apply (lambda (_id152861_ _e152862_ _rebind?152863_) (gx#core-bind-syntax!__1 - _id151700_ - _e151701_ - _rebind?151702_)) - _g159171_)) - ((##fx= _g159170_ 4) - (apply (lambda (_id151708_ - _e151709_ - _rebind?151710_ - _phi151711_) + _id152861_ + _e152862_ + _rebind?152863_)) + _g160332_)) + ((##fx= _g160331_ 4) + (apply (lambda (_id152869_ + _e152870_ + _rebind?152871_ + _phi152872_) (gx#core-bind-syntax!__2 - _id151708_ - _e151709_ - _rebind?151710_ - _phi151711_)) - _g159171_)) - ((##fx= _g159170_ 5) - (apply (lambda (_id151715_ - _e151716_ - _rebind?151717_ - _phi151718_ - _ctx151719_) + _id152869_ + _e152870_ + _rebind?152871_ + _phi152872_)) + _g160332_)) + ((##fx= _g160331_ 5) + (apply (lambda (_id152876_ + _e152877_ + _rebind?152878_ + _phi152879_ + _ctx152880_) (gx#core-bind-syntax!__% - _id151715_ - _e151716_ - _rebind?151717_ - _phi151718_ - _ctx151719_)) - _g159171_)) + _id152876_ + _e152877_ + _rebind?152878_ + _phi152879_ + _ctx152880_)) + _g160332_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g159171_)))))) + _g160332_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_id151659_ _e151660_ _rebind?151661_) + (lambda (_id152820_ _e152821_ _rebind?152822_) (gx#core-bind-syntax!__% - _id151659_ - _e151660_ - _rebind?151661_ + _id152820_ + _e152821_ + _rebind?152822_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_id151666_ _e151667_) - (let ((_rebind?151669_ '#f)) + (lambda (_id152827_ _e152828_) + (let ((_rebind?152830_ '#f)) (gx#core-bind-root-syntax!__% - _id151666_ - _e151667_ - _rebind?151669_)))) + _id152827_ + _e152828_ + _rebind?152830_)))) (define gx#core-bind-root-syntax! - (lambda _g159173_ - (let ((_g159172_ (##length _g159173_))) - (cond ((##fx= _g159172_ 2) - (apply (lambda (_id151666_ _e151667_) - (gx#core-bind-root-syntax!__0 _id151666_ _e151667_)) - _g159173_)) - ((##fx= _g159172_ 3) - (apply (lambda (_id151671_ _e151672_ _rebind?151673_) + (lambda _g160334_ + (let ((_g160333_ (##length _g160334_))) + (cond ((##fx= _g160333_ 2) + (apply (lambda (_id152827_ _e152828_) + (gx#core-bind-root-syntax!__0 _id152827_ _e152828_)) + _g160334_)) + ((##fx= _g160333_ 3) + (apply (lambda (_id152832_ _e152833_ _rebind?152834_) (gx#core-bind-root-syntax!__% - _id151671_ - _e151672_ - _rebind?151673_)) - _g159173_)) + _id152832_ + _e152833_ + _rebind?152834_)) + _g160334_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g159173_)))))) + _g160334_)))))) (define gx#core-bind-alias!__% - (lambda (_id151617_ - _alias-id151618_ - _rebind?151619_ - _phi151620_ - _ctx151621_) + (lambda (_id152778_ + _alias-id152779_ + _rebind?152780_ + _phi152781_ + _ctx152782_) (gx#bind-identifier!__% - _id151617_ - (let ((_key151623_ (gx#core-identifier-key _id151617_))) + _id152778_ + (let ((_key152784_ (gx#core-identifier-key _id152778_))) (##structure gx#alias-binding::t - (gx#make-binding-id__% _key151623_ '#t _phi151620_ _ctx151621_) - _key151623_ - _phi151620_ - _alias-id151618_)) - _rebind?151619_ - _phi151620_ - _ctx151621_))) + (gx#make-binding-id__% _key152784_ '#t _phi152781_ _ctx152782_) + _key152784_ + _phi152781_ + _alias-id152779_)) + _rebind?152780_ + _phi152781_ + _ctx152782_))) (define gx#core-bind-alias!__0 - (lambda (_id151628_ _alias-id151629_) - (let* ((_rebind?151631_ '#f) - (_phi151633_ (gx#current-expander-phi)) - (_ctx151635_ (gx#current-expander-context))) + (lambda (_id152789_ _alias-id152790_) + (let* ((_rebind?152792_ '#f) + (_phi152794_ (gx#current-expander-phi)) + (_ctx152796_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id151628_ - _alias-id151629_ - _rebind?151631_ - _phi151633_ - _ctx151635_)))) + _id152789_ + _alias-id152790_ + _rebind?152792_ + _phi152794_ + _ctx152796_)))) (define gx#core-bind-alias!__1 - (lambda (_id151637_ _alias-id151638_ _rebind?151639_) - (let* ((_phi151641_ (gx#current-expander-phi)) - (_ctx151643_ (gx#current-expander-context))) + (lambda (_id152798_ _alias-id152799_ _rebind?152800_) + (let* ((_phi152802_ (gx#current-expander-phi)) + (_ctx152804_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id151637_ - _alias-id151638_ - _rebind?151639_ - _phi151641_ - _ctx151643_)))) + _id152798_ + _alias-id152799_ + _rebind?152800_ + _phi152802_ + _ctx152804_)))) (define gx#core-bind-alias!__2 - (lambda (_id151645_ _alias-id151646_ _rebind?151647_ _phi151648_) - (let ((_ctx151650_ (gx#current-expander-context))) + (lambda (_id152806_ _alias-id152807_ _rebind?152808_ _phi152809_) + (let ((_ctx152811_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _id151645_ - _alias-id151646_ - _rebind?151647_ - _phi151648_ - _ctx151650_)))) + _id152806_ + _alias-id152807_ + _rebind?152808_ + _phi152809_ + _ctx152811_)))) (define gx#core-bind-alias! - (lambda _g159175_ - (let ((_g159174_ (##length _g159175_))) - (cond ((##fx= _g159174_ 2) - (apply (lambda (_id151628_ _alias-id151629_) - (gx#core-bind-alias!__0 _id151628_ _alias-id151629_)) - _g159175_)) - ((##fx= _g159174_ 3) - (apply (lambda (_id151637_ _alias-id151638_ _rebind?151639_) + (lambda _g160336_ + (let ((_g160335_ (##length _g160336_))) + (cond ((##fx= _g160335_ 2) + (apply (lambda (_id152789_ _alias-id152790_) + (gx#core-bind-alias!__0 _id152789_ _alias-id152790_)) + _g160336_)) + ((##fx= _g160335_ 3) + (apply (lambda (_id152798_ _alias-id152799_ _rebind?152800_) (gx#core-bind-alias!__1 - _id151637_ - _alias-id151638_ - _rebind?151639_)) - _g159175_)) - ((##fx= _g159174_ 4) - (apply (lambda (_id151645_ - _alias-id151646_ - _rebind?151647_ - _phi151648_) + _id152798_ + _alias-id152799_ + _rebind?152800_)) + _g160336_)) + ((##fx= _g160335_ 4) + (apply (lambda (_id152806_ + _alias-id152807_ + _rebind?152808_ + _phi152809_) (gx#core-bind-alias!__2 - _id151645_ - _alias-id151646_ - _rebind?151647_ - _phi151648_)) - _g159175_)) - ((##fx= _g159174_ 5) - (apply (lambda (_id151652_ - _alias-id151653_ - _rebind?151654_ - _phi151655_ - _ctx151656_) + _id152806_ + _alias-id152807_ + _rebind?152808_ + _phi152809_)) + _g160336_)) + ((##fx= _g160335_ 5) + (apply (lambda (_id152813_ + _alias-id152814_ + _rebind?152815_ + _phi152816_ + _ctx152817_) (gx#core-bind-alias!__% - _id151652_ - _alias-id151653_ - _rebind?151654_ - _phi151655_ - _ctx151656_)) - _g159175_)) + _id152813_ + _alias-id152814_ + _rebind?152815_ + _phi152816_ + _ctx152817_)) + _g160336_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g159175_)))))) + _g160336_)))))) (define gx#make-binding-id__% - (lambda (_key151574_ _syntax?151575_ _phi151576_ _ctx151577_) - (if (uninterned-symbol? _key151574_) + (lambda (_key152735_ _syntax?152736_ _phi152737_ _ctx152738_) + (if (uninterned-symbol? _key152735_) (gensym 'L) - (if (pair? _key151574_) - (gensym (car _key151574_)) - (if (##structure-instance-of? _ctx151577_ 'gx#top-context::t) - (let ((_ns151579_ - (gx#core-context-namespace__% _ctx151577_))) - (if (and (fxzero? _phi151576_) (not _syntax?151575_)) - (if _ns151579_ - (make-symbol__1 _ns151579_ '"#" _key151574_) - _key151574_) - (if _syntax?151575_ + (if (pair? _key152735_) + (gensym (car _key152735_)) + (if (##structure-instance-of? _ctx152738_ 'gx#top-context::t) + (let ((_ns152740_ + (gx#core-context-namespace__% _ctx152738_))) + (if (and (fxzero? _phi152737_) (not _syntax?152736_)) + (if _ns152740_ + (make-symbol__1 _ns152740_ '"#" _key152735_) + _key152735_) + (if _syntax?152736_ (make-symbol__1 - (let ((_$e151581_ _ns151579_)) - (if _$e151581_ _$e151581_ '"")) + (let ((_$e152742_ _ns152740_)) + (if _$e152742_ _$e152742_ '"")) '"[:" - (number->string _phi151576_) + (number->string _phi152737_) '":]#" - _key151574_) + _key152735_) (make-symbol__1 - (let ((_$e151584_ _ns151579_)) - (if _$e151584_ _$e151584_ '"")) + (let ((_$e152745_ _ns152740_)) + (if _$e152745_ _$e152745_ '"")) '"[" - (number->string _phi151576_) + (number->string _phi152737_) '"]#" - _key151574_)))) - (gensym _key151574_)))))) + _key152735_)))) + (gensym _key152735_)))))) (define gx#make-binding-id__0 - (lambda (_key151590_) - (let* ((_syntax?151592_ '#f) - (_phi151594_ (gx#current-expander-phi)) - (_ctx151596_ (gx#current-expander-context))) + (lambda (_key152751_) + (let* ((_syntax?152753_ '#f) + (_phi152755_ (gx#current-expander-phi)) + (_ctx152757_ (gx#current-expander-context))) (gx#make-binding-id__% - _key151590_ - _syntax?151592_ - _phi151594_ - _ctx151596_)))) + _key152751_ + _syntax?152753_ + _phi152755_ + _ctx152757_)))) (define gx#make-binding-id__1 - (lambda (_key151598_ _syntax?151599_) - (let* ((_phi151601_ (gx#current-expander-phi)) - (_ctx151603_ (gx#current-expander-context))) + (lambda (_key152759_ _syntax?152760_) + (let* ((_phi152762_ (gx#current-expander-phi)) + (_ctx152764_ (gx#current-expander-context))) (gx#make-binding-id__% - _key151598_ - _syntax?151599_ - _phi151601_ - _ctx151603_)))) + _key152759_ + _syntax?152760_ + _phi152762_ + _ctx152764_)))) (define gx#make-binding-id__2 - (lambda (_key151605_ _syntax?151606_ _phi151607_) - (let ((_ctx151609_ (gx#current-expander-context))) + (lambda (_key152766_ _syntax?152767_ _phi152768_) + (let ((_ctx152770_ (gx#current-expander-context))) (gx#make-binding-id__% - _key151605_ - _syntax?151606_ - _phi151607_ - _ctx151609_)))) + _key152766_ + _syntax?152767_ + _phi152768_ + _ctx152770_)))) (define gx#make-binding-id - (lambda _g159177_ - (let ((_g159176_ (##length _g159177_))) - (cond ((##fx= _g159176_ 1) - (apply (lambda (_key151590_) - (gx#make-binding-id__0 _key151590_)) - _g159177_)) - ((##fx= _g159176_ 2) - (apply (lambda (_key151598_ _syntax?151599_) - (gx#make-binding-id__1 _key151598_ _syntax?151599_)) - _g159177_)) - ((##fx= _g159176_ 3) - (apply (lambda (_key151605_ _syntax?151606_ _phi151607_) + (lambda _g160338_ + (let ((_g160337_ (##length _g160338_))) + (cond ((##fx= _g160337_ 1) + (apply (lambda (_key152751_) + (gx#make-binding-id__0 _key152751_)) + _g160338_)) + ((##fx= _g160337_ 2) + (apply (lambda (_key152759_ _syntax?152760_) + (gx#make-binding-id__1 _key152759_ _syntax?152760_)) + _g160338_)) + ((##fx= _g160337_ 3) + (apply (lambda (_key152766_ _syntax?152767_ _phi152768_) (gx#make-binding-id__2 - _key151605_ - _syntax?151606_ - _phi151607_)) - _g159177_)) - ((##fx= _g159176_ 4) - (apply (lambda (_key151611_ - _syntax?151612_ - _phi151613_ - _ctx151614_) + _key152766_ + _syntax?152767_ + _phi152768_)) + _g160338_)) + ((##fx= _g160337_ 4) + (apply (lambda (_key152772_ + _syntax?152773_ + _phi152774_ + _ctx152775_) (gx#make-binding-id__% - _key151611_ - _syntax?151612_ - _phi151613_ - _ctx151614_)) - _g159177_)) + _key152772_ + _syntax?152773_ + _phi152774_ + _ctx152775_)) + _g160338_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g159177_)))))))) + _g160338_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3__0.scm b/src/bootstrap/gerbil/runtime/c3__0.scm index a3af314d7..9f42e44bc 100644 --- a/src/bootstrap/gerbil/runtime/c3__0.scm +++ b/src/bootstrap/gerbil/runtime/c3__0.scm @@ -1,541 +1,541 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1707773925) + (define gerbil/runtime/c3::timestamp 1708102801) (begin (define c4-linearize__% - (lambda (_g83630_ - _get-precedence-list7872978735_ - _struct?7873078737_ - _eq7873178739_ - _get-name7873278741_ - _rhead78743_ - _supers78744_) - (let* ((_get-precedence-list78746_ + (lambda (_g83841_ + _get-precedence-list7894078946_ + _struct?7894178948_ + _eq7894278950_ + _get-name7894378952_ + _rhead78954_ + _supers78955_) + (let* ((_get-precedence-list78957_ (if (let () (declare (not safe)) - (eq? _get-precedence-list7872978735_ absent-value)) + (eq? _get-precedence-list7894078946_ absent-value)) (error '"Missing required keyword argument" 'get-precedence-list:) - _get-precedence-list7872978735_)) - (_struct?78748_ + _get-precedence-list7894078946_)) + (_struct?78959_ (if (let () (declare (not safe)) - (eq? _struct?7873078737_ absent-value)) + (eq? _struct?7894178948_ absent-value)) (error '"Missing required keyword argument" 'struct:) - _struct?7873078737_)) - (_eq78750_ + _struct?7894178948_)) + (_eq78961_ (if (let () (declare (not safe)) - (eq? _eq7873178739_ absent-value)) + (eq? _eq7894278950_ absent-value)) eq? - _eq7873178739_)) - (_get-name78752_ + _eq7894278950_)) + (_get-name78963_ (if (let () (declare (not safe)) - (eq? _get-name7873278741_ absent-value)) + (eq? _get-name7894378952_ absent-value)) identity - _get-name7873278741_))) - (letrec* ((_pls78754_ (map _get-precedence-list78746_ _supers78744_)) - (_sit78755_ '()) - (_get-names78756_ - (lambda (_lst79020_) (map _get-name78752_ _lst79020_))) - (_err78757_ - (lambda _a79018_ + _get-name7894378952_))) + (letrec* ((_pls78965_ (map _get-precedence-list78957_ _supers78955_)) + (_sit78966_ '()) + (_get-names78967_ + (lambda (_lst79231_) (map _get-name78963_ _lst79231_))) + (_err78968_ + (lambda _a79229_ (apply error '"Inconsistent precedence graph" 'head: - (let ((__tmp83631 (reverse _rhead78743_))) + (let ((__tmp83842 (reverse _rhead78954_))) (declare (not safe)) - (_get-names78756_ __tmp83631)) + (_get-names78967_ __tmp83842)) 'precedence-lists: - (map _get-names78756_ _pls78754_) + (map _get-names78967_ _pls78965_) 'single-inheritance-tail: (let () (declare (not safe)) - (_get-names78756_ _sit78755_)) - _a79018_))) - (_merge-sit!78758_ - (lambda (_sit279008_) - (if (let () (declare (not safe)) (null? _sit279008_)) + (_get-names78967_ _sit78966_)) + _a79229_))) + (_merge-sit!78969_ + (lambda (_sit279219_) + (if (let () (declare (not safe)) (null? _sit279219_)) '#!void - (if (let () (declare (not safe)) (null? _sit78755_)) - (set! _sit78755_ _sit279008_) - (let _loop79010_ ((_t179012_ _sit78755_) - (_t279013_ _sit279008_)) + (if (let () (declare (not safe)) (null? _sit78966_)) + (set! _sit78966_ _sit279219_) + (let _loop79221_ ((_t179223_ _sit78966_) + (_t279224_ _sit279219_)) (if (let () (declare (not safe)) - (equal? _t179012_ _sit279008_)) + (equal? _t179223_ _sit279219_)) '#!void (if (let () (declare (not safe)) - (equal? _t279013_ _sit78755_)) - (set! _sit78755_ _sit279008_) + (equal? _t279224_ _sit78966_)) + (set! _sit78966_ _sit279219_) (if (or (let () (declare (not safe)) - (null? _t179012_)) + (null? _t179223_)) (let () (declare (not safe)) - (null? _t279013_))) - (let ((__tmp83634 - (let ((__tmp83637 + (null? _t279224_))) + (let ((__tmp83845 + (let ((__tmp83848 (let () (declare (not safe)) - (_get-names78756_ - _sit78755_))) - (__tmp83635 - (let ((__tmp83636 + (_get-names78967_ + _sit78966_))) + (__tmp83846 + (let ((__tmp83847 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (_get-names78756_ _sit279008_)))) + (_get-names78967_ _sit279219_)))) (declare (not safe)) - (cons __tmp83636 '())))) + (cons __tmp83847 '())))) (declare (not safe)) - (cons __tmp83637 __tmp83635)))) + (cons __tmp83848 __tmp83846)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_err78757_ + (_err78968_ 'single-inheritance-incompatibility: - __tmp83634)) - (let ((__tmp83633 (cdr _t179012_)) - (__tmp83632 - (cdr _t279013_))) + __tmp83845)) + (let ((__tmp83844 (cdr _t179223_)) + (__tmp83843 + (cdr _t279224_))) (declare (not safe)) - (_loop79010_ - __tmp83633 - __tmp83632)))))))))) - (_rpls78759_ - (map (lambda (_pl79003_) - (let ((_g83638_ + (_loop79221_ + __tmp83844 + __tmp83843)))))))))) + (_rpls78970_ + (map (lambda (_pl79214_) + (let ((_g83849_ (let () (declare (not safe)) (append-reverse-until - _struct?78748_ - _pl79003_ + _struct?78959_ + _pl79214_ '())))) (begin - (let ((_g83639_ + (let ((_g83850_ (let () (declare (not safe)) - (if (##values? _g83638_) - (##vector-length _g83638_) + (if (##values? _g83849_) + (##vector-length _g83849_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83639_ 2))) + (##fx= _g83850_ 2))) (error "Context expects 2 values" - _g83639_))) - (let ((_tl79005_ + _g83850_))) + (let ((_tl79216_ (let () (declare (not safe)) - (##vector-ref _g83638_ 0))) - (_rh79006_ + (##vector-ref _g83849_ 0))) + (_rh79217_ (let () (declare (not safe)) - (##vector-ref _g83638_ 1)))) + (##vector-ref _g83849_ 1)))) (begin (let () (declare (not safe)) - (_merge-sit!78758_ _tl79005_)) - _rh79006_))))) - _pls78754_)) - (_unsitr-rpl78760_ - (lambda (_rpl78949_) - (let _u78951_ ((_pl-rhead78953_ _rpl78949_) - (_pl-tail78954_ '()) - (_sit-rhead78955_ (reverse _sit78755_)) - (_sit-tail78956_ '())) - (let* ((_pl-rhead7895778966_ _pl-rhead78953_) - (_E7896078970_ + (_merge-sit!78969_ _tl79216_)) + _rh79217_))))) + _pls78965_)) + (_unsitr-rpl78971_ + (lambda (_rpl79160_) + (let _u79162_ ((_pl-rhead79164_ _rpl79160_) + (_pl-tail79165_ '()) + (_sit-rhead79166_ (reverse _sit78966_)) + (_sit-tail79167_ '())) + (let* ((_pl-rhead7916879177_ _pl-rhead79164_) + (_E7917179181_ (lambda () (error '"No clause matching" - _pl-rhead7895778966_)))) - (let ((_K7896479000_ (lambda () _pl-tail78954_)) - (_K7896178984_ - (lambda (_plrh78974_ _c78975_) - (if (member _c78975_ - _sit-tail78956_ - _eq78750_) - (let ((__tmp83650 - (let ((__tmp83651 - (reverse _pl-rhead78953_))) + _pl-rhead7916879177_)))) + (let ((_K7917579211_ (lambda () _pl-tail79165_)) + (_K7917279195_ + (lambda (_plrh79185_ _c79186_) + (if (member _c79186_ + _sit-tail79167_ + _eq78961_) + (let ((__tmp83861 + (let ((__tmp83862 + (reverse _pl-rhead79164_))) (declare (not safe)) - (_get-names78756_ - __tmp83651))) - (__tmp83649 + (_get-names78967_ + __tmp83862))) + (__tmp83860 (let () (declare (not safe)) - (_get-names78756_ - _pl-tail78954_))) - (__tmp83647 - (let ((__tmp83648 - (reverse _sit-rhead78955_))) + (_get-names78967_ + _pl-tail79165_))) + (__tmp83858 + (let ((__tmp83859 + (reverse _sit-rhead79166_))) (declare (not safe)) - (_get-names78756_ - __tmp83648))) - (__tmp83646 + (_get-names78967_ + __tmp83859))) + (__tmp83857 (let () (declare (not safe)) - (_get-names78756_ - _sit-tail78956_))) - (__tmp83645 - (_get-name78752_ _c78975_))) + (_get-names78967_ + _sit-tail79167_))) + (__tmp83856 + (_get-name78963_ _c79186_))) (declare (not safe)) - (_err78757_ + (_err78968_ 'precedence-list-head: - __tmp83650 + __tmp83861 'precedence-list-tail: - __tmp83649 + __tmp83860 'single-inheritance-head: - __tmp83647 + __tmp83858 'single-inheritance-tail: - __tmp83646 + __tmp83857 'super-out-of-order-vs-single-inheritance-tail: - __tmp83645)) - (let ((_g83640_ - (let ((__tmp83642 - (lambda (_g7897678978_) - (_eq78750_ - _c78975_ - _g7897678978_)))) + __tmp83856)) + (let ((_g83851_ + (let ((__tmp83853 + (lambda (_g7918779189_) + (_eq78961_ + _c79186_ + _g7918779189_)))) (declare (not safe)) (append-reverse-until - __tmp83642 - _sit-rhead78955_ - _sit-tail78956_)))) + __tmp83853 + _sit-rhead79166_ + _sit-tail79167_)))) (begin - (let ((_g83641_ + (let ((_g83852_ (let () (declare (not safe)) - (if (##values? _g83640_) + (if (##values? _g83851_) (##vector-length - _g83640_) + _g83851_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g83641_ 2))) + (##fx= _g83852_ 2))) (error "Context expects 2 values" - _g83641_))) - (let ((_sit-rh278981_ + _g83852_))) + (let ((_sit-rh279192_ (let () (declare (not safe)) (##vector-ref - _g83640_ + _g83851_ 0))) - (_sit-tl278982_ + (_sit-tl279193_ (let () (declare (not safe)) (##vector-ref - _g83640_ + _g83851_ 1)))) (if (let () (declare (not safe)) - (null? _sit-rh278981_)) - (let ((__tmp83644 + (null? _sit-rh279192_)) + (let ((__tmp83855 (let () (declare (not safe)) - (cons _c78975_ + (cons _c79186_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _pl-tail78954_)))) + _pl-tail79165_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_u78951_ - _plrh78974_ - __tmp83644 + (_u79162_ + _plrh79185_ + __tmp83855 '() - _sit-tl278982_)) - (let ((__tmp83643 - (cdr _sit-rh278981_))) + _sit-tl279193_)) + (let ((__tmp83854 + (cdr _sit-rh279192_))) (declare (not safe)) - (_u78951_ - _plrh78974_ - _pl-tail78954_ - __tmp83643 - _sit-tl278982_)))))))))) - (let ((_try-match7895978996_ + (_u79162_ + _plrh79185_ + _pl-tail79165_ + __tmp83854 + _sit-tl279193_)))))))))) + (let ((_try-match7917079207_ (lambda () (if (let () (declare (not safe)) - (##pair? _pl-rhead7895778966_)) - (let ((_tl7896378989_ + (##pair? _pl-rhead7916879177_)) + (let ((_tl7917479200_ (let () (declare (not safe)) - (##cdr _pl-rhead7895778966_))) - (_hd7896278987_ + (##cdr _pl-rhead7916879177_))) + (_hd7917379198_ (let () (declare (not safe)) - (##car _pl-rhead7895778966_)))) - (let ((_c78992_ _hd7896278987_) - (_plrh78994_ _tl7896378989_)) + (##car _pl-rhead7916879177_)))) + (let ((_c79203_ _hd7917379198_) + (_plrh79205_ _tl7917479200_)) (let () (declare (not safe)) - (_K7896178984_ - _plrh78994_ - _c78992_)))) + (_K7917279195_ + _plrh79205_ + _c79203_)))) (let () (declare (not safe)) - (_E7896078970_)))))) + (_E7917179181_)))))) (if (let () (declare (not safe)) - (##null? _pl-rhead7895778966_)) + (##null? _pl-rhead7916879177_)) (let () (declare (not safe)) - (_K7896479000_)) + (_K7917579211_)) (let () (declare (not safe)) - (_try-match7895978996_))))))))) - (_g83652_ - (let ((_g83653_ - (let ((__tmp83655 (reverse _supers78744_))) + (_try-match7917079207_))))))))) + (_g83863_ + (let ((_g83864_ + (let ((__tmp83866 (reverse _supers78955_))) (declare (not safe)) - (append1! _rpls78759_ __tmp83655)))) + (append1! _rpls78970_ __tmp83866)))) #!void - _g83653_)) - (_g83656_ - (let ((_g83657_ - (set! _pls78754_ - (map _unsitr-rpl78760_ _rpls78759_)))) + _g83864_)) + (_g83867_ + (let ((_g83868_ + (set! _pls78965_ + (map _unsitr-rpl78971_ _rpls78970_)))) #!void - _g83657_)) - (_c3-select-next78761_ - (lambda (_tails78899_) - (let ((_candidate?78905_ - (lambda (_c78901_) - (let ((__tmp83659 - (lambda (_tail78903_) - (let ((__tmp83660 - (member _c78901_ - (cdr _tail78903_) - _eq78750_))) + _g83868_)) + (_c3-select-next78972_ + (lambda (_tails79110_) + (let ((_candidate?79116_ + (lambda (_c79112_) + (let ((__tmp83870 + (lambda (_tail79114_) + (let ((__tmp83871 + (member _c79112_ + (cdr _tail79114_) + _eq78961_))) (declare (not safe)) - (not __tmp83660))))) + (not __tmp83871))))) (declare (not safe)) - (andmap1 __tmp83659 _tails78899_))))) - (let _loop78907_ ((_ts78909_ _tails78899_)) - (let* ((_ts7891078920_ _ts78909_) - (_else7891278928_ + (andmap1 __tmp83870 _tails79110_))))) + (let _loop79118_ ((_ts79120_ _tails79110_)) + (let* ((_ts7912179131_ _ts79120_) + (_else7912379139_ (lambda () (let () (declare (not safe)) - (_err78757_)))) - (_K7891478934_ - (lambda (_rts78931_ _c78932_) + (_err78968_)))) + (_K7912579145_ + (lambda (_rts79142_ _c79143_) (if (let () (declare (not safe)) - (_candidate?78905_ _c78932_)) - _c78932_ + (_candidate?79116_ _c79143_)) + _c79143_ (let () (declare (not safe)) - (_loop78907_ _rts78931_)))))) + (_loop79118_ _rts79142_)))))) (if (let () (declare (not safe)) - (##pair? _ts7891078920_)) - (let ((_hd7891578937_ + (##pair? _ts7912179131_)) + (let ((_hd7912679148_ (let () (declare (not safe)) - (##car _ts7891078920_))) - (_tl7891678939_ + (##car _ts7912179131_))) + (_tl7912779150_ (let () (declare (not safe)) - (##cdr _ts7891078920_)))) + (##cdr _ts7912179131_)))) (if (let () (declare (not safe)) - (##pair? _hd7891578937_)) - (let* ((_hd7891778942_ + (##pair? _hd7912679148_)) + (let* ((_hd7912879153_ (let () (declare (not safe)) - (##car _hd7891578937_))) - (_c78945_ _hd7891778942_) - (_rts78947_ _tl7891678939_)) + (##car _hd7912679148_))) + (_c79156_ _hd7912879153_) + (_rts79158_ _tl7912779150_)) (declare (not safe)) - (_K7891478934_ _rts78947_ _c78945_)) + (_K7912579145_ _rts79158_ _c79156_)) (let () (declare (not safe)) - (_err78757_)))) + (_err78968_)))) (let () (declare (not safe)) - (_err78757_)))))))) - (_remove-next!78762_ - (lambda (_next78844_ _tails78845_) - (let _loop78847_ ((_t78849_ _tails78845_)) - (let* ((_t7885078861_ _t78849_) - (_E7885378865_ + (_err78968_)))))))) + (_remove-next!78973_ + (lambda (_next79055_ _tails79056_) + (let _loop79058_ ((_t79060_ _tails79056_)) + (let* ((_t7906179072_ _t79060_) + (_E7906479076_ (lambda () (error '"No clause matching" - _t7885078861_)))) - (let ((_K7885978896_ (lambda () _tails78845_)) - (_K7885478873_ - (lambda (_more78869_ _tail78870_ _head78871_) - (if (_eq78750_ _head78871_ _next78844_) - (set-car! _t78849_ _tail78870_) + _t7906179072_)))) + (let ((_K7907079107_ (lambda () _tails79056_)) + (_K7906579084_ + (lambda (_more79080_ _tail79081_ _head79082_) + (if (_eq78961_ _head79082_ _next79055_) + (set-car! _t79060_ _tail79081_) '#!void) (let () (declare (not safe)) - (_loop78847_ _more78869_))))) - (let ((_try-match7885278892_ + (_loop79058_ _more79080_))))) + (let ((_try-match7906379103_ (lambda () (if (let () (declare (not safe)) - (##pair? _t7885078861_)) - (let ((_tl7885678878_ + (##pair? _t7906179072_)) + (let ((_tl7906779089_ (let () (declare (not safe)) - (##cdr _t7885078861_))) - (_hd7885578876_ + (##cdr _t7906179072_))) + (_hd7906679087_ (let () (declare (not safe)) - (##car _t7885078861_)))) + (##car _t7906179072_)))) (if (let () (declare (not safe)) - (##pair? _hd7885578876_)) - (let ((_tl7885878883_ + (##pair? _hd7906679087_)) + (let ((_tl7906979094_ (let () (declare (not safe)) - (##cdr _hd7885578876_))) - (_hd7885778881_ + (##cdr _hd7906679087_))) + (_hd7906879092_ (let () (declare (not safe)) - (##car _hd7885578876_)))) - (let ((_head78886_ - _hd7885778881_) - (_tail78888_ - _tl7885878883_) - (_more78890_ - _tl7885678878_)) + (##car _hd7906679087_)))) + (let ((_head79097_ + _hd7906879092_) + (_tail79099_ + _tl7906979094_) + (_more79101_ + _tl7906779089_)) (let () (declare (not safe)) - (_K7885478873_ - _more78890_ - _tail78888_ - _head78886_)))) + (_K7906579084_ + _more79101_ + _tail79099_ + _head79097_)))) (let () (declare (not safe)) - (_E7885378865_)))) + (_E7906479076_)))) (let () (declare (not safe)) - (_E7885378865_)))))) + (_E7906479076_)))))) (if (let () (declare (not safe)) - (##null? _t7885078861_)) + (##null? _t7906179072_)) (let () (declare (not safe)) - (_K7885978896_)) + (_K7907079107_)) (let () (declare (not safe)) - (_try-match7885278892_))))))))) - (_precedence-list78763_ - (let _c3loop78794_ ((_rhead78796_ _rhead78743_) - (_tails78797_ _pls78754_)) - (let* ((_tails78799_ + (_try-match7906379103_))))))))) + (_precedence-list78974_ + (let _c3loop79005_ ((_rhead79007_ _rhead78954_) + (_tails79008_ _pls78965_)) + (let* ((_tails79010_ (let () (declare (not safe)) - (remove-nulls! _tails78797_))) - (_tails7880078810_ _tails78799_) - (_else7880378821_ + (remove-nulls! _tails79008_))) + (_tails7901179021_ _tails79010_) + (_else7901479032_ (lambda () - (let ((_next78818_ + (let ((_next79029_ (let () (declare (not safe)) - (_c3-select-next78761_ - _tails78799_)))) - (let ((__tmp83662 + (_c3-select-next78972_ + _tails79010_)))) + (let ((__tmp83873 (let () (declare (not safe)) - (cons _next78818_ _rhead78796_))) - (__tmp83661 + (cons _next79029_ _rhead79007_))) + (__tmp83872 (let () (declare (not safe)) - (_remove-next!78762_ - _next78818_ - _tails78799_)))) + (_remove-next!78973_ + _next79029_ + _tails79010_)))) (declare (not safe)) - (_c3loop78794_ __tmp83662 __tmp83661)))))) - (let ((_K7880878841_ + (_c3loop79005_ __tmp83873 __tmp83872)))))) + (let ((_K7901979052_ (lambda () (let () (declare (not safe)) - (append-reverse _rhead78796_ _sit78755_)))) - (_K7880578827_ - (lambda (_tail78825_) - (let ((__tmp83663 - (append _tail78825_ _sit78755_))) + (append-reverse _rhead79007_ _sit78966_)))) + (_K7901679038_ + (lambda (_tail79036_) + (let ((__tmp83874 + (append _tail79036_ _sit78966_))) (declare (not safe)) (append-reverse - _rhead78796_ - __tmp83663))))) - (let ((_try-match7880278837_ + _rhead79007_ + __tmp83874))))) + (let ((_try-match7901379048_ (lambda () (if (let () (declare (not safe)) - (##pair? _tails7880078810_)) - (let ((_tl7880778832_ + (##pair? _tails7901179021_)) + (let ((_tl7901879043_ (let () (declare (not safe)) - (##cdr _tails7880078810_))) - (_hd7880678830_ + (##cdr _tails7901179021_))) + (_hd7901779041_ (let () (declare (not safe)) - (##car _tails7880078810_)))) + (##car _tails7901179021_)))) (if (let () (declare (not safe)) - (##null? _tl7880778832_)) - (let ((_tail78835_ - _hd7880678830_)) + (##null? _tl7901879043_)) + (let ((_tail79046_ + _hd7901779041_)) (declare (not safe)) - (_K7880578827_ _tail78835_)) + (_K7901679038_ _tail79046_)) (let () (declare (not safe)) - (_else7880378821_)))) + (_else7901479032_)))) (let () (declare (not safe)) - (_else7880378821_)))))) + (_else7901479032_)))))) (if (let () (declare (not safe)) - (##null? _tails7880078810_)) - (let () (declare (not safe)) (_K7880878841_)) + (##null? _tails7901179021_)) + (let () (declare (not safe)) (_K7901979052_)) (let () (declare (not safe)) - (_try-match7880278837_)))))))) - (_super-struct78764_ - (let* ((_sit7876578773_ _sit78755_) - (_else7876778781_ (lambda () '#f)) - (_K7876978786_ (lambda (_s78784_) _s78784_))) + (_try-match7901379048_)))))))) + (_super-struct78975_ + (let* ((_sit7897678984_ _sit78966_) + (_else7897878992_ (lambda () '#f)) + (_K7898078997_ (lambda (_s78995_) _s78995_))) (if (let () (declare (not safe)) - (##pair? _sit7876578773_)) - (let* ((_hd7877078789_ + (##pair? _sit7897678984_)) + (let* ((_hd7898179000_ (let () (declare (not safe)) - (##car _sit7876578773_))) - (_s78792_ _hd7877078789_)) + (##car _sit7897678984_))) + (_s79003_ _hd7898179000_)) (declare (not safe)) - (_K7876978786_ _s78792_)) - (let () (declare (not safe)) (_else7876778781_)))))) - (values _precedence-list78763_ _super-struct78764_))))) + (_K7898078997_ _s79003_)) + (let () (declare (not safe)) (_else7897878992_)))))) + (values _precedence-list78974_ _super-struct78975_))))) (define c4-linearize__@ - (lambda (_keys7872879025_ . _args79027_) + (lambda (_keys7893979236_ . _args79238_) (apply c4-linearize__% - _keys7872879025_ + _keys7893979236_ (let () (declare (not safe)) (table-ref - _keys7872879025_ + _keys7893979236_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) - (table-ref _keys7872879025_ 'struct: absent-value)) + (table-ref _keys7893979236_ 'struct: absent-value)) (let () (declare (not safe)) - (table-ref _keys7872879025_ 'eq: absent-value)) + (table-ref _keys7893979236_ 'eq: absent-value)) (let () (declare (not safe)) - (table-ref _keys7872879025_ 'get-name: absent-value)) - _args79027_))) + (table-ref _keys7893979236_ 'get-name: absent-value)) + _args79238_))) (define c4-linearize - (lambda _args7873379033_ + (lambda _args7894479244_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _args7873379033_))))) + _args7894479244_))))) diff --git a/src/bootstrap/gerbil/runtime/control__0.scm b/src/bootstrap/gerbil/runtime/control__0.scm index f33b768b3..b7f1d2bae 100644 --- a/src/bootstrap/gerbil/runtime/control__0.scm +++ b/src/bootstrap/gerbil/runtime/control__0.scm @@ -1,294 +1,294 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1707773925) + (define gerbil/runtime/control::timestamp 1708102800) (begin (define make-promise - (lambda (_thunk64711_) - (let () (declare (not safe)) (##make-delay-promise _thunk64711_)))) + (lambda (_thunk64922_) + (let () (declare (not safe)) (##make-delay-promise _thunk64922_)))) (define call-with-parameters - (lambda (_thunk64659_ . _rest64660_) - (let* ((_rest6466164672_ _rest64660_) - (_E6466464676_ - (lambda () (error '"No clause matching" _rest6466164672_)))) - (let ((_K6466664692_ - (lambda (_rest64687_ _val64688_ _param64689_) - (let ((__tmp78717 - (if (let () (declare (not safe)) (null? _rest64687_)) - _thunk64659_ + (lambda (_thunk64870_ . _rest64871_) + (let* ((_rest6487264883_ _rest64871_) + (_E6487564887_ + (lambda () (error '"No clause matching" _rest6487264883_)))) + (let ((_K6487764903_ + (lambda (_rest64898_ _val64899_ _param64900_) + (let ((__tmp78928 + (if (let () (declare (not safe)) (null? _rest64898_)) + _thunk64870_ (lambda () (apply call-with-parameters - _thunk64659_ - _rest64687_))))) + _thunk64870_ + _rest64898_))))) (declare (not safe)) - (##parameterize1 _param64689_ _val64688_ __tmp78717)))) - (_K6466564681_ (lambda () (_thunk64659_)))) - (let ((_try-match6466364684_ + (##parameterize1 _param64900_ _val64899_ __tmp78928)))) + (_K6487664892_ (lambda () (_thunk64870_)))) + (let ((_try-match6487464895_ (lambda () (if (let () (declare (not safe)) - (##null? _rest6466164672_)) - (let () (declare (not safe)) (_thunk64659_)) - (let () (declare (not safe)) (_E6466464676_)))))) - (if (let () (declare (not safe)) (##pair? _rest6466164672_)) - (let ((_tl6466864697_ + (##null? _rest6487264883_)) + (let () (declare (not safe)) (_thunk64870_)) + (let () (declare (not safe)) (_E6487564887_)))))) + (if (let () (declare (not safe)) (##pair? _rest6487264883_)) + (let ((_tl6487964908_ (let () (declare (not safe)) - (##cdr _rest6466164672_))) - (_hd6466764695_ + (##cdr _rest6487264883_))) + (_hd6487864906_ (let () (declare (not safe)) - (##car _rest6466164672_)))) - (if (let () (declare (not safe)) (##pair? _tl6466864697_)) - (let ((_tl6467064704_ + (##car _rest6487264883_)))) + (if (let () (declare (not safe)) (##pair? _tl6487964908_)) + (let ((_tl6488164915_ (let () (declare (not safe)) - (##cdr _tl6466864697_))) - (_hd6466964702_ + (##cdr _tl6487964908_))) + (_hd6488064913_ (let () (declare (not safe)) - (##car _tl6466864697_)))) - (let ((_param64700_ _hd6466764695_) - (_val64707_ _hd6466964702_) - (_rest64709_ _tl6467064704_)) + (##car _tl6487964908_)))) + (let ((_param64911_ _hd6487864906_) + (_val64918_ _hd6488064913_) + (_rest64920_ _tl6488164915_)) (let () (declare (not safe)) - (_K6466664692_ - _rest64709_ - _val64707_ - _param64700_)))) - (let () (declare (not safe)) (_E6466464676_)))) - (let () (declare (not safe)) (_try-match6466364684_)))))))) + (_K6487764903_ + _rest64920_ + _val64918_ + _param64911_)))) + (let () (declare (not safe)) (_E6487564887_)))) + (let () (declare (not safe)) (_try-match6487464895_)))))))) (define with-unwind-protect - (lambda (_K64652_ _fini64653_) - (let ((_once64655_ '#f)) + (lambda (_K64863_ _fini64864_) + (let ((_once64866_ '#f)) (dynamic-wind (lambda () (declare (not interrupts-enabled)) - (if _once64655_ + (if _once64866_ (error '"Cannot re-enter unwind protected block") - (set! _once64655_ '#t))) - _K64652_ - _fini64653_)))) + (set! _once64866_ '#t))) + _K64863_ + _fini64864_)))) (define keyword-dispatch - (lambda (_kwt64549_ _K64550_ . _all-args64551_) - (if _kwt64549_ - (if (let () (declare (not safe)) (vector? _kwt64549_)) + (lambda (_kwt64760_ _K64761_ . _all-args64762_) + (if _kwt64760_ + (if (let () (declare (not safe)) (vector? _kwt64760_)) '#!void - (error '"expected vector" _kwt64549_)) + (error '"expected vector" _kwt64760_)) '#!void) - (if (let () (declare (not safe)) (procedure? _K64550_)) + (if (let () (declare (not safe)) (procedure? _K64761_)) '#!void - (error '"expected procedure" _K64550_)) - (let ((_keys64553_ + (error '"expected procedure" _K64761_)) + (let ((_keys64764_ (let () (declare (not safe)) (make-table 'test: eq? 'hash: keyword-hash)))) - (let _lp64555_ ((_rest64557_ _all-args64551_) - (_args64558_ '#f) - (_tail64559_ '#f)) - (let* ((_rest6456064568_ _rest64557_) - (_else6456264576_ + (let _lp64766_ ((_rest64768_ _all-args64762_) + (_args64769_ '#f) + (_tail64770_ '#f)) + (let* ((_rest6477164779_ _rest64768_) + (_else6477364787_ (lambda () - (if _args64558_ + (if _args64769_ (begin (let () (declare (not safe)) - (##set-cdr! _tail64559_ '())) - (let ((__tmp78718 + (##set-cdr! _tail64770_ '())) + (let ((__tmp78929 (let () (declare (not safe)) - (cons _keys64553_ _args64558_)))) + (cons _keys64764_ _args64769_)))) (declare (not safe)) - (##apply _K64550_ __tmp78718))) - (_K64550_ _keys64553_)))) - (_K6456464640_ - (lambda (_hd-rest64579_ _hd64580_) - (if (keyword? _hd64580_) - (let* ((_hd-rest6458164588_ _hd-rest64579_) - (_E6458364592_ + (##apply _K64761_ __tmp78929))) + (_K64761_ _keys64764_)))) + (_K6477564851_ + (lambda (_hd-rest64790_ _hd64791_) + (if (keyword? _hd64791_) + (let* ((_hd-rest6479264799_ _hd-rest64790_) + (_E6479464803_ (lambda () (error '"No clause matching" - _hd-rest6458164588_))) - (_K6458464600_ - (lambda (_rest64595_ _val64596_) - (if _kwt64549_ - (let ((_pos64598_ - (let ((__tmp78722 - (keyword-hash _hd64580_)) - (__tmp78721 + _hd-rest6479264799_))) + (_K6479564811_ + (lambda (_rest64806_ _val64807_) + (if _kwt64760_ + (let ((_pos64809_ + (let ((__tmp78933 + (keyword-hash _hd64791_)) + (__tmp78932 (let () (declare (not safe)) (##vector-length - _kwt64549_)))) + _kwt64760_)))) (declare (not safe)) (##fxmodulo - __tmp78722 - __tmp78721)))) - (if (let ((__tmp78723 + __tmp78933 + __tmp78932)))) + (if (let ((__tmp78934 (let () (declare (not safe)) (##vector-ref - _kwt64549_ - _pos64598_)))) + _kwt64760_ + _pos64809_)))) (declare (not safe)) - (eq? _hd64580_ __tmp78723)) + (eq? _hd64791_ __tmp78934)) '#!void (error '"Unexpected keyword argument" - _K64550_ - _hd64580_))) + _K64761_ + _hd64791_))) '#!void) (if (let () (declare (not safe)) - (hash-key? _keys64553_ _hd64580_)) + (hash-key? _keys64764_ _hd64791_)) (error '"Duplicate keyword argument" - _K64550_ - _hd64580_) + _K64761_ + _hd64791_) '#!void) (let () (declare (not safe)) (table-set! - _keys64553_ - _hd64580_ - _val64596_)) + _keys64764_ + _hd64791_ + _val64807_)) (let () (declare (not safe)) - (_lp64555_ - _rest64595_ - _args64558_ - _tail64559_))))) + (_lp64766_ + _rest64806_ + _args64769_ + _tail64770_))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6458164588_)) - (let ((_hd6458564603_ + (##pair? _hd-rest6479264799_)) + (let ((_hd6479664814_ (let () (declare (not safe)) - (##car _hd-rest6458164588_))) - (_tl6458664605_ + (##car _hd-rest6479264799_))) + (_tl6479764816_ (let () (declare (not safe)) - (##cdr _hd-rest6458164588_)))) - (let* ((_val64608_ _hd6458564603_) - (_rest64610_ _tl6458664605_)) + (##cdr _hd-rest6479264799_)))) + (let* ((_val64819_ _hd6479664814_) + (_rest64821_ _tl6479764816_)) (declare (not safe)) - (_K6458464600_ _rest64610_ _val64608_))) - (let () (declare (not safe)) (_E6458364592_)))) + (_K6479564811_ _rest64821_ _val64819_))) + (let () (declare (not safe)) (_E6479464803_)))) (if (let () (declare (not safe)) - (eq? _hd64580_ '#!key)) - (let* ((_hd-rest6461164618_ _hd-rest64579_) - (_E6461364622_ + (eq? _hd64791_ '#!key)) + (let* ((_hd-rest6482264829_ _hd-rest64790_) + (_E6482464833_ (lambda () (error '"No clause matching" - _hd-rest6461164618_))) - (_K6461464628_ - (lambda (_rest64625_ _val64626_) - (if _args64558_ + _hd-rest6482264829_))) + (_K6482564839_ + (lambda (_rest64836_ _val64837_) + (if _args64769_ (begin (let () (declare (not safe)) (##set-cdr! - _tail64559_ - _hd-rest64579_)) + _tail64770_ + _hd-rest64790_)) (let () (declare (not safe)) - (_lp64555_ - _rest64625_ - _args64558_ - _hd-rest64579_))) + (_lp64766_ + _rest64836_ + _args64769_ + _hd-rest64790_))) (let () (declare (not safe)) - (_lp64555_ - _rest64625_ - _hd-rest64579_ - _hd-rest64579_)))))) + (_lp64766_ + _rest64836_ + _hd-rest64790_ + _hd-rest64790_)))))) (if (let () (declare (not safe)) - (##pair? _hd-rest6461164618_)) - (let ((_hd6461564631_ + (##pair? _hd-rest6482264829_)) + (let ((_hd6482664842_ (let () (declare (not safe)) - (##car _hd-rest6461164618_))) - (_tl6461664633_ + (##car _hd-rest6482264829_))) + (_tl6482764844_ (let () (declare (not safe)) - (##cdr _hd-rest6461164618_)))) - (let* ((_val64636_ _hd6461564631_) - (_rest64638_ _tl6461664633_)) + (##cdr _hd-rest6482264829_)))) + (let* ((_val64847_ _hd6482664842_) + (_rest64849_ _tl6482764844_)) (declare (not safe)) - (_K6461464628_ - _rest64638_ - _val64636_))) + (_K6482564839_ + _rest64849_ + _val64847_))) (let () (declare (not safe)) - (_E6461364622_)))) + (_E6482464833_)))) (if (let () (declare (not safe)) - (eq? _hd64580_ '#!rest)) - (if _args64558_ + (eq? _hd64791_ '#!rest)) + (if _args64769_ (begin (let () (declare (not safe)) (##set-cdr! - _tail64559_ - _hd-rest64579_)) - (let ((__tmp78720 + _tail64770_ + _hd-rest64790_)) + (let ((__tmp78931 (let () (declare (not safe)) - (cons _keys64553_ - _args64558_)))) + (cons _keys64764_ + _args64769_)))) (declare (not safe)) - (##apply _K64550_ __tmp78720))) - (let ((__tmp78719 + (##apply _K64761_ __tmp78931))) + (let ((__tmp78930 (let () (declare (not safe)) - (cons _keys64553_ - _hd-rest64579_)))) + (cons _keys64764_ + _hd-rest64790_)))) (declare (not safe)) - (##apply _K64550_ __tmp78719))) - (if _args64558_ + (##apply _K64761_ __tmp78930))) + (if _args64769_ (begin (let () (declare (not safe)) - (##set-cdr! _tail64559_ _rest64557_)) + (##set-cdr! _tail64770_ _rest64768_)) (let () (declare (not safe)) - (_lp64555_ - _hd-rest64579_ - _args64558_ - _rest64557_))) + (_lp64766_ + _hd-rest64790_ + _args64769_ + _rest64768_))) (let () (declare (not safe)) - (_lp64555_ - _hd-rest64579_ - _rest64557_ - _rest64557_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6456064568_)) - (let ((_hd6456564643_ + (_lp64766_ + _hd-rest64790_ + _rest64768_ + _rest64768_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6477164779_)) + (let ((_hd6477664854_ (let () (declare (not safe)) - (##car _rest6456064568_))) - (_tl6456664645_ + (##car _rest6477164779_))) + (_tl6477764856_ (let () (declare (not safe)) - (##cdr _rest6456064568_)))) - (let* ((_hd64648_ _hd6456564643_) - (_hd-rest64650_ _tl6456664645_)) + (##cdr _rest6477164779_)))) + (let* ((_hd64859_ _hd6477664854_) + (_hd-rest64861_ _tl6477764856_)) (declare (not safe)) - (_K6456464640_ _hd-rest64650_ _hd64648_))) - (let () (declare (not safe)) (_else6456264576_)))))))) + (_K6477564851_ _hd-rest64861_ _hd64859_))) + (let () (declare (not safe)) (_else6477364787_)))))))) (define keyword-rest - (lambda (_kwt64540_ . _drop64541_) + (lambda (_kwt64751_ . _drop64752_) (for-each - (lambda (_kw64543_) - (let () (declare (not safe)) (table-set! _kwt64540_ _kw64543_))) - _drop64541_) - (let ((__tmp78724 - (lambda (_k64545_ _v64546_ _r64547_) - (let ((__tmp78725 + (lambda (_kw64754_) + (let () (declare (not safe)) (table-set! _kwt64751_ _kw64754_))) + _drop64752_) + (let ((__tmp78935 + (lambda (_k64756_ _v64757_ _r64758_) + (let ((__tmp78936 (let () (declare (not safe)) - (cons _v64546_ _r64547_)))) + (cons _v64757_ _r64758_)))) (declare (not safe)) - (cons _k64545_ __tmp78725))))) + (cons _k64756_ __tmp78936))))) (declare (not safe)) - (hash-fold __tmp78724 '() _kwt64540_)))))) + (hash-fold __tmp78935 '() _kwt64751_)))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index 67ca5e8aa..79469dae7 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -4,7 +4,7 @@ package: gerbil/runtime (begin (declare-type Exception::t - (@class gerbil/runtime/error#Exception::t () () () () #f #f #f #f)) + (@class gerbil/runtime/error#Exception::t () () () () #f #f #f #f #f)) (declare-type Exception? (@predicate Exception::t)) (declare-type make-Exception (@constructor Exception::t)) (declare-type @@ -17,6 +17,7 @@ package: gerbil/runtime #f #f #f + #f #f)) (declare-type StackTrace? (@predicate StackTrace::t)) (declare-type make-StackTrace (@constructor StackTrace::t)) @@ -42,8 +43,9 @@ package: gerbil/runtime :init! #f #f - ((:init! . Error:::init!) - (display-exception . Error::display-exception)))) + #f + ((display-exception . Error::display-exception) + (:init! . Error:::init!)))) (declare-type Error? (@predicate Error::t)) (declare-type make-Error (@constructor Error::t)) (declare-type Error-message (@accessor Error::t message #t)) @@ -72,6 +74,7 @@ package: gerbil/runtime #f #f #f + #f ((display-exception . RuntimeException::display-exception)))) (declare-type RuntimeException? (@predicate RuntimeException::t)) (declare-type make-RuntimeException (@constructor RuntimeException::t)) diff --git a/src/bootstrap/gerbil/runtime/error__0.scm b/src/bootstrap/gerbil/runtime/error__0.scm index 2e062eef6..907e9366e 100644 --- a/src/bootstrap/gerbil/runtime/error__0.scm +++ b/src/bootstrap/gerbil/runtime/error__0.scm @@ -1,35 +1,35 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1707773925) + (define gerbil/runtime/error::timestamp 1708102801) (begin (define Exception::t - (let ((__tmp96019 (list))) + (let ((__tmp97180 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp96019 + __tmp97180 '() '() '#f))) (define Exception? (let () (declare (not safe)) (make-class-predicate Exception::t))) (define make-Exception - (lambda _$args91422_ (apply make-instance Exception::t _$args91422_))) + (lambda _$args92583_ (apply make-instance Exception::t _$args92583_))) (define StackTrace::t - (let ((__tmp96020 (list))) + (let ((__tmp97181 (list))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp96020 + __tmp97181 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _$args91419_ (apply make-instance StackTrace::t _$args91419_))) + (lambda _$args92580_ (apply make-instance StackTrace::t _$args92580_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -47,19 +47,19 @@ (declare (not safe)) (make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp96021 (list StackTrace::t Exception::t))) + (let ((__tmp97182 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp96021 + __tmp97182 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (make-class-predicate Error::t))) (define make-Error - (lambda _$args91416_ (apply make-instance Error::t _$args91416_))) + (lambda _$args92577_ (apply make-instance Error::t _$args92577_))) (define Error-message (let () (declare (not safe)) @@ -121,20 +121,20 @@ (declare (not safe)) (make-class-slot-unchecked-mutator Error::t 'continuation))) (define RuntimeException::t - (let ((__tmp96022 (list StackTrace::t Exception::t))) + (let ((__tmp97183 (list StackTrace::t Exception::t))) (declare (not safe)) (make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp96022 + __tmp97183 '(exception) '((transparent: . #t)) '#f))) (define RuntimeException? (let () (declare (not safe)) (make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _$args91413_ - (apply make-instance RuntimeException::t _$args91413_))) + (lambda _$args92574_ + (apply make-instance RuntimeException::t _$args92574_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -170,144 +170,144 @@ (declare (not safe)) (make-class-slot-unchecked-mutator RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_exn91408_ _continue91409_) - (let ((_exn91411_ + (lambda (_exn92569_ _continue92570_) + (let ((_exn92572_ (let () (declare (not safe)) - (wrap-runtime-exception _exn91408_)))) + (wrap-runtime-exception _exn92569_)))) (declare (not safe)) - (##repl-exception-handler-hook _exn91411_ _continue91409_)))) + (##repl-exception-handler-hook _exn92572_ _continue92570_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_exn91404_) + (lambda (_exn92565_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn91404_)) + (class-instance? StackTrace::t _exn92565_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _exn91404_ 'continuation)) + (unchecked-slot-ref _exn92565_ 'continuation)) '#!void - (let ((__tmp96023 - (lambda (_cont91406_) + (let ((__tmp97184 + (lambda (_cont92567_) (let () (declare (not safe)) (unchecked-slot-set! - _exn91404_ + _exn92565_ 'continuation - _cont91406_))))) + _cont92567_))))) (declare (not safe)) - (##continuation-capture __tmp96023))) + (##continuation-capture __tmp97184))) '#!void) - (let () (declare (not safe)) (##raise _exn91404_)))) + (let () (declare (not safe)) (##raise _exn92565_)))) (define error - (lambda (_message91401_ . _irritants91402_) - (raise (let ((__obj96013 + (lambda (_message92562_ . _irritants92563_) + (raise (let ((__obj97174 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj96013 - _message91401_ + __obj97174 + _message92562_ 'irritants: - _irritants91402_) - __obj96013)))) + _irritants92563_) + __obj97174)))) (define with-exception-handler - (lambda (_handler91394_ _thunk91395_) - (if (let () (declare (not safe)) (procedure? _handler91394_)) + (lambda (_handler92555_ _thunk92556_) + (if (let () (declare (not safe)) (procedure? _handler92555_)) '#!void - (raise (let ((__obj96014 + (raise (let ((__obj97175 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj96014 + __obj97175 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler91394_ '()))) - __obj96014))) - (if (let () (declare (not safe)) (procedure? _thunk91395_)) + (let () (declare (not safe)) (cons _handler92555_ '()))) + __obj97175))) + (if (let () (declare (not safe)) (procedure? _thunk92556_)) '#!void - (raise (let ((__obj96015 + (raise (let ((__obj97176 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj96015 + __obj97176 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk91395_ '()))) - __obj96015))) - (let ((__tmp96024 - (lambda (_exn91397_) - (let ((_exn91399_ + (let () (declare (not safe)) (cons _thunk92556_ '()))) + __obj97176))) + (let ((__tmp97185 + (lambda (_exn92558_) + (let ((_exn92560_ (let () (declare (not safe)) - (wrap-runtime-exception _exn91397_)))) - (_handler91394_ _exn91399_))))) + (wrap-runtime-exception _exn92558_)))) + (_handler92555_ _exn92560_))))) (declare (not safe)) - (##with-exception-handler __tmp96024 _thunk91395_)))) + (##with-exception-handler __tmp97185 _thunk92556_)))) (define with-catch - (lambda (_handler91387_ _thunk91388_) - (if (let () (declare (not safe)) (procedure? _handler91387_)) + (lambda (_handler92548_ _thunk92549_) + (if (let () (declare (not safe)) (procedure? _handler92548_)) '#!void - (raise (let ((__obj96016 + (raise (let ((__obj97177 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj96016 + __obj97177 '"expected procedure" 'where: 'with-exception-handler 'irritants: - (let () (declare (not safe)) (cons _handler91387_ '()))) - __obj96016))) - (if (let () (declare (not safe)) (procedure? _thunk91388_)) + (let () (declare (not safe)) (cons _handler92548_ '()))) + __obj97177))) + (if (let () (declare (not safe)) (procedure? _thunk92549_)) '#!void - (raise (let ((__obj96017 + (raise (let ((__obj97178 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj96017 + __obj97178 '"expected procedure" 'where: 'with-exception-hander 'irritants: - (let () (declare (not safe)) (cons _thunk91388_ '()))) - __obj96017))) - (let ((__tmp96025 - (lambda (_cont91390_) + (let () (declare (not safe)) (cons _thunk92549_ '()))) + __obj97178))) + (let ((__tmp97186 + (lambda (_cont92551_) (with-exception-handler - (lambda (_exn91392_) + (lambda (_exn92553_) (let () (declare (not safe)) (##continuation-graft - _cont91390_ - _handler91387_ - _exn91392_))) - _thunk91388_)))) + _cont92551_ + _handler92548_ + _exn92553_))) + _thunk92549_)))) (declare (not safe)) - (##continuation-capture __tmp96025)))) + (##continuation-capture __tmp97186)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_exn91378_) - (if (or (heap-overflow-exception? _exn91378_) - (stack-overflow-exception? _exn91378_)) - _exn91378_ + (lambda (_exn92539_) + (if (or (heap-overflow-exception? _exn92539_) + (stack-overflow-exception? _exn92539_)) + _exn92539_ (if (let () (declare (not safe)) - (class-instance? Exception::t _exn91378_)) - _exn91378_ - (if (macro-exception? _exn91378_) - (let ((_rte91383_ - (let ((__obj96018 + (class-instance? Exception::t _exn92539_)) + _exn92539_ + (if (macro-exception? _exn92539_) + (let ((_rte92544_ + (let ((__obj97179 (let () (declare (not safe)) (##structure @@ -317,137 +317,137 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96018 - _exn91378_ + __obj97179 + _exn92539_ '2 RuntimeException::t '#f)) - __obj96018))) - (let ((__tmp96026 - (lambda (_cont91385_) - (let ((__tmp96027 + __obj97179))) + (let ((__tmp97187 + (lambda (_cont92546_) + (let ((__tmp97188 (let () (declare (not safe)) - (##continuation-next _cont91385_)))) + (##continuation-next _cont92546_)))) (declare (not safe)) (unchecked-slot-set! - _rte91383_ + _rte92544_ 'continuation - __tmp96027))))) + __tmp97188))))) (declare (not safe)) - (##continuation-capture __tmp96026)) - _rte91383_) - _exn91378_))))) + (##continuation-capture __tmp97187)) + _rte92544_) + _exn92539_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_obj91373_) - (let ((_$e91375_ + (lambda (_obj92534_) + (let ((_$e92536_ (let () (declare (not safe)) - (class-instance? Error::t _obj91373_)))) - (if _$e91375_ _$e91375_ (error-exception? _obj91373_))))) + (class-instance? Error::t _obj92534_)))) + (if _$e92536_ _$e92536_ (error-exception? _obj92534_))))) (define error-message - (lambda (_obj91371_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj91371_)) + (lambda (_obj92532_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj92532_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj91371_ 'message)) - (if (error-exception? _obj91371_) - (error-exception-message _obj91371_) + (unchecked-slot-ref _obj92532_ 'message)) + (if (error-exception? _obj92532_) + (error-exception-message _obj92532_) '#f)))) (define error-irritants - (lambda (_obj91369_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj91369_)) + (lambda (_obj92530_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj92530_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj91369_ 'irritants)) - (if (error-exception? _obj91369_) - (error-exception-parameters _obj91369_) + (unchecked-slot-ref _obj92530_ 'irritants)) + (if (error-exception? _obj92530_) + (error-exception-parameters _obj92530_) '#f)))) (define error-trace - (lambda (_obj91367_) - (if (let () (declare (not safe)) (class-instance? Error::t _obj91367_)) + (lambda (_obj92528_) + (if (let () (declare (not safe)) (class-instance? Error::t _obj92528_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj91367_ 'where)) + (unchecked-slot-ref _obj92528_ 'where)) '#f))) (define display-exception__% - (lambda (_e91349_ _port91350_) - (let ((_$e91352_ + (lambda (_e92510_ _port92511_) + (let ((_$e92513_ (let () (declare (not safe)) - (method-ref _e91349_ 'display-exception)))) - (if _$e91352_ - ((lambda (_f91355_) (_f91355_ _e91349_ _port91350_)) _$e91352_) + (method-ref _e92510_ 'display-exception)))) + (if _$e92513_ + ((lambda (_f92516_) (_f92516_ _e92510_ _port92511_)) _$e92513_) (let () (declare (not safe)) - (##default-display-exception _e91349_ _port91350_)))))) + (##default-display-exception _e92510_ _port92511_)))))) (define display-exception__0 - (lambda (_e91360_) - (let ((_port91362_ (current-error-port))) + (lambda (_e92521_) + (let ((_port92523_ (current-error-port))) (declare (not safe)) - (display-exception__% _e91360_ _port91362_)))) + (display-exception__% _e92521_ _port92523_)))) (define display-exception - (lambda _g96029_ - (let ((_g96028_ (let () (declare (not safe)) (##length _g96029_)))) - (cond ((let () (declare (not safe)) (##fx= _g96028_ 1)) - (apply (lambda (_e91360_) + (lambda _g97190_ + (let ((_g97189_ (let () (declare (not safe)) (##length _g97190_)))) + (cond ((let () (declare (not safe)) (##fx= _g97189_ 1)) + (apply (lambda (_e92521_) (let () (declare (not safe)) - (display-exception__0 _e91360_))) - _g96029_)) - ((let () (declare (not safe)) (##fx= _g96028_ 2)) - (apply (lambda (_e91364_ _port91365_) + (display-exception__0 _e92521_))) + _g97190_)) + ((let () (declare (not safe)) (##fx= _g97189_ 2)) + (apply (lambda (_e92525_ _port92526_) (let () (declare (not safe)) - (display-exception__% _e91364_ _port91365_))) - _g96029_)) + (display-exception__% _e92525_ _port92526_))) + _g97190_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g96029_)))))) + _g97190_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_self91338_ _message91339_ . _rest91340_) - (let ((_message91346_ - (if (let () (declare (not safe)) (string? _message91339_)) - _message91339_ + (lambda (_self92499_ _message92500_ . _rest92501_) + (let ((_message92507_ + (if (let () (declare (not safe)) (string? _message92500_)) + _message92500_ (call-with-output-string '"" - (lambda (_g9134191343_) - (display _message91339_ _g9134191343_)))))) + (lambda (_g9250292504_) + (display _message92500_ _g9250292504_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _self91338_ 'message _message91346_)) - (apply class-instance-init! _self91338_ _rest91340_)))) + (unchecked-slot-set! _self92499_ 'message _message92507_)) + (apply class-instance-init! _self92499_ _rest92501_)))) (define Error:::init!::specialize - (lambda (__t95992) - (let ((__message95993 - (let ((__tmp95994 + (lambda (__t97153) + (let ((__message97154 + (let ((__tmp97155 (let () (declare (not safe)) - (class-slot-offset __t95992 'message)))) - (if __tmp95994 __tmp95994 (error '"Unknown slot" 'message))))) - (lambda (_self91338_ _message91339_ . _rest91340_) - (let ((_message91346_ - (if (let () (declare (not safe)) (string? _message91339_)) - _message91339_ + (class-slot-offset __t97153 'message)))) + (if __tmp97155 __tmp97155 (error '"Unknown slot" 'message))))) + (lambda (_self92499_ _message92500_ . _rest92501_) + (let ((_message92507_ + (if (let () (declare (not safe)) (string? _message92500_)) + _message92500_ (call-with-output-string '"" - (lambda (_g9134191343_) - (display _message91339_ _g9134191343_)))))) + (lambda (_g9250292504_) + (display _message92500_ _g9250292504_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _self91338_ - _message91346_ - __message95993 - __t95992 + _self92499_ + _message92507_ + __message97154 + __t97153 '#f)) - (apply class-instance-init! _self91338_ _rest91340_)))))) + (apply class-instance-init! _self92499_ _rest92501_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -456,192 +456,192 @@ (bind-method! Error::t ':init! Error:::init! '#f)) (define dump-stack-trace? (make-parameter '#t)) (define Error::display-exception - (lambda (_self91196_ _port91197_) - (let ((_tmp-port91199_ (open-output-string)) - (_display-error-newline91200_ - (> (output-port-column _port91197_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port91199_)) - (let ((__tmp96030 + (lambda (_self92357_ _port92358_) + (let ((_tmp-port92360_ (open-output-string)) + (_display-error-newline92361_ + (> (output-port-column _port92358_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port92360_)) + (let ((__tmp97191 (lambda () - (if _display-error-newline91200_ (newline) '#!void) + (if _display-error-newline92361_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e91203_ + (let ((_$e92364_ (let () (declare (not safe)) - (unchecked-slot-ref _self91196_ 'where)))) - (if _$e91203_ (display _$e91203_) (display '"?"))) - (let ((__tmp96031 - (let ((__tmp96032 + (unchecked-slot-ref _self92357_ 'where)))) + (if _$e92364_ (display _$e92364_) (display '"?"))) + (let ((__tmp97192 + (let ((__tmp97193 (let () (declare (not safe)) - (object-type _self91196_)))) + (object-type _self92357_)))) (declare (not safe)) - (##type-name __tmp96032)))) + (##type-name __tmp97193)))) (declare (not safe)) - (display* '" [" __tmp96031 '"]: ")) - (let ((__tmp96033 + (display* '" [" __tmp97192 '"]: ")) + (let ((__tmp97194 (let () (declare (not safe)) - (unchecked-slot-ref _self91196_ 'message)))) + (unchecked-slot-ref _self92357_ 'message)))) (declare (not safe)) - (displayln __tmp96033)) - (let ((_irritants91206_ + (displayln __tmp97194)) + (let ((_irritants92367_ (let () (declare (not safe)) - (unchecked-slot-ref _self91196_ 'irritants)))) - (if (let () (declare (not safe)) (null? _irritants91206_)) + (unchecked-slot-ref _self92357_ 'irritants)))) + (if (let () (declare (not safe)) (null? _irritants92367_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj91208_) - (write _obj91208_) + (lambda (_obj92369_) + (write _obj92369_) (write-char '#\space)) - _irritants91206_) + _irritants92367_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self91196_)) + (class-instance? StackTrace::t _self92357_)) (dump-stack-trace?)) - (let ((_cont9120991211_ + (let ((_cont9237092372_ (let () (declare (not safe)) (unchecked-slot-ref - _self91196_ + _self92357_ 'continuation)))) - (if _cont9120991211_ - (let ((_cont91214_ _cont9120991211_)) + (if _cont9237092372_ + (let ((_cont92375_ _cont9237092372_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) - (display-continuation-backtrace _cont91214_)) + (display-continuation-backtrace _cont92375_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp96030 + __tmp97191 current-output-port - _tmp-port91199_)) - (let ((__tmp96034 (get-output-string _tmp-port91199_))) + _tmp-port92360_)) + (let ((__tmp97195 (get-output-string _tmp-port92360_))) (declare (not safe)) - (##write-string __tmp96034 _port91197_))))) + (##write-string __tmp97195 _port92358_))))) (define Error::display-exception::specialize - (lambda (__t95995) - (let ((__where95996 - (let ((__tmp96000 + (lambda (__t97156) + (let ((__where97157 + (let ((__tmp97161 (let () (declare (not safe)) - (class-slot-offset __t95995 'where)))) - (if __tmp96000 __tmp96000 (error '"Unknown slot" 'where)))) - (__continuation95997 - (let ((__tmp96001 + (class-slot-offset __t97156 'where)))) + (if __tmp97161 __tmp97161 (error '"Unknown slot" 'where)))) + (__irritants97158 + (let ((__tmp97162 (let () (declare (not safe)) - (class-slot-offset __t95995 'continuation)))) - (if __tmp96001 - __tmp96001 - (error '"Unknown slot" 'continuation)))) - (__message95998 - (let ((__tmp96002 + (class-slot-offset __t97156 'irritants)))) + (if __tmp97162 + __tmp97162 + (error '"Unknown slot" 'irritants)))) + (__message97159 + (let ((__tmp97163 (let () (declare (not safe)) - (class-slot-offset __t95995 'message)))) - (if __tmp96002 __tmp96002 (error '"Unknown slot" 'message)))) - (__irritants95999 - (let ((__tmp96003 + (class-slot-offset __t97156 'message)))) + (if __tmp97163 __tmp97163 (error '"Unknown slot" 'message)))) + (__continuation97160 + (let ((__tmp97164 (let () (declare (not safe)) - (class-slot-offset __t95995 'irritants)))) - (if __tmp96003 - __tmp96003 - (error '"Unknown slot" 'irritants))))) - (lambda (_self91196_ _port91197_) - (let ((_tmp-port91199_ (open-output-string)) - (_display-error-newline91200_ - (> (output-port-column _port91197_) '0))) - (let () (declare (not safe)) (fix-port-width! _tmp-port91199_)) - (let ((__tmp96035 + (class-slot-offset __t97156 'continuation)))) + (if __tmp97164 + __tmp97164 + (error '"Unknown slot" 'continuation))))) + (lambda (_self92357_ _port92358_) + (let ((_tmp-port92360_ (open-output-string)) + (_display-error-newline92361_ + (> (output-port-column _port92358_) '0))) + (let () (declare (not safe)) (fix-port-width! _tmp-port92360_)) + (let ((__tmp97196 (lambda () - (if _display-error-newline91200_ (newline) '#!void) + (if _display-error-newline92361_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_$e91203_ + (let ((_$e92364_ (let () (declare (not safe)) (##unchecked-structure-ref - _self91196_ - __where95996 - __t95995 + _self92357_ + __where97157 + __t97156 '#f)))) - (if _$e91203_ (display _$e91203_) (display '"?"))) - (let ((__tmp96036 - (let ((__tmp96037 + (if _$e92364_ (display _$e92364_) (display '"?"))) + (let ((__tmp97197 + (let ((__tmp97198 (let () (declare (not safe)) - (object-type _self91196_)))) + (object-type _self92357_)))) (declare (not safe)) - (##type-name __tmp96037)))) + (##type-name __tmp97198)))) (declare (not safe)) - (display* '" [" __tmp96036 '"]: ")) - (let ((__tmp96038 + (display* '" [" __tmp97197 '"]: ")) + (let ((__tmp97199 (let () (declare (not safe)) (##unchecked-structure-ref - _self91196_ - __message95998 - __t95995 + _self92357_ + __message97159 + __t97156 '#f)))) (declare (not safe)) - (displayln __tmp96038)) - (let ((_irritants91206_ + (displayln __tmp97199)) + (let ((_irritants92367_ (let () (declare (not safe)) (##unchecked-structure-ref - _self91196_ - __irritants95999 - __t95995 + _self92357_ + __irritants97158 + __t97156 '#f)))) (if (let () (declare (not safe)) - (null? _irritants91206_)) + (null? _irritants92367_)) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_obj91208_) - (write _obj91208_) + (lambda (_obj92369_) + (write _obj92369_) (write-char '#\space)) - _irritants91206_) + _irritants92367_) (newline)))) (if (and (let () (declare (not safe)) - (class-instance? StackTrace::t _self91196_)) + (class-instance? StackTrace::t _self92357_)) (dump-stack-trace?)) - (let ((_cont9120991211_ + (let ((_cont9237092372_ (let () (declare (not safe)) (##unchecked-structure-ref - _self91196_ - __continuation95997 - __t95995 + _self92357_ + __continuation97160 + __t97156 '#f)))) - (if _cont9120991211_ - (let ((_cont91214_ _cont9120991211_)) + (if _cont9237092372_ + (let ((_cont92375_ _cont9237092372_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _cont91214_)) + _cont92375_)) '#f)) '#!void)))) (declare (not safe)) (call-with-parameters - __tmp96035 + __tmp97196 current-output-port - _tmp-port91199_)) - (let ((__tmp96039 (get-output-string _tmp-port91199_))) + _tmp-port92360_)) + (let ((__tmp97200 (get-output-string _tmp-port92360_))) (declare (not safe)) - (##write-string __tmp96039 _port91197_))))))) + (##write-string __tmp97200 _port92358_))))))) (let () (declare (not safe)) (bind-specializer! @@ -651,85 +651,85 @@ (declare (not safe)) (bind-method! Error::t 'display-exception Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_self91063_ _port91064_) - (let ((_tmp-port91066_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port91066_)) - (let ((__tmp96040 + (lambda (_self92224_ _port92225_) + (let ((_tmp-port92227_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port92227_)) + (let ((__tmp97201 (let () (declare (not safe)) - (unchecked-slot-ref _self91063_ 'exception)))) + (unchecked-slot-ref _self92224_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp96040 _tmp-port91066_)) + (##default-display-exception __tmp97201 _tmp-port92227_)) (if (dump-stack-trace?) - (let ((_cont9106791069_ + (let ((_cont9222892230_ (let () (declare (not safe)) - (unchecked-slot-ref _self91063_ 'continuation)))) - (if _cont9106791069_ - (let ((_cont91072_ _cont9106791069_)) - (display '"--- continuation backtrace:" _tmp-port91066_) - (newline _tmp-port91066_) + (unchecked-slot-ref _self92224_ 'continuation)))) + (if _cont9222892230_ + (let ((_cont92233_ _cont9222892230_)) + (display '"--- continuation backtrace:" _tmp-port92227_) + (newline _tmp-port92227_) (display-continuation-backtrace - _cont91072_ - _tmp-port91066_)) + _cont92233_ + _tmp-port92227_)) '#f)) '#!void) - (let ((__tmp96041 (get-output-string _tmp-port91066_))) + (let ((__tmp97202 (get-output-string _tmp-port92227_))) (declare (not safe)) - (##write-string __tmp96041 _port91064_))))) + (##write-string __tmp97202 _port92225_))))) (define RuntimeException::display-exception::specialize - (lambda (__t96004) - (let ((__exception96005 - (let ((__tmp96007 + (lambda (__t97165) + (let ((__exception97166 + (let ((__tmp97168 (let () (declare (not safe)) - (class-slot-offset __t96004 'exception)))) - (if __tmp96007 - __tmp96007 + (class-slot-offset __t97165 'exception)))) + (if __tmp97168 + __tmp97168 (error '"Unknown slot" 'exception)))) - (__continuation96006 - (let ((__tmp96008 + (__continuation97167 + (let ((__tmp97169 (let () (declare (not safe)) - (class-slot-offset __t96004 'continuation)))) - (if __tmp96008 - __tmp96008 + (class-slot-offset __t97165 'continuation)))) + (if __tmp97169 + __tmp97169 (error '"Unknown slot" 'continuation))))) - (lambda (_self91063_ _port91064_) - (let ((_tmp-port91066_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _tmp-port91066_)) - (let ((__tmp96042 + (lambda (_self92224_ _port92225_) + (let ((_tmp-port92227_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _tmp-port92227_)) + (let ((__tmp97203 (let () (declare (not safe)) (##unchecked-structure-ref - _self91063_ - __exception96005 - __t96004 + _self92224_ + __exception97166 + __t97165 '#f)))) (declare (not safe)) - (##default-display-exception __tmp96042 _tmp-port91066_)) + (##default-display-exception __tmp97203 _tmp-port92227_)) (if (dump-stack-trace?) - (let ((_cont9106791069_ + (let ((_cont9222892230_ (let () (declare (not safe)) (##unchecked-structure-ref - _self91063_ - __continuation96006 - __t96004 + _self92224_ + __continuation97167 + __t97165 '#f)))) - (if _cont9106791069_ - (let ((_cont91072_ _cont9106791069_)) + (if _cont9222892230_ + (let ((_cont92233_ _cont9222892230_)) (display '"--- continuation backtrace:" - _tmp-port91066_) - (newline _tmp-port91066_) + _tmp-port92227_) + (newline _tmp-port92227_) (display-continuation-backtrace - _cont91072_ - _tmp-port91066_)) + _cont92233_ + _tmp-port92227_)) '#f)) '#!void) - (let ((__tmp96043 (get-output-string _tmp-port91066_))) + (let ((__tmp97204 (get-output-string _tmp-port92227_))) (declare (not safe)) - (##write-string __tmp96043 _port91064_))))))) + (##write-string __tmp97204 _port92225_))))))) (let () (declare (not safe)) (bind-specializer! @@ -743,3566 +743,3566 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_port90935_) - (if (macro-character-port? _port90935_) - (let ((_old-width90937_ - (macro-character-port-output-width _port90935_))) + (lambda (_port92096_) + (if (macro-character-port? _port92096_) + (let ((_old-width92098_ + (macro-character-port-output-width _port92096_))) (macro-character-port-output-width-set! - _port90935_ - (lambda (_port90939_) '256)) - _old-width90937_) + _port92096_ + (lambda (_port92100_) '256)) + _old-width92098_) '#!void))) (define reset-port-width! - (lambda (_port90932_ _old-width90933_) - (if (macro-character-port? _port90932_) + (lambda (_port92093_ _old-width92094_) + (if (macro-character-port? _port92093_) (macro-character-port-output-width-set! - _port90932_ - _old-width90933_) + _port92093_ + _old-width92094_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_e90930_) - (macro-readenv-filepos (datum-parsing-exception-readenv _e90930_)))) + (lambda (_e92091_) + (macro-readenv-filepos (datum-parsing-exception-readenv _e92091_)))) (define abandoned-mutex-exception? - (lambda (_exn90924_) + (lambda (_exn92085_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90924_)) - (let ((_e90927_ + (class-instance? RuntimeException::t _exn92085_)) + (let ((_e92088_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90924_ 'exception)))) - (macro-abandoned-mutex-exception? _e90927_)) - (macro-abandoned-mutex-exception? _exn90924_)))) + (unchecked-slot-ref _exn92085_ 'exception)))) + (macro-abandoned-mutex-exception? _e92088_)) + (macro-abandoned-mutex-exception? _exn92085_)))) (define cfun-conversion-exception? - (lambda (_exn90920_) + (lambda (_exn92081_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90920_)) - (let ((_e90922_ + (class-instance? RuntimeException::t _exn92081_)) + (let ((_e92083_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90920_ 'exception)))) - (macro-cfun-conversion-exception? _e90922_)) - (macro-cfun-conversion-exception? _exn90920_)))) + (unchecked-slot-ref _exn92081_ 'exception)))) + (macro-cfun-conversion-exception? _e92083_)) + (macro-cfun-conversion-exception? _exn92081_)))) (define cfun-conversion-exception-arguments - (lambda (_exn90916_) + (lambda (_exn92077_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90916_)) - (let ((_e90918_ + (class-instance? RuntimeException::t _exn92077_)) + (let ((_e92079_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90916_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90918_) - (macro-cfun-conversion-exception-arguments _e90918_) + (unchecked-slot-ref _exn92077_ 'exception)))) + (if (macro-cfun-conversion-exception? _e92079_) + (macro-cfun-conversion-exception-arguments _e92079_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96045 + (let ((__tmp97206 (let () (declare (not safe)) - (cons _e90918_ '())))) + (cons _e92079_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp96045))))) - (if (macro-cfun-conversion-exception? _exn90916_) - (macro-cfun-conversion-exception-arguments _exn90916_) + __tmp97206))))) + (if (macro-cfun-conversion-exception? _exn92077_) + (macro-cfun-conversion-exception-arguments _exn92077_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96044 + (let ((__tmp97205 (let () (declare (not safe)) - (cons _exn90916_ '())))) + (cons _exn92077_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-arguments - __tmp96044))))))) + __tmp97205))))))) (define cfun-conversion-exception-code - (lambda (_exn90912_) + (lambda (_exn92073_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90912_)) - (let ((_e90914_ + (class-instance? RuntimeException::t _exn92073_)) + (let ((_e92075_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90912_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90914_) - (macro-cfun-conversion-exception-code _e90914_) + (unchecked-slot-ref _exn92073_ 'exception)))) + (if (macro-cfun-conversion-exception? _e92075_) + (macro-cfun-conversion-exception-code _e92075_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96047 + (let ((__tmp97208 (let () (declare (not safe)) - (cons _e90914_ '())))) + (cons _e92075_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp96047))))) - (if (macro-cfun-conversion-exception? _exn90912_) - (macro-cfun-conversion-exception-code _exn90912_) + __tmp97208))))) + (if (macro-cfun-conversion-exception? _exn92073_) + (macro-cfun-conversion-exception-code _exn92073_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96046 + (let ((__tmp97207 (let () (declare (not safe)) - (cons _exn90912_ '())))) + (cons _exn92073_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-code - __tmp96046))))))) + __tmp97207))))))) (define cfun-conversion-exception-message - (lambda (_exn90908_) + (lambda (_exn92069_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90908_)) - (let ((_e90910_ + (class-instance? RuntimeException::t _exn92069_)) + (let ((_e92071_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90908_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90910_) - (macro-cfun-conversion-exception-message _e90910_) + (unchecked-slot-ref _exn92069_ 'exception)))) + (if (macro-cfun-conversion-exception? _e92071_) + (macro-cfun-conversion-exception-message _e92071_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96049 + (let ((__tmp97210 (let () (declare (not safe)) - (cons _e90910_ '())))) + (cons _e92071_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp96049))))) - (if (macro-cfun-conversion-exception? _exn90908_) - (macro-cfun-conversion-exception-message _exn90908_) + __tmp97210))))) + (if (macro-cfun-conversion-exception? _exn92069_) + (macro-cfun-conversion-exception-message _exn92069_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96048 + (let ((__tmp97209 (let () (declare (not safe)) - (cons _exn90908_ '())))) + (cons _exn92069_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-message - __tmp96048))))))) + __tmp97209))))))) (define cfun-conversion-exception-procedure - (lambda (_exn90902_) + (lambda (_exn92063_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90902_)) - (let ((_e90905_ + (class-instance? RuntimeException::t _exn92063_)) + (let ((_e92066_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90902_ 'exception)))) - (if (macro-cfun-conversion-exception? _e90905_) - (macro-cfun-conversion-exception-procedure _e90905_) + (unchecked-slot-ref _exn92063_ 'exception)))) + (if (macro-cfun-conversion-exception? _e92066_) + (macro-cfun-conversion-exception-procedure _e92066_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96051 + (let ((__tmp97212 (let () (declare (not safe)) - (cons _e90905_ '())))) + (cons _e92066_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp96051))))) - (if (macro-cfun-conversion-exception? _exn90902_) - (macro-cfun-conversion-exception-procedure _exn90902_) + __tmp97212))))) + (if (macro-cfun-conversion-exception? _exn92063_) + (macro-cfun-conversion-exception-procedure _exn92063_) (error '"not an instance" 'cfun-conversion-exception? - (let ((__tmp96050 + (let ((__tmp97211 (let () (declare (not safe)) - (cons _exn90902_ '())))) + (cons _exn92063_ '())))) (declare (not safe)) (cons 'cfun-conversion-exception-procedure - __tmp96050))))))) + __tmp97211))))))) (define datum-parsing-exception? - (lambda (_exn90898_) + (lambda (_exn92059_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90898_)) - (let ((_e90900_ + (class-instance? RuntimeException::t _exn92059_)) + (let ((_e92061_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90898_ 'exception)))) - (macro-datum-parsing-exception? _e90900_)) - (macro-datum-parsing-exception? _exn90898_)))) + (unchecked-slot-ref _exn92059_ 'exception)))) + (macro-datum-parsing-exception? _e92061_)) + (macro-datum-parsing-exception? _exn92059_)))) (define datum-parsing-exception-kind - (lambda (_exn90894_) + (lambda (_exn92055_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90894_)) - (let ((_e90896_ + (class-instance? RuntimeException::t _exn92055_)) + (let ((_e92057_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90894_ 'exception)))) - (if (macro-datum-parsing-exception? _e90896_) - (macro-datum-parsing-exception-kind _e90896_) + (unchecked-slot-ref _exn92055_ 'exception)))) + (if (macro-datum-parsing-exception? _e92057_) + (macro-datum-parsing-exception-kind _e92057_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp96053 + (let ((__tmp97214 (let () (declare (not safe)) - (cons _e90896_ '())))) + (cons _e92057_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp96053))))) - (if (macro-datum-parsing-exception? _exn90894_) - (macro-datum-parsing-exception-kind _exn90894_) + (cons 'datum-parsing-exception-kind __tmp97214))))) + (if (macro-datum-parsing-exception? _exn92055_) + (macro-datum-parsing-exception-kind _exn92055_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp96052 + (let ((__tmp97213 (let () (declare (not safe)) - (cons _exn90894_ '())))) + (cons _exn92055_ '())))) (declare (not safe)) - (cons 'datum-parsing-exception-kind __tmp96052))))))) + (cons 'datum-parsing-exception-kind __tmp97213))))))) (define datum-parsing-exception-parameters - (lambda (_exn90890_) + (lambda (_exn92051_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90890_)) - (let ((_e90892_ + (class-instance? RuntimeException::t _exn92051_)) + (let ((_e92053_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90890_ 'exception)))) - (if (macro-datum-parsing-exception? _e90892_) - (macro-datum-parsing-exception-parameters _e90892_) + (unchecked-slot-ref _exn92051_ 'exception)))) + (if (macro-datum-parsing-exception? _e92053_) + (macro-datum-parsing-exception-parameters _e92053_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp96055 + (let ((__tmp97216 (let () (declare (not safe)) - (cons _e90892_ '())))) + (cons _e92053_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp96055))))) - (if (macro-datum-parsing-exception? _exn90890_) - (macro-datum-parsing-exception-parameters _exn90890_) + __tmp97216))))) + (if (macro-datum-parsing-exception? _exn92051_) + (macro-datum-parsing-exception-parameters _exn92051_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp96054 + (let ((__tmp97215 (let () (declare (not safe)) - (cons _exn90890_ '())))) + (cons _exn92051_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-parameters - __tmp96054))))))) + __tmp97215))))))) (define datum-parsing-exception-readenv - (lambda (_exn90884_) + (lambda (_exn92045_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90884_)) - (let ((_e90887_ + (class-instance? RuntimeException::t _exn92045_)) + (let ((_e92048_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90884_ 'exception)))) - (if (macro-datum-parsing-exception? _e90887_) - (macro-datum-parsing-exception-readenv _e90887_) + (unchecked-slot-ref _exn92045_ 'exception)))) + (if (macro-datum-parsing-exception? _e92048_) + (macro-datum-parsing-exception-readenv _e92048_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp96057 + (let ((__tmp97218 (let () (declare (not safe)) - (cons _e90887_ '())))) + (cons _e92048_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp96057))))) - (if (macro-datum-parsing-exception? _exn90884_) - (macro-datum-parsing-exception-readenv _exn90884_) + __tmp97218))))) + (if (macro-datum-parsing-exception? _exn92045_) + (macro-datum-parsing-exception-readenv _exn92045_) (error '"not an instance" 'datum-parsing-exception? - (let ((__tmp96056 + (let ((__tmp97217 (let () (declare (not safe)) - (cons _exn90884_ '())))) + (cons _exn92045_ '())))) (declare (not safe)) (cons 'datum-parsing-exception-readenv - __tmp96056))))))) + __tmp97217))))))) (define deadlock-exception? - (lambda (_exn90878_) + (lambda (_exn92039_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90878_)) - (let ((_e90881_ + (class-instance? RuntimeException::t _exn92039_)) + (let ((_e92042_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90878_ 'exception)))) - (macro-deadlock-exception? _e90881_)) - (macro-deadlock-exception? _exn90878_)))) + (unchecked-slot-ref _exn92039_ 'exception)))) + (macro-deadlock-exception? _e92042_)) + (macro-deadlock-exception? _exn92039_)))) (define divide-by-zero-exception? - (lambda (_exn90874_) + (lambda (_exn92035_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90874_)) - (let ((_e90876_ + (class-instance? RuntimeException::t _exn92035_)) + (let ((_e92037_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90874_ 'exception)))) - (macro-divide-by-zero-exception? _e90876_)) - (macro-divide-by-zero-exception? _exn90874_)))) + (unchecked-slot-ref _exn92035_ 'exception)))) + (macro-divide-by-zero-exception? _e92037_)) + (macro-divide-by-zero-exception? _exn92035_)))) (define divide-by-zero-exception-arguments - (lambda (_exn90870_) + (lambda (_exn92031_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90870_)) - (let ((_e90872_ + (class-instance? RuntimeException::t _exn92031_)) + (let ((_e92033_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90870_ 'exception)))) - (if (macro-divide-by-zero-exception? _e90872_) - (macro-divide-by-zero-exception-arguments _e90872_) + (unchecked-slot-ref _exn92031_ 'exception)))) + (if (macro-divide-by-zero-exception? _e92033_) + (macro-divide-by-zero-exception-arguments _e92033_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp96059 + (let ((__tmp97220 (let () (declare (not safe)) - (cons _e90872_ '())))) + (cons _e92033_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp96059))))) - (if (macro-divide-by-zero-exception? _exn90870_) - (macro-divide-by-zero-exception-arguments _exn90870_) + __tmp97220))))) + (if (macro-divide-by-zero-exception? _exn92031_) + (macro-divide-by-zero-exception-arguments _exn92031_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp96058 + (let ((__tmp97219 (let () (declare (not safe)) - (cons _exn90870_ '())))) + (cons _exn92031_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-arguments - __tmp96058))))))) + __tmp97219))))))) (define divide-by-zero-exception-procedure - (lambda (_exn90864_) + (lambda (_exn92025_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90864_)) - (let ((_e90867_ + (class-instance? RuntimeException::t _exn92025_)) + (let ((_e92028_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90864_ 'exception)))) - (if (macro-divide-by-zero-exception? _e90867_) - (macro-divide-by-zero-exception-procedure _e90867_) + (unchecked-slot-ref _exn92025_ 'exception)))) + (if (macro-divide-by-zero-exception? _e92028_) + (macro-divide-by-zero-exception-procedure _e92028_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp96061 + (let ((__tmp97222 (let () (declare (not safe)) - (cons _e90867_ '())))) + (cons _e92028_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp96061))))) - (if (macro-divide-by-zero-exception? _exn90864_) - (macro-divide-by-zero-exception-procedure _exn90864_) + __tmp97222))))) + (if (macro-divide-by-zero-exception? _exn92025_) + (macro-divide-by-zero-exception-procedure _exn92025_) (error '"not an instance" 'divide-by-zero-exception? - (let ((__tmp96060 + (let ((__tmp97221 (let () (declare (not safe)) - (cons _exn90864_ '())))) + (cons _exn92025_ '())))) (declare (not safe)) (cons 'divide-by-zero-exception-procedure - __tmp96060))))))) + __tmp97221))))))) (define error-exception? - (lambda (_exn90860_) + (lambda (_exn92021_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90860_)) - (let ((_e90862_ + (class-instance? RuntimeException::t _exn92021_)) + (let ((_e92023_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90860_ 'exception)))) - (macro-error-exception? _e90862_)) - (macro-error-exception? _exn90860_)))) + (unchecked-slot-ref _exn92021_ 'exception)))) + (macro-error-exception? _e92023_)) + (macro-error-exception? _exn92021_)))) (define error-exception-message - (lambda (_exn90856_) + (lambda (_exn92017_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90856_)) - (let ((_e90858_ + (class-instance? RuntimeException::t _exn92017_)) + (let ((_e92019_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90856_ 'exception)))) - (if (macro-error-exception? _e90858_) - (macro-error-exception-message _e90858_) + (unchecked-slot-ref _exn92017_ 'exception)))) + (if (macro-error-exception? _e92019_) + (macro-error-exception-message _e92019_) (error '"not an instance" 'error-exception? - (let ((__tmp96063 + (let ((__tmp97224 (let () (declare (not safe)) - (cons _e90858_ '())))) + (cons _e92019_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp96063))))) - (if (macro-error-exception? _exn90856_) - (macro-error-exception-message _exn90856_) + (cons 'error-exception-message __tmp97224))))) + (if (macro-error-exception? _exn92017_) + (macro-error-exception-message _exn92017_) (error '"not an instance" 'error-exception? - (let ((__tmp96062 + (let ((__tmp97223 (let () (declare (not safe)) - (cons _exn90856_ '())))) + (cons _exn92017_ '())))) (declare (not safe)) - (cons 'error-exception-message __tmp96062))))))) + (cons 'error-exception-message __tmp97223))))))) (define error-exception-parameters - (lambda (_exn90850_) + (lambda (_exn92011_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90850_)) - (let ((_e90853_ + (class-instance? RuntimeException::t _exn92011_)) + (let ((_e92014_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90850_ 'exception)))) - (if (macro-error-exception? _e90853_) - (macro-error-exception-parameters _e90853_) + (unchecked-slot-ref _exn92011_ 'exception)))) + (if (macro-error-exception? _e92014_) + (macro-error-exception-parameters _e92014_) (error '"not an instance" 'error-exception? - (let ((__tmp96065 + (let ((__tmp97226 (let () (declare (not safe)) - (cons _e90853_ '())))) + (cons _e92014_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp96065))))) - (if (macro-error-exception? _exn90850_) - (macro-error-exception-parameters _exn90850_) + (cons 'error-exception-parameters __tmp97226))))) + (if (macro-error-exception? _exn92011_) + (macro-error-exception-parameters _exn92011_) (error '"not an instance" 'error-exception? - (let ((__tmp96064 + (let ((__tmp97225 (let () (declare (not safe)) - (cons _exn90850_ '())))) + (cons _exn92011_ '())))) (declare (not safe)) - (cons 'error-exception-parameters __tmp96064))))))) + (cons 'error-exception-parameters __tmp97225))))))) (define expression-parsing-exception? - (lambda (_exn90846_) + (lambda (_exn92007_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90846_)) - (let ((_e90848_ + (class-instance? RuntimeException::t _exn92007_)) + (let ((_e92009_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90846_ 'exception)))) - (macro-expression-parsing-exception? _e90848_)) - (macro-expression-parsing-exception? _exn90846_)))) + (unchecked-slot-ref _exn92007_ 'exception)))) + (macro-expression-parsing-exception? _e92009_)) + (macro-expression-parsing-exception? _exn92007_)))) (define expression-parsing-exception-kind - (lambda (_exn90842_) + (lambda (_exn92003_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90842_)) - (let ((_e90844_ + (class-instance? RuntimeException::t _exn92003_)) + (let ((_e92005_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90842_ 'exception)))) - (if (macro-expression-parsing-exception? _e90844_) - (macro-expression-parsing-exception-kind _e90844_) + (unchecked-slot-ref _exn92003_ 'exception)))) + (if (macro-expression-parsing-exception? _e92005_) + (macro-expression-parsing-exception-kind _e92005_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp96067 + (let ((__tmp97228 (let () (declare (not safe)) - (cons _e90844_ '())))) + (cons _e92005_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp96067))))) - (if (macro-expression-parsing-exception? _exn90842_) - (macro-expression-parsing-exception-kind _exn90842_) + __tmp97228))))) + (if (macro-expression-parsing-exception? _exn92003_) + (macro-expression-parsing-exception-kind _exn92003_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp96066 + (let ((__tmp97227 (let () (declare (not safe)) - (cons _exn90842_ '())))) + (cons _exn92003_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-kind - __tmp96066))))))) + __tmp97227))))))) (define expression-parsing-exception-parameters - (lambda (_exn90838_) + (lambda (_exn91999_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90838_)) - (let ((_e90840_ + (class-instance? RuntimeException::t _exn91999_)) + (let ((_e92001_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90838_ 'exception)))) - (if (macro-expression-parsing-exception? _e90840_) - (macro-expression-parsing-exception-parameters _e90840_) + (unchecked-slot-ref _exn91999_ 'exception)))) + (if (macro-expression-parsing-exception? _e92001_) + (macro-expression-parsing-exception-parameters _e92001_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp96069 + (let ((__tmp97230 (let () (declare (not safe)) - (cons _e90840_ '())))) + (cons _e92001_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp96069))))) - (if (macro-expression-parsing-exception? _exn90838_) - (macro-expression-parsing-exception-parameters _exn90838_) + __tmp97230))))) + (if (macro-expression-parsing-exception? _exn91999_) + (macro-expression-parsing-exception-parameters _exn91999_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp96068 + (let ((__tmp97229 (let () (declare (not safe)) - (cons _exn90838_ '())))) + (cons _exn91999_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-parameters - __tmp96068))))))) + __tmp97229))))))) (define expression-parsing-exception-source - (lambda (_exn90832_) + (lambda (_exn91993_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90832_)) - (let ((_e90835_ + (class-instance? RuntimeException::t _exn91993_)) + (let ((_e91996_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90832_ 'exception)))) - (if (macro-expression-parsing-exception? _e90835_) - (macro-expression-parsing-exception-source _e90835_) + (unchecked-slot-ref _exn91993_ 'exception)))) + (if (macro-expression-parsing-exception? _e91996_) + (macro-expression-parsing-exception-source _e91996_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp96071 + (let ((__tmp97232 (let () (declare (not safe)) - (cons _e90835_ '())))) + (cons _e91996_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp96071))))) - (if (macro-expression-parsing-exception? _exn90832_) - (macro-expression-parsing-exception-source _exn90832_) + __tmp97232))))) + (if (macro-expression-parsing-exception? _exn91993_) + (macro-expression-parsing-exception-source _exn91993_) (error '"not an instance" 'expression-parsing-exception? - (let ((__tmp96070 + (let ((__tmp97231 (let () (declare (not safe)) - (cons _exn90832_ '())))) + (cons _exn91993_ '())))) (declare (not safe)) (cons 'expression-parsing-exception-source - __tmp96070))))))) + __tmp97231))))))) (define file-exists-exception? - (lambda (_exn90828_) + (lambda (_exn91989_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90828_)) - (let ((_e90830_ + (class-instance? RuntimeException::t _exn91989_)) + (let ((_e91991_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90828_ 'exception)))) - (macro-file-exists-exception? _e90830_)) - (macro-file-exists-exception? _exn90828_)))) + (unchecked-slot-ref _exn91989_ 'exception)))) + (macro-file-exists-exception? _e91991_)) + (macro-file-exists-exception? _exn91989_)))) (define file-exists-exception-arguments - (lambda (_exn90824_) + (lambda (_exn91985_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90824_)) - (let ((_e90826_ + (class-instance? RuntimeException::t _exn91985_)) + (let ((_e91987_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90824_ 'exception)))) - (if (macro-file-exists-exception? _e90826_) - (macro-file-exists-exception-arguments _e90826_) + (unchecked-slot-ref _exn91985_ 'exception)))) + (if (macro-file-exists-exception? _e91987_) + (macro-file-exists-exception-arguments _e91987_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp96073 + (let ((__tmp97234 (let () (declare (not safe)) - (cons _e90826_ '())))) + (cons _e91987_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp96073))))) - (if (macro-file-exists-exception? _exn90824_) - (macro-file-exists-exception-arguments _exn90824_) + __tmp97234))))) + (if (macro-file-exists-exception? _exn91985_) + (macro-file-exists-exception-arguments _exn91985_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp96072 + (let ((__tmp97233 (let () (declare (not safe)) - (cons _exn90824_ '())))) + (cons _exn91985_ '())))) (declare (not safe)) (cons 'file-exists-exception-arguments - __tmp96072))))))) + __tmp97233))))))) (define file-exists-exception-procedure - (lambda (_exn90818_) + (lambda (_exn91979_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90818_)) - (let ((_e90821_ + (class-instance? RuntimeException::t _exn91979_)) + (let ((_e91982_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90818_ 'exception)))) - (if (macro-file-exists-exception? _e90821_) - (macro-file-exists-exception-procedure _e90821_) + (unchecked-slot-ref _exn91979_ 'exception)))) + (if (macro-file-exists-exception? _e91982_) + (macro-file-exists-exception-procedure _e91982_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp96075 + (let ((__tmp97236 (let () (declare (not safe)) - (cons _e90821_ '())))) + (cons _e91982_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp96075))))) - (if (macro-file-exists-exception? _exn90818_) - (macro-file-exists-exception-procedure _exn90818_) + __tmp97236))))) + (if (macro-file-exists-exception? _exn91979_) + (macro-file-exists-exception-procedure _exn91979_) (error '"not an instance" 'file-exists-exception? - (let ((__tmp96074 + (let ((__tmp97235 (let () (declare (not safe)) - (cons _exn90818_ '())))) + (cons _exn91979_ '())))) (declare (not safe)) (cons 'file-exists-exception-procedure - __tmp96074))))))) + __tmp97235))))))) (define fixnum-overflow-exception? - (lambda (_exn90814_) + (lambda (_exn91975_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90814_)) - (let ((_e90816_ + (class-instance? RuntimeException::t _exn91975_)) + (let ((_e91977_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90814_ 'exception)))) - (macro-fixnum-overflow-exception? _e90816_)) - (macro-fixnum-overflow-exception? _exn90814_)))) + (unchecked-slot-ref _exn91975_ 'exception)))) + (macro-fixnum-overflow-exception? _e91977_)) + (macro-fixnum-overflow-exception? _exn91975_)))) (define fixnum-overflow-exception-arguments - (lambda (_exn90810_) + (lambda (_exn91971_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90810_)) - (let ((_e90812_ + (class-instance? RuntimeException::t _exn91971_)) + (let ((_e91973_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90810_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e90812_) - (macro-fixnum-overflow-exception-arguments _e90812_) + (unchecked-slot-ref _exn91971_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e91973_) + (macro-fixnum-overflow-exception-arguments _e91973_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp96077 + (let ((__tmp97238 (let () (declare (not safe)) - (cons _e90812_ '())))) + (cons _e91973_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp96077))))) - (if (macro-fixnum-overflow-exception? _exn90810_) - (macro-fixnum-overflow-exception-arguments _exn90810_) + __tmp97238))))) + (if (macro-fixnum-overflow-exception? _exn91971_) + (macro-fixnum-overflow-exception-arguments _exn91971_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp96076 + (let ((__tmp97237 (let () (declare (not safe)) - (cons _exn90810_ '())))) + (cons _exn91971_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-arguments - __tmp96076))))))) + __tmp97237))))))) (define fixnum-overflow-exception-procedure - (lambda (_exn90804_) + (lambda (_exn91965_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90804_)) - (let ((_e90807_ + (class-instance? RuntimeException::t _exn91965_)) + (let ((_e91968_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90804_ 'exception)))) - (if (macro-fixnum-overflow-exception? _e90807_) - (macro-fixnum-overflow-exception-procedure _e90807_) + (unchecked-slot-ref _exn91965_ 'exception)))) + (if (macro-fixnum-overflow-exception? _e91968_) + (macro-fixnum-overflow-exception-procedure _e91968_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp96079 + (let ((__tmp97240 (let () (declare (not safe)) - (cons _e90807_ '())))) + (cons _e91968_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp96079))))) - (if (macro-fixnum-overflow-exception? _exn90804_) - (macro-fixnum-overflow-exception-procedure _exn90804_) + __tmp97240))))) + (if (macro-fixnum-overflow-exception? _exn91965_) + (macro-fixnum-overflow-exception-procedure _exn91965_) (error '"not an instance" 'fixnum-overflow-exception? - (let ((__tmp96078 + (let ((__tmp97239 (let () (declare (not safe)) - (cons _exn90804_ '())))) + (cons _exn91965_ '())))) (declare (not safe)) (cons 'fixnum-overflow-exception-procedure - __tmp96078))))))) + __tmp97239))))))) (define heap-overflow-exception? - (lambda (_exn90798_) + (lambda (_exn91959_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90798_)) - (let ((_e90801_ + (class-instance? RuntimeException::t _exn91959_)) + (let ((_e91962_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90798_ 'exception)))) - (macro-heap-overflow-exception? _e90801_)) - (macro-heap-overflow-exception? _exn90798_)))) + (unchecked-slot-ref _exn91959_ 'exception)))) + (macro-heap-overflow-exception? _e91962_)) + (macro-heap-overflow-exception? _exn91959_)))) (define inactive-thread-exception? - (lambda (_exn90794_) + (lambda (_exn91955_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90794_)) - (let ((_e90796_ + (class-instance? RuntimeException::t _exn91955_)) + (let ((_e91957_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90794_ 'exception)))) - (macro-inactive-thread-exception? _e90796_)) - (macro-inactive-thread-exception? _exn90794_)))) + (unchecked-slot-ref _exn91955_ 'exception)))) + (macro-inactive-thread-exception? _e91957_)) + (macro-inactive-thread-exception? _exn91955_)))) (define inactive-thread-exception-arguments - (lambda (_exn90790_) + (lambda (_exn91951_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90790_)) - (let ((_e90792_ + (class-instance? RuntimeException::t _exn91951_)) + (let ((_e91953_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90790_ 'exception)))) - (if (macro-inactive-thread-exception? _e90792_) - (macro-inactive-thread-exception-arguments _e90792_) + (unchecked-slot-ref _exn91951_ 'exception)))) + (if (macro-inactive-thread-exception? _e91953_) + (macro-inactive-thread-exception-arguments _e91953_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp96081 + (let ((__tmp97242 (let () (declare (not safe)) - (cons _e90792_ '())))) + (cons _e91953_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp96081))))) - (if (macro-inactive-thread-exception? _exn90790_) - (macro-inactive-thread-exception-arguments _exn90790_) + __tmp97242))))) + (if (macro-inactive-thread-exception? _exn91951_) + (macro-inactive-thread-exception-arguments _exn91951_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp96080 + (let ((__tmp97241 (let () (declare (not safe)) - (cons _exn90790_ '())))) + (cons _exn91951_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-arguments - __tmp96080))))))) + __tmp97241))))))) (define inactive-thread-exception-procedure - (lambda (_exn90784_) + (lambda (_exn91945_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90784_)) - (let ((_e90787_ + (class-instance? RuntimeException::t _exn91945_)) + (let ((_e91948_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90784_ 'exception)))) - (if (macro-inactive-thread-exception? _e90787_) - (macro-inactive-thread-exception-procedure _e90787_) + (unchecked-slot-ref _exn91945_ 'exception)))) + (if (macro-inactive-thread-exception? _e91948_) + (macro-inactive-thread-exception-procedure _e91948_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp96083 + (let ((__tmp97244 (let () (declare (not safe)) - (cons _e90787_ '())))) + (cons _e91948_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp96083))))) - (if (macro-inactive-thread-exception? _exn90784_) - (macro-inactive-thread-exception-procedure _exn90784_) + __tmp97244))))) + (if (macro-inactive-thread-exception? _exn91945_) + (macro-inactive-thread-exception-procedure _exn91945_) (error '"not an instance" 'inactive-thread-exception? - (let ((__tmp96082 + (let ((__tmp97243 (let () (declare (not safe)) - (cons _exn90784_ '())))) + (cons _exn91945_ '())))) (declare (not safe)) (cons 'inactive-thread-exception-procedure - __tmp96082))))))) + __tmp97243))))))) (define initialized-thread-exception? - (lambda (_exn90780_) + (lambda (_exn91941_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90780_)) - (let ((_e90782_ + (class-instance? RuntimeException::t _exn91941_)) + (let ((_e91943_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90780_ 'exception)))) - (macro-initialized-thread-exception? _e90782_)) - (macro-initialized-thread-exception? _exn90780_)))) + (unchecked-slot-ref _exn91941_ 'exception)))) + (macro-initialized-thread-exception? _e91943_)) + (macro-initialized-thread-exception? _exn91941_)))) (define initialized-thread-exception-arguments - (lambda (_exn90776_) + (lambda (_exn91937_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90776_)) - (let ((_e90778_ + (class-instance? RuntimeException::t _exn91937_)) + (let ((_e91939_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90776_ 'exception)))) - (if (macro-initialized-thread-exception? _e90778_) - (macro-initialized-thread-exception-arguments _e90778_) + (unchecked-slot-ref _exn91937_ 'exception)))) + (if (macro-initialized-thread-exception? _e91939_) + (macro-initialized-thread-exception-arguments _e91939_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp96085 + (let ((__tmp97246 (let () (declare (not safe)) - (cons _e90778_ '())))) + (cons _e91939_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp96085))))) - (if (macro-initialized-thread-exception? _exn90776_) - (macro-initialized-thread-exception-arguments _exn90776_) + __tmp97246))))) + (if (macro-initialized-thread-exception? _exn91937_) + (macro-initialized-thread-exception-arguments _exn91937_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp96084 + (let ((__tmp97245 (let () (declare (not safe)) - (cons _exn90776_ '())))) + (cons _exn91937_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-arguments - __tmp96084))))))) + __tmp97245))))))) (define initialized-thread-exception-procedure - (lambda (_exn90770_) + (lambda (_exn91931_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90770_)) - (let ((_e90773_ + (class-instance? RuntimeException::t _exn91931_)) + (let ((_e91934_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90770_ 'exception)))) - (if (macro-initialized-thread-exception? _e90773_) - (macro-initialized-thread-exception-procedure _e90773_) + (unchecked-slot-ref _exn91931_ 'exception)))) + (if (macro-initialized-thread-exception? _e91934_) + (macro-initialized-thread-exception-procedure _e91934_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp96087 + (let ((__tmp97248 (let () (declare (not safe)) - (cons _e90773_ '())))) + (cons _e91934_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp96087))))) - (if (macro-initialized-thread-exception? _exn90770_) - (macro-initialized-thread-exception-procedure _exn90770_) + __tmp97248))))) + (if (macro-initialized-thread-exception? _exn91931_) + (macro-initialized-thread-exception-procedure _exn91931_) (error '"not an instance" 'initialized-thread-exception? - (let ((__tmp96086 + (let ((__tmp97247 (let () (declare (not safe)) - (cons _exn90770_ '())))) + (cons _exn91931_ '())))) (declare (not safe)) (cons 'initialized-thread-exception-procedure - __tmp96086))))))) + __tmp97247))))))) (define invalid-hash-number-exception? - (lambda (_exn90766_) + (lambda (_exn91927_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90766_)) - (let ((_e90768_ + (class-instance? RuntimeException::t _exn91927_)) + (let ((_e91929_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90766_ 'exception)))) - (macro-invalid-hash-number-exception? _e90768_)) - (macro-invalid-hash-number-exception? _exn90766_)))) + (unchecked-slot-ref _exn91927_ 'exception)))) + (macro-invalid-hash-number-exception? _e91929_)) + (macro-invalid-hash-number-exception? _exn91927_)))) (define invalid-hash-number-exception-arguments - (lambda (_exn90762_) + (lambda (_exn91923_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90762_)) - (let ((_e90764_ + (class-instance? RuntimeException::t _exn91923_)) + (let ((_e91925_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90762_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e90764_) - (macro-invalid-hash-number-exception-arguments _e90764_) + (unchecked-slot-ref _exn91923_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e91925_) + (macro-invalid-hash-number-exception-arguments _e91925_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp96089 + (let ((__tmp97250 (let () (declare (not safe)) - (cons _e90764_ '())))) + (cons _e91925_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp96089))))) - (if (macro-invalid-hash-number-exception? _exn90762_) - (macro-invalid-hash-number-exception-arguments _exn90762_) + __tmp97250))))) + (if (macro-invalid-hash-number-exception? _exn91923_) + (macro-invalid-hash-number-exception-arguments _exn91923_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp96088 + (let ((__tmp97249 (let () (declare (not safe)) - (cons _exn90762_ '())))) + (cons _exn91923_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-arguments - __tmp96088))))))) + __tmp97249))))))) (define invalid-hash-number-exception-procedure - (lambda (_exn90756_) + (lambda (_exn91917_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90756_)) - (let ((_e90759_ + (class-instance? RuntimeException::t _exn91917_)) + (let ((_e91920_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90756_ 'exception)))) - (if (macro-invalid-hash-number-exception? _e90759_) - (macro-invalid-hash-number-exception-procedure _e90759_) + (unchecked-slot-ref _exn91917_ 'exception)))) + (if (macro-invalid-hash-number-exception? _e91920_) + (macro-invalid-hash-number-exception-procedure _e91920_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp96091 + (let ((__tmp97252 (let () (declare (not safe)) - (cons _e90759_ '())))) + (cons _e91920_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp96091))))) - (if (macro-invalid-hash-number-exception? _exn90756_) - (macro-invalid-hash-number-exception-procedure _exn90756_) + __tmp97252))))) + (if (macro-invalid-hash-number-exception? _exn91917_) + (macro-invalid-hash-number-exception-procedure _exn91917_) (error '"not an instance" 'invalid-hash-number-exception? - (let ((__tmp96090 + (let ((__tmp97251 (let () (declare (not safe)) - (cons _exn90756_ '())))) + (cons _exn91917_ '())))) (declare (not safe)) (cons 'invalid-hash-number-exception-procedure - __tmp96090))))))) + __tmp97251))))))) (define invalid-utf8-encoding-exception? - (lambda (_exn90752_) + (lambda (_exn91913_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90752_)) - (let ((_e90754_ + (class-instance? RuntimeException::t _exn91913_)) + (let ((_e91915_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90752_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _e90754_)) - (macro-invalid-utf8-encoding-exception? _exn90752_)))) + (unchecked-slot-ref _exn91913_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _e91915_)) + (macro-invalid-utf8-encoding-exception? _exn91913_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_exn90748_) + (lambda (_exn91909_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90748_)) - (let ((_e90750_ + (class-instance? RuntimeException::t _exn91909_)) + (let ((_e91911_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90748_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e90750_) - (macro-invalid-utf8-encoding-exception-arguments _e90750_) + (unchecked-slot-ref _exn91909_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e91911_) + (macro-invalid-utf8-encoding-exception-arguments _e91911_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp96093 + (let ((__tmp97254 (let () (declare (not safe)) - (cons _e90750_ '())))) + (cons _e91911_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp96093))))) - (if (macro-invalid-utf8-encoding-exception? _exn90748_) - (macro-invalid-utf8-encoding-exception-arguments _exn90748_) + __tmp97254))))) + (if (macro-invalid-utf8-encoding-exception? _exn91909_) + (macro-invalid-utf8-encoding-exception-arguments _exn91909_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp96092 + (let ((__tmp97253 (let () (declare (not safe)) - (cons _exn90748_ '())))) + (cons _exn91909_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-arguments - __tmp96092))))))) + __tmp97253))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_exn90742_) + (lambda (_exn91903_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90742_)) - (let ((_e90745_ + (class-instance? RuntimeException::t _exn91903_)) + (let ((_e91906_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90742_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _e90745_) - (macro-invalid-utf8-encoding-exception-procedure _e90745_) + (unchecked-slot-ref _exn91903_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _e91906_) + (macro-invalid-utf8-encoding-exception-procedure _e91906_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp96095 + (let ((__tmp97256 (let () (declare (not safe)) - (cons _e90745_ '())))) + (cons _e91906_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp96095))))) - (if (macro-invalid-utf8-encoding-exception? _exn90742_) - (macro-invalid-utf8-encoding-exception-procedure _exn90742_) + __tmp97256))))) + (if (macro-invalid-utf8-encoding-exception? _exn91903_) + (macro-invalid-utf8-encoding-exception-procedure _exn91903_) (error '"not an instance" 'invalid-utf8-encoding-exception? - (let ((__tmp96094 + (let ((__tmp97255 (let () (declare (not safe)) - (cons _exn90742_ '())))) + (cons _exn91903_ '())))) (declare (not safe)) (cons 'invalid-utf8-encoding-exception-procedure - __tmp96094))))))) + __tmp97255))))))) (define join-timeout-exception? - (lambda (_exn90738_) + (lambda (_exn91899_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90738_)) - (let ((_e90740_ + (class-instance? RuntimeException::t _exn91899_)) + (let ((_e91901_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90738_ 'exception)))) - (macro-join-timeout-exception? _e90740_)) - (macro-join-timeout-exception? _exn90738_)))) + (unchecked-slot-ref _exn91899_ 'exception)))) + (macro-join-timeout-exception? _e91901_)) + (macro-join-timeout-exception? _exn91899_)))) (define join-timeout-exception-arguments - (lambda (_exn90734_) + (lambda (_exn91895_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90734_)) - (let ((_e90736_ + (class-instance? RuntimeException::t _exn91895_)) + (let ((_e91897_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90734_ 'exception)))) - (if (macro-join-timeout-exception? _e90736_) - (macro-join-timeout-exception-arguments _e90736_) + (unchecked-slot-ref _exn91895_ 'exception)))) + (if (macro-join-timeout-exception? _e91897_) + (macro-join-timeout-exception-arguments _e91897_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp96097 + (let ((__tmp97258 (let () (declare (not safe)) - (cons _e90736_ '())))) + (cons _e91897_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp96097))))) - (if (macro-join-timeout-exception? _exn90734_) - (macro-join-timeout-exception-arguments _exn90734_) + __tmp97258))))) + (if (macro-join-timeout-exception? _exn91895_) + (macro-join-timeout-exception-arguments _exn91895_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp96096 + (let ((__tmp97257 (let () (declare (not safe)) - (cons _exn90734_ '())))) + (cons _exn91895_ '())))) (declare (not safe)) (cons 'join-timeout-exception-arguments - __tmp96096))))))) + __tmp97257))))))) (define join-timeout-exception-procedure - (lambda (_exn90728_) + (lambda (_exn91889_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90728_)) - (let ((_e90731_ + (class-instance? RuntimeException::t _exn91889_)) + (let ((_e91892_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90728_ 'exception)))) - (if (macro-join-timeout-exception? _e90731_) - (macro-join-timeout-exception-procedure _e90731_) + (unchecked-slot-ref _exn91889_ 'exception)))) + (if (macro-join-timeout-exception? _e91892_) + (macro-join-timeout-exception-procedure _e91892_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp96099 + (let ((__tmp97260 (let () (declare (not safe)) - (cons _e90731_ '())))) + (cons _e91892_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp96099))))) - (if (macro-join-timeout-exception? _exn90728_) - (macro-join-timeout-exception-procedure _exn90728_) + __tmp97260))))) + (if (macro-join-timeout-exception? _exn91889_) + (macro-join-timeout-exception-procedure _exn91889_) (error '"not an instance" 'join-timeout-exception? - (let ((__tmp96098 + (let ((__tmp97259 (let () (declare (not safe)) - (cons _exn90728_ '())))) + (cons _exn91889_ '())))) (declare (not safe)) (cons 'join-timeout-exception-procedure - __tmp96098))))))) + __tmp97259))))))) (define keyword-expected-exception? - (lambda (_exn90724_) + (lambda (_exn91885_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90724_)) - (let ((_e90726_ + (class-instance? RuntimeException::t _exn91885_)) + (let ((_e91887_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90724_ 'exception)))) - (macro-keyword-expected-exception? _e90726_)) - (macro-keyword-expected-exception? _exn90724_)))) + (unchecked-slot-ref _exn91885_ 'exception)))) + (macro-keyword-expected-exception? _e91887_)) + (macro-keyword-expected-exception? _exn91885_)))) (define keyword-expected-exception-arguments - (lambda (_exn90720_) + (lambda (_exn91881_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90720_)) - (let ((_e90722_ + (class-instance? RuntimeException::t _exn91881_)) + (let ((_e91883_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90720_ 'exception)))) - (if (macro-keyword-expected-exception? _e90722_) - (macro-keyword-expected-exception-arguments _e90722_) + (unchecked-slot-ref _exn91881_ 'exception)))) + (if (macro-keyword-expected-exception? _e91883_) + (macro-keyword-expected-exception-arguments _e91883_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp96101 + (let ((__tmp97262 (let () (declare (not safe)) - (cons _e90722_ '())))) + (cons _e91883_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp96101))))) - (if (macro-keyword-expected-exception? _exn90720_) - (macro-keyword-expected-exception-arguments _exn90720_) + __tmp97262))))) + (if (macro-keyword-expected-exception? _exn91881_) + (macro-keyword-expected-exception-arguments _exn91881_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp96100 + (let ((__tmp97261 (let () (declare (not safe)) - (cons _exn90720_ '())))) + (cons _exn91881_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-arguments - __tmp96100))))))) + __tmp97261))))))) (define keyword-expected-exception-procedure - (lambda (_exn90714_) + (lambda (_exn91875_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90714_)) - (let ((_e90717_ + (class-instance? RuntimeException::t _exn91875_)) + (let ((_e91878_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90714_ 'exception)))) - (if (macro-keyword-expected-exception? _e90717_) - (macro-keyword-expected-exception-procedure _e90717_) + (unchecked-slot-ref _exn91875_ 'exception)))) + (if (macro-keyword-expected-exception? _e91878_) + (macro-keyword-expected-exception-procedure _e91878_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp96103 + (let ((__tmp97264 (let () (declare (not safe)) - (cons _e90717_ '())))) + (cons _e91878_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp96103))))) - (if (macro-keyword-expected-exception? _exn90714_) - (macro-keyword-expected-exception-procedure _exn90714_) + __tmp97264))))) + (if (macro-keyword-expected-exception? _exn91875_) + (macro-keyword-expected-exception-procedure _exn91875_) (error '"not an instance" 'keyword-expected-exception? - (let ((__tmp96102 + (let ((__tmp97263 (let () (declare (not safe)) - (cons _exn90714_ '())))) + (cons _exn91875_ '())))) (declare (not safe)) (cons 'keyword-expected-exception-procedure - __tmp96102))))))) + __tmp97263))))))) (define length-mismatch-exception? - (lambda (_exn90710_) + (lambda (_exn91871_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90710_)) - (let ((_e90712_ + (class-instance? RuntimeException::t _exn91871_)) + (let ((_e91873_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90710_ 'exception)))) - (macro-length-mismatch-exception? _e90712_)) - (macro-length-mismatch-exception? _exn90710_)))) + (unchecked-slot-ref _exn91871_ 'exception)))) + (macro-length-mismatch-exception? _e91873_)) + (macro-length-mismatch-exception? _exn91871_)))) (define length-mismatch-exception-arg-id - (lambda (_exn90706_) + (lambda (_exn91867_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90706_)) - (let ((_e90708_ + (class-instance? RuntimeException::t _exn91867_)) + (let ((_e91869_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90706_ 'exception)))) - (if (macro-length-mismatch-exception? _e90708_) - (macro-length-mismatch-exception-arg-id _e90708_) + (unchecked-slot-ref _exn91867_ 'exception)))) + (if (macro-length-mismatch-exception? _e91869_) + (macro-length-mismatch-exception-arg-id _e91869_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp96105 + (let ((__tmp97266 (let () (declare (not safe)) - (cons _e90708_ '())))) + (cons _e91869_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp96105))))) - (if (macro-length-mismatch-exception? _exn90706_) - (macro-length-mismatch-exception-arg-id _exn90706_) + __tmp97266))))) + (if (macro-length-mismatch-exception? _exn91867_) + (macro-length-mismatch-exception-arg-id _exn91867_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp96104 + (let ((__tmp97265 (let () (declare (not safe)) - (cons _exn90706_ '())))) + (cons _exn91867_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arg-id - __tmp96104))))))) + __tmp97265))))))) (define length-mismatch-exception-arguments - (lambda (_exn90702_) + (lambda (_exn91863_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90702_)) - (let ((_e90704_ + (class-instance? RuntimeException::t _exn91863_)) + (let ((_e91865_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90702_ 'exception)))) - (if (macro-length-mismatch-exception? _e90704_) - (macro-length-mismatch-exception-arguments _e90704_) + (unchecked-slot-ref _exn91863_ 'exception)))) + (if (macro-length-mismatch-exception? _e91865_) + (macro-length-mismatch-exception-arguments _e91865_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp96107 + (let ((__tmp97268 (let () (declare (not safe)) - (cons _e90704_ '())))) + (cons _e91865_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp96107))))) - (if (macro-length-mismatch-exception? _exn90702_) - (macro-length-mismatch-exception-arguments _exn90702_) + __tmp97268))))) + (if (macro-length-mismatch-exception? _exn91863_) + (macro-length-mismatch-exception-arguments _exn91863_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp96106 + (let ((__tmp97267 (let () (declare (not safe)) - (cons _exn90702_ '())))) + (cons _exn91863_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-arguments - __tmp96106))))))) + __tmp97267))))))) (define length-mismatch-exception-procedure - (lambda (_exn90696_) + (lambda (_exn91857_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90696_)) - (let ((_e90699_ + (class-instance? RuntimeException::t _exn91857_)) + (let ((_e91860_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90696_ 'exception)))) - (if (macro-length-mismatch-exception? _e90699_) - (macro-length-mismatch-exception-procedure _e90699_) + (unchecked-slot-ref _exn91857_ 'exception)))) + (if (macro-length-mismatch-exception? _e91860_) + (macro-length-mismatch-exception-procedure _e91860_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp96109 + (let ((__tmp97270 (let () (declare (not safe)) - (cons _e90699_ '())))) + (cons _e91860_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp96109))))) - (if (macro-length-mismatch-exception? _exn90696_) - (macro-length-mismatch-exception-procedure _exn90696_) + __tmp97270))))) + (if (macro-length-mismatch-exception? _exn91857_) + (macro-length-mismatch-exception-procedure _exn91857_) (error '"not an instance" 'length-mismatch-exception? - (let ((__tmp96108 + (let ((__tmp97269 (let () (declare (not safe)) - (cons _exn90696_ '())))) + (cons _exn91857_ '())))) (declare (not safe)) (cons 'length-mismatch-exception-procedure - __tmp96108))))))) + __tmp97269))))))) (define mailbox-receive-timeout-exception? - (lambda (_exn90692_) + (lambda (_exn91853_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90692_)) - (let ((_e90694_ + (class-instance? RuntimeException::t _exn91853_)) + (let ((_e91855_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90692_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _e90694_)) - (macro-mailbox-receive-timeout-exception? _exn90692_)))) + (unchecked-slot-ref _exn91853_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _e91855_)) + (macro-mailbox-receive-timeout-exception? _exn91853_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_exn90688_) + (lambda (_exn91849_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90688_)) - (let ((_e90690_ + (class-instance? RuntimeException::t _exn91849_)) + (let ((_e91851_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90688_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e90690_) - (macro-mailbox-receive-timeout-exception-arguments _e90690_) + (unchecked-slot-ref _exn91849_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e91851_) + (macro-mailbox-receive-timeout-exception-arguments _e91851_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp96111 + (let ((__tmp97272 (let () (declare (not safe)) - (cons _e90690_ '())))) + (cons _e91851_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp96111))))) - (if (macro-mailbox-receive-timeout-exception? _exn90688_) - (macro-mailbox-receive-timeout-exception-arguments _exn90688_) + __tmp97272))))) + (if (macro-mailbox-receive-timeout-exception? _exn91849_) + (macro-mailbox-receive-timeout-exception-arguments _exn91849_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp96110 + (let ((__tmp97271 (let () (declare (not safe)) - (cons _exn90688_ '())))) + (cons _exn91849_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-arguments - __tmp96110))))))) + __tmp97271))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_exn90682_) + (lambda (_exn91843_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90682_)) - (let ((_e90685_ + (class-instance? RuntimeException::t _exn91843_)) + (let ((_e91846_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90682_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _e90685_) - (macro-mailbox-receive-timeout-exception-procedure _e90685_) + (unchecked-slot-ref _exn91843_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _e91846_) + (macro-mailbox-receive-timeout-exception-procedure _e91846_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp96113 + (let ((__tmp97274 (let () (declare (not safe)) - (cons _e90685_ '())))) + (cons _e91846_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp96113))))) - (if (macro-mailbox-receive-timeout-exception? _exn90682_) - (macro-mailbox-receive-timeout-exception-procedure _exn90682_) + __tmp97274))))) + (if (macro-mailbox-receive-timeout-exception? _exn91843_) + (macro-mailbox-receive-timeout-exception-procedure _exn91843_) (error '"not an instance" 'mailbox-receive-timeout-exception? - (let ((__tmp96112 + (let ((__tmp97273 (let () (declare (not safe)) - (cons _exn90682_ '())))) + (cons _exn91843_ '())))) (declare (not safe)) (cons 'mailbox-receive-timeout-exception-procedure - __tmp96112))))))) + __tmp97273))))))) (define module-not-found-exception? - (lambda (_exn90678_) + (lambda (_exn91839_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90678_)) - (let ((_e90680_ + (class-instance? RuntimeException::t _exn91839_)) + (let ((_e91841_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90678_ 'exception)))) - (macro-module-not-found-exception? _e90680_)) - (macro-module-not-found-exception? _exn90678_)))) + (unchecked-slot-ref _exn91839_ 'exception)))) + (macro-module-not-found-exception? _e91841_)) + (macro-module-not-found-exception? _exn91839_)))) (define module-not-found-exception-arguments - (lambda (_exn90674_) + (lambda (_exn91835_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90674_)) - (let ((_e90676_ + (class-instance? RuntimeException::t _exn91835_)) + (let ((_e91837_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90674_ 'exception)))) - (if (macro-module-not-found-exception? _e90676_) - (macro-module-not-found-exception-arguments _e90676_) + (unchecked-slot-ref _exn91835_ 'exception)))) + (if (macro-module-not-found-exception? _e91837_) + (macro-module-not-found-exception-arguments _e91837_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp96115 + (let ((__tmp97276 (let () (declare (not safe)) - (cons _e90676_ '())))) + (cons _e91837_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp96115))))) - (if (macro-module-not-found-exception? _exn90674_) - (macro-module-not-found-exception-arguments _exn90674_) + __tmp97276))))) + (if (macro-module-not-found-exception? _exn91835_) + (macro-module-not-found-exception-arguments _exn91835_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp96114 + (let ((__tmp97275 (let () (declare (not safe)) - (cons _exn90674_ '())))) + (cons _exn91835_ '())))) (declare (not safe)) (cons 'module-not-found-exception-arguments - __tmp96114))))))) + __tmp97275))))))) (define module-not-found-exception-procedure - (lambda (_exn90668_) + (lambda (_exn91829_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90668_)) - (let ((_e90671_ + (class-instance? RuntimeException::t _exn91829_)) + (let ((_e91832_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90668_ 'exception)))) - (if (macro-module-not-found-exception? _e90671_) - (macro-module-not-found-exception-procedure _e90671_) + (unchecked-slot-ref _exn91829_ 'exception)))) + (if (macro-module-not-found-exception? _e91832_) + (macro-module-not-found-exception-procedure _e91832_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp96117 + (let ((__tmp97278 (let () (declare (not safe)) - (cons _e90671_ '())))) + (cons _e91832_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp96117))))) - (if (macro-module-not-found-exception? _exn90668_) - (macro-module-not-found-exception-procedure _exn90668_) + __tmp97278))))) + (if (macro-module-not-found-exception? _exn91829_) + (macro-module-not-found-exception-procedure _exn91829_) (error '"not an instance" 'module-not-found-exception? - (let ((__tmp96116 + (let ((__tmp97277 (let () (declare (not safe)) - (cons _exn90668_ '())))) + (cons _exn91829_ '())))) (declare (not safe)) (cons 'module-not-found-exception-procedure - __tmp96116))))))) + __tmp97277))))))) (define multiple-c-return-exception? - (lambda (_exn90662_) + (lambda (_exn91823_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90662_)) - (let ((_e90665_ + (class-instance? RuntimeException::t _exn91823_)) + (let ((_e91826_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90662_ 'exception)))) - (macro-multiple-c-return-exception? _e90665_)) - (macro-multiple-c-return-exception? _exn90662_)))) + (unchecked-slot-ref _exn91823_ 'exception)))) + (macro-multiple-c-return-exception? _e91826_)) + (macro-multiple-c-return-exception? _exn91823_)))) (define no-such-file-or-directory-exception? - (lambda (_exn90658_) + (lambda (_exn91819_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90658_)) - (let ((_e90660_ + (class-instance? RuntimeException::t _exn91819_)) + (let ((_e91821_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90658_ 'exception)))) - (macro-no-such-file-or-directory-exception? _e90660_)) - (macro-no-such-file-or-directory-exception? _exn90658_)))) + (unchecked-slot-ref _exn91819_ 'exception)))) + (macro-no-such-file-or-directory-exception? _e91821_)) + (macro-no-such-file-or-directory-exception? _exn91819_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_exn90654_) + (lambda (_exn91815_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90654_)) - (let ((_e90656_ + (class-instance? RuntimeException::t _exn91815_)) + (let ((_e91817_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90654_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e90656_) + (unchecked-slot-ref _exn91815_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e91817_) (macro-no-such-file-or-directory-exception-arguments - _e90656_) + _e91817_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp96119 + (let ((__tmp97280 (let () (declare (not safe)) - (cons _e90656_ '())))) + (cons _e91817_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp96119))))) - (if (macro-no-such-file-or-directory-exception? _exn90654_) + __tmp97280))))) + (if (macro-no-such-file-or-directory-exception? _exn91815_) (macro-no-such-file-or-directory-exception-arguments - _exn90654_) + _exn91815_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp96118 + (let ((__tmp97279 (let () (declare (not safe)) - (cons _exn90654_ '())))) + (cons _exn91815_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-arguments - __tmp96118))))))) + __tmp97279))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_exn90648_) + (lambda (_exn91809_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90648_)) - (let ((_e90651_ + (class-instance? RuntimeException::t _exn91809_)) + (let ((_e91812_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90648_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _e90651_) + (unchecked-slot-ref _exn91809_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _e91812_) (macro-no-such-file-or-directory-exception-procedure - _e90651_) + _e91812_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp96121 + (let ((__tmp97282 (let () (declare (not safe)) - (cons _e90651_ '())))) + (cons _e91812_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp96121))))) - (if (macro-no-such-file-or-directory-exception? _exn90648_) + __tmp97282))))) + (if (macro-no-such-file-or-directory-exception? _exn91809_) (macro-no-such-file-or-directory-exception-procedure - _exn90648_) + _exn91809_) (error '"not an instance" 'no-such-file-or-directory-exception? - (let ((__tmp96120 + (let ((__tmp97281 (let () (declare (not safe)) - (cons _exn90648_ '())))) + (cons _exn91809_ '())))) (declare (not safe)) (cons 'no-such-file-or-directory-exception-procedure - __tmp96120))))))) + __tmp97281))))))) (define noncontinuable-exception? - (lambda (_exn90644_) + (lambda (_exn91805_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90644_)) - (let ((_e90646_ + (class-instance? RuntimeException::t _exn91805_)) + (let ((_e91807_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90644_ 'exception)))) - (macro-noncontinuable-exception? _e90646_)) - (macro-noncontinuable-exception? _exn90644_)))) + (unchecked-slot-ref _exn91805_ 'exception)))) + (macro-noncontinuable-exception? _e91807_)) + (macro-noncontinuable-exception? _exn91805_)))) (define noncontinuable-exception-reason - (lambda (_exn90638_) + (lambda (_exn91799_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90638_)) - (let ((_e90641_ + (class-instance? RuntimeException::t _exn91799_)) + (let ((_e91802_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90638_ 'exception)))) - (if (macro-noncontinuable-exception? _e90641_) - (macro-noncontinuable-exception-reason _e90641_) + (unchecked-slot-ref _exn91799_ 'exception)))) + (if (macro-noncontinuable-exception? _e91802_) + (macro-noncontinuable-exception-reason _e91802_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp96123 + (let ((__tmp97284 (let () (declare (not safe)) - (cons _e90641_ '())))) + (cons _e91802_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp96123))))) - (if (macro-noncontinuable-exception? _exn90638_) - (macro-noncontinuable-exception-reason _exn90638_) + __tmp97284))))) + (if (macro-noncontinuable-exception? _exn91799_) + (macro-noncontinuable-exception-reason _exn91799_) (error '"not an instance" 'noncontinuable-exception? - (let ((__tmp96122 + (let ((__tmp97283 (let () (declare (not safe)) - (cons _exn90638_ '())))) + (cons _exn91799_ '())))) (declare (not safe)) (cons 'noncontinuable-exception-reason - __tmp96122))))))) + __tmp97283))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_exn90634_) + (lambda (_exn91795_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90634_)) - (let ((_e90636_ + (class-instance? RuntimeException::t _exn91795_)) + (let ((_e91797_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90634_ 'exception)))) - (macro-nonempty-input-port-character-buffer-exception? _e90636_)) + (unchecked-slot-ref _exn91795_ 'exception)))) + (macro-nonempty-input-port-character-buffer-exception? _e91797_)) (macro-nonempty-input-port-character-buffer-exception? - _exn90634_)))) + _exn91795_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_exn90630_) + (lambda (_exn91791_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90630_)) - (let ((_e90632_ + (class-instance? RuntimeException::t _exn91791_)) + (let ((_e91793_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90630_ 'exception)))) + (unchecked-slot-ref _exn91791_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e90632_) + _e91793_) (macro-nonempty-input-port-character-buffer-exception-arguments - _e90632_) + _e91793_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp96125 + (let ((__tmp97286 (let () (declare (not safe)) - (cons _e90632_ '())))) + (cons _e91793_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp96125))))) + __tmp97286))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn90630_) + _exn91791_) (macro-nonempty-input-port-character-buffer-exception-arguments - _exn90630_) + _exn91791_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp96124 + (let ((__tmp97285 (let () (declare (not safe)) - (cons _exn90630_ '())))) + (cons _exn91791_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-arguments - __tmp96124))))))) + __tmp97285))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_exn90624_) + (lambda (_exn91785_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90624_)) - (let ((_e90627_ + (class-instance? RuntimeException::t _exn91785_)) + (let ((_e91788_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90624_ 'exception)))) + (unchecked-slot-ref _exn91785_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _e90627_) + _e91788_) (macro-nonempty-input-port-character-buffer-exception-procedure - _e90627_) + _e91788_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp96127 + (let ((__tmp97288 (let () (declare (not safe)) - (cons _e90627_ '())))) + (cons _e91788_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp96127))))) + __tmp97288))))) (if (macro-nonempty-input-port-character-buffer-exception? - _exn90624_) + _exn91785_) (macro-nonempty-input-port-character-buffer-exception-procedure - _exn90624_) + _exn91785_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? - (let ((__tmp96126 + (let ((__tmp97287 (let () (declare (not safe)) - (cons _exn90624_ '())))) + (cons _exn91785_ '())))) (declare (not safe)) (cons 'nonempty-input-port-character-buffer-exception-procedure - __tmp96126))))))) + __tmp97287))))))) (define nonprocedure-operator-exception? - (lambda (_exn90620_) + (lambda (_exn91781_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90620_)) - (let ((_e90622_ + (class-instance? RuntimeException::t _exn91781_)) + (let ((_e91783_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90620_ 'exception)))) - (macro-nonprocedure-operator-exception? _e90622_)) - (macro-nonprocedure-operator-exception? _exn90620_)))) + (unchecked-slot-ref _exn91781_ 'exception)))) + (macro-nonprocedure-operator-exception? _e91783_)) + (macro-nonprocedure-operator-exception? _exn91781_)))) (define nonprocedure-operator-exception-arguments - (lambda (_exn90616_) + (lambda (_exn91777_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90616_)) - (let ((_e90618_ + (class-instance? RuntimeException::t _exn91777_)) + (let ((_e91779_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90616_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e90618_) - (macro-nonprocedure-operator-exception-arguments _e90618_) + (unchecked-slot-ref _exn91777_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e91779_) + (macro-nonprocedure-operator-exception-arguments _e91779_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96129 + (let ((__tmp97290 (let () (declare (not safe)) - (cons _e90618_ '())))) + (cons _e91779_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp96129))))) - (if (macro-nonprocedure-operator-exception? _exn90616_) - (macro-nonprocedure-operator-exception-arguments _exn90616_) + __tmp97290))))) + (if (macro-nonprocedure-operator-exception? _exn91777_) + (macro-nonprocedure-operator-exception-arguments _exn91777_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96128 + (let ((__tmp97289 (let () (declare (not safe)) - (cons _exn90616_ '())))) + (cons _exn91777_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-arguments - __tmp96128))))))) + __tmp97289))))))) (define nonprocedure-operator-exception-code - (lambda (_exn90612_) + (lambda (_exn91773_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90612_)) - (let ((_e90614_ + (class-instance? RuntimeException::t _exn91773_)) + (let ((_e91775_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90612_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e90614_) - (macro-nonprocedure-operator-exception-code _e90614_) + (unchecked-slot-ref _exn91773_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e91775_) + (macro-nonprocedure-operator-exception-code _e91775_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96131 + (let ((__tmp97292 (let () (declare (not safe)) - (cons _e90614_ '())))) + (cons _e91775_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp96131))))) - (if (macro-nonprocedure-operator-exception? _exn90612_) - (macro-nonprocedure-operator-exception-code _exn90612_) + __tmp97292))))) + (if (macro-nonprocedure-operator-exception? _exn91773_) + (macro-nonprocedure-operator-exception-code _exn91773_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96130 + (let ((__tmp97291 (let () (declare (not safe)) - (cons _exn90612_ '())))) + (cons _exn91773_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-code - __tmp96130))))))) + __tmp97291))))))) (define nonprocedure-operator-exception-operator - (lambda (_exn90608_) + (lambda (_exn91769_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90608_)) - (let ((_e90610_ + (class-instance? RuntimeException::t _exn91769_)) + (let ((_e91771_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90608_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e90610_) - (macro-nonprocedure-operator-exception-operator _e90610_) + (unchecked-slot-ref _exn91769_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e91771_) + (macro-nonprocedure-operator-exception-operator _e91771_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96133 + (let ((__tmp97294 (let () (declare (not safe)) - (cons _e90610_ '())))) + (cons _e91771_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp96133))))) - (if (macro-nonprocedure-operator-exception? _exn90608_) - (macro-nonprocedure-operator-exception-operator _exn90608_) + __tmp97294))))) + (if (macro-nonprocedure-operator-exception? _exn91769_) + (macro-nonprocedure-operator-exception-operator _exn91769_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96132 + (let ((__tmp97293 (let () (declare (not safe)) - (cons _exn90608_ '())))) + (cons _exn91769_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-operator - __tmp96132))))))) + __tmp97293))))))) (define nonprocedure-operator-exception-rte - (lambda (_exn90602_) + (lambda (_exn91763_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90602_)) - (let ((_e90605_ + (class-instance? RuntimeException::t _exn91763_)) + (let ((_e91766_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90602_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _e90605_) - (macro-nonprocedure-operator-exception-rte _e90605_) + (unchecked-slot-ref _exn91763_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _e91766_) + (macro-nonprocedure-operator-exception-rte _e91766_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96135 + (let ((__tmp97296 (let () (declare (not safe)) - (cons _e90605_ '())))) + (cons _e91766_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp96135))))) - (if (macro-nonprocedure-operator-exception? _exn90602_) - (macro-nonprocedure-operator-exception-rte _exn90602_) + __tmp97296))))) + (if (macro-nonprocedure-operator-exception? _exn91763_) + (macro-nonprocedure-operator-exception-rte _exn91763_) (error '"not an instance" 'nonprocedure-operator-exception? - (let ((__tmp96134 + (let ((__tmp97295 (let () (declare (not safe)) - (cons _exn90602_ '())))) + (cons _exn91763_ '())))) (declare (not safe)) (cons 'nonprocedure-operator-exception-rte - __tmp96134))))))) + __tmp97295))))))) (define not-in-compilation-context-exception? - (lambda (_exn90598_) + (lambda (_exn91759_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90598_)) - (let ((_e90600_ + (class-instance? RuntimeException::t _exn91759_)) + (let ((_e91761_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90598_ 'exception)))) - (macro-not-in-compilation-context-exception? _e90600_)) - (macro-not-in-compilation-context-exception? _exn90598_)))) + (unchecked-slot-ref _exn91759_ 'exception)))) + (macro-not-in-compilation-context-exception? _e91761_)) + (macro-not-in-compilation-context-exception? _exn91759_)))) (define not-in-compilation-context-exception-arguments - (lambda (_exn90594_) + (lambda (_exn91755_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90594_)) - (let ((_e90596_ + (class-instance? RuntimeException::t _exn91755_)) + (let ((_e91757_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90594_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e90596_) + (unchecked-slot-ref _exn91755_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e91757_) (macro-not-in-compilation-context-exception-arguments - _e90596_) + _e91757_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp96137 + (let ((__tmp97298 (let () (declare (not safe)) - (cons _e90596_ '())))) + (cons _e91757_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp96137))))) - (if (macro-not-in-compilation-context-exception? _exn90594_) + __tmp97298))))) + (if (macro-not-in-compilation-context-exception? _exn91755_) (macro-not-in-compilation-context-exception-arguments - _exn90594_) + _exn91755_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp96136 + (let ((__tmp97297 (let () (declare (not safe)) - (cons _exn90594_ '())))) + (cons _exn91755_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-arguments - __tmp96136))))))) + __tmp97297))))))) (define not-in-compilation-context-exception-procedure - (lambda (_exn90588_) + (lambda (_exn91749_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90588_)) - (let ((_e90591_ + (class-instance? RuntimeException::t _exn91749_)) + (let ((_e91752_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90588_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _e90591_) + (unchecked-slot-ref _exn91749_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _e91752_) (macro-not-in-compilation-context-exception-procedure - _e90591_) + _e91752_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp96139 + (let ((__tmp97300 (let () (declare (not safe)) - (cons _e90591_ '())))) + (cons _e91752_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp96139))))) - (if (macro-not-in-compilation-context-exception? _exn90588_) + __tmp97300))))) + (if (macro-not-in-compilation-context-exception? _exn91749_) (macro-not-in-compilation-context-exception-procedure - _exn90588_) + _exn91749_) (error '"not an instance" 'not-in-compilation-context-exception? - (let ((__tmp96138 + (let ((__tmp97299 (let () (declare (not safe)) - (cons _exn90588_ '())))) + (cons _exn91749_ '())))) (declare (not safe)) (cons 'not-in-compilation-context-exception-procedure - __tmp96138))))))) + __tmp97299))))))) (define number-of-arguments-limit-exception? - (lambda (_exn90584_) + (lambda (_exn91745_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90584_)) - (let ((_e90586_ + (class-instance? RuntimeException::t _exn91745_)) + (let ((_e91747_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90584_ 'exception)))) - (macro-number-of-arguments-limit-exception? _e90586_)) - (macro-number-of-arguments-limit-exception? _exn90584_)))) + (unchecked-slot-ref _exn91745_ 'exception)))) + (macro-number-of-arguments-limit-exception? _e91747_)) + (macro-number-of-arguments-limit-exception? _exn91745_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_exn90580_) + (lambda (_exn91741_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90580_)) - (let ((_e90582_ + (class-instance? RuntimeException::t _exn91741_)) + (let ((_e91743_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90580_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e90582_) + (unchecked-slot-ref _exn91741_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e91743_) (macro-number-of-arguments-limit-exception-arguments - _e90582_) + _e91743_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp96141 + (let ((__tmp97302 (let () (declare (not safe)) - (cons _e90582_ '())))) + (cons _e91743_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp96141))))) - (if (macro-number-of-arguments-limit-exception? _exn90580_) + __tmp97302))))) + (if (macro-number-of-arguments-limit-exception? _exn91741_) (macro-number-of-arguments-limit-exception-arguments - _exn90580_) + _exn91741_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp96140 + (let ((__tmp97301 (let () (declare (not safe)) - (cons _exn90580_ '())))) + (cons _exn91741_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-arguments - __tmp96140))))))) + __tmp97301))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_exn90574_) + (lambda (_exn91735_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90574_)) - (let ((_e90577_ + (class-instance? RuntimeException::t _exn91735_)) + (let ((_e91738_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90574_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _e90577_) + (unchecked-slot-ref _exn91735_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _e91738_) (macro-number-of-arguments-limit-exception-procedure - _e90577_) + _e91738_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp96143 + (let ((__tmp97304 (let () (declare (not safe)) - (cons _e90577_ '())))) + (cons _e91738_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp96143))))) - (if (macro-number-of-arguments-limit-exception? _exn90574_) + __tmp97304))))) + (if (macro-number-of-arguments-limit-exception? _exn91735_) (macro-number-of-arguments-limit-exception-procedure - _exn90574_) + _exn91735_) (error '"not an instance" 'number-of-arguments-limit-exception? - (let ((__tmp96142 + (let ((__tmp97303 (let () (declare (not safe)) - (cons _exn90574_ '())))) + (cons _exn91735_ '())))) (declare (not safe)) (cons 'number-of-arguments-limit-exception-procedure - __tmp96142))))))) + __tmp97303))))))) (define os-exception? - (lambda (_exn90570_) + (lambda (_exn91731_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90570_)) - (let ((_e90572_ + (class-instance? RuntimeException::t _exn91731_)) + (let ((_e91733_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90570_ 'exception)))) - (macro-os-exception? _e90572_)) - (macro-os-exception? _exn90570_)))) + (unchecked-slot-ref _exn91731_ 'exception)))) + (macro-os-exception? _e91733_)) + (macro-os-exception? _exn91731_)))) (define os-exception-arguments - (lambda (_exn90566_) + (lambda (_exn91727_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90566_)) - (let ((_e90568_ + (class-instance? RuntimeException::t _exn91727_)) + (let ((_e91729_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90566_ 'exception)))) - (if (macro-os-exception? _e90568_) - (macro-os-exception-arguments _e90568_) + (unchecked-slot-ref _exn91727_ 'exception)))) + (if (macro-os-exception? _e91729_) + (macro-os-exception-arguments _e91729_) (error '"not an instance" 'os-exception? - (let ((__tmp96145 + (let ((__tmp97306 (let () (declare (not safe)) - (cons _e90568_ '())))) + (cons _e91729_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp96145))))) - (if (macro-os-exception? _exn90566_) - (macro-os-exception-arguments _exn90566_) + (cons 'os-exception-arguments __tmp97306))))) + (if (macro-os-exception? _exn91727_) + (macro-os-exception-arguments _exn91727_) (error '"not an instance" 'os-exception? - (let ((__tmp96144 + (let ((__tmp97305 (let () (declare (not safe)) - (cons _exn90566_ '())))) + (cons _exn91727_ '())))) (declare (not safe)) - (cons 'os-exception-arguments __tmp96144))))))) + (cons 'os-exception-arguments __tmp97305))))))) (define os-exception-code - (lambda (_exn90562_) + (lambda (_exn91723_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90562_)) - (let ((_e90564_ + (class-instance? RuntimeException::t _exn91723_)) + (let ((_e91725_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90562_ 'exception)))) - (if (macro-os-exception? _e90564_) - (macro-os-exception-code _e90564_) + (unchecked-slot-ref _exn91723_ 'exception)))) + (if (macro-os-exception? _e91725_) + (macro-os-exception-code _e91725_) (error '"not an instance" 'os-exception? - (let ((__tmp96147 + (let ((__tmp97308 (let () (declare (not safe)) - (cons _e90564_ '())))) + (cons _e91725_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp96147))))) - (if (macro-os-exception? _exn90562_) - (macro-os-exception-code _exn90562_) + (cons 'os-exception-code __tmp97308))))) + (if (macro-os-exception? _exn91723_) + (macro-os-exception-code _exn91723_) (error '"not an instance" 'os-exception? - (let ((__tmp96146 + (let ((__tmp97307 (let () (declare (not safe)) - (cons _exn90562_ '())))) + (cons _exn91723_ '())))) (declare (not safe)) - (cons 'os-exception-code __tmp96146))))))) + (cons 'os-exception-code __tmp97307))))))) (define os-exception-message - (lambda (_exn90558_) + (lambda (_exn91719_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90558_)) - (let ((_e90560_ + (class-instance? RuntimeException::t _exn91719_)) + (let ((_e91721_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90558_ 'exception)))) - (if (macro-os-exception? _e90560_) - (macro-os-exception-message _e90560_) + (unchecked-slot-ref _exn91719_ 'exception)))) + (if (macro-os-exception? _e91721_) + (macro-os-exception-message _e91721_) (error '"not an instance" 'os-exception? - (let ((__tmp96149 + (let ((__tmp97310 (let () (declare (not safe)) - (cons _e90560_ '())))) + (cons _e91721_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp96149))))) - (if (macro-os-exception? _exn90558_) - (macro-os-exception-message _exn90558_) + (cons 'os-exception-message __tmp97310))))) + (if (macro-os-exception? _exn91719_) + (macro-os-exception-message _exn91719_) (error '"not an instance" 'os-exception? - (let ((__tmp96148 + (let ((__tmp97309 (let () (declare (not safe)) - (cons _exn90558_ '())))) + (cons _exn91719_ '())))) (declare (not safe)) - (cons 'os-exception-message __tmp96148))))))) + (cons 'os-exception-message __tmp97309))))))) (define os-exception-procedure - (lambda (_exn90552_) + (lambda (_exn91713_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90552_)) - (let ((_e90555_ + (class-instance? RuntimeException::t _exn91713_)) + (let ((_e91716_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90552_ 'exception)))) - (if (macro-os-exception? _e90555_) - (macro-os-exception-procedure _e90555_) + (unchecked-slot-ref _exn91713_ 'exception)))) + (if (macro-os-exception? _e91716_) + (macro-os-exception-procedure _e91716_) (error '"not an instance" 'os-exception? - (let ((__tmp96151 + (let ((__tmp97312 (let () (declare (not safe)) - (cons _e90555_ '())))) + (cons _e91716_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp96151))))) - (if (macro-os-exception? _exn90552_) - (macro-os-exception-procedure _exn90552_) + (cons 'os-exception-procedure __tmp97312))))) + (if (macro-os-exception? _exn91713_) + (macro-os-exception-procedure _exn91713_) (error '"not an instance" 'os-exception? - (let ((__tmp96150 + (let ((__tmp97311 (let () (declare (not safe)) - (cons _exn90552_ '())))) + (cons _exn91713_ '())))) (declare (not safe)) - (cons 'os-exception-procedure __tmp96150))))))) + (cons 'os-exception-procedure __tmp97311))))))) (define permission-denied-exception? - (lambda (_exn90548_) + (lambda (_exn91709_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90548_)) - (let ((_e90550_ + (class-instance? RuntimeException::t _exn91709_)) + (let ((_e91711_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90548_ 'exception)))) - (macro-permission-denied-exception? _e90550_)) - (macro-permission-denied-exception? _exn90548_)))) + (unchecked-slot-ref _exn91709_ 'exception)))) + (macro-permission-denied-exception? _e91711_)) + (macro-permission-denied-exception? _exn91709_)))) (define permission-denied-exception-arguments - (lambda (_exn90544_) + (lambda (_exn91705_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90544_)) - (let ((_e90546_ + (class-instance? RuntimeException::t _exn91705_)) + (let ((_e91707_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90544_ 'exception)))) - (if (macro-permission-denied-exception? _e90546_) - (macro-permission-denied-exception-arguments _e90546_) + (unchecked-slot-ref _exn91705_ 'exception)))) + (if (macro-permission-denied-exception? _e91707_) + (macro-permission-denied-exception-arguments _e91707_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp96153 + (let ((__tmp97314 (let () (declare (not safe)) - (cons _e90546_ '())))) + (cons _e91707_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp96153))))) - (if (macro-permission-denied-exception? _exn90544_) - (macro-permission-denied-exception-arguments _exn90544_) + __tmp97314))))) + (if (macro-permission-denied-exception? _exn91705_) + (macro-permission-denied-exception-arguments _exn91705_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp96152 + (let ((__tmp97313 (let () (declare (not safe)) - (cons _exn90544_ '())))) + (cons _exn91705_ '())))) (declare (not safe)) (cons 'permission-denied-exception-arguments - __tmp96152))))))) + __tmp97313))))))) (define permission-denied-exception-procedure - (lambda (_exn90538_) + (lambda (_exn91699_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90538_)) - (let ((_e90541_ + (class-instance? RuntimeException::t _exn91699_)) + (let ((_e91702_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90538_ 'exception)))) - (if (macro-permission-denied-exception? _e90541_) - (macro-permission-denied-exception-procedure _e90541_) + (unchecked-slot-ref _exn91699_ 'exception)))) + (if (macro-permission-denied-exception? _e91702_) + (macro-permission-denied-exception-procedure _e91702_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp96155 + (let ((__tmp97316 (let () (declare (not safe)) - (cons _e90541_ '())))) + (cons _e91702_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp96155))))) - (if (macro-permission-denied-exception? _exn90538_) - (macro-permission-denied-exception-procedure _exn90538_) + __tmp97316))))) + (if (macro-permission-denied-exception? _exn91699_) + (macro-permission-denied-exception-procedure _exn91699_) (error '"not an instance" 'permission-denied-exception? - (let ((__tmp96154 + (let ((__tmp97315 (let () (declare (not safe)) - (cons _exn90538_ '())))) + (cons _exn91699_ '())))) (declare (not safe)) (cons 'permission-denied-exception-procedure - __tmp96154))))))) + __tmp97315))))))) (define range-exception? - (lambda (_exn90534_) + (lambda (_exn91695_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90534_)) - (let ((_e90536_ + (class-instance? RuntimeException::t _exn91695_)) + (let ((_e91697_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90534_ 'exception)))) - (macro-range-exception? _e90536_)) - (macro-range-exception? _exn90534_)))) + (unchecked-slot-ref _exn91695_ 'exception)))) + (macro-range-exception? _e91697_)) + (macro-range-exception? _exn91695_)))) (define range-exception-arg-id - (lambda (_exn90530_) + (lambda (_exn91691_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90530_)) - (let ((_e90532_ + (class-instance? RuntimeException::t _exn91691_)) + (let ((_e91693_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90530_ 'exception)))) - (if (macro-range-exception? _e90532_) - (macro-range-exception-arg-id _e90532_) + (unchecked-slot-ref _exn91691_ 'exception)))) + (if (macro-range-exception? _e91693_) + (macro-range-exception-arg-id _e91693_) (error '"not an instance" 'range-exception? - (let ((__tmp96157 + (let ((__tmp97318 (let () (declare (not safe)) - (cons _e90532_ '())))) + (cons _e91693_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp96157))))) - (if (macro-range-exception? _exn90530_) - (macro-range-exception-arg-id _exn90530_) + (cons 'range-exception-arg-id __tmp97318))))) + (if (macro-range-exception? _exn91691_) + (macro-range-exception-arg-id _exn91691_) (error '"not an instance" 'range-exception? - (let ((__tmp96156 + (let ((__tmp97317 (let () (declare (not safe)) - (cons _exn90530_ '())))) + (cons _exn91691_ '())))) (declare (not safe)) - (cons 'range-exception-arg-id __tmp96156))))))) + (cons 'range-exception-arg-id __tmp97317))))))) (define range-exception-arguments - (lambda (_exn90526_) + (lambda (_exn91687_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90526_)) - (let ((_e90528_ + (class-instance? RuntimeException::t _exn91687_)) + (let ((_e91689_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90526_ 'exception)))) - (if (macro-range-exception? _e90528_) - (macro-range-exception-arguments _e90528_) + (unchecked-slot-ref _exn91687_ 'exception)))) + (if (macro-range-exception? _e91689_) + (macro-range-exception-arguments _e91689_) (error '"not an instance" 'range-exception? - (let ((__tmp96159 + (let ((__tmp97320 (let () (declare (not safe)) - (cons _e90528_ '())))) + (cons _e91689_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp96159))))) - (if (macro-range-exception? _exn90526_) - (macro-range-exception-arguments _exn90526_) + (cons 'range-exception-arguments __tmp97320))))) + (if (macro-range-exception? _exn91687_) + (macro-range-exception-arguments _exn91687_) (error '"not an instance" 'range-exception? - (let ((__tmp96158 + (let ((__tmp97319 (let () (declare (not safe)) - (cons _exn90526_ '())))) + (cons _exn91687_ '())))) (declare (not safe)) - (cons 'range-exception-arguments __tmp96158))))))) + (cons 'range-exception-arguments __tmp97319))))))) (define range-exception-procedure - (lambda (_exn90520_) + (lambda (_exn91681_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90520_)) - (let ((_e90523_ + (class-instance? RuntimeException::t _exn91681_)) + (let ((_e91684_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90520_ 'exception)))) - (if (macro-range-exception? _e90523_) - (macro-range-exception-procedure _e90523_) + (unchecked-slot-ref _exn91681_ 'exception)))) + (if (macro-range-exception? _e91684_) + (macro-range-exception-procedure _e91684_) (error '"not an instance" 'range-exception? - (let ((__tmp96161 + (let ((__tmp97322 (let () (declare (not safe)) - (cons _e90523_ '())))) + (cons _e91684_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp96161))))) - (if (macro-range-exception? _exn90520_) - (macro-range-exception-procedure _exn90520_) + (cons 'range-exception-procedure __tmp97322))))) + (if (macro-range-exception? _exn91681_) + (macro-range-exception-procedure _exn91681_) (error '"not an instance" 'range-exception? - (let ((__tmp96160 + (let ((__tmp97321 (let () (declare (not safe)) - (cons _exn90520_ '())))) + (cons _exn91681_ '())))) (declare (not safe)) - (cons 'range-exception-procedure __tmp96160))))))) + (cons 'range-exception-procedure __tmp97321))))))) (define rpc-remote-error-exception? - (lambda (_exn90516_) + (lambda (_exn91677_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90516_)) - (let ((_e90518_ + (class-instance? RuntimeException::t _exn91677_)) + (let ((_e91679_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90516_ 'exception)))) - (macro-rpc-remote-error-exception? _e90518_)) - (macro-rpc-remote-error-exception? _exn90516_)))) + (unchecked-slot-ref _exn91677_ 'exception)))) + (macro-rpc-remote-error-exception? _e91679_)) + (macro-rpc-remote-error-exception? _exn91677_)))) (define rpc-remote-error-exception-arguments - (lambda (_exn90512_) + (lambda (_exn91673_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90512_)) - (let ((_e90514_ + (class-instance? RuntimeException::t _exn91673_)) + (let ((_e91675_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90512_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e90514_) - (macro-rpc-remote-error-exception-arguments _e90514_) + (unchecked-slot-ref _exn91673_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e91675_) + (macro-rpc-remote-error-exception-arguments _e91675_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp96163 + (let ((__tmp97324 (let () (declare (not safe)) - (cons _e90514_ '())))) + (cons _e91675_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp96163))))) - (if (macro-rpc-remote-error-exception? _exn90512_) - (macro-rpc-remote-error-exception-arguments _exn90512_) + __tmp97324))))) + (if (macro-rpc-remote-error-exception? _exn91673_) + (macro-rpc-remote-error-exception-arguments _exn91673_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp96162 + (let ((__tmp97323 (let () (declare (not safe)) - (cons _exn90512_ '())))) + (cons _exn91673_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-arguments - __tmp96162))))))) + __tmp97323))))))) (define rpc-remote-error-exception-message - (lambda (_exn90508_) + (lambda (_exn91669_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90508_)) - (let ((_e90510_ + (class-instance? RuntimeException::t _exn91669_)) + (let ((_e91671_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90508_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e90510_) - (macro-rpc-remote-error-exception-message _e90510_) + (unchecked-slot-ref _exn91669_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e91671_) + (macro-rpc-remote-error-exception-message _e91671_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp96165 + (let ((__tmp97326 (let () (declare (not safe)) - (cons _e90510_ '())))) + (cons _e91671_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp96165))))) - (if (macro-rpc-remote-error-exception? _exn90508_) - (macro-rpc-remote-error-exception-message _exn90508_) + __tmp97326))))) + (if (macro-rpc-remote-error-exception? _exn91669_) + (macro-rpc-remote-error-exception-message _exn91669_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp96164 + (let ((__tmp97325 (let () (declare (not safe)) - (cons _exn90508_ '())))) + (cons _exn91669_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-message - __tmp96164))))))) + __tmp97325))))))) (define rpc-remote-error-exception-procedure - (lambda (_exn90502_) + (lambda (_exn91663_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90502_)) - (let ((_e90505_ + (class-instance? RuntimeException::t _exn91663_)) + (let ((_e91666_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90502_ 'exception)))) - (if (macro-rpc-remote-error-exception? _e90505_) - (macro-rpc-remote-error-exception-procedure _e90505_) + (unchecked-slot-ref _exn91663_ 'exception)))) + (if (macro-rpc-remote-error-exception? _e91666_) + (macro-rpc-remote-error-exception-procedure _e91666_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp96167 + (let ((__tmp97328 (let () (declare (not safe)) - (cons _e90505_ '())))) + (cons _e91666_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp96167))))) - (if (macro-rpc-remote-error-exception? _exn90502_) - (macro-rpc-remote-error-exception-procedure _exn90502_) + __tmp97328))))) + (if (macro-rpc-remote-error-exception? _exn91663_) + (macro-rpc-remote-error-exception-procedure _exn91663_) (error '"not an instance" 'rpc-remote-error-exception? - (let ((__tmp96166 + (let ((__tmp97327 (let () (declare (not safe)) - (cons _exn90502_ '())))) + (cons _exn91663_ '())))) (declare (not safe)) (cons 'rpc-remote-error-exception-procedure - __tmp96166))))))) + __tmp97327))))))) (define scheduler-exception? - (lambda (_exn90498_) + (lambda (_exn91659_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90498_)) - (let ((_e90500_ + (class-instance? RuntimeException::t _exn91659_)) + (let ((_e91661_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90498_ 'exception)))) - (macro-scheduler-exception? _e90500_)) - (macro-scheduler-exception? _exn90498_)))) + (unchecked-slot-ref _exn91659_ 'exception)))) + (macro-scheduler-exception? _e91661_)) + (macro-scheduler-exception? _exn91659_)))) (define scheduler-exception-reason - (lambda (_exn90492_) + (lambda (_exn91653_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90492_)) - (let ((_e90495_ + (class-instance? RuntimeException::t _exn91653_)) + (let ((_e91656_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90492_ 'exception)))) - (if (macro-scheduler-exception? _e90495_) - (macro-scheduler-exception-reason _e90495_) + (unchecked-slot-ref _exn91653_ 'exception)))) + (if (macro-scheduler-exception? _e91656_) + (macro-scheduler-exception-reason _e91656_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp96169 + (let ((__tmp97330 (let () (declare (not safe)) - (cons _e90495_ '())))) + (cons _e91656_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp96169))))) - (if (macro-scheduler-exception? _exn90492_) - (macro-scheduler-exception-reason _exn90492_) + (cons 'scheduler-exception-reason __tmp97330))))) + (if (macro-scheduler-exception? _exn91653_) + (macro-scheduler-exception-reason _exn91653_) (error '"not an instance" 'scheduler-exception? - (let ((__tmp96168 + (let ((__tmp97329 (let () (declare (not safe)) - (cons _exn90492_ '())))) + (cons _exn91653_ '())))) (declare (not safe)) - (cons 'scheduler-exception-reason __tmp96168))))))) + (cons 'scheduler-exception-reason __tmp97329))))))) (define sfun-conversion-exception? - (lambda (_exn90488_) + (lambda (_exn91649_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90488_)) - (let ((_e90490_ + (class-instance? RuntimeException::t _exn91649_)) + (let ((_e91651_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90488_ 'exception)))) - (macro-sfun-conversion-exception? _e90490_)) - (macro-sfun-conversion-exception? _exn90488_)))) + (unchecked-slot-ref _exn91649_ 'exception)))) + (macro-sfun-conversion-exception? _e91651_)) + (macro-sfun-conversion-exception? _exn91649_)))) (define sfun-conversion-exception-arguments - (lambda (_exn90484_) + (lambda (_exn91645_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90484_)) - (let ((_e90486_ + (class-instance? RuntimeException::t _exn91645_)) + (let ((_e91647_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90484_ 'exception)))) - (if (macro-sfun-conversion-exception? _e90486_) - (macro-sfun-conversion-exception-arguments _e90486_) + (unchecked-slot-ref _exn91645_ 'exception)))) + (if (macro-sfun-conversion-exception? _e91647_) + (macro-sfun-conversion-exception-arguments _e91647_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96171 + (let ((__tmp97332 (let () (declare (not safe)) - (cons _e90486_ '())))) + (cons _e91647_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp96171))))) - (if (macro-sfun-conversion-exception? _exn90484_) - (macro-sfun-conversion-exception-arguments _exn90484_) + __tmp97332))))) + (if (macro-sfun-conversion-exception? _exn91645_) + (macro-sfun-conversion-exception-arguments _exn91645_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96170 + (let ((__tmp97331 (let () (declare (not safe)) - (cons _exn90484_ '())))) + (cons _exn91645_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-arguments - __tmp96170))))))) + __tmp97331))))))) (define sfun-conversion-exception-code - (lambda (_exn90480_) + (lambda (_exn91641_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90480_)) - (let ((_e90482_ + (class-instance? RuntimeException::t _exn91641_)) + (let ((_e91643_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90480_ 'exception)))) - (if (macro-sfun-conversion-exception? _e90482_) - (macro-sfun-conversion-exception-code _e90482_) + (unchecked-slot-ref _exn91641_ 'exception)))) + (if (macro-sfun-conversion-exception? _e91643_) + (macro-sfun-conversion-exception-code _e91643_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96173 + (let ((__tmp97334 (let () (declare (not safe)) - (cons _e90482_ '())))) + (cons _e91643_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp96173))))) - (if (macro-sfun-conversion-exception? _exn90480_) - (macro-sfun-conversion-exception-code _exn90480_) + __tmp97334))))) + (if (macro-sfun-conversion-exception? _exn91641_) + (macro-sfun-conversion-exception-code _exn91641_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96172 + (let ((__tmp97333 (let () (declare (not safe)) - (cons _exn90480_ '())))) + (cons _exn91641_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-code - __tmp96172))))))) + __tmp97333))))))) (define sfun-conversion-exception-message - (lambda (_exn90476_) + (lambda (_exn91637_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90476_)) - (let ((_e90478_ + (class-instance? RuntimeException::t _exn91637_)) + (let ((_e91639_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90476_ 'exception)))) - (if (macro-sfun-conversion-exception? _e90478_) - (macro-sfun-conversion-exception-message _e90478_) + (unchecked-slot-ref _exn91637_ 'exception)))) + (if (macro-sfun-conversion-exception? _e91639_) + (macro-sfun-conversion-exception-message _e91639_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96175 + (let ((__tmp97336 (let () (declare (not safe)) - (cons _e90478_ '())))) + (cons _e91639_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp96175))))) - (if (macro-sfun-conversion-exception? _exn90476_) - (macro-sfun-conversion-exception-message _exn90476_) + __tmp97336))))) + (if (macro-sfun-conversion-exception? _exn91637_) + (macro-sfun-conversion-exception-message _exn91637_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96174 + (let ((__tmp97335 (let () (declare (not safe)) - (cons _exn90476_ '())))) + (cons _exn91637_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-message - __tmp96174))))))) + __tmp97335))))))) (define sfun-conversion-exception-procedure - (lambda (_exn90470_) + (lambda (_exn91631_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90470_)) - (let ((_e90473_ + (class-instance? RuntimeException::t _exn91631_)) + (let ((_e91634_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90470_ 'exception)))) - (if (macro-sfun-conversion-exception? _e90473_) - (macro-sfun-conversion-exception-procedure _e90473_) + (unchecked-slot-ref _exn91631_ 'exception)))) + (if (macro-sfun-conversion-exception? _e91634_) + (macro-sfun-conversion-exception-procedure _e91634_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96177 + (let ((__tmp97338 (let () (declare (not safe)) - (cons _e90473_ '())))) + (cons _e91634_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp96177))))) - (if (macro-sfun-conversion-exception? _exn90470_) - (macro-sfun-conversion-exception-procedure _exn90470_) + __tmp97338))))) + (if (macro-sfun-conversion-exception? _exn91631_) + (macro-sfun-conversion-exception-procedure _exn91631_) (error '"not an instance" 'sfun-conversion-exception? - (let ((__tmp96176 + (let ((__tmp97337 (let () (declare (not safe)) - (cons _exn90470_ '())))) + (cons _exn91631_ '())))) (declare (not safe)) (cons 'sfun-conversion-exception-procedure - __tmp96176))))))) + __tmp97337))))))) (define stack-overflow-exception? - (lambda (_exn90464_) + (lambda (_exn91625_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90464_)) - (let ((_e90467_ + (class-instance? RuntimeException::t _exn91625_)) + (let ((_e91628_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90464_ 'exception)))) - (macro-stack-overflow-exception? _e90467_)) - (macro-stack-overflow-exception? _exn90464_)))) + (unchecked-slot-ref _exn91625_ 'exception)))) + (macro-stack-overflow-exception? _e91628_)) + (macro-stack-overflow-exception? _exn91625_)))) (define started-thread-exception? - (lambda (_exn90460_) + (lambda (_exn91621_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90460_)) - (let ((_e90462_ + (class-instance? RuntimeException::t _exn91621_)) + (let ((_e91623_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90460_ 'exception)))) - (macro-started-thread-exception? _e90462_)) - (macro-started-thread-exception? _exn90460_)))) + (unchecked-slot-ref _exn91621_ 'exception)))) + (macro-started-thread-exception? _e91623_)) + (macro-started-thread-exception? _exn91621_)))) (define started-thread-exception-arguments - (lambda (_exn90456_) + (lambda (_exn91617_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90456_)) - (let ((_e90458_ + (class-instance? RuntimeException::t _exn91617_)) + (let ((_e91619_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90456_ 'exception)))) - (if (macro-started-thread-exception? _e90458_) - (macro-started-thread-exception-arguments _e90458_) + (unchecked-slot-ref _exn91617_ 'exception)))) + (if (macro-started-thread-exception? _e91619_) + (macro-started-thread-exception-arguments _e91619_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp96179 + (let ((__tmp97340 (let () (declare (not safe)) - (cons _e90458_ '())))) + (cons _e91619_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp96179))))) - (if (macro-started-thread-exception? _exn90456_) - (macro-started-thread-exception-arguments _exn90456_) + __tmp97340))))) + (if (macro-started-thread-exception? _exn91617_) + (macro-started-thread-exception-arguments _exn91617_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp96178 + (let ((__tmp97339 (let () (declare (not safe)) - (cons _exn90456_ '())))) + (cons _exn91617_ '())))) (declare (not safe)) (cons 'started-thread-exception-arguments - __tmp96178))))))) + __tmp97339))))))) (define started-thread-exception-procedure - (lambda (_exn90450_) + (lambda (_exn91611_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90450_)) - (let ((_e90453_ + (class-instance? RuntimeException::t _exn91611_)) + (let ((_e91614_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90450_ 'exception)))) - (if (macro-started-thread-exception? _e90453_) - (macro-started-thread-exception-procedure _e90453_) + (unchecked-slot-ref _exn91611_ 'exception)))) + (if (macro-started-thread-exception? _e91614_) + (macro-started-thread-exception-procedure _e91614_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp96181 + (let ((__tmp97342 (let () (declare (not safe)) - (cons _e90453_ '())))) + (cons _e91614_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp96181))))) - (if (macro-started-thread-exception? _exn90450_) - (macro-started-thread-exception-procedure _exn90450_) + __tmp97342))))) + (if (macro-started-thread-exception? _exn91611_) + (macro-started-thread-exception-procedure _exn91611_) (error '"not an instance" 'started-thread-exception? - (let ((__tmp96180 + (let ((__tmp97341 (let () (declare (not safe)) - (cons _exn90450_ '())))) + (cons _exn91611_ '())))) (declare (not safe)) (cons 'started-thread-exception-procedure - __tmp96180))))))) + __tmp97341))))))) (define terminated-thread-exception? - (lambda (_exn90446_) + (lambda (_exn91607_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90446_)) - (let ((_e90448_ + (class-instance? RuntimeException::t _exn91607_)) + (let ((_e91609_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90446_ 'exception)))) - (macro-terminated-thread-exception? _e90448_)) - (macro-terminated-thread-exception? _exn90446_)))) + (unchecked-slot-ref _exn91607_ 'exception)))) + (macro-terminated-thread-exception? _e91609_)) + (macro-terminated-thread-exception? _exn91607_)))) (define terminated-thread-exception-arguments - (lambda (_exn90442_) + (lambda (_exn91603_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90442_)) - (let ((_e90444_ + (class-instance? RuntimeException::t _exn91603_)) + (let ((_e91605_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90442_ 'exception)))) - (if (macro-terminated-thread-exception? _e90444_) - (macro-terminated-thread-exception-arguments _e90444_) + (unchecked-slot-ref _exn91603_ 'exception)))) + (if (macro-terminated-thread-exception? _e91605_) + (macro-terminated-thread-exception-arguments _e91605_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp96183 + (let ((__tmp97344 (let () (declare (not safe)) - (cons _e90444_ '())))) + (cons _e91605_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp96183))))) - (if (macro-terminated-thread-exception? _exn90442_) - (macro-terminated-thread-exception-arguments _exn90442_) + __tmp97344))))) + (if (macro-terminated-thread-exception? _exn91603_) + (macro-terminated-thread-exception-arguments _exn91603_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp96182 + (let ((__tmp97343 (let () (declare (not safe)) - (cons _exn90442_ '())))) + (cons _exn91603_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-arguments - __tmp96182))))))) + __tmp97343))))))) (define terminated-thread-exception-procedure - (lambda (_exn90436_) + (lambda (_exn91597_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90436_)) - (let ((_e90439_ + (class-instance? RuntimeException::t _exn91597_)) + (let ((_e91600_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90436_ 'exception)))) - (if (macro-terminated-thread-exception? _e90439_) - (macro-terminated-thread-exception-procedure _e90439_) + (unchecked-slot-ref _exn91597_ 'exception)))) + (if (macro-terminated-thread-exception? _e91600_) + (macro-terminated-thread-exception-procedure _e91600_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp96185 + (let ((__tmp97346 (let () (declare (not safe)) - (cons _e90439_ '())))) + (cons _e91600_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp96185))))) - (if (macro-terminated-thread-exception? _exn90436_) - (macro-terminated-thread-exception-procedure _exn90436_) + __tmp97346))))) + (if (macro-terminated-thread-exception? _exn91597_) + (macro-terminated-thread-exception-procedure _exn91597_) (error '"not an instance" 'terminated-thread-exception? - (let ((__tmp96184 + (let ((__tmp97345 (let () (declare (not safe)) - (cons _exn90436_ '())))) + (cons _exn91597_ '())))) (declare (not safe)) (cons 'terminated-thread-exception-procedure - __tmp96184))))))) + __tmp97345))))))) (define type-exception? - (lambda (_exn90432_) + (lambda (_exn91593_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90432_)) - (let ((_e90434_ + (class-instance? RuntimeException::t _exn91593_)) + (let ((_e91595_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90432_ 'exception)))) - (macro-type-exception? _e90434_)) - (macro-type-exception? _exn90432_)))) + (unchecked-slot-ref _exn91593_ 'exception)))) + (macro-type-exception? _e91595_)) + (macro-type-exception? _exn91593_)))) (define type-exception-arg-id - (lambda (_exn90428_) + (lambda (_exn91589_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90428_)) - (let ((_e90430_ + (class-instance? RuntimeException::t _exn91589_)) + (let ((_e91591_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90428_ 'exception)))) - (if (macro-type-exception? _e90430_) - (macro-type-exception-arg-id _e90430_) + (unchecked-slot-ref _exn91589_ 'exception)))) + (if (macro-type-exception? _e91591_) + (macro-type-exception-arg-id _e91591_) (error '"not an instance" 'type-exception? - (let ((__tmp96187 + (let ((__tmp97348 (let () (declare (not safe)) - (cons _e90430_ '())))) + (cons _e91591_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp96187))))) - (if (macro-type-exception? _exn90428_) - (macro-type-exception-arg-id _exn90428_) + (cons 'type-exception-arg-id __tmp97348))))) + (if (macro-type-exception? _exn91589_) + (macro-type-exception-arg-id _exn91589_) (error '"not an instance" 'type-exception? - (let ((__tmp96186 + (let ((__tmp97347 (let () (declare (not safe)) - (cons _exn90428_ '())))) + (cons _exn91589_ '())))) (declare (not safe)) - (cons 'type-exception-arg-id __tmp96186))))))) + (cons 'type-exception-arg-id __tmp97347))))))) (define type-exception-arguments - (lambda (_exn90424_) + (lambda (_exn91585_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90424_)) - (let ((_e90426_ + (class-instance? RuntimeException::t _exn91585_)) + (let ((_e91587_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90424_ 'exception)))) - (if (macro-type-exception? _e90426_) - (macro-type-exception-arguments _e90426_) + (unchecked-slot-ref _exn91585_ 'exception)))) + (if (macro-type-exception? _e91587_) + (macro-type-exception-arguments _e91587_) (error '"not an instance" 'type-exception? - (let ((__tmp96189 + (let ((__tmp97350 (let () (declare (not safe)) - (cons _e90426_ '())))) + (cons _e91587_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp96189))))) - (if (macro-type-exception? _exn90424_) - (macro-type-exception-arguments _exn90424_) + (cons 'type-exception-arguments __tmp97350))))) + (if (macro-type-exception? _exn91585_) + (macro-type-exception-arguments _exn91585_) (error '"not an instance" 'type-exception? - (let ((__tmp96188 + (let ((__tmp97349 (let () (declare (not safe)) - (cons _exn90424_ '())))) + (cons _exn91585_ '())))) (declare (not safe)) - (cons 'type-exception-arguments __tmp96188))))))) + (cons 'type-exception-arguments __tmp97349))))))) (define type-exception-procedure - (lambda (_exn90420_) + (lambda (_exn91581_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90420_)) - (let ((_e90422_ + (class-instance? RuntimeException::t _exn91581_)) + (let ((_e91583_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90420_ 'exception)))) - (if (macro-type-exception? _e90422_) - (macro-type-exception-procedure _e90422_) + (unchecked-slot-ref _exn91581_ 'exception)))) + (if (macro-type-exception? _e91583_) + (macro-type-exception-procedure _e91583_) (error '"not an instance" 'type-exception? - (let ((__tmp96191 + (let ((__tmp97352 (let () (declare (not safe)) - (cons _e90422_ '())))) + (cons _e91583_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp96191))))) - (if (macro-type-exception? _exn90420_) - (macro-type-exception-procedure _exn90420_) + (cons 'type-exception-procedure __tmp97352))))) + (if (macro-type-exception? _exn91581_) + (macro-type-exception-procedure _exn91581_) (error '"not an instance" 'type-exception? - (let ((__tmp96190 + (let ((__tmp97351 (let () (declare (not safe)) - (cons _exn90420_ '())))) + (cons _exn91581_ '())))) (declare (not safe)) - (cons 'type-exception-procedure __tmp96190))))))) + (cons 'type-exception-procedure __tmp97351))))))) (define type-exception-type-id - (lambda (_exn90414_) + (lambda (_exn91575_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90414_)) - (let ((_e90417_ + (class-instance? RuntimeException::t _exn91575_)) + (let ((_e91578_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90414_ 'exception)))) - (if (macro-type-exception? _e90417_) - (macro-type-exception-type-id _e90417_) + (unchecked-slot-ref _exn91575_ 'exception)))) + (if (macro-type-exception? _e91578_) + (macro-type-exception-type-id _e91578_) (error '"not an instance" 'type-exception? - (let ((__tmp96193 + (let ((__tmp97354 (let () (declare (not safe)) - (cons _e90417_ '())))) + (cons _e91578_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp96193))))) - (if (macro-type-exception? _exn90414_) - (macro-type-exception-type-id _exn90414_) + (cons 'type-exception-type-id __tmp97354))))) + (if (macro-type-exception? _exn91575_) + (macro-type-exception-type-id _exn91575_) (error '"not an instance" 'type-exception? - (let ((__tmp96192 + (let ((__tmp97353 (let () (declare (not safe)) - (cons _exn90414_ '())))) + (cons _exn91575_ '())))) (declare (not safe)) - (cons 'type-exception-type-id __tmp96192))))))) + (cons 'type-exception-type-id __tmp97353))))))) (define unbound-global-exception? - (lambda (_exn90410_) + (lambda (_exn91571_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90410_)) - (let ((_e90412_ + (class-instance? RuntimeException::t _exn91571_)) + (let ((_e91573_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90410_ 'exception)))) - (macro-unbound-global-exception? _e90412_)) - (macro-unbound-global-exception? _exn90410_)))) + (unchecked-slot-ref _exn91571_ 'exception)))) + (macro-unbound-global-exception? _e91573_)) + (macro-unbound-global-exception? _exn91571_)))) (define unbound-global-exception-code - (lambda (_exn90406_) + (lambda (_exn91567_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90406_)) - (let ((_e90408_ + (class-instance? RuntimeException::t _exn91567_)) + (let ((_e91569_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90406_ 'exception)))) - (if (macro-unbound-global-exception? _e90408_) - (macro-unbound-global-exception-code _e90408_) + (unchecked-slot-ref _exn91567_ 'exception)))) + (if (macro-unbound-global-exception? _e91569_) + (macro-unbound-global-exception-code _e91569_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp96195 + (let ((__tmp97356 (let () (declare (not safe)) - (cons _e90408_ '())))) + (cons _e91569_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp96195))))) - (if (macro-unbound-global-exception? _exn90406_) - (macro-unbound-global-exception-code _exn90406_) + (cons 'unbound-global-exception-code __tmp97356))))) + (if (macro-unbound-global-exception? _exn91567_) + (macro-unbound-global-exception-code _exn91567_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp96194 + (let ((__tmp97355 (let () (declare (not safe)) - (cons _exn90406_ '())))) + (cons _exn91567_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-code __tmp96194))))))) + (cons 'unbound-global-exception-code __tmp97355))))))) (define unbound-global-exception-rte - (lambda (_exn90402_) + (lambda (_exn91563_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90402_)) - (let ((_e90404_ + (class-instance? RuntimeException::t _exn91563_)) + (let ((_e91565_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90402_ 'exception)))) - (if (macro-unbound-global-exception? _e90404_) - (macro-unbound-global-exception-rte _e90404_) + (unchecked-slot-ref _exn91563_ 'exception)))) + (if (macro-unbound-global-exception? _e91565_) + (macro-unbound-global-exception-rte _e91565_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp96197 + (let ((__tmp97358 (let () (declare (not safe)) - (cons _e90404_ '())))) + (cons _e91565_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp96197))))) - (if (macro-unbound-global-exception? _exn90402_) - (macro-unbound-global-exception-rte _exn90402_) + (cons 'unbound-global-exception-rte __tmp97358))))) + (if (macro-unbound-global-exception? _exn91563_) + (macro-unbound-global-exception-rte _exn91563_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp96196 + (let ((__tmp97357 (let () (declare (not safe)) - (cons _exn90402_ '())))) + (cons _exn91563_ '())))) (declare (not safe)) - (cons 'unbound-global-exception-rte __tmp96196))))))) + (cons 'unbound-global-exception-rte __tmp97357))))))) (define unbound-global-exception-variable - (lambda (_exn90396_) + (lambda (_exn91557_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90396_)) - (let ((_e90399_ + (class-instance? RuntimeException::t _exn91557_)) + (let ((_e91560_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90396_ 'exception)))) - (if (macro-unbound-global-exception? _e90399_) - (macro-unbound-global-exception-variable _e90399_) + (unchecked-slot-ref _exn91557_ 'exception)))) + (if (macro-unbound-global-exception? _e91560_) + (macro-unbound-global-exception-variable _e91560_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp96199 + (let ((__tmp97360 (let () (declare (not safe)) - (cons _e90399_ '())))) + (cons _e91560_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp96199))))) - (if (macro-unbound-global-exception? _exn90396_) - (macro-unbound-global-exception-variable _exn90396_) + __tmp97360))))) + (if (macro-unbound-global-exception? _exn91557_) + (macro-unbound-global-exception-variable _exn91557_) (error '"not an instance" 'unbound-global-exception? - (let ((__tmp96198 + (let ((__tmp97359 (let () (declare (not safe)) - (cons _exn90396_ '())))) + (cons _exn91557_ '())))) (declare (not safe)) (cons 'unbound-global-exception-variable - __tmp96198))))))) + __tmp97359))))))) (define unbound-key-exception? - (lambda (_exn90392_) + (lambda (_exn91553_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90392_)) - (let ((_e90394_ + (class-instance? RuntimeException::t _exn91553_)) + (let ((_e91555_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90392_ 'exception)))) - (macro-unbound-key-exception? _e90394_)) - (macro-unbound-key-exception? _exn90392_)))) + (unchecked-slot-ref _exn91553_ 'exception)))) + (macro-unbound-key-exception? _e91555_)) + (macro-unbound-key-exception? _exn91553_)))) (define unbound-key-exception-arguments - (lambda (_exn90388_) + (lambda (_exn91549_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90388_)) - (let ((_e90390_ + (class-instance? RuntimeException::t _exn91549_)) + (let ((_e91551_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90388_ 'exception)))) - (if (macro-unbound-key-exception? _e90390_) - (macro-unbound-key-exception-arguments _e90390_) + (unchecked-slot-ref _exn91549_ 'exception)))) + (if (macro-unbound-key-exception? _e91551_) + (macro-unbound-key-exception-arguments _e91551_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp96201 + (let ((__tmp97362 (let () (declare (not safe)) - (cons _e90390_ '())))) + (cons _e91551_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp96201))))) - (if (macro-unbound-key-exception? _exn90388_) - (macro-unbound-key-exception-arguments _exn90388_) + __tmp97362))))) + (if (macro-unbound-key-exception? _exn91549_) + (macro-unbound-key-exception-arguments _exn91549_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp96200 + (let ((__tmp97361 (let () (declare (not safe)) - (cons _exn90388_ '())))) + (cons _exn91549_ '())))) (declare (not safe)) (cons 'unbound-key-exception-arguments - __tmp96200))))))) + __tmp97361))))))) (define unbound-key-exception-procedure - (lambda (_exn90382_) + (lambda (_exn91543_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90382_)) - (let ((_e90385_ + (class-instance? RuntimeException::t _exn91543_)) + (let ((_e91546_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90382_ 'exception)))) - (if (macro-unbound-key-exception? _e90385_) - (macro-unbound-key-exception-procedure _e90385_) + (unchecked-slot-ref _exn91543_ 'exception)))) + (if (macro-unbound-key-exception? _e91546_) + (macro-unbound-key-exception-procedure _e91546_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp96203 + (let ((__tmp97364 (let () (declare (not safe)) - (cons _e90385_ '())))) + (cons _e91546_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp96203))))) - (if (macro-unbound-key-exception? _exn90382_) - (macro-unbound-key-exception-procedure _exn90382_) + __tmp97364))))) + (if (macro-unbound-key-exception? _exn91543_) + (macro-unbound-key-exception-procedure _exn91543_) (error '"not an instance" 'unbound-key-exception? - (let ((__tmp96202 + (let ((__tmp97363 (let () (declare (not safe)) - (cons _exn90382_ '())))) + (cons _exn91543_ '())))) (declare (not safe)) (cons 'unbound-key-exception-procedure - __tmp96202))))))) + __tmp97363))))))) (define unbound-os-environment-variable-exception? - (lambda (_exn90378_) + (lambda (_exn91539_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90378_)) - (let ((_e90380_ + (class-instance? RuntimeException::t _exn91539_)) + (let ((_e91541_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90378_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _e90380_)) - (macro-unbound-os-environment-variable-exception? _exn90378_)))) + (unchecked-slot-ref _exn91539_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _e91541_)) + (macro-unbound-os-environment-variable-exception? _exn91539_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_exn90374_) + (lambda (_exn91535_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90374_)) - (let ((_e90376_ + (class-instance? RuntimeException::t _exn91535_)) + (let ((_e91537_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90374_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e90376_) + (unchecked-slot-ref _exn91535_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e91537_) (macro-unbound-os-environment-variable-exception-arguments - _e90376_) + _e91537_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp96205 + (let ((__tmp97366 (let () (declare (not safe)) - (cons _e90376_ '())))) + (cons _e91537_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp96205))))) - (if (macro-unbound-os-environment-variable-exception? _exn90374_) + __tmp97366))))) + (if (macro-unbound-os-environment-variable-exception? _exn91535_) (macro-unbound-os-environment-variable-exception-arguments - _exn90374_) + _exn91535_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp96204 + (let ((__tmp97365 (let () (declare (not safe)) - (cons _exn90374_ '())))) + (cons _exn91535_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-arguments - __tmp96204))))))) + __tmp97365))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_exn90368_) + (lambda (_exn91529_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90368_)) - (let ((_e90371_ + (class-instance? RuntimeException::t _exn91529_)) + (let ((_e91532_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90368_ 'exception)))) - (if (macro-unbound-os-environment-variable-exception? _e90371_) + (unchecked-slot-ref _exn91529_ 'exception)))) + (if (macro-unbound-os-environment-variable-exception? _e91532_) (macro-unbound-os-environment-variable-exception-procedure - _e90371_) + _e91532_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp96207 + (let ((__tmp97368 (let () (declare (not safe)) - (cons _e90371_ '())))) + (cons _e91532_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp96207))))) - (if (macro-unbound-os-environment-variable-exception? _exn90368_) + __tmp97368))))) + (if (macro-unbound-os-environment-variable-exception? _exn91529_) (macro-unbound-os-environment-variable-exception-procedure - _exn90368_) + _exn91529_) (error '"not an instance" 'unbound-os-environment-variable-exception? - (let ((__tmp96206 + (let ((__tmp97367 (let () (declare (not safe)) - (cons _exn90368_ '())))) + (cons _exn91529_ '())))) (declare (not safe)) (cons 'unbound-os-environment-variable-exception-procedure - __tmp96206))))))) + __tmp97367))))))) (define unbound-serial-number-exception? - (lambda (_exn90364_) + (lambda (_exn91525_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90364_)) - (let ((_e90366_ + (class-instance? RuntimeException::t _exn91525_)) + (let ((_e91527_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90364_ 'exception)))) - (macro-unbound-serial-number-exception? _e90366_)) - (macro-unbound-serial-number-exception? _exn90364_)))) + (unchecked-slot-ref _exn91525_ 'exception)))) + (macro-unbound-serial-number-exception? _e91527_)) + (macro-unbound-serial-number-exception? _exn91525_)))) (define unbound-serial-number-exception-arguments - (lambda (_exn90360_) + (lambda (_exn91521_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90360_)) - (let ((_e90362_ + (class-instance? RuntimeException::t _exn91521_)) + (let ((_e91523_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90360_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e90362_) - (macro-unbound-serial-number-exception-arguments _e90362_) + (unchecked-slot-ref _exn91521_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e91523_) + (macro-unbound-serial-number-exception-arguments _e91523_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp96209 + (let ((__tmp97370 (let () (declare (not safe)) - (cons _e90362_ '())))) + (cons _e91523_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp96209))))) - (if (macro-unbound-serial-number-exception? _exn90360_) - (macro-unbound-serial-number-exception-arguments _exn90360_) + __tmp97370))))) + (if (macro-unbound-serial-number-exception? _exn91521_) + (macro-unbound-serial-number-exception-arguments _exn91521_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp96208 + (let ((__tmp97369 (let () (declare (not safe)) - (cons _exn90360_ '())))) + (cons _exn91521_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-arguments - __tmp96208))))))) + __tmp97369))))))) (define unbound-serial-number-exception-procedure - (lambda (_exn90354_) + (lambda (_exn91515_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90354_)) - (let ((_e90357_ + (class-instance? RuntimeException::t _exn91515_)) + (let ((_e91518_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90354_ 'exception)))) - (if (macro-unbound-serial-number-exception? _e90357_) - (macro-unbound-serial-number-exception-procedure _e90357_) + (unchecked-slot-ref _exn91515_ 'exception)))) + (if (macro-unbound-serial-number-exception? _e91518_) + (macro-unbound-serial-number-exception-procedure _e91518_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp96211 + (let ((__tmp97372 (let () (declare (not safe)) - (cons _e90357_ '())))) + (cons _e91518_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp96211))))) - (if (macro-unbound-serial-number-exception? _exn90354_) - (macro-unbound-serial-number-exception-procedure _exn90354_) + __tmp97372))))) + (if (macro-unbound-serial-number-exception? _exn91515_) + (macro-unbound-serial-number-exception-procedure _exn91515_) (error '"not an instance" 'unbound-serial-number-exception? - (let ((__tmp96210 + (let ((__tmp97371 (let () (declare (not safe)) - (cons _exn90354_ '())))) + (cons _exn91515_ '())))) (declare (not safe)) (cons 'unbound-serial-number-exception-procedure - __tmp96210))))))) + __tmp97371))))))) (define uncaught-exception? - (lambda (_exn90350_) + (lambda (_exn91511_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90350_)) - (let ((_e90352_ + (class-instance? RuntimeException::t _exn91511_)) + (let ((_e91513_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90350_ 'exception)))) - (macro-uncaught-exception? _e90352_)) - (macro-uncaught-exception? _exn90350_)))) + (unchecked-slot-ref _exn91511_ 'exception)))) + (macro-uncaught-exception? _e91513_)) + (macro-uncaught-exception? _exn91511_)))) (define uncaught-exception-arguments - (lambda (_exn90346_) + (lambda (_exn91507_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90346_)) - (let ((_e90348_ + (class-instance? RuntimeException::t _exn91507_)) + (let ((_e91509_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90346_ 'exception)))) - (if (macro-uncaught-exception? _e90348_) - (macro-uncaught-exception-arguments _e90348_) + (unchecked-slot-ref _exn91507_ 'exception)))) + (if (macro-uncaught-exception? _e91509_) + (macro-uncaught-exception-arguments _e91509_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp96213 + (let ((__tmp97374 (let () (declare (not safe)) - (cons _e90348_ '())))) + (cons _e91509_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp96213))))) - (if (macro-uncaught-exception? _exn90346_) - (macro-uncaught-exception-arguments _exn90346_) + (cons 'uncaught-exception-arguments __tmp97374))))) + (if (macro-uncaught-exception? _exn91507_) + (macro-uncaught-exception-arguments _exn91507_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp96212 + (let ((__tmp97373 (let () (declare (not safe)) - (cons _exn90346_ '())))) + (cons _exn91507_ '())))) (declare (not safe)) - (cons 'uncaught-exception-arguments __tmp96212))))))) + (cons 'uncaught-exception-arguments __tmp97373))))))) (define uncaught-exception-procedure - (lambda (_exn90342_) + (lambda (_exn91503_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90342_)) - (let ((_e90344_ + (class-instance? RuntimeException::t _exn91503_)) + (let ((_e91505_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90342_ 'exception)))) - (if (macro-uncaught-exception? _e90344_) - (macro-uncaught-exception-procedure _e90344_) + (unchecked-slot-ref _exn91503_ 'exception)))) + (if (macro-uncaught-exception? _e91505_) + (macro-uncaught-exception-procedure _e91505_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp96215 + (let ((__tmp97376 (let () (declare (not safe)) - (cons _e90344_ '())))) + (cons _e91505_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp96215))))) - (if (macro-uncaught-exception? _exn90342_) - (macro-uncaught-exception-procedure _exn90342_) + (cons 'uncaught-exception-procedure __tmp97376))))) + (if (macro-uncaught-exception? _exn91503_) + (macro-uncaught-exception-procedure _exn91503_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp96214 + (let ((__tmp97375 (let () (declare (not safe)) - (cons _exn90342_ '())))) + (cons _exn91503_ '())))) (declare (not safe)) - (cons 'uncaught-exception-procedure __tmp96214))))))) + (cons 'uncaught-exception-procedure __tmp97375))))))) (define uncaught-exception-reason - (lambda (_exn90336_) + (lambda (_exn91497_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90336_)) - (let ((_e90339_ + (class-instance? RuntimeException::t _exn91497_)) + (let ((_e91500_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90336_ 'exception)))) - (if (macro-uncaught-exception? _e90339_) - (macro-uncaught-exception-reason _e90339_) + (unchecked-slot-ref _exn91497_ 'exception)))) + (if (macro-uncaught-exception? _e91500_) + (macro-uncaught-exception-reason _e91500_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp96217 + (let ((__tmp97378 (let () (declare (not safe)) - (cons _e90339_ '())))) + (cons _e91500_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp96217))))) - (if (macro-uncaught-exception? _exn90336_) - (macro-uncaught-exception-reason _exn90336_) + (cons 'uncaught-exception-reason __tmp97378))))) + (if (macro-uncaught-exception? _exn91497_) + (macro-uncaught-exception-reason _exn91497_) (error '"not an instance" 'uncaught-exception? - (let ((__tmp96216 + (let ((__tmp97377 (let () (declare (not safe)) - (cons _exn90336_ '())))) + (cons _exn91497_ '())))) (declare (not safe)) - (cons 'uncaught-exception-reason __tmp96216))))))) + (cons 'uncaught-exception-reason __tmp97377))))))) (define uninitialized-thread-exception? - (lambda (_exn90332_) + (lambda (_exn91493_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90332_)) - (let ((_e90334_ + (class-instance? RuntimeException::t _exn91493_)) + (let ((_e91495_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90332_ 'exception)))) - (macro-uninitialized-thread-exception? _e90334_)) - (macro-uninitialized-thread-exception? _exn90332_)))) + (unchecked-slot-ref _exn91493_ 'exception)))) + (macro-uninitialized-thread-exception? _e91495_)) + (macro-uninitialized-thread-exception? _exn91493_)))) (define uninitialized-thread-exception-arguments - (lambda (_exn90328_) + (lambda (_exn91489_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90328_)) - (let ((_e90330_ + (class-instance? RuntimeException::t _exn91489_)) + (let ((_e91491_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90328_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e90330_) - (macro-uninitialized-thread-exception-arguments _e90330_) + (unchecked-slot-ref _exn91489_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e91491_) + (macro-uninitialized-thread-exception-arguments _e91491_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp96219 + (let ((__tmp97380 (let () (declare (not safe)) - (cons _e90330_ '())))) + (cons _e91491_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp96219))))) - (if (macro-uninitialized-thread-exception? _exn90328_) - (macro-uninitialized-thread-exception-arguments _exn90328_) + __tmp97380))))) + (if (macro-uninitialized-thread-exception? _exn91489_) + (macro-uninitialized-thread-exception-arguments _exn91489_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp96218 + (let ((__tmp97379 (let () (declare (not safe)) - (cons _exn90328_ '())))) + (cons _exn91489_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-arguments - __tmp96218))))))) + __tmp97379))))))) (define uninitialized-thread-exception-procedure - (lambda (_exn90322_) + (lambda (_exn91483_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90322_)) - (let ((_e90325_ + (class-instance? RuntimeException::t _exn91483_)) + (let ((_e91486_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90322_ 'exception)))) - (if (macro-uninitialized-thread-exception? _e90325_) - (macro-uninitialized-thread-exception-procedure _e90325_) + (unchecked-slot-ref _exn91483_ 'exception)))) + (if (macro-uninitialized-thread-exception? _e91486_) + (macro-uninitialized-thread-exception-procedure _e91486_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp96221 + (let ((__tmp97382 (let () (declare (not safe)) - (cons _e90325_ '())))) + (cons _e91486_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp96221))))) - (if (macro-uninitialized-thread-exception? _exn90322_) - (macro-uninitialized-thread-exception-procedure _exn90322_) + __tmp97382))))) + (if (macro-uninitialized-thread-exception? _exn91483_) + (macro-uninitialized-thread-exception-procedure _exn91483_) (error '"not an instance" 'uninitialized-thread-exception? - (let ((__tmp96220 + (let ((__tmp97381 (let () (declare (not safe)) - (cons _exn90322_ '())))) + (cons _exn91483_ '())))) (declare (not safe)) (cons 'uninitialized-thread-exception-procedure - __tmp96220))))))) + __tmp97381))))))) (define unknown-keyword-argument-exception? - (lambda (_exn90318_) + (lambda (_exn91479_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90318_)) - (let ((_e90320_ + (class-instance? RuntimeException::t _exn91479_)) + (let ((_e91481_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90318_ 'exception)))) - (macro-unknown-keyword-argument-exception? _e90320_)) - (macro-unknown-keyword-argument-exception? _exn90318_)))) + (unchecked-slot-ref _exn91479_ 'exception)))) + (macro-unknown-keyword-argument-exception? _e91481_)) + (macro-unknown-keyword-argument-exception? _exn91479_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_exn90314_) + (lambda (_exn91475_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90314_)) - (let ((_e90316_ + (class-instance? RuntimeException::t _exn91475_)) + (let ((_e91477_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90314_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e90316_) - (macro-unknown-keyword-argument-exception-arguments _e90316_) + (unchecked-slot-ref _exn91475_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e91477_) + (macro-unknown-keyword-argument-exception-arguments _e91477_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp96223 + (let ((__tmp97384 (let () (declare (not safe)) - (cons _e90316_ '())))) + (cons _e91477_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp96223))))) - (if (macro-unknown-keyword-argument-exception? _exn90314_) - (macro-unknown-keyword-argument-exception-arguments _exn90314_) + __tmp97384))))) + (if (macro-unknown-keyword-argument-exception? _exn91475_) + (macro-unknown-keyword-argument-exception-arguments _exn91475_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp96222 + (let ((__tmp97383 (let () (declare (not safe)) - (cons _exn90314_ '())))) + (cons _exn91475_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-arguments - __tmp96222))))))) + __tmp97383))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_exn90308_) + (lambda (_exn91469_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90308_)) - (let ((_e90311_ + (class-instance? RuntimeException::t _exn91469_)) + (let ((_e91472_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90308_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _e90311_) - (macro-unknown-keyword-argument-exception-procedure _e90311_) + (unchecked-slot-ref _exn91469_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _e91472_) + (macro-unknown-keyword-argument-exception-procedure _e91472_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp96225 + (let ((__tmp97386 (let () (declare (not safe)) - (cons _e90311_ '())))) + (cons _e91472_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp96225))))) - (if (macro-unknown-keyword-argument-exception? _exn90308_) - (macro-unknown-keyword-argument-exception-procedure _exn90308_) + __tmp97386))))) + (if (macro-unknown-keyword-argument-exception? _exn91469_) + (macro-unknown-keyword-argument-exception-procedure _exn91469_) (error '"not an instance" 'unknown-keyword-argument-exception? - (let ((__tmp96224 + (let ((__tmp97385 (let () (declare (not safe)) - (cons _exn90308_ '())))) + (cons _exn91469_ '())))) (declare (not safe)) (cons 'unknown-keyword-argument-exception-procedure - __tmp96224))))))) + __tmp97385))))))) (define unterminated-process-exception? - (lambda (_exn90304_) + (lambda (_exn91465_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90304_)) - (let ((_e90306_ + (class-instance? RuntimeException::t _exn91465_)) + (let ((_e91467_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90304_ 'exception)))) - (macro-unterminated-process-exception? _e90306_)) - (macro-unterminated-process-exception? _exn90304_)))) + (unchecked-slot-ref _exn91465_ 'exception)))) + (macro-unterminated-process-exception? _e91467_)) + (macro-unterminated-process-exception? _exn91465_)))) (define unterminated-process-exception-arguments - (lambda (_exn90300_) + (lambda (_exn91461_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90300_)) - (let ((_e90302_ + (class-instance? RuntimeException::t _exn91461_)) + (let ((_e91463_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90300_ 'exception)))) - (if (macro-unterminated-process-exception? _e90302_) - (macro-unterminated-process-exception-arguments _e90302_) + (unchecked-slot-ref _exn91461_ 'exception)))) + (if (macro-unterminated-process-exception? _e91463_) + (macro-unterminated-process-exception-arguments _e91463_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp96227 + (let ((__tmp97388 (let () (declare (not safe)) - (cons _e90302_ '())))) + (cons _e91463_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp96227))))) - (if (macro-unterminated-process-exception? _exn90300_) - (macro-unterminated-process-exception-arguments _exn90300_) + __tmp97388))))) + (if (macro-unterminated-process-exception? _exn91461_) + (macro-unterminated-process-exception-arguments _exn91461_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp96226 + (let ((__tmp97387 (let () (declare (not safe)) - (cons _exn90300_ '())))) + (cons _exn91461_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-arguments - __tmp96226))))))) + __tmp97387))))))) (define unterminated-process-exception-procedure - (lambda (_exn90294_) + (lambda (_exn91455_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90294_)) - (let ((_e90297_ + (class-instance? RuntimeException::t _exn91455_)) + (let ((_e91458_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90294_ 'exception)))) - (if (macro-unterminated-process-exception? _e90297_) - (macro-unterminated-process-exception-procedure _e90297_) + (unchecked-slot-ref _exn91455_ 'exception)))) + (if (macro-unterminated-process-exception? _e91458_) + (macro-unterminated-process-exception-procedure _e91458_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp96229 + (let ((__tmp97390 (let () (declare (not safe)) - (cons _e90297_ '())))) + (cons _e91458_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp96229))))) - (if (macro-unterminated-process-exception? _exn90294_) - (macro-unterminated-process-exception-procedure _exn90294_) + __tmp97390))))) + (if (macro-unterminated-process-exception? _exn91455_) + (macro-unterminated-process-exception-procedure _exn91455_) (error '"not an instance" 'unterminated-process-exception? - (let ((__tmp96228 + (let ((__tmp97389 (let () (declare (not safe)) - (cons _exn90294_ '())))) + (cons _exn91455_ '())))) (declare (not safe)) (cons 'unterminated-process-exception-procedure - __tmp96228))))))) + __tmp97389))))))) (define wrong-number-of-arguments-exception? - (lambda (_exn90290_) + (lambda (_exn91451_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90290_)) - (let ((_e90292_ + (class-instance? RuntimeException::t _exn91451_)) + (let ((_e91453_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90290_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _e90292_)) - (macro-wrong-number-of-arguments-exception? _exn90290_)))) + (unchecked-slot-ref _exn91451_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _e91453_)) + (macro-wrong-number-of-arguments-exception? _exn91451_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_exn90286_) + (lambda (_exn91447_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90286_)) - (let ((_e90288_ + (class-instance? RuntimeException::t _exn91447_)) + (let ((_e91449_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90286_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e90288_) + (unchecked-slot-ref _exn91447_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e91449_) (macro-wrong-number-of-arguments-exception-arguments - _e90288_) + _e91449_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp96231 + (let ((__tmp97392 (let () (declare (not safe)) - (cons _e90288_ '())))) + (cons _e91449_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp96231))))) - (if (macro-wrong-number-of-arguments-exception? _exn90286_) + __tmp97392))))) + (if (macro-wrong-number-of-arguments-exception? _exn91447_) (macro-wrong-number-of-arguments-exception-arguments - _exn90286_) + _exn91447_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp96230 + (let ((__tmp97391 (let () (declare (not safe)) - (cons _exn90286_ '())))) + (cons _exn91447_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-arguments - __tmp96230))))))) + __tmp97391))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_exn90280_) + (lambda (_exn91441_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90280_)) - (let ((_e90283_ + (class-instance? RuntimeException::t _exn91441_)) + (let ((_e91444_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90280_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _e90283_) + (unchecked-slot-ref _exn91441_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _e91444_) (macro-wrong-number-of-arguments-exception-procedure - _e90283_) + _e91444_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp96233 + (let ((__tmp97394 (let () (declare (not safe)) - (cons _e90283_ '())))) + (cons _e91444_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp96233))))) - (if (macro-wrong-number-of-arguments-exception? _exn90280_) + __tmp97394))))) + (if (macro-wrong-number-of-arguments-exception? _exn91441_) (macro-wrong-number-of-arguments-exception-procedure - _exn90280_) + _exn91441_) (error '"not an instance" 'wrong-number-of-arguments-exception? - (let ((__tmp96232 + (let ((__tmp97393 (let () (declare (not safe)) - (cons _exn90280_ '())))) + (cons _exn91441_ '())))) (declare (not safe)) (cons 'wrong-number-of-arguments-exception-procedure - __tmp96232))))))) + __tmp97393))))))) (define wrong-number-of-values-exception? - (lambda (_exn90276_) + (lambda (_exn91437_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90276_)) - (let ((_e90278_ + (class-instance? RuntimeException::t _exn91437_)) + (let ((_e91439_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90276_ 'exception)))) - (macro-wrong-number-of-values-exception? _e90278_)) - (macro-wrong-number-of-values-exception? _exn90276_)))) + (unchecked-slot-ref _exn91437_ 'exception)))) + (macro-wrong-number-of-values-exception? _e91439_)) + (macro-wrong-number-of-values-exception? _exn91437_)))) (define wrong-number-of-values-exception-code - (lambda (_exn90272_) + (lambda (_exn91433_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90272_)) - (let ((_e90274_ + (class-instance? RuntimeException::t _exn91433_)) + (let ((_e91435_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90272_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e90274_) - (macro-wrong-number-of-values-exception-code _e90274_) + (unchecked-slot-ref _exn91433_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e91435_) + (macro-wrong-number-of-values-exception-code _e91435_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp96235 + (let ((__tmp97396 (let () (declare (not safe)) - (cons _e90274_ '())))) + (cons _e91435_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp96235))))) - (if (macro-wrong-number-of-values-exception? _exn90272_) - (macro-wrong-number-of-values-exception-code _exn90272_) + __tmp97396))))) + (if (macro-wrong-number-of-values-exception? _exn91433_) + (macro-wrong-number-of-values-exception-code _exn91433_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp96234 + (let ((__tmp97395 (let () (declare (not safe)) - (cons _exn90272_ '())))) + (cons _exn91433_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-code - __tmp96234))))))) + __tmp97395))))))) (define wrong-number-of-values-exception-rte - (lambda (_exn90268_) + (lambda (_exn91429_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90268_)) - (let ((_e90270_ + (class-instance? RuntimeException::t _exn91429_)) + (let ((_e91431_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90268_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e90270_) - (macro-wrong-number-of-values-exception-rte _e90270_) + (unchecked-slot-ref _exn91429_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e91431_) + (macro-wrong-number-of-values-exception-rte _e91431_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp96237 + (let ((__tmp97398 (let () (declare (not safe)) - (cons _e90270_ '())))) + (cons _e91431_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp96237))))) - (if (macro-wrong-number-of-values-exception? _exn90268_) - (macro-wrong-number-of-values-exception-rte _exn90268_) + __tmp97398))))) + (if (macro-wrong-number-of-values-exception? _exn91429_) + (macro-wrong-number-of-values-exception-rte _exn91429_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp96236 + (let ((__tmp97397 (let () (declare (not safe)) - (cons _exn90268_ '())))) + (cons _exn91429_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-rte - __tmp96236))))))) + __tmp97397))))))) (define wrong-number-of-values-exception-vals - (lambda (_exn90262_) + (lambda (_exn91423_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90262_)) - (let ((_e90265_ + (class-instance? RuntimeException::t _exn91423_)) + (let ((_e91426_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90262_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _e90265_) - (macro-wrong-number-of-values-exception-vals _e90265_) + (unchecked-slot-ref _exn91423_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _e91426_) + (macro-wrong-number-of-values-exception-vals _e91426_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp96239 + (let ((__tmp97400 (let () (declare (not safe)) - (cons _e90265_ '())))) + (cons _e91426_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp96239))))) - (if (macro-wrong-number-of-values-exception? _exn90262_) - (macro-wrong-number-of-values-exception-vals _exn90262_) + __tmp97400))))) + (if (macro-wrong-number-of-values-exception? _exn91423_) + (macro-wrong-number-of-values-exception-vals _exn91423_) (error '"not an instance" 'wrong-number-of-values-exception? - (let ((__tmp96238 + (let ((__tmp97399 (let () (declare (not safe)) - (cons _exn90262_ '())))) + (cons _exn91423_ '())))) (declare (not safe)) (cons 'wrong-number-of-values-exception-vals - __tmp96238))))))) + __tmp97399))))))) (define wrong-processor-c-return-exception? - (lambda (_exn90256_) + (lambda (_exn91417_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _exn90256_)) - (let ((_e90259_ + (class-instance? RuntimeException::t _exn91417_)) + (let ((_e91420_ (let () (declare (not safe)) - (unchecked-slot-ref _exn90256_ 'exception)))) - (macro-wrong-processor-c-return-exception? _e90259_)) - (macro-wrong-processor-c-return-exception? _exn90256_)))))) + (unchecked-slot-ref _exn91417_ 'exception)))) + (macro-wrong-processor-c-return-exception? _e91420_)) + (macro-wrong-processor-c-return-exception? _exn91417_)))))) diff --git a/src/bootstrap/gerbil/runtime/error__1.scm b/src/bootstrap/gerbil/runtime/error__1.scm index 36cf3e238..0329d6343 100644 --- a/src/bootstrap/gerbil/runtime/error__1.scm +++ b/src/bootstrap/gerbil/runtime/error__1.scm @@ -1,293 +1,293 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g96241_| + (define |[1]#_g97402_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g96243_| + (define |[1]#_g97404_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g96245_| + (define |[1]#_g97406_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g96247_| + (define |[1]#_g97408_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g96249_| + (define |[1]#_g97410_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g96251_| + (define |[1]#_g97412_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g96255_| + (define |[1]#_g97416_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g96259_| + (define |[1]#_g97420_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96263_| + (define |[1]#_g97424_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g96267_| + (define |[1]#_g97428_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96271_| + (define |[1]#_g97432_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g96273_| + (define |[1]#_g97434_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g96275_| + (define |[1]#_g97436_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g96277_| + (define |[1]#_g97438_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g96279_| + (define |[1]#_g97440_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g96286_| + (define |[1]#_g97447_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g96289_| + (define |[1]#_g97450_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g96292_| + (define |[1]#_g97453_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g96295_| + (define |[1]#_g97456_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g96302_| + (define |[1]#_g97463_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96305_| + (define |[1]#_g97466_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96308_| + (define |[1]#_g97469_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96311_| + (define |[1]#_g97472_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96318_| + (define |[1]#_g97479_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g96321_| + (define |[1]#_g97482_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g96324_| + (define |[1]#_g97485_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g96327_| + (define |[1]#_g97488_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g96334_| + (define |[1]#_g97495_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96337_| + (define |[1]#_g97498_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96340_| + (define |[1]#_g97501_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96343_| + (define |[1]#_g97504_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96349_| + (define |[1]#_g97510_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g96351_| + (define |[1]#_g97512_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g96353_| + (define |[1]#_g97514_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g96358_| + (define |[1]#_g97519_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g96361_| + (define |[1]#_g97522_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g96366_| + (define |[1]#_g97527_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96369_| + (define |[1]#_g97530_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96374_| + (define |[1]#_g97535_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g96377_| + (define |[1]#_g97538_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g96382_| + (define |[1]#_g97543_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g96385_| + (define |[1]#_g97546_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! @@ -296,7 +296,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj96009 + (let ((__obj97170 (let () (declare (not safe)) (##structure @@ -314,11 +314,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 'gerbil/runtime/error#Exception::t '1 gerbil/core$$#class-type-info::t @@ -326,7 +327,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 'Exception '2 gerbil/core$$#class-type-info::t @@ -334,7 +335,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '() '4 gerbil/core$$#class-type-info::t @@ -342,7 +343,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '() '3 gerbil/core$$#class-type-info::t @@ -350,7 +351,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '#f '5 gerbil/core$$#class-type-info::t @@ -358,7 +359,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '#f '6 gerbil/core$$#class-type-info::t @@ -366,47 +367,47 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96240 |[1]#_g96241_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 - __tmp96240 + __obj97170 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96242 |[1]#_g96243_|)) + (let ((__tmp97401 |[1]#_g97402_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96009 - __tmp96242 + __obj97170 + __tmp97401 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96244 |[1]#_g96245_|)) + (let ((__tmp97403 |[1]#_g97404_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96009 - __tmp96244 + __obj97170 + __tmp97403 '10 gerbil/core$$#class-type-info::t '#f)) - (let () + (let ((__tmp97405 |[1]#_g97406_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96009 - '() + __obj97170 + __tmp97405 '11 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '() '12 gerbil/core$$#class-type-info::t @@ -414,7 +415,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '() '13 gerbil/core$$#class-type-info::t @@ -422,14 +423,22 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96009 + __obj97170 '() '14 gerbil/core$$#class-type-info::t '#f)) - __obj96009)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + __obj97170 + '() + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj97170)) (define |[:0:]#StackTrace| - (let ((__obj96010 + (let ((__obj97171 (let () (declare (not safe)) (##structure @@ -447,11 +456,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 + __obj97171 'gerbil/runtime/error#StackTrace::t '1 gerbil/core$$#class-type-info::t @@ -459,7 +469,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 + __obj97171 'StackTrace '2 gerbil/core$$#class-type-info::t @@ -467,7 +477,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 + __obj97171 '(continuation) '4 gerbil/core$$#class-type-info::t @@ -475,7 +485,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 + __obj97171 '() '3 gerbil/core$$#class-type-info::t @@ -483,7 +493,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 + __obj97171 '#f '5 gerbil/core$$#class-type-info::t @@ -491,7 +501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 + __obj97171 '#f '6 gerbil/core$$#class-type-info::t @@ -499,94 +509,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 + __obj97171 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96246 |[1]#_g96247_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj96010 - __tmp96246 + __obj97171 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96248 |[1]#_g96249_|)) + (let ((__tmp97407 |[1]#_g97408_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96010 - __tmp96248 + __obj97171 + __tmp97407 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96250 |[1]#_g96251_|)) + (let ((__tmp97409 |[1]#_g97410_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96010 - __tmp96250 + __obj97171 + __tmp97409 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96252 - (let ((__tmp96253 - (let ((__tmp96254 |[1]#_g96255_|)) - (declare (not safe)) - (cons 'continuation __tmp96254)))) - (declare (not safe)) - (cons __tmp96253 '())))) + (let ((__tmp97411 |[1]#_g97412_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96010 - __tmp96252 + __obj97171 + __tmp97411 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96256 - (let ((__tmp96257 - (let ((__tmp96258 |[1]#_g96259_|)) + (let ((__tmp97413 + (let ((__tmp97414 + (let ((__tmp97415 |[1]#_g97416_|)) (declare (not safe)) - (cons 'continuation __tmp96258)))) + (cons 'continuation __tmp97415)))) (declare (not safe)) - (cons __tmp96257 '())))) + (cons __tmp97414 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj96010 - __tmp96256 + __obj97171 + __tmp97413 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96260 - (let ((__tmp96261 - (let ((__tmp96262 |[1]#_g96263_|)) + (let ((__tmp97417 + (let ((__tmp97418 + (let ((__tmp97419 |[1]#_g97420_|)) (declare (not safe)) - (cons 'continuation __tmp96262)))) + (cons 'continuation __tmp97419)))) (declare (not safe)) - (cons __tmp96261 '())))) + (cons __tmp97418 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj96010 - __tmp96260 + __obj97171 + __tmp97417 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96264 - (let ((__tmp96265 - (let ((__tmp96266 |[1]#_g96267_|)) + (let ((__tmp97421 + (let ((__tmp97422 + (let ((__tmp97423 |[1]#_g97424_|)) (declare (not safe)) - (cons 'continuation __tmp96266)))) + (cons 'continuation __tmp97423)))) (declare (not safe)) - (cons __tmp96265 '())))) + (cons __tmp97422 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj96010 - __tmp96264 + __obj97171 + __tmp97421 '14 gerbil/core$$#class-type-info::t '#f)) - __obj96010)) + (let ((__tmp97425 + (let ((__tmp97426 + (let ((__tmp97427 |[1]#_g97428_|)) + (declare (not safe)) + (cons 'continuation __tmp97427)))) + (declare (not safe)) + (cons __tmp97426 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj97171 + __tmp97425 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj97171)) (define |[:0:]#Error| - (let ((__obj96011 + (let ((__obj97172 (let () (declare (not safe)) (##structure @@ -604,11 +622,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj96011 + __obj97172 'gerbil/runtime/error#Error::t '1 gerbil/core$$#class-type-info::t @@ -616,7 +635,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96011 + __obj97172 'Error '2 gerbil/core$$#class-type-info::t @@ -624,30 +643,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96011 + __obj97172 '(message irritants where) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96268 - (let ((__tmp96272 |[1]#_g96273_|) - (__tmp96269 - (let ((__tmp96270 |[1]#_g96271_|)) + (let ((__tmp97429 + (let ((__tmp97433 |[1]#_g97434_|) + (__tmp97430 + (let ((__tmp97431 |[1]#_g97432_|)) (declare (not safe)) - (cons __tmp96270 '())))) + (cons __tmp97431 '())))) (declare (not safe)) - (cons __tmp96272 __tmp96269)))) + (cons __tmp97433 __tmp97430)))) (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96268 + __obj97172 + __tmp97429 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj96011 + __obj97172 '#f '5 gerbil/core$$#class-type-info::t @@ -655,7 +674,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96011 + __obj97172 '#f '6 gerbil/core$$#class-type-info::t @@ -663,178 +682,186 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96011 - ':init! + __obj97172 + '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96274 |[1]#_g96275_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96274 + __obj97172 + ':init! '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96276 |[1]#_g96277_|)) + (let ((__tmp97435 |[1]#_g97436_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96276 + __obj97172 + __tmp97435 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96278 |[1]#_g96279_|)) + (let ((__tmp97437 |[1]#_g97438_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96278 + __obj97172 + __tmp97437 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96280 - (let ((__tmp96293 - (let ((__tmp96294 |[1]#_g96295_|)) + (let ((__tmp97439 |[1]#_g97440_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj97172 + __tmp97439 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp97441 + (let ((__tmp97454 + (let ((__tmp97455 |[1]#_g97456_|)) (declare (not safe)) - (cons 'message __tmp96294))) - (__tmp96281 - (let ((__tmp96290 - (let ((__tmp96291 |[1]#_g96292_|)) + (cons 'message __tmp97455))) + (__tmp97442 + (let ((__tmp97451 + (let ((__tmp97452 |[1]#_g97453_|)) (declare (not safe)) - (cons 'irritants __tmp96291))) - (__tmp96282 - (let ((__tmp96287 - (let ((__tmp96288 |[1]#_g96289_|)) + (cons 'irritants __tmp97452))) + (__tmp97443 + (let ((__tmp97448 + (let ((__tmp97449 |[1]#_g97450_|)) (declare (not safe)) - (cons 'where __tmp96288))) - (__tmp96283 - (let ((__tmp96284 - (let ((__tmp96285 |[1]#_g96286_|)) + (cons 'where __tmp97449))) + (__tmp97444 + (let ((__tmp97445 + (let ((__tmp97446 |[1]#_g97447_|)) (declare (not safe)) - (cons 'continuation __tmp96285)))) + (cons 'continuation __tmp97446)))) (declare (not safe)) - (cons __tmp96284 '())))) + (cons __tmp97445 '())))) (declare (not safe)) - (cons __tmp96287 __tmp96283)))) + (cons __tmp97448 __tmp97444)))) (declare (not safe)) - (cons __tmp96290 __tmp96282)))) + (cons __tmp97451 __tmp97443)))) (declare (not safe)) - (cons __tmp96293 __tmp96281)))) + (cons __tmp97454 __tmp97442)))) (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96280 - '11 + __obj97172 + __tmp97441 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96296 - (let ((__tmp96309 - (let ((__tmp96310 |[1]#_g96311_|)) + (let ((__tmp97457 + (let ((__tmp97470 + (let ((__tmp97471 |[1]#_g97472_|)) (declare (not safe)) - (cons 'message __tmp96310))) - (__tmp96297 - (let ((__tmp96306 - (let ((__tmp96307 |[1]#_g96308_|)) + (cons 'message __tmp97471))) + (__tmp97458 + (let ((__tmp97467 + (let ((__tmp97468 |[1]#_g97469_|)) (declare (not safe)) - (cons 'irritants __tmp96307))) - (__tmp96298 - (let ((__tmp96303 - (let ((__tmp96304 |[1]#_g96305_|)) + (cons 'irritants __tmp97468))) + (__tmp97459 + (let ((__tmp97464 + (let ((__tmp97465 |[1]#_g97466_|)) (declare (not safe)) - (cons 'where __tmp96304))) - (__tmp96299 - (let ((__tmp96300 - (let ((__tmp96301 |[1]#_g96302_|)) + (cons 'where __tmp97465))) + (__tmp97460 + (let ((__tmp97461 + (let ((__tmp97462 |[1]#_g97463_|)) (declare (not safe)) - (cons 'continuation __tmp96301)))) + (cons 'continuation __tmp97462)))) (declare (not safe)) - (cons __tmp96300 '())))) + (cons __tmp97461 '())))) (declare (not safe)) - (cons __tmp96303 __tmp96299)))) + (cons __tmp97464 __tmp97460)))) (declare (not safe)) - (cons __tmp96306 __tmp96298)))) + (cons __tmp97467 __tmp97459)))) (declare (not safe)) - (cons __tmp96309 __tmp96297)))) + (cons __tmp97470 __tmp97458)))) (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96296 - '12 + __obj97172 + __tmp97457 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96312 - (let ((__tmp96325 - (let ((__tmp96326 |[1]#_g96327_|)) + (let ((__tmp97473 + (let ((__tmp97486 + (let ((__tmp97487 |[1]#_g97488_|)) (declare (not safe)) - (cons 'message __tmp96326))) - (__tmp96313 - (let ((__tmp96322 - (let ((__tmp96323 |[1]#_g96324_|)) + (cons 'message __tmp97487))) + (__tmp97474 + (let ((__tmp97483 + (let ((__tmp97484 |[1]#_g97485_|)) (declare (not safe)) - (cons 'irritants __tmp96323))) - (__tmp96314 - (let ((__tmp96319 - (let ((__tmp96320 |[1]#_g96321_|)) + (cons 'irritants __tmp97484))) + (__tmp97475 + (let ((__tmp97480 + (let ((__tmp97481 |[1]#_g97482_|)) (declare (not safe)) - (cons 'where __tmp96320))) - (__tmp96315 - (let ((__tmp96316 - (let ((__tmp96317 |[1]#_g96318_|)) + (cons 'where __tmp97481))) + (__tmp97476 + (let ((__tmp97477 + (let ((__tmp97478 |[1]#_g97479_|)) (declare (not safe)) - (cons 'continuation __tmp96317)))) + (cons 'continuation __tmp97478)))) (declare (not safe)) - (cons __tmp96316 '())))) + (cons __tmp97477 '())))) (declare (not safe)) - (cons __tmp96319 __tmp96315)))) + (cons __tmp97480 __tmp97476)))) (declare (not safe)) - (cons __tmp96322 __tmp96314)))) + (cons __tmp97483 __tmp97475)))) (declare (not safe)) - (cons __tmp96325 __tmp96313)))) + (cons __tmp97486 __tmp97474)))) (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96312 - '13 + __obj97172 + __tmp97473 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96328 - (let ((__tmp96341 - (let ((__tmp96342 |[1]#_g96343_|)) + (let ((__tmp97489 + (let ((__tmp97502 + (let ((__tmp97503 |[1]#_g97504_|)) (declare (not safe)) - (cons 'message __tmp96342))) - (__tmp96329 - (let ((__tmp96338 - (let ((__tmp96339 |[1]#_g96340_|)) + (cons 'message __tmp97503))) + (__tmp97490 + (let ((__tmp97499 + (let ((__tmp97500 |[1]#_g97501_|)) (declare (not safe)) - (cons 'irritants __tmp96339))) - (__tmp96330 - (let ((__tmp96335 - (let ((__tmp96336 |[1]#_g96337_|)) + (cons 'irritants __tmp97500))) + (__tmp97491 + (let ((__tmp97496 + (let ((__tmp97497 |[1]#_g97498_|)) (declare (not safe)) - (cons 'where __tmp96336))) - (__tmp96331 - (let ((__tmp96332 - (let ((__tmp96333 |[1]#_g96334_|)) + (cons 'where __tmp97497))) + (__tmp97492 + (let ((__tmp97493 + (let ((__tmp97494 |[1]#_g97495_|)) (declare (not safe)) - (cons 'continuation __tmp96333)))) + (cons 'continuation __tmp97494)))) (declare (not safe)) - (cons __tmp96332 '())))) + (cons __tmp97493 '())))) (declare (not safe)) - (cons __tmp96335 __tmp96331)))) + (cons __tmp97496 __tmp97492)))) (declare (not safe)) - (cons __tmp96338 __tmp96330)))) + (cons __tmp97499 __tmp97491)))) (declare (not safe)) - (cons __tmp96341 __tmp96329)))) + (cons __tmp97502 __tmp97490)))) (declare (not safe)) (##unchecked-structure-set! - __obj96011 - __tmp96328 - '14 + __obj97172 + __tmp97489 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj96011)) + __obj97172)) (define |[:0:]#RuntimeException| - (let ((__obj96012 + (let ((__obj97173 (let () (declare (not safe)) (##structure @@ -852,11 +879,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj96012 + __obj97173 'gerbil/runtime/error#RuntimeException::t '1 gerbil/core$$#class-type-info::t @@ -864,7 +892,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96012 + __obj97173 'RuntimeException '2 gerbil/core$$#class-type-info::t @@ -872,30 +900,30 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96012 + __obj97173 '(exception) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96344 - (let ((__tmp96347 |[1]#_g96273_|) - (__tmp96345 - (let ((__tmp96346 |[1]#_g96271_|)) + (let ((__tmp97505 + (let ((__tmp97508 |[1]#_g97434_|) + (__tmp97506 + (let ((__tmp97507 |[1]#_g97432_|)) (declare (not safe)) - (cons __tmp96346 '())))) + (cons __tmp97507 '())))) (declare (not safe)) - (cons __tmp96347 __tmp96345)))) + (cons __tmp97508 __tmp97506)))) (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96344 + __obj97173 + __tmp97505 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj96012 + __obj97173 '#f '5 gerbil/core$$#class-type-info::t @@ -903,7 +931,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96012 + __obj97173 '#f '6 gerbil/core$$#class-type-info::t @@ -911,971 +939,979 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj96012 + __obj97173 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96348 |[1]#_g96349_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96348 + __obj97173 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96350 |[1]#_g96351_|)) + (let ((__tmp97509 |[1]#_g97510_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96350 + __obj97173 + __tmp97509 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96352 |[1]#_g96353_|)) + (let ((__tmp97511 |[1]#_g97512_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96352 + __obj97173 + __tmp97511 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96354 - (let ((__tmp96359 - (let ((__tmp96360 |[1]#_g96361_|)) - (declare (not safe)) - (cons 'exception __tmp96360))) - (__tmp96355 - (let ((__tmp96356 - (let ((__tmp96357 |[1]#_g96358_|)) - (declare (not safe)) - (cons 'continuation __tmp96357)))) - (declare (not safe)) - (cons __tmp96356 '())))) - (declare (not safe)) - (cons __tmp96359 __tmp96355)))) + (let ((__tmp97513 |[1]#_g97514_|)) (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96354 + __obj97173 + __tmp97513 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96362 - (let ((__tmp96367 - (let ((__tmp96368 |[1]#_g96369_|)) + (let ((__tmp97515 + (let ((__tmp97520 + (let ((__tmp97521 |[1]#_g97522_|)) (declare (not safe)) - (cons 'exception __tmp96368))) - (__tmp96363 - (let ((__tmp96364 - (let ((__tmp96365 |[1]#_g96366_|)) + (cons 'exception __tmp97521))) + (__tmp97516 + (let ((__tmp97517 + (let ((__tmp97518 |[1]#_g97519_|)) (declare (not safe)) - (cons 'continuation __tmp96365)))) + (cons 'continuation __tmp97518)))) (declare (not safe)) - (cons __tmp96364 '())))) + (cons __tmp97517 '())))) (declare (not safe)) - (cons __tmp96367 __tmp96363)))) + (cons __tmp97520 __tmp97516)))) (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96362 + __obj97173 + __tmp97515 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96370 - (let ((__tmp96375 - (let ((__tmp96376 |[1]#_g96377_|)) + (let ((__tmp97523 + (let ((__tmp97528 + (let ((__tmp97529 |[1]#_g97530_|)) (declare (not safe)) - (cons 'exception __tmp96376))) - (__tmp96371 - (let ((__tmp96372 - (let ((__tmp96373 |[1]#_g96374_|)) + (cons 'exception __tmp97529))) + (__tmp97524 + (let ((__tmp97525 + (let ((__tmp97526 |[1]#_g97527_|)) (declare (not safe)) - (cons 'continuation __tmp96373)))) + (cons 'continuation __tmp97526)))) (declare (not safe)) - (cons __tmp96372 '())))) + (cons __tmp97525 '())))) (declare (not safe)) - (cons __tmp96375 __tmp96371)))) + (cons __tmp97528 __tmp97524)))) (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96370 + __obj97173 + __tmp97523 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp96378 - (let ((__tmp96383 - (let ((__tmp96384 |[1]#_g96385_|)) + (let ((__tmp97531 + (let ((__tmp97536 + (let ((__tmp97537 |[1]#_g97538_|)) (declare (not safe)) - (cons 'exception __tmp96384))) - (__tmp96379 - (let ((__tmp96380 - (let ((__tmp96381 |[1]#_g96382_|)) + (cons 'exception __tmp97537))) + (__tmp97532 + (let ((__tmp97533 + (let ((__tmp97534 |[1]#_g97535_|)) (declare (not safe)) - (cons 'continuation __tmp96381)))) + (cons 'continuation __tmp97534)))) (declare (not safe)) - (cons __tmp96380 '())))) + (cons __tmp97533 '())))) (declare (not safe)) - (cons __tmp96383 __tmp96379)))) + (cons __tmp97536 __tmp97532)))) (declare (not safe)) (##unchecked-structure-set! - __obj96012 - __tmp96378 + __obj97173 + __tmp97531 '14 gerbil/core$$#class-type-info::t '#f)) - __obj96012)) + (let ((__tmp97539 + (let ((__tmp97544 + (let ((__tmp97545 |[1]#_g97546_|)) + (declare (not safe)) + (cons 'exception __tmp97545))) + (__tmp97540 + (let ((__tmp97541 + (let ((__tmp97542 |[1]#_g97543_|)) + (declare (not safe)) + (cons 'continuation __tmp97542)))) + (declare (not safe)) + (cons __tmp97541 '())))) + (declare (not safe)) + (cons __tmp97544 __tmp97540)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj97173 + __tmp97539 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj97173)) (define |[:0:]#check-procedure| - (lambda (_$stx89803_) - (let* ((_g8980789825_ - (lambda (_g8980889821_) + (lambda (_$stx90964_) + (let* ((_g9096890986_ + (lambda (_g9096990982_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8980889821_))) - (_g8980689881_ - (lambda (_g8980889829_) - (if (gx#stx-pair? _g8980889829_) - (let ((_e8981389832_ (gx#syntax-e _g8980889829_))) - (let ((_hd8981289836_ + _g9096990982_))) + (_g9096791042_ + (lambda (_g9096990990_) + (if (gx#stx-pair? _g9096990990_) + (let ((_e9097490993_ (gx#syntax-e _g9096990990_))) + (let ((_hd9097390997_ (let () (declare (not safe)) - (##car _e8981389832_))) - (_tl8981189839_ + (##car _e9097490993_))) + (_tl9097291000_ (let () (declare (not safe)) - (##cdr _e8981389832_)))) - (if (gx#stx-pair? _tl8981189839_) - (let ((_e8981689842_ - (gx#syntax-e _tl8981189839_))) - (let ((_hd8981589846_ + (##cdr _e9097490993_)))) + (if (gx#stx-pair? _tl9097291000_) + (let ((_e9097791003_ + (gx#syntax-e _tl9097291000_))) + (let ((_hd9097691007_ (let () (declare (not safe)) - (##car _e8981689842_))) - (_tl8981489849_ + (##car _e9097791003_))) + (_tl9097591010_ (let () (declare (not safe)) - (##cdr _e8981689842_)))) - (if (gx#stx-pair? _tl8981489849_) - (let ((_e8981989852_ - (gx#syntax-e _tl8981489849_))) - (let ((_hd8981889856_ + (##cdr _e9097791003_)))) + (if (gx#stx-pair? _tl9097591010_) + (let ((_e9098091013_ + (gx#syntax-e _tl9097591010_))) + (let ((_hd9097991017_ (let () (declare (not safe)) - (##car _e8981989852_))) - (_tl8981789859_ + (##car _e9098091013_))) + (_tl9097891020_ (let () (declare (not safe)) - (##cdr _e8981989852_)))) - (if (gx#stx-null? _tl8981789859_) - ((lambda (_L89862_ _L89864_) - (let ((__tmp96407 + (##cdr _e9098091013_)))) + (if (gx#stx-null? _tl9097891020_) + ((lambda (_L91023_ _L91025_) + (let ((__tmp97568 (gx#datum->syntax '#f 'unless)) - (__tmp96386 - (let ((__tmp96404 - (let ((__tmp96406 + (__tmp97547 + (let ((__tmp97565 + (let ((__tmp97567 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp96405 + (__tmp97566 (let () (declare (not safe)) - (cons _L89864_ '())))) + (cons _L91025_ '())))) (declare (not safe)) - (cons __tmp96406 __tmp96405))) - (__tmp96387 - (let ((__tmp96388 - (let ((__tmp96403 (gx#datum->syntax '#f 'raise)) - (__tmp96389 - (let ((__tmp96390 - (let ((__tmp96402 + (cons __tmp97567 __tmp97566))) + (__tmp97548 + (let ((__tmp97549 + (let ((__tmp97564 (gx#datum->syntax '#f 'raise)) + (__tmp97550 + (let ((__tmp97551 + (let ((__tmp97563 (gx#datum->syntax '#f 'Error)) - (__tmp96391 - (let ((__tmp96392 - (let ((__tmp96393 + (__tmp97552 + (let ((__tmp97553 + (let ((__tmp97554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp96399 - (let ((__tmp96401 + (let ((__tmp97560 + (let ((__tmp97562 (gx#datum->syntax '#f 'quote)) - (__tmp96400 + (__tmp97561 (let () (declare (not safe)) - (cons _L89862_ '())))) + (cons _L91023_ '())))) (declare (not safe)) - (cons __tmp96401 __tmp96400))) - (__tmp96394 - (let ((__tmp96395 - (let ((__tmp96396 - (let ((__tmp96398 + (cons __tmp97562 __tmp97561))) + (__tmp97555 + (let ((__tmp97556 + (let ((__tmp97557 + (let ((__tmp97559 (gx#datum->syntax '#f '@list)) - (__tmp96397 + (__tmp97558 (let () (declare (not safe)) - (cons _L89864_ '())))) + (cons _L91025_ '())))) (declare (not safe)) - (cons __tmp96398 __tmp96397)))) + (cons __tmp97559 __tmp97558)))) (declare (not safe)) - (cons __tmp96396 '())))) + (cons __tmp97557 '())))) (declare (not safe)) - (cons 'irritants: __tmp96395)))) + (cons 'irritants: __tmp97556)))) (declare (not safe)) - (cons __tmp96399 __tmp96394)))) + (cons __tmp97560 __tmp97555)))) (declare (not safe)) - (cons 'where: __tmp96393)))) + (cons 'where: __tmp97554)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"expected procedure" - __tmp96392)))) + __tmp97553)))) (declare (not safe)) - (cons __tmp96402 __tmp96391)))) + (cons __tmp97563 __tmp97552)))) (declare (not safe)) - (cons __tmp96390 '())))) + (cons __tmp97551 '())))) (declare (not safe)) - (cons __tmp96403 __tmp96389)))) + (cons __tmp97564 __tmp97550)))) (declare (not safe)) - (cons __tmp96388 '())))) + (cons __tmp97549 '())))) (declare (not safe)) - (cons __tmp96404 __tmp96387)))) + (cons __tmp97565 __tmp97548)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96407 - __tmp96386))) - _hd8981889856_ - _hd8981589846_) - (_g8980789825_ _g8980889829_)))) - (_g8980789825_ _g8980889829_)))) - (_g8980789825_ _g8980889829_)))) - (_g8980789825_ _g8980889829_))))) - (_g8980689881_ _$stx89803_)))) + (cons __tmp97568 + __tmp97547))) + _hd9097991017_ + _hd9097691007_) + (_g9096890986_ _g9096990990_)))) + (_g9096890986_ _g9096990990_)))) + (_g9096890986_ _g9096990990_)))) + (_g9096890986_ _g9096990990_))))) + (_g9096791042_ _$stx90964_)))) (define |[:0:]#defruntime-exception| - (lambda (_stx89885_) - (let* ((_g8988889915_ - (lambda (_g8988989911_) + (lambda (_stx91046_) + (let* ((_g9104991076_ + (lambda (_g9105091072_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8988989911_))) - (_g8988790150_ - (lambda (_g8988989919_) - (if (gx#stx-pair? _g8988989919_) - (let ((_e8989489922_ (gx#syntax-e _g8988989919_))) - (let ((_hd8989389926_ + _g9105091072_))) + (_g9104891311_ + (lambda (_g9105091080_) + (if (gx#stx-pair? _g9105091080_) + (let ((_e9105591083_ (gx#syntax-e _g9105091080_))) + (let ((_hd9105491087_ (let () (declare (not safe)) - (##car _e8989489922_))) - (_tl8989289929_ + (##car _e9105591083_))) + (_tl9105391090_ (let () (declare (not safe)) - (##cdr _e8989489922_)))) - (if (gx#stx-pair? _tl8989289929_) - (let ((_e8989789932_ - (gx#syntax-e _tl8989289929_))) - (let ((_hd8989689936_ + (##cdr _e9105591083_)))) + (if (gx#stx-pair? _tl9105391090_) + (let ((_e9105891093_ + (gx#syntax-e _tl9105391090_))) + (let ((_hd9105791097_ (let () (declare (not safe)) - (##car _e8989789932_))) - (_tl8989589939_ + (##car _e9105891093_))) + (_tl9105691100_ (let () (declare (not safe)) - (##cdr _e8989789932_)))) - (if (gx#stx-pair? _hd8989689936_) - (let ((_e8990089942_ - (gx#syntax-e _hd8989689936_))) - (let ((_hd8989989946_ + (##cdr _e9105891093_)))) + (if (gx#stx-pair? _hd9105791097_) + (let ((_e9106191103_ + (gx#syntax-e _hd9105791097_))) + (let ((_hd9106091107_ (let () (declare (not safe)) - (##car _e8990089942_))) - (_tl8989889949_ + (##car _e9106191103_))) + (_tl9105991110_ (let () (declare (not safe)) - (##cdr _e8990089942_)))) + (##cdr _e9106191103_)))) (if (gx#stx-pair/null? - _tl8989889949_) - (let ((_g96408_ + _tl9105991110_) + (let ((_g97569_ (gx#syntax-split-splice - _tl8989889949_ + _tl9105991110_ '0))) (begin - (let ((_g96409_ + (let ((_g97570_ (let () (declare (not safe)) (if (##values? - _g96408_) + _g97569_) (##vector-length - _g96408_) + _g97569_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g96409_ 2))) - (error "Context expects 2 values" _g96409_))) + (##fx= _g97570_ 2))) + (error "Context expects 2 values" _g97570_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target8990189952_ + (let ((_target9106291113_ (let () (declare (not safe)) (##vector-ref - _g96408_ + _g97569_ 0))) - (_tl8990389955_ + (_tl9106491116_ (let () (declare (not safe)) (##vector-ref - _g96408_ + _g97569_ 1)))) (if (gx#stx-null? - _tl8990389955_) - (letrec ((_loop8990489958_ + _tl9106491116_) + (letrec ((_loop9106591119_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd8990289962_ _getf8990889965_) - (if (gx#stx-pair? _hd8990289962_) - (let ((_e8990589968_ - (gx#syntax-e _hd8990289962_))) - (let ((_lp-hd8990689972_ + (lambda (_hd9106391123_ _getf9106991126_) + (if (gx#stx-pair? _hd9106391123_) + (let ((_e9106691129_ + (gx#syntax-e _hd9106391123_))) + (let ((_lp-hd9106791133_ (let () (declare (not safe)) - (##car _e8990589968_))) - (_lp-tl8990789975_ + (##car _e9106691129_))) + (_lp-tl9106891136_ (let () (declare (not safe)) - (##cdr _e8990589968_)))) - (_loop8990489958_ - _lp-tl8990789975_ + (##cdr _e9106691129_)))) + (_loop9106591119_ + _lp-tl9106891136_ (let () (declare (not safe)) - (cons _lp-hd8990689972_ - _getf8990889965_))))) - (let ((_getf8990989978_ - (reverse _getf8990889965_))) - (if (gx#stx-null? _tl8989589939_) - ((lambda (_L89982_ _L89984_) - (let* ((_g9000490028_ - (lambda (_g9000590024_) + (cons _lp-hd9106791133_ + _getf9106991126_))))) + (let ((_getf9107091139_ + (reverse _getf9106991126_))) + (if (gx#stx-null? _tl9105691100_) + ((lambda (_L91143_ _L91145_) + (let* ((_g9116591189_ + (lambda (_g9116691185_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9000590024_))) - (_g9000390135_ - (lambda (_g9000590032_) + _g9116691185_))) + (_g9116491296_ + (lambda (_g9116691193_) (if (gx#stx-pair? - _g9000590032_) - (let ((_e9001090035_ + _g9116691193_) + (let ((_e9117191196_ (gx#syntax-e - _g9000590032_))) - (let ((_hd9000990039_ + _g9116691193_))) + (let ((_hd9117091200_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _e9001090035_))) - (_tl9000890042_ - (let () (declare (not safe)) (##cdr _e9001090035_)))) - (if (gx#stx-pair? _tl9000890042_) - (let ((_e9001390045_ (gx#syntax-e _tl9000890042_))) - (let ((_hd9001290049_ + (##car _e9117191196_))) + (_tl9116991203_ + (let () (declare (not safe)) (##cdr _e9117191196_)))) + (if (gx#stx-pair? _tl9116991203_) + (let ((_e9117491206_ (gx#syntax-e _tl9116991203_))) + (let ((_hd9117391210_ (let () (declare (not safe)) - (##car _e9001390045_))) - (_tl9001190052_ + (##car _e9117491206_))) + (_tl9117291213_ (let () (declare (not safe)) - (##cdr _e9001390045_)))) - (if (gx#stx-pair/null? _hd9001290049_) - (let ((_g96410_ + (##cdr _e9117491206_)))) + (if (gx#stx-pair/null? _hd9117391210_) + (let ((_g97571_ (gx#syntax-split-splice - _hd9001290049_ + _hd9117391210_ '0))) (begin - (let ((_g96411_ + (let ((_g97572_ (let () (declare (not safe)) - (if (##values? _g96410_) - (##vector-length _g96410_) + (if (##values? _g97571_) + (##vector-length _g97571_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g96411_ 2))) + (##fx= _g97572_ 2))) (error "Context expects 2 values" - _g96411_))) - (let ((_target9001490055_ + _g97572_))) + (let ((_target9117591216_ (let () (declare (not safe)) - (##vector-ref _g96410_ 0))) - (_tl9001690058_ + (##vector-ref _g97571_ 0))) + (_tl9117791219_ (let () (declare (not safe)) - (##vector-ref _g96410_ 1)))) - (if (gx#stx-null? _tl9001690058_) - (letrec ((_loop9001790061_ - (lambda (_hd9001590065_ - _macro-getf9002190068_) + (##vector-ref _g97571_ 1)))) + (if (gx#stx-null? _tl9117791219_) + (letrec ((_loop9117891222_ + (lambda (_hd9117691226_ + _macro-getf9118291229_) (if (gx#stx-pair? - _hd9001590065_) - (let ((_e9001890071_ + _hd9117691226_) + (let ((_e9117991232_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd9001590065_))) - (let ((_lp-hd9001990075_ - (let () (declare (not safe)) (##car _e9001890071_))) - (_lp-tl9002090078_ - (let () (declare (not safe)) (##cdr _e9001890071_)))) - (_loop9001790061_ - _lp-tl9002090078_ + _hd9117691226_))) + (let ((_lp-hd9118091236_ + (let () (declare (not safe)) (##car _e9117991232_))) + (_lp-tl9118191239_ + (let () (declare (not safe)) (##cdr _e9117991232_)))) + (_loop9117891222_ + _lp-tl9118191239_ (let () (declare (not safe)) - (cons _lp-hd9001990075_ _macro-getf9002190068_))))) - (let ((_macro-getf9002290081_ - (reverse _macro-getf9002190068_))) - (if (gx#stx-null? _tl9001190052_) - ((lambda (_L90085_ _L90087_) + (cons _lp-hd9118091236_ _macro-getf9118291229_))))) + (let ((_macro-getf9118391242_ + (reverse _macro-getf9118291229_))) + (if (gx#stx-null? _tl9117291213_) + ((lambda (_L91246_ _L91248_) (let () - (let ((__tmp96535 (gx#datum->syntax '#f 'begin)) - (__tmp96412 - (let ((__tmp96530 - (let ((__tmp96534 + (let ((__tmp97696 (gx#datum->syntax '#f 'begin)) + (__tmp97573 + (let ((__tmp97691 + (let ((__tmp97695 (gx#datum->syntax '#f 'extern)) - (__tmp96531 - (let ((__tmp96532 - (let ((__tmp96533 - (lambda (_g9011290115_ + (__tmp97692 + (let ((__tmp97693 + (let ((__tmp97694 + (lambda (_g9127391276_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9011390118_) + _g9127491279_) (let () (declare (not safe)) - (cons _g9011290115_ _g9011390118_))))) + (cons _g9127391276_ _g9127491279_))))) (declare (not safe)) - (foldr1 __tmp96533 '() _L90085_)))) + (foldr1 __tmp97694 '() _L91246_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L90087_ - __tmp96532)))) + (cons _L91248_ + __tmp97693)))) (declare (not safe)) - (cons __tmp96534 __tmp96531))) - (__tmp96413 - (let ((__tmp96497 - (let ((__tmp96529 + (cons __tmp97695 __tmp97692))) + (__tmp97574 + (let ((__tmp97658 + (let ((__tmp97690 (gx#datum->syntax '#f 'def)) - (__tmp96498 - (let ((__tmp96526 - (let ((__tmp96527 + (__tmp97659 + (let ((__tmp97687 + (let ((__tmp97688 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp96528 (gx#datum->syntax '#f 'exn))) + (let ((__tmp97689 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96528 '())))) + (cons __tmp97689 '())))) (declare (not safe)) - (cons _L89984_ __tmp96527))) - (__tmp96499 - (let ((__tmp96500 - (let ((__tmp96525 (gx#datum->syntax '#f 'if)) - (__tmp96501 - (let ((__tmp96521 - (let ((__tmp96524 + (cons _L91145_ __tmp97688))) + (__tmp97660 + (let ((__tmp97661 + (let ((__tmp97686 (gx#datum->syntax '#f 'if)) + (__tmp97662 + (let ((__tmp97682 + (let ((__tmp97685 (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp96522 - (let ((__tmp96523 + (__tmp97683 + (let ((__tmp97684 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96523 '())))) + (cons __tmp97684 '())))) (declare (not safe)) - (cons __tmp96524 __tmp96522))) - (__tmp96502 - (let ((__tmp96507 - (let ((__tmp96520 + (cons __tmp97685 __tmp97683))) + (__tmp97663 + (let ((__tmp97668 + (let ((__tmp97681 (gx#datum->syntax '#f 'let)) - (__tmp96508 - (let ((__tmp96513 + (__tmp97669 + (let ((__tmp97674 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp96519 (gx#datum->syntax '#f 'e)) - (__tmp96514 - (let ((__tmp96515 - (let ((__tmp96518 + (let ((__tmp97680 (gx#datum->syntax '#f 'e)) + (__tmp97675 + (let ((__tmp97676 + (let ((__tmp97679 (gx#datum->syntax '#f '&RuntimeException-exception)) - (__tmp96516 - (let ((__tmp96517 + (__tmp97677 + (let ((__tmp97678 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96517 '())))) + (cons __tmp97678 '())))) (declare (not safe)) - (cons __tmp96518 __tmp96516)))) + (cons __tmp97679 __tmp97677)))) (declare (not safe)) - (cons __tmp96515 '())))) + (cons __tmp97676 '())))) (declare (not safe)) - (cons __tmp96519 __tmp96514))) - (__tmp96509 - (let ((__tmp96510 - (let ((__tmp96511 - (let ((__tmp96512 + (cons __tmp97680 __tmp97675))) + (__tmp97670 + (let ((__tmp97671 + (let ((__tmp97672 + (let ((__tmp97673 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp96512 '())))) + (cons __tmp97673 '())))) (declare (not safe)) - (cons _L90087_ __tmp96511)))) + (cons _L91248_ __tmp97672)))) (declare (not safe)) - (cons __tmp96510 '())))) + (cons __tmp97671 '())))) (declare (not safe)) - (cons __tmp96513 __tmp96509)))) + (cons __tmp97674 __tmp97670)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96520 - __tmp96508))) - (__tmp96503 - (let ((__tmp96504 - (let ((__tmp96505 + (cons __tmp97681 + __tmp97669))) + (__tmp97664 + (let ((__tmp97665 + (let ((__tmp97666 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp96506 (gx#datum->syntax '#f 'exn))) + (let ((__tmp97667 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96506 '())))) + (cons __tmp97667 '())))) (declare (not safe)) - (cons _L90087_ __tmp96505)))) + (cons _L91248_ __tmp97666)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96504 '())))) + (cons __tmp97665 '())))) (declare (not safe)) - (cons __tmp96507 __tmp96503)))) + (cons __tmp97668 __tmp97664)))) (declare (not safe)) - (cons __tmp96521 __tmp96502)))) + (cons __tmp97682 __tmp97663)))) (declare (not safe)) - (cons __tmp96525 __tmp96501)))) + (cons __tmp97686 __tmp97662)))) (declare (not safe)) - (cons __tmp96500 '())))) + (cons __tmp97661 '())))) (declare (not safe)) - (cons __tmp96526 __tmp96499)))) + (cons __tmp97687 __tmp97660)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96529 - __tmp96498))) - (__tmp96414 + (cons __tmp97690 + __tmp97659))) + (__tmp97575 (begin (gx#syntax-check-splice-targets - _L89982_ - _L90085_ - _L89982_ - _L90085_ - _L89982_) - (let ((__tmp96415 - (lambda (_g9010690121_ + _L91143_ + _L91246_ + _L91143_ + _L91246_ + _L91143_) + (let ((__tmp97576 + (lambda (_g9126791282_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9010790124_ - _g9010890126_ - _g9010990128_ - _g9011090130_ - _g9011190132_) - (let ((__tmp96416 - (let ((__tmp96496 (gx#datum->syntax '#f 'def)) - (__tmp96417 - (let ((__tmp96493 - (let ((__tmp96494 - (let ((__tmp96495 + _g9126891285_ + _g9126991287_ + _g9127091289_ + _g9127191291_ + _g9127291293_) + (let ((__tmp97577 + (let ((__tmp97657 (gx#datum->syntax '#f 'def)) + (__tmp97578 + (let ((__tmp97654 + (let ((__tmp97655 + (let ((__tmp97656 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96495 '())))) + (cons __tmp97656 '())))) (declare (not safe)) - (cons _g9010690121_ __tmp96494))) - (__tmp96418 - (let ((__tmp96419 - (let ((__tmp96492 + (cons _g9126791282_ __tmp97655))) + (__tmp97579 + (let ((__tmp97580 + (let ((__tmp97653 (gx#datum->syntax '#f 'if)) - (__tmp96420 - (let ((__tmp96488 - (let ((__tmp96491 + (__tmp97581 + (let ((__tmp97649 + (let ((__tmp97652 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'RuntimeException?)) - (__tmp96489 - (let ((__tmp96490 (gx#datum->syntax '#f 'exn))) + (__tmp97650 + (let ((__tmp97651 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96490 '())))) + (cons __tmp97651 '())))) (declare (not safe)) - (cons __tmp96491 __tmp96489))) - (__tmp96421 - (let ((__tmp96450 - (let ((__tmp96487 (gx#datum->syntax '#f 'let)) - (__tmp96451 - (let ((__tmp96480 - (let ((__tmp96486 + (cons __tmp97652 __tmp97650))) + (__tmp97582 + (let ((__tmp97611 + (let ((__tmp97648 (gx#datum->syntax '#f 'let)) + (__tmp97612 + (let ((__tmp97641 + (let ((__tmp97647 (gx#datum->syntax '#f 'e)) - (__tmp96481 - (let ((__tmp96482 - (let ((__tmp96485 + (__tmp97642 + (let ((__tmp97643 + (let ((__tmp97646 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&RuntimeException-exception)) - (__tmp96483 - (let ((__tmp96484 (gx#datum->syntax '#f 'exn))) + (__tmp97644 + (let ((__tmp97645 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96484 '())))) + (cons __tmp97645 '())))) (declare (not safe)) - (cons __tmp96485 __tmp96483)))) + (cons __tmp97646 __tmp97644)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96482 '())))) + (cons __tmp97643 '())))) (declare (not safe)) - (cons __tmp96486 __tmp96481))) - (__tmp96452 - (let ((__tmp96453 - (let ((__tmp96479 + (cons __tmp97647 __tmp97642))) + (__tmp97613 + (let ((__tmp97614 + (let ((__tmp97640 (gx#datum->syntax '#f 'if)) - (__tmp96454 - (let ((__tmp96476 - (let ((__tmp96477 + (__tmp97615 + (let ((__tmp97637 + (let ((__tmp97638 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp96478 (gx#datum->syntax '#f 'e))) + (let ((__tmp97639 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp96478 '())))) + (cons __tmp97639 '())))) (declare (not safe)) - (cons _L90087_ __tmp96477))) - (__tmp96455 - (let ((__tmp96473 - (let ((__tmp96474 - (let ((__tmp96475 + (cons _L91248_ __tmp97638))) + (__tmp97616 + (let ((__tmp97634 + (let ((__tmp97635 + (let ((__tmp97636 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp96475 '())))) + (cons __tmp97636 '())))) (declare (not safe)) - (cons _g9010790124_ __tmp96474))) - (__tmp96456 - (let ((__tmp96457 - (let ((__tmp96472 + (cons _g9126891285_ __tmp97635))) + (__tmp97617 + (let ((__tmp97618 + (let ((__tmp97633 (gx#datum->syntax '#f 'error)) - (__tmp96458 - (let ((__tmp96459 - (let ((__tmp96469 - (let ((__tmp96471 + (__tmp97619 + (let ((__tmp97620 + (let ((__tmp97630 + (let ((__tmp97632 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'quote)) - (__tmp96470 - (let () (declare (not safe)) (cons _L89984_ '())))) + (__tmp97631 + (let () (declare (not safe)) (cons _L91145_ '())))) (declare (not safe)) - (cons __tmp96471 __tmp96470))) - (__tmp96460 - (let ((__tmp96461 - (let ((__tmp96468 (gx#datum->syntax '#f '@list)) - (__tmp96462 - (let ((__tmp96465 - (let ((__tmp96467 + (cons __tmp97632 __tmp97631))) + (__tmp97621 + (let ((__tmp97622 + (let ((__tmp97629 (gx#datum->syntax '#f '@list)) + (__tmp97623 + (let ((__tmp97626 + (let ((__tmp97628 (gx#datum->syntax '#f 'quote)) - (__tmp96466 + (__tmp97627 (let () (declare (not safe)) - (cons _g9010690121_ '())))) + (cons _g9126791282_ '())))) (declare (not safe)) - (cons __tmp96467 __tmp96466))) - (__tmp96463 - (let ((__tmp96464 + (cons __tmp97628 __tmp97627))) + (__tmp97624 + (let ((__tmp97625 (gx#datum->syntax '#f 'e))) (declare (not safe)) - (cons __tmp96464 '())))) + (cons __tmp97625 '())))) (declare (not safe)) - (cons __tmp96465 __tmp96463)))) + (cons __tmp97626 __tmp97624)))) (declare (not safe)) - (cons __tmp96468 __tmp96462)))) + (cons __tmp97629 __tmp97623)))) (declare (not safe)) - (cons __tmp96461 '())))) + (cons __tmp97622 '())))) (declare (not safe)) - (cons __tmp96469 __tmp96460)))) + (cons __tmp97630 __tmp97621)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '"not an instance" - __tmp96459)))) + __tmp97620)))) (declare (not safe)) - (cons __tmp96472 __tmp96458)))) + (cons __tmp97633 __tmp97619)))) (declare (not safe)) - (cons __tmp96457 '())))) + (cons __tmp97618 '())))) (declare (not safe)) - (cons __tmp96473 __tmp96456)))) + (cons __tmp97634 __tmp97617)))) (declare (not safe)) - (cons __tmp96476 __tmp96455)))) + (cons __tmp97637 __tmp97616)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96479 - __tmp96454)))) + (cons __tmp97640 + __tmp97615)))) (declare (not safe)) - (cons __tmp96453 '())))) + (cons __tmp97614 '())))) (declare (not safe)) - (cons __tmp96480 __tmp96452)))) + (cons __tmp97641 __tmp97613)))) (declare (not safe)) - (cons __tmp96487 __tmp96451))) - (__tmp96422 - (let ((__tmp96423 - (let ((__tmp96449 + (cons __tmp97648 __tmp97612))) + (__tmp97583 + (let ((__tmp97584 + (let ((__tmp97610 (gx#datum->syntax '#f 'if)) - (__tmp96424 - (let ((__tmp96446 - (let ((__tmp96447 - (let ((__tmp96448 + (__tmp97585 + (let ((__tmp97607 + (let ((__tmp97608 + (let ((__tmp97609 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'exn))) (declare (not safe)) - (cons __tmp96448 '())))) + (cons __tmp97609 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L90087_ - __tmp96447))) - (__tmp96425 - (let ((__tmp96443 - (let ((__tmp96444 - (let ((__tmp96445 + (cons _L91248_ + __tmp97608))) + (__tmp97586 + (let ((__tmp97604 + (let ((__tmp97605 + (let ((__tmp97606 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96445 '())))) + (cons __tmp97606 '())))) (declare (not safe)) - (cons _g9010790124_ __tmp96444))) - (__tmp96426 - (let ((__tmp96427 - (let ((__tmp96442 (gx#datum->syntax '#f 'error)) - (__tmp96428 - (let ((__tmp96429 - (let ((__tmp96439 - (let ((__tmp96441 + (cons _g9126891285_ __tmp97605))) + (__tmp97587 + (let ((__tmp97588 + (let ((__tmp97603 (gx#datum->syntax '#f 'error)) + (__tmp97589 + (let ((__tmp97590 + (let ((__tmp97600 + (let ((__tmp97602 (gx#datum->syntax '#f 'quote)) - (__tmp96440 + (__tmp97601 (let () (declare (not safe)) - (cons _L89984_ '())))) + (cons _L91145_ '())))) (declare (not safe)) - (cons __tmp96441 __tmp96440))) - (__tmp96430 - (let ((__tmp96431 - (let ((__tmp96438 + (cons __tmp97602 __tmp97601))) + (__tmp97591 + (let ((__tmp97592 + (let ((__tmp97599 (gx#datum->syntax '#f '@list)) - (__tmp96432 - (let ((__tmp96435 + (__tmp97593 + (let ((__tmp97596 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp96437 (gx#datum->syntax '#f 'quote)) - (__tmp96436 + (let ((__tmp97598 (gx#datum->syntax '#f 'quote)) + (__tmp97597 (let () (declare (not safe)) - (cons _g9010690121_ '())))) + (cons _g9126791282_ '())))) (declare (not safe)) - (cons __tmp96437 __tmp96436))) - (__tmp96433 - (let ((__tmp96434 (gx#datum->syntax '#f 'exn))) + (cons __tmp97598 __tmp97597))) + (__tmp97594 + (let ((__tmp97595 (gx#datum->syntax '#f 'exn))) (declare (not safe)) - (cons __tmp96434 '())))) + (cons __tmp97595 '())))) (declare (not safe)) - (cons __tmp96435 __tmp96433)))) + (cons __tmp97596 __tmp97594)))) (declare (not safe)) - (cons __tmp96438 __tmp96432)))) + (cons __tmp97599 __tmp97593)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96431 '())))) + (cons __tmp97592 '())))) (declare (not safe)) - (cons __tmp96439 __tmp96430)))) + (cons __tmp97600 __tmp97591)))) (declare (not safe)) - (cons '"not an instance" __tmp96429)))) + (cons '"not an instance" __tmp97590)))) (declare (not safe)) - (cons __tmp96442 __tmp96428)))) + (cons __tmp97603 __tmp97589)))) (declare (not safe)) - (cons __tmp96427 '())))) + (cons __tmp97588 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96443 - __tmp96426)))) + (cons __tmp97604 + __tmp97587)))) (declare (not safe)) - (cons __tmp96446 __tmp96425)))) + (cons __tmp97607 __tmp97586)))) (declare (not safe)) - (cons __tmp96449 __tmp96424)))) + (cons __tmp97610 __tmp97585)))) (declare (not safe)) - (cons __tmp96423 '())))) + (cons __tmp97584 '())))) (declare (not safe)) - (cons __tmp96450 __tmp96422)))) + (cons __tmp97611 __tmp97583)))) (declare (not safe)) - (cons __tmp96488 __tmp96421)))) + (cons __tmp97649 __tmp97582)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp96492 - __tmp96420)))) + (cons __tmp97653 + __tmp97581)))) (declare (not safe)) - (cons __tmp96419 '())))) + (cons __tmp97580 '())))) (declare (not safe)) - (cons __tmp96493 __tmp96418)))) + (cons __tmp97654 __tmp97579)))) (declare (not safe)) - (cons __tmp96496 __tmp96417)))) + (cons __tmp97657 __tmp97578)))) (declare (not safe)) - (cons __tmp96416 _g9011190132_))))) + (cons __tmp97577 _g9127291293_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr* __tmp96415 + (foldr* __tmp97576 '() - _L89982_ - _L90085_ - _L89982_ - _L90085_ - _L89982_))))) + _L91143_ + _L91246_ + _L91143_ + _L91246_ + _L91143_))))) (declare (not safe)) - (cons __tmp96497 __tmp96414)))) + (cons __tmp97658 __tmp97575)))) (declare (not safe)) - (cons __tmp96530 __tmp96413)))) + (cons __tmp97691 __tmp97574)))) (declare (not safe)) - (cons __tmp96535 __tmp96412)))) - _macro-getf9002290081_ - _hd9000990039_) - (_g9000490028_ _g9000590032_))))))) + (cons __tmp97696 __tmp97573)))) + _macro-getf9118391242_ + _hd9117091200_) + (_g9116591189_ _g9116691193_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9001790061_ - _target9001490055_ + (_loop9117891222_ + _target9117591216_ '())) - (_g9000490028_ _g9000590032_))))) - (_g9000490028_ _g9000590032_)))) - (_g9000490028_ _g9000590032_)))) - (_g9000490028_ _g9000590032_))))) + (_g9116591189_ _g9116691193_))))) + (_g9116591189_ _g9116691193_)))) + (_g9116591189_ _g9116691193_)))) + (_g9116591189_ _g9116691193_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g9000390135_ + (_g9116491296_ (list (gx#stx-identifier - _L89984_ + _L91145_ '"macro-" - _L89984_) - (map (lambda (_f90139_) + _L91145_) + (map (lambda (_f91300_) (gx#stx-identifier - _f90139_ + _f91300_ '"macro-" - _f90139_)) - (let ((__tmp96536 - (lambda (_g9014190144_ + _f91300_)) + (let ((__tmp97697 + (lambda (_g9130291305_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g9014290147_) + _g9130391308_) (let () (declare (not safe)) - (cons _g9014190144_ _g9014290147_))))) + (cons _g9130291305_ _g9130391308_))))) (declare (not safe)) - (foldr1 __tmp96536 '() _L89982_))))))) + (foldr1 __tmp97697 '() _L91143_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _getf8990989978_ - _hd8989989946_) - (_g8988889915_ _g8988989919_))))))) - (_loop8990489958_ _target8990189952_ '())) - (_g8988889915_ _g8988989919_))))) + _getf9107091139_ + _hd9106091107_) + (_g9104991076_ _g9105091080_))))))) + (_loop9106591119_ _target9106291113_ '())) + (_g9104991076_ _g9105091080_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8988889915_ _g8988989919_)))) - (_g8988889915_ _g8988989919_)))) - (_g8988889915_ _g8988989919_)))) - (_g8988889915_ _g8988989919_))))) - (_g8988790150_ _stx89885_)))) + (_g9104991076_ _g9105091080_)))) + (_g9104991076_ _g9105091080_)))) + (_g9104991076_ _g9105091080_)))) + (_g9104991076_ _g9105091080_))))) + (_g9104891311_ _stx91046_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_$stx90156_) - (let* ((_g9016090180_ - (lambda (_g9016190176_) + (lambda (_$stx91317_) + (let* ((_g9132191341_ + (lambda (_g9132291337_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g9016190176_))) - (_g9015990251_ - (lambda (_g9016190184_) - (if (gx#stx-pair? _g9016190184_) - (let ((_e9016590187_ (gx#syntax-e _g9016190184_))) - (let ((_hd9016490191_ + _g9132291337_))) + (_g9132091412_ + (lambda (_g9132291345_) + (if (gx#stx-pair? _g9132291345_) + (let ((_e9132691348_ (gx#syntax-e _g9132291345_))) + (let ((_hd9132591352_ (let () (declare (not safe)) - (##car _e9016590187_))) - (_tl9016390194_ + (##car _e9132691348_))) + (_tl9132491355_ (let () (declare (not safe)) - (##cdr _e9016590187_)))) - (if (gx#stx-pair/null? _tl9016390194_) - (let ((_g96537_ + (##cdr _e9132691348_)))) + (if (gx#stx-pair/null? _tl9132491355_) + (let ((_g97698_ (gx#syntax-split-splice - _tl9016390194_ + _tl9132491355_ '0))) (begin - (let ((_g96538_ + (let ((_g97699_ (let () (declare (not safe)) - (if (##values? _g96537_) - (##vector-length _g96537_) + (if (##values? _g97698_) + (##vector-length _g97698_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g96538_ 2))) + (##fx= _g97699_ 2))) (error "Context expects 2 values" - _g96538_))) - (let ((_target9016690197_ + _g97699_))) + (let ((_target9132791358_ (let () (declare (not safe)) - (##vector-ref _g96537_ 0))) - (_tl9016890200_ + (##vector-ref _g97698_ 0))) + (_tl9132991361_ (let () (declare (not safe)) - (##vector-ref _g96537_ 1)))) - (if (gx#stx-null? _tl9016890200_) - (letrec ((_loop9016990203_ - (lambda (_hd9016790207_ - _defexn9017390210_) + (##vector-ref _g97698_ 1)))) + (if (gx#stx-null? _tl9132991361_) + (letrec ((_loop9133091364_ + (lambda (_hd9132891368_ + _defexn9133491371_) (if (gx#stx-pair? - _hd9016790207_) - (let ((_e9017090213_ + _hd9132891368_) + (let ((_e9133191374_ (gx#syntax-e - _hd9016790207_))) - (let ((_lp-hd9017190217_ + _hd9132891368_))) + (let ((_lp-hd9133291378_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _e9017090213_))) - (_lp-tl9017290220_ - (let () (declare (not safe)) (##cdr _e9017090213_)))) - (_loop9016990203_ - _lp-tl9017290220_ + (let () (declare (not safe)) (##car _e9133191374_))) + (_lp-tl9133391381_ + (let () (declare (not safe)) (##cdr _e9133191374_)))) + (_loop9133091364_ + _lp-tl9133391381_ (let () (declare (not safe)) - (cons _lp-hd9017190217_ _defexn9017390210_))))) - (let ((_defexn9017490223_ (reverse _defexn9017390210_))) - ((lambda (_L90227_) - (let ((__tmp96544 (gx#datum->syntax '#f 'begin)) - (__tmp96539 - (let ((__tmp96540 - (lambda (_g9024290245_ _g9024390248_) - (let ((__tmp96541 - (let ((__tmp96543 + (cons _lp-hd9133291378_ _defexn9133491371_))))) + (let ((_defexn9133591384_ (reverse _defexn9133491371_))) + ((lambda (_L91388_) + (let ((__tmp97705 (gx#datum->syntax '#f 'begin)) + (__tmp97700 + (let ((__tmp97701 + (lambda (_g9140391406_ _g9140491409_) + (let ((__tmp97702 + (let ((__tmp97704 (gx#datum->syntax '#f 'defruntime-exception)) - (__tmp96542 + (__tmp97703 (let () (declare (not safe)) - (cons _g9024290245_ + (cons _g9140391406_ '())))) (declare (not safe)) - (cons __tmp96543 __tmp96542)))) + (cons __tmp97704 __tmp97703)))) (declare (not safe)) - (cons __tmp96541 _g9024390248_))))) + (cons __tmp97702 _g9140491409_))))) (declare (not safe)) - (foldr1 __tmp96540 '() _L90227_)))) + (foldr1 __tmp97701 '() _L91388_)))) (declare (not safe)) - (cons __tmp96544 __tmp96539))) - _defexn9017490223_)))))) + (cons __tmp97705 __tmp97700))) + _defexn9133591384_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop9016990203_ - _target9016690197_ + (_loop9133091364_ + _target9132791358_ '())) - (_g9016090180_ _g9016190184_))))) - (_g9016090180_ _g9016190184_)))) - (_g9016090180_ _g9016190184_))))) - (_g9015990251_ _$stx90156_)))))) + (_g9132191341_ _g9132291345_))))) + (_g9132191341_ _g9132291345_)))) + (_g9132191341_ _g9132291345_))))) + (_g9132091412_ _$stx91317_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval.ssxi.ss b/src/bootstrap/gerbil/runtime/eval.ssxi.ss index 15a0f7d24..6de4528d4 100644 --- a/src/bootstrap/gerbil/runtime/eval.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/eval.ssxi.ss @@ -12,6 +12,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __context? (@predicate __context::t)) (declare-type make-__context (@constructor __context::t)) @@ -33,7 +34,7 @@ package: gerbil/runtime (declare-type &__context-table-set! (@mutator __context::t table #f)) (declare-type __runtime::t - (@class gerbil/runtime/eval#__runtime::t () () (id) (id) #f #t #f #f)) + (@class gerbil/runtime/eval#__runtime::t () () (id) (id) #f #t #f #f #f)) (declare-type __runtime? (@predicate __runtime::t)) (declare-type make-__runtime (@constructor __runtime::t)) (declare-type __runtime-id (@accessor __runtime::t id #t)) @@ -42,7 +43,7 @@ package: gerbil/runtime (declare-type &__runtime-id-set! (@mutator __runtime::t id #f)) (declare-type __syntax::t - (@class gerbil/runtime/eval#__syntax::t () () (e id) (e id) #f #t #f #f)) + (@class gerbil/runtime/eval#__syntax::t () () (e id) (e id) #f #t #f #f #f)) (declare-type __syntax? (@predicate __syntax::t)) (declare-type make-__syntax (@constructor __syntax::t)) (declare-type __syntax-e (@accessor __syntax::t e #t)) @@ -63,6 +64,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __macro? (@predicate __macro::t)) (declare-type make-__macro (@constructor __macro::t)) @@ -84,6 +86,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __special-form? (@predicate __special-form::t)) (declare-type make-__special-form (@constructor __special-form::t)) @@ -105,6 +108,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __core-form? (@predicate __core-form::t)) (declare-type make-__core-form (@constructor __core-form::t)) @@ -126,6 +130,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __core-expression? (@predicate __core-expression::t)) (declare-type make-__core-expression (@constructor __core-expression::t)) @@ -151,6 +156,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __core-special-form? (@predicate __core-special-form::t)) (declare-type make-__core-special-form (@constructor __core-special-form::t)) @@ -184,6 +190,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __struct-info? (@predicate __struct-info::t)) (declare-type make-__struct-info (@constructor __struct-info::t)) @@ -205,6 +212,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __feature? (@predicate __feature::t)) (declare-type make-__feature (@constructor __feature::t)) @@ -226,6 +234,7 @@ package: gerbil/runtime #f #t #f + #f #f)) (declare-type __module? (@predicate __module::t)) (declare-type make-__module (@constructor __module::t)) diff --git a/src/bootstrap/gerbil/runtime/eval__0.scm b/src/bootstrap/gerbil/runtime/eval__0.scm index d93bf4393..31e60de76 100644 --- a/src/bootstrap/gerbil/runtime/eval__0.scm +++ b/src/bootstrap/gerbil/runtime/eval__0.scm @@ -1,26 +1,26 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1707773926) + (define gerbil/runtime/eval::timestamp 1708102801) (begin (define __context::t - (let ((__tmp114950 (list)) - (__tmp114948 - (let ((__tmp114949 + (let ((__tmp116111 (list)) + (__tmp116109 + (let ((__tmp116110 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114949 '())))) + (cons __tmp116110 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__context::t '__context - __tmp114950 + __tmp116111 '(t ns super table) - __tmp114948 + __tmp116109 '#f))) (define __context? (let () (declare (not safe)) (make-class-predicate __context::t))) (define make-__context - (lambda _$args110184_ (apply make-instance __context::t _$args110184_))) + (lambda _$args111345_ (apply make-instance __context::t _$args111345_))) (define __context-t (let () (declare (not safe)) (make-class-slot-accessor __context::t 't))) (define __context-ns @@ -80,24 +80,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __context::t 'table))) (define __runtime::t - (let ((__tmp114953 (list)) - (__tmp114951 - (let ((__tmp114952 + (let ((__tmp116114 (list)) + (__tmp116112 + (let ((__tmp116113 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114952 '())))) + (cons __tmp116113 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__runtime::t '__runtime - __tmp114953 + __tmp116114 '(id) - __tmp114951 + __tmp116112 '#f))) (define __runtime? (let () (declare (not safe)) (make-class-predicate __runtime::t))) (define make-__runtime - (lambda _$args110181_ (apply make-instance __runtime::t _$args110181_))) + (lambda _$args111342_ (apply make-instance __runtime::t _$args111342_))) (define __runtime-id (let () (declare (not safe)) @@ -113,24 +113,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __runtime::t 'id))) (define __syntax::t - (let ((__tmp114956 (list)) - (__tmp114954 - (let ((__tmp114955 + (let ((__tmp116117 (list)) + (__tmp116115 + (let ((__tmp116116 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114955 '())))) + (cons __tmp116116 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp114956 + __tmp116117 '(e id) - __tmp114954 + __tmp116115 '#f))) (define __syntax? (let () (declare (not safe)) (make-class-predicate __syntax::t))) (define make-__syntax - (lambda _$args110178_ (apply make-instance __syntax::t _$args110178_))) + (lambda _$args111339_ (apply make-instance __syntax::t _$args111339_))) (define __syntax-e (let () (declare (not safe)) (make-class-slot-accessor __syntax::t 'e))) (define __syntax-id @@ -156,24 +156,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __syntax::t 'id))) (define __macro::t - (let ((__tmp114959 (list __syntax::t)) - (__tmp114957 - (let ((__tmp114958 + (let ((__tmp116120 (list __syntax::t)) + (__tmp116118 + (let ((__tmp116119 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114958 '())))) + (cons __tmp116119 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__macro::t '__macro - __tmp114959 + __tmp116120 '() - __tmp114957 + __tmp116118 '#f))) (define __macro? (let () (declare (not safe)) (make-class-predicate __macro::t))) (define make-__macro - (lambda _$args110175_ (apply make-instance __macro::t _$args110175_))) + (lambda _$args111336_ (apply make-instance __macro::t _$args111336_))) (define __macro-e (let () (declare (not safe)) (make-class-slot-accessor __macro::t 'e))) (define __macro-id @@ -199,25 +199,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __macro::t 'id))) (define __special-form::t - (let ((__tmp114962 (list __macro::t)) - (__tmp114960 - (let ((__tmp114961 + (let ((__tmp116123 (list __macro::t)) + (__tmp116121 + (let ((__tmp116122 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114961 '())))) + (cons __tmp116122 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__special-form::t '__special-form - __tmp114962 + __tmp116123 '() - __tmp114960 + __tmp116121 '#f))) (define __special-form? (let () (declare (not safe)) (make-class-predicate __special-form::t))) (define make-__special-form - (lambda _$args110172_ - (apply make-instance __special-form::t _$args110172_))) + (lambda _$args111333_ + (apply make-instance __special-form::t _$args111333_))) (define __special-form-e (let () (declare (not safe)) @@ -251,25 +251,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __special-form::t 'id))) (define __core-form::t - (let ((__tmp114965 (list __syntax::t)) - (__tmp114963 - (let ((__tmp114964 + (let ((__tmp116126 (list __syntax::t)) + (__tmp116124 + (let ((__tmp116125 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114964 '())))) + (cons __tmp116125 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp114965 + __tmp116126 '() - __tmp114963 + __tmp116124 '#f))) (define __core-form? (let () (declare (not safe)) (make-class-predicate __core-form::t))) (define make-__core-form - (lambda _$args110169_ - (apply make-instance __core-form::t _$args110169_))) + (lambda _$args111330_ + (apply make-instance __core-form::t _$args111330_))) (define __core-form-e (let () (declare (not safe)) @@ -303,27 +303,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp114968 (list __core-form::t)) - (__tmp114966 - (let ((__tmp114967 + (let ((__tmp116129 (list __core-form::t)) + (__tmp116127 + (let ((__tmp116128 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114967 '())))) + (cons __tmp116128 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp114968 + __tmp116129 '() - __tmp114966 + __tmp116127 '#f))) (define __core-expression? (let () (declare (not safe)) (make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _$args110166_ - (apply make-instance __core-expression::t _$args110166_))) + (lambda _$args111327_ + (apply make-instance __core-expression::t _$args111327_))) (define __core-expression-e (let () (declare (not safe)) @@ -357,27 +357,27 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp114971 (list __core-form::t)) - (__tmp114969 - (let ((__tmp114970 + (let ((__tmp116132 (list __core-form::t)) + (__tmp116130 + (let ((__tmp116131 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114970 '())))) + (cons __tmp116131 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp114971 + __tmp116132 '() - __tmp114969 + __tmp116130 '#f))) (define __core-special-form? (let () (declare (not safe)) (make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _$args110163_ - (apply make-instance __core-special-form::t _$args110163_))) + (lambda _$args111324_ + (apply make-instance __core-special-form::t _$args111324_))) (define __core-special-form-e (let () (declare (not safe)) @@ -411,25 +411,25 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __core-special-form::t 'id))) (define __struct-info::t - (let ((__tmp114974 (list __syntax::t)) - (__tmp114972 - (let ((__tmp114973 + (let ((__tmp116135 (list __syntax::t)) + (__tmp116133 + (let ((__tmp116134 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114973 '())))) + (cons __tmp116134 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__struct-info::t '__struct-info - __tmp114974 + __tmp116135 '() - __tmp114972 + __tmp116133 '#f))) (define __struct-info? (let () (declare (not safe)) (make-class-predicate __struct-info::t))) (define make-__struct-info - (lambda _$args110160_ - (apply make-instance __struct-info::t _$args110160_))) + (lambda _$args111321_ + (apply make-instance __struct-info::t _$args111321_))) (define __struct-info-e (let () (declare (not safe)) @@ -463,24 +463,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __struct-info::t 'id))) (define __feature::t - (let ((__tmp114977 (list __syntax::t)) - (__tmp114975 - (let ((__tmp114976 + (let ((__tmp116138 (list __syntax::t)) + (__tmp116136 + (let ((__tmp116137 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114976 '())))) + (cons __tmp116137 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__feature::t '__feature - __tmp114977 + __tmp116138 '() - __tmp114975 + __tmp116136 '#f))) (define __feature? (let () (declare (not safe)) (make-class-predicate __feature::t))) (define make-__feature - (lambda _$args110157_ (apply make-instance __feature::t _$args110157_))) + (lambda _$args111318_ (apply make-instance __feature::t _$args111318_))) (define __feature-e (let () (declare (not safe)) (make-class-slot-accessor __feature::t 'e))) (define __feature-id @@ -508,24 +508,24 @@ (declare (not safe)) (make-class-slot-unchecked-mutator __feature::t 'id))) (define __module::t - (let ((__tmp114980 (list __context::t)) - (__tmp114978 - (let ((__tmp114979 + (let ((__tmp116141 (list __context::t)) + (__tmp116139 + (let ((__tmp116140 (let () (declare (not safe)) (cons 'struct: '#t)))) (declare (not safe)) - (cons __tmp114979 '())))) + (cons __tmp116140 '())))) (declare (not safe)) (make-class-type 'gerbil/runtime/eval#__module::t '__module - __tmp114980 + __tmp116141 '(id path import export) - __tmp114978 + __tmp116139 '#f))) (define __module? (let () (declare (not safe)) (make-class-predicate __module::t))) (define make-__module - (lambda _$args110154_ (apply make-instance __module::t _$args110154_))) + (lambda _$args111315_ (apply make-instance __module::t _$args111315_))) (define __module-id (let () (declare (not safe)) (make-class-slot-accessor __module::t 'id))) (define __module-path @@ -645,750 +645,750 @@ (define __*modules* (let () (declare (not safe)) (make-table))) (define __*core* (let () (declare (not safe)) (make-table 'test: eq?))) (define __*top* - (let ((__tmp114982 + (let ((__tmp116143 (let () (declare (not safe)) (##structure __context::t 'root '#f '#f __*core*))) - (__tmp114981 + (__tmp116142 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'top '#f __tmp114982 __tmp114981))) + (##structure __context::t 'top '#f __tmp116143 __tmp116142))) (define __current-expander (make-parameter '#f)) (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve__% - (lambda (_id110129_ _ctx110130_) - (if _ctx110130_ - (let ((_id110132_ - (let () (declare (not safe)) (__AST-e _id110129_)))) - (let _lp110134_ ((_ctx110136_ _ctx110130_)) - (let ((_$e110138_ + (lambda (_id111290_ _ctx111291_) + (if _ctx111291_ + (let ((_id111293_ + (let () (declare (not safe)) (__AST-e _id111290_)))) + (let _lp111295_ ((_ctx111297_ _ctx111291_)) + (let ((_$e111299_ (table-ref - (##structure-ref _ctx110136_ '4 __context::t '#f) - _id110132_ + (##structure-ref _ctx111297_ '4 __context::t '#f) + _id111293_ '#f))) - (if _$e110138_ - (values _$e110138_) - (let ((_$e110141_ + (if _$e111299_ + (values _$e111299_) + (let ((_$e111302_ (##structure-ref - _ctx110136_ + _ctx111297_ '3 __context::t '#f))) - (if _$e110141_ + (if _$e111302_ (let () (declare (not safe)) - (_lp110134_ _$e110141_)) + (_lp111295_ _$e111302_)) '#f)))))) '#f))) (define __core-resolve__0 - (lambda (_id110147_) - (let ((_ctx110149_ (__current-context))) + (lambda (_id111308_) + (let ((_ctx111310_ (__current-context))) (declare (not safe)) - (__core-resolve__% _id110147_ _ctx110149_)))) + (__core-resolve__% _id111308_ _ctx111310_)))) (define __core-resolve - (lambda _g114984_ - (let ((_g114983_ (let () (declare (not safe)) (##length _g114984_)))) - (cond ((let () (declare (not safe)) (##fx= _g114983_ 1)) - (apply (lambda (_id110147_) + (lambda _g116145_ + (let ((_g116144_ (let () (declare (not safe)) (##length _g116145_)))) + (cond ((let () (declare (not safe)) (##fx= _g116144_ 1)) + (apply (lambda (_id111308_) (let () (declare (not safe)) - (__core-resolve__0 _id110147_))) - _g114984_)) - ((let () (declare (not safe)) (##fx= _g114983_ 2)) - (apply (lambda (_id110151_ _ctx110152_) + (__core-resolve__0 _id111308_))) + _g116145_)) + ((let () (declare (not safe)) (##fx= _g116144_ 2)) + (apply (lambda (_id111312_ _ctx111313_) (let () (declare (not safe)) - (__core-resolve__% _id110151_ _ctx110152_))) - _g114984_)) + (__core-resolve__% _id111312_ _ctx111313_))) + _g116145_)) (else (##raise-wrong-number-of-arguments-exception __core-resolve - _g114984_)))))) + _g116145_)))))) (define __core-bound-id?__% - (lambda (_id110112_ _is?110113_) - (let ((_$e110115_ - (let () (declare (not safe)) (__core-resolve__0 _id110112_)))) - (if _$e110115_ (_is?110113_ _$e110115_) '#f)))) + (lambda (_id111273_ _is?111274_) + (let ((_$e111276_ + (let () (declare (not safe)) (__core-resolve__0 _id111273_)))) + (if _$e111276_ (_is?111274_ _$e111276_) '#f)))) (define __core-bound-id?__0 - (lambda (_id110121_) - (let ((_is?110123_ true)) + (lambda (_id111282_) + (let ((_is?111284_ true)) (declare (not safe)) - (__core-bound-id?__% _id110121_ _is?110123_)))) + (__core-bound-id?__% _id111282_ _is?111284_)))) (define __core-bound-id? - (lambda _g114986_ - (let ((_g114985_ (let () (declare (not safe)) (##length _g114986_)))) - (cond ((let () (declare (not safe)) (##fx= _g114985_ 1)) - (apply (lambda (_id110121_) + (lambda _g116147_ + (let ((_g116146_ (let () (declare (not safe)) (##length _g116147_)))) + (cond ((let () (declare (not safe)) (##fx= _g116146_ 1)) + (apply (lambda (_id111282_) (let () (declare (not safe)) - (__core-bound-id?__0 _id110121_))) - _g114986_)) - ((let () (declare (not safe)) (##fx= _g114985_ 2)) - (apply (lambda (_id110125_ _is?110126_) + (__core-bound-id?__0 _id111282_))) + _g116147_)) + ((let () (declare (not safe)) (##fx= _g116146_ 2)) + (apply (lambda (_id111286_ _is?111287_) (let () (declare (not safe)) - (__core-bound-id?__% _id110125_ _is?110126_))) - _g114986_)) + (__core-bound-id?__% _id111286_ _is?111287_))) + _g116147_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g114986_)))))) + _g116147_)))))) (define __core-bind-runtime!__% - (lambda (_id110095_ _eid110096_ _ctx110097_) - (if _eid110096_ - (let ((__tmp114989 - (##structure-ref _ctx110097_ '4 __context::t '#f)) - (__tmp114988 - (let () (declare (not safe)) (__AST-e _id110095_))) - (__tmp114987 + (lambda (_id111256_ _eid111257_ _ctx111258_) + (if _eid111257_ + (let ((__tmp116150 + (##structure-ref _ctx111258_ '4 __context::t '#f)) + (__tmp116149 + (let () (declare (not safe)) (__AST-e _id111256_))) + (__tmp116148 (let () (declare (not safe)) - (##structure __runtime::t _eid110096_)))) + (##structure __runtime::t _eid111257_)))) (declare (not safe)) - (table-set! __tmp114989 __tmp114988 __tmp114987)) + (table-set! __tmp116150 __tmp116149 __tmp116148)) '#!void))) (define __core-bind-runtime!__0 - (lambda (_id110102_ _eid110103_) - (let ((_ctx110105_ (__current-context))) + (lambda (_id111263_ _eid111264_) + (let ((_ctx111266_ (__current-context))) (declare (not safe)) - (__core-bind-runtime!__% _id110102_ _eid110103_ _ctx110105_)))) + (__core-bind-runtime!__% _id111263_ _eid111264_ _ctx111266_)))) (define __core-bind-runtime! - (lambda _g114991_ - (let ((_g114990_ (let () (declare (not safe)) (##length _g114991_)))) - (cond ((let () (declare (not safe)) (##fx= _g114990_ 2)) - (apply (lambda (_id110102_ _eid110103_) + (lambda _g116152_ + (let ((_g116151_ (let () (declare (not safe)) (##length _g116152_)))) + (cond ((let () (declare (not safe)) (##fx= _g116151_ 2)) + (apply (lambda (_id111263_ _eid111264_) (let () (declare (not safe)) - (__core-bind-runtime!__0 _id110102_ _eid110103_))) - _g114991_)) - ((let () (declare (not safe)) (##fx= _g114990_ 3)) - (apply (lambda (_id110107_ _eid110108_ _ctx110109_) + (__core-bind-runtime!__0 _id111263_ _eid111264_))) + _g116152_)) + ((let () (declare (not safe)) (##fx= _g116151_ 3)) + (apply (lambda (_id111268_ _eid111269_ _ctx111270_) (let () (declare (not safe)) (__core-bind-runtime!__% - _id110107_ - _eid110108_ - _ctx110109_))) - _g114991_)) + _id111268_ + _eid111269_ + _ctx111270_))) + _g116152_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-runtime! - _g114991_)))))) + _g116152_)))))) (define __core-bind-syntax!__% - (lambda (_id110078_ _e110079_ _make110080_) - (let ((__tmp114992 + (lambda (_id111239_ _e111240_ _make111241_) + (let ((__tmp116153 (if (let () (declare (not safe)) (##structure-instance-of? - _e110079_ + _e111240_ 'gerbil/runtime/eval#__syntax::t)) - _e110079_ - (_make110080_ _e110079_ _id110078_)))) + _e111240_ + (_make111241_ _e111240_ _id111239_)))) (declare (not safe)) - (table-set! __*core* _id110078_ __tmp114992)))) + (table-set! __*core* _id111239_ __tmp116153)))) (define __core-bind-syntax!__0 - (lambda (_id110085_ _e110086_) - (let ((_make110088_ make-__syntax)) + (lambda (_id111246_ _e111247_) + (let ((_make111249_ make-__syntax)) (declare (not safe)) - (__core-bind-syntax!__% _id110085_ _e110086_ _make110088_)))) + (__core-bind-syntax!__% _id111246_ _e111247_ _make111249_)))) (define __core-bind-syntax! - (lambda _g114994_ - (let ((_g114993_ (let () (declare (not safe)) (##length _g114994_)))) - (cond ((let () (declare (not safe)) (##fx= _g114993_ 2)) - (apply (lambda (_id110085_ _e110086_) + (lambda _g116155_ + (let ((_g116154_ (let () (declare (not safe)) (##length _g116155_)))) + (cond ((let () (declare (not safe)) (##fx= _g116154_ 2)) + (apply (lambda (_id111246_ _e111247_) (let () (declare (not safe)) - (__core-bind-syntax!__0 _id110085_ _e110086_))) - _g114994_)) - ((let () (declare (not safe)) (##fx= _g114993_ 3)) - (apply (lambda (_id110090_ _e110091_ _make110092_) + (__core-bind-syntax!__0 _id111246_ _e111247_))) + _g116155_)) + ((let () (declare (not safe)) (##fx= _g116154_ 3)) + (apply (lambda (_id111251_ _e111252_ _make111253_) (let () (declare (not safe)) (__core-bind-syntax!__% - _id110090_ - _e110091_ - _make110092_))) - _g114994_)) + _id111251_ + _e111252_ + _make111253_))) + _g116155_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g114994_)))))) + _g116155_)))))) (define __core-bind-macro! - (lambda (_id110074_ _e110075_) + (lambda (_id111235_ _e111236_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id110074_ _e110075_ make-__macro)))) + (__core-bind-syntax!__% _id111235_ _e111236_ make-__macro)))) (define __core-bind-special-form! - (lambda (_id110071_ _e110072_) + (lambda (_id111232_ _e111233_) (let () (declare (not safe)) - (__core-bind-syntax!__% _id110071_ _e110072_ make-__special-form)))) + (__core-bind-syntax!__% _id111232_ _e111233_ make-__special-form)))) (define __core-bind-user-syntax!__% - (lambda (_id110055_ _e110056_ _ctx110057_) - (let ((__tmp114998 (##structure-ref _ctx110057_ '4 __context::t '#f)) - (__tmp114997 (let () (declare (not safe)) (__AST-e _id110055_))) - (__tmp114995 + (lambda (_id111216_ _e111217_ _ctx111218_) + (let ((__tmp116159 (##structure-ref _ctx111218_ '4 __context::t '#f)) + (__tmp116158 (let () (declare (not safe)) (__AST-e _id111216_))) + (__tmp116156 (if (let () (declare (not safe)) (##structure-instance-of? - _e110056_ + _e111217_ 'gerbil/runtime/eval#__syntax::t)) - _e110056_ - (let ((__tmp114996 - (let () (declare (not safe)) (__AST-e _id110055_)))) + _e111217_ + (let ((__tmp116157 + (let () (declare (not safe)) (__AST-e _id111216_)))) (declare (not safe)) - (##structure __syntax::t _e110056_ __tmp114996))))) + (##structure __syntax::t _e111217_ __tmp116157))))) (declare (not safe)) - (table-set! __tmp114998 __tmp114997 __tmp114995)))) + (table-set! __tmp116159 __tmp116158 __tmp116156)))) (define __core-bind-user-syntax!__0 - (lambda (_id110062_ _e110063_) - (let ((_ctx110065_ (__current-context))) + (lambda (_id111223_ _e111224_) + (let ((_ctx111226_ (__current-context))) (declare (not safe)) - (__core-bind-user-syntax!__% _id110062_ _e110063_ _ctx110065_)))) + (__core-bind-user-syntax!__% _id111223_ _e111224_ _ctx111226_)))) (define __core-bind-user-syntax! - (lambda _g115000_ - (let ((_g114999_ (let () (declare (not safe)) (##length _g115000_)))) - (cond ((let () (declare (not safe)) (##fx= _g114999_ 2)) - (apply (lambda (_id110062_ _e110063_) + (lambda _g116161_ + (let ((_g116160_ (let () (declare (not safe)) (##length _g116161_)))) + (cond ((let () (declare (not safe)) (##fx= _g116160_ 2)) + (apply (lambda (_id111223_ _e111224_) (let () (declare (not safe)) (__core-bind-user-syntax!__0 - _id110062_ - _e110063_))) - _g115000_)) - ((let () (declare (not safe)) (##fx= _g114999_ 3)) - (apply (lambda (_id110067_ _e110068_ _ctx110069_) + _id111223_ + _e111224_))) + _g116161_)) + ((let () (declare (not safe)) (##fx= _g116160_ 3)) + (apply (lambda (_id111228_ _e111229_ _ctx111230_) (let () (declare (not safe)) (__core-bind-user-syntax!__% - _id110067_ - _e110068_ - _ctx110069_))) - _g115000_)) + _id111228_ + _e111229_ + _ctx111230_))) + _g116161_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-user-syntax! - _g115000_)))))) + _g116161_)))))) (define make-__runtime-id__% - (lambda (_id110036_ _ctx110037_) - (let ((_id110039_ (let () (declare (not safe)) (__AST-e _id110036_)))) - (if (let () (declare (not safe)) (eq? _id110039_ '_)) + (lambda (_id111197_ _ctx111198_) + (let ((_id111200_ (let () (declare (not safe)) (__AST-e _id111197_)))) + (if (let () (declare (not safe)) (eq? _id111200_ '_)) '#f - (if (uninterned-symbol? _id110039_) - (gensym _id110039_) - (if (let () (declare (not safe)) (symbol? _id110039_)) - (let ((_$e110041_ + (if (uninterned-symbol? _id111200_) + (gensym _id111200_) + (if (let () (declare (not safe)) (symbol? _id111200_)) + (let ((_$e111202_ (##structure-ref - _ctx110037_ + _ctx111198_ '1 __context::t '#f))) (if (let () (declare (not safe)) - (eq? 'local _$e110041_)) - (gensym _id110039_) + (eq? 'local _$e111202_)) + (gensym _id111200_) (if (let () (declare (not safe)) - (eq? 'module _$e110041_)) - (let ((__tmp115001 + (eq? 'module _$e111202_)) + (let ((__tmp116162 (##structure-ref - _ctx110037_ + _ctx111198_ '2 __context::t '#f))) (declare (not safe)) - (make-symbol__1 __tmp115001 '"#" _id110039_)) - _id110039_))) - (error '"Illegal runtime identifier" _id110039_))))))) + (make-symbol__1 __tmp116162 '"#" _id111200_)) + _id111200_))) + (error '"Illegal runtime identifier" _id111200_))))))) (define make-__runtime-id__0 - (lambda (_id110047_) - (let ((_ctx110049_ (__current-context))) + (lambda (_id111208_) + (let ((_ctx111210_ (__current-context))) (declare (not safe)) - (make-__runtime-id__% _id110047_ _ctx110049_)))) + (make-__runtime-id__% _id111208_ _ctx111210_)))) (define make-__runtime-id - (lambda _g115003_ - (let ((_g115002_ (let () (declare (not safe)) (##length _g115003_)))) - (cond ((let () (declare (not safe)) (##fx= _g115002_ 1)) - (apply (lambda (_id110047_) + (lambda _g116164_ + (let ((_g116163_ (let () (declare (not safe)) (##length _g116164_)))) + (cond ((let () (declare (not safe)) (##fx= _g116163_ 1)) + (apply (lambda (_id111208_) (let () (declare (not safe)) - (make-__runtime-id__0 _id110047_))) - _g115003_)) - ((let () (declare (not safe)) (##fx= _g115002_ 2)) - (apply (lambda (_id110051_ _ctx110052_) + (make-__runtime-id__0 _id111208_))) + _g116164_)) + ((let () (declare (not safe)) (##fx= _g116163_ 2)) + (apply (lambda (_id111212_ _ctx111213_) (let () (declare (not safe)) - (make-__runtime-id__% _id110051_ _ctx110052_))) - _g115003_)) + (make-__runtime-id__% _id111212_ _ctx111213_))) + _g116164_)) (else (##raise-wrong-number-of-arguments-exception make-__runtime-id - _g115003_)))))) + _g116164_)))))) (define make-__context-local__% - (lambda (_super110025_) - (let ((__tmp115004 + (lambda (_super111186_) + (let ((__tmp116165 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (##structure __context::t 'local '#f _super110025_ __tmp115004)))) + (##structure __context::t 'local '#f _super111186_ __tmp116165)))) (define make-__context-local__0 (lambda () - (let ((_super110031_ (__current-context))) + (let ((_super111192_ (__current-context))) (declare (not safe)) - (make-__context-local__% _super110031_)))) + (make-__context-local__% _super111192_)))) (define make-__context-local - (lambda _g115006_ - (let ((_g115005_ (let () (declare (not safe)) (##length _g115006_)))) - (cond ((let () (declare (not safe)) (##fx= _g115005_ 0)) + (lambda _g116167_ + (let ((_g116166_ (let () (declare (not safe)) (##length _g116167_)))) + (cond ((let () (declare (not safe)) (##fx= _g116166_ 0)) (apply (lambda () (let () (declare (not safe)) (make-__context-local__0))) - _g115006_)) - ((let () (declare (not safe)) (##fx= _g115005_ 1)) - (apply (lambda (_super110033_) + _g116167_)) + ((let () (declare (not safe)) (##fx= _g116166_ 1)) + (apply (lambda (_super111194_) (let () (declare (not safe)) - (make-__context-local__% _super110033_))) - _g115006_)) + (make-__context-local__% _super111194_))) + _g116167_)) (else (##raise-wrong-number-of-arguments-exception make-__context-local - _g115006_)))))) + _g116167_)))))) (define make-__context-module__% - (lambda (_id110005_ _ns110006_ _path110007_ _super110008_) - (let ((__tmp115007 + (lambda (_id111166_ _ns111167_ _path111168_ _super111169_) + (let ((__tmp116168 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) (##structure __module::t 'module - _ns110006_ - _super110008_ - __tmp115007 - _id110005_ - _path110007_ + _ns111167_ + _super111169_ + __tmp116168 + _id111166_ + _path111168_ '#f '#f)))) (define make-__context-module__0 - (lambda (_id110013_ _ns110014_ _path110015_) - (let ((_super110017_ (__current-context))) + (lambda (_id111174_ _ns111175_ _path111176_) + (let ((_super111178_ (__current-context))) (declare (not safe)) (make-__context-module__% - _id110013_ - _ns110014_ - _path110015_ - _super110017_)))) + _id111174_ + _ns111175_ + _path111176_ + _super111178_)))) (define make-__context-module - (lambda _g115009_ - (let ((_g115008_ (let () (declare (not safe)) (##length _g115009_)))) - (cond ((let () (declare (not safe)) (##fx= _g115008_ 3)) - (apply (lambda (_id110013_ _ns110014_ _path110015_) + (lambda _g116170_ + (let ((_g116169_ (let () (declare (not safe)) (##length _g116170_)))) + (cond ((let () (declare (not safe)) (##fx= _g116169_ 3)) + (apply (lambda (_id111174_ _ns111175_ _path111176_) (let () (declare (not safe)) (make-__context-module__0 - _id110013_ - _ns110014_ - _path110015_))) - _g115009_)) - ((let () (declare (not safe)) (##fx= _g115008_ 4)) - (apply (lambda (_id110019_ - _ns110020_ - _path110021_ - _super110022_) + _id111174_ + _ns111175_ + _path111176_))) + _g116170_)) + ((let () (declare (not safe)) (##fx= _g116169_ 4)) + (apply (lambda (_id111180_ + _ns111181_ + _path111182_ + _super111183_) (let () (declare (not safe)) (make-__context-module__% - _id110019_ - _ns110020_ - _path110021_ - _super110022_))) - _g115009_)) + _id111180_ + _ns111181_ + _path111182_ + _super111183_))) + _g116170_)) (else (##raise-wrong-number-of-arguments-exception make-__context-module - _g115009_)))))) + _g116170_)))))) (define __SRC__% - (lambda (_e109988_ _src-stx109989_) - (if (or (let () (declare (not safe)) (pair? _e109988_)) - (let () (declare (not safe)) (symbol? _e109988_))) - (let ((__tmp115013 + (lambda (_e111149_ _src-stx111150_) + (if (or (let () (declare (not safe)) (pair? _e111149_)) + (let () (declare (not safe)) (symbol? _e111149_))) + (let ((__tmp116174 (if (let () (declare (not safe)) (##structure-instance-of? - _src-stx109989_ + _src-stx111150_ 'gerbil#AST::t)) - (let ((__tmp115014 + (let ((__tmp116175 (let () (declare (not safe)) - (__AST-source _src-stx109989_)))) + (__AST-source _src-stx111150_)))) (declare (not safe)) - (__locat __tmp115014)) + (__locat __tmp116175)) '#f))) (declare (not safe)) - (##make-source _e109988_ __tmp115013)) + (##make-source _e111149_ __tmp116174)) (if (let () (declare (not safe)) - (##structure-instance-of? _e109988_ 'gerbil#AST::t)) - (let ((__tmp115012 + (##structure-instance-of? _e111149_ 'gerbil#AST::t)) + (let ((__tmp116173 (let () (declare (not safe)) - (##unchecked-structure-ref _e109988_ '1 AST::t '#f))) - (__tmp115010 - (let ((__tmp115011 + (##unchecked-structure-ref _e111149_ '1 AST::t '#f))) + (__tmp116171 + (let ((__tmp116172 (let () (declare (not safe)) - (__AST-source _e109988_)))) + (__AST-source _e111149_)))) (declare (not safe)) - (__locat __tmp115011)))) + (__locat __tmp116172)))) (declare (not safe)) - (##make-source __tmp115012 __tmp115010)) - (error '"BUG! Cannot sourcify object" _e109988_))))) + (##make-source __tmp116173 __tmp116171)) + (error '"BUG! Cannot sourcify object" _e111149_))))) (define __SRC__0 - (lambda (_e109997_) - (let ((_src-stx109999_ '#f)) + (lambda (_e111158_) + (let ((_src-stx111160_ '#f)) (declare (not safe)) - (__SRC__% _e109997_ _src-stx109999_)))) + (__SRC__% _e111158_ _src-stx111160_)))) (define __SRC - (lambda _g115016_ - (let ((_g115015_ (let () (declare (not safe)) (##length _g115016_)))) - (cond ((let () (declare (not safe)) (##fx= _g115015_ 1)) - (apply (lambda (_e109997_) - (let () (declare (not safe)) (__SRC__0 _e109997_))) - _g115016_)) - ((let () (declare (not safe)) (##fx= _g115015_ 2)) - (apply (lambda (_e110001_ _src-stx110002_) + (lambda _g116177_ + (let ((_g116176_ (let () (declare (not safe)) (##length _g116177_)))) + (cond ((let () (declare (not safe)) (##fx= _g116176_ 1)) + (apply (lambda (_e111158_) + (let () (declare (not safe)) (__SRC__0 _e111158_))) + _g116177_)) + ((let () (declare (not safe)) (##fx= _g116176_ 2)) + (apply (lambda (_e111162_ _src-stx111163_) (let () (declare (not safe)) - (__SRC__% _e110001_ _src-stx110002_))) - _g115016_)) + (__SRC__% _e111162_ _src-stx111163_))) + _g116177_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g115016_)))))) + _g116177_)))))) (define __locat - (lambda (_loc109985_) - (if (let () (declare (not safe)) (##locat? _loc109985_)) - _loc109985_ + (lambda (_loc111146_) + (if (let () (declare (not safe)) (##locat? _loc111146_)) + _loc111146_ '#f))) (define __check-values - (lambda (_obj109980_ _k109981_) - (let ((_count109983_ - (if (let () (declare (not safe)) (##values? _obj109980_)) - (let () (declare (not safe)) (##vector-length _obj109980_)) + (lambda (_obj111141_ _k111142_) + (let ((_count111144_ + (if (let () (declare (not safe)) (##values? _obj111141_)) + (let () (declare (not safe)) (##vector-length _obj111141_)) '1))) - (if (fx= _count109983_ _k109981_) + (if (fx= _count111144_ _k111142_) '#!void - (error (if (fx< _count109983_ _k109981_) + (error (if (fx< _count111144_ _k111142_) '"Too few values for context" '"Too many values for context") - (if (let () (declare (not safe)) (##values? _obj109980_)) + (if (let () (declare (not safe)) (##values? _obj111141_)) (let () (declare (not safe)) - (##vector->list _obj109980_)) - _obj109980_) - _k109981_))))) + (##vector->list _obj111141_)) + _obj111141_) + _k111142_))))) (define __compile - (lambda (_stx109950_) - (let* ((_$e109952_ _stx109950_) - (_$E109954109960_ + (lambda (_stx111111_) + (let* ((_$e111113_ _stx111111_) + (_$E111115111121_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109952_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109952_)) - (let* ((_$tgt109955109963_ - (let () (declare (not safe)) (__AST-e _$e109952_))) - (_$hd109956109966_ - (let () (declare (not safe)) (##car _$tgt109955109963_))) - (_$tl109957109969_ + _$e111113_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e111113_)) + (let* ((_$tgt111116111124_ + (let () (declare (not safe)) (__AST-e _$e111113_))) + (_$hd111117111127_ + (let () (declare (not safe)) (##car _$tgt111116111124_))) + (_$tl111118111130_ (let () (declare (not safe)) - (##cdr _$tgt109955109963_)))) - (let* ((_form109973_ _$hd109956109966_) - (_$e109975_ + (##cdr _$tgt111116111124_)))) + (let* ((_form111134_ _$hd111117111127_) + (_$e111136_ (let () (declare (not safe)) - (__core-resolve__0 _form109973_)))) - (if _$e109975_ - ((lambda (_bind109978_) - ((##structure-ref _bind109978_ '1 __syntax::t '#f) - _stx109950_)) - _$e109975_) + (__core-resolve__0 _form111134_)))) + (if _$e111136_ + ((lambda (_bind111139_) + ((##structure-ref _bind111139_ '1 __syntax::t '#f) + _stx111111_)) + _$e111136_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _stx109950_ - _form109973_))))) - (let () (declare (not safe)) (_$E109954109960_)))))) + _stx111111_ + _form111134_))))) + (let () (declare (not safe)) (_$E111115111121_)))))) (define __compile-error__% - (lambda (_stx109937_ _detail109938_) + (lambda (_stx111098_ _detail111099_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _stx109937_ - _detail109938_)))) + _stx111098_ + _detail111099_)))) (define __compile-error__0 - (lambda (_stx109943_) - (let ((_detail109945_ '#f)) + (lambda (_stx111104_) + (let ((_detail111106_ '#f)) (declare (not safe)) - (__compile-error__% _stx109943_ _detail109945_)))) + (__compile-error__% _stx111104_ _detail111106_)))) (define __compile-error - (lambda _g115018_ - (let ((_g115017_ (let () (declare (not safe)) (##length _g115018_)))) - (cond ((let () (declare (not safe)) (##fx= _g115017_ 1)) - (apply (lambda (_stx109943_) + (lambda _g116179_ + (let ((_g116178_ (let () (declare (not safe)) (##length _g116179_)))) + (cond ((let () (declare (not safe)) (##fx= _g116178_ 1)) + (apply (lambda (_stx111104_) (let () (declare (not safe)) - (__compile-error__0 _stx109943_))) - _g115018_)) - ((let () (declare (not safe)) (##fx= _g115017_ 2)) - (apply (lambda (_stx109947_ _detail109948_) + (__compile-error__0 _stx111104_))) + _g116179_)) + ((let () (declare (not safe)) (##fx= _g116178_ 2)) + (apply (lambda (_stx111108_ _detail111109_) (let () (declare (not safe)) - (__compile-error__% _stx109947_ _detail109948_))) - _g115018_)) + (__compile-error__% _stx111108_ _detail111109_))) + _g116179_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g115018_)))))) + _g116179_)))))) (define __compile-ignore% - (lambda (_stx109934_) - (let () (declare (not safe)) (__SRC__% ''#!void _stx109934_)))) + (lambda (_stx111095_) + (let () (declare (not safe)) (__SRC__% ''#!void _stx111095_)))) (define __compile-begin% - (lambda (_stx109909_) - (let* ((_$e109911_ _stx109909_) - (_$E109913109919_ + (lambda (_stx111070_) + (let* ((_$e111072_ _stx111070_) + (_$E111074111080_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109911_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109911_)) - (let* ((_$tgt109914109922_ - (let () (declare (not safe)) (__AST-e _$e109911_))) - (_$hd109915109925_ - (let () (declare (not safe)) (##car _$tgt109914109922_))) - (_$tl109916109928_ + _$e111072_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e111072_)) + (let* ((_$tgt111075111083_ + (let () (declare (not safe)) (__AST-e _$e111072_))) + (_$hd111076111086_ + (let () (declare (not safe)) (##car _$tgt111075111083_))) + (_$tl111077111089_ (let () (declare (not safe)) - (##cdr _$tgt109914109922_)))) - (let* ((_body109932_ _$tl109916109928_) - (__tmp115019 - (let ((__tmp115020 (map __compile _body109932_))) + (##cdr _$tgt111075111083_)))) + (let* ((_body111093_ _$tl111077111089_) + (__tmp116180 + (let ((__tmp116181 (map __compile _body111093_))) (declare (not safe)) - (cons 'begin __tmp115020)))) + (cons 'begin __tmp116181)))) (declare (not safe)) - (__SRC__% __tmp115019 _stx109909_))) - (let () (declare (not safe)) (_$E109913109919_)))))) + (__SRC__% __tmp116180 _stx111070_))) + (let () (declare (not safe)) (_$E111074111080_)))))) (define __compile-begin-foreign% - (lambda (_stx109884_) - (let* ((_$e109886_ _stx109884_) - (_$E109888109894_ + (lambda (_stx111045_) + (let* ((_$e111047_ _stx111045_) + (_$E111049111055_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109886_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109886_)) - (let* ((_$tgt109889109897_ - (let () (declare (not safe)) (__AST-e _$e109886_))) - (_$hd109890109900_ - (let () (declare (not safe)) (##car _$tgt109889109897_))) - (_$tl109891109903_ + _$e111047_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e111047_)) + (let* ((_$tgt111050111058_ + (let () (declare (not safe)) (__AST-e _$e111047_))) + (_$hd111051111061_ + (let () (declare (not safe)) (##car _$tgt111050111058_))) + (_$tl111052111064_ (let () (declare (not safe)) - (##cdr _$tgt109889109897_)))) - (let* ((_body109907_ _$tl109891109903_) - (__tmp115021 - (let ((__tmp115022 + (##cdr _$tgt111050111058_)))) + (let* ((_body111068_ _$tl111052111064_) + (__tmp116182 + (let ((__tmp116183 (let () (declare (not safe)) - (__AST->datum _body109907_)))) + (__AST->datum _body111068_)))) (declare (not safe)) - (cons 'begin __tmp115022)))) + (cons 'begin __tmp116183)))) (declare (not safe)) - (__SRC__% __tmp115021 _stx109884_))) - (let () (declare (not safe)) (_$E109888109894_)))))) + (__SRC__% __tmp116182 _stx111045_))) + (let () (declare (not safe)) (_$E111049111055_)))))) (define __compile-import% - (lambda (_stx109859_) - (let* ((_$e109861_ _stx109859_) - (_$E109863109869_ + (lambda (_stx111020_) + (let* ((_$e111022_ _stx111020_) + (_$E111024111030_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109861_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109861_)) - (let* ((_$tgt109864109872_ - (let () (declare (not safe)) (__AST-e _$e109861_))) - (_$hd109865109875_ - (let () (declare (not safe)) (##car _$tgt109864109872_))) - (_$tl109866109878_ + _$e111022_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e111022_)) + (let* ((_$tgt111025111033_ + (let () (declare (not safe)) (__AST-e _$e111022_))) + (_$hd111026111036_ + (let () (declare (not safe)) (##car _$tgt111025111033_))) + (_$tl111027111039_ (let () (declare (not safe)) - (##cdr _$tgt109864109872_)))) - (let* ((_body109882_ _$tl109866109878_) - (__tmp115023 - (let ((__tmp115024 - (let ((__tmp115025 - (let ((__tmp115026 + (##cdr _$tgt111025111033_)))) + (let* ((_body111043_ _$tl111027111039_) + (__tmp116184 + (let ((__tmp116185 + (let ((__tmp116186 + (let ((__tmp116187 (let () (declare (not safe)) - (cons _body109882_ '())))) + (cons _body111043_ '())))) (declare (not safe)) - (cons 'quote __tmp115026)))) + (cons 'quote __tmp116187)))) (declare (not safe)) - (cons __tmp115025 '())))) + (cons __tmp116186 '())))) (declare (not safe)) - (cons '__eval-import __tmp115024)))) + (cons '__eval-import __tmp116185)))) (declare (not safe)) - (__SRC__% __tmp115023 _stx109859_))) - (let () (declare (not safe)) (_$E109863109869_)))))) + (__SRC__% __tmp116184 _stx111020_))) + (let () (declare (not safe)) (_$E111024111030_)))))) (define __compile-begin-annotation% - (lambda (_stx109806_) - (let* ((_$e109808_ _stx109806_) - (_$E109810109822_ + (lambda (_stx110967_) + (let* ((_$e110969_ _stx110967_) + (_$E110971110983_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109808_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109808_)) - (let* ((_$tgt109811109825_ - (let () (declare (not safe)) (__AST-e _$e109808_))) - (_$hd109812109828_ - (let () (declare (not safe)) (##car _$tgt109811109825_))) - (_$tl109813109831_ + _$e110969_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e110969_)) + (let* ((_$tgt110972110986_ + (let () (declare (not safe)) (__AST-e _$e110969_))) + (_$hd110973110989_ + (let () (declare (not safe)) (##car _$tgt110972110986_))) + (_$tl110974110992_ (let () (declare (not safe)) - (##cdr _$tgt109811109825_)))) + (##cdr _$tgt110972110986_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl109813109831_)) - (let* ((_$tgt109814109835_ + (__AST-pair? _$tl110974110992_)) + (let* ((_$tgt110975110996_ (let () (declare (not safe)) - (__AST-e _$tl109813109831_))) - (_$hd109815109838_ + (__AST-e _$tl110974110992_))) + (_$hd110976110999_ (let () (declare (not safe)) - (##car _$tgt109814109835_))) - (_$tl109816109841_ + (##car _$tgt110975110996_))) + (_$tl110977111002_ (let () (declare (not safe)) - (##cdr _$tgt109814109835_)))) - (let ((_ann109845_ _$hd109815109838_)) + (##cdr _$tgt110975110996_)))) + (let ((_ann111006_ _$hd110976110999_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109816109841_)) - (let* ((_$tgt109817109847_ + (__AST-pair? _$tl110977111002_)) + (let* ((_$tgt110978111008_ (let () (declare (not safe)) - (__AST-e _$tl109816109841_))) - (_$hd109818109850_ + (__AST-e _$tl110977111002_))) + (_$hd110979111011_ (let () (declare (not safe)) - (##car _$tgt109817109847_))) - (_$tl109819109853_ + (##car _$tgt110978111008_))) + (_$tl110980111014_ (let () (declare (not safe)) - (##cdr _$tgt109817109847_)))) - (let ((_expr109857_ _$hd109818109850_)) - (if (let ((__tmp115027 + (##cdr _$tgt110978111008_)))) + (let ((_expr111018_ _$hd110979111011_)) + (if (let ((__tmp116188 (let () (declare (not safe)) - (__AST-e _$tl109819109853_)))) + (__AST-e _$tl110980111014_)))) (declare (not safe)) - (equal? __tmp115027 '())) + (equal? __tmp116188 '())) (let () (declare (not safe)) - (__compile _expr109857_)) + (__compile _expr111018_)) (let () (declare (not safe)) - (_$E109810109822_))))) - (let () (declare (not safe)) (_$E109810109822_))))) - (let () (declare (not safe)) (_$E109810109822_)))) - (let () (declare (not safe)) (_$E109810109822_)))))) + (_$E110971110983_))))) + (let () (declare (not safe)) (_$E110971110983_))))) + (let () (declare (not safe)) (_$E110971110983_)))) + (let () (declare (not safe)) (_$E110971110983_)))))) (define __compile-define-values% - (lambda (_stx109697_) - (let* ((_$e109699_ _stx109697_) - (_$E109701109713_ + (lambda (_stx110858_) + (let* ((_$e110860_ _stx110858_) + (_$E110862110874_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109699_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109699_)) - (let* ((_$tgt109702109716_ - (let () (declare (not safe)) (__AST-e _$e109699_))) - (_$hd109703109719_ - (let () (declare (not safe)) (##car _$tgt109702109716_))) - (_$tl109704109722_ + _$e110860_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e110860_)) + (let* ((_$tgt110863110877_ + (let () (declare (not safe)) (__AST-e _$e110860_))) + (_$hd110864110880_ + (let () (declare (not safe)) (##car _$tgt110863110877_))) + (_$tl110865110883_ (let () (declare (not safe)) - (##cdr _$tgt109702109716_)))) + (##cdr _$tgt110863110877_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl109704109722_)) - (let* ((_$tgt109705109726_ + (__AST-pair? _$tl110865110883_)) + (let* ((_$tgt110866110887_ (let () (declare (not safe)) - (__AST-e _$tl109704109722_))) - (_$hd109706109729_ + (__AST-e _$tl110865110883_))) + (_$hd110867110890_ (let () (declare (not safe)) - (##car _$tgt109705109726_))) - (_$tl109707109732_ + (##car _$tgt110866110887_))) + (_$tl110868110893_ (let () (declare (not safe)) - (##cdr _$tgt109705109726_)))) - (let ((_hd109736_ _$hd109706109729_)) + (##cdr _$tgt110866110887_)))) + (let ((_hd110897_ _$hd110867110890_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109707109732_)) - (let* ((_$tgt109708109738_ + (__AST-pair? _$tl110868110893_)) + (let* ((_$tgt110869110899_ (let () (declare (not safe)) - (__AST-e _$tl109707109732_))) - (_$hd109709109741_ + (__AST-e _$tl110868110893_))) + (_$hd110870110902_ (let () (declare (not safe)) - (##car _$tgt109708109738_))) - (_$tl109710109744_ + (##car _$tgt110869110899_))) + (_$tl110871110905_ (let () (declare (not safe)) - (##cdr _$tgt109708109738_)))) - (let ((_expr109748_ _$hd109709109741_)) - (if (let ((__tmp115060 + (##cdr _$tgt110869110899_)))) + (let ((_expr110909_ _$hd110870110902_)) + (if (let ((__tmp116221 (let () (declare (not safe)) - (__AST-e _$tl109710109744_)))) + (__AST-e _$tl110871110905_)))) (declare (not safe)) - (equal? __tmp115060 '())) - (let* ((_$e109750_ _hd109736_) - (_$E109752109793_ + (equal? __tmp116221 '())) + (let* ((_$e110911_ _hd110897_) + (_$E110913110954_ (lambda () - (let ((_$E109753109778_ + (let ((_$E110914110939_ (lambda () - (let* ((_$E109754109765_ + (let* ((_$E110915110926_ (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () @@ -1396,2987 +1396,2987 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109750_)))) - (_ids109768_ _hd109736_) - (_len109770_ (length _ids109768_)) - (_tmp109772_ - (let ((__tmp115028 (gensym))) + _$e110911_)))) + (_ids110929_ _hd110897_) + (_len110931_ (length _ids110929_)) + (_tmp110933_ + (let ((__tmp116189 (gensym))) (declare (not safe)) - (__SRC__0 __tmp115028)))) - (let ((__tmp115029 - (let ((__tmp115030 - (let ((__tmp115047 - (let ((__tmp115048 - (let ((__tmp115049 - (let ((__tmp115050 - (let ((__tmp115051 + (__SRC__0 __tmp116189)))) + (let ((__tmp116190 + (let ((__tmp116191 + (let ((__tmp116208 + (let ((__tmp116209 + (let ((__tmp116210 + (let ((__tmp116211 + (let ((__tmp116212 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__compile _expr109748_)))) + (__compile _expr110909_)))) (declare (not safe)) - (cons __tmp115051 '())))) + (cons __tmp116212 '())))) (declare (not safe)) - (cons _tmp109772_ __tmp115050)))) + (cons _tmp110933_ __tmp116211)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'define __tmp115049)))) + (cons 'define __tmp116210)))) (declare (not safe)) - (__SRC__% __tmp115048 _stx109697_))) - (__tmp115031 - (let ((__tmp115043 - (let ((__tmp115044 - (let ((__tmp115045 - (let ((__tmp115046 + (__SRC__% __tmp116209 _stx110858_))) + (__tmp116192 + (let ((__tmp116204 + (let ((__tmp116205 + (let ((__tmp116206 + (let ((__tmp116207 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len109770_ '())))) + (cons _len110931_ '())))) (declare (not safe)) - (cons _tmp109772_ __tmp115046)))) + (cons _tmp110933_ __tmp116207)))) (declare (not safe)) - (cons '__check-values __tmp115045)))) + (cons '__check-values __tmp116206)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp115044 - _stx109697_))) - (__tmp115032 - (let ((__tmp115033 - (let ((__tmp115035 - (lambda (_id109775_ + __tmp116205 + _stx110858_))) + (__tmp116193 + (let ((__tmp116194 + (let ((__tmp116196 + (lambda (_id110936_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _k109776_) - (if (let () (declare (not safe)) (__AST-e _id109775_)) - (let ((__tmp115036 - (let ((__tmp115037 - (let ((__tmp115042 + _k110937_) + (if (let () (declare (not safe)) (__AST-e _id110936_)) + (let ((__tmp116197 + (let ((__tmp116198 + (let ((__tmp116203 (let () (declare (not safe)) - (__SRC__0 _id109775_))) - (__tmp115038 - (let ((__tmp115039 - (let ((__tmp115040 - (let ((__tmp115041 + (__SRC__0 _id110936_))) + (__tmp116199 + (let ((__tmp116200 + (let ((__tmp116201 + (let ((__tmp116202 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _k109776_ '())))) + (let () (declare (not safe)) (cons _k110937_ '())))) (declare (not safe)) - (cons _tmp109772_ __tmp115041)))) + (cons _tmp110933_ __tmp116202)))) (declare (not safe)) - (cons '##vector-ref __tmp115040)))) + (cons '##vector-ref __tmp116201)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115039 '())))) + (cons __tmp116200 '())))) (declare (not safe)) - (cons __tmp115042 __tmp115038)))) + (cons __tmp116203 __tmp116199)))) (declare (not safe)) - (cons 'define __tmp115037)))) + (cons 'define __tmp116198)))) (declare (not safe)) - (__SRC__% __tmp115036 _stx109697_)) + (__SRC__% __tmp116197 _stx110858_)) '#f))) - (__tmp115034 - (let () (declare (not safe)) (iota _len109770_)))) + (__tmp116195 + (let () (declare (not safe)) (iota _len110931_)))) (declare (not safe)) - (filter-map2 __tmp115035 _ids109768_ __tmp115034)))) + (filter-map2 __tmp116196 _ids110929_ __tmp116195)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 cons '() __tmp115033)))) + (foldr1 cons '() __tmp116194)))) (declare (not safe)) - (cons __tmp115043 __tmp115032)))) + (cons __tmp116204 __tmp116193)))) (declare (not safe)) - (cons __tmp115047 __tmp115031)))) + (cons __tmp116208 __tmp116192)))) (declare (not safe)) - (cons 'begin __tmp115030)))) + (cons 'begin __tmp116191)))) (declare (not safe)) - (__SRC__% __tmp115029 _stx109697_)))))) + (__SRC__% __tmp116190 _stx110858_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _$e109750_)) - (let* ((_$tgt109755109781_ + (__AST-pair? _$e110911_)) + (let* ((_$tgt110916110942_ (let () (declare (not safe)) - (__AST-e _$e109750_))) - (_$hd109756109784_ + (__AST-e _$e110911_))) + (_$hd110917110945_ (let () (declare (not safe)) - (##car _$tgt109755109781_))) - (_$tl109757109787_ + (##car _$tgt110916110942_))) + (_$tl110918110948_ (let () (declare (not safe)) - (##cdr _$tgt109755109781_)))) - (let ((_id109791_ - _$hd109756109784_)) - (if (let ((__tmp115057 + (##cdr _$tgt110916110942_)))) + (let ((_id110952_ + _$hd110917110945_)) + (if (let ((__tmp116218 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__AST-e _$tl109757109787_)))) + (__AST-e _$tl110918110948_)))) (declare (not safe)) - (equal? __tmp115057 '())) - (let ((__tmp115052 - (let ((__tmp115053 - (let ((__tmp115056 + (equal? __tmp116218 '())) + (let ((__tmp116213 + (let ((__tmp116214 + (let ((__tmp116217 (let () (declare (not safe)) - (__SRC__0 _id109791_))) - (__tmp115054 - (let ((__tmp115055 + (__SRC__0 _id110952_))) + (__tmp116215 + (let ((__tmp116216 (let () (declare (not safe)) - (__compile _expr109748_)))) + (__compile _expr110909_)))) (declare (not safe)) - (cons __tmp115055 '())))) + (cons __tmp116216 '())))) (declare (not safe)) - (cons __tmp115056 __tmp115054)))) + (cons __tmp116217 __tmp116215)))) (declare (not safe)) - (cons 'define __tmp115053)))) + (cons 'define __tmp116214)))) (declare (not safe)) - (__SRC__% __tmp115052 _stx109697_)) - (let () (declare (not safe)) (_$E109753109778_))))) + (__SRC__% __tmp116213 _stx110858_)) + (let () (declare (not safe)) (_$E110914110939_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E109753109778_))))))) + (_$E110914110939_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109750_)) - (let* ((_$tgt109758109796_ + (__AST-pair? _$e110911_)) + (let* ((_$tgt110919110957_ (let () (declare (not safe)) - (__AST-e _$e109750_))) - (_$hd109759109799_ + (__AST-e _$e110911_))) + (_$hd110920110960_ (let () (declare (not safe)) - (##car _$tgt109758109796_))) - (_$tl109760109802_ + (##car _$tgt110919110957_))) + (_$tl110921110963_ (let () (declare (not safe)) - (##cdr _$tgt109758109796_)))) - (if (let ((__tmp115059 + (##cdr _$tgt110919110957_)))) + (if (let ((__tmp116220 (let () (declare (not safe)) - (__AST-e _$hd109759109799_)))) + (__AST-e _$hd110920110960_)))) (declare (not safe)) - (equal? __tmp115059 '#f)) - (if (let ((__tmp115058 + (equal? __tmp116220 '#f)) + (if (let ((__tmp116219 (let () (declare (not safe)) - (__AST-e _$tl109760109802_)))) + (__AST-e _$tl110921110963_)))) (declare (not safe)) - (equal? __tmp115058 '())) + (equal? __tmp116219 '())) (let () (declare (not safe)) - (__compile _expr109748_)) + (__compile _expr110909_)) (let () (declare (not safe)) - (_$E109752109793_))) + (_$E110913110954_))) (let () (declare (not safe)) - (_$E109752109793_)))) + (_$E110913110954_)))) (let () (declare (not safe)) - (_$E109752109793_)))) + (_$E110913110954_)))) (let () (declare (not safe)) - (_$E109701109713_))))) - (let () (declare (not safe)) (_$E109701109713_))))) - (let () (declare (not safe)) (_$E109701109713_)))) - (let () (declare (not safe)) (_$E109701109713_)))))) + (_$E110862110874_))))) + (let () (declare (not safe)) (_$E110862110874_))))) + (let () (declare (not safe)) (_$E110862110874_)))) + (let () (declare (not safe)) (_$E110862110874_)))))) (define __compile-head-id - (lambda (_e109695_) - (let ((__tmp115061 - (if (let () (declare (not safe)) (__AST-e _e109695_)) - _e109695_ + (lambda (_e110856_) + (let ((__tmp116222 + (if (let () (declare (not safe)) (__AST-e _e110856_)) + _e110856_ (gensym)))) (declare (not safe)) - (__SRC__0 __tmp115061)))) + (__SRC__0 __tmp116222)))) (define __compile-lambda-head - (lambda (_hd109652_) - (let _recur109654_ ((_rest109656_ _hd109652_)) - (let* ((_$e109658_ _rest109656_) - (_$E109660109678_ + (lambda (_hd110813_) + (let _recur110815_ ((_rest110817_ _hd110813_)) + (let* ((_$e110819_ _rest110817_) + (_$E110821110839_ (lambda () - (let ((_$E109661109675_ + (let ((_$E110822110836_ (lambda () - (let* ((_$E109662109670_ + (let* ((_$E110823110831_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109658_)))) - (_tail109673_ _$e109658_)) + _$e110819_)))) + (_tail110834_ _$e110819_)) (declare (not safe)) - (__compile-head-id _tail109673_))))) - (if (let ((__tmp115062 + (__compile-head-id _tail110834_))))) + (if (let ((__tmp116223 (let () (declare (not safe)) - (__AST-e _$e109658_)))) + (__AST-e _$e110819_)))) (declare (not safe)) - (equal? __tmp115062 '())) + (equal? __tmp116223 '())) '() - (let () (declare (not safe)) (_$E109661109675_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109658_)) - (let* ((_$tgt109663109681_ - (let () (declare (not safe)) (__AST-e _$e109658_))) - (_$hd109664109684_ + (let () (declare (not safe)) (_$E110822110836_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e110819_)) + (let* ((_$tgt110824110842_ + (let () (declare (not safe)) (__AST-e _$e110819_))) + (_$hd110825110845_ (let () (declare (not safe)) - (##car _$tgt109663109681_))) - (_$tl109665109687_ + (##car _$tgt110824110842_))) + (_$tl110826110848_ (let () (declare (not safe)) - (##cdr _$tgt109663109681_)))) - (let* ((_hd109691_ _$hd109664109684_) - (_rest109693_ _$tl109665109687_)) - (let ((__tmp115064 + (##cdr _$tgt110824110842_)))) + (let* ((_hd110852_ _$hd110825110845_) + (_rest110854_ _$tl110826110848_)) + (let ((__tmp116225 (let () (declare (not safe)) - (__compile-head-id _hd109691_))) - (__tmp115063 + (__compile-head-id _hd110852_))) + (__tmp116224 (let () (declare (not safe)) - (_recur109654_ _rest109693_)))) + (_recur110815_ _rest110854_)))) (declare (not safe)) - (cons __tmp115064 __tmp115063)))) - (let () (declare (not safe)) (_$E109660109678_))))))) + (cons __tmp116225 __tmp116224)))) + (let () (declare (not safe)) (_$E110821110839_))))))) (define __compile-lambda% - (lambda (_stx109599_) - (let* ((_$e109601_ _stx109599_) - (_$E109603109615_ + (lambda (_stx110760_) + (let* ((_$e110762_ _stx110760_) + (_$E110764110776_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109601_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109601_)) - (let* ((_$tgt109604109618_ - (let () (declare (not safe)) (__AST-e _$e109601_))) - (_$hd109605109621_ - (let () (declare (not safe)) (##car _$tgt109604109618_))) - (_$tl109606109624_ + _$e110762_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e110762_)) + (let* ((_$tgt110765110779_ + (let () (declare (not safe)) (__AST-e _$e110762_))) + (_$hd110766110782_ + (let () (declare (not safe)) (##car _$tgt110765110779_))) + (_$tl110767110785_ (let () (declare (not safe)) - (##cdr _$tgt109604109618_)))) + (##cdr _$tgt110765110779_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl109606109624_)) - (let* ((_$tgt109607109628_ + (__AST-pair? _$tl110767110785_)) + (let* ((_$tgt110768110789_ (let () (declare (not safe)) - (__AST-e _$tl109606109624_))) - (_$hd109608109631_ + (__AST-e _$tl110767110785_))) + (_$hd110769110792_ (let () (declare (not safe)) - (##car _$tgt109607109628_))) - (_$tl109609109634_ + (##car _$tgt110768110789_))) + (_$tl110770110795_ (let () (declare (not safe)) - (##cdr _$tgt109607109628_)))) - (let ((_hd109638_ _$hd109608109631_)) + (##cdr _$tgt110768110789_)))) + (let ((_hd110799_ _$hd110769110792_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109609109634_)) - (let* ((_$tgt109610109640_ + (__AST-pair? _$tl110770110795_)) + (let* ((_$tgt110771110801_ (let () (declare (not safe)) - (__AST-e _$tl109609109634_))) - (_$hd109611109643_ + (__AST-e _$tl110770110795_))) + (_$hd110772110804_ (let () (declare (not safe)) - (##car _$tgt109610109640_))) - (_$tl109612109646_ + (##car _$tgt110771110801_))) + (_$tl110773110807_ (let () (declare (not safe)) - (##cdr _$tgt109610109640_)))) - (let ((_body109650_ _$hd109611109643_)) - (if (let ((__tmp115070 + (##cdr _$tgt110771110801_)))) + (let ((_body110811_ _$hd110772110804_)) + (if (let ((__tmp116231 (let () (declare (not safe)) - (__AST-e _$tl109612109646_)))) + (__AST-e _$tl110773110807_)))) (declare (not safe)) - (equal? __tmp115070 '())) - (let ((__tmp115065 - (let ((__tmp115066 - (let ((__tmp115069 + (equal? __tmp116231 '())) + (let ((__tmp116226 + (let ((__tmp116227 + (let ((__tmp116230 (let () (declare (not safe)) (__compile-lambda-head - _hd109638_))) - (__tmp115067 - (let ((__tmp115068 + _hd110799_))) + (__tmp116228 + (let ((__tmp116229 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _body109650_)))) + (__compile _body110811_)))) (declare (not safe)) - (cons __tmp115068 '())))) + (cons __tmp116229 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115069 - __tmp115067)))) + (cons __tmp116230 + __tmp116228)))) (declare (not safe)) - (cons 'lambda __tmp115066)))) + (cons 'lambda __tmp116227)))) (declare (not safe)) - (__SRC__% __tmp115065 _stx109599_)) + (__SRC__% __tmp116226 _stx110760_)) (let () (declare (not safe)) - (_$E109603109615_))))) - (let () (declare (not safe)) (_$E109603109615_))))) - (let () (declare (not safe)) (_$E109603109615_)))) - (let () (declare (not safe)) (_$E109603109615_)))))) + (_$E110764110776_))))) + (let () (declare (not safe)) (_$E110764110776_))))) + (let () (declare (not safe)) (_$E110764110776_)))) + (let () (declare (not safe)) (_$E110764110776_)))))) (define __compile-case-lambda% - (lambda (_stx109391_) - (letrec ((_variadic?109393_ - (lambda (_hd109564_) - (let* ((_$e109566_ _hd109564_) - (_$E109568109584_ + (lambda (_stx110552_) + (letrec ((_variadic?110554_ + (lambda (_hd110725_) + (let* ((_$e110727_ _hd110725_) + (_$E110729110745_ (lambda () - (let ((_$E109569109581_ + (let ((_$E110730110742_ (lambda () - (let ((_$E109570109578_ + (let ((_$E110731110739_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109566_))))) + _$e110727_))))) '#t)))) - (if (let ((__tmp115071 + (if (let ((__tmp116232 (let () (declare (not safe)) - (__AST-e _$e109566_)))) + (__AST-e _$e110727_)))) (declare (not safe)) - (equal? __tmp115071 '())) + (equal? __tmp116232 '())) '#f (let () (declare (not safe)) - (_$E109569109581_))))))) + (_$E110730110742_))))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109566_)) - (let* ((_$tgt109571109587_ + (__AST-pair? _$e110727_)) + (let* ((_$tgt110732110748_ (let () (declare (not safe)) - (__AST-e _$e109566_))) - (_$hd109572109590_ + (__AST-e _$e110727_))) + (_$hd110733110751_ (let () (declare (not safe)) - (##car _$tgt109571109587_))) - (_$tl109573109593_ + (##car _$tgt110732110748_))) + (_$tl110734110754_ (let () (declare (not safe)) - (##cdr _$tgt109571109587_)))) - (let ((_rest109597_ _$tl109573109593_)) + (##cdr _$tgt110732110748_)))) + (let ((_rest110758_ _$tl110734110754_)) (declare (not safe)) - (_variadic?109393_ _rest109597_))) - (let () (declare (not safe)) (_$E109568109584_)))))) - (_arity109394_ - (lambda (_hd109529_) - (let _lp109531_ ((_rest109533_ _hd109529_) (_k109534_ '0)) - (let* ((_$e109536_ _rest109533_) - (_$E109538109549_ + (_variadic?110554_ _rest110758_))) + (let () (declare (not safe)) (_$E110729110745_)))))) + (_arity110555_ + (lambda (_hd110690_) + (let _lp110692_ ((_rest110694_ _hd110690_) (_k110695_ '0)) + (let* ((_$e110697_ _rest110694_) + (_$E110699110710_ (lambda () - (let ((_$E109539109546_ + (let ((_$E110700110707_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109536_))))) - _k109534_)))) + _$e110697_))))) + _k110695_)))) (if (let () (declare (not safe)) - (__AST-pair? _$e109536_)) - (let* ((_$tgt109540109552_ + (__AST-pair? _$e110697_)) + (let* ((_$tgt110701110713_ (let () (declare (not safe)) - (__AST-e _$e109536_))) - (_$hd109541109555_ + (__AST-e _$e110697_))) + (_$hd110702110716_ (let () (declare (not safe)) - (##car _$tgt109540109552_))) - (_$tl109542109558_ + (##car _$tgt110701110713_))) + (_$tl110703110719_ (let () (declare (not safe)) - (##cdr _$tgt109540109552_)))) - (let* ((_rest109562_ _$tl109542109558_) - (__tmp115072 + (##cdr _$tgt110701110713_)))) + (let* ((_rest110723_ _$tl110703110719_) + (__tmp116233 (let () (declare (not safe)) - (fx+ _k109534_ '1)))) + (fx+ _k110695_ '1)))) (declare (not safe)) - (_lp109531_ _rest109562_ __tmp115072))) + (_lp110692_ _rest110723_ __tmp116233))) (let () (declare (not safe)) - (_$E109538109549_))))))) - (_generate109395_ - (lambda (_rest109456_ _args109457_ _len109458_) - (let* ((_$e109460_ _rest109456_) - (_$E109462109473_ + (_$E110699110710_))))))) + (_generate110556_ + (lambda (_rest110617_ _args110618_ _len110619_) + (let* ((_$e110621_ _rest110617_) + (_$E110623110634_ (lambda () - (let* ((_$E109463109470_ + (let* ((_$E110624110631_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109460_)))) - (__tmp115073 - (let ((__tmp115074 - (let ((__tmp115075 + _$e110621_)))) + (__tmp116234 + (let ((__tmp116235 + (let ((__tmp116236 (let () (declare (not safe)) - (cons _args109457_ + (cons _args110618_ '())))) (declare (not safe)) (cons '"No clause matching arguments" - __tmp115075)))) + __tmp116236)))) (declare (not safe)) - (cons 'error __tmp115074)))) + (cons 'error __tmp116235)))) (declare (not safe)) - (__SRC__% __tmp115073 _stx109391_))))) + (__SRC__% __tmp116234 _stx110552_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109460_)) - (let* ((_$tgt109464109476_ + (__AST-pair? _$e110621_)) + (let* ((_$tgt110625110637_ (let () (declare (not safe)) - (__AST-e _$e109460_))) - (_$hd109465109479_ + (__AST-e _$e110621_))) + (_$hd110626110640_ (let () (declare (not safe)) - (##car _$tgt109464109476_))) - (_$tl109466109482_ + (##car _$tgt110625110637_))) + (_$tl110627110643_ (let () (declare (not safe)) - (##cdr _$tgt109464109476_)))) - (let* ((_clause109486_ _$hd109465109479_) - (_rest109488_ _$tl109466109482_) - (_$e109490_ _clause109486_) - (_$E109492109501_ + (##cdr _$tgt110625110637_)))) + (let* ((_clause110647_ _$hd110626110640_) + (_rest110649_ _$tl110627110643_) + (_$e110651_ _clause110647_) + (_$E110653110662_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109490_))))) + _$e110651_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109490_)) - (let* ((_$tgt109493109504_ + (__AST-pair? _$e110651_)) + (let* ((_$tgt110654110665_ (let () (declare (not safe)) - (__AST-e _$e109490_))) - (_$hd109494109507_ + (__AST-e _$e110651_))) + (_$hd110655110668_ (let () (declare (not safe)) - (##car _$tgt109493109504_))) - (_$tl109495109510_ + (##car _$tgt110654110665_))) + (_$tl110656110671_ (let () (declare (not safe)) - (##cdr _$tgt109493109504_)))) - (let ((_hd109514_ _$hd109494109507_)) + (##cdr _$tgt110654110665_)))) + (let ((_hd110675_ _$hd110655110668_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109495109510_)) - (let* ((_$tgt109496109516_ + (__AST-pair? _$tl110656110671_)) + (let* ((_$tgt110657110677_ (let () (declare (not safe)) - (__AST-e _$tl109495109510_))) - (_$hd109497109519_ + (__AST-e _$tl110656110671_))) + (_$hd110658110680_ (let () (declare (not safe)) - (##car _$tgt109496109516_))) - (_$tl109498109522_ + (##car _$tgt110657110677_))) + (_$tl110659110683_ (let () (declare (not safe)) - (##cdr _$tgt109496109516_)))) - (if (let ((__tmp115090 + (##cdr _$tgt110657110677_)))) + (if (let ((__tmp116251 (let () (declare (not safe)) - (__AST-e _$tl109498109522_)))) + (__AST-e _$tl110659110683_)))) (declare (not safe)) - (equal? __tmp115090 '())) - (let ((_clen109526_ + (equal? __tmp116251 '())) + (let ((_clen110687_ (let () (declare (not safe)) - (_arity109394_ - _hd109514_))) - (_cmp109527_ + (_arity110555_ + _hd110675_))) + (_cmp110688_ (if (let () (declare (not safe)) - (_variadic?109393_ - _hd109514_)) + (_variadic?110554_ + _hd110675_)) 'fx>= 'fx=))) - (let ((__tmp115076 - (let ((__tmp115077 - (let ((__tmp115087 + (let ((__tmp116237 + (let ((__tmp116238 + (let ((__tmp116248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115088 - (let ((__tmp115089 + (let ((__tmp116249 + (let ((__tmp116250 (let () (declare (not safe)) - (cons _clen109526_ '())))) + (cons _clen110687_ '())))) (declare (not safe)) - (cons _len109458_ __tmp115089)))) + (cons _len110619_ __tmp116250)))) (declare (not safe)) - (cons _cmp109527_ __tmp115088))) - (__tmp115078 - (let ((__tmp115081 - (let ((__tmp115082 - (let ((__tmp115083 - (let ((__tmp115085 - (let ((__tmp115086 + (cons _cmp110688_ __tmp116249))) + (__tmp116239 + (let ((__tmp116242 + (let ((__tmp116243 + (let ((__tmp116244 + (let ((__tmp116246 + (let ((__tmp116247 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons '%#lambda _clause109486_)))) + (cons '%#lambda _clause110647_)))) (declare (not safe)) - (__compile-lambda% __tmp115086))) - (__tmp115084 - (let () (declare (not safe)) (cons _args109457_ '())))) + (__compile-lambda% __tmp116247))) + (__tmp116245 + (let () (declare (not safe)) (cons _args110618_ '())))) (declare (not safe)) - (cons __tmp115085 __tmp115084)))) + (cons __tmp116246 __tmp116245)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '##apply __tmp115083)))) + (cons '##apply __tmp116244)))) (declare (not safe)) - (__SRC__% __tmp115082 _stx109391_))) - (__tmp115079 - (let ((__tmp115080 + (__SRC__% __tmp116243 _stx110552_))) + (__tmp116240 + (let ((__tmp116241 (let () (declare (not safe)) - (_generate109395_ - _rest109488_ - _args109457_ - _len109458_)))) + (_generate110556_ + _rest110649_ + _args110618_ + _len110619_)))) (declare (not safe)) - (cons __tmp115080 '())))) + (cons __tmp116241 '())))) (declare (not safe)) - (cons __tmp115081 __tmp115079)))) + (cons __tmp116242 __tmp116240)))) (declare (not safe)) - (cons __tmp115087 __tmp115078)))) + (cons __tmp116248 __tmp116239)))) (declare (not safe)) - (cons 'if __tmp115077)))) + (cons 'if __tmp116238)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp115076 - _stx109391_))) + __tmp116237 + _stx110552_))) (let () (declare (not safe)) - (_$E109492109501_)))) + (_$E110653110662_)))) (let () (declare (not safe)) - (_$E109492109501_))))) + (_$E110653110662_))))) (let () (declare (not safe)) - (_$E109492109501_))))) - (let () (declare (not safe)) (_$E109462109473_))))))) - (let* ((_$e109397_ _stx109391_) - (_$E109399109431_ + (_$E110653110662_))))) + (let () (declare (not safe)) (_$E110623110634_))))))) + (let* ((_$e110558_ _stx110552_) + (_$E110560110592_ (lambda () - (let ((_$E109400109413_ + (let ((_$E110561110574_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109397_))))) + _$e110558_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109397_)) - (let* ((_$tgt109401109416_ + (__AST-pair? _$e110558_)) + (let* ((_$tgt110562110577_ (let () (declare (not safe)) - (__AST-e _$e109397_))) - (_$hd109402109419_ + (__AST-e _$e110558_))) + (_$hd110563110580_ (let () (declare (not safe)) - (##car _$tgt109401109416_))) - (_$tl109403109422_ + (##car _$tgt110562110577_))) + (_$tl110564110583_ (let () (declare (not safe)) - (##cdr _$tgt109401109416_)))) - (let ((_clauses109426_ _$tl109403109422_)) - (let ((_args109428_ - (let ((__tmp115091 (gensym))) + (##cdr _$tgt110562110577_)))) + (let ((_clauses110587_ _$tl110564110583_)) + (let ((_args110589_ + (let ((__tmp116252 (gensym))) (declare (not safe)) - (__SRC__% __tmp115091 _stx109391_))) - (_len109429_ - (let ((__tmp115092 (gensym))) + (__SRC__% __tmp116252 _stx110552_))) + (_len110590_ + (let ((__tmp116253 (gensym))) (declare (not safe)) - (__SRC__% __tmp115092 _stx109391_)))) - (let ((__tmp115093 - (let ((__tmp115094 - (let ((__tmp115095 - (let ((__tmp115096 - (let ((__tmp115097 + (__SRC__% __tmp116253 _stx110552_)))) + (let ((__tmp116254 + (let ((__tmp116255 + (let ((__tmp116256 + (let ((__tmp116257 + (let ((__tmp116258 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115098 - (let ((__tmp115101 - (let ((__tmp115102 - (let ((__tmp115103 - (let ((__tmp115104 - (let ((__tmp115105 + (let ((__tmp116259 + (let ((__tmp116262 + (let ((__tmp116263 + (let ((__tmp116264 + (let ((__tmp116265 + (let ((__tmp116266 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115106 + (let ((__tmp116267 (let () (declare (not safe)) - (cons _args109428_ '())))) + (cons _args110589_ '())))) (declare (not safe)) - (cons '##length __tmp115106)))) + (cons '##length __tmp116267)))) (declare (not safe)) - (__SRC__% __tmp115105 _stx109391_)))) + (__SRC__% __tmp116266 _stx110552_)))) (declare (not safe)) - (cons __tmp115104 '())))) + (cons __tmp116265 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _len109429_ - __tmp115103)))) + (cons _len110590_ + __tmp116264)))) (declare (not safe)) - (cons __tmp115102 '()))) - (__tmp115099 - (let ((__tmp115100 + (cons __tmp116263 '()))) + (__tmp116260 + (let ((__tmp116261 (let () (declare (not safe)) - (_generate109395_ - _clauses109426_ - _args109428_ - _len109429_)))) + (_generate110556_ + _clauses110587_ + _args110589_ + _len110590_)))) (declare (not safe)) - (cons __tmp115100 '())))) + (cons __tmp116261 '())))) (declare (not safe)) - (cons __tmp115101 __tmp115099)))) + (cons __tmp116262 __tmp116260)))) (declare (not safe)) - (cons 'let __tmp115098)))) + (cons 'let __tmp116259)))) (declare (not safe)) - (__SRC__% __tmp115097 _stx109391_)))) + (__SRC__% __tmp116258 _stx110552_)))) (declare (not safe)) - (cons __tmp115096 '())))) + (cons __tmp116257 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _args109428_ - __tmp115095)))) + (cons _args110589_ + __tmp116256)))) (declare (not safe)) - (cons 'lambda __tmp115094)))) + (cons 'lambda __tmp116255)))) (declare (not safe)) - (__SRC__% __tmp115093 _stx109391_))))) - (let () (declare (not safe)) (_$E109400109413_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109397_)) - (let* ((_$tgt109404109434_ - (let () (declare (not safe)) (__AST-e _$e109397_))) - (_$hd109405109437_ + (__SRC__% __tmp116254 _stx110552_))))) + (let () (declare (not safe)) (_$E110561110574_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e110558_)) + (let* ((_$tgt110565110595_ + (let () (declare (not safe)) (__AST-e _$e110558_))) + (_$hd110566110598_ (let () (declare (not safe)) - (##car _$tgt109404109434_))) - (_$tl109406109440_ + (##car _$tgt110565110595_))) + (_$tl110567110601_ (let () (declare (not safe)) - (##cdr _$tgt109404109434_)))) + (##cdr _$tgt110565110595_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl109406109440_)) - (let* ((_$tgt109407109444_ + (__AST-pair? _$tl110567110601_)) + (let* ((_$tgt110568110605_ (let () (declare (not safe)) - (__AST-e _$tl109406109440_))) - (_$hd109408109447_ + (__AST-e _$tl110567110601_))) + (_$hd110569110608_ (let () (declare (not safe)) - (##car _$tgt109407109444_))) - (_$tl109409109450_ + (##car _$tgt110568110605_))) + (_$tl110570110611_ (let () (declare (not safe)) - (##cdr _$tgt109407109444_)))) - (let ((_clause109454_ _$hd109408109447_)) - (if (let ((__tmp115108 + (##cdr _$tgt110568110605_)))) + (let ((_clause110615_ _$hd110569110608_)) + (if (let ((__tmp116269 (let () (declare (not safe)) - (__AST-e _$tl109409109450_)))) + (__AST-e _$tl110570110611_)))) (declare (not safe)) - (equal? __tmp115108 '())) - (let ((__tmp115107 + (equal? __tmp116269 '())) + (let ((__tmp116268 (let () (declare (not safe)) - (cons '%#lambda _clause109454_)))) + (cons '%#lambda _clause110615_)))) (declare (not safe)) - (__compile-lambda% __tmp115107)) + (__compile-lambda% __tmp116268)) (let () (declare (not safe)) - (_$E109399109431_))))) - (let () (declare (not safe)) (_$E109399109431_)))) - (let () (declare (not safe)) (_$E109399109431_))))))) + (_$E110560110592_))))) + (let () (declare (not safe)) (_$E110560110592_)))) + (let () (declare (not safe)) (_$E110560110592_))))))) (define __compile-let-form - (lambda (_stx109160_ _compile-simple109161_ _compile-values109162_) - (letrec ((_simple-bind?109164_ - (lambda (_hd109349_) - (let* ((_hd109350109360_ _hd109349_) - (_else109353109368_ (lambda () '#f))) - (let ((_K109356109381_ (lambda (_id109379_) '#t)) - (_K109355109373_ (lambda () '#t))) - (let ((_try-match109352109376_ + (lambda (_stx110321_ _compile-simple110322_ _compile-values110323_) + (letrec ((_simple-bind?110325_ + (lambda (_hd110510_) + (let* ((_hd110511110521_ _hd110510_) + (_else110514110529_ (lambda () '#f))) + (let ((_K110517110542_ (lambda (_id110540_) '#t)) + (_K110516110534_ (lambda () '#t))) + (let ((_try-match110513110537_ (lambda () (if (let () (declare (not safe)) - (##eq? _hd109350109360_ '#f)) + (##eq? _hd110511110521_ '#f)) (let () (declare (not safe)) - (_K109355109373_)) + (_K110516110534_)) (let () (declare (not safe)) - (_else109353109368_)))))) + (_else110514110529_)))))) (if (let () (declare (not safe)) - (##pair? _hd109350109360_)) - (let ((_tl109358109386_ + (##pair? _hd110511110521_)) + (let ((_tl110519110547_ (let () (declare (not safe)) - (##cdr _hd109350109360_))) - (_hd109357109384_ + (##cdr _hd110511110521_))) + (_hd110518110545_ (let () (declare (not safe)) - (##car _hd109350109360_)))) + (##car _hd110511110521_)))) (if (let () (declare (not safe)) - (##null? _tl109358109386_)) - (let ((_id109389_ _hd109357109384_)) + (##null? _tl110519110547_)) + (let ((_id110550_ _hd110518110545_)) (declare (not safe)) - (_K109356109381_ _id109389_)) + (_K110517110542_ _id110550_)) (let () (declare (not safe)) - (_try-match109352109376_)))) + (_try-match110513110537_)))) (let () (declare (not safe)) - (_try-match109352109376_)))))))) - (_car-e109165_ - (lambda (_hd109347_) - (if (let () (declare (not safe)) (pair? _hd109347_)) - (car _hd109347_) - _hd109347_)))) - (let* ((_$e109167_ _stx109160_) - (_$E109169109312_ + (_try-match110513110537_)))))))) + (_car-e110326_ + (lambda (_hd110508_) + (if (let () (declare (not safe)) (pair? _hd110508_)) + (car _hd110508_) + _hd110508_)))) + (let* ((_$e110328_ _stx110321_) + (_$E110330110473_ (lambda () - (let ((_$E109170109192_ + (let ((_$E110331110353_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109167_))))) + _$e110328_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109167_)) - (let* ((_$tgt109171109195_ + (__AST-pair? _$e110328_)) + (let* ((_$tgt110332110356_ (let () (declare (not safe)) - (__AST-e _$e109167_))) - (_$hd109172109198_ + (__AST-e _$e110328_))) + (_$hd110333110359_ (let () (declare (not safe)) - (##car _$tgt109171109195_))) - (_$tl109173109201_ + (##car _$tgt110332110356_))) + (_$tl110334110362_ (let () (declare (not safe)) - (##cdr _$tgt109171109195_)))) + (##cdr _$tgt110332110356_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl109173109201_)) - (let* ((_$tgt109174109205_ + (__AST-pair? _$tl110334110362_)) + (let* ((_$tgt110335110366_ (let () (declare (not safe)) - (__AST-e _$tl109173109201_))) - (_$hd109175109208_ + (__AST-e _$tl110334110362_))) + (_$hd110336110369_ (let () (declare (not safe)) - (##car _$tgt109174109205_))) - (_$tl109176109211_ + (##car _$tgt110335110366_))) + (_$tl110337110372_ (let () (declare (not safe)) - (##cdr _$tgt109174109205_)))) - (let ((_hd109215_ _$hd109175109208_)) + (##cdr _$tgt110335110366_)))) + (let ((_hd110376_ _$hd110336110369_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109176109211_)) - (let* ((_$tgt109177109217_ + (__AST-pair? _$tl110337110372_)) + (let* ((_$tgt110338110378_ (let () (declare (not safe)) - (__AST-e _$tl109176109211_))) - (_$hd109178109220_ + (__AST-e _$tl110337110372_))) + (_$hd110339110381_ (let () (declare (not safe)) - (##car _$tgt109177109217_))) - (_$tl109179109223_ + (##car _$tgt110338110378_))) + (_$tl110340110384_ (let () (declare (not safe)) - (##cdr _$tgt109177109217_)))) - (let ((_body109227_ - _$hd109178109220_)) - (if (let ((__tmp115111 + (##cdr _$tgt110338110378_)))) + (let ((_body110388_ + _$hd110339110381_)) + (if (let ((__tmp116272 (let () (declare (not safe)) - (__AST-e _$tl109179109223_)))) + (__AST-e _$tl110340110384_)))) (declare (not safe)) - (equal? __tmp115111 '())) - (let* ((_hd-ids109267_ - (map (lambda (_bind109229_) - (let* ((_$e109231_ + (equal? __tmp116272 '())) + (let* ((_hd-ids110428_ + (map (lambda (_bind110390_) + (let* ((_$e110392_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _bind109229_) - (_$E109233109242_ + _bind110390_) + (_$E110394110403_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109231_))))) + _$e110392_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109231_)) - (let* ((_$tgt109234109245_ + (__AST-pair? _$e110392_)) + (let* ((_$tgt110395110406_ (let () (declare (not safe)) - (__AST-e _$e109231_))) - (_$hd109235109248_ + (__AST-e _$e110392_))) + (_$hd110396110409_ (let () (declare (not safe)) - (##car _$tgt109234109245_))) - (_$tl109236109251_ + (##car _$tgt110395110406_))) + (_$tl110397110412_ (let () (declare (not safe)) - (##cdr _$tgt109234109245_)))) - (let ((_ids109255_ _$hd109235109248_)) + (##cdr _$tgt110395110406_)))) + (let ((_ids110416_ _$hd110396110409_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl109236109251_)) - (let* ((_$tgt109237109257_ + (__AST-pair? _$tl110397110412_)) + (let* ((_$tgt110398110418_ (let () (declare (not safe)) - (__AST-e _$tl109236109251_))) - (_$hd109238109260_ + (__AST-e _$tl110397110412_))) + (_$hd110399110421_ (let () (declare (not safe)) - (##car _$tgt109237109257_))) - (_$tl109239109263_ + (##car _$tgt110398110418_))) + (_$tl110400110424_ (let () (declare (not safe)) - (##cdr _$tgt109237109257_)))) - (if (let ((__tmp115109 + (##cdr _$tgt110398110418_)))) + (if (let ((__tmp116270 (let () (declare (not safe)) - (__AST-e _$tl109239109263_)))) + (__AST-e _$tl110400110424_)))) (declare (not safe)) - (equal? __tmp115109 '())) - _ids109255_ + (equal? __tmp116270 '())) + _ids110416_ (let () (declare (not safe)) - (_$E109233109242_)))) + (_$E110394110403_)))) (let () (declare (not safe)) - (_$E109233109242_))))) + (_$E110394110403_))))) (let () (declare (not safe)) - (_$E109233109242_))))) - _hd109215_)) - (_exprs109307_ - (map (lambda (_bind109269_) - (let* ((_$e109271_ _bind109269_) - (_$E109273109282_ + (_$E110394110403_))))) + _hd110376_)) + (_exprs110468_ + (map (lambda (_bind110430_) + (let* ((_$e110432_ _bind110430_) + (_$E110434110443_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e109271_))))) + _$e110432_))))) (if (let () (declare (not safe)) - (__AST-pair? _$e109271_)) - (let* ((_$tgt109274109285_ + (__AST-pair? _$e110432_)) + (let* ((_$tgt110435110446_ (let () (declare (not safe)) - (__AST-e _$e109271_))) - (_$hd109275109288_ + (__AST-e _$e110432_))) + (_$hd110436110449_ (let () (declare (not safe)) - (##car _$tgt109274109285_))) - (_$tl109276109291_ + (##car _$tgt110435110446_))) + (_$tl110437110452_ (let () (declare (not safe)) - (##cdr _$tgt109274109285_)))) + (##cdr _$tgt110435110446_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl109276109291_)) - (let* ((_$tgt109277109295_ + (__AST-pair? _$tl110437110452_)) + (let* ((_$tgt110438110456_ (let () (declare (not safe)) - (__AST-e _$tl109276109291_))) - (_$hd109278109298_ + (__AST-e _$tl110437110452_))) + (_$hd110439110459_ (let () (declare (not safe)) - (##car _$tgt109277109295_))) - (_$tl109279109301_ + (##car _$tgt110438110456_))) + (_$tl110440110462_ (let () (declare (not safe)) - (##cdr _$tgt109277109295_)))) - (let ((_expr109305_ _$hd109278109298_)) - (if (let ((__tmp115110 + (##cdr _$tgt110438110456_)))) + (let ((_expr110466_ _$hd110439110459_)) + (if (let ((__tmp116271 (let () (declare (not safe)) - (__AST-e _$tl109279109301_)))) + (__AST-e _$tl110440110462_)))) (declare (not safe)) - (equal? __tmp115110 '())) + (equal? __tmp116271 '())) (let () (declare (not safe)) - (__compile _expr109305_)) + (__compile _expr110466_)) (let () (declare (not safe)) - (_$E109273109282_))))) + (_$E110434110443_))))) (let () (declare (not safe)) - (_$E109273109282_)))) + (_$E110434110443_)))) (let () (declare (not safe)) - (_$E109273109282_))))) - _hd109215_)) - (_body109309_ - (let () (declare (not safe)) (__compile _body109227_)))) + (_$E110434110443_))))) + _hd110376_)) + (_body110470_ + (let () (declare (not safe)) (__compile _body110388_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (andmap1 _simple-bind?109164_ + (andmap1 _simple-bind?110325_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd-ids109267_)) - (_compile-simple109161_ - (map _car-e109165_ _hd-ids109267_) - _exprs109307_ - _body109309_) - (_compile-values109162_ - _hd-ids109267_ - _exprs109307_ - _body109309_))) + _hd-ids110428_)) + (_compile-simple110322_ + (map _car-e110326_ _hd-ids110428_) + _exprs110468_ + _body110470_) + (_compile-values110323_ + _hd-ids110428_ + _exprs110468_ + _body110470_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_$E109170109192_))))) + (_$E110331110353_))))) (let () (declare (not safe)) - (_$E109170109192_))))) + (_$E110331110353_))))) (let () (declare (not safe)) - (_$E109170109192_)))) - (let () (declare (not safe)) (_$E109170109192_))))))) - (if (let () (declare (not safe)) (__AST-pair? _$e109167_)) - (let* ((_$tgt109180109315_ - (let () (declare (not safe)) (__AST-e _$e109167_))) - (_$hd109181109318_ + (_$E110331110353_)))) + (let () (declare (not safe)) (_$E110331110353_))))))) + (if (let () (declare (not safe)) (__AST-pair? _$e110328_)) + (let* ((_$tgt110341110476_ + (let () (declare (not safe)) (__AST-e _$e110328_))) + (_$hd110342110479_ (let () (declare (not safe)) - (##car _$tgt109180109315_))) - (_$tl109182109321_ + (##car _$tgt110341110476_))) + (_$tl110343110482_ (let () (declare (not safe)) - (##cdr _$tgt109180109315_)))) + (##cdr _$tgt110341110476_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl109182109321_)) - (let* ((_$tgt109183109325_ + (__AST-pair? _$tl110343110482_)) + (let* ((_$tgt110344110486_ (let () (declare (not safe)) - (__AST-e _$tl109182109321_))) - (_$hd109184109328_ + (__AST-e _$tl110343110482_))) + (_$hd110345110489_ (let () (declare (not safe)) - (##car _$tgt109183109325_))) - (_$tl109185109331_ + (##car _$tgt110344110486_))) + (_$tl110346110492_ (let () (declare (not safe)) - (##cdr _$tgt109183109325_)))) - (if (let ((__tmp115113 + (##cdr _$tgt110344110486_)))) + (if (let ((__tmp116274 (let () (declare (not safe)) - (__AST-e _$hd109184109328_)))) + (__AST-e _$hd110345110489_)))) (declare (not safe)) - (equal? __tmp115113 '())) + (equal? __tmp116274 '())) (if (let () (declare (not safe)) - (__AST-pair? _$tl109185109331_)) - (let* ((_$tgt109186109335_ + (__AST-pair? _$tl110346110492_)) + (let* ((_$tgt110347110496_ (let () (declare (not safe)) - (__AST-e _$tl109185109331_))) - (_$hd109187109338_ + (__AST-e _$tl110346110492_))) + (_$hd110348110499_ (let () (declare (not safe)) - (##car _$tgt109186109335_))) - (_$tl109188109341_ + (##car _$tgt110347110496_))) + (_$tl110349110502_ (let () (declare (not safe)) - (##cdr _$tgt109186109335_)))) - (let ((_body109345_ _$hd109187109338_)) - (if (let ((__tmp115112 + (##cdr _$tgt110347110496_)))) + (let ((_body110506_ _$hd110348110499_)) + (if (let ((__tmp116273 (let () (declare (not safe)) - (__AST-e _$tl109188109341_)))) + (__AST-e _$tl110349110502_)))) (declare (not safe)) - (equal? __tmp115112 '())) + (equal? __tmp116273 '())) (let () (declare (not safe)) - (__compile _body109345_)) + (__compile _body110506_)) (let () (declare (not safe)) - (_$E109169109312_))))) + (_$E110330110473_))))) (let () (declare (not safe)) - (_$E109169109312_))) - (let () (declare (not safe)) (_$E109169109312_)))) - (let () (declare (not safe)) (_$E109169109312_)))) - (let () (declare (not safe)) (_$E109169109312_))))))) + (_$E110330110473_))) + (let () (declare (not safe)) (_$E110330110473_)))) + (let () (declare (not safe)) (_$E110330110473_)))) + (let () (declare (not safe)) (_$E110330110473_))))))) (define __compile-let-values% - (lambda (_stx108975_) - (letrec ((_compile-simple108977_ - (lambda (_hd-ids109156_ _exprs109157_ _body109158_) - (let ((__tmp115114 - (let ((__tmp115115 - (let ((__tmp115117 + (lambda (_stx110136_) + (letrec ((_compile-simple110138_ + (lambda (_hd-ids110317_ _exprs110318_ _body110319_) + (let ((__tmp116275 + (let ((__tmp116276 + (let ((__tmp116278 (map list (map __compile-head-id - _hd-ids109156_) - _exprs109157_)) - (__tmp115116 + _hd-ids110317_) + _exprs110318_)) + (__tmp116277 (let () (declare (not safe)) - (cons _body109158_ '())))) + (cons _body110319_ '())))) (declare (not safe)) - (cons __tmp115117 __tmp115116)))) + (cons __tmp116278 __tmp116277)))) (declare (not safe)) - (cons 'let __tmp115115)))) + (cons 'let __tmp116276)))) (declare (not safe)) - (__SRC__% __tmp115114 _stx108975_)))) - (_compile-values108978_ - (lambda (_hd-ids109074_ _exprs109075_ _body109076_) - (let _lp109078_ ((_rest109080_ _hd-ids109074_) - (_exprs109081_ _exprs109075_) - (_bind109082_ '()) - (_post109083_ '())) - (let* ((_rest109084109098_ _rest109080_) - (_else109087109106_ + (__SRC__% __tmp116275 _stx110136_)))) + (_compile-values110139_ + (lambda (_hd-ids110235_ _exprs110236_ _body110237_) + (let _lp110239_ ((_rest110241_ _hd-ids110235_) + (_exprs110242_ _exprs110236_) + (_bind110243_ '()) + (_post110244_ '())) + (let* ((_rest110245110259_ _rest110241_) + (_else110248110267_ (lambda () - (let ((__tmp115118 - (let ((__tmp115119 - (let ((__tmp115122 - (reverse _bind109082_)) - (__tmp115120 - (let ((__tmp115121 + (let ((__tmp116279 + (let ((__tmp116280 + (let ((__tmp116283 + (reverse _bind110243_)) + (__tmp116281 + (let ((__tmp116282 (let () (declare (not safe)) - (_compile-post108979_ - _post109083_ - _body109076_)))) + (_compile-post110140_ + _post110244_ + _body110237_)))) (declare (not safe)) - (cons __tmp115121 + (cons __tmp116282 '())))) (declare (not safe)) - (cons __tmp115122 - __tmp115120)))) + (cons __tmp116283 + __tmp116281)))) (declare (not safe)) - (cons 'let __tmp115119)))) + (cons 'let __tmp116280)))) (declare (not safe)) - (__SRC__% __tmp115118 _stx108975_))))) - (let ((_K109092109139_ - (lambda (_rest109136_ _id109137_) - (let ((__tmp115128 (cdr _exprs109081_)) - (__tmp115123 - (let ((__tmp115124 - (let ((__tmp115127 + (__SRC__% __tmp116279 _stx110136_))))) + (let ((_K110253110300_ + (lambda (_rest110297_ _id110298_) + (let ((__tmp116289 (cdr _exprs110242_)) + (__tmp116284 + (let ((__tmp116285 + (let ((__tmp116288 (let () (declare (not safe)) (__compile-head-id - _id109137_))) - (__tmp115125 - (let ((__tmp115126 - (car _exprs109081_))) + _id110298_))) + (__tmp116286 + (let ((__tmp116287 + (car _exprs110242_))) (declare (not safe)) - (cons __tmp115126 + (cons __tmp116287 '())))) (declare (not safe)) - (cons __tmp115127 - __tmp115125)))) + (cons __tmp116288 + __tmp116286)))) (declare (not safe)) - (cons __tmp115124 _bind109082_)))) + (cons __tmp116285 _bind110243_)))) (declare (not safe)) - (_lp109078_ - _rest109136_ - __tmp115128 - __tmp115123 - _post109083_)))) - (_K109089109121_ - (lambda (_rest109110_ _hd109111_) + (_lp110239_ + _rest110297_ + __tmp116289 + __tmp116284 + _post110244_)))) + (_K110250110282_ + (lambda (_rest110271_ _hd110272_) (if (let () (declare (not safe)) - (__AST-id? _hd109111_)) - (let ((__tmp115149 (cdr _exprs109081_)) - (__tmp115142 - (let ((__tmp115143 - (let ((__tmp115148 + (__AST-id? _hd110272_)) + (let ((__tmp116310 (cdr _exprs110242_)) + (__tmp116303 + (let ((__tmp116304 + (let ((__tmp116309 (let () (declare (not safe)) (__compile-head-id - _hd109111_))) - (__tmp115144 - (let ((__tmp115145 + _hd110272_))) + (__tmp116305 + (let ((__tmp116306 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115146 - (let ((__tmp115147 (car _exprs109081_))) + (let ((__tmp116307 + (let ((__tmp116308 (car _exprs110242_))) (declare (not safe)) - (cons __tmp115147 '())))) + (cons __tmp116308 '())))) (declare (not safe)) - (cons 'values->list __tmp115146)))) + (cons 'values->list __tmp116307)))) (declare (not safe)) - (cons __tmp115145 '())))) + (cons __tmp116306 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115148 - __tmp115144)))) + (cons __tmp116309 + __tmp116305)))) (declare (not safe)) - (cons __tmp115143 - _bind109082_)))) + (cons __tmp116304 + _bind110243_)))) (declare (not safe)) - (_lp109078_ - _rest109110_ - __tmp115149 - __tmp115142 - _post109083_)) + (_lp110239_ + _rest110271_ + __tmp116310 + __tmp116303 + _post110244_)) (if (let () (declare (not safe)) - (list? _hd109111_)) - (let* ((_len109113_ - (length _hd109111_)) - (_tmp109115_ - (let ((__tmp115129 (gensym))) + (list? _hd110272_)) + (let* ((_len110274_ + (length _hd110272_)) + (_tmp110276_ + (let ((__tmp116290 (gensym))) (declare (not safe)) - (__SRC__0 __tmp115129)))) - (let ((__tmp115141 - (cdr _exprs109081_)) - (__tmp115137 - (let ((__tmp115138 - (let ((__tmp115139 - (let ((__tmp115140 + (__SRC__0 __tmp116290)))) + (let ((__tmp116302 + (cdr _exprs110242_)) + (__tmp116298 + (let ((__tmp116299 + (let ((__tmp116300 + (let ((__tmp116301 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs109081_))) + (car _exprs110242_))) (declare (not safe)) - (cons __tmp115140 '())))) + (cons __tmp116301 '())))) (declare (not safe)) - (cons _tmp109115_ __tmp115139)))) + (cons _tmp110276_ __tmp116300)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115138 - _bind109082_))) - (__tmp115130 - (let ((__tmp115131 - (let ((__tmp115132 - (let ((__tmp115133 + (cons __tmp116299 + _bind110243_))) + (__tmp116291 + (let ((__tmp116292 + (let ((__tmp116293 + (let ((__tmp116294 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115135 - (lambda (_id109118_ _k109119_) + (let ((__tmp116296 + (lambda (_id110279_ _k110280_) (if (let () (declare (not safe)) - (__AST-e _id109118_)) - (let ((__tmp115136 + (__AST-e _id110279_)) + (let ((__tmp116297 (let () (declare (not safe)) - (__SRC__0 _id109118_)))) + (__SRC__0 _id110279_)))) (declare (not safe)) - (cons __tmp115136 _k109119_)) + (cons __tmp116297 _k110280_)) '#f))) - (__tmp115134 + (__tmp116295 (let () (declare (not safe)) - (iota _len109113_)))) + (iota _len110274_)))) (declare (not safe)) (filter-map2 - __tmp115135 - _hd109111_ - __tmp115134)))) + __tmp116296 + _hd110272_ + __tmp116295)))) (declare (not safe)) - (cons _len109113_ __tmp115133)))) + (cons _len110274_ __tmp116294)))) (declare (not safe)) - (cons _tmp109115_ __tmp115132)))) + (cons _tmp110276_ __tmp116293)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115131 - _post109083_)))) + (cons __tmp116292 + _post110244_)))) (declare (not safe)) - (_lp109078_ - _rest109110_ - __tmp115141 - __tmp115137 - __tmp115130))) + (_lp110239_ + _rest110271_ + __tmp116302 + __tmp116298 + __tmp116291))) (let () (declare (not safe)) (__compile-error__% - _stx108975_ - _hd109111_))))))) + _stx110136_ + _hd110272_))))))) (if (let () (declare (not safe)) - (##pair? _rest109084109098_)) - (let ((_tl109094109144_ + (##pair? _rest110245110259_)) + (let ((_tl110255110305_ (let () (declare (not safe)) - (##cdr _rest109084109098_))) - (_hd109093109142_ + (##cdr _rest110245110259_))) + (_hd110254110303_ (let () (declare (not safe)) - (##car _rest109084109098_)))) + (##car _rest110245110259_)))) (if (let () (declare (not safe)) - (##pair? _hd109093109142_)) - (let ((_tl109096109149_ + (##pair? _hd110254110303_)) + (let ((_tl110257110310_ (let () (declare (not safe)) - (##cdr _hd109093109142_))) - (_hd109095109147_ + (##cdr _hd110254110303_))) + (_hd110256110308_ (let () (declare (not safe)) - (##car _hd109093109142_)))) + (##car _hd110254110303_)))) (if (let () (declare (not safe)) - (##null? _tl109096109149_)) - (let ((_id109152_ _hd109095109147_) - (_rest109154_ - _tl109094109144_)) + (##null? _tl110257110310_)) + (let ((_id110313_ _hd110256110308_) + (_rest110315_ + _tl110255110305_)) (let () (declare (not safe)) - (_K109092109139_ - _rest109154_ - _id109152_))) - (let ((_hd109129_ _hd109093109142_) - (_rest109131_ - _tl109094109144_)) + (_K110253110300_ + _rest110315_ + _id110313_))) + (let ((_hd110290_ _hd110254110303_) + (_rest110292_ + _tl110255110305_)) (let () (declare (not safe)) - (_K109089109121_ - _rest109131_ - _hd109129_))))) - (let ((_hd109129_ _hd109093109142_) - (_rest109131_ _tl109094109144_)) + (_K110250110282_ + _rest110292_ + _hd110290_))))) + (let ((_hd110290_ _hd110254110303_) + (_rest110292_ _tl110255110305_)) (let () (declare (not safe)) - (_K109089109121_ - _rest109131_ - _hd109129_))))) + (_K110250110282_ + _rest110292_ + _hd110290_))))) (let () (declare (not safe)) - (_else109087109106_)))))))) - (_compile-post108979_ - (lambda (_post108981_ _body108982_) - (let _lp108984_ ((_rest108986_ _post108981_) - (_check108987_ '()) - (_bind108988_ '())) - (let* ((_rest108989109001_ _rest108986_) - (_else108991109009_ + (_else110248110267_)))))))) + (_compile-post110140_ + (lambda (_post110142_ _body110143_) + (let _lp110145_ ((_rest110147_ _post110142_) + (_check110148_ '()) + (_bind110149_ '())) + (let* ((_rest110150110162_ _rest110147_) + (_else110152110170_ (lambda () - (let ((__tmp115150 - (let ((__tmp115151 - (let ((__tmp115152 - (let ((__tmp115153 - (let ((__tmp115154 + (let ((__tmp116311 + (let ((__tmp116312 + (let ((__tmp116313 + (let ((__tmp116314 + (let ((__tmp116315 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115155 - (let ((__tmp115156 + (let ((__tmp116316 + (let ((__tmp116317 (let () (declare (not safe)) - (cons _body108982_ '())))) + (cons _body110143_ '())))) (declare (not safe)) - (cons _bind108988_ __tmp115156)))) + (cons _bind110149_ __tmp116317)))) (declare (not safe)) - (cons 'let __tmp115155)))) + (cons 'let __tmp116316)))) (declare (not safe)) - (__SRC__% __tmp115154 _stx108975_)))) + (__SRC__% __tmp116315 _stx110136_)))) (declare (not safe)) - (cons __tmp115153 '())))) + (cons __tmp116314 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp115152 - _check108987_)))) + __tmp116313 + _check110148_)))) (declare (not safe)) - (cons 'begin __tmp115151)))) + (cons 'begin __tmp116312)))) (declare (not safe)) - (__SRC__% __tmp115150 _stx108975_)))) - (_K108993109048_ - (lambda (_rest109012_ - _init109013_ - _len109014_ - _tmp109015_) - (let ((__tmp115164 - (let ((__tmp115165 - (let ((__tmp115166 - (let ((__tmp115167 - (let ((__tmp115168 + (__SRC__% __tmp116311 _stx110136_)))) + (_K110154110209_ + (lambda (_rest110173_ + _init110174_ + _len110175_ + _tmp110176_) + (let ((__tmp116325 + (let ((__tmp116326 + (let ((__tmp116327 + (let ((__tmp116328 + (let ((__tmp116329 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len109014_ '())))) + (cons _len110175_ '())))) (declare (not safe)) - (cons _tmp109015_ __tmp115168)))) + (cons _tmp110176_ __tmp116329)))) (declare (not safe)) - (cons '__check-values __tmp115167)))) + (cons '__check-values __tmp116328)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp115166 - _stx108975_)))) + __tmp116327 + _stx110136_)))) (declare (not safe)) - (cons __tmp115165 _check108987_))) - (__tmp115157 - (let ((__tmp115158 - (lambda (_hd109017_ _r109018_) - (let* ((_hd109019109026_ - _hd109017_) - (_E109021109030_ + (cons __tmp116326 _check110148_))) + (__tmp116318 + (let ((__tmp116319 + (lambda (_hd110178_ _r110179_) + (let* ((_hd110180110187_ + _hd110178_) + (_E110182110191_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd109019109026_))) - (_K109022109036_ - (lambda (_k109033_ _id109034_) - (let ((__tmp115159 - (let ((__tmp115160 - (let ((__tmp115161 - (let ((__tmp115162 - (let ((__tmp115163 + _hd110180110187_))) + (_K110183110197_ + (lambda (_k110194_ _id110195_) + (let ((__tmp116320 + (let ((__tmp116321 + (let ((__tmp116322 + (let ((__tmp116323 + (let ((__tmp116324 (let () (declare (not safe)) - (cons _k109033_ '())))) + (cons _k110194_ '())))) (declare (not safe)) - (cons _tmp109015_ - __tmp115163)))) + (cons _tmp110176_ + __tmp116324)))) (declare (not safe)) - (cons '##vector-ref __tmp115162)))) + (cons '##vector-ref __tmp116323)))) (declare (not safe)) - (cons __tmp115161 '())))) + (cons __tmp116322 '())))) (declare (not safe)) - (cons _id109034_ __tmp115160)))) + (cons _id110195_ __tmp116321)))) (declare (not safe)) - (cons __tmp115159 _r109018_))))) + (cons __tmp116320 _r110179_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd109019109026_)) - (let ((_hd109023109039_ + (##pair? _hd110180110187_)) + (let ((_hd110184110200_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd109019109026_))) - (_tl109024109041_ - (let () (declare (not safe)) (##cdr _hd109019109026_)))) - (let* ((_id109044_ _hd109023109039_) - (_k109046_ _tl109024109041_)) + (##car _hd110180110187_))) + (_tl110185110202_ + (let () (declare (not safe)) (##cdr _hd110180110187_)))) + (let* ((_id110205_ _hd110184110200_) + (_k110207_ _tl110185110202_)) (declare (not safe)) - (_K109022109036_ _k109046_ _id109044_))) - (let () (declare (not safe)) (_E109021109030_))))))) + (_K110183110197_ _k110207_ _id110205_))) + (let () (declare (not safe)) (_E110182110191_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp115158 - _bind108988_ - _init109013_)))) + (foldr1 __tmp116319 + _bind110149_ + _init110174_)))) (declare (not safe)) - (_lp108984_ - _rest109012_ - __tmp115164 - __tmp115157))))) + (_lp110145_ + _rest110173_ + __tmp116325 + __tmp116318))))) (if (let () (declare (not safe)) - (##pair? _rest108989109001_)) - (let ((_hd108994109051_ + (##pair? _rest110150110162_)) + (let ((_hd110155110212_ (let () (declare (not safe)) - (##car _rest108989109001_))) - (_tl108995109053_ + (##car _rest110150110162_))) + (_tl110156110214_ (let () (declare (not safe)) - (##cdr _rest108989109001_)))) + (##cdr _rest110150110162_)))) (if (let () (declare (not safe)) - (##pair? _hd108994109051_)) - (let ((_hd108996109056_ + (##pair? _hd110155110212_)) + (let ((_hd110157110217_ (let () (declare (not safe)) - (##car _hd108994109051_))) - (_tl108997109058_ + (##car _hd110155110212_))) + (_tl110158110219_ (let () (declare (not safe)) - (##cdr _hd108994109051_)))) - (let ((_tmp109061_ _hd108996109056_)) + (##cdr _hd110155110212_)))) + (let ((_tmp110222_ _hd110157110217_)) (if (let () (declare (not safe)) - (##pair? _tl108997109058_)) - (let ((_hd108998109063_ + (##pair? _tl110158110219_)) + (let ((_hd110159110224_ (let () (declare (not safe)) - (##car _tl108997109058_))) - (_tl108999109065_ + (##car _tl110158110219_))) + (_tl110160110226_ (let () (declare (not safe)) - (##cdr _tl108997109058_)))) - (let* ((_len109068_ - _hd108998109063_) - (_init109070_ - _tl108999109065_) - (_rest109072_ - _tl108995109053_)) + (##cdr _tl110158110219_)))) + (let* ((_len110229_ + _hd110159110224_) + (_init110231_ + _tl110160110226_) + (_rest110233_ + _tl110156110214_)) (declare (not safe)) - (_K108993109048_ - _rest109072_ - _init109070_ - _len109068_ - _tmp109061_))) + (_K110154110209_ + _rest110233_ + _init110231_ + _len110229_ + _tmp110222_))) (let () (declare (not safe)) - (_else108991109009_))))) + (_else110152110170_))))) (let () (declare (not safe)) - (_else108991109009_)))) + (_else110152110170_)))) (let () (declare (not safe)) - (_else108991109009_)))))))) + (_else110152110170_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx108975_ - _compile-simple108977_ - _compile-values108978_))))) + _stx110136_ + _compile-simple110138_ + _compile-values110139_))))) (define __compile-letrec-values% - (lambda (_stx108775_) - (letrec ((_compile-simple108777_ - (lambda (_hd-ids108971_ _exprs108972_ _body108973_) - (let ((__tmp115169 - (let ((__tmp115170 - (let ((__tmp115172 + (lambda (_stx109936_) + (letrec ((_compile-simple109938_ + (lambda (_hd-ids110132_ _exprs110133_ _body110134_) + (let ((__tmp116330 + (let ((__tmp116331 + (let ((__tmp116333 (map list (map __compile-head-id - _hd-ids108971_) - _exprs108972_)) - (__tmp115171 + _hd-ids110132_) + _exprs110133_)) + (__tmp116332 (let () (declare (not safe)) - (cons _body108973_ '())))) + (cons _body110134_ '())))) (declare (not safe)) - (cons __tmp115172 __tmp115171)))) + (cons __tmp116333 __tmp116332)))) (declare (not safe)) - (cons 'letrec __tmp115170)))) + (cons 'letrec __tmp116331)))) (declare (not safe)) - (__SRC__% __tmp115169 _stx108775_)))) - (_compile-values108778_ - (lambda (_hd-ids108885_ _exprs108886_ _body108887_) - (let _lp108889_ ((_rest108891_ _hd-ids108885_) - (_exprs108892_ _exprs108886_) - (_pre108893_ '()) - (_bind108894_ '()) - (_post108895_ '())) - (let* ((_rest108896108910_ _rest108891_) - (_else108899108918_ + (__SRC__% __tmp116330 _stx109936_)))) + (_compile-values109939_ + (lambda (_hd-ids110046_ _exprs110047_ _body110048_) + (let _lp110050_ ((_rest110052_ _hd-ids110046_) + (_exprs110053_ _exprs110047_) + (_pre110054_ '()) + (_bind110055_ '()) + (_post110056_ '())) + (let* ((_rest110057110071_ _rest110052_) + (_else110060110079_ (lambda () (let () (declare (not safe)) - (_compile-inner108779_ - _pre108893_ - _bind108894_ - _post108895_ - _body108887_))))) - (let ((_K108904108954_ - (lambda (_rest108951_ _id108952_) - (let ((__tmp115178 (cdr _exprs108892_)) - (__tmp115173 - (let ((__tmp115174 - (let ((__tmp115177 + (_compile-inner109940_ + _pre110054_ + _bind110055_ + _post110056_ + _body110048_))))) + (let ((_K110065110115_ + (lambda (_rest110112_ _id110113_) + (let ((__tmp116339 (cdr _exprs110053_)) + (__tmp116334 + (let ((__tmp116335 + (let ((__tmp116338 (let () (declare (not safe)) (__compile-head-id - _id108952_))) - (__tmp115175 - (let ((__tmp115176 - (car _exprs108892_))) + _id110113_))) + (__tmp116336 + (let ((__tmp116337 + (car _exprs110053_))) (declare (not safe)) - (cons __tmp115176 + (cons __tmp116337 '())))) (declare (not safe)) - (cons __tmp115177 - __tmp115175)))) + (cons __tmp116338 + __tmp116336)))) (declare (not safe)) - (cons __tmp115174 _bind108894_)))) + (cons __tmp116335 _bind110055_)))) (declare (not safe)) - (_lp108889_ - _rest108951_ - __tmp115178 - _pre108893_ - __tmp115173 - _post108895_)))) - (_K108901108936_ - (lambda (_rest108922_ _hd108923_) + (_lp110050_ + _rest110112_ + __tmp116339 + _pre110054_ + __tmp116334 + _post110056_)))) + (_K110062110097_ + (lambda (_rest110083_ _hd110084_) (if (let () (declare (not safe)) - (__AST-id? _hd108923_)) - (let ((__tmp115206 (cdr _exprs108892_)) - (__tmp115199 - (let ((__tmp115200 - (let ((__tmp115205 + (__AST-id? _hd110084_)) + (let ((__tmp116367 (cdr _exprs110053_)) + (__tmp116360 + (let ((__tmp116361 + (let ((__tmp116366 (let () (declare (not safe)) (__compile-head-id - _hd108923_))) - (__tmp115201 - (let ((__tmp115202 + _hd110084_))) + (__tmp116362 + (let ((__tmp116363 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115203 - (let ((__tmp115204 (car _exprs108892_))) + (let ((__tmp116364 + (let ((__tmp116365 (car _exprs110053_))) (declare (not safe)) - (cons __tmp115204 '())))) + (cons __tmp116365 '())))) (declare (not safe)) - (cons 'values->list __tmp115203)))) + (cons 'values->list __tmp116364)))) (declare (not safe)) - (cons __tmp115202 '())))) + (cons __tmp116363 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115205 - __tmp115201)))) + (cons __tmp116366 + __tmp116362)))) (declare (not safe)) - (cons __tmp115200 - _bind108894_)))) + (cons __tmp116361 + _bind110055_)))) (declare (not safe)) - (_lp108889_ - _rest108922_ - __tmp115206 - _pre108893_ - __tmp115199 - _post108895_)) + (_lp110050_ + _rest110083_ + __tmp116367 + _pre110054_ + __tmp116360 + _post110056_)) (if (let () (declare (not safe)) - (list? _hd108923_)) - (let* ((_len108925_ - (length _hd108923_)) - (_tmp108927_ - (let ((__tmp115179 (gensym))) + (list? _hd110084_)) + (let* ((_len110086_ + (length _hd110084_)) + (_tmp110088_ + (let ((__tmp116340 (gensym))) (declare (not safe)) - (__SRC__0 __tmp115179)))) - (let ((__tmp115198 - (cdr _exprs108892_)) - (__tmp115191 - (let ((__tmp115192 - (lambda (_id108930_ + (__SRC__0 __tmp116340)))) + (let ((__tmp116359 + (cdr _exprs110053_)) + (__tmp116352 + (let ((__tmp116353 + (lambda (_id110091_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r108931_) - (if (let () (declare (not safe)) (__AST-e _id108930_)) - (let ((__tmp115193 - (let ((__tmp115197 + _r110092_) + (if (let () (declare (not safe)) (__AST-e _id110091_)) + (let ((__tmp116354 + (let ((__tmp116358 (let () (declare (not safe)) - (__SRC__0 _id108930_))) - (__tmp115194 - (let ((__tmp115195 - (let ((__tmp115196 + (__SRC__0 _id110091_))) + (__tmp116355 + (let ((__tmp116356 + (let ((__tmp116357 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp115196)))) + (cons 'quote __tmp116357)))) (declare (not safe)) - (cons __tmp115195 '())))) + (cons __tmp116356 '())))) (declare (not safe)) - (cons __tmp115197 __tmp115194)))) + (cons __tmp116358 __tmp116355)))) (declare (not safe)) - (cons __tmp115193 _r108931_)) - _r108931_)))) + (cons __tmp116354 _r110092_)) + _r110092_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldl1 __tmp115192 - _pre108893_ - _hd108923_))) - (__tmp115187 - (let ((__tmp115188 - (let ((__tmp115189 - (let ((__tmp115190 + (foldl1 __tmp116353 + _pre110054_ + _hd110084_))) + (__tmp116348 + (let ((__tmp116349 + (let ((__tmp116350 + (let ((__tmp116351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs108892_))) + (car _exprs110053_))) (declare (not safe)) - (cons __tmp115190 '())))) + (cons __tmp116351 '())))) (declare (not safe)) - (cons _tmp108927_ __tmp115189)))) + (cons _tmp110088_ __tmp116350)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115188 - _bind108894_))) - (__tmp115180 - (let ((__tmp115181 - (let ((__tmp115182 - (let ((__tmp115183 + (cons __tmp116349 + _bind110055_))) + (__tmp116341 + (let ((__tmp116342 + (let ((__tmp116343 + (let ((__tmp116344 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115185 - (lambda (_id108933_ _k108934_) + (let ((__tmp116346 + (lambda (_id110094_ _k110095_) (if (let () (declare (not safe)) - (__AST-e _id108933_)) - (let ((__tmp115186 + (__AST-e _id110094_)) + (let ((__tmp116347 (let () (declare (not safe)) - (__SRC__0 _id108933_)))) + (__SRC__0 _id110094_)))) (declare (not safe)) - (cons __tmp115186 _k108934_)) + (cons __tmp116347 _k110095_)) '#f))) - (__tmp115184 + (__tmp116345 (let () (declare (not safe)) - (iota _len108925_)))) + (iota _len110086_)))) (declare (not safe)) (filter-map2 - __tmp115185 - _hd108923_ - __tmp115184)))) + __tmp116346 + _hd110084_ + __tmp116345)))) (declare (not safe)) - (cons _len108925_ __tmp115183)))) + (cons _len110086_ __tmp116344)))) (declare (not safe)) - (cons _tmp108927_ __tmp115182)))) + (cons _tmp110088_ __tmp116343)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115181 - _post108895_)))) + (cons __tmp116342 + _post110056_)))) (declare (not safe)) - (_lp108889_ - _rest108922_ - __tmp115198 - __tmp115191 - __tmp115187 - __tmp115180))) + (_lp110050_ + _rest110083_ + __tmp116359 + __tmp116352 + __tmp116348 + __tmp116341))) (let () (declare (not safe)) (__compile-error__% - _stx108775_ - _hd108923_))))))) + _stx109936_ + _hd110084_))))))) (if (let () (declare (not safe)) - (##pair? _rest108896108910_)) - (let ((_tl108906108959_ + (##pair? _rest110057110071_)) + (let ((_tl110067110120_ (let () (declare (not safe)) - (##cdr _rest108896108910_))) - (_hd108905108957_ + (##cdr _rest110057110071_))) + (_hd110066110118_ (let () (declare (not safe)) - (##car _rest108896108910_)))) + (##car _rest110057110071_)))) (if (let () (declare (not safe)) - (##pair? _hd108905108957_)) - (let ((_tl108908108964_ + (##pair? _hd110066110118_)) + (let ((_tl110069110125_ (let () (declare (not safe)) - (##cdr _hd108905108957_))) - (_hd108907108962_ + (##cdr _hd110066110118_))) + (_hd110068110123_ (let () (declare (not safe)) - (##car _hd108905108957_)))) + (##car _hd110066110118_)))) (if (let () (declare (not safe)) - (##null? _tl108908108964_)) - (let ((_id108967_ _hd108907108962_) - (_rest108969_ - _tl108906108959_)) + (##null? _tl110069110125_)) + (let ((_id110128_ _hd110068110123_) + (_rest110130_ + _tl110067110120_)) (let () (declare (not safe)) - (_K108904108954_ - _rest108969_ - _id108967_))) - (let ((_hd108944_ _hd108905108957_) - (_rest108946_ - _tl108906108959_)) + (_K110065110115_ + _rest110130_ + _id110128_))) + (let ((_hd110105_ _hd110066110118_) + (_rest110107_ + _tl110067110120_)) (let () (declare (not safe)) - (_K108901108936_ - _rest108946_ - _hd108944_))))) - (let ((_hd108944_ _hd108905108957_) - (_rest108946_ _tl108906108959_)) + (_K110062110097_ + _rest110107_ + _hd110105_))))) + (let ((_hd110105_ _hd110066110118_) + (_rest110107_ _tl110067110120_)) (let () (declare (not safe)) - (_K108901108936_ - _rest108946_ - _hd108944_))))) + (_K110062110097_ + _rest110107_ + _hd110105_))))) (let () (declare (not safe)) - (_else108899108918_)))))))) - (_compile-inner108779_ - (lambda (_pre108880_ _bind108881_ _post108882_ _body108883_) - (if (let () (declare (not safe)) (null? _pre108880_)) + (_else110060110079_)))))))) + (_compile-inner109940_ + (lambda (_pre110041_ _bind110042_ _post110043_ _body110044_) + (if (let () (declare (not safe)) (null? _pre110041_)) (let () (declare (not safe)) - (_compile-bind108780_ - _bind108881_ - _post108882_ - _body108883_)) - (let ((__tmp115207 - (let ((__tmp115208 - (let ((__tmp115211 (reverse _pre108880_)) - (__tmp115209 - (let ((__tmp115210 + (_compile-bind109941_ + _bind110042_ + _post110043_ + _body110044_)) + (let ((__tmp116368 + (let ((__tmp116369 + (let ((__tmp116372 (reverse _pre110041_)) + (__tmp116370 + (let ((__tmp116371 (let () (declare (not safe)) - (_compile-bind108780_ - _bind108881_ - _post108882_ - _body108883_)))) + (_compile-bind109941_ + _bind110042_ + _post110043_ + _body110044_)))) (declare (not safe)) - (cons __tmp115210 '())))) + (cons __tmp116371 '())))) (declare (not safe)) - (cons __tmp115211 __tmp115209)))) + (cons __tmp116372 __tmp116370)))) (declare (not safe)) - (cons 'let __tmp115208)))) + (cons 'let __tmp116369)))) (declare (not safe)) - (__SRC__% __tmp115207 _stx108775_))))) - (_compile-bind108780_ - (lambda (_bind108876_ _post108877_ _body108878_) - (let ((__tmp115212 - (let ((__tmp115213 - (let ((__tmp115216 (reverse _bind108876_)) - (__tmp115214 - (let ((__tmp115215 + (__SRC__% __tmp116368 _stx109936_))))) + (_compile-bind109941_ + (lambda (_bind110037_ _post110038_ _body110039_) + (let ((__tmp116373 + (let ((__tmp116374 + (let ((__tmp116377 (reverse _bind110037_)) + (__tmp116375 + (let ((__tmp116376 (let () (declare (not safe)) - (_compile-post108781_ - _post108877_ - _body108878_)))) + (_compile-post109942_ + _post110038_ + _body110039_)))) (declare (not safe)) - (cons __tmp115215 '())))) + (cons __tmp116376 '())))) (declare (not safe)) - (cons __tmp115216 __tmp115214)))) + (cons __tmp116377 __tmp116375)))) (declare (not safe)) - (cons 'letrec __tmp115213)))) + (cons 'letrec __tmp116374)))) (declare (not safe)) - (__SRC__% __tmp115212 _stx108775_)))) - (_compile-post108781_ - (lambda (_post108783_ _body108784_) - (let _lp108786_ ((_rest108788_ _post108783_) - (_check108789_ '()) - (_bind108790_ '())) - (let* ((_rest108791108803_ _rest108788_) - (_else108793108811_ + (__SRC__% __tmp116373 _stx109936_)))) + (_compile-post109942_ + (lambda (_post109944_ _body109945_) + (let _lp109947_ ((_rest109949_ _post109944_) + (_check109950_ '()) + (_bind109951_ '())) + (let* ((_rest109952109964_ _rest109949_) + (_else109954109972_ (lambda () - (let ((__tmp115217 - (let ((__tmp115218 - (let ((__tmp115219 - (let ((__tmp115220 + (let ((__tmp116378 + (let ((__tmp116379 + (let ((__tmp116380 + (let ((__tmp116381 (let () (declare (not safe)) - (cons _body108784_ + (cons _body109945_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (foldr1 cons __tmp115220 _bind108790_)))) + (foldr1 cons __tmp116381 _bind109951_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (foldr1 cons - __tmp115219 - _check108789_)))) + __tmp116380 + _check109950_)))) (declare (not safe)) - (cons 'begin __tmp115218)))) + (cons 'begin __tmp116379)))) (declare (not safe)) - (__SRC__% __tmp115217 _stx108775_)))) - (_K108795108850_ - (lambda (_rest108814_ - _init108815_ - _len108816_ - _tmp108817_) - (let ((__tmp115229 - (let ((__tmp115230 - (let ((__tmp115231 - (let ((__tmp115232 - (let ((__tmp115233 + (__SRC__% __tmp116378 _stx109936_)))) + (_K109956110011_ + (lambda (_rest109975_ + _init109976_ + _len109977_ + _tmp109978_) + (let ((__tmp116390 + (let ((__tmp116391 + (let ((__tmp116392 + (let ((__tmp116393 + (let ((__tmp116394 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (cons _len108816_ '())))) + (cons _len109977_ '())))) (declare (not safe)) - (cons _tmp108817_ __tmp115233)))) + (cons _tmp109978_ __tmp116394)))) (declare (not safe)) - (cons '__check-values __tmp115232)))) + (cons '__check-values __tmp116393)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__SRC__% - __tmp115231 - _stx108775_)))) + __tmp116392 + _stx109936_)))) (declare (not safe)) - (cons __tmp115230 _check108789_))) - (__tmp115221 - (let ((__tmp115222 - (lambda (_hd108819_ _r108820_) - (let* ((_hd108821108828_ - _hd108819_) - (_E108823108832_ + (cons __tmp116391 _check109950_))) + (__tmp116382 + (let ((__tmp116383 + (lambda (_hd109980_ _r109981_) + (let* ((_hd109982109989_ + _hd109980_) + (_E109984109993_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd108821108828_))) - (_K108824108838_ - (lambda (_k108835_ _id108836_) - (let ((__tmp115223 - (let ((__tmp115224 - (let ((__tmp115225 - (let ((__tmp115226 - (let ((__tmp115227 - (let ((__tmp115228 + _hd109982109989_))) + (_K109985109999_ + (lambda (_k109996_ _id109997_) + (let ((__tmp116384 + (let ((__tmp116385 + (let ((__tmp116386 + (let ((__tmp116387 + (let ((__tmp116388 + (let ((__tmp116389 (let () (declare (not safe)) - (cons _k108835_ + (cons _k109996_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) (declare (not safe)) - (cons _tmp108817_ __tmp115228)))) + (cons _tmp109978_ __tmp116389)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (cons '##vector-ref - __tmp115227)))) + __tmp116388)))) (declare (not safe)) - (cons __tmp115226 '())))) + (cons __tmp116387 '())))) (declare (not safe)) - (cons _id108836_ __tmp115225)))) + (cons _id109997_ __tmp116386)))) (declare (not safe)) - (cons 'set! __tmp115224)))) + (cons 'set! __tmp116385)))) (declare (not safe)) - (cons __tmp115223 _r108820_))))) + (cons __tmp116384 _r109981_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##pair? _hd108821108828_)) - (let ((_hd108825108841_ + (##pair? _hd109982109989_)) + (let ((_hd109986110002_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _hd108821108828_))) - (_tl108826108843_ - (let () (declare (not safe)) (##cdr _hd108821108828_)))) - (let* ((_id108846_ _hd108825108841_) - (_k108848_ _tl108826108843_)) + (##car _hd109982109989_))) + (_tl109987110004_ + (let () (declare (not safe)) (##cdr _hd109982109989_)))) + (let* ((_id110007_ _hd109986110002_) + (_k110009_ _tl109987110004_)) (declare (not safe)) - (_K108824108838_ _k108848_ _id108846_))) - (let () (declare (not safe)) (_E108823108832_))))))) + (_K109985109999_ _k110009_ _id110007_))) + (let () (declare (not safe)) (_E109984109993_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (foldr1 __tmp115222 - _bind108790_ - _init108815_)))) + (foldr1 __tmp116383 + _bind109951_ + _init109976_)))) (declare (not safe)) - (_lp108786_ - _rest108814_ - __tmp115229 - __tmp115221))))) + (_lp109947_ + _rest109975_ + __tmp116390 + __tmp116382))))) (if (let () (declare (not safe)) - (##pair? _rest108791108803_)) - (let ((_hd108796108853_ + (##pair? _rest109952109964_)) + (let ((_hd109957110014_ (let () (declare (not safe)) - (##car _rest108791108803_))) - (_tl108797108855_ + (##car _rest109952109964_))) + (_tl109958110016_ (let () (declare (not safe)) - (##cdr _rest108791108803_)))) + (##cdr _rest109952109964_)))) (if (let () (declare (not safe)) - (##pair? _hd108796108853_)) - (let ((_hd108798108858_ + (##pair? _hd109957110014_)) + (let ((_hd109959110019_ (let () (declare (not safe)) - (##car _hd108796108853_))) - (_tl108799108860_ + (##car _hd109957110014_))) + (_tl109960110021_ (let () (declare (not safe)) - (##cdr _hd108796108853_)))) - (let ((_tmp108863_ _hd108798108858_)) + (##cdr _hd109957110014_)))) + (let ((_tmp110024_ _hd109959110019_)) (if (let () (declare (not safe)) - (##pair? _tl108799108860_)) - (let ((_hd108800108865_ + (##pair? _tl109960110021_)) + (let ((_hd109961110026_ (let () (declare (not safe)) - (##car _tl108799108860_))) - (_tl108801108867_ + (##car _tl109960110021_))) + (_tl109962110028_ (let () (declare (not safe)) - (##cdr _tl108799108860_)))) - (let* ((_len108870_ - _hd108800108865_) - (_init108872_ - _tl108801108867_) - (_rest108874_ - _tl108797108855_)) + (##cdr _tl109960110021_)))) + (let* ((_len110031_ + _hd109961110026_) + (_init110033_ + _tl109962110028_) + (_rest110035_ + _tl109958110016_)) (declare (not safe)) - (_K108795108850_ - _rest108874_ - _init108872_ - _len108870_ - _tmp108863_))) + (_K109956110011_ + _rest110035_ + _init110033_ + _len110031_ + _tmp110024_))) (let () (declare (not safe)) - (_else108793108811_))))) + (_else109954109972_))))) (let () (declare (not safe)) - (_else108793108811_)))) + (_else109954109972_)))) (let () (declare (not safe)) - (_else108793108811_)))))))) + (_else109954109972_)))))))) (let () (declare (not safe)) (__compile-let-form - _stx108775_ - _compile-simple108777_ - _compile-values108778_))))) + _stx109936_ + _compile-simple109938_ + _compile-values109939_))))) (define __compile-letrec*-values% - (lambda (_stx108530_) - (letrec ((_compile-simple108532_ - (lambda (_hd-ids108771_ _exprs108772_ _body108773_) - (let ((__tmp115234 - (let ((__tmp115235 - (let ((__tmp115237 + (lambda (_stx109691_) + (letrec ((_compile-simple109693_ + (lambda (_hd-ids109932_ _exprs109933_ _body109934_) + (let ((__tmp116395 + (let ((__tmp116396 + (let ((__tmp116398 (map list (map __compile-head-id - _hd-ids108771_) - _exprs108772_)) - (__tmp115236 + _hd-ids109932_) + _exprs109933_)) + (__tmp116397 (let () (declare (not safe)) - (cons _body108773_ '())))) + (cons _body109934_ '())))) (declare (not safe)) - (cons __tmp115237 __tmp115236)))) + (cons __tmp116398 __tmp116397)))) (declare (not safe)) - (cons 'letrec* __tmp115235)))) + (cons 'letrec* __tmp116396)))) (declare (not safe)) - (__SRC__% __tmp115234 _stx108530_)))) - (_compile-values108533_ - (lambda (_hd-ids108682_ _exprs108683_ _body108684_) - (let _lp108686_ ((_rest108688_ _hd-ids108682_) - (_exprs108689_ _exprs108683_) - (_bind108690_ '()) - (_post108691_ '())) - (let* ((_rest108692108706_ _rest108688_) - (_else108695108714_ + (__SRC__% __tmp116395 _stx109691_)))) + (_compile-values109694_ + (lambda (_hd-ids109843_ _exprs109844_ _body109845_) + (let _lp109847_ ((_rest109849_ _hd-ids109843_) + (_exprs109850_ _exprs109844_) + (_bind109851_ '()) + (_post109852_ '())) + (let* ((_rest109853109867_ _rest109849_) + (_else109856109875_ (lambda () (let () (declare (not safe)) - (_compile-bind108534_ - _bind108690_ - _post108691_ - _body108684_))))) - (let ((_K108700108754_ - (lambda (_rest108749_ _hd108750_) + (_compile-bind109695_ + _bind109851_ + _post109852_ + _body109845_))))) + (let ((_K109861109915_ + (lambda (_rest109910_ _hd109911_) (if (let () (declare (not safe)) - (__AST-id? _hd108750_)) - (let ((_id108752_ + (__AST-id? _hd109911_)) + (let ((_id109913_ (let () (declare (not safe)) - (__SRC__0 _hd108750_)))) - (let ((__tmp115252 (cdr _exprs108689_)) - (__tmp115247 - (let ((__tmp115248 - (let ((__tmp115249 - (let ((__tmp115250 + (__SRC__0 _hd109911_)))) + (let ((__tmp116413 (cdr _exprs109850_)) + (__tmp116408 + (let ((__tmp116409 + (let ((__tmp116410 + (let ((__tmp116411 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115251 + (let ((__tmp116412 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp115251)))) + (cons 'quote __tmp116412)))) (declare (not safe)) - (cons __tmp115250 '())))) + (cons __tmp116411 '())))) (declare (not safe)) - (cons _id108752_ __tmp115249)))) + (cons _id109913_ __tmp116410)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115248 - _bind108690_))) - (__tmp115243 - (let ((__tmp115244 - (let ((__tmp115245 - (let ((__tmp115246 + (cons __tmp116409 + _bind109851_))) + (__tmp116404 + (let ((__tmp116405 + (let ((__tmp116406 + (let ((__tmp116407 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs108689_))) + (car _exprs109850_))) (declare (not safe)) - (cons __tmp115246 '())))) + (cons __tmp116407 '())))) (declare (not safe)) - (cons _id108752_ __tmp115245)))) + (cons _id109913_ __tmp116406)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115244 - _post108691_)))) + (cons __tmp116405 + _post109852_)))) (declare (not safe)) - (_lp108686_ - _rest108749_ - __tmp115252 - __tmp115247 - __tmp115243))) - (let ((__tmp115242 (cdr _exprs108689_)) - (__tmp115238 - (let ((__tmp115239 - (let ((__tmp115240 - (let ((__tmp115241 + (_lp109847_ + _rest109910_ + __tmp116413 + __tmp116408 + __tmp116404))) + (let ((__tmp116403 (cdr _exprs109850_)) + (__tmp116399 + (let ((__tmp116400 + (let ((__tmp116401 + (let ((__tmp116402 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs108689_))) + (car _exprs109850_))) (declare (not safe)) - (cons __tmp115241 '())))) + (cons __tmp116402 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons '#f __tmp115240)))) + (cons '#f __tmp116401)))) (declare (not safe)) - (cons __tmp115239 - _post108691_)))) + (cons __tmp116400 + _post109852_)))) (declare (not safe)) - (_lp108686_ - _rest108749_ - __tmp115242 - _bind108690_ - __tmp115238))))) - (_K108697108734_ - (lambda (_rest108718_ _hd108719_) + (_lp109847_ + _rest109910_ + __tmp116403 + _bind109851_ + __tmp116399))))) + (_K109858109895_ + (lambda (_rest109879_ _hd109880_) (if (let () (declare (not safe)) - (__AST-id? _hd108719_)) - (let ((_id108721_ + (__AST-id? _hd109880_)) + (let ((_id109882_ (let () (declare (not safe)) - (__SRC__0 _hd108719_)))) - (let ((__tmp115288 (cdr _exprs108689_)) - (__tmp115283 - (let ((__tmp115284 - (let ((__tmp115285 - (let ((__tmp115286 + (__SRC__0 _hd109880_)))) + (let ((__tmp116449 (cdr _exprs109850_)) + (__tmp116444 + (let ((__tmp116445 + (let ((__tmp116446 + (let ((__tmp116447 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115287 + (let ((__tmp116448 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp115287)))) + (cons 'quote __tmp116448)))) (declare (not safe)) - (cons __tmp115286 '())))) + (cons __tmp116447 '())))) (declare (not safe)) - (cons _id108721_ __tmp115285)))) + (cons _id109882_ __tmp116446)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115284 - _bind108690_))) - (__tmp115277 - (let ((__tmp115278 - (let ((__tmp115279 - (let ((__tmp115280 + (cons __tmp116445 + _bind109851_))) + (__tmp116438 + (let ((__tmp116439 + (let ((__tmp116440 + (let ((__tmp116441 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115281 - (let ((__tmp115282 (car _exprs108689_))) + (let ((__tmp116442 + (let ((__tmp116443 (car _exprs109850_))) (declare (not safe)) - (cons __tmp115282 '())))) + (cons __tmp116443 '())))) (declare (not safe)) - (cons 'values->list __tmp115281)))) + (cons 'values->list __tmp116442)))) (declare (not safe)) - (cons __tmp115280 '())))) + (cons __tmp116441 '())))) (declare (not safe)) - (cons _id108721_ __tmp115279)))) + (cons _id109882_ __tmp116440)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115278 - _post108691_)))) + (cons __tmp116439 + _post109852_)))) (declare (not safe)) - (_lp108686_ - _rest108718_ - __tmp115288 - __tmp115283 - __tmp115277))) - (if (let ((__tmp115276 + (_lp109847_ + _rest109879_ + __tmp116449 + __tmp116444 + __tmp116438))) + (if (let ((__tmp116437 (let () (declare (not safe)) - (__AST-e _hd108719_)))) + (__AST-e _hd109880_)))) (declare (not safe)) - (not __tmp115276)) - (let ((__tmp115275 - (cdr _exprs108689_)) - (__tmp115271 - (let ((__tmp115272 - (let ((__tmp115273 - (let ((__tmp115274 + (not __tmp116437)) + (let ((__tmp116436 + (cdr _exprs109850_)) + (__tmp116432 + (let ((__tmp116433 + (let ((__tmp116434 + (let ((__tmp116435 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (car _exprs108689_))) + (car _exprs109850_))) (declare (not safe)) - (cons __tmp115274 '())))) + (cons __tmp116435 '())))) (declare (not safe)) - (cons '#f __tmp115273)))) + (cons '#f __tmp116434)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115272 - _post108691_)))) + (cons __tmp116433 + _post109852_)))) (declare (not safe)) - (_lp108686_ - _rest108718_ - __tmp115275 - _bind108690_ - __tmp115271)) + (_lp109847_ + _rest109879_ + __tmp116436 + _bind109851_ + __tmp116432)) (if (let () (declare (not safe)) - (list? _hd108719_)) - (let* ((_len108723_ - (length _hd108719_)) - (_tmp108725_ - (let ((__tmp115253 + (list? _hd109880_)) + (let* ((_len109884_ + (length _hd109880_)) + (_tmp109886_ + (let ((__tmp116414 (gensym))) (declare (not safe)) (__SRC__0 - __tmp115253)))) - (let ((__tmp115270 - (cdr _exprs108689_)) - (__tmp115263 - (let ((__tmp115264 - (lambda (_id108728_ + __tmp116414)))) + (let ((__tmp116431 + (cdr _exprs109850_)) + (__tmp116424 + (let ((__tmp116425 + (lambda (_id109889_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _r108729_) - (if (let () (declare (not safe)) (__AST-e _id108728_)) - (let ((__tmp115265 - (let ((__tmp115269 + _r109890_) + (if (let () (declare (not safe)) (__AST-e _id109889_)) + (let ((__tmp116426 + (let ((__tmp116430 (let () (declare (not safe)) - (__SRC__0 _id108728_))) - (__tmp115266 - (let ((__tmp115267 - (let ((__tmp115268 + (__SRC__0 _id109889_))) + (__tmp116427 + (let ((__tmp116428 + (let ((__tmp116429 (let () (declare (not safe)) (cons '#!void '())))) (declare (not safe)) - (cons 'quote __tmp115268)))) + (cons 'quote __tmp116429)))) (declare (not safe)) - (cons __tmp115267 '())))) + (cons __tmp116428 '())))) (declare (not safe)) - (cons __tmp115269 __tmp115266)))) + (cons __tmp116430 __tmp116427)))) (declare (not safe)) - (cons __tmp115265 _r108729_)) - _r108729_)))) + (cons __tmp116426 _r109890_)) + _r109890_)))) (declare (not safe)) - (foldl1 __tmp115264 _bind108690_ _hd108719_))) + (foldl1 __tmp116425 _bind109851_ _hd109880_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp115254 - (let ((__tmp115255 - (let ((__tmp115256 + (__tmp116415 + (let ((__tmp116416 + (let ((__tmp116417 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115262 (car _exprs108689_)) - (__tmp115257 - (let ((__tmp115258 - (let ((__tmp115260 - (lambda (_id108731_ _k108732_) + (let ((__tmp116423 (car _exprs109850_)) + (__tmp116418 + (let ((__tmp116419 + (let ((__tmp116421 + (lambda (_id109892_ _k109893_) (if (let () (declare (not safe)) - (__AST-e _id108731_)) - (let ((__tmp115261 + (__AST-e _id109892_)) + (let ((__tmp116422 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__SRC__0 _id108731_)))) + (__SRC__0 _id109892_)))) (declare (not safe)) - (cons __tmp115261 _k108732_)) + (cons __tmp116422 _k109893_)) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp115259 + (__tmp116420 (let () (declare (not safe)) - (iota _len108723_)))) + (iota _len109884_)))) (declare (not safe)) (filter-map2 - __tmp115260 - _hd108719_ - __tmp115259)))) + __tmp116421 + _hd109880_ + __tmp116420)))) (declare (not safe)) - (cons _len108723_ __tmp115258)))) + (cons _len109884_ __tmp116419)))) (declare (not safe)) - (cons __tmp115262 __tmp115257)))) + (cons __tmp116423 __tmp116418)))) (declare (not safe)) - (cons _tmp108725_ __tmp115256)))) + (cons _tmp109886_ __tmp116417)))) (declare (not safe)) - (cons __tmp115255 _post108691_)))) + (cons __tmp116416 _post109852_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (_lp108686_ - _rest108718_ - __tmp115270 - __tmp115263 - __tmp115254))) + (_lp109847_ + _rest109879_ + __tmp116431 + __tmp116424 + __tmp116415))) (let () (declare (not safe)) (__compile-error__% - _stx108530_ - _hd108719_)))))))) + _stx109691_ + _hd109880_)))))))) (if (let () (declare (not safe)) - (##pair? _rest108692108706_)) - (let ((_tl108702108759_ + (##pair? _rest109853109867_)) + (let ((_tl109863109920_ (let () (declare (not safe)) - (##cdr _rest108692108706_))) - (_hd108701108757_ + (##cdr _rest109853109867_))) + (_hd109862109918_ (let () (declare (not safe)) - (##car _rest108692108706_)))) + (##car _rest109853109867_)))) (if (let () (declare (not safe)) - (##pair? _hd108701108757_)) - (let ((_tl108704108764_ + (##pair? _hd109862109918_)) + (let ((_tl109865109925_ (let () (declare (not safe)) - (##cdr _hd108701108757_))) - (_hd108703108762_ + (##cdr _hd109862109918_))) + (_hd109864109923_ (let () (declare (not safe)) - (##car _hd108701108757_)))) + (##car _hd109862109918_)))) (if (let () (declare (not safe)) - (##null? _tl108704108764_)) - (let ((_hd108767_ _hd108703108762_) - (_rest108769_ - _tl108702108759_)) + (##null? _tl109865109925_)) + (let ((_hd109928_ _hd109864109923_) + (_rest109930_ + _tl109863109920_)) (let () (declare (not safe)) - (_K108700108754_ - _rest108769_ - _hd108767_))) - (let ((_hd108742_ _hd108701108757_) - (_rest108744_ - _tl108702108759_)) + (_K109861109915_ + _rest109930_ + _hd109928_))) + (let ((_hd109903_ _hd109862109918_) + (_rest109905_ + _tl109863109920_)) (let () (declare (not safe)) - (_K108697108734_ - _rest108744_ - _hd108742_))))) - (let ((_hd108742_ _hd108701108757_) - (_rest108744_ _tl108702108759_)) + (_K109858109895_ + _rest109905_ + _hd109903_))))) + (let ((_hd109903_ _hd109862109918_) + (_rest109905_ _tl109863109920_)) (let () (declare (not safe)) - (_K108697108734_ - _rest108744_ - _hd108742_))))) + (_K109858109895_ + _rest109905_ + _hd109903_))))) (let () (declare (not safe)) - (_else108695108714_)))))))) - (_compile-bind108534_ - (lambda (_bind108678_ _post108679_ _body108680_) - (let ((__tmp115289 - (let ((__tmp115290 - (let ((__tmp115293 (reverse _bind108678_)) - (__tmp115291 - (let ((__tmp115292 + (_else109856109875_)))))))) + (_compile-bind109695_ + (lambda (_bind109839_ _post109840_ _body109841_) + (let ((__tmp116450 + (let ((__tmp116451 + (let ((__tmp116454 (reverse _bind109839_)) + (__tmp116452 + (let ((__tmp116453 (let () (declare (not safe)) - (_compile-post108535_ - _post108679_ - _body108680_)))) + (_compile-post109696_ + _post109840_ + _body109841_)))) (declare (not safe)) - (cons __tmp115292 '())))) + (cons __tmp116453 '())))) (declare (not safe)) - (cons __tmp115293 __tmp115291)))) + (cons __tmp116454 __tmp116452)))) (declare (not safe)) - (cons 'let __tmp115290)))) + (cons 'let __tmp116451)))) (declare (not safe)) - (__SRC__% __tmp115289 _stx108530_)))) - (_compile-post108535_ - (lambda (_post108537_ _body108538_) - (let ((__tmp115294 - (let ((__tmp115295 - (let ((__tmp115296 - (let ((__tmp115298 - (lambda (_hd108540_ _r108541_) - (let* ((_hd108542108565_ - _hd108540_) - (_E108546108569_ + (__SRC__% __tmp116450 _stx109691_)))) + (_compile-post109696_ + (lambda (_post109698_ _body109699_) + (let ((__tmp116455 + (let ((__tmp116456 + (let ((__tmp116457 + (let ((__tmp116459 + (lambda (_hd109701_ _r109702_) + (let* ((_hd109703109726_ + _hd109701_) + (_E109707109730_ (lambda () (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _hd108542108565_)))) + _hd109703109726_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_K108559108663_ - (lambda (_expr108661_) + (let ((_K109720109824_ + (lambda (_expr109822_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _expr108661_ _r108541_)))) - (_K108554108641_ - (lambda (_expr108638_ _id108639_) - (let ((__tmp115299 - (let ((__tmp115300 - (let ((__tmp115301 - (let ((__tmp115302 + (cons _expr109822_ _r109702_)))) + (_K109715109802_ + (lambda (_expr109799_ _id109800_) + (let ((__tmp116460 + (let ((__tmp116461 + (let ((__tmp116462 + (let ((__tmp116463 (let () (declare (not safe)) - (cons _expr108638_ '())))) + (cons _expr109799_ '())))) (declare (not safe)) - (cons _id108639_ __tmp115302)))) + (cons _id109800_ __tmp116463)))) (declare (not safe)) - (cons 'set! __tmp115301)))) + (cons 'set! __tmp116462)))) (declare (not safe)) - (__SRC__% __tmp115300 _stx108530_)))) + (__SRC__% __tmp116461 _stx109691_)))) (declare (not safe)) - (cons __tmp115299 _r108541_)))) - (_K108547108608_ - (lambda (_init108573_ _len108574_ _expr108575_ _tmp108576_) - (let ((__tmp115303 - (let ((__tmp115304 - (let ((__tmp115305 - (let ((__tmp115319 - (let ((__tmp115320 - (let ((__tmp115321 + (cons __tmp116460 _r109702_)))) + (_K109708109769_ + (lambda (_init109734_ _len109735_ _expr109736_ _tmp109737_) + (let ((__tmp116464 + (let ((__tmp116465 + (let ((__tmp116466 + (let ((__tmp116480 + (let ((__tmp116481 + (let ((__tmp116482 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _expr108575_ '())))) + (cons _expr109736_ '())))) (declare (not safe)) - (cons _tmp108576_ __tmp115321)))) + (cons _tmp109737_ __tmp116482)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115320 '()))) - (__tmp115306 - (let ((__tmp115315 - (let ((__tmp115316 - (let ((__tmp115317 + (cons __tmp116481 '()))) + (__tmp116467 + (let ((__tmp116476 + (let ((__tmp116477 + (let ((__tmp116478 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115318 + (let ((__tmp116479 (let () (declare (not safe)) - (cons _len108574_ '())))) + (cons _len109735_ '())))) (declare (not safe)) - (cons _tmp108576_ __tmp115318)))) + (cons _tmp109737_ __tmp116479)))) (declare (not safe)) - (cons '__check-values __tmp115317)))) + (cons '__check-values __tmp116478)))) (declare (not safe)) - (__SRC__% __tmp115316 _stx108530_))) - (__tmp115307 - (let ((__tmp115308 - (map (lambda (_hd108578_) - (let* ((_hd108579108586_ _hd108578_) - (_E108581108590_ + (__SRC__% __tmp116477 _stx109691_))) + (__tmp116468 + (let ((__tmp116469 + (map (lambda (_hd109739_) + (let* ((_hd109740109747_ _hd109739_) + (_E109742109751_ (lambda () (error '"No clause matching" - _hd108579108586_))) - (_K108582108596_ - (lambda (_k108593_ _id108594_) - (let ((__tmp115309 - (let ((__tmp115310 - (let ((__tmp115311 - (let ((__tmp115312 + _hd109740109747_))) + (_K109743109757_ + (lambda (_k109754_ _id109755_) + (let ((__tmp116470 + (let ((__tmp116471 + (let ((__tmp116472 + (let ((__tmp116473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp115313 - (let ((__tmp115314 + (let ((__tmp116474 + (let ((__tmp116475 (let () (declare (not safe)) - (cons _k108593_ '())))) + (cons _k109754_ '())))) (declare (not safe)) - (cons _tmp108576_ __tmp115314)))) + (cons _tmp109737_ __tmp116475)))) (declare (not safe)) - (cons '##vector-ref __tmp115313)))) + (cons '##vector-ref __tmp116474)))) (declare (not safe)) - (cons __tmp115312 '())))) + (cons __tmp116473 '())))) (declare (not safe)) - (cons _id108594_ __tmp115311)))) + (cons _id109755_ __tmp116472)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'set! __tmp115310)))) + (cons 'set! __tmp116471)))) (declare (not safe)) (__SRC__% - __tmp115309 - _stx108530_))))) + __tmp116470 + _stx109691_))))) (if (let () (declare (not safe)) - (##pair? _hd108579108586_)) - (let ((_hd108583108599_ + (##pair? _hd109740109747_)) + (let ((_hd109744109760_ (let () (declare (not safe)) - (##car _hd108579108586_))) - (_tl108584108601_ + (##car _hd109740109747_))) + (_tl109745109762_ (let () (declare (not safe)) - (##cdr _hd108579108586_)))) - (let* ((_id108604_ _hd108583108599_) - (_k108606_ _tl108584108601_)) + (##cdr _hd109740109747_)))) + (let* ((_id109765_ _hd109744109760_) + (_k109767_ _tl109745109762_)) (declare (not safe)) - (_K108582108596_ - _k108606_ - _id108604_))) + (_K109743109757_ + _k109767_ + _id109765_))) (let () (declare (not safe)) - (_E108581108590_))))) - _init108573_))) + (_E109742109751_))))) + _init109734_))) (declare (not safe)) - (foldr1 cons '() __tmp115308)))) + (foldr1 cons '() __tmp116469)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115315 - __tmp115307)))) + (cons __tmp116476 + __tmp116468)))) (declare (not safe)) - (cons __tmp115319 __tmp115306)))) + (cons __tmp116480 __tmp116467)))) (declare (not safe)) - (cons 'let __tmp115305)))) + (cons 'let __tmp116466)))) (declare (not safe)) - (__SRC__% __tmp115304 _stx108530_)))) + (__SRC__% __tmp116465 _stx109691_)))) (declare (not safe)) - (cons __tmp115303 _r108541_))))) - (if (let () (declare (not safe)) (##pair? _hd108542108565_)) - (let ((_tl108561108668_ + (cons __tmp116464 _r109702_))))) + (if (let () (declare (not safe)) (##pair? _hd109703109726_)) + (let ((_tl109722109829_ (let () (declare (not safe)) - (##cdr _hd108542108565_))) - (_hd108560108666_ + (##cdr _hd109703109726_))) + (_hd109721109827_ (let () (declare (not safe)) - (##car _hd108542108565_)))) + (##car _hd109703109726_)))) (if (let () (declare (not safe)) - (##eq? _hd108560108666_ '#f)) + (##eq? _hd109721109827_ '#f)) (if (let () (declare (not safe)) - (##pair? _tl108561108668_)) - (let ((_tl108563108673_ + (##pair? _tl109722109829_)) + (let ((_tl109724109834_ (let () (declare (not safe)) - (##cdr _tl108561108668_))) - (_hd108562108671_ + (##cdr _tl109722109829_))) + (_hd109723109832_ (let () (declare (not safe)) - (##car _tl108561108668_)))) + (##car _tl109722109829_)))) (if (let () (declare (not safe)) - (##null? _tl108563108673_)) - (let ((_expr108676_ _hd108562108671_)) + (##null? _tl109724109834_)) + (let ((_expr109837_ _hd109723109832_)) (declare (not safe)) - (_K108559108663_ _expr108676_)) + (_K109720109824_ _expr109837_)) (if (let () (declare (not safe)) - (##pair? _tl108563108673_)) - (let ((_tl108553108627_ + (##pair? _tl109724109834_)) + (let ((_tl109714109788_ (let () (declare (not safe)) - (##cdr _tl108563108673_))) - (_hd108552108625_ + (##cdr _tl109724109834_))) + (_hd109713109786_ (let () (declare (not safe)) - (##car _tl108563108673_)))) - (let ((_tmp108616_ _hd108560108666_) - (_expr108623_ _hd108562108671_) - (_len108630_ _hd108552108625_) - (_init108632_ _tl108553108627_)) + (##car _tl109724109834_)))) + (let ((_tmp109777_ _hd109721109827_) + (_expr109784_ _hd109723109832_) + (_len109791_ _hd109713109786_) + (_init109793_ _tl109714109788_)) (let () (declare (not safe)) - (_K108547108608_ - _init108632_ - _len108630_ - _expr108623_ - _tmp108616_)))) + (_K109708109769_ + _init109793_ + _len109791_ + _expr109784_ + _tmp109777_)))) (let () (declare (not safe)) - (_E108546108569_))))) - (let () (declare (not safe)) (_E108546108569_))) + (_E109707109730_))))) + (let () (declare (not safe)) (_E109707109730_))) (if (let () (declare (not safe)) - (##pair? _tl108561108668_)) - (let ((_tl108558108653_ + (##pair? _tl109722109829_)) + (let ((_tl109719109814_ (let () (declare (not safe)) - (##cdr _tl108561108668_))) - (_hd108557108651_ + (##cdr _tl109722109829_))) + (_hd109718109812_ (let () (declare (not safe)) - (##car _tl108561108668_)))) + (##car _tl109722109829_)))) (if (let () (declare (not safe)) - (##null? _tl108558108653_)) - (let ((_id108649_ _hd108560108666_) - (_expr108656_ _hd108557108651_)) + (##null? _tl109719109814_)) + (let ((_id109810_ _hd109721109827_) + (_expr109817_ _hd109718109812_)) (let () (declare (not safe)) - (_K108554108641_ - _expr108656_ - _id108649_))) + (_K109715109802_ + _expr109817_ + _id109810_))) (if (let () (declare (not safe)) - (##pair? _tl108558108653_)) - (let ((_tl108553108627_ + (##pair? _tl109719109814_)) + (let ((_tl109714109788_ (let () (declare (not safe)) - (##cdr _tl108558108653_))) - (_hd108552108625_ + (##cdr _tl109719109814_))) + (_hd109713109786_ (let () (declare (not safe)) - (##car _tl108558108653_)))) - (let ((_tmp108616_ _hd108560108666_) - (_expr108623_ _hd108557108651_) - (_len108630_ _hd108552108625_) - (_init108632_ _tl108553108627_)) + (##car _tl109719109814_)))) + (let ((_tmp109777_ _hd109721109827_) + (_expr109784_ _hd109718109812_) + (_len109791_ _hd109713109786_) + (_init109793_ _tl109714109788_)) (let () (declare (not safe)) - (_K108547108608_ - _init108632_ - _len108630_ - _expr108623_ - _tmp108616_)))) + (_K109708109769_ + _init109793_ + _len109791_ + _expr109784_ + _tmp109777_)))) (let () (declare (not safe)) - (_E108546108569_))))) - (let () (declare (not safe)) (_E108546108569_))))) - (let () (declare (not safe)) (_E108546108569_))))))) + (_E109707109730_))))) + (let () (declare (not safe)) (_E109707109730_))))) + (let () (declare (not safe)) (_E109707109730_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp115297 - (list _body108538_))) + (__tmp116458 + (list _body109699_))) (declare (not safe)) - (foldl1 __tmp115298 - __tmp115297 - _post108537_)))) + (foldl1 __tmp116459 + __tmp116458 + _post109698_)))) (declare (not safe)) - (foldr1 cons '() __tmp115296)))) + (foldr1 cons '() __tmp116457)))) (declare (not safe)) - (cons 'begin __tmp115295)))) + (cons 'begin __tmp116456)))) (declare (not safe)) - (__SRC__% __tmp115294 _stx108530_))))) + (__SRC__% __tmp116455 _stx109691_))))) (let () (declare (not safe)) (__compile-let-form - _stx108530_ - _compile-simple108532_ - _compile-values108533_))))) + _stx109691_ + _compile-simple109693_ + _compile-values109694_))))) (define __compile-call% - (lambda (_stx108490_) - (let* ((_$e108492_ _stx108490_) - (_$E108494108503_ + (lambda (_stx109651_) + (let* ((_$e109653_ _stx109651_) + (_$E109655109664_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108492_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108492_)) - (let* ((_$tgt108495108506_ - (let () (declare (not safe)) (__AST-e _$e108492_))) - (_$hd108496108509_ - (let () (declare (not safe)) (##car _$tgt108495108506_))) - (_$tl108497108512_ + _$e109653_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109653_)) + (let* ((_$tgt109656109667_ + (let () (declare (not safe)) (__AST-e _$e109653_))) + (_$hd109657109670_ + (let () (declare (not safe)) (##car _$tgt109656109667_))) + (_$tl109658109673_ (let () (declare (not safe)) - (##cdr _$tgt108495108506_)))) + (##cdr _$tgt109656109667_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108497108512_)) - (let* ((_$tgt108498108516_ + (__AST-pair? _$tl109658109673_)) + (let* ((_$tgt109659109677_ (let () (declare (not safe)) - (__AST-e _$tl108497108512_))) - (_$hd108499108519_ + (__AST-e _$tl109658109673_))) + (_$hd109660109680_ (let () (declare (not safe)) - (##car _$tgt108498108516_))) - (_$tl108500108522_ + (##car _$tgt109659109677_))) + (_$tl109661109683_ (let () (declare (not safe)) - (##cdr _$tgt108498108516_)))) - (let* ((_rator108526_ _$hd108499108519_) - (_rands108528_ _$tl108500108522_) - (__tmp115322 - (let ((__tmp115324 + (##cdr _$tgt109659109677_)))) + (let* ((_rator109687_ _$hd109660109680_) + (_rands109689_ _$tl109661109683_) + (__tmp116483 + (let ((__tmp116485 (let () (declare (not safe)) - (__compile _rator108526_))) - (__tmp115323 - (map __compile _rands108528_))) + (__compile _rator109687_))) + (__tmp116484 + (map __compile _rands109689_))) (declare (not safe)) - (cons __tmp115324 __tmp115323)))) + (cons __tmp116485 __tmp116484)))) (declare (not safe)) - (__SRC__% __tmp115322 _stx108490_))) - (let () (declare (not safe)) (_$E108494108503_)))) - (let () (declare (not safe)) (_$E108494108503_)))))) + (__SRC__% __tmp116483 _stx109651_))) + (let () (declare (not safe)) (_$E109655109664_)))) + (let () (declare (not safe)) (_$E109655109664_)))))) (define __compile-ref% - (lambda (_stx108452_) - (let* ((_$e108454_ _stx108452_) - (_$E108456108465_ + (lambda (_stx109613_) + (let* ((_$e109615_ _stx109613_) + (_$E109617109626_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108454_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108454_)) - (let* ((_$tgt108457108468_ - (let () (declare (not safe)) (__AST-e _$e108454_))) - (_$hd108458108471_ - (let () (declare (not safe)) (##car _$tgt108457108468_))) - (_$tl108459108474_ + _$e109615_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109615_)) + (let* ((_$tgt109618109629_ + (let () (declare (not safe)) (__AST-e _$e109615_))) + (_$hd109619109632_ + (let () (declare (not safe)) (##car _$tgt109618109629_))) + (_$tl109620109635_ (let () (declare (not safe)) - (##cdr _$tgt108457108468_)))) + (##cdr _$tgt109618109629_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108459108474_)) - (let* ((_$tgt108460108478_ + (__AST-pair? _$tl109620109635_)) + (let* ((_$tgt109621109639_ (let () (declare (not safe)) - (__AST-e _$tl108459108474_))) - (_$hd108461108481_ + (__AST-e _$tl109620109635_))) + (_$hd109622109642_ (let () (declare (not safe)) - (##car _$tgt108460108478_))) - (_$tl108462108484_ + (##car _$tgt109621109639_))) + (_$tl109623109645_ (let () (declare (not safe)) - (##cdr _$tgt108460108478_)))) - (let ((_id108488_ _$hd108461108481_)) - (if (let ((__tmp115325 + (##cdr _$tgt109621109639_)))) + (let ((_id109649_ _$hd109622109642_)) + (if (let ((__tmp116486 (let () (declare (not safe)) - (__AST-e _$tl108462108484_)))) + (__AST-e _$tl109623109645_)))) (declare (not safe)) - (equal? __tmp115325 '())) + (equal? __tmp116486 '())) (let () (declare (not safe)) - (__SRC__% _id108488_ _stx108452_)) - (let () (declare (not safe)) (_$E108456108465_))))) - (let () (declare (not safe)) (_$E108456108465_)))) - (let () (declare (not safe)) (_$E108456108465_)))))) + (__SRC__% _id109649_ _stx109613_)) + (let () (declare (not safe)) (_$E109617109626_))))) + (let () (declare (not safe)) (_$E109617109626_)))) + (let () (declare (not safe)) (_$E109617109626_)))))) (define __compile-setq% - (lambda (_stx108399_) - (let* ((_$e108401_ _stx108399_) - (_$E108403108415_ + (lambda (_stx109560_) + (let* ((_$e109562_ _stx109560_) + (_$E109564109576_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108401_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108401_)) - (let* ((_$tgt108404108418_ - (let () (declare (not safe)) (__AST-e _$e108401_))) - (_$hd108405108421_ - (let () (declare (not safe)) (##car _$tgt108404108418_))) - (_$tl108406108424_ + _$e109562_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109562_)) + (let* ((_$tgt109565109579_ + (let () (declare (not safe)) (__AST-e _$e109562_))) + (_$hd109566109582_ + (let () (declare (not safe)) (##car _$tgt109565109579_))) + (_$tl109567109585_ (let () (declare (not safe)) - (##cdr _$tgt108404108418_)))) + (##cdr _$tgt109565109579_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108406108424_)) - (let* ((_$tgt108407108428_ + (__AST-pair? _$tl109567109585_)) + (let* ((_$tgt109568109589_ (let () (declare (not safe)) - (__AST-e _$tl108406108424_))) - (_$hd108408108431_ + (__AST-e _$tl109567109585_))) + (_$hd109569109592_ (let () (declare (not safe)) - (##car _$tgt108407108428_))) - (_$tl108409108434_ + (##car _$tgt109568109589_))) + (_$tl109570109595_ (let () (declare (not safe)) - (##cdr _$tgt108407108428_)))) - (let ((_id108438_ _$hd108408108431_)) + (##cdr _$tgt109568109589_)))) + (let ((_id109599_ _$hd109569109592_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108409108434_)) - (let* ((_$tgt108410108440_ + (__AST-pair? _$tl109570109595_)) + (let* ((_$tgt109571109601_ (let () (declare (not safe)) - (__AST-e _$tl108409108434_))) - (_$hd108411108443_ + (__AST-e _$tl109570109595_))) + (_$hd109572109604_ (let () (declare (not safe)) - (##car _$tgt108410108440_))) - (_$tl108412108446_ + (##car _$tgt109571109601_))) + (_$tl109573109607_ (let () (declare (not safe)) - (##cdr _$tgt108410108440_)))) - (let ((_expr108450_ _$hd108411108443_)) - (if (let ((__tmp115331 + (##cdr _$tgt109571109601_)))) + (let ((_expr109611_ _$hd109572109604_)) + (if (let ((__tmp116492 (let () (declare (not safe)) - (__AST-e _$tl108412108446_)))) + (__AST-e _$tl109573109607_)))) (declare (not safe)) - (equal? __tmp115331 '())) - (let ((__tmp115326 - (let ((__tmp115327 - (let ((__tmp115330 + (equal? __tmp116492 '())) + (let ((__tmp116487 + (let ((__tmp116488 + (let ((__tmp116491 (let () (declare (not safe)) (__SRC__% - _id108438_ - _stx108399_))) - (__tmp115328 - (let ((__tmp115329 + _id109599_ + _stx109560_))) + (__tmp116489 + (let ((__tmp116490 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__compile _expr108450_)))) + (__compile _expr109611_)))) (declare (not safe)) - (cons __tmp115329 '())))) + (cons __tmp116490 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115330 - __tmp115328)))) + (cons __tmp116491 + __tmp116489)))) (declare (not safe)) - (cons 'set! __tmp115327)))) + (cons 'set! __tmp116488)))) (declare (not safe)) - (__SRC__% __tmp115326 _stx108399_)) + (__SRC__% __tmp116487 _stx109560_)) (let () (declare (not safe)) - (_$E108403108415_))))) - (let () (declare (not safe)) (_$E108403108415_))))) - (let () (declare (not safe)) (_$E108403108415_)))) - (let () (declare (not safe)) (_$E108403108415_)))))) + (_$E109564109576_))))) + (let () (declare (not safe)) (_$E109564109576_))))) + (let () (declare (not safe)) (_$E109564109576_)))) + (let () (declare (not safe)) (_$E109564109576_)))))) (define __compile-if% - (lambda (_stx108331_) - (let* ((_$e108333_ _stx108331_) - (_$E108335108350_ + (lambda (_stx109492_) + (let* ((_$e109494_ _stx109492_) + (_$E109496109511_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108333_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108333_)) - (let* ((_$tgt108336108353_ - (let () (declare (not safe)) (__AST-e _$e108333_))) - (_$hd108337108356_ - (let () (declare (not safe)) (##car _$tgt108336108353_))) - (_$tl108338108359_ + _$e109494_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109494_)) + (let* ((_$tgt109497109514_ + (let () (declare (not safe)) (__AST-e _$e109494_))) + (_$hd109498109517_ + (let () (declare (not safe)) (##car _$tgt109497109514_))) + (_$tl109499109520_ (let () (declare (not safe)) - (##cdr _$tgt108336108353_)))) + (##cdr _$tgt109497109514_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108338108359_)) - (let* ((_$tgt108339108363_ + (__AST-pair? _$tl109499109520_)) + (let* ((_$tgt109500109524_ (let () (declare (not safe)) - (__AST-e _$tl108338108359_))) - (_$hd108340108366_ + (__AST-e _$tl109499109520_))) + (_$hd109501109527_ (let () (declare (not safe)) - (##car _$tgt108339108363_))) - (_$tl108341108369_ + (##car _$tgt109500109524_))) + (_$tl109502109530_ (let () (declare (not safe)) - (##cdr _$tgt108339108363_)))) - (let ((_p108373_ _$hd108340108366_)) + (##cdr _$tgt109500109524_)))) + (let ((_p109534_ _$hd109501109527_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108341108369_)) - (let* ((_$tgt108342108375_ + (__AST-pair? _$tl109502109530_)) + (let* ((_$tgt109503109536_ (let () (declare (not safe)) - (__AST-e _$tl108341108369_))) - (_$hd108343108378_ + (__AST-e _$tl109502109530_))) + (_$hd109504109539_ (let () (declare (not safe)) - (##car _$tgt108342108375_))) - (_$tl108344108381_ + (##car _$tgt109503109536_))) + (_$tl109505109542_ (let () (declare (not safe)) - (##cdr _$tgt108342108375_)))) - (let ((_t108385_ _$hd108343108378_)) + (##cdr _$tgt109503109536_)))) + (let ((_t109546_ _$hd109504109539_)) (if (let () (declare (not safe)) - (__AST-pair? _$tl108344108381_)) - (let* ((_$tgt108345108387_ + (__AST-pair? _$tl109505109542_)) + (let* ((_$tgt109506109548_ (let () (declare (not safe)) - (__AST-e _$tl108344108381_))) - (_$hd108346108390_ + (__AST-e _$tl109505109542_))) + (_$hd109507109551_ (let () (declare (not safe)) - (##car _$tgt108345108387_))) - (_$tl108347108393_ + (##car _$tgt109506109548_))) + (_$tl109508109554_ (let () (declare (not safe)) - (##cdr _$tgt108345108387_)))) - (let ((_f108397_ _$hd108346108390_)) - (if (let ((__tmp115339 + (##cdr _$tgt109506109548_)))) + (let ((_f109558_ _$hd109507109551_)) + (if (let ((__tmp116500 (let () (declare (not safe)) - (__AST-e _$tl108347108393_)))) + (__AST-e _$tl109508109554_)))) (declare (not safe)) - (equal? __tmp115339 '())) - (let ((__tmp115332 - (let ((__tmp115333 - (let ((__tmp115338 + (equal? __tmp116500 '())) + (let ((__tmp116493 + (let ((__tmp116494 + (let ((__tmp116499 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (__compile _p108373_))) - (__tmp115334 - (let ((__tmp115337 + (let () (declare (not safe)) (__compile _p109534_))) + (__tmp116495 + (let ((__tmp116498 (let () (declare (not safe)) - (__compile _t108385_))) - (__tmp115335 - (let ((__tmp115336 + (__compile _t109546_))) + (__tmp116496 + (let ((__tmp116497 (let () (declare (not safe)) - (__compile _f108397_)))) + (__compile _f109558_)))) (declare (not safe)) - (cons __tmp115336 '())))) + (cons __tmp116497 '())))) (declare (not safe)) - (cons __tmp115337 __tmp115335)))) + (cons __tmp116498 __tmp116496)))) (declare (not safe)) - (cons __tmp115338 __tmp115334)))) + (cons __tmp116499 __tmp116495)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons 'if __tmp115333)))) + (cons 'if __tmp116494)))) (declare (not safe)) (__SRC__% - __tmp115332 - _stx108331_)) + __tmp116493 + _stx109492_)) (let () (declare (not safe)) - (_$E108335108350_))))) + (_$E109496109511_))))) (let () (declare (not safe)) - (_$E108335108350_))))) - (let () (declare (not safe)) (_$E108335108350_))))) - (let () (declare (not safe)) (_$E108335108350_)))) - (let () (declare (not safe)) (_$E108335108350_)))))) + (_$E109496109511_))))) + (let () (declare (not safe)) (_$E109496109511_))))) + (let () (declare (not safe)) (_$E109496109511_)))) + (let () (declare (not safe)) (_$E109496109511_)))))) (define __compile-quote% - (lambda (_stx108293_) - (let* ((_$e108295_ _stx108293_) - (_$E108297108306_ + (lambda (_stx109454_) + (let* ((_$e109456_ _stx109454_) + (_$E109458109467_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108295_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108295_)) - (let* ((_$tgt108298108309_ - (let () (declare (not safe)) (__AST-e _$e108295_))) - (_$hd108299108312_ - (let () (declare (not safe)) (##car _$tgt108298108309_))) - (_$tl108300108315_ + _$e109456_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109456_)) + (let* ((_$tgt109459109470_ + (let () (declare (not safe)) (__AST-e _$e109456_))) + (_$hd109460109473_ + (let () (declare (not safe)) (##car _$tgt109459109470_))) + (_$tl109461109476_ (let () (declare (not safe)) - (##cdr _$tgt108298108309_)))) + (##cdr _$tgt109459109470_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108300108315_)) - (let* ((_$tgt108301108319_ + (__AST-pair? _$tl109461109476_)) + (let* ((_$tgt109462109480_ (let () (declare (not safe)) - (__AST-e _$tl108300108315_))) - (_$hd108302108322_ + (__AST-e _$tl109461109476_))) + (_$hd109463109483_ (let () (declare (not safe)) - (##car _$tgt108301108319_))) - (_$tl108303108325_ + (##car _$tgt109462109480_))) + (_$tl109464109486_ (let () (declare (not safe)) - (##cdr _$tgt108301108319_)))) - (let ((_e108329_ _$hd108302108322_)) - (if (let ((__tmp115343 + (##cdr _$tgt109462109480_)))) + (let ((_e109490_ _$hd109463109483_)) + (if (let ((__tmp116504 (let () (declare (not safe)) - (__AST-e _$tl108303108325_)))) + (__AST-e _$tl109464109486_)))) (declare (not safe)) - (equal? __tmp115343 '())) - (let ((__tmp115340 - (let ((__tmp115341 - (let ((__tmp115342 + (equal? __tmp116504 '())) + (let ((__tmp116501 + (let ((__tmp116502 + (let ((__tmp116503 (let () (declare (not safe)) - (__AST->datum _e108329_)))) + (__AST->datum _e109490_)))) (declare (not safe)) - (cons __tmp115342 '())))) + (cons __tmp116503 '())))) (declare (not safe)) - (cons 'quote __tmp115341)))) + (cons 'quote __tmp116502)))) (declare (not safe)) - (__SRC__% __tmp115340 _stx108293_)) - (let () (declare (not safe)) (_$E108297108306_))))) - (let () (declare (not safe)) (_$E108297108306_)))) - (let () (declare (not safe)) (_$E108297108306_)))))) + (__SRC__% __tmp116501 _stx109454_)) + (let () (declare (not safe)) (_$E109458109467_))))) + (let () (declare (not safe)) (_$E109458109467_)))) + (let () (declare (not safe)) (_$E109458109467_)))))) (define __compile-quote-syntax% - (lambda (_stx108255_) - (let* ((_$e108257_ _stx108255_) - (_$E108259108268_ + (lambda (_stx109416_) + (let* ((_$e109418_ _stx109416_) + (_$E109420109429_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e108257_))))) - (if (let () (declare (not safe)) (__AST-pair? _$e108257_)) - (let* ((_$tgt108260108271_ - (let () (declare (not safe)) (__AST-e _$e108257_))) - (_$hd108261108274_ - (let () (declare (not safe)) (##car _$tgt108260108271_))) - (_$tl108262108277_ + _$e109418_))))) + (if (let () (declare (not safe)) (__AST-pair? _$e109418_)) + (let* ((_$tgt109421109432_ + (let () (declare (not safe)) (__AST-e _$e109418_))) + (_$hd109422109435_ + (let () (declare (not safe)) (##car _$tgt109421109432_))) + (_$tl109423109438_ (let () (declare (not safe)) - (##cdr _$tgt108260108271_)))) + (##cdr _$tgt109421109432_)))) (if (let () (declare (not safe)) - (__AST-pair? _$tl108262108277_)) - (let* ((_$tgt108263108281_ + (__AST-pair? _$tl109423109438_)) + (let* ((_$tgt109424109442_ (let () (declare (not safe)) - (__AST-e _$tl108262108277_))) - (_$hd108264108284_ + (__AST-e _$tl109423109438_))) + (_$hd109425109445_ (let () (declare (not safe)) - (##car _$tgt108263108281_))) - (_$tl108265108287_ + (##car _$tgt109424109442_))) + (_$tl109426109448_ (let () (declare (not safe)) - (##cdr _$tgt108263108281_)))) - (let ((_e108291_ _$hd108264108284_)) - (if (let ((__tmp115346 + (##cdr _$tgt109424109442_)))) + (let ((_e109452_ _$hd109425109445_)) + (if (let ((__tmp116507 (let () (declare (not safe)) - (__AST-e _$tl108265108287_)))) + (__AST-e _$tl109426109448_)))) (declare (not safe)) - (equal? __tmp115346 '())) - (let ((__tmp115344 - (let ((__tmp115345 + (equal? __tmp116507 '())) + (let ((__tmp116505 + (let ((__tmp116506 (let () (declare (not safe)) - (cons _e108291_ '())))) + (cons _e109452_ '())))) (declare (not safe)) - (cons 'quote __tmp115345)))) + (cons 'quote __tmp116506)))) (declare (not safe)) - (__SRC__% __tmp115344 _stx108255_)) - (let () (declare (not safe)) (_$E108259108268_))))) - (let () (declare (not safe)) (_$E108259108268_)))) - (let () (declare (not safe)) (_$E108259108268_)))))) + (__SRC__% __tmp116505 _stx109416_)) + (let () (declare (not safe)) (_$E109420109429_))))) + (let () (declare (not safe)) (_$E109420109429_)))) + (let () (declare (not safe)) (_$E109420109429_)))))) (let () (declare (not safe)) (__core-bind-syntax!__% diff --git a/src/bootstrap/gerbil/runtime/eval__1.scm b/src/bootstrap/gerbil/runtime/eval__1.scm index 7e8de9fb2..978d7b743 100644 --- a/src/bootstrap/gerbil/runtime/eval__1.scm +++ b/src/bootstrap/gerbil/runtime/eval__1.scm @@ -1,1070 +1,1070 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g115348_| + (define |[1]#_g116509_| (##structure gx#syntax-quote::t '__context::t #f (gx#current-expander-context) '())) - (define |[1]#_g115350_| + (define |[1]#_g116511_| (##structure gx#syntax-quote::t 'make-__context #f (gx#current-expander-context) '())) - (define |[1]#_g115352_| + (define |[1]#_g116513_| (##structure gx#syntax-quote::t '__context? #f (gx#current-expander-context) '())) - (define |[1]#_g115359_| + (define |[1]#_g116520_| (##structure gx#syntax-quote::t '__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g115362_| + (define |[1]#_g116523_| (##structure gx#syntax-quote::t '__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g115365_| + (define |[1]#_g116526_| (##structure gx#syntax-quote::t '__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g115368_| + (define |[1]#_g116529_| (##structure gx#syntax-quote::t '__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g115375_| + (define |[1]#_g116536_| (##structure gx#syntax-quote::t '__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115378_| + (define |[1]#_g116539_| (##structure gx#syntax-quote::t '__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115381_| + (define |[1]#_g116542_| (##structure gx#syntax-quote::t '__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115384_| + (define |[1]#_g116545_| (##structure gx#syntax-quote::t '__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115391_| + (define |[1]#_g116552_| (##structure gx#syntax-quote::t '&__context-table #f (gx#current-expander-context) '())) - (define |[1]#_g115394_| + (define |[1]#_g116555_| (##structure gx#syntax-quote::t '&__context-super #f (gx#current-expander-context) '())) - (define |[1]#_g115397_| + (define |[1]#_g116558_| (##structure gx#syntax-quote::t '&__context-ns #f (gx#current-expander-context) '())) - (define |[1]#_g115400_| + (define |[1]#_g116561_| (##structure gx#syntax-quote::t '&__context-t #f (gx#current-expander-context) '())) - (define |[1]#_g115407_| + (define |[1]#_g116568_| (##structure gx#syntax-quote::t '&__context-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115410_| + (define |[1]#_g116571_| (##structure gx#syntax-quote::t '&__context-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115413_| + (define |[1]#_g116574_| (##structure gx#syntax-quote::t '&__context-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115416_| + (define |[1]#_g116577_| (##structure gx#syntax-quote::t '&__context-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115418_| + (define |[1]#_g116579_| (##structure gx#syntax-quote::t '__runtime::t #f (gx#current-expander-context) '())) - (define |[1]#_g115420_| + (define |[1]#_g116581_| (##structure gx#syntax-quote::t 'make-__runtime #f (gx#current-expander-context) '())) - (define |[1]#_g115422_| + (define |[1]#_g116583_| (##structure gx#syntax-quote::t '__runtime? #f (gx#current-expander-context) '())) - (define |[1]#_g115426_| + (define |[1]#_g116587_| (##structure gx#syntax-quote::t '__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g115430_| + (define |[1]#_g116591_| (##structure gx#syntax-quote::t '__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115434_| + (define |[1]#_g116595_| (##structure gx#syntax-quote::t '&__runtime-id #f (gx#current-expander-context) '())) - (define |[1]#_g115438_| + (define |[1]#_g116599_| (##structure gx#syntax-quote::t '&__runtime-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115440_| + (define |[1]#_g116601_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g115442_| + (define |[1]#_g116603_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g115444_| + (define |[1]#_g116605_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g115449_| + (define |[1]#_g116610_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g115452_| + (define |[1]#_g116613_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g115457_| + (define |[1]#_g116618_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115460_| + (define |[1]#_g116621_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115465_| + (define |[1]#_g116626_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g115468_| + (define |[1]#_g116629_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g115473_| + (define |[1]#_g116634_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115476_| + (define |[1]#_g116637_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115479_| + (define |[1]#_g116640_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g115481_| + (define |[1]#_g116642_| (##structure gx#syntax-quote::t '__macro::t #f (gx#current-expander-context) '())) - (define |[1]#_g115483_| + (define |[1]#_g116644_| (##structure gx#syntax-quote::t 'make-__macro #f (gx#current-expander-context) '())) - (define |[1]#_g115485_| + (define |[1]#_g116646_| (##structure gx#syntax-quote::t '__macro? #f (gx#current-expander-context) '())) - (define |[1]#_g115490_| + (define |[1]#_g116651_| (##structure gx#syntax-quote::t '__macro-id #f (gx#current-expander-context) '())) - (define |[1]#_g115493_| + (define |[1]#_g116654_| (##structure gx#syntax-quote::t '__macro-e #f (gx#current-expander-context) '())) - (define |[1]#_g115498_| + (define |[1]#_g116659_| (##structure gx#syntax-quote::t '__macro-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115501_| + (define |[1]#_g116662_| (##structure gx#syntax-quote::t '__macro-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115506_| + (define |[1]#_g116667_| (##structure gx#syntax-quote::t '&__macro-id #f (gx#current-expander-context) '())) - (define |[1]#_g115509_| + (define |[1]#_g116670_| (##structure gx#syntax-quote::t '&__macro-e #f (gx#current-expander-context) '())) - (define |[1]#_g115514_| + (define |[1]#_g116675_| (##structure gx#syntax-quote::t '&__macro-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115517_| + (define |[1]#_g116678_| (##structure gx#syntax-quote::t '&__macro-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115520_| + (define |[1]#_g116681_| (##structure gx#syntax-quote::t '__macro #f (gx#current-expander-context) '())) - (define |[1]#_g115522_| + (define |[1]#_g116683_| (##structure gx#syntax-quote::t '__special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g115524_| + (define |[1]#_g116685_| (##structure gx#syntax-quote::t 'make-__special-form #f (gx#current-expander-context) '())) - (define |[1]#_g115526_| + (define |[1]#_g116687_| (##structure gx#syntax-quote::t '__special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g115531_| + (define |[1]#_g116692_| (##structure gx#syntax-quote::t '__special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115534_| + (define |[1]#_g116695_| (##structure gx#syntax-quote::t '__special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115539_| + (define |[1]#_g116700_| (##structure gx#syntax-quote::t '__special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115542_| + (define |[1]#_g116703_| (##structure gx#syntax-quote::t '__special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115547_| + (define |[1]#_g116708_| (##structure gx#syntax-quote::t '&__special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115550_| + (define |[1]#_g116711_| (##structure gx#syntax-quote::t '&__special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115555_| + (define |[1]#_g116716_| (##structure gx#syntax-quote::t '&__special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115558_| + (define |[1]#_g116719_| (##structure gx#syntax-quote::t '&__special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115562_| + (define |[1]#_g116723_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g115564_| + (define |[1]#_g116725_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g115566_| + (define |[1]#_g116727_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g115571_| + (define |[1]#_g116732_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115574_| + (define |[1]#_g116735_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115579_| + (define |[1]#_g116740_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115582_| + (define |[1]#_g116743_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115587_| + (define |[1]#_g116748_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115590_| + (define |[1]#_g116751_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115595_| + (define |[1]#_g116756_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115598_| + (define |[1]#_g116759_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115601_| + (define |[1]#_g116762_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g115603_| + (define |[1]#_g116764_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g115605_| + (define |[1]#_g116766_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g115607_| + (define |[1]#_g116768_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g115612_| + (define |[1]#_g116773_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g115615_| + (define |[1]#_g116776_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g115620_| + (define |[1]#_g116781_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115623_| + (define |[1]#_g116784_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115628_| + (define |[1]#_g116789_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g115631_| + (define |[1]#_g116792_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g115636_| + (define |[1]#_g116797_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115639_| + (define |[1]#_g116800_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115643_| + (define |[1]#_g116804_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g115645_| + (define |[1]#_g116806_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g115647_| + (define |[1]#_g116808_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g115652_| + (define |[1]#_g116813_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115655_| + (define |[1]#_g116816_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115660_| + (define |[1]#_g116821_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115663_| + (define |[1]#_g116824_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115668_| + (define |[1]#_g116829_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115671_| + (define |[1]#_g116832_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115676_| + (define |[1]#_g116837_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115679_| + (define |[1]#_g116840_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115683_| + (define |[1]#_g116844_| (##structure gx#syntax-quote::t '__struct-info::t #f (gx#current-expander-context) '())) - (define |[1]#_g115685_| + (define |[1]#_g116846_| (##structure gx#syntax-quote::t 'make-__struct-info #f (gx#current-expander-context) '())) - (define |[1]#_g115687_| + (define |[1]#_g116848_| (##structure gx#syntax-quote::t '__struct-info? #f (gx#current-expander-context) '())) - (define |[1]#_g115692_| + (define |[1]#_g116853_| (##structure gx#syntax-quote::t '__struct-info-id #f (gx#current-expander-context) '())) - (define |[1]#_g115695_| + (define |[1]#_g116856_| (##structure gx#syntax-quote::t '__struct-info-e #f (gx#current-expander-context) '())) - (define |[1]#_g115700_| + (define |[1]#_g116861_| (##structure gx#syntax-quote::t '__struct-info-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115703_| + (define |[1]#_g116864_| (##structure gx#syntax-quote::t '__struct-info-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115708_| + (define |[1]#_g116869_| (##structure gx#syntax-quote::t '&__struct-info-id #f (gx#current-expander-context) '())) - (define |[1]#_g115711_| + (define |[1]#_g116872_| (##structure gx#syntax-quote::t '&__struct-info-e #f (gx#current-expander-context) '())) - (define |[1]#_g115716_| + (define |[1]#_g116877_| (##structure gx#syntax-quote::t '&__struct-info-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115719_| + (define |[1]#_g116880_| (##structure gx#syntax-quote::t '&__struct-info-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115723_| + (define |[1]#_g116884_| (##structure gx#syntax-quote::t '__feature::t #f (gx#current-expander-context) '())) - (define |[1]#_g115725_| + (define |[1]#_g116886_| (##structure gx#syntax-quote::t 'make-__feature #f (gx#current-expander-context) '())) - (define |[1]#_g115727_| + (define |[1]#_g116888_| (##structure gx#syntax-quote::t '__feature? #f (gx#current-expander-context) '())) - (define |[1]#_g115732_| + (define |[1]#_g116893_| (##structure gx#syntax-quote::t '__feature-id #f (gx#current-expander-context) '())) - (define |[1]#_g115735_| + (define |[1]#_g116896_| (##structure gx#syntax-quote::t '__feature-e #f (gx#current-expander-context) '())) - (define |[1]#_g115740_| + (define |[1]#_g116901_| (##structure gx#syntax-quote::t '__feature-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115743_| + (define |[1]#_g116904_| (##structure gx#syntax-quote::t '__feature-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115748_| + (define |[1]#_g116909_| (##structure gx#syntax-quote::t '&__feature-id #f (gx#current-expander-context) '())) - (define |[1]#_g115751_| + (define |[1]#_g116912_| (##structure gx#syntax-quote::t '&__feature-e #f (gx#current-expander-context) '())) - (define |[1]#_g115756_| + (define |[1]#_g116917_| (##structure gx#syntax-quote::t '&__feature-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115759_| + (define |[1]#_g116920_| (##structure gx#syntax-quote::t '&__feature-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115762_| + (define |[1]#_g116923_| (##structure gx#syntax-quote::t '__context #f (gx#current-expander-context) '())) - (define |[1]#_g115764_| + (define |[1]#_g116925_| (##structure gx#syntax-quote::t '__module::t #f (gx#current-expander-context) '())) - (define |[1]#_g115766_| + (define |[1]#_g116927_| (##structure gx#syntax-quote::t 'make-__module #f (gx#current-expander-context) '())) - (define |[1]#_g115768_| + (define |[1]#_g116929_| (##structure gx#syntax-quote::t '__module? #f (gx#current-expander-context) '())) - (define |[1]#_g115779_| + (define |[1]#_g116940_| (##structure gx#syntax-quote::t '__module-table #f (gx#current-expander-context) '())) - (define |[1]#_g115782_| + (define |[1]#_g116943_| (##structure gx#syntax-quote::t '__module-super #f (gx#current-expander-context) '())) - (define |[1]#_g115785_| + (define |[1]#_g116946_| (##structure gx#syntax-quote::t '__module-ns #f (gx#current-expander-context) '())) - (define |[1]#_g115788_| + (define |[1]#_g116949_| (##structure gx#syntax-quote::t '__module-t #f (gx#current-expander-context) '())) - (define |[1]#_g115791_| + (define |[1]#_g116952_| (##structure gx#syntax-quote::t '__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g115794_| + (define |[1]#_g116955_| (##structure gx#syntax-quote::t '__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g115797_| + (define |[1]#_g116958_| (##structure gx#syntax-quote::t '__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g115800_| + (define |[1]#_g116961_| (##structure gx#syntax-quote::t '__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g115811_| + (define |[1]#_g116972_| (##structure gx#syntax-quote::t '__module-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115814_| + (define |[1]#_g116975_| (##structure gx#syntax-quote::t '__module-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115817_| + (define |[1]#_g116978_| (##structure gx#syntax-quote::t '__module-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115820_| + (define |[1]#_g116981_| (##structure gx#syntax-quote::t '__module-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115823_| + (define |[1]#_g116984_| (##structure gx#syntax-quote::t '__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115826_| + (define |[1]#_g116987_| (##structure gx#syntax-quote::t '__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115829_| + (define |[1]#_g116990_| (##structure gx#syntax-quote::t '__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115832_| + (define |[1]#_g116993_| (##structure gx#syntax-quote::t '__module-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115843_| + (define |[1]#_g117004_| (##structure gx#syntax-quote::t '&__module-table #f (gx#current-expander-context) '())) - (define |[1]#_g115846_| + (define |[1]#_g117007_| (##structure gx#syntax-quote::t '&__module-super #f (gx#current-expander-context) '())) - (define |[1]#_g115849_| + (define |[1]#_g117010_| (##structure gx#syntax-quote::t '&__module-ns #f (gx#current-expander-context) '())) - (define |[1]#_g115852_| + (define |[1]#_g117013_| (##structure gx#syntax-quote::t '&__module-t #f (gx#current-expander-context) '())) - (define |[1]#_g115855_| + (define |[1]#_g117016_| (##structure gx#syntax-quote::t '&__module-export #f (gx#current-expander-context) '())) - (define |[1]#_g115858_| + (define |[1]#_g117019_| (##structure gx#syntax-quote::t '&__module-import #f (gx#current-expander-context) '())) - (define |[1]#_g115861_| + (define |[1]#_g117022_| (##structure gx#syntax-quote::t '&__module-path #f (gx#current-expander-context) '())) - (define |[1]#_g115864_| + (define |[1]#_g117025_| (##structure gx#syntax-quote::t '&__module-id #f (gx#current-expander-context) '())) - (define |[1]#_g115875_| + (define |[1]#_g117036_| (##structure gx#syntax-quote::t '&__module-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115878_| + (define |[1]#_g117039_| (##structure gx#syntax-quote::t '&__module-super-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115881_| + (define |[1]#_g117042_| (##structure gx#syntax-quote::t '&__module-ns-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115884_| + (define |[1]#_g117045_| (##structure gx#syntax-quote::t '&__module-t-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115887_| + (define |[1]#_g117048_| (##structure gx#syntax-quote::t '&__module-export-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115890_| + (define |[1]#_g117051_| (##structure gx#syntax-quote::t '&__module-import-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115893_| + (define |[1]#_g117054_| (##structure gx#syntax-quote::t '&__module-path-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115896_| + (define |[1]#_g117057_| (##structure gx#syntax-quote::t '&__module-id-set! @@ -1073,7 +1073,7 @@ '())) (begin (define |[:0:]#__context| - (let ((__obj114937 + (let ((__obj116098 (let () (declare (not safe)) (##structure @@ -1091,11 +1091,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 + __obj116098 'gerbil/runtime/eval#__context::t '1 gerbil/core$$#class-type-info::t @@ -1103,7 +1104,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 + __obj116098 '__context '2 gerbil/core$$#class-type-info::t @@ -1111,7 +1112,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 + __obj116098 '(t ns super table) '4 gerbil/core$$#class-type-info::t @@ -1119,7 +1120,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 + __obj116098 '() '3 gerbil/core$$#class-type-info::t @@ -1127,7 +1128,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 + __obj116098 '#t '5 gerbil/core$$#class-type-info::t @@ -1135,7 +1136,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 + __obj116098 '#f '6 gerbil/core$$#class-type-info::t @@ -1143,178 +1144,186 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 + __obj116098 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115347 |[1]#_g115348_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114937 - __tmp115347 + __obj116098 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115349 |[1]#_g115350_|)) + (let ((__tmp116508 |[1]#_g116509_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114937 - __tmp115349 + __obj116098 + __tmp116508 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115351 |[1]#_g115352_|)) + (let ((__tmp116510 |[1]#_g116511_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114937 - __tmp115351 + __obj116098 + __tmp116510 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115353 - (let ((__tmp115366 - (let ((__tmp115367 |[1]#_g115368_|)) + (let ((__tmp116512 |[1]#_g116513_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj116098 + __tmp116512 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp116514 + (let ((__tmp116527 + (let ((__tmp116528 |[1]#_g116529_|)) (declare (not safe)) - (cons 't __tmp115367))) - (__tmp115354 - (let ((__tmp115363 - (let ((__tmp115364 |[1]#_g115365_|)) + (cons 't __tmp116528))) + (__tmp116515 + (let ((__tmp116524 + (let ((__tmp116525 |[1]#_g116526_|)) (declare (not safe)) - (cons 'ns __tmp115364))) - (__tmp115355 - (let ((__tmp115360 - (let ((__tmp115361 |[1]#_g115362_|)) + (cons 'ns __tmp116525))) + (__tmp116516 + (let ((__tmp116521 + (let ((__tmp116522 |[1]#_g116523_|)) (declare (not safe)) - (cons 'super __tmp115361))) - (__tmp115356 - (let ((__tmp115357 - (let ((__tmp115358 |[1]#_g115359_|)) + (cons 'super __tmp116522))) + (__tmp116517 + (let ((__tmp116518 + (let ((__tmp116519 |[1]#_g116520_|)) (declare (not safe)) - (cons 'table __tmp115358)))) + (cons 'table __tmp116519)))) (declare (not safe)) - (cons __tmp115357 '())))) + (cons __tmp116518 '())))) (declare (not safe)) - (cons __tmp115360 __tmp115356)))) + (cons __tmp116521 __tmp116517)))) (declare (not safe)) - (cons __tmp115363 __tmp115355)))) + (cons __tmp116524 __tmp116516)))) (declare (not safe)) - (cons __tmp115366 __tmp115354)))) + (cons __tmp116527 __tmp116515)))) (declare (not safe)) (##unchecked-structure-set! - __obj114937 - __tmp115353 - '11 + __obj116098 + __tmp116514 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115369 - (let ((__tmp115382 - (let ((__tmp115383 |[1]#_g115384_|)) + (let ((__tmp116530 + (let ((__tmp116543 + (let ((__tmp116544 |[1]#_g116545_|)) (declare (not safe)) - (cons 't __tmp115383))) - (__tmp115370 - (let ((__tmp115379 - (let ((__tmp115380 |[1]#_g115381_|)) + (cons 't __tmp116544))) + (__tmp116531 + (let ((__tmp116540 + (let ((__tmp116541 |[1]#_g116542_|)) (declare (not safe)) - (cons 'ns __tmp115380))) - (__tmp115371 - (let ((__tmp115376 - (let ((__tmp115377 |[1]#_g115378_|)) + (cons 'ns __tmp116541))) + (__tmp116532 + (let ((__tmp116537 + (let ((__tmp116538 |[1]#_g116539_|)) (declare (not safe)) - (cons 'super __tmp115377))) - (__tmp115372 - (let ((__tmp115373 - (let ((__tmp115374 |[1]#_g115375_|)) + (cons 'super __tmp116538))) + (__tmp116533 + (let ((__tmp116534 + (let ((__tmp116535 |[1]#_g116536_|)) (declare (not safe)) - (cons 'table __tmp115374)))) + (cons 'table __tmp116535)))) (declare (not safe)) - (cons __tmp115373 '())))) + (cons __tmp116534 '())))) (declare (not safe)) - (cons __tmp115376 __tmp115372)))) + (cons __tmp116537 __tmp116533)))) (declare (not safe)) - (cons __tmp115379 __tmp115371)))) + (cons __tmp116540 __tmp116532)))) (declare (not safe)) - (cons __tmp115382 __tmp115370)))) + (cons __tmp116543 __tmp116531)))) (declare (not safe)) (##unchecked-structure-set! - __obj114937 - __tmp115369 - '12 + __obj116098 + __tmp116530 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115385 - (let ((__tmp115398 - (let ((__tmp115399 |[1]#_g115400_|)) + (let ((__tmp116546 + (let ((__tmp116559 + (let ((__tmp116560 |[1]#_g116561_|)) (declare (not safe)) - (cons 't __tmp115399))) - (__tmp115386 - (let ((__tmp115395 - (let ((__tmp115396 |[1]#_g115397_|)) + (cons 't __tmp116560))) + (__tmp116547 + (let ((__tmp116556 + (let ((__tmp116557 |[1]#_g116558_|)) (declare (not safe)) - (cons 'ns __tmp115396))) - (__tmp115387 - (let ((__tmp115392 - (let ((__tmp115393 |[1]#_g115394_|)) + (cons 'ns __tmp116557))) + (__tmp116548 + (let ((__tmp116553 + (let ((__tmp116554 |[1]#_g116555_|)) (declare (not safe)) - (cons 'super __tmp115393))) - (__tmp115388 - (let ((__tmp115389 - (let ((__tmp115390 |[1]#_g115391_|)) + (cons 'super __tmp116554))) + (__tmp116549 + (let ((__tmp116550 + (let ((__tmp116551 |[1]#_g116552_|)) (declare (not safe)) - (cons 'table __tmp115390)))) + (cons 'table __tmp116551)))) (declare (not safe)) - (cons __tmp115389 '())))) + (cons __tmp116550 '())))) (declare (not safe)) - (cons __tmp115392 __tmp115388)))) + (cons __tmp116553 __tmp116549)))) (declare (not safe)) - (cons __tmp115395 __tmp115387)))) + (cons __tmp116556 __tmp116548)))) (declare (not safe)) - (cons __tmp115398 __tmp115386)))) + (cons __tmp116559 __tmp116547)))) (declare (not safe)) (##unchecked-structure-set! - __obj114937 - __tmp115385 - '13 + __obj116098 + __tmp116546 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115401 - (let ((__tmp115414 - (let ((__tmp115415 |[1]#_g115416_|)) + (let ((__tmp116562 + (let ((__tmp116575 + (let ((__tmp116576 |[1]#_g116577_|)) (declare (not safe)) - (cons 't __tmp115415))) - (__tmp115402 - (let ((__tmp115411 - (let ((__tmp115412 |[1]#_g115413_|)) + (cons 't __tmp116576))) + (__tmp116563 + (let ((__tmp116572 + (let ((__tmp116573 |[1]#_g116574_|)) (declare (not safe)) - (cons 'ns __tmp115412))) - (__tmp115403 - (let ((__tmp115408 - (let ((__tmp115409 |[1]#_g115410_|)) + (cons 'ns __tmp116573))) + (__tmp116564 + (let ((__tmp116569 + (let ((__tmp116570 |[1]#_g116571_|)) (declare (not safe)) - (cons 'super __tmp115409))) - (__tmp115404 - (let ((__tmp115405 - (let ((__tmp115406 |[1]#_g115407_|)) + (cons 'super __tmp116570))) + (__tmp116565 + (let ((__tmp116566 + (let ((__tmp116567 |[1]#_g116568_|)) (declare (not safe)) - (cons 'table __tmp115406)))) + (cons 'table __tmp116567)))) (declare (not safe)) - (cons __tmp115405 '())))) + (cons __tmp116566 '())))) (declare (not safe)) - (cons __tmp115408 __tmp115404)))) + (cons __tmp116569 __tmp116565)))) (declare (not safe)) - (cons __tmp115411 __tmp115403)))) + (cons __tmp116572 __tmp116564)))) (declare (not safe)) - (cons __tmp115414 __tmp115402)))) + (cons __tmp116575 __tmp116563)))) (declare (not safe)) (##unchecked-structure-set! - __obj114937 - __tmp115401 - '14 + __obj116098 + __tmp116562 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj114937)) + __obj116098)) (define |[:0:]#__runtime| - (let ((__obj114938 + (let ((__obj116099 (let () (declare (not safe)) (##structure @@ -1332,11 +1341,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 + __obj116099 'gerbil/runtime/eval#__runtime::t '1 gerbil/core$$#class-type-info::t @@ -1344,7 +1354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 + __obj116099 '__runtime '2 gerbil/core$$#class-type-info::t @@ -1352,7 +1362,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 + __obj116099 '(id) '4 gerbil/core$$#class-type-info::t @@ -1360,7 +1370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 + __obj116099 '() '3 gerbil/core$$#class-type-info::t @@ -1368,7 +1378,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 + __obj116099 '#t '5 gerbil/core$$#class-type-info::t @@ -1376,7 +1386,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 + __obj116099 '#f '6 gerbil/core$$#class-type-info::t @@ -1384,94 +1394,102 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 + __obj116099 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115417 |[1]#_g115418_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114938 - __tmp115417 + __obj116099 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115419 |[1]#_g115420_|)) + (let ((__tmp116578 |[1]#_g116579_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114938 - __tmp115419 + __obj116099 + __tmp116578 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115421 |[1]#_g115422_|)) + (let ((__tmp116580 |[1]#_g116581_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114938 - __tmp115421 + __obj116099 + __tmp116580 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115423 - (let ((__tmp115424 - (let ((__tmp115425 |[1]#_g115426_|)) - (declare (not safe)) - (cons 'id __tmp115425)))) - (declare (not safe)) - (cons __tmp115424 '())))) + (let ((__tmp116582 |[1]#_g116583_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114938 - __tmp115423 + __obj116099 + __tmp116582 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115427 - (let ((__tmp115428 - (let ((__tmp115429 |[1]#_g115430_|)) + (let ((__tmp116584 + (let ((__tmp116585 + (let ((__tmp116586 |[1]#_g116587_|)) (declare (not safe)) - (cons 'id __tmp115429)))) + (cons 'id __tmp116586)))) (declare (not safe)) - (cons __tmp115428 '())))) + (cons __tmp116585 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114938 - __tmp115427 + __obj116099 + __tmp116584 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115431 - (let ((__tmp115432 - (let ((__tmp115433 |[1]#_g115434_|)) + (let ((__tmp116588 + (let ((__tmp116589 + (let ((__tmp116590 |[1]#_g116591_|)) (declare (not safe)) - (cons 'id __tmp115433)))) + (cons 'id __tmp116590)))) (declare (not safe)) - (cons __tmp115432 '())))) + (cons __tmp116589 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114938 - __tmp115431 + __obj116099 + __tmp116588 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115435 - (let ((__tmp115436 - (let ((__tmp115437 |[1]#_g115438_|)) + (let ((__tmp116592 + (let ((__tmp116593 + (let ((__tmp116594 |[1]#_g116595_|)) (declare (not safe)) - (cons 'id __tmp115437)))) + (cons 'id __tmp116594)))) (declare (not safe)) - (cons __tmp115436 '())))) + (cons __tmp116593 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114938 - __tmp115435 + __obj116099 + __tmp116592 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114938)) + (let ((__tmp116596 + (let ((__tmp116597 + (let ((__tmp116598 |[1]#_g116599_|)) + (declare (not safe)) + (cons 'id __tmp116598)))) + (declare (not safe)) + (cons __tmp116597 '())))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116099 + __tmp116596 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116099)) (define |[:0:]#__syntax| - (let ((__obj114939 + (let ((__obj116100 (let () (declare (not safe)) (##structure @@ -1489,11 +1507,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 + __obj116100 'gerbil/runtime/eval#__syntax::t '1 gerbil/core$$#class-type-info::t @@ -1501,7 +1520,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 + __obj116100 '__syntax '2 gerbil/core$$#class-type-info::t @@ -1509,7 +1528,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 + __obj116100 '(e id) '4 gerbil/core$$#class-type-info::t @@ -1517,7 +1536,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 + __obj116100 '() '3 gerbil/core$$#class-type-info::t @@ -1525,7 +1544,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 + __obj116100 '#t '5 gerbil/core$$#class-type-info::t @@ -1533,7 +1552,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 + __obj116100 '#f '6 gerbil/core$$#class-type-info::t @@ -1541,122 +1560,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 + __obj116100 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115439 |[1]#_g115440_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114939 - __tmp115439 + __obj116100 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115441 |[1]#_g115442_|)) + (let ((__tmp116600 |[1]#_g116601_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114939 - __tmp115441 + __obj116100 + __tmp116600 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115443 |[1]#_g115444_|)) + (let ((__tmp116602 |[1]#_g116603_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114939 - __tmp115443 + __obj116100 + __tmp116602 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115445 - (let ((__tmp115450 - (let ((__tmp115451 |[1]#_g115452_|)) - (declare (not safe)) - (cons 'e __tmp115451))) - (__tmp115446 - (let ((__tmp115447 - (let ((__tmp115448 |[1]#_g115449_|)) - (declare (not safe)) - (cons 'id __tmp115448)))) - (declare (not safe)) - (cons __tmp115447 '())))) - (declare (not safe)) - (cons __tmp115450 __tmp115446)))) + (let ((__tmp116604 |[1]#_g116605_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114939 - __tmp115445 + __obj116100 + __tmp116604 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115453 - (let ((__tmp115458 - (let ((__tmp115459 |[1]#_g115460_|)) + (let ((__tmp116606 + (let ((__tmp116611 + (let ((__tmp116612 |[1]#_g116613_|)) (declare (not safe)) - (cons 'e __tmp115459))) - (__tmp115454 - (let ((__tmp115455 - (let ((__tmp115456 |[1]#_g115457_|)) + (cons 'e __tmp116612))) + (__tmp116607 + (let ((__tmp116608 + (let ((__tmp116609 |[1]#_g116610_|)) (declare (not safe)) - (cons 'id __tmp115456)))) + (cons 'id __tmp116609)))) (declare (not safe)) - (cons __tmp115455 '())))) + (cons __tmp116608 '())))) (declare (not safe)) - (cons __tmp115458 __tmp115454)))) + (cons __tmp116611 __tmp116607)))) (declare (not safe)) (##unchecked-structure-set! - __obj114939 - __tmp115453 + __obj116100 + __tmp116606 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115461 - (let ((__tmp115466 - (let ((__tmp115467 |[1]#_g115468_|)) + (let ((__tmp116614 + (let ((__tmp116619 + (let ((__tmp116620 |[1]#_g116621_|)) (declare (not safe)) - (cons 'e __tmp115467))) - (__tmp115462 - (let ((__tmp115463 - (let ((__tmp115464 |[1]#_g115465_|)) + (cons 'e __tmp116620))) + (__tmp116615 + (let ((__tmp116616 + (let ((__tmp116617 |[1]#_g116618_|)) (declare (not safe)) - (cons 'id __tmp115464)))) + (cons 'id __tmp116617)))) (declare (not safe)) - (cons __tmp115463 '())))) + (cons __tmp116616 '())))) (declare (not safe)) - (cons __tmp115466 __tmp115462)))) + (cons __tmp116619 __tmp116615)))) (declare (not safe)) (##unchecked-structure-set! - __obj114939 - __tmp115461 + __obj116100 + __tmp116614 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115469 - (let ((__tmp115474 - (let ((__tmp115475 |[1]#_g115476_|)) + (let ((__tmp116622 + (let ((__tmp116627 + (let ((__tmp116628 |[1]#_g116629_|)) (declare (not safe)) - (cons 'e __tmp115475))) - (__tmp115470 - (let ((__tmp115471 - (let ((__tmp115472 |[1]#_g115473_|)) + (cons 'e __tmp116628))) + (__tmp116623 + (let ((__tmp116624 + (let ((__tmp116625 |[1]#_g116626_|)) (declare (not safe)) - (cons 'id __tmp115472)))) + (cons 'id __tmp116625)))) (declare (not safe)) - (cons __tmp115471 '())))) + (cons __tmp116624 '())))) (declare (not safe)) - (cons __tmp115474 __tmp115470)))) + (cons __tmp116627 __tmp116623)))) (declare (not safe)) (##unchecked-structure-set! - __obj114939 - __tmp115469 + __obj116100 + __tmp116622 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114939)) + (let ((__tmp116630 + (let ((__tmp116635 + (let ((__tmp116636 |[1]#_g116637_|)) + (declare (not safe)) + (cons 'e __tmp116636))) + (__tmp116631 + (let ((__tmp116632 + (let ((__tmp116633 |[1]#_g116634_|)) + (declare (not safe)) + (cons 'id __tmp116633)))) + (declare (not safe)) + (cons __tmp116632 '())))) + (declare (not safe)) + (cons __tmp116635 __tmp116631)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116100 + __tmp116630 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116100)) (define |[:0:]#__macro| - (let ((__obj114940 + (let ((__obj116101 (let () (declare (not safe)) (##structure @@ -1674,11 +1701,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114940 + __obj116101 'gerbil/runtime/eval#__macro::t '1 gerbil/core$$#class-type-info::t @@ -1686,7 +1714,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114940 + __obj116101 '__macro '2 gerbil/core$$#class-type-info::t @@ -1694,26 +1722,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114940 + __obj116101 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115477 - (let ((__tmp115478 |[1]#_g115479_|)) + (let ((__tmp116638 + (let ((__tmp116639 |[1]#_g116640_|)) (declare (not safe)) - (cons __tmp115478 '())))) + (cons __tmp116639 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115477 + __obj116101 + __tmp116638 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114940 + __obj116101 '#t '5 gerbil/core$$#class-type-info::t @@ -1721,7 +1749,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114940 + __obj116101 '#f '6 gerbil/core$$#class-type-info::t @@ -1729,122 +1757,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114940 + __obj116101 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115480 |[1]#_g115481_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115480 + __obj116101 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115482 |[1]#_g115483_|)) + (let ((__tmp116641 |[1]#_g116642_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115482 + __obj116101 + __tmp116641 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115484 |[1]#_g115485_|)) + (let ((__tmp116643 |[1]#_g116644_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115484 + __obj116101 + __tmp116643 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115486 - (let ((__tmp115491 - (let ((__tmp115492 |[1]#_g115493_|)) - (declare (not safe)) - (cons 'e __tmp115492))) - (__tmp115487 - (let ((__tmp115488 - (let ((__tmp115489 |[1]#_g115490_|)) - (declare (not safe)) - (cons 'id __tmp115489)))) - (declare (not safe)) - (cons __tmp115488 '())))) - (declare (not safe)) - (cons __tmp115491 __tmp115487)))) + (let ((__tmp116645 |[1]#_g116646_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115486 + __obj116101 + __tmp116645 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115494 - (let ((__tmp115499 - (let ((__tmp115500 |[1]#_g115501_|)) + (let ((__tmp116647 + (let ((__tmp116652 + (let ((__tmp116653 |[1]#_g116654_|)) (declare (not safe)) - (cons 'e __tmp115500))) - (__tmp115495 - (let ((__tmp115496 - (let ((__tmp115497 |[1]#_g115498_|)) + (cons 'e __tmp116653))) + (__tmp116648 + (let ((__tmp116649 + (let ((__tmp116650 |[1]#_g116651_|)) (declare (not safe)) - (cons 'id __tmp115497)))) + (cons 'id __tmp116650)))) (declare (not safe)) - (cons __tmp115496 '())))) + (cons __tmp116649 '())))) (declare (not safe)) - (cons __tmp115499 __tmp115495)))) + (cons __tmp116652 __tmp116648)))) (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115494 + __obj116101 + __tmp116647 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115502 - (let ((__tmp115507 - (let ((__tmp115508 |[1]#_g115509_|)) + (let ((__tmp116655 + (let ((__tmp116660 + (let ((__tmp116661 |[1]#_g116662_|)) (declare (not safe)) - (cons 'e __tmp115508))) - (__tmp115503 - (let ((__tmp115504 - (let ((__tmp115505 |[1]#_g115506_|)) + (cons 'e __tmp116661))) + (__tmp116656 + (let ((__tmp116657 + (let ((__tmp116658 |[1]#_g116659_|)) (declare (not safe)) - (cons 'id __tmp115505)))) + (cons 'id __tmp116658)))) (declare (not safe)) - (cons __tmp115504 '())))) + (cons __tmp116657 '())))) (declare (not safe)) - (cons __tmp115507 __tmp115503)))) + (cons __tmp116660 __tmp116656)))) (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115502 + __obj116101 + __tmp116655 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115510 - (let ((__tmp115515 - (let ((__tmp115516 |[1]#_g115517_|)) + (let ((__tmp116663 + (let ((__tmp116668 + (let ((__tmp116669 |[1]#_g116670_|)) (declare (not safe)) - (cons 'e __tmp115516))) - (__tmp115511 - (let ((__tmp115512 - (let ((__tmp115513 |[1]#_g115514_|)) + (cons 'e __tmp116669))) + (__tmp116664 + (let ((__tmp116665 + (let ((__tmp116666 |[1]#_g116667_|)) (declare (not safe)) - (cons 'id __tmp115513)))) + (cons 'id __tmp116666)))) (declare (not safe)) - (cons __tmp115512 '())))) + (cons __tmp116665 '())))) (declare (not safe)) - (cons __tmp115515 __tmp115511)))) + (cons __tmp116668 __tmp116664)))) (declare (not safe)) (##unchecked-structure-set! - __obj114940 - __tmp115510 + __obj116101 + __tmp116663 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114940)) + (let ((__tmp116671 + (let ((__tmp116676 + (let ((__tmp116677 |[1]#_g116678_|)) + (declare (not safe)) + (cons 'e __tmp116677))) + (__tmp116672 + (let ((__tmp116673 + (let ((__tmp116674 |[1]#_g116675_|)) + (declare (not safe)) + (cons 'id __tmp116674)))) + (declare (not safe)) + (cons __tmp116673 '())))) + (declare (not safe)) + (cons __tmp116676 __tmp116672)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116101 + __tmp116671 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116101)) (define |[:0:]#__special-form| - (let ((__obj114941 + (let ((__obj116102 (let () (declare (not safe)) (##structure @@ -1862,11 +1898,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114941 + __obj116102 'gerbil/runtime/eval#__special-form::t '1 gerbil/core$$#class-type-info::t @@ -1874,7 +1911,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114941 + __obj116102 '__special-form '2 gerbil/core$$#class-type-info::t @@ -1882,26 +1919,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114941 + __obj116102 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115518 - (let ((__tmp115519 |[1]#_g115520_|)) + (let ((__tmp116679 + (let ((__tmp116680 |[1]#_g116681_|)) (declare (not safe)) - (cons __tmp115519 '())))) + (cons __tmp116680 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115518 + __obj116102 + __tmp116679 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114941 + __obj116102 '#t '5 gerbil/core$$#class-type-info::t @@ -1909,7 +1946,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114941 + __obj116102 '#f '6 gerbil/core$$#class-type-info::t @@ -1917,122 +1954,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114941 + __obj116102 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115521 |[1]#_g115522_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115521 + __obj116102 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115523 |[1]#_g115524_|)) + (let ((__tmp116682 |[1]#_g116683_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115523 + __obj116102 + __tmp116682 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115525 |[1]#_g115526_|)) + (let ((__tmp116684 |[1]#_g116685_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115525 + __obj116102 + __tmp116684 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115527 - (let ((__tmp115532 - (let ((__tmp115533 |[1]#_g115534_|)) - (declare (not safe)) - (cons 'e __tmp115533))) - (__tmp115528 - (let ((__tmp115529 - (let ((__tmp115530 |[1]#_g115531_|)) - (declare (not safe)) - (cons 'id __tmp115530)))) - (declare (not safe)) - (cons __tmp115529 '())))) - (declare (not safe)) - (cons __tmp115532 __tmp115528)))) + (let ((__tmp116686 |[1]#_g116687_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115527 + __obj116102 + __tmp116686 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115535 - (let ((__tmp115540 - (let ((__tmp115541 |[1]#_g115542_|)) + (let ((__tmp116688 + (let ((__tmp116693 + (let ((__tmp116694 |[1]#_g116695_|)) (declare (not safe)) - (cons 'e __tmp115541))) - (__tmp115536 - (let ((__tmp115537 - (let ((__tmp115538 |[1]#_g115539_|)) + (cons 'e __tmp116694))) + (__tmp116689 + (let ((__tmp116690 + (let ((__tmp116691 |[1]#_g116692_|)) (declare (not safe)) - (cons 'id __tmp115538)))) + (cons 'id __tmp116691)))) (declare (not safe)) - (cons __tmp115537 '())))) + (cons __tmp116690 '())))) (declare (not safe)) - (cons __tmp115540 __tmp115536)))) + (cons __tmp116693 __tmp116689)))) (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115535 + __obj116102 + __tmp116688 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115543 - (let ((__tmp115548 - (let ((__tmp115549 |[1]#_g115550_|)) + (let ((__tmp116696 + (let ((__tmp116701 + (let ((__tmp116702 |[1]#_g116703_|)) (declare (not safe)) - (cons 'e __tmp115549))) - (__tmp115544 - (let ((__tmp115545 - (let ((__tmp115546 |[1]#_g115547_|)) + (cons 'e __tmp116702))) + (__tmp116697 + (let ((__tmp116698 + (let ((__tmp116699 |[1]#_g116700_|)) (declare (not safe)) - (cons 'id __tmp115546)))) + (cons 'id __tmp116699)))) (declare (not safe)) - (cons __tmp115545 '())))) + (cons __tmp116698 '())))) (declare (not safe)) - (cons __tmp115548 __tmp115544)))) + (cons __tmp116701 __tmp116697)))) (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115543 + __obj116102 + __tmp116696 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115551 - (let ((__tmp115556 - (let ((__tmp115557 |[1]#_g115558_|)) + (let ((__tmp116704 + (let ((__tmp116709 + (let ((__tmp116710 |[1]#_g116711_|)) (declare (not safe)) - (cons 'e __tmp115557))) - (__tmp115552 - (let ((__tmp115553 - (let ((__tmp115554 |[1]#_g115555_|)) + (cons 'e __tmp116710))) + (__tmp116705 + (let ((__tmp116706 + (let ((__tmp116707 |[1]#_g116708_|)) (declare (not safe)) - (cons 'id __tmp115554)))) + (cons 'id __tmp116707)))) (declare (not safe)) - (cons __tmp115553 '())))) + (cons __tmp116706 '())))) (declare (not safe)) - (cons __tmp115556 __tmp115552)))) + (cons __tmp116709 __tmp116705)))) (declare (not safe)) (##unchecked-structure-set! - __obj114941 - __tmp115551 + __obj116102 + __tmp116704 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114941)) + (let ((__tmp116712 + (let ((__tmp116717 + (let ((__tmp116718 |[1]#_g116719_|)) + (declare (not safe)) + (cons 'e __tmp116718))) + (__tmp116713 + (let ((__tmp116714 + (let ((__tmp116715 |[1]#_g116716_|)) + (declare (not safe)) + (cons 'id __tmp116715)))) + (declare (not safe)) + (cons __tmp116714 '())))) + (declare (not safe)) + (cons __tmp116717 __tmp116713)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116102 + __tmp116712 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116102)) (define |[:0:]#__core-form| - (let ((__obj114942 + (let ((__obj116103 (let () (declare (not safe)) (##structure @@ -2050,11 +2095,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114942 + __obj116103 'gerbil/runtime/eval#__core-form::t '1 gerbil/core$$#class-type-info::t @@ -2062,7 +2108,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114942 + __obj116103 '__core-form '2 gerbil/core$$#class-type-info::t @@ -2070,26 +2116,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114942 + __obj116103 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115559 - (let ((__tmp115560 |[1]#_g115479_|)) + (let ((__tmp116720 + (let ((__tmp116721 |[1]#_g116640_|)) (declare (not safe)) - (cons __tmp115560 '())))) + (cons __tmp116721 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115559 + __obj116103 + __tmp116720 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114942 + __obj116103 '#t '5 gerbil/core$$#class-type-info::t @@ -2097,7 +2143,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114942 + __obj116103 '#f '6 gerbil/core$$#class-type-info::t @@ -2105,122 +2151,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114942 + __obj116103 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115561 |[1]#_g115562_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115561 + __obj116103 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115563 |[1]#_g115564_|)) + (let ((__tmp116722 |[1]#_g116723_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115563 + __obj116103 + __tmp116722 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115565 |[1]#_g115566_|)) + (let ((__tmp116724 |[1]#_g116725_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115565 + __obj116103 + __tmp116724 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115567 - (let ((__tmp115572 - (let ((__tmp115573 |[1]#_g115574_|)) - (declare (not safe)) - (cons 'e __tmp115573))) - (__tmp115568 - (let ((__tmp115569 - (let ((__tmp115570 |[1]#_g115571_|)) - (declare (not safe)) - (cons 'id __tmp115570)))) - (declare (not safe)) - (cons __tmp115569 '())))) - (declare (not safe)) - (cons __tmp115572 __tmp115568)))) + (let ((__tmp116726 |[1]#_g116727_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115567 + __obj116103 + __tmp116726 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115575 - (let ((__tmp115580 - (let ((__tmp115581 |[1]#_g115582_|)) + (let ((__tmp116728 + (let ((__tmp116733 + (let ((__tmp116734 |[1]#_g116735_|)) (declare (not safe)) - (cons 'e __tmp115581))) - (__tmp115576 - (let ((__tmp115577 - (let ((__tmp115578 |[1]#_g115579_|)) + (cons 'e __tmp116734))) + (__tmp116729 + (let ((__tmp116730 + (let ((__tmp116731 |[1]#_g116732_|)) (declare (not safe)) - (cons 'id __tmp115578)))) + (cons 'id __tmp116731)))) (declare (not safe)) - (cons __tmp115577 '())))) + (cons __tmp116730 '())))) (declare (not safe)) - (cons __tmp115580 __tmp115576)))) + (cons __tmp116733 __tmp116729)))) (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115575 + __obj116103 + __tmp116728 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115583 - (let ((__tmp115588 - (let ((__tmp115589 |[1]#_g115590_|)) + (let ((__tmp116736 + (let ((__tmp116741 + (let ((__tmp116742 |[1]#_g116743_|)) (declare (not safe)) - (cons 'e __tmp115589))) - (__tmp115584 - (let ((__tmp115585 - (let ((__tmp115586 |[1]#_g115587_|)) + (cons 'e __tmp116742))) + (__tmp116737 + (let ((__tmp116738 + (let ((__tmp116739 |[1]#_g116740_|)) (declare (not safe)) - (cons 'id __tmp115586)))) + (cons 'id __tmp116739)))) (declare (not safe)) - (cons __tmp115585 '())))) + (cons __tmp116738 '())))) (declare (not safe)) - (cons __tmp115588 __tmp115584)))) + (cons __tmp116741 __tmp116737)))) (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115583 + __obj116103 + __tmp116736 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115591 - (let ((__tmp115596 - (let ((__tmp115597 |[1]#_g115598_|)) + (let ((__tmp116744 + (let ((__tmp116749 + (let ((__tmp116750 |[1]#_g116751_|)) (declare (not safe)) - (cons 'e __tmp115597))) - (__tmp115592 - (let ((__tmp115593 - (let ((__tmp115594 |[1]#_g115595_|)) + (cons 'e __tmp116750))) + (__tmp116745 + (let ((__tmp116746 + (let ((__tmp116747 |[1]#_g116748_|)) (declare (not safe)) - (cons 'id __tmp115594)))) + (cons 'id __tmp116747)))) (declare (not safe)) - (cons __tmp115593 '())))) + (cons __tmp116746 '())))) (declare (not safe)) - (cons __tmp115596 __tmp115592)))) + (cons __tmp116749 __tmp116745)))) (declare (not safe)) (##unchecked-structure-set! - __obj114942 - __tmp115591 + __obj116103 + __tmp116744 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114942)) + (let ((__tmp116752 + (let ((__tmp116757 + (let ((__tmp116758 |[1]#_g116759_|)) + (declare (not safe)) + (cons 'e __tmp116758))) + (__tmp116753 + (let ((__tmp116754 + (let ((__tmp116755 |[1]#_g116756_|)) + (declare (not safe)) + (cons 'id __tmp116755)))) + (declare (not safe)) + (cons __tmp116754 '())))) + (declare (not safe)) + (cons __tmp116757 __tmp116753)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116103 + __tmp116752 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116103)) (define |[:0:]#__core-expression| - (let ((__obj114943 + (let ((__obj116104 (let () (declare (not safe)) (##structure @@ -2238,11 +2292,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114943 + __obj116104 'gerbil/runtime/eval#__core-expression::t '1 gerbil/core$$#class-type-info::t @@ -2250,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114943 + __obj116104 '__core-expression '2 gerbil/core$$#class-type-info::t @@ -2258,26 +2313,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114943 + __obj116104 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115599 - (let ((__tmp115600 |[1]#_g115601_|)) + (let ((__tmp116760 + (let ((__tmp116761 |[1]#_g116762_|)) (declare (not safe)) - (cons __tmp115600 '())))) + (cons __tmp116761 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115599 + __obj116104 + __tmp116760 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114943 + __obj116104 '#t '5 gerbil/core$$#class-type-info::t @@ -2285,7 +2340,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114943 + __obj116104 '#f '6 gerbil/core$$#class-type-info::t @@ -2293,122 +2348,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114943 + __obj116104 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115602 |[1]#_g115603_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115602 + __obj116104 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115604 |[1]#_g115605_|)) + (let ((__tmp116763 |[1]#_g116764_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115604 + __obj116104 + __tmp116763 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115606 |[1]#_g115607_|)) + (let ((__tmp116765 |[1]#_g116766_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115606 + __obj116104 + __tmp116765 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115608 - (let ((__tmp115613 - (let ((__tmp115614 |[1]#_g115615_|)) - (declare (not safe)) - (cons 'e __tmp115614))) - (__tmp115609 - (let ((__tmp115610 - (let ((__tmp115611 |[1]#_g115612_|)) - (declare (not safe)) - (cons 'id __tmp115611)))) - (declare (not safe)) - (cons __tmp115610 '())))) - (declare (not safe)) - (cons __tmp115613 __tmp115609)))) + (let ((__tmp116767 |[1]#_g116768_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115608 + __obj116104 + __tmp116767 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115616 - (let ((__tmp115621 - (let ((__tmp115622 |[1]#_g115623_|)) + (let ((__tmp116769 + (let ((__tmp116774 + (let ((__tmp116775 |[1]#_g116776_|)) (declare (not safe)) - (cons 'e __tmp115622))) - (__tmp115617 - (let ((__tmp115618 - (let ((__tmp115619 |[1]#_g115620_|)) + (cons 'e __tmp116775))) + (__tmp116770 + (let ((__tmp116771 + (let ((__tmp116772 |[1]#_g116773_|)) (declare (not safe)) - (cons 'id __tmp115619)))) + (cons 'id __tmp116772)))) (declare (not safe)) - (cons __tmp115618 '())))) + (cons __tmp116771 '())))) (declare (not safe)) - (cons __tmp115621 __tmp115617)))) + (cons __tmp116774 __tmp116770)))) (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115616 + __obj116104 + __tmp116769 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115624 - (let ((__tmp115629 - (let ((__tmp115630 |[1]#_g115631_|)) + (let ((__tmp116777 + (let ((__tmp116782 + (let ((__tmp116783 |[1]#_g116784_|)) (declare (not safe)) - (cons 'e __tmp115630))) - (__tmp115625 - (let ((__tmp115626 - (let ((__tmp115627 |[1]#_g115628_|)) + (cons 'e __tmp116783))) + (__tmp116778 + (let ((__tmp116779 + (let ((__tmp116780 |[1]#_g116781_|)) (declare (not safe)) - (cons 'id __tmp115627)))) + (cons 'id __tmp116780)))) (declare (not safe)) - (cons __tmp115626 '())))) + (cons __tmp116779 '())))) (declare (not safe)) - (cons __tmp115629 __tmp115625)))) + (cons __tmp116782 __tmp116778)))) (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115624 + __obj116104 + __tmp116777 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115632 - (let ((__tmp115637 - (let ((__tmp115638 |[1]#_g115639_|)) + (let ((__tmp116785 + (let ((__tmp116790 + (let ((__tmp116791 |[1]#_g116792_|)) (declare (not safe)) - (cons 'e __tmp115638))) - (__tmp115633 - (let ((__tmp115634 - (let ((__tmp115635 |[1]#_g115636_|)) + (cons 'e __tmp116791))) + (__tmp116786 + (let ((__tmp116787 + (let ((__tmp116788 |[1]#_g116789_|)) (declare (not safe)) - (cons 'id __tmp115635)))) + (cons 'id __tmp116788)))) (declare (not safe)) - (cons __tmp115634 '())))) + (cons __tmp116787 '())))) (declare (not safe)) - (cons __tmp115637 __tmp115633)))) + (cons __tmp116790 __tmp116786)))) (declare (not safe)) (##unchecked-structure-set! - __obj114943 - __tmp115632 + __obj116104 + __tmp116785 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114943)) + (let ((__tmp116793 + (let ((__tmp116798 + (let ((__tmp116799 |[1]#_g116800_|)) + (declare (not safe)) + (cons 'e __tmp116799))) + (__tmp116794 + (let ((__tmp116795 + (let ((__tmp116796 |[1]#_g116797_|)) + (declare (not safe)) + (cons 'id __tmp116796)))) + (declare (not safe)) + (cons __tmp116795 '())))) + (declare (not safe)) + (cons __tmp116798 __tmp116794)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116104 + __tmp116793 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116104)) (define |[:0:]#__core-special-form| - (let ((__obj114944 + (let ((__obj116105 (let () (declare (not safe)) (##structure @@ -2426,11 +2489,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114944 + __obj116105 'gerbil/runtime/eval#__core-special-form::t '1 gerbil/core$$#class-type-info::t @@ -2438,7 +2502,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114944 + __obj116105 '__core-special-form '2 gerbil/core$$#class-type-info::t @@ -2446,26 +2510,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114944 + __obj116105 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115640 - (let ((__tmp115641 |[1]#_g115601_|)) + (let ((__tmp116801 + (let ((__tmp116802 |[1]#_g116762_|)) (declare (not safe)) - (cons __tmp115641 '())))) + (cons __tmp116802 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115640 + __obj116105 + __tmp116801 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114944 + __obj116105 '#t '5 gerbil/core$$#class-type-info::t @@ -2473,7 +2537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114944 + __obj116105 '#f '6 gerbil/core$$#class-type-info::t @@ -2481,122 +2545,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114944 + __obj116105 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115642 |[1]#_g115643_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115642 + __obj116105 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115644 |[1]#_g115645_|)) + (let ((__tmp116803 |[1]#_g116804_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115644 + __obj116105 + __tmp116803 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115646 |[1]#_g115647_|)) + (let ((__tmp116805 |[1]#_g116806_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115646 + __obj116105 + __tmp116805 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115648 - (let ((__tmp115653 - (let ((__tmp115654 |[1]#_g115655_|)) - (declare (not safe)) - (cons 'e __tmp115654))) - (__tmp115649 - (let ((__tmp115650 - (let ((__tmp115651 |[1]#_g115652_|)) - (declare (not safe)) - (cons 'id __tmp115651)))) - (declare (not safe)) - (cons __tmp115650 '())))) - (declare (not safe)) - (cons __tmp115653 __tmp115649)))) + (let ((__tmp116807 |[1]#_g116808_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115648 + __obj116105 + __tmp116807 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115656 - (let ((__tmp115661 - (let ((__tmp115662 |[1]#_g115663_|)) + (let ((__tmp116809 + (let ((__tmp116814 + (let ((__tmp116815 |[1]#_g116816_|)) (declare (not safe)) - (cons 'e __tmp115662))) - (__tmp115657 - (let ((__tmp115658 - (let ((__tmp115659 |[1]#_g115660_|)) + (cons 'e __tmp116815))) + (__tmp116810 + (let ((__tmp116811 + (let ((__tmp116812 |[1]#_g116813_|)) (declare (not safe)) - (cons 'id __tmp115659)))) + (cons 'id __tmp116812)))) (declare (not safe)) - (cons __tmp115658 '())))) + (cons __tmp116811 '())))) (declare (not safe)) - (cons __tmp115661 __tmp115657)))) + (cons __tmp116814 __tmp116810)))) (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115656 + __obj116105 + __tmp116809 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115664 - (let ((__tmp115669 - (let ((__tmp115670 |[1]#_g115671_|)) + (let ((__tmp116817 + (let ((__tmp116822 + (let ((__tmp116823 |[1]#_g116824_|)) (declare (not safe)) - (cons 'e __tmp115670))) - (__tmp115665 - (let ((__tmp115666 - (let ((__tmp115667 |[1]#_g115668_|)) + (cons 'e __tmp116823))) + (__tmp116818 + (let ((__tmp116819 + (let ((__tmp116820 |[1]#_g116821_|)) (declare (not safe)) - (cons 'id __tmp115667)))) + (cons 'id __tmp116820)))) (declare (not safe)) - (cons __tmp115666 '())))) + (cons __tmp116819 '())))) (declare (not safe)) - (cons __tmp115669 __tmp115665)))) + (cons __tmp116822 __tmp116818)))) (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115664 + __obj116105 + __tmp116817 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115672 - (let ((__tmp115677 - (let ((__tmp115678 |[1]#_g115679_|)) + (let ((__tmp116825 + (let ((__tmp116830 + (let ((__tmp116831 |[1]#_g116832_|)) (declare (not safe)) - (cons 'e __tmp115678))) - (__tmp115673 - (let ((__tmp115674 - (let ((__tmp115675 |[1]#_g115676_|)) + (cons 'e __tmp116831))) + (__tmp116826 + (let ((__tmp116827 + (let ((__tmp116828 |[1]#_g116829_|)) (declare (not safe)) - (cons 'id __tmp115675)))) + (cons 'id __tmp116828)))) (declare (not safe)) - (cons __tmp115674 '())))) + (cons __tmp116827 '())))) (declare (not safe)) - (cons __tmp115677 __tmp115673)))) + (cons __tmp116830 __tmp116826)))) (declare (not safe)) (##unchecked-structure-set! - __obj114944 - __tmp115672 + __obj116105 + __tmp116825 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114944)) + (let ((__tmp116833 + (let ((__tmp116838 + (let ((__tmp116839 |[1]#_g116840_|)) + (declare (not safe)) + (cons 'e __tmp116839))) + (__tmp116834 + (let ((__tmp116835 + (let ((__tmp116836 |[1]#_g116837_|)) + (declare (not safe)) + (cons 'id __tmp116836)))) + (declare (not safe)) + (cons __tmp116835 '())))) + (declare (not safe)) + (cons __tmp116838 __tmp116834)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116105 + __tmp116833 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116105)) (define |[:0:]#__struct-info| - (let ((__obj114945 + (let ((__obj116106 (let () (declare (not safe)) (##structure @@ -2614,11 +2686,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114945 + __obj116106 'gerbil/runtime/eval#__struct-info::t '1 gerbil/core$$#class-type-info::t @@ -2626,7 +2699,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114945 + __obj116106 '__struct-info '2 gerbil/core$$#class-type-info::t @@ -2634,26 +2707,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114945 + __obj116106 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115680 - (let ((__tmp115681 |[1]#_g115479_|)) + (let ((__tmp116841 + (let ((__tmp116842 |[1]#_g116640_|)) (declare (not safe)) - (cons __tmp115681 '())))) + (cons __tmp116842 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115680 + __obj116106 + __tmp116841 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114945 + __obj116106 '#t '5 gerbil/core$$#class-type-info::t @@ -2661,7 +2734,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114945 + __obj116106 '#f '6 gerbil/core$$#class-type-info::t @@ -2669,122 +2742,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114945 + __obj116106 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115682 |[1]#_g115683_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115682 + __obj116106 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115684 |[1]#_g115685_|)) + (let ((__tmp116843 |[1]#_g116844_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115684 + __obj116106 + __tmp116843 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115686 |[1]#_g115687_|)) + (let ((__tmp116845 |[1]#_g116846_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115686 + __obj116106 + __tmp116845 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115688 - (let ((__tmp115693 - (let ((__tmp115694 |[1]#_g115695_|)) - (declare (not safe)) - (cons 'e __tmp115694))) - (__tmp115689 - (let ((__tmp115690 - (let ((__tmp115691 |[1]#_g115692_|)) - (declare (not safe)) - (cons 'id __tmp115691)))) - (declare (not safe)) - (cons __tmp115690 '())))) - (declare (not safe)) - (cons __tmp115693 __tmp115689)))) + (let ((__tmp116847 |[1]#_g116848_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115688 + __obj116106 + __tmp116847 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115696 - (let ((__tmp115701 - (let ((__tmp115702 |[1]#_g115703_|)) + (let ((__tmp116849 + (let ((__tmp116854 + (let ((__tmp116855 |[1]#_g116856_|)) (declare (not safe)) - (cons 'e __tmp115702))) - (__tmp115697 - (let ((__tmp115698 - (let ((__tmp115699 |[1]#_g115700_|)) + (cons 'e __tmp116855))) + (__tmp116850 + (let ((__tmp116851 + (let ((__tmp116852 |[1]#_g116853_|)) (declare (not safe)) - (cons 'id __tmp115699)))) + (cons 'id __tmp116852)))) (declare (not safe)) - (cons __tmp115698 '())))) + (cons __tmp116851 '())))) (declare (not safe)) - (cons __tmp115701 __tmp115697)))) + (cons __tmp116854 __tmp116850)))) (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115696 + __obj116106 + __tmp116849 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115704 - (let ((__tmp115709 - (let ((__tmp115710 |[1]#_g115711_|)) + (let ((__tmp116857 + (let ((__tmp116862 + (let ((__tmp116863 |[1]#_g116864_|)) (declare (not safe)) - (cons 'e __tmp115710))) - (__tmp115705 - (let ((__tmp115706 - (let ((__tmp115707 |[1]#_g115708_|)) + (cons 'e __tmp116863))) + (__tmp116858 + (let ((__tmp116859 + (let ((__tmp116860 |[1]#_g116861_|)) (declare (not safe)) - (cons 'id __tmp115707)))) + (cons 'id __tmp116860)))) (declare (not safe)) - (cons __tmp115706 '())))) + (cons __tmp116859 '())))) (declare (not safe)) - (cons __tmp115709 __tmp115705)))) + (cons __tmp116862 __tmp116858)))) (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115704 + __obj116106 + __tmp116857 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115712 - (let ((__tmp115717 - (let ((__tmp115718 |[1]#_g115719_|)) + (let ((__tmp116865 + (let ((__tmp116870 + (let ((__tmp116871 |[1]#_g116872_|)) (declare (not safe)) - (cons 'e __tmp115718))) - (__tmp115713 - (let ((__tmp115714 - (let ((__tmp115715 |[1]#_g115716_|)) + (cons 'e __tmp116871))) + (__tmp116866 + (let ((__tmp116867 + (let ((__tmp116868 |[1]#_g116869_|)) (declare (not safe)) - (cons 'id __tmp115715)))) + (cons 'id __tmp116868)))) (declare (not safe)) - (cons __tmp115714 '())))) + (cons __tmp116867 '())))) (declare (not safe)) - (cons __tmp115717 __tmp115713)))) + (cons __tmp116870 __tmp116866)))) (declare (not safe)) (##unchecked-structure-set! - __obj114945 - __tmp115712 + __obj116106 + __tmp116865 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114945)) + (let ((__tmp116873 + (let ((__tmp116878 + (let ((__tmp116879 |[1]#_g116880_|)) + (declare (not safe)) + (cons 'e __tmp116879))) + (__tmp116874 + (let ((__tmp116875 + (let ((__tmp116876 |[1]#_g116877_|)) + (declare (not safe)) + (cons 'id __tmp116876)))) + (declare (not safe)) + (cons __tmp116875 '())))) + (declare (not safe)) + (cons __tmp116878 __tmp116874)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116106 + __tmp116873 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116106)) (define |[:0:]#__feature| - (let ((__obj114946 + (let ((__obj116107 (let () (declare (not safe)) (##structure @@ -2802,11 +2883,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114946 + __obj116107 'gerbil/runtime/eval#__feature::t '1 gerbil/core$$#class-type-info::t @@ -2814,7 +2896,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114946 + __obj116107 '__feature '2 gerbil/core$$#class-type-info::t @@ -2822,26 +2904,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114946 + __obj116107 '() '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115720 - (let ((__tmp115721 |[1]#_g115479_|)) + (let ((__tmp116881 + (let ((__tmp116882 |[1]#_g116640_|)) (declare (not safe)) - (cons __tmp115721 '())))) + (cons __tmp116882 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115720 + __obj116107 + __tmp116881 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114946 + __obj116107 '#t '5 gerbil/core$$#class-type-info::t @@ -2849,7 +2931,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114946 + __obj116107 '#f '6 gerbil/core$$#class-type-info::t @@ -2857,122 +2939,130 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114946 + __obj116107 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115722 |[1]#_g115723_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115722 + __obj116107 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115724 |[1]#_g115725_|)) + (let ((__tmp116883 |[1]#_g116884_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115724 + __obj116107 + __tmp116883 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115726 |[1]#_g115727_|)) + (let ((__tmp116885 |[1]#_g116886_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115726 + __obj116107 + __tmp116885 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115728 - (let ((__tmp115733 - (let ((__tmp115734 |[1]#_g115735_|)) - (declare (not safe)) - (cons 'e __tmp115734))) - (__tmp115729 - (let ((__tmp115730 - (let ((__tmp115731 |[1]#_g115732_|)) - (declare (not safe)) - (cons 'id __tmp115731)))) - (declare (not safe)) - (cons __tmp115730 '())))) - (declare (not safe)) - (cons __tmp115733 __tmp115729)))) + (let ((__tmp116887 |[1]#_g116888_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115728 + __obj116107 + __tmp116887 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115736 - (let ((__tmp115741 - (let ((__tmp115742 |[1]#_g115743_|)) + (let ((__tmp116889 + (let ((__tmp116894 + (let ((__tmp116895 |[1]#_g116896_|)) (declare (not safe)) - (cons 'e __tmp115742))) - (__tmp115737 - (let ((__tmp115738 - (let ((__tmp115739 |[1]#_g115740_|)) + (cons 'e __tmp116895))) + (__tmp116890 + (let ((__tmp116891 + (let ((__tmp116892 |[1]#_g116893_|)) (declare (not safe)) - (cons 'id __tmp115739)))) + (cons 'id __tmp116892)))) (declare (not safe)) - (cons __tmp115738 '())))) + (cons __tmp116891 '())))) (declare (not safe)) - (cons __tmp115741 __tmp115737)))) + (cons __tmp116894 __tmp116890)))) (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115736 + __obj116107 + __tmp116889 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115744 - (let ((__tmp115749 - (let ((__tmp115750 |[1]#_g115751_|)) + (let ((__tmp116897 + (let ((__tmp116902 + (let ((__tmp116903 |[1]#_g116904_|)) (declare (not safe)) - (cons 'e __tmp115750))) - (__tmp115745 - (let ((__tmp115746 - (let ((__tmp115747 |[1]#_g115748_|)) + (cons 'e __tmp116903))) + (__tmp116898 + (let ((__tmp116899 + (let ((__tmp116900 |[1]#_g116901_|)) (declare (not safe)) - (cons 'id __tmp115747)))) + (cons 'id __tmp116900)))) (declare (not safe)) - (cons __tmp115746 '())))) + (cons __tmp116899 '())))) (declare (not safe)) - (cons __tmp115749 __tmp115745)))) + (cons __tmp116902 __tmp116898)))) (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115744 + __obj116107 + __tmp116897 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115752 - (let ((__tmp115757 - (let ((__tmp115758 |[1]#_g115759_|)) + (let ((__tmp116905 + (let ((__tmp116910 + (let ((__tmp116911 |[1]#_g116912_|)) (declare (not safe)) - (cons 'e __tmp115758))) - (__tmp115753 - (let ((__tmp115754 - (let ((__tmp115755 |[1]#_g115756_|)) + (cons 'e __tmp116911))) + (__tmp116906 + (let ((__tmp116907 + (let ((__tmp116908 |[1]#_g116909_|)) (declare (not safe)) - (cons 'id __tmp115755)))) + (cons 'id __tmp116908)))) (declare (not safe)) - (cons __tmp115754 '())))) + (cons __tmp116907 '())))) (declare (not safe)) - (cons __tmp115757 __tmp115753)))) + (cons __tmp116910 __tmp116906)))) (declare (not safe)) (##unchecked-structure-set! - __obj114946 - __tmp115752 + __obj116107 + __tmp116905 '14 gerbil/core$$#class-type-info::t '#f)) - __obj114946)) + (let ((__tmp116913 + (let ((__tmp116918 + (let ((__tmp116919 |[1]#_g116920_|)) + (declare (not safe)) + (cons 'e __tmp116919))) + (__tmp116914 + (let ((__tmp116915 + (let ((__tmp116916 |[1]#_g116917_|)) + (declare (not safe)) + (cons 'id __tmp116916)))) + (declare (not safe)) + (cons __tmp116915 '())))) + (declare (not safe)) + (cons __tmp116918 __tmp116914)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj116107 + __tmp116913 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj116107)) (define |[:0:]#__module| - (let ((__obj114947 + (let ((__obj116108 (let () (declare (not safe)) (##structure @@ -2990,11 +3080,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114947 + __obj116108 'gerbil/runtime/eval#__module::t '1 gerbil/core$$#class-type-info::t @@ -3002,7 +3093,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114947 + __obj116108 '__module '2 gerbil/core$$#class-type-info::t @@ -3010,26 +3101,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114947 + __obj116108 '(id path import export) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115760 - (let ((__tmp115761 |[1]#_g115762_|)) + (let ((__tmp116921 + (let ((__tmp116922 |[1]#_g116923_|)) (declare (not safe)) - (cons __tmp115761 '())))) + (cons __tmp116922 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115760 + __obj116108 + __tmp116921 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj114947 + __obj116108 '#t '5 gerbil/core$$#class-type-info::t @@ -3037,7 +3128,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114947 + __obj116108 '#f '6 gerbil/core$$#class-type-info::t @@ -3045,526 +3136,534 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114947 + __obj116108 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115763 |[1]#_g115764_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115763 + __obj116108 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115765 |[1]#_g115766_|)) + (let ((__tmp116924 |[1]#_g116925_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115765 + __obj116108 + __tmp116924 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115767 |[1]#_g115768_|)) + (let ((__tmp116926 |[1]#_g116927_|)) (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115767 + __obj116108 + __tmp116926 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115769 - (let ((__tmp115798 - (let ((__tmp115799 |[1]#_g115800_|)) + (let ((__tmp116928 |[1]#_g116929_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj116108 + __tmp116928 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp116930 + (let ((__tmp116959 + (let ((__tmp116960 |[1]#_g116961_|)) (declare (not safe)) - (cons 'id __tmp115799))) - (__tmp115770 - (let ((__tmp115795 - (let ((__tmp115796 |[1]#_g115797_|)) + (cons 'id __tmp116960))) + (__tmp116931 + (let ((__tmp116956 + (let ((__tmp116957 |[1]#_g116958_|)) (declare (not safe)) - (cons 'path __tmp115796))) - (__tmp115771 - (let ((__tmp115792 - (let ((__tmp115793 |[1]#_g115794_|)) + (cons 'path __tmp116957))) + (__tmp116932 + (let ((__tmp116953 + (let ((__tmp116954 |[1]#_g116955_|)) (declare (not safe)) - (cons 'import __tmp115793))) - (__tmp115772 - (let ((__tmp115789 - (let ((__tmp115790 |[1]#_g115791_|)) + (cons 'import __tmp116954))) + (__tmp116933 + (let ((__tmp116950 + (let ((__tmp116951 |[1]#_g116952_|)) (declare (not safe)) - (cons 'export __tmp115790))) - (__tmp115773 - (let ((__tmp115786 - (let ((__tmp115787 - |[1]#_g115788_|)) + (cons 'export __tmp116951))) + (__tmp116934 + (let ((__tmp116947 + (let ((__tmp116948 + |[1]#_g116949_|)) (declare (not safe)) - (cons 't __tmp115787))) - (__tmp115774 - (let ((__tmp115783 - (let ((__tmp115784 - |[1]#_g115785_|)) + (cons 't __tmp116948))) + (__tmp116935 + (let ((__tmp116944 + (let ((__tmp116945 + |[1]#_g116946_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp115784))) - (__tmp115775 - (let ((__tmp115780 - (let ((__tmp115781 |[1]#_g115782_|)) + __tmp116945))) + (__tmp116936 + (let ((__tmp116941 + (let ((__tmp116942 |[1]#_g116943_|)) (declare (not safe)) - (cons 'super __tmp115781))) - (__tmp115776 - (let ((__tmp115777 - (let ((__tmp115778 |[1]#_g115779_|)) + (cons 'super __tmp116942))) + (__tmp116937 + (let ((__tmp116938 + (let ((__tmp116939 |[1]#_g116940_|)) (declare (not safe)) - (cons 'table __tmp115778)))) + (cons 'table __tmp116939)))) (declare (not safe)) - (cons __tmp115777 '())))) + (cons __tmp116938 '())))) (declare (not safe)) - (cons __tmp115780 __tmp115776)))) + (cons __tmp116941 __tmp116937)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115783 - __tmp115775)))) + (cons __tmp116944 + __tmp116936)))) (declare (not safe)) - (cons __tmp115786 __tmp115774)))) + (cons __tmp116947 __tmp116935)))) (declare (not safe)) - (cons __tmp115789 __tmp115773)))) + (cons __tmp116950 __tmp116934)))) (declare (not safe)) - (cons __tmp115792 __tmp115772)))) + (cons __tmp116953 __tmp116933)))) (declare (not safe)) - (cons __tmp115795 __tmp115771)))) + (cons __tmp116956 __tmp116932)))) (declare (not safe)) - (cons __tmp115798 __tmp115770)))) + (cons __tmp116959 __tmp116931)))) (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115769 - '11 + __obj116108 + __tmp116930 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115801 - (let ((__tmp115830 - (let ((__tmp115831 |[1]#_g115832_|)) + (let ((__tmp116962 + (let ((__tmp116991 + (let ((__tmp116992 |[1]#_g116993_|)) (declare (not safe)) - (cons 'id __tmp115831))) - (__tmp115802 - (let ((__tmp115827 - (let ((__tmp115828 |[1]#_g115829_|)) + (cons 'id __tmp116992))) + (__tmp116963 + (let ((__tmp116988 + (let ((__tmp116989 |[1]#_g116990_|)) (declare (not safe)) - (cons 'path __tmp115828))) - (__tmp115803 - (let ((__tmp115824 - (let ((__tmp115825 |[1]#_g115826_|)) + (cons 'path __tmp116989))) + (__tmp116964 + (let ((__tmp116985 + (let ((__tmp116986 |[1]#_g116987_|)) (declare (not safe)) - (cons 'import __tmp115825))) - (__tmp115804 - (let ((__tmp115821 - (let ((__tmp115822 |[1]#_g115823_|)) + (cons 'import __tmp116986))) + (__tmp116965 + (let ((__tmp116982 + (let ((__tmp116983 |[1]#_g116984_|)) (declare (not safe)) - (cons 'export __tmp115822))) - (__tmp115805 - (let ((__tmp115818 - (let ((__tmp115819 - |[1]#_g115820_|)) + (cons 'export __tmp116983))) + (__tmp116966 + (let ((__tmp116979 + (let ((__tmp116980 + |[1]#_g116981_|)) (declare (not safe)) - (cons 't __tmp115819))) - (__tmp115806 - (let ((__tmp115815 - (let ((__tmp115816 - |[1]#_g115817_|)) + (cons 't __tmp116980))) + (__tmp116967 + (let ((__tmp116976 + (let ((__tmp116977 + |[1]#_g116978_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp115816))) - (__tmp115807 - (let ((__tmp115812 - (let ((__tmp115813 |[1]#_g115814_|)) + __tmp116977))) + (__tmp116968 + (let ((__tmp116973 + (let ((__tmp116974 |[1]#_g116975_|)) (declare (not safe)) - (cons 'super __tmp115813))) - (__tmp115808 - (let ((__tmp115809 - (let ((__tmp115810 |[1]#_g115811_|)) + (cons 'super __tmp116974))) + (__tmp116969 + (let ((__tmp116970 + (let ((__tmp116971 |[1]#_g116972_|)) (declare (not safe)) - (cons 'table __tmp115810)))) + (cons 'table __tmp116971)))) (declare (not safe)) - (cons __tmp115809 '())))) + (cons __tmp116970 '())))) (declare (not safe)) - (cons __tmp115812 __tmp115808)))) + (cons __tmp116973 __tmp116969)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115815 - __tmp115807)))) + (cons __tmp116976 + __tmp116968)))) (declare (not safe)) - (cons __tmp115818 __tmp115806)))) + (cons __tmp116979 __tmp116967)))) (declare (not safe)) - (cons __tmp115821 __tmp115805)))) + (cons __tmp116982 __tmp116966)))) (declare (not safe)) - (cons __tmp115824 __tmp115804)))) + (cons __tmp116985 __tmp116965)))) (declare (not safe)) - (cons __tmp115827 __tmp115803)))) + (cons __tmp116988 __tmp116964)))) (declare (not safe)) - (cons __tmp115830 __tmp115802)))) + (cons __tmp116991 __tmp116963)))) (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115801 - '12 + __obj116108 + __tmp116962 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115833 - (let ((__tmp115862 - (let ((__tmp115863 |[1]#_g115864_|)) + (let ((__tmp116994 + (let ((__tmp117023 + (let ((__tmp117024 |[1]#_g117025_|)) (declare (not safe)) - (cons 'id __tmp115863))) - (__tmp115834 - (let ((__tmp115859 - (let ((__tmp115860 |[1]#_g115861_|)) + (cons 'id __tmp117024))) + (__tmp116995 + (let ((__tmp117020 + (let ((__tmp117021 |[1]#_g117022_|)) (declare (not safe)) - (cons 'path __tmp115860))) - (__tmp115835 - (let ((__tmp115856 - (let ((__tmp115857 |[1]#_g115858_|)) + (cons 'path __tmp117021))) + (__tmp116996 + (let ((__tmp117017 + (let ((__tmp117018 |[1]#_g117019_|)) (declare (not safe)) - (cons 'import __tmp115857))) - (__tmp115836 - (let ((__tmp115853 - (let ((__tmp115854 |[1]#_g115855_|)) + (cons 'import __tmp117018))) + (__tmp116997 + (let ((__tmp117014 + (let ((__tmp117015 |[1]#_g117016_|)) (declare (not safe)) - (cons 'export __tmp115854))) - (__tmp115837 - (let ((__tmp115850 - (let ((__tmp115851 - |[1]#_g115852_|)) + (cons 'export __tmp117015))) + (__tmp116998 + (let ((__tmp117011 + (let ((__tmp117012 + |[1]#_g117013_|)) (declare (not safe)) - (cons 't __tmp115851))) - (__tmp115838 - (let ((__tmp115847 - (let ((__tmp115848 - |[1]#_g115849_|)) + (cons 't __tmp117012))) + (__tmp116999 + (let ((__tmp117008 + (let ((__tmp117009 + |[1]#_g117010_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp115848))) - (__tmp115839 - (let ((__tmp115844 - (let ((__tmp115845 |[1]#_g115846_|)) + __tmp117009))) + (__tmp117000 + (let ((__tmp117005 + (let ((__tmp117006 |[1]#_g117007_|)) (declare (not safe)) - (cons 'super __tmp115845))) - (__tmp115840 - (let ((__tmp115841 - (let ((__tmp115842 |[1]#_g115843_|)) + (cons 'super __tmp117006))) + (__tmp117001 + (let ((__tmp117002 + (let ((__tmp117003 |[1]#_g117004_|)) (declare (not safe)) - (cons 'table __tmp115842)))) + (cons 'table __tmp117003)))) (declare (not safe)) - (cons __tmp115841 '())))) + (cons __tmp117002 '())))) (declare (not safe)) - (cons __tmp115844 __tmp115840)))) + (cons __tmp117005 __tmp117001)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115847 - __tmp115839)))) + (cons __tmp117008 + __tmp117000)))) (declare (not safe)) - (cons __tmp115850 __tmp115838)))) + (cons __tmp117011 __tmp116999)))) (declare (not safe)) - (cons __tmp115853 __tmp115837)))) + (cons __tmp117014 __tmp116998)))) (declare (not safe)) - (cons __tmp115856 __tmp115836)))) + (cons __tmp117017 __tmp116997)))) (declare (not safe)) - (cons __tmp115859 __tmp115835)))) + (cons __tmp117020 __tmp116996)))) (declare (not safe)) - (cons __tmp115862 __tmp115834)))) + (cons __tmp117023 __tmp116995)))) (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115833 - '13 + __obj116108 + __tmp116994 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp115865 - (let ((__tmp115894 - (let ((__tmp115895 |[1]#_g115896_|)) + (let ((__tmp117026 + (let ((__tmp117055 + (let ((__tmp117056 |[1]#_g117057_|)) (declare (not safe)) - (cons 'id __tmp115895))) - (__tmp115866 - (let ((__tmp115891 - (let ((__tmp115892 |[1]#_g115893_|)) + (cons 'id __tmp117056))) + (__tmp117027 + (let ((__tmp117052 + (let ((__tmp117053 |[1]#_g117054_|)) (declare (not safe)) - (cons 'path __tmp115892))) - (__tmp115867 - (let ((__tmp115888 - (let ((__tmp115889 |[1]#_g115890_|)) + (cons 'path __tmp117053))) + (__tmp117028 + (let ((__tmp117049 + (let ((__tmp117050 |[1]#_g117051_|)) (declare (not safe)) - (cons 'import __tmp115889))) - (__tmp115868 - (let ((__tmp115885 - (let ((__tmp115886 |[1]#_g115887_|)) + (cons 'import __tmp117050))) + (__tmp117029 + (let ((__tmp117046 + (let ((__tmp117047 |[1]#_g117048_|)) (declare (not safe)) - (cons 'export __tmp115886))) - (__tmp115869 - (let ((__tmp115882 - (let ((__tmp115883 - |[1]#_g115884_|)) + (cons 'export __tmp117047))) + (__tmp117030 + (let ((__tmp117043 + (let ((__tmp117044 + |[1]#_g117045_|)) (declare (not safe)) - (cons 't __tmp115883))) - (__tmp115870 - (let ((__tmp115879 - (let ((__tmp115880 - |[1]#_g115881_|)) + (cons 't __tmp117044))) + (__tmp117031 + (let ((__tmp117040 + (let ((__tmp117041 + |[1]#_g117042_|)) (declare (not safe)) (cons 'ns ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp115880))) - (__tmp115871 - (let ((__tmp115876 - (let ((__tmp115877 |[1]#_g115878_|)) + __tmp117041))) + (__tmp117032 + (let ((__tmp117037 + (let ((__tmp117038 |[1]#_g117039_|)) (declare (not safe)) - (cons 'super __tmp115877))) - (__tmp115872 - (let ((__tmp115873 - (let ((__tmp115874 |[1]#_g115875_|)) + (cons 'super __tmp117038))) + (__tmp117033 + (let ((__tmp117034 + (let ((__tmp117035 |[1]#_g117036_|)) (declare (not safe)) - (cons 'table __tmp115874)))) + (cons 'table __tmp117035)))) (declare (not safe)) - (cons __tmp115873 '())))) + (cons __tmp117034 '())))) (declare (not safe)) - (cons __tmp115876 __tmp115872)))) + (cons __tmp117037 __tmp117033)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp115879 - __tmp115871)))) + (cons __tmp117040 + __tmp117032)))) (declare (not safe)) - (cons __tmp115882 __tmp115870)))) + (cons __tmp117043 __tmp117031)))) (declare (not safe)) - (cons __tmp115885 __tmp115869)))) + (cons __tmp117046 __tmp117030)))) (declare (not safe)) - (cons __tmp115888 __tmp115868)))) + (cons __tmp117049 __tmp117029)))) (declare (not safe)) - (cons __tmp115891 __tmp115867)))) + (cons __tmp117052 __tmp117028)))) (declare (not safe)) - (cons __tmp115894 __tmp115866)))) + (cons __tmp117055 __tmp117027)))) (declare (not safe)) (##unchecked-structure-set! - __obj114947 - __tmp115865 - '14 + __obj116108 + __tmp117026 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj114947)) + __obj116108)) (define |[:0:]#defcore-forms| - (lambda (_stx107800_) - (letrec ((_generate107803_ - (lambda (_id108167_ _compile108169_ _make108170_) - (let* ((_g108172108191_ - (lambda (_g108173108187_) + (lambda (_stx108961_) + (letrec ((_generate108964_ + (lambda (_id109328_ _compile109330_ _make109331_) + (let* ((_g109333109352_ + (lambda (_g109334109348_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g108173108187_))) - (_g108171108250_ - (lambda (_g108173108195_) - (if (gx#stx-pair? _g108173108195_) - (let ((_e108179108198_ - (gx#syntax-e _g108173108195_))) - (let ((_hd108178108202_ + _g109334109348_))) + (_g109332109411_ + (lambda (_g109334109356_) + (if (gx#stx-pair? _g109334109356_) + (let ((_e109340109359_ + (gx#syntax-e _g109334109356_))) + (let ((_hd109339109363_ (let () (declare (not safe)) - (##car _e108179108198_))) - (_tl108177108205_ + (##car _e109340109359_))) + (_tl109338109366_ (let () (declare (not safe)) - (##cdr _e108179108198_)))) - (if (gx#stx-pair? _tl108177108205_) - (let ((_e108182108208_ + (##cdr _e109340109359_)))) + (if (gx#stx-pair? _tl109338109366_) + (let ((_e109343109369_ (gx#syntax-e - _tl108177108205_))) - (let ((_hd108181108212_ + _tl109338109366_))) + (let ((_hd109342109373_ (let () (declare (not safe)) - (##car _e108182108208_))) - (_tl108180108215_ + (##car _e109343109369_))) + (_tl109341109376_ (let () (declare (not safe)) - (##cdr _e108182108208_)))) + (##cdr _e109343109369_)))) (if (gx#stx-pair? - _tl108180108215_) - (let ((_e108185108218_ + _tl109341109376_) + (let ((_e109346109379_ (gx#syntax-e - _tl108180108215_))) - (let ((_hd108184108222_ + _tl109341109376_))) + (let ((_hd109345109383_ (let () (declare (not safe)) - (##car _e108185108218_))) - (_tl108183108225_ + (##car _e109346109379_))) + (_tl109344109386_ (let () (declare (not safe)) - (##cdr _e108185108218_)))) + (##cdr _e109346109379_)))) (if (gx#stx-null? - _tl108183108225_) - ((lambda (_L108228_ + _tl109344109386_) + ((lambda (_L109389_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _L108230_ - _L108231_) + _L109391_ + _L109392_) (let () - (let ((__tmp115903 + (let ((__tmp117064 (gx#datum->syntax '#f '__core-bind-syntax!)) - (__tmp115897 - (let ((__tmp115900 - (let ((__tmp115902 + (__tmp117058 + (let ((__tmp117061 + (let ((__tmp117063 (gx#datum->syntax '#f 'quote)) - (__tmp115901 + (__tmp117062 (let () (declare (not safe)) - (cons _L108231_ '())))) + (cons _L109392_ '())))) (declare (not safe)) - (cons __tmp115902 __tmp115901))) - (__tmp115898 - (let ((__tmp115899 + (cons __tmp117063 __tmp117062))) + (__tmp117059 + (let ((__tmp117060 (let () (declare (not safe)) - (cons _L108228_ '())))) + (cons _L109389_ '())))) (declare (not safe)) - (cons _L108230_ __tmp115899)))) + (cons _L109391_ __tmp117060)))) (declare (not safe)) - (cons __tmp115900 __tmp115898)))) + (cons __tmp117061 __tmp117059)))) (declare (not safe)) - (cons __tmp115903 __tmp115897)))) - _hd108184108222_ - _hd108181108212_ - _hd108178108202_) - (_g108172108191_ _g108173108195_)))) + (cons __tmp117064 __tmp117058)))) + _hd109345109383_ + _hd109342109373_ + _hd109339109363_) + (_g109333109352_ _g109334109356_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g108172108191_ - _g108173108195_)))) - (_g108172108191_ _g108173108195_)))) - (_g108172108191_ _g108173108195_))))) - (_g108171108250_ - (list _id108167_ + (_g109333109352_ + _g109334109356_)))) + (_g109333109352_ _g109334109356_)))) + (_g109333109352_ _g109334109356_))))) + (_g109332109411_ + (list _id109328_ (gx#stx-identifier - _id108167_ + _id109328_ '"__" - _compile108169_) - _make108170_)))))) - (let* ((_g107806107826_ - (lambda (_g107807107822_) + _compile109330_) + _make109331_)))))) + (let* ((_g108967108987_ + (lambda (_g108968108983_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g107807107822_))) - (_g107805108163_ - (lambda (_g107807107830_) - (if (gx#stx-pair? _g107807107830_) - (let ((_e107811107833_ (gx#syntax-e _g107807107830_))) - (let ((_hd107810107837_ + _g108968108983_))) + (_g108966109324_ + (lambda (_g108968108991_) + (if (gx#stx-pair? _g108968108991_) + (let ((_e108972108994_ (gx#syntax-e _g108968108991_))) + (let ((_hd108971108998_ (let () (declare (not safe)) - (##car _e107811107833_))) - (_tl107809107840_ + (##car _e108972108994_))) + (_tl108970109001_ (let () (declare (not safe)) - (##cdr _e107811107833_)))) - (if (gx#stx-pair/null? _tl107809107840_) - (let ((_g115904_ + (##cdr _e108972108994_)))) + (if (gx#stx-pair/null? _tl108970109001_) + (let ((_g117065_ (gx#syntax-split-splice - _tl107809107840_ + _tl108970109001_ '0))) (begin - (let ((_g115905_ + (let ((_g117066_ (let () (declare (not safe)) - (if (##values? _g115904_) - (##vector-length _g115904_) + (if (##values? _g117065_) + (##vector-length _g117065_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g115905_ 2))) + (##fx= _g117066_ 2))) (error "Context expects 2 values" - _g115905_))) - (let ((_target107812107843_ + _g117066_))) + (let ((_target108973109004_ (let () (declare (not safe)) - (##vector-ref _g115904_ 0))) - (_tl107814107846_ + (##vector-ref _g117065_ 0))) + (_tl108975109007_ (let () (declare (not safe)) - (##vector-ref _g115904_ 1)))) - (if (gx#stx-null? _tl107814107846_) - (letrec ((_loop107815107849_ - (lambda (_hd107813107853_ - _form107819107856_) + (##vector-ref _g117065_ 1)))) + (if (gx#stx-null? _tl108975109007_) + (letrec ((_loop108976109010_ + (lambda (_hd108974109014_ + _form108980109017_) (if (gx#stx-pair? - _hd107813107853_) - (let ((_e107816107859_ + _hd108974109014_) + (let ((_e108977109020_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _hd107813107853_))) - (let ((_lp-hd107817107863_ + (gx#syntax-e _hd108974109014_))) + (let ((_lp-hd108978109024_ (let () (declare (not safe)) - (##car _e107816107859_))) - (_lp-tl107818107866_ + (##car _e108977109020_))) + (_lp-tl108979109027_ (let () (declare (not safe)) - (##cdr _e107816107859_)))) - (_loop107815107849_ - _lp-tl107818107866_ + (##cdr _e108977109020_)))) + (_loop108976109010_ + _lp-tl108979109027_ (let () (declare (not safe)) - (cons _lp-hd107817107863_ _form107819107856_))))) - (let ((_form107820107869_ (reverse _form107819107856_))) - ((lambda (_L107873_) - (let _lp107891_ ((_rest107894_ - (let ((__tmp115910 - (lambda (_g108154108157_ - _g108155108160_) + (cons _lp-hd108978109024_ _form108980109017_))))) + (let ((_form108981109030_ (reverse _form108980109017_))) + ((lambda (_L109034_) + (let _lp109052_ ((_rest109055_ + (let ((__tmp117071 + (lambda (_g109315109318_ + _g109316109321_) (let () (declare (not safe)) - (cons _g108154108157_ - _g108155108160_))))) + (cons _g109315109318_ + _g109316109321_))))) (declare (not safe)) - (foldr1 __tmp115910 '() _L107873_))) - (_body107896_ '())) - (let* ((___stx114844114845_ _rest107894_) - (_g107901107948_ + (foldr1 __tmp117071 '() _L109034_))) + (_body109057_ '())) + (let* ((___stx116005116006_ _rest109055_) + (_g109062109109_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx114844114845_)))) - (let ((___kont114847114848_ - (lambda (_L108129_ _L108131_ _L108132_) - (_lp107891_ - _L108129_ - (let ((__tmp115906 - (_generate107803_ - _L108132_ - _L108131_ + ___stx116005116006_)))) + (let ((___kont116008116009_ + (lambda (_L109290_ _L109292_ _L109293_) + (_lp109052_ + _L109290_ + (let ((__tmp117067 + (_generate108964_ + _L109293_ + _L109292_ (gx#datum->syntax '#f 'make-__core-expression)))) (declare (not safe)) - (cons __tmp115906 _body107896_))))) - (___kont114849114850_ - (lambda (_L108056_ _L108058_ _L108059_) - (_lp107891_ - _L108056_ - (let ((__tmp115907 - (_generate107803_ - _L108059_ - _L108058_ + (cons __tmp117067 _body109057_))))) + (___kont116010116011_ + (lambda (_L109217_ _L109219_ _L109220_) + (_lp109052_ + _L109217_ + (let ((__tmp117068 + (_generate108964_ + _L109220_ + _L109219_ (gx#datum->syntax '#f 'make-__core-special-form)))) (declare (not safe)) - (cons __tmp115907 _body107896_))))) - (___kont114851114852_ - (lambda (_L107986_ _L107988_) - (_lp107891_ - _L107986_ - (let ((__tmp115908 - (_generate107803_ - _L107988_ + (cons __tmp117068 _body109057_))))) + (___kont116012116013_ + (lambda (_L109147_ _L109149_) + (_lp109052_ + _L109147_ + (let ((__tmp117069 + (_generate108964_ + _L109149_ (gx#datum->syntax '#f 'compile-error) @@ -3572,133 +3671,133 @@ '#f 'make-__core-form)))) (declare (not safe)) - (cons __tmp115908 _body107896_))))) - (___kont114853114854_ + (cons __tmp117069 _body109057_))))) + (___kont116014116015_ (lambda () - (let ((__tmp115909 (reverse _body107896_))) + (let ((__tmp117070 (reverse _body109057_))) (declare (not safe)) - (cons 'begin __tmp115909))))) - (let ((_g107900107959_ + (cons 'begin __tmp117070))))) + (let ((_g109061109120_ (lambda () - (if (gx#stx-null? ___stx114844114845_) - (___kont114853114854_) + (if (gx#stx-null? ___stx116005116006_) + (___kont116014116015_) (let () (declare (not safe)) - (_g107901107948_)))))) - (if (gx#stx-pair? ___stx114844114845_) - (let ((_e107908108085_ - (gx#syntax-e ___stx114844114845_))) - (let ((_tl107906108092_ + (_g109062109109_)))))) + (if (gx#stx-pair? ___stx116005116006_) + (let ((_e109069109246_ + (gx#syntax-e ___stx116005116006_))) + (let ((_tl109067109253_ (let () (declare (not safe)) - (##cdr _e107908108085_))) - (_hd107907108089_ + (##cdr _e109069109246_))) + (_hd109068109250_ (let () (declare (not safe)) - (##car _e107908108085_)))) - (if (gx#stx-pair? _hd107907108089_) - (let ((_e107911108095_ + (##car _e109069109246_)))) + (if (gx#stx-pair? _hd109068109250_) + (let ((_e109072109256_ (gx#syntax-e - _hd107907108089_))) - (let ((_tl107909108102_ + _hd109068109250_))) + (let ((_tl109070109263_ (let () (declare (not safe)) - (##cdr _e107911108095_))) - (_hd107910108099_ + (##cdr _e109072109256_))) + (_hd109071109260_ (let () (declare (not safe)) - (##car _e107911108095_)))) + (##car _e109072109256_)))) (if (gx#stx-pair? - _tl107909108102_) - (let ((_e107914108105_ + _tl109070109263_) + (let ((_e109075109266_ (gx#syntax-e - _tl107909108102_))) - (let ((_tl107912108112_ + _tl109070109263_))) + (let ((_tl109073109273_ (let () (declare (not safe)) - (##cdr _e107914108105_))) - (_hd107913108109_ + (##cdr _e109075109266_))) + (_hd109074109270_ (let () (declare (not safe)) - (##car _e107914108105_)))) + (##car _e109075109266_)))) (if (gx#stx-datum? - _hd107913108109_) - (let ((_e107915108115_ + _hd109074109270_) + (let ((_e109076109276_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _hd107913108109_))) + (gx#stx-e _hd109074109270_))) (if (let () (declare (not safe)) - (equal? _e107915108115_ 'expr:)) - (if (gx#stx-pair? _tl107912108112_) - (let ((_e107918108119_ - (gx#syntax-e _tl107912108112_))) - (let ((_tl107916108126_ + (equal? _e109076109276_ 'expr:)) + (if (gx#stx-pair? _tl109073109273_) + (let ((_e109079109280_ + (gx#syntax-e _tl109073109273_))) + (let ((_tl109077109287_ (let () (declare (not safe)) - (##cdr _e107918108119_))) - (_hd107917108123_ + (##cdr _e109079109280_))) + (_hd109078109284_ (let () (declare (not safe)) - (##car _e107918108119_)))) - (if (gx#stx-null? _tl107916108126_) - (___kont114847114848_ - _tl107906108092_ - _hd107917108123_ - _hd107910108099_) + (##car _e109079109280_)))) + (if (gx#stx-null? _tl109077109287_) + (___kont116008116009_ + _tl109067109253_ + _hd109078109284_ + _hd109071109260_) (let () (declare (not safe)) - (_g107901107948_))))) - (let () (declare (not safe)) (_g107901107948_))) + (_g109062109109_))))) + (let () (declare (not safe)) (_g109062109109_))) (if (let () (declare (not safe)) - (equal? _e107915108115_ 'special:)) - (if (gx#stx-pair? _tl107912108112_) - (let ((_e107934108046_ - (gx#syntax-e _tl107912108112_))) - (let ((_tl107932108053_ + (equal? _e109076109276_ 'special:)) + (if (gx#stx-pair? _tl109073109273_) + (let ((_e109095109207_ + (gx#syntax-e _tl109073109273_))) + (let ((_tl109093109214_ (let () (declare (not safe)) - (##cdr _e107934108046_))) - (_hd107933108050_ + (##cdr _e109095109207_))) + (_hd109094109211_ (let () (declare (not safe)) - (##car _e107934108046_)))) - (if (gx#stx-null? _tl107932108053_) - (___kont114849114850_ - _tl107906108092_ - _hd107933108050_ - _hd107910108099_) + (##car _e109095109207_)))) + (if (gx#stx-null? _tl109093109214_) + (___kont116010116011_ + _tl109067109253_ + _hd109094109211_ + _hd109071109260_) (let () (declare (not safe)) - (_g107901107948_))))) + (_g109062109109_))))) (let () (declare (not safe)) - (_g107901107948_))) - (let () (declare (not safe)) (_g107901107948_))))) - (let () (declare (not safe)) (_g107901107948_))))) + (_g109062109109_))) + (let () (declare (not safe)) (_g109062109109_))))) + (let () (declare (not safe)) (_g109062109109_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl107909108102_) - (___kont114851114852_ - _tl107906108092_ - _hd107910108099_) + _tl109070109263_) + (___kont116012116013_ + _tl109067109253_ + _hd109071109260_) (let () (declare (not safe)) - (_g107901107948_)))))) + (_g109062109109_)))))) (let () (declare (not safe)) - (_g107901107948_))))) + (_g109062109109_))))) (let () (declare (not safe)) - (_g107900107959_)))))))) - _form107820107869_)))))) + (_g109061109120_)))))))) + _form108981109030_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop107815107849_ - _target107812107843_ + (_loop108976109010_ + _target108973109004_ '())) - (_g107806107826_ _g107807107830_))))) - (_g107806107826_ _g107807107830_)))) - (_g107806107826_ _g107807107830_))))) - (_g107805108163_ _stx107800_))))))) + (_g108967108987_ _g108968108991_))))) + (_g108967108987_ _g108968108991_)))) + (_g108967108987_ _g108968108991_))))) + (_g108966109324_ _stx108961_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit__0.scm b/src/bootstrap/gerbil/runtime/gambit__0.scm index e7e8c4220..9bdf34774 100644 --- a/src/bootstrap/gerbil/runtime/gambit__0.scm +++ b/src/bootstrap/gerbil/runtime/gambit__0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime/gambit::timestamp 1707773924) '#!void) +(begin (define gerbil/runtime/gambit::timestamp 1708102800) '#!void) diff --git a/src/bootstrap/gerbil/runtime/init__0.scm b/src/bootstrap/gerbil/runtime/init__0.scm index 54a0062ea..8a83e88bd 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 1707773926) + (define gerbil/runtime/init::timestamp 1708102802) (begin (define __loading-scheme-source (make-parameter '#f)) (define __init-gx! @@ -22,42 +22,42 @@ (set! __eval-module gx#core-eval-module))) (define __load-gxi (lambda () - (letrec* ((_+readtable+120689_ __*readtable*)) + (letrec* ((_+readtable+121850_ __*readtable*)) (let () (declare (not safe)) (__init-gx!)) - (let* ((_core120691_ (gx#import-module ':gerbil/core)) - (_pre120693_ (gx#make-prelude-context _core120691_))) - (gx#current-expander-module-prelude _pre120693_) - (gx#core-bind-root-syntax! ': _pre120693_ '#t) + (let* ((_core121852_ (gx#import-module ':gerbil/core)) + (_pre121854_ (gx#make-prelude-context _core121852_))) + (gx#current-expander-module-prelude _pre121854_) + (gx#core-bind-root-syntax! ': _pre121854_ '#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*)) (for-each - (lambda (_port120696_) - (input-port-readtable-set! _port120696_ _+readtable+120689_)) + (lambda (_port121857_) + (input-port-readtable-set! _port121857_ _+readtable+121850_)) (list ##stdin-port ##console-port)) (for-each - (lambda (_port120698_) + (lambda (_port121859_) (output-port-readtable-set! - _port120698_ + _port121859_ (readtable-sharing-allowed?-set - (output-port-readtable _port120698_) + (output-port-readtable _port121859_) '#t))) (list ##stdout-port ##console-port))))) - (define __gxi-init-interactive! (lambda (_cmdline120686_) '#!void)) + (define __gxi-init-interactive! (lambda (_cmdline121847_) '#!void)) (define load-scheme - (lambda (_path120681_) - (let ((__tmp125268 + (lambda (_path121842_) + (let ((__tmp126429 (lambda () - (let ((__tmp125269 (lambda _args120684_ '#f))) + (let ((__tmp126430 (lambda _args121845_ '#f))) (declare (not safe)) - (##load _path120681_ __tmp125269 '#t '#t '#f))))) + (##load _path121842_ __tmp126430 '#t '#t '#f))))) (declare (not safe)) (call-with-parameters - __tmp125268 + __tmp126429 __loading-scheme-source - _path120681_)))) + _path121842_)))) (define load-path (lambda () (values (let () (declare (not safe)) (current-module-library-path)) @@ -68,444 +68,444 @@ (define expander-load-path (lambda () (gx#current-expander-module-library-path))) (define add-load-path - (lambda _paths120676_ - (apply add-library-load-path _paths120676_) - (apply add-expander-load-path _paths120676_))) + (lambda _paths121837_ + (apply add-library-load-path _paths121837_) + (apply add-expander-load-path _paths121837_))) (define add-library-load-path - (lambda _paths120665_ - (let* ((_current120667_ (current-module-library-path)) - (_paths120669_ (map path-expand _paths120665_)) - (_paths120673_ - (let ((__tmp125270 - (lambda (_x120671_) - (let ((__tmp125271 - (member _x120671_ _current120667_))) + (lambda _paths121826_ + (let* ((_current121828_ (current-module-library-path)) + (_paths121830_ (map path-expand _paths121826_)) + (_paths121834_ + (let ((__tmp126431 + (lambda (_x121832_) + (let ((__tmp126432 + (member _x121832_ _current121828_))) (declare (not safe)) - (not __tmp125271))))) + (not __tmp126432))))) (declare (not safe)) - (filter __tmp125270 _paths120669_)))) + (filter __tmp126431 _paths121830_)))) (current-module-library-path - (append _current120667_ _paths120673_))))) + (append _current121828_ _paths121834_))))) (define add-expander-load-path - (lambda _paths120654_ - (let* ((_current120656_ (gx#current-expander-module-library-path)) - (_paths120658_ (map path-expand _paths120654_)) - (_paths120662_ - (let ((__tmp125272 - (lambda (_x120660_) - (let ((__tmp125273 - (member _x120660_ _current120656_))) + (lambda _paths121815_ + (let* ((_current121817_ (gx#current-expander-module-library-path)) + (_paths121819_ (map path-expand _paths121815_)) + (_paths121823_ + (let ((__tmp126433 + (lambda (_x121821_) + (let ((__tmp126434 + (member _x121821_ _current121817_))) (declare (not safe)) - (not __tmp125273))))) + (not __tmp126434))))) (declare (not safe)) - (filter __tmp125272 _paths120658_)))) + (filter __tmp126433 _paths121819_)))) (gx#current-expander-module-library-path - (append _current120656_ _paths120662_))))) + (append _current121817_ _paths121823_))))) (define cons-load-path - (lambda _paths120652_ - (apply cons-library-load-path _paths120652_) - (apply cons-expander-load-path _paths120652_))) + (lambda _paths121813_ + (apply cons-library-load-path _paths121813_) + (apply cons-expander-load-path _paths121813_))) (define cons-library-load-path - (lambda _paths120647_ - (let ((_current120649_ (current-module-library-path)) - (_paths120650_ (map path-expand _paths120647_))) + (lambda _paths121808_ + (let ((_current121810_ (current-module-library-path)) + (_paths121811_ (map path-expand _paths121808_))) (current-module-library-path - (append _paths120650_ _current120649_))))) + (append _paths121811_ _current121810_))))) (define cons-expander-load-path - (lambda _paths120642_ - (let ((_current120644_ (gx#current-expander-module-library-path)) - (_paths120645_ (map path-expand _paths120642_))) + (lambda _paths121803_ + (let ((_current121805_ (gx#current-expander-module-library-path)) + (_paths121806_ (map path-expand _paths121803_))) (gx#current-expander-module-library-path - (append _paths120645_ _current120644_))))) + (append _paths121806_ _current121805_))))) (define with-cons-load-path - (lambda (_thunk120638_ . _paths120639_) + (lambda (_thunk121799_ . _paths121800_) (apply with-cons-library-load-path (lambda () (apply with-cons-expander-load-path - _thunk120638_ - _paths120639_)) - _paths120639_))) + _thunk121799_ + _paths121800_)) + _paths121800_))) (define with-cons-library-load-path - (lambda (_thunk120631_ . _paths120632_) - (let ((_current120634_ (current-module-library-path)) - (_paths120635_ (map path-expand _paths120632_))) - (let ((__tmp125275 (lambda () (_thunk120631_))) - (__tmp125274 (append _paths120635_ _current120634_))) + (lambda (_thunk121792_ . _paths121793_) + (let ((_current121795_ (current-module-library-path)) + (_paths121796_ (map path-expand _paths121793_))) + (let ((__tmp126436 (lambda () (_thunk121792_))) + (__tmp126435 (append _paths121796_ _current121795_))) (declare (not safe)) (call-with-parameters - __tmp125275 + __tmp126436 current-module-library-path - __tmp125274))))) + __tmp126435))))) (define with-cons-expander-load-path - (lambda (_thunk120624_ . _paths120625_) - (let ((_current120627_ (gx#current-expander-module-library-path)) - (_paths120628_ (map path-expand _paths120625_))) - (let ((__tmp125277 (lambda () (_thunk120624_))) - (__tmp125276 (append _paths120628_ _current120627_))) + (lambda (_thunk121785_ . _paths121786_) + (let ((_current121788_ (gx#current-expander-module-library-path)) + (_paths121789_ (map path-expand _paths121786_))) + (let ((__tmp126438 (lambda () (_thunk121785_))) + (__tmp126437 (append _paths121789_ _current121788_))) (declare (not safe)) (call-with-parameters - __tmp125277 + __tmp126438 gx#current-expander-module-library-path - __tmp125276))))) + __tmp126437))))) (define __expand-source - (lambda (_src120610_) - (letrec ((_expand120612_ - (lambda (_src120622_) - (let ((__tmp125278 + (lambda (_src121771_) + (letrec ((_expand121773_ + (lambda (_src121783_) + (let ((__tmp126439 (gx#core-expand (let () (declare (not safe)) - (__source->syntax _src120622_))))) + (__source->syntax _src121783_))))) (declare (not safe)) - (__compile-top __tmp125278)))) - (_no-expand120613_ - (lambda (_src120618_) + (__compile-top __tmp126439)))) + (_no-expand121774_ + (lambda (_src121779_) (if (__loading-scheme-source) - _src120618_ + _src121779_ (if (let () (declare (not safe)) - (##source? _src120618_)) - (let ((_code120620_ + (##source? _src121779_)) + (let ((_code121781_ (let () (declare (not safe)) - (##source-code _src120618_)))) + (##source-code _src121779_)))) (if (let () (declare (not safe)) - (pair? _code120620_)) - (if (let ((__tmp125279 + (pair? _code121781_)) + (if (let ((__tmp126440 (let () (declare (not safe)) - (##car _code120620_)))) + (##car _code121781_)))) (declare (not safe)) - (eq? '__noexpand: __tmp125279)) + (eq? '__noexpand: __tmp126440)) (let () (declare (not safe)) - (##cdr _code120620_)) + (##cdr _code121781_)) '#f) '#f)) '#f))))) - (let ((_$e120615_ + (let ((_$e121776_ (let () (declare (not safe)) - (_no-expand120613_ _src120610_)))) - (if _$e120615_ - _$e120615_ - (let () (declare (not safe)) (_expand120612_ _src120610_))))))) + (_no-expand121774_ _src121771_)))) + (if _$e121776_ + _$e121776_ + (let () (declare (not safe)) (_expand121773_ _src121771_))))))) (define __macro-descr - (lambda (_src120596_ _def-syntax?120597_) - (letrec ((_fail!120599_ + (lambda (_src121757_ _def-syntax?121758_) + (letrec ((_fail!121760_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _src120596_)))) - (_make-descr120600_ - (lambda (_size120604_) - (let ((_expander120607_ - (let ((__tmp125280 + _src121757_)))) + (_make-descr121761_ + (lambda (_size121765_) + (let ((_expander121768_ + (let ((__tmp126441 (lambda () (let () (declare (not safe)) (##eval-top - _src120596_ + _src121757_ ##interaction-cte))))) (declare (not safe)) (call-with-parameters - __tmp125280 + __tmp126441 __loading-scheme-source 'macro)))) (if (let () (declare (not safe)) - (procedure? _expander120607_)) + (procedure? _expander121768_)) (let () (declare (not safe)) (##make-macro-descr - _def-syntax?120597_ - _size120604_ - _expander120607_ - _src120596_)) - (let () (declare (not safe)) (_fail!120599_))))))) - (if _def-syntax?120597_ - (let () (declare (not safe)) (_make-descr120600_ '-1)) - (let ((_code120602_ + _def-syntax?121758_ + _size121765_ + _expander121768_ + _src121757_)) + (let () (declare (not safe)) (_fail!121760_))))))) + (if _def-syntax?121758_ + (let () (declare (not safe)) (_make-descr121761_ '-1)) + (let ((_code121763_ (let () (declare (not safe)) - (##source-code _src120596_)))) - (if (and (let () (declare (not safe)) (##pair? _code120602_)) - (let ((__tmp125284 - (let ((__tmp125285 - (let ((__tmp125286 + (##source-code _src121757_)))) + (if (and (let () (declare (not safe)) (##pair? _code121763_)) + (let ((__tmp126445 + (let ((__tmp126446 + (let ((__tmp126447 (let () (declare (not safe)) - (##car _code120602_)))) + (##car _code121763_)))) (declare (not safe)) (##sourcify - __tmp125286 - _src120596_)))) + __tmp126447 + _src121757_)))) (declare (not safe)) - (##source-code __tmp125285)))) + (##source-code __tmp126446)))) (declare (not safe)) - (##memq __tmp125284 '(##lambda lambda)))) + (##memq __tmp126445 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _src120596_ _src120596_ '-3)) - (let ((__tmp125281 - (let ((__tmp125282 - (let ((__tmp125283 + (##shape _src121757_ _src121757_ '-3)) + (let ((__tmp126442 + (let ((__tmp126443 + (let ((__tmp126444 (let () (declare (not safe)) - (##cadr _code120602_)))) + (##cadr _code121763_)))) (declare (not safe)) - (##sourcify __tmp125283 _src120596_)))) + (##sourcify __tmp126444 _src121757_)))) (declare (not safe)) - (##form-size __tmp125282)))) + (##form-size __tmp126443)))) (declare (not safe)) - (_make-descr120600_ __tmp125281))) - (let () (declare (not safe)) (_fail!120599_)))))))) + (_make-descr121761_ __tmp126442))) + (let () (declare (not safe)) (_fail!121760_)))))))) (define __source->syntax - (lambda (_src120590_) - (let _recur120592_ ((_e120594_ _src120590_)) - (if (let () (declare (not safe)) (##source? _e120594_)) - (let ((__tmp125294 - (let ((__tmp125295 + (lambda (_src121751_) + (let _recur121753_ ((_e121755_ _src121751_)) + (if (let () (declare (not safe)) (##source? _e121755_)) + (let ((__tmp126455 + (let ((__tmp126456 (let () (declare (not safe)) - (##source-code _e120594_)))) + (##source-code _e121755_)))) (declare (not safe)) - (_recur120592_ __tmp125295))) - (__tmp125293 - (let () (declare (not safe)) (##source-locat _e120594_)))) + (_recur121753_ __tmp126456))) + (__tmp126454 + (let () (declare (not safe)) (##source-locat _e121755_)))) (declare (not safe)) - (##structure AST::t __tmp125294 __tmp125293)) - (if (let () (declare (not safe)) (pair? _e120594_)) - (let ((__tmp125291 - (let ((__tmp125292 + (##structure AST::t __tmp126455 __tmp126454)) + (if (let () (declare (not safe)) (pair? _e121755_)) + (let ((__tmp126452 + (let ((__tmp126453 (let () (declare (not safe)) - (##car _e120594_)))) + (##car _e121755_)))) (declare (not safe)) - (_recur120592_ __tmp125292))) - (__tmp125289 - (let ((__tmp125290 + (_recur121753_ __tmp126453))) + (__tmp126450 + (let ((__tmp126451 (let () (declare (not safe)) - (##cdr _e120594_)))) + (##cdr _e121755_)))) (declare (not safe)) - (_recur120592_ __tmp125290)))) + (_recur121753_ __tmp126451)))) (declare (not safe)) - (cons __tmp125291 __tmp125289)) - (if (let () (declare (not safe)) (vector? _e120594_)) - (vector-map _recur120592_ _e120594_) - (if (let () (declare (not safe)) (box? _e120594_)) - (let ((__tmp125287 - (let ((__tmp125288 (unbox _e120594_))) + (cons __tmp126452 __tmp126450)) + (if (let () (declare (not safe)) (vector? _e121755_)) + (vector-map _recur121753_ _e121755_) + (if (let () (declare (not safe)) (box? _e121755_)) + (let ((__tmp126448 + (let ((__tmp126449 (unbox _e121755_))) (declare (not safe)) - (_recur120592_ __tmp125288)))) + (_recur121753_ __tmp126449)))) (declare (not safe)) - (box __tmp125287)) - _e120594_))))))) + (box __tmp126448)) + _e121755_))))))) (define __compile-top-source - (lambda (_stx120588_) - (let ((__tmp125296 - (let () (declare (not safe)) (__compile-top _stx120588_)))) + (lambda (_stx121749_) + (let ((__tmp126457 + (let () (declare (not safe)) (__compile-top _stx121749_)))) (declare (not safe)) - (cons '__noexpand: __tmp125296)))) + (cons '__noexpand: __tmp126457)))) (define __compile-top - (lambda (_stx120586_) - (let ((__tmp125297 (gx#core-compile-top-syntax _stx120586_))) + (lambda (_stx121747_) + (let ((__tmp126458 (gx#core-compile-top-syntax _stx121747_))) (declare (not safe)) - (__compile __tmp125297)))) + (__compile __tmp126458)))) (define __eval-import - (lambda (_in120567_) - (letrec* ((_mods120569_ + (lambda (_in121728_) + (letrec* ((_mods121730_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_import1120570_ - (lambda (_in120577_ _phi120578_) - (if (gx#module-import? _in120577_) - (let ((_iphi120580_ - (fx+ _phi120578_ - (gx#module-import-phi _in120577_)))) + (_import1121731_ + (lambda (_in121738_ _phi121739_) + (if (gx#module-import? _in121738_) + (let ((_iphi121741_ + (fx+ _phi121739_ + (gx#module-import-phi _in121738_)))) (if (let () (declare (not safe)) - (fxzero? _iphi120580_)) - (let ((__tmp125299 + (fxzero? _iphi121741_)) + (let ((__tmp126460 (gx#module-export-context - (gx#module-import-source _in120577_)))) + (gx#module-import-source _in121738_)))) (declare (not safe)) - (_eval1120571_ __tmp125299)) + (_eval1121732_ __tmp126460)) '#!void)) - (if (gx#module-context? _in120577_) + (if (gx#module-context? _in121738_) (if (let () (declare (not safe)) - (fxzero? _phi120578_)) + (fxzero? _phi121739_)) (let () (declare (not safe)) - (_eval1120571_ _in120577_)) + (_eval1121732_ _in121738_)) '#!void) - (if (gx#import-set? _in120577_) - (let ((_iphi120582_ - (fx+ _phi120578_ - (gx#import-set-phi _in120577_)))) + (if (gx#import-set? _in121738_) + (let ((_iphi121743_ + (fx+ _phi121739_ + (gx#import-set-phi _in121738_)))) (if (let () (declare (not safe)) - (fxzero? _iphi120582_)) - (let ((__tmp125298 + (fxzero? _iphi121743_)) + (let ((__tmp126459 (gx#import-set-source - _in120577_))) + _in121738_))) (declare (not safe)) - (_eval1120571_ __tmp125298)) - (if (fxpositive? _iphi120582_) + (_eval1121732_ __tmp126459)) + (if (fxpositive? _iphi121743_) (for-each - (lambda (_in120584_) + (lambda (_in121745_) (let () (declare (not safe)) - (_import1120570_ - _in120584_ - _iphi120582_))) + (_import1121731_ + _in121745_ + _iphi121743_))) (gx#module-context-import (gx#import-set-source - _in120577_))) + _in121738_))) '#!void))) - (error '"Unexpected import" _in120577_)))))) - (_eval1120571_ - (lambda (_ctx120575_) + (error '"Unexpected import" _in121738_)))))) + (_eval1121732_ + (lambda (_ctx121736_) (if (let () (declare (not safe)) - (table-ref _mods120569_ _ctx120575_ '#f)) + (table-ref _mods121730_ _ctx121736_ '#f)) '#!void (begin (let () (declare (not safe)) - (table-set! _mods120569_ _ctx120575_ '#t)) - (__eval-module _ctx120575_)))))) - (if (let () (declare (not safe)) (pair? _in120567_)) + (table-set! _mods121730_ _ctx121736_ '#t)) + (__eval-module _ctx121736_)))))) + (if (let () (declare (not safe)) (pair? _in121728_)) (for-each - (lambda (_in120573_) - (let () (declare (not safe)) (_import1120570_ _in120573_ '0))) - _in120567_) - (let () (declare (not safe)) (_import1120570_ _in120567_ '0)))))) + (lambda (_in121734_) + (let () (declare (not safe)) (_import1121731_ _in121734_ '0))) + _in121728_) + (let () (declare (not safe)) (_import1121731_ _in121728_ '0)))))) (define __eval-module - (lambda (_obj120560_) - (let* ((_key120562_ - (if (gx#module-context? _obj120560_) - (gx#module-context-path _obj120560_) - _obj120560_)) - (_$e120564_ + (lambda (_obj121721_) + (let* ((_key121723_ + (if (gx#module-context? _obj121721_) + (gx#module-context-path _obj121721_) + _obj121721_)) + (_$e121725_ (let () (declare (not safe)) - (table-ref __*modules* _key120562_ '#f)))) - (if _$e120564_ - (values _$e120564_) - (gx#core-eval-module _obj120560_))))) + (table-ref __*modules* _key121723_ '#f)))) + (if _$e121725_ + (values _$e121725_) + (gx#core-eval-module _obj121721_))))) (define gerbil-runtime-init! - (lambda (_builtin-modules120495_) + (lambda (_builtin-modules121656_) (if __runtime-initialized '#!void (begin - (let* ((_home120497_ (let () (declare (not safe)) (gerbil-home))) - (_libdir120499_ (path-expand '"lib" _home120497_)) - (_userpath120501_ + (let* ((_home121658_ (let () (declare (not safe)) (gerbil-home))) + (_libdir121660_ (path-expand '"lib" _home121658_)) + (_userpath121662_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_loadpath120503_ + (_loadpath121664_ (if (getenv '"GERBIL_BUILD_PREFIX" '#f) (let () (declare (not safe)) - (cons _libdir120499_ '())) - (let ((__tmp125300 + (cons _libdir121660_ '())) + (let ((__tmp126461 (let () (declare (not safe)) - (cons _libdir120499_ '())))) + (cons _libdir121660_ '())))) (declare (not safe)) - (cons _userpath120501_ __tmp125300)))) - (_loadpath120512_ - (let ((_$e120505_ (getenv '"GERBIL_LOADPATH" '#f))) - (if _$e120505_ - ((lambda (_envvar120508_) - (append (let ((__tmp125302 - (lambda (_x120510_) - (let ((__tmp125303 + (cons _userpath121662_ __tmp126461)))) + (_loadpath121673_ + (let ((_$e121666_ (getenv '"GERBIL_LOADPATH" '#f))) + (if _$e121666_ + ((lambda (_envvar121669_) + (append (let ((__tmp126463 + (lambda (_x121671_) + (let ((__tmp126464 (let () (declare (not safe)) (string-empty? - _x120510_)))) + _x121671_)))) (declare (not safe)) - (not __tmp125303)))) - (__tmp125301 + (not __tmp126464)))) + (__tmp126462 (let () (declare (not safe)) (string-split - _envvar120508_ + _envvar121669_ '#\:)))) (declare (not safe)) - (filter __tmp125302 __tmp125301)) - _loadpath120503_)) - _$e120505_) - _loadpath120503_)))) - (current-module-library-path _loadpath120512_)) - (let* ((_registry-entry120517_ - (lambda (_m120515_) + (filter __tmp126463 __tmp126462)) + _loadpath121664_)) + _$e121666_) + _loadpath121664_)))) + (current-module-library-path _loadpath121673_)) + (let* ((_registry-entry121678_ + (lambda (_m121676_) (let () (declare (not safe)) - (cons _m120515_ 'builtin)))) - (_module-registry120557_ - (let _lp120519_ ((_rest120521_ _builtin-modules120495_) - (_registry120522_ '())) - (let* ((_rest120523120531_ _rest120521_) - (_else120525120539_ + (cons _m121676_ 'builtin)))) + (_module-registry121718_ + (let _lp121680_ ((_rest121682_ _builtin-modules121656_) + (_registry121683_ '())) + (let* ((_rest121684121692_ _rest121682_) + (_else121686121700_ (lambda () (let () (declare (not safe)) - (list->table _registry120522_)))) - (_K120527120545_ - (lambda (_rest120542_ _mod120543_) - (let ((__tmp125304 - (let ((__tmp125308 - (let ((__tmp125309 + (list->table _registry121683_)))) + (_K121688121706_ + (lambda (_rest121703_ _mod121704_) + (let ((__tmp126465 + (let ((__tmp126469 + (let ((__tmp126470 (string-append - _mod120543_ + _mod121704_ '"__0"))) (declare (not safe)) - (_registry-entry120517_ - __tmp125309))) - (__tmp125305 - (let ((__tmp125306 - (let ((__tmp125307 + (_registry-entry121678_ + __tmp126470))) + (__tmp126466 + (let ((__tmp126467 + (let ((__tmp126468 (string-append - _mod120543_ + _mod121704_ '"__rt"))) (declare (not safe)) - (_registry-entry120517_ - __tmp125307)))) + (_registry-entry121678_ + __tmp126468)))) (declare (not safe)) - (cons __tmp125306 - _registry120522_)))) + (cons __tmp126467 + _registry121683_)))) (declare (not safe)) - (cons __tmp125308 __tmp125305)))) + (cons __tmp126469 __tmp126466)))) (declare (not safe)) - (_lp120519_ _rest120542_ __tmp125304))))) + (_lp121680_ _rest121703_ __tmp126465))))) (if (let () (declare (not safe)) - (##pair? _rest120523120531_)) - (let ((_hd120528120548_ + (##pair? _rest121684121692_)) + (let ((_hd121689121709_ (let () (declare (not safe)) - (##car _rest120523120531_))) - (_tl120529120550_ + (##car _rest121684121692_))) + (_tl121690121711_ (let () (declare (not safe)) - (##cdr _rest120523120531_)))) - (let* ((_mod120553_ _hd120528120548_) - (_rest120555_ _tl120529120550_)) + (##cdr _rest121684121692_)))) + (let* ((_mod121714_ _hd121689121709_) + (_rest121716_ _tl121690121711_)) (declare (not safe)) - (_K120527120545_ _rest120555_ _mod120553_))) + (_K121688121706_ _rest121716_ _mod121714_))) (let () (declare (not safe)) - (_else120525120539_))))))) - (current-module-registry _module-registry120557_)) + (_else121686121700_))))))) + (current-module-registry _module-registry121718_)) (current-readtable __*readtable*) (random-source-randomize! default-random-source) (set! __runtime-initialized '#t))))) diff --git a/src/bootstrap/gerbil/runtime/loader__0.scm b/src/bootstrap/gerbil/runtime/loader__0.scm index 712b4d3f8..2a9149308 100644 --- a/src/bootstrap/gerbil/runtime/loader__0.scm +++ b/src/bootstrap/gerbil/runtime/loader__0.scm @@ -1,125 +1,125 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1707773925) + (define gerbil/runtime/loader::timestamp 1708102800) (begin (define current-module-library-path (make-parameter '#f)) (define current-module-registry (make-parameter '#f)) (define __reload-module (make-parameter '#f)) (define load-module__% - (lambda (_modpath69542_ _reload?69543_) - (let ((_$e69545_ - (if (let () (declare (not safe)) (not _reload?69543_)) - (let ((__tmp74132 (current-module-registry))) + (lambda (_modpath69753_ _reload?69754_) + (let ((_$e69756_ + (if (let () (declare (not safe)) (not _reload?69754_)) + (let ((__tmp74343 (current-module-registry))) (declare (not safe)) - (table-ref __tmp74132 _modpath69542_ '#f)) + (table-ref __tmp74343 _modpath69753_ '#f)) '#f))) - (if _$e69545_ - _$e69545_ - (let ((_$e69548_ + (if _$e69756_ + _$e69756_ + (let ((_$e69759_ (let () (declare (not safe)) - (find-library-module _modpath69542_)))) - (if _$e69548_ - ((lambda (_path69551_) - (let ((_lpath69553_ (load _path69551_))) - (let ((__tmp74133 (current-module-registry))) + (find-library-module _modpath69753_)))) + (if _$e69759_ + ((lambda (_path69762_) + (let ((_lpath69764_ (load _path69762_))) + (let ((__tmp74344 (current-module-registry))) (declare (not safe)) - (table-set! __tmp74133 _modpath69542_ _lpath69553_)) - _lpath69553_)) - _$e69548_) - (error '"module not found" _modpath69542_))))))) + (table-set! __tmp74344 _modpath69753_ _lpath69764_)) + _lpath69764_)) + _$e69759_) + (error '"module not found" _modpath69753_))))))) (define load-module__0 - (lambda (_modpath69558_) - (let ((_reload?69560_ (__reload-module))) + (lambda (_modpath69769_) + (let ((_reload?69771_ (__reload-module))) (declare (not safe)) - (load-module__% _modpath69558_ _reload?69560_)))) + (load-module__% _modpath69769_ _reload?69771_)))) (define load-module - (lambda _g74135_ - (let ((_g74134_ (let () (declare (not safe)) (##length _g74135_)))) - (cond ((let () (declare (not safe)) (##fx= _g74134_ 1)) - (apply (lambda (_modpath69558_) + (lambda _g74346_ + (let ((_g74345_ (let () (declare (not safe)) (##length _g74346_)))) + (cond ((let () (declare (not safe)) (##fx= _g74345_ 1)) + (apply (lambda (_modpath69769_) (let () (declare (not safe)) - (load-module__0 _modpath69558_))) - _g74135_)) - ((let () (declare (not safe)) (##fx= _g74134_ 2)) - (apply (lambda (_modpath69562_ _reload?69563_) + (load-module__0 _modpath69769_))) + _g74346_)) + ((let () (declare (not safe)) (##fx= _g74345_ 2)) + (apply (lambda (_modpath69773_ _reload?69774_) (let () (declare (not safe)) - (load-module__% _modpath69562_ _reload?69563_))) - _g74135_)) + (load-module__% _modpath69773_ _reload?69774_))) + _g74346_)) (else (##raise-wrong-number-of-arguments-exception load-module - _g74135_)))))) + _g74346_)))))) (define find-library-module - (lambda (_modpath69476_) - (letrec ((_find-compiled-file69478_ - (lambda (_npath69530_) - (let ((_basepath69532_ + (lambda (_modpath69687_) + (letrec ((_find-compiled-file69689_ + (lambda (_npath69741_) + (let ((_basepath69743_ (let () (declare (not safe)) - (##string-append _npath69530_ '".o")))) - (let _lp69534_ ((_current69536_ '#f) (_n69537_ '1)) - (let ((_next69539_ - (let ((__tmp74136 (number->string _n69537_))) + (##string-append _npath69741_ '".o")))) + (let _lp69745_ ((_current69747_ '#f) (_n69748_ '1)) + (let ((_next69750_ + (let ((__tmp74347 (number->string _n69748_))) (declare (not safe)) (##string-append - _basepath69532_ - __tmp74136)))) + _basepath69743_ + __tmp74347)))) (if (let () (declare (not safe)) - (##file-exists? _next69539_)) - (let ((__tmp74137 + (##file-exists? _next69750_)) + (let ((__tmp74348 (let () (declare (not safe)) - (##fx+ _n69537_ '1)))) + (##fx+ _n69748_ '1)))) (declare (not safe)) - (_lp69534_ _next69539_ __tmp74137)) - _current69536_)))))) - (_find-source-file69479_ - (lambda (_npath69526_) - (let ((_spath69528_ (string-append _npath69526_ '".scm"))) + (_lp69745_ _next69750_ __tmp74348)) + _current69747_)))))) + (_find-source-file69690_ + (lambda (_npath69737_) + (let ((_spath69739_ (string-append _npath69737_ '".scm"))) (if (let () (declare (not safe)) - (##file-exists? _spath69528_)) - _spath69528_ + (##file-exists? _spath69739_)) + _spath69739_ '#f))))) - (let _lp69481_ ((_rest69483_ (current-module-library-path))) - (let* ((_rest6948469492_ _rest69483_) - (_else6948669500_ (lambda () '#f)) - (_K6948869514_ - (lambda (_rest69503_ _dir69504_) - (let* ((_npath69506_ + (let _lp69692_ ((_rest69694_ (current-module-library-path))) + (let* ((_rest6969569703_ _rest69694_) + (_else6969769711_ (lambda () '#f)) + (_K6969969725_ + (lambda (_rest69714_ _dir69715_) + (let* ((_npath69717_ (path-expand - _modpath69476_ - (path-expand _dir69504_))) - (_$e69508_ + _modpath69687_ + (path-expand _dir69715_))) + (_$e69719_ (let () (declare (not safe)) - (_find-compiled-file69478_ _npath69506_)))) - (if _$e69508_ - (path-normalize _$e69508_) - (let ((_$e69511_ + (_find-compiled-file69689_ _npath69717_)))) + (if _$e69719_ + (path-normalize _$e69719_) + (let ((_$e69722_ (let () (declare (not safe)) - (_find-source-file69479_ _npath69506_)))) - (if _$e69511_ - (path-normalize _$e69511_) + (_find-source-file69690_ _npath69717_)))) + (if _$e69722_ + (path-normalize _$e69722_) (let () (declare (not safe)) - (_lp69481_ _rest69503_))))))))) - (if (let () (declare (not safe)) (##pair? _rest6948469492_)) - (let ((_hd6948969517_ + (_lp69692_ _rest69714_))))))))) + (if (let () (declare (not safe)) (##pair? _rest6969569703_)) + (let ((_hd6970069728_ (let () (declare (not safe)) - (##car _rest6948469492_))) - (_tl6949069519_ + (##car _rest6969569703_))) + (_tl6970169730_ (let () (declare (not safe)) - (##cdr _rest6948469492_)))) - (let* ((_dir69522_ _hd6948969517_) - (_rest69524_ _tl6949069519_)) + (##cdr _rest6969569703_)))) + (let* ((_dir69733_ _hd6970069728_) + (_rest69735_ _tl6970169730_)) (declare (not safe)) - (_K6948869514_ _rest69524_ _dir69522_))) - (let () (declare (not safe)) (_else6948669500_)))))))))) + (_K6969969725_ _rest69735_ _dir69733_))) + (let () (declare (not safe)) (_else6969769711_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index dafad5b15..104777cb8 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -14,10 +14,10 @@ namespace: #f (%#define-runtime type-flag-id type-flag-id) (%#define-runtime class-type-flag-struct class-type-flag-struct) (%#define-runtime class-type-flag-sealed class-type-flag-sealed) + (%#define-runtime class-type-flag-metaclass class-type-flag-metaclass) (%#define-runtime class::t.id class::t.id) (%#define-runtime class::t class::t) (%#define-runtime class-type? class-type?) - (%#define-runtime class-type-id class-type-id) (%#define-runtime class-type=? class-type=?) (%#begin (%#begin-syntax (%#call (%#ref load-module) @@ -29,22 +29,85 @@ namespace: #f (%#define-runtime class-type-final? class-type-final?) (%#define-runtime class-type-struct? class-type-struct?) (%#define-runtime class-type-sealed? class-type-sealed?) + (%#define-runtime class-type-metaclass? class-type-metaclass?) (%#define-runtime properties-form properties-form) (%#define-runtime make-class-type-descriptor make-class-type-descriptor) + (%#define-syntax defrefset |[:0:]#defrefset|) + (%#define-syntax defrefset* |[:0:]#defrefset*|) + (%#define-runtime class-type-id class-type-id) + (%#define-runtime &class-type-id &class-type-id) + (%#define-runtime class-type-id-set! class-type-id-set!) + (%#define-runtime &class-type-id-set! &class-type-id-set!) + (%#define-runtime class-type-name class-type-name) + (%#define-runtime &class-type-name &class-type-name) + (%#define-runtime class-type-name-set! class-type-name-set!) + (%#define-runtime &class-type-name-set! &class-type-name-set!) + (%#define-runtime class-type-super class-type-super) + (%#define-runtime &class-type-super &class-type-super) + (%#define-runtime class-type-super-set! class-type-super-set!) + (%#define-runtime &class-type-super-set! &class-type-super-set!) + (%#define-runtime class-type-flags class-type-flags) + (%#define-runtime &class-type-flags &class-type-flags) + (%#define-runtime class-type-flags-set! class-type-flags-set!) + (%#define-runtime &class-type-flags-set! &class-type-flags-set!) + (%#define-runtime class-type-fields class-type-fields) + (%#define-runtime &class-type-fields &class-type-fields) + (%#define-runtime class-type-fields-set! class-type-fields-set!) + (%#define-runtime &class-type-fields-set! &class-type-fields-set!) (%#define-runtime class-type-precedence-list class-type-precedence-list) + (%#define-runtime + &class-type-precedence-list + &class-type-precedence-list) + (%#define-runtime + class-type-precedence-list-set! + class-type-precedence-list-set!) + (%#define-runtime + &class-type-precedence-list-set! + &class-type-precedence-list-set!) (%#define-runtime class-type-slot-vector class-type-slot-vector) + (%#define-runtime &class-type-slot-vector &class-type-slot-vector) + (%#define-runtime + class-type-slot-vector-set! + class-type-slot-vector-set!) + (%#define-runtime + &class-type-slot-vector-set! + &class-type-slot-vector-set!) (%#define-runtime class-type-slot-table class-type-slot-table) + (%#define-runtime &class-type-slot-table &class-type-slot-table) + (%#define-runtime + class-type-slot-table-set! + class-type-slot-table-set!) + (%#define-runtime + &class-type-slot-table-set! + &class-type-slot-table-set!) (%#define-runtime class-type-properties class-type-properties) + (%#define-runtime &class-type-properties &class-type-properties) + (%#define-runtime + class-type-properties-set! + class-type-properties-set!) + (%#define-runtime + &class-type-properties-set! + &class-type-properties-set!) (%#define-runtime class-type-constructor class-type-constructor) + (%#define-runtime &class-type-constructor &class-type-constructor) + (%#define-runtime + class-type-constructor-set! + class-type-constructor-set!) + (%#define-runtime + &class-type-constructor-set! + &class-type-constructor-set!) (%#define-runtime class-type-methods class-type-methods) + (%#define-runtime &class-type-methods &class-type-methods) (%#define-runtime class-type-methods-set! class-type-methods-set!) + (%#define-runtime &class-type-methods-set! &class-type-methods-set!) (%#define-runtime class-type-slot-list class-type-slot-list) - (%#define-runtime class-type-fields class-type-fields) + (%#define-runtime class-type-field-count class-type-field-count) (%#define-runtime class-type-seal! class-type-seal!) + (%#define-runtime &class-type-seal! &class-type-seal!) (%#define-runtime substruct? substruct?) (%#define-runtime base-struct/1 base-struct/1) (%#define-runtime base-struct/2 base-struct/2) @@ -128,6 +191,9 @@ namespace: #f (%#define-runtime __struct-instance-init! __struct-instance-init!) (%#define-runtime class-instance-init! class-instance-init!) (%#define-runtime __class-instance-init! __class-instance-init!) + (%#define-runtime + __metaclass-instance-init! + __metaclass-instance-init!) (%#define-runtime constructor-init! constructor-init!) (%#define-runtime __constructor-init! __constructor-init!) (%#define-runtime struct-copy struct-copy) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index d86d2c668..c88d0b169 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -2,26 +2,106 @@ prelude: :gerbil/compiler/ssxi package: gerbil/runtime (begin - (declare-type class-type? (@lambda 1 #f)) - (declare-type class-type-id (@lambda 1 #f)) + (declare-type + class::t + (@class gerbil#class::t + () + () + (id name + super + flags + fields + precedence-list + slot-vector + slot-table + properties + constructor + methods) + (id name + super + flags + fields + precedence-list + slot-vector + slot-table + properties + constructor + methods) + #f + #t + #f + #f + #f)) + (declare-type class-type? (@predicate class::t)) (declare-type class-type=? (@lambda 2 #f)) (declare-type type-opaque? (@lambda 1 #f)) (declare-type type-extensible? (@lambda 1 #f)) (declare-type class-type-final? (@lambda 1 #f)) (declare-type class-type-struct? (@lambda 1 #f)) (declare-type class-type-sealed? (@lambda 1 #f)) + (declare-type class-type-metaclass? (@lambda 1 #f)) (declare-type properties-form (@lambda 1 #f)) (declare-type make-class-type-descriptor (@lambda 9 #f)) - (declare-type class-type-precedence-list (@lambda 1 #f)) - (declare-type class-type-slot-vector (@lambda 1 #f)) - (declare-type class-type-slot-table (@lambda 1 #f)) - (declare-type class-type-properties (@lambda 1 #f)) - (declare-type class-type-constructor (@lambda 1 #f)) - (declare-type class-type-methods (@lambda 1 #f)) - (declare-type class-type-methods-set! (@lambda 2 #f)) + (declare-type class-type-id (@accessor class::t id #t)) + (declare-type &class-type-id (@accessor class::t id #f)) + (declare-type class-type-id-set! (@mutator class::t id #t)) + (declare-type &class-type-id-set! (@mutator class::t id #f)) + (declare-type class-type-name (@accessor class::t name #t)) + (declare-type &class-type-name (@accessor class::t name #f)) + (declare-type class-type-name-set! (@mutator class::t name #t)) + (declare-type &class-type-name-set! (@mutator class::t name #f)) + (declare-type class-type-super (@accessor class::t super #t)) + (declare-type &class-type-super (@accessor class::t super #f)) + (declare-type class-type-super-set! (@mutator class::t super #t)) + (declare-type &class-type-super-set! (@mutator class::t super #f)) + (declare-type class-type-flags (@accessor class::t flags #t)) + (declare-type &class-type-flags (@accessor class::t flags #f)) + (declare-type class-type-flags-set! (@mutator class::t flags #t)) + (declare-type &class-type-flags-set! (@mutator class::t flags #f)) + (declare-type class-type-fields (@accessor class::t fields #t)) + (declare-type &class-type-fields (@accessor class::t fields #f)) + (declare-type class-type-fields-set! (@mutator class::t fields #t)) + (declare-type &class-type-fields-set! (@mutator class::t fields #f)) + (declare-type + class-type-precedence-list + (@accessor class::t precedence-list #t)) + (declare-type + &class-type-precedence-list + (@accessor class::t precedence-list #f)) + (declare-type + class-type-precedence-list-set! + (@mutator class::t precedence-list #t)) + (declare-type + &class-type-precedence-list-set! + (@mutator class::t precedence-list #f)) + (declare-type class-type-slot-vector (@accessor class::t slot-vector #t)) + (declare-type &class-type-slot-vector (@accessor class::t slot-vector #f)) + (declare-type class-type-slot-vector-set! (@mutator class::t slot-vector #t)) + (declare-type + &class-type-slot-vector-set! + (@mutator class::t slot-vector #f)) + (declare-type class-type-slot-table (@accessor class::t slot-table #t)) + (declare-type &class-type-slot-table (@accessor class::t slot-table #f)) + (declare-type class-type-slot-table-set! (@mutator class::t slot-table #t)) + (declare-type &class-type-slot-table-set! (@mutator class::t slot-table #f)) + (declare-type class-type-properties (@accessor class::t properties #t)) + (declare-type &class-type-properties (@accessor class::t properties #f)) + (declare-type class-type-properties-set! (@mutator class::t properties #t)) + (declare-type &class-type-properties-set! (@mutator class::t properties #f)) + (declare-type class-type-constructor (@accessor class::t constructor #t)) + (declare-type &class-type-constructor (@accessor class::t constructor #f)) + (declare-type class-type-constructor-set! (@mutator class::t constructor #t)) + (declare-type + &class-type-constructor-set! + (@mutator class::t constructor #f)) + (declare-type class-type-methods (@accessor class::t methods #t)) + (declare-type &class-type-methods (@accessor class::t methods #f)) + (declare-type class-type-methods-set! (@mutator class::t methods #t)) + (declare-type &class-type-methods-set! (@mutator class::t methods #f)) (declare-type class-type-slot-list (@lambda 1 #f)) - (declare-type class-type-fields (@lambda 1 #f)) + (declare-type class-type-field-count (@lambda 1 #f)) (declare-type class-type-seal! (@lambda 1 #f)) + (declare-type &class-type-seal! (@lambda 1 #f)) (declare-type substruct? (@lambda 2 #f)) (declare-type base-struct/1 (@lambda 1 #f)) (declare-type base-struct/2 (@lambda 2 #f)) @@ -139,6 +219,7 @@ package: gerbil/runtime (declare-type __struct-instance-init! (@lambda 2 #f)) (declare-type class-instance-init! (@lambda (1) #f)) (declare-type __class-instance-init! (@lambda 3 #f)) + (declare-type __metaclass-instance-init! (@lambda 3 #f)) (declare-type constructor-init! (@lambda (3) #f)) (declare-type __constructor-init! (@lambda 4 #f)) (declare-type struct-copy (@lambda 1 #f)) @@ -171,14 +252,14 @@ package: gerbil/runtime (declare-type checked-method-ref (@lambda 2 #f)) (declare-type bound-method-ref (@lambda 2 #f)) (declare-type checked-bound-method-ref (@lambda 2 #f)) - (declare-type find-method (@lambda 2 #f)) - (declare-type __find-method (@lambda 2 #f)) - (declare-type class-find-method (@lambda 2 #f)) - (declare-type mixin-find-method (@lambda 2 #f)) - (declare-type builtin-find-method (@lambda 2 #f)) - (declare-type direct-method-ref (@lambda 2 #f)) - (declare-type mixin-method-ref (@lambda 2 #f)) - (declare-type builtin-method-ref (@lambda 2 #f)) + (declare-type find-method (@lambda 3 #f)) + (declare-type __find-method (@lambda 3 #f)) + (declare-type class-find-method (@lambda 3 #f)) + (declare-type mixin-find-method (@lambda 3 #f)) + (declare-type builtin-find-method (@lambda 3 #f)) + (declare-type direct-method-ref (@lambda 3 #f)) + (declare-type mixin-method-ref (@lambda 3 #f)) + (declare-type builtin-method-ref (@lambda 3 #f)) (declare-type bind-method!__% (@lambda 4 #f)) (declare-type bind-method!__0 (@lambda 3 #f)) (declare-type bind-method! (@case-lambda (3 #f) (4 #f))) diff --git a/src/bootstrap/gerbil/runtime/mop__0.scm b/src/bootstrap/gerbil/runtime/mop__0.scm index 3cfacc66d..665e416a3 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 1707773925) + (define gerbil/runtime/mop::timestamp 1708102801) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) @@ -9,9 +9,10 @@ (define type-flag-id '16) (define class-type-flag-struct '1024) (define class-type-flag-sealed '2048) + (define class-type-flag-metaclass '4096) (define class::t.id 'gerbil#class::t) (define class::t - (let* ((_slots84995_ + (let* ((_slots85885_ '(id name super flags @@ -21,871 +22,1203 @@ slot-table properties constructor - method)) - (_slot-vector84997_ + methods)) + (_slot-vector85887_ (list->vector - (let () (declare (not safe)) (cons '##type _slots84995_)))) - (_slot-table85004_ - (let ((_slot-table84999_ + (let () (declare (not safe)) (cons '##type _slots85885_)))) + (_slot-table85894_ + (let ((_slot-table85889_ (let () (declare (not safe)) (make-table 'test: eq?)))) (for-each - (lambda (_slot85001_ _field85002_) + (lambda (_slot85891_ _field85892_) (let () (declare (not safe)) - (table-set! _slot-table84999_ _slot85001_ _field85002_)) - (let ((__tmp89610 (symbol->keyword _slot85001_))) + (table-set! _slot-table85889_ _slot85891_ _field85892_)) + (let ((__tmp90602 (symbol->keyword _slot85891_))) (declare (not safe)) - (table-set! _slot-table84999_ __tmp89610 _field85002_))) - _slots84995_ - (let ((__tmp89611 (length _slots84995_))) + (table-set! _slot-table85889_ __tmp90602 _field85892_))) + _slots85885_ + (let ((__tmp90603 (length _slots85885_))) (declare (not safe)) - (iota __tmp89611 '1))) - _slot-table84999_)) - (_flags85006_ + (iota __tmp90603 '1))) + _slot-table85889_)) + (_flags85896_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_fields85012_ + (_fields85902_ (list->vector (apply append - (map (lambda (_g8500785009_) (list _g8500785009_ '5 '#f)) + (map (lambda (_g8589785899_) (list _g8589785899_ '5 '#f)) (let () (declare (not safe)) - (drop _slots84995_ '5)))))) - (_properties85014_ '((direct-slots: ,@slots) (struct: . #t))) - (_t85016_ + (drop _slots85885_ '5)))))) + (_properties85904_ + (let ((__tmp90606 + (let ((__tmp90607 + (let () + (declare (not safe)) + (foldr1 cons '() _slots85885_)))) + (declare (not safe)) + (cons 'direct-slots: __tmp90607))) + (__tmp90604 + (let ((__tmp90605 + (let () (declare (not safe)) (cons 'struct: '#t)))) + (declare (not safe)) + (cons __tmp90605 '())))) + (declare (not safe)) + (cons __tmp90606 __tmp90604))) + (_t85906_ (let () (declare (not safe)) (##structure '#f class::t.id 'class - _flags85006_ + _flags85896_ ##type-type - _fields85012_ + _fields85902_ '() - _slot-vector84997_ - _slot-table85004_ - _properties85014_ + _slot-vector85887_ + _slot-table85894_ + _properties85904_ '#f '#f)))) - (let () (declare (not safe)) (##structure-type-set! _t85016_ _t85016_)) - _t85016_)) + (let () (declare (not safe)) (##structure-type-set! _t85906_ _t85906_)) + _t85906_)) (define class-type? - (lambda (_obj84993_) + (lambda (_obj85883_) (let () (declare (not safe)) - (##structure-instance-of? _obj84993_ class::t.id)))) - (define class-type-id - (lambda (_klass84991_) - (if (let () (declare (not safe)) (class-type? _klass84991_)) - (let () (declare (not safe)) (##type-id _klass84991_)) - (error '"not a type descriptor" _klass84991_)))) + (##structure-instance-of? _obj85883_ class::t.id)))) (define class-type=? - (lambda (_x84988_ _y84989_) - (let ((__tmp89613 - (let () (declare (not safe)) (class-type-id _x84988_))) - (__tmp89612 - (let () (declare (not safe)) (class-type-id _y84989_)))) + (lambda (_x85880_ _y85881_) + (let ((__tmp90609 (##structure-ref _x85880_ '1 class::t '#f)) + (__tmp90608 (##structure-ref _y85881_ '1 class::t '#f))) (declare (not safe)) - (eq? __tmp89613 __tmp89612)))) + (eq? __tmp90609 __tmp90608)))) (define type-opaque? - (lambda (_type84984_) - (let* ((_type-flag-opaque84986_ type-flag-opaque) - (__tmp89614 - (let ((__tmp89615 - (let () - (declare (not safe)) - (##type-flags _type84984_)))) - (declare (not safe)) - (##fxand __tmp89615 _type-flag-opaque84986_)))) + (lambda (_type85878_) + (let ((__tmp90610 + (let ((__tmp90611 + (let () + (declare (not safe)) + (##type-flags _type85878_)))) + (declare (not safe)) + (##fxand __tmp90611 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp89614 _type-flag-opaque84986_)))) + (##fx= __tmp90610 type-flag-opaque)))) (define type-extensible? - (lambda (_type84980_) - (let* ((_type-flag-extensible84982_ type-flag-extensible) - (__tmp89616 - (let ((__tmp89617 - (let () - (declare (not safe)) - (##type-flags _type84980_)))) - (declare (not safe)) - (##fxand __tmp89617 _type-flag-extensible84982_)))) + (lambda (_type85876_) + (let ((__tmp90612 + (let ((__tmp90613 + (let () + (declare (not safe)) + (##type-flags _type85876_)))) + (declare (not safe)) + (##fxand __tmp90613 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp89616 _type-flag-extensible84982_)))) + (##fx= __tmp90612 type-flag-extensible)))) (define class-type-final? - (lambda (_type84976_) - (let* ((_type-flag-extensible84978_ type-flag-extensible) - (__tmp89618 - (let ((__tmp89619 - (let () - (declare (not safe)) - (##type-flags _type84976_)))) - (declare (not safe)) - (##fxand __tmp89619 _type-flag-extensible84978_)))) + (lambda (_type85874_) + (let ((__tmp90614 + (let ((__tmp90615 + (let () + (declare (not safe)) + (##type-flags _type85874_)))) + (declare (not safe)) + (##fxand __tmp90615 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp89618 '0)))) + (##fx= __tmp90614 '0)))) (define class-type-struct? - (lambda (_klass84972_) - (let* ((_class-type-flag-struct84974_ class-type-flag-struct) - (__tmp89620 - (let ((__tmp89621 - (let () - (declare (not safe)) - (##type-flags _klass84972_)))) - (declare (not safe)) - (##fxand __tmp89621 _class-type-flag-struct84974_)))) + (lambda (_klass85872_) + (let ((__tmp90616 + (let ((__tmp90617 + (let () + (declare (not safe)) + (##type-flags _klass85872_)))) + (declare (not safe)) + (##fxand __tmp90617 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp89620 _class-type-flag-struct84974_)))) + (##fx= __tmp90616 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_klass84970_) - (let ((__tmp89622 - (let ((__tmp89623 + (lambda (_klass85870_) + (let ((__tmp90618 + (let ((__tmp90619 (let () (declare (not safe)) - (##type-flags _klass84970_)))) + (##type-flags _klass85870_)))) (declare (not safe)) - (##fxand __tmp89623 class-type-flag-sealed)))) + (##fxand __tmp90619 class-type-flag-sealed)))) (declare (not safe)) - (##fxpositive? __tmp89622)))) + (##fx= __tmp90618 class-type-flag-sealed)))) + (define class-type-metaclass? + (lambda (_klass85868_) + (let ((__tmp90620 + (let ((__tmp90621 + (let () + (declare (not safe)) + (##type-flags _klass85868_)))) + (declare (not safe)) + (##fxand __tmp90621 class-type-flag-metaclass)))) + (declare (not safe)) + (##fx= __tmp90620 class-type-flag-metaclass)))) (define properties-form - (lambda (_properties84936_) - (map (lambda (_e8493784939_) - (let* ((_g8494184948_ _e8493784939_) - (_E8494384952_ - (lambda () (error '"No clause matching" _g8494184948_))) - (_K8494484958_ - (lambda (_val84955_ _key84956_) + (lambda (_properties85834_) + (map (lambda (_e8583585837_) + (let* ((_g8583985846_ _e8583585837_) + (_E8584185850_ + (lambda () (error '"No clause matching" _g8583985846_))) + (_K8584285856_ + (lambda (_val85853_ _key85854_) (if (let () (declare (not safe)) - (eq? _key84956_ 'direct-supers:)) - (let ((__tmp89624 (map class-type-id _val84955_))) + (eq? _key85854_ 'direct-supers:)) + (let ((__tmp90622 (map class-type-id _val85853_))) (declare (not safe)) - (cons _key84956_ __tmp89624)) + (cons _key85854_ __tmp90622)) (let () (declare (not safe)) - (cons _key84956_ _val84955_)))))) - (if (let () (declare (not safe)) (##pair? _g8494184948_)) - (let ((_hd8494584961_ + (cons _key85854_ _val85853_)))))) + (if (let () (declare (not safe)) (##pair? _g8583985846_)) + (let ((_hd8584385859_ (let () (declare (not safe)) - (##car _g8494184948_))) - (_tl8494684963_ + (##car _g8583985846_))) + (_tl8584485861_ (let () (declare (not safe)) - (##cdr _g8494184948_)))) - (let* ((_key84966_ _hd8494584961_) - (_val84968_ _tl8494684963_)) + (##cdr _g8583985846_)))) + (let* ((_key85864_ _hd8584385859_) + (_val85866_ _tl8584485861_)) (declare (not safe)) - (_K8494484958_ _val84968_ _key84966_))) - (let () (declare (not safe)) (_E8494384952_))))) - _properties84936_))) + (_K8584285856_ _val85866_ _key85864_))) + (let () (declare (not safe)) (_E8584185850_))))) + _properties85834_))) (define make-class-type-descriptor - (lambda (_type-id84843_ - _type-name84844_ - _type-super84845_ - _precedence-list84846_ - _slot-vector84847_ - _properties84848_ - _constructor84849_ - _slot-table84850_ - _methods84851_) - (letrec ((_make-props!84853_ - (lambda (_key84905_) - (letrec* ((_ht84907_ + (lambda (_type-id85733_ + _type-name85734_ + _type-super85735_ + _precedence-list85736_ + _slot-vector85737_ + _properties85738_ + _constructor85739_ + _slot-table85740_ + _methods85741_) + (letrec ((_make-props!85743_ + (lambda (_key85803_) + (letrec* ((_ht85805_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_put-slots!84908_ - (lambda (_ht84929_ _slots84930_) + (_put-slots!85806_ + (lambda (_ht85827_ _slots85828_) (for-each - (lambda (_g8493184933_) + (lambda (_g8582985831_) (let () (declare (not safe)) (table-set! - _ht84929_ - _g8493184933_ + _ht85827_ + _g8582985831_ '#t))) - _slots84930_))) - (_put-alist!84909_ - (lambda (_ht84918_ _key84919_ _alist84920_) - (let ((_$e84922_ + _slots85828_))) + (_put-alist!85807_ + (lambda (_ht85816_ _key85817_ _alist85818_) + (let ((_$e85820_ (let () (declare (not safe)) - (assgetq _key84919_ _alist84920_)))) - (if _$e84922_ - ((lambda (_g8492484926_) + (assgetq _key85817_ _alist85818_)))) + (if _$e85820_ + ((lambda (_g8582285824_) (let () (declare (not safe)) - (_put-slots!84908_ - _ht84918_ - _g8492484926_))) - _$e84922_) + (_put-slots!85806_ + _ht85816_ + _g8582285824_))) + _$e85820_) '#!void))))) (let () (declare (not safe)) - (_put-alist!84909_ - _ht84907_ - _key84905_ - _properties84848_)) + (_put-alist!85807_ + _ht85805_ + _key85803_ + _properties85738_)) (for-each - (lambda (_mixin84911_) - (let ((_alist84913_ - (let () - (declare (not safe)) - (class-type-properties _mixin84911_)))) + (lambda (_mixin85809_) + (let ((_alist85811_ + (##structure-ref + _mixin85809_ + '9 + class::t + '#f))) (if (or (let () (declare (not safe)) - (assgetq 'transparent: _alist84913_)) - (let ((__tmp89626 + (assgetq 'transparent: _alist85811_)) + (let ((__tmp90624 (let () (declare (not safe)) - (assgetq _key84905_ - _alist84913_)))) + (assgetq _key85803_ + _alist85811_)))) (declare (not safe)) - (eq? '#t __tmp89626))) - (let ((__tmp89625 + (eq? '#t __tmp90624))) + (let ((__tmp90623 (let () (declare (not safe)) - (class-type-slot-list _mixin84911_)))) + (class-type-slot-list _mixin85809_)))) (declare (not safe)) - (_put-slots!84908_ _ht84907_ __tmp89625)) + (_put-slots!85806_ _ht85805_ __tmp90623)) (let () (declare (not safe)) - (_put-alist!84909_ - _ht84907_ - _key84905_ - _alist84913_))))) - _precedence-list84846_) - _ht84907_)))) - (let* ((_transparent?84855_ + (_put-alist!85807_ + _ht85805_ + _key85803_ + _alist85811_))))) + _precedence-list85736_) + _ht85805_)))) + (let* ((_transparent?85745_ (let () (declare (not safe)) - (assgetq 'transparent: _properties84848_))) - (_all-slots-printable?84860_ - (let ((_$e84857_ _transparent?84855_)) - (if _$e84857_ - _$e84857_ - (let ((__tmp89627 + (assgetq 'transparent: _properties85738_))) + (_all-slots-printable?85750_ + (let ((_$e85747_ _transparent?85745_)) + (if _$e85747_ + _$e85747_ + (let ((__tmp90625 (let () (declare (not safe)) - (assgetq 'print: _properties84848_)))) + (assgetq 'print: _properties85738_)))) (declare (not safe)) - (eq? '#t __tmp89627))))) - (_printable84862_ + (eq? '#t __tmp90625))))) + (_printable85752_ (if (let () (declare (not safe)) - (not _all-slots-printable?84860_)) + (not _all-slots-printable?85750_)) (let () (declare (not safe)) - (_make-props!84853_ 'print:)) + (_make-props!85743_ 'print:)) '#f)) - (_all-slots-equalable?84867_ - (let ((_$e84864_ _transparent?84855_)) - (if _$e84864_ - _$e84864_ - (let ((__tmp89628 + (_all-slots-equalable?85757_ + (let ((_$e85754_ _transparent?85745_)) + (if _$e85754_ + _$e85754_ + (let ((__tmp90626 (let () (declare (not safe)) - (assgetq 'equal: _properties84848_)))) + (assgetq 'equal: _properties85738_)))) (declare (not safe)) - (eq? '#t __tmp89628))))) - (_equalable84869_ + (eq? '#t __tmp90626))))) + (_equalable85759_ (if (let () (declare (not safe)) - (not _all-slots-equalable?84867_)) + (not _all-slots-equalable?85757_)) (let () (declare (not safe)) - (_make-props!84853_ 'equal:)) + (_make-props!85743_ 'equal:)) '#f)) - (_first-new-field84871_ + (_first-new-field85761_ (if (let () (declare (not safe)) - (class-type? _type-super84845_)) - (let ((__tmp89629 - (let () - (declare (not safe)) - (class-type-slot-vector _type-super84845_)))) + (##structure-instance-of? + _type-super85735_ + 'gerbil#class::t)) + (let ((__tmp90627 + (##structure-ref + _type-super85735_ + '7 + class::t + '#f))) (declare (not safe)) - (##vector-length __tmp89629)) + (##vector-length __tmp90627)) '1)) - (_field-info-length84873_ - (let ((__tmp89630 - (let ((__tmp89631 + (_field-info-length85763_ + (let ((__tmp90628 + (let ((__tmp90629 (let () (declare (not safe)) - (##vector-length _slot-vector84847_)))) + (##vector-length _slot-vector85737_)))) (declare (not safe)) - (##fx- __tmp89631 _first-new-field84871_)))) + (##fx- __tmp90629 _first-new-field85761_)))) (declare (not safe)) - (##fx* '3 __tmp89630))) - (_field-info84875_ (make-vector _field-info-length84873_ '#f)) - (_struct?84877_ + (##fx* '3 __tmp90628))) + (_field-info85765_ (make-vector _field-info-length85763_ '#f)) + (_struct?85767_ (let () (declare (not safe)) - (assgetq 'struct: _properties84848_))) - (_final?84879_ + (assgetq 'struct: _properties85738_))) + (_final?85769_ (let () (declare (not safe)) - (assgetq 'final: _properties84848_))) - (_opaque?84884_ - (let ((_$e84881_ + (assgetq 'final: _properties85738_))) + (_metaclass85777_ + (let ((_metaclass8577085772_ + (let () + (declare (not safe)) + (assgetq 'metaclass: _properties85738_)))) + (if _metaclass8577085772_ + (let ((_metaclass85775_ _metaclass8577085772_)) + (if (let () + (declare (not safe)) + (##structure-instance-of? + _metaclass85775_ + 'gerbil#class::t)) + '#!void + (error '"metaclass is not a class type" + 'class: + _type-id85733_ + 'metaclass: + _metaclass85775_)) + _metaclass85775_) + '#f))) + (_opaque?85782_ + (let ((_$e85779_ (let () (declare (not safe)) - (not _all-slots-equalable?84867_)))) - (if _$e84881_ - _$e84881_ - (if _type-super84845_ + (not _all-slots-equalable?85757_)))) + (if _$e85779_ + _$e85779_ + (if _type-super85735_ (let () (declare (not safe)) - (type-opaque? _type-super84845_)) + (type-opaque? _type-super85735_)) '#f)))) - (_type-flags84886_ - (let ((__tmp89634 (if _final?84879_ '0 type-flag-extensible)) - (__tmp89633 (if _opaque?84884_ type-flag-opaque '0)) - (__tmp89632 - (if _struct?84877_ class-type-flag-struct '0))) + (_type-flags85784_ + (let ((__tmp90633 (if _final?85769_ '0 type-flag-extensible)) + (__tmp90632 (if _opaque?85782_ type-flag-opaque '0)) + (__tmp90631 + (if _struct?85767_ class-type-flag-struct '0)) + (__tmp90630 + (if _metaclass85777_ class-type-flag-metaclass '0))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp89634 - __tmp89633 - __tmp89632)))) - (let _loop84889_ ((_i84891_ _first-new-field84871_) (_j84892_ '0)) + __tmp90633 + __tmp90632 + __tmp90631 + __tmp90630)))) + (let _loop85787_ ((_i85789_ _first-new-field85761_) (_j85790_ '0)) (if (let () (declare (not safe)) - (##fx< _j84892_ _field-info-length84873_)) - (let* ((_slot84894_ + (##fx< _j85790_ _field-info-length85763_)) + (let* ((_slot85792_ (let () (declare (not safe)) - (##vector-ref _slot-vector84847_ _i84891_))) - (_flags84902_ - (if _transparent?84855_ + (##vector-ref _slot-vector85737_ _i85789_))) + (_flags85800_ + (if _transparent?85745_ '0 - (let ((__tmp89636 - (if (or _all-slots-printable?84860_ + (let ((__tmp90635 + (if (or _all-slots-printable?85750_ (let () (declare (not safe)) (table-ref - _printable84862_ - _slot84894_ + _printable85752_ + _slot85792_ '#f))) '0 '1)) - (__tmp89635 - (if (or _all-slots-equalable?84867_ + (__tmp90634 + (if (or _all-slots-equalable?85757_ (let () (declare (not safe)) (table-ref - _equalable84869_ - _slot84894_ + _equalable85759_ + _slot85792_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp89636 __tmp89635))))) - (vector-set! _field-info84875_ _j84892_ _slot84894_) + (##fxior __tmp90635 __tmp90634))))) + (vector-set! _field-info85765_ _j85790_ _slot85792_) (vector-set! - _field-info84875_ - (let () (declare (not safe)) (##fx+ _j84892_ '1)) - _flags84902_) - (let ((__tmp89638 - (let () (declare (not safe)) (##fx+ _i84891_ '1))) - (__tmp89637 - (let () (declare (not safe)) (##fx+ _j84892_ '3)))) + _field-info85765_ + (let () (declare (not safe)) (##fx+ _j85790_ '1)) + _flags85800_) + (let ((__tmp90637 + (let () (declare (not safe)) (##fx+ _i85789_ '1))) + (__tmp90636 + (let () (declare (not safe)) (##fx+ _j85790_ '3)))) (declare (not safe)) - (_loop84889_ __tmp89638 __tmp89637))) + (_loop85787_ __tmp90637 __tmp90636))) '#!void)) - (let () - (declare (not safe)) - (##structure - class::t - _type-id84843_ - _type-name84844_ - _type-flags84886_ - _type-super84845_ - _field-info84875_ - _precedence-list84846_ - _slot-vector84847_ - _slot-table84850_ - _properties84848_ - _constructor84849_ - _methods84851_)))))) + (if _metaclass85777_ + (let () + (declare (not safe)) + (make-instance + _metaclass85777_ + _type-id85733_ + _type-name85734_ + _type-flags85784_ + _type-super85735_ + _field-info85765_ + _precedence-list85736_ + _slot-vector85737_ + _slot-table85740_ + _properties85738_ + _constructor85739_ + _methods85741_)) + (let () + (declare (not safe)) + (##structure + class::t + _type-id85733_ + _type-name85734_ + _type-flags85784_ + _type-super85735_ + _field-info85765_ + _precedence-list85736_ + _slot-vector85737_ + _slot-table85740_ + _properties85738_ + _constructor85739_ + _methods85741_))))))) + (define class-type-id + (lambda (_klass85731_) + (let () + (declare (not safe)) + (##structure-ref _klass85731_ '1 class::t 'id)))) + (define &class-type-id + (lambda (_klass85729_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85729_ '1 class::t 'id)))) + (define class-type-id-set! + (lambda (_klass85726_ _val85727_) + (let () + (declare (not safe)) + (##structure-set! _klass85726_ _val85727_ '1 class::t 'id)))) + (define &class-type-id-set! + (lambda (_klass85721_ _val85723_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass85721_ + _val85723_ + '1 + class::t + 'id)))) + (define class-type-name + (lambda (_klass85719_) + (let () + (declare (not safe)) + (##structure-ref _klass85719_ '2 class::t 'name)))) + (define &class-type-name + (lambda (_klass85717_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85717_ '2 class::t 'name)))) + (define class-type-name-set! + (lambda (_klass85714_ _val85715_) + (let () + (declare (not safe)) + (##structure-set! _klass85714_ _val85715_ '2 class::t 'name)))) + (define &class-type-name-set! + (lambda (_klass85709_ _val85711_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass85709_ + _val85711_ + '2 + class::t + 'name)))) + (define class-type-super + (lambda (_klass85707_) + (let () + (declare (not safe)) + (##structure-ref _klass85707_ '3 class::t 'super)))) + (define &class-type-super + (lambda (_klass85705_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85705_ '3 class::t 'super)))) + (define class-type-super-set! + (lambda (_klass85702_ _val85703_) + (let () + (declare (not safe)) + (##structure-set! _klass85702_ _val85703_ '3 class::t 'super)))) + (define &class-type-super-set! + (lambda (_klass85697_ _val85699_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass85697_ + _val85699_ + '3 + class::t + 'super)))) + (define class-type-flags + (lambda (_klass85695_) + (let () + (declare (not safe)) + (##structure-ref _klass85695_ '4 class::t 'flags)))) + (define &class-type-flags + (lambda (_klass85693_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85693_ '4 class::t 'flags)))) + (define class-type-flags-set! + (lambda (_klass85690_ _val85691_) + (let () + (declare (not safe)) + (##structure-set! _klass85690_ _val85691_ '4 class::t 'flags)))) + (define &class-type-flags-set! + (lambda (_klass85685_ _val85687_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass85685_ + _val85687_ + '4 + class::t + 'flags)))) + (define class-type-fields + (lambda (_klass85683_) + (let () + (declare (not safe)) + (##structure-ref _klass85683_ '5 class::t 'fields)))) + (define &class-type-fields + (lambda (_klass85681_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85681_ '5 class::t 'fields)))) + (define class-type-fields-set! + (lambda (_klass85678_ _val85679_) + (let () + (declare (not safe)) + (##structure-set! _klass85678_ _val85679_ '5 class::t 'fields)))) + (define &class-type-fields-set! + (lambda (_klass85673_ _val85675_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass85673_ + _val85675_ + '5 + class::t + 'fields)))) (define class-type-precedence-list - (lambda (_klass84841_) + (lambda (_klass85671_) + (let () + (declare (not safe)) + (##structure-ref _klass85671_ '6 class::t 'precedence-list)))) + (define &class-type-precedence-list + (lambda (_klass85669_) + (let () + (declare (not safe)) + (##unchecked-structure-ref + _klass85669_ + '6 + class::t + 'precedence-list)))) + (define class-type-precedence-list-set! + (lambda (_klass85666_ _val85667_) + (let () + (declare (not safe)) + (##structure-set! + _klass85666_ + _val85667_ + '6 + class::t + 'precedence-list)))) + (define &class-type-precedence-list-set! + (lambda (_klass85661_ _val85663_) (let () (declare (not safe)) - (##structure-ref - _klass84841_ + (##unchecked-structure-set! + _klass85661_ + _val85663_ '6 class::t - class-type-precedence-list)))) + 'precedence-list)))) (define class-type-slot-vector - (lambda (_klass84839_) + (lambda (_klass85659_) + (let () + (declare (not safe)) + (##structure-ref _klass85659_ '7 class::t 'slot-vector)))) + (define &class-type-slot-vector + (lambda (_klass85657_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85657_ '7 class::t 'slot-vector)))) + (define class-type-slot-vector-set! + (lambda (_klass85654_ _val85655_) + (let () + (declare (not safe)) + (##structure-set! + _klass85654_ + _val85655_ + '7 + class::t + 'slot-vector)))) + (define &class-type-slot-vector-set! + (lambda (_klass85649_ _val85651_) (let () (declare (not safe)) - (##structure-ref _klass84839_ '7 class::t class-type-slot-vector)))) + (##unchecked-structure-set! + _klass85649_ + _val85651_ + '7 + class::t + 'slot-vector)))) (define class-type-slot-table - (lambda (_klass84837_) + (lambda (_klass85647_) + (let () + (declare (not safe)) + (##structure-ref _klass85647_ '8 class::t 'slot-table)))) + (define &class-type-slot-table + (lambda (_klass85645_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85645_ '8 class::t 'slot-table)))) + (define class-type-slot-table-set! + (lambda (_klass85642_ _val85643_) (let () (declare (not safe)) - (##structure-ref _klass84837_ '8 class::t class-type-slot-table)))) + (##structure-set! _klass85642_ _val85643_ '8 class::t 'slot-table)))) + (define &class-type-slot-table-set! + (lambda (_klass85637_ _val85639_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass85637_ + _val85639_ + '8 + class::t + 'slot-table)))) (define class-type-properties - (lambda (_klass84835_) + (lambda (_klass85635_) + (let () + (declare (not safe)) + (##structure-ref _klass85635_ '9 class::t 'properties)))) + (define &class-type-properties + (lambda (_klass85633_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85633_ '9 class::t 'properties)))) + (define class-type-properties-set! + (lambda (_klass85630_ _val85631_) + (let () + (declare (not safe)) + (##structure-set! _klass85630_ _val85631_ '9 class::t 'properties)))) + (define &class-type-properties-set! + (lambda (_klass85625_ _val85627_) (let () (declare (not safe)) - (##structure-ref _klass84835_ '9 class::t class-type-properties)))) + (##unchecked-structure-set! + _klass85625_ + _val85627_ + '9 + class::t + 'properties)))) (define class-type-constructor - (lambda (_klass84833_) + (lambda (_klass85623_) + (let () + (declare (not safe)) + (##structure-ref _klass85623_ '10 class::t 'constructor)))) + (define &class-type-constructor + (lambda (_klass85621_) + (let () + (declare (not safe)) + (##unchecked-structure-ref _klass85621_ '10 class::t 'constructor)))) + (define class-type-constructor-set! + (lambda (_klass85618_ _val85619_) + (let () + (declare (not safe)) + (##structure-set! + _klass85618_ + _val85619_ + '10 + class::t + 'constructor)))) + (define &class-type-constructor-set! + (lambda (_klass85613_ _val85615_) (let () (declare (not safe)) - (##structure-ref _klass84833_ '10 class::t class-type-constructor)))) + (##unchecked-structure-set! + _klass85613_ + _val85615_ + '10 + class::t + 'constructor)))) (define class-type-methods - (lambda (_klass84831_) + (lambda (_klass85611_) + (let () + (declare (not safe)) + (##structure-ref _klass85611_ '11 class::t 'methods)))) + (define &class-type-methods + (lambda (_klass85609_) (let () (declare (not safe)) - (##structure-ref _klass84831_ '11 class::t class-type-methods)))) + (##unchecked-structure-ref _klass85609_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_klass84828_ _ht84829_) + (lambda (_klass85606_ _val85607_) (let () (declare (not safe)) - (##structure-set! - _klass84828_ - _ht84829_ + (##structure-set! _klass85606_ _val85607_ '11 class::t 'methods)))) + (define &class-type-methods-set! + (lambda (_klass85601_ _val85603_) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass85601_ + _val85603_ '11 class::t - class-type-methods-set!)))) + 'methods)))) (define class-type-slot-list - (lambda (_klass84826_) - (cdr (vector->list - (let () - (declare (not safe)) - (class-type-slot-vector _klass84826_)))))) - (define class-type-fields - (lambda (_klass84824_) - (let ((__tmp89639 - (let ((__tmp89640 - (let () - (declare (not safe)) - (class-type-slot-vector _klass84824_)))) + (lambda (_klass85599_) + (cdr (vector->list (##structure-ref _klass85599_ '7 class::t '#f))))) + (define class-type-field-count + (lambda (_klass85597_) + (let ((__tmp90638 + (let ((__tmp90639 + (##structure-ref _klass85597_ '7 class::t '#f))) (declare (not safe)) - (##vector-length __tmp89640)))) + (##vector-length __tmp90639)))) (declare (not safe)) - (##fx- __tmp89639 '1)))) + (##fx- __tmp90638 '1)))) (define class-type-seal! - (lambda (_klass84822_) - (let ((__tmp89641 - (let ((__tmp89642 + (lambda (_klass85595_) + (let ((__tmp90640 + (let ((__tmp90641 (let () (declare (not safe)) - (##type-flags _klass84822_)))) + (##type-flags _klass85595_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp89642)))) + (##fxior class-type-flag-sealed __tmp90641)))) (declare (not safe)) (##structure-set! - _klass84822_ - __tmp89641 + _klass85595_ + __tmp90640 + '3 + class::t + class-type-seal!)))) + (define &class-type-seal! + (lambda (_klass85593_) + (let ((__tmp90642 + (let ((__tmp90643 + (let () + (declare (not safe)) + (##type-flags _klass85593_)))) + (declare (not safe)) + (##fxior class-type-flag-sealed __tmp90643)))) + (declare (not safe)) + (##unchecked-structure-set! + _klass85593_ + __tmp90642 '3 class::t class-type-seal!)))) (define substruct? - (lambda (_maybe-sub-struct84813_ _maybe-super-struct84814_) - (let ((_maybe-super-struct-id84816_ + (lambda (_maybe-sub-struct85584_ _maybe-super-struct85585_) + (let ((_maybe-super-struct-id85587_ (let () (declare (not safe)) - (##type-id _maybe-super-struct84814_)))) - (let _lp84818_ ((_super-struct84820_ _maybe-sub-struct84813_)) - (if (let () (declare (not safe)) (not _super-struct84820_)) + (##type-id _maybe-super-struct85585_)))) + (let _lp85589_ ((_super-struct85591_ _maybe-sub-struct85584_)) + (if (let () (declare (not safe)) (not _super-struct85591_)) '#f - (if (let ((__tmp89644 + (if (let ((__tmp90645 (let () (declare (not safe)) - (##type-id _super-struct84820_)))) + (##type-id _super-struct85591_)))) (declare (not safe)) - (eq? _maybe-super-struct-id84816_ __tmp89644)) + (eq? _maybe-super-struct-id85587_ __tmp90645)) '#t - (let ((__tmp89643 + (let ((__tmp90644 (let () (declare (not safe)) - (##type-super _super-struct84820_)))) + (##type-super _super-struct85591_)))) (declare (not safe)) - (_lp84818_ __tmp89643)))))))) + (_lp85589_ __tmp90644)))))))) (define base-struct/1 - (lambda (_klass84811_) - (if (let () (declare (not safe)) (class-type? _klass84811_)) - (if (let () (declare (not safe)) (class-type-struct? _klass84811_)) - _klass84811_ - (let () (declare (not safe)) (##type-super _klass84811_))) - (if (let () (declare (not safe)) (not _klass84811_)) + (lambda (_klass85582_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _klass85582_ 'gerbil#class::t)) + (if (let () (declare (not safe)) (class-type-struct? _klass85582_)) + _klass85582_ + (let () (declare (not safe)) (##type-super _klass85582_))) + (if (let () (declare (not safe)) (not _klass85582_)) '#f - (error '"not a class or false" _klass84811_))))) + (error '"not a class or false" _klass85582_))))) (define base-struct/2 - (lambda (_klass184799_ _klass284800_) - (let ((_s184802_ - (let () (declare (not safe)) (base-struct/1 _klass184799_))) - (_s284803_ - (let () (declare (not safe)) (base-struct/1 _klass284800_)))) - (if (or (let () (declare (not safe)) (not _s184802_)) - (and _s284803_ + (lambda (_klass185570_ _klass285571_) + (let ((_s185573_ + (let () (declare (not safe)) (base-struct/1 _klass185570_))) + (_s285574_ + (let () (declare (not safe)) (base-struct/1 _klass285571_)))) + (if (or (let () (declare (not safe)) (not _s185573_)) + (and _s285574_ (let () (declare (not safe)) - (substruct? _s184802_ _s284803_)))) - _s284803_ - (if (or (let () (declare (not safe)) (not _s284803_)) - (and _s184802_ + (substruct? _s185573_ _s285574_)))) + _s285574_ + (if (or (let () (declare (not safe)) (not _s285574_)) + (and _s185573_ (let () (declare (not safe)) - (substruct? _s284803_ _s184802_)))) - _s184802_ + (substruct? _s285574_ _s185573_)))) + _s185573_ (error '"bad mixin: incompatible struct bases" - _klass184799_ - _klass284800_ - _s184802_ - _s284803_)))))) + _klass185570_ + _klass285571_ + _s185573_ + _s285574_)))))) (define base-struct/list - (lambda (_all-supers84683_) - (let* ((_all-supers8468484709_ _all-supers84683_) - (_E8468984713_ + (lambda (_all-supers85454_) + (let* ((_all-supers8545585480_ _all-supers85454_) + (_E8546085484_ (lambda () - (error '"No clause matching" _all-supers8468484709_)))) - (let ((_K8470784796_ (lambda () '#f)) - (_K8470484782_ - (lambda (_x84780_) - (let () (declare (not safe)) (base-struct/1 _x84780_)))) - (_K8469984759_ - (lambda (_y84756_ _x84757_) + (error '"No clause matching" _all-supers8545585480_)))) + (let ((_K8547885567_ (lambda () '#f)) + (_K8547585553_ + (lambda (_x85551_) + (let () (declare (not safe)) (base-struct/1 _x85551_)))) + (_K8547085530_ + (lambda (_y85527_ _x85528_) (let () (declare (not safe)) - (base-struct/2 _x84757_ _y84756_)))) - (_K8469084720_ - (lambda (_y84717_ _x84718_) + (base-struct/2 _x85528_ _y85527_)))) + (_K8546185491_ + (lambda (_y85488_ _x85489_) (let () (declare (not safe)) - (foldr1 base-struct/2 _x84718_ _y84717_))))) - (let* ((___match8960789608_ - (lambda (_hd8469184723_ _tl8469284725_) - (let ((_x84728_ _hd8469184723_)) - (letrec ((_splice-rest8469484730_ - (lambda (_rest8469884737_ _y84739_) + (foldr1 base-struct/2 _x85489_ _y85488_))))) + (let* ((___match9059790598_ + (lambda (_hd8546285494_ _tl8546385496_) + (let ((_x85499_ _hd8546285494_)) + (letrec ((_splice-rest8546585501_ + (lambda (_rest8546985508_ _y85510_) (if (let () (declare (not safe)) - (##null? _rest8469884737_)) + (##null? _rest8546985508_)) (let () (declare (not safe)) - (_K8469084720_ _y84739_ _x84728_)) + (_K8546185491_ _y85510_ _x85499_)) (let () (declare (not safe)) - (_E8468984713_))))) - (_splice-try8469684732_ - (lambda (_hd8469784741_ - _rest8469884743_ - _y8469384744_) - (let ((_y84747_ _hd8469784741_)) - (let ((__tmp89646 + (_E8546085484_))))) + (_splice-try8546785503_ + (lambda (_hd8546885512_ + _rest8546985514_ + _y8546485515_) + (let ((_y85518_ _hd8546885512_)) + (let ((__tmp90647 (let () (declare (not safe)) - (##cdr _rest8469884743_))) - (__tmp89645 + (##cdr _rest8546985514_))) + (__tmp90646 (let () (declare (not safe)) - (cons _y84747_ _y8469384744_)))) + (cons _y85518_ _y8546485515_)))) (declare (not safe)) - (_splice-loop8469584734_ - __tmp89646 - __tmp89645))))) - (_splice-loop8469584734_ - (lambda (_rest8469884749_ _y8469384750_) + (_splice-loop8546685505_ + __tmp90647 + __tmp90646))))) + (_splice-loop8546685505_ + (lambda (_rest8546985520_ _y8546485521_) (if (let () (declare (not safe)) - (pair? _rest8469884749_)) - (let ((__tmp89648 + (pair? _rest8546985520_)) + (let ((__tmp90649 (let () (declare (not safe)) - (##car _rest8469884749_)))) + (##car _rest8546985520_)))) (declare (not safe)) - (_splice-try8469684732_ - __tmp89648 - _rest8469884749_ - _y8469384750_)) - (let ((__tmp89647 - (reverse _y8469384750_))) + (_splice-try8546785503_ + __tmp90649 + _rest8546985520_ + _y8546485521_)) + (let ((__tmp90648 + (reverse _y8546485521_))) (declare (not safe)) - (_splice-rest8469484730_ - _rest8469884749_ - __tmp89647)))))) + (_splice-rest8546585501_ + _rest8546985520_ + __tmp90648)))))) (let () (declare (not safe)) - (_splice-loop8469584734_ _tl8469284725_ '())))))) - (_try-match8468684792_ + (_splice-loop8546685505_ _tl8546385496_ '())))))) + (_try-match8545785563_ (lambda () (if (let () (declare (not safe)) - (##pair? _all-supers8468484709_)) - (let ((_tl8470684787_ + (##pair? _all-supers8545585480_)) + (let ((_tl8547785558_ (let () (declare (not safe)) - (##cdr _all-supers8468484709_))) - (_hd8470584785_ + (##cdr _all-supers8545585480_))) + (_hd8547685556_ (let () (declare (not safe)) - (##car _all-supers8468484709_)))) + (##car _all-supers8545585480_)))) (if (let () (declare (not safe)) - (##null? _tl8470684787_)) - (let ((_x84790_ _hd8470584785_)) + (##null? _tl8547785558_)) + (let ((_x85561_ _hd8547685556_)) (declare (not safe)) - (base-struct/1 _x84790_)) + (base-struct/1 _x85561_)) (if (let () (declare (not safe)) - (##pair? _tl8470684787_)) - (let ((_tl8470384771_ + (##pair? _tl8547785558_)) + (let ((_tl8547485542_ (let () (declare (not safe)) - (##cdr _tl8470684787_))) - (_hd8470284769_ + (##cdr _tl8547785558_))) + (_hd8547385540_ (let () (declare (not safe)) - (##car _tl8470684787_)))) + (##car _tl8547785558_)))) (if (let () (declare (not safe)) - (##null? _tl8470384771_)) - (let ((_x84767_ _hd8470584785_) - (_y84774_ _hd8470284769_)) + (##null? _tl8547485542_)) + (let ((_x85538_ _hd8547685556_) + (_y85545_ _hd8547385540_)) (let () (declare (not safe)) - (_K8469984759_ - _y84774_ - _x84767_))) - (___match8960789608_ - _hd8470584785_ - _tl8470684787_))) - (___match8960789608_ - _hd8470584785_ - _tl8470684787_)))) - (let () (declare (not safe)) (_E8468984713_)))))) + (_K8547085530_ + _y85545_ + _x85538_))) + (___match9059790598_ + _hd8547685556_ + _tl8547785558_))) + (___match9059790598_ + _hd8547685556_ + _tl8547785558_)))) + (let () (declare (not safe)) (_E8546085484_)))))) (if (let () (declare (not safe)) - (##null? _all-supers8468484709_)) - (let () (declare (not safe)) (_K8470784796_)) - (let () (declare (not safe)) (_try-match8468684792_)))))))) + (##null? _all-supers8545585480_)) + (let () (declare (not safe)) (_K8547885567_)) + (let () (declare (not safe)) (_try-match8545785563_)))))))) (define base-struct - (lambda _all-supers84681_ - (let () (declare (not safe)) (base-struct/list _all-supers84681_)))) + (lambda _all-supers85452_ + (let () (declare (not safe)) (base-struct/list _all-supers85452_)))) (define find-super-constructor - (lambda (_super84633_) - (let _lp84635_ ((_rest84637_ _super84633_) (_constructor84638_ '#f)) - (let* ((_rest8463984647_ _rest84637_) - (_else8464184655_ (lambda () _constructor84638_)) - (_K8464384669_ - (lambda (_rest84658_ _hd84659_) - (let ((_$e84661_ + (lambda (_super85404_) + (let _lp85406_ ((_rest85408_ _super85404_) (_constructor85409_ '#f)) + (let* ((_rest8541085418_ _rest85408_) + (_else8541285426_ (lambda () _constructor85409_)) + (_K8541485440_ + (lambda (_rest85429_ _hd85430_) + (let ((_$e85432_ (let () (declare (not safe)) - (class-type-constructor _hd84659_)))) - (if _$e84661_ - ((lambda (_xconstructor84664_) + (##unchecked-structure-ref + _hd85430_ + '10 + class::t + '#f)))) + (if _$e85432_ + ((lambda (_xconstructor85435_) (if (or (let () (declare (not safe)) - (not _constructor84638_)) + (not _constructor85409_)) (let () (declare (not safe)) - (eq? _constructor84638_ - _xconstructor84664_))) + (eq? _constructor85409_ + _xconstructor85435_))) (let () (declare (not safe)) - (_lp84635_ _rest84658_ _xconstructor84664_)) + (_lp85406_ _rest85429_ _xconstructor85435_)) (error '"conflicting implicit constructors" - _constructor84638_ - _xconstructor84664_))) - _$e84661_) + _constructor85409_ + _xconstructor85435_))) + _$e85432_) (let () (declare (not safe)) - (_lp84635_ _rest84658_ _constructor84638_))))))) - (if (let () (declare (not safe)) (##pair? _rest8463984647_)) - (let ((_hd8464484672_ - (let () (declare (not safe)) (##car _rest8463984647_))) - (_tl8464584674_ - (let () (declare (not safe)) (##cdr _rest8463984647_)))) - (let* ((_hd84677_ _hd8464484672_) - (_rest84679_ _tl8464584674_)) + (_lp85406_ _rest85429_ _constructor85409_))))))) + (if (let () (declare (not safe)) (##pair? _rest8541085418_)) + (let ((_hd8541585443_ + (let () (declare (not safe)) (##car _rest8541085418_))) + (_tl8541685445_ + (let () (declare (not safe)) (##cdr _rest8541085418_)))) + (let* ((_hd85448_ _hd8541585443_) + (_rest85450_ _tl8541685445_)) (declare (not safe)) - (_K8464384669_ _rest84679_ _hd84677_))) - (let () (declare (not safe)) (_else8464184655_))))))) + (_K8541485440_ _rest85450_ _hd85448_))) + (let () (declare (not safe)) (_else8541285426_))))))) (define compute-class-slots - (lambda (_class-precedence-list84609_ _direct-slots84610_) - (let* ((_next-slot84612_ '1) - (_slot-table84614_ + (lambda (_class-precedence-list85380_ _direct-slots85381_) + (let* ((_next-slot85383_ '1) + (_slot-table85385_ (let () (declare (not safe)) (make-table 'test: eq?))) - (_r-slots84616_ '(__class)) - (_process-slot84620_ - (lambda (_slot84618_) - (if (let () (declare (not safe)) (symbol? _slot84618_)) + (_r-slots85387_ '(__class)) + (_process-slot85391_ + (lambda (_slot85389_) + (if (let () (declare (not safe)) (symbol? _slot85389_)) '#!void - (error '"invalid slot name" _slot84618_)) + (error '"invalid slot name" _slot85389_)) (if (let () (declare (not safe)) - (hash-key? _slot-table84614_ _slot84618_)) + (hash-key? _slot-table85385_ _slot85389_)) '#!void (begin (let () (declare (not safe)) (table-set! - _slot-table84614_ - _slot84618_ - _next-slot84612_)) - (let ((__tmp89649 (symbol->keyword _slot84618_))) + _slot-table85385_ + _slot85389_ + _next-slot85383_)) + (let ((__tmp90650 (symbol->keyword _slot85389_))) (declare (not safe)) (table-set! - _slot-table84614_ - __tmp89649 - _next-slot84612_)) - (set! _r-slots84616_ + _slot-table85385_ + __tmp90650 + _next-slot85383_)) + (set! _r-slots85387_ (let () (declare (not safe)) - (cons _slot84618_ _r-slots84616_))) - (set! _next-slot84612_ + (cons _slot85389_ _r-slots85387_))) + (set! _next-slot85383_ (let () (declare (not safe)) - (##fx+ _next-slot84612_ '1))))))) - (_process-slots84626_ - (lambda (_g8462184623_) - (for-each _process-slot84620_ _g8462184623_)))) + (##fx+ _next-slot85383_ '1))))))) + (_process-slots85397_ + (lambda (_g8539285394_) + (for-each _process-slot85391_ _g8539285394_)))) (for-each - (lambda (_mixin84629_) - (let ((__tmp89650 - (let ((__tmp89651 + (lambda (_mixin85400_) + (let ((__tmp90651 + (let ((__tmp90652 (let () (declare (not safe)) - (class-type-properties _mixin84629_)))) + (##unchecked-structure-ref + _mixin85400_ + '9 + class::t + '#f)))) (declare (not safe)) - (assgetq 'direct-slots: __tmp89651 '())))) + (assgetq 'direct-slots: __tmp90652 '())))) (declare (not safe)) - (_process-slots84626_ __tmp89650))) - (reverse _class-precedence-list84609_)) + (_process-slots85397_ __tmp90651))) + (reverse _class-precedence-list85380_)) (let () (declare (not safe)) - (_process-slots84626_ _direct-slots84610_)) - (let ((_slot-vector84631_ (list->vector (reverse _r-slots84616_)))) - (values _slot-vector84631_ _slot-table84614_))))) + (_process-slots85397_ _direct-slots85381_)) + (let ((_slot-vector85402_ (list->vector (reverse _r-slots85387_)))) + (values _slot-vector85402_ _slot-table85385_))))) (define make-class-type - (lambda (_id84571_ - _name84572_ - _direct-supers84573_ - _direct-slots84574_ - _properties84575_ - _constructor84576_) - (let ((_$e84581_ - (let ((__tmp89652 - (lambda (_$obj84578_) - (let ((__tmp89653 + (lambda (_id85342_ + _name85343_ + _direct-supers85344_ + _direct-slots85345_ + _properties85346_ + _constructor85347_) + (let ((_$e85352_ + (let ((__tmp90653 + (lambda (_$obj85349_) + (let ((__tmp90654 (let () (declare (not safe)) - (class-type? _$obj84578_)))) + (##structure-instance-of? + _$obj85349_ + 'gerbil#class::t)))) (declare (not safe)) - (not __tmp89653))))) + (not __tmp90654))))) (declare (not safe)) - (find __tmp89652 _direct-supers84573_)))) - (if _$e84581_ - ((lambda (_g8458384585_) + (find __tmp90653 _direct-supers85344_)))) + (if _$e85352_ + ((lambda (_g8535485356_) (error '"Illegal super class; not a class descriptor" - _g8458384585_)) - _$e84581_) - (let ((_$e84588_ + _g8535485356_)) + _$e85352_) + (let ((_$e85359_ (let () (declare (not safe)) - (find class-type-final? _direct-supers84573_)))) - (if _$e84588_ - ((lambda (_g8459084592_) - (error '"Cannot extend final class" _g8459084592_)) - _$e84588_) + (find class-type-final? _direct-supers85344_)))) + (if _$e85359_ + ((lambda (_g8536185363_) + (error '"Cannot extend final class" _g8536185363_)) + _$e85359_) '#!void)))) - (let ((_g89654_ + (let ((_g90655_ (let () (declare (not safe)) - (compute-precedence-list _direct-supers84573_)))) + (compute-precedence-list _direct-supers85344_)))) (begin - (let ((_g89655_ + (let ((_g90656_ (let () (declare (not safe)) - (if (##values? _g89654_) (##vector-length _g89654_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g89655_ 2))) - (error "Context expects 2 values" _g89655_))) - (let ((_precedence-list84595_ - (let () (declare (not safe)) (##vector-ref _g89654_ 0))) - (_struct-super84596_ - (let () (declare (not safe)) (##vector-ref _g89654_ 1)))) - (let ((_g89656_ + (if (##values? _g90655_) (##vector-length _g90655_) 1)))) + (if (not (let () (declare (not safe)) (##fx= _g90656_ 2))) + (error "Context expects 2 values" _g90656_))) + (let ((_precedence-list85366_ + (let () (declare (not safe)) (##vector-ref _g90655_ 0))) + (_struct-super85367_ + (let () (declare (not safe)) (##vector-ref _g90655_ 1)))) + (let ((_g90657_ (let () (declare (not safe)) (compute-class-slots - _precedence-list84595_ - _direct-slots84574_)))) + _precedence-list85366_ + _direct-slots85345_)))) (begin - (let ((_g89657_ + (let ((_g90658_ (let () (declare (not safe)) - (if (##values? _g89656_) - (##vector-length _g89656_) + (if (##values? _g90657_) + (##vector-length _g90657_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g89657_ 2))) - (error "Context expects 2 values" _g89657_))) - (let ((_slot-vector84598_ + (if (not (let () (declare (not safe)) (##fx= _g90658_ 2))) + (error "Context expects 2 values" _g90658_))) + (let ((_slot-vector85369_ (let () (declare (not safe)) - (##vector-ref _g89656_ 0))) - (_slot-table84599_ + (##vector-ref _g90657_ 0))) + (_slot-table85370_ (let () (declare (not safe)) - (##vector-ref _g89656_ 1)))) - (let* ((_properties84601_ - (let ((__tmp89660 + (##vector-ref _g90657_ 1)))) + (let* ((_properties85372_ + (let ((__tmp90661 (let () (declare (not safe)) (cons 'direct-slots: - _direct-slots84574_))) - (__tmp89658 - (let ((__tmp89659 + _direct-slots85345_))) + (__tmp90659 + (let ((__tmp90660 (let () (declare (not safe)) (cons 'direct-supers: - _direct-supers84573_)))) + _direct-supers85344_)))) (declare (not safe)) - (cons __tmp89659 _properties84575_)))) + (cons __tmp90660 _properties85346_)))) (declare (not safe)) - (cons __tmp89660 __tmp89658))) - (_constructor*84606_ - (let ((_$e84603_ _constructor84576_)) - (if _$e84603_ - _$e84603_ + (cons __tmp90661 __tmp90659))) + (_constructor*85377_ + (let ((_$e85374_ _constructor85347_)) + (if _$e85374_ + _$e85374_ (let () (declare (not safe)) (find-super-constructor - _direct-supers84573_)))))) + _direct-supers85344_)))))) (let () (declare (not safe)) (make-class-type-descriptor - _id84571_ - _name84572_ - _struct-super84596_ - _precedence-list84595_ - _slot-vector84598_ - _properties84601_ - _constructor*84606_ - _slot-table84599_ + _id85342_ + _name85343_ + _struct-super85367_ + _precedence-list85366_ + _slot-vector85369_ + _properties85372_ + _constructor*85377_ + _slot-table85370_ '#f))))))))))) (define class-precedence-list - (lambda (_klass84569_) - (let ((__tmp89661 + (lambda (_klass85340_) + (let ((__tmp90662 (let () (declare (not safe)) - (class-type-precedence-list _klass84569_)))) + (##unchecked-structure-ref _klass85340_ '6 class::t '#f)))) (declare (not safe)) - (cons _klass84569_ __tmp89661)))) + (cons _klass85340_ __tmp90662)))) (define compute-precedence-list - (lambda (_direct-supers84567_) + (lambda (_direct-supers85338_) (let () (declare (not safe)) (c4-linearize__% @@ -895,1321 +1228,1489 @@ eq? ##type-name '() - _direct-supers84567_)))) + _direct-supers85338_)))) (define make-class-predicate - (lambda (_klass84551_) - (let ((_tid84553_ - (let () (declare (not safe)) (##type-id _klass84551_)))) - (if (let () (declare (not safe)) (class-type-final? _klass84551_)) - (lambda (_g8455484556_) + (lambda (_klass85322_) + (let ((_tid85324_ + (let () (declare (not safe)) (##type-id _klass85322_)))) + (if (let () (declare (not safe)) (class-type-final? _klass85322_)) + (lambda (_g8532585327_) (let () (declare (not safe)) - (##structure-direct-instance-of? _g8455484556_ _tid84553_))) + (##structure-direct-instance-of? _g8532585327_ _tid85324_))) (if (let () (declare (not safe)) - (class-type-struct? _klass84551_)) - (lambda (_g8455884560_) + (class-type-struct? _klass85322_)) + (lambda (_g8532985331_) (let () (declare (not safe)) - (##structure-instance-of? _g8455884560_ _tid84553_))) - (lambda (_g8456284564_) + (##structure-instance-of? _g8532985331_ _tid85324_))) + (lambda (_g8533385335_) (let () (declare (not safe)) - (class-instance? _klass84551_ _g8456284564_)))))))) + (class-instance? _klass85322_ _g8533385335_)))))))) (define if-class-slot-field - (lambda (_klass84540_ - _slot84541_ - _if-final84542_ - _if-struct84543_ - _if-struct-field84544_ - _if-class-slot84545_) - (let ((_field84547_ - (let ((__tmp89662 + (lambda (_klass85311_ + _slot85312_ + _if-final85313_ + _if-struct85314_ + _if-struct-field85315_ + _if-class-slot85316_) + (let ((_field85318_ + (let ((__tmp90663 (let () (declare (not safe)) - (class-type-slot-table _klass84540_)))) + (##unchecked-structure-ref + _klass85311_ + '8 + class::t + '#f)))) (declare (not safe)) - (table-ref __tmp89662 _slot84541_ '#f)))) - (if (let () (declare (not safe)) (not _field84547_)) - (error '"unknown slot" 'class: _klass84540_ 'slot: _slot84541_) + (table-ref __tmp90663 _slot85312_ '#f)))) + (if (let () (declare (not safe)) (not _field85318_)) + (error '"unknown slot" 'class: _klass85311_ 'slot: _slot85312_) (if (let () (declare (not safe)) - (class-type-final? _klass84540_)) - (_if-final84542_ _klass84540_ _slot84541_ _field84547_) + (class-type-final? _klass85311_)) + (_if-final85313_ _klass85311_ _slot85312_ _field85318_) (if (let () (declare (not safe)) - (class-type-struct? _klass84540_)) - (_if-struct84543_ _klass84540_ _slot84541_ _field84547_) - (if (let ((_strukt84549_ + (class-type-struct? _klass85311_)) + (_if-struct85314_ _klass85311_ _slot85312_ _field85318_) + (if (let ((_strukt85320_ (let () (declare (not safe)) - (base-struct/1 _klass84540_)))) + (base-struct/1 _klass85311_)))) (and (let () (declare (not safe)) - (class-type? _strukt84549_)) - (let ((__tmp89663 - (let ((__tmp89664 + (##structure-instance-of? + _strukt85320_ + 'gerbil#class::t)) + (let ((__tmp90664 + (let ((__tmp90665 (let () (declare (not safe)) - (class-type-slot-vector - _strukt84549_)))) + (##unchecked-structure-ref + _strukt85320_ + '7 + class::t + '#f)))) (declare (not safe)) - (##vector-length __tmp89664)))) + (##vector-length __tmp90665)))) (declare (not safe)) - (##fx< _field84547_ __tmp89663)))) - (_if-struct-field84544_ - _klass84540_ - _slot84541_ - _field84547_) - (_if-class-slot84545_ - _klass84540_ - _slot84541_ - _field84547_)))))))) + (##fx< _field85318_ __tmp90664)))) + (_if-struct-field85315_ + _klass85311_ + _slot85312_ + _field85318_) + (_if-class-slot85316_ + _klass85311_ + _slot85312_ + _field85318_)))))))) (define make-class-slot-accessor - (lambda (_klass84537_ _slot84538_) + (lambda (_klass85308_ _slot85309_) (let () (declare (not safe)) (if-class-slot-field - _klass84537_ - _slot84538_ + _klass85308_ + _slot85309_ make-final-slot-accessor make-struct-slot-accessor make-struct-subclass-slot-accessor make-class-cached-slot-accessor)))) (define make-class-slot-mutator - (lambda (_klass84534_ _slot84535_) + (lambda (_klass85305_ _slot85306_) (let () (declare (not safe)) (if-class-slot-field - _klass84534_ - _slot84535_ + _klass85305_ + _slot85306_ make-final-slot-mutator make-struct-slot-mutator make-struct-subclass-slot-mutator make-class-cached-slot-mutator)))) (define make-class-slot-unchecked-accessor - (lambda (_klass84531_ _slot84532_) + (lambda (_klass85302_ _slot85303_) (let () (declare (not safe)) (if-class-slot-field - _klass84531_ - _slot84532_ + _klass85302_ + _slot85303_ make-struct-slot-unchecked-accessor make-struct-slot-unchecked-accessor make-struct-slot-unchecked-accessor make-class-cached-slot-unchecked-accessor)))) (define make-class-slot-unchecked-mutator - (lambda (_klass84528_ _slot84529_) + (lambda (_klass85299_ _slot85300_) (let () (declare (not safe)) (if-class-slot-field - _klass84528_ - _slot84529_ + _klass85299_ + _slot85300_ make-struct-slot-unchecked-mutator make-struct-slot-unchecked-mutator make-struct-slot-unchecked-mutator make-class-cached-slot-unchecked-mutator)))) (define not-an-instance__% - (lambda (_object84512_ _class84513_ _slot84514_) + (lambda (_object85283_ _class85284_ _slot85285_) (apply error '"not an instance" 'object: - _object84512_ + _object85283_ 'class: - _class84513_ - (if _slot84514_ - (let ((__tmp89665 + _class85284_ + (if _slot85285_ + (let ((__tmp90666 (let () (declare (not safe)) - (cons _slot84514_ '())))) + (cons _slot85285_ '())))) (declare (not safe)) - (cons 'slot: __tmp89665)) + (cons 'slot: __tmp90666)) '())))) (define not-an-instance__0 - (lambda (_object84519_ _class84520_) - (let ((_slot84522_ '#f)) + (lambda (_object85290_ _class85291_) + (let ((_slot85293_ '#f)) (declare (not safe)) - (not-an-instance__% _object84519_ _class84520_ _slot84522_)))) + (not-an-instance__% _object85290_ _class85291_ _slot85293_)))) (define not-an-instance - (lambda _g89667_ - (let ((_g89666_ (let () (declare (not safe)) (##length _g89667_)))) - (cond ((let () (declare (not safe)) (##fx= _g89666_ 2)) - (apply (lambda (_object84519_ _class84520_) + (lambda _g90668_ + (let ((_g90667_ (let () (declare (not safe)) (##length _g90668_)))) + (cond ((let () (declare (not safe)) (##fx= _g90667_ 2)) + (apply (lambda (_object85290_ _class85291_) (let () (declare (not safe)) - (not-an-instance__0 _object84519_ _class84520_))) - _g89667_)) - ((let () (declare (not safe)) (##fx= _g89666_ 3)) - (apply (lambda (_object84524_ _class84525_ _slot84526_) + (not-an-instance__0 _object85290_ _class85291_))) + _g90668_)) + ((let () (declare (not safe)) (##fx= _g90667_ 3)) + (apply (lambda (_object85295_ _class85296_ _slot85297_) (let () (declare (not safe)) (not-an-instance__% - _object84524_ - _class84525_ - _slot84526_))) - _g89667_)) + _object85295_ + _class85296_ + _slot85297_))) + _g90668_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g89667_)))))) + _g90668_)))))) (define make-final-slot-accessor - (lambda (_klass84505_ _slot84506_ _field84507_) - (lambda (_obj84509_) + (lambda (_klass85276_ _slot85277_ _field85278_) + (lambda (_obj85280_) (let () (declare (not safe)) (##direct-structure-ref - _obj84509_ - _field84507_ - _klass84505_ - _slot84506_))))) + _obj85280_ + _field85278_ + _klass85276_ + _slot85277_))))) (define make-final-slot-mutator - (lambda (_klass84498_ _slot84499_ _field84500_) - (lambda (_obj84502_ _val84503_) + (lambda (_klass85269_ _slot85270_ _field85271_) + (lambda (_obj85273_ _val85274_) (let () (declare (not safe)) (##direct-structure-set! - _obj84502_ - _val84503_ - _field84500_ - _klass84498_ - _slot84499_))))) + _obj85273_ + _val85274_ + _field85271_ + _klass85269_ + _slot85270_))))) (define make-struct-slot-accessor - (lambda (_klass84492_ _slot84493_ _field84494_) - (lambda (_obj84496_) + (lambda (_klass85263_ _slot85264_ _field85265_) + (lambda (_obj85267_) (let () (declare (not safe)) (##structure-ref - _obj84496_ - _field84494_ - _klass84492_ - _slot84493_))))) + _obj85267_ + _field85265_ + _klass85263_ + _slot85264_))))) (define make-struct-slot-mutator - (lambda (_klass84485_ _slot84486_ _field84487_) - (lambda (_obj84489_ _val84490_) + (lambda (_klass85256_ _slot85257_ _field85258_) + (lambda (_obj85260_ _val85261_) (let () (declare (not safe)) (##structure-set! - _obj84489_ - _val84490_ - _field84487_ - _klass84485_ - _slot84486_))))) + _obj85260_ + _val85261_ + _field85258_ + _klass85256_ + _slot85257_))))) (define make-struct-slot-unchecked-accessor - (lambda (_klass84479_ _slot84480_ _field84481_) - (lambda (_obj84483_) + (lambda (_klass85250_ _slot85251_ _field85252_) + (lambda (_obj85254_) (let () (declare (not safe)) (##unchecked-structure-ref - _obj84483_ - _field84481_ - _klass84479_ - _slot84480_))))) + _obj85254_ + _field85252_ + _klass85250_ + _slot85251_))))) (define make-struct-slot-unchecked-mutator - (lambda (_klass84472_ _slot84473_ _field84474_) - (lambda (_obj84476_ _val84477_) + (lambda (_klass85243_ _slot85244_ _field85245_) + (lambda (_obj85247_ _val85248_) (let () (declare (not safe)) (##unchecked-structure-set! - _obj84476_ - _val84477_ - _field84474_ - _klass84472_ - _slot84473_))))) + _obj85247_ + _val85248_ + _field85245_ + _klass85243_ + _slot85244_))))) (define make-struct-subclass-slot-accessor - (lambda (_klass84466_ _slot84467_ _field84468_) - (lambda (_obj84470_) + (lambda (_klass85237_ _slot85238_ _field85239_) + (lambda (_obj85241_) (if (let () (declare (not safe)) - (class-instance? _klass84466_ _obj84470_)) + (class-instance? _klass85237_ _obj85241_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj84470_ _field84468_)) + (unchecked-slot-ref _obj85241_ _field85239_)) (let () (declare (not safe)) - (not-an-instance__% _obj84470_ _klass84466_ _slot84467_)))))) + (not-an-instance__% _obj85241_ _klass85237_ _slot85238_)))))) (define make-struct-subclass-slot-mutator - (lambda (_klass84459_ _slot84460_ _field84461_) - (lambda (_obj84463_ _val84464_) + (lambda (_klass85230_ _slot85231_ _field85232_) + (lambda (_obj85234_ _val85235_) (if (let () (declare (not safe)) - (class-instance? _klass84459_ _obj84463_)) + (class-instance? _klass85230_ _obj85234_)) (let () (declare (not safe)) - (unchecked-field-set! _obj84463_ _field84461_ _val84464_)) + (unchecked-field-set! _obj85234_ _field85232_ _val85235_)) (let () (declare (not safe)) - (not-an-instance__% _obj84463_ _klass84459_ _slot84460_)))))) + (not-an-instance__% _obj85234_ _klass85230_ _slot85231_)))))) (define make-class-cached-slot-accessor - (lambda (_klass84453_ _slot84454_ _field84455_) - (lambda (_obj84457_) - (if (let ((__tmp89668 - (let () (declare (not safe)) (##type-id _klass84453_)))) + (lambda (_klass85224_ _slot85225_ _field85226_) + (lambda (_obj85228_) + (if (let ((__tmp90669 + (let () (declare (not safe)) (##type-id _klass85224_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj84457_ __tmp89668)) + (##structure-direct-instance-of? _obj85228_ __tmp90669)) (let () (declare (not safe)) - (unchecked-field-ref _obj84457_ _field84455_)) + (unchecked-field-ref _obj85228_ _field85226_)) (if (let () (declare (not safe)) - (class-instance? _klass84453_ _obj84457_)) + (class-instance? _klass85224_ _obj85228_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj84457_ _slot84454_)) + (unchecked-slot-ref _obj85228_ _slot85225_)) (let () (declare (not safe)) (not-an-instance__% - _obj84457_ - _klass84453_ - _slot84454_))))))) + _obj85228_ + _klass85224_ + _slot85225_))))))) (define make-class-cached-slot-mutator - (lambda (_klass84446_ _slot84447_ _field84448_) - (lambda (_obj84450_ _val84451_) - (if (let ((__tmp89669 - (let () (declare (not safe)) (##type-id _klass84446_)))) + (lambda (_klass85217_ _slot85218_ _field85219_) + (lambda (_obj85221_ _val85222_) + (if (let ((__tmp90670 + (let () (declare (not safe)) (##type-id _klass85217_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj84450_ __tmp89669)) + (##structure-direct-instance-of? _obj85221_ __tmp90670)) (let () (declare (not safe)) - (unchecked-field-set! _obj84450_ _field84448_ _val84451_)) + (unchecked-field-set! _obj85221_ _field85219_ _val85222_)) (if (let () (declare (not safe)) - (class-instance? _klass84446_ _obj84450_)) + (class-instance? _klass85217_ _obj85221_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj84450_ _slot84447_ _val84451_)) + (unchecked-slot-set! _obj85221_ _slot85218_ _val85222_)) (let () (declare (not safe)) (not-an-instance__% - _obj84450_ - _klass84446_ - _slot84447_))))))) + _obj85221_ + _klass85217_ + _slot85218_))))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_klass84440_ _slot84441_ _field84442_) - (lambda (_obj84444_) - (if (let ((__tmp89670 - (let () (declare (not safe)) (##type-id _klass84440_)))) + (lambda (_klass85211_ _slot85212_ _field85213_) + (lambda (_obj85215_) + (if (let ((__tmp90671 + (let () (declare (not safe)) (##type-id _klass85211_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj84444_ __tmp89670)) + (##structure-direct-instance-of? _obj85215_ __tmp90671)) (let () (declare (not safe)) - (unchecked-field-ref _obj84444_ _field84442_)) + (unchecked-field-ref _obj85215_ _field85213_)) (let () (declare (not safe)) - (unchecked-slot-ref _obj84444_ _slot84441_)))))) + (unchecked-slot-ref _obj85215_ _slot85212_)))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_klass84433_ _slot84434_ _field84435_) - (lambda (_obj84437_ _val84438_) - (if (let ((__tmp89671 - (let () (declare (not safe)) (##type-id _klass84433_)))) + (lambda (_klass85204_ _slot85205_ _field85206_) + (lambda (_obj85208_ _val85209_) + (if (let ((__tmp90672 + (let () (declare (not safe)) (##type-id _klass85204_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj84437_ __tmp89671)) + (##structure-direct-instance-of? _obj85208_ __tmp90672)) (let () (declare (not safe)) - (unchecked-field-set! _obj84437_ _field84435_ _val84438_)) + (unchecked-field-set! _obj85208_ _field85206_ _val85209_)) (let () (declare (not safe)) - (unchecked-slot-set! _obj84437_ _slot84434_ _val84438_)))))) + (unchecked-slot-set! _obj85208_ _slot85205_ _val85209_)))))) (define class-slot-offset - (lambda (_klass84430_ _slot84431_) - (let ((__tmp89672 + (lambda (_klass85201_ _slot85202_) + (let ((__tmp90673 (let () (declare (not safe)) - (class-type-slot-table _klass84430_)))) + (##unchecked-structure-ref _klass85201_ '8 class::t '#f)))) (declare (not safe)) - (table-ref __tmp89672 _slot84431_ '#f)))) + (table-ref __tmp90673 _slot85202_ '#f)))) (define class-slot-ref - (lambda (_klass84424_ _obj84425_ _slot84426_) + (lambda (_klass85195_ _obj85196_ _slot85197_) (if (let () (declare (not safe)) - (class-instance? _klass84424_ _obj84425_)) - (let ((_off84428_ - (let ((__tmp89673 + (class-instance? _klass85195_ _obj85196_)) + (let ((_off85199_ + (let ((__tmp90674 (let () (declare (not safe)) - (object-type _obj84425_)))) + (object-type _obj85196_)))) (declare (not safe)) - (class-slot-offset __tmp89673 _slot84426_)))) + (class-slot-offset __tmp90674 _slot85197_)))) (declare (not safe)) (##unchecked-structure-ref - _obj84425_ - _off84428_ - _klass84424_ - _slot84426_)) + _obj85196_ + _off85199_ + _klass85195_ + _slot85197_)) (let () (declare (not safe)) - (not-an-instance__0 _obj84425_ _klass84424_))))) + (not-an-instance__0 _obj85196_ _klass85195_))))) (define class-slot-set! - (lambda (_klass84417_ _obj84418_ _slot84419_ _val84420_) + (lambda (_klass85188_ _obj85189_ _slot85190_ _val85191_) (if (let () (declare (not safe)) - (class-instance? _klass84417_ _obj84418_)) - (let ((_off84422_ - (let ((__tmp89674 + (class-instance? _klass85188_ _obj85189_)) + (let ((_off85193_ + (let ((__tmp90675 (let () (declare (not safe)) - (object-type _obj84418_)))) + (object-type _obj85189_)))) (declare (not safe)) - (class-slot-offset __tmp89674 _slot84419_)))) + (class-slot-offset __tmp90675 _slot85190_)))) (declare (not safe)) (##unchecked-structure-set! - _obj84418_ - _val84420_ - _off84422_ - _klass84417_ - _slot84419_)) + _obj85189_ + _val85191_ + _off85193_ + _klass85188_ + _slot85190_)) (let () (declare (not safe)) - (not-an-instance__0 _obj84418_ _klass84417_))))) + (not-an-instance__0 _obj85189_ _klass85188_))))) (define unchecked-field-ref - (lambda (_obj84414_ _off84415_) - (let ((__tmp89675 - (let () (declare (not safe)) (##structure-type _obj84414_)))) + (lambda (_obj85185_ _off85186_) + (let ((__tmp90676 + (let () (declare (not safe)) (##structure-type _obj85185_)))) (declare (not safe)) - (##unchecked-structure-ref _obj84414_ _off84415_ __tmp89675 '#f)))) + (##unchecked-structure-ref _obj85185_ _off85186_ __tmp90676 '#f)))) (define unchecked-field-set! - (lambda (_obj84410_ _off84411_ _val84412_) - (let ((__tmp89676 - (let () (declare (not safe)) (##structure-type _obj84410_)))) + (lambda (_obj85181_ _off85182_ _val85183_) + (let ((__tmp90677 + (let () (declare (not safe)) (##structure-type _obj85181_)))) (declare (not safe)) (##unchecked-structure-set! - _obj84410_ - _val84412_ - _off84411_ - __tmp89676 + _obj85181_ + _val85183_ + _off85182_ + __tmp90677 '#f)))) (define unchecked-slot-ref - (lambda (_obj84407_ _slot84408_) - (let ((__tmp89677 - (let ((__tmp89678 + (lambda (_obj85178_ _slot85179_) + (let ((__tmp90678 + (let ((__tmp90679 (let () (declare (not safe)) - (##structure-type _obj84407_)))) + (##structure-type _obj85178_)))) (declare (not safe)) - (class-slot-offset __tmp89678 _slot84408_)))) + (class-slot-offset __tmp90679 _slot85179_)))) (declare (not safe)) - (unchecked-field-ref _obj84407_ __tmp89677)))) + (unchecked-field-ref _obj85178_ __tmp90678)))) (define unchecked-slot-set! - (lambda (_obj84403_ _slot84404_ _val84405_) - (let ((__tmp89679 - (let ((__tmp89680 + (lambda (_obj85174_ _slot85175_ _val85176_) + (let ((__tmp90680 + (let ((__tmp90681 (let () (declare (not safe)) - (##structure-type _obj84403_)))) + (##structure-type _obj85174_)))) (declare (not safe)) - (class-slot-offset __tmp89680 _slot84404_)))) + (class-slot-offset __tmp90681 _slot85175_)))) (declare (not safe)) - (unchecked-field-set! _obj84403_ __tmp89679 _val84405_)))) + (unchecked-field-set! _obj85174_ __tmp90680 _val85176_)))) (define slot-ref__% - (lambda (_obj84379_ _slot84380_ _E84381_) - (if (let () (declare (not safe)) (object? _obj84379_)) - (let* ((_klass84383_ - (let () (declare (not safe)) (object-type _obj84379_))) - (_$e84386_ + (lambda (_obj85150_ _slot85151_ _E85152_) + (if (let () (declare (not safe)) (object? _obj85150_)) + (let* ((_klass85154_ + (let () (declare (not safe)) (object-type _obj85150_))) + (_$e85157_ (if (let () (declare (not safe)) - (class-type? _klass84383_)) + (##structure-instance-of? + _klass85154_ + 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass84383_ _slot84380_)) + (class-slot-offset _klass85154_ _slot85151_)) '#f))) - (if _$e84386_ - ((lambda (_off84389_) + (if _$e85157_ + ((lambda (_off85160_) (let () (declare (not safe)) - (unchecked-field-ref _obj84379_ _off84389_))) - _$e84386_) - (_E84381_ _obj84379_ _slot84380_))) - (_E84381_ _obj84379_ _slot84380_)))) + (unchecked-field-ref _obj85150_ _off85160_))) + _$e85157_) + (_E85152_ _obj85150_ _slot85151_))) + (_E85152_ _obj85150_ _slot85151_)))) (define slot-ref__0 - (lambda (_obj84394_ _slot84395_) - (let ((_E84397_ __slot-error)) + (lambda (_obj85165_ _slot85166_) + (let ((_E85168_ __slot-error)) (declare (not safe)) - (slot-ref__% _obj84394_ _slot84395_ _E84397_)))) + (slot-ref__% _obj85165_ _slot85166_ _E85168_)))) (define slot-ref - (lambda _g89682_ - (let ((_g89681_ (let () (declare (not safe)) (##length _g89682_)))) - (cond ((let () (declare (not safe)) (##fx= _g89681_ 2)) - (apply (lambda (_obj84394_ _slot84395_) + (lambda _g90683_ + (let ((_g90682_ (let () (declare (not safe)) (##length _g90683_)))) + (cond ((let () (declare (not safe)) (##fx= _g90682_ 2)) + (apply (lambda (_obj85165_ _slot85166_) (let () (declare (not safe)) - (slot-ref__0 _obj84394_ _slot84395_))) - _g89682_)) - ((let () (declare (not safe)) (##fx= _g89681_ 3)) - (apply (lambda (_obj84399_ _slot84400_ _E84401_) + (slot-ref__0 _obj85165_ _slot85166_))) + _g90683_)) + ((let () (declare (not safe)) (##fx= _g90682_ 3)) + (apply (lambda (_obj85170_ _slot85171_ _E85172_) (let () (declare (not safe)) - (slot-ref__% _obj84399_ _slot84400_ _E84401_))) - _g89682_)) + (slot-ref__% _obj85170_ _slot85171_ _E85172_))) + _g90683_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g89682_)))))) + _g90683_)))))) (define slot-set!__% - (lambda (_obj84351_ _slot84352_ _val84353_ _E84354_) - (if (let () (declare (not safe)) (object? _obj84351_)) - (let* ((_klass84356_ - (let () (declare (not safe)) (object-type _obj84351_))) - (_$e84359_ + (lambda (_obj85122_ _slot85123_ _val85124_ _E85125_) + (if (let () (declare (not safe)) (object? _obj85122_)) + (let* ((_klass85127_ + (let () (declare (not safe)) (object-type _obj85122_))) + (_$e85130_ (if (let () (declare (not safe)) - (class-type? _klass84356_)) + (##structure-instance-of? + _klass85127_ + 'gerbil#class::t)) (let () (declare (not safe)) - (class-slot-offset _klass84356_ _slot84352_)) + (class-slot-offset _klass85127_ _slot85123_)) '#f))) - (if _$e84359_ - ((lambda (_off84362_) + (if _$e85130_ + ((lambda (_off85133_) (let () (declare (not safe)) (unchecked-field-set! - _obj84351_ - _off84362_ - _val84353_))) - _$e84359_) - (_E84354_ _obj84351_ _slot84352_))) - (_E84354_ _obj84351_ _slot84352_)))) + _obj85122_ + _off85133_ + _val85124_))) + _$e85130_) + (_E85125_ _obj85122_ _slot85123_))) + (_E85125_ _obj85122_ _slot85123_)))) (define slot-set!__0 - (lambda (_obj84367_ _slot84368_ _val84369_) - (let ((_E84371_ __slot-error)) + (lambda (_obj85138_ _slot85139_ _val85140_) + (let ((_E85142_ __slot-error)) (declare (not safe)) - (slot-set!__% _obj84367_ _slot84368_ _val84369_ _E84371_)))) + (slot-set!__% _obj85138_ _slot85139_ _val85140_ _E85142_)))) (define slot-set! - (lambda _g89684_ - (let ((_g89683_ (let () (declare (not safe)) (##length _g89684_)))) - (cond ((let () (declare (not safe)) (##fx= _g89683_ 3)) - (apply (lambda (_obj84367_ _slot84368_ _val84369_) + (lambda _g90685_ + (let ((_g90684_ (let () (declare (not safe)) (##length _g90685_)))) + (cond ((let () (declare (not safe)) (##fx= _g90684_ 3)) + (apply (lambda (_obj85138_ _slot85139_ _val85140_) (let () (declare (not safe)) - (slot-set!__0 _obj84367_ _slot84368_ _val84369_))) - _g89684_)) - ((let () (declare (not safe)) (##fx= _g89683_ 4)) - (apply (lambda (_obj84373_ _slot84374_ _val84375_ _E84376_) + (slot-set!__0 _obj85138_ _slot85139_ _val85140_))) + _g90685_)) + ((let () (declare (not safe)) (##fx= _g90684_ 4)) + (apply (lambda (_obj85144_ _slot85145_ _val85146_ _E85147_) (let () (declare (not safe)) (slot-set!__% - _obj84373_ - _slot84374_ - _val84375_ - _E84376_))) - _g89684_)) + _obj85144_ + _slot85145_ + _val85146_ + _E85147_))) + _g90685_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g89684_)))))) + _g90685_)))))) (define __slot-error - (lambda (_obj84347_ _slot84348_) - (error '"Cannot find slot" 'object: _obj84347_ 'slot: _slot84348_))) + (lambda (_obj85118_ _slot85119_) + (error '"Cannot find slot" 'object: _obj85118_ 'slot: _slot85119_))) (define subclass? - (lambda (_maybe-sub-class84337_ _maybe-super-class84338_) - (let* ((_maybe-super-class-id84340_ + (lambda (_maybe-sub-class85108_ _maybe-super-class85109_) + (let* ((_maybe-super-class-id85111_ (let () (declare (not safe)) - (##type-id _maybe-super-class84338_))) - (_$e84342_ - (let ((__tmp89685 + (##type-id _maybe-super-class85109_))) + (_$e85113_ + (let ((__tmp90686 (let () (declare (not safe)) - (##type-id _maybe-sub-class84337_)))) + (##type-id _maybe-sub-class85108_)))) (declare (not safe)) - (eq? _maybe-super-class-id84340_ __tmp89685)))) - (if _$e84342_ - _$e84342_ - (let ((__tmp89687 - (lambda (_super-class84345_) - (let ((__tmp89688 + (eq? _maybe-super-class-id85111_ __tmp90686)))) + (if _$e85113_ + _$e85113_ + (let ((__tmp90688 + (lambda (_super-class85116_) + (let ((__tmp90689 (let () (declare (not safe)) - (##type-id _super-class84345_)))) + (##type-id _super-class85116_)))) (declare (not safe)) - (eq? __tmp89688 _maybe-super-class-id84340_)))) - (__tmp89686 + (eq? __tmp90689 _maybe-super-class-id85111_)))) + (__tmp90687 (let () (declare (not safe)) - (class-type-precedence-list _maybe-sub-class84337_)))) + (##unchecked-structure-ref + _maybe-sub-class85108_ + '6 + class::t + '#f)))) (declare (not safe)) - (ormap1 __tmp89687 __tmp89686)))))) + (ormap1 __tmp90688 __tmp90687)))))) (define object? ##structure?) (define object-type ##structure-type) (define direct-instance? - (lambda (_klass84334_ _obj84335_) - (let ((__tmp89689 - (let () (declare (not safe)) (##type-id _klass84334_)))) + (lambda (_klass85105_ _obj85106_) + (let ((__tmp90690 + (let () (declare (not safe)) (##type-id _klass85105_)))) (declare (not safe)) - (##structure-direct-instance-of? _obj84335_ __tmp89689)))) + (##structure-direct-instance-of? _obj85106_ __tmp90690)))) (define struct-instance? - (lambda (_klass84331_ _obj84332_) - (let ((__tmp89690 - (let () (declare (not safe)) (##type-id _klass84331_)))) + (lambda (_klass85102_ _obj85103_) + (let ((__tmp90691 + (let () (declare (not safe)) (##type-id _klass85102_)))) (declare (not safe)) - (##structure-instance-of? _obj84332_ __tmp89690)))) + (##structure-instance-of? _obj85103_ __tmp90691)))) (define class-instance? - (lambda (_klass84326_ _obj84327_) - (if (let () (declare (not safe)) (object? _obj84327_)) - (let ((_type84329_ - (let () (declare (not safe)) (object-type _obj84327_)))) - (if (let () (declare (not safe)) (class-type? _type84329_)) + (lambda (_klass85097_ _obj85098_) + (if (let () (declare (not safe)) (object? _obj85098_)) + (let ((_type85100_ + (let () (declare (not safe)) (object-type _obj85098_)))) + (if (let () + (declare (not safe)) + (##structure-instance-of? _type85100_ 'gerbil#class::t)) (let () (declare (not safe)) - (subclass? _type84329_ _klass84326_)) + (subclass? _type85100_ _klass85097_)) '#f)) '#f))) (define make-object - (lambda (_klass84321_ _k84322_) - (let ((_obj84324_ + (lambda (_klass85092_ _k85093_) + (let ((_obj85095_ (let () (declare (not safe)) - (##make-structure _klass84321_ _k84322_)))) - (let () (declare (not safe)) (object-fill! _obj84324_ '#f)) - _obj84324_))) + (##make-structure _klass85092_ _k85093_)))) + (let () (declare (not safe)) (object-fill! _obj85095_ '#f)) + _obj85095_))) (define object-fill! - (lambda (_obj84314_ _fill84315_) - (let _loop84317_ ((_i84319_ - (let ((__tmp89692 + (lambda (_obj85085_ _fill85086_) + (let _loop85088_ ((_i85090_ + (let ((__tmp90693 (let () (declare (not safe)) - (##structure-length _obj84314_)))) + (##structure-length _obj85085_)))) (declare (not safe)) - (##fx- __tmp89692 '1)))) - (if (let () (declare (not safe)) (##fx> _i84319_ '0)) + (##fx- __tmp90693 '1)))) + (if (let () (declare (not safe)) (##fx> _i85090_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _obj84314_ - _fill84315_ - _i84319_ + _obj85085_ + _fill85086_ + _i85090_ '#f '#f)) - (let ((__tmp89691 - (let () (declare (not safe)) (##fx- _i84319_ '1)))) + (let ((__tmp90692 + (let () (declare (not safe)) (##fx- _i85090_ '1)))) (declare (not safe)) - (_loop84317_ __tmp89691))) - _obj84314_)))) + (_loop85088_ __tmp90692))) + _obj85085_)))) (define new-instance - (lambda (_klass84312_) - (let ((__obj89609 - (let ((__tmp89693 - (let ((__tmp89694 + (lambda (_klass85083_) + (let ((__obj90599 + (let ((__tmp90694 + (let ((__tmp90695 (let () (declare (not safe)) - (class-type-slot-vector _klass84312_)))) + (##unchecked-structure-ref + _klass85083_ + '7 + class::t + '#f)))) (declare (not safe)) - (##vector-length __tmp89694)))) + (##vector-length __tmp90695)))) (declare (not safe)) - (##make-structure _klass84312_ __tmp89693)))) - (let () (declare (not safe)) (object-fill! __obj89609 '#f)) - __obj89609))) + (##make-structure _klass85083_ __tmp90694)))) + (let () (declare (not safe)) (object-fill! __obj90599 '#f)) + __obj90599))) (define make-instance - (lambda (_klass84302_ . _args84303_) - (let* ((_obj84305_ - (let () (declare (not safe)) (new-instance _klass84302_))) - (_$e84307_ + (lambda (_klass85073_ . _args85074_) + (let* ((_obj85076_ + (let () (declare (not safe)) (new-instance _klass85073_))) + (_$e85078_ (let () (declare (not safe)) - (class-type-constructor _klass84302_)))) - (if _$e84307_ - ((lambda (_kons-id84310_) + (##unchecked-structure-ref _klass85073_ '10 class::t '#f)))) + (if _$e85078_ + ((lambda (_kons-id85081_) (let () (declare (not safe)) (__constructor-init! - _klass84302_ - _kons-id84310_ - _obj84305_ - _args84303_))) - _$e84307_) - (if (let ((__tmp89698 - (let () - (declare (not safe)) - (class-type-struct? _klass84302_)))) + _klass85073_ + _kons-id85081_ + _obj85076_ + _args85074_))) + _$e85078_) + (if (let () (declare (not safe)) - (not __tmp89698)) + (class-type-metaclass? _klass85073_)) (let () (declare (not safe)) - (__class-instance-init! - _klass84302_ - _obj84305_ - _args84303_)) - (if (let ((__tmp89696 - (let ((__tmp89697 - (let () - (declare (not safe)) - (##structure-length _obj84305_)))) - (declare (not safe)) - (##fx- __tmp89697 '1))) - (__tmp89695 (length _args84303_))) - (declare (not safe)) - (##fx= __tmp89696 __tmp89695)) - (apply ##structure _klass84302_ _args84303_) - (error '"arguments don't match object size" - 'class: - _klass84302_ - 'slots: + (__metaclass-instance-init! + _klass85073_ + _obj85076_ + _args85074_)) + (if (let ((__tmp90699 (let () (declare (not safe)) - (class-type-slot-list _klass84302_)) - 'args: - _args84303_))))))) + (class-type-struct? _klass85073_)))) + (declare (not safe)) + (not __tmp90699)) + (let () + (declare (not safe)) + (__class-instance-init! + _klass85073_ + _obj85076_ + _args85074_)) + (if (let ((__tmp90697 + (let ((__tmp90698 + (let () + (declare (not safe)) + (##structure-length _obj85076_)))) + (declare (not safe)) + (##fx- __tmp90698 '1))) + (__tmp90696 (length _args85074_))) + (declare (not safe)) + (##fx= __tmp90697 __tmp90696)) + (apply ##structure _klass85073_ _args85074_) + (error '"arguments don't match object size" + 'class: + _klass85073_ + 'slots: + (let () + (declare (not safe)) + (class-type-slot-list _klass85073_)) + 'args: + _args85074_)))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_obj84299_ . _args84300_) - (if (let ((__tmp89700 (length _args84300_)) - (__tmp89699 + (lambda (_obj85070_ . _args85071_) + (if (let ((__tmp90701 (length _args85071_)) + (__tmp90700 (let () (declare (not safe)) - (##structure-length _obj84299_)))) + (##structure-length _obj85070_)))) (declare (not safe)) - (##fx< __tmp89700 __tmp89699)) + (##fx< __tmp90701 __tmp90700)) (let () (declare (not safe)) - (__struct-instance-init! _obj84299_ _args84300_)) + (__struct-instance-init! _obj85070_ _args85071_)) (error '"too many arguments for struct" 'object: - _obj84299_ + _obj85070_ 'args: - _args84300_)))) + _args85071_)))) (define __struct-instance-init! - (lambda (_obj84258_ _args84259_) - (let _lp84261_ ((_k84263_ '1) (_rest84264_ _args84259_)) - (let* ((_rest8426584273_ _rest84264_) - (_else8426784281_ (lambda () _obj84258_)) - (_K8426984287_ - (lambda (_rest84284_ _hd84285_) + (lambda (_obj85029_ _args85030_) + (let _lp85032_ ((_k85034_ '1) (_rest85035_ _args85030_)) + (let* ((_rest8503685044_ _rest85035_) + (_else8503885052_ (lambda () _obj85029_)) + (_K8504085058_ + (lambda (_rest85055_ _hd85056_) (let () (declare (not safe)) - (unchecked-field-set! _obj84258_ _k84263_ _hd84285_)) - (let ((__tmp89701 - (let () (declare (not safe)) (##fx+ _k84263_ '1)))) + (unchecked-field-set! _obj85029_ _k85034_ _hd85056_)) + (let ((__tmp90702 + (let () (declare (not safe)) (##fx+ _k85034_ '1)))) (declare (not safe)) - (_lp84261_ __tmp89701 _rest84284_))))) - (if (let () (declare (not safe)) (##pair? _rest8426584273_)) - (let ((_hd8427084290_ - (let () (declare (not safe)) (##car _rest8426584273_))) - (_tl8427184292_ - (let () (declare (not safe)) (##cdr _rest8426584273_)))) - (let* ((_hd84295_ _hd8427084290_) - (_rest84297_ _tl8427184292_)) + (_lp85032_ __tmp90702 _rest85055_))))) + (if (let () (declare (not safe)) (##pair? _rest8503685044_)) + (let ((_hd8504185061_ + (let () (declare (not safe)) (##car _rest8503685044_))) + (_tl8504285063_ + (let () (declare (not safe)) (##cdr _rest8503685044_)))) + (let* ((_hd85066_ _hd8504185061_) + (_rest85068_ _tl8504285063_)) (declare (not safe)) - (_K8426984287_ _rest84297_ _hd84295_))) - (let () (declare (not safe)) (_else8426784281_))))))) + (_K8504085058_ _rest85068_ _hd85066_))) + (let () (declare (not safe)) (_else8503885052_))))))) (define class-instance-init! - (lambda (_obj84255_ . _args84256_) - (let ((__tmp89702 - (let () (declare (not safe)) (object-type _obj84255_)))) + (lambda (_obj85026_ . _args85027_) + (let ((__tmp90703 + (let () (declare (not safe)) (object-type _obj85026_)))) (declare (not safe)) - (__class-instance-init! __tmp89702 _obj84255_ _args84256_)))) + (__class-instance-init! __tmp90703 _obj85026_ _args85027_)))) (define __class-instance-init! - (lambda (_klass84199_ _obj84200_ _args84201_) - (let _lp84203_ ((_rest84205_ _args84201_)) - (let* ((_rest8420684216_ _rest84205_) - (_else8420884224_ + (lambda (_klass84970_ _obj84971_ _args84972_) + (let _lp84974_ ((_rest84976_ _args84972_)) + (let* ((_rest8497784987_ _rest84976_) + (_else8497984995_ (lambda () - (if (let () (declare (not safe)) (null? _rest84205_)) - _obj84200_ + (if (let () (declare (not safe)) (null? _rest84976_)) + _obj84971_ (error '"unexpected class initializer arguments" 'class: - _klass84199_ + _klass84970_ 'rest: - _rest84205_)))) - (_K8421084236_ - (lambda (_rest84227_ _val84228_ _key84229_) - (let ((_$e84231_ + _rest84976_)))) + (_K8498185007_ + (lambda (_rest84998_ _val84999_ _key85000_) + (let ((_$e85002_ (let () (declare (not safe)) - (class-slot-offset _klass84199_ _key84229_)))) - (if _$e84231_ - ((lambda (_off84234_) + (class-slot-offset _klass84970_ _key85000_)))) + (if _$e85002_ + ((lambda (_off85005_) (let () (declare (not safe)) (unchecked-field-set! - _obj84200_ - _off84234_ - _val84228_)) + _obj84971_ + _off85005_ + _val84999_)) (let () (declare (not safe)) - (_lp84203_ _rest84227_))) - _$e84231_) + (_lp84974_ _rest84998_))) + _$e85002_) (error '"unknown slot" 'class: - _klass84199_ + _klass84970_ 'slot: - _key84229_)))))) - (if (let () (declare (not safe)) (##pair? _rest8420684216_)) - (let ((_hd8421184239_ - (let () (declare (not safe)) (##car _rest8420684216_))) - (_tl8421284241_ - (let () (declare (not safe)) (##cdr _rest8420684216_)))) - (let ((_key84244_ _hd8421184239_)) - (if (let () (declare (not safe)) (##pair? _tl8421284241_)) - (let ((_hd8421384246_ + _key85000_)))))) + (if (let () (declare (not safe)) (##pair? _rest8497784987_)) + (let ((_hd8498285010_ + (let () (declare (not safe)) (##car _rest8497784987_))) + (_tl8498385012_ + (let () (declare (not safe)) (##cdr _rest8497784987_)))) + (let ((_key85015_ _hd8498285010_)) + (if (let () (declare (not safe)) (##pair? _tl8498385012_)) + (let ((_hd8498485017_ (let () (declare (not safe)) - (##car _tl8421284241_))) - (_tl8421484248_ + (##car _tl8498385012_))) + (_tl8498585019_ (let () (declare (not safe)) - (##cdr _tl8421284241_)))) - (let* ((_val84251_ _hd8421384246_) - (_rest84253_ _tl8421484248_)) + (##cdr _tl8498385012_)))) + (let* ((_val85022_ _hd8498485017_) + (_rest85024_ _tl8498585019_)) (declare (not safe)) - (_K8421084236_ _rest84253_ _val84251_ _key84244_))) - (let () (declare (not safe)) (_else8420884224_))))) - (let () (declare (not safe)) (_else8420884224_))))))) + (_K8498185007_ _rest85024_ _val85022_ _key85015_))) + (let () (declare (not safe)) (_else8497984995_))))) + (let () (declare (not safe)) (_else8497984995_))))))) + (define __metaclass-instance-init! + (lambda (_klass84966_ _obj84967_ _args84968_) + (apply call-method + _klass84966_ + 'instance-init! + _obj84967_ + _args84968_))) (define constructor-init! - (lambda (_klass84194_ _kons-id84195_ _obj84196_ . _args84197_) + (lambda (_klass84961_ _kons-id84962_ _obj84963_ . _args84964_) (let () (declare (not safe)) (__constructor-init! - _klass84194_ - _kons-id84195_ - _obj84196_ - _args84197_)))) + _klass84961_ + _kons-id84962_ + _obj84963_ + _args84964_)))) (define __constructor-init! - (lambda (_klass84184_ _kons-id84185_ _obj84186_ _args84187_) - (let ((_$e84189_ + (lambda (_klass84951_ _kons-id84952_ _obj84953_ _args84954_) + (let ((_$e84956_ (let () (declare (not safe)) - (__find-method _klass84184_ _kons-id84185_)))) - (if _$e84189_ - ((lambda (_kons84192_) - (apply _kons84192_ _obj84186_ _args84187_) - _obj84186_) - _$e84189_) + (__find-method _klass84951_ _obj84953_ _kons-id84952_)))) + (if _$e84956_ + ((lambda (_kons84959_) + (apply _kons84959_ _obj84953_ _args84954_) + _obj84953_) + _$e84956_) (error '"missing constructor" 'class: - _klass84184_ + _klass84951_ 'method: - _kons-id84185_))))) + _kons-id84952_))))) (define struct-copy - (lambda (_struct84182_) - (if (let () (declare (not safe)) (##structure? _struct84182_)) + (lambda (_struct84949_) + (if (let () (declare (not safe)) (##structure? _struct84949_)) '#!void - (error '"not a structure" _struct84182_)) - (let () (declare (not safe)) (##structure-copy _struct84182_)))) + (error '"not a structure" _struct84949_)) + (let () (declare (not safe)) (##structure-copy _struct84949_)))) (define struct->list - (lambda (_obj84180_) - (if (let () (declare (not safe)) (object? _obj84180_)) - (let () (declare (not safe)) (##vector->list _obj84180_)) - (error '"not an object" _obj84180_)))) + (lambda (_obj84947_) + (if (let () (declare (not safe)) (object? _obj84947_)) + (let () (declare (not safe)) (##vector->list _obj84947_)) + (error '"not an object" _obj84947_)))) (define class->list - (lambda (_obj84167_) - (if (let () (declare (not safe)) (object? _obj84167_)) - (let ((_klass84169_ - (let () (declare (not safe)) (object-type _obj84167_)))) - (if (let () (declare (not safe)) (class-type? _klass84169_)) - (let ((_slot-vector84171_ + (lambda (_obj84934_) + (if (let () (declare (not safe)) (object? _obj84934_)) + (let ((_klass84936_ + (let () (declare (not safe)) (object-type _obj84934_)))) + (if (let () + (declare (not safe)) + (##structure-instance-of? _klass84936_ 'gerbil#class::t)) + (let ((_slot-vector84938_ (let () (declare (not safe)) - (class-type-slot-vector _klass84169_)))) - (let _loop84173_ ((_index84175_ - (let ((__tmp89708 + (##unchecked-structure-ref + _klass84936_ + '7 + class::t + '#f)))) + (let _loop84940_ ((_index84942_ + (let ((__tmp90709 (let () (declare (not safe)) (##vector-length - _slot-vector84171_)))) + _slot-vector84938_)))) (declare (not safe)) - (##fx- __tmp89708 '1))) - (_plist84176_ '())) - (if (let () (declare (not safe)) (##fx< _index84175_ '1)) + (##fx- __tmp90709 '1))) + (_plist84943_ '())) + (if (let () (declare (not safe)) (##fx< _index84942_ '1)) (let () (declare (not safe)) - (cons _klass84169_ _plist84176_)) - (let ((_slot84178_ + (cons _klass84936_ _plist84943_)) + (let ((_slot84945_ (let () (declare (not safe)) (##vector-ref - _slot-vector84171_ - _index84175_)))) - (let ((__tmp89707 + _slot-vector84938_ + _index84942_)))) + (let ((__tmp90708 (let () (declare (not safe)) - (##fx- _index84175_ '1))) - (__tmp89703 - (let ((__tmp89706 - (symbol->keyword _slot84178_)) - (__tmp89704 - (let ((__tmp89705 + (##fx- _index84942_ '1))) + (__tmp90704 + (let ((__tmp90707 + (symbol->keyword _slot84945_)) + (__tmp90705 + (let ((__tmp90706 (let () (declare (not safe)) (unchecked-field-ref - _obj84167_ - _index84175_)))) + _obj84934_ + _index84942_)))) (declare (not safe)) - (cons __tmp89705 _plist84176_)))) + (cons __tmp90706 _plist84943_)))) (declare (not safe)) - (cons __tmp89706 __tmp89704)))) + (cons __tmp90707 __tmp90705)))) (declare (not safe)) - (_loop84173_ __tmp89707 __tmp89703)))))) + (_loop84940_ __tmp90708 __tmp90704)))))) (error '"not a class type" 'object: - _obj84167_ + _obj84934_ 'class: - _klass84169_))) - (error '"not an object" _obj84167_)))) + _klass84936_))) + (error '"not an object" _obj84934_)))) (define call-method - (lambda (_obj84158_ _id84159_ . _args84160_) - (let ((_$e84162_ + (lambda (_obj84925_ _id84926_ . _args84927_) + (let ((_$e84929_ (let () (declare (not safe)) - (method-ref _obj84158_ _id84159_)))) - (if _$e84162_ - ((lambda (_method84165_) - (apply _method84165_ _obj84158_ _args84160_)) - _$e84162_) + (method-ref _obj84925_ _id84926_)))) + (if _$e84929_ + ((lambda (_method84932_) + (apply _method84932_ _obj84925_ _args84927_)) + _$e84929_) (error '"cannot find method" 'object: - _obj84158_ + _obj84925_ 'method: - _id84159_))))) + _id84926_))))) (define __builtin-type-methods (make-table 'test: eq?)) (define method-ref - (lambda (_obj84155_ _id84156_) - (if (let () (declare (not safe)) (object? _obj84155_)) - (let ((__tmp89709 - (let () (declare (not safe)) (object-type _obj84155_)))) + (lambda (_obj84922_ _id84923_) + (if (let () (declare (not safe)) (object? _obj84922_)) + (let ((__tmp90710 + (let () (declare (not safe)) (object-type _obj84922_)))) (declare (not safe)) - (find-method __tmp89709 _id84156_)) + (find-method __tmp90710 _obj84922_ _id84923_)) '#f))) (define checked-method-ref - (lambda (_obj84149_ _id84150_) - (let ((_$e84152_ + (lambda (_obj84916_ _id84917_) + (let ((_$e84919_ (let () (declare (not safe)) - (method-ref _obj84149_ _id84150_)))) - (if _$e84152_ - _$e84152_ + (method-ref _obj84916_ _id84917_)))) + (if _$e84919_ + _$e84919_ (error '"missing method" 'object: - _obj84149_ + _obj84916_ 'method: - _id84150_))))) + _id84917_))))) (define bound-method-ref - (lambda (_obj84139_ _id84140_) - (let ((_$e84142_ + (lambda (_obj84906_ _id84907_) + (let ((_$e84909_ (let () (declare (not safe)) - (method-ref _obj84139_ _id84140_)))) - (if _$e84142_ - ((lambda (_method84145_) - (lambda _args84147_ - (apply _method84145_ _obj84139_ _args84147_))) - _$e84142_) + (method-ref _obj84906_ _id84907_)))) + (if _$e84909_ + ((lambda (_method84912_) + (lambda _args84914_ + (apply _method84912_ _obj84906_ _args84914_))) + _$e84909_) '#f)))) (define checked-bound-method-ref - (lambda (_obj84132_ _id84133_) - (let ((_method84135_ + (lambda (_obj84899_ _id84900_) + (let ((_method84902_ (let () (declare (not safe)) - (checked-method-ref _obj84132_ _id84133_)))) - (lambda _args84137_ (apply _method84135_ _obj84132_ _args84137_))))) + (checked-method-ref _obj84899_ _id84900_)))) + (lambda _args84904_ (apply _method84902_ _obj84899_ _args84904_))))) (define find-method - (lambda (_klass84129_ _id84130_) - (if (let () (declare (not safe)) (class-type? _klass84129_)) + (lambda (_klass84895_ _obj84896_ _id84897_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _klass84895_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass84129_ _id84130_)) + (__find-method _klass84895_ _obj84896_ _id84897_)) (let () (declare (not safe)) - (builtin-find-method _klass84129_ _id84130_))))) + (builtin-find-method _klass84895_ _obj84896_ _id84897_))))) (define __find-method - (lambda (_klass84123_ _id84124_) - (let ((_$e84126_ + (lambda (_klass84888_ _obj84889_ _id84890_) + (let ((_$e84892_ (let () (declare (not safe)) - (direct-method-ref _klass84123_ _id84124_)))) - (if _$e84126_ - _$e84126_ + (direct-method-ref _klass84888_ _obj84889_ _id84890_)))) + (if _$e84892_ + _$e84892_ (if (let () (declare (not safe)) - (class-type-sealed? _klass84123_)) + (class-type-sealed? _klass84888_)) '#f (let () (declare (not safe)) - (mixin-method-ref _klass84123_ _id84124_))))))) + (mixin-method-ref _klass84888_ _obj84889_ _id84890_))))))) (define class-find-method - (lambda (_klass84120_ _id84121_) - (if (let () (declare (not safe)) (class-type? _klass84120_)) + (lambda (_klass84884_ _obj84885_ _id84886_) + (if (let () + (declare (not safe)) + (##structure-instance-of? _klass84884_ 'gerbil#class::t)) (let () (declare (not safe)) - (__find-method _klass84120_ _id84121_)) + (__find-method _klass84884_ _obj84885_ _id84886_)) '#f))) (define mixin-find-method - (lambda (_mixins84113_ _id84114_) - (let ((__tmp89710 - (lambda (_g8411584117_) + (lambda (_mixins84876_ _obj84877_ _id84878_) + (let ((__tmp90711 + (lambda (_g8487984881_) (let () (declare (not safe)) - (direct-method-ref _g8411584117_ _id84114_))))) + (direct-method-ref _g8487984881_ _obj84877_ _id84878_))))) (declare (not safe)) - (ormap1 __tmp89710 _mixins84113_)))) + (ormap1 __tmp90711 _mixins84876_)))) (define builtin-find-method - (lambda (_klass84107_ _id84108_) - (if (let () (declare (not safe)) (##type? _klass84107_)) - (let ((_$e84110_ + (lambda (_klass84869_ _obj84870_ _id84871_) + (if (let () (declare (not safe)) (##type? _klass84869_)) + (let ((_$e84873_ (let () (declare (not safe)) - (builtin-method-ref _klass84107_ _id84108_)))) - (if _$e84110_ - _$e84110_ - (let ((__tmp89711 + (builtin-method-ref _klass84869_ _obj84870_ _id84871_)))) + (if _$e84873_ + _$e84873_ + (let ((__tmp90712 (let () (declare (not safe)) - (##type-super _klass84107_)))) + (##type-super _klass84869_)))) (declare (not safe)) - (builtin-find-method __tmp89711 _id84108_)))) + (builtin-find-method __tmp90712 _obj84870_ _id84871_)))) '#f))) (define direct-method-ref - (lambda (_klass84099_ _id84100_) - (let ((_$e84102_ - (let () - (declare (not safe)) - (class-type-methods _klass84099_)))) - (if _$e84102_ - ((lambda (_ht84105_) + (lambda (_klass84846_ _obj84847_ _id84848_) + (letrec ((_metaclass-resolve-method84850_ + (lambda () + (let ((__method90600 + (let () + (declare (not safe)) + (method-ref _klass84846_ 'direct-method-ref)))) + (if __method90600 + (__method90600 _klass84846_ _obj84847_ _id84848_) + (error '"Missing method" + _klass84846_ + 'direct-method-ref))))) + (_metaclass-resolve-method!84851_ + (lambda () + (let ((_method84866_ + (let () + (declare (not safe)) + (_metaclass-resolve-method84850_)))) + (let ((__tmp90714 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _klass84846_ + '11 + class::t + '#f))) + (__tmp90713 (if _method84866_ 'resolved 'unknown))) + (declare (not safe)) + (table-set! __tmp90714 _id84848_ __tmp90713)) + _method84866_)))) + (let ((_$e84853_ (let () (declare (not safe)) - (table-ref _ht84105_ _id84100_ '#f))) - _$e84102_) - '#f)))) + (##unchecked-structure-ref _klass84846_ '11 class::t '#f)))) + (if _$e84853_ + ((lambda (_ht84856_) + (let ((_method84858_ + (let () + (declare (not safe)) + (table-ref _ht84856_ _id84848_ '#f)))) + (if (let () + (declare (not safe)) + (procedure? _method84858_)) + _method84858_ + (if (let () + (declare (not safe)) + (class-type-metaclass? _klass84846_)) + (let ((_$e84860_ _method84858_)) + (if (let () + (declare (not safe)) + (eq? 'resolved _$e84860_)) + (let () + (declare (not safe)) + (_metaclass-resolve-method84850_)) + (if (let () + (declare (not safe)) + (eq? 'uknown _$e84860_)) + '#f + (let () + (declare (not safe)) + (_metaclass-resolve-method!84851_))))) + '#f)))) + _$e84853_) + (if (let () + (declare (not safe)) + (class-type-metaclass? _klass84846_)) + (let ((_tab84863_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass84846_ + _tab84863_ + '11 + class::t + '#f)) + (let () + (declare (not safe)) + (_metaclass-resolve-method!84851_))) + '#f)))))) (define mixin-method-ref - (lambda (_klass84096_ _id84097_) - (let ((__tmp89712 - (let () - (declare (not safe)) - (class-type-precedence-list _klass84096_)))) + (lambda (_klass84842_ _obj84843_ _id84844_) + (let ((__tmp90715 (##structure-ref _klass84842_ '6 class::t '#f))) (declare (not safe)) - (mixin-find-method __tmp89712 _id84097_)))) + (mixin-find-method __tmp90715 _obj84843_ _id84844_)))) (define builtin-method-ref - (lambda (_klass84088_ _id84089_) - (let ((_$e84091_ - (let ((__tmp89713 - (let () (declare (not safe)) (##type-id _klass84088_)))) + (lambda (_klass84833_ _obj84834_ _id84835_) + (let ((_$e84837_ + (let ((__tmp90716 + (let () (declare (not safe)) (##type-id _klass84833_)))) (declare (not safe)) - (table-ref __builtin-type-methods __tmp89713 '#f)))) - (if _$e84091_ - ((lambda (_mtab84094_) + (table-ref __builtin-type-methods __tmp90716 '#f)))) + (if _$e84837_ + ((lambda (_mtab84840_) (let () (declare (not safe)) - (table-ref _mtab84094_ _id84089_ '#f))) - _$e84091_) + (table-ref _mtab84840_ _id84835_ '#f))) + _$e84837_) '#f)))) (define bind-method!__% - (lambda (_klass84054_ _id84055_ _proc84056_ _rebind?84057_) - (letrec ((_bind!84059_ - (lambda (_ht84072_) - (if (and (let () (declare (not safe)) (not _rebind?84057_)) + (lambda (_klass84799_ _id84800_ _proc84801_ _rebind?84802_) + (letrec ((_bind!84804_ + (lambda (_ht84817_) + (if (and (let () (declare (not safe)) (not _rebind?84802_)) (let () (declare (not safe)) - (table-ref _ht84072_ _id84055_ '#f))) + (table-ref _ht84817_ _id84800_ '#f))) (error '"method already bound" 'class: - _klass84054_ + _klass84799_ 'method: - _id84055_) + _id84800_) (let () (declare (not safe)) - (table-set! _ht84072_ _id84055_ _proc84056_)))))) - (if (let () (declare (not safe)) (procedure? _proc84056_)) + (table-set! _ht84817_ _id84800_ _proc84801_)))))) + (if (let () (declare (not safe)) (procedure? _proc84801_)) '#!void - (error '"bad method; expected procedure" _proc84056_)) - (if (let () (declare (not safe)) (class-type? _klass84054_)) - (let ((_ht84061_ + (error '"bad method; expected procedure" _proc84801_)) + (if (let () + (declare (not safe)) + (##structure-instance-of? _klass84799_ 'gerbil#class::t)) + (let ((_ht84806_ (let () (declare (not safe)) - (class-type-methods _klass84054_)))) - (if _ht84061_ - (let () (declare (not safe)) (_bind!84059_ _ht84061_)) - (let ((_ht84063_ + (##unchecked-structure-ref + _klass84799_ + '11 + class::t + '#f)))) + (if _ht84806_ + (let () (declare (not safe)) (_bind!84804_ _ht84806_)) + (let ((_ht84808_ (let () (declare (not safe)) (make-table 'test: eq?)))) (let () (declare (not safe)) - (class-type-methods-set! _klass84054_ _ht84063_)) - (let () (declare (not safe)) (_bind!84059_ _ht84063_))))) - (if (let () (declare (not safe)) (##type? _klass84054_)) - (let ((_ht84070_ - (let ((_$e84065_ - (let ((__tmp89714 + (##unchecked-structure-set! + _klass84799_ + _ht84808_ + '11 + class::t + '#f)) + (let () (declare (not safe)) (_bind!84804_ _ht84808_))))) + (if (let () (declare (not safe)) (##type? _klass84799_)) + (let ((_ht84815_ + (let ((_$e84810_ + (let ((__tmp90717 (let () (declare (not safe)) - (##type-id _klass84054_)))) + (##type-id _klass84799_)))) (declare (not safe)) (table-ref __builtin-type-methods - __tmp89714 + __tmp90717 '#f)))) - (if _$e84065_ - _$e84065_ - (let ((_ht84068_ + (if _$e84810_ + _$e84810_ + (let ((_ht84813_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (let ((__tmp89715 + (let ((__tmp90718 (let () (declare (not safe)) - (##type-id _klass84054_)))) + (##type-id _klass84799_)))) (declare (not safe)) (table-set! __builtin-type-methods - __tmp89715 - _ht84068_)) - _ht84068_))))) + __tmp90718 + _ht84813_)) + _ht84813_))))) (declare (not safe)) - (_bind!84059_ _ht84070_)) + (_bind!84804_ _ht84815_)) (error '"bad class; expected class or builtin type" - _klass84054_)))))) + _klass84799_)))))) (define bind-method!__0 - (lambda (_klass84077_ _id84078_ _proc84079_) - (let ((_rebind?84081_ '#t)) + (lambda (_klass84822_ _id84823_ _proc84824_) + (let ((_rebind?84826_ '#t)) (declare (not safe)) (bind-method!__% - _klass84077_ - _id84078_ - _proc84079_ - _rebind?84081_)))) + _klass84822_ + _id84823_ + _proc84824_ + _rebind?84826_)))) (define bind-method! - (lambda _g89717_ - (let ((_g89716_ (let () (declare (not safe)) (##length _g89717_)))) - (cond ((let () (declare (not safe)) (##fx= _g89716_ 3)) - (apply (lambda (_klass84077_ _id84078_ _proc84079_) + (lambda _g90720_ + (let ((_g90719_ (let () (declare (not safe)) (##length _g90720_)))) + (cond ((let () (declare (not safe)) (##fx= _g90719_ 3)) + (apply (lambda (_klass84822_ _id84823_ _proc84824_) (let () (declare (not safe)) (bind-method!__0 - _klass84077_ - _id84078_ - _proc84079_))) - _g89717_)) - ((let () (declare (not safe)) (##fx= _g89716_ 4)) - (apply (lambda (_klass84083_ - _id84084_ - _proc84085_ - _rebind?84086_) + _klass84822_ + _id84823_ + _proc84824_))) + _g90720_)) + ((let () (declare (not safe)) (##fx= _g90719_ 4)) + (apply (lambda (_klass84828_ + _id84829_ + _proc84830_ + _rebind?84831_) (let () (declare (not safe)) (bind-method!__% - _klass84083_ - _id84084_ - _proc84085_ - _rebind?84086_))) - _g89717_)) + _klass84828_ + _id84829_ + _proc84830_ + _rebind?84831_))) + _g90720_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g89717_)))))) + _g90720_)))))) (define __method-specializers (make-table 'test: eq?)) (define bind-specializer! - (lambda (_proc84050_ _specializer84051_) + (lambda (_proc84795_ _specializer84796_) (let () (declare (not safe)) - (table-set! __method-specializers _proc84050_ _specializer84051_)))) + (table-set! __method-specializers _proc84795_ _specializer84796_)))) (define seal-class! - (lambda (_klass84017_) - (letrec ((_collect-methods!84019_ - (lambda (_mtab84035_) - (letrec ((_merge!84037_ - (lambda (_tab84045_) - (let ((__tmp89718 - (lambda (_id84047_ _proc84048_) + (lambda (_klass84762_) + (letrec ((_collect-methods!84764_ + (lambda (_mtab84780_) + (letrec ((_merge!84782_ + (lambda (_tab84790_) + (let ((__tmp90721 + (lambda (_id84792_ _proc84793_) (let () (declare (not safe)) (table-set! - _mtab84035_ - _id84047_ - _proc84048_))))) + _mtab84780_ + _id84792_ + _proc84793_))))) (declare (not safe)) - (table-for-each __tmp89718 _tab84045_)))) - (_collect-direct-methods!84038_ - (lambda (_klass84040_) - (let ((_$e84042_ + (table-for-each __tmp90721 _tab84790_)))) + (_collect-direct-methods!84783_ + (lambda (_klass84785_) + (let ((_$e84787_ (let () (declare (not safe)) - (class-type-methods _klass84040_)))) - (if _$e84042_ + (##unchecked-structure-ref + _klass84785_ + '11 + class::t + '#f)))) + (if _$e84787_ (let () (declare (not safe)) - (_merge!84037_ _$e84042_)) + (_merge!84782_ _$e84787_)) '#!void))))) (for-each - _collect-direct-methods!84038_ + _collect-direct-methods!84783_ (reverse (let () (declare (not safe)) - (class-precedence-list _klass84017_)))))))) - (if (let () (declare (not safe)) (class-type? _klass84017_)) + (class-precedence-list _klass84762_)))))))) + (if (let () + (declare (not safe)) + (##structure-instance-of? _klass84762_ 'gerbil#class::t)) (if (let () (declare (not safe)) - (class-type-sealed? _klass84017_)) + (class-type-sealed? _klass84762_)) '#!void (begin (if (let () (declare (not safe)) - (class-type-final? _klass84017_)) + (class-type-final? _klass84762_)) '#!void - (error '"cannot seal non-final class" _klass84017_)) - (let ((_vtab84021_ - (let () - (declare (not safe)) - (make-table 'test: eq?))) - (_mtab84022_ - (let () - (declare (not safe)) - (make-table 'test: eq?)))) - (let () - (declare (not safe)) - (_collect-methods!84019_ _mtab84022_)) - (let ((__tmp89719 - (lambda (_id84024_ _proc84025_) - (let ((_$e84027_ - (let () - (declare (not safe)) - (table-ref - __method-specializers - _proc84025_ - '#f)))) - (if _$e84027_ - ((lambda (_specializer84030_) - (let ((_proc84032_ - (_specializer84030_ - _klass84017_)) - (_gid84033_ - (let ((__tmp89720 - (let () - (declare (not safe)) - (##type-id - _klass84017_)))) - (declare (not safe)) - (make-symbol__1 - __tmp89720 - '"::[" - _id84024_ - '"]")))) - (eval (let ((__tmp89721 - (let ((__tmp89722 - (let ((__tmp89723 + (error '"cannot seal non-final class" _klass84762_)) + (if (let () + (declare (not safe)) + (class-type-metaclass? _klass84762_)) + (let ((__method90601 + (let () + (declare (not safe)) + (method-ref _klass84762_ 'seal-class!)))) + (if __method90601 + (__method90601 _klass84762_) + (error '"Missing method" + _klass84762_ + 'seal-class!))) + (if (let ((__tmp90728 + (let () + (declare (not safe)) + (##unchecked-structure-ref + _klass84762_ + '6 + class::t + '#f)))) + (declare (not safe)) + (find class-type-metaclass? __tmp90728)) + (error '"cannot seal class that extends metaclass without a metaclass" + _klass84762_) + (let ((_vtab84766_ + (let () + (declare (not safe)) + (make-table 'test: eq?))) + (_mtab84767_ + (let () + (declare (not safe)) + (make-table 'test: eq?)))) + (let () + (declare (not safe)) + (_collect-methods!84764_ _mtab84767_)) + (let ((__tmp90722 + (lambda (_id84769_ _proc84770_) + (let ((_$e84772_ + (let () + (declare (not safe)) + (table-ref + __method-specializers + _proc84770_ + '#f)))) + (if _$e84772_ + ((lambda (_specializer84775_) + (let ((_proc84777_ + (_specializer84775_ + _klass84762_)) + (_gid84778_ + (let ((__tmp90723 + (let () + (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp89724 - (let () - (declare (not safe)) - (cons _proc84032_ '())))) - (declare (not safe)) - (cons 'quote __tmp89724)))) - (declare (not safe)) - (cons __tmp89723 '())))) + (not safe)) + (##type-id _klass84762_)))) (declare (not safe)) - (cons _gid84033_ __tmp89722)))) + (make-symbol__1 __tmp90723 '"::[" _id84769_ '"]")))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons 'def __tmp89721))) - (let () - (declare (not safe)) - (table-set! - _vtab84021_ - _id84024_ - _proc84032_)))) - _$e84027_) - (let () + (eval (let ((__tmp90724 + (let ((__tmp90725 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp90726 + (let ((__tmp90727 + (let () + (declare (not safe)) + (cons _proc84777_ '())))) (declare (not safe)) - (table-set! - _vtab84021_ - _id84024_ - _proc84025_))))))) - (declare (not safe)) - (table-for-each __tmp89719 _mtab84022_)) - (let () - (declare (not safe)) - (class-type-methods-set! _klass84017_ _vtab84021_)) - (let () - (declare (not safe)) - (class-type-seal! _klass84017_))))) + (cons 'quote __tmp90727)))) + (declare (not safe)) + (cons __tmp90726 '())))) + (declare (not safe)) + (cons _gid84778_ __tmp90725)))) + (declare (not safe)) + (cons 'def __tmp90724))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let () + (declare (not safe)) + (table-set! + _vtab84766_ + _id84769_ + _proc84777_)))) + _$e84772_) + (let () + (declare (not safe)) + (table-set! + _vtab84766_ + _id84769_ + _proc84770_))))))) + (declare (not safe)) + (table-for-each __tmp90722 _mtab84767_)) + (let () + (declare (not safe)) + (##unchecked-structure-set! + _klass84762_ + _vtab84766_ + '11 + class::t + '#f))))) + (let () + (declare (not safe)) + (&class-type-seal! _klass84762_)))) '#!void)))) (define next-method - (lambda (_subklass83966_ _obj83967_ _id83968_) - (let ((_klass83970_ - (let () (declare (not safe)) (object-type _obj83967_))) - (_type-id83971_ - (let () (declare (not safe)) (##type-id _subklass83966_)))) - (if (let () (declare (not safe)) (class-type? _klass83970_)) - (let _lp83973_ ((_rest83975_ + (lambda (_subklass84711_ _obj84712_ _id84713_) + (let ((_klass84715_ + (let () (declare (not safe)) (object-type _obj84712_))) + (_type-id84716_ + (let () (declare (not safe)) (##type-id _subklass84711_)))) + (if (let () + (declare (not safe)) + (##structure-instance-of? _klass84715_ 'gerbil#class::t)) + (let _lp84718_ ((_rest84720_ (let () (declare (not safe)) - (class-precedence-list _klass83970_)))) - (let* ((_rest8397683984_ _rest83975_) - (_else8397883992_ (lambda () '#f)) - (_K8398083998_ - (lambda (_rest83995_ _klass83996_) - (if (let ((__tmp89727 + (class-precedence-list _klass84715_)))) + (let* ((_rest8472184729_ _rest84720_) + (_else8472384737_ (lambda () '#f)) + (_K8472584743_ + (lambda (_rest84740_ _klass84741_) + (if (let ((__tmp90731 (let () (declare (not safe)) - (##type-id _klass83996_)))) + (##type-id _klass84741_)))) (declare (not safe)) - (eq? _type-id83971_ __tmp89727)) + (eq? _type-id84716_ __tmp90731)) (let () (declare (not safe)) - (mixin-find-method _rest83995_ _id83968_)) + (mixin-find-method + _rest84740_ + _obj84712_ + _id84713_)) (let () (declare (not safe)) - (_lp83973_ _rest83995_)))))) - (if (let () (declare (not safe)) (##pair? _rest8397683984_)) - (let ((_hd8398184001_ + (_lp84718_ _rest84740_)))))) + (if (let () (declare (not safe)) (##pair? _rest8472184729_)) + (let ((_hd8472684746_ (let () (declare (not safe)) - (##car _rest8397683984_))) - (_tl8398284003_ + (##car _rest8472184729_))) + (_tl8472784748_ (let () (declare (not safe)) - (##cdr _rest8397683984_)))) - (let* ((_klass84006_ _hd8398184001_) - (_rest84008_ _tl8398284003_)) + (##cdr _rest8472184729_)))) + (let* ((_klass84751_ _hd8472684746_) + (_rest84753_ _tl8472784748_)) (declare (not safe)) - (_K8398083998_ _rest84008_ _klass84006_))) - (let () (declare (not safe)) (_else8397883992_))))) - (if (let () (declare (not safe)) (##type? _klass83970_)) - (let _lp84010_ ((_klass84012_ _klass83970_)) - (if (let ((__tmp89726 + (_K8472584743_ _rest84753_ _klass84751_))) + (let () (declare (not safe)) (_else8472384737_))))) + (if (let () (declare (not safe)) (##type? _klass84715_)) + (let _lp84755_ ((_klass84757_ _klass84715_)) + (if (let ((__tmp90730 (let () (declare (not safe)) - (##type-id _klass84012_)))) + (##type-id _klass84757_)))) (declare (not safe)) - (eq? _type-id83971_ __tmp89726)) - (let ((__tmp89725 + (eq? _type-id84716_ __tmp90730)) + (let ((__tmp90729 (let () (declare (not safe)) - (##type-super _klass84012_)))) + (##type-super _klass84757_)))) (declare (not safe)) - (builtin-find-method __tmp89725 _id83968_)) - (let ((_$e84014_ + (builtin-find-method + __tmp90729 + _obj84712_ + _id84713_)) + (let ((_$e84759_ (let () (declare (not safe)) - (##type-super _klass84012_)))) - (if _$e84014_ + (##type-super _klass84757_)))) + (if _$e84759_ (let () (declare (not safe)) - (_lp84010_ _$e84014_)) + (_lp84755_ _$e84759_)) '#f)))) '#f))))) (define call-next-method - (lambda (_subklass83956_ _obj83957_ _id83958_ . _args83959_) - (let ((_$e83961_ + (lambda (_subklass84701_ _obj84702_ _id84703_ . _args84704_) + (let ((_$e84706_ (let () (declare (not safe)) - (next-method _subklass83956_ _obj83957_ _id83958_)))) - (if _$e83961_ - ((lambda (_methodf83964_) - (apply _methodf83964_ _obj83957_ _args83959_)) - _$e83961_) + (next-method _subklass84701_ _obj84702_ _id84703_)))) + (if _$e84706_ + ((lambda (_methodf84709_) + (apply _methodf84709_ _obj84702_ _args84704_)) + _$e84706_) (error '"cannot find next method" 'object: - _obj83957_ + _obj84702_ 'method: - _id83958_))))) - (define write-style (lambda (_we83954_) (macro-writeenv-style _we83954_))) + _id84703_))))) + (define write-style (lambda (_we84699_) (macro-writeenv-style _we84699_))) (define write-object - (lambda (_we83946_ _obj83947_) - (let ((_$e83949_ - (let () (declare (not safe)) (method-ref _obj83947_ ':wr)))) - (if _$e83949_ - ((lambda (_method83952_) (_method83952_ _obj83947_ _we83946_)) - _$e83949_) + (lambda (_we84691_ _obj84692_) + (let ((_$e84694_ + (let () (declare (not safe)) (method-ref _obj84692_ ':wr)))) + (if _$e84694_ + ((lambda (_method84697_) (_method84697_ _obj84692_ _we84691_)) + _$e84694_) (let () (declare (not safe)) - (##default-wr _we83946_ _obj83947_)))))) + (##default-wr _we84691_ _obj84692_)))))) (let () (declare (not safe)) (##wr-set! write-object)))) diff --git a/src/bootstrap/gerbil/runtime/mop__1.scm b/src/bootstrap/gerbil/runtime/mop__1.scm index b84e21052..ccfeef81d 100644 --- a/src/bootstrap/gerbil/runtime/mop__1.scm +++ b/src/bootstrap/gerbil/runtime/mop__1.scm @@ -1,422 +1,1226 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_$stx83666_) - (let* ((_g8367083688_ - (lambda (_g8367183684_) + (lambda (_$stx83877_) + (let* ((___stx9047790478_ _$stx83877_) + (_g8388283911_ + (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8367183684_))) - (_g8366983744_ - (lambda (_g8367183692_) - (if (gx#stx-pair? _g8367183692_) - (let ((_e8367683695_ (gx#syntax-e _g8367183692_))) - (let ((_hd8367583699_ - (let () - (declare (not safe)) - (##car _e8367683695_))) - (_tl8367483702_ - (let () - (declare (not safe)) - (##cdr _e8367683695_)))) - (if (gx#stx-pair? _tl8367483702_) - (let ((_e8367983705_ (gx#syntax-e _tl8367483702_))) - (let ((_hd8367883709_ - (let () - (declare (not safe)) - (##car _e8367983705_))) - (_tl8367783712_ - (let () - (declare (not safe)) - (##cdr _e8367983705_)))) - (if (gx#stx-pair? _tl8367783712_) - (let ((_e8368283715_ - (gx#syntax-e _tl8367783712_))) - (let ((_hd8368183719_ + ___stx9047790478_)))) + (let ((___kont9048090481_ + (lambda (_L84004_ _L84006_) + (let ((__tmp90738 (gx#datum->syntax '#f '##fx=)) + (__tmp90732 + (let ((__tmp90734 + (let ((__tmp90737 + (gx#datum->syntax '#f '##fxand)) + (__tmp90735 + (let ((__tmp90736 (let () (declare (not safe)) - (##car _e8368283715_))) - (_tl8368083722_ + (cons _L84004_ '())))) + (declare (not safe)) + (cons _L84006_ __tmp90736)))) + (declare (not safe)) + (cons __tmp90737 __tmp90735))) + (__tmp90733 + (let () + (declare (not safe)) + (cons _L84004_ '())))) + (declare (not safe)) + (cons __tmp90734 __tmp90733)))) + (declare (not safe)) + (cons __tmp90738 __tmp90732)))) + (___kont9048290483_ + (lambda (_L83948_ _L83950_) + (let ((__tmp90751 (gx#datum->syntax '#f 'let)) + (__tmp90739 + (let ((__tmp90749 + (let ((__tmp90750 + (let () + (declare (not safe)) + (cons _L83948_ '())))) + (declare (not safe)) + (cons _L83948_ __tmp90750))) + (__tmp90740 + (let ((__tmp90741 + (let ((__tmp90748 + (gx#datum->syntax '#f '##fx=)) + (__tmp90742 + (let ((__tmp90744 + (let ((__tmp90747 + (gx#datum->syntax + '#f + '##fxand)) + (__tmp90745 + (let ((__tmp90746 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons _L83948_ '())))) + (declare (not safe)) + (cons _L83950_ __tmp90746)))) + (declare (not safe)) + (cons __tmp90747 __tmp90745))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp90743 + (let () + (declare (not safe)) + (cons _L83948_ '())))) + (declare (not safe)) + (cons __tmp90744 __tmp90743)))) + (declare (not safe)) + (cons __tmp90748 __tmp90742)))) + (declare (not safe)) + (cons __tmp90741 '())))) + (declare (not safe)) + (cons __tmp90749 __tmp90740)))) + (declare (not safe)) + (cons __tmp90751 __tmp90739))))) + (let ((___match9050490505_ + (lambda (_e8388883974_ + _hd8388783978_ + _tl8388683981_ + _e8389183984_ + _hd8389083988_ + _tl8388983991_ + _e8389483994_ + _hd8389383998_ + _tl8389284001_) + (let ((_L84004_ _hd8389383998_) (_L84006_ _hd8389083988_)) + (if (or (gx#identifier? _L84004_) + (gx#stx-fixnum? _L84004_)) + (___kont9048090481_ _L84004_ _L84006_) + (___kont9048290483_ + _hd8389383998_ + _hd8389083988_)))))) + (if (gx#stx-pair? ___stx9047790478_) + (let ((_e8388883974_ (gx#syntax-e ___stx9047790478_))) + (let ((_tl8388683981_ + (let () (declare (not safe)) (##cdr _e8388883974_))) + (_hd8388783978_ + (let () (declare (not safe)) (##car _e8388883974_)))) + (if (gx#stx-pair? _tl8388683981_) + (let ((_e8389183984_ (gx#syntax-e _tl8388683981_))) + (let ((_tl8388983991_ + (let () + (declare (not safe)) + (##cdr _e8389183984_))) + (_hd8389083988_ + (let () + (declare (not safe)) + (##car _e8389183984_)))) + (if (gx#stx-pair? _tl8388983991_) + (let ((_e8389483994_ + (gx#syntax-e _tl8388983991_))) + (let ((_tl8389284001_ + (let () + (declare (not safe)) + (##cdr _e8389483994_))) + (_hd8389383998_ + (let () + (declare (not safe)) + (##car _e8389483994_)))) + (if (gx#stx-null? _tl8389284001_) + (___match9050490505_ + _e8388883974_ + _hd8388783978_ + _tl8388683981_ + _e8389183984_ + _hd8389083988_ + _tl8388983991_ + _e8389483994_ + _hd8389383998_ + _tl8389284001_) + (let () + (declare (not safe)) + (_g8388283911_))))) + (let () + (declare (not safe)) + (_g8388283911_))))) + (let () (declare (not safe)) (_g8388283911_))))) + (let () (declare (not safe)) (_g8388283911_)))))))) + (define |[:0:]#fxflag-unset?| + (lambda (_$stx84029_) + (let* ((___stx9052790528_ _$stx84029_) + (_g8403484063_ + (lambda () + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + ___stx9052790528_)))) + (let ((___kont9053090531_ + (lambda (_L84155_ _L84157_) + (let ((__tmp90758 (gx#datum->syntax '#f '##fx=)) + (__tmp90752 + (let ((__tmp90754 + (let ((__tmp90757 + (gx#datum->syntax '#f '##fxand)) + (__tmp90755 + (let ((__tmp90756 (let () (declare (not safe)) - (##cdr _e8368283715_)))) - (if (gx#stx-null? _tl8368083722_) - ((lambda (_L83725_ _L83727_) - (let ((__tmp89740 - (gx#datum->syntax - '#f - 'let)) - (__tmp89728 - (let ((__tmp89738 - (let ((__tmp89739 + (cons _L84155_ '())))) + (declare (not safe)) + (cons _L84157_ __tmp90756)))) + (declare (not safe)) + (cons __tmp90757 __tmp90755))) + (__tmp90753 + (let () (declare (not safe)) (cons '0 '())))) + (declare (not safe)) + (cons __tmp90754 __tmp90753)))) + (declare (not safe)) + (cons __tmp90758 __tmp90752)))) + (___kont9053290533_ + (lambda (_L84100_ _L84102_) + (let ((__tmp90771 (gx#datum->syntax '#f 'let)) + (__tmp90759 + (let ((__tmp90769 + (let ((__tmp90770 + (let () + (declare (not safe)) + (cons _L84100_ '())))) + (declare (not safe)) + (cons _L84100_ __tmp90770))) + (__tmp90760 + (let ((__tmp90761 + (let ((__tmp90768 + (gx#datum->syntax '#f '##fx=)) + (__tmp90762 + (let ((__tmp90764 + (let ((__tmp90767 + (gx#datum->syntax + '#f + '##fxand)) + (__tmp90765 + (let ((__tmp90766 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L83725_ '())))) - (declare (not safe)) - (cons _L83725_ __tmp89739))) - (__tmp89729 - (let ((__tmp89730 - (let ((__tmp89737 (gx#datum->syntax '#f '##fx=)) - (__tmp89731 - (let ((__tmp89733 - (let ((__tmp89736 - (gx#datum->syntax - '#f - '##fxand)) - (__tmp89734 - (let ((__tmp89735 - (let () - (declare (not safe)) - (cons _L83725_ - '())))) - (declare (not safe)) - (cons _L83727_ - __tmp89735)))) - (declare (not safe)) - (cons __tmp89736 __tmp89734))) - (__tmp89732 - (let () - (declare (not safe)) - (cons _L83725_ '())))) - (declare (not safe)) - (cons __tmp89733 __tmp89732)))) - (declare (not safe)) - (cons __tmp89737 __tmp89731)))) - (declare (not safe)) - (cons __tmp89730 '())))) - (declare (not safe)) - (cons __tmp89738 __tmp89729)))) + (let () (declare (not safe)) (cons _L84100_ '())))) + (declare (not safe)) + (cons _L84102_ __tmp90766)))) + (declare (not safe)) + (cons __tmp90767 __tmp90765))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp89740 __tmp89728))) - _hd8368183719_ - _hd8367883709_) - (_g8367083688_ _g8367183692_)))) - (_g8367083688_ _g8367183692_)))) - (_g8367083688_ _g8367183692_)))) - (_g8367083688_ _g8367183692_))))) - (_g8366983744_ _$stx83666_)))) - (define |[:0:]#fxflag-unset?| - (lambda (_$stx83748_) - (let* ((_g8375283770_ - (lambda (_g8375383766_) + (__tmp90763 + (let () + (declare (not safe)) + (cons '0 '())))) + (declare (not safe)) + (cons __tmp90764 __tmp90763)))) + (declare (not safe)) + (cons __tmp90768 __tmp90762)))) + (declare (not safe)) + (cons __tmp90761 '())))) + (declare (not safe)) + (cons __tmp90769 __tmp90760)))) + (declare (not safe)) + (cons __tmp90771 __tmp90759))))) + (let ((___match9055490555_ + (lambda (_e8404084125_ + _hd8403984129_ + _tl8403884132_ + _e8404384135_ + _hd8404284139_ + _tl8404184142_ + _e8404684145_ + _hd8404584149_ + _tl8404484152_) + (let ((_L84155_ _hd8404584149_) (_L84157_ _hd8404284139_)) + (if (or (gx#identifier? _L84155_) + (gx#stx-fixnum? _L84155_)) + (___kont9053090531_ _L84155_ _L84157_) + (___kont9053290533_ + _hd8404584149_ + _hd8404284139_)))))) + (if (gx#stx-pair? ___stx9052790528_) + (let ((_e8404084125_ (gx#syntax-e ___stx9052790528_))) + (let ((_tl8403884132_ + (let () (declare (not safe)) (##cdr _e8404084125_))) + (_hd8403984129_ + (let () (declare (not safe)) (##car _e8404084125_)))) + (if (gx#stx-pair? _tl8403884132_) + (let ((_e8404384135_ (gx#syntax-e _tl8403884132_))) + (let ((_tl8404184142_ + (let () + (declare (not safe)) + (##cdr _e8404384135_))) + (_hd8404284139_ + (let () + (declare (not safe)) + (##car _e8404384135_)))) + (if (gx#stx-pair? _tl8404184142_) + (let ((_e8404684145_ + (gx#syntax-e _tl8404184142_))) + (let ((_tl8404484152_ + (let () + (declare (not safe)) + (##cdr _e8404684145_))) + (_hd8404584149_ + (let () + (declare (not safe)) + (##car _e8404684145_)))) + (if (gx#stx-null? _tl8404484152_) + (___match9055490555_ + _e8404084125_ + _hd8403984129_ + _tl8403884132_ + _e8404384135_ + _hd8404284139_ + _tl8404184142_ + _e8404684145_ + _hd8404584149_ + _tl8404484152_) + (let () + (declare (not safe)) + (_g8403484063_))))) + (let () + (declare (not safe)) + (_g8403484063_))))) + (let () (declare (not safe)) (_g8403484063_))))) + (let () (declare (not safe)) (_g8403484063_)))))))) + (define |[:0:]#defrefset| + (lambda (_stx84180_) + (let* ((_g8418384204_ + (lambda (_g8418484200_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8375383766_))) - (_g8375183825_ - (lambda (_g8375383774_) - (if (gx#stx-pair? _g8375383774_) - (let ((_e8375883777_ (gx#syntax-e _g8375383774_))) - (let ((_hd8375783781_ + _g8418484200_))) + (_g8418284432_ + (lambda (_g8418484208_) + (if (gx#stx-pair? _g8418484208_) + (let ((_e8418984211_ (gx#syntax-e _g8418484208_))) + (let ((_hd8418884215_ (let () (declare (not safe)) - (##car _e8375883777_))) - (_tl8375683784_ + (##car _e8418984211_))) + (_tl8418784218_ (let () (declare (not safe)) - (##cdr _e8375883777_)))) - (if (gx#stx-pair? _tl8375683784_) - (let ((_e8376183787_ (gx#syntax-e _tl8375683784_))) - (let ((_hd8376083791_ + (##cdr _e8418984211_)))) + (if (gx#stx-pair? _tl8418784218_) + (let ((_e8419284221_ (gx#syntax-e _tl8418784218_))) + (let ((_hd8419184225_ (let () (declare (not safe)) - (##car _e8376183787_))) - (_tl8375983794_ + (##car _e8419284221_))) + (_tl8419084228_ (let () (declare (not safe)) - (##cdr _e8376183787_)))) - (if (gx#stx-pair? _tl8375983794_) - (let ((_e8376483797_ - (gx#syntax-e _tl8375983794_))) - (let ((_hd8376383801_ + (##cdr _e8419284221_)))) + (if (gx#stx-pair? _hd8419184225_) + (let ((_e8419584231_ + (gx#syntax-e _hd8419184225_))) + (let ((_hd8419484235_ (let () (declare (not safe)) - (##car _e8376483797_))) - (_tl8376283804_ + (##car _e8419584231_))) + (_tl8419384238_ (let () (declare (not safe)) - (##cdr _e8376483797_)))) - (if (gx#stx-null? _tl8376283804_) - ((lambda (_L83807_ _L83809_) - (let ((__tmp89753 - (gx#datum->syntax - '#f - 'let)) - (__tmp89741 - (let ((__tmp89751 - (let ((__tmp89752 + (##cdr _e8419584231_)))) + (if (gx#stx-pair? _tl8419384238_) + (let ((_e8419884241_ + (gx#syntax-e + _tl8419384238_))) + (let ((_hd8419784245_ + (let () + (declare (not safe)) + (##car _e8419884241_))) + (_tl8419684248_ + (let () + (declare (not safe)) + (##cdr _e8419884241_)))) + (if (gx#stx-null? + _tl8419684248_) + (if (gx#stx-null? + _tl8419084228_) + ((lambda (_L84251_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L83807_ '())))) - (declare (not safe)) - (cons _L83807_ __tmp89752))) - (__tmp89742 - (let ((__tmp89743 - (let ((__tmp89750 (gx#datum->syntax '#f '##fx=)) - (__tmp89744 - (let ((__tmp89746 - (let ((__tmp89749 - (gx#datum->syntax + _L84253_) + (let* ((_g8427184279_ + (lambda (_g8427284275_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g8427284275_))) + (_g8427084428_ + (lambda (_g8427284283_) + ((lambda (_L84286_) + (let () + (let* ((_g8429884306_ + (lambda (_g8429984302_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g8429984302_))) + (_g8429784424_ + (lambda (_g8429984310_) + ((lambda (_L84313_) + (let () + (let* ((_g8432684334_ + (lambda (_g8432784330_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g8432784330_))) + (_g8432584420_ + (lambda (_g8432784338_) + ((lambda (_L84341_) + (let () + (let* ((_g8435484362_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_g8435584358_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g8435584358_))) + (_g8435384416_ + (lambda (_g8435584366_) + ((lambda (_L84369_) + (let () + (let* ((_g8438284390_ + (lambda (_g8438384386_) + (gx#raise-syntax-error '#f - '##fxand)) - (__tmp89747 - (let ((__tmp89748 - (let () - (declare (not safe)) - (cons _L83807_ - '())))) - (declare (not safe)) - (cons _L83809_ - __tmp89748)))) - (declare (not safe)) - (cons __tmp89749 __tmp89747))) - (__tmp89745 - (let () - (declare (not safe)) - (cons '0 '())))) - (declare (not safe)) - (cons __tmp89746 __tmp89745)))) + '"Bad syntax; invalid match target" + _g8438384386_))) + (_g8438184412_ + (lambda (_g8438384394_) + ((lambda (_L84397_) + (let () + (let () + (let ((__tmp90904 + (gx#datum->syntax + '#f + 'begin)) + (__tmp90772 + (let ((__tmp90874 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp90903 (gx#datum->syntax '#f 'def)) + (__tmp90875 + (let ((__tmp90876 + (let ((__tmp90877 + (let ((__tmp90902 + (gx#datum->syntax + '#f + 'begin-annotation)) + (__tmp90878 + (let ((__tmp90897 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp90901 + (gx#datum->syntax '#f '@mop.accessor)) + (__tmp90898 + (let ((__tmp90899 + (let ((__tmp90900 + (let () + (declare (not safe)) + (cons '#t '())))) + (declare (not safe)) + (cons _L84253_ __tmp90900)))) + (declare (not safe)) + (cons _L84286_ __tmp90899)))) + (declare (not safe)) + (cons __tmp90901 __tmp90898))) + (__tmp90879 + (let ((__tmp90880 + (let ((__tmp90896 + (gx#datum->syntax '#f 'lambda)) + (__tmp90881 + (let ((__tmp90894 + (let ((__tmp90895 + (gx#datum->syntax + '#f + 'klass))) + (declare (not safe)) + (cons __tmp90895 '()))) + (__tmp90882 + (let ((__tmp90883 + (let ((__tmp90893 + (gx#datum->syntax + '#f + '##structure-ref)) + (__tmp90884 + (let ((__tmp90892 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'klass)) + (__tmp90885 + (let ((__tmp90886 + (let ((__tmp90891 + (gx#datum->syntax '#f 'class::t)) + (__tmp90887 + (let ((__tmp90888 + (let ((__tmp90890 + (gx#datum->syntax + '#f + 'quote)) + (__tmp90889 + (let () + (declare (not safe)) + (cons _L84253_ '())))) + (declare (not safe)) + (cons __tmp90890 + __tmp90889)))) + (declare (not safe)) + (cons __tmp90888 '())))) + (declare (not safe)) + (cons __tmp90891 __tmp90887)))) + (declare (not safe)) + (cons _L84251_ __tmp90886)))) + (declare (not safe)) + (cons __tmp90892 __tmp90885)))) + (declare (not safe)) + (cons __tmp90893 __tmp90884)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90883 '())))) + (declare (not safe)) + (cons __tmp90894 __tmp90882)))) + (declare (not safe)) + (cons __tmp90896 __tmp90881)))) + (declare (not safe)) + (cons __tmp90880 '())))) + (declare (not safe)) + (cons __tmp90897 __tmp90879)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90902 + __tmp90878)))) + (declare (not safe)) + (cons __tmp90877 '())))) + (declare (not safe)) + (cons _L84313_ __tmp90876)))) + (declare (not safe)) + (cons __tmp90903 __tmp90875))) + (__tmp90773 + (let ((__tmp90844 + (let ((__tmp90873 + (gx#datum->syntax '#f 'def)) + (__tmp90845 + (let ((__tmp90846 + (let ((__tmp90847 + (let ((__tmp90872 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp90848 + (let ((__tmp90867 + (let ((__tmp90871 + (gx#datum->syntax '#f '@mop.accessor)) + (__tmp90868 + (let ((__tmp90869 + (let ((__tmp90870 + (let () + (declare (not safe)) + (cons '#f '())))) + (declare (not safe)) + (cons _L84253_ __tmp90870)))) + (declare (not safe)) + (cons _L84286_ __tmp90869)))) + (declare (not safe)) + (cons __tmp90871 __tmp90868))) + (__tmp90849 + (let ((__tmp90850 + (let ((__tmp90866 + (gx#datum->syntax '#f 'lambda)) + (__tmp90851 + (let ((__tmp90864 + (let ((__tmp90865 + (gx#datum->syntax + '#f + 'klass))) + (declare (not safe)) + (cons __tmp90865 '()))) + (__tmp90852 + (let ((__tmp90853 + (let ((__tmp90863 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f '##unchecked-structure-ref)) + (__tmp90854 + (let ((__tmp90862 (gx#datum->syntax '#f 'klass)) + (__tmp90855 + (let ((__tmp90856 + (let ((__tmp90861 + (gx#datum->syntax + '#f + 'class::t)) + (__tmp90857 + (let ((__tmp90858 + (let ((__tmp90860 + (gx#datum->syntax + '#f + 'quote)) + (__tmp90859 + (let () + (declare +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (not safe)) + (cons _L84253_ '())))) + (declare (not safe)) + (cons __tmp90860 __tmp90859)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90858 '())))) + (declare (not safe)) + (cons __tmp90861 __tmp90857)))) + (declare (not safe)) + (cons _L84251_ __tmp90856)))) + (declare (not safe)) + (cons __tmp90862 __tmp90855)))) + (declare (not safe)) + (cons __tmp90863 __tmp90854)))) + (declare (not safe)) + (cons __tmp90853 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90864 __tmp90852)))) + (declare (not safe)) + (cons __tmp90866 __tmp90851)))) + (declare (not safe)) + (cons __tmp90850 '())))) + (declare (not safe)) + (cons __tmp90867 __tmp90849)))) + (declare (not safe)) + (cons __tmp90872 __tmp90848)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90847 '())))) + (declare (not safe)) + (cons _L84341_ __tmp90846)))) + (declare (not safe)) + (cons __tmp90873 __tmp90845))) + (__tmp90774 + (let ((__tmp90810 + (let ((__tmp90843 + (gx#datum->syntax '#f 'def)) + (__tmp90811 + (let ((__tmp90812 + (let ((__tmp90813 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp90842 + (gx#datum->syntax '#f 'begin-annotation)) + (__tmp90814 + (let ((__tmp90837 + (let ((__tmp90841 + (gx#datum->syntax + '#f + '@mop.mutator)) + (__tmp90838 + (let ((__tmp90839 + (let ((__tmp90840 + (let () + (declare + (not safe)) + (cons '#t '())))) + (declare (not safe)) + (cons _L84253_ + __tmp90840)))) + (declare (not safe)) + (cons _L84286_ __tmp90839)))) + (declare (not safe)) + (cons __tmp90841 __tmp90838))) + (__tmp90815 + (let ((__tmp90816 + (let ((__tmp90836 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp90817 + (let ((__tmp90832 + (let ((__tmp90835 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'klass)) + (__tmp90833 + (let ((__tmp90834 (gx#datum->syntax '#f 'val))) + (declare (not safe)) + (cons __tmp90834 '())))) + (declare (not safe)) + (cons __tmp90835 __tmp90833))) + (__tmp90818 + (let ((__tmp90819 + (let ((__tmp90831 + (gx#datum->syntax '#f '##structure-set!)) + (__tmp90820 + (let ((__tmp90830 + (gx#datum->syntax '#f 'klass)) + (__tmp90821 + (let ((__tmp90829 + (gx#datum->syntax '#f 'val)) + (__tmp90822 + (let ((__tmp90823 + (let ((__tmp90828 + (gx#datum->syntax + '#f + 'class::t)) + (__tmp90824 + (let ((__tmp90825 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp90827 (gx#datum->syntax '#f 'quote)) + (__tmp90826 + (let () + (declare (not safe)) + (cons _L84253_ '())))) + (declare (not safe)) + (cons __tmp90827 __tmp90826)))) + (declare (not safe)) + (cons __tmp90825 '())))) + (declare (not safe)) + (cons __tmp90828 __tmp90824)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L84251_ __tmp90823)))) + (declare (not safe)) + (cons __tmp90829 __tmp90822)))) + (declare (not safe)) + (cons __tmp90830 __tmp90821)))) + (declare (not safe)) + (cons __tmp90831 __tmp90820)))) + (declare (not safe)) + (cons __tmp90819 '())))) + (declare (not safe)) + (cons __tmp90832 __tmp90818)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90836 __tmp90817)))) + (declare (not safe)) + (cons __tmp90816 '())))) + (declare (not safe)) + (cons __tmp90837 __tmp90815)))) + (declare (not safe)) + (cons __tmp90842 __tmp90814)))) + (declare (not safe)) + (cons __tmp90813 '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons _L84369_ + __tmp90812)))) + (declare (not safe)) + (cons __tmp90843 __tmp90811))) + (__tmp90775 + (let ((__tmp90776 + (let ((__tmp90809 + (gx#datum->syntax + '#f + 'def)) + (__tmp90777 + (let ((__tmp90778 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp90779 + (let ((__tmp90808 + (gx#datum->syntax + '#f + 'begin-annotation)) + (__tmp90780 + (let ((__tmp90803 + (let ((__tmp90807 + (gx#datum->syntax + '#f + '@mop.mutator)) + (__tmp90804 + (let ((__tmp90805 + (let ((__tmp90806 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (cons '#f '())))) + (declare (not safe)) + (cons _L84253_ __tmp90806)))) + (declare (not safe)) + (cons _L84286_ __tmp90805)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90807 __tmp90804))) + (__tmp90781 + (let ((__tmp90782 + (let ((__tmp90802 + (gx#datum->syntax + '#f + 'lambda)) + (__tmp90783 + (let ((__tmp90798 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let ((__tmp90801 (gx#datum->syntax '#f 'klass)) + (__tmp90799 + (let ((__tmp90800 + (gx#datum->syntax '#f 'val))) + (declare (not safe)) + (cons __tmp90800 '())))) + (declare (not safe)) + (cons __tmp90801 __tmp90799))) + (__tmp90784 + (let ((__tmp90785 + (let ((__tmp90797 + (gx#datum->syntax + '#f + '##unchecked-structure-set!)) + (__tmp90786 + (let ((__tmp90796 + (gx#datum->syntax '#f 'klass)) + (__tmp90787 + (let ((__tmp90795 + (gx#datum->syntax + '#f + 'val)) + (__tmp90788 + (let ((__tmp90789 + (let ((__tmp90794 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (gx#datum->syntax '#f 'class::t)) + (__tmp90790 + (let ((__tmp90791 + (let ((__tmp90793 + (gx#datum->syntax '#f 'quote)) + (__tmp90792 + (let () + (declare (not safe)) + (cons _L84253_ '())))) + (declare (not safe)) + (cons __tmp90793 __tmp90792)))) + (declare (not safe)) + (cons __tmp90791 '())))) + (declare (not safe)) + (cons __tmp90794 __tmp90790)))) + (declare (not safe)) + (cons _L84251_ __tmp90789)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90795 + __tmp90788)))) + (declare (not safe)) + (cons __tmp90796 __tmp90787)))) + (declare (not safe)) + (cons __tmp90797 __tmp90786)))) + (declare (not safe)) + (cons __tmp90785 '())))) + (declare (not safe)) + (cons __tmp90798 __tmp90784)))) + (declare (not safe)) + (cons __tmp90802 __tmp90783)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90782 '())))) + (declare (not safe)) + (cons __tmp90803 __tmp90781)))) + (declare (not safe)) + (cons __tmp90808 __tmp90780)))) + (declare (not safe)) + (cons __tmp90779 '())))) + (declare (not safe)) + (cons _L84397_ __tmp90778)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90809 + __tmp90777)))) + (declare (not safe)) + (cons __tmp90776 '())))) + (declare (not safe)) + (cons __tmp90810 __tmp90775)))) + (declare (not safe)) + (cons __tmp90844 __tmp90774)))) + (declare (not safe)) + (cons __tmp90874 __tmp90773)))) + (declare (not safe)) + (cons __tmp90904 __tmp90772))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _g8438384394_)))) + (_g8438184412_ + (gx#stx-identifier + _L84253_ + '"&" + _L84369_))))) + _g8435584366_)))) + (_g8435384416_ + (gx#stx-identifier _L84253_ _L84313_ '"-set!"))))) + _g8432784338_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g8432584420_ + (gx#stx-identifier + _L84253_ + '"&" + _L84313_))))) + _g8429984310_)))) + (_g8429784424_ + (gx#stx-identifier + _L84253_ + '"class-type-" + _L84253_))))) + _g8427284283_)))) + (_g8427084428_ (gx#core-quote-syntax 'class::t)))) + _hd8419784245_ + _hd8419484235_) + (_g8418384204_ _g8418484208_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_g8418384204_ + _g8418484208_)))) + (_g8418384204_ _g8418484208_)))) + (_g8418384204_ _g8418484208_)))) + (_g8418384204_ _g8418484208_)))) + (_g8418384204_ _g8418484208_))))) + (_g8418284432_ _stx84180_)))) + (define |[:0:]#defrefset*| + (lambda (_$stx84436_) + (let* ((_g8444084469_ + (lambda (_g8444184465_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _g8444184465_))) + (_g8443984569_ + (lambda (_g8444184473_) + (if (gx#stx-pair? _g8444184473_) + (let ((_e8444684476_ (gx#syntax-e _g8444184473_))) + (let ((_hd8444584480_ + (let () + (declare (not safe)) + (##car _e8444684476_))) + (_tl8444484483_ + (let () + (declare (not safe)) + (##cdr _e8444684476_)))) + (if (gx#stx-pair/null? _tl8444484483_) + (let ((_g90905_ + (gx#syntax-split-splice _tl8444484483_ '0))) + (begin + (let ((_g90906_ + (let () + (declare (not safe)) + (if (##values? _g90905_) + (##vector-length _g90905_) + 1)))) + (if (not (let () + (declare (not safe)) + (##fx= _g90906_ 2))) + (error "Context expects 2 values" + _g90906_))) + (let ((_target8444784486_ + (let () + (declare (not safe)) + (##vector-ref _g90905_ 0))) + (_tl8444984489_ + (let () + (declare (not safe)) + (##vector-ref _g90905_ 1)))) + (if (gx#stx-null? _tl8444984489_) + (letrec ((_loop8445084492_ + (lambda (_hd8444884496_ + _field8445484499_ + _slot8445584501_) + (if (gx#stx-pair? + _hd8444884496_) + (let ((_e8445184504_ + (gx#syntax-e + _hd8444884496_))) + (let ((_lp-hd8445284508_ + (let () +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (declare (not safe)) + (##car _e8445184504_))) + (_lp-tl8445384511_ + (let () (declare (not safe)) (##cdr _e8445184504_)))) + (if (gx#stx-pair? _lp-hd8445284508_) + (let ((_e8446084514_ (gx#syntax-e _lp-hd8445284508_))) + (let ((_hd8445984518_ + (let () + (declare (not safe)) + (##car _e8446084514_))) + (_tl8445884521_ + (let () + (declare (not safe)) + (##cdr _e8446084514_)))) + (if (gx#stx-pair? _tl8445884521_) + (let ((_e8446384524_ + (gx#syntax-e _tl8445884521_))) + (let ((_hd8446284528_ + (let () + (declare (not safe)) + (##car _e8446384524_))) + (_tl8446184531_ + (let () + (declare (not safe)) + (##cdr _e8446384524_)))) + (if (gx#stx-null? _tl8446184531_) + (_loop8445084492_ + _lp-tl8445384511_ + (let () + (declare (not safe)) + (cons _hd8446284528_ + _field8445484499_)) + (let () + (declare (not safe)) + (cons _hd8445984518_ + _slot8445584501_))) + (_g8444084469_ _g8444184473_)))) + (_g8444084469_ _g8444184473_)))) + (_g8444084469_ _g8444184473_)))) + (let ((_field8445684534_ (reverse _field8445484499_)) + (_slot8445784537_ (reverse _slot8445584501_))) + ((lambda (_L84540_ _L84542_) + (let ((__tmp90914 (gx#datum->syntax '#f 'begin)) + (__tmp90907 + (begin + (gx#syntax-check-splice-targets _L84540_ _L84542_) + (let ((__tmp90908 + (lambda (_g8455784561_ + _g8455884564_ + _g8455984566_) + (let ((__tmp90909 + (let ((__tmp90913 + (gx#datum->syntax + '#f + 'defrefset)) + (__tmp90910 + (let ((__tmp90911 + (let ((__tmp90912 +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () + (declare (not safe)) + (cons _g8455784561_ '())))) + (declare (not safe)) + (cons _g8455884564_ __tmp90912)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (declare (not safe)) + (cons __tmp90911 '())))) + (declare (not safe)) + (cons __tmp90913 __tmp90910)))) + (declare (not safe)) + (cons __tmp90909 _g8455984566_))))) (declare (not safe)) - (cons __tmp89750 __tmp89744)))) - (declare (not safe)) - (cons __tmp89743 '())))) - (declare (not safe)) - (cons __tmp89751 __tmp89742)))) + (foldr2 __tmp90908 '() _L84540_ _L84542_))))) + (declare (not safe)) + (cons __tmp90914 __tmp90907))) + _field8445684534_ + _slot8445784537_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (declare (not safe)) - (cons __tmp89753 __tmp89741))) - _hd8376383801_ - _hd8376083791_) - (_g8375283770_ _g8375383774_)))) - (_g8375283770_ _g8375383774_)))) - (_g8375283770_ _g8375383774_)))) - (_g8375283770_ _g8375383774_))))) - (_g8375183825_ _$stx83748_)))) + (_loop8445084492_ + _target8444784486_ + '() + '())) + (_g8444084469_ _g8444184473_))))) + (_g8444084469_ _g8444184473_)))) + (_g8444084469_ _g8444184473_))))) + (_g8443984569_ _$stx84436_)))) (define |[:0:]#__slot-e| - (lambda (_$stx83829_) - (let* ((_g8383383859_ - (lambda (_g8383483855_) + (lambda (_$stx84574_) + (let* ((_g8457884604_ + (lambda (_g8457984600_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g8383483855_))) - (_g8383283942_ - (lambda (_g8383483863_) - (if (gx#stx-pair? _g8383483863_) - (let ((_e8384183866_ (gx#syntax-e _g8383483863_))) - (let ((_hd8384083870_ + _g8457984600_))) + (_g8457784687_ + (lambda (_g8457984608_) + (if (gx#stx-pair? _g8457984608_) + (let ((_e8458684611_ (gx#syntax-e _g8457984608_))) + (let ((_hd8458584615_ (let () (declare (not safe)) - (##car _e8384183866_))) - (_tl8383983873_ + (##car _e8458684611_))) + (_tl8458484618_ (let () (declare (not safe)) - (##cdr _e8384183866_)))) - (if (gx#stx-pair? _tl8383983873_) - (let ((_e8384483876_ (gx#syntax-e _tl8383983873_))) - (let ((_hd8384383880_ + (##cdr _e8458684611_)))) + (if (gx#stx-pair? _tl8458484618_) + (let ((_e8458984621_ (gx#syntax-e _tl8458484618_))) + (let ((_hd8458884625_ (let () (declare (not safe)) - (##car _e8384483876_))) - (_tl8384283883_ + (##car _e8458984621_))) + (_tl8458784628_ (let () (declare (not safe)) - (##cdr _e8384483876_)))) - (if (gx#stx-pair? _tl8384283883_) - (let ((_e8384783886_ - (gx#syntax-e _tl8384283883_))) - (let ((_hd8384683890_ + (##cdr _e8458984621_)))) + (if (gx#stx-pair? _tl8458784628_) + (let ((_e8459284631_ + (gx#syntax-e _tl8458784628_))) + (let ((_hd8459184635_ (let () (declare (not safe)) - (##car _e8384783886_))) - (_tl8384583893_ + (##car _e8459284631_))) + (_tl8459084638_ (let () (declare (not safe)) - (##cdr _e8384783886_)))) - (if (gx#stx-pair? _tl8384583893_) - (let ((_e8385083896_ + (##cdr _e8459284631_)))) + (if (gx#stx-pair? _tl8459084638_) + (let ((_e8459584641_ (gx#syntax-e - _tl8384583893_))) - (let ((_hd8384983900_ + _tl8459084638_))) + (let ((_hd8459484645_ (let () (declare (not safe)) - (##car _e8385083896_))) - (_tl8384883903_ + (##car _e8459584641_))) + (_tl8459384648_ (let () (declare (not safe)) - (##cdr _e8385083896_)))) + (##cdr _e8459584641_)))) (if (gx#stx-pair? - _tl8384883903_) - (let ((_e8385383906_ + _tl8459384648_) + (let ((_e8459884651_ (gx#syntax-e - _tl8384883903_))) - (let ((_hd8385283910_ + _tl8459384648_))) + (let ((_hd8459784655_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _e8385383906_))) - (_tl8385183913_ - (let () (declare (not safe)) (##cdr _e8385383906_)))) - (if (gx#stx-null? _tl8385183913_) - ((lambda (_L83916_ _L83918_ _L83919_ _L83920_) - (let ((__tmp89800 (gx#datum->syntax '#f 'if)) - (__tmp89754 - (let ((__tmp89797 - (let ((__tmp89799 + (##car _e8459884651_))) + (_tl8459684658_ + (let () (declare (not safe)) (##cdr _e8459884651_)))) + (if (gx#stx-null? _tl8459684658_) + ((lambda (_L84661_ _L84663_ _L84664_ _L84665_) + (let ((__tmp90961 (gx#datum->syntax '#f 'if)) + (__tmp90915 + (let ((__tmp90958 + (let ((__tmp90960 (gx#datum->syntax '#f 'object?)) - (__tmp89798 + (__tmp90959 (let () (declare (not safe)) - (cons _L83920_ '())))) + (cons _L84665_ '())))) (declare (not safe)) - (cons __tmp89799 __tmp89798))) - (__tmp89755 - (let ((__tmp89760 - (let ((__tmp89796 + (cons __tmp90960 __tmp90959))) + (__tmp90916 + (let ((__tmp90921 + (let ((__tmp90957 (gx#datum->syntax '#f 'let)) - (__tmp89761 - (let ((__tmp89790 - (let ((__tmp89795 + (__tmp90922 + (let ((__tmp90951 + (let ((__tmp90956 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'klass)) - (__tmp89791 - (let ((__tmp89792 - (let ((__tmp89794 + (__tmp90952 + (let ((__tmp90953 + (let ((__tmp90955 (gx#datum->syntax '#f 'object-type)) - (__tmp89793 + (__tmp90954 (let () (declare (not safe)) - (cons _L83920_ '())))) + (cons _L84665_ '())))) (declare (not safe)) - (cons __tmp89794 __tmp89793)))) + (cons __tmp90955 __tmp90954)))) (declare (not safe)) - (cons __tmp89792 '())))) + (cons __tmp90953 '())))) (declare (not safe)) - (cons __tmp89795 __tmp89791))) - (__tmp89762 - (let ((__tmp89763 - (let ((__tmp89789 (gx#datum->syntax '#f 'cond)) - (__tmp89764 - (let ((__tmp89772 - (let ((__tmp89776 - (let ((__tmp89788 + (cons __tmp90956 __tmp90952))) + (__tmp90923 + (let ((__tmp90924 + (let ((__tmp90950 (gx#datum->syntax '#f 'cond)) + (__tmp90925 + (let ((__tmp90933 + (let ((__tmp90937 + (let ((__tmp90949 (gx#datum->syntax '#f 'and)) - (__tmp89777 - (let ((__tmp89784 - (let ((__tmp89787 + (__tmp90938 + (let ((__tmp90945 + (let ((__tmp90948 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'class-type?)) - (__tmp89785 - (let ((__tmp89786 (gx#datum->syntax '#f 'klass))) + (__tmp90946 + (let ((__tmp90947 (gx#datum->syntax '#f 'klass))) (declare (not safe)) - (cons __tmp89786 '())))) + (cons __tmp90947 '())))) (declare (not safe)) - (cons __tmp89787 __tmp89785))) - (__tmp89778 - (let ((__tmp89779 - (let ((__tmp89783 + (cons __tmp90948 __tmp90946))) + (__tmp90939 + (let ((__tmp90940 + (let ((__tmp90944 (gx#datum->syntax '#f 'class-slot-offset)) - (__tmp89780 - (let ((__tmp89782 + (__tmp90941 + (let ((__tmp90943 (gx#datum->syntax '#f 'klass)) - (__tmp89781 + (__tmp90942 (let () (declare (not safe)) - (cons _L83919_ '())))) + (cons _L84664_ '())))) (declare (not safe)) - (cons __tmp89782 __tmp89781)))) + (cons __tmp90943 __tmp90942)))) (declare (not safe)) - (cons __tmp89783 __tmp89780)))) + (cons __tmp90944 __tmp90941)))) (declare (not safe)) - (cons __tmp89779 '())))) + (cons __tmp90940 '())))) (declare (not safe)) - (cons __tmp89784 __tmp89778)))) + (cons __tmp90945 __tmp90939)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp89788 __tmp89777))) - (__tmp89773 - (let ((__tmp89775 + (cons __tmp90949 __tmp90938))) + (__tmp90934 + (let ((__tmp90936 (gx#datum->syntax '#f '=>)) - (__tmp89774 + (__tmp90935 (let () (declare (not safe)) - (cons _L83918_ '())))) + (cons _L84663_ '())))) (declare (not safe)) - (cons __tmp89775 __tmp89774)))) + (cons __tmp90936 __tmp90935)))) (declare (not safe)) - (cons __tmp89776 __tmp89773))) - (__tmp89765 - (let ((__tmp89766 - (let ((__tmp89771 + (cons __tmp90937 __tmp90934))) + (__tmp90926 + (let ((__tmp90927 + (let ((__tmp90932 (gx#datum->syntax '#f 'else)) - (__tmp89767 - (let ((__tmp89768 - (let ((__tmp89769 + (__tmp90928 + (let ((__tmp90929 + (let ((__tmp90930 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp89770 + (let ((__tmp90931 (let () (declare (not safe)) - (cons _L83919_ '())))) + (cons _L84664_ '())))) (declare (not safe)) - (cons _L83920_ __tmp89770)))) + (cons _L84665_ __tmp90931)))) (declare (not safe)) - (cons _L83916_ __tmp89769)))) + (cons _L84661_ __tmp90930)))) (declare (not safe)) - (cons __tmp89768 '())))) + (cons __tmp90929 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp89771 __tmp89767)))) + (cons __tmp90932 __tmp90928)))) (declare (not safe)) - (cons __tmp89766 '())))) + (cons __tmp90927 '())))) (declare (not safe)) - (cons __tmp89772 __tmp89765)))) + (cons __tmp90933 __tmp90926)))) (declare (not safe)) - (cons __tmp89789 __tmp89764)))) + (cons __tmp90950 __tmp90925)))) (declare (not safe)) - (cons __tmp89763 '())))) + (cons __tmp90924 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp89790 - __tmp89762)))) + (cons __tmp90951 + __tmp90923)))) (declare (not safe)) - (cons __tmp89796 __tmp89761))) - (__tmp89756 - (let ((__tmp89757 - (let ((__tmp89758 - (let ((__tmp89759 + (cons __tmp90957 __tmp90922))) + (__tmp90917 + (let ((__tmp90918 + (let ((__tmp90919 + (let ((__tmp90920 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (cons _L83919_ '())))) + (let () (declare (not safe)) (cons _L84664_ '())))) (declare (not safe)) - (cons _L83920_ __tmp89759)))) + (cons _L84665_ __tmp90920)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L83916_ - __tmp89758)))) + (cons _L84661_ + __tmp90919)))) (declare (not safe)) - (cons __tmp89757 '())))) + (cons __tmp90918 '())))) (declare (not safe)) - (cons __tmp89760 __tmp89756)))) + (cons __tmp90921 __tmp90917)))) (declare (not safe)) - (cons __tmp89797 __tmp89755)))) + (cons __tmp90958 __tmp90916)))) (declare (not safe)) - (cons __tmp89800 __tmp89754))) - _hd8385283910_ - _hd8384983900_ - _hd8384683890_ - _hd8384383880_) - (_g8383383859_ _g8383483863_)))) + (cons __tmp90961 __tmp90915))) + _hd8459784655_ + _hd8459484645_ + _hd8459184635_ + _hd8458884625_) + (_g8457884604_ _g8457984608_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g8383383859_ - _g8383483863_)))) - (_g8383383859_ _g8383483863_)))) - (_g8383383859_ _g8383483863_)))) - (_g8383383859_ _g8383483863_)))) - (_g8383383859_ _g8383483863_))))) - (_g8383283942_ _$stx83829_))))) + (_g8457884604_ + _g8457984608_)))) + (_g8457884604_ _g8457984608_)))) + (_g8457884604_ _g8457984608_)))) + (_g8457884604_ _g8457984608_)))) + (_g8457884604_ _g8457984608_))))) + (_g8457784687_ _$stx84574_))))) diff --git a/src/bootstrap/gerbil/runtime/repl__0.scm b/src/bootstrap/gerbil/runtime/repl__0.scm index 78bb3fb3b..181569096 100644 --- a/src/bootstrap/gerbil/runtime/repl__0.scm +++ b/src/bootstrap/gerbil/runtime/repl__0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1707773926) + (define gerbil/runtime/repl::timestamp 1708102802) (define replx (lambda () - (letrec ((_write-reason115913_ - (lambda (_exn115919_) - (lambda (_cont115921_ _port115922_) + (letrec ((_write-reason117074_ + (lambda (_exn117080_) + (lambda (_cont117082_ _port117083_) (let () (declare (not safe)) (##display-exception-in-context - _exn115919_ - _cont115921_ - _port115922_)) + _exn117080_ + _cont117082_ + _port117083_)) '#f)))) (with-exception-handler - (lambda (_exn115915_) - (let ((__tmp120491 - (lambda (_cont115917_) - (let ((__tmp120492 + (lambda (_exn117076_) + (let ((__tmp121652 + (lambda (_cont117078_) + (let ((__tmp121653 (let () (declare (not safe)) - (_write-reason115913_ _exn115915_)))) + (_write-reason117074_ _exn117076_)))) (declare (not safe)) - (##repl-within _cont115917_ __tmp120492 _exn115915_))))) + (##repl-within _cont117078_ __tmp121653 _exn117076_))))) (declare (not safe)) - (##continuation-capture __tmp120491))) + (##continuation-capture __tmp121652))) ##repl))))) diff --git a/src/bootstrap/gerbil/runtime/syntax.ssxi.ss b/src/bootstrap/gerbil/runtime/syntax.ssxi.ss index 93998cb95..84b9bfa9c 100644 --- a/src/bootstrap/gerbil/runtime/syntax.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/syntax.ssxi.ss @@ -12,6 +12,7 @@ package: gerbil/runtime #f #f #t + #f ((display-exception . SyntaxError::display-exception)))) (declare-type SyntaxError? (@predicate SyntaxError::t)) (declare-type make-SyntaxError (@constructor SyntaxError::t)) @@ -49,7 +50,7 @@ package: gerbil/runtime (declare-type __raise-syntax-error (@lambda (3) #f)) (declare-type AST::t - (@class gerbil#AST::t () () (e source) (e source) #f #t #f #f)) + (@class gerbil#AST::t () () (e source) (e source) #f #t #f #f #f)) (declare-type AST? (@predicate AST::t)) (declare-type make-AST (@constructor AST::t)) (declare-type AST-e (@accessor AST::t e #t)) diff --git a/src/bootstrap/gerbil/runtime/syntax__0.scm b/src/bootstrap/gerbil/runtime/syntax__0.scm index f5b9a51f5..5d240cebf 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 1707773926) + (define gerbil/runtime/syntax::timestamp 1708102801) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _$args102874_ - (apply make-instance SyntaxError::t _$args102874_))) + (lambda _$args104035_ + (apply make-instance SyntaxError::t _$args104035_))) (define SyntaxError-message (make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -60,107 +60,107 @@ (define &SyntaxError-marks-set! (make-class-slot-unchecked-mutator SyntaxError::t 'marks)) (define SyntaxError::display-exception - (lambda (_self102777_ _port102778_) - (letrec ((_location102780_ + (lambda (_self103938_ _port103939_) + (letrec ((_location103941_ (lambda () - (let _lp102834_ ((_rest102836_ + (let _lp103995_ ((_rest103997_ (##unchecked-structure-ref - _self102777_ + _self103938_ '2 SyntaxError::t '#f))) - (let* ((_rest102837102845_ _rest102836_) - (_else102839102853_ (lambda () '#f)) - (_K102841102862_ - (lambda (_rest102856_ _hd102857_) - (let ((_$e102859_ (__AST-source _hd102857_))) - (if _$e102859_ - _$e102859_ - (_lp102834_ _rest102856_)))))) - (if (##pair? _rest102837102845_) - (let ((_hd102842102865_ (##car _rest102837102845_)) - (_tl102843102867_ - (##cdr _rest102837102845_))) - (let* ((_hd102870_ _hd102842102865_) - (_rest102872_ _tl102843102867_)) - (_K102841102862_ _rest102872_ _hd102870_))) - (_else102839102853_))))))) + (let* ((_rest103998104006_ _rest103997_) + (_else104000104014_ (lambda () '#f)) + (_K104002104023_ + (lambda (_rest104017_ _hd104018_) + (let ((_$e104020_ (__AST-source _hd104018_))) + (if _$e104020_ + _$e104020_ + (_lp103995_ _rest104017_)))))) + (if (##pair? _rest103998104006_) + (let ((_hd104003104026_ (##car _rest103998104006_)) + (_tl104004104028_ + (##cdr _rest103998104006_))) + (let* ((_hd104031_ _hd104003104026_) + (_rest104033_ _tl104004104028_)) + (_K104002104023_ _rest104033_ _hd104031_))) + (_else104000104014_))))))) (call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_$e102783_ (_location102780_))) - (if _$e102783_ - ((lambda (_where102786_) + (let ((_$e103944_ (_location103941_))) + (if _$e103944_ + ((lambda (_where103947_) (##display-locat - _where102786_ + _where103947_ '#t (current-output-port))) - _$e102783_) + _$e103944_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_$e102788_ + (let ((_$e103949_ (##unchecked-structure-ref - _self102777_ + _self103938_ '3 SyntaxError::t '#f))) - (if _$e102788_ - ((lambda (_where102791_) + (if _$e103949_ + ((lambda (_where103952_) (displayln '" at " - _where102791_ + _where103952_ '": " (##unchecked-structure-ref - _self102777_ + _self103938_ '1 SyntaxError::t '#f))) - _$e102788_) + _$e103949_) (displayln '": " (##unchecked-structure-ref - _self102777_ + _self103938_ '1 SyntaxError::t '#f)))) - (let* ((_g102792102800_ + (let* ((_g103953103961_ (##unchecked-structure-ref - _self102777_ + _self103938_ '2 SyntaxError::t '#f)) - (_else102794102808_ (lambda () '#!void)) - (_K102796102821_ - (lambda (_rest102811_ _stx102812_) + (_else103955103969_ (lambda () '#!void)) + (_K103957103982_ + (lambda (_rest103972_ _stx103973_) (display '"... form: ") - (__pp-syntax _stx102812_) + (__pp-syntax _stx103973_) (for-each - (lambda (_detail102814_) + (lambda (_detail103975_) (display '"... detail: ") - (write (__AST->datum _detail102814_)) - (let ((_$e102816_ (__AST-source _detail102814_))) - (if _$e102816_ - ((lambda (_loc102819_) + (write (__AST->datum _detail103975_)) + (let ((_$e103977_ (__AST-source _detail103975_))) + (if _$e103977_ + ((lambda (_loc103980_) (display '" at ") (##display-locat - _loc102819_ + _loc103980_ '#t (current-output-port))) - _$e102816_) + _$e103977_) '#!void)) (newline)) - _rest102811_)))) - (if (##pair? _g102792102800_) - (let ((_hd102797102824_ (##car _g102792102800_)) - (_tl102798102826_ (##cdr _g102792102800_))) - (let* ((_stx102829_ _hd102797102824_) - (_rest102831_ _tl102798102826_)) - (_K102796102821_ _rest102831_ _stx102829_))) + _rest103972_)))) + (if (##pair? _g103953103961_) + (let ((_hd103958103985_ (##car _g103953103961_)) + (_tl103959103987_ (##cdr _g103953103961_))) + (let* ((_stx103990_ _hd103958103985_) + (_rest103992_ _tl103959103987_)) + (_K103957103982_ _rest103992_ _stx103990_))) '#!void))) current-output-port - _port102778_)))) + _port103939_)))) (bind-method! SyntaxError::t 'display-exception @@ -168,58 +168,58 @@ '#f) (seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_message102648_ - _irritants102649_ - _where102650_ - _context102651_ - _marks102652_ - _phi102653_) - (let ((__obj107537 + (lambda (_message103809_ + _irritants103810_ + _where103811_ + _context103812_ + _marks103813_ + _phi103814_) + (let ((__obj108698 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f))) (##unchecked-structure-set! - __obj107537 - _message102648_ + __obj108698 + _message103809_ '1 SyntaxError::t '#f) (##unchecked-structure-set! - __obj107537 - _irritants102649_ + __obj108698 + _irritants103810_ '2 SyntaxError::t '#f) (##unchecked-structure-set! - __obj107537 - _where102650_ + __obj108698 + _where103811_ '3 SyntaxError::t '#f) (##unchecked-structure-set! - __obj107537 - _context102651_ + __obj108698 + _context103812_ '4 SyntaxError::t '#f) (##unchecked-structure-set! - __obj107537 - _marks102652_ + __obj108698 + _marks103813_ '6 SyntaxError::t '#f) (##unchecked-structure-set! - __obj107537 - _phi102653_ + __obj108698 + _phi103814_ '5 SyntaxError::t '#f) - __obj107537))) + __obj108698))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_where102643_ _message102644_ _stx102645_ . _details102646_) + (lambda (_where103804_ _message103805_ _stx103806_ . _details103807_) (raise (make-syntax-error - _message102644_ - (cons _stx102645_ _details102646_) - _where102643_ + _message103805_ + (cons _stx103806_ _details103807_) + _where103804_ (__current-context) '#f '#f)))) @@ -234,7 +234,7 @@ '#f)) (define AST? (make-class-predicate AST::t)) (define make-AST - (lambda _$args102640_ (apply make-instance AST::t _$args102640_))) + (lambda _$args103801_ (apply make-instance AST::t _$args103801_))) (define AST-e (make-class-slot-accessor AST::t 'e)) (define AST-source (make-class-slot-accessor AST::t 'source)) (define AST-e-set! (make-class-slot-mutator AST::t 'e)) @@ -245,172 +245,172 @@ (define &AST-source-set! (make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_stx102638_) - (if (##structure-instance-of? _stx102638_ 'gerbil#AST::t) - (##unchecked-structure-ref _stx102638_ '1 AST::t '#f) - _stx102638_))) + (lambda (_stx103799_) + (if (##structure-instance-of? _stx103799_ 'gerbil#AST::t) + (##unchecked-structure-ref _stx103799_ '1 AST::t '#f) + _stx103799_))) (define __AST-source - (lambda (_stx102632_) - (let _lp102634_ ((_src102636_ _stx102632_)) - (if (##structure-instance-of? _src102636_ 'gerbil#AST::t) - (_lp102634_ - (##unchecked-structure-ref _src102636_ '2 AST::t '#f)) - (if (##locat? _src102636_) _src102636_ '#f))))) + (lambda (_stx103793_) + (let _lp103795_ ((_src103797_ _stx103793_)) + (if (##structure-instance-of? _src103797_ 'gerbil#AST::t) + (_lp103795_ + (##unchecked-structure-ref _src103797_ '2 AST::t '#f)) + (if (##locat? _src103797_) _src103797_ '#f))))) (define __AST - (lambda (_e102624_ _src-stx102625_) - (let ((_src102627_ (__AST-source _src-stx102625_))) - (if (or (##structure-instance-of? _e102624_ 'gerbil#AST::t) - (not _src102627_)) - _e102624_ - (##structure AST::t _e102624_ _src102627_))))) + (lambda (_e103785_ _src-stx103786_) + (let ((_src103788_ (__AST-source _src-stx103786_))) + (if (or (##structure-instance-of? _e103785_ 'gerbil#AST::t) + (not _src103788_)) + _e103785_ + (##structure AST::t _e103785_ _src103788_))))) (define __AST-eq? - (lambda (_stx102621_ _obj102622_) - (eq? (__AST-e _stx102621_) _obj102622_))) - (define __AST-pair? (lambda (_stx102619_) (pair? (__AST-e _stx102619_)))) - (define __AST-null? (lambda (_stx102617_) (null? (__AST-e _stx102617_)))) + (lambda (_stx103782_ _obj103783_) + (eq? (__AST-e _stx103782_) _obj103783_))) + (define __AST-pair? (lambda (_stx103780_) (pair? (__AST-e _stx103780_)))) + (define __AST-null? (lambda (_stx103778_) (null? (__AST-e _stx103778_)))) (define __AST-datum? - (lambda (_stx102598_) - (let* ((_e102600_ (__AST-e _stx102598_)) - (_$e102602_ (number? _e102600_))) - (if _$e102602_ - _$e102602_ - (let ((_$e102605_ (string? _e102600_))) - (if _$e102605_ - _$e102605_ - (let ((_$e102608_ (char? _e102600_))) - (if _$e102608_ - _$e102608_ - (let ((_$e102611_ (keyword? _e102600_))) - (if _$e102611_ - _$e102611_ - (let ((_$e102614_ (boolean? _e102600_))) - (if _$e102614_ - _$e102614_ - (eq? _e102600_ '#!void))))))))))))) - (define __AST-id? (lambda (_stx102596_) (symbol? (__AST-e _stx102596_)))) + (lambda (_stx103759_) + (let* ((_e103761_ (__AST-e _stx103759_)) + (_$e103763_ (number? _e103761_))) + (if _$e103763_ + _$e103763_ + (let ((_$e103766_ (string? _e103761_))) + (if _$e103766_ + _$e103766_ + (let ((_$e103769_ (char? _e103761_))) + (if _$e103769_ + _$e103769_ + (let ((_$e103772_ (keyword? _e103761_))) + (if _$e103772_ + _$e103772_ + (let ((_$e103775_ (boolean? _e103761_))) + (if _$e103775_ + _$e103775_ + (eq? _e103761_ '#!void))))))))))))) + (define __AST-id? (lambda (_stx103757_) (symbol? (__AST-e _stx103757_)))) (define __AST-id-list?__% - (lambda (_stx102547_ _tail?102548_) - (let _lp102550_ ((_rest102552_ _stx102547_)) - (let* ((_$e102554_ _rest102552_) - (_$E102556102569_ + (lambda (_stx103708_ _tail?103709_) + (let _lp103711_ ((_rest103713_ _stx103708_)) + (let* ((_$e103715_ _rest103713_) + (_$E103717103730_ (lambda () - (let* ((_$E102557102564_ + (let* ((_$E103718103725_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e102554_))) - (_rest102567_ _$e102554_)) - (_tail?102548_ _rest102567_))))) - (if (__AST-pair? _$e102554_) - (let* ((_$tgt102558102572_ (__AST-e _$e102554_)) - (_$hd102559102575_ (##car _$tgt102558102572_)) - (_$tl102560102578_ (##cdr _$tgt102558102572_))) - (let* ((_hd102582_ _$hd102559102575_) - (_rest102584_ _$tl102560102578_)) - (if (__AST-id? _hd102582_) (_lp102550_ _rest102584_) '#f))) - (_$E102556102569_)))))) + _$e103715_))) + (_rest103728_ _$e103715_)) + (_tail?103709_ _rest103728_))))) + (if (__AST-pair? _$e103715_) + (let* ((_$tgt103719103733_ (__AST-e _$e103715_)) + (_$hd103720103736_ (##car _$tgt103719103733_)) + (_$tl103721103739_ (##cdr _$tgt103719103733_))) + (let* ((_hd103743_ _$hd103720103736_) + (_rest103745_ _$tl103721103739_)) + (if (__AST-id? _hd103743_) (_lp103711_ _rest103745_) '#f))) + (_$E103717103730_)))))) (define __AST-id-list?__0 - (lambda (_stx102589_) - (let ((_tail?102591_ __AST-null?)) - (__AST-id-list?__% _stx102589_ _tail?102591_)))) + (lambda (_stx103750_) + (let ((_tail?103752_ __AST-null?)) + (__AST-id-list?__% _stx103750_ _tail?103752_)))) (define __AST-id-list? - (lambda _g107540_ - (let ((_g107539_ (##length _g107540_))) - (cond ((##fx= _g107539_ 1) - (apply (lambda (_stx102589_) (__AST-id-list?__0 _stx102589_)) - _g107540_)) - ((##fx= _g107539_ 2) - (apply (lambda (_stx102593_ _tail?102594_) - (__AST-id-list?__% _stx102593_ _tail?102594_)) - _g107540_)) + (lambda _g108701_ + (let ((_g108700_ (##length _g108701_))) + (cond ((##fx= _g108700_ 1) + (apply (lambda (_stx103750_) (__AST-id-list?__0 _stx103750_)) + _g108701_)) + ((##fx= _g108700_ 2) + (apply (lambda (_stx103754_ _tail?103755_) + (__AST-id-list?__% _stx103754_ _tail?103755_)) + _g108701_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g107540_)))))) + _g108701_)))))) (define __AST-bind-list? - (lambda (_stx102539_) + (lambda (_stx103700_) (__AST-id-list?__% - _stx102539_ - (lambda (_e102541_) - (let ((_$e102543_ (__AST-null? _e102541_))) - (if _$e102543_ _$e102543_ (__AST-id? _e102541_))))))) + _stx103700_ + (lambda (_e103702_) + (let ((_$e103704_ (__AST-null? _e103702_))) + (if _$e103704_ _$e103704_ (__AST-id? _e103702_))))))) (define __AST-list?__% - (lambda (_stx102492_ _tail?102493_) - (let _lp102495_ ((_rest102497_ _stx102492_)) - (let* ((_$e102499_ _rest102497_) - (_$E102501102514_ + (lambda (_stx103653_ _tail?103654_) + (let _lp103656_ ((_rest103658_ _stx103653_)) + (let* ((_$e103660_ _rest103658_) + (_$E103662103675_ (lambda () - (let* ((_$E102502102509_ + (let* ((_$E103663103670_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e102499_))) - (_rest102512_ _$e102499_)) - (_tail?102493_ _rest102512_))))) - (if (__AST-pair? _$e102499_) - (let* ((_$tgt102503102517_ (__AST-e _$e102499_)) - (_$hd102504102520_ (##car _$tgt102503102517_)) - (_$tl102505102523_ (##cdr _$tgt102503102517_))) - (let ((_rest102527_ _$tl102505102523_)) - (_lp102495_ _rest102527_))) - (_$E102501102514_)))))) + _$e103660_))) + (_rest103673_ _$e103660_)) + (_tail?103654_ _rest103673_))))) + (if (__AST-pair? _$e103660_) + (let* ((_$tgt103664103678_ (__AST-e _$e103660_)) + (_$hd103665103681_ (##car _$tgt103664103678_)) + (_$tl103666103684_ (##cdr _$tgt103664103678_))) + (let ((_rest103688_ _$tl103666103684_)) + (_lp103656_ _rest103688_))) + (_$E103662103675_)))))) (define __AST-list?__0 - (lambda (_stx102532_) - (let ((_tail?102534_ __AST-null?)) - (__AST-list?__% _stx102532_ _tail?102534_)))) + (lambda (_stx103693_) + (let ((_tail?103695_ __AST-null?)) + (__AST-list?__% _stx103693_ _tail?103695_)))) (define __AST-list? - (lambda _g107542_ - (let ((_g107541_ (##length _g107542_))) - (cond ((##fx= _g107541_ 1) - (apply (lambda (_stx102532_) (__AST-list?__0 _stx102532_)) - _g107542_)) - ((##fx= _g107541_ 2) - (apply (lambda (_stx102536_ _tail?102537_) - (__AST-list?__% _stx102536_ _tail?102537_)) - _g107542_)) + (lambda _g108703_ + (let ((_g108702_ (##length _g108703_))) + (cond ((##fx= _g108702_ 1) + (apply (lambda (_stx103693_) (__AST-list?__0 _stx103693_)) + _g108703_)) + ((##fx= _g108702_ 2) + (apply (lambda (_stx103697_ _tail?103698_) + (__AST-list?__% _stx103697_ _tail?103698_)) + _g108703_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g107542_)))))) + _g108703_)))))) (define __AST->list - (lambda (_stx102457_) - (let* ((_$e102459_ _stx102457_) - (_$E102461102474_ + (lambda (_stx103618_) + (let* ((_$e103620_ _stx103618_) + (_$E103622103635_ (lambda () - (let* ((_$E102462102469_ + (let* ((_$E103623103630_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _$e102459_))) - (_rest102472_ _$e102459_)) - (__AST-e _rest102472_))))) - (if (__AST-pair? _$e102459_) - (let* ((_$tgt102463102477_ (__AST-e _$e102459_)) - (_$hd102464102480_ (##car _$tgt102463102477_)) - (_$tl102465102483_ (##cdr _$tgt102463102477_))) - (let* ((_hd102487_ _$hd102464102480_) - (_rest102489_ _$tl102465102483_)) - (cons _hd102487_ (__AST->list _rest102489_)))) - (_$E102461102474_))))) + _$e103620_))) + (_rest103633_ _$e103620_)) + (__AST-e _rest103633_))))) + (if (__AST-pair? _$e103620_) + (let* ((_$tgt103624103638_ (__AST-e _$e103620_)) + (_$hd103625103641_ (##car _$tgt103624103638_)) + (_$tl103626103644_ (##cdr _$tgt103624103638_))) + (let* ((_hd103648_ _$hd103625103641_) + (_rest103650_ _$tl103626103644_)) + (cons _hd103648_ (__AST->list _rest103650_)))) + (_$E103622103635_))))) (define __AST->datum - (lambda (_stx102455_) - (if (##structure-instance-of? _stx102455_ 'gerbil#AST::t) - (__AST->datum (__AST-e _stx102455_)) - (if (pair? _stx102455_) - (cons (__AST->datum (car _stx102455_)) - (__AST->datum (cdr _stx102455_))) - (if (vector? _stx102455_) - (vector-map __AST->datum _stx102455_) - (if (box? _stx102455_) - (box (__AST->datum (unbox _stx102455_))) - _stx102455_)))))) + (lambda (_stx103616_) + (if (##structure-instance-of? _stx103616_ 'gerbil#AST::t) + (__AST->datum (__AST-e _stx103616_)) + (if (pair? _stx103616_) + (cons (__AST->datum (car _stx103616_)) + (__AST->datum (cdr _stx103616_))) + (if (vector? _stx103616_) + (vector-map __AST->datum _stx103616_) + (if (box? _stx103616_) + (box (__AST->datum (unbox _stx103616_))) + _stx103616_)))))) (define get-readenv - (lambda (_port102453_) + (lambda (_port103614_) (##make-readenv - _port102453_ + _port103614_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -418,86 +418,86 @@ '() '#f))) (define read-syntax__% - (lambda (_in102441_) - (let ((_e102443_ (##read-datum-or-eof (get-readenv _in102441_)))) - (if (eof-object? (__AST-e _e102443_)) - (__AST-e _e102443_) - _e102443_)))) + (lambda (_in103602_) + (let ((_e103604_ (##read-datum-or-eof (get-readenv _in103602_)))) + (if (eof-object? (__AST-e _e103604_)) + (__AST-e _e103604_) + _e103604_)))) (define read-syntax__0 (lambda () - (let ((_in102449_ (current-input-port))) (read-syntax__% _in102449_)))) + (let ((_in103610_ (current-input-port))) (read-syntax__% _in103610_)))) (define read-syntax - (lambda _g107544_ - (let ((_g107543_ (##length _g107544_))) - (cond ((##fx= _g107543_ 0) - (apply (lambda () (read-syntax__0)) _g107544_)) - ((##fx= _g107543_ 1) - (apply (lambda (_in102451_) (read-syntax__% _in102451_)) - _g107544_)) + (lambda _g108705_ + (let ((_g108704_ (##length _g108705_))) + (cond ((##fx= _g108704_ 0) + (apply (lambda () (read-syntax__0)) _g108705_)) + ((##fx= _g108704_ 1) + (apply (lambda (_in103612_) (read-syntax__% _in103612_)) + _g108705_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g107544_)))))) + _g108705_)))))) (define read-syntax-from-file - (lambda (_path102436_) - (let ((_r102438_ + (lambda (_path103597_) + (let ((_r103599_ (##read-all-as-a-begin-expr-from-path - (path-normalize _path102436_) + (path-normalize _path103597_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _r102438_) - (cdr (__AST-e (vector-ref _r102438_ '1))) - (error (err-code->string _r102438_) _path102436_))))) + (if (vector? _r103599_) + (cdr (__AST-e (vector-ref _r103599_ '1))) + (error (err-code->string _r103599_) _path103597_))))) (define __wrap-syntax - (lambda (_re102433_ _e102434_) - (if (eof-object? _e102434_) - _e102434_ - (##structure AST::t _e102434_ (##readenv->locat _re102433_))))) + (lambda (_re103594_ _e103595_) + (if (eof-object? _e103595_) + _e103595_ + (##structure AST::t _e103595_ (##readenv->locat _re103594_))))) (define __unwrap-syntax - (lambda (_re102430_ _e102431_) (__AST-e _e102431_))) - (define __pp-syntax (lambda (_stx102428_) (pp (__AST->datum _stx102428_)))) + (lambda (_re103591_ _e103592_) (__AST-e _e103592_))) + (define __pp-syntax (lambda (_stx103589_) (pp (__AST->datum _stx103589_)))) (define __make-readtable (lambda () - (let ((_rt102426_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _rt102426_ '#t) - (macro-readtable-bracket-handler-set! _rt102426_ '@list) - (macro-readtable-brace-handler-set! _rt102426_ '@method) + (let ((_rt103587_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _rt103587_ '#t) + (macro-readtable-bracket-handler-set! _rt103587_ '@list) + (macro-readtable-brace-handler-set! _rt103587_ '@method) (##readtable-char-sharp-handler-set! - _rt102426_ + _rt103587_ '#\! __read-sharp-bang) - _rt102426_))) + _rt103587_))) (define __readtable-bracket-keyword-set! - (lambda (_rt102422_ _kw102423_) - (macro-readtable-bracket-handler-set! _rt102422_ _kw102423_))) + (lambda (_rt103583_ _kw103584_) + (macro-readtable-bracket-handler-set! _rt103583_ _kw103584_))) (define __readtable-brace-keyword-set! - (lambda (_rt102419_ _kw102420_) - (macro-readtable-brace-handler-set! _rt102419_ _kw102420_))) + (lambda (_rt103580_ _kw103581_) + (macro-readtable-brace-handler-set! _rt103580_ _kw103581_))) (define __read-sharp-bang - (lambda (_re102410_ _next102411_ _start-pos102412_) - (if (eq? _start-pos102412_ '0) - (let* ((_line102414_ + (lambda (_re103571_ _next103572_ _start-pos103573_) + (if (eq? _start-pos103573_ '0) + (let* ((_line103575_ (##read-line - (macro-readenv-port _re102410_) + (macro-readenv-port _re103571_) '#\newline '#f ##max-fixnum)) - (_script-line102416_ - (substring _line102414_ '1 (string-length _line102414_)))) - (macro-readenv-script-line-set! _re102410_ _script-line102416_) + (_script-line103577_ + (substring _line103575_ '1 (string-length _line103575_)))) + (macro-readenv-script-line-set! _re103571_ _script-line103577_) (##script-marker)) - (##read-sharp-bang _re102410_ _next102411_ _start-pos102412_)))) + (##read-sharp-bang _re103571_ _next103572_ _start-pos103573_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_obj102408_) - (if (source-location? _obj102408_) - (string? (##locat-container _obj102408_)) + (lambda (_obj103569_) + (if (source-location? _obj103569_) + (string? (##locat-container _obj103569_)) '#f))) (define source-location-path - (lambda (_obj102406_) - (if (##locat? _obj102406_) - (##container->path (##locat-container _obj102406_)) + (lambda (_obj103567_) + (if (##locat? _obj103567_) + (##container->path (##locat-container _obj103567_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax__1.scm b/src/bootstrap/gerbil/runtime/syntax__1.scm index 0c616dcd9..6afafe5bf 100644 --- a/src/bootstrap/gerbil/runtime/syntax__1.scm +++ b/src/bootstrap/gerbil/runtime/syntax__1.scm @@ -1,279 +1,279 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g107649_| + (define |[1]#_g108810_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g107657_| + (define |[1]#_g108818_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g107659_| + (define |[1]#_g108820_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g107661_| + (define |[1]#_g108822_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g107663_| + (define |[1]#_g108824_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g107672_| + (define |[1]#_g108833_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g107675_| + (define |[1]#_g108836_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g107678_| + (define |[1]#_g108839_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g107681_| + (define |[1]#_g108842_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g107684_| + (define |[1]#_g108845_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g107687_| + (define |[1]#_g108848_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g107696_| + (define |[1]#_g108857_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107699_| + (define |[1]#_g108860_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107702_| + (define |[1]#_g108863_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107705_| + (define |[1]#_g108866_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107708_| + (define |[1]#_g108869_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107711_| + (define |[1]#_g108872_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107720_| + (define |[1]#_g108881_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g107723_| + (define |[1]#_g108884_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g107726_| + (define |[1]#_g108887_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g107729_| + (define |[1]#_g108890_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g107732_| + (define |[1]#_g108893_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g107735_| + (define |[1]#_g108896_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g107744_| + (define |[1]#_g108905_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107747_| + (define |[1]#_g108908_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107750_| + (define |[1]#_g108911_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107753_| + (define |[1]#_g108914_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107756_| + (define |[1]#_g108917_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107759_| + (define |[1]#_g108920_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107761_| + (define |[1]#_g108922_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g107763_| + (define |[1]#_g108924_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g107765_| + (define |[1]#_g108926_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g107770_| + (define |[1]#_g108931_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g107773_| + (define |[1]#_g108934_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g107778_| + (define |[1]#_g108939_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107781_| + (define |[1]#_g108942_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107786_| + (define |[1]#_g108947_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g107789_| + (define |[1]#_g108950_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g107794_| + (define |[1]#_g108955_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g107797_| + (define |[1]#_g108958_| (##structure gx#syntax-quote::t '&AST-e-set! @@ -282,1195 +282,1195 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_$stx101295_) - (let* ((_g101299101323_ - (lambda (_g101300101319_) + (lambda (_$stx102456_) + (let* ((_g102460102484_ + (lambda (_g102461102480_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101300101319_))) - (_g101298101409_ - (lambda (_g101300101327_) - (if (gx#stx-pair? _g101300101327_) - (let ((_e101305101330_ (gx#syntax-e _g101300101327_))) - (let ((_hd101304101334_ + _g102461102480_))) + (_g102459102570_ + (lambda (_g102461102488_) + (if (gx#stx-pair? _g102461102488_) + (let ((_e102466102491_ (gx#syntax-e _g102461102488_))) + (let ((_hd102465102495_ (let () (declare (not safe)) - (##car _e101305101330_))) - (_tl101303101337_ + (##car _e102466102491_))) + (_tl102464102498_ (let () (declare (not safe)) - (##cdr _e101305101330_)))) - (if (gx#stx-pair? _tl101303101337_) - (let ((_e101308101340_ - (gx#syntax-e _tl101303101337_))) - (let ((_hd101307101344_ + (##cdr _e102466102491_)))) + (if (gx#stx-pair? _tl102464102498_) + (let ((_e102469102501_ + (gx#syntax-e _tl102464102498_))) + (let ((_hd102468102505_ (let () (declare (not safe)) - (##car _e101308101340_))) - (_tl101306101347_ + (##car _e102469102501_))) + (_tl102467102508_ (let () (declare (not safe)) - (##cdr _e101308101340_)))) - (if (gx#stx-pair/null? _tl101306101347_) - (let ((_g107545_ + (##cdr _e102469102501_)))) + (if (gx#stx-pair/null? _tl102467102508_) + (let ((_g108706_ (gx#syntax-split-splice - _tl101306101347_ + _tl102467102508_ '0))) (begin - (let ((_g107546_ + (let ((_g108707_ (let () (declare (not safe)) - (if (##values? _g107545_) + (if (##values? _g108706_) (##vector-length - _g107545_) + _g108706_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g107546_ 2))) + (##fx= _g108707_ 2))) (error "Context expects 2 values" - _g107546_))) - (let ((_target101309101350_ + _g108707_))) + (let ((_target102470102511_ (let () (declare (not safe)) - (##vector-ref _g107545_ 0))) - (_tl101311101353_ + (##vector-ref _g108706_ 0))) + (_tl102472102514_ (let () (declare (not safe)) (##vector-ref - _g107545_ + _g108706_ 1)))) - (if (gx#stx-null? _tl101311101353_) - (letrec ((_loop101312101356_ - (lambda (_hd101310101360_ + (if (gx#stx-null? _tl102472102514_) + (letrec ((_loop102473102517_ + (lambda (_hd102471102521_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _body101316101363_) - (if (gx#stx-pair? _hd101310101360_) - (let ((_e101313101366_ (gx#syntax-e _hd101310101360_))) - (let ((_lp-hd101314101370_ + _body102477102524_) + (if (gx#stx-pair? _hd102471102521_) + (let ((_e102474102527_ (gx#syntax-e _hd102471102521_))) + (let ((_lp-hd102475102531_ (let () (declare (not safe)) - (##car _e101313101366_))) - (_lp-tl101315101373_ + (##car _e102474102527_))) + (_lp-tl102476102534_ (let () (declare (not safe)) - (##cdr _e101313101366_)))) - (_loop101312101356_ - _lp-tl101315101373_ + (##cdr _e102474102527_)))) + (_loop102473102517_ + _lp-tl102476102534_ (let () (declare (not safe)) - (cons _lp-hd101314101370_ - _body101316101363_))))) - (let ((_body101317101376_ - (reverse _body101316101363_))) - ((lambda (_L101380_ _L101382_) - (let ((__tmp107558 (gx#datum->syntax '#f 'let)) - (__tmp107547 - (let ((__tmp107555 - (let ((__tmp107557 + (cons _lp-hd102475102531_ + _body102477102524_))))) + (let ((_body102478102537_ + (reverse _body102477102524_))) + ((lambda (_L102541_ _L102543_) + (let ((__tmp108719 (gx#datum->syntax '#f 'let)) + (__tmp108708 + (let ((__tmp108716 + (let ((__tmp108718 (gx#datum->syntax '#f '$e)) - (__tmp107556 + (__tmp108717 (let () (declare (not safe)) - (cons _L101382_ '())))) + (cons _L102543_ '())))) (declare (not safe)) - (cons __tmp107557 __tmp107556))) - (__tmp107548 - (let ((__tmp107549 - (let ((__tmp107554 + (cons __tmp108718 __tmp108717))) + (__tmp108709 + (let ((__tmp108710 + (let ((__tmp108715 (gx#datum->syntax '#f 'core-ast-case%)) - (__tmp107550 - (let ((__tmp107553 + (__tmp108711 + (let ((__tmp108714 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$e)) - (__tmp107551 - (let ((__tmp107552 - (lambda (_g101400101403_ _g101401101406_) + (__tmp108712 + (let ((__tmp108713 + (lambda (_g102561102564_ _g102562102567_) (let () (declare (not safe)) - (cons _g101400101403_ _g101401101406_))))) + (cons _g102561102564_ _g102562102567_))))) (declare (not safe)) - (foldr1 __tmp107552 '() _L101380_)))) + (foldr1 __tmp108713 '() _L102541_)))) (declare (not safe)) - (cons __tmp107553 __tmp107551)))) + (cons __tmp108714 __tmp108712)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107554 - __tmp107550)))) + (cons __tmp108715 + __tmp108711)))) (declare (not safe)) - (cons __tmp107549 '())))) + (cons __tmp108710 '())))) (declare (not safe)) - (cons __tmp107555 __tmp107548)))) + (cons __tmp108716 __tmp108709)))) (declare (not safe)) - (cons __tmp107558 __tmp107547))) - _body101317101376_ - _hd101307101344_)))))) + (cons __tmp108719 __tmp108708))) + _body102478102537_ + _hd102468102505_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_loop101312101356_ - _target101309101350_ + (_loop102473102517_ + _target102470102511_ '())) - (_g101299101323_ - _g101300101327_))))) - (_g101299101323_ _g101300101327_)))) - (_g101299101323_ _g101300101327_)))) - (_g101299101323_ _g101300101327_))))) - (_g101298101409_ _$stx101295_)))) + (_g102460102484_ + _g102461102488_))))) + (_g102460102484_ _g102461102488_)))) + (_g102460102484_ _g102461102488_)))) + (_g102460102484_ _g102461102488_))))) + (_g102459102570_ _$stx102456_)))) (define |[:0:]#core-ast-case%| - (lambda (_stx101414_) - (letrec ((_generate1101417_ - (lambda (_hd101958_ - _tgt101960_ - _K101961_ - _E101962_ - _kws101963_) - (let* ((_g101965101973_ - (lambda (_g101966101969_) + (lambda (_stx102575_) + (letrec ((_generate1102578_ + (lambda (_hd103119_ + _tgt103121_ + _K103122_ + _E103123_ + _kws103124_) + (let* ((_g103126103134_ + (lambda (_g103127103130_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101966101969_))) - (_g101964102400_ - (lambda (_g101966101977_) - ((lambda (_L101980_) + _g103127103130_))) + (_g103125103561_ + (lambda (_g103127103138_) + ((lambda (_L103141_) (let () - (let* ((___stx107445107446_ _hd101958_) - (_g101994102008_ + (let* ((___stx108606108607_ _hd103119_) + (_g103155103169_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx107445107446_)))) - (let ((___kont107448107449_ - (lambda (_L102222_ _L102224_) - (let* ((_g102235102243_ - (lambda (_g102236102239_) + ___stx108606108607_)))) + (let ((___kont108609108610_ + (lambda (_L103383_ _L103385_) + (let* ((_g103396103404_ + (lambda (_g103397103400_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102236102239_))) - (_g102234102392_ - (lambda (_g102236102247_) - ((lambda (_L102250_) + _g103397103400_))) + (_g103395103553_ + (lambda (_g103397103408_) + ((lambda (_L103411_) (let () - (let* ((_g102262102270_ + (let* ((_g103423103431_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g102263102266_) + (lambda (_g103424103427_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102263102266_))) - (_g102261102388_ - (lambda (_g102263102274_) - ((lambda (_L102277_) + _g103424103427_))) + (_g103422103549_ + (lambda (_g103424103435_) + ((lambda (_L103438_) (let () - (let* ((_g102290102298_ - (lambda (_g102291102294_) + (let* ((_g103451103459_ + (lambda (_g103452103455_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102291102294_))) - (_g102289102384_ - (lambda (_g102291102302_) - ((lambda (_L102305_) + _g103452103455_))) + (_g103450103545_ + (lambda (_g103452103463_) + ((lambda (_L103466_) (let () - (let* ((_g102318102326_ - (lambda (_g102319102322_) + (let* ((_g103479103487_ + (lambda (_g103480103483_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102319102322_))) - (_g102317102380_ - (lambda (_g102319102330_) - ((lambda (_L102333_) + _g103480103483_))) + (_g103478103541_ + (lambda (_g103480103491_) + ((lambda (_L103494_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_g102346102354_ - (lambda (_g102347102350_) + (let* ((_g103507103515_ + (lambda (_g103508103511_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102347102350_))) - (_g102345102376_ - (lambda (_g102347102358_) - ((lambda (_L102361_) + _g103508103511_))) + (_g103506103537_ + (lambda (_g103508103519_) + ((lambda (_L103522_) (let () (let () - (let ((__tmp107587 + (let ((__tmp108748 (gx#datum->syntax '#f 'if)) - (__tmp107559 - (let ((__tmp107584 - (let ((__tmp107586 + (__tmp108720 + (let ((__tmp108745 + (let ((__tmp108747 (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-pair?)) - (__tmp107585 - (let () (declare (not safe)) (cons _L101980_ '())))) + (__tmp108746 + (let () (declare (not safe)) (cons _L103141_ '())))) (declare (not safe)) - (cons __tmp107586 __tmp107585))) - (__tmp107560 - (let ((__tmp107562 - (let ((__tmp107583 (gx#datum->syntax '#f 'let*)) - (__tmp107563 - (let ((__tmp107565 - (let ((__tmp107578 - (let ((__tmp107579 - (let ((__tmp107580 - (let ((__tmp107582 + (cons __tmp108747 __tmp108746))) + (__tmp108721 + (let ((__tmp108723 + (let ((__tmp108744 (gx#datum->syntax '#f 'let*)) + (__tmp108724 + (let ((__tmp108726 + (let ((__tmp108739 + (let ((__tmp108740 + (let ((__tmp108741 + (let ((__tmp108743 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp107581 - (let () (declare (not safe)) (cons _L101980_ '())))) + (__tmp108742 + (let () (declare (not safe)) (cons _L103141_ '())))) (declare (not safe)) - (cons __tmp107582 __tmp107581)))) + (cons __tmp108743 __tmp108742)))) (declare (not safe)) - (cons __tmp107580 '())))) + (cons __tmp108741 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L102250_ __tmp107579))) - (__tmp107566 - (let ((__tmp107573 - (let ((__tmp107574 - (let ((__tmp107575 + (cons _L103411_ __tmp108740))) + (__tmp108727 + (let ((__tmp108734 + (let ((__tmp108735 + (let ((__tmp108736 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp107577 (gx#datum->syntax '#f '##car)) - (__tmp107576 + (let ((__tmp108738 (gx#datum->syntax '#f '##car)) + (__tmp108737 (let () (declare (not safe)) - (cons _L102250_ '())))) + (cons _L103411_ '())))) (declare (not safe)) - (cons __tmp107577 __tmp107576)))) + (cons __tmp108738 __tmp108737)))) (declare (not safe)) - (cons __tmp107575 '())))) + (cons __tmp108736 '())))) (declare (not safe)) - (cons _L102277_ __tmp107574))) + (cons _L103438_ __tmp108735))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp107567 - (let ((__tmp107568 - (let ((__tmp107569 + (__tmp108728 + (let ((__tmp108729 + (let ((__tmp108730 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp107570 - (let ((__tmp107572 + (let ((__tmp108731 + (let ((__tmp108733 (gx#datum->syntax '#f '##cdr)) - (__tmp107571 + (__tmp108732 (let () (declare (not safe)) - (cons _L102250_ '())))) + (cons _L103411_ '())))) (declare (not safe)) - (cons __tmp107572 __tmp107571)))) + (cons __tmp108733 __tmp108732)))) (declare (not safe)) - (cons __tmp107570 '())))) + (cons __tmp108731 '())))) (declare (not safe)) - (cons _L102305_ __tmp107569)))) + (cons _L103466_ __tmp108730)))) (declare (not safe)) - (cons __tmp107568 '())))) + (cons __tmp108729 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107573 - __tmp107567)))) + (cons __tmp108734 + __tmp108728)))) (declare (not safe)) - (cons __tmp107578 __tmp107566))) - (__tmp107564 + (cons __tmp108739 __tmp108727))) + (__tmp108725 (let () (declare (not safe)) - (cons _L102333_ '())))) + (cons _L103494_ '())))) (declare (not safe)) - (cons __tmp107565 __tmp107564)))) + (cons __tmp108726 __tmp108725)))) (declare (not safe)) - (cons __tmp107583 __tmp107563))) - (__tmp107561 - (let () (declare (not safe)) (cons _L102361_ '())))) + (cons __tmp108744 __tmp108724))) + (__tmp108722 + (let () (declare (not safe)) (cons _L103522_ '())))) (declare (not safe)) - (cons __tmp107562 __tmp107561)))) + (cons __tmp108723 __tmp108722)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107584 - __tmp107560)))) + (cons __tmp108745 + __tmp108721)))) (declare (not safe)) - (cons __tmp107587 __tmp107559))))) - _g102347102358_)))) - (_g102345102376_ _E101962_)))) - _g102319102330_)))) + (cons __tmp108748 __tmp108720))))) + _g103508103519_)))) + (_g103506103537_ _E103123_)))) + _g103480103491_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g102317102380_ - (_generate1101417_ - _L102224_ - _L102277_ - (_generate1101417_ - _L102222_ - _L102305_ - _K101961_ - _E101962_ - _kws101963_) - _E101962_ - _kws101963_))))) - _g102291102302_)))) - (_g102289102384_ (gx#genident '$tl))))) - _g102263102274_)))) - (_g102261102388_ (gx#genident '$hd))))) - _g102236102247_)))) + (_g103478103541_ + (_generate1102578_ + _L103385_ + _L103438_ + (_generate1102578_ + _L103383_ + _L103466_ + _K103122_ + _E103123_ + _kws103124_) + _E103123_ + _kws103124_))))) + _g103452103463_)))) + (_g103450103545_ (gx#genident '$tl))))) + _g103424103435_)))) + (_g103422103549_ (gx#genident '$hd))))) + _g103397103408_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g102234102392_ + (_g103395103553_ (gx#genident '$tgt))))) - (___kont107450107451_ - (lambda (_L102097_) - (if (gx#underscore? _L102097_) - _K101961_ - (if (let ((__tmp107616 - (lambda (_g102105102107_) + (___kont108611108612_ + (lambda (_L103258_) + (if (gx#underscore? _L103258_) + _K103122_ + (if (let ((__tmp108777 + (lambda (_g103266103268_) (gx#bound-identifier=? - _g102105102107_ - _L102097_))) - (__tmp107615 + _g103266103268_ + _L103258_))) + (__tmp108776 (gx#syntax->list - _kws101963_))) + _kws103124_))) (declare (not safe)) - (find __tmp107616 - __tmp107615)) - (let* ((_g102111102126_ - (lambda (_g102112102122_) + (find __tmp108777 + __tmp108776)) + (let* ((_g103272103287_ + (lambda (_g103273103283_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _g102112102122_))) - (_g102110102171_ - (lambda (_g102112102130_) - (if (gx#stx-pair? _g102112102130_) - (let ((_e102117102133_ - (gx#syntax-e _g102112102130_))) - (let ((_hd102116102137_ + _g103273103283_))) + (_g103271103332_ + (lambda (_g103273103291_) + (if (gx#stx-pair? _g103273103291_) + (let ((_e103278103294_ + (gx#syntax-e _g103273103291_))) + (let ((_hd103277103298_ (let () (declare (not safe)) - (##car _e102117102133_))) - (_tl102115102140_ + (##car _e103278103294_))) + (_tl103276103301_ (let () (declare (not safe)) - (##cdr _e102117102133_)))) - (if (gx#stx-pair? _tl102115102140_) - (let ((_e102120102143_ - (gx#syntax-e _tl102115102140_))) - (let ((_hd102119102147_ + (##cdr _e103278103294_)))) + (if (gx#stx-pair? _tl103276103301_) + (let ((_e103281103304_ + (gx#syntax-e _tl103276103301_))) + (let ((_hd103280103308_ (let () (declare (not safe)) - (##car _e102120102143_))) - (_tl102118102150_ + (##car _e103281103304_))) + (_tl103279103311_ (let () (declare (not safe)) - (##cdr _e102120102143_)))) - (if (gx#stx-null? _tl102118102150_) - ((lambda (_L102153_ _L102155_) + (##cdr _e103281103304_)))) + (if (gx#stx-null? _tl103279103311_) + ((lambda (_L103314_ _L103316_) (let () - (let ((__tmp107614 + (let ((__tmp108775 (gx#datum->syntax '#f 'if)) - (__tmp107594 - (let ((__tmp107597 - (let ((__tmp107613 + (__tmp108755 + (let ((__tmp108758 + (let ((__tmp108774 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'and)) - (__tmp107598 - (let ((__tmp107610 - (let ((__tmp107612 + (__tmp108759 + (let ((__tmp108771 + (let ((__tmp108773 (gx#datum->syntax '#f '__AST-id?)) - (__tmp107611 + (__tmp108772 (let () (declare (not safe)) - (cons _L101980_ '())))) + (cons _L103141_ '())))) (declare (not safe)) - (cons __tmp107612 __tmp107611))) - (__tmp107599 - (let ((__tmp107600 - (let ((__tmp107609 + (cons __tmp108773 __tmp108772))) + (__tmp108760 + (let ((__tmp108761 + (let ((__tmp108770 (gx#datum->syntax '#f 'eq?)) - (__tmp107601 - (let ((__tmp107606 - (let ((__tmp107608 + (__tmp108762 + (let ((__tmp108767 + (let ((__tmp108769 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f '__AST-e)) - (__tmp107607 - (let () (declare (not safe)) (cons _L101980_ '())))) + (__tmp108768 + (let () (declare (not safe)) (cons _L103141_ '())))) (declare (not safe)) - (cons __tmp107608 __tmp107607))) - (__tmp107602 - (let ((__tmp107603 - (let ((__tmp107605 (gx#datum->syntax '#f 'quote)) - (__tmp107604 + (cons __tmp108769 __tmp108768))) + (__tmp108763 + (let ((__tmp108764 + (let ((__tmp108766 (gx#datum->syntax '#f 'quote)) + (__tmp108765 (let () (declare (not safe)) - (cons _L102097_ '())))) + (cons _L103258_ '())))) (declare (not safe)) - (cons __tmp107605 __tmp107604)))) + (cons __tmp108766 __tmp108765)))) (declare (not safe)) - (cons __tmp107603 '())))) + (cons __tmp108764 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107606 - __tmp107602)))) + (cons __tmp108767 + __tmp108763)))) (declare (not safe)) - (cons __tmp107609 __tmp107601)))) + (cons __tmp108770 __tmp108762)))) (declare (not safe)) - (cons __tmp107600 '())))) + (cons __tmp108761 '())))) (declare (not safe)) - (cons __tmp107610 __tmp107599)))) + (cons __tmp108771 __tmp108760)))) (declare (not safe)) - (cons __tmp107613 __tmp107598))) - (__tmp107595 - (let ((__tmp107596 + (cons __tmp108774 __tmp108759))) + (__tmp108756 + (let ((__tmp108757 (let () (declare (not safe)) - (cons _L102153_ '())))) + (cons _L103314_ '())))) (declare (not safe)) - (cons _L102155_ __tmp107596)))) + (cons _L103316_ __tmp108757)))) (declare (not safe)) - (cons __tmp107597 __tmp107595)))) + (cons __tmp108758 __tmp108756)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107614 - __tmp107594)))) - _hd102119102147_ - _hd102116102137_) - (_g102111102126_ - _g102112102130_)))) - (_g102111102126_ _g102112102130_)))) - (_g102111102126_ _g102112102130_))))) - (_g102110102171_ (list _K101961_ _E101962_))) - (let* ((_g102175102183_ - (lambda (_g102176102179_) + (cons __tmp108775 + __tmp108755)))) + _hd103280103308_ + _hd103277103298_) + (_g103272103287_ + _g103273103291_)))) + (_g103272103287_ _g103273103291_)))) + (_g103272103287_ _g103273103291_))))) + (_g103271103332_ (list _K103122_ _E103123_))) + (let* ((_g103336103344_ + (lambda (_g103337103340_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102176102179_))) - (_g102174102201_ - (lambda (_g102176102187_) - ((lambda (_L102190_) + _g103337103340_))) + (_g103335103362_ + (lambda (_g103337103348_) + ((lambda (_L103351_) (let () - (let ((__tmp107593 (gx#datum->syntax '#f 'let)) - (__tmp107588 - (let ((__tmp107590 - (let ((__tmp107591 - (let ((__tmp107592 + (let ((__tmp108754 (gx#datum->syntax '#f 'let)) + (__tmp108749 + (let ((__tmp108751 + (let ((__tmp108752 + (let ((__tmp108753 (let () (declare (not safe)) - (cons _L101980_ + (cons _L103141_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L102097_ - __tmp107592)))) + (cons _L103258_ + __tmp108753)))) (declare (not safe)) - (cons __tmp107591 '()))) - (__tmp107589 + (cons __tmp108752 '()))) + (__tmp108750 (let () (declare (not safe)) - (cons _L102190_ '())))) + (cons _L103351_ '())))) (declare (not safe)) - (cons __tmp107590 __tmp107589)))) + (cons __tmp108751 __tmp108750)))) (declare (not safe)) - (cons __tmp107593 __tmp107588)))) - _g102176102187_)))) - (_g102174102201_ _K101961_)))))) + (cons __tmp108754 __tmp108749)))) + _g103337103348_)))) + (_g103335103362_ _K103122_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont107452107453_ - (lambda (_L102015_) - (let* ((_g102026102041_ - (lambda (_g102027102037_) + (___kont108613108614_ + (lambda (_L103176_) + (let* ((_g103187103202_ + (lambda (_g103188103198_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g102027102037_))) - (_g102025102086_ - (lambda (_g102027102045_) + _g103188103198_))) + (_g103186103247_ + (lambda (_g103188103206_) (if (gx#stx-pair? - _g102027102045_) - (let ((_e102032102048_ + _g103188103206_) + (let ((_e103193103209_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _g102027102045_))) - (let ((_hd102031102052_ + (gx#syntax-e _g103188103206_))) + (let ((_hd103192103213_ (let () (declare (not safe)) - (##car _e102032102048_))) - (_tl102030102055_ + (##car _e103193103209_))) + (_tl103191103216_ (let () (declare (not safe)) - (##cdr _e102032102048_)))) - (if (gx#stx-pair? _tl102030102055_) - (let ((_e102035102058_ - (gx#syntax-e _tl102030102055_))) - (let ((_hd102034102062_ + (##cdr _e103193103209_)))) + (if (gx#stx-pair? _tl103191103216_) + (let ((_e103196103219_ + (gx#syntax-e _tl103191103216_))) + (let ((_hd103195103223_ (let () (declare (not safe)) - (##car _e102035102058_))) - (_tl102033102065_ + (##car _e103196103219_))) + (_tl103194103226_ (let () (declare (not safe)) - (##cdr _e102035102058_)))) - (if (gx#stx-null? _tl102033102065_) - ((lambda (_L102068_ _L102070_) + (##cdr _e103196103219_)))) + (if (gx#stx-null? _tl103194103226_) + ((lambda (_L103229_ _L103231_) (let () - (let ((__tmp107630 + (let ((__tmp108791 (gx#datum->syntax '#f 'if)) - (__tmp107617 - (let ((__tmp107620 - (let ((__tmp107629 + (__tmp108778 + (let ((__tmp108781 + (let ((__tmp108790 (gx#datum->syntax '#f 'equal?)) - (__tmp107621 - (let ((__tmp107626 + (__tmp108782 + (let ((__tmp108787 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp107628 + (let ((__tmp108789 (gx#datum->syntax '#f '__AST-e)) - (__tmp107627 + (__tmp108788 (let () (declare (not safe)) - (cons _L101980_ '())))) + (cons _L103141_ '())))) (declare (not safe)) - (cons __tmp107628 __tmp107627))) - (__tmp107622 - (let ((__tmp107623 - (let ((__tmp107625 + (cons __tmp108789 __tmp108788))) + (__tmp108783 + (let ((__tmp108784 + (let ((__tmp108786 (gx#datum->syntax '#f 'quote)) - (__tmp107624 + (__tmp108785 (let () (declare (not safe)) - (cons _L102015_ '())))) + (cons _L103176_ '())))) (declare (not safe)) - (cons __tmp107625 __tmp107624)))) + (cons __tmp108786 __tmp108785)))) (declare (not safe)) - (cons __tmp107623 '())))) + (cons __tmp108784 '())))) (declare (not safe)) - (cons __tmp107626 __tmp107622)))) + (cons __tmp108787 __tmp108783)))) (declare (not safe)) - (cons __tmp107629 __tmp107621))) - (__tmp107618 - (let ((__tmp107619 - (let () (declare (not safe)) (cons _L102068_ '())))) + (cons __tmp108790 __tmp108782))) + (__tmp108779 + (let ((__tmp108780 + (let () (declare (not safe)) (cons _L103229_ '())))) (declare (not safe)) - (cons _L102070_ __tmp107619)))) + (cons _L103231_ __tmp108780)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107620 - __tmp107618)))) + (cons __tmp108781 + __tmp108779)))) (declare (not safe)) - (cons __tmp107630 __tmp107617)))) - _hd102034102062_ - _hd102031102052_) - (_g102026102041_ _g102027102045_)))) - (_g102026102041_ _g102027102045_)))) - (_g102026102041_ _g102027102045_))))) + (cons __tmp108791 __tmp108778)))) + _hd103195103223_ + _hd103192103213_) + (_g103187103202_ _g103188103206_)))) + (_g103187103202_ _g103188103206_)))) + (_g103187103202_ _g103188103206_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g102025102086_ - (list _K101961_ - _E101962_)))))) - (let ((_g101992102205_ + (_g103186103247_ + (list _K103122_ + _E103123_)))))) + (let ((_g103153103366_ (lambda () - (let ((_L102097_ - ___stx107445107446_)) + (let ((_L103258_ + ___stx108606108607_)) (if (gx#identifier? - _L102097_) - (___kont107450107451_ - _L102097_) - (___kont107452107453_ - ___stx107445107446_)))))) - (if (gx#stx-pair? ___stx107445107446_) - (let ((_e102000102212_ + _L103258_) + (___kont108611108612_ + _L103258_) + (___kont108613108614_ + ___stx108606108607_)))))) + (if (gx#stx-pair? ___stx108606108607_) + (let ((_e103161103373_ (gx#syntax-e - ___stx107445107446_))) - (let ((_tl101998102219_ + ___stx108606108607_))) + (let ((_tl103159103380_ (let () (declare (not safe)) - (##cdr _e102000102212_))) - (_hd101999102216_ + (##cdr _e103161103373_))) + (_hd103160103377_ (let () (declare (not safe)) - (##car _e102000102212_)))) - (___kont107448107449_ - _tl101998102219_ - _hd101999102216_))) + (##car _e103161103373_)))) + (___kont108609108610_ + _tl103159103380_ + _hd103160103377_))) (let () (declare (not safe)) - (_g101992102205_)))))))) - _g101966101977_)))) - (_g101964102400_ _tgt101960_))))) - (let* ((_g101420101448_ - (lambda (_g101421101444_) + (_g103153103366_)))))))) + _g103127103138_)))) + (_g103125103561_ _tgt103121_))))) + (let* ((_g102581102609_ + (lambda (_g102582102605_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101421101444_))) - (_g101419101954_ - (lambda (_g101421101452_) - (if (gx#stx-pair? _g101421101452_) - (let ((_e101427101455_ (gx#syntax-e _g101421101452_))) - (let ((_hd101426101459_ + _g102582102605_))) + (_g102580103115_ + (lambda (_g102582102613_) + (if (gx#stx-pair? _g102582102613_) + (let ((_e102588102616_ (gx#syntax-e _g102582102613_))) + (let ((_hd102587102620_ (let () (declare (not safe)) - (##car _e101427101455_))) - (_tl101425101462_ + (##car _e102588102616_))) + (_tl102586102623_ (let () (declare (not safe)) - (##cdr _e101427101455_)))) - (if (gx#stx-pair? _tl101425101462_) - (let ((_e101430101465_ - (gx#syntax-e _tl101425101462_))) - (let ((_hd101429101469_ + (##cdr _e102588102616_)))) + (if (gx#stx-pair? _tl102586102623_) + (let ((_e102591102626_ + (gx#syntax-e _tl102586102623_))) + (let ((_hd102590102630_ (let () (declare (not safe)) - (##car _e101430101465_))) - (_tl101428101472_ + (##car _e102591102626_))) + (_tl102589102633_ (let () (declare (not safe)) - (##cdr _e101430101465_)))) - (if (gx#stx-pair? _tl101428101472_) - (let ((_e101433101475_ - (gx#syntax-e _tl101428101472_))) - (let ((_hd101432101479_ + (##cdr _e102591102626_)))) + (if (gx#stx-pair? _tl102589102633_) + (let ((_e102594102636_ + (gx#syntax-e _tl102589102633_))) + (let ((_hd102593102640_ (let () (declare (not safe)) - (##car _e101433101475_))) - (_tl101431101482_ + (##car _e102594102636_))) + (_tl102592102643_ (let () (declare (not safe)) - (##cdr _e101433101475_)))) + (##cdr _e102594102636_)))) (if (gx#stx-pair/null? - _tl101431101482_) - (let ((_g107631_ + _tl102592102643_) + (let ((_g108792_ (gx#syntax-split-splice - _tl101431101482_ + _tl102592102643_ '0))) (begin - (let ((_g107632_ + (let ((_g108793_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g107631_) - (##vector-length _g107631_) + _g108792_) + (##vector-length _g108792_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g107632_ 2))) - (error "Context expects 2 values" _g107632_))) + (if (not (let () (declare (not safe)) (##fx= _g108793_ 2))) + (error "Context expects 2 values" _g108793_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_target101434101485_ + (let ((_target102595102646_ (let () (declare (not safe)) (##vector-ref - _g107631_ + _g108792_ 0))) - (_tl101436101488_ + (_tl102597102649_ (let () (declare (not safe)) (##vector-ref - _g107631_ + _g108792_ 1)))) (if (gx#stx-null? - _tl101436101488_) - (letrec ((_loop101437101491_ + _tl102597102649_) + (letrec ((_loop102598102652_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_hd101435101495_ _clause101441101498_) - (if (gx#stx-pair? _hd101435101495_) - (let ((_e101438101501_ - (gx#syntax-e _hd101435101495_))) - (let ((_lp-hd101439101505_ + (lambda (_hd102596102656_ _clause102602102659_) + (if (gx#stx-pair? _hd102596102656_) + (let ((_e102599102662_ + (gx#syntax-e _hd102596102656_))) + (let ((_lp-hd102600102666_ (let () (declare (not safe)) - (##car _e101438101501_))) - (_lp-tl101440101508_ + (##car _e102599102662_))) + (_lp-tl102601102669_ (let () (declare (not safe)) - (##cdr _e101438101501_)))) - (_loop101437101491_ - _lp-tl101440101508_ + (##cdr _e102599102662_)))) + (_loop102598102652_ + _lp-tl102601102669_ (let () (declare (not safe)) - (cons _lp-hd101439101505_ - _clause101441101498_))))) - (let ((_clause101442101511_ - (reverse _clause101441101498_))) - ((lambda (_L101515_ _L101517_ _L101518_) - (let _recur101540_ ((_rest101543_ - (let ((__tmp107654 + (cons _lp-hd102600102666_ + _clause102602102659_))))) + (let ((_clause102603102672_ + (reverse _clause102602102659_))) + ((lambda (_L102676_ _L102678_ _L102679_) + (let _recur102701_ ((_rest102704_ + (let ((__tmp108815 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g101945101948_ _g101946101951_) + (lambda (_g103106103109_ _g103107103112_) (let () (declare (not safe)) - (cons _g101945101948_ _g101946101951_))))) + (cons _g103106103109_ _g103107103112_))))) (declare (not safe)) - (foldr1 __tmp107654 '() _L101515_)))) + (foldr1 __tmp108815 '() _L102676_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_rest101545101554_ - _rest101543_) - (_E101548101560_ + (let* ((_rest102706102715_ + _rest102704_) + (_E102709102721_ (lambda () (error '"No clause matching" - _rest101545101554_)))) - (let ((_K101550101930_ - (lambda (_rest101576_ - _hd101578_) - (let* ((_g101580101588_ - (lambda (_g101581101584_) + _rest102706102715_)))) + (let ((_K102711103091_ + (lambda (_rest102737_ + _hd102739_) + (let* ((_g102741102749_ + (lambda (_g102742102745_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101581101584_))) - (_g101579101926_ - (lambda (_g101581101592_) - ((lambda (_L101595_) + _g102742102745_))) + (_g102740103087_ + (lambda (_g102742102753_) + ((lambda (_L102756_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () - (let* ((_g101613101621_ - (lambda (_g101614101617_) + (let* ((_g102774102782_ + (lambda (_g102775102778_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101614101617_))) - (_g101612101922_ - (lambda (_g101614101625_) - ((lambda (_L101628_) + _g102775102778_))) + (_g102773103083_ + (lambda (_g102775102786_) + ((lambda (_L102789_) (let () - (let* ((_g101641101649_ - (lambda (_g101642101645_) + (let* ((_g102802102810_ + (lambda (_g102803102806_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101642101645_))) - (_g101640101918_ - (lambda (_g101642101653_) - ((lambda (_L101656_) + _g102803102806_))) + (_g102801103079_ + (lambda (_g102803102814_) + ((lambda (_L102817_) (let () - (let* ((_g101669101677_ + (let* ((_g102830102838_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_g101670101673_) + (lambda (_g102831102834_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g101670101673_))) - (_g101668101699_ - (lambda (_g101670101681_) - ((lambda (_L101684_) + _g102831102834_))) + (_g102829102860_ + (lambda (_g102831102842_) + ((lambda (_L102845_) (let () (let () - (let ((__tmp107641 + (let ((__tmp108802 (gx#datum->syntax '#f 'let)) - (__tmp107633 - (let ((__tmp107635 - (let ((__tmp107636 - (let ((__tmp107637 - (let ((__tmp107640 + (__tmp108794 + (let ((__tmp108796 + (let ((__tmp108797 + (let ((__tmp108798 + (let ((__tmp108801 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp107638 - (let ((__tmp107639 + (__tmp108799 + (let ((__tmp108800 (let () (declare (not safe)) - (cons _L101656_ '())))) + (cons _L102817_ '())))) (declare (not safe)) - (cons '() __tmp107639)))) + (cons '() __tmp108800)))) (declare (not safe)) - (cons __tmp107640 __tmp107638)))) + (cons __tmp108801 __tmp108799)))) (declare (not safe)) - (cons __tmp107637 '())))) + (cons __tmp108798 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L101595_ - __tmp107636))) - (__tmp107634 + (cons _L102756_ + __tmp108797))) + (__tmp108795 (let () (declare (not safe)) - (cons _L101684_ '())))) + (cons _L102845_ '())))) (declare (not safe)) - (cons __tmp107635 __tmp107634)))) + (cons __tmp108796 __tmp108795)))) (declare (not safe)) - (cons __tmp107641 __tmp107633))))) - _g101670101681_)))) - (_g101668101699_ - (let* ((___stx107463107464_ _hd101578_) - (_g101705101745_ + (cons __tmp108802 __tmp108794))))) + _g102831102842_)))) + (_g102829102860_ + (let* ((___stx108624108625_ _hd102739_) + (_g102866102906_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx107463107464_)))) - (let ((___kont107466107467_ - (lambda (_L101891_) - (let ((__tmp107644 + ___stx108624108625_)))) + (let ((___kont108627108628_ + (lambda (_L103052_) + (let ((__tmp108805 (gx#datum->syntax '#f 'begin)) - (__tmp107642 - (let ((__tmp107643 - (lambda (_g101905101908_ - _g101906101911_) + (__tmp108803 + (let ((__tmp108804 + (lambda (_g103066103069_ + _g103067103072_) (let () (declare (not safe)) - (cons _g101905101908_ - _g101906101911_))))) + (cons _g103066103069_ + _g103067103072_))))) (declare (not safe)) - (foldr1 __tmp107643 '() _L101891_)))) + (foldr1 __tmp108804 '() _L103052_)))) (declare (not safe)) - (cons __tmp107644 __tmp107642)))) - (___kont107470107471_ - (lambda (_L101829_ _L101831_) - (_generate1101417_ - _L101831_ - _L101518_ - _L101829_ - _L101628_ - _L101517_))) - (___kont107472107473_ - (lambda (_L101782_ _L101784_ _L101785_) - (_generate1101417_ - _L101785_ - _L101518_ - (let ((__tmp107648 (gx#datum->syntax '#f 'if)) - (__tmp107645 - (let ((__tmp107646 - (let ((__tmp107647 + (cons __tmp108805 __tmp108803)))) + (___kont108631108632_ + (lambda (_L102990_ _L102992_) + (_generate1102578_ + _L102992_ + _L102679_ + _L102990_ + _L102789_ + _L102678_))) + (___kont108633108634_ + (lambda (_L102943_ _L102945_ _L102946_) + (_generate1102578_ + _L102946_ + _L102679_ + (let ((__tmp108809 (gx#datum->syntax '#f 'if)) + (__tmp108806 + (let ((__tmp108807 + (let ((__tmp108808 (let () (declare (not safe)) - (cons _L101628_ '())))) + (cons _L102789_ '())))) (declare (not safe)) - (cons _L101782_ __tmp107647)))) + (cons _L102943_ __tmp108808)))) (declare (not safe)) - (cons _L101784_ __tmp107646)))) + (cons _L102945_ __tmp108807)))) (declare (not safe)) - (cons __tmp107648 __tmp107645)) - _L101628_ - _L101517_)))) - (let ((___match107492107493_ - (lambda (_e101710101851_ - _hd101709101855_ - _tl101708101858_ - ___splice107468107469_ - _target101711101861_ - _tl101713101864_) - (letrec ((_loop101714101867_ - (lambda (_hd101712101871_ - _expr101718101874_) + (cons __tmp108809 __tmp108806)) + _L102789_ + _L102678_)))) + (let ((___match108653108654_ + (lambda (_e102871103012_ + _hd102870103016_ + _tl102869103019_ + ___splice108629108630_ + _target102872103022_ + _tl102874103025_) + (letrec ((_loop102875103028_ + (lambda (_hd102873103032_ + _expr102879103035_) (if (gx#stx-pair? - _hd101712101871_) - (let ((_e101715101877_ + _hd102873103032_) + (let ((_e102876103038_ (gx#syntax-e - _hd101712101871_))) - (let ((_lp-tl101717101884_ + _hd102873103032_))) + (let ((_lp-tl102878103045_ (let () (declare (not safe)) - (##cdr _e101715101877_))) - (_lp-hd101716101881_ + (##cdr _e102876103038_))) + (_lp-hd102877103042_ (let () (declare (not safe)) - (##car _e101715101877_)))) - (_loop101714101867_ - _lp-tl101717101884_ + (##car _e102876103038_)))) + (_loop102875103028_ + _lp-tl102878103045_ (let () (declare (not safe)) - (cons _lp-hd101716101881_ - _expr101718101874_))))) - (let ((_expr101719101887_ - (reverse _expr101718101874_))) - (___kont107466107467_ - _expr101719101887_)))))) - (_loop101714101867_ - _target101711101861_ + (cons _lp-hd102877103042_ + _expr102879103035_))))) + (let ((_expr102880103048_ + (reverse _expr102879103035_))) + (___kont108627108628_ + _expr102880103048_)))))) + (_loop102875103028_ + _target102872103022_ '()))))) - (if (gx#stx-pair? ___stx107463107464_) - (let ((_e101710101851_ - (gx#syntax-e ___stx107463107464_))) - (let ((_tl101708101858_ + (if (gx#stx-pair? ___stx108624108625_) + (let ((_e102871103012_ + (gx#syntax-e ___stx108624108625_))) + (let ((_tl102869103019_ (let () (declare (not safe)) - (##cdr _e101710101851_))) - (_hd101709101855_ + (##cdr _e102871103012_))) + (_hd102870103016_ (let () (declare (not safe)) - (##car _e101710101851_)))) - (if (gx#identifier? _hd101709101855_) + (##car _e102871103012_)))) + (if (gx#identifier? _hd102870103016_) (if (gx#free-identifier=? - |[1]#_g107649_| - _hd101709101855_) + |[1]#_g108810_| + _hd102870103016_) (if (gx#stx-pair/null? - _tl101708101858_) - (let ((___splice107468107469_ + _tl102869103019_) + (let ((___splice108629108630_ (gx#syntax-split-splice - _tl101708101858_ + _tl102869103019_ '0))) - (let ((_tl101713101864_ + (let ((_tl102874103025_ (let () (declare (not safe)) (##vector-ref - ___splice107468107469_ + ___splice108629108630_ '1))) - (_target101711101861_ + (_target102872103022_ (let () (declare (not safe)) (##vector-ref - ___splice107468107469_ + ___splice108629108630_ '0)))) (if (gx#stx-null? - _tl101713101864_) - (___match107492107493_ - _e101710101851_ - _hd101709101855_ - _tl101708101858_ - ___splice107468107469_ - _target101711101861_ - _tl101713101864_) + _tl102874103025_) + (___match108653108654_ + _e102871103012_ + _hd102870103016_ + _tl102869103019_ + ___splice108629108630_ + _target102872103022_ + _tl102874103025_) (if (gx#stx-pair? - _tl101708101858_) - (let ((_e101727101819_ + _tl102869103019_) + (let ((_e102888102980_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl101708101858_))) - (let ((_tl101725101826_ + (gx#syntax-e _tl102869103019_))) + (let ((_tl102886102987_ (let () (declare (not safe)) - (##cdr _e101727101819_))) - (_hd101726101823_ + (##cdr _e102888102980_))) + (_hd102887102984_ (let () (declare (not safe)) - (##car _e101727101819_)))) - (if (gx#stx-null? _tl101725101826_) - (___kont107470107471_ - _hd101726101823_ - _hd101709101855_) - (if (gx#stx-pair? _tl101725101826_) - (let ((_e101739101772_ - (gx#syntax-e _tl101725101826_))) - (let ((_tl101737101779_ + (##car _e102888102980_)))) + (if (gx#stx-null? _tl102886102987_) + (___kont108631108632_ + _hd102887102984_ + _hd102870103016_) + (if (gx#stx-pair? _tl102886102987_) + (let ((_e102900102933_ + (gx#syntax-e _tl102886102987_))) + (let ((_tl102898102940_ (let () (declare (not safe)) - (##cdr _e101739101772_))) - (_hd101738101776_ + (##cdr _e102900102933_))) + (_hd102899102937_ (let () (declare (not safe)) - (##car _e101739101772_)))) - (if (gx#stx-null? _tl101737101779_) - (___kont107472107473_ - _hd101738101776_ - _hd101726101823_ - _hd101709101855_) + (##car _e102900102933_)))) + (if (gx#stx-null? _tl102898102940_) + (___kont108633108634_ + _hd102899102937_ + _hd102887102984_ + _hd102870103016_) (let () (declare (not safe)) - (_g101705101745_))))) + (_g102866102906_))))) (let () (declare (not safe)) - (_g101705101745_)))))) - (let () (declare (not safe)) (_g101705101745_)))))) + (_g102866102906_)))))) + (let () (declare (not safe)) (_g102866102906_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _tl101708101858_) - (let ((_e101727101819_ + _tl102869103019_) + (let ((_e102888102980_ (gx#syntax-e - _tl101708101858_))) - (let ((_tl101725101826_ + _tl102869103019_))) + (let ((_tl102886102987_ (let () (declare (not safe)) - (##cdr _e101727101819_))) - (_hd101726101823_ + (##cdr _e102888102980_))) + (_hd102887102984_ (let () (declare (not safe)) - (##car _e101727101819_)))) + (##car _e102888102980_)))) (if (gx#stx-null? - _tl101725101826_) - (___kont107470107471_ - _hd101726101823_ - _hd101709101855_) + _tl102886102987_) + (___kont108631108632_ + _hd102887102984_ + _hd102870103016_) (if (gx#stx-pair? - _tl101725101826_) - (let ((_e101739101772_ + _tl102886102987_) + (let ((_e102900102933_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl101725101826_))) - (let ((_tl101737101779_ + (gx#syntax-e _tl102886102987_))) + (let ((_tl102898102940_ (let () (declare (not safe)) - (##cdr _e101739101772_))) - (_hd101738101776_ + (##cdr _e102900102933_))) + (_hd102899102937_ (let () (declare (not safe)) - (##car _e101739101772_)))) - (if (gx#stx-null? _tl101737101779_) - (___kont107472107473_ - _hd101738101776_ - _hd101726101823_ - _hd101709101855_) + (##car _e102900102933_)))) + (if (gx#stx-null? _tl102898102940_) + (___kont108633108634_ + _hd102899102937_ + _hd102887102984_ + _hd102870103016_) (let () (declare (not safe)) - (_g101705101745_))))) - (let () (declare (not safe)) (_g101705101745_)))))) + (_g102866102906_))))) + (let () (declare (not safe)) (_g102866102906_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101705101745_)))) - (if (gx#stx-pair? _tl101708101858_) - (let ((_e101727101819_ + (_g102866102906_)))) + (if (gx#stx-pair? _tl102869103019_) + (let ((_e102888102980_ (gx#syntax-e - _tl101708101858_))) - (let ((_tl101725101826_ + _tl102869103019_))) + (let ((_tl102886102987_ (let () (declare (not safe)) - (##cdr _e101727101819_))) - (_hd101726101823_ + (##cdr _e102888102980_))) + (_hd102887102984_ (let () (declare (not safe)) - (##car _e101727101819_)))) + (##car _e102888102980_)))) (if (gx#stx-null? - _tl101725101826_) - (___kont107470107471_ - _hd101726101823_ - _hd101709101855_) + _tl102886102987_) + (___kont108631108632_ + _hd102887102984_ + _hd102870103016_) (if (gx#stx-pair? - _tl101725101826_) - (let ((_e101739101772_ + _tl102886102987_) + (let ((_e102900102933_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl101725101826_))) - (let ((_tl101737101779_ + (gx#syntax-e _tl102886102987_))) + (let ((_tl102898102940_ (let () (declare (not safe)) - (##cdr _e101739101772_))) - (_hd101738101776_ + (##cdr _e102900102933_))) + (_hd102899102937_ (let () (declare (not safe)) - (##car _e101739101772_)))) - (if (gx#stx-null? _tl101737101779_) - (___kont107472107473_ - _hd101738101776_ - _hd101726101823_ - _hd101709101855_) - (let () (declare (not safe)) (_g101705101745_))))) - (let () (declare (not safe)) (_g101705101745_)))))) + (##car _e102900102933_)))) + (if (gx#stx-null? _tl102898102940_) + (___kont108633108634_ + _hd102899102937_ + _hd102887102984_ + _hd102870103016_) + (let () (declare (not safe)) (_g102866102906_))))) + (let () (declare (not safe)) (_g102866102906_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101705101745_)))) - (if (gx#stx-pair? _tl101708101858_) - (let ((_e101727101819_ + (_g102866102906_)))) + (if (gx#stx-pair? _tl102869103019_) + (let ((_e102888102980_ (gx#syntax-e - _tl101708101858_))) - (let ((_tl101725101826_ + _tl102869103019_))) + (let ((_tl102886102987_ (let () (declare (not safe)) - (##cdr _e101727101819_))) - (_hd101726101823_ + (##cdr _e102888102980_))) + (_hd102887102984_ (let () (declare (not safe)) - (##car _e101727101819_)))) + (##car _e102888102980_)))) (if (gx#stx-null? - _tl101725101826_) - (___kont107470107471_ - _hd101726101823_ - _hd101709101855_) + _tl102886102987_) + (___kont108631108632_ + _hd102887102984_ + _hd102870103016_) (if (gx#stx-pair? - _tl101725101826_) - (let ((_e101739101772_ + _tl102886102987_) + (let ((_e102900102933_ (gx#syntax-e - _tl101725101826_))) - (let ((_tl101737101779_ + _tl102886102987_))) + (let ((_tl102898102940_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e101739101772_))) - (_hd101738101776_ - (let () (declare (not safe)) (##car _e101739101772_)))) - (if (gx#stx-null? _tl101737101779_) - (___kont107472107473_ - _hd101738101776_ - _hd101726101823_ - _hd101709101855_) - (let () (declare (not safe)) (_g101705101745_))))) - (let () (declare (not safe)) (_g101705101745_)))))) + (##cdr _e102900102933_))) + (_hd102899102937_ + (let () (declare (not safe)) (##car _e102900102933_)))) + (if (gx#stx-null? _tl102898102940_) + (___kont108633108634_ + _hd102899102937_ + _hd102887102984_ + _hd102870103016_) + (let () (declare (not safe)) (_g102866102906_))))) + (let () (declare (not safe)) (_g102866102906_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g101705101745_)))))) + (_g102866102906_)))))) (let () (declare (not safe)) - (_g101705101745_)))))))))) + (_g102866102906_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _g101642101653_)))) - (_g101640101918_ - (_recur101540_ _rest101576_))))) - _g101614101625_)))) - (_g101612101922_ + _g102803102814_)))) + (_g102801103079_ + (_recur102701_ _rest102737_))))) + _g102775102786_)))) + (_g102773103083_ (let () (declare (not safe)) - (cons _L101595_ '())))))) - _g101581101592_)))) - (_g101579101926_ (gx#genident '$E))))) + (cons _L102756_ '())))))) + _g102742102753_)))) + (_g102740103087_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_K101549101568_ + (_K102710102729_ (lambda () - (let ((__tmp107653 + (let ((__tmp108814 (gx#datum->syntax '#f '__raise-syntax-error)) - (__tmp107650 - (let ((__tmp107651 + (__tmp108811 + (let ((__tmp108812 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp107652 + (let ((__tmp108813 (let () (declare (not safe)) - (cons _L101518_ '())))) + (cons _L102679_ '())))) (declare (not safe)) (cons '"Bad syntax; malformed ast clause" - __tmp107652)))) + __tmp108813)))) (declare (not safe)) - (cons '#f __tmp107651)))) + (cons '#f __tmp108812)))) (declare (not safe)) - (cons __tmp107653 __tmp107650))))) + (cons __tmp108814 __tmp108811))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_try-match101547101572_ + (let ((_try-match102708102733_ (lambda () (if (let () (declare (not safe)) - (##null? _rest101545101554_)) - (_K101549101568_) - (_E101548101560_))))) + (##null? _rest102706102715_)) + (_K102710102729_) + (_E102709102721_))))) (if (let () (declare (not safe)) - (##pair? _rest101545101554_)) - (let ((_tl101552101937_ + (##pair? _rest102706102715_)) + (let ((_tl102713103098_ (let () (declare (not safe)) - (##cdr _rest101545101554_))) - (_hd101551101934_ + (##cdr _rest102706102715_))) + (_hd102712103095_ (let () (declare (not safe)) - (##car _rest101545101554_)))) - (let ((_hd101940_ - _hd101551101934_) - (_rest101943_ - _tl101552101937_)) - (_K101550101930_ - _rest101943_ - _hd101940_))) - (_try-match101547101572_))))))) - _clause101442101511_ - _hd101432101479_ - _hd101429101469_)))))) - (_loop101437101491_ _target101434101485_ '())) - (_g101420101448_ _g101421101452_))))) + (##car _rest102706102715_)))) + (let ((_hd103101_ + _hd102712103095_) + (_rest103104_ + _tl102713103098_)) + (_K102711103091_ + _rest103104_ + _hd103101_))) + (_try-match102708102733_))))))) + _clause102603102672_ + _hd102593102640_ + _hd102590102630_)))))) + (_loop102598102652_ _target102595102646_ '())) + (_g102581102609_ _g102582102613_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_g101420101448_ - _g101421101452_)))) - (_g101420101448_ _g101421101452_)))) - (_g101420101448_ _g101421101452_)))) - (_g101420101448_ _g101421101452_))))) - (_g101419101954_ _stx101414_))))) + (_g102581102609_ + _g102582102613_)))) + (_g102581102609_ _g102582102613_)))) + (_g102581102609_ _g102582102613_)))) + (_g102581102609_ _g102582102613_))))) + (_g102580103115_ _stx102575_))))) (define |[:0:]#SyntaxError| - (let ((__obj107536 + (let ((__obj108697 (let () (declare (not safe)) (##structure @@ -1488,11 +1488,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj107536 + __obj108697 'gerbil/runtime/syntax#SyntaxError::t '1 gerbil/core$$#class-type-info::t @@ -1500,7 +1501,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107536 + __obj108697 'SyntaxError '2 gerbil/core$$#class-type-info::t @@ -1508,26 +1509,26 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107536 + __obj108697 '(message irritants where context phi marks) '4 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107655 - (let ((__tmp107656 |[1]#_g107657_|)) + (let ((__tmp108816 + (let ((__tmp108817 |[1]#_g108818_|)) (declare (not safe)) - (cons __tmp107656 '())))) + (cons __tmp108817 '())))) (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107655 + __obj108697 + __tmp108816 '3 gerbil/core$$#class-type-info::t '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj107536 + __obj108697 '#f '5 gerbil/core$$#class-type-info::t @@ -1535,7 +1536,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107536 + __obj108697 '#t '6 gerbil/core$$#class-type-info::t @@ -1543,254 +1544,262 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107536 + __obj108697 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107658 |[1]#_g107659_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107658 + __obj108697 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107660 |[1]#_g107661_|)) + (let ((__tmp108819 |[1]#_g108820_|)) (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107660 + __obj108697 + __tmp108819 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107662 |[1]#_g107663_|)) + (let ((__tmp108821 |[1]#_g108822_|)) (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107662 + __obj108697 + __tmp108821 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107664 - (let ((__tmp107685 - (let ((__tmp107686 |[1]#_g107687_|)) + (let ((__tmp108823 |[1]#_g108824_|)) + (declare (not safe)) + (##unchecked-structure-set! + __obj108697 + __tmp108823 + '11 + gerbil/core$$#class-type-info::t + '#f)) + (let ((__tmp108825 + (let ((__tmp108846 + (let ((__tmp108847 |[1]#_g108848_|)) (declare (not safe)) - (cons 'message __tmp107686))) - (__tmp107665 - (let ((__tmp107682 - (let ((__tmp107683 |[1]#_g107684_|)) + (cons 'message __tmp108847))) + (__tmp108826 + (let ((__tmp108843 + (let ((__tmp108844 |[1]#_g108845_|)) (declare (not safe)) - (cons 'irritants __tmp107683))) - (__tmp107666 - (let ((__tmp107679 - (let ((__tmp107680 |[1]#_g107681_|)) + (cons 'irritants __tmp108844))) + (__tmp108827 + (let ((__tmp108840 + (let ((__tmp108841 |[1]#_g108842_|)) (declare (not safe)) - (cons 'where __tmp107680))) - (__tmp107667 - (let ((__tmp107676 - (let ((__tmp107677 |[1]#_g107678_|)) + (cons 'where __tmp108841))) + (__tmp108828 + (let ((__tmp108837 + (let ((__tmp108838 |[1]#_g108839_|)) (declare (not safe)) - (cons 'context __tmp107677))) - (__tmp107668 - (let ((__tmp107673 - (let ((__tmp107674 - |[1]#_g107675_|)) + (cons 'context __tmp108838))) + (__tmp108829 + (let ((__tmp108834 + (let ((__tmp108835 + |[1]#_g108836_|)) (declare (not safe)) - (cons 'phi __tmp107674))) - (__tmp107669 - (let ((__tmp107670 - (let ((__tmp107671 - |[1]#_g107672_|)) + (cons 'phi __tmp108835))) + (__tmp108830 + (let ((__tmp108831 + (let ((__tmp108832 + |[1]#_g108833_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp107671)))) + __tmp108832)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107670 '())))) + (cons __tmp108831 '())))) (declare (not safe)) - (cons __tmp107673 __tmp107669)))) + (cons __tmp108834 __tmp108830)))) (declare (not safe)) - (cons __tmp107676 __tmp107668)))) + (cons __tmp108837 __tmp108829)))) (declare (not safe)) - (cons __tmp107679 __tmp107667)))) + (cons __tmp108840 __tmp108828)))) (declare (not safe)) - (cons __tmp107682 __tmp107666)))) + (cons __tmp108843 __tmp108827)))) (declare (not safe)) - (cons __tmp107685 __tmp107665)))) + (cons __tmp108846 __tmp108826)))) (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107664 - '11 + __obj108697 + __tmp108825 + '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107688 - (let ((__tmp107709 - (let ((__tmp107710 |[1]#_g107711_|)) + (let ((__tmp108849 + (let ((__tmp108870 + (let ((__tmp108871 |[1]#_g108872_|)) (declare (not safe)) - (cons 'message __tmp107710))) - (__tmp107689 - (let ((__tmp107706 - (let ((__tmp107707 |[1]#_g107708_|)) + (cons 'message __tmp108871))) + (__tmp108850 + (let ((__tmp108867 + (let ((__tmp108868 |[1]#_g108869_|)) (declare (not safe)) - (cons 'irritants __tmp107707))) - (__tmp107690 - (let ((__tmp107703 - (let ((__tmp107704 |[1]#_g107705_|)) + (cons 'irritants __tmp108868))) + (__tmp108851 + (let ((__tmp108864 + (let ((__tmp108865 |[1]#_g108866_|)) (declare (not safe)) - (cons 'where __tmp107704))) - (__tmp107691 - (let ((__tmp107700 - (let ((__tmp107701 |[1]#_g107702_|)) + (cons 'where __tmp108865))) + (__tmp108852 + (let ((__tmp108861 + (let ((__tmp108862 |[1]#_g108863_|)) (declare (not safe)) - (cons 'context __tmp107701))) - (__tmp107692 - (let ((__tmp107697 - (let ((__tmp107698 - |[1]#_g107699_|)) + (cons 'context __tmp108862))) + (__tmp108853 + (let ((__tmp108858 + (let ((__tmp108859 + |[1]#_g108860_|)) (declare (not safe)) - (cons 'phi __tmp107698))) - (__tmp107693 - (let ((__tmp107694 - (let ((__tmp107695 - |[1]#_g107696_|)) + (cons 'phi __tmp108859))) + (__tmp108854 + (let ((__tmp108855 + (let ((__tmp108856 + |[1]#_g108857_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp107695)))) + __tmp108856)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107694 '())))) + (cons __tmp108855 '())))) (declare (not safe)) - (cons __tmp107697 __tmp107693)))) + (cons __tmp108858 __tmp108854)))) (declare (not safe)) - (cons __tmp107700 __tmp107692)))) + (cons __tmp108861 __tmp108853)))) (declare (not safe)) - (cons __tmp107703 __tmp107691)))) + (cons __tmp108864 __tmp108852)))) (declare (not safe)) - (cons __tmp107706 __tmp107690)))) + (cons __tmp108867 __tmp108851)))) (declare (not safe)) - (cons __tmp107709 __tmp107689)))) + (cons __tmp108870 __tmp108850)))) (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107688 - '12 + __obj108697 + __tmp108849 + '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107712 - (let ((__tmp107733 - (let ((__tmp107734 |[1]#_g107735_|)) + (let ((__tmp108873 + (let ((__tmp108894 + (let ((__tmp108895 |[1]#_g108896_|)) (declare (not safe)) - (cons 'message __tmp107734))) - (__tmp107713 - (let ((__tmp107730 - (let ((__tmp107731 |[1]#_g107732_|)) + (cons 'message __tmp108895))) + (__tmp108874 + (let ((__tmp108891 + (let ((__tmp108892 |[1]#_g108893_|)) (declare (not safe)) - (cons 'irritants __tmp107731))) - (__tmp107714 - (let ((__tmp107727 - (let ((__tmp107728 |[1]#_g107729_|)) + (cons 'irritants __tmp108892))) + (__tmp108875 + (let ((__tmp108888 + (let ((__tmp108889 |[1]#_g108890_|)) (declare (not safe)) - (cons 'where __tmp107728))) - (__tmp107715 - (let ((__tmp107724 - (let ((__tmp107725 |[1]#_g107726_|)) + (cons 'where __tmp108889))) + (__tmp108876 + (let ((__tmp108885 + (let ((__tmp108886 |[1]#_g108887_|)) (declare (not safe)) - (cons 'context __tmp107725))) - (__tmp107716 - (let ((__tmp107721 - (let ((__tmp107722 - |[1]#_g107723_|)) + (cons 'context __tmp108886))) + (__tmp108877 + (let ((__tmp108882 + (let ((__tmp108883 + |[1]#_g108884_|)) (declare (not safe)) - (cons 'phi __tmp107722))) - (__tmp107717 - (let ((__tmp107718 - (let ((__tmp107719 - |[1]#_g107720_|)) + (cons 'phi __tmp108883))) + (__tmp108878 + (let ((__tmp108879 + (let ((__tmp108880 + |[1]#_g108881_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp107719)))) + __tmp108880)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107718 '())))) + (cons __tmp108879 '())))) (declare (not safe)) - (cons __tmp107721 __tmp107717)))) + (cons __tmp108882 __tmp108878)))) (declare (not safe)) - (cons __tmp107724 __tmp107716)))) + (cons __tmp108885 __tmp108877)))) (declare (not safe)) - (cons __tmp107727 __tmp107715)))) + (cons __tmp108888 __tmp108876)))) (declare (not safe)) - (cons __tmp107730 __tmp107714)))) + (cons __tmp108891 __tmp108875)))) (declare (not safe)) - (cons __tmp107733 __tmp107713)))) + (cons __tmp108894 __tmp108874)))) (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107712 - '13 + __obj108697 + __tmp108873 + '14 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107736 - (let ((__tmp107757 - (let ((__tmp107758 |[1]#_g107759_|)) + (let ((__tmp108897 + (let ((__tmp108918 + (let ((__tmp108919 |[1]#_g108920_|)) (declare (not safe)) - (cons 'message __tmp107758))) - (__tmp107737 - (let ((__tmp107754 - (let ((__tmp107755 |[1]#_g107756_|)) + (cons 'message __tmp108919))) + (__tmp108898 + (let ((__tmp108915 + (let ((__tmp108916 |[1]#_g108917_|)) (declare (not safe)) - (cons 'irritants __tmp107755))) - (__tmp107738 - (let ((__tmp107751 - (let ((__tmp107752 |[1]#_g107753_|)) + (cons 'irritants __tmp108916))) + (__tmp108899 + (let ((__tmp108912 + (let ((__tmp108913 |[1]#_g108914_|)) (declare (not safe)) - (cons 'where __tmp107752))) - (__tmp107739 - (let ((__tmp107748 - (let ((__tmp107749 |[1]#_g107750_|)) + (cons 'where __tmp108913))) + (__tmp108900 + (let ((__tmp108909 + (let ((__tmp108910 |[1]#_g108911_|)) (declare (not safe)) - (cons 'context __tmp107749))) - (__tmp107740 - (let ((__tmp107745 - (let ((__tmp107746 - |[1]#_g107747_|)) + (cons 'context __tmp108910))) + (__tmp108901 + (let ((__tmp108906 + (let ((__tmp108907 + |[1]#_g108908_|)) (declare (not safe)) - (cons 'phi __tmp107746))) - (__tmp107741 - (let ((__tmp107742 - (let ((__tmp107743 - |[1]#_g107744_|)) + (cons 'phi __tmp108907))) + (__tmp108902 + (let ((__tmp108903 + (let ((__tmp108904 + |[1]#_g108905_|)) (declare (not safe)) (cons 'marks ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - __tmp107743)))) + __tmp108904)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp107742 '())))) + (cons __tmp108903 '())))) (declare (not safe)) - (cons __tmp107745 __tmp107741)))) + (cons __tmp108906 __tmp108902)))) (declare (not safe)) - (cons __tmp107748 __tmp107740)))) + (cons __tmp108909 __tmp108901)))) (declare (not safe)) - (cons __tmp107751 __tmp107739)))) + (cons __tmp108912 __tmp108900)))) (declare (not safe)) - (cons __tmp107754 __tmp107738)))) + (cons __tmp108915 __tmp108899)))) (declare (not safe)) - (cons __tmp107757 __tmp107737)))) + (cons __tmp108918 __tmp108898)))) (declare (not safe)) (##unchecked-structure-set! - __obj107536 - __tmp107736 - '14 + __obj108697 + __tmp108897 + '15 gerbil/core$$#class-type-info::t '#f)) - __obj107536)) + __obj108697)) (define |[:0:]#AST| - (let ((__obj107538 + (let ((__obj108699 (let () (declare (not safe)) (##structure @@ -1808,11 +1817,12 @@ '#f '#f '#f + '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 + __obj108699 'gerbil#AST::t '1 gerbil/core$$#class-type-info::t @@ -1820,7 +1830,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 + __obj108699 'syntax '2 gerbil/core$$#class-type-info::t @@ -1828,7 +1838,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 + __obj108699 '(e source) '4 gerbil/core$$#class-type-info::t @@ -1836,7 +1846,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 + __obj108699 '() '3 gerbil/core$$#class-type-info::t @@ -1844,7 +1854,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 + __obj108699 '#t '5 gerbil/core$$#class-type-info::t @@ -1852,7 +1862,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 + __obj108699 '#f '6 gerbil/core$$#class-type-info::t @@ -1860,117 +1870,125 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 + __obj108699 '#f '7 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107760 |[1]#_g107761_|)) + (let () (declare (not safe)) (##unchecked-structure-set! - __obj107538 - __tmp107760 + __obj108699 + '#f '8 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107762 |[1]#_g107763_|)) + (let ((__tmp108921 |[1]#_g108922_|)) (declare (not safe)) (##unchecked-structure-set! - __obj107538 - __tmp107762 + __obj108699 + __tmp108921 '9 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107764 |[1]#_g107765_|)) + (let ((__tmp108923 |[1]#_g108924_|)) (declare (not safe)) (##unchecked-structure-set! - __obj107538 - __tmp107764 + __obj108699 + __tmp108923 '10 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107766 - (let ((__tmp107771 - (let ((__tmp107772 |[1]#_g107773_|)) - (declare (not safe)) - (cons 'e __tmp107772))) - (__tmp107767 - (let ((__tmp107768 - (let ((__tmp107769 |[1]#_g107770_|)) - (declare (not safe)) - (cons 'source __tmp107769)))) - (declare (not safe)) - (cons __tmp107768 '())))) - (declare (not safe)) - (cons __tmp107771 __tmp107767)))) + (let ((__tmp108925 |[1]#_g108926_|)) (declare (not safe)) (##unchecked-structure-set! - __obj107538 - __tmp107766 + __obj108699 + __tmp108925 '11 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107774 - (let ((__tmp107779 - (let ((__tmp107780 |[1]#_g107781_|)) + (let ((__tmp108927 + (let ((__tmp108932 + (let ((__tmp108933 |[1]#_g108934_|)) (declare (not safe)) - (cons 'e __tmp107780))) - (__tmp107775 - (let ((__tmp107776 - (let ((__tmp107777 |[1]#_g107778_|)) + (cons 'e __tmp108933))) + (__tmp108928 + (let ((__tmp108929 + (let ((__tmp108930 |[1]#_g108931_|)) (declare (not safe)) - (cons 'source __tmp107777)))) + (cons 'source __tmp108930)))) (declare (not safe)) - (cons __tmp107776 '())))) + (cons __tmp108929 '())))) (declare (not safe)) - (cons __tmp107779 __tmp107775)))) + (cons __tmp108932 __tmp108928)))) (declare (not safe)) (##unchecked-structure-set! - __obj107538 - __tmp107774 + __obj108699 + __tmp108927 '12 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107782 - (let ((__tmp107787 - (let ((__tmp107788 |[1]#_g107789_|)) + (let ((__tmp108935 + (let ((__tmp108940 + (let ((__tmp108941 |[1]#_g108942_|)) (declare (not safe)) - (cons 'e __tmp107788))) - (__tmp107783 - (let ((__tmp107784 - (let ((__tmp107785 |[1]#_g107786_|)) + (cons 'e __tmp108941))) + (__tmp108936 + (let ((__tmp108937 + (let ((__tmp108938 |[1]#_g108939_|)) (declare (not safe)) - (cons 'source __tmp107785)))) + (cons 'source __tmp108938)))) (declare (not safe)) - (cons __tmp107784 '())))) + (cons __tmp108937 '())))) (declare (not safe)) - (cons __tmp107787 __tmp107783)))) + (cons __tmp108940 __tmp108936)))) (declare (not safe)) (##unchecked-structure-set! - __obj107538 - __tmp107782 + __obj108699 + __tmp108935 '13 gerbil/core$$#class-type-info::t '#f)) - (let ((__tmp107790 - (let ((__tmp107795 - (let ((__tmp107796 |[1]#_g107797_|)) + (let ((__tmp108943 + (let ((__tmp108948 + (let ((__tmp108949 |[1]#_g108950_|)) (declare (not safe)) - (cons 'e __tmp107796))) - (__tmp107791 - (let ((__tmp107792 - (let ((__tmp107793 |[1]#_g107794_|)) + (cons 'e __tmp108949))) + (__tmp108944 + (let ((__tmp108945 + (let ((__tmp108946 |[1]#_g108947_|)) (declare (not safe)) - (cons 'source __tmp107793)))) + (cons 'source __tmp108946)))) (declare (not safe)) - (cons __tmp107792 '())))) + (cons __tmp108945 '())))) (declare (not safe)) - (cons __tmp107795 __tmp107791)))) + (cons __tmp108948 __tmp108944)))) (declare (not safe)) (##unchecked-structure-set! - __obj107538 - __tmp107790 + __obj108699 + __tmp108943 '14 gerbil/core$$#class-type-info::t '#f)) - __obj107538)))) + (let ((__tmp108951 + (let ((__tmp108956 + (let ((__tmp108957 |[1]#_g108958_|)) + (declare (not safe)) + (cons 'e __tmp108957))) + (__tmp108952 + (let ((__tmp108953 + (let ((__tmp108954 |[1]#_g108955_|)) + (declare (not safe)) + (cons 'source __tmp108954)))) + (declare (not safe)) + (cons __tmp108953 '())))) + (declare (not safe)) + (cons __tmp108956 __tmp108952)))) + (declare (not safe)) + (##unchecked-structure-set! + __obj108699 + __tmp108951 + '15 + gerbil/core$$#class-type-info::t + '#f)) + __obj108699)))) diff --git a/src/bootstrap/gerbil/runtime/system__0.scm b/src/bootstrap/gerbil/runtime/system__0.scm index 46e7e0b32..33bbb1f30 100644 --- a/src/bootstrap/gerbil/runtime/system__0.scm +++ b/src/bootstrap/gerbil/runtime/system__0.scm @@ -1,146 +1,146 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1707773925) + (define gerbil/runtime/system::timestamp 1708102800) (begin - (define gerbil-version-string (lambda () '"v0.18.1-52-g4bc1c949")) + (define gerbil-version-string (lambda () '"v0.18.1-56-ge4a286df")) (define gerbil-system-manifest - (let ((__tmp69453 - (let ((__tmp69454 + (let ((__tmp69664 + (let ((__tmp69665 (let () (declare (not safe)) (gerbil-version-string)))) (declare (not safe)) - (cons '"Gerbil" __tmp69454))) - (__tmp69450 - (let ((__tmp69451 - (let ((__tmp69452 (system-version-string))) + (cons '"Gerbil" __tmp69665))) + (__tmp69661 + (let ((__tmp69662 + (let ((__tmp69663 (system-version-string))) (declare (not safe)) - (cons '"Gambit" __tmp69452)))) + (cons '"Gambit" __tmp69663)))) (declare (not safe)) - (cons __tmp69451 '())))) + (cons __tmp69662 '())))) (declare (not safe)) - (cons __tmp69453 __tmp69450))) + (cons __tmp69664 __tmp69661))) (define build-manifest gerbil-system-manifest) (set! build-manifest build-manifest) (define display-build-manifest__% - (lambda (_manifest64826_ _port64827_) - (let ((_p64833_ - (lambda (_g6482864830_) (display _g6482864830_ _port64827_))) - (_l64834_ (length _manifest64826_)) - (_i64835_ '0)) + (lambda (_manifest65037_ _port65038_) + (let ((_p65044_ + (lambda (_g6503965041_) (display _g6503965041_ _port65038_))) + (_l65045_ (length _manifest65037_)) + (_i65046_ '0)) (for-each - (lambda (_layer64837_) - (if (let () (declare (not safe)) (zero? _i64835_)) + (lambda (_layer65048_) + (if (let () (declare (not safe)) (zero? _i65046_)) '#!void - (if (= _i64835_ '1) - (let () (declare (not safe)) (_p64833_ '" on ")) - (let () (declare (not safe)) (_p64833_ '", ")))) - (let* ((_layer6483864845_ _layer64837_) - (_E6484064849_ + (if (= _i65046_ '1) + (let () (declare (not safe)) (_p65044_ '" on ")) + (let () (declare (not safe)) (_p65044_ '", ")))) + (let* ((_layer6504965056_ _layer65048_) + (_E6505165060_ (lambda () - (error '"No clause matching" _layer6483864845_))) - (_K6484164855_ - (lambda (_version64852_ _name64853_) - (let () (declare (not safe)) (_p64833_ _name64853_)) - (let () (declare (not safe)) (_p64833_ '" ")) + (error '"No clause matching" _layer6504965056_))) + (_K6505265066_ + (lambda (_version65063_ _name65064_) + (let () (declare (not safe)) (_p65044_ _name65064_)) + (let () (declare (not safe)) (_p65044_ '" ")) (let () (declare (not safe)) - (_p64833_ _version64852_))))) - (if (let () (declare (not safe)) (##pair? _layer6483864845_)) - (let ((_hd6484264858_ + (_p65044_ _version65063_))))) + (if (let () (declare (not safe)) (##pair? _layer6504965056_)) + (let ((_hd6505365069_ (let () (declare (not safe)) - (##car _layer6483864845_))) - (_tl6484364860_ + (##car _layer6504965056_))) + (_tl6505465071_ (let () (declare (not safe)) - (##cdr _layer6483864845_)))) - (let* ((_name64863_ _hd6484264858_) - (_version64865_ _tl6484364860_)) + (##cdr _layer6504965056_)))) + (let* ((_name65074_ _hd6505365069_) + (_version65076_ _tl6505465071_)) (declare (not safe)) - (_K6484164855_ _version64865_ _name64863_))) - (let () (declare (not safe)) (_E6484064849_)))) - (set! _i64835_ (+ _i64835_ '1))) - _manifest64826_)))) + (_K6505265066_ _version65076_ _name65074_))) + (let () (declare (not safe)) (_E6505165060_)))) + (set! _i65046_ (+ _i65046_ '1))) + _manifest65037_)))) (define display-build-manifest__0 (lambda () - (let* ((_manifest64871_ build-manifest) - (_port64873_ (current-output-port))) + (let* ((_manifest65082_ build-manifest) + (_port65084_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest64871_ _port64873_)))) + (display-build-manifest__% _manifest65082_ _port65084_)))) (define display-build-manifest__1 - (lambda (_manifest64875_) - (let ((_port64877_ (current-output-port))) + (lambda (_manifest65086_) + (let ((_port65088_ (current-output-port))) (declare (not safe)) - (display-build-manifest__% _manifest64875_ _port64877_)))) + (display-build-manifest__% _manifest65086_ _port65088_)))) (define display-build-manifest - (lambda _g69456_ - (let ((_g69455_ (let () (declare (not safe)) (##length _g69456_)))) - (cond ((let () (declare (not safe)) (##fx= _g69455_ 0)) + (lambda _g69667_ + (let ((_g69666_ (let () (declare (not safe)) (##length _g69667_)))) + (cond ((let () (declare (not safe)) (##fx= _g69666_ 0)) (apply (lambda () (let () (declare (not safe)) (display-build-manifest__0))) - _g69456_)) - ((let () (declare (not safe)) (##fx= _g69455_ 1)) - (apply (lambda (_manifest64875_) + _g69667_)) + ((let () (declare (not safe)) (##fx= _g69666_ 1)) + (apply (lambda (_manifest65086_) (let () (declare (not safe)) - (display-build-manifest__1 _manifest64875_))) - _g69456_)) - ((let () (declare (not safe)) (##fx= _g69455_ 2)) - (apply (lambda (_manifest64879_ _port64880_) + (display-build-manifest__1 _manifest65086_))) + _g69667_)) + ((let () (declare (not safe)) (##fx= _g69666_ 2)) + (apply (lambda (_manifest65090_ _port65091_) (let () (declare (not safe)) (display-build-manifest__% - _manifest64879_ - _port64880_))) - _g69456_)) + _manifest65090_ + _port65091_))) + _g69667_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g69456_)))))) + _g69667_)))))) (define build-manifest/layer - (lambda (_layer64821_) - (let ((_l64823_ (assoc _layer64821_ build-manifest))) - (if _l64823_ - (let () (declare (not safe)) (cons _l64823_ '())) + (lambda (_layer65032_) + (let ((_l65034_ (assoc _layer65032_ build-manifest))) + (if _l65034_ + (let () (declare (not safe)) (cons _l65034_ '())) '())))) (define build-manifest/head (lambda () - (let ((__tmp69457 (car build-manifest))) + (let ((__tmp69668 (car build-manifest))) (declare (not safe)) - (cons __tmp69457 '())))) + (cons __tmp69668 '())))) (define build-manifest-string__% - (lambda (_manifest64808_) + (lambda (_manifest65019_) (call-with-output-string '() - (lambda (_p64810_) + (lambda (_p65021_) (let () (declare (not safe)) - (display-build-manifest__% _manifest64808_ _p64810_)))))) + (display-build-manifest__% _manifest65019_ _p65021_)))))) (define build-manifest-string__0 (lambda () - (let ((_manifest64816_ build-manifest)) + (let ((_manifest65027_ build-manifest)) (declare (not safe)) - (build-manifest-string__% _manifest64816_)))) + (build-manifest-string__% _manifest65027_)))) (define build-manifest-string - (lambda _g69459_ - (let ((_g69458_ (let () (declare (not safe)) (##length _g69459_)))) - (cond ((let () (declare (not safe)) (##fx= _g69458_ 0)) + (lambda _g69670_ + (let ((_g69669_ (let () (declare (not safe)) (##length _g69670_)))) + (cond ((let () (declare (not safe)) (##fx= _g69669_ 0)) (apply (lambda () (let () (declare (not safe)) (build-manifest-string__0))) - _g69459_)) - ((let () (declare (not safe)) (##fx= _g69458_ 1)) - (apply (lambda (_manifest64818_) + _g69670_)) + ((let () (declare (not safe)) (##fx= _g69669_ 1)) + (apply (lambda (_manifest65029_) (let () (declare (not safe)) - (build-manifest-string__% _manifest64818_))) - _g69459_)) + (build-manifest-string__% _manifest65029_))) + _g69670_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g69459_)))))) + _g69670_)))))) (define gerbil-system-version-string (lambda () (let () @@ -152,15 +152,15 @@ (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_$e64802_ (getenv '"GERBIL_HOME" '#f))) - (if _$e64802_ _$e64802_ (path-expand '"~~"))))) + (let ((_$e65013_ (getenv '"GERBIL_HOME" '#f))) + (if _$e65013_ _$e65013_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_$e64798_ (getenv '"GERBIL_PATH" '#f))) - (if _$e64798_ _$e64798_ (path-expand '"~/.gerbil"))))) + (let ((_$e65009_ (getenv '"GERBIL_PATH" '#f))) + (if _$e65009_ _$e65009_ (path-expand '"~/.gerbil"))))) (define gerbil-runtime-smp? (lambda () (member '"--enable-smp" - (let ((__tmp69460 (configure-command-string))) + (let ((__tmp69671 (configure-command-string))) (declare (not safe)) - (string-split __tmp69460 '#\'))))))) + (string-split __tmp69671 '#\'))))))) diff --git a/src/bootstrap/gerbil/runtime/system__1.scm b/src/bootstrap/gerbil/runtime/system__1.scm index 98dd3b9b0..656f972ce 100644 --- a/src/bootstrap/gerbil/runtime/system__1.scm +++ b/src/bootstrap/gerbil/runtime/system__1.scm @@ -1,94 +1,94 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |[:0:]#defmutable| - (lambda (_$stx64714_) - (let* ((_g6471864736_ - (lambda (_g6471964732_) + (lambda (_$stx64925_) + (let* ((_g6492964947_ + (lambda (_g6493064943_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g6471964732_))) - (_g6471764792_ - (lambda (_g6471964740_) - (if (gx#stx-pair? _g6471964740_) - (let ((_e6472464743_ (gx#syntax-e _g6471964740_))) - (let ((_hd6472364747_ - (let () (declare (not safe)) (##car _e6472464743_))) - (_tl6472264750_ + _g6493064943_))) + (_g6492865003_ + (lambda (_g6493064951_) + (if (gx#stx-pair? _g6493064951_) + (let ((_e6493564954_ (gx#syntax-e _g6493064951_))) + (let ((_hd6493464958_ + (let () (declare (not safe)) (##car _e6493564954_))) + (_tl6493364961_ (let () (declare (not safe)) - (##cdr _e6472464743_)))) - (if (gx#stx-pair? _tl6472264750_) - (let ((_e6472764753_ (gx#syntax-e _tl6472264750_))) - (let ((_hd6472664757_ + (##cdr _e6493564954_)))) + (if (gx#stx-pair? _tl6493364961_) + (let ((_e6493864964_ (gx#syntax-e _tl6493364961_))) + (let ((_hd6493764968_ (let () (declare (not safe)) - (##car _e6472764753_))) - (_tl6472564760_ + (##car _e6493864964_))) + (_tl6493664971_ (let () (declare (not safe)) - (##cdr _e6472764753_)))) - (if (gx#stx-pair? _tl6472564760_) - (let ((_e6473064763_ - (gx#syntax-e _tl6472564760_))) - (let ((_hd6472964767_ + (##cdr _e6493864964_)))) + (if (gx#stx-pair? _tl6493664971_) + (let ((_e6494164974_ + (gx#syntax-e _tl6493664971_))) + (let ((_hd6494064978_ (let () (declare (not safe)) - (##car _e6473064763_))) - (_tl6472864770_ + (##car _e6494164974_))) + (_tl6493964981_ (let () (declare (not safe)) - (##cdr _e6473064763_)))) - (if (gx#stx-null? _tl6472864770_) - ((lambda (_L64773_ _L64775_) - (let ((__tmp69474 + (##cdr _e6494164974_)))) + (if (gx#stx-null? _tl6493964981_) + ((lambda (_L64984_ _L64986_) + (let ((__tmp69685 (gx#datum->syntax '#f 'begin)) - (__tmp69461 - (let ((__tmp69470 - (let ((__tmp69473 + (__tmp69672 + (let ((__tmp69681 + (let ((__tmp69684 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'def)) - (__tmp69471 - (let ((__tmp69472 + (__tmp69682 + (let ((__tmp69683 (let () (declare (not safe)) - (cons _L64773_ '())))) + (cons _L64984_ '())))) (declare (not safe)) - (cons _L64775_ __tmp69472)))) + (cons _L64986_ __tmp69683)))) (declare (not safe)) - (cons __tmp69473 __tmp69471))) - (__tmp69462 - (let ((__tmp69466 - (let ((__tmp69469 (gx#datum->syntax '#f 'set!)) - (__tmp69467 - (let ((__tmp69468 + (cons __tmp69684 __tmp69682))) + (__tmp69673 + (let ((__tmp69677 + (let ((__tmp69680 (gx#datum->syntax '#f 'set!)) + (__tmp69678 + (let ((__tmp69679 (let () (declare (not safe)) - (cons _L64775_ '())))) + (cons _L64986_ '())))) (declare (not safe)) - (cons _L64775_ __tmp69468)))) + (cons _L64986_ __tmp69679)))) (declare (not safe)) - (cons __tmp69469 __tmp69467))) - (__tmp69463 - (let ((__tmp69464 - (let ((__tmp69465 + (cons __tmp69680 __tmp69678))) + (__tmp69674 + (let ((__tmp69675 + (let ((__tmp69676 (gx#datum->syntax '#f 'void))) (declare (not safe)) - (cons __tmp69465 '())))) + (cons __tmp69676 '())))) (declare (not safe)) - (cons __tmp69464 '())))) + (cons __tmp69675 '())))) (declare (not safe)) - (cons __tmp69466 __tmp69463)))) + (cons __tmp69677 __tmp69674)))) (declare (not safe)) - (cons __tmp69470 __tmp69462)))) + (cons __tmp69681 __tmp69673)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp69474 __tmp69461))) - _hd6472964767_ - _hd6472664757_) - (_g6471864736_ _g6471964740_)))) - (_g6471864736_ _g6471964740_)))) - (_g6471864736_ _g6471964740_)))) - (_g6471864736_ _g6471964740_))))) - (_g6471764792_ _$stx64714_)))) + (cons __tmp69685 __tmp69672))) + _hd6494064978_ + _hd6493764968_) + (_g6492964947_ _g6493064951_)))) + (_g6492964947_ _g6493064951_)))) + (_g6492964947_ _g6493064951_)))) + (_g6492964947_ _g6493064951_))))) + (_g6492865003_ _$stx64925_)))) diff --git a/src/bootstrap/gerbil/runtime/thread__0.scm b/src/bootstrap/gerbil/runtime/thread__0.scm index e9f08a9e9..25d7c8879 100644 --- a/src/bootstrap/gerbil/runtime/thread__0.scm +++ b/src/bootstrap/gerbil/runtime/thread__0.scm @@ -1,228 +1,228 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1707773926) + (define gerbil/runtime/thread::timestamp 1708102801) (begin (define spawn - (lambda (_f96706_ . _args96707_) - (if (let () (declare (not safe)) (procedure? _f96706_)) + (lambda (_f97867_ . _args97868_) + (if (let () (declare (not safe)) (procedure? _f97867_)) '#!void - (raise (let ((__obj101276 + (raise (let ((__obj102437 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj101276 + __obj102437 '"expected procedure" 'where: 'spawn 'irritants: - (let () (declare (not safe)) (cons _f96706_ '()))) - __obj101276))) + (let () (declare (not safe)) (cons _f97867_ '()))) + __obj102437))) (let () (declare (not safe)) - (spawn-actor _f96706_ _args96707_ '#!void '#f)))) + (spawn-actor _f97867_ _args97868_ '#!void '#f)))) (define spawn/name - (lambda (_name96702_ _f96703_ . _args96704_) - (if (let () (declare (not safe)) (procedure? _f96703_)) + (lambda (_name97863_ _f97864_ . _args97865_) + (if (let () (declare (not safe)) (procedure? _f97864_)) '#!void - (raise (let ((__obj101277 + (raise (let ((__obj102438 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj101277 + __obj102438 '"expected procedure" 'where: 'spawn/name 'irritants: - (let () (declare (not safe)) (cons _f96703_ '()))) - __obj101277))) + (let () (declare (not safe)) (cons _f97864_ '()))) + __obj102438))) (let () (declare (not safe)) - (spawn-actor _f96703_ _args96704_ _name96702_ '#f)))) + (spawn-actor _f97864_ _args97865_ _name97863_ '#f)))) (define spawn/group - (lambda (_name96696_ _f96697_ . _args96698_) - (if (let () (declare (not safe)) (procedure? _f96697_)) + (lambda (_name97857_ _f97858_ . _args97859_) + (if (let () (declare (not safe)) (procedure? _f97858_)) '#!void - (raise (let ((__obj101278 + (raise (let ((__obj102439 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj101278 + __obj102439 '"expected procedure" 'where: 'spawn/group 'irritants: - (let () (declare (not safe)) (cons _f96697_ '()))) - __obj101278))) - (let ((_tgroup96700_ (make-thread-group _name96696_))) + (let () (declare (not safe)) (cons _f97858_ '()))) + __obj102439))) + (let ((_tgroup97861_ (make-thread-group _name97857_))) (declare (not safe)) - (spawn-actor _f96697_ _args96698_ _name96696_ _tgroup96700_)))) + (spawn-actor _f97858_ _args97859_ _name97857_ _tgroup97861_)))) (define spawn-actor - (lambda (_f96669_ _args96670_ _name96671_ _tgroup96672_) - (letrec ((_thread-main96674_ - (lambda (_thunk96688_) + (lambda (_f97830_ _args97831_ _name97832_ _tgroup97833_) + (letrec ((_thread-main97835_ + (lambda (_thunk97849_) (lambda () (with-exception-handler - (lambda (_exn96691_) - (let ((__tmp101280 - (lambda (_cont96693_) + (lambda (_exn97852_) + (let ((__tmp102441 + (lambda (_cont97854_) (if __unhandled-actor-exception-hook - (let ((__tmp101281 + (let ((__tmp102442 (lambda () (__unhandled-actor-exception-hook - _cont96693_ - _exn96691_)))) + _cont97854_ + _exn97852_)))) (declare (not safe)) - (with-catch void __tmp101281)) + (with-catch void __tmp102442)) '#!void) - (let ((__tmp101282 + (let ((__tmp102443 (let () (declare (not safe)) - (##continuation-last _cont96693_)))) + (##continuation-last _cont97854_)))) (declare (not safe)) (##continuation-graft - __tmp101282 + __tmp102443 ##primordial-exception-handler - _exn96691_))))) + _exn97852_))))) (declare (not safe)) - (##continuation-capture __tmp101280))) - _thunk96688_))))) - (let* ((_thunk96677_ - (if (let () (declare (not safe)) (null? _args96670_)) - _f96669_ - (lambda () (apply _f96669_ _args96670_)))) - (_thunk96680_ + (##continuation-capture __tmp102441))) + _thunk97849_))))) + (let* ((_thunk97838_ + (if (let () (declare (not safe)) (null? _args97831_)) + _f97830_ + (lambda () (apply _f97830_ _args97831_)))) + (_thunk97841_ (lambda () (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk96677_)))) - (_tgroup96685_ - (let ((_$e96682_ _tgroup96672_)) - (if _$e96682_ - _$e96682_ + (with-exception-stack-trace__0 _thunk97838_)))) + (_tgroup97846_ + (let ((_$e97843_ _tgroup97833_)) + (if _$e97843_ + _$e97843_ (let () (declare (not safe)) (current-thread-group)))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (let () (declare (not safe)) (_thread-main96674_ _thunk96680_)) - _name96671_ - _tgroup96685_)))))) + (let () (declare (not safe)) (_thread-main97835_ _thunk97841_)) + _name97832_ + _tgroup97846_)))))) (define spawn-thread__% - (lambda (_thunk96647_ _name96648_ _tgroup96649_) - (thread-start! (make-thread _thunk96647_ _name96648_ _tgroup96649_)))) + (lambda (_thunk97808_ _name97809_ _tgroup97810_) + (thread-start! (make-thread _thunk97808_ _name97809_ _tgroup97810_)))) (define spawn-thread__0 - (lambda (_thunk96654_) - (let* ((_name96656_ absent-obj) (_tgroup96658_ absent-obj)) + (lambda (_thunk97815_) + (let* ((_name97817_ absent-obj) (_tgroup97819_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk96654_ _name96656_ _tgroup96658_)))) + (spawn-thread__% _thunk97815_ _name97817_ _tgroup97819_)))) (define spawn-thread__1 - (lambda (_thunk96660_ _name96661_) - (let ((_tgroup96663_ absent-obj)) + (lambda (_thunk97821_ _name97822_) + (let ((_tgroup97824_ absent-obj)) (declare (not safe)) - (spawn-thread__% _thunk96660_ _name96661_ _tgroup96663_)))) + (spawn-thread__% _thunk97821_ _name97822_ _tgroup97824_)))) (define spawn-thread - (lambda _g101284_ - (let ((_g101283_ (let () (declare (not safe)) (##length _g101284_)))) - (cond ((let () (declare (not safe)) (##fx= _g101283_ 1)) - (apply (lambda (_thunk96654_) + (lambda _g102445_ + (let ((_g102444_ (let () (declare (not safe)) (##length _g102445_)))) + (cond ((let () (declare (not safe)) (##fx= _g102444_ 1)) + (apply (lambda (_thunk97815_) (let () (declare (not safe)) - (spawn-thread__0 _thunk96654_))) - _g101284_)) - ((let () (declare (not safe)) (##fx= _g101283_ 2)) - (apply (lambda (_thunk96660_ _name96661_) + (spawn-thread__0 _thunk97815_))) + _g102445_)) + ((let () (declare (not safe)) (##fx= _g102444_ 2)) + (apply (lambda (_thunk97821_ _name97822_) (let () (declare (not safe)) - (spawn-thread__1 _thunk96660_ _name96661_))) - _g101284_)) - ((let () (declare (not safe)) (##fx= _g101283_ 3)) - (apply (lambda (_thunk96665_ _name96666_ _tgroup96667_) + (spawn-thread__1 _thunk97821_ _name97822_))) + _g102445_)) + ((let () (declare (not safe)) (##fx= _g102444_ 3)) + (apply (lambda (_thunk97826_ _name97827_ _tgroup97828_) (let () (declare (not safe)) (spawn-thread__% - _thunk96665_ - _name96666_ - _tgroup96667_))) - _g101284_)) + _thunk97826_ + _name97827_ + _tgroup97828_))) + _g102445_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g101284_)))))) + _g102445_)))))) (define thread-local-ref__% - (lambda (_key96631_ _default96632_) - (let ((_tab96634_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key97792_ _default97793_) + (let ((_tab97795_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-ref _tab96634_ _key96631_ _default96632_)))) + (table-ref _tab97795_ _key97792_ _default97793_)))) (define thread-local-ref__0 - (lambda (_key96639_) - (let ((_default96641_ absent-obj)) + (lambda (_key97800_) + (let ((_default97802_ absent-obj)) (declare (not safe)) - (thread-local-ref__% _key96639_ _default96641_)))) + (thread-local-ref__% _key97800_ _default97802_)))) (define thread-local-ref - (lambda _g101286_ - (let ((_g101285_ (let () (declare (not safe)) (##length _g101286_)))) - (cond ((let () (declare (not safe)) (##fx= _g101285_ 1)) - (apply (lambda (_key96639_) + (lambda _g102447_ + (let ((_g102446_ (let () (declare (not safe)) (##length _g102447_)))) + (cond ((let () (declare (not safe)) (##fx= _g102446_ 1)) + (apply (lambda (_key97800_) (let () (declare (not safe)) - (thread-local-ref__0 _key96639_))) - _g101286_)) - ((let () (declare (not safe)) (##fx= _g101285_ 2)) - (apply (lambda (_key96643_ _default96644_) + (thread-local-ref__0 _key97800_))) + _g102447_)) + ((let () (declare (not safe)) (##fx= _g102446_ 2)) + (apply (lambda (_key97804_ _default97805_) (let () (declare (not safe)) - (thread-local-ref__% _key96643_ _default96644_))) - _g101286_)) + (thread-local-ref__% _key97804_ _default97805_))) + _g102447_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g101286_)))))) + _g102447_)))))) (define thread-local-get - (lambda (_key96628_) - (let () (declare (not safe)) (thread-local-ref _key96628_ '#f)))) + (lambda (_key97789_) + (let () (declare (not safe)) (thread-local-ref _key97789_ '#f)))) (define thread-local-set! - (lambda (_key96623_ _value96624_) - (let ((_tab96626_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key97784_ _value97785_) + (let ((_tab97787_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab96626_ _key96623_ _value96624_)))) + (table-set! _tab97787_ _key97784_ _value97785_)))) (define thread-local-clear! - (lambda (_key96619_) - (let ((_tab96621_ (let () (declare (not safe)) (thread-local-table)))) + (lambda (_key97780_) + (let ((_tab97782_ (let () (declare (not safe)) (thread-local-table)))) (declare (not safe)) - (table-set! _tab96621_ _key96619_)))) + (table-set! _tab97782_ _key97780_)))) (define thread-local-table (lambda () - (let ((_thr96605_ (current-thread))) - (if (let () (declare (not safe)) (actor-thread? _thr96605_)) - (let ((_$e96607_ (actor-thread-locals _thr96605_))) - (if _$e96607_ - (values _$e96607_) - (let ((_tab96610_ + (let ((_thr97766_ (current-thread))) + (if (let () (declare (not safe)) (actor-thread? _thr97766_)) + (let ((_$e97768_ (actor-thread-locals _thr97766_))) + (if _$e97768_ + (values _$e97768_) + (let ((_tab97771_ (let () (declare (not safe)) (make-table 'test: eq?)))) - (actor-thread-locals-set! _thr96605_ _tab96610_) - _tab96610_))) + (actor-thread-locals-set! _thr97766_ _tab97771_) + _tab97771_))) (if (let () (declare (not safe)) - (eq? _thr96605_ ##primordial-thread)) + (eq? _thr97766_ ##primordial-thread)) __primordial-thread-locals (begin (mutex-lock! __thread-locals-mutex) - (let ((_$e96612_ + (let ((_$e97773_ (let () (declare (not safe)) - (table-ref __thread-locals _thr96605_ '#f)))) - (if _$e96612_ - ((lambda (_tab96615_) + (table-ref __thread-locals _thr97766_ '#f)))) + (if _$e97773_ + ((lambda (_tab97776_) (mutex-unlock! __thread-locals-mutex) - _tab96615_) - _$e96612_) - (let ((_tab96617_ + _tab97776_) + _$e97773_) + (let ((_tab97778_ (let () (declare (not safe)) (make-table 'test: eq?)))) @@ -230,10 +230,10 @@ (declare (not safe)) (table-set! __thread-locals - _thr96605_ - _tab96617_)) + _thr97766_ + _tab97778_)) (mutex-unlock! __thread-locals-mutex) - _tab96617_))))))))) + _tab97778_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-table 'test: eq?))) (define __thread-locals @@ -241,138 +241,138 @@ (define __thread-locals-mutex (make-mutex 'thread-locals)) (define __unhandled-actor-exception-hook '#f) (define unhandled-actor-exception-hook-set! - (lambda (_proc96602_) - (if (let () (declare (not safe)) (procedure? _proc96602_)) + (lambda (_proc97763_) + (if (let () (declare (not safe)) (procedure? _proc97763_)) '#!void - (raise (let ((__obj101279 + (raise (let ((__obj102440 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj101279 + __obj102440 '"Bad argument; expected procedure or #f" 'where: 'unhandler-actor-exception-hook-set! 'irritants: - (let () (declare (not safe)) (cons _proc96602_ '()))) - __obj101279))) - (set! __unhandled-actor-exception-hook _proc96602_))) + (let () (declare (not safe)) (cons _proc97763_ '()))) + __obj102440))) + (set! __unhandled-actor-exception-hook _proc97763_))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_mx96590_ _proc96591_) - (let ((_handler96593_ (current-exception-handler))) + (lambda (_mx97751_ _proc97752_) + (let ((_handler97754_ (current-exception-handler))) (with-exception-handler - (lambda (_e96595_) - (let ((__tmp101287 + (lambda (_e97756_) + (let ((__tmp102448 (lambda () - (mutex-unlock! _mx96590_) - (_handler96593_ _e96595_)))) + (mutex-unlock! _mx97751_) + (_handler97754_ _e97756_)))) (declare (not safe)) - (with-catch void __tmp101287)) + (with-catch void __tmp102448)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _e96595_))) + (##thread-end-with-uncaught-exception! _e97756_))) (lambda () - (mutex-lock! _mx96590_) - (let ((_result96599_ (_proc96591_))) - (mutex-unlock! _mx96590_) - _result96599_)))))) + (mutex-lock! _mx97751_) + (let ((_result97760_ (_proc97752_))) + (mutex-unlock! _mx97751_) + _result97760_)))))) (define with-dynamic-lock - (lambda (_mx96585_ _proc96586_) + (lambda (_mx97746_ _proc97747_) (dynamic-wind - (lambda () (mutex-lock! _mx96585_)) - _proc96586_ - (lambda () (mutex-unlock! _mx96585_))))) + (lambda () (mutex-lock! _mx97746_)) + _proc97747_ + (lambda () (mutex-unlock! _mx97746_))))) (define with-exception-stack-trace__% - (lambda (_thunk96566_ _error-port96567_) + (lambda (_thunk97727_ _error-port97728_) (with-exception-handler - (let ((_E96569_ (current-exception-handler))) - (lambda (_exn96571_) + (let ((_E97730_ (current-exception-handler))) + (lambda (_exn97732_) (continuation-capture - (lambda (_cont96573_) + (lambda (_cont97734_) (if (dump-stack-trace?) (let () (declare (not safe)) (dump-stack-trace!__% - _cont96573_ - _exn96571_ - _error-port96567_)) + _cont97734_ + _exn97732_ + _error-port97728_)) '#!void) - (_E96569_ _exn96571_))))) - _thunk96566_))) + (_E97730_ _exn97732_))))) + _thunk97727_))) (define with-exception-stack-trace__0 - (lambda (_thunk96578_) - (let ((_error-port96580_ (current-error-port))) + (lambda (_thunk97739_) + (let ((_error-port97741_ (current-error-port))) (declare (not safe)) - (with-exception-stack-trace__% _thunk96578_ _error-port96580_)))) + (with-exception-stack-trace__% _thunk97739_ _error-port97741_)))) (define with-exception-stack-trace - (lambda _g101289_ - (let ((_g101288_ (let () (declare (not safe)) (##length _g101289_)))) - (cond ((let () (declare (not safe)) (##fx= _g101288_ 1)) - (apply (lambda (_thunk96578_) + (lambda _g102450_ + (let ((_g102449_ (let () (declare (not safe)) (##length _g102450_)))) + (cond ((let () (declare (not safe)) (##fx= _g102449_ 1)) + (apply (lambda (_thunk97739_) (let () (declare (not safe)) - (with-exception-stack-trace__0 _thunk96578_))) - _g101289_)) - ((let () (declare (not safe)) (##fx= _g101288_ 2)) - (apply (lambda (_thunk96582_ _error-port96583_) + (with-exception-stack-trace__0 _thunk97739_))) + _g102450_)) + ((let () (declare (not safe)) (##fx= _g102449_ 2)) + (apply (lambda (_thunk97743_ _error-port97744_) (let () (declare (not safe)) (with-exception-stack-trace__% - _thunk96582_ - _error-port96583_))) - _g101289_)) + _thunk97743_ + _error-port97744_))) + _g102450_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g101289_)))))) + _g102450_)))))) (define dump-stack-trace!__% - (lambda (_cont96547_ _exn96548_ _error-port96549_) - (let ((_out96551_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _out96551_)) - (display '"*** Unhandled exception in " _out96551_) - (display (current-thread) _out96551_) - (newline _out96551_) - (display-exception _exn96548_ _out96551_) + (lambda (_cont97708_ _exn97709_ _error-port97710_) + (let ((_out97712_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _out97712_)) + (display '"*** Unhandled exception in " _out97712_) + (display (current-thread) _out97712_) + (newline _out97712_) + (display-exception _exn97709_ _out97712_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _exn96548_)) + (class-instance? StackTrace::t _exn97709_)) '#!void (begin - (display '"Continuation backtrace: " _out96551_) - (newline _out96551_) - (display-continuation-backtrace _cont96547_ _out96551_))) - (let ((__tmp101290 (get-output-string _out96551_))) + (display '"Continuation backtrace: " _out97712_) + (newline _out97712_) + (display-continuation-backtrace _cont97708_ _out97712_))) + (let ((__tmp102451 (get-output-string _out97712_))) (declare (not safe)) - (##write-string __tmp101290 _error-port96549_))))) + (##write-string __tmp102451 _error-port97710_))))) (define dump-stack-trace!__0 - (lambda (_cont96556_ _exn96557_) - (let ((_error-port96559_ (current-error-port))) + (lambda (_cont97717_ _exn97718_) + (let ((_error-port97720_ (current-error-port))) (declare (not safe)) - (dump-stack-trace!__% _cont96556_ _exn96557_ _error-port96559_)))) + (dump-stack-trace!__% _cont97717_ _exn97718_ _error-port97720_)))) (define dump-stack-trace! - (lambda _g101292_ - (let ((_g101291_ (let () (declare (not safe)) (##length _g101292_)))) - (cond ((let () (declare (not safe)) (##fx= _g101291_ 2)) - (apply (lambda (_cont96556_ _exn96557_) + (lambda _g102453_ + (let ((_g102452_ (let () (declare (not safe)) (##length _g102453_)))) + (cond ((let () (declare (not safe)) (##fx= _g102452_ 2)) + (apply (lambda (_cont97717_ _exn97718_) (let () (declare (not safe)) - (dump-stack-trace!__0 _cont96556_ _exn96557_))) - _g101292_)) - ((let () (declare (not safe)) (##fx= _g101291_ 3)) - (apply (lambda (_cont96561_ _exn96562_ _error-port96563_) + (dump-stack-trace!__0 _cont97717_ _exn97718_))) + _g102453_)) + ((let () (declare (not safe)) (##fx= _g102452_ 3)) + (apply (lambda (_cont97722_ _exn97723_ _error-port97724_) (let () (declare (not safe)) (dump-stack-trace!__% - _cont96561_ - _exn96562_ - _error-port96563_))) - _g101292_)) + _cont97722_ + _exn97723_ + _error-port97724_))) + _g102453_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g101292_)))))) + _g102453_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util__0.scm b/src/bootstrap/gerbil/runtime/util__0.scm index 3b3300012..c0055950a 100644 --- a/src/bootstrap/gerbil/runtime/util__0.scm +++ b/src/bootstrap/gerbil/runtime/util__0.scm @@ -1,2400 +1,2400 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1707773924) + (define gerbil/runtime/util::timestamp 1708102800) (begin (define displayln - (lambda _args59115_ - (let _lp59117_ ((_rest59119_ _args59115_)) - (let* ((_rest5912059128_ _rest59119_) - (_else5912259136_ (lambda () (newline))) - (_K5912459142_ - (lambda (_rest59139_ _hd59140_) - (display _hd59140_) - (let () (declare (not safe)) (_lp59117_ _rest59139_))))) - (if (let () (declare (not safe)) (##pair? _rest5912059128_)) - (let ((_hd5912559145_ - (let () (declare (not safe)) (##car _rest5912059128_))) - (_tl5912659147_ - (let () (declare (not safe)) (##cdr _rest5912059128_)))) - (let* ((_hd59150_ _hd5912559145_) - (_rest59152_ _tl5912659147_)) + (lambda _args59326_ + (let _lp59328_ ((_rest59330_ _args59326_)) + (let* ((_rest5933159339_ _rest59330_) + (_else5933359347_ (lambda () (newline))) + (_K5933559353_ + (lambda (_rest59350_ _hd59351_) + (display _hd59351_) + (let () (declare (not safe)) (_lp59328_ _rest59350_))))) + (if (let () (declare (not safe)) (##pair? _rest5933159339_)) + (let ((_hd5933659356_ + (let () (declare (not safe)) (##car _rest5933159339_))) + (_tl5933759358_ + (let () (declare (not safe)) (##cdr _rest5933159339_)))) + (let* ((_hd59361_ _hd5933659356_) + (_rest59363_ _tl5933759358_)) (declare (not safe)) - (_K5912459142_ _rest59152_ _hd59150_))) + (_K5933559353_ _rest59363_ _hd59361_))) (let () (declare (not safe)) (newline))))))) - (define display* (lambda _args59113_ (for-each display _args59113_))) + (define display* (lambda _args59324_ (for-each display _args59324_))) (define file-newer? - (lambda (_file159106_ _file259107_) - (letrec ((_modification-time59109_ - (lambda (_file59111_) - (let ((__tmp64115 + (lambda (_file159317_ _file259318_) + (letrec ((_modification-time59320_ + (lambda (_file59322_) + (let ((__tmp64326 (file-info-last-modification-time - (file-info _file59111_ '#t)))) + (file-info _file59322_ '#t)))) (declare (not safe)) - (##time->seconds __tmp64115))))) - (let ((__tmp64117 + (##time->seconds __tmp64326))))) + (let ((__tmp64328 (let () (declare (not safe)) - (_modification-time59109_ _file159106_))) - (__tmp64116 + (_modification-time59320_ _file159317_))) + (__tmp64327 (let () (declare (not safe)) - (_modification-time59109_ _file259107_)))) + (_modification-time59320_ _file259318_)))) (declare (not safe)) - (##fl> __tmp64117 __tmp64116))))) + (##fl> __tmp64328 __tmp64327))))) (define create-directory*__% - (lambda (_dir59080_ _perms59081_) - (letrec ((_create159083_ - (lambda (_path59094_) - (if (file-exists? _path59094_) - (if (let ((__tmp64118 (file-type _path59094_))) + (lambda (_dir59291_ _perms59292_) + (letrec ((_create159294_ + (lambda (_path59305_) + (if (file-exists? _path59305_) + (if (let ((__tmp64329 (file-type _path59305_))) (declare (not safe)) - (eq? __tmp64118 'directory)) + (eq? __tmp64329 'directory)) '#!void (error '"Path component is not a directory" - _path59094_)) - (if _perms59081_ + _path59305_)) + (if _perms59292_ (create-directory (list 'path: - _path59094_ + _path59305_ 'permissions: - _perms59081_)) - (create-directory _path59094_)))))) - (if (file-exists? _dir59080_) + _perms59292_)) + (create-directory _path59305_)))))) + (if (file-exists? _dir59291_) '#!void - (let _lp59085_ ((_start59087_ '0)) - (let ((_$e59089_ + (let _lp59296_ ((_start59298_ '0)) + (let ((_$e59300_ (let () (declare (not safe)) - (string-index _dir59080_ '#\/ _start59087_)))) - (if _$e59089_ - ((lambda (_x59092_) - (if (let () (declare (not safe)) (##fx> _x59092_ '0)) - (let ((__tmp64119 - (substring _dir59080_ '0 _x59092_))) + (string-index _dir59291_ '#\/ _start59298_)))) + (if _$e59300_ + ((lambda (_x59303_) + (if (let () (declare (not safe)) (##fx> _x59303_ '0)) + (let ((__tmp64330 + (substring _dir59291_ '0 _x59303_))) (declare (not safe)) - (_create159083_ __tmp64119)) + (_create159294_ __tmp64330)) '#!void) - (let ((__tmp64120 + (let ((__tmp64331 (let () (declare (not safe)) - (##fx+ _x59092_ '1)))) + (##fx+ _x59303_ '1)))) (declare (not safe)) - (_lp59085_ __tmp64120))) - _$e59089_) + (_lp59296_ __tmp64331))) + _$e59300_) (let () (declare (not safe)) - (_create159083_ _dir59080_))))))))) + (_create159294_ _dir59291_))))))))) (define create-directory*__0 - (lambda (_dir59099_) - (let ((_perms59101_ '493)) + (lambda (_dir59310_) + (let ((_perms59312_ '493)) (declare (not safe)) - (create-directory*__% _dir59099_ _perms59101_)))) + (create-directory*__% _dir59310_ _perms59312_)))) (define create-directory* - (lambda _g64122_ - (let ((_g64121_ (let () (declare (not safe)) (##length _g64122_)))) - (cond ((let () (declare (not safe)) (##fx= _g64121_ 1)) - (apply (lambda (_dir59099_) + (lambda _g64333_ + (let ((_g64332_ (let () (declare (not safe)) (##length _g64333_)))) + (cond ((let () (declare (not safe)) (##fx= _g64332_ 1)) + (apply (lambda (_dir59310_) (let () (declare (not safe)) - (create-directory*__0 _dir59099_))) - _g64122_)) - ((let () (declare (not safe)) (##fx= _g64121_ 2)) - (apply (lambda (_dir59103_ _perms59104_) + (create-directory*__0 _dir59310_))) + _g64333_)) + ((let () (declare (not safe)) (##fx= _g64332_ 2)) + (apply (lambda (_dir59314_ _perms59315_) (let () (declare (not safe)) - (create-directory*__% _dir59103_ _perms59104_))) - _g64122_)) + (create-directory*__% _dir59314_ _perms59315_))) + _g64333_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g64122_)))))) + _g64333_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _g64123_ '#t)) + (define true (lambda _g64334_ '#t)) (define true? - (lambda (_obj59076_) (let () (declare (not safe)) (eq? _obj59076_ '#t)))) - (define false (lambda _g64124_ '#f)) - (define void (lambda _g64125_ '#!void)) + (lambda (_obj59287_) (let () (declare (not safe)) (eq? _obj59287_ '#t)))) + (define false (lambda _g64335_ '#f)) + (define void (lambda _g64336_ '#!void)) (define void? - (lambda (_obj59072_) - (let () (declare (not safe)) (eq? _obj59072_ '#!void)))) - (define eof-object (lambda _g64126_ '#!eof)) - (define identity (lambda (_obj59069_) _obj59069_)) + (lambda (_obj59283_) + (let () (declare (not safe)) (eq? _obj59283_ '#!void)))) + (define eof-object (lambda _g64337_ '#!eof)) + (define identity (lambda (_obj59280_) _obj59280_)) (define dssl-object? - (lambda (_obj59067_) - (if (memq _obj59067_ '(#!key #!rest #!optional)) '#t '#f))) + (lambda (_obj59278_) + (if (memq _obj59278_ '(#!key #!rest #!optional)) '#t '#f))) (define dssl-key-object? - (lambda (_obj59065_) - (let () (declare (not safe)) (eq? _obj59065_ '#!key)))) + (lambda (_obj59276_) + (let () (declare (not safe)) (eq? _obj59276_ '#!key)))) (define dssl-rest-object? - (lambda (_obj59063_) - (let () (declare (not safe)) (eq? _obj59063_ '#!rest)))) + (lambda (_obj59274_) + (let () (declare (not safe)) (eq? _obj59274_ '#!rest)))) (define dssl-optional-object? - (lambda (_obj59061_) - (let () (declare (not safe)) (eq? _obj59061_ '#!optional)))) + (lambda (_obj59272_) + (let () (declare (not safe)) (eq? _obj59272_ '#!optional)))) (define immediate? - (lambda (_obj59057_) - (let* ((_t59059_ (let () (declare (not safe)) (##type _obj59057_))) - (__tmp64127 - (let () (declare (not safe)) (##fxand _t59059_ '1)))) + (lambda (_obj59268_) + (let* ((_t59270_ (let () (declare (not safe)) (##type _obj59268_))) + (__tmp64338 + (let () (declare (not safe)) (##fxand _t59270_ '1)))) (declare (not safe)) - (##fxzero? __tmp64127)))) + (##fxzero? __tmp64338)))) (define nonnegative-fixnum? - (lambda (_obj59055_) - (if (fixnum? _obj59055_) - (let ((__tmp64128 (fxnegative? _obj59055_))) + (lambda (_obj59266_) + (if (fixnum? _obj59266_) + (let ((__tmp64339 (fxnegative? _obj59266_))) (declare (not safe)) - (not __tmp64128)) + (not __tmp64339)) '#f))) (define values-count - (lambda (_obj59053_) - (if (let () (declare (not safe)) (##values? _obj59053_)) - (let () (declare (not safe)) (##vector-length _obj59053_)) + (lambda (_obj59264_) + (if (let () (declare (not safe)) (##values? _obj59264_)) + (let () (declare (not safe)) (##vector-length _obj59264_)) '1))) (define values-ref - (lambda (_obj59050_ _k59051_) - (if (let () (declare (not safe)) (##values? _obj59050_)) - (let () (declare (not safe)) (##vector-ref _obj59050_ _k59051_)) - _obj59050_))) + (lambda (_obj59261_ _k59262_) + (if (let () (declare (not safe)) (##values? _obj59261_)) + (let () (declare (not safe)) (##vector-ref _obj59261_ _k59262_)) + _obj59261_))) (define values->list - (lambda (_obj59048_) - (if (let () (declare (not safe)) (##values? _obj59048_)) - (let () (declare (not safe)) (##vector->list _obj59048_)) - (list _obj59048_)))) + (lambda (_obj59259_) + (if (let () (declare (not safe)) (##values? _obj59259_)) + (let () (declare (not safe)) (##vector->list _obj59259_)) + (list _obj59259_)))) (define subvector->list__% - (lambda (_obj59033_ _start59034_) - (let ((_lst59036_ - (let () (declare (not safe)) (##vector->list _obj59033_)))) - (list-tail _lst59036_ _start59034_)))) + (lambda (_obj59244_ _start59245_) + (let ((_lst59247_ + (let () (declare (not safe)) (##vector->list _obj59244_)))) + (list-tail _lst59247_ _start59245_)))) (define subvector->list__0 - (lambda (_obj59041_) - (let ((_start59043_ '0)) + (lambda (_obj59252_) + (let ((_start59254_ '0)) (declare (not safe)) - (subvector->list__% _obj59041_ _start59043_)))) + (subvector->list__% _obj59252_ _start59254_)))) (define subvector->list - (lambda _g64130_ - (let ((_g64129_ (let () (declare (not safe)) (##length _g64130_)))) - (cond ((let () (declare (not safe)) (##fx= _g64129_ 1)) - (apply (lambda (_obj59041_) + (lambda _g64341_ + (let ((_g64340_ (let () (declare (not safe)) (##length _g64341_)))) + (cond ((let () (declare (not safe)) (##fx= _g64340_ 1)) + (apply (lambda (_obj59252_) (let () (declare (not safe)) - (subvector->list__0 _obj59041_))) - _g64130_)) - ((let () (declare (not safe)) (##fx= _g64129_ 2)) - (apply (lambda (_obj59045_ _start59046_) + (subvector->list__0 _obj59252_))) + _g64341_)) + ((let () (declare (not safe)) (##fx= _g64340_ 2)) + (apply (lambda (_obj59256_ _start59257_) (let () (declare (not safe)) - (subvector->list__% _obj59045_ _start59046_))) - _g64130_)) + (subvector->list__% _obj59256_ _start59257_))) + _g64341_)) (else (##raise-wrong-number-of-arguments-exception subvector->list - _g64130_)))))) + _g64341_)))))) (define make-hash-table make-table) (define make-hash-table-eq - (lambda _args59030_ (apply make-table 'test: eq? _args59030_))) + (lambda _args59241_ (apply make-table 'test: eq? _args59241_))) (define make-hash-table-eqv - (lambda _args59028_ (apply make-table 'test: eqv? _args59028_))) + (lambda _args59239_ (apply make-table 'test: eqv? _args59239_))) (define list->hash-table list->table) (define list->hash-table-eq - (lambda (_lst59025_ . _args59026_) - (apply list->table _lst59025_ 'test: eq? _args59026_))) + (lambda (_lst59236_ . _args59237_) + (apply list->table _lst59236_ 'test: eq? _args59237_))) (define list->hash-table-eqv - (lambda (_lst59022_ . _args59023_) - (apply list->table _lst59022_ 'test: eqv? _args59023_))) + (lambda (_lst59233_ . _args59234_) + (apply list->table _lst59233_ 'test: eqv? _args59234_))) (define hash? table?) (define hash-table? table?) (define hash-length table-length) (define hash-ref table-ref) (define hash-get - (lambda (_ht59019_ _k59020_) (table-ref _ht59019_ _k59020_ '#f))) + (lambda (_ht59230_ _k59231_) (table-ref _ht59230_ _k59231_ '#f))) (define hash-put! - (lambda (_ht59015_ _k59016_ _v59017_) - (table-set! _ht59015_ _k59016_ _v59017_))) + (lambda (_ht59226_ _k59227_ _v59228_) + (table-set! _ht59226_ _k59227_ _v59228_))) (define hash-update!__% - (lambda (_ht58994_ _k58995_ _update58996_ _default58997_) - (let* ((_value58999_ + (lambda (_ht59205_ _k59206_ _update59207_ _default59208_) + (let* ((_value59210_ (let () (declare (not safe)) - (table-ref _ht58994_ _k58995_ _default58997_))) - (__tmp64131 (_update58996_ _value58999_))) + (table-ref _ht59205_ _k59206_ _default59208_))) + (__tmp64342 (_update59207_ _value59210_))) (declare (not safe)) - (table-set! _ht58994_ _k58995_ __tmp64131)))) + (table-set! _ht59205_ _k59206_ __tmp64342)))) (define hash-update!__0 - (lambda (_ht59004_ _k59005_ _update59006_) - (let ((_default59008_ '#!void)) + (lambda (_ht59215_ _k59216_ _update59217_) + (let ((_default59219_ '#!void)) (declare (not safe)) - (hash-update!__% _ht59004_ _k59005_ _update59006_ _default59008_)))) + (hash-update!__% _ht59215_ _k59216_ _update59217_ _default59219_)))) (define hash-update! - (lambda _g64133_ - (let ((_g64132_ (let () (declare (not safe)) (##length _g64133_)))) - (cond ((let () (declare (not safe)) (##fx= _g64132_ 3)) - (apply (lambda (_ht59004_ _k59005_ _update59006_) + (lambda _g64344_ + (let ((_g64343_ (let () (declare (not safe)) (##length _g64344_)))) + (cond ((let () (declare (not safe)) (##fx= _g64343_ 3)) + (apply (lambda (_ht59215_ _k59216_ _update59217_) (let () (declare (not safe)) (hash-update!__0 - _ht59004_ - _k59005_ - _update59006_))) - _g64133_)) - ((let () (declare (not safe)) (##fx= _g64132_ 4)) - (apply (lambda (_ht59010_ - _k59011_ - _update59012_ - _default59013_) + _ht59215_ + _k59216_ + _update59217_))) + _g64344_)) + ((let () (declare (not safe)) (##fx= _g64343_ 4)) + (apply (lambda (_ht59221_ + _k59222_ + _update59223_ + _default59224_) (let () (declare (not safe)) (hash-update!__% - _ht59010_ - _k59011_ - _update59012_ - _default59013_))) - _g64133_)) + _ht59221_ + _k59222_ + _update59223_ + _default59224_))) + _g64344_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g64133_)))))) + _g64344_)))))) (define hash-remove! - (lambda (_ht58990_ _k58991_) (table-set! _ht58990_ _k58991_))) + (lambda (_ht59201_ _k59202_) (table-set! _ht59201_ _k59202_))) (define hash->list table->list) (define hash->plist - (lambda (_ht58988_) - (let () (declare (not safe)) (hash-fold cons* '() _ht58988_)))) + (lambda (_ht59199_) + (let () (declare (not safe)) (hash-fold cons* '() _ht59199_)))) (define plist->hash-table__% - (lambda (_plst58923_ _ht58924_) - (let _lp58926_ ((_rest58928_ _plst58923_)) - (let* ((_rest5892958940_ _rest58928_) - (_E5893258944_ - (lambda () (error '"No clause matching" _rest5892958940_)))) - (let ((_K5893458959_ - (lambda (_rest58955_ _v58956_ _k58957_) + (lambda (_plst59134_ _ht59135_) + (let _lp59137_ ((_rest59139_ _plst59134_)) + (let* ((_rest5914059151_ _rest59139_) + (_E5914359155_ + (lambda () (error '"No clause matching" _rest5914059151_)))) + (let ((_K5914559170_ + (lambda (_rest59166_ _v59167_ _k59168_) (let () (declare (not safe)) - (table-set! _ht58924_ _k58957_ _v58956_)) - (let () (declare (not safe)) (_lp58926_ _rest58955_)))) - (_K5893358949_ (lambda () _ht58924_))) - (let ((_try-match5893158952_ + (table-set! _ht59135_ _k59168_ _v59167_)) + (let () (declare (not safe)) (_lp59137_ _rest59166_)))) + (_K5914459160_ (lambda () _ht59135_))) + (let ((_try-match5914259163_ (lambda () (if (let () (declare (not safe)) - (##eq? _rest5892958940_ '())) - (let () (declare (not safe)) (_K5893358949_)) - (let () (declare (not safe)) (_E5893258944_)))))) - (if (let () (declare (not safe)) (##pair? _rest5892958940_)) - (let ((_tl5893658964_ + (##eq? _rest5914059151_ '())) + (let () (declare (not safe)) (_K5914459160_)) + (let () (declare (not safe)) (_E5914359155_)))))) + (if (let () (declare (not safe)) (##pair? _rest5914059151_)) + (let ((_tl5914759175_ (let () (declare (not safe)) - (##cdr _rest5892958940_))) - (_hd5893558962_ + (##cdr _rest5914059151_))) + (_hd5914659173_ (let () (declare (not safe)) - (##car _rest5892958940_)))) + (##car _rest5914059151_)))) (if (let () (declare (not safe)) - (##pair? _tl5893658964_)) - (let ((_tl5893858971_ + (##pair? _tl5914759175_)) + (let ((_tl5914959182_ (let () (declare (not safe)) - (##cdr _tl5893658964_))) - (_hd5893758969_ + (##cdr _tl5914759175_))) + (_hd5914859180_ (let () (declare (not safe)) - (##car _tl5893658964_)))) - (let ((_k58967_ _hd5893558962_) - (_v58974_ _hd5893758969_) - (_rest58976_ _tl5893858971_)) + (##car _tl5914759175_)))) + (let ((_k59178_ _hd5914659173_) + (_v59185_ _hd5914859180_) + (_rest59187_ _tl5914959182_)) (let () (declare (not safe)) - (_K5893458959_ - _rest58976_ - _v58974_ - _k58967_)))) + (_K5914559170_ + _rest59187_ + _v59185_ + _k59178_)))) (let () (declare (not safe)) - (_try-match5893158952_)))) + (_try-match5914259163_)))) (let () (declare (not safe)) - (_try-match5893158952_))))))))) + (_try-match5914259163_))))))))) (define plist->hash-table__0 - (lambda (_plst58981_) - (let ((_ht58983_ (let () (declare (not safe)) (make-table)))) + (lambda (_plst59192_) + (let ((_ht59194_ (let () (declare (not safe)) (make-table)))) (declare (not safe)) - (plist->hash-table__% _plst58981_ _ht58983_)))) + (plist->hash-table__% _plst59192_ _ht59194_)))) (define plist->hash-table - (lambda _g64135_ - (let ((_g64134_ (let () (declare (not safe)) (##length _g64135_)))) - (cond ((let () (declare (not safe)) (##fx= _g64134_ 1)) - (apply (lambda (_plst58981_) + (lambda _g64346_ + (let ((_g64345_ (let () (declare (not safe)) (##length _g64346_)))) + (cond ((let () (declare (not safe)) (##fx= _g64345_ 1)) + (apply (lambda (_plst59192_) (let () (declare (not safe)) - (plist->hash-table__0 _plst58981_))) - _g64135_)) - ((let () (declare (not safe)) (##fx= _g64134_ 2)) - (apply (lambda (_plst58985_ _ht58986_) + (plist->hash-table__0 _plst59192_))) + _g64346_)) + ((let () (declare (not safe)) (##fx= _g64345_ 2)) + (apply (lambda (_plst59196_ _ht59197_) (let () (declare (not safe)) - (plist->hash-table__% _plst58985_ _ht58986_))) - _g64135_)) + (plist->hash-table__% _plst59196_ _ht59197_))) + _g64346_)) (else (##raise-wrong-number-of-arguments-exception plist->hash-table - _g64135_)))))) + _g64346_)))))) (define plist->hash-table-eq - (lambda (_plst58920_) - (let ((__tmp64136 + (lambda (_plst59131_) + (let ((__tmp64347 (let () (declare (not safe)) (make-table 'test: eq?)))) (declare (not safe)) - (plist->hash-table _plst58920_ __tmp64136)))) + (plist->hash-table _plst59131_ __tmp64347)))) (define plist->hash-table-eqv - (lambda (_plst58918_) - (let ((__tmp64137 + (lambda (_plst59129_) + (let ((__tmp64348 (let () (declare (not safe)) (make-table 'test: eqv?)))) (declare (not safe)) - (plist->hash-table _plst58918_ __tmp64137)))) + (plist->hash-table _plst59129_ __tmp64348)))) (define hash-key? - (lambda (_ht58915_ _k58916_) - (let ((__tmp64138 - (let ((__tmp64139 + (lambda (_ht59126_ _k59127_) + (let ((__tmp64349 + (let ((__tmp64350 (let () (declare (not safe)) - (table-ref _ht58915_ _k58916_ absent-value)))) + (table-ref _ht59126_ _k59127_ absent-value)))) (declare (not safe)) - (eq? __tmp64139 absent-value)))) + (eq? __tmp64350 absent-value)))) (declare (not safe)) - (not __tmp64138)))) + (not __tmp64349)))) (define hash-for-each table-for-each) (define hash-map - (lambda (_fun58908_ _ht58909_) - (let ((__tmp64140 - (lambda (_k58911_ _v58912_ _r58913_) - (let ((__tmp64141 (_fun58908_ _k58911_ _v58912_))) + (lambda (_fun59119_ _ht59120_) + (let ((__tmp64351 + (lambda (_k59122_ _v59123_ _r59124_) + (let ((__tmp64352 (_fun59119_ _k59122_ _v59123_))) (declare (not safe)) - (cons __tmp64141 _r58913_))))) + (cons __tmp64352 _r59124_))))) (declare (not safe)) - (hash-fold __tmp64140 '() _ht58909_)))) + (hash-fold __tmp64351 '() _ht59120_)))) (define hash-fold - (lambda (_fun58899_ _iv58900_ _ht58901_) - (let ((_ret58903_ _iv58900_)) - (let ((__tmp64142 - (lambda (_k58905_ _v58906_) - (set! _ret58903_ - (_fun58899_ _k58905_ _v58906_ _ret58903_))))) + (lambda (_fun59110_ _iv59111_ _ht59112_) + (let ((_ret59114_ _iv59111_)) + (let ((__tmp64353 + (lambda (_k59116_ _v59117_) + (set! _ret59114_ + (_fun59110_ _k59116_ _v59117_ _ret59114_))))) (declare (not safe)) - (table-for-each __tmp64142 _ht58901_)) - _ret58903_))) + (table-for-each __tmp64353 _ht59112_)) + _ret59114_))) (define hash-find table-search) (define hash-keys - (lambda (_ht58894_) - (let ((__tmp64143 (lambda (_k58896_ _v58897_) _k58896_))) + (lambda (_ht59105_) + (let ((__tmp64354 (lambda (_k59107_ _v59108_) _k59107_))) (declare (not safe)) - (hash-map __tmp64143 _ht58894_)))) + (hash-map __tmp64354 _ht59105_)))) (define hash-values - (lambda (_ht58889_) - (let ((__tmp64144 (lambda (_k58891_ _v58892_) _v58892_))) + (lambda (_ht59100_) + (let ((__tmp64355 (lambda (_k59102_ _v59103_) _v59103_))) (declare (not safe)) - (hash-map __tmp64144 _ht58889_)))) + (hash-map __tmp64355 _ht59100_)))) (define hash-copy - (lambda (_hd58884_ . _rest58885_) - (let ((_hd58887_ (table-copy _hd58884_))) - (if (let () (declare (not safe)) (null? _rest58885_)) - _hd58887_ - (apply hash-copy! _hd58887_ _rest58885_))))) + (lambda (_hd59095_ . _rest59096_) + (let ((_hd59098_ (table-copy _hd59095_))) + (if (let () (declare (not safe)) (null? _rest59096_)) + _hd59098_ + (apply hash-copy! _hd59098_ _rest59096_))))) (define hash-copy! - (lambda (_hd58879_ . _rest58880_) + (lambda (_hd59090_ . _rest59091_) (for-each - (lambda (_r58882_) (table-merge! _hd58879_ _r58882_)) - _rest58880_) - _hd58879_)) + (lambda (_r59093_) (table-merge! _hd59090_ _r59093_)) + _rest59091_) + _hd59090_)) (define hash-merge - (lambda (_hd58873_ . _rest58874_) - (let ((__tmp64145 - (lambda (_tab58876_ _r58877_) - (table-merge _r58877_ _tab58876_)))) + (lambda (_hd59084_ . _rest59085_) + (let ((__tmp64356 + (lambda (_tab59087_ _r59088_) + (table-merge _r59088_ _tab59087_)))) (declare (not safe)) - (foldl1 __tmp64145 _hd58873_ _rest58874_)))) + (foldl1 __tmp64356 _hd59084_ _rest59085_)))) (define hash-merge! - (lambda (_hd58867_ . _rest58868_) - (let ((__tmp64146 - (lambda (_tab58870_ _r58871_) - (table-merge! _r58871_ _tab58870_)))) + (lambda (_hd59078_ . _rest59079_) + (let ((__tmp64357 + (lambda (_tab59081_ _r59082_) + (table-merge! _r59082_ _tab59081_)))) (declare (not safe)) - (foldl1 __tmp64146 _hd58867_ _rest58868_)))) + (foldl1 __tmp64357 _hd59078_ _rest59079_)))) (define hash-clear!__% - (lambda (_ht58852_ _size58853_) - (let ((_gcht58855_ - (let () (declare (not safe)) (##vector-ref _ht58852_ '5)))) - (if (let ((__tmp64147 (fixnum? _gcht58855_))) + (lambda (_ht59063_ _size59064_) + (let ((_gcht59066_ + (let () (declare (not safe)) (##vector-ref _ht59063_ '5)))) + (if (let ((__tmp64358 (fixnum? _gcht59066_))) (declare (not safe)) - (not __tmp64147)) + (not __tmp64358)) (let () (declare (not safe)) - (##vector-set! _ht58852_ '5 _size58853_)) + (##vector-set! _ht59063_ '5 _size59064_)) '#!void)))) (define hash-clear!__0 - (lambda (_ht58860_) - (let ((_size58862_ '0)) + (lambda (_ht59071_) + (let ((_size59073_ '0)) (declare (not safe)) - (hash-clear!__% _ht58860_ _size58862_)))) + (hash-clear!__% _ht59071_ _size59073_)))) (define hash-clear! - (lambda _g64149_ - (let ((_g64148_ (let () (declare (not safe)) (##length _g64149_)))) - (cond ((let () (declare (not safe)) (##fx= _g64148_ 1)) - (apply (lambda (_ht58860_) + (lambda _g64360_ + (let ((_g64359_ (let () (declare (not safe)) (##length _g64360_)))) + (cond ((let () (declare (not safe)) (##fx= _g64359_ 1)) + (apply (lambda (_ht59071_) (let () (declare (not safe)) - (hash-clear!__0 _ht58860_))) - _g64149_)) - ((let () (declare (not safe)) (##fx= _g64148_ 2)) - (apply (lambda (_ht58864_ _size58865_) + (hash-clear!__0 _ht59071_))) + _g64360_)) + ((let () (declare (not safe)) (##fx= _g64359_ 2)) + (apply (lambda (_ht59075_ _size59076_) (let () (declare (not safe)) - (hash-clear!__% _ht58864_ _size58865_))) - _g64149_)) + (hash-clear!__% _ht59075_ _size59076_))) + _g64360_)) (else (##raise-wrong-number-of-arguments-exception hash-clear! - _g64149_)))))) + _g64360_)))))) (define make-list__% - (lambda (_k58833_ _val58834_) - (if (fixnum? _k58833_) + (lambda (_k59044_ _val59045_) + (if (fixnum? _k59044_) '#!void - (error '"expected argument 1 to be fixnum" _k58833_)) - (let _lp58836_ ((_n58838_ '0) (_r58839_ '())) - (if (let () (declare (not safe)) (##fx< _n58838_ _k58833_)) - (let ((__tmp64151 - (let () (declare (not safe)) (##fx+ _n58838_ '1))) - (__tmp64150 - (let () (declare (not safe)) (cons _val58834_ _r58839_)))) + (error '"expected argument 1 to be fixnum" _k59044_)) + (let _lp59047_ ((_n59049_ '0) (_r59050_ '())) + (if (let () (declare (not safe)) (##fx< _n59049_ _k59044_)) + (let ((__tmp64362 + (let () (declare (not safe)) (##fx+ _n59049_ '1))) + (__tmp64361 + (let () (declare (not safe)) (cons _val59045_ _r59050_)))) (declare (not safe)) - (_lp58836_ __tmp64151 __tmp64150)) - _r58839_)))) + (_lp59047_ __tmp64362 __tmp64361)) + _r59050_)))) (define make-list__0 - (lambda (_k58844_) - (let ((_val58846_ '#f)) + (lambda (_k59055_) + (let ((_val59057_ '#f)) (declare (not safe)) - (make-list__% _k58844_ _val58846_)))) + (make-list__% _k59055_ _val59057_)))) (define make-list - (lambda _g64153_ - (let ((_g64152_ (let () (declare (not safe)) (##length _g64153_)))) - (cond ((let () (declare (not safe)) (##fx= _g64152_ 1)) - (apply (lambda (_k58844_) + (lambda _g64364_ + (let ((_g64363_ (let () (declare (not safe)) (##length _g64364_)))) + (cond ((let () (declare (not safe)) (##fx= _g64363_ 1)) + (apply (lambda (_k59055_) (let () (declare (not safe)) - (make-list__0 _k58844_))) - _g64153_)) - ((let () (declare (not safe)) (##fx= _g64152_ 2)) - (apply (lambda (_k58848_ _val58849_) + (make-list__0 _k59055_))) + _g64364_)) + ((let () (declare (not safe)) (##fx= _g64363_ 2)) + (apply (lambda (_k59059_ _val59060_) (let () (declare (not safe)) - (make-list__% _k58848_ _val58849_))) - _g64153_)) + (make-list__% _k59059_ _val59060_))) + _g64364_)) (else (##raise-wrong-number-of-arguments-exception make-list - _g64153_)))))) + _g64364_)))))) (define cons* - (lambda (_x58823_ _y58824_ . _rest58825_) - (letrec ((_recur58827_ - (lambda (_x58829_ _rest58830_) - (if (let () (declare (not safe)) (pair? _rest58830_)) - (let ((__tmp64154 - (let ((__tmp64156 + (lambda (_x59034_ _y59035_ . _rest59036_) + (letrec ((_recur59038_ + (lambda (_x59040_ _rest59041_) + (if (let () (declare (not safe)) (pair? _rest59041_)) + (let ((__tmp64365 + (let ((__tmp64367 (let () (declare (not safe)) - (##car _rest58830_))) - (__tmp64155 + (##car _rest59041_))) + (__tmp64366 (let () (declare (not safe)) - (##cdr _rest58830_)))) + (##cdr _rest59041_)))) (declare (not safe)) - (_recur58827_ __tmp64156 __tmp64155)))) + (_recur59038_ __tmp64367 __tmp64366)))) (declare (not safe)) - (cons _x58829_ __tmp64154)) - _x58829_)))) - (let ((__tmp64157 + (cons _x59040_ __tmp64365)) + _x59040_)))) + (let ((__tmp64368 (let () (declare (not safe)) - (_recur58827_ _y58824_ _rest58825_)))) + (_recur59038_ _y59035_ _rest59036_)))) (declare (not safe)) - (cons _x58823_ __tmp64157))))) + (cons _x59034_ __tmp64368))))) (define foldl1 - (lambda (_f58781_ _iv58782_ _lst58783_) - (let _lp58785_ ((_rest58787_ _lst58783_) (_r58788_ _iv58782_)) - (let* ((_rest5878958797_ _rest58787_) - (_else5879158805_ (lambda () _r58788_)) - (_K5879358811_ - (lambda (_rest58808_ _x58809_) - (let ((__tmp64158 (_f58781_ _x58809_ _r58788_))) + (lambda (_f58992_ _iv58993_ _lst58994_) + (let _lp58996_ ((_rest58998_ _lst58994_) (_r58999_ _iv58993_)) + (let* ((_rest5900059008_ _rest58998_) + (_else5900259016_ (lambda () _r58999_)) + (_K5900459022_ + (lambda (_rest59019_ _x59020_) + (let ((__tmp64369 (_f58992_ _x59020_ _r58999_))) (declare (not safe)) - (_lp58785_ _rest58808_ __tmp64158))))) - (if (let () (declare (not safe)) (##pair? _rest5878958797_)) - (let ((_hd5879458814_ - (let () (declare (not safe)) (##car _rest5878958797_))) - (_tl5879558816_ - (let () (declare (not safe)) (##cdr _rest5878958797_)))) - (let* ((_x58819_ _hd5879458814_) - (_rest58821_ _tl5879558816_)) + (_lp58996_ _rest59019_ __tmp64369))))) + (if (let () (declare (not safe)) (##pair? _rest5900059008_)) + (let ((_hd5900559025_ + (let () (declare (not safe)) (##car _rest5900059008_))) + (_tl5900659027_ + (let () (declare (not safe)) (##cdr _rest5900059008_)))) + (let* ((_x59030_ _hd5900559025_) + (_rest59032_ _tl5900659027_)) (declare (not safe)) - (_K5879358811_ _rest58821_ _x58819_))) - (let () (declare (not safe)) (_else5879158805_))))))) + (_K5900459022_ _rest59032_ _x59030_))) + (let () (declare (not safe)) (_else5900259016_))))))) (define foldl2 - (lambda (_f58704_ _iv58705_ _lst158706_ _lst258707_) - (let _lp58709_ ((_rest158711_ _lst158706_) - (_rest258712_ _lst258707_) - (_r58713_ _iv58705_)) - (let* ((_rest15871458722_ _rest158711_) - (_else5871658730_ (lambda () _r58713_)) - (_K5871858769_ - (lambda (_rest158733_ _x158734_) - (let* ((_rest25873558743_ _rest258712_) - (_else5873758751_ (lambda () _r58713_)) - (_K5873958757_ - (lambda (_rest258754_ _x258755_) - (let ((__tmp64159 - (_f58704_ _x158734_ _x258755_ _r58713_))) + (lambda (_f58915_ _iv58916_ _lst158917_ _lst258918_) + (let _lp58920_ ((_rest158922_ _lst158917_) + (_rest258923_ _lst258918_) + (_r58924_ _iv58916_)) + (let* ((_rest15892558933_ _rest158922_) + (_else5892758941_ (lambda () _r58924_)) + (_K5892958980_ + (lambda (_rest158944_ _x158945_) + (let* ((_rest25894658954_ _rest258923_) + (_else5894858962_ (lambda () _r58924_)) + (_K5895058968_ + (lambda (_rest258965_ _x258966_) + (let ((__tmp64370 + (_f58915_ _x158945_ _x258966_ _r58924_))) (declare (not safe)) - (_lp58709_ - _rest158733_ - _rest258754_ - __tmp64159))))) + (_lp58920_ + _rest158944_ + _rest258965_ + __tmp64370))))) (if (let () (declare (not safe)) - (##pair? _rest25873558743_)) - (let ((_hd5874058760_ + (##pair? _rest25894658954_)) + (let ((_hd5895158971_ (let () (declare (not safe)) - (##car _rest25873558743_))) - (_tl5874158762_ + (##car _rest25894658954_))) + (_tl5895258973_ (let () (declare (not safe)) - (##cdr _rest25873558743_)))) - (let* ((_x258765_ _hd5874058760_) - (_rest258767_ _tl5874158762_)) + (##cdr _rest25894658954_)))) + (let* ((_x258976_ _hd5895158971_) + (_rest258978_ _tl5895258973_)) (declare (not safe)) - (_K5873958757_ _rest258767_ _x258765_))) - (let () (declare (not safe)) (_else5873758751_))))))) - (if (let () (declare (not safe)) (##pair? _rest15871458722_)) - (let ((_hd5871958772_ - (let () (declare (not safe)) (##car _rest15871458722_))) - (_tl5872058774_ + (_K5895058968_ _rest258978_ _x258976_))) + (let () (declare (not safe)) (_else5894858962_))))))) + (if (let () (declare (not safe)) (##pair? _rest15892558933_)) + (let ((_hd5893058983_ + (let () (declare (not safe)) (##car _rest15892558933_))) + (_tl5893158985_ (let () (declare (not safe)) - (##cdr _rest15871458722_)))) - (let* ((_x158777_ _hd5871958772_) - (_rest158779_ _tl5872058774_)) + (##cdr _rest15892558933_)))) + (let* ((_x158988_ _hd5893058983_) + (_rest158990_ _tl5893158985_)) (declare (not safe)) - (_K5871858769_ _rest158779_ _x158777_))) - (let () (declare (not safe)) (_else5871658730_))))))) + (_K5892958980_ _rest158990_ _x158988_))) + (let () (declare (not safe)) (_else5892758941_))))))) (define foldl - (lambda _g64161_ - (let ((_g64160_ (let () (declare (not safe)) (##length _g64161_)))) - (cond ((let () (declare (not safe)) (##fx= _g64160_ 3)) - (apply (lambda (_f58689_ _iv58690_ _lst58691_) + (lambda _g64372_ + (let ((_g64371_ (let () (declare (not safe)) (##length _g64372_)))) + (cond ((let () (declare (not safe)) (##fx= _g64371_ 3)) + (apply (lambda (_f58900_ _iv58901_ _lst58902_) (let () (declare (not safe)) - (foldl1 _f58689_ _iv58690_ _lst58691_))) - _g64161_)) - ((let () (declare (not safe)) (##fx= _g64160_ 4)) - (apply (lambda (_f58693_ _iv58694_ _lst158695_ _lst258696_) + (foldl1 _f58900_ _iv58901_ _lst58902_))) + _g64372_)) + ((let () (declare (not safe)) (##fx= _g64371_ 4)) + (apply (lambda (_f58904_ _iv58905_ _lst158906_ _lst258907_) (let () (declare (not safe)) - (foldl2 _f58693_ - _iv58694_ - _lst158695_ - _lst258696_))) - _g64161_)) - ((let () (declare (not safe)) (##fx>= _g64160_ 4)) - (apply foldl* _g64161_)) + (foldl2 _f58904_ + _iv58905_ + _lst158906_ + _lst258907_))) + _g64372_)) + ((let () (declare (not safe)) (##fx>= _g64371_ 4)) + (apply foldl* _g64372_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g64161_)))))) + _g64372_)))))) (define foldl* - (lambda (_f58677_ _iv58678_ . _rest58679_) - (let _recur58681_ ((_iv58683_ _iv58678_) (_rest58684_ _rest58679_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58684_)) - (let ((__tmp64163 - (apply _f58677_ - (let ((__tmp64165 - (lambda (_xs58686_ _r58687_) - (let ((__tmp64166 (car _xs58686_))) + (lambda (_f58888_ _iv58889_ . _rest58890_) + (let _recur58892_ ((_iv58894_ _iv58889_) (_rest58895_ _rest58890_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58895_)) + (let ((__tmp64374 + (apply _f58888_ + (let ((__tmp64376 + (lambda (_xs58897_ _r58898_) + (let ((__tmp64377 (car _xs58897_))) (declare (not safe)) - (cons __tmp64166 _r58687_)))) - (__tmp64164 (list _iv58683_))) + (cons __tmp64377 _r58898_)))) + (__tmp64375 (list _iv58894_))) (declare (not safe)) - (foldr1 __tmp64165 __tmp64164 _rest58684_)))) - (__tmp64162 (map cdr _rest58684_))) + (foldr1 __tmp64376 __tmp64375 _rest58895_)))) + (__tmp64373 (map cdr _rest58895_))) (declare (not safe)) - (_recur58681_ __tmp64163 __tmp64162)) - _iv58683_)))) + (_recur58892_ __tmp64374 __tmp64373)) + _iv58894_)))) (define foldr1 - (lambda (_f58636_ _iv58637_ _lst58638_) - (let _recur58640_ ((_rest58642_ _lst58638_)) - (let* ((_rest5864358651_ _rest58642_) - (_else5864558659_ (lambda () _iv58637_)) - (_K5864758665_ - (lambda (_rest58662_ _x58663_) - (_f58636_ - _x58663_ + (lambda (_f58847_ _iv58848_ _lst58849_) + (let _recur58851_ ((_rest58853_ _lst58849_)) + (let* ((_rest5885458862_ _rest58853_) + (_else5885658870_ (lambda () _iv58848_)) + (_K5885858876_ + (lambda (_rest58873_ _x58874_) + (_f58847_ + _x58874_ (let () (declare (not safe)) - (_recur58640_ _rest58662_)))))) - (if (let () (declare (not safe)) (##pair? _rest5864358651_)) - (let ((_hd5864858668_ - (let () (declare (not safe)) (##car _rest5864358651_))) - (_tl5864958670_ - (let () (declare (not safe)) (##cdr _rest5864358651_)))) - (let* ((_x58673_ _hd5864858668_) - (_rest58675_ _tl5864958670_)) + (_recur58851_ _rest58873_)))))) + (if (let () (declare (not safe)) (##pair? _rest5885458862_)) + (let ((_hd5885958879_ + (let () (declare (not safe)) (##car _rest5885458862_))) + (_tl5886058881_ + (let () (declare (not safe)) (##cdr _rest5885458862_)))) + (let* ((_x58884_ _hd5885958879_) + (_rest58886_ _tl5886058881_)) (declare (not safe)) - (_K5864758665_ _rest58675_ _x58673_))) - (let () (declare (not safe)) (_else5864558659_))))))) + (_K5885858876_ _rest58886_ _x58884_))) + (let () (declare (not safe)) (_else5885658870_))))))) (define foldr2 - (lambda (_f58560_ _iv58561_ _lst158562_ _lst258563_) - (let _recur58565_ ((_rest158567_ _lst158562_) - (_rest258568_ _lst258563_)) - (let* ((_rest15856958577_ _rest158567_) - (_else5857158585_ (lambda () _iv58561_)) - (_K5857358624_ - (lambda (_rest158588_ _x158589_) - (let* ((_rest25859058598_ _rest258568_) - (_else5859258606_ (lambda () _iv58561_)) - (_K5859458612_ - (lambda (_rest258609_ _x258610_) - (_f58560_ - _x158589_ - _x258610_ + (lambda (_f58771_ _iv58772_ _lst158773_ _lst258774_) + (let _recur58776_ ((_rest158778_ _lst158773_) + (_rest258779_ _lst258774_)) + (let* ((_rest15878058788_ _rest158778_) + (_else5878258796_ (lambda () _iv58772_)) + (_K5878458835_ + (lambda (_rest158799_ _x158800_) + (let* ((_rest25880158809_ _rest258779_) + (_else5880358817_ (lambda () _iv58772_)) + (_K5880558823_ + (lambda (_rest258820_ _x258821_) + (_f58771_ + _x158800_ + _x258821_ (let () (declare (not safe)) - (_recur58565_ _rest158588_ _rest258609_)))))) + (_recur58776_ _rest158799_ _rest258820_)))))) (if (let () (declare (not safe)) - (##pair? _rest25859058598_)) - (let ((_hd5859558615_ + (##pair? _rest25880158809_)) + (let ((_hd5880658826_ (let () (declare (not safe)) - (##car _rest25859058598_))) - (_tl5859658617_ + (##car _rest25880158809_))) + (_tl5880758828_ (let () (declare (not safe)) - (##cdr _rest25859058598_)))) - (let* ((_x258620_ _hd5859558615_) - (_rest258622_ _tl5859658617_)) + (##cdr _rest25880158809_)))) + (let* ((_x258831_ _hd5880658826_) + (_rest258833_ _tl5880758828_)) (declare (not safe)) - (_K5859458612_ _rest258622_ _x258620_))) - (let () (declare (not safe)) (_else5859258606_))))))) - (if (let () (declare (not safe)) (##pair? _rest15856958577_)) - (let ((_hd5857458627_ - (let () (declare (not safe)) (##car _rest15856958577_))) - (_tl5857558629_ + (_K5880558823_ _rest258833_ _x258831_))) + (let () (declare (not safe)) (_else5880358817_))))))) + (if (let () (declare (not safe)) (##pair? _rest15878058788_)) + (let ((_hd5878558838_ + (let () (declare (not safe)) (##car _rest15878058788_))) + (_tl5878658840_ (let () (declare (not safe)) - (##cdr _rest15856958577_)))) - (let* ((_x158632_ _hd5857458627_) - (_rest158634_ _tl5857558629_)) + (##cdr _rest15878058788_)))) + (let* ((_x158843_ _hd5878558838_) + (_rest158845_ _tl5878658840_)) (declare (not safe)) - (_K5857358624_ _rest158634_ _x158632_))) - (let () (declare (not safe)) (_else5857158585_))))))) + (_K5878458835_ _rest158845_ _x158843_))) + (let () (declare (not safe)) (_else5878258796_))))))) (define foldr - (lambda _g64168_ - (let ((_g64167_ (let () (declare (not safe)) (##length _g64168_)))) - (cond ((let () (declare (not safe)) (##fx= _g64167_ 3)) - (apply (lambda (_f58545_ _iv58546_ _lst58547_) + (lambda _g64379_ + (let ((_g64378_ (let () (declare (not safe)) (##length _g64379_)))) + (cond ((let () (declare (not safe)) (##fx= _g64378_ 3)) + (apply (lambda (_f58756_ _iv58757_ _lst58758_) (let () (declare (not safe)) - (foldr1 _f58545_ _iv58546_ _lst58547_))) - _g64168_)) - ((let () (declare (not safe)) (##fx= _g64167_ 4)) - (apply (lambda (_f58549_ _iv58550_ _lst158551_ _lst258552_) + (foldr1 _f58756_ _iv58757_ _lst58758_))) + _g64379_)) + ((let () (declare (not safe)) (##fx= _g64378_ 4)) + (apply (lambda (_f58760_ _iv58761_ _lst158762_ _lst258763_) (let () (declare (not safe)) - (foldr2 _f58549_ - _iv58550_ - _lst158551_ - _lst258552_))) - _g64168_)) - ((let () (declare (not safe)) (##fx>= _g64167_ 4)) - (apply foldr* _g64168_)) + (foldr2 _f58760_ + _iv58761_ + _lst158762_ + _lst258763_))) + _g64379_)) + ((let () (declare (not safe)) (##fx>= _g64378_ 4)) + (apply foldr* _g64379_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g64168_)))))) + _g64379_)))))) (define foldr* - (lambda (_f58534_ _iv58535_ . _rest58536_) - (let _recur58538_ ((_rest58540_ _rest58536_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58540_)) - (apply _f58534_ - (let ((__tmp64171 - (lambda (_xs58542_ _r58543_) - (let ((__tmp64172 (car _xs58542_))) + (lambda (_f58745_ _iv58746_ . _rest58747_) + (let _recur58749_ ((_rest58751_ _rest58747_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58751_)) + (apply _f58745_ + (let ((__tmp64382 + (lambda (_xs58753_ _r58754_) + (let ((__tmp64383 (car _xs58753_))) (declare (not safe)) - (cons __tmp64172 _r58543_)))) - (__tmp64169 - (list (let ((__tmp64170 (map cdr _rest58540_))) + (cons __tmp64383 _r58754_)))) + (__tmp64380 + (list (let ((__tmp64381 (map cdr _rest58751_))) (declare (not safe)) - (_recur58538_ __tmp64170))))) + (_recur58749_ __tmp64381))))) (declare (not safe)) - (foldr1 __tmp64171 __tmp64169 _rest58540_))) - _iv58535_)))) + (foldr1 __tmp64382 __tmp64380 _rest58751_))) + _iv58746_)))) (define drop - (lambda (_l58531_ _k58532_) - (if (let () (declare (not safe)) (##fxpositive? _k58532_)) - (let ((__tmp64174 (cdr _l58531_)) - (__tmp64173 (let () (declare (not safe)) (fx- _k58532_ '1)))) + (lambda (_l58742_ _k58743_) + (if (let () (declare (not safe)) (##fxpositive? _k58743_)) + (let ((__tmp64385 (cdr _l58742_)) + (__tmp64384 (let () (declare (not safe)) (fx- _k58743_ '1)))) (declare (not safe)) - (drop __tmp64174 __tmp64173)) - _l58531_))) + (drop __tmp64385 __tmp64384)) + _l58742_))) (define remove-nulls! - (lambda (_l58418_) - (let* ((_l5841958432_ _l58418_) - (_E5842358436_ - (lambda () (error '"No clause matching" _l5841958432_)))) - (let ((_K5842858521_ - (lambda (_r58519_) - (let () (declare (not safe)) (remove-nulls! _r58519_)))) - (_K5842558508_ - (lambda (_r58448_) - (let _loop58450_ ((_l58452_ _l58418_) (_r58453_ _r58448_)) - (let* ((_r5845458467_ _r58453_) - (_E5845858471_ + (lambda (_l58629_) + (let* ((_l5863058643_ _l58629_) + (_E5863458647_ + (lambda () (error '"No clause matching" _l5863058643_)))) + (let ((_K5863958732_ + (lambda (_r58730_) + (let () (declare (not safe)) (remove-nulls! _r58730_)))) + (_K5863658719_ + (lambda (_r58659_) + (let _loop58661_ ((_l58663_ _l58629_) (_r58664_ _r58659_)) + (let* ((_r5866558678_ _r58664_) + (_E5866958682_ (lambda () - (error '"No clause matching" _r5845458467_)))) - (let ((_K5846358498_ - (lambda (_rr58496_) + (error '"No clause matching" _r5866558678_)))) + (let ((_K5867458709_ + (lambda (_rr58707_) (set-cdr! - _l58452_ + _l58663_ (let () (declare (not safe)) - (remove-nulls! _rr58496_))))) - (_K5846058485_ - (lambda (_rr58483_) + (remove-nulls! _rr58707_))))) + (_K5867158696_ + (lambda (_rr58694_) (let () (declare (not safe)) - (_loop58450_ _r58453_ _rr58483_)))) - (_K5845958476_ (lambda () '#!void))) + (_loop58661_ _r58664_ _rr58694_)))) + (_K5867058687_ (lambda () '#!void))) (if (let () (declare (not safe)) - (##pair? _r5845458467_)) - (let ((_tl5846558503_ + (##pair? _r5866558678_)) + (let ((_tl5867658714_ (let () (declare (not safe)) - (##cdr _r5845458467_))) - (_hd5846458501_ + (##cdr _r5866558678_))) + (_hd5867558712_ (let () (declare (not safe)) - (##car _r5845458467_)))) + (##car _r5866558678_)))) (if (let () (declare (not safe)) - (##null? _hd5846458501_)) - (let ((_rr58506_ _tl5846558503_)) + (##null? _hd5867558712_)) + (let ((_rr58717_ _tl5867658714_)) (declare (not safe)) - (_K5846358498_ _rr58506_)) - (let ((_rr58491_ _tl5846558503_)) + (_K5867458709_ _rr58717_)) + (let ((_rr58702_ _tl5867658714_)) (declare (not safe)) - (_K5846058485_ _rr58491_)))) + (_K5867158696_ _rr58702_)))) '#!void)))) - _l58418_)) - (_K5842458441_ (lambda () _l58418_))) - (if (let () (declare (not safe)) (##pair? _l5841958432_)) - (let ((_tl5843058526_ - (let () (declare (not safe)) (##cdr _l5841958432_))) - (_hd5842958524_ - (let () (declare (not safe)) (##car _l5841958432_)))) - (if (let () (declare (not safe)) (##null? _hd5842958524_)) - (let ((_r58529_ _tl5843058526_)) + _l58629_)) + (_K5863558652_ (lambda () _l58629_))) + (if (let () (declare (not safe)) (##pair? _l5863058643_)) + (let ((_tl5864158737_ + (let () (declare (not safe)) (##cdr _l5863058643_))) + (_hd5864058735_ + (let () (declare (not safe)) (##car _l5863058643_)))) + (if (let () (declare (not safe)) (##null? _hd5864058735_)) + (let ((_r58740_ _tl5864158737_)) (declare (not safe)) - (remove-nulls! _r58529_)) - (let ((_r58514_ _tl5843058526_)) + (remove-nulls! _r58740_)) + (let ((_r58725_ _tl5864158737_)) (declare (not safe)) - (_K5842558508_ _r58514_)))) - (let () (declare (not safe)) (_K5842458441_))))))) + (_K5863658719_ _r58725_)))) + (let () (declare (not safe)) (_K5863558652_))))))) (define append1! - (lambda (_l58413_ _x58414_) - (let ((_l258416_ (let () (declare (not safe)) (cons _x58414_ '())))) - (if (let () (declare (not safe)) (pair? _l58413_)) + (lambda (_l58624_ _x58625_) + (let ((_l258627_ (let () (declare (not safe)) (cons _x58625_ '())))) + (if (let () (declare (not safe)) (pair? _l58624_)) (set-cdr! - (let () (declare (not safe)) (##last-pair _l58413_)) - _l258416_) - _l258416_)))) + (let () (declare (not safe)) (##last-pair _l58624_)) + _l258627_) + _l258627_)))) (define append-reverse - (lambda (_rev-head58410_ _tail58411_) + (lambda (_rev-head58621_ _tail58622_) (let () (declare (not safe)) - (foldl1 cons _tail58411_ _rev-head58410_)))) + (foldl1 cons _tail58622_ _rev-head58621_)))) (define append-reverse-until - (lambda (_pred58363_ _rhead58364_ _tail58365_) - (let _loop58367_ ((_rhead58369_ _rhead58364_) - (_tail58370_ _tail58365_)) - (let* ((_rhead5837158380_ _rhead58369_) - (_E5837458384_ - (lambda () (error '"No clause matching" _rhead5837158380_)))) - (let ((_K5837858407_ (lambda () (values '() _tail58370_))) - (_K5837558391_ - (lambda (_r58388_ _a58389_) - (if (_pred58363_ _a58389_) - (values _rhead58369_ _tail58370_) - (let ((__tmp64175 + (lambda (_pred58574_ _rhead58575_ _tail58576_) + (let _loop58578_ ((_rhead58580_ _rhead58575_) + (_tail58581_ _tail58576_)) + (let* ((_rhead5858258591_ _rhead58580_) + (_E5858558595_ + (lambda () (error '"No clause matching" _rhead5858258591_)))) + (let ((_K5858958618_ (lambda () (values '() _tail58581_))) + (_K5858658602_ + (lambda (_r58599_ _a58600_) + (if (_pred58574_ _a58600_) + (values _rhead58580_ _tail58581_) + (let ((__tmp64386 (let () (declare (not safe)) - (cons _a58389_ _tail58370_)))) + (cons _a58600_ _tail58581_)))) (declare (not safe)) - (_loop58367_ _r58388_ __tmp64175)))))) - (let ((_try-match5837358403_ + (_loop58578_ _r58599_ __tmp64386)))))) + (let ((_try-match5858458614_ (lambda () (if (let () (declare (not safe)) - (##pair? _rhead5837158380_)) - (let ((_tl5837758396_ + (##pair? _rhead5858258591_)) + (let ((_tl5858858607_ (let () (declare (not safe)) - (##cdr _rhead5837158380_))) - (_hd5837658394_ + (##cdr _rhead5858258591_))) + (_hd5858758605_ (let () (declare (not safe)) - (##car _rhead5837158380_)))) - (let ((_a58399_ _hd5837658394_) - (_r58401_ _tl5837758396_)) + (##car _rhead5858258591_)))) + (let ((_a58610_ _hd5858758605_) + (_r58612_ _tl5858858607_)) (let () (declare (not safe)) - (_K5837558391_ _r58401_ _a58399_)))) - (let () (declare (not safe)) (_E5837458384_)))))) - (if (let () (declare (not safe)) (##null? _rhead5837158380_)) - (let () (declare (not safe)) (_K5837858407_)) + (_K5858658602_ _r58612_ _a58610_)))) + (let () (declare (not safe)) (_E5858558595_)))))) + (if (let () (declare (not safe)) (##null? _rhead5858258591_)) + (let () (declare (not safe)) (_K5858958618_)) (let () (declare (not safe)) - (_try-match5837358403_))))))))) + (_try-match5858458614_))))))))) (define andmap1 - (lambda (_f58323_ _lst58324_) - (let _lp58326_ ((_rest58328_ _lst58324_)) - (let* ((_rest5832958337_ _rest58328_) - (_else5833158345_ (lambda () '#t)) - (_K5833358351_ - (lambda (_rest58348_ _x58349_) - (if (_f58323_ _x58349_) - (let () (declare (not safe)) (_lp58326_ _rest58348_)) + (lambda (_f58534_ _lst58535_) + (let _lp58537_ ((_rest58539_ _lst58535_)) + (let* ((_rest5854058548_ _rest58539_) + (_else5854258556_ (lambda () '#t)) + (_K5854458562_ + (lambda (_rest58559_ _x58560_) + (if (_f58534_ _x58560_) + (let () (declare (not safe)) (_lp58537_ _rest58559_)) '#f)))) - (if (let () (declare (not safe)) (##pair? _rest5832958337_)) - (let ((_hd5833458354_ - (let () (declare (not safe)) (##car _rest5832958337_))) - (_tl5833558356_ - (let () (declare (not safe)) (##cdr _rest5832958337_)))) - (let* ((_x58359_ _hd5833458354_) - (_rest58361_ _tl5833558356_)) + (if (let () (declare (not safe)) (##pair? _rest5854058548_)) + (let ((_hd5854558565_ + (let () (declare (not safe)) (##car _rest5854058548_))) + (_tl5854658567_ + (let () (declare (not safe)) (##cdr _rest5854058548_)))) + (let* ((_x58570_ _hd5854558565_) + (_rest58572_ _tl5854658567_)) (declare (not safe)) - (_K5833358351_ _rest58361_ _x58359_))) - (let () (declare (not safe)) (_else5833158345_))))))) + (_K5854458562_ _rest58572_ _x58570_))) + (let () (declare (not safe)) (_else5854258556_))))))) (define andmap2 - (lambda (_f58248_ _lst158249_ _lst258250_) - (let _lp58252_ ((_rest158254_ _lst158249_) (_rest258255_ _lst258250_)) - (let* ((_rest15825658264_ _rest158254_) - (_else5825858272_ (lambda () '#t)) - (_K5826058311_ - (lambda (_rest158275_ _x158276_) - (let* ((_rest25827758285_ _rest258255_) - (_else5827958293_ (lambda () '#t)) - (_K5828158299_ - (lambda (_rest258296_ _x258297_) - (if (_f58248_ _x158276_ _x258297_) + (lambda (_f58459_ _lst158460_ _lst258461_) + (let _lp58463_ ((_rest158465_ _lst158460_) (_rest258466_ _lst258461_)) + (let* ((_rest15846758475_ _rest158465_) + (_else5846958483_ (lambda () '#t)) + (_K5847158522_ + (lambda (_rest158486_ _x158487_) + (let* ((_rest25848858496_ _rest258466_) + (_else5849058504_ (lambda () '#t)) + (_K5849258510_ + (lambda (_rest258507_ _x258508_) + (if (_f58459_ _x158487_ _x258508_) (let () (declare (not safe)) - (_lp58252_ _rest158275_ _rest258296_)) + (_lp58463_ _rest158486_ _rest258507_)) '#f)))) (if (let () (declare (not safe)) - (##pair? _rest25827758285_)) - (let ((_hd5828258302_ + (##pair? _rest25848858496_)) + (let ((_hd5849358513_ (let () (declare (not safe)) - (##car _rest25827758285_))) - (_tl5828358304_ + (##car _rest25848858496_))) + (_tl5849458515_ (let () (declare (not safe)) - (##cdr _rest25827758285_)))) - (let* ((_x258307_ _hd5828258302_) - (_rest258309_ _tl5828358304_)) + (##cdr _rest25848858496_)))) + (let* ((_x258518_ _hd5849358513_) + (_rest258520_ _tl5849458515_)) (declare (not safe)) - (_K5828158299_ _rest258309_ _x258307_))) - (let () (declare (not safe)) (_else5827958293_))))))) - (if (let () (declare (not safe)) (##pair? _rest15825658264_)) - (let ((_hd5826158314_ - (let () (declare (not safe)) (##car _rest15825658264_))) - (_tl5826258316_ + (_K5849258510_ _rest258520_ _x258518_))) + (let () (declare (not safe)) (_else5849058504_))))))) + (if (let () (declare (not safe)) (##pair? _rest15846758475_)) + (let ((_hd5847258525_ + (let () (declare (not safe)) (##car _rest15846758475_))) + (_tl5847358527_ (let () (declare (not safe)) - (##cdr _rest15825658264_)))) - (let* ((_x158319_ _hd5826158314_) - (_rest158321_ _tl5826258316_)) + (##cdr _rest15846758475_)))) + (let* ((_x158530_ _hd5847258525_) + (_rest158532_ _tl5847358527_)) (declare (not safe)) - (_K5826058311_ _rest158321_ _x158319_))) - (let () (declare (not safe)) (_else5825858272_))))))) + (_K5847158522_ _rest158532_ _x158530_))) + (let () (declare (not safe)) (_else5846958483_))))))) (define andmap - (lambda _g64177_ - (let ((_g64176_ (let () (declare (not safe)) (##length _g64177_)))) - (cond ((let () (declare (not safe)) (##fx= _g64176_ 2)) - (apply (lambda (_f58236_ _lst58237_) + (lambda _g64388_ + (let ((_g64387_ (let () (declare (not safe)) (##length _g64388_)))) + (cond ((let () (declare (not safe)) (##fx= _g64387_ 2)) + (apply (lambda (_f58447_ _lst58448_) (let () (declare (not safe)) - (andmap1 _f58236_ _lst58237_))) - _g64177_)) - ((let () (declare (not safe)) (##fx= _g64176_ 3)) - (apply (lambda (_f58239_ _lst158240_ _lst258241_) + (andmap1 _f58447_ _lst58448_))) + _g64388_)) + ((let () (declare (not safe)) (##fx= _g64387_ 3)) + (apply (lambda (_f58450_ _lst158451_ _lst258452_) (let () (declare (not safe)) - (andmap2 _f58239_ _lst158240_ _lst258241_))) - _g64177_)) - ((let () (declare (not safe)) (##fx>= _g64176_ 3)) - (apply andmap* _g64177_)) + (andmap2 _f58450_ _lst158451_ _lst258452_))) + _g64388_)) + ((let () (declare (not safe)) (##fx>= _g64387_ 3)) + (apply andmap* _g64388_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g64177_)))))) + _g64388_)))))) (define andmap* - (lambda (_f58229_ . _rest58230_) - (let _recur58232_ ((_rest58234_ _rest58230_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58234_)) - (if (apply _f58229_ (map car _rest58234_)) - (let ((__tmp64178 (map cdr _rest58234_))) + (lambda (_f58440_ . _rest58441_) + (let _recur58443_ ((_rest58445_ _rest58441_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58445_)) + (if (apply _f58440_ (map car _rest58445_)) + (let ((__tmp64389 (map cdr _rest58445_))) (declare (not safe)) - (_recur58232_ __tmp64178)) + (_recur58443_ __tmp64389)) '#f) '#t)))) (define ormap1 - (lambda (_f58186_ _lst58187_) - (let _lp58189_ ((_rest58191_ _lst58187_)) - (let* ((_rest5819258200_ _rest58191_) - (_else5819458208_ (lambda () '#f)) - (_K5819658217_ - (lambda (_rest58211_ _x58212_) - (let ((_$e58214_ (_f58186_ _x58212_))) - (if _$e58214_ - _$e58214_ + (lambda (_f58397_ _lst58398_) + (let _lp58400_ ((_rest58402_ _lst58398_)) + (let* ((_rest5840358411_ _rest58402_) + (_else5840558419_ (lambda () '#f)) + (_K5840758428_ + (lambda (_rest58422_ _x58423_) + (let ((_$e58425_ (_f58397_ _x58423_))) + (if _$e58425_ + _$e58425_ (let () (declare (not safe)) - (_lp58189_ _rest58211_))))))) - (if (let () (declare (not safe)) (##pair? _rest5819258200_)) - (let ((_hd5819758220_ - (let () (declare (not safe)) (##car _rest5819258200_))) - (_tl5819858222_ - (let () (declare (not safe)) (##cdr _rest5819258200_)))) - (let* ((_x58225_ _hd5819758220_) - (_rest58227_ _tl5819858222_)) + (_lp58400_ _rest58422_))))))) + (if (let () (declare (not safe)) (##pair? _rest5840358411_)) + (let ((_hd5840858431_ + (let () (declare (not safe)) (##car _rest5840358411_))) + (_tl5840958433_ + (let () (declare (not safe)) (##cdr _rest5840358411_)))) + (let* ((_x58436_ _hd5840858431_) + (_rest58438_ _tl5840958433_)) (declare (not safe)) - (_K5819658217_ _rest58227_ _x58225_))) - (let () (declare (not safe)) (_else5819458208_))))))) + (_K5840758428_ _rest58438_ _x58436_))) + (let () (declare (not safe)) (_else5840558419_))))))) (define ormap2 - (lambda (_f58108_ _lst158109_ _lst258110_) - (let _lp58112_ ((_rest158114_ _lst158109_) (_rest258115_ _lst258110_)) - (let* ((_rest15811658124_ _rest158114_) - (_else5811858132_ (lambda () '#f)) - (_K5812058174_ - (lambda (_rest158135_ _x158136_) - (let* ((_rest25813758145_ _rest258115_) - (_else5813958153_ (lambda () '#f)) - (_K5814158162_ - (lambda (_rest258156_ _x258157_) - (let ((_$e58159_ (_f58108_ _x158136_ _x258157_))) - (if _$e58159_ - _$e58159_ + (lambda (_f58319_ _lst158320_ _lst258321_) + (let _lp58323_ ((_rest158325_ _lst158320_) (_rest258326_ _lst258321_)) + (let* ((_rest15832758335_ _rest158325_) + (_else5832958343_ (lambda () '#f)) + (_K5833158385_ + (lambda (_rest158346_ _x158347_) + (let* ((_rest25834858356_ _rest258326_) + (_else5835058364_ (lambda () '#f)) + (_K5835258373_ + (lambda (_rest258367_ _x258368_) + (let ((_$e58370_ (_f58319_ _x158347_ _x258368_))) + (if _$e58370_ + _$e58370_ (let () (declare (not safe)) - (_lp58112_ - _rest158135_ - _rest258156_))))))) + (_lp58323_ + _rest158346_ + _rest258367_))))))) (if (let () (declare (not safe)) - (##pair? _rest25813758145_)) - (let ((_hd5814258165_ + (##pair? _rest25834858356_)) + (let ((_hd5835358376_ (let () (declare (not safe)) - (##car _rest25813758145_))) - (_tl5814358167_ + (##car _rest25834858356_))) + (_tl5835458378_ (let () (declare (not safe)) - (##cdr _rest25813758145_)))) - (let* ((_x258170_ _hd5814258165_) - (_rest258172_ _tl5814358167_)) + (##cdr _rest25834858356_)))) + (let* ((_x258381_ _hd5835358376_) + (_rest258383_ _tl5835458378_)) (declare (not safe)) - (_K5814158162_ _rest258172_ _x258170_))) - (let () (declare (not safe)) (_else5813958153_))))))) - (if (let () (declare (not safe)) (##pair? _rest15811658124_)) - (let ((_hd5812158177_ - (let () (declare (not safe)) (##car _rest15811658124_))) - (_tl5812258179_ + (_K5835258373_ _rest258383_ _x258381_))) + (let () (declare (not safe)) (_else5835058364_))))))) + (if (let () (declare (not safe)) (##pair? _rest15832758335_)) + (let ((_hd5833258388_ + (let () (declare (not safe)) (##car _rest15832758335_))) + (_tl5833358390_ (let () (declare (not safe)) - (##cdr _rest15811658124_)))) - (let* ((_x158182_ _hd5812158177_) - (_rest158184_ _tl5812258179_)) + (##cdr _rest15832758335_)))) + (let* ((_x158393_ _hd5833258388_) + (_rest158395_ _tl5833358390_)) (declare (not safe)) - (_K5812058174_ _rest158184_ _x158182_))) - (let () (declare (not safe)) (_else5811858132_))))))) + (_K5833158385_ _rest158395_ _x158393_))) + (let () (declare (not safe)) (_else5832958343_))))))) (define ormap - (lambda _g64180_ - (let ((_g64179_ (let () (declare (not safe)) (##length _g64180_)))) - (cond ((let () (declare (not safe)) (##fx= _g64179_ 2)) - (apply (lambda (_f58096_ _lst58097_) + (lambda _g64391_ + (let ((_g64390_ (let () (declare (not safe)) (##length _g64391_)))) + (cond ((let () (declare (not safe)) (##fx= _g64390_ 2)) + (apply (lambda (_f58307_ _lst58308_) (let () (declare (not safe)) - (ormap1 _f58096_ _lst58097_))) - _g64180_)) - ((let () (declare (not safe)) (##fx= _g64179_ 3)) - (apply (lambda (_f58099_ _lst158100_ _lst258101_) + (ormap1 _f58307_ _lst58308_))) + _g64391_)) + ((let () (declare (not safe)) (##fx= _g64390_ 3)) + (apply (lambda (_f58310_ _lst158311_ _lst258312_) (let () (declare (not safe)) - (ormap2 _f58099_ _lst158100_ _lst258101_))) - _g64180_)) - ((let () (declare (not safe)) (##fx>= _g64179_ 3)) - (apply ormap* _g64180_)) + (ormap2 _f58310_ _lst158311_ _lst258312_))) + _g64391_)) + ((let () (declare (not safe)) (##fx>= _g64390_ 3)) + (apply ormap* _g64391_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g64180_)))))) + _g64391_)))))) (define ormap* - (lambda (_f58086_ . _rest58087_) - (let _recur58089_ ((_rest58091_ _rest58087_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest58091_)) - (let ((_$e58093_ (apply _f58086_ (map car _rest58091_)))) - (if _$e58093_ - _$e58093_ - (let ((__tmp64181 (map cdr _rest58091_))) + (lambda (_f58297_ . _rest58298_) + (let _recur58300_ ((_rest58302_ _rest58298_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58302_)) + (let ((_$e58304_ (apply _f58297_ (map car _rest58302_)))) + (if _$e58304_ + _$e58304_ + (let ((__tmp64392 (map cdr _rest58302_))) (declare (not safe)) - (_recur58089_ __tmp64181)))) + (_recur58300_ __tmp64392)))) '#f)))) (define filter - (lambda (_f58044_ _lst58045_) - (let _recur58047_ ((_lst58049_ _lst58045_)) - (let* ((_lst5805058058_ _lst58049_) - (_else5805258066_ (lambda () '())) - (_K5805458074_ - (lambda (_rest58069_ _hd58070_) - (if (_f58044_ _hd58070_) - (let ((_tail58072_ + (lambda (_f58255_ _lst58256_) + (let _recur58258_ ((_lst58260_ _lst58256_)) + (let* ((_lst5826158269_ _lst58260_) + (_else5826358277_ (lambda () '())) + (_K5826558285_ + (lambda (_rest58280_ _hd58281_) + (if (_f58255_ _hd58281_) + (let ((_tail58283_ (let () (declare (not safe)) - (_recur58047_ _rest58069_)))) + (_recur58258_ _rest58280_)))) (if (let () (declare (not safe)) - (eq? _tail58072_ _rest58069_)) - _lst58049_ + (eq? _tail58283_ _rest58280_)) + _lst58260_ (let () (declare (not safe)) - (cons _hd58070_ _tail58072_)))) + (cons _hd58281_ _tail58283_)))) (let () (declare (not safe)) - (_recur58047_ _rest58069_)))))) - (if (let () (declare (not safe)) (##pair? _lst5805058058_)) - (let ((_hd5805558077_ - (let () (declare (not safe)) (##car _lst5805058058_))) - (_tl5805658079_ - (let () (declare (not safe)) (##cdr _lst5805058058_)))) - (let* ((_hd58082_ _hd5805558077_) - (_rest58084_ _tl5805658079_)) + (_recur58258_ _rest58280_)))))) + (if (let () (declare (not safe)) (##pair? _lst5826158269_)) + (let ((_hd5826658288_ + (let () (declare (not safe)) (##car _lst5826158269_))) + (_tl5826758290_ + (let () (declare (not safe)) (##cdr _lst5826158269_)))) + (let* ((_hd58293_ _hd5826658288_) + (_rest58295_ _tl5826758290_)) (declare (not safe)) - (_K5805458074_ _rest58084_ _hd58082_))) - (let () (declare (not safe)) (_else5805258066_))))))) + (_K5826558285_ _rest58295_ _hd58293_))) + (let () (declare (not safe)) (_else5826358277_))))))) (define filter-map1 - (lambda (_f57999_ _lst58000_) - (let _recur58002_ ((_rest58004_ _lst58000_)) - (let* ((_rest5800558013_ _rest58004_) - (_else5800758021_ (lambda () '())) - (_K5800958032_ - (lambda (_rest58024_ _x58025_) - (let ((_$e58027_ (_f57999_ _x58025_))) - (if _$e58027_ - ((lambda (_r58030_) - (let ((__tmp64182 + (lambda (_f58210_ _lst58211_) + (let _recur58213_ ((_rest58215_ _lst58211_)) + (let* ((_rest5821658224_ _rest58215_) + (_else5821858232_ (lambda () '())) + (_K5822058243_ + (lambda (_rest58235_ _x58236_) + (let ((_$e58238_ (_f58210_ _x58236_))) + (if _$e58238_ + ((lambda (_r58241_) + (let ((__tmp64393 (let () (declare (not safe)) - (_recur58002_ _rest58024_)))) + (_recur58213_ _rest58235_)))) (declare (not safe)) - (cons _r58030_ __tmp64182))) - _$e58027_) + (cons _r58241_ __tmp64393))) + _$e58238_) (let () (declare (not safe)) - (_recur58002_ _rest58024_))))))) - (if (let () (declare (not safe)) (##pair? _rest5800558013_)) - (let ((_hd5801058035_ - (let () (declare (not safe)) (##car _rest5800558013_))) - (_tl5801158037_ - (let () (declare (not safe)) (##cdr _rest5800558013_)))) - (let* ((_x58040_ _hd5801058035_) - (_rest58042_ _tl5801158037_)) + (_recur58213_ _rest58235_))))))) + (if (let () (declare (not safe)) (##pair? _rest5821658224_)) + (let ((_hd5822158246_ + (let () (declare (not safe)) (##car _rest5821658224_))) + (_tl5822258248_ + (let () (declare (not safe)) (##cdr _rest5821658224_)))) + (let* ((_x58251_ _hd5822158246_) + (_rest58253_ _tl5822258248_)) (declare (not safe)) - (_K5800958032_ _rest58042_ _x58040_))) - (let () (declare (not safe)) (_else5800758021_))))))) + (_K5822058243_ _rest58253_ _x58251_))) + (let () (declare (not safe)) (_else5821858232_))))))) (define filter-map2 - (lambda (_f57919_ _lst157920_ _lst257921_) - (let _recur57923_ ((_rest157925_ _lst157920_) - (_rest257926_ _lst257921_)) - (let* ((_rest15792757935_ _rest157925_) - (_else5792957943_ (lambda () '())) - (_K5793157987_ - (lambda (_rest157946_ _x157947_) - (let* ((_rest25794857956_ _rest257926_) - (_else5795057964_ (lambda () '())) - (_K5795257975_ - (lambda (_rest257967_ _x257968_) - (let ((_$e57970_ (_f57919_ _x157947_ _x257968_))) - (if _$e57970_ - ((lambda (_r57973_) - (let ((__tmp64183 + (lambda (_f58130_ _lst158131_ _lst258132_) + (let _recur58134_ ((_rest158136_ _lst158131_) + (_rest258137_ _lst258132_)) + (let* ((_rest15813858146_ _rest158136_) + (_else5814058154_ (lambda () '())) + (_K5814258198_ + (lambda (_rest158157_ _x158158_) + (let* ((_rest25815958167_ _rest258137_) + (_else5816158175_ (lambda () '())) + (_K5816358186_ + (lambda (_rest258178_ _x258179_) + (let ((_$e58181_ (_f58130_ _x158158_ _x258179_))) + (if _$e58181_ + ((lambda (_r58184_) + (let ((__tmp64394 (let () (declare (not safe)) - (_recur57923_ - _rest157946_ - _rest257967_)))) + (_recur58134_ + _rest158157_ + _rest258178_)))) (declare (not safe)) - (cons _r57973_ __tmp64183))) - _$e57970_) + (cons _r58184_ __tmp64394))) + _$e58181_) (let () (declare (not safe)) - (_recur57923_ - _rest157946_ - _rest257967_))))))) + (_recur58134_ + _rest158157_ + _rest258178_))))))) (if (let () (declare (not safe)) - (##pair? _rest25794857956_)) - (let ((_hd5795357978_ + (##pair? _rest25815958167_)) + (let ((_hd5816458189_ (let () (declare (not safe)) - (##car _rest25794857956_))) - (_tl5795457980_ + (##car _rest25815958167_))) + (_tl5816558191_ (let () (declare (not safe)) - (##cdr _rest25794857956_)))) - (let* ((_x257983_ _hd5795357978_) - (_rest257985_ _tl5795457980_)) + (##cdr _rest25815958167_)))) + (let* ((_x258194_ _hd5816458189_) + (_rest258196_ _tl5816558191_)) (declare (not safe)) - (_K5795257975_ _rest257985_ _x257983_))) - (let () (declare (not safe)) (_else5795057964_))))))) - (if (let () (declare (not safe)) (##pair? _rest15792757935_)) - (let ((_hd5793257990_ - (let () (declare (not safe)) (##car _rest15792757935_))) - (_tl5793357992_ + (_K5816358186_ _rest258196_ _x258194_))) + (let () (declare (not safe)) (_else5816158175_))))))) + (if (let () (declare (not safe)) (##pair? _rest15813858146_)) + (let ((_hd5814358201_ + (let () (declare (not safe)) (##car _rest15813858146_))) + (_tl5814458203_ (let () (declare (not safe)) - (##cdr _rest15792757935_)))) - (let* ((_x157995_ _hd5793257990_) - (_rest157997_ _tl5793357992_)) + (##cdr _rest15813858146_)))) + (let* ((_x158206_ _hd5814358201_) + (_rest158208_ _tl5814458203_)) (declare (not safe)) - (_K5793157987_ _rest157997_ _x157995_))) - (let () (declare (not safe)) (_else5792957943_))))))) + (_K5814258198_ _rest158208_ _x158206_))) + (let () (declare (not safe)) (_else5814058154_))))))) (define filter-map - (lambda _g64185_ - (let ((_g64184_ (let () (declare (not safe)) (##length _g64185_)))) - (cond ((let () (declare (not safe)) (##fx= _g64184_ 2)) - (apply (lambda (_f57907_ _lst57908_) + (lambda _g64396_ + (let ((_g64395_ (let () (declare (not safe)) (##length _g64396_)))) + (cond ((let () (declare (not safe)) (##fx= _g64395_ 2)) + (apply (lambda (_f58118_ _lst58119_) (let () (declare (not safe)) - (filter-map1 _f57907_ _lst57908_))) - _g64185_)) - ((let () (declare (not safe)) (##fx= _g64184_ 3)) - (apply (lambda (_f57910_ _lst157911_ _lst257912_) + (filter-map1 _f58118_ _lst58119_))) + _g64396_)) + ((let () (declare (not safe)) (##fx= _g64395_ 3)) + (apply (lambda (_f58121_ _lst158122_ _lst258123_) (let () (declare (not safe)) - (filter-map2 _f57910_ _lst157911_ _lst257912_))) - _g64185_)) - ((let () (declare (not safe)) (##fx>= _g64184_ 3)) - (apply filter-map* _g64185_)) + (filter-map2 _f58121_ _lst158122_ _lst258123_))) + _g64396_)) + ((let () (declare (not safe)) (##fx>= _g64395_ 3)) + (apply filter-map* _g64396_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g64185_)))))) + _g64396_)))))) (define filter-map* - (lambda (_f57895_ . _rest57896_) - (let _recur57898_ ((_rest57900_ _rest57896_)) - (if (let () (declare (not safe)) (andmap1 pair? _rest57900_)) - (let ((_$e57902_ (apply _f57895_ (map car _rest57900_)))) - (if _$e57902_ - ((lambda (_r57905_) - (let ((__tmp64187 - (let ((__tmp64188 (map cdr _rest57900_))) + (lambda (_f58106_ . _rest58107_) + (let _recur58109_ ((_rest58111_ _rest58107_)) + (if (let () (declare (not safe)) (andmap1 pair? _rest58111_)) + (let ((_$e58113_ (apply _f58106_ (map car _rest58111_)))) + (if _$e58113_ + ((lambda (_r58116_) + (let ((__tmp64398 + (let ((__tmp64399 (map cdr _rest58111_))) (declare (not safe)) - (_recur57898_ __tmp64188)))) + (_recur58109_ __tmp64399)))) (declare (not safe)) - (cons _r57905_ __tmp64187))) - _$e57902_) - (let ((__tmp64186 (map cdr _rest57900_))) + (cons _r58116_ __tmp64398))) + _$e58113_) + (let ((__tmp64397 (map cdr _rest58111_))) (declare (not safe)) - (_recur57898_ __tmp64186)))) + (_recur58109_ __tmp64397)))) '())))) (define iota__% - (lambda (_count57863_ _start57864_ _step57865_) - (if (fixnum? _count57863_) + (lambda (_count58074_ _start58075_ _step58076_) + (if (fixnum? _count58074_) '#!void - (error '"expected fixnum" _count57863_)) - (if (let () (declare (not safe)) (number? _start57864_)) + (error '"expected fixnum" _count58074_)) + (if (let () (declare (not safe)) (number? _start58075_)) '#!void - (error '"expected number" _start57864_)) - (if (let () (declare (not safe)) (number? _step57865_)) + (error '"expected number" _start58075_)) + (if (let () (declare (not safe)) (number? _step58076_)) '#!void - (error '"expected number" _step57865_)) - (let ((_root57867_ (let () (declare (not safe)) (cons '#f '())))) - (let _lp57869_ ((_i57871_ '0) - (_x57872_ _start57864_) - (_tl57873_ _root57867_)) - (if (let () (declare (not safe)) (##fx< _i57871_ _count57863_)) - (let ((_tl*57875_ - (let () (declare (not safe)) (cons _x57872_ '())))) + (error '"expected number" _step58076_)) + (let ((_root58078_ (let () (declare (not safe)) (cons '#f '())))) + (let _lp58080_ ((_i58082_ '0) + (_x58083_ _start58075_) + (_tl58084_ _root58078_)) + (if (let () (declare (not safe)) (##fx< _i58082_ _count58074_)) + (let ((_tl*58086_ + (let () (declare (not safe)) (cons _x58083_ '())))) (let () (declare (not safe)) - (##set-cdr! _tl57873_ _tl*57875_)) - (let ((__tmp64190 - (let () (declare (not safe)) (##fx+ _i57871_ '1))) - (__tmp64189 (+ _x57872_ _step57865_))) + (##set-cdr! _tl58084_ _tl*58086_)) + (let ((__tmp64401 + (let () (declare (not safe)) (##fx+ _i58082_ '1))) + (__tmp64400 (+ _x58083_ _step58076_))) (declare (not safe)) - (_lp57869_ __tmp64190 __tmp64189 _tl*57875_))) - (let () (declare (not safe)) (##cdr _root57867_))))))) + (_lp58080_ __tmp64401 __tmp64400 _tl*58086_))) + (let () (declare (not safe)) (##cdr _root58078_))))))) (define iota__0 - (lambda (_count57880_) - (let* ((_start57882_ '0) (_step57884_ '1)) + (lambda (_count58091_) + (let* ((_start58093_ '0) (_step58095_ '1)) (declare (not safe)) - (iota__% _count57880_ _start57882_ _step57884_)))) + (iota__% _count58091_ _start58093_ _step58095_)))) (define iota__1 - (lambda (_count57886_ _start57887_) - (let ((_step57889_ '1)) + (lambda (_count58097_ _start58098_) + (let ((_step58100_ '1)) (declare (not safe)) - (iota__% _count57886_ _start57887_ _step57889_)))) + (iota__% _count58097_ _start58098_ _step58100_)))) (define iota - (lambda _g64192_ - (let ((_g64191_ (let () (declare (not safe)) (##length _g64192_)))) - (cond ((let () (declare (not safe)) (##fx= _g64191_ 1)) - (apply (lambda (_count57880_) - (let () (declare (not safe)) (iota__0 _count57880_))) - _g64192_)) - ((let () (declare (not safe)) (##fx= _g64191_ 2)) - (apply (lambda (_count57886_ _start57887_) + (lambda _g64403_ + (let ((_g64402_ (let () (declare (not safe)) (##length _g64403_)))) + (cond ((let () (declare (not safe)) (##fx= _g64402_ 1)) + (apply (lambda (_count58091_) + (let () (declare (not safe)) (iota__0 _count58091_))) + _g64403_)) + ((let () (declare (not safe)) (##fx= _g64402_ 2)) + (apply (lambda (_count58097_ _start58098_) (let () (declare (not safe)) - (iota__1 _count57886_ _start57887_))) - _g64192_)) - ((let () (declare (not safe)) (##fx= _g64191_ 3)) - (apply (lambda (_count57891_ _start57892_ _step57893_) + (iota__1 _count58097_ _start58098_))) + _g64403_)) + ((let () (declare (not safe)) (##fx= _g64402_ 3)) + (apply (lambda (_count58102_ _start58103_ _step58104_) (let () (declare (not safe)) - (iota__% _count57891_ _start57892_ _step57893_))) - _g64192_)) + (iota__% _count58102_ _start58103_ _step58104_))) + _g64403_)) (else (##raise-wrong-number-of-arguments-exception iota - _g64192_)))))) + _g64403_)))))) (define last-pair - (lambda (_lst57837_) - (let* ((_lst5783857845_ _lst57837_) - (_E5784057849_ - (lambda () (error '"No clause matching" _lst5783857845_))) - (_K5784157854_ - (lambda (_rest57852_) - (if (let () (declare (not safe)) (pair? _rest57852_)) - (let () (declare (not safe)) (last-pair _rest57852_)) - _lst57837_)))) - (if (let () (declare (not safe)) (##pair? _lst5783857845_)) - (let* ((_tl5784357857_ - (let () (declare (not safe)) (##cdr _lst5783857845_))) - (_rest57860_ _tl5784357857_)) + (lambda (_lst58048_) + (let* ((_lst5804958056_ _lst58048_) + (_E5805158060_ + (lambda () (error '"No clause matching" _lst5804958056_))) + (_K5805258065_ + (lambda (_rest58063_) + (if (let () (declare (not safe)) (pair? _rest58063_)) + (let () (declare (not safe)) (last-pair _rest58063_)) + _lst58048_)))) + (if (let () (declare (not safe)) (##pair? _lst5804958056_)) + (let* ((_tl5805458068_ + (let () (declare (not safe)) (##cdr _lst5804958056_))) + (_rest58071_ _tl5805458068_)) (declare (not safe)) - (_K5784157854_ _rest57860_)) - (let () (declare (not safe)) (_E5784057849_)))))) + (_K5805258065_ _rest58071_)) + (let () (declare (not safe)) (_E5805158060_)))))) (define last - (lambda (_lst57835_) - (car (let () (declare (not safe)) (last-pair _lst57835_))))) + (lambda (_lst58046_) + (car (let () (declare (not safe)) (last-pair _lst58046_))))) (define assgetq__% - (lambda (_key57813_ _lst57815_ _default57817_) - (let ((_$e57820_ - (if (let () (declare (not safe)) (pair? _lst57815_)) - (assq _key57813_ _lst57815_) + (lambda (_key58024_ _lst58026_ _default58028_) + (let ((_$e58031_ + (if (let () (declare (not safe)) (pair? _lst58026_)) + (assq _key58024_ _lst58026_) '#f))) - (if _$e57820_ - (cdr _$e57820_) - (if (let () (declare (not safe)) (procedure? _default57817_)) - (_default57817_ _key57813_) - _default57817_))))) + (if _$e58031_ + (cdr _$e58031_) + (if (let () (declare (not safe)) (procedure? _default58028_)) + (_default58028_ _key58024_) + _default58028_))))) (define assgetq__0 - (lambda (_key57826_ _lst57827_) - (let ((_default57829_ '#f)) + (lambda (_key58037_ _lst58038_) + (let ((_default58040_ '#f)) (declare (not safe)) - (assgetq__% _key57826_ _lst57827_ _default57829_)))) + (assgetq__% _key58037_ _lst58038_ _default58040_)))) (define assgetq - (lambda _g64194_ - (let ((_g64193_ (let () (declare (not safe)) (##length _g64194_)))) - (cond ((let () (declare (not safe)) (##fx= _g64193_ 2)) - (apply (lambda (_key57826_ _lst57827_) + (lambda _g64405_ + (let ((_g64404_ (let () (declare (not safe)) (##length _g64405_)))) + (cond ((let () (declare (not safe)) (##fx= _g64404_ 2)) + (apply (lambda (_key58037_ _lst58038_) (let () (declare (not safe)) - (assgetq__0 _key57826_ _lst57827_))) - _g64194_)) - ((let () (declare (not safe)) (##fx= _g64193_ 3)) - (apply (lambda (_key57831_ _lst57832_ _default57833_) + (assgetq__0 _key58037_ _lst58038_))) + _g64405_)) + ((let () (declare (not safe)) (##fx= _g64404_ 3)) + (apply (lambda (_key58042_ _lst58043_ _default58044_) (let () (declare (not safe)) - (assgetq__% _key57831_ _lst57832_ _default57833_))) - _g64194_)) + (assgetq__% _key58042_ _lst58043_ _default58044_))) + _g64405_)) (else (##raise-wrong-number-of-arguments-exception assgetq - _g64194_)))))) + _g64405_)))))) (define assgetv__% - (lambda (_key57790_ _lst57792_ _default57794_) - (let ((_$e57797_ - (if (let () (declare (not safe)) (pair? _lst57792_)) - (assv _key57790_ _lst57792_) + (lambda (_key58001_ _lst58003_ _default58005_) + (let ((_$e58008_ + (if (let () (declare (not safe)) (pair? _lst58003_)) + (assv _key58001_ _lst58003_) '#f))) - (if _$e57797_ - (cdr _$e57797_) - (if (let () (declare (not safe)) (procedure? _default57794_)) - (_default57794_ _key57790_) - _default57794_))))) + (if _$e58008_ + (cdr _$e58008_) + (if (let () (declare (not safe)) (procedure? _default58005_)) + (_default58005_ _key58001_) + _default58005_))))) (define assgetv__0 - (lambda (_key57803_ _lst57804_) - (let ((_default57806_ '#f)) + (lambda (_key58014_ _lst58015_) + (let ((_default58017_ '#f)) (declare (not safe)) - (assgetv__% _key57803_ _lst57804_ _default57806_)))) + (assgetv__% _key58014_ _lst58015_ _default58017_)))) (define assgetv - (lambda _g64196_ - (let ((_g64195_ (let () (declare (not safe)) (##length _g64196_)))) - (cond ((let () (declare (not safe)) (##fx= _g64195_ 2)) - (apply (lambda (_key57803_ _lst57804_) + (lambda _g64407_ + (let ((_g64406_ (let () (declare (not safe)) (##length _g64407_)))) + (cond ((let () (declare (not safe)) (##fx= _g64406_ 2)) + (apply (lambda (_key58014_ _lst58015_) (let () (declare (not safe)) - (assgetv__0 _key57803_ _lst57804_))) - _g64196_)) - ((let () (declare (not safe)) (##fx= _g64195_ 3)) - (apply (lambda (_key57808_ _lst57809_ _default57810_) + (assgetv__0 _key58014_ _lst58015_))) + _g64407_)) + ((let () (declare (not safe)) (##fx= _g64406_ 3)) + (apply (lambda (_key58019_ _lst58020_ _default58021_) (let () (declare (not safe)) - (assgetv__% _key57808_ _lst57809_ _default57810_))) - _g64196_)) + (assgetv__% _key58019_ _lst58020_ _default58021_))) + _g64407_)) (else (##raise-wrong-number-of-arguments-exception assgetv - _g64196_)))))) + _g64407_)))))) (define assget__% - (lambda (_key57767_ _lst57769_ _default57771_) - (let ((_$e57774_ - (if (let () (declare (not safe)) (pair? _lst57769_)) - (assoc _key57767_ _lst57769_) + (lambda (_key57978_ _lst57980_ _default57982_) + (let ((_$e57985_ + (if (let () (declare (not safe)) (pair? _lst57980_)) + (assoc _key57978_ _lst57980_) '#f))) - (if _$e57774_ - (cdr _$e57774_) - (if (let () (declare (not safe)) (procedure? _default57771_)) - (_default57771_ _key57767_) - _default57771_))))) + (if _$e57985_ + (cdr _$e57985_) + (if (let () (declare (not safe)) (procedure? _default57982_)) + (_default57982_ _key57978_) + _default57982_))))) (define assget__0 - (lambda (_key57780_ _lst57781_) - (let ((_default57783_ '#f)) + (lambda (_key57991_ _lst57992_) + (let ((_default57994_ '#f)) (declare (not safe)) - (assget__% _key57780_ _lst57781_ _default57783_)))) + (assget__% _key57991_ _lst57992_ _default57994_)))) (define assget - (lambda _g64198_ - (let ((_g64197_ (let () (declare (not safe)) (##length _g64198_)))) - (cond ((let () (declare (not safe)) (##fx= _g64197_ 2)) - (apply (lambda (_key57780_ _lst57781_) + (lambda _g64409_ + (let ((_g64408_ (let () (declare (not safe)) (##length _g64409_)))) + (cond ((let () (declare (not safe)) (##fx= _g64408_ 2)) + (apply (lambda (_key57991_ _lst57992_) (let () (declare (not safe)) - (assget__0 _key57780_ _lst57781_))) - _g64198_)) - ((let () (declare (not safe)) (##fx= _g64197_ 3)) - (apply (lambda (_key57785_ _lst57786_ _default57787_) + (assget__0 _key57991_ _lst57992_))) + _g64409_)) + ((let () (declare (not safe)) (##fx= _g64408_ 3)) + (apply (lambda (_key57996_ _lst57997_ _default57998_) (let () (declare (not safe)) - (assget__% _key57785_ _lst57786_ _default57787_))) - _g64198_)) + (assget__% _key57996_ _lst57997_ _default57998_))) + _g64409_)) (else (##raise-wrong-number-of-arguments-exception assget - _g64198_)))))) + _g64409_)))))) (define pgetq__% - (lambda (_key57696_ _lst57698_ _default57700_) - (let _lp57703_ ((_rest57706_ _lst57698_)) - (let* ((_rest5770857718_ _rest57706_) - (_else5771057726_ + (lambda (_key57907_ _lst57909_ _default57911_) + (let _lp57914_ ((_rest57917_ _lst57909_)) + (let* ((_rest5791957929_ _rest57917_) + (_else5792157937_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57700_)) - (_default57700_ _key57696_) - _default57700_))) - (_K5771257735_ - (lambda (_rest57729_ _v57730_ _k57732_) - (if (let () (declare (not safe)) (eq? _k57732_ _key57696_)) - _v57730_ + (procedure? _default57911_)) + (_default57911_ _key57907_) + _default57911_))) + (_K5792357946_ + (lambda (_rest57940_ _v57941_ _k57943_) + (if (let () (declare (not safe)) (eq? _k57943_ _key57907_)) + _v57941_ (let () (declare (not safe)) - (_lp57703_ _rest57729_)))))) - (if (let () (declare (not safe)) (##pair? _rest5770857718_)) - (let ((_hd5771357738_ - (let () (declare (not safe)) (##car _rest5770857718_))) - (_tl5771457740_ - (let () (declare (not safe)) (##cdr _rest5770857718_)))) - (let ((_k57743_ _hd5771357738_)) - (if (let () (declare (not safe)) (##pair? _tl5771457740_)) - (let ((_hd5771557745_ + (_lp57914_ _rest57940_)))))) + (if (let () (declare (not safe)) (##pair? _rest5791957929_)) + (let ((_hd5792457949_ + (let () (declare (not safe)) (##car _rest5791957929_))) + (_tl5792557951_ + (let () (declare (not safe)) (##cdr _rest5791957929_)))) + (let ((_k57954_ _hd5792457949_)) + (if (let () (declare (not safe)) (##pair? _tl5792557951_)) + (let ((_hd5792657956_ (let () (declare (not safe)) - (##car _tl5771457740_))) - (_tl5771657747_ + (##car _tl5792557951_))) + (_tl5792757958_ (let () (declare (not safe)) - (##cdr _tl5771457740_)))) - (let* ((_v57750_ _hd5771557745_) - (_rest57752_ _tl5771657747_)) + (##cdr _tl5792557951_)))) + (let* ((_v57961_ _hd5792657956_) + (_rest57963_ _tl5792757958_)) (declare (not safe)) - (_K5771257735_ _rest57752_ _v57750_ _k57743_))) - (let () (declare (not safe)) (_else5771057726_))))) - (let () (declare (not safe)) (_else5771057726_))))))) + (_K5792357946_ _rest57963_ _v57961_ _k57954_))) + (let () (declare (not safe)) (_else5792157937_))))) + (let () (declare (not safe)) (_else5792157937_))))))) (define pgetq__0 - (lambda (_key57757_ _lst57758_) - (let ((_default57760_ '#f)) + (lambda (_key57968_ _lst57969_) + (let ((_default57971_ '#f)) (declare (not safe)) - (pgetq__% _key57757_ _lst57758_ _default57760_)))) + (pgetq__% _key57968_ _lst57969_ _default57971_)))) (define pgetq - (lambda _g64200_ - (let ((_g64199_ (let () (declare (not safe)) (##length _g64200_)))) - (cond ((let () (declare (not safe)) (##fx= _g64199_ 2)) - (apply (lambda (_key57757_ _lst57758_) + (lambda _g64411_ + (let ((_g64410_ (let () (declare (not safe)) (##length _g64411_)))) + (cond ((let () (declare (not safe)) (##fx= _g64410_ 2)) + (apply (lambda (_key57968_ _lst57969_) (let () (declare (not safe)) - (pgetq__0 _key57757_ _lst57758_))) - _g64200_)) - ((let () (declare (not safe)) (##fx= _g64199_ 3)) - (apply (lambda (_key57762_ _lst57763_ _default57764_) + (pgetq__0 _key57968_ _lst57969_))) + _g64411_)) + ((let () (declare (not safe)) (##fx= _g64410_ 3)) + (apply (lambda (_key57973_ _lst57974_ _default57975_) (let () (declare (not safe)) - (pgetq__% _key57762_ _lst57763_ _default57764_))) - _g64200_)) + (pgetq__% _key57973_ _lst57974_ _default57975_))) + _g64411_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g64200_)))))) + _g64411_)))))) (define pgetv__% - (lambda (_key57625_ _lst57627_ _default57629_) - (let _lp57632_ ((_rest57635_ _lst57627_)) - (let* ((_rest5763757647_ _rest57635_) - (_else5763957655_ + (lambda (_key57836_ _lst57838_ _default57840_) + (let _lp57843_ ((_rest57846_ _lst57838_)) + (let* ((_rest5784857858_ _rest57846_) + (_else5785057866_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57629_)) - (_default57629_ _key57625_) - _default57629_))) - (_K5764157664_ - (lambda (_rest57658_ _v57659_ _k57661_) + (procedure? _default57840_)) + (_default57840_ _key57836_) + _default57840_))) + (_K5785257875_ + (lambda (_rest57869_ _v57870_ _k57872_) (if (let () (declare (not safe)) - (eqv? _k57661_ _key57625_)) - _v57659_ + (eqv? _k57872_ _key57836_)) + _v57870_ (let () (declare (not safe)) - (_lp57632_ _rest57658_)))))) - (if (let () (declare (not safe)) (##pair? _rest5763757647_)) - (let ((_hd5764257667_ - (let () (declare (not safe)) (##car _rest5763757647_))) - (_tl5764357669_ - (let () (declare (not safe)) (##cdr _rest5763757647_)))) - (let ((_k57672_ _hd5764257667_)) - (if (let () (declare (not safe)) (##pair? _tl5764357669_)) - (let ((_hd5764457674_ + (_lp57843_ _rest57869_)))))) + (if (let () (declare (not safe)) (##pair? _rest5784857858_)) + (let ((_hd5785357878_ + (let () (declare (not safe)) (##car _rest5784857858_))) + (_tl5785457880_ + (let () (declare (not safe)) (##cdr _rest5784857858_)))) + (let ((_k57883_ _hd5785357878_)) + (if (let () (declare (not safe)) (##pair? _tl5785457880_)) + (let ((_hd5785557885_ (let () (declare (not safe)) - (##car _tl5764357669_))) - (_tl5764557676_ + (##car _tl5785457880_))) + (_tl5785657887_ (let () (declare (not safe)) - (##cdr _tl5764357669_)))) - (let* ((_v57679_ _hd5764457674_) - (_rest57681_ _tl5764557676_)) + (##cdr _tl5785457880_)))) + (let* ((_v57890_ _hd5785557885_) + (_rest57892_ _tl5785657887_)) (declare (not safe)) - (_K5764157664_ _rest57681_ _v57679_ _k57672_))) - (let () (declare (not safe)) (_else5763957655_))))) - (let () (declare (not safe)) (_else5763957655_))))))) + (_K5785257875_ _rest57892_ _v57890_ _k57883_))) + (let () (declare (not safe)) (_else5785057866_))))) + (let () (declare (not safe)) (_else5785057866_))))))) (define pgetv__0 - (lambda (_key57686_ _lst57687_) - (let ((_default57689_ '#f)) + (lambda (_key57897_ _lst57898_) + (let ((_default57900_ '#f)) (declare (not safe)) - (pgetv__% _key57686_ _lst57687_ _default57689_)))) + (pgetv__% _key57897_ _lst57898_ _default57900_)))) (define pgetv - (lambda _g64202_ - (let ((_g64201_ (let () (declare (not safe)) (##length _g64202_)))) - (cond ((let () (declare (not safe)) (##fx= _g64201_ 2)) - (apply (lambda (_key57686_ _lst57687_) + (lambda _g64413_ + (let ((_g64412_ (let () (declare (not safe)) (##length _g64413_)))) + (cond ((let () (declare (not safe)) (##fx= _g64412_ 2)) + (apply (lambda (_key57897_ _lst57898_) (let () (declare (not safe)) - (pgetv__0 _key57686_ _lst57687_))) - _g64202_)) - ((let () (declare (not safe)) (##fx= _g64201_ 3)) - (apply (lambda (_key57691_ _lst57692_ _default57693_) + (pgetv__0 _key57897_ _lst57898_))) + _g64413_)) + ((let () (declare (not safe)) (##fx= _g64412_ 3)) + (apply (lambda (_key57902_ _lst57903_ _default57904_) (let () (declare (not safe)) - (pgetv__% _key57691_ _lst57692_ _default57693_))) - _g64202_)) + (pgetv__% _key57902_ _lst57903_ _default57904_))) + _g64413_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g64202_)))))) + _g64413_)))))) (define pget__% - (lambda (_key57554_ _lst57556_ _default57558_) - (let _lp57561_ ((_rest57564_ _lst57556_)) - (let* ((_rest5756657576_ _rest57564_) - (_else5756857584_ + (lambda (_key57765_ _lst57767_ _default57769_) + (let _lp57772_ ((_rest57775_ _lst57767_)) + (let* ((_rest5777757787_ _rest57775_) + (_else5777957795_ (lambda () (if (let () (declare (not safe)) - (procedure? _default57558_)) - (_default57558_ _key57554_) - _default57558_))) - (_K5757057593_ - (lambda (_rest57587_ _v57588_ _k57590_) + (procedure? _default57769_)) + (_default57769_ _key57765_) + _default57769_))) + (_K5778157804_ + (lambda (_rest57798_ _v57799_ _k57801_) (if (let () (declare (not safe)) - (equal? _k57590_ _key57554_)) - _v57588_ + (equal? _k57801_ _key57765_)) + _v57799_ (let () (declare (not safe)) - (_lp57561_ _rest57587_)))))) - (if (let () (declare (not safe)) (##pair? _rest5756657576_)) - (let ((_hd5757157596_ - (let () (declare (not safe)) (##car _rest5756657576_))) - (_tl5757257598_ - (let () (declare (not safe)) (##cdr _rest5756657576_)))) - (let ((_k57601_ _hd5757157596_)) - (if (let () (declare (not safe)) (##pair? _tl5757257598_)) - (let ((_hd5757357603_ + (_lp57772_ _rest57798_)))))) + (if (let () (declare (not safe)) (##pair? _rest5777757787_)) + (let ((_hd5778257807_ + (let () (declare (not safe)) (##car _rest5777757787_))) + (_tl5778357809_ + (let () (declare (not safe)) (##cdr _rest5777757787_)))) + (let ((_k57812_ _hd5778257807_)) + (if (let () (declare (not safe)) (##pair? _tl5778357809_)) + (let ((_hd5778457814_ (let () (declare (not safe)) - (##car _tl5757257598_))) - (_tl5757457605_ + (##car _tl5778357809_))) + (_tl5778557816_ (let () (declare (not safe)) - (##cdr _tl5757257598_)))) - (let* ((_v57608_ _hd5757357603_) - (_rest57610_ _tl5757457605_)) + (##cdr _tl5778357809_)))) + (let* ((_v57819_ _hd5778457814_) + (_rest57821_ _tl5778557816_)) (declare (not safe)) - (_K5757057593_ _rest57610_ _v57608_ _k57601_))) - (let () (declare (not safe)) (_else5756857584_))))) - (let () (declare (not safe)) (_else5756857584_))))))) + (_K5778157804_ _rest57821_ _v57819_ _k57812_))) + (let () (declare (not safe)) (_else5777957795_))))) + (let () (declare (not safe)) (_else5777957795_))))))) (define pget__0 - (lambda (_key57615_ _lst57616_) - (let ((_default57618_ '#f)) + (lambda (_key57826_ _lst57827_) + (let ((_default57829_ '#f)) (declare (not safe)) - (pget__% _key57615_ _lst57616_ _default57618_)))) + (pget__% _key57826_ _lst57827_ _default57829_)))) (define pget - (lambda _g64204_ - (let ((_g64203_ (let () (declare (not safe)) (##length _g64204_)))) - (cond ((let () (declare (not safe)) (##fx= _g64203_ 2)) - (apply (lambda (_key57615_ _lst57616_) + (lambda _g64415_ + (let ((_g64414_ (let () (declare (not safe)) (##length _g64415_)))) + (cond ((let () (declare (not safe)) (##fx= _g64414_ 2)) + (apply (lambda (_key57826_ _lst57827_) (let () (declare (not safe)) - (pget__0 _key57615_ _lst57616_))) - _g64204_)) - ((let () (declare (not safe)) (##fx= _g64203_ 3)) - (apply (lambda (_key57620_ _lst57621_ _default57622_) + (pget__0 _key57826_ _lst57827_))) + _g64415_)) + ((let () (declare (not safe)) (##fx= _g64414_ 3)) + (apply (lambda (_key57831_ _lst57832_ _default57833_) (let () (declare (not safe)) - (pget__% _key57620_ _lst57621_ _default57622_))) - _g64204_)) + (pget__% _key57831_ _lst57832_ _default57833_))) + _g64415_)) (else (##raise-wrong-number-of-arguments-exception pget - _g64204_)))))) + _g64415_)))))) (define find - (lambda (_pred57547_ _lst57548_) - (let ((_$e57550_ - (let () (declare (not safe)) (memf _pred57547_ _lst57548_)))) - (if _$e57550_ (car _$e57550_) '#f)))) + (lambda (_pred57758_ _lst57759_) + (let ((_$e57761_ + (let () (declare (not safe)) (memf _pred57758_ _lst57759_)))) + (if _$e57761_ (car _$e57761_) '#f)))) (define memf - (lambda (_proc57507_ _lst57508_) - (let _lp57510_ ((_rest57512_ _lst57508_)) - (let* ((_rest5751357521_ _rest57512_) - (_else5751557529_ (lambda () '#f)) - (_K5751757535_ - (lambda (_tl57532_ _hd57533_) - (if (_proc57507_ _hd57533_) - _rest57512_ - (let () (declare (not safe)) (_lp57510_ _tl57532_)))))) - (if (let () (declare (not safe)) (##pair? _rest5751357521_)) - (let ((_hd5751857538_ - (let () (declare (not safe)) (##car _rest5751357521_))) - (_tl5751957540_ - (let () (declare (not safe)) (##cdr _rest5751357521_)))) - (let* ((_hd57543_ _hd5751857538_) (_tl57545_ _tl5751957540_)) + (lambda (_proc57718_ _lst57719_) + (let _lp57721_ ((_rest57723_ _lst57719_)) + (let* ((_rest5772457732_ _rest57723_) + (_else5772657740_ (lambda () '#f)) + (_K5772857746_ + (lambda (_tl57743_ _hd57744_) + (if (_proc57718_ _hd57744_) + _rest57723_ + (let () (declare (not safe)) (_lp57721_ _tl57743_)))))) + (if (let () (declare (not safe)) (##pair? _rest5772457732_)) + (let ((_hd5772957749_ + (let () (declare (not safe)) (##car _rest5772457732_))) + (_tl5773057751_ + (let () (declare (not safe)) (##cdr _rest5772457732_)))) + (let* ((_hd57754_ _hd5772957749_) (_tl57756_ _tl5773057751_)) (declare (not safe)) - (_K5751757535_ _tl57545_ _hd57543_))) - (let () (declare (not safe)) (_else5751557529_))))))) + (_K5772857746_ _tl57756_ _hd57754_))) + (let () (declare (not safe)) (_else5772657740_))))))) (define remove1 - (lambda (_el57460_ _lst57462_) - (let _lp57465_ ((_rest57468_ _lst57462_) (_r57470_ '())) - (let* ((_rest5747257480_ _rest57468_) - (_else5747457488_ (lambda () _lst57462_)) - (_K5747657495_ - (lambda (_rest57491_ _hd57492_) + (lambda (_el57671_ _lst57673_) + (let _lp57676_ ((_rest57679_ _lst57673_) (_r57681_ '())) + (let* ((_rest5768357691_ _rest57679_) + (_else5768557699_ (lambda () _lst57673_)) + (_K5768757706_ + (lambda (_rest57702_ _hd57703_) (if (let () (declare (not safe)) - (equal? _el57460_ _hd57492_)) + (equal? _el57671_ _hd57703_)) (let () (declare (not safe)) - (foldl1 cons _rest57491_ _r57470_)) - (let ((__tmp64205 + (foldl1 cons _rest57702_ _r57681_)) + (let ((__tmp64416 (let () (declare (not safe)) - (cons _hd57492_ _r57470_)))) + (cons _hd57703_ _r57681_)))) (declare (not safe)) - (_lp57465_ _rest57491_ __tmp64205)))))) - (if (let () (declare (not safe)) (##pair? _rest5747257480_)) - (let ((_hd5747757498_ - (let () (declare (not safe)) (##car _rest5747257480_))) - (_tl5747857500_ - (let () (declare (not safe)) (##cdr _rest5747257480_)))) - (let* ((_hd57503_ _hd5747757498_) - (_rest57505_ _tl5747857500_)) + (_lp57676_ _rest57702_ __tmp64416)))))) + (if (let () (declare (not safe)) (##pair? _rest5768357691_)) + (let ((_hd5768857709_ + (let () (declare (not safe)) (##car _rest5768357691_))) + (_tl5768957711_ + (let () (declare (not safe)) (##cdr _rest5768357691_)))) + (let* ((_hd57714_ _hd5768857709_) + (_rest57716_ _tl5768957711_)) (declare (not safe)) - (_K5747657495_ _rest57505_ _hd57503_))) - (let () (declare (not safe)) (_else5747457488_))))))) + (_K5768757706_ _rest57716_ _hd57714_))) + (let () (declare (not safe)) (_else5768557699_))))))) (define remv - (lambda (_el57413_ _lst57415_) - (let _lp57418_ ((_rest57421_ _lst57415_) (_r57423_ '())) - (let* ((_rest5742557433_ _rest57421_) - (_else5742757441_ (lambda () _lst57415_)) - (_K5742957448_ - (lambda (_rest57444_ _hd57445_) + (lambda (_el57624_ _lst57626_) + (let _lp57629_ ((_rest57632_ _lst57626_) (_r57634_ '())) + (let* ((_rest5763657644_ _rest57632_) + (_else5763857652_ (lambda () _lst57626_)) + (_K5764057659_ + (lambda (_rest57655_ _hd57656_) (if (let () (declare (not safe)) - (eqv? _el57413_ _hd57445_)) + (eqv? _el57624_ _hd57656_)) (let () (declare (not safe)) - (foldl1 cons _rest57444_ _r57423_)) - (let ((__tmp64206 + (foldl1 cons _rest57655_ _r57634_)) + (let ((__tmp64417 (let () (declare (not safe)) - (cons _hd57445_ _r57423_)))) + (cons _hd57656_ _r57634_)))) (declare (not safe)) - (_lp57418_ _rest57444_ __tmp64206)))))) - (if (let () (declare (not safe)) (##pair? _rest5742557433_)) - (let ((_hd5743057451_ - (let () (declare (not safe)) (##car _rest5742557433_))) - (_tl5743157453_ - (let () (declare (not safe)) (##cdr _rest5742557433_)))) - (let* ((_hd57456_ _hd5743057451_) - (_rest57458_ _tl5743157453_)) + (_lp57629_ _rest57655_ __tmp64417)))))) + (if (let () (declare (not safe)) (##pair? _rest5763657644_)) + (let ((_hd5764157662_ + (let () (declare (not safe)) (##car _rest5763657644_))) + (_tl5764257664_ + (let () (declare (not safe)) (##cdr _rest5763657644_)))) + (let* ((_hd57667_ _hd5764157662_) + (_rest57669_ _tl5764257664_)) (declare (not safe)) - (_K5742957448_ _rest57458_ _hd57456_))) - (let () (declare (not safe)) (_else5742757441_))))))) + (_K5764057659_ _rest57669_ _hd57667_))) + (let () (declare (not safe)) (_else5763857652_))))))) (define remq - (lambda (_el57366_ _lst57368_) - (let _lp57371_ ((_rest57374_ _lst57368_) (_r57376_ '())) - (let* ((_rest5737857386_ _rest57374_) - (_else5738057394_ (lambda () _lst57368_)) - (_K5738257401_ - (lambda (_rest57397_ _hd57398_) - (if (let () (declare (not safe)) (eq? _el57366_ _hd57398_)) + (lambda (_el57577_ _lst57579_) + (let _lp57582_ ((_rest57585_ _lst57579_) (_r57587_ '())) + (let* ((_rest5758957597_ _rest57585_) + (_else5759157605_ (lambda () _lst57579_)) + (_K5759357612_ + (lambda (_rest57608_ _hd57609_) + (if (let () (declare (not safe)) (eq? _el57577_ _hd57609_)) (let () (declare (not safe)) - (foldl1 cons _rest57397_ _r57376_)) - (let ((__tmp64207 + (foldl1 cons _rest57608_ _r57587_)) + (let ((__tmp64418 (let () (declare (not safe)) - (cons _hd57398_ _r57376_)))) + (cons _hd57609_ _r57587_)))) (declare (not safe)) - (_lp57371_ _rest57397_ __tmp64207)))))) - (if (let () (declare (not safe)) (##pair? _rest5737857386_)) - (let ((_hd5738357404_ - (let () (declare (not safe)) (##car _rest5737857386_))) - (_tl5738457406_ - (let () (declare (not safe)) (##cdr _rest5737857386_)))) - (let* ((_hd57409_ _hd5738357404_) - (_rest57411_ _tl5738457406_)) + (_lp57582_ _rest57608_ __tmp64418)))))) + (if (let () (declare (not safe)) (##pair? _rest5758957597_)) + (let ((_hd5759457615_ + (let () (declare (not safe)) (##car _rest5758957597_))) + (_tl5759557617_ + (let () (declare (not safe)) (##cdr _rest5758957597_)))) + (let* ((_hd57620_ _hd5759457615_) + (_rest57622_ _tl5759557617_)) (declare (not safe)) - (_K5738257401_ _rest57411_ _hd57409_))) - (let () (declare (not safe)) (_else5738057394_))))))) + (_K5759357612_ _rest57622_ _hd57620_))) + (let () (declare (not safe)) (_else5759157605_))))))) (define remf - (lambda (_proc57325_ _lst57326_) - (let _lp57328_ ((_rest57330_ _lst57326_) (_r57331_ '())) - (let* ((_rest5733257340_ _rest57330_) - (_else5733457348_ (lambda () _lst57326_)) - (_K5733657354_ - (lambda (_rest57351_ _hd57352_) - (if (_proc57325_ _hd57352_) + (lambda (_proc57536_ _lst57537_) + (let _lp57539_ ((_rest57541_ _lst57537_) (_r57542_ '())) + (let* ((_rest5754357551_ _rest57541_) + (_else5754557559_ (lambda () _lst57537_)) + (_K5754757565_ + (lambda (_rest57562_ _hd57563_) + (if (_proc57536_ _hd57563_) (let () (declare (not safe)) - (foldl1 cons _rest57351_ _r57331_)) - (let ((__tmp64208 + (foldl1 cons _rest57562_ _r57542_)) + (let ((__tmp64419 (let () (declare (not safe)) - (cons _hd57352_ _r57331_)))) + (cons _hd57563_ _r57542_)))) (declare (not safe)) - (_lp57328_ _rest57351_ __tmp64208)))))) - (if (let () (declare (not safe)) (##pair? _rest5733257340_)) - (let ((_hd5733757357_ - (let () (declare (not safe)) (##car _rest5733257340_))) - (_tl5733857359_ - (let () (declare (not safe)) (##cdr _rest5733257340_)))) - (let* ((_hd57362_ _hd5733757357_) - (_rest57364_ _tl5733857359_)) + (_lp57539_ _rest57562_ __tmp64419)))))) + (if (let () (declare (not safe)) (##pair? _rest5754357551_)) + (let ((_hd5754857568_ + (let () (declare (not safe)) (##car _rest5754357551_))) + (_tl5754957570_ + (let () (declare (not safe)) (##cdr _rest5754357551_)))) + (let* ((_hd57573_ _hd5754857568_) + (_rest57575_ _tl5754957570_)) (declare (not safe)) - (_K5733657354_ _rest57364_ _hd57362_))) - (let () (declare (not safe)) (_else5733457348_))))))) - (define 1+ (lambda (_x57323_) (+ _x57323_ '1))) - (define 1- (lambda (_x57321_) (- _x57321_ '1))) - (define fx1+ (lambda (_x57319_) (fx+ _x57319_ '1))) - (define fx1- (lambda (_x57317_) (fx- _x57317_ '1))) + (_K5754757565_ _rest57575_ _hd57573_))) + (let () (declare (not safe)) (_else5754557559_))))))) + (define 1+ (lambda (_x57534_) (+ _x57534_ '1))) + (define 1- (lambda (_x57532_) (- _x57532_ '1))) + (define fx1+ (lambda (_x57530_) (fx+ _x57530_ '1))) + (define fx1- (lambda (_x57528_) (fx- _x57528_ '1))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_x57315_) - (if (fixnum? _x57315_) - (let () (declare (not safe)) (##fx>= _x57315_ '0)) + (lambda (_x57526_) + (if (fixnum? _x57526_) + (let () (declare (not safe)) (##fx>= _x57526_ '0)) '#f))) (define fx>0? - (lambda (_x57313_) - (if (fixnum? _x57313_) - (let () (declare (not safe)) (##fx> _x57313_ '0)) + (lambda (_x57524_) + (if (fixnum? _x57524_) + (let () (declare (not safe)) (##fx> _x57524_ '0)) '#f))) (define fx=0? - (lambda (_x57311_) (let () (declare (not safe)) (eq? _x57311_ '0)))) + (lambda (_x57522_) (let () (declare (not safe)) (eq? _x57522_ '0)))) (define fx<0? - (lambda (_x57309_) - (if (fixnum? _x57309_) - (let () (declare (not safe)) (##fx< _x57309_ '0)) + (lambda (_x57520_) + (if (fixnum? _x57520_) + (let () (declare (not safe)) (##fx< _x57520_ '0)) '#f))) (define fx<=0? - (lambda (_x57307_) - (if (fixnum? _x57307_) - (let () (declare (not safe)) (##fx<= _x57307_ '0)) + (lambda (_x57518_) + (if (fixnum? _x57518_) + (let () (declare (not safe)) (##fx<= _x57518_ '0)) '#f))) (define interned-symbol? - (lambda (_x57305_) - (if (let () (declare (not safe)) (symbol? _x57305_)) - (let ((__tmp64209 (uninterned-symbol? _x57305_))) + (lambda (_x57516_) + (if (let () (declare (not safe)) (symbol? _x57516_)) + (let ((__tmp64420 (uninterned-symbol? _x57516_))) (declare (not safe)) - (not __tmp64209)) + (not __tmp64420)) '#f))) (define display-as-string - (lambda (_x57277_ _port57278_) - (if (or (let () (declare (not safe)) (string? _x57277_)) - (let () (declare (not safe)) (symbol? _x57277_)) - (keyword? _x57277_) - (let () (declare (not safe)) (number? _x57277_)) - (let () (declare (not safe)) (char? _x57277_))) - (display _x57277_ _port57278_) - (if (let () (declare (not safe)) (pair? _x57277_)) + (lambda (_x57488_ _port57489_) + (if (or (let () (declare (not safe)) (string? _x57488_)) + (let () (declare (not safe)) (symbol? _x57488_)) + (keyword? _x57488_) + (let () (declare (not safe)) (number? _x57488_)) + (let () (declare (not safe)) (char? _x57488_))) + (display _x57488_ _port57489_) + (if (let () (declare (not safe)) (pair? _x57488_)) (begin - (let ((__tmp64210 (car _x57277_))) + (let ((__tmp64421 (car _x57488_))) (declare (not safe)) - (display-as-string __tmp64210 _port57278_)) - (let ((__tmp64211 (cdr _x57277_))) + (display-as-string __tmp64421 _port57489_)) + (let ((__tmp64422 (cdr _x57488_))) (declare (not safe)) - (display-as-string __tmp64211 _port57278_))) - (if (let () (declare (not safe)) (vector? _x57277_)) + (display-as-string __tmp64422 _port57489_))) + (if (let () (declare (not safe)) (vector? _x57488_)) (vector-for-each - (lambda (_g5729157293_) + (lambda (_g5750257504_) (let () (declare (not safe)) - (display-as-string _g5729157293_ _port57278_))) - _x57277_) - (if (or (let () (declare (not safe)) (null? _x57277_)) + (display-as-string _g5750257504_ _port57489_))) + _x57488_) + (if (or (let () (declare (not safe)) (null? _x57488_)) (let () (declare (not safe)) - (eq? _x57277_ '#!void)) + (eq? _x57488_ '#!void)) (let () (declare (not safe)) - (eof-object? _x57277_)) - (let () (declare (not safe)) (boolean? _x57277_))) + (eof-object? _x57488_)) + (let () (declare (not safe)) (boolean? _x57488_))) '#!void - (error '"cannot convert as string" _x57277_))))))) + (error '"cannot convert as string" _x57488_))))))) (define as-string__0 - (lambda (_x57265_) - (if (let () (declare (not safe)) (string? _x57265_)) - _x57265_ - (if (let () (declare (not safe)) (symbol? _x57265_)) - (symbol->string _x57265_) - (if (keyword? _x57265_) - (keyword->string _x57265_) + (lambda (_x57476_) + (if (let () (declare (not safe)) (string? _x57476_)) + _x57476_ + (if (let () (declare (not safe)) (symbol? _x57476_)) + (symbol->string _x57476_) + (if (keyword? _x57476_) + (keyword->string _x57476_) (call-with-output-string '() - (lambda (_g5726657268_) + (lambda (_g5747757479_) (let () (declare (not safe)) - (display-as-string _x57265_ _g5726657268_))))))))) + (display-as-string _x57476_ _g5747757479_))))))))) (define as-string__1 - (lambda _args57271_ + (lambda _args57482_ (call-with-output-string '() - (lambda (_g5727257274_) + (lambda (_g5748357485_) (let () (declare (not safe)) - (display-as-string _args57271_ _g5727257274_)))))) + (display-as-string _args57482_ _g5748357485_)))))) (define as-string - (lambda _g64213_ - (let ((_g64212_ (let () (declare (not safe)) (##length _g64213_)))) - (cond ((let () (declare (not safe)) (##fx= _g64212_ 1)) - (apply (lambda (_x57265_) + (lambda _g64424_ + (let ((_g64423_ (let () (declare (not safe)) (##length _g64424_)))) + (cond ((let () (declare (not safe)) (##fx= _g64423_ 1)) + (apply (lambda (_x57476_) (let () (declare (not safe)) - (as-string__0 _x57265_))) - _g64213_)) - (#t (apply as-string__1 _g64213_)) + (as-string__0 _x57476_))) + _g64424_)) + (#t (apply as-string__1 _g64424_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g64213_)))))) + _g64424_)))))) (define make-symbol__0 - (lambda (_x57261_) - (if (interned-symbol? _x57261_) - _x57261_ + (lambda (_x57472_) + (if (interned-symbol? _x57472_) + _x57472_ (string->symbol - (let () (declare (not safe)) (as-string__0 _x57261_)))))) + (let () (declare (not safe)) (as-string__0 _x57472_)))))) (define make-symbol__1 - (lambda _args57263_ (string->symbol (apply as-string _args57263_)))) + (lambda _args57474_ (string->symbol (apply as-string _args57474_)))) (define make-symbol - (lambda _g64215_ - (let ((_g64214_ (let () (declare (not safe)) (##length _g64215_)))) - (cond ((let () (declare (not safe)) (##fx= _g64214_ 1)) - (apply (lambda (_x57261_) + (lambda _g64426_ + (let ((_g64425_ (let () (declare (not safe)) (##length _g64426_)))) + (cond ((let () (declare (not safe)) (##fx= _g64425_ 1)) + (apply (lambda (_x57472_) (let () (declare (not safe)) - (make-symbol__0 _x57261_))) - _g64215_)) - (#t (apply make-symbol__1 _g64215_)) + (make-symbol__0 _x57472_))) + _g64426_)) + (#t (apply make-symbol__1 _g64426_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g64215_)))))) + _g64426_)))))) (define make-keyword__0 - (lambda (_x57257_) - (if (interned-keyword? _x57257_) - _x57257_ + (lambda (_x57468_) + (if (interned-keyword? _x57468_) + _x57468_ (string->keyword - (let () (declare (not safe)) (as-string__0 _x57257_)))))) + (let () (declare (not safe)) (as-string__0 _x57468_)))))) (define make-keyword__1 - (lambda _args57259_ (string->keyword (apply as-string _args57259_)))) + (lambda _args57470_ (string->keyword (apply as-string _args57470_)))) (define make-keyword - (lambda _g64217_ - (let ((_g64216_ (let () (declare (not safe)) (##length _g64217_)))) - (cond ((let () (declare (not safe)) (##fx= _g64216_ 1)) - (apply (lambda (_x57257_) + (lambda _g64428_ + (let ((_g64427_ (let () (declare (not safe)) (##length _g64428_)))) + (cond ((let () (declare (not safe)) (##fx= _g64427_ 1)) + (apply (lambda (_x57468_) (let () (declare (not safe)) - (make-keyword__0 _x57257_))) - _g64217_)) - (#t (apply make-keyword__1 _g64217_)) + (make-keyword__0 _x57468_))) + _g64428_)) + (#t (apply make-keyword__1 _g64428_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g64217_)))))) + _g64428_)))))) (define interned-keyword? - (lambda (_x57255_) - (if (keyword? _x57255_) - (let ((__tmp64218 (uninterned-keyword? _x57255_))) + (lambda (_x57466_) + (if (keyword? _x57466_) + (let ((__tmp64429 (uninterned-keyword? _x57466_))) (declare (not safe)) - (not __tmp64218)) + (not __tmp64429)) '#f))) (define symbol->keyword - (lambda (_sym57253_) - ((if (uninterned-symbol? _sym57253_) + (lambda (_sym57464_) + ((if (uninterned-symbol? _sym57464_) string->uninterned-keyword string->keyword) - (symbol->string _sym57253_)))) + (symbol->string _sym57464_)))) (define keyword->symbol - (lambda (_kw57251_) - ((if (uninterned-keyword? _kw57251_) + (lambda (_kw57462_) + ((if (uninterned-keyword? _kw57462_) string->uninterned-symbol string->symbol) - (keyword->string _kw57251_)))) + (keyword->string _kw57462_)))) (define bytes->string__% - (lambda (_bstr57229_ _enc57230_) - (if (let () (declare (not safe)) (eq? _enc57230_ 'UTF-8)) - (utf8->string _bstr57229_) - (let* ((_in57232_ + (lambda (_bstr57440_ _enc57441_) + (if (let () (declare (not safe)) (eq? _enc57441_ 'UTF-8)) + (utf8->string _bstr57440_) + (let* ((_in57443_ (open-input-u8vector - (let ((__tmp64219 - (let ((__tmp64220 - (let ((__tmp64221 + (let ((__tmp64430 + (let ((__tmp64431 + (let ((__tmp64432 (let () (declare (not safe)) - (cons _bstr57229_ '())))) + (cons _bstr57440_ '())))) (declare (not safe)) - (cons 'init: __tmp64221)))) + (cons 'init: __tmp64432)))) (declare (not safe)) - (cons _enc57230_ __tmp64220)))) + (cons _enc57441_ __tmp64431)))) (declare (not safe)) - (cons 'char-encoding: __tmp64219)))) - (_len57234_ (u8vector-length _bstr57229_)) - (_out57236_ (make-string _len57234_)) - (_n57238_ - (read-substring _out57236_ '0 _len57234_ _in57232_))) - (string-shrink! _out57236_ _n57238_) - _out57236_)))) + (cons 'char-encoding: __tmp64430)))) + (_len57445_ (u8vector-length _bstr57440_)) + (_out57447_ (make-string _len57445_)) + (_n57449_ + (read-substring _out57447_ '0 _len57445_ _in57443_))) + (string-shrink! _out57447_ _n57449_) + _out57447_)))) (define bytes->string__0 - (lambda (_bstr57244_) - (let ((_enc57246_ 'UTF-8)) + (lambda (_bstr57455_) + (let ((_enc57457_ 'UTF-8)) (declare (not safe)) - (bytes->string__% _bstr57244_ _enc57246_)))) + (bytes->string__% _bstr57455_ _enc57457_)))) (define bytes->string - (lambda _g64223_ - (let ((_g64222_ (let () (declare (not safe)) (##length _g64223_)))) - (cond ((let () (declare (not safe)) (##fx= _g64222_ 1)) - (apply (lambda (_bstr57244_) + (lambda _g64434_ + (let ((_g64433_ (let () (declare (not safe)) (##length _g64434_)))) + (cond ((let () (declare (not safe)) (##fx= _g64433_ 1)) + (apply (lambda (_bstr57455_) (let () (declare (not safe)) - (bytes->string__0 _bstr57244_))) - _g64223_)) - ((let () (declare (not safe)) (##fx= _g64222_ 2)) - (apply (lambda (_bstr57248_ _enc57249_) + (bytes->string__0 _bstr57455_))) + _g64434_)) + ((let () (declare (not safe)) (##fx= _g64433_ 2)) + (apply (lambda (_bstr57459_ _enc57460_) (let () (declare (not safe)) - (bytes->string__% _bstr57248_ _enc57249_))) - _g64223_)) + (bytes->string__% _bstr57459_ _enc57460_))) + _g64434_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g64223_)))))) + _g64434_)))))) (define string->bytes__% - (lambda (_str57215_ _enc57216_) - (if (let () (declare (not safe)) (eq? _enc57216_ 'UTF-8)) - (string->utf8 _str57215_) + (lambda (_str57426_ _enc57427_) + (if (let () (declare (not safe)) (eq? _enc57427_ 'UTF-8)) + (string->utf8 _str57426_) (substring->bytes - _str57215_ + _str57426_ '0 - (string-length _str57215_) - _enc57216_)))) + (string-length _str57426_) + _enc57427_)))) (define string->bytes__0 - (lambda (_str57221_) - (let ((_enc57223_ 'UTF-8)) + (lambda (_str57432_) + (let ((_enc57434_ 'UTF-8)) (declare (not safe)) - (string->bytes__% _str57221_ _enc57223_)))) + (string->bytes__% _str57432_ _enc57434_)))) (define string->bytes - (lambda _g64225_ - (let ((_g64224_ (let () (declare (not safe)) (##length _g64225_)))) - (cond ((let () (declare (not safe)) (##fx= _g64224_ 1)) - (apply (lambda (_str57221_) + (lambda _g64436_ + (let ((_g64435_ (let () (declare (not safe)) (##length _g64436_)))) + (cond ((let () (declare (not safe)) (##fx= _g64435_ 1)) + (apply (lambda (_str57432_) (let () (declare (not safe)) - (string->bytes__0 _str57221_))) - _g64225_)) - ((let () (declare (not safe)) (##fx= _g64224_ 2)) - (apply (lambda (_str57225_ _enc57226_) + (string->bytes__0 _str57432_))) + _g64436_)) + ((let () (declare (not safe)) (##fx= _g64435_ 2)) + (apply (lambda (_str57436_ _enc57437_) (let () (declare (not safe)) - (string->bytes__% _str57225_ _enc57226_))) - _g64225_)) + (string->bytes__% _str57436_ _enc57437_))) + _g64436_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g64225_)))))) + _g64436_)))))) (define substring->bytes__% - (lambda (_str57193_ _start57194_ _end57195_ _enc57196_) - (if (let () (declare (not safe)) (eq? _enc57196_ 'UTF-8)) - (string->utf8 _str57193_ _start57194_ _end57195_) - (let ((_out57198_ + (lambda (_str57404_ _start57405_ _end57406_ _enc57407_) + (if (let () (declare (not safe)) (eq? _enc57407_ 'UTF-8)) + (string->utf8 _str57404_ _start57405_ _end57406_) + (let ((_out57409_ (open-output-u8vector - (let ((__tmp64226 + (let ((__tmp64437 (let () (declare (not safe)) - (cons _enc57196_ '())))) + (cons _enc57407_ '())))) (declare (not safe)) - (cons 'char-encoding: __tmp64226))))) - (write-substring _str57193_ _start57194_ _end57195_ _out57198_) - (get-output-u8vector _out57198_))))) + (cons 'char-encoding: __tmp64437))))) + (write-substring _str57404_ _start57405_ _end57406_ _out57409_) + (get-output-u8vector _out57409_))))) (define substring->bytes__0 - (lambda (_str57203_ _start57204_ _end57205_) - (let ((_enc57207_ 'UTF-8)) + (lambda (_str57414_ _start57415_ _end57416_) + (let ((_enc57418_ 'UTF-8)) (declare (not safe)) (substring->bytes__% - _str57203_ - _start57204_ - _end57205_ - _enc57207_)))) + _str57414_ + _start57415_ + _end57416_ + _enc57418_)))) (define substring->bytes - (lambda _g64228_ - (let ((_g64227_ (let () (declare (not safe)) (##length _g64228_)))) - (cond ((let () (declare (not safe)) (##fx= _g64227_ 3)) - (apply (lambda (_str57203_ _start57204_ _end57205_) + (lambda _g64439_ + (let ((_g64438_ (let () (declare (not safe)) (##length _g64439_)))) + (cond ((let () (declare (not safe)) (##fx= _g64438_ 3)) + (apply (lambda (_str57414_ _start57415_ _end57416_) (let () (declare (not safe)) (substring->bytes__0 - _str57203_ - _start57204_ - _end57205_))) - _g64228_)) - ((let () (declare (not safe)) (##fx= _g64227_ 4)) - (apply (lambda (_str57209_ _start57210_ _end57211_ _enc57212_) + _str57414_ + _start57415_ + _end57416_))) + _g64439_)) + ((let () (declare (not safe)) (##fx= _g64438_ 4)) + (apply (lambda (_str57420_ _start57421_ _end57422_ _enc57423_) (let () (declare (not safe)) (substring->bytes__% - _str57209_ - _start57210_ - _end57211_ - _enc57212_))) - _g64228_)) + _str57420_ + _start57421_ + _end57422_ + _enc57423_))) + _g64439_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g64228_)))))) + _g64439_)))))) (define string-empty? - (lambda (_str57190_) - (let ((__tmp64229 (string-length _str57190_))) + (lambda (_str57401_) + (let ((__tmp64440 (string-length _str57401_))) (declare (not safe)) - (##fxzero? __tmp64229)))) + (##fxzero? __tmp64440)))) (define string-prefix? - (lambda (_prefix57180_ _str57181_) - (let ((_str-len57183_ (string-length _str57181_)) - (_prefix-len57184_ (string-length _prefix57180_))) + (lambda (_prefix57391_ _str57392_) + (let ((_str-len57394_ (string-length _str57392_)) + (_prefix-len57395_ (string-length _prefix57391_))) (if (let () (declare (not safe)) - (##fx<= _prefix-len57184_ _str-len57183_)) - (let _lp57186_ ((_i57188_ '0)) + (##fx<= _prefix-len57395_ _str-len57394_)) + (let _lp57397_ ((_i57399_ '0)) (if (let () (declare (not safe)) - (##fx< _i57188_ _prefix-len57184_)) - (if (let ((__tmp64232 + (##fx< _i57399_ _prefix-len57395_)) + (if (let ((__tmp64443 (let () (declare (not safe)) - (##string-ref _str57181_ _i57188_))) - (__tmp64231 + (##string-ref _str57392_ _i57399_))) + (__tmp64442 (let () (declare (not safe)) - (##string-ref _prefix57180_ _i57188_)))) + (##string-ref _prefix57391_ _i57399_)))) (declare (not safe)) - (eq? __tmp64232 __tmp64231)) - (let ((__tmp64230 + (eq? __tmp64443 __tmp64442)) + (let ((__tmp64441 (let () (declare (not safe)) - (##fx+ _i57188_ '1)))) + (##fx+ _i57399_ '1)))) (declare (not safe)) - (_lp57186_ __tmp64230)) + (_lp57397_ __tmp64441)) '#f) '#t)) '#f)))) (define string-index__% - (lambda (_str57158_ _char57159_ _start57160_) - (let ((_len57162_ (string-length _str57158_))) - (let _lp57164_ ((_k57166_ _start57160_)) - (if (let () (declare (not safe)) (##fx< _k57166_ _len57162_)) - (if (let ((__tmp64234 + (lambda (_str57369_ _char57370_ _start57371_) + (let ((_len57373_ (string-length _str57369_))) + (let _lp57375_ ((_k57377_ _start57371_)) + (if (let () (declare (not safe)) (##fx< _k57377_ _len57373_)) + (if (let ((__tmp64445 (let () (declare (not safe)) - (##string-ref _str57158_ _k57166_)))) + (##string-ref _str57369_ _k57377_)))) (declare (not safe)) - (eq? _char57159_ __tmp64234)) - _k57166_ - (let ((__tmp64233 - (let () (declare (not safe)) (##fx+ _k57166_ '1)))) + (eq? _char57370_ __tmp64445)) + _k57377_ + (let ((__tmp64444 + (let () (declare (not safe)) (##fx+ _k57377_ '1)))) (declare (not safe)) - (_lp57164_ __tmp64233))) + (_lp57375_ __tmp64444))) '#f))))) (define string-index__0 - (lambda (_str57171_ _char57172_) - (let ((_start57174_ '0)) + (lambda (_str57382_ _char57383_) + (let ((_start57385_ '0)) (declare (not safe)) - (string-index__% _str57171_ _char57172_ _start57174_)))) + (string-index__% _str57382_ _char57383_ _start57385_)))) (define string-index - (lambda _g64236_ - (let ((_g64235_ (let () (declare (not safe)) (##length _g64236_)))) - (cond ((let () (declare (not safe)) (##fx= _g64235_ 2)) - (apply (lambda (_str57171_ _char57172_) + (lambda _g64447_ + (let ((_g64446_ (let () (declare (not safe)) (##length _g64447_)))) + (cond ((let () (declare (not safe)) (##fx= _g64446_ 2)) + (apply (lambda (_str57382_ _char57383_) (let () (declare (not safe)) - (string-index__0 _str57171_ _char57172_))) - _g64236_)) - ((let () (declare (not safe)) (##fx= _g64235_ 3)) - (apply (lambda (_str57176_ _char57177_ _start57178_) + (string-index__0 _str57382_ _char57383_))) + _g64447_)) + ((let () (declare (not safe)) (##fx= _g64446_ 3)) + (apply (lambda (_str57387_ _char57388_ _start57389_) (let () (declare (not safe)) (string-index__% - _str57176_ - _char57177_ - _start57178_))) - _g64236_)) + _str57387_ + _char57388_ + _start57389_))) + _g64447_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g64236_)))))) + _g64447_)))))) (define string-rindex__% - (lambda (_str57129_ _char57130_ _start57131_) - (let* ((_len57133_ (string-length _str57129_)) - (_start57138_ - (let ((_$e57135_ _start57131_)) - (if _$e57135_ - _$e57135_ - (let () (declare (not safe)) (##fx- _len57133_ '1)))))) - (let _lp57141_ ((_k57143_ _start57138_)) - (if (let () (declare (not safe)) (##fx>= _k57143_ '0)) - (if (let ((__tmp64238 + (lambda (_str57340_ _char57341_ _start57342_) + (let* ((_len57344_ (string-length _str57340_)) + (_start57349_ + (let ((_$e57346_ _start57342_)) + (if _$e57346_ + _$e57346_ + (let () (declare (not safe)) (##fx- _len57344_ '1)))))) + (let _lp57352_ ((_k57354_ _start57349_)) + (if (let () (declare (not safe)) (##fx>= _k57354_ '0)) + (if (let ((__tmp64449 (let () (declare (not safe)) - (##string-ref _str57129_ _k57143_)))) + (##string-ref _str57340_ _k57354_)))) (declare (not safe)) - (eq? _char57130_ __tmp64238)) - _k57143_ - (let ((__tmp64237 - (let () (declare (not safe)) (##fx- _k57143_ '1)))) + (eq? _char57341_ __tmp64449)) + _k57354_ + (let ((__tmp64448 + (let () (declare (not safe)) (##fx- _k57354_ '1)))) (declare (not safe)) - (_lp57141_ __tmp64237))) + (_lp57352_ __tmp64448))) '#f))))) (define string-rindex__0 - (lambda (_str57148_ _char57149_) - (let ((_start57151_ '#f)) + (lambda (_str57359_ _char57360_) + (let ((_start57362_ '#f)) (declare (not safe)) - (string-rindex__% _str57148_ _char57149_ _start57151_)))) + (string-rindex__% _str57359_ _char57360_ _start57362_)))) (define string-rindex - (lambda _g64240_ - (let ((_g64239_ (let () (declare (not safe)) (##length _g64240_)))) - (cond ((let () (declare (not safe)) (##fx= _g64239_ 2)) - (apply (lambda (_str57148_ _char57149_) + (lambda _g64451_ + (let ((_g64450_ (let () (declare (not safe)) (##length _g64451_)))) + (cond ((let () (declare (not safe)) (##fx= _g64450_ 2)) + (apply (lambda (_str57359_ _char57360_) (let () (declare (not safe)) - (string-rindex__0 _str57148_ _char57149_))) - _g64240_)) - ((let () (declare (not safe)) (##fx= _g64239_ 3)) - (apply (lambda (_str57153_ _char57154_ _start57155_) + (string-rindex__0 _str57359_ _char57360_))) + _g64451_)) + ((let () (declare (not safe)) (##fx= _g64450_ 3)) + (apply (lambda (_str57364_ _char57365_ _start57366_) (let () (declare (not safe)) (string-rindex__% - _str57153_ - _char57154_ - _start57155_))) - _g64240_)) + _str57364_ + _char57365_ + _start57366_))) + _g64451_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g64240_)))))) + _g64451_)))))) (define string-split - (lambda (_str57113_ _char57114_) - (let ((_len57116_ (string-length _str57113_))) - (let _lp57118_ ((_start57120_ '0) (_r57121_ '())) - (let ((_$e57123_ + (lambda (_str57324_ _char57325_) + (let ((_len57327_ (string-length _str57324_))) + (let _lp57329_ ((_start57331_ '0) (_r57332_ '())) + (let ((_$e57334_ (let () (declare (not safe)) - (string-index _str57113_ _char57114_ _start57120_)))) - (if _$e57123_ - ((lambda (_end57126_) - (let ((__tmp64244 + (string-index _str57324_ _char57325_ _start57331_)))) + (if _$e57334_ + ((lambda (_end57337_) + (let ((__tmp64455 (let () (declare (not safe)) - (##fx+ _end57126_ '1))) - (__tmp64242 - (let ((__tmp64243 + (##fx+ _end57337_ '1))) + (__tmp64453 + (let ((__tmp64454 (let () (declare (not safe)) (##substring - _str57113_ - _start57120_ - _end57126_)))) + _str57324_ + _start57331_ + _end57337_)))) (declare (not safe)) - (cons __tmp64243 _r57121_)))) + (cons __tmp64454 _r57332_)))) (declare (not safe)) - (_lp57118_ __tmp64244 __tmp64242))) - _$e57123_) + (_lp57329_ __tmp64455 __tmp64453))) + _$e57334_) (if (let () (declare (not safe)) - (##fx< _start57120_ _len57116_)) - (let ((__tmp64241 + (##fx< _start57331_ _len57327_)) + (let ((__tmp64452 (list (let () (declare (not safe)) (##substring - _str57113_ - _start57120_ - _len57116_))))) + _str57324_ + _start57331_ + _len57327_))))) (declare (not safe)) - (foldl1 cons __tmp64241 _r57121_)) - (reverse _r57121_)))))))) + (foldl1 cons __tmp64452 _r57332_)) + (reverse _r57332_)))))))) (define string-join - (lambda (_strs57018_ _join57019_) - (letrec ((_join-length57021_ - (lambda (_strs57072_ _jlen57073_) - (let _lp57075_ ((_rest57077_ _strs57072_) (_len57078_ '0)) - (let* ((_rest5707957087_ _rest57077_) - (_else5708157095_ (lambda () '0)) - (_K5708357101_ - (lambda (_rest57098_ _hd57099_) + (lambda (_strs57229_ _join57230_) + (letrec ((_join-length57232_ + (lambda (_strs57283_ _jlen57284_) + (let _lp57286_ ((_rest57288_ _strs57283_) (_len57289_ '0)) + (let* ((_rest5729057298_ _rest57288_) + (_else5729257306_ (lambda () '0)) + (_K5729457312_ + (lambda (_rest57309_ _hd57310_) (if (let () (declare (not safe)) - (string? _hd57099_)) + (string? _hd57310_)) (if (let () (declare (not safe)) - (pair? _rest57098_)) - (let ((__tmp64246 - (let ((__tmp64247 + (pair? _rest57309_)) + (let ((__tmp64457 + (let ((__tmp64458 (let () (declare (not safe)) (##string-length - _hd57099_)))) + _hd57310_)))) (declare (not safe)) - (##fx+ __tmp64247 - _jlen57073_ - _len57078_)))) + (##fx+ __tmp64458 + _jlen57284_ + _len57289_)))) (declare (not safe)) - (_lp57075_ _rest57098_ __tmp64246)) - (let ((__tmp64245 + (_lp57286_ _rest57309_ __tmp64457)) + (let ((__tmp64456 (let () (declare (not safe)) - (##string-length _hd57099_)))) + (##string-length _hd57310_)))) (declare (not safe)) - (##fx+ __tmp64245 _len57078_))) - (error '"expected string" _hd57099_))))) + (##fx+ __tmp64456 _len57289_))) + (error '"expected string" _hd57310_))))) (if (let () (declare (not safe)) - (##pair? _rest5707957087_)) - (let ((_hd5708457104_ + (##pair? _rest5729057298_)) + (let ((_hd5729557315_ (let () (declare (not safe)) - (##car _rest5707957087_))) - (_tl5708557106_ + (##car _rest5729057298_))) + (_tl5729657317_ (let () (declare (not safe)) - (##cdr _rest5707957087_)))) - (let* ((_hd57109_ _hd5708457104_) - (_rest57111_ _tl5708557106_)) + (##cdr _rest5729057298_)))) + (let* ((_hd57320_ _hd5729557315_) + (_rest57322_ _tl5729657317_)) (declare (not safe)) - (_K5708357101_ _rest57111_ _hd57109_))) + (_K5729457312_ _rest57322_ _hd57320_))) (let () (declare (not safe)) - (_else5708157095_)))))))) - (let* ((_join57023_ - (if (let () (declare (not safe)) (char? _join57019_)) - (string _join57019_) - (if (let () (declare (not safe)) (string? _join57019_)) - _join57019_ - (error '"expected string or char" _join57019_)))) - (_jlen57025_ - (let () (declare (not safe)) (##string-length _join57023_))) - (_olen57027_ + (_else5729257306_)))))))) + (let* ((_join57234_ + (if (let () (declare (not safe)) (char? _join57230_)) + (string _join57230_) + (if (let () (declare (not safe)) (string? _join57230_)) + _join57230_ + (error '"expected string or char" _join57230_)))) + (_jlen57236_ + (let () (declare (not safe)) (##string-length _join57234_))) + (_olen57238_ (let () (declare (not safe)) - (_join-length57021_ _strs57018_ _jlen57025_))) - (_ostr57029_ (make-string _olen57027_))) - (let _lp57032_ ((_rest57034_ _strs57018_) (_k57035_ '0)) - (let* ((_rest5703657044_ _rest57034_) - (_else5703857052_ (lambda () '"")) - (_K5704057060_ - (lambda (_rest57055_ _hd57056_) - (let ((_hdlen57058_ + (_join-length57232_ _strs57229_ _jlen57236_))) + (_ostr57240_ (make-string _olen57238_))) + (let _lp57243_ ((_rest57245_ _strs57229_) (_k57246_ '0)) + (let* ((_rest5724757255_ _rest57245_) + (_else5724957263_ (lambda () '"")) + (_K5725157271_ + (lambda (_rest57266_ _hd57267_) + (let ((_hdlen57269_ (let () (declare (not safe)) - (##string-length _hd57056_)))) - (if (let () (declare (not safe)) (pair? _rest57055_)) + (##string-length _hd57267_)))) + (if (let () (declare (not safe)) (pair? _rest57266_)) (begin (let () (declare (not safe)) (##substring-move! - _hd57056_ + _hd57267_ '0 - _hdlen57058_ - _ostr57029_ - _k57035_)) - (let ((__tmp64248 + _hdlen57269_ + _ostr57240_ + _k57246_)) + (let ((__tmp64459 (let () (declare (not safe)) - (##fx+ _k57035_ _hdlen57058_)))) + (##fx+ _k57246_ _hdlen57269_)))) (declare (not safe)) (##substring-move! - _join57023_ + _join57234_ '0 - _jlen57025_ - _ostr57029_ - __tmp64248)) - (let ((__tmp64249 + _jlen57236_ + _ostr57240_ + __tmp64459)) + (let ((__tmp64460 (let () (declare (not safe)) - (##fx+ _k57035_ - _hdlen57058_ - _jlen57025_)))) + (##fx+ _k57246_ + _hdlen57269_ + _jlen57236_)))) (declare (not safe)) - (_lp57032_ _rest57055_ __tmp64249))) + (_lp57243_ _rest57266_ __tmp64460))) (begin (let () (declare (not safe)) (##substring-move! - _hd57056_ + _hd57267_ '0 - _hdlen57058_ - _ostr57029_ - _k57035_)) - _ostr57029_)))))) - (if (let () (declare (not safe)) (##pair? _rest5703657044_)) - (let ((_hd5704157063_ + _hdlen57269_ + _ostr57240_ + _k57246_)) + _ostr57240_)))))) + (if (let () (declare (not safe)) (##pair? _rest5724757255_)) + (let ((_hd5725257274_ (let () (declare (not safe)) - (##car _rest5703657044_))) - (_tl5704257065_ + (##car _rest5724757255_))) + (_tl5725357276_ (let () (declare (not safe)) - (##cdr _rest5703657044_)))) - (let* ((_hd57068_ _hd5704157063_) - (_rest57070_ _tl5704257065_)) + (##cdr _rest5724757255_)))) + (let* ((_hd57279_ _hd5725257274_) + (_rest57281_ _tl5725357276_)) (declare (not safe)) - (_K5704057060_ _rest57070_ _hd57068_))) - (let () (declare (not safe)) (_else5703857052_))))))))) + (_K5725157271_ _rest57281_ _hd57279_))) + (let () (declare (not safe)) (_else5724957263_))))))))) (define read-u8vector - (lambda (_bytes57015_ _port57016_) + (lambda (_bytes57226_ _port57227_) (read-subu8vector - _bytes57015_ + _bytes57226_ '0 - (u8vector-length _bytes57015_) - _port57016_))) + (u8vector-length _bytes57226_) + _port57227_))) (define write-u8vector - (lambda (_bytes57012_ _port57013_) + (lambda (_bytes57223_ _port57224_) (write-subu8vector - _bytes57012_ + _bytes57223_ '0 - (u8vector-length _bytes57012_) - _port57013_))) + (u8vector-length _bytes57223_) + _port57224_))) (define read-string - (lambda (_str57009_ _port57010_) - (read-substring _str57009_ '0 (string-length _str57009_) _port57010_))) + (lambda (_str57220_ _port57221_) + (read-substring _str57220_ '0 (string-length _str57220_) _port57221_))) (define write-string - (lambda (_str57006_ _port57007_) + (lambda (_str57217_ _port57218_) (write-substring - _str57006_ + _str57217_ '0 - (string-length _str57006_) - _port57007_))) + (string-length _str57217_) + _port57218_))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_tag56975_ - _dbg-exprs56976_ - _dbg-thunks56977_ - _expr56978_ - _thunk56979_) - (letrec ((_o56981_ (current-output-port)) - (_e56982_ (current-error-port)) - (_p56983_ (DBG-printer)) - (_f56984_ - (lambda () (force-output _o56981_) (force-output _e56982_))) - (_d56985_ (lambda (_x56992_) (display _x56992_ _e56982_))) - (_w56986_ (lambda (_x56994_) (_p56983_ _x56994_ _e56982_))) - (_n56987_ (lambda () (newline _e56982_))) - (_v56988_ - (lambda (_l56997_) + (lambda (_tag57186_ + _dbg-exprs57187_ + _dbg-thunks57188_ + _expr57189_ + _thunk57190_) + (letrec ((_o57192_ (current-output-port)) + (_e57193_ (current-error-port)) + (_p57194_ (DBG-printer)) + (_f57195_ + (lambda () (force-output _o57192_) (force-output _e57193_))) + (_d57196_ (lambda (_x57203_) (display _x57203_ _e57193_))) + (_w57197_ (lambda (_x57205_) (_p57194_ _x57205_ _e57193_))) + (_n57198_ (lambda () (newline _e57193_))) + (_v57199_ + (lambda (_l57208_) (for-each - (lambda (_x56999_) - (let () (declare (not safe)) (_d56985_ '" ")) - (let () (declare (not safe)) (_w56986_ _x56999_))) - _l56997_) - (let () (declare (not safe)) (_n56987_)))) - (_x56989_ - (lambda (_expr57001_ _thunk57002_) - (let () (declare (not safe)) (_f56984_)) - (let () (declare (not safe)) (_d56985_ '" ")) - (let () (declare (not safe)) (_w56986_ _expr57001_)) - (let () (declare (not safe)) (_d56985_ '" =>")) + (lambda (_x57210_) + (let () (declare (not safe)) (_d57196_ '" ")) + (let () (declare (not safe)) (_w57197_ _x57210_))) + _l57208_) + (let () (declare (not safe)) (_n57198_)))) + (_x57200_ + (lambda (_expr57212_ _thunk57213_) + (let () (declare (not safe)) (_f57195_)) + (let () (declare (not safe)) (_d57196_ '" ")) + (let () (declare (not safe)) (_w57197_ _expr57212_)) + (let () (declare (not safe)) (_d57196_ '" =>")) (call-with-values - _thunk57002_ - (lambda _x57004_ - (let () (declare (not safe)) (_v56988_ _x57004_)) - (let () (declare (not safe)) (_f56984_)) - (apply values _x57004_)))))) - (if _tag56975_ + _thunk57213_ + (lambda _x57215_ + (let () (declare (not safe)) (_v57199_ _x57215_)) + (let () (declare (not safe)) (_f57195_)) + (apply values _x57215_)))))) + (if _tag57186_ (begin - (if (let () (declare (not safe)) (eq? _tag56975_ '#!void)) + (if (let () (declare (not safe)) (eq? _tag57186_ '#!void)) '#!void (begin - (let () (declare (not safe)) (_f56984_)) - (let () (declare (not safe)) (_d56985_ _tag56975_)) - (let () (declare (not safe)) (_n56987_)))) - (for-each _x56989_ _dbg-exprs56976_ _dbg-thunks56977_) - (if _thunk56979_ + (let () (declare (not safe)) (_f57195_)) + (let () (declare (not safe)) (_d57196_ _tag57186_)) + (let () (declare (not safe)) (_n57198_)))) + (for-each _x57200_ _dbg-exprs57187_ _dbg-thunks57188_) + (if _thunk57190_ (let () (declare (not safe)) - (_x56989_ _expr56978_ _thunk56979_)) + (_x57200_ _expr57189_ _thunk57190_)) '#!void)) - (if _thunk56979_ (_thunk56979_) '#!void))))))) + (if _thunk57190_ (_thunk57190_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util__1.scm b/src/bootstrap/gerbil/runtime/util__1.scm index c41d813f4..f9b4c3949 100644 --- a/src/bootstrap/gerbil/runtime/util__1.scm +++ b/src/bootstrap/gerbil/runtime/util__1.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g64537_| + (define |[1]#_g64748_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g64538_| + (define |[1]#_g64749_| (##structure gx#syntax-quote::t 'quote @@ -16,2316 +16,2316 @@ '())) (begin (define |[:0:]#defassget| - (lambda (_$stx55554_) - (let* ((_g5555855576_ - (lambda (_g5555955572_) + (lambda (_$stx55765_) + (let* ((_g5576955787_ + (lambda (_g5577055783_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5555955572_))) - (_g5555755632_ - (lambda (_g5555955580_) - (if (gx#stx-pair? _g5555955580_) - (let ((_e5556455583_ (gx#syntax-e _g5555955580_))) - (let ((_hd5556355587_ + _g5577055783_))) + (_g5576855843_ + (lambda (_g5577055791_) + (if (gx#stx-pair? _g5577055791_) + (let ((_e5577555794_ (gx#syntax-e _g5577055791_))) + (let ((_hd5577455798_ (let () (declare (not safe)) - (##car _e5556455583_))) - (_tl5556255590_ + (##car _e5577555794_))) + (_tl5577355801_ (let () (declare (not safe)) - (##cdr _e5556455583_)))) - (if (gx#stx-pair? _tl5556255590_) - (let ((_e5556755593_ - (gx#syntax-e _tl5556255590_))) - (let ((_hd5556655597_ + (##cdr _e5577555794_)))) + (if (gx#stx-pair? _tl5577355801_) + (let ((_e5577855804_ + (gx#syntax-e _tl5577355801_))) + (let ((_hd5577755808_ (let () (declare (not safe)) - (##car _e5556755593_))) - (_tl5556555600_ + (##car _e5577855804_))) + (_tl5577655811_ (let () (declare (not safe)) - (##cdr _e5556755593_)))) - (if (gx#stx-pair? _tl5556555600_) - (let ((_e5557055603_ - (gx#syntax-e _tl5556555600_))) - (let ((_hd5556955607_ + (##cdr _e5577855804_)))) + (if (gx#stx-pair? _tl5577655811_) + (let ((_e5578155814_ + (gx#syntax-e _tl5577655811_))) + (let ((_hd5578055818_ (let () (declare (not safe)) - (##car _e5557055603_))) - (_tl5556855610_ + (##car _e5578155814_))) + (_tl5577955821_ (let () (declare (not safe)) - (##cdr _e5557055603_)))) - (if (gx#stx-null? _tl5556855610_) - ((lambda (_L55613_ _L55615_) - (let ((__tmp64298 + (##cdr _e5578155814_)))) + (if (gx#stx-null? _tl5577955821_) + ((lambda (_L55824_ _L55826_) + (let ((__tmp64509 (gx#datum->syntax '#f 'def)) - (__tmp64250 - (let ((__tmp64289 - (let ((__tmp64290 + (__tmp64461 + (let ((__tmp64500 + (let ((__tmp64501 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64297 (gx#datum->syntax '#f 'key)) - (__tmp64291 - (let ((__tmp64296 + (let ((__tmp64508 (gx#datum->syntax '#f 'key)) + (__tmp64502 + (let ((__tmp64507 (gx#datum->syntax '#f 'lst)) - (__tmp64292 - (let ((__tmp64293 - (let ((__tmp64295 + (__tmp64503 + (let ((__tmp64504 + (let ((__tmp64506 (gx#datum->syntax '#f 'default)) - (__tmp64294 + (__tmp64505 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp64295 - __tmp64294)))) + (cons __tmp64506 + __tmp64505)))) (declare (not safe)) - (cons __tmp64293 '())))) + (cons __tmp64504 '())))) (declare (not safe)) - (cons __tmp64296 __tmp64292)))) + (cons __tmp64507 __tmp64503)))) (declare (not safe)) - (cons __tmp64297 __tmp64291)))) + (cons __tmp64508 __tmp64502)))) (declare (not safe)) - (cons _L55615_ __tmp64290))) - (__tmp64251 - (let ((__tmp64252 - (let ((__tmp64288 (gx#datum->syntax '#f 'cond)) - (__tmp64253 - (let ((__tmp64270 - (let ((__tmp64275 - (let ((__tmp64287 + (cons _L55826_ __tmp64501))) + (__tmp64462 + (let ((__tmp64463 + (let ((__tmp64499 (gx#datum->syntax '#f 'cond)) + (__tmp64464 + (let ((__tmp64481 + (let ((__tmp64486 + (let ((__tmp64498 (gx#datum->syntax '#f 'and)) - (__tmp64276 - (let ((__tmp64283 + (__tmp64487 + (let ((__tmp64494 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64286 (gx#datum->syntax '#f 'pair?)) - (__tmp64284 - (let ((__tmp64285 (gx#datum->syntax '#f 'lst))) + (let ((__tmp64497 (gx#datum->syntax '#f 'pair?)) + (__tmp64495 + (let ((__tmp64496 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64285 '())))) + (cons __tmp64496 '())))) (declare (not safe)) - (cons __tmp64286 __tmp64284))) - (__tmp64277 - (let ((__tmp64278 - (let ((__tmp64279 - (let ((__tmp64282 + (cons __tmp64497 __tmp64495))) + (__tmp64488 + (let ((__tmp64489 + (let ((__tmp64490 + (let ((__tmp64493 (gx#datum->syntax '#f 'key)) - (__tmp64280 - (let ((__tmp64281 + (__tmp64491 + (let ((__tmp64492 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64281 '())))) + (cons __tmp64492 '())))) (declare (not safe)) - (cons __tmp64282 __tmp64280)))) + (cons __tmp64493 __tmp64491)))) (declare (not safe)) - (cons _L55613_ __tmp64279)))) + (cons _L55824_ __tmp64490)))) (declare (not safe)) - (cons __tmp64278 '())))) + (cons __tmp64489 '())))) (declare (not safe)) - (cons __tmp64283 __tmp64277)))) + (cons __tmp64494 __tmp64488)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64287 - __tmp64276))) - (__tmp64271 - (let ((__tmp64274 + (cons __tmp64498 + __tmp64487))) + (__tmp64482 + (let ((__tmp64485 (gx#datum->syntax '#f '=>)) - (__tmp64272 - (let ((__tmp64273 + (__tmp64483 + (let ((__tmp64484 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cdr))) (declare (not safe)) - (cons __tmp64273 '())))) + (cons __tmp64484 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64274 - __tmp64272)))) + (cons __tmp64485 + __tmp64483)))) (declare (not safe)) - (cons __tmp64275 __tmp64271))) - (__tmp64254 - (let ((__tmp64260 - (let ((__tmp64266 - (let ((__tmp64269 + (cons __tmp64486 __tmp64482))) + (__tmp64465 + (let ((__tmp64471 + (let ((__tmp64477 + (let ((__tmp64480 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'procedure?)) - (__tmp64267 - (let ((__tmp64268 (gx#datum->syntax '#f 'default))) + (__tmp64478 + (let ((__tmp64479 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64268 '())))) + (cons __tmp64479 '())))) (declare (not safe)) - (cons __tmp64269 __tmp64267))) - (__tmp64261 - (let ((__tmp64262 - (let ((__tmp64265 (gx#datum->syntax '#f 'default)) - (__tmp64263 - (let ((__tmp64264 (gx#datum->syntax '#f 'key))) + (cons __tmp64480 __tmp64478))) + (__tmp64472 + (let ((__tmp64473 + (let ((__tmp64476 (gx#datum->syntax '#f 'default)) + (__tmp64474 + (let ((__tmp64475 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64264 '())))) + (cons __tmp64475 '())))) (declare (not safe)) - (cons __tmp64265 __tmp64263)))) + (cons __tmp64476 __tmp64474)))) (declare (not safe)) - (cons __tmp64262 '())))) + (cons __tmp64473 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64266 - __tmp64261))) - (__tmp64255 - (let ((__tmp64256 - (let ((__tmp64259 + (cons __tmp64477 + __tmp64472))) + (__tmp64466 + (let ((__tmp64467 + (let ((__tmp64470 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'else)) - (__tmp64257 - (let ((__tmp64258 (gx#datum->syntax '#f 'default))) + (__tmp64468 + (let ((__tmp64469 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64258 '())))) + (cons __tmp64469 '())))) (declare (not safe)) - (cons __tmp64259 __tmp64257)))) + (cons __tmp64470 __tmp64468)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64256 '())))) + (cons __tmp64467 '())))) (declare (not safe)) - (cons __tmp64260 __tmp64255)))) + (cons __tmp64471 __tmp64466)))) (declare (not safe)) - (cons __tmp64270 __tmp64254)))) + (cons __tmp64481 __tmp64465)))) (declare (not safe)) - (cons __tmp64288 __tmp64253)))) + (cons __tmp64499 __tmp64464)))) (declare (not safe)) - (cons __tmp64252 '())))) + (cons __tmp64463 '())))) (declare (not safe)) - (cons __tmp64289 __tmp64251)))) + (cons __tmp64500 __tmp64462)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64298 - __tmp64250))) - _hd5556955607_ - _hd5556655597_) - (_g5555855576_ _g5555955580_)))) - (_g5555855576_ _g5555955580_)))) - (_g5555855576_ _g5555955580_)))) - (_g5555855576_ _g5555955580_))))) - (_g5555755632_ _$stx55554_)))) + (cons __tmp64509 + __tmp64461))) + _hd5578055818_ + _hd5577755808_) + (_g5576955787_ _g5577055791_)))) + (_g5576955787_ _g5577055791_)))) + (_g5576955787_ _g5577055791_)))) + (_g5576955787_ _g5577055791_))))) + (_g5576855843_ _$stx55765_)))) (define |[:0:]#defpget| - (lambda (_$stx55636_) - (let* ((_g5564055658_ - (lambda (_g5564155654_) + (lambda (_$stx55847_) + (let* ((_g5585155869_ + (lambda (_g5585255865_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5564155654_))) - (_g5563955713_ - (lambda (_g5564155662_) - (if (gx#stx-pair? _g5564155662_) - (let ((_e5564655665_ (gx#syntax-e _g5564155662_))) - (let ((_hd5564555669_ + _g5585255865_))) + (_g5585055924_ + (lambda (_g5585255873_) + (if (gx#stx-pair? _g5585255873_) + (let ((_e5585755876_ (gx#syntax-e _g5585255873_))) + (let ((_hd5585655880_ (let () (declare (not safe)) - (##car _e5564655665_))) - (_tl5564455672_ + (##car _e5585755876_))) + (_tl5585555883_ (let () (declare (not safe)) - (##cdr _e5564655665_)))) - (if (gx#stx-pair? _tl5564455672_) - (let ((_e5564955675_ - (gx#syntax-e _tl5564455672_))) - (let ((_hd5564855679_ + (##cdr _e5585755876_)))) + (if (gx#stx-pair? _tl5585555883_) + (let ((_e5586055886_ + (gx#syntax-e _tl5585555883_))) + (let ((_hd5585955890_ (let () (declare (not safe)) - (##car _e5564955675_))) - (_tl5564755682_ + (##car _e5586055886_))) + (_tl5585855893_ (let () (declare (not safe)) - (##cdr _e5564955675_)))) - (if (gx#stx-pair? _tl5564755682_) - (let ((_e5565255685_ - (gx#syntax-e _tl5564755682_))) - (let ((_hd5565155689_ + (##cdr _e5586055886_)))) + (if (gx#stx-pair? _tl5585855893_) + (let ((_e5586355896_ + (gx#syntax-e _tl5585855893_))) + (let ((_hd5586255900_ (let () (declare (not safe)) - (##car _e5565255685_))) - (_tl5565055692_ + (##car _e5586355896_))) + (_tl5586155903_ (let () (declare (not safe)) - (##cdr _e5565255685_)))) - (if (gx#stx-null? _tl5565055692_) - ((lambda (_L55695_ _L55697_) - (let ((__tmp64368 + (##cdr _e5586355896_)))) + (if (gx#stx-null? _tl5586155903_) + ((lambda (_L55906_ _L55908_) + (let ((__tmp64579 (gx#datum->syntax '#f 'def)) - (__tmp64299 - (let ((__tmp64359 - (let ((__tmp64360 + (__tmp64510 + (let ((__tmp64570 + (let ((__tmp64571 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64367 (gx#datum->syntax '#f 'key)) - (__tmp64361 - (let ((__tmp64366 + (let ((__tmp64578 (gx#datum->syntax '#f 'key)) + (__tmp64572 + (let ((__tmp64577 (gx#datum->syntax '#f 'lst)) - (__tmp64362 - (let ((__tmp64363 - (let ((__tmp64365 + (__tmp64573 + (let ((__tmp64574 + (let ((__tmp64576 (gx#datum->syntax '#f 'default)) - (__tmp64364 + (__tmp64575 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons __tmp64365 - __tmp64364)))) + (cons __tmp64576 + __tmp64575)))) (declare (not safe)) - (cons __tmp64363 '())))) + (cons __tmp64574 '())))) (declare (not safe)) - (cons __tmp64366 __tmp64362)))) + (cons __tmp64577 __tmp64573)))) (declare (not safe)) - (cons __tmp64367 __tmp64361)))) + (cons __tmp64578 __tmp64572)))) (declare (not safe)) - (cons _L55697_ __tmp64360))) - (__tmp64300 - (let ((__tmp64301 - (let ((__tmp64358 (gx#datum->syntax '#f 'let)) - (__tmp64302 - (let ((__tmp64357 + (cons _L55908_ __tmp64571))) + (__tmp64511 + (let ((__tmp64512 + (let ((__tmp64569 (gx#datum->syntax '#f 'let)) + (__tmp64513 + (let ((__tmp64568 (gx#datum->syntax '#f 'lp)) - (__tmp64303 - (let ((__tmp64352 - (let ((__tmp64353 - (let ((__tmp64356 + (__tmp64514 + (let ((__tmp64563 + (let ((__tmp64564 + (let ((__tmp64567 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp64354 - (let ((__tmp64355 (gx#datum->syntax '#f 'lst))) + (__tmp64565 + (let ((__tmp64566 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64355 '())))) + (cons __tmp64566 '())))) (declare (not safe)) - (cons __tmp64356 __tmp64354)))) + (cons __tmp64567 __tmp64565)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64353 '()))) - (__tmp64304 - (let ((__tmp64305 - (let ((__tmp64351 + (cons __tmp64564 '()))) + (__tmp64515 + (let ((__tmp64516 + (let ((__tmp64562 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp64306 - (let ((__tmp64350 (gx#datum->syntax '#f 'rest)) - (__tmp64307 - (let ((__tmp64326 - (let ((__tmp64343 - (let ((__tmp64349 + (__tmp64517 + (let ((__tmp64561 (gx#datum->syntax '#f 'rest)) + (__tmp64518 + (let ((__tmp64537 + (let ((__tmp64554 + (let ((__tmp64560 (gx#datum->syntax '#f '@list)) - (__tmp64344 - (let ((__tmp64348 + (__tmp64555 + (let ((__tmp64559 (gx#datum->syntax '#f 'k)) - (__tmp64345 - (let ((__tmp64347 + (__tmp64556 + (let ((__tmp64558 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'v)) - (__tmp64346 (gx#datum->syntax '#f 'rest))) + (__tmp64557 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64347 __tmp64346)))) + (cons __tmp64558 __tmp64557)))) (declare (not safe)) - (cons __tmp64348 __tmp64345)))) + (cons __tmp64559 __tmp64556)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64349 __tmp64344))) - (__tmp64327 - (let ((__tmp64328 - (let ((__tmp64342 + (cons __tmp64560 __tmp64555))) + (__tmp64538 + (let ((__tmp64539 + (let ((__tmp64553 (gx#datum->syntax '#f 'if)) - (__tmp64329 - (let ((__tmp64337 + (__tmp64540 + (let ((__tmp64548 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64338 - (let ((__tmp64341 (gx#datum->syntax '#f 'k)) - (__tmp64339 - (let ((__tmp64340 + (let ((__tmp64549 + (let ((__tmp64552 (gx#datum->syntax '#f 'k)) + (__tmp64550 + (let ((__tmp64551 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64340 '())))) + (cons __tmp64551 '())))) (declare (not safe)) - (cons __tmp64341 __tmp64339)))) + (cons __tmp64552 __tmp64550)))) (declare (not safe)) - (cons _L55695_ __tmp64338))) - (__tmp64330 - (let ((__tmp64336 (gx#datum->syntax '#f 'v)) - (__tmp64331 - (let ((__tmp64332 - (let ((__tmp64335 + (cons _L55906_ __tmp64549))) + (__tmp64541 + (let ((__tmp64547 (gx#datum->syntax '#f 'v)) + (__tmp64542 + (let ((__tmp64543 + (let ((__tmp64546 (gx#datum->syntax '#f 'lp)) - (__tmp64333 - (let ((__tmp64334 + (__tmp64544 + (let ((__tmp64545 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64334 '())))) + (cons __tmp64545 '())))) (declare (not safe)) - (cons __tmp64335 __tmp64333)))) + (cons __tmp64546 __tmp64544)))) (declare (not safe)) - (cons __tmp64332 '())))) + (cons __tmp64543 '())))) (declare (not safe)) - (cons __tmp64336 __tmp64331)))) + (cons __tmp64547 __tmp64542)))) (declare (not safe)) - (cons __tmp64337 __tmp64330)))) + (cons __tmp64548 __tmp64541)))) (declare (not safe)) - (cons __tmp64342 __tmp64329)))) + (cons __tmp64553 __tmp64540)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64328 '())))) + (cons __tmp64539 '())))) (declare (not safe)) - (cons __tmp64343 __tmp64327))) - (__tmp64308 - (let ((__tmp64309 - (let ((__tmp64325 + (cons __tmp64554 __tmp64538))) + (__tmp64519 + (let ((__tmp64520 + (let ((__tmp64536 (gx#datum->syntax '#f 'else)) - (__tmp64310 - (let ((__tmp64311 - (let ((__tmp64324 + (__tmp64521 + (let ((__tmp64522 + (let ((__tmp64535 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'if)) - (__tmp64312 - (let ((__tmp64320 - (let ((__tmp64323 + (__tmp64523 + (let ((__tmp64531 + (let ((__tmp64534 (gx#datum->syntax '#f 'procedure?)) - (__tmp64321 - (let ((__tmp64322 + (__tmp64532 + (let ((__tmp64533 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64322 '())))) + (cons __tmp64533 '())))) (declare (not safe)) - (cons __tmp64323 __tmp64321))) - (__tmp64313 - (let ((__tmp64316 - (let ((__tmp64319 + (cons __tmp64534 __tmp64532))) + (__tmp64524 + (let ((__tmp64527 + (let ((__tmp64530 (gx#datum->syntax '#f 'default)) - (__tmp64317 - (let ((__tmp64318 + (__tmp64528 + (let ((__tmp64529 (gx#datum->syntax '#f 'key))) (declare (not safe)) - (cons __tmp64318 '())))) + (cons __tmp64529 '())))) (declare (not safe)) - (cons __tmp64319 __tmp64317))) - (__tmp64314 - (let ((__tmp64315 + (cons __tmp64530 __tmp64528))) + (__tmp64525 + (let ((__tmp64526 (gx#datum->syntax '#f 'default))) (declare (not safe)) - (cons __tmp64315 '())))) + (cons __tmp64526 '())))) (declare (not safe)) - (cons __tmp64316 __tmp64314)))) + (cons __tmp64527 __tmp64525)))) (declare (not safe)) - (cons __tmp64320 __tmp64313)))) + (cons __tmp64531 __tmp64524)))) (declare (not safe)) - (cons __tmp64324 __tmp64312)))) + (cons __tmp64535 __tmp64523)))) (declare (not safe)) - (cons __tmp64311 '())))) + (cons __tmp64522 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64325 __tmp64310)))) + (cons __tmp64536 __tmp64521)))) (declare (not safe)) - (cons __tmp64309 '())))) + (cons __tmp64520 '())))) (declare (not safe)) - (cons __tmp64326 __tmp64308)))) + (cons __tmp64537 __tmp64519)))) (declare (not safe)) - (cons __tmp64350 __tmp64307)))) + (cons __tmp64561 __tmp64518)))) (declare (not safe)) - (cons __tmp64351 __tmp64306)))) + (cons __tmp64562 __tmp64517)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64305 '())))) + (cons __tmp64516 '())))) (declare (not safe)) - (cons __tmp64352 __tmp64304)))) + (cons __tmp64563 __tmp64515)))) (declare (not safe)) - (cons __tmp64357 __tmp64303)))) + (cons __tmp64568 __tmp64514)))) (declare (not safe)) - (cons __tmp64358 __tmp64302)))) + (cons __tmp64569 __tmp64513)))) (declare (not safe)) - (cons __tmp64301 '())))) + (cons __tmp64512 '())))) (declare (not safe)) - (cons __tmp64359 __tmp64300)))) + (cons __tmp64570 __tmp64511)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64368 - __tmp64299))) - _hd5565155689_ - _hd5564855679_) - (_g5564055658_ _g5564155662_)))) - (_g5564055658_ _g5564155662_)))) - (_g5564055658_ _g5564155662_)))) - (_g5564055658_ _g5564155662_))))) - (_g5563955713_ _$stx55636_)))) + (cons __tmp64579 + __tmp64510))) + _hd5586255900_ + _hd5585955890_) + (_g5585155869_ _g5585255873_)))) + (_g5585155869_ _g5585255873_)))) + (_g5585155869_ _g5585255873_)))) + (_g5585155869_ _g5585255873_))))) + (_g5585055924_ _$stx55847_)))) (define |[:0:]#defremove1| - (lambda (_$stx55717_) - (let* ((_g5572155739_ - (lambda (_g5572255735_) + (lambda (_$stx55928_) + (let* ((_g5593255950_ + (lambda (_g5593355946_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5572255735_))) - (_g5572055794_ - (lambda (_g5572255743_) - (if (gx#stx-pair? _g5572255743_) - (let ((_e5572755746_ (gx#syntax-e _g5572255743_))) - (let ((_hd5572655750_ + _g5593355946_))) + (_g5593156005_ + (lambda (_g5593355954_) + (if (gx#stx-pair? _g5593355954_) + (let ((_e5593855957_ (gx#syntax-e _g5593355954_))) + (let ((_hd5593755961_ (let () (declare (not safe)) - (##car _e5572755746_))) - (_tl5572555753_ + (##car _e5593855957_))) + (_tl5593655964_ (let () (declare (not safe)) - (##cdr _e5572755746_)))) - (if (gx#stx-pair? _tl5572555753_) - (let ((_e5573055756_ - (gx#syntax-e _tl5572555753_))) - (let ((_hd5572955760_ + (##cdr _e5593855957_)))) + (if (gx#stx-pair? _tl5593655964_) + (let ((_e5594155967_ + (gx#syntax-e _tl5593655964_))) + (let ((_hd5594055971_ (let () (declare (not safe)) - (##car _e5573055756_))) - (_tl5572855763_ + (##car _e5594155967_))) + (_tl5593955974_ (let () (declare (not safe)) - (##cdr _e5573055756_)))) - (if (gx#stx-pair? _tl5572855763_) - (let ((_e5573355766_ - (gx#syntax-e _tl5572855763_))) - (let ((_hd5573255770_ + (##cdr _e5594155967_)))) + (if (gx#stx-pair? _tl5593955974_) + (let ((_e5594455977_ + (gx#syntax-e _tl5593955974_))) + (let ((_hd5594355981_ (let () (declare (not safe)) - (##car _e5573355766_))) - (_tl5573155773_ + (##car _e5594455977_))) + (_tl5594255984_ (let () (declare (not safe)) - (##cdr _e5573355766_)))) - (if (gx#stx-null? _tl5573155773_) - ((lambda (_L55776_ _L55778_) - (let ((__tmp64439 + (##cdr _e5594455977_)))) + (if (gx#stx-null? _tl5594255984_) + ((lambda (_L55987_ _L55989_) + (let ((__tmp64650 (gx#datum->syntax '#f 'def)) - (__tmp64369 - (let ((__tmp64434 - (let ((__tmp64435 + (__tmp64580 + (let ((__tmp64645 + (let ((__tmp64646 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64438 (gx#datum->syntax '#f 'el)) - (__tmp64436 - (let ((__tmp64437 + (let ((__tmp64649 (gx#datum->syntax '#f 'el)) + (__tmp64647 + (let ((__tmp64648 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64437 '())))) + (cons __tmp64648 '())))) (declare (not safe)) - (cons __tmp64438 __tmp64436)))) + (cons __tmp64649 __tmp64647)))) (declare (not safe)) - (cons _L55778_ __tmp64435))) - (__tmp64370 - (let ((__tmp64371 - (let ((__tmp64433 (gx#datum->syntax '#f 'let)) - (__tmp64372 - (let ((__tmp64432 + (cons _L55989_ __tmp64646))) + (__tmp64581 + (let ((__tmp64582 + (let ((__tmp64644 (gx#datum->syntax '#f 'let)) + (__tmp64583 + (let ((__tmp64643 (gx#datum->syntax '#f 'lp)) - (__tmp64373 - (let ((__tmp64421 - (let ((__tmp64428 - (let ((__tmp64431 + (__tmp64584 + (let ((__tmp64632 + (let ((__tmp64639 + (let ((__tmp64642 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'rest)) - (__tmp64429 - (let ((__tmp64430 (gx#datum->syntax '#f 'lst))) + (__tmp64640 + (let ((__tmp64641 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64430 '())))) + (cons __tmp64641 '())))) (declare (not safe)) - (cons __tmp64431 __tmp64429))) - (__tmp64422 - (let ((__tmp64423 - (let ((__tmp64427 (gx#datum->syntax '#f 'r)) - (__tmp64424 - (let ((__tmp64425 - (let ((__tmp64426 + (cons __tmp64642 __tmp64640))) + (__tmp64633 + (let ((__tmp64634 + (let ((__tmp64638 (gx#datum->syntax '#f 'r)) + (__tmp64635 + (let ((__tmp64636 + (let ((__tmp64637 (gx#datum->syntax '#f '@list))) (declare (not safe)) - (cons __tmp64426 '())))) + (cons __tmp64637 '())))) (declare (not safe)) - (cons __tmp64425 '())))) + (cons __tmp64636 '())))) (declare (not safe)) - (cons __tmp64427 __tmp64424)))) + (cons __tmp64638 __tmp64635)))) (declare (not safe)) - (cons __tmp64423 '())))) + (cons __tmp64634 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64428 - __tmp64422))) - (__tmp64374 - (let ((__tmp64375 - (let ((__tmp64420 + (cons __tmp64639 + __tmp64633))) + (__tmp64585 + (let ((__tmp64586 + (let ((__tmp64631 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'match)) - (__tmp64376 - (let ((__tmp64419 (gx#datum->syntax '#f 'rest)) - (__tmp64377 - (let ((__tmp64383 - (let ((__tmp64414 - (let ((__tmp64418 + (__tmp64587 + (let ((__tmp64630 (gx#datum->syntax '#f 'rest)) + (__tmp64588 + (let ((__tmp64594 + (let ((__tmp64625 + (let ((__tmp64629 (gx#datum->syntax '#f '@list)) - (__tmp64415 - (let ((__tmp64417 + (__tmp64626 + (let ((__tmp64628 (gx#datum->syntax '#f 'hd)) - (__tmp64416 + (__tmp64627 (gx#datum->syntax '#f 'rest))) (declare (not safe)) - (cons __tmp64417 - __tmp64416)))) + (cons __tmp64628 + __tmp64627)))) (declare (not safe)) - (cons __tmp64418 __tmp64415))) - (__tmp64384 - (let ((__tmp64385 - (let ((__tmp64413 + (cons __tmp64629 __tmp64626))) + (__tmp64595 + (let ((__tmp64596 + (let ((__tmp64624 (gx#datum->syntax '#f 'if)) - (__tmp64386 - (let ((__tmp64408 + (__tmp64597 + (let ((__tmp64619 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp64409 - (let ((__tmp64412 (gx#datum->syntax '#f 'el)) - (__tmp64410 - (let ((__tmp64411 + (let ((__tmp64620 + (let ((__tmp64623 (gx#datum->syntax '#f 'el)) + (__tmp64621 + (let ((__tmp64622 (gx#datum->syntax '#f 'hd))) (declare (not safe)) - (cons __tmp64411 '())))) + (cons __tmp64622 '())))) (declare (not safe)) - (cons __tmp64412 __tmp64410)))) + (cons __tmp64623 __tmp64621)))) (declare (not safe)) - (cons _L55776_ __tmp64409))) - (__tmp64387 - (let ((__tmp64400 - (let ((__tmp64407 + (cons _L55987_ __tmp64620))) + (__tmp64598 + (let ((__tmp64611 + (let ((__tmp64618 (gx#datum->syntax '#f 'foldl1)) - (__tmp64401 - (let ((__tmp64406 + (__tmp64612 + (let ((__tmp64617 (gx#datum->syntax '#f 'cons)) - (__tmp64402 - (let ((__tmp64405 + (__tmp64613 + (let ((__tmp64616 (gx#datum->syntax '#f 'rest)) - (__tmp64403 - (let ((__tmp64404 + (__tmp64614 + (let ((__tmp64615 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp64404 + (cons __tmp64615 '())))) (declare (not safe)) - (cons __tmp64405 - __tmp64403)))) + (cons __tmp64616 + __tmp64614)))) (declare (not safe)) - (cons __tmp64406 __tmp64402)))) + (cons __tmp64617 __tmp64613)))) (declare (not safe)) - (cons __tmp64407 __tmp64401))) - (__tmp64388 - (let ((__tmp64389 - (let ((__tmp64399 + (cons __tmp64618 __tmp64612))) + (__tmp64599 + (let ((__tmp64600 + (let ((__tmp64610 (gx#datum->syntax '#f 'lp)) - (__tmp64390 - (let ((__tmp64398 + (__tmp64601 + (let ((__tmp64609 (gx#datum->syntax '#f 'rest)) - (__tmp64391 - (let ((__tmp64392 - (let ((__tmp64397 + (__tmp64602 + (let ((__tmp64603 + (let ((__tmp64608 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'cons)) - (__tmp64393 - (let ((__tmp64396 (gx#datum->syntax '#f 'hd)) - (__tmp64394 - (let ((__tmp64395 + (__tmp64604 + (let ((__tmp64607 (gx#datum->syntax '#f 'hd)) + (__tmp64605 + (let ((__tmp64606 (gx#datum->syntax '#f 'r))) (declare (not safe)) - (cons __tmp64395 '())))) + (cons __tmp64606 '())))) (declare (not safe)) - (cons __tmp64396 __tmp64394)))) + (cons __tmp64607 __tmp64605)))) (declare (not safe)) - (cons __tmp64397 __tmp64393)))) + (cons __tmp64608 __tmp64604)))) (declare (not safe)) - (cons __tmp64392 '())))) + (cons __tmp64603 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64398 - __tmp64391)))) + (cons __tmp64609 + __tmp64602)))) (declare (not safe)) - (cons __tmp64399 __tmp64390)))) + (cons __tmp64610 __tmp64601)))) (declare (not safe)) - (cons __tmp64389 '())))) + (cons __tmp64600 '())))) (declare (not safe)) - (cons __tmp64400 __tmp64388)))) + (cons __tmp64611 __tmp64599)))) (declare (not safe)) - (cons __tmp64408 __tmp64387)))) + (cons __tmp64619 __tmp64598)))) (declare (not safe)) - (cons __tmp64413 __tmp64386)))) + (cons __tmp64624 __tmp64597)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64385 '())))) + (cons __tmp64596 '())))) (declare (not safe)) - (cons __tmp64414 __tmp64384))) - (__tmp64378 - (let ((__tmp64379 - (let ((__tmp64382 + (cons __tmp64625 __tmp64595))) + (__tmp64589 + (let ((__tmp64590 + (let ((__tmp64593 (gx#datum->syntax '#f 'else)) - (__tmp64380 - (let ((__tmp64381 + (__tmp64591 + (let ((__tmp64592 (gx#datum->syntax '#f 'lst))) (declare (not safe)) - (cons __tmp64381 '())))) + (cons __tmp64592 '())))) (declare (not safe)) - (cons __tmp64382 __tmp64380)))) + (cons __tmp64593 __tmp64591)))) (declare (not safe)) - (cons __tmp64379 '())))) + (cons __tmp64590 '())))) (declare (not safe)) - (cons __tmp64383 __tmp64378)))) + (cons __tmp64594 __tmp64589)))) (declare (not safe)) - (cons __tmp64419 __tmp64377)))) + (cons __tmp64630 __tmp64588)))) (declare (not safe)) - (cons __tmp64420 __tmp64376)))) + (cons __tmp64631 __tmp64587)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64375 '())))) + (cons __tmp64586 '())))) (declare (not safe)) - (cons __tmp64421 __tmp64374)))) + (cons __tmp64632 __tmp64585)))) (declare (not safe)) - (cons __tmp64432 __tmp64373)))) + (cons __tmp64643 __tmp64584)))) (declare (not safe)) - (cons __tmp64433 __tmp64372)))) + (cons __tmp64644 __tmp64583)))) (declare (not safe)) - (cons __tmp64371 '())))) + (cons __tmp64582 '())))) (declare (not safe)) - (cons __tmp64434 __tmp64370)))) + (cons __tmp64645 __tmp64581)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64439 - __tmp64369))) - _hd5573255770_ - _hd5572955760_) - (_g5572155739_ _g5572255743_)))) - (_g5572155739_ _g5572255743_)))) - (_g5572155739_ _g5572255743_)))) - (_g5572155739_ _g5572255743_))))) - (_g5572055794_ _$stx55717_)))) + (cons __tmp64650 + __tmp64580))) + _hd5594355981_ + _hd5594055971_) + (_g5593255950_ _g5593355954_)))) + (_g5593255950_ _g5593355954_)))) + (_g5593255950_ _g5593355954_)))) + (_g5593255950_ _g5593355954_))))) + (_g5593156005_ _$stx55928_)))) (define |[:0:]#DBG| - (lambda (_$stx55798_) - (let* ((_g5580255813_ - (lambda (_g5580355809_) + (lambda (_$stx56009_) + (let* ((_g5601356024_ + (lambda (_g5601456020_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _g5580355809_))) - (_g5580155842_ - (lambda (_g5580355817_) - (if (gx#stx-pair? _g5580355817_) - (let ((_e5580755820_ (gx#syntax-e _g5580355817_))) - (let ((_hd5580655824_ + _g5601456020_))) + (_g5601256053_ + (lambda (_g5601456028_) + (if (gx#stx-pair? _g5601456028_) + (let ((_e5601856031_ (gx#syntax-e _g5601456028_))) + (let ((_hd5601756035_ (let () (declare (not safe)) - (##car _e5580755820_))) - (_tl5580555827_ + (##car _e5601856031_))) + (_tl5601656038_ (let () (declare (not safe)) - (##cdr _e5580755820_)))) - ((lambda (_L55830_) - (let ((__tmp64441 (gx#datum->syntax '#f 'DBG/1)) - (__tmp64440 + (##cdr _e5601856031_)))) + ((lambda (_L56041_) + (let ((__tmp64652 (gx#datum->syntax '#f 'DBG/1)) + (__tmp64651 (let () (declare (not safe)) - (cons '1 _L55830_)))) + (cons '1 _L56041_)))) (declare (not safe)) - (cons __tmp64441 __tmp64440))) - _tl5580555827_))) - (_g5580255813_ _g5580355817_))))) - (_g5580155842_ _$stx55798_)))) + (cons __tmp64652 __tmp64651))) + _tl5601656038_))) + (_g5601356024_ _g5601456028_))))) + (_g5601256053_ _$stx56009_)))) (define |[:0:]#DBG/1| - (lambda (_$stx55846_) - (let* ((___stx6376263763_ _$stx55846_) - (_g5585756071_ + (lambda (_$stx56057_) + (let* ((___stx6397363974_ _$stx56057_) + (_g5606856282_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - ___stx6376263763_)))) - (let ((___kont6376563766_ - (lambda (_L56924_ _L56926_ _L56927_ _L56928_ _L56929_) - (let ((__tmp64442 - (let ((__tmp64443 - (let ((__tmp64444 - (let ((__tmp64448 - (let ((__tmp64449 - (lambda (_g5695956962_ - _g5696056965_) + ___stx6397363974_)))) + (let ((___kont6397663977_ + (lambda (_L57135_ _L57137_ _L57138_ _L57139_ _L57140_) + (let ((__tmp64653 + (let ((__tmp64654 + (let ((__tmp64655 + (let ((__tmp64659 + (let ((__tmp64660 + (lambda (_g5717057173_ + _g5717157176_) (let () (declare (not safe)) - (cons _g5695956962_ - _g5696056965_))))) + (cons _g5717057173_ + _g5717157176_))))) (declare (not safe)) - (foldr1 __tmp64449 + (foldr1 __tmp64660 '() - _L56927_))) - (__tmp64445 - (let ((__tmp64446 - (let ((__tmp64447 + _L57138_))) + (__tmp64656 + (let ((__tmp64657 + (let ((__tmp64658 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L56924_ '())))) + (cons _L57135_ '())))) (declare (not safe)) - (cons _L56926_ __tmp64447)))) + (cons _L57137_ __tmp64658)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L56928_ __tmp64446)))) + (cons _L57139_ __tmp64657)))) (declare (not safe)) - (cons __tmp64448 __tmp64445)))) + (cons __tmp64659 __tmp64656)))) (declare (not safe)) - (cons '() __tmp64444)))) + (cons '() __tmp64655)))) (declare (not safe)) - (cons '2 __tmp64443)))) + (cons '2 __tmp64654)))) (declare (not safe)) - (cons _L56929_ __tmp64442)))) - (___kont6376963770_ - (lambda (_L56777_ _L56779_ _L56780_ _L56781_) - (let ((__tmp64450 - (let ((__tmp64451 - (let ((__tmp64452 - (let ((__tmp64456 - (let ((__tmp64457 - (lambda (_g5680456807_ - _g5680556810_) + (cons _L57140_ __tmp64653)))) + (___kont6398063981_ + (lambda (_L56988_ _L56990_ _L56991_ _L56992_) + (let ((__tmp64661 + (let ((__tmp64662 + (let ((__tmp64663 + (let ((__tmp64667 + (let ((__tmp64668 + (lambda (_g5701557018_ + _g5701657021_) (let () (declare (not safe)) - (cons _g5680456807_ - _g5680556810_))))) + (cons _g5701557018_ + _g5701657021_))))) (declare (not safe)) - (foldr1 __tmp64457 + (foldr1 __tmp64668 '() - _L56779_))) - (__tmp64453 - (let ((__tmp64454 - (let ((__tmp64455 + _L56990_))) + (__tmp64664 + (let ((__tmp64665 + (let ((__tmp64666 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (cons _L56777_ '())))) + (cons _L56988_ '())))) (declare (not safe)) - (cons _L56777_ __tmp64455)))) + (cons _L56988_ __tmp64666)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons _L56780_ __tmp64454)))) + (cons _L56991_ __tmp64665)))) (declare (not safe)) - (cons __tmp64456 __tmp64453)))) + (cons __tmp64667 __tmp64664)))) (declare (not safe)) - (cons '() __tmp64452)))) + (cons '() __tmp64663)))) (declare (not safe)) - (cons '2 __tmp64451)))) + (cons '2 __tmp64662)))) (declare (not safe)) - (cons _L56781_ __tmp64450)))) - (___kont6377363774_ - (lambda (_L56680_) - (let ((__tmp64469 (gx#datum->syntax '#f 'DBG-helper)) - (__tmp64458 - (let ((__tmp64459 - (let ((__tmp64466 - (let ((__tmp64468 + (cons _L56992_ __tmp64661)))) + (___kont6398463985_ + (lambda (_L56891_) + (let ((__tmp64680 (gx#datum->syntax '#f 'DBG-helper)) + (__tmp64669 + (let ((__tmp64670 + (let ((__tmp64677 + (let ((__tmp64679 (gx#datum->syntax '#f 'quote)) - (__tmp64467 + (__tmp64678 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp64468 __tmp64467))) - (__tmp64460 - (let ((__tmp64463 - (let ((__tmp64465 + (cons __tmp64679 __tmp64678))) + (__tmp64671 + (let ((__tmp64674 + (let ((__tmp64676 (gx#datum->syntax '#f 'quote)) - (__tmp64464 + (__tmp64675 (let () (declare (not safe)) (cons '() '())))) (declare (not safe)) - (cons __tmp64465 __tmp64464))) - (__tmp64461 - (let ((__tmp64462 + (cons __tmp64676 __tmp64675))) + (__tmp64672 + (let ((__tmp64673 (let () (declare (not safe)) (cons '#f '())))) (declare (not safe)) - (cons '#f __tmp64462)))) + (cons '#f __tmp64673)))) (declare (not safe)) - (cons __tmp64463 __tmp64461)))) + (cons __tmp64674 __tmp64672)))) (declare (not safe)) - (cons __tmp64466 __tmp64460)))) + (cons __tmp64677 __tmp64671)))) (declare (not safe)) - (cons _L56680_ __tmp64459)))) + (cons _L56891_ __tmp64670)))) (declare (not safe)) - (cons __tmp64469 __tmp64458)))) - (___kont6377563776_ - (lambda (_L56603_ - _L56605_ - _L56606_ - _L56607_ - _L56608_ - _L56609_) - (let ((__tmp64470 - (let ((__tmp64471 - (let ((__tmp64473 - (let ((__tmp64474 - (let ((__tmp64475 + (cons __tmp64680 __tmp64669)))) + (___kont6398663987_ + (lambda (_L56814_ + _L56816_ + _L56817_ + _L56818_ + _L56819_ + _L56820_) + (let ((__tmp64681 + (let ((__tmp64682 + (let ((__tmp64684 + (let ((__tmp64685 + (let ((__tmp64686 (let () (declare (not safe)) - (cons _L56606_ '())))) + (cons _L56817_ '())))) (declare (not safe)) - (cons _L56607_ __tmp64475)))) + (cons _L56818_ __tmp64686)))) (declare (not safe)) - (cons __tmp64474 _L56608_))) - (__tmp64472 + (cons __tmp64685 _L56819_))) + (__tmp64683 (let () (declare (not safe)) - (cons _L56605_ _L56603_)))) + (cons _L56816_ _L56814_)))) (declare (not safe)) - (cons __tmp64473 __tmp64472)))) + (cons __tmp64684 __tmp64683)))) (declare (not safe)) - (cons '2 __tmp64471)))) + (cons '2 __tmp64682)))) (declare (not safe)) - (cons _L56609_ __tmp64470)))) - (___kont6377763778_ - (lambda (_L56484_ _L56486_ _L56487_ _L56488_ _L56489_) - (let ((__tmp64476 - (let ((__tmp64477 - (let ((__tmp64479 - (let ((__tmp64480 - (let ((__tmp64481 + (cons _L56820_ __tmp64681)))) + (___kont6398863989_ + (lambda (_L56695_ _L56697_ _L56698_ _L56699_ _L56700_) + (let ((__tmp64687 + (let ((__tmp64688 + (let ((__tmp64690 + (let ((__tmp64691 + (let ((__tmp64692 (let () (declare (not safe)) - (cons _L56487_ '())))) + (cons _L56698_ '())))) (declare (not safe)) - (cons _L56487_ __tmp64481)))) + (cons _L56698_ __tmp64692)))) (declare (not safe)) - (cons __tmp64480 _L56488_))) - (__tmp64478 + (cons __tmp64691 _L56699_))) + (__tmp64689 (let () (declare (not safe)) - (cons _L56486_ _L56484_)))) + (cons _L56697_ _L56695_)))) (declare (not safe)) - (cons __tmp64479 __tmp64478)))) + (cons __tmp64690 __tmp64689)))) (declare (not safe)) - (cons '2 __tmp64477)))) + (cons '2 __tmp64688)))) (declare (not safe)) - (cons _L56489_ __tmp64476)))) - (___kont6377963780_ - (lambda (_L56401_ _L56403_ _L56404_) - (let ((__tmp64482 - (let ((__tmp64483 - (let ((__tmp64484 + (cons _L56700_ __tmp64687)))) + (___kont6399063991_ + (lambda (_L56612_ _L56614_ _L56615_) + (let ((__tmp64693 + (let ((__tmp64694 + (let ((__tmp64695 (let () (declare (not safe)) - (cons _L56403_ _L56401_)))) + (cons _L56614_ _L56612_)))) (declare (not safe)) - (cons '() __tmp64484)))) + (cons '() __tmp64695)))) (declare (not safe)) - (cons '3 __tmp64483)))) + (cons '3 __tmp64694)))) (declare (not safe)) - (cons _L56404_ __tmp64482)))) - (___kont6378163782_ - (lambda (_L56322_ _L56324_ _L56325_ _L56326_ _L56327_) - (let ((__tmp64485 - (let ((__tmp64486 - (let ((__tmp64488 + (cons _L56615_ __tmp64693)))) + (___kont6399263993_ + (lambda (_L56533_ _L56535_ _L56536_ _L56537_ _L56538_) + (let ((__tmp64696 + (let ((__tmp64697 + (let ((__tmp64699 (let () (declare (not safe)) - (cons _L56325_ _L56326_))) - (__tmp64487 + (cons _L56536_ _L56537_))) + (__tmp64698 (let () (declare (not safe)) - (cons _L56324_ _L56322_)))) + (cons _L56535_ _L56533_)))) (declare (not safe)) - (cons __tmp64488 __tmp64487)))) + (cons __tmp64699 __tmp64698)))) (declare (not safe)) - (cons '3 __tmp64486)))) + (cons '3 __tmp64697)))) (declare (not safe)) - (cons _L56327_ __tmp64485)))) - (___kont6378363784_ - (lambda (_L56206_ - _L56208_ - _L56209_ - _L56210_ - _L56211_ - _L56212_) - (let ((__tmp64536 (gx#datum->syntax '#f 'let)) - (__tmp64489 - (let ((__tmp64524 - (let ((__tmp64533 - (let ((__tmp64535 + (cons _L56538_ __tmp64696)))) + (___kont6399463995_ + (lambda (_L56417_ + _L56419_ + _L56420_ + _L56421_ + _L56422_ + _L56423_) + (let ((__tmp64747 (gx#datum->syntax '#f 'let)) + (__tmp64700 + (let ((__tmp64735 + (let ((__tmp64744 + (let ((__tmp64746 (gx#datum->syntax '#f 'tagval)) - (__tmp64534 + (__tmp64745 (let () (declare (not safe)) - (cons _L56209_ '())))) + (cons _L56420_ '())))) (declare (not safe)) - (cons __tmp64535 __tmp64534))) - (__tmp64525 - (let ((__tmp64526 - (let ((__tmp64532 + (cons __tmp64746 __tmp64745))) + (__tmp64736 + (let ((__tmp64737 + (let ((__tmp64743 (gx#datum->syntax '#f 'thunk)) - (__tmp64527 - (let ((__tmp64528 - (let ((__tmp64531 + (__tmp64738 + (let ((__tmp64739 + (let ((__tmp64742 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'lambda)) - (__tmp64529 - (let ((__tmp64530 + (__tmp64740 + (let ((__tmp64741 (let () (declare (not safe)) - (cons _L56206_ '())))) + (cons _L56417_ '())))) (declare (not safe)) - (cons '() __tmp64530)))) + (cons '() __tmp64741)))) (declare (not safe)) - (cons __tmp64531 __tmp64529)))) + (cons __tmp64742 __tmp64740)))) (declare (not safe)) - (cons __tmp64528 '())))) + (cons __tmp64739 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64532 - __tmp64527)))) + (cons __tmp64743 + __tmp64738)))) (declare (not safe)) - (cons __tmp64526 '())))) + (cons __tmp64737 '())))) (declare (not safe)) - (cons __tmp64533 __tmp64525))) - (__tmp64490 - (let ((__tmp64491 - (let ((__tmp64523 + (cons __tmp64744 __tmp64736))) + (__tmp64701 + (let ((__tmp64702 + (let ((__tmp64734 (gx#datum->syntax '#f 'if)) - (__tmp64492 - (let ((__tmp64522 + (__tmp64703 + (let ((__tmp64733 (gx#datum->syntax '#f 'tagval)) - (__tmp64493 - (let ((__tmp64497 - (let ((__tmp64521 + (__tmp64704 + (let ((__tmp64708 + (let ((__tmp64732 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#datum->syntax '#f 'DBG-helper)) - (__tmp64498 - (let ((__tmp64520 (gx#datum->syntax '#f 'tagval)) - (__tmp64499 - (let ((__tmp64515 - (let ((__tmp64519 + (__tmp64709 + (let ((__tmp64731 (gx#datum->syntax '#f 'tagval)) + (__tmp64710 + (let ((__tmp64726 + (let ((__tmp64730 (gx#datum->syntax '#f 'quote)) - (__tmp64516 - (let ((__tmp64517 - (let ((__tmp64518 - (lambda (_g5624656249_ + (__tmp64727 + (let ((__tmp64728 + (let ((__tmp64729 + (lambda (_g5645756460_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5624756252_) + _g5645856463_) (let () (declare (not safe)) - (cons _g5624656249_ _g5624756252_))))) + (cons _g5645756460_ _g5645856463_))))) (declare (not safe)) - (foldr1 __tmp64518 '() _L56211_)))) + (foldr1 __tmp64729 '() _L56422_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64517 '())))) + (cons __tmp64728 '())))) (declare (not safe)) - (cons __tmp64519 __tmp64516))) - (__tmp64500 - (let ((__tmp64507 - (let ((__tmp64514 + (cons __tmp64730 __tmp64727))) + (__tmp64711 + (let ((__tmp64718 + (let ((__tmp64725 (gx#datum->syntax '#f 'list)) - (__tmp64508 - (let ((__tmp64509 - (lambda (_g5624456255_ + (__tmp64719 + (let ((__tmp64720 + (lambda (_g5645556466_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g5624556258_) - (let ((__tmp64510 - (let ((__tmp64513 + _g5645656469_) + (let ((__tmp64721 + (let ((__tmp64724 (gx#datum->syntax '#f 'lambda)) - (__tmp64511 - (let ((__tmp64512 + (__tmp64722 + (let ((__tmp64723 (let () (declare (not safe)) - (cons _g5624456255_ '())))) + (cons _g5645556466_ '())))) (declare (not safe)) - (cons '() __tmp64512)))) + (cons '() __tmp64723)))) (declare (not safe)) - (cons __tmp64513 __tmp64511)))) + (cons __tmp64724 __tmp64722)))) (declare (not safe)) - (cons __tmp64510 _g5624556258_))))) + (cons __tmp64721 _g5645656469_))))) (declare (not safe)) - (foldr1 __tmp64509 '() _L56210_)))) + (foldr1 __tmp64720 '() _L56421_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64514 - __tmp64508))) - (__tmp64501 - (let ((__tmp64504 - (let ((__tmp64506 + (cons __tmp64725 + __tmp64719))) + (__tmp64712 + (let ((__tmp64715 + (let ((__tmp64717 (gx#datum->syntax '#f 'quote)) - (__tmp64505 + (__tmp64716 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (cons _L56208_ '())))) + (cons _L56419_ '())))) (declare (not safe)) - (cons __tmp64506 __tmp64505))) - (__tmp64502 - (let ((__tmp64503 (gx#datum->syntax '#f 'thunk))) + (cons __tmp64717 __tmp64716))) + (__tmp64713 + (let ((__tmp64714 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp64503 '())))) + (cons __tmp64714 '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64504 - __tmp64502)))) + (cons __tmp64715 + __tmp64713)))) (declare (not safe)) - (cons __tmp64507 __tmp64501)))) + (cons __tmp64718 __tmp64712)))) (declare (not safe)) - (cons __tmp64515 __tmp64500)))) + (cons __tmp64726 __tmp64711)))) (declare (not safe)) - (cons __tmp64520 __tmp64499)))) + (cons __tmp64731 __tmp64710)))) (declare (not safe)) - (cons __tmp64521 __tmp64498))) - (__tmp64494 - (let ((__tmp64495 - (let ((__tmp64496 (gx#datum->syntax '#f 'thunk))) + (cons __tmp64732 __tmp64709))) + (__tmp64705 + (let ((__tmp64706 + (let ((__tmp64707 (gx#datum->syntax '#f 'thunk))) (declare (not safe)) - (cons __tmp64496 '())))) + (cons __tmp64707 '())))) (declare (not safe)) - (cons __tmp64495 '())))) + (cons __tmp64706 '())))) (declare (not safe)) - (cons __tmp64497 __tmp64494)))) + (cons __tmp64708 __tmp64705)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (cons __tmp64522 - __tmp64493)))) + (cons __tmp64733 + __tmp64704)))) (declare (not safe)) - (cons __tmp64523 __tmp64492)))) + (cons __tmp64734 __tmp64703)))) (declare (not safe)) - (cons __tmp64491 '())))) + (cons __tmp64702 '())))) (declare (not safe)) - (cons __tmp64524 __tmp64490)))) + (cons __tmp64735 __tmp64701)))) (declare (not safe)) - (cons __tmp64536 __tmp64489))))) - (let* ((___match6411364114_ - (lambda (_e5602956078_ - _hd5602856082_ - _tl5602756085_ - _e5603256088_ - _hd5603156092_ - _tl5603056095_ - _e5603356098_ - _e5603656102_ - _hd5603556106_ - _tl5603456109_ - ___splice6378563786_ - _target5603756112_ - _tl5603956115_) - (letrec ((_loop5604056118_ - (lambda (_hd5603856122_ - _exprs5604456125_ - _names5604556127_) - (if (gx#stx-pair? _hd5603856122_) - (let ((_e5604156130_ - (gx#syntax-e _hd5603856122_))) - (let ((_lp-tl5604356137_ + (cons __tmp64747 __tmp64700))))) + (let* ((___match6432464325_ + (lambda (_e5624056289_ + _hd5623956293_ + _tl5623856296_ + _e5624356299_ + _hd5624256303_ + _tl5624156306_ + _e5624456309_ + _e5624756313_ + _hd5624656317_ + _tl5624556320_ + ___splice6399663997_ + _target5624856323_ + _tl5625056326_) + (letrec ((_loop5625156329_ + (lambda (_hd5624956333_ + _exprs5625556336_ + _names5625656338_) + (if (gx#stx-pair? _hd5624956333_) + (let ((_e5625256341_ + (gx#syntax-e _hd5624956333_))) + (let ((_lp-tl5625456348_ (let () (declare (not safe)) - (##cdr _e5604156130_))) - (_lp-hd5604256134_ + (##cdr _e5625256341_))) + (_lp-hd5625356345_ (let () (declare (not safe)) - (##car _e5604156130_)))) - (if (gx#stx-pair? _lp-hd5604256134_) - (let ((_e5605056140_ + (##car _e5625256341_)))) + (if (gx#stx-pair? _lp-hd5625356345_) + (let ((_e5626156351_ (gx#syntax-e - _lp-hd5604256134_))) - (let ((_tl5604856147_ + _lp-hd5625356345_))) + (let ((_tl5625956358_ (let () (declare (not safe)) - (##cdr _e5605056140_))) - (_hd5604956144_ + (##cdr _e5626156351_))) + (_hd5626056355_ (let () (declare (not safe)) - (##car _e5605056140_)))) + (##car _e5626156351_)))) (if (gx#stx-pair? - _tl5604856147_) - (let ((_e5605356150_ + _tl5625956358_) + (let ((_e5626456361_ (gx#syntax-e - _tl5604856147_))) - (let ((_tl5605156157_ + _tl5625956358_))) + (let ((_tl5626256368_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _e5605356150_))) - (_hd5605256154_ - (let () (declare (not safe)) (##car _e5605356150_)))) - (if (gx#stx-null? _tl5605156157_) - (_loop5604056118_ - _lp-tl5604356137_ + (##cdr _e5626456361_))) + (_hd5626356365_ + (let () (declare (not safe)) (##car _e5626456361_)))) + (if (gx#stx-null? _tl5626256368_) + (_loop5625156329_ + _lp-tl5625456348_ (let () (declare (not safe)) - (cons _hd5605256154_ _exprs5604456125_)) + (cons _hd5626356365_ _exprs5625556336_)) (let () (declare (not safe)) - (cons _hd5604956144_ _names5604556127_))) - (let () (declare (not safe)) (_g5585756071_))))) - (let () (declare (not safe)) (_g5585756071_))))) + (cons _hd5626056355_ _names5625656338_))) + (let () (declare (not safe)) (_g5606856282_))))) + (let () (declare (not safe)) (_g5606856282_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5585756071_))))) - (let ((_names5604756163_ - (reverse _names5604556127_)) - (_exprs5604656160_ - (reverse _exprs5604456125_))) - (if (gx#stx-pair? _tl5603456109_) - (let ((_e5605656166_ + (_g5606856282_))))) + (let ((_names5625856374_ + (reverse _names5625656338_)) + (_exprs5625756371_ + (reverse _exprs5625556336_))) + (if (gx#stx-pair? _tl5624556320_) + (let ((_e5626756377_ (gx#syntax-e - _tl5603456109_))) - (let ((_tl5605456173_ + _tl5624556320_))) + (let ((_tl5626556384_ (let () (declare (not safe)) - (##cdr _e5605656166_))) - (_hd5605556170_ + (##cdr _e5626756377_))) + (_hd5626656381_ (let () (declare (not safe)) - (##car _e5605656166_)))) + (##car _e5626756377_)))) (if (gx#stx-null? - _hd5605556170_) + _hd5626656381_) (if (gx#stx-pair? - _tl5605456173_) - (let ((_e5605956176_ + _tl5626556384_) + (let ((_e5627056387_ (gx#syntax-e - _tl5605456173_))) - (let ((_tl5605756183_ + _tl5626556384_))) + (let ((_tl5626856394_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5605956176_))) - (_hd5605856180_ - (let () (declare (not safe)) (##car _e5605956176_)))) - (if (gx#stx-pair? _tl5605756183_) - (let ((_e5606256186_ (gx#syntax-e _tl5605756183_))) - (let ((_tl5606056193_ + (let () (declare (not safe)) (##cdr _e5627056387_))) + (_hd5626956391_ + (let () (declare (not safe)) (##car _e5627056387_)))) + (if (gx#stx-pair? _tl5626856394_) + (let ((_e5627356397_ (gx#syntax-e _tl5626856394_))) + (let ((_tl5627156404_ (let () (declare (not safe)) - (##cdr _e5606256186_))) - (_hd5606156190_ + (##cdr _e5627356397_))) + (_hd5627256401_ (let () (declare (not safe)) - (##car _e5606256186_)))) - (if (gx#stx-pair? _tl5606056193_) - (let ((_e5606556196_ - (gx#syntax-e _tl5606056193_))) - (let ((_tl5606356203_ + (##car _e5627356397_)))) + (if (gx#stx-pair? _tl5627156404_) + (let ((_e5627656407_ + (gx#syntax-e _tl5627156404_))) + (let ((_tl5627456414_ (let () (declare (not safe)) - (##cdr _e5606556196_))) - (_hd5606456200_ + (##cdr _e5627656407_))) + (_hd5627556411_ (let () (declare (not safe)) - (##car _e5606556196_)))) - (if (gx#stx-null? _tl5606356203_) - (___kont6378363784_ - _hd5606456200_ - _hd5606156190_ - _hd5605856180_ - _exprs5604656160_ - _names5604756163_ - _hd5602856082_) + (##car _e5627656407_)))) + (if (gx#stx-null? _tl5627456414_) + (___kont6399463995_ + _hd5627556411_ + _hd5627256401_ + _hd5626956391_ + _exprs5625756371_ + _names5625856374_ + _hd5623956293_) (let () (declare (not safe)) - (_g5585756071_))))) + (_g5606856282_))))) (let () (declare (not safe)) - (_g5585756071_))))) - (let () (declare (not safe)) (_g5585756071_))))) - (let () (declare (not safe)) (_g5585756071_))) + (_g5606856282_))))) + (let () (declare (not safe)) (_g5606856282_))))) + (let () (declare (not safe)) (_g5606856282_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5585756071_))))) + (_g5606856282_))))) (let () (declare (not safe)) - (_g5585756071_)))))))) - (_loop5604056118_ _target5603756112_ '() '())))) - (___match6389163892_ - (lambda (_e5590156703_ - _hd5590056707_ - _tl5589956710_ - _e5590456713_ - _hd5590356717_ - _tl5590256720_ - _e5590556723_ - _e5590856727_ - _hd5590756731_ - _tl5590656734_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (letrec ((_loop5591256753_ - (lambda (_hd5591056757_ _exprs5591656760_) - (if (gx#stx-pair? _hd5591056757_) - (let ((_e5591356763_ - (gx#syntax-e _hd5591056757_))) - (let ((_lp-tl5591556770_ + (_g5606856282_)))))))) + (_loop5625156329_ _target5624856323_ '() '())))) + (___match6410264103_ + (lambda (_e5611256914_ + _hd5611156918_ + _tl5611056921_ + _e5611556924_ + _hd5611456928_ + _tl5611356931_ + _e5611656934_ + _e5611956938_ + _hd5611856942_ + _tl5611756945_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (letrec ((_loop5612356964_ + (lambda (_hd5612156968_ _exprs5612756971_) + (if (gx#stx-pair? _hd5612156968_) + (let ((_e5612456974_ + (gx#syntax-e _hd5612156968_))) + (let ((_lp-tl5612656981_ (let () (declare (not safe)) - (##cdr _e5591356763_))) - (_lp-hd5591456767_ + (##cdr _e5612456974_))) + (_lp-hd5612556978_ (let () (declare (not safe)) - (##car _e5591356763_)))) - (_loop5591256753_ - _lp-tl5591556770_ + (##car _e5612456974_)))) + (_loop5612356964_ + _lp-tl5612656981_ (let () (declare (not safe)) - (cons _lp-hd5591456767_ - _exprs5591656760_))))) - (let ((_exprs5591756773_ - (reverse _exprs5591656760_))) - (___kont6376963770_ - _hd5591956747_ - _exprs5591756773_ - _hd5590756731_ - _hd5590056707_)))))) - (_loop5591256753_ _target5590956737_ '())))) - (___match6385163852_ - (lambda (_e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6376763768_ - _target5587456854_ - _tl5587656857_ - _e5588556860_ - _hd5588456864_ - _tl5588356867_ - _e5588856870_ - _hd5588756874_ - _tl5588656877_ - _e5589156880_ - _hd5589056884_ - _tl5588956887_ - _e5589456890_ - _hd5589356894_ - _tl5589256897_) - (letrec ((_loop5587756900_ - (lambda (_hd5587556904_ _exprs5588156907_) - (if (gx#stx-pair? _hd5587556904_) - (let ((_e5587856910_ - (gx#syntax-e _hd5587556904_))) - (let ((_lp-tl5588056917_ + (cons _lp-hd5612556978_ + _exprs5612756971_))))) + (let ((_exprs5612856984_ + (reverse _exprs5612756971_))) + (___kont6398063981_ + _hd5613056958_ + _exprs5612856984_ + _hd5611856942_ + _hd5611156918_)))))) + (_loop5612356964_ _target5612056948_ '())))) + (___match6406264063_ + (lambda (_e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6397863979_ + _target5608557065_ + _tl5608757068_ + _e5609657071_ + _hd5609557075_ + _tl5609457078_ + _e5609957081_ + _hd5609857085_ + _tl5609757088_ + _e5610257091_ + _hd5610157095_ + _tl5610057098_ + _e5610557101_ + _hd5610457105_ + _tl5610357108_) + (letrec ((_loop5608857111_ + (lambda (_hd5608657115_ _exprs5609257118_) + (if (gx#stx-pair? _hd5608657115_) + (let ((_e5608957121_ + (gx#syntax-e _hd5608657115_))) + (let ((_lp-tl5609157128_ (let () (declare (not safe)) - (##cdr _e5587856910_))) - (_lp-hd5587956914_ + (##cdr _e5608957121_))) + (_lp-hd5609057125_ (let () (declare (not safe)) - (##car _e5587856910_)))) - (_loop5587756900_ - _lp-tl5588056917_ + (##car _e5608957121_)))) + (_loop5608857111_ + _lp-tl5609157128_ (let () (declare (not safe)) - (cons _lp-hd5587956914_ - _exprs5588156907_))))) - (let ((_exprs5588256920_ - (reverse _exprs5588156907_))) - (___kont6376563766_ - _hd5589356894_ - _hd5589056884_ - _exprs5588256920_ - _hd5587256848_ - _hd5586556824_)))))) - (_loop5587756900_ _target5587456854_ '()))))) - (if (gx#stx-pair? ___stx6376263763_) - (let ((_e5586656820_ (gx#syntax-e ___stx6376263763_))) - (let ((_tl5586456827_ - (let () (declare (not safe)) (##cdr _e5586656820_))) - (_hd5586556824_ + (cons _lp-hd5609057125_ + _exprs5609257118_))))) + (let ((_exprs5609357131_ + (reverse _exprs5609257118_))) + (___kont6397663977_ + _hd5610457105_ + _hd5610157095_ + _exprs5609357131_ + _hd5608357059_ + _hd5607657035_)))))) + (_loop5608857111_ _target5608557065_ '()))))) + (if (gx#stx-pair? ___stx6397363974_) + (let ((_e5607757031_ (gx#syntax-e ___stx6397363974_))) + (let ((_tl5607557038_ + (let () (declare (not safe)) (##cdr _e5607757031_))) + (_hd5607657035_ (let () (declare (not safe)) - (##car _e5586656820_)))) - (if (gx#stx-pair? _tl5586456827_) - (let ((_e5586956830_ (gx#syntax-e _tl5586456827_))) - (let ((_tl5586756837_ + (##car _e5607757031_)))) + (if (gx#stx-pair? _tl5607557038_) + (let ((_e5608057041_ (gx#syntax-e _tl5607557038_))) + (let ((_tl5607857048_ (let () (declare (not safe)) - (##cdr _e5586956830_))) - (_hd5586856834_ + (##cdr _e5608057041_))) + (_hd5607957045_ (let () (declare (not safe)) - (##car _e5586956830_)))) - (if (gx#stx-datum? _hd5586856834_) - (let ((_e5587056840_ - (gx#stx-e _hd5586856834_))) + (##car _e5608057041_)))) + (if (gx#stx-datum? _hd5607957045_) + (let ((_e5608157051_ + (gx#stx-e _hd5607957045_))) (if (let () (declare (not safe)) - (equal? _e5587056840_ '1)) - (if (gx#stx-pair? _tl5586756837_) - (let ((_e5587356844_ + (equal? _e5608157051_ '1)) + (if (gx#stx-pair? _tl5607857048_) + (let ((_e5608457055_ (gx#syntax-e - _tl5586756837_))) - (let ((_tl5587156851_ + _tl5607857048_))) + (let ((_tl5608257062_ (let () (declare (not safe)) - (##cdr _e5587356844_))) - (_hd5587256848_ + (##cdr _e5608457055_))) + (_hd5608357059_ (let () (declare (not safe)) - (##car _e5587356844_)))) + (##car _e5608457055_)))) (if (gx#stx-pair/null? - _tl5587156851_) + _tl5608257062_) (if (fx>= (gx#stx-length - _tl5587156851_) + _tl5608257062_) '2) - (let ((___splice6376763768_ + (let ((___splice6397863979_ (gx#syntax-split-splice - _tl5587156851_ + _tl5608257062_ '2))) - (let ((_tl5587656857_ + (let ((_tl5608757068_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref ___splice6376763768_ '1))) - (_target5587456854_ + (##vector-ref ___splice6397863979_ '1))) + (_target5608557065_ (let () (declare (not safe)) - (##vector-ref ___splice6376763768_ '0)))) - (if (gx#stx-pair? _tl5587656857_) - (let ((_e5588556860_ (gx#syntax-e _tl5587656857_))) - (let ((_tl5588356867_ + (##vector-ref ___splice6397863979_ '0)))) + (if (gx#stx-pair? _tl5608757068_) + (let ((_e5609657071_ (gx#syntax-e _tl5608757068_))) + (let ((_tl5609457078_ (let () (declare (not safe)) - (##cdr _e5588556860_))) - (_hd5588456864_ + (##cdr _e5609657071_))) + (_hd5609557075_ (let () (declare (not safe)) - (##car _e5588556860_)))) - (if (gx#stx-pair? _hd5588456864_) - (let ((_e5588856870_ - (gx#syntax-e _hd5588456864_))) - (let ((_tl5588656877_ + (##car _e5609657071_)))) + (if (gx#stx-pair? _hd5609557075_) + (let ((_e5609957081_ + (gx#syntax-e _hd5609557075_))) + (let ((_tl5609757088_ (let () (declare (not safe)) - (##cdr _e5588856870_))) - (_hd5588756874_ + (##cdr _e5609957081_))) + (_hd5609857085_ (let () (declare (not safe)) - (##car _e5588856870_)))) - (if (gx#identifier? _hd5588756874_) + (##car _e5609957081_)))) + (if (gx#identifier? _hd5609857085_) (if (gx#free-identifier=? - |[1]#_g64538_| - _hd5588756874_) - (if (gx#stx-pair? _tl5588656877_) - (let ((_e5589156880_ + |[1]#_g64749_| + _hd5609857085_) + (if (gx#stx-pair? _tl5609757088_) + (let ((_e5610257091_ (gx#syntax-e - _tl5588656877_))) - (let ((_tl5588956887_ + _tl5609757088_))) + (let ((_tl5610057098_ (let () (declare (not safe)) - (##cdr _e5589156880_))) - (_hd5589056884_ + (##cdr _e5610257091_))) + (_hd5610157095_ (let () (declare (not safe)) - (##car _e5589156880_)))) + (##car _e5610257091_)))) (if (gx#stx-null? - _tl5588956887_) + _tl5610057098_) (if (gx#stx-pair? - _tl5588356867_) - (let ((_e5589456890_ + _tl5609457078_) + (let ((_e5610557101_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5588356867_))) - (let ((_tl5589256897_ + (gx#syntax-e _tl5609457078_))) + (let ((_tl5610357108_ (let () (declare (not safe)) - (##cdr _e5589456890_))) - (_hd5589356894_ + (##cdr _e5610557101_))) + (_hd5610457105_ (let () (declare (not safe)) - (##car _e5589456890_)))) - (if (gx#stx-null? _tl5589256897_) - (___match6385163852_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6376763768_ - _target5587456854_ - _tl5587656857_ - _e5588556860_ - _hd5588456864_ - _tl5588356867_ - _e5588856870_ - _hd5588756874_ - _tl5588656877_ - _e5589156880_ - _hd5589056884_ - _tl5588956887_ - _e5589456890_ - _hd5589356894_ - _tl5589256897_) - (if (fx>= (gx#stx-length _tl5587156851_) '1) - (let ((___splice6377163772_ + (##car _e5610557101_)))) + (if (gx#stx-null? _tl5610357108_) + (___match6406264063_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6397863979_ + _target5608557065_ + _tl5608757068_ + _e5609657071_ + _hd5609557075_ + _tl5609457078_ + _e5609957081_ + _hd5609857085_ + _tl5609757088_ + _e5610257091_ + _hd5610157095_ + _tl5610057098_ + _e5610557101_ + _hd5610457105_ + _tl5610357108_) + (if (fx>= (gx#stx-length _tl5608257062_) '1) + (let ((___splice6398263983_ (gx#syntax-split-splice - _tl5587156851_ + _tl5608257062_ '1))) - (let ((_tl5591156740_ + (let ((_tl5612256951_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '1))) - (_target5590956737_ + (_target5612056948_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '0)))) - (if (gx#stx-pair? _tl5591156740_) - (let ((_e5592056743_ - (gx#syntax-e _tl5591156740_))) - (let ((_tl5591856750_ + (if (gx#stx-pair? _tl5612256951_) + (let ((_e5613156954_ + (gx#syntax-e _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ + (##cdr _e5613156954_))) + (_hd5613056958_ (let () (declare (not safe)) - (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) + (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) (if (gx#stx-null? - _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_))))))) - (if (fx>= (gx#stx-length _tl5587156851_) '1) - (let ((___splice6377163772_ - (gx#syntax-split-splice _tl5587156851_ '1))) - (let ((_tl5591156740_ + (_g5606856282_))))))) + (if (fx>= (gx#stx-length _tl5608257062_) '1) + (let ((___splice6398263983_ + (gx#syntax-split-splice _tl5608257062_ '1))) + (let ((_tl5612256951_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '1))) - (_target5590956737_ + (##vector-ref ___splice6398263983_ '1))) + (_target5612056948_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '0)))) - (if (gx#stx-pair? _tl5591156740_) - (let ((_e5592056743_ - (gx#syntax-e _tl5591156740_))) - (let ((_tl5591856750_ + (##vector-ref ___splice6398263983_ '0)))) + (if (gx#stx-pair? _tl5612256951_) + (let ((_e5613156954_ + (gx#syntax-e _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ + (##cdr _e5613156954_))) + (_hd5613056958_ (let () (declare (not safe)) - (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) - (let () (declare (not safe)) (_g5585756071_))))) - (if (fx>= (gx#stx-length _tl5587156851_) '1) - (let ((___splice6377163772_ - (gx#syntax-split-splice _tl5587156851_ '1))) - (let ((_tl5591156740_ + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) + (let () (declare (not safe)) (_g5606856282_))))) + (if (fx>= (gx#stx-length _tl5608257062_) '1) + (let ((___splice6398263983_ + (gx#syntax-split-splice _tl5608257062_ '1))) + (let ((_tl5612256951_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '1))) - (_target5590956737_ + (##vector-ref ___splice6398263983_ '1))) + (_target5612056948_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '0)))) - (if (gx#stx-pair? _tl5591156740_) - (let ((_e5592056743_ (gx#syntax-e _tl5591156740_))) - (let ((_tl5591856750_ + (##vector-ref ___splice6398263983_ '0)))) + (if (gx#stx-pair? _tl5612256951_) + (let ((_e5613156954_ (gx#syntax-e _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ + (##cdr _e5613156954_))) + (_hd5613056958_ (let () (declare (not safe)) - (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) - (let () (declare (not safe)) (_g5585756071_))))))) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) + (let () (declare (not safe)) (_g5606856282_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (fx>= (gx#stx-length - _tl5587156851_) + _tl5608257062_) '1) - (let ((___splice6377163772_ + (let ((___splice6398263983_ (gx#syntax-split-splice - _tl5587156851_ + _tl5608257062_ '1))) - (let ((_tl5591156740_ + (let ((_tl5612256951_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref ___splice6377163772_ '1))) - (_target5590956737_ + (##vector-ref ___splice6398263983_ '1))) + (_target5612056948_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '0)))) - (if (gx#stx-pair? _tl5591156740_) - (let ((_e5592056743_ (gx#syntax-e _tl5591156740_))) - (let ((_tl5591856750_ + (##vector-ref ___splice6398263983_ '0)))) + (if (gx#stx-pair? _tl5612256951_) + (let ((_e5613156954_ (gx#syntax-e _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ + (##cdr _e5613156954_))) + (_hd5613056958_ (let () (declare (not safe)) - (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) - (let () (declare (not safe)) (_g5585756071_)))))) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) + (let () (declare (not safe)) (_g5606856282_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_))))) + (_g5606856282_))))) (if (fx>= (gx#stx-length - _tl5587156851_) + _tl5608257062_) '1) - (let ((___splice6377163772_ + (let ((___splice6398263983_ (gx#syntax-split-splice - _tl5587156851_ + _tl5608257062_ '1))) - (let ((_tl5591156740_ + (let ((_tl5612256951_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '1))) - (_target5590956737_ + (_target5612056948_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '0)))) (if (gx#stx-pair? - _tl5591156740_) - (let ((_e5592056743_ + _tl5612256951_) + (let ((_e5613156954_ (gx#syntax-e - _tl5591156740_))) - (let ((_tl5591856750_ + _tl5612256951_))) + (let ((_tl5612956961_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5592056743_))) - (_hd5591956747_ - (let () (declare (not safe)) (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) - (let () (declare (not safe)) (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) - (let () (declare (not safe)) (_g5585756071_)))))) + (let () (declare (not safe)) (##cdr _e5613156954_))) + (_hd5613056958_ + (let () (declare (not safe)) (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) + (let () (declare (not safe)) (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) + (let () (declare (not safe)) (_g5606856282_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_))))) + (_g5606856282_))))) (if (fx>= (gx#stx-length - _tl5587156851_) + _tl5608257062_) '1) - (let ((___splice6377163772_ + (let ((___splice6398263983_ (gx#syntax-split-splice - _tl5587156851_ + _tl5608257062_ '1))) - (let ((_tl5591156740_ + (let ((_tl5612256951_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '1))) - (_target5590956737_ + (_target5612056948_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '0)))) (if (gx#stx-pair? - _tl5591156740_) - (let ((_e5592056743_ + _tl5612256951_) + (let ((_e5613156954_ (gx#syntax-e - _tl5591156740_))) - (let ((_tl5591856750_ + _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ - (let () (declare (not safe)) (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) - (let () (declare (not safe)) (_g5585756071_)))))) + (##cdr _e5613156954_))) + (_hd5613056958_ + (let () (declare (not safe)) (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) + (let () (declare (not safe)) (_g5606856282_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_))))))) - (if (fx>= (gx#stx-length _tl5587156851_) '1) - (let ((___splice6377163772_ + (_g5606856282_))))))) + (if (fx>= (gx#stx-length _tl5608257062_) '1) + (let ((___splice6398263983_ (gx#syntax-split-splice - _tl5587156851_ + _tl5608257062_ '1))) - (let ((_tl5591156740_ + (let ((_tl5612256951_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '1))) - (_target5590956737_ + (_target5612056948_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '0)))) - (if (gx#stx-pair? _tl5591156740_) - (let ((_e5592056743_ + (if (gx#stx-pair? _tl5612256951_) + (let ((_e5613156954_ (gx#syntax-e - _tl5591156740_))) - (let ((_tl5591856750_ + _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ + (##cdr _e5613156954_))) + (_hd5613056958_ (let () (declare (not safe)) - (##car _e5592056743_)))) + (##car _e5613156954_)))) (if (gx#stx-null? - _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) + _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) (if (gx#stx-null? - _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_))))))) - (if (fx>= (gx#stx-length _tl5587156851_) '1) - (let ((___splice6377163772_ - (gx#syntax-split-splice _tl5587156851_ '1))) - (let ((_tl5591156740_ + (_g5606856282_))))))) + (if (fx>= (gx#stx-length _tl5608257062_) '1) + (let ((___splice6398263983_ + (gx#syntax-split-splice _tl5608257062_ '1))) + (let ((_tl5612256951_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '1))) - (_target5590956737_ + (##vector-ref ___splice6398263983_ '1))) + (_target5612056948_ (let () (declare (not safe)) (##vector-ref - ___splice6377163772_ + ___splice6398263983_ '0)))) - (if (gx#stx-pair? _tl5591156740_) - (let ((_e5592056743_ - (gx#syntax-e _tl5591156740_))) - (let ((_tl5591856750_ + (if (gx#stx-pair? _tl5612256951_) + (let ((_e5613156954_ + (gx#syntax-e _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ + (##cdr _e5613156954_))) + (_hd5613056958_ (let () (declare (not safe)) - (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_))))))) - (if (fx>= (gx#stx-length _tl5587156851_) '1) - (let ((___splice6377163772_ - (gx#syntax-split-splice _tl5587156851_ '1))) - (let ((_tl5591156740_ + (_g5606856282_))))))) + (if (fx>= (gx#stx-length _tl5608257062_) '1) + (let ((___splice6398263983_ + (gx#syntax-split-splice _tl5608257062_ '1))) + (let ((_tl5612256951_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '1))) - (_target5590956737_ + (##vector-ref ___splice6398263983_ '1))) + (_target5612056948_ (let () (declare (not safe)) - (##vector-ref ___splice6377163772_ '0)))) - (if (gx#stx-pair? _tl5591156740_) - (let ((_e5592056743_ (gx#syntax-e _tl5591156740_))) - (let ((_tl5591856750_ + (##vector-ref ___splice6398263983_ '0)))) + (if (gx#stx-pair? _tl5612256951_) + (let ((_e5613156954_ (gx#syntax-e _tl5612256951_))) + (let ((_tl5612956961_ (let () (declare (not safe)) - (##cdr _e5592056743_))) - (_hd5591956747_ + (##cdr _e5613156954_))) + (_hd5613056958_ (let () (declare (not safe)) - (##car _e5592056743_)))) - (if (gx#stx-null? _tl5591856750_) - (___match6389163892_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5587356844_ - _hd5587256848_ - _tl5587156851_ - ___splice6377163772_ - _target5590956737_ - _tl5591156740_ - _e5592056743_ - _hd5591956747_ - _tl5591856750_) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (##car _e5613156954_)))) + (if (gx#stx-null? _tl5612956961_) + (___match6410264103_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5608457055_ + _hd5608357059_ + _tl5608257062_ + ___splice6398263983_ + _target5612056948_ + _tl5612256951_ + _e5613156954_ + _hd5613056958_ + _tl5612956961_) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-null? _tl5587156851_) - (___kont6377363774_ _hd5587256848_) - (let () (declare (not safe)) (_g5585756071_))))) + (_g5606856282_)))))) + (if (gx#stx-null? _tl5608257062_) + (___kont6398463985_ _hd5608357059_) + (let () (declare (not safe)) (_g5606856282_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _tl5587156851_) - (___kont6377363774_ - _hd5587256848_) + _tl5608257062_) + (___kont6398463985_ + _hd5608357059_) (let () (declare (not safe)) - (_g5585756071_)))))) + (_g5606856282_)))))) (let () (declare (not safe)) - (_g5585756071_))) + (_g5606856282_))) (if (let () (declare (not safe)) - (equal? _e5587056840_ '2)) - (if (gx#stx-pair? _tl5586756837_) - (let ((_e5594756543_ + (equal? _e5608157051_ '2)) + (if (gx#stx-pair? _tl5607857048_) + (let ((_e5615856754_ (gx#syntax-e - _tl5586756837_))) - (let ((_tl5594556550_ + _tl5607857048_))) + (let ((_tl5615656761_ (let () (declare (not safe)) - (##cdr _e5594756543_))) - (_hd5594656547_ + (##cdr _e5615856754_))) + (_hd5615756758_ (let () (declare (not safe)) - (##car _e5594756543_)))) + (##car _e5615856754_)))) (if (gx#stx-pair? - _tl5594556550_) - (let ((_e5595056553_ + _tl5615656761_) + (let ((_e5616156764_ (gx#syntax-e - _tl5594556550_))) - (let ((_tl5594856560_ + _tl5615656761_))) + (let ((_tl5615956771_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _e5595056553_))) - (_hd5594956557_ - (let () (declare (not safe)) (##car _e5595056553_)))) - (if (gx#stx-pair? _hd5594956557_) - (let ((_e5595356563_ (gx#syntax-e _hd5594956557_))) - (let ((_tl5595156570_ + (let () (declare (not safe)) (##cdr _e5616156764_))) + (_hd5616056768_ + (let () (declare (not safe)) (##car _e5616156764_)))) + (if (gx#stx-pair? _hd5616056768_) + (let ((_e5616456774_ (gx#syntax-e _hd5616056768_))) + (let ((_tl5616256781_ (let () (declare (not safe)) - (##cdr _e5595356563_))) - (_hd5595256567_ + (##cdr _e5616456774_))) + (_hd5616356778_ (let () (declare (not safe)) - (##car _e5595356563_)))) - (if (gx#stx-pair? _hd5595256567_) - (let ((_e5595656573_ - (gx#syntax-e _hd5595256567_))) - (let ((_tl5595456580_ + (##car _e5616456774_)))) + (if (gx#stx-pair? _hd5616356778_) + (let ((_e5616756784_ + (gx#syntax-e _hd5616356778_))) + (let ((_tl5616556791_ (let () (declare (not safe)) - (##cdr _e5595656573_))) - (_hd5595556577_ + (##cdr _e5616756784_))) + (_hd5616656788_ (let () (declare (not safe)) - (##car _e5595656573_)))) - (if (gx#identifier? _hd5595556577_) + (##car _e5616756784_)))) + (if (gx#identifier? _hd5616656788_) (if (gx#free-identifier=? - |[1]#_g64537_| - _hd5595556577_) - (if (gx#stx-pair? _tl5595456580_) - (let ((_e5595956583_ + |[1]#_g64748_| + _hd5616656788_) + (if (gx#stx-pair? _tl5616556791_) + (let ((_e5617056794_ (gx#syntax-e - _tl5595456580_))) - (let ((_tl5595756590_ + _tl5616556791_))) + (let ((_tl5616856801_ (let () (declare (not safe)) - (##cdr _e5595956583_))) - (_hd5595856587_ + (##cdr _e5617056794_))) + (_hd5616956798_ (let () (declare (not safe)) - (##car _e5595956583_)))) + (##car _e5617056794_)))) (if (gx#stx-null? - _tl5595756590_) + _tl5616856801_) (if (gx#stx-pair? - _tl5595156570_) - (let ((_e5596256593_ + _tl5616256781_) + (let ((_e5617356804_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _tl5595156570_))) - (let ((_tl5596056600_ + (gx#syntax-e _tl5616256781_))) + (let ((_tl5617156811_ (let () (declare (not safe)) - (##cdr _e5596256593_))) - (_hd5596156597_ + (##cdr _e5617356804_))) + (_hd5617256808_ (let () (declare (not safe)) - (##car _e5596256593_)))) - (___kont6377563776_ - _tl5594856560_ - _tl5596056600_ - _hd5596156597_ - _hd5595856587_ - _hd5594656547_ - _hd5586556824_))) - (___kont6377763778_ - _tl5594856560_ - _tl5595156570_ - _hd5595256567_ - _hd5594656547_ - _hd5586556824_)) - (___kont6377763778_ - _tl5594856560_ - _tl5595156570_ - _hd5595256567_ - _hd5594656547_ - _hd5586556824_)))) + (##car _e5617356804_)))) + (___kont6398663987_ + _tl5615956771_ + _tl5617156811_ + _hd5617256808_ + _hd5616956798_ + _hd5615756758_ + _hd5607657035_))) + (___kont6398863989_ + _tl5615956771_ + _tl5616256781_ + _hd5616356778_ + _hd5615756758_ + _hd5607657035_)) + (___kont6398863989_ + _tl5615956771_ + _tl5616256781_ + _hd5616356778_ + _hd5615756758_ + _hd5607657035_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (___kont6377763778_ - _tl5594856560_ - _tl5595156570_ - _hd5595256567_ - _hd5594656547_ - _hd5586556824_)) - (___kont6377763778_ - _tl5594856560_ - _tl5595156570_ - _hd5595256567_ - _hd5594656547_ - _hd5586556824_)) - (___kont6377763778_ - _tl5594856560_ - _tl5595156570_ - _hd5595256567_ - _hd5594656547_ - _hd5586556824_)))) - (___kont6377763778_ - _tl5594856560_ - _tl5595156570_ - _hd5595256567_ - _hd5594656547_ - _hd5586556824_)))) - (if (gx#stx-null? _hd5594956557_) - (___kont6377963780_ - _tl5594856560_ - _hd5594656547_ - _hd5586556824_) - (let () (declare (not safe)) (_g5585756071_)))))) - (let () (declare (not safe)) (_g5585756071_))))) + (___kont6398863989_ + _tl5615956771_ + _tl5616256781_ + _hd5616356778_ + _hd5615756758_ + _hd5607657035_)) + (___kont6398863989_ + _tl5615956771_ + _tl5616256781_ + _hd5616356778_ + _hd5615756758_ + _hd5607657035_)) + (___kont6398863989_ + _tl5615956771_ + _tl5616256781_ + _hd5616356778_ + _hd5615756758_ + _hd5607657035_)))) + (___kont6398863989_ + _tl5615956771_ + _tl5616256781_ + _hd5616356778_ + _hd5615756758_ + _hd5607657035_)))) + (if (gx#stx-null? _hd5616056768_) + (___kont6399063991_ + _tl5615956771_ + _hd5615756758_ + _hd5607657035_) + (let () (declare (not safe)) (_g5606856282_)))))) + (let () (declare (not safe)) (_g5606856282_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5585756071_))) + (_g5606856282_))) (if (let () (declare (not safe)) - (equal? _e5587056840_ '3)) + (equal? _e5608157051_ '3)) (if (gx#stx-pair? - _tl5586756837_) - (let ((_e5601456292_ + _tl5607857048_) + (let ((_e5622556503_ (gx#syntax-e - _tl5586756837_))) - (let ((_tl5601256299_ + _tl5607857048_))) + (let ((_tl5622356510_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _e5601456292_))) - (_hd5601356296_ - (let () (declare (not safe)) (##car _e5601456292_)))) - (if (gx#stx-pair? _tl5601256299_) - (let ((_e5601756302_ (gx#syntax-e _tl5601256299_))) - (let ((_tl5601556309_ + (##cdr _e5622556503_))) + (_hd5622456507_ + (let () (declare (not safe)) (##car _e5622556503_)))) + (if (gx#stx-pair? _tl5622356510_) + (let ((_e5622856513_ (gx#syntax-e _tl5622356510_))) + (let ((_tl5622656520_ (let () (declare (not safe)) - (##cdr _e5601756302_))) - (_hd5601656306_ + (##cdr _e5622856513_))) + (_hd5622756517_ (let () (declare (not safe)) - (##car _e5601756302_)))) - (if (gx#stx-pair? _hd5601656306_) - (let ((_e5602056312_ (gx#syntax-e _hd5601656306_))) - (let ((_tl5601856319_ + (##car _e5622856513_)))) + (if (gx#stx-pair? _hd5622756517_) + (let ((_e5623156523_ (gx#syntax-e _hd5622756517_))) + (let ((_tl5622956530_ (let () (declare (not safe)) - (##cdr _e5602056312_))) - (_hd5601956316_ + (##cdr _e5623156523_))) + (_hd5623056527_ (let () (declare (not safe)) - (##car _e5602056312_)))) - (___kont6378163782_ - _tl5601556309_ - _tl5601856319_ - _hd5601956316_ - _hd5601356296_ - _hd5586556824_))) - (if (gx#stx-pair/null? _hd5601356296_) - (let ((___splice6378563786_ + (##car _e5623156523_)))) + (___kont6399263993_ + _tl5622656520_ + _tl5622956530_ + _hd5623056527_ + _hd5622456507_ + _hd5607657035_))) + (if (gx#stx-pair/null? _hd5622456507_) + (let ((___splice6399663997_ (gx#syntax-split-splice - _hd5601356296_ + _hd5622456507_ '0))) - (let ((_tl5603956115_ + (let ((_tl5625056326_ (let () (declare (not safe)) (##vector-ref - ___splice6378563786_ + ___splice6399663997_ '1))) - (_target5603756112_ + (_target5624856323_ (let () (declare (not safe)) (##vector-ref - ___splice6378563786_ + ___splice6399663997_ '0)))) - (if (gx#stx-null? _tl5603956115_) - (___match6411364114_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5601456292_ - _hd5601356296_ - _tl5601256299_ - ___splice6378563786_ - _target5603756112_ - _tl5603956115_) + (if (gx#stx-null? _tl5625056326_) + (___match6432464325_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5622556503_ + _hd5622456507_ + _tl5622356510_ + ___splice6399663997_ + _target5624856323_ + _tl5625056326_) (let () (declare (not safe)) - (_g5585756071_))))) + (_g5606856282_))))) (let () (declare (not safe)) - (_g5585756071_)))))) - (if (gx#stx-pair/null? _hd5601356296_) - (let ((___splice6378563786_ - (gx#syntax-split-splice _hd5601356296_ '0))) - (let ((_tl5603956115_ + (_g5606856282_)))))) + (if (gx#stx-pair/null? _hd5622456507_) + (let ((___splice6399663997_ + (gx#syntax-split-splice _hd5622456507_ '0))) + (let ((_tl5625056326_ (let () (declare (not safe)) - (##vector-ref ___splice6378563786_ '1))) - (_target5603756112_ + (##vector-ref ___splice6399663997_ '1))) + (_target5624856323_ (let () (declare (not safe)) - (##vector-ref ___splice6378563786_ '0)))) - (if (gx#stx-null? _tl5603956115_) - (___match6411364114_ - _e5586656820_ - _hd5586556824_ - _tl5586456827_ - _e5586956830_ - _hd5586856834_ - _tl5586756837_ - _e5587056840_ - _e5601456292_ - _hd5601356296_ - _tl5601256299_ - ___splice6378563786_ - _target5603756112_ - _tl5603956115_) + (##vector-ref ___splice6399663997_ '0)))) + (if (gx#stx-null? _tl5625056326_) + (___match6432464325_ + _e5607757031_ + _hd5607657035_ + _tl5607557038_ + _e5608057041_ + _hd5607957045_ + _tl5607857048_ + _e5608157051_ + _e5622556503_ + _hd5622456507_ + _tl5622356510_ + ___splice6399663997_ + _target5624856323_ + _tl5625056326_) (let () (declare (not safe)) - (_g5585756071_))))) - (let () (declare (not safe)) (_g5585756071_)))))) + (_g5606856282_))))) + (let () (declare (not safe)) (_g5606856282_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_g5585756071_))) + (_g5606856282_))) (let () (declare (not safe)) - (_g5585756071_)))))) + (_g5606856282_)))))) (let () (declare (not safe)) - (_g5585756071_))))) - (let () (declare (not safe)) (_g5585756071_))))) - (let () (declare (not safe)) (_g5585756071_)))))))))) + (_g5606856282_))))) + (let () (declare (not safe)) (_g5606856282_))))) + (let () (declare (not safe)) (_g5606856282_)))))))))) diff --git a/src/bootstrap/gerbil/runtime__0.scm b/src/bootstrap/gerbil/runtime__0.scm index fd33d5cc6..9f793cafb 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 1707773926) '#!void) +(begin (define gerbil/runtime::timestamp 1708102802) '#!void) diff --git a/src/build/build-bach.ss b/src/build/build-bach.ss index b95eafaf3..57b369db4 100644 --- a/src/build/build-bach.ss +++ b/src/build/build-bach.ss @@ -82,7 +82,8 @@ (displayln "... compile " bach-main) (compile-module (string-append bach-main ".ss") [output-dir: gerbil-libdir - optimize: #t generate-ssxi: #f + optimize: (not (getenv "GERBIL_BUILD_NOOPT" #f)) + generate-ssxi: #f invoke-gsc: #t static: #t]) ;; and then compile the binary diff --git a/src/build/build1.ss b/src/build/build1.ss index 1a1f77617..0df35e201 100644 --- a/src/build/build1.ss +++ b/src/build/build1.ss @@ -56,7 +56,9 @@ (def (compile1 modf) (displayln "... compile " modf) (compile-module modf [output-dir: gerbil-libdir invoke-gsc: #t - debug: #f optimize: #t generate-ssxi: #t + debug: #f + optimize: (not (getenv "GERBIL_BUILD_NOOPT" #f)) + generate-ssxi: #t gsc-options: ["-e" "(include \"~~lib/_gambit#.scm\")"]])) (def (compile-group group . options) ;; TODO: parallelize this? diff --git a/src/gerbil/compiler/optimize-base.ss b/src/gerbil/compiler/optimize-base.ss index 13d165034..be9b2f047 100644 --- a/src/gerbil/compiler/optimize-base.ss +++ b/src/gerbil/compiler/optimize-base.ss @@ -40,6 +40,7 @@ namespace: gxc constructor ;; OrFalse Symbol; constructor method struct? ;; Boolean; is it a struct? final? ;; Boolean; is it a final class? + metaclass ;; OrFalse Symbol; the metaclass of the class methods) ;; Map Symbol -> Symbol; known method implementations constructor: :init!) @@ -65,7 +66,7 @@ namespace: gxc ;;; methods (defmethod {:init! !class} (case-lambda - ((self id super slots ctor-method struct? final?) + ((self id super slots ctor-method struct? final? metaclass) ;; 1. check finality (let lp ((rest super)) (match rest @@ -119,10 +120,11 @@ namespace: gxc (set! (!class-fields self) fields) (set! (!class-constructor self) ctor-method) (set! (!class-struct? self) struct?) - (set! (!class-final? self) final?))) + (set! (!class-final? self) final?) + (set! (!class-metaclass self) metaclass))) ;; ssxi loader - ((self id super precedence-list slots fields constructor struct? final? methods) + ((self id super precedence-list slots fields constructor struct? final? metaclass methods) (set! (!type-id self) id) (set! (!class-super self) super) (set! (!class-precedence-list self) precedence-list) @@ -131,6 +133,7 @@ namespace: gxc (set! (!class-constructor self) constructor) (set! (!class-struct? self) struct?) (set! (!class-final? self) final?) + (set! (!class-metaclass self) metaclass) (when methods (set! (!class-methods self) (list->hash-table-eq methods)))))) diff --git a/src/gerbil/compiler/optimize-call.ss b/src/gerbil/compiler/optimize-call.ss index f03565199..49de2f933 100644 --- a/src/gerbil/compiler/optimize-call.ss +++ b/src/gerbil/compiler/optimize-call.ss @@ -81,12 +81,26 @@ namespace: gxc ['%#call ['%#ref ctor-impl] ['%#ref $obj] args ...] (let ($ctor (make-symbol (gensym '__constructor))) ['%#let-values [[[$ctor] - ['%#call ['%#ref 'direct-method-ref] ['%#ref (!type-id self)] ['%#quote ctor]]]] + ['%#call ['%#ref 'direct-method-ref] ['%#ref (!type-id self)] ['%#ref $obj] ['%#quote ctor]]]] ['%#if ['%#ref $ctor] ['%#call ['%#ref $ctor] ['%#ref $obj] args ...] ['%#call ['%#ref 'error] ['%#quote "missing constructor method implementation"] ['%#quote 'class:] ['%#ref (!type-id self)] ['%#quote 'method:] ['%#quote ctor]]]])) ['%#ref $obj]]] stx)))) + ((!class-metaclass klass) + => (lambda (metaclass) + (let* (($obj (make-symbol (gensym '__obj))) + (metakons + (!class-lookup-method (optimizer-resolve-class stx metaclass) + 'instance-init!))) + (xform-wrap-source + ['%#let-values [[[$obj] inline-make-object]] + ['%#begin + (if metakons + ['%#call ['%#ref metakons] ['%#ref (!type-id self)] ['%#ref $obj] args ...] + ['%#call ['%#ref 'call-method] ['%#ref (!type-id self)] ['%#quote 'instance-init!] ['%#ref $obj] args ...]) + ['%#ref $obj]]] + stx)))) ((!class-struct? klass) (if (fx= (length args) fields) (xform-wrap-source diff --git a/src/gerbil/compiler/optimize-spec.ss b/src/gerbil/compiler/optimize-spec.ss index 24ab33c50..392587797 100644 --- a/src/gerbil/compiler/optimize-spec.ss +++ b/src/gerbil/compiler/optimize-spec.ss @@ -52,6 +52,7 @@ namespace: gxc ['%#let-values [[[$tmp] ['%#call ['%#ref 'direct-method-ref] ['%#ref $t] + ['%#quote #f] ['%#quote id]]]] ['%#if ['%#ref $tmp] ['%#ref $tmp] diff --git a/src/gerbil/compiler/optimize-top.ss b/src/gerbil/compiler/optimize-top.ss index a1520f99b..e6e906e83 100644 --- a/src/gerbil/compiler/optimize-top.ss +++ b/src/gerbil/compiler/optimize-top.ss @@ -151,14 +151,15 @@ namespace: gxc (def (basic-expression-type-annotation-mop.class stx ann) (ast-case ann () - ((_ type-id super slots ctor-method struct? final?) + ((_ type-id super slots ctor-method struct? final? metaclass) (let ((type-id (stx-e #'type-id)) - (super (map identifier-symbol #'super)) - (slots (map stx-e #'slots)) + (super (stx-map identifier-symbol #'super)) + (slots (stx-map stx-e #'slots)) (ctor-method (stx-e #'ctor-method)) (struct? (stx-e #'struct?)) - (final? (stx-e #'final?))) - (make-!class type-id super slots ctor-method struct? final?))))) + (final? (stx-e #'final?)) + (metaclass (and (stx-e #'metaclass) (identifier-symbol #'metaclass)))) + (make-!class type-id super slots ctor-method struct? final? metaclass))))) (def (basic-expression-type-annotation-mop.constructor stx ann) (ast-case ann () diff --git a/src/gerbil/compiler/optimize.ss b/src/gerbil/compiler/optimize.ss index 4f65e65ce..bacf9817d 100644 --- a/src/gerbil/compiler/optimize.ss +++ b/src/gerbil/compiler/optimize.ss @@ -198,8 +198,8 @@ namespace: gxc ;; MOP (defmethod {typedecl !class} (lambda (self) - (with ((!class id super precendence-list slots fields constructor struct? final? methods) self) - ['@class id super precendence-list slots fields constructor struct? final? (and methods (hash->list methods))]))) + (with ((!class id super precendence-list slots fields constructor struct? final? metaclass methods) self) + ['@class id super precendence-list slots fields constructor struct? final? metaclass (and methods (hash->list methods))]))) (defmethod {typedecl !predicate} (lambda (self) diff --git a/src/gerbil/compiler/ssxi.ss b/src/gerbil/compiler/ssxi.ss index 77ef1249f..140da857a 100644 --- a/src/gerbil/compiler/ssxi.ss +++ b/src/gerbil/compiler/ssxi.ss @@ -45,8 +45,8 @@ namespace: gxc ;; MOP (defrules @class () - ((_ type-id super-ids precedence-list slots fields constructor struct? final? methods) - (make-!class 'type-id 'super-ids 'precedence-list 'slots 'fields 'constructor 'struct? 'final? 'methods))) + ((_ type-id super-ids precedence-list slots fields constructor struct? final? metaclass methods) + (make-!class 'type-id 'super-ids 'precedence-list 'slots 'fields 'constructor struct? final? 'metaclass 'methods))) (defrules @predicate () ((_ type-id) diff --git a/src/gerbil/prelude/builtin.ssxi.ss b/src/gerbil/prelude/builtin.ssxi.ss index 13b9e9cbf..e488f95b0 100644 --- a/src/gerbil/prelude/builtin.ssxi.ss +++ b/src/gerbil/prelude/builtin.ssxi.ss @@ -446,10 +446,9 @@ package: gerbil unchecked-field-ref unchecked-slot-ref struct-instance? class-instance? - method-ref direct-method-ref bound-method-ref - checked-method-ref checked-bound-method-ref - find-method substruct? subclass? + method-ref bound-method-ref + checked-method-ref checked-bound-method-ref with-unwind-protect with-catch file-newer?) @@ -477,7 +476,9 @@ package: gerbil class-slot-ref unchecked-field-set! unchecked-slot-set! - next-method) + next-method + find-method + direct-method-ref) (declare-primitive/3 subvector diff --git a/src/gerbil/prelude/core.ss b/src/gerbil/prelude/core.ss index 13d8ea4ce..4fdcaf027 100644 --- a/src/gerbil/prelude/core.ss +++ b/src/gerbil/prelude/core.ss @@ -167,18 +167,24 @@ package: gerbil ;; MOP class-type? class-type-id + class-type-name + class-type-super + class-type-flags + class-type-fields class-type-precedence-list class-type-slot-vector class-type-slot-table class-type-properties class-type-constructor class-type-methods + class-type-slot-list - class-type-fields + class-type-field-count class-type-struct? class-type-final? class-type-sealed? + class-type-metaclass? make-struct-slot-accessor make-struct-slot-mutator @@ -1697,7 +1703,7 @@ package: gerbil ((slot getf setf) #'slot))) (def (class-opt? key) - (memq (stx-e key) '(struct: slots: id: name: properties: constructor: final: mixin:))) + (memq (stx-e key) '(struct: slots: id: name: properties: constructor: final: mixin: metaclass:))) (syntax-case stx () ((_ type-t super make instance? . rest) @@ -1721,6 +1727,8 @@ package: gerbil [])) ((values accessible-slots) (append (syntax->list slots) (syntax->list mixin-slots))) + ((values metaclass) + (stx-getq metaclass: #'rest)) ((slot ...) (stx-map slot-name slots)) (type-id @@ -1736,6 +1744,10 @@ package: gerbil (stx-map core-quote-syntax #'super)) (mop-struct? struct?) (mop-final? (stx-getq final: #'rest)) + (mop-metaclass + (if (stx-e metaclass) + (core-quote-syntax metaclass) + #f)) (type-properties (or (stx-getq properties: #'rest) #'[])) @@ -1747,6 +1759,11 @@ package: gerbil (if struct? #'[[struct: . #t] :: type-properties] #'type-properties)) + (type-properties + (if (stx-e metaclass) + (with-syntax ((metaclass metaclass)) + #'[[metaclass: :: metaclass] :: type-properties]) + #'type-properties)) (type-super (cons #'list #'super)) (make-type-rtd @@ -1761,7 +1778,8 @@ package: gerbil (slot ...) type-constructor mop-struct? - mop-final?) + mop-final? + mop-metaclass) make-type-rtd)))) (def-make (if (stx-false? #'make) @@ -1854,6 +1872,9 @@ package: gerbil (final? ;; Boolean ;; #t if the class is final !class-type-final? !class-type-final?-set!) + (metaclass ;; OrFalse identifier + ;; the metaclass identifier, if any + !class-type-metaclass !class-type-metaclass-set!) (constructor-method ;; OrFalse Symbol ;; the class's constructor method name, if any !class-type-constructor-method !class-type-constructor-method-set!) @@ -1908,7 +1929,9 @@ package: gerbil id: 'gerbil.core#class-type-info::t name: 'class-type-info super: [] - slots: '(id name super slots struct? final? constructor-method + slots: '(id name super slots struct? final? + metaclass + constructor-method type-descriptor constructor predicate accessors mutators unchecked-accessors unchecked-mutators) @@ -1925,6 +1948,7 @@ package: gerbil ['slots :: (quote-syntax !class-type-slots)] ['struct? :: (quote-syntax !class-type-struct?)] ['final? :: (quote-syntax !class-type-final?)] + ['metaclass :: (quote-syntax !class-type-metaclass)] ['constructor-method :: (quote-syntax !class-type-constructor-method)] ['type-descriptor :: (quote-syntax !class-type-descriptor)] ['constructor :: (quote-syntax !class-type-constructor)] @@ -1940,6 +1964,7 @@ package: gerbil ['slots :: (quote-syntax !class-type-slots-set!)] ['struct? :: (quote-syntax !class-type-struct?-set!)] ['final? :: (quote-syntax !class-type-final?-set!)] + ['metaclass :: (quote-syntax !class-type-metaclass-set!)] ['constructor-method :: (quote-syntax !class-type-constructor-method-set!)] ['type-descriptor :: (quote-syntax !class-type-descriptor-set!)] ['constructor :: (quote-syntax !class-type-constructor-set!)] @@ -1955,6 +1980,7 @@ package: gerbil ['slots :: (quote-syntax &!class-type-slots)] ['struct? :: (quote-syntax &!class-type-struct?)] ['final? :: (quote-syntax &!class-type-final?)] + ['metaclass :: (quote-syntax !class-type-metaclass)] ['constructor-method :: (quote-syntax &!class-type-constructor-method)] ['type-descriptor :: (quote-syntax &!class-type-descriptor)] ['constructor :: (quote-syntax &!class-type-constructor)] @@ -1970,6 +1996,7 @@ package: gerbil ['slots :: (quote-syntax &!class-type-slots-set!)] ['struct? :: (quote-syntax &!class-type-struct?-set!)] ['final? :: (quote-syntax &!class-type-final?-set!)] + ['metaclass :: (quote-syntax &!class-type-metaclass-set!)] ['constructor-method :: (quote-syntax &!class-type-constructor-method-set!)] ['type-descriptor :: (quote-syntax &!class-type-descriptor-set!)] ['constructor :: (quote-syntax &!class-type-constructor-set!)] @@ -1988,7 +2015,7 @@ package: gerbil (def (typedef-body? stx) (def (body-opt? key) (memq (stx-e key) - '(id: struct: name: constructor: transparent: final: print: equal:))) + '(id: struct: name: constructor: transparent: final: print: equal: metaclass:))) (stx-plist? stx body-opt?)) (def (generate-defclass stx id super-ref slots body) @@ -2105,6 +2132,16 @@ package: gerbil [] (with-syntax ((properties properties)) [properties: #'(quote properties)]))) + ((values metaclass) + (cond + ((stx-getq metaclass: body) + => (lambda (metaclass) + (and (identifier? metaclass) metaclass))) + (else #f))) + ((values type-metaclass) + (if metaclass + [metaclass: metaclass] + [])) ((values final?) (stx-e (stx-getq final: body))) ((values type-struct) @@ -2117,6 +2154,7 @@ package: gerbil type-constructor ... type-struct ... type-final ... + type-metaclass ... type-properties ... type-slots ... type-mixin-slots ...]) @@ -2137,6 +2175,11 @@ package: gerbil (meta-type-slots #'(quote (slot ...))) (meta-type-struct? struct?) (meta-type-final? final?) + (meta-type-metaclass + (if metaclass + (with-syntax ((metaclass metaclass)) + #'(quote-syntax metaclass)) + #f)) (meta-type-constructor-method (if (null? type-constructor) #f @@ -2167,6 +2210,7 @@ package: gerbil super: meta-type-super struct?: meta-type-struct? final?: meta-type-final? + metaclass: meta-type-metaclass constructor-method: meta-type-constructor-method type-descriptor: meta-type-descriptor constructor: meta-type-constructor diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index 439aa6cba..351e98e6c 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -50,66 +50,80 @@ namespace: #f ;; These class type flags are Gerbil extensions (def class-type-flag-struct 1024) ;; precedence-list always tail of subclass's precedence-list (def class-type-flag-sealed 2048) ;; no new changes, subclasses or method definitions (implies final) +(def class-type-flag-metaclass 4096) ;; it is a class of classes, supporting the metaclass protocol ;; the metaclass type id (def class::t.id 'gerbil#class::t) ;; the metaclass itself (def class::t - (let* ((slots - '(id name super flags fields - precedence-list slot-vector slot-table properties constructor method)) - (slot-vector - (list->vector (cons '##type slots))) - (slot-table - (let (slot-table (make-hash-table-eq)) - (for-each - (lambda (slot field) - (hash-put! slot-table slot field) - (hash-put! slot-table (symbol->keyword slot) field)) - slots - (iota (length slots) 1)) - slot-table)) - (flags - (##fxior type-flag-extensible type-flag-concrete type-flag-id - class-type-flag-struct)) - (fields ;; exclude those from ##type-type because this is for Gambit type use - ;; the field-flags of 5 mean "(1) printable, (4) equalable", - ;; the drop of 5 is the number of type-type slots - (list->vector (apply append (map (cut list <> 5 #f) (drop slots 5))))) - (properties - '((direct-slots: ,@slots) ;; include those from ##type-type because it's not a class - (struct: . #t))) - (t (##structure - #f ; type: self reference, set below - class::t.id ; type-id - 'class ; type-name - flags ; type-flags - ##type-type ; type-super - fields ; type-fields - [] ; class-type-precedence-list - slot-vector ; class-type-slot-vector - slot-table ; class-type-slot-table - properties ; class-type-properties - #f ; class-type-constructor - #f))) ; class-type-methods - (##structure-type-set! t t) ; self reference - t)) - -(def (class-type? obj) - (##structure-instance-of? obj class::t.id)) - -(def (class-type-id klass) - (cond - ((class-type? klass) (##type-id klass)) - (else (error "not a type descriptor" klass)))) + (begin-annotation + (@mop.class gerbil#class::t ; type-id + () ; super + (id name super flags fields + precedence-list slot-vector slot-table + properties constructor methods) ; slots + #f ; constructor method + #t ; struct? + #f ; final? + #f) ; metaclass + (let* ((slots + '(id name super flags fields + precedence-list slot-vector slot-table properties constructor methods)) + (slot-vector + (list->vector (cons '##type slots))) + (slot-table + (let (slot-table (make-hash-table-eq)) + (for-each + (lambda (slot field) + (hash-put! slot-table slot field) + (hash-put! slot-table (symbol->keyword slot) field)) + slots + (iota (length slots) 1)) + slot-table)) + (flags + (##fxior type-flag-extensible type-flag-concrete type-flag-id + class-type-flag-struct)) + (fields ;; exclude those from ##type-type because this is for Gambit type use + ;; the field-flags of 5 mean "(1) printable, (4) equalable", + ;; the drop of 5 is the number of type-type slots + (list->vector (apply append (map (cut list <> 5 #f) (drop slots 5))))) + (properties + `((direct-slots: ,@slots) ;; include those from ##type-type because it's not a class + (struct: . #t))) + (t (##structure + #f ; type: self reference, set below + class::t.id ; type-id + 'class ; type-name + flags ; type-flags + ##type-type ; type-super + fields ; type-fields + [] ; class-type-precedence-list + slot-vector ; class-type-slot-vector + slot-table ; class-type-slot-table + properties ; class-type-properties + #f ; class-type-constructor + #f))) ; class-type-methods + (##structure-type-set! t t) ; self reference + t))) + +(def class-type? + (begin-annotation (@mop.predicate class::t) + (lambda (obj) + (##structure-instance-of? obj class::t.id)))) (def (class-type=? x y) (eq? (class-type-id x) (class-type-id y))) (defrules fxflag-set? () + ((_ value flag) + (or (identifier? #'flag) (stx-fixnum? #'flag)) + (##fx= (##fxand value flag) flag)) ((_ value flag) (let (flag flag) (##fx= (##fxand value flag) flag)))) (defrules fxflag-unset? () + ((_ value flag) + (or (identifier? #'flag) (stx-fixnum? #'flag)) + (##fx= (##fxand value flag) 0)) ((_ value flag) (let (flag flag) (##fx= (##fxand value flag) 0)))) (def (type-opaque? type) @@ -121,7 +135,9 @@ namespace: #f (def (class-type-struct? klass) (fxflag-set? (##type-flags klass) class-type-flag-struct)) (def (class-type-sealed? klass) - (##fxpositive? (##fxand (##type-flags klass) class-type-flag-sealed))) + (fxflag-set? (##type-flags klass) class-type-flag-sealed)) +(def (class-type-metaclass? klass) + (fxflag-set? (##type-flags klass) class-type-flag-metaclass)) ;; TODO for debugging only (def (properties-form properties) @@ -167,6 +183,11 @@ namespace: #f (field-info (make-vector field-info-length #f)) (struct? (assgetq struct: properties)) (final? (assgetq final: properties)) + (metaclass + (alet (metaclass (assgetq metaclass: properties)) + (unless (class-type? metaclass) + (error "metaclass is not a class type" class: type-id metaclass: metaclass)) + metaclass)) (opaque? (or (not all-slots-equalable?) (and type-super (type-opaque? type-super)))) @@ -174,7 +195,8 @@ namespace: #f (##fxior type-flag-id type-flag-concrete (if final? 0 type-flag-extensible) (if opaque? type-flag-opaque 0) - (if struct? class-type-flag-struct 0)))) + (if struct? class-type-flag-struct 0) + (if metaclass class-type-flag-metaclass 0)))) (let loop ((i first-new-field) (j 0)) (when (##fx< j field-info-length) @@ -186,35 +208,72 @@ namespace: #f (vector-set! field-info j slot) (vector-set! field-info (##fx+ j 1) flags) (loop (##fx+ i 1) (##fx+ j 3))))) - (##structure class::t - ;; gambit type fields - type-id type-name type-flags type-super field-info - ;; gerbil class fields - precedence-list slot-vector slot-table properties constructor methods))) + (if metaclass + (make-instance metaclass + ;; gambit type fields + type-id type-name type-flags type-super field-info + ;; gerbil class fields + precedence-list slot-vector slot-table properties constructor methods) + (##structure class::t + ;; gambit type fields + type-id type-name type-flags type-super field-info + ;; gerbil class fields + precedence-list slot-vector slot-table properties constructor methods)))) ;;; class type utilities -(def (class-type-precedence-list klass) - (##structure-ref klass 6 class::t class-type-precedence-list)) -(def (class-type-slot-vector klass) - (##structure-ref klass 7 class::t class-type-slot-vector)) -(def (class-type-slot-table klass) - (##structure-ref klass 8 class::t class-type-slot-table)) -(def (class-type-properties klass) - (##structure-ref klass 9 class::t class-type-properties)) -(def (class-type-constructor klass) - (##structure-ref klass 10 class::t class-type-constructor)) -(def (class-type-methods klass) - (##structure-ref klass 11 class::t class-type-methods)) -(def (class-type-methods-set! klass ht) - (##structure-set! klass ht 11 class::t class-type-methods-set!)) +(defsyntax (defrefset stx) + (syntax-case stx () + ((_ (slot field)) + (with-syntax* ((klass::t (core-quote-syntax 'class::t)) + (ref (stx-identifier #'slot "class-type-" #'slot)) + (&ref (stx-identifier #'slot "&" #'ref)) + (setq (stx-identifier #'slot #'ref "-set!")) + (&setq (stx-identifier #'slot "&" #'setq))) + #'(begin + (def ref + (begin-annotation (@mop.accessor klass::t slot #t) + (lambda (klass) + (##structure-ref klass field class::t 'slot)))) + (def &ref + (begin-annotation (@mop.accessor klass::t slot #f) + (lambda (klass) + (##unchecked-structure-ref klass field class::t 'slot)))) + (def setq + (begin-annotation (@mop.mutator klass::t slot #t) + (lambda (klass val) + (##structure-set! klass val field class::t 'slot)))) + (def &setq + (begin-annotation (@mop.mutator klass::t slot #f) + (lambda (klass val) + (##unchecked-structure-set! klass val field class::t 'slot))))))))) + +(defrules defrefset* () + ((_ (slot field) ...) + (begin (defrefset (slot field)) ...))) + +(defrefset* + (id 1) + (name 2) + (super 3) + (flags 4) + (fields 5) + (precedence-list 6) + (slot-vector 7) + (slot-table 8) + (properties 9) + (constructor 10) + (methods 11)) (def (class-type-slot-list klass) (cdr (vector->list (class-type-slot-vector klass)))) -(def (class-type-fields klass) +(def (class-type-field-count klass) (##fx- (##vector-length (class-type-slot-vector klass)) 1)) (def (class-type-seal! klass) (##structure-set! klass (##fxior class-type-flag-sealed (##type-flags klass)) 3 class::t class-type-seal!)) +(def (&class-type-seal! klass) + (##unchecked-structure-set! klass (##fxior class-type-flag-sealed (##type-flags klass)) + 3 class::t class-type-seal!)) ;; Is maybe-sub-struct a subclass of maybe-super-struct? ; : (OrFalse TypeDescriptor) (OrFalse TypeDescriptor) -> Bool @@ -269,7 +328,7 @@ namespace: #f (match rest ([hd . rest] (cond - ((class-type-constructor hd) + ((&class-type-constructor hd) => (lambda (xconstructor) (if (or (not constructor) (eq? constructor xconstructor)) (lp rest xconstructor) @@ -300,7 +359,7 @@ namespace: #f (process-slots (cut for-each process-slot <>))) (for-each (lambda (mixin) (process-slots - (assgetq direct-slots: (class-type-properties mixin) []))) + (assgetq direct-slots: (&class-type-properties mixin) []))) (reverse class-precedence-list)) (process-slots direct-slots) (let (slot-vector (list->vector (reverse r-slots))) @@ -330,7 +389,7 @@ namespace: #f constructor* slot-table #f))) (def (class-precedence-list klass) - (cons klass (class-type-precedence-list klass))) + (cons klass (&class-type-precedence-list klass))) ;; class precedence list, excluding current class; super struct if any ;; (List TypeDescriptor) -> (List TypeDescriptor) (OrFalse TypeDescriptor) @@ -356,7 +415,7 @@ namespace: #f ;; or (c) the slot being a regular class slot (the more expensive code path), ;; return an accessor for this klass and slot. (def (if-class-slot-field klass slot if-final if-struct if-struct-field if-class-slot) - (let (field (hash-get (class-type-slot-table klass) slot)) + (let (field (hash-get (&class-type-slot-table klass) slot)) (cond ((not field) (error "unknown slot" class: klass slot: slot)) @@ -366,7 +425,7 @@ namespace: #f (if-struct klass slot field)) ((let (strukt (base-struct/1 klass)) (and (class-type? strukt) - (##fx< field (##vector-length (class-type-slot-vector strukt))))) + (##fx< field (##vector-length (&class-type-slot-vector strukt))))) (if-struct-field klass slot field)) (else (if-class-slot klass slot field))))) @@ -454,7 +513,7 @@ namespace: #f (unchecked-slot-set! obj slot val))) (def (class-slot-offset klass slot) - (hash-get (class-type-slot-table klass) slot)) + (hash-get (&class-type-slot-table klass) slot)) (def (class-slot-ref klass obj slot) (if (class-instance? klass obj) @@ -502,7 +561,7 @@ namespace: #f (let (maybe-super-class-id (##type-id maybe-super-class)) (or (eq? maybe-super-class-id (##type-id maybe-sub-class)) (ormap (lambda (super-class) (eq? (##type-id super-class) maybe-super-class-id)) - (class-type-precedence-list maybe-sub-class))))) + (&class-type-precedence-list maybe-sub-class))))) ;;; generic object utilities (def object? @@ -537,14 +596,16 @@ namespace: #f obj))) (def (new-instance klass) - (make-object klass (##vector-length (class-type-slot-vector klass)))) + (make-object klass (##vector-length (&class-type-slot-vector klass)))) (def (make-instance klass . args) (let (obj (new-instance klass)) (cond - ((class-type-constructor klass) + ((&class-type-constructor klass) => (lambda (kons-id) (__constructor-init! klass kons-id obj args))) + ((class-type-metaclass? klass) + (__metaclass-instance-init! klass obj args)) ((not (class-type-struct? klass)) (__class-instance-init! klass obj args)) ((##fx= (##fx- (##structure-length obj) 1) (length args)) @@ -587,12 +648,15 @@ namespace: #f (if (null? rest) obj (error "unexpected class initializer arguments" class: klass rest: rest)))))) +(def (__metaclass-instance-init! klass obj args) + (apply call-method klass 'instance-init! obj args)) + (def (constructor-init! klass kons-id obj . args) (__constructor-init! klass kons-id obj args)) (def (__constructor-init! klass kons-id obj args) (cond - ((__find-method klass kons-id) + ((__find-method klass obj kons-id) => (lambda (kons) (apply kons obj args) obj)) @@ -613,7 +677,7 @@ namespace: #f (if (object? obj) (let (klass (object-type obj)) (if (class-type? klass) - (let (slot-vector (class-type-slot-vector klass)) + (let (slot-vector (&class-type-slot-vector klass)) (let loop ((index (##fx- (##vector-length slot-vector) 1)) (plist [])) (if (##fx< index 1) @@ -639,7 +703,7 @@ namespace: #f (def (method-ref obj id) (and (object? obj) - (find-method (object-type obj) id))) + (find-method (object-type obj) obj id))) (def (checked-method-ref obj id) (or (method-ref obj id) @@ -658,41 +722,65 @@ namespace: #f (lambda args (apply method obj args)))) -(def (find-method klass id) +(def (find-method klass obj id) (if (class-type? klass) - (__find-method klass id) - (builtin-find-method klass id))) + (__find-method klass obj id) + (builtin-find-method klass obj id))) -(def (__find-method klass id) +(def (__find-method klass obj id) (cond - ((direct-method-ref klass id)) + ((direct-method-ref klass obj id)) ((class-type-sealed? klass) #f) (else - (mixin-method-ref klass id)))) + (mixin-method-ref klass obj id)))) -(def (class-find-method klass id) +(def (class-find-method klass obj id) (and (class-type? klass) - (__find-method klass id))) + (__find-method klass obj id))) -(def (mixin-find-method mixins id) - (ormap (cut direct-method-ref <> id) mixins)) +(def (mixin-find-method mixins obj id) + (ormap (cut direct-method-ref <> obj id) mixins)) -(def (builtin-find-method klass id) +(def (builtin-find-method klass obj id) (and (##type? klass) - (or (builtin-method-ref klass id) - (builtin-find-method (##type-super klass) id)))) + (or (builtin-method-ref klass obj id) + (builtin-find-method (##type-super klass) obj id)))) + +(def (direct-method-ref klass obj id) + (def (metaclass-resolve-method) + (call-method klass 'direct-method-ref obj id)) + + (def (metaclass-resolve-method!) + (let (method (metaclass-resolve-method)) + (hash-put! (&class-type-methods klass) id + (if method 'resolved 'unknown)) + method)) -(def (direct-method-ref klass id) (cond - ((class-type-methods klass) - => (lambda (ht) (hash-get ht id))) + ((&class-type-methods klass) + => (lambda (ht) + (let (method (hash-get ht id)) + (cond + ((procedure? method) method) + ((class-type-metaclass? klass) + (case method + ((resolved) + (metaclass-resolve-method)) + ((uknown) #f) + (else + (metaclass-resolve-method!)))) + (else #f))))) + ((class-type-metaclass? klass) + (let (tab (make-hash-table-eq)) + (&class-type-methods-set! klass tab) + (metaclass-resolve-method!))) (else #f))) -(def (mixin-method-ref klass id) - (mixin-find-method (class-type-precedence-list klass) id)) +(def (mixin-method-ref klass obj id) + (mixin-find-method (class-type-precedence-list klass) obj id)) -(def (builtin-method-ref klass id) +(def (builtin-method-ref klass obj id) (cond ((hash-get __builtin-type-methods (##type-id klass)) => (lambda (mtab) (hash-get mtab id))) @@ -709,11 +797,11 @@ namespace: #f (cond ((class-type? klass) - (let (ht (class-type-methods klass)) + (let (ht (&class-type-methods klass)) (if ht (bind! ht) (let (ht (make-hash-table-eq)) - (class-type-methods-set! klass ht) + (&class-type-methods-set! klass ht) (bind! ht))))) ((##type? klass) (let (ht @@ -741,7 +829,7 @@ namespace: #f (def (collect-direct-methods! klass) (cond - ((class-type-methods klass) => merge!))) + ((&class-type-methods klass) => merge!))) (for-each collect-direct-methods! (reverse (class-precedence-list klass)))) @@ -750,24 +838,30 @@ namespace: #f (unless (class-type-sealed? klass) (unless (class-type-final? klass) (error "cannot seal non-final class" klass)) - (let ((vtab (make-hash-table-eq)) - (mtab (make-hash-table-eq))) - (collect-methods! mtab) - (hash-for-each - (lambda (id proc) - (cond - ((hash-get __method-specializers proc) - => (lambda (specializer) - (let ((proc (specializer klass)) - (gid (make-symbol (##type-id klass) "::[" id "]"))) - ;; give the procedure a name and make it accessible to the debugger - (eval `(def ,gid (quote ,proc))) - (hash-put! vtab id proc)))) - (else - (hash-put! vtab id proc)))) - mtab) - (class-type-methods-set! klass vtab) - (class-type-seal! klass))))) + (cond + ((class-type-metaclass? klass) + (call-method klass 'seal-class!)) + ((find class-type-metaclass? (&class-type-precedence-list klass)) + (error "cannot seal class that extends metaclass without a metaclass" klass)) + (else + (let ((vtab (make-hash-table-eq)) + (mtab (make-hash-table-eq))) + (collect-methods! mtab) + (hash-for-each + (lambda (id proc) + (cond + ((hash-get __method-specializers proc) + => (lambda (specializer) + (let ((proc (specializer klass)) + (gid (make-symbol (##type-id klass) "::[" id "]"))) + ;; give the procedure a name and make it accessible to the debugger + (eval `(def ,gid (quote ,proc))) + (hash-put! vtab id proc)))) + (else + (hash-put! vtab id proc)))) + mtab) + (&class-type-methods-set! klass vtab)))) + (&class-type-seal! klass)))) ;; NB: 1. This implementation has quadratic complexity in the general case, but ;; 2. is somewhat simpler and slightly faster in the common case that has no @@ -788,14 +882,14 @@ namespace: #f (match rest ([klass . rest] (if (eq? type-id (##type-id klass)) - (mixin-find-method rest id) + (mixin-find-method rest obj id) (lp rest))) (else #f)))) ((##type? klass) (let lp ((klass klass)) (cond ((eq? type-id (##type-id klass)) - (builtin-find-method (##type-super klass) id)) + (builtin-find-method (##type-super klass) obj id)) ((##type-super klass) => lp) (else #f)))) diff --git a/src/gerbil/test/metaclass-test.ss b/src/gerbil/test/metaclass-test.ss new file mode 100644 index 000000000..686d537ea --- /dev/null +++ b/src/gerbil/test/metaclass-test.ss @@ -0,0 +1,56 @@ +;; -*- Gerbil -*- +;;; © vyzo +;;;; Testing metaclass support +(import :std/test + :std/metaclass) +(export metaclass-test) + +(defstruct (dyn class) ()) + +(defmethod {instance-init! dyn} + (lambda (self obj . args) + (apply class-instance-init! obj args))) + +(defmethod {direct-method-ref dyn} + (lambda (self object id) + (alet (offset (class-slot-offset self id)) + (def (slot-method) + (lambda (obj . args) + (let (method (##unchecked-structure-ref obj offset #f id)) + (if (procedure? method) + (apply method obj args) + (error "slot method is not a procedure" object: obj slot: id value: method))))) + (if object + (let (slot-value (##unchecked-structure-ref object offset #f id)) + (cond + ((procedure? slot-value) + slot-value) + ((not slot-value) + (slot-method)) + (else + (error "slot method is not a procedure" object: object slot: id value: slot-value)))) + (slot-method))))) + +(def metaclass-test + (test-suite "metaclass" + (test-case "pure metaclass" + (defclass A (x y) metaclass: dyn::t) + (def a (A)) + (set! (A-x a) + (lambda (obj . args) 'x)) + (set! (A-y a) + (lambda (obj . args) 'y)) + (check {a.x} => 'x) + (check {a.y} => 'y)) + (test-case "mixin metaclass" + (defclass A (x y) metaclass: dyn::t) + (defclass (B A) ()) + (defmethod {z B} (lambda (self . args) 'z)) + (def b (B)) + (set! (B-x b) + (lambda (obj . args) 'x)) + (set! (B-y b) + (lambda (obj . args) 'y)) + (check {b.x} => 'x) + (check {b.y} => 'y) + (check {b.z} => 'z)))) diff --git a/src/std/actor-v13/xdr.ss b/src/std/actor-v13/xdr.ss index fb44575c0..83977f4dc 100644 --- a/src/std/actor-v13/xdr.ss +++ b/src/std/actor-v13/xdr.ss @@ -513,7 +513,7 @@ ;; struct xdr (def (xdr-read-struct klass buf) (let (fields (xdr-read-uint buf)) - (if (##fx= fields (class-type-fields klass)) + (if (##fx= fields (class-type-field-count klass)) (let (obj (make-object klass (fx1+ fields))) (let lp ((i 0)) (if (##fx< i fields) diff --git a/src/std/actor-v18/io.ss b/src/std/actor-v18/io.ss index 54ce0b488..422292617 100644 --- a/src/std/actor-v18/io.ss +++ b/src/std/actor-v18/io.ss @@ -92,9 +92,9 @@ (cond ((lookup-message-type klass-id) => (lambda (klass) - (unless (fx= fields (class-type-fields klass)) + (unless (fx= fields (class-type-field-count klass)) (raise-io-error unmarshal-message "bad message; field count mismatch" - klass-id fields klass (class-type-fields klass))) + klass-id fields klass (class-type-field-count klass))) (let (obj (make-object klass (fx1+ fields))) (let lp ((i 0)) (if (fx< i fields) diff --git a/src/std/build-spec.ss b/src/std/build-spec.ss index 622d4027f..c4cefb8d9 100644 --- a/src/std/build-spec.ss +++ b/src/std/build-spec.ss @@ -5,6 +5,7 @@ (def (build-spec . _) `((gxc: "build-config" (extra-inputs: ("build-features.ss"))) "gambit-sharp" + "metaclass" "interactive" "foreign" ;; tests for :std/foreign diff --git a/src/std/interface.ss b/src/std/interface.ss index d581c9a07..d48a21df3 100644 --- a/src/std/interface.ss +++ b/src/std/interface.ss @@ -62,7 +62,7 @@ (match rest ([method-name . rest] (cond - ((find-method obj-klass method-name) + ((find-method obj-klass #f method-name) => (lambda (method) (lp rest (fx+ count 1) (cons method methods)))) (else (fail! klass method-name)))) diff --git a/src/std/metaclass.ss b/src/std/metaclass.ss new file mode 100644 index 000000000..b44a67393 --- /dev/null +++ b/src/std/metaclass.ss @@ -0,0 +1,68 @@ +;;; -*- Gerbil -*- +;;; © vyzo +;;; support for defining metaclasses +(import :gerbil/runtime/mop + (for-syntax (only-in :gerbil/runtime/mop class::t.id))) +(export class) + +;; this is the class metaclass expander meta type +;; to allow simple creation of new metaclasses +(defsyntax class + (make-class-type-info + id: class::t.id + name: 'class + super: [] + slots: '(id name super flags fields + precedence-list slot-vector slot-table properties constructor methods) + struct?: #t + type-descriptor: (quote-syntax class::t) + constructor: (quote-syntax make-class-type) + predicate: (quote-syntax class-type?) + accessors: + [['id :: (quote-syntax class-type-id)] + ['name :: (quote-syntax class-type-name)] + ['super :: (quote-syntax class-type-super)] + ['flags :: (quote-syntax class-type-flags)] + ['fields :: (quote-syntax class-type-fields)] + ['precedence-list :: (quote-syntax class-type-precedence-list)] + ['slot-vector :: (quote-syntax class-type-slot-vector)] + ['slot-table :: (quote-syntax class-type-slot-table)] + ['properties :: (quote-syntax class-type-properties)] + ['constructor :: (quote-syntax class-type-constructor)] + ['methods :: (quote-syntax class-type-methods)]] + mutators: + [['id :: (quote-syntax class-type-id-set!)] + ['name :: (quote-syntax class-type-name-set!)] + ['super :: (quote-syntax class-type-super-set!)] + ['flags :: (quote-syntax class-type-flags-set!)] + ['fields :: (quote-syntax class-type-fields-set!)] + ['precedence-list :: (quote-syntax class-type-precedence-list-set!)] + ['slot-vector :: (quote-syntax class-type-slot-vector-set!)] + ['slot-table :: (quote-syntax class-type-slot-table-set!)] + ['properties :: (quote-syntax class-type-properties-set!)] + ['constructor :: (quote-syntax class-type-constructor-set!)] + ['methods :: (quote-syntax class-type-methods-set!)]] + unchecked-accessors: + [['id :: (quote-syntax &class-type-id)] + ['name :: (quote-syntax &class-type-name)] + ['super :: (quote-syntax &class-type-super)] + ['flags :: (quote-syntax &class-type-flags)] + ['fields :: (quote-syntax &class-type-fields)] + ['precedence-list :: (quote-syntax &class-type-precedence-list)] + ['slot-vector :: (quote-syntax &class-type-slot-vector)] + ['slot-table :: (quote-syntax &class-type-slot-table)] + ['properties :: (quote-syntax &class-type-properties)] + ['constructor :: (quote-syntax &class-type-constructor)] + ['methods :: (quote-syntax class-type-methods-set!)]] + unchecked-mutators: + [['id :: (quote-syntax &class-type-id-set!)] + ['name :: (quote-syntax &class-type-name-set!)] + ['super :: (quote-syntax &class-type-super-set!)] + ['flags :: (quote-syntax &class-type-flags-set!)] + ['fields :: (quote-syntax &class-type-fields!)] + ['precedence-list :: (quote-syntax &class-type-precedence-list-set!)] + ['slot-vector :: (quote-syntax &class-type-slot-vector-set!)] + ['slot-table :: (quote-syntax &class-type-slot-table-set!)] + ['properties :: (quote-syntax &class-type-properties-set!)] + ['constructor :: (quote-syntax &class-type-constructor-set!)] + ['methods :: (quote-syntax &class-type-methods-set!)]])) diff --git a/src/std/srfi/160/macros.ss b/src/std/srfi/160/macros.ss index af97c809b..b2f008365 100644 --- a/src/std/srfi/160/macros.ss +++ b/src/std/srfi/160/macros.ss @@ -903,6 +903,6 @@ ((_ write-@vector) (def (write-@vector v (port (current-output-port))) (cond - ((find-method v ':write) => (cut <> v port)) + ((method-ref v ':write) => (cut <> v port)) (else (write v (current-output-port))))))) diff --git a/src/std/sugar.ss b/src/std/sugar.ss index c99e33e56..7f5a02b16 100644 --- a/src/std/sugar.ss +++ b/src/std/sugar.ss @@ -157,7 +157,7 @@ (and (identifier? #'method) (identifier? #'method-id)) (def method (cond - ((find-method klass 'method-id)) + ((find-method klass #f 'method-id)) (else (error "Missing method" klass 'method-id))))) ((recur klass method)